/*************************************************************************************************************************************/ /* */ /* T E S T D U M O D E ' GooF ' S A N S D E R I V A T I O N P O S S I B L E : */ /* */ /* */ /* Author of '$xtKg/GooF_NDer.11$K' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 20040424122210). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* I N T E R F A C E ' listG ' : */ /* */ /* */ /* :Debut_listG: */ /* :Fin_listG: */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */ /* */ /*************************************************************************************************************************************/ #define PRAGMA_CPP_____AUTORISER_LE_GooF @define PRAGMA_CPP_____MODULE_NON_DERIVABLE /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* F I C H I E R S D ' I N C L U D E S : */ /* */ /*************************************************************************************************************************************/ #include INCLUDES_MINI /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* T E S T D U M O D E ' GooF ' S A N S D E R I V A T I O N P O S S I B L E : */ /* */ /*************************************************************************************************************************************/ BCommande(nombre_d_arguments,arguments) /*-----------------------------------------------------------------------------------------------------------------------------------*/ Bblock DEFV(Float,INIT(variable,FLOT__UNDEF)); /* Le 20061211153343 le nom 'variable_GooF' est devenu 'variable' a cause de l'usage */ /* particulier qui en est fait dans 'v $xcc/cpp$Z'... */ /*..............................................................................................................................*/ GET_ARGUMENTS_(nombre_d_arguments ,BLOC(VIDE;) ); #include xtKg/GooF_Der.11.I" ACTIVER__S_IL_EST_ACTIVABLE__ET__SI_UTILE__GooF EGAL(variable,VARIABLE_INCLUDE_1); DESACTIVER__S_IL_EST_ACTIVABLE__ET__SI_UTILE__GooF EGAL(variable,VARIABLE_INCLUDE_1); ACTIVER__S_IL_EST_ACTIVABLE__ET__SI_UTILE__GooF #include xtKg/GooF_Der.12.I" DESACTIVER__S_IL_EST_ACTIVABLE__ET__SI_UTILE__GooF #include xtKg/GooF_Der.12.I" RETU_Commande; Eblock ECommande