Télécharger remp_motifs.dgibi

Retour à la liste

Numérotation des lignes :

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

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