Télécharger temps.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : temps.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. * Presentation : Ce cas-test de Verification permet de tester les
  6. * differentes syntaxes de la directive / operateur TEMP
  7. * qui a pour charge de faire des mesures de temps.
  8. *
  9. * Creation : 09/07/2015
  10. * Createur : C. BERTHINIER
  11. *******************************************
  12.  
  13. OPTI ELEM QUA4;
  14. x = prog 0. PAS 1. 2.E6;
  15. y = x + x;
  16.  
  17.  
  18. ************** TEMPS PASSE : IMPRESSION ECRAN ****************
  19.  
  20. * Simple message du temps passe
  21.  
  22. * Impression a l'ecran des valeurs des temps passes dans les operateurs
  23. TEMP 'IMPR';
  24.  
  25. * Impression resumee des valeurs des temps passes dans les operateurs
  26. * ordonne en sens decroissant
  27. TEMP 'IMPR' 'SOMM' 'CPU';
  28.  
  29.  
  30. ************** MEMOIRE ****************
  31.  
  32. * Impression a l'ecran de l'occupation memoire ESOPE
  33.  
  34. * Recuperation du nombre de segments actifs et taille correspondante
  35. A B = TEMP 'SGAC';
  36.  
  37. * Impression a l'ecran du nombre de segments laisses actifs apres les
  38. * passages dans les operateurs
  39. TEMP 'SGAC' 'IMPR';
  40.  
  41.  
  42. ************** TEMPS PASSE : RECUPERATION ****************
  43.  
  44. * Recuperation du temps passe dans un ENTier
  45. tcpu = TEMP 'ENTI' 'CPU';
  46. tclk = TEMP 'ENTI' 'HORLOGE';
  47. mess 'MESSAGE PERSO: temps HORLOGE =' tclk ' / temps CPU =' tcpu ;
  48.  
  49. * Recuperation dans une table de ces valeurs
  50. TAB1 = TEMP 'NOEC' ;
  51.  
  52. * Listage de tous les indices de la table devant exister
  53. LIST TAB1;
  54. LIST TAB1.'TEMPS_HORLOGE';
  55. LIST TAB1.'TEMPS_CPU' ;
  56. LIST TAB1.'APPELS' ;
  57. LIST TAB1.'EFFICACITE' ;
  58.  
  59. * Listage du nombre d'appels a OPTI (2 sur le MAITRE ==> ASSISTANT 0)
  60. LIST TAB1.'APPELS'.'OPTI';
  61.  
  62. * Verification pour ERREUR dans Cast3M
  63. OPTI ECHO 0;
  64. ENTI1 = EXTR TAB1.'APPELS'.'OPTI' 1;
  65. SI (NEG ENTI1 2);
  66. MESS 'Disfonctionnement dans l"operateur TEMP';
  67. MESS 'Valeur attendue :' 2 ' Valeur extraite :' ENTI1;
  68. ERRE 5;
  69. FINS;
  70. OPTI ECHO 1;
  71.  
  72.  
  73. ************** TEMPS PASSE : RAZ + RECUPERATION ****************
  74.  
  75. * Remise a zero du temps
  76. TAB1 = TEMP 'NOEC' ;
  77.  
  78. * Listage du nombre d'appels a TEMP (1 sur le MAITRE ==> ASSISTANT 0)
  79. LIST TAB1.'APPELS'.'TEMP';
  80.  
  81. * Verification pour ERREUR dans Cast3M
  82. OPTI ECHO 0;
  83. ENTI2 = EXTR TAB1.'APPELS'.'TEMP' 1;
  84. SI (NEG ENTI2 1);
  85. MESS 'Disfonctionnement dans l"operateur TEMP ZERO';
  86. MESS 'Valeur attendue :' 1 ' Valeur extraite :' ENTI2;
  87. ERRE 5;
  88. FINS;
  89. OPTI ECHO 1;
  90.  
  91. * Fin du cas-test
  92. FIN;
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  

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