version 1.78, 2017/07/03 11:47:05
|
version 1.88, 2017/08/03 17:17:50
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.27 |
RPL/2 (R) version 4.1.28 |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 101
|
Line 101
|
if (((*s_etat_processus).erreur_execution != d_ex) || \ |
if (((*s_etat_processus).erreur_execution != d_ex) || \ |
((*s_etat_processus).erreur_systeme != d_es)) \ |
((*s_etat_processus).erreur_systeme != d_es)) \ |
{ __VA_ARGS__; return(0); } } while(0) |
{ __VA_ARGS__; return(0); } } while(0) |
|
#define structObject struct_objet |
|
#define initializeObject(a, b) do { \ |
|
(*a).descripteur_bibliotheque = (*b).descripteur_bibliotheque; \ |
|
(*a).extension_type = (*b).extension_type; } while(0) |
|
#define objectContainer(type, a) ((type *) ((*a).objet)) |
|
#define objectOf(a) ((*a).objet) |
|
#define ifIsExternal(a, b) if (((*a).type == EXT) && ((*a).extension_type == b)) |
|
#define elseIfIsExternal(a, b) } else if (((*a).type == EXT) && \ |
|
((*a).extension_type == b)) |
|
#define subType(a) ((*a).extension_type) |
#define integerFormat(a) formateur_nombre(s_etat_processus, a, 'I') |
#define integerFormat(a) formateur_nombre(s_etat_processus, a, 'I') |
|
#define procStatus(a) (*a).s_etat_processus |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Line 139
|
Line 150
|
({ __CATCH_SYSTEM_ERROR__; typeof(daisyChain) __daisyChain = daisyChain; \ |
({ __CATCH_SYSTEM_ERROR__; typeof(daisyChain) __daisyChain = daisyChain; \ |
if (__daisyChain == NULL) executionError("End of daisy chain"); \ |
if (__daisyChain == NULL) executionError("End of daisy chain"); \ |
(__daisyChain == NULL) ? NULL : (*__daisyChain).suivant; }) |
(__daisyChain == NULL) ? NULL : (*__daisyChain).suivant; }) |
|
|
|
#define next suivant |
|
#define data donnee |
|
#define daisyChain struct_liste_chainee |
|
|
#define null NULL |
#define null NULL |
#define nullify(ptr) __CATCH_SYSTEM_ERROR__; do { ptr = NULL; } while(0) |
#define nullify(ptr) __CATCH_SYSTEM_ERROR__; do { ptr = NULL; } while(0) |
Line 172
|
Line 187
|
#define declareUnion typedef union { |
#define declareUnion typedef union { |
#define as(name) } name; |
#define as(name) } name; |
|
|
#define target(a) (*a) |
#define target(a) (*(a)) |
#define address(a) (&a) |
#define address(a) (&(a)) |
|
|
#define subroutine(name) int name() |
#define subroutine(name) int name() |
#define beginGroup { __CATCH_SYSTEM_ERROR__; |
#define beginGroup { __CATCH_SYSTEM_ERROR__; |
Line 213
|
Line 228
|
unsigned char __taille_bloc; \ |
unsigned char __taille_bloc; \ |
unsigned char __type; \ |
unsigned char __type; \ |
t_8_bits __masque; \ |
t_8_bits __masque; \ |
|
void *s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
|
DISABLE_SET_BUT_NOT_USED_WARNING(s_etat_processus); \ |
{ \ |
{ \ |
(*rpl_arguments).instruction_valide = 'Y'; \ |
(*rpl_arguments).instruction_valide = 'Y'; \ |
(*rpl_arguments).erreur = 0; \ |
(*rpl_arguments).erreur = 0; \ |
Line 1056
|
Line 1073
|
((*rpl_object).type == CHN) |
((*rpl_object).type == CHN) |
|
|
#define ifIsString(rpl_object) if (isString(rpl_object)) |
#define ifIsString(rpl_object) if (isString(rpl_object)) |
#define elseIfIsString(rpl_object) else if (isString(rpl_object)) |
#define elseIfIsString(rpl_object) } else if (isString(rpl_object)) |
|
|
#define setString(rpl_object, string) do { \ |
#define setString(rpl_object, string) do { \ |
struct_processus *s_etat_processus; \ |
struct_processus *s_etat_processus; \ |
Line 1236
|
Line 1253
|
} \ |
} \ |
} } while(0) |
} } while(0) |
|
|
|
// NON |
|
#define createObject(rpl_object) do { \ |
|
if (rpl_object != NULL) \ |
|
systemError("Reallocated object"); \ |
|
if ((rpl_object = _allocation(NON)) == NULL) \ |
|
systemError("Memory allocation error"); \ |
|
(*rpl_object).objet = NULL; \ |
|
} while(0) |
|
|
// EXT |
// EXT |
#define createExternalObject(rpl_object, subtype) do { \ |
#define createExternalObject(rpl_object, subtype) do { \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |