Accueil | Cast3M

   1 : $$$$ ARGU     NOTICE  PASCAL    22/06/29    21:15:01     11396          
   2 :                                              DATE     22/06/29
   3 : 
   4 :   Operateur ARGUMENT                       Voir aussi : DEBP FINP
   5 :     ------------------                                    QUIT  RESP  
   6 :                                                           DEBM  FINM  
   7 :     ARGUMENT  OBJET1?TYP1  OBJET2?TYP2  .....;
   8 : 
   9 : 
  10 : 
  11 :     Objet :
  12 :     _______
  13 : 
  14 :     L'operateur ARGUMENT permet de lire des arguments OBJETi, de type
  15 :     TYPi, 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
  25 :     recuperer un objet de n'importe quel type. Les objets de type 
  26 :     inconnu doivent etre place a la fin de la liste des arguments
  27 :     a lire.
  28 : 
  29 :     Le caractere ? vaut :
  30 : 
  31 :     - soit *  si la lecture est imperative
  32 :     - soit /  sinon
  33 : 
  34 :     Les types d'objet possibles sont:
  35 : 
  36 :         'MAILLAGE'     'AFFECTE '    'DEFORME '
  37 :         'CHPOINT '     'CHAMELEM'    'LISTREEL'
  38 :         'RIGIDITE'     'BLOQSTRU'    'LISTENTI'
  39 :         'ELEMSTRU'     'SOLUTION'    'CHARGEME'
  40 :         'STRUCTUR'     'TABLE   '    'MODELE  '
  41 :         'MAFFEC  '     'MSOSTU  '    'EVOLUTIO'
  42 :         'IMATRI  '     'MJONCT  '    'SUPERELE'
  43 :         'ATTACHE '     'MMATRI  '    'LOGIQUE '
  44 :         'FLOTTANT'     'ENTIER  '    'MOT     '
  45 :         'TEXTE   '     'LISTMOTS'    'VECTEUR '
  46 :         'VECTDOUB'     'POINT   '    'CONFIGUR'
  47 :         'LISTCHPO'     'BASEMODA'    'PROCEDUR'
  48 :         'BLOC    '     'MMODEL  '    'MCHAML  '
  49 :         'MINTE   '     'NUAGE   '    'MATRIK  '
  50 :         'LISTOBJE'
  51 : 
  52 : 
  53 :     Exemple :
  54 :     _________
  55 : 
  56 :     Procedure faisant l'addition de n entiers avec n plus grand ou
  57 :     egal a 2.
  58 : 
  59 : 
  60 :              DEBP ADDI ;
  61 :              ARGU  I*ENTIER  J*ENTIER  ;
  62 :              K = I + J ;
  63 :              REPETER NFOI;
  64 :              ARGU L/ENTIER;
  65 :              SI ( EXISTE L) ;
  66 :              K = K + L ;
  67 :              SINON;
  68 :              QUITTER NFOI;
  69 :              FINSI;
  70 :              FIN NFOI;
  71 :              FINPROC K;
  72 :              X = ADDI 2 5  4;
  73 :