version 1.85, 2017/07/17 21:37:41
|
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 105
|
Line 105
|
#define initializeObject(a, b) do { \ |
#define initializeObject(a, b) do { \ |
(*a).descripteur_bibliotheque = (*b).descripteur_bibliotheque; \ |
(*a).descripteur_bibliotheque = (*b).descripteur_bibliotheque; \ |
(*a).extension_type = (*b).extension_type; } while(0) |
(*a).extension_type = (*b).extension_type; } while(0) |
#define objectContainer(a) ((*a).objet) |
#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 ifIsExternal(a, b) if (((*a).type == EXT) && ((*a).extension_type == b)) |
#define elseIfIsExternal(a, b) } else if (((*a).type == EXT) && \ |
#define elseIfIsExternal(a, b) } else if (((*a).type == EXT) && \ |
((*a).extension_type == b)) |
((*a).extension_type == b)) |
Line 150
|
Line 151
|
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 next suivant |
#define data donnee |
#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) |