Accueil | Cast3M

   1 : $$$$ ARGU     NOTICE  OF166741  25/09/02    21:15:02     12347          
   2 :                                              DATE     25/09/02
   3 : 
   4 :   Directive ARGUMENT                       Voir aussi : DEBP FINP
   5 :     ------------------                                    RESP  QUIT  
   6 :                                                           DEBM  FINM  
   7 :     ARGUMENT  OBJET1?TYP1  ... OBJETi?TYPi ... ;
   8 : 
   9 : 
  10 : 
  11 :     Objet :
  12 :     _______
  13 : 
  14 :     La directive ARGUMENT permet de lire des arguments OBJETi, de type TYPi,
  15 :     depuis l'interieur d'une procedure.
  16 : 
  17 :     Pour des raisons de performances, il est preferable de recuperer
  18 :     les arguments directement dans DEBPROC quand c'est possible.
  19 : 
  20 : 
  21 :     Commentaire :
  22 :     _____________
  23 : 
  24 :     L'ensemble ?TYPi est facultatif. S'il est omis, ARGU essaie de recuperer
  25 :     un objet de n'importe quel type. Les objets de type inconnu doivent etre
  26 :     places a la fin de la liste des arguments a lire.
  27 : 
  28 :     Le caractere ? vaut :
  29 : 
  30 :     - soit *  si la lecture est imperative
  31 :     - soit /  sinon
  32 : 
  33 :     Les types d'objet possibles sont :
  34 : 
  35 : 
  36 :         'ENTIER  '     'MOT     '     'FLOTTANT'     'LOGIQUE '
  37 :         'LISTENTI'     'LISTMOTS'     'LISTREEL'     'LISTOBJE'
  38 :         'LISTCHPO'     'EVOLUTIO'     'NUAGE   '     'TABLE   '
  39 :         'MAILLAGE'     'POINT   '     'CONFIGUR'     'DEFORME '
  40 :         'TEXTE   '     'PROCEDUR'     'RIGIDITE'     'SUPERELE'
  41 :         'CHPOINT '     'MMODEL  '     'MCHAML  '     'CHARGEME'
  42 :         'VECTEUR '     'MATRIK  '     'SOLUTION'     'BASEMODA'
  43 :         'ATTACHE '     'BLOQSTRU'     'ELEMSTRU'     'STRUCTUR'
  44 : 
  45 : 
  46 :     Exemple :
  47 :     _________
  48 : 
  49 :     Procedure faisant l'addition de n entiers avec n plus grand ou egal a 2.
  50 : 
  51 : 
  52 :       DEBP ADDI ;
  53 :       ARGU  I*ENTIER  J*ENTIER  ;
  54 :       K = I + J ;
  55 :       REPETER NFOI;
  56 :         ARGU L/ENTIER;
  57 :         SI ( EXISTE L ) ;
  58 :           K = K + L ;
  59 :         SINON;
  60 :           QUITTER NFOI;
  61 :         FINSI;
  62 :       FIN NFOI;
  63 :       FINPROC K;
  64 :       X = ADDI 2 5  4;
  65 : 
  66 : $$$$
  67 : 
  68 :