Télécharger la plaquette Cast3M


fr en

Télécharger legende.procedur

Retour à la liste

Numérotation des lignes : 

  1. * LEGENDE   PROCEDUR  SP204843  22/12/19    21:15:05     11530          
  2. debproc legende ;
  3.  
  4. * Quelle syntaxe ?
  5. inuag1   = faux ;
  6. ievol1   = faux ;
  7. argu nua1/nuage ;
  8. si (exis nua1) ;
  9.   inuag1   = vrai ;
  10. sino ;
  11.   argu ev1*evolution ;
  12.   ievol1   = vrai ;
  13. fins ;  
  14.  
  15. * Table de sortie :
  16. ttitr1   = table ;
  17. tableg1  = table ;
  18. tableg1 . titre = ttitr1 ;
  19.  
  20. *-------------------------------- NUAGE -------------------------------*
  21.  
  22. si inuag1 ;
  23.  
  24. ifmt1    = faux ;
  25. argu mot1*mot mot2/mot ;
  26. si (exis mot2) ;
  27.   si (ega mot2 'FORMAT') ;
  28.     ifmt1    = vrai ;
  29.     argu mot3*mot ;
  30.   fins ;
  31. fins ;
  32.  
  33. * Liste de valeurs de la composante mot1
  34. lval1    = extr nua1 mot1 ;
  35.  
  36. typ1     = type lval1 ;
  37. Si (neg typ1 listreel) ;
  38.   si (ega typ1 'FLOTTANT') ;
  39.     si ifmt1 ;
  40.       ttitr1 . 1 = chai mot1 ' =' 'FORMAT' mot3 lval1 ;
  41.     sino ;
  42.       ttitr1 . 1 = chai mot1 ' =' lval1 ;
  43.     fins ;
  44.     quit legende ;
  45.   fins ;
  46.   si (ega typ1 'ENTIER') ;
  47.     si ifmt1 ;
  48.       ttitr1 . 1 = chai mot1 ' =' 'FORMAT' mot3 lval1 ;
  49.     sino ;
  50.       ttitr1 . 1 = chai mot1 ' =' lval1 ;
  51.     fins ;
  52.     quit legende ;
  53.   fins ;
  54.   mess ' **** ERREUR ***** dans la procedure LEGENDE :' ;
  55.   mess (chai ' La composante' ' ' mot1 ' du NUAGE ne contient pas de FLOTTANT ou d''' 'ENTIER') ;
  56.   quit legende ;
  57. fins ;
  58.  
  59. * Table des titres :
  60. repe bval1 (dime lval1) ;
  61.   vali1    = extr lval1 &bval1 ;
  62.   si ifmt1 ;
  63.     ttitr1 . &bval1 = chai mot1 ' =' 'FORMAT' mot3 vali1 ;
  64.   sino ;
  65.     ttitr1 . &bval1 = chai mot1 ' =' vali1 ;
  66.   fins ;
  67. fin bval1 ;
  68.  
  69. * finsi nuage :
  70. fins ;
  71.  
  72. *------------------------------ EVOLUTION -----------------------------*
  73.  
  74. si ievol1 ;
  75.  
  76. repe bcourb1 (dime ev1) ;
  77.   i1       = &bcourb1 ;
  78.   ttitr1 . i1 = extr ev1 legy i1 ;
  79. fin bcourb1 ;
  80.  
  81. * finsi evolution :
  82. fins ;
  83.  
  84. *-------- ERREUR 5 si aucun cas prevu : ne doit jamais arriver --------*
  85.  
  86. si (non (inuag1 ou ievol1)) ;
  87.   erre 5 ;
  88. fins ;
  89.  
  90. finproc tableg1 ;
  91.  
  92.  
  93.  

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