/*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D E B A S E E T U N I V E R S E L L E S : */ /* */ /* */ /* Author of '$xrk/attractor.11$I' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 1992??????????). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D E L A C O M P I L A T I O N : */ /* */ /*************************************************************************************************************************************/ #define __VERSION__FAUSSE_GENERATION_D_UN_NUCLEON \ /* Et oui, car on veut faire croire que l'on est dans '$xrq/nucleon.L0$K'... */ \ /* Mais pas tout a fait (en particulier pour l'initialisation du generateur aleatoire dans */ \ /* 'INITIALISATION_DE_L_ESPACE_DE_PARAMETRAGE(...)' independamment du format des images). */ \ /* Le '__VERSION__' a ete introduit le 20030313153742 pour 'v $xcc/cpp$Z _VERSION_'. */ #include xrq/nucleon.L1.I" #undef GENERE__Fonction__OPT #define GENERE__Fonction__OPT(Fsequence,racine,sequence) \ DEFV(Local,DEFV(FonctionI,f$racine$Fsequence())) \ /*-----------------------------------------------------------------------------------------------------------------------------------*/ \ Bblock \ INIT_ERROR; \ /*..............................................................................................................................*/ \ BLOC(VIDE;); \ RETU_ERROR; \ Eblock \ \ %define Fsequence \ \ Bblock \ \ BLOC(sequence); \ \ Eblock \ \ /* Introduit le 20170125043032 afin de ne pas generer les fonctions qui n'ont d'utilite */ \ /* que dans '$xrq'. On notera que l'on ne peut utiliser simplement la definition : */ \ /* */ \ /* #define GENERE__Fonction__OPT(Fsequence,racine,sequence) \ */ \ /* VIDE */ \ /* */ \ /* a cause des utilisations ulterieures : */ \ /* */ \ /* DEFV(LoF,GENERE__Fonction__OPT(...)) */ \ /* --- */ \ /* */ \ /* Il convient donc que l'on definisse vraiment une fonction (mais donc vide...), alors que */ \ /* que le "vrai" code reste dans un '%define' qui ne sera donc implemente que s'il est */ /* utile... */ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D E S C O N S T A N T E S U N I V E R S E L L E S : */ /* */ /*************************************************************************************************************************************/ #include xrq/nucleon.L2.I" /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D U T E M P S : */ /* */ /*************************************************************************************************************************************/ #include xrq/nucleon.L3.I"