Télécharger argu.notice

Retour à la liste

Afficher cette notice en

Numérotation des lignes :
$$$$ ARGU     NOTICE  OF166741  25/09/02    21:15:02     12347          
                                             DATE     25/09/02

    Directive ARGUMENT                       Voir aussi : DEBP FINP
    ------------------                                    RESP  QUIT  
                                                          DEBM  FINM  
    ARGUMENT  OBJET1?TYP1  ... OBJETi?TYPi ... ;



    Objet :
    _______

    La directive ARGUMENT permet de lire des arguments OBJETi, de type TYPi,
    depuis l'interieur d'une procedure.

    Pour des raisons de performances, il est preferable de recuperer
    les arguments directement dans DEBPROC quand c'est possible.


    Commentaire :
    _____________

    L'ensemble ?TYPi est facultatif. S'il est omis, ARGU 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.

    Le caractere ? vaut :

    - soit *  si la lecture est imperative
    - soit /  sinon

    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'


    Exemple :
    _________

    Procedure faisant l'addition de n entiers avec n plus grand ou egal a 2.


      DEBP ADDI ;
      ARGU  I*ENTIER  J*ENTIER  ;
      K = I + J ;
      REPETER NFOI;
        ARGU L/ENTIER;
        SI ( EXISTE L ) ;
          K = K + L ;
        SINON;
          QUITTER NFOI;
        FINSI;
      FIN NFOI;
      FINPROC K;
      X = ADDI 2 5  4;

$$$$

 

© Cast3M 2003 - Tous droits réservés.
Mentions légales