Télécharger vertytab.procedur

Retour à la liste

Numérotation des lignes :

  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.  
  99.  

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