/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V E R I F I C A T I O N   D E   L ' E T A T   D E   C E R T A I N E S   R E S S O U R C E S   D U   S Y S T E M E  :       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Utilisation :                                                                                                              */
/*                                                                                                                                   */
/*                    Cette commande, formellement identique                                                                         */
/*                  a '$xcg/parallele.01$K' s'utilisera par                                                                          */
/*                  exemple de la facon suivante :                                                                                   */
/*                                                                                                                                   */
/*                                      if        (`$xcg/ressource.01$X ressource=... seuil=...` == $EXIST)                          */
/*                                                                                                                                   */
/*                                                <POUVOIR FAIRE QUELQUE CHOSE LES RESSOURCES ETANT DISPONIBLES>                     */
/*                                                                                                                                   */
/*                                      else                                                                                         */
/*                                                                                                                                   */
/*                                                <NE PAS POUVOIR FAIRE QUELQUE CHOSE LES RESSOURCES ETANT INDISPONIBLES>            */
/*                                                                                                                                   */
/*                                      endif                                                                                        */
/*                                                                                                                                   */
/*                  permettant a cetaines actions de ne pas etre                                                                     */
/*                  bloquees par manque de certaines ressources...                                                                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcg/ressource.01$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1995??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_MINI

#include  xcg/ressource.05.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */

/*===================================================================================================================================*/
#include  xcg/ressource.01.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xcg/ressource.02.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V E R I F I C A T I O N   D E   L ' E T A T   D E   C E R T A I N E S   R E S S O U R C E S  :                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include   xcg/ressource.03.I"

     /*..............................................................................................................................*/
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("ressource=""r=""commande=""c=",commande_courante);
                         GET_ARGUMENT_L("editer=",editer_les_valeurs);

                         GET_ARGUMENT_I("Ivaleur1=""Iv1=""Iseuil1=""Is1=",Idonnees1);

                         GET_ARGUMENT_I("Ivaleur2=""Iv2=""Iseuil2=""Is2=",Idonnees2);

                         GET_ARGUMENT_F("Fvaleur1=""Fv1=""Fseuil1=""Fs1=",Fdonnees1);

                         GET_ARGUMENT_F("Fvaleur2=""Fv2=""Fseuil2=""Fs2=",Fdonnees2);
                         )
                    );

#include  xcg/ressource.04.I"

     Test(EST_FAUX(on_a_trouve_une_commande_valide))
          Bblock
          PRINT_ERREUR("la commande d'acces aux ressources n'a pas ete reconnue");
          Eblock
     ATes
          Bblock
          Eblock
     ETes

     Test(EST_VRAI(tout_va_bien))
          Bblock
          CAL2(Prin1("%d",Gval("EXIST")));
                                        /* Tout va bien, donc '$EXIST'...                                                            */
          Eblock
     ATes
          Bblock
          CAL2(Prin1("%d",Gval("NEXIST")));
                                        /* Quelque chose ne va pas, donc '$NEXIST'...                                                */
          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande