rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rplexternals.h between versions 1.74 and 1.75

version 1.74, 2017/06/29 12:33:34	version 1.75, 2017/06/29 14:54:42
Line 80	Line 80
// new, dup, drop, disp, parse	// new, dup, drop, disp, parse
// __type_new(struct_rpl_arguments *rpl_arguments)	// __type_new(struct_rpl_arguments *rpl_arguments)
#define declareTypeExtension(fct) \	#define declareTypeExtension(fct) \
int __type_##fct(struct_processus *s_etat_processus) { \	int __type_##fct(struct_processus s_etat_processus, void *arg) { \
unsigned char rptr, ptr; \	char rptr, ptr, *iptr; \
rptr = (*s_etat_processus).definitions_chainees + \	rptr = (char ) ((s_etat_processus).definitions_chainees + \
(*s_etat_processus).position_courante; \	(*s_etat_processus).position_courante); \
ptr = rptr; \	ptr = rptr; \
if (ptr != rptr) goto __parse_error;	iptr = (char ) (s_etat_processus).instruction_courante; \
	if ((ptr != rptr) && (iptr)) goto __parse_error;
#define parseError { goto __parse_error; } while(0)	#define parseError { goto __parse_error; } while(0)
	#define typeError { return(0); } while(0)
	#define typeFound(a) { return(a); } while(0)
#define endTypeExtension __parse_error: return(0); }	#define endTypeExtension __parse_error: return(0); }
#define sizeOfParse (rptr - ptr)	#define sizeOfParse (rptr - ptr)
	#define searchType { recherche_type(s_etat_processus); \
	if (((*s_etat_processus).erreur_execution != d_ex) \|\| \
	((*s_etat_processus).erreur_systeme != d_es)) \
	return(0); } while(0)

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.74
changed lines
	Added in v.1.75