rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

-version 1.89, 2018/05/30 09:27:39
+version 1.90, 2018/05/30 16:50:13
  Line 1105
      ifIsString(rpl_object) string = (char *) (*rpl_object).objet; \
      else executionError("Type mismatch error"); } while(0)
+ #define unEscString(s) do { \
+     unsigned char *__a; integer8 __l; \
+     __a = formateur_flux((*rpl_arguments).s_etat_processus, \
+             (unsigned char *) s, &__l); \
+     if (nullified(__a)) systemError("Memory allocation error"); \
+     free(s); s = (string) __a; \
+     } while(0)
+ #define escString(rpl_object) do { \
+     unsigned char *__a; integer8 __l; \
+     __a = analyse_flux((*rpl_arguments).s_etat_processus, \
+             (unsigned char *) s, strlen(s)); \
+     if (nullified(__a)) systemError("Memory allocation error"); \
+     free(s); s = (string) __a; \
+     } while(0)
  #define createStringObject(rpl_object) do { \
      struct_processus *s_etat_processus; \
      s_etat_processus = (*rpl_arguments).s_etat_processus; \