Télécharger la plaquette Cast3M


fr en

Télécharger remp_motifs.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : remp_motifs.dgibi
  2.  
  3. CHA1_I = 'Hello QUI' ;
  4. CHA1_O = REMP CHA1_I 'QUI' 'World' ;
  5. MESS CHA1_O ;
  6.  
  7. SI ((((POSI 'World' 'DANS' CHA1_O)) EGA 0) OU ((DIME CHA1_O) NEG 11)) ;
  8.     ERRE 5 ;
  9. FINS ;
  10.  
  11. ************************************************************************
  12.  
  13. CHA2_I = 'Voici la liste de quelques operateurs de %NOM : %1, %2, %3, %4, %5' ;
  14. CHA2_O = REMP CHA2_I (MOTS '%NOM' '%1'   '%2'   '%3'   '%4'   '%5'  )
  15.                      (MOTS 'GIBI' 'EXTR' 'RESO' 'MANU' 'DROI' 'SOMM') ;
  16. MESS CHA2_O ;
  17.  
  18. SI ((((POSI 'SOMM' 'DANS' CHA2_O)) EGA 0) OU ((DIME CHA2_O) NEG 76)) ;
  19.     ERRE 5 ;
  20. FINS ;
  21.  
  22. ************************************************************************
  23.  
  24. CHA3_I = 'Titre des $NOM_AXE : $V ($U)' ;
  25. TAB3 = TABL ;
  26. TAB3.'$NOM_AXE' = 'abscisses' ;
  27. TAB3.'$V' = 'Vitesse' ;
  28. TAB3.'$U' = 'm/s' ;
  29. CHA3_O = REMP CHA3_I TAB3 ;
  30. MESS CHA3_O ;
  31.  
  32. SI ((((POSI 'm/s' 'DANS' CHA3_O)) EGA 0) OU ((DIME CHA3_O) NEG 35)) ;
  33.     ERRE 5 ;
  34. FINS ;
  35.  
  36. ************************************************************************
  37.  
  38. CHA4_I = 'uuuuuuuuuuuuuuuuuuuuuuuu' ;
  39. CHA4_O = REMP CHA4_I 'u' '*' ;
  40. MESS CHA4_O ;
  41.  
  42. SI ((((POSI '*' 'DANS' CHA4_O)) EGA 0) OU ((DIME CHA4_O) NEG (DIME CHA4_I))) ;
  43.     ERRE 5 ;
  44. FINS ;
  45.  
  46. ************************************************************************
  47.  
  48. CHA5_I = 'Ce remplacement n est pas * recursif' ;
  49. CHA5_O = REMP CHA5_I '*' 'du tout *' ;
  50. MESS CHA5_O ;
  51.  
  52. SI ((((POSI 'tout' 'DANS' CHA5_O)) EGA 0) OU ((DIME CHA5_O) NEG 44)) ;
  53.     ERRE 5 ;
  54. FINS ;
  55.  
  56. ************************************************************************
  57.  
  58. * CET EXEMPLE DECLENCHE UNE ERREUR 1111
  59. * (CHAINE TROP LONGUE APRES REMPLACEMENTS)
  60. * CHA6_I = 'oooooooooooooooooooooooooooooooooooooooooooooooooooo' ;
  61. * CHA6_O = REMP CHA6_I 'o' 'ooooooooooooooooooooooooooooooooooooooooooo' ;
  62. * MESS CHA6_O ;
  63.  
  64. FIN ;
  65.  
  66.  
  67.  
  68.  
  69.  

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