Notices | Cast3M

$$$$ DEBP     NOTICE  OF166741  25/09/02    21:15:03     12347          
                                             DATE     25/09/02

    Directive DEBPROC                        Voir aussi : FINP ARGU
    -----------------                                     RESP  QUIT  
    DEBPROC  PROC1 (OBJ1?TYP1 ... OBJi?TYPi ... ) ;


    Objet :
    -------

    La directive DEBPROC cree un objet de type PROCEDUR qui contient une
suite d'instructions elementaires, dont la premiere est DEBPROC et la
derniere est FINPROC.


    Commentaire :
    -------------

    La procedure peut avoir une liste d'arguments types (OBJ1,OBJ2,...).

    ? peut prendre deux valeurs :

        *  qui rend la donnee de l'argument obligatoire au
           moment de l'appel de la procedure,

        /  qui la rend facultative.

    Les types d'objet possibles sont:

        'ENTIER  '     'MOT     '     'FLOTTANT'     'LOGIQUE '
        'LISTENTI'     'LISTMOTS'     'LISTREEL'     'LISTOBJE'
        'LISTCHPO'     'EVOLUTIO'     'NUAGE   '     'TABLE   '
        'MAILLAGE'     'POINT   '     'CONFIGUR'     'DEFORME '
        'TEXTE   '     'PROCEDUR'     'RIGIDITE'     'SUPERELE'
        'CHPOINT '     'MMODEL  '     'MCHAML  '     'CHARGEME'
        'VECTEUR '     'MATRIK  '     'SOLUTION'     'BASEMODA'
        'ATTACHE '     'BLOQSTRU'     'ELEMSTRU'     'STRUCTUR'

    Il faut bien noter qu'en presence de plusieurs arguments de meme type
seul l'ordre permet de les differencier.

    L'ensemble ?TYPi est facultatif. S'il est omis, DEBP essaie de recuperer
un objet de n'importe quel type. Les objets de type inconnu doivent etre places
a la fin de la liste des arguments a lire.


    Remarques :
    -----------

    Une procedure a acces a tous les objets existants avant son appel mais ne
peut pas les modifier. Tout objet dont le nom commence par ! ne sera pas
initialise par un objet de meme nom defini en dehors de la procedure.

    Les objets crees lors de l'execution d'une procedure ne sont pas accessibles
a l'exterieur de la procedure, excepte ceux retournes par les instructions
RESPRO et/ou FINPRO.


    Exemple de procedure de calcul de la fonction MODULO :
    ------------------------------------------------------

    DEBPROC  MODULO   I*ENTIER  J*ENTIER ;
      MODERR='$$$$$';
      SI (J EGA 0) :
        MESSAGE ' ON NE PEUT FAIRE I MODULO ZERO ';
        RESPRO MODERR;
        QUITTER MODULO;
      FINSI;
      K*ENTIER = I / J ;
      MOD = I - ( K * J ) ;
    FINPROC MOD;

    Exemple d'emploi de la procedure MODULO :
    -----------------------------------------

         K = 8  MODULO 3 ;
         SI ( K NEG 2 ) ;
           MESSAGE ' ERREUR DANS LA RECOPIE DE L EXEMPLE |' ;
         FINSI;

$$$$