Procedures | Cast3M

   1 : * VERTYTAB  PROCEDUR  MAGN      05/04/21    21:15:05     5074           
   2 : 'DEBPROC' VERTYTAB ;
   3 :  ARGU rxt/'TABLE'
   4 :       lxt/'LISTMOTS'
   5 :  entree*mot typr*mot
   6 :       lco/'MOT'    ;
   7 : *******************************************************************
   8 : *******************************************************************
   9 : * VERTYTAB rxt 'YAIR' 'FLOTTANT' ;
  10 : * on vérifie que 'YAIR' est bien une entrée de rxt et que c'est
  11 : * un FLOTTANT                            -/> erreur
  12 : *
  13 : * VERTYTAB lxt 'YAIR' 'MOT'      ;
  14 : * on vérifie que 'YAIR' est bien une entrée de lxt (LISTMOTS)
  15 : * 'MOT' n'est pas testé pour le moment   -/> erreur
  16 : *
  17 : * VERTYTAB 'ERREUR' 'ERREUR' 'message'    ;
  18 : * dans ce cas on imprime le message et retour
  19 : *
  20 : *******************************************************************
  21 : *******************************************************************
  22 : Si (Exist rxt) ;
  23 :  Si (non (exist rxt entree));
  24 :  Mess '*********************************************************' ;
  25 :  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  26 :  Mess '                                                         ' ;
  27 :  Mess 'L entree ' ENTREE ' n existe pas dans la table ' ;
  28 :  Mess '                                                         ' ;
  29 :  Mess '*********************************************************' ;
  30 :  erreur 21 ;
  31 :  quitter VERTYTAB;
  32 :  Finsi ;
  33 : 
  34 : Si (non (exist lco));
  35 :  Si(NON ('EGA' TYPR (TYPE rxt.entree))) ;
  36 :  Mess '***********************************************************' ;
  37 :  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  38 :  Mess '                                                         ' ;
  39 :   Mess ' On attend un ' TYPR ' pour l entree ' entree ' de la table';
  40 :  Mess '                                                         ' ;
  41 :  Mess '***********************************************************' ;
  42 :   erreur 21 ;
  43 :  Finsi ;
  44 : Sinon;
  45 :  Si((NON ('EGA' TYPR (TYPE rxt.entree)))
  46 :  et (NON ('EGA' lco  (TYPE rxt.entree))) ) ;
  47 :  Mess '***********************************************************' ;
  48 :  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  49 :  Mess '                                                         ' ;
  50 :   Mess ' On attend un ' TYPR ' ou un ' lco
  51 :                              ' pour l entree ' entree ' de la table';
  52 :  Mess '                                                         ' ;
  53 :  Mess '***********************************************************' ;
  54 :   erreur 21 ;
  55 :  Finsi ;
  56 : 
  57 : Finsi;
  58 : 
  59 :  quitter VERTYTAB;
  60 : 
  61 : Finsi ;
  62 : 
  63 : Si (Exist lxt)                                                    ;
  64 : 
  65 :  Si (non (exist lxt entree));
  66 :  Mess '*********************************************************' ;
  67 :  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  68 :  Mess '                                                         ' ;
  69 :  Mess 'Le mot ' ENTREE ' n existe pas dans la liste ' ;
  70 :  Mess '                                                         ' ;
  71 :  Mess 'Le contenu de la liste est ';
  72 :  list lxt ;
  73 :  Mess '                                                         ' ;
  74 :  Mess '*********************************************************' ;
  75 : 
  76 :  erreur 21 ;
  77 :  quitter VERTYTAB;
  78 :  Finsi ;
  79 : 
  80 : Finsi ;
  81 : 
  82 : Si (Exist lco);
  83 : 
  84 :  Mess '*********************************************************' ;
  85 :  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  86 :  Mess '                                                         ' ;
  87 :  Mess lco                                             ;
  88 :  Mess '                                                         ' ;
  89 :  Mess '                                                         ' ;
  90 :  Mess '*********************************************************' ;
  91 : 
  92 :  erreur 21 ;
  93 :  quitter VERTYTAB;
  94 : 
  95 : Finsi ;
  96 : 
  97 : FINPROC ;
  98 :