rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

version 1.87, 2017/07/30 21:59:41	version 1.91, 2018/05/30 16:56:07
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.27	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2017 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

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) ({ \
	unsigned char *__a; integer8 __l; \
	__a = formateur_flux((*rpl_arguments).s_etat_processus, \
	(unsigned char *) s, &__l); \
	if (nullified(__a)) systemError("Memory allocation error"); \
	(string) __a; \
	})

	#define escString(rpl_object) ({ \
	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"); \
	(string) __a; \
	})

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