/*************************************************************************************************************************************/ /* */ /* E X P L O I T A T I O N D E S P R I N C I P A U X O P E R A T E U R S : */ /* */ /* */ /* Author of '$xcp/Loperators_G$K' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 20010101103630). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* 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_CL_____PAS_DE_LIBRAIRIES_DYNAMIQUES /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* F I C H I E R S D ' I N C L U D E S : */ /* */ /*************************************************************************************************************************************/ #include INCLUDES_BASE #include gener_EDITION_EXT /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* M A C R O S U T I L E S : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* E X P L O I T A T I O N D E S P R I N C I P A U X O P E R A T E U R S : */ /* */ /*************************************************************************************************************************************/ BCommande(nombre_d_arguments,arguments) /*-----------------------------------------------------------------------------------------------------------------------------------*/ Bblock DEFV(CHAR,INIC(POINTERc(operateur_general_recherche),NOM_UNDEF_VIDE)); /* Nom d'un eventuel operateur general a editer seul... */ /*..............................................................................................................................*/ EGAL(valider_les_axes_OX_OY_OZ,NE_PAS_VALIDER_LES_AXES_OX_OY_OZ); /* Afin de simplifier l'usage de cette commande... */ GET_ARGUMENTSi(nombre_d_arguments ,BLOC(GET_ARGUMENT_C("operateur=""o=",operateur_general_recherche); GET_ARGUMENT_L("arguments=""args=" ,Fexploitation_des_principaux_operateurs_generaux_____editer_args_operateur_unique ); /* Introduit le 20031209120039... */ GET_ARGUMENT_L("signe=""s=" ,Fexploitation_des_principaux_operateurs_generaux_____signer_les_valeurs_numeriques ); /* Peut s'utiliser conjointement avec : */ /* */ /* SigneInt= */ /* SigneFlot= */ /* */ /* ('v $xig/fonct$vv$DEF signe_de_FORMAT_') qui n'a pas tout a fait le meme effet que */ /* 'signe=' car, en effet, cette derniere reduit la precision du resultat car elle */ /* bascule entre {FORMAT_FLOT_EDITION,FORMAT_INTE_EDITION} et {FORMAT_FLOT,FORMAT_INTE} */ /* respectivement... */ GET_ARGUMENT_F("a=",Fexploitation_des_principaux_operateurs_generaux_____parametre_a); GET_ARGUMENT_F("b=",Fexploitation_des_principaux_operateurs_generaux_____parametre_b); GET_ARGUMENT_F("c=",Fexploitation_des_principaux_operateurs_generaux_____parametre_c); GET_ARGUMENT_F("d=",Fexploitation_des_principaux_operateurs_generaux_____parametre_d); GET_ARGUMENT_F("e=",Fexploitation_des_principaux_operateurs_generaux_____parametre_e); GET_ARGUMENT_F("f=",Fexploitation_des_principaux_operateurs_generaux_____parametre_f); GET_ARGUMENT_F("g=",Fexploitation_des_principaux_operateurs_generaux_____parametre_g); GET_ARGUMENT_F("h=",Fexploitation_des_principaux_operateurs_generaux_____parametre_h); GET_ARGUMENT_F("i=",Fexploitation_des_principaux_operateurs_generaux_____parametre_i); ) ); CALS(Fexploitation_des_principaux_operateurs_generaux(operateur_general_recherche)); RETU_Commande; Eblock ECommande