rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

version 1.90, 2018/05/30 16:50:13	version 1.91, 2018/05/30 16:56:07
Line 1105	Line 1105
ifIsString(rpl_object) string = (char ) (rpl_object).objet; \	ifIsString(rpl_object) string = (char ) (rpl_object).objet; \
else executionError("Type mismatch error"); } while(0)	else executionError("Type mismatch error"); } while(0)

#define unEscString(s) do { \	#define unEscString(s) ({ \
unsigned char *__a; integer8 __l; \	unsigned char *__a; integer8 __l; \
__a = formateur_flux((*rpl_arguments).s_etat_processus, \	__a = formateur_flux((*rpl_arguments).s_etat_processus, \
(unsigned char *) s, &__l); \	(unsigned char *) s, &__l); \
if (nullified(__a)) systemError("Memory allocation error"); \	if (nullified(__a)) systemError("Memory allocation error"); \
free(s); s = (string) __a; \	(string) __a; \
} while(0)	})

#define escString(rpl_object) do { \	#define escString(rpl_object) ({ \
unsigned char *__a; integer8 __l; \	unsigned char *__a; integer8 __l; \
__a = analyse_flux((*rpl_arguments).s_etat_processus, \	__a = analyse_flux((*rpl_arguments).s_etat_processus, \
(unsigned char *) s, strlen(s)); \	(unsigned char *) s, strlen(s)); \
if (nullified(__a)) systemError("Memory allocation error"); \	if (nullified(__a)) systemError("Memory allocation error"); \
free(s); s = (string) __a; \	(string) __a; \
} while(0)	})

#define createStringObject(rpl_object) do { \	#define createStringObject(rpl_object) do { \
struct_processus *s_etat_processus; \	struct_processus *s_etat_processus; \