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) |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |