Télécharger la plaquette Cast3M


fr en

Télécharger ET_LISTMOTS.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  ET_LISTMOTS.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. *           Test ET_LISTMOTS.dgibi: Jeux de données   *
  7. *           ---------------------------------         *
  8. *******************************************************
  9. *___________________________________________________________________
  10. *   TEST ET_LISTMOTS                                               *
  11. *                                                                  *
  12. *   Permet de realiser la verification et validation du 'ET' dans  *
  13. *   les cas suivants :                                             *
  14. *     LISTMOTS 'ET' MOT                                            *
  15. *     MOT      'ET' LISTMOTS                                       *
  16. *     LISTMOTS 'ET' LISTMOTS                                       *
  17. *___________________________________________________________________
  18. *
  19.  
  20. ************************************************************************
  21. * Construction des LISTMOTS initiaux
  22. ************************************************************************
  23. TOTO = 'MOTS' 'ABCD' 'EFJJ' 'DKF' ;
  24. TITI = 'MOTS' 'AABB' 'EEFF' 'JKLM' 'JGFG';
  25.  
  26. ************************************************************************
  27. * LISTMOTS 'ET' MOT
  28. ************************************************************************
  29. TATA = TOTO 'ET' 'IJKL';
  30.  
  31. * VALIDATION
  32. BVALID = 'EGA' ('DIME' TATA) (('DIME' TOTO) + 1);
  33. 'REPE' SURI ('DIME' TOTO);
  34.   III=&SURI;
  35.   BVALID = BVALID 'ET' ('EGA' ('EXTR' TATA III)('EXTR' TOTO III));
  36. 'FIN' SURI;
  37.  
  38. BVALID = BVALID 'ET' ('EGA' ('EXTR' TATA (('DIME' TOTO) + 1)) 'IJKL');
  39. LIST TATA;
  40. 'SI' (NON BVALID);
  41.   MESS 'Erreur 1 dans le ET entre un LISTMOTS et un MOT';
  42.   ERRE 5;
  43. 'FINS';
  44.  
  45.  
  46. ************************************************************************
  47. * MOT 'ET' LISTMOTS
  48. ************************************************************************
  49. TUTU = 'ET' 'MLKI' TOTO;
  50. * VALIDATION
  51. BVALID = 'EGA' ('DIME' TUTU) (('DIME' TOTO) + 1);
  52. BVALID = BVALID 'ET' ('EGA' ('EXTR' TUTU 1) 'MLKI');
  53. 'REPE' SURI ('DIME' TOTO);
  54.   III=&SURI;
  55.   JJJ=III+1;
  56.   BVALID = BVALID 'ET' ('EGA' ('EXTR' TUTU JJJ)('EXTR' TOTO III));
  57. 'FIN' SURI;
  58. LIST TUTU;
  59. 'SI' (NON BVALID);
  60.   MESS 'Erreur 2 dans le ET entre un MOT et un LISTMOTS';
  61.   ERRE 5;
  62. 'FINS';
  63.  
  64.  
  65. ************************************************************************
  66. * LISTMOTS 'ET' LISTMOTS
  67. ************************************************************************
  68. TETE = TATA 'ET' TITI;
  69.  
  70. * VALIDATION
  71. BVALID = 'EGA' ('DIME' TETE) (('DIME' TATA) + ('DIME' TITI) );
  72. 'REPE' SURI ('DIME' TATA);
  73.   III=&SURI;
  74.   BVALID = BVALID 'ET' ('EGA' ('EXTR' TETE III)('EXTR' TATA III));
  75. 'FIN' SURI;
  76.  KKK=('DIME' TATA);
  77. 'REPE' SURJ ('DIME' TITI);
  78.   JJJ=&SURJ;
  79.   KKK=KKK+1;
  80.   BVALID = BVALID 'ET' ('EGA' ('EXTR' TETE KKK)('EXTR' TITI JJJ));
  81. 'FIN' SURJ;
  82. LIST TETE;
  83. 'SI' (NON BVALID);
  84.   MESS 'Erreur 3 dans le ET entre un LISTMOTS et un LISTMOTS';
  85.   ERRE 5;
  86. 'FINS';
  87.  
  88. FIN;
  89.  
  90.  
  91.  
  92.  

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