Discussion :

[nicolaskarp]

Je n'arrive pas a voir mon erreur sur cet exemple..

Si quelqu'un pouvait m'aider ;-)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
let rec lire_mot flux string = 
	match flux with parser 
		| [< ' 'a'..'z' | 'A'..'Z' as c  >] -> string^Char.escaped c ^ lire_mot flux "";
		| [<>] -> string
;;

Voila l'erreur qu'il me met -->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Failure: range pattern allowed only for characters

Merci d'avance

[pcaboche]

Pfiou... Ca fait longtemps que j'ai pas fait de parser en Caml ! (soit indulgent si c'est pas la bonne réponse)

Voilà ce à quoi je suis arrivé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
# let rec lire_mot string =
     parser
        [< ' ('a'..'z' | 'A'..'Z') as c ; e = lire_mot "" >] -> string ^ (Char.escaped c) ^ e;
      | [<>] -> ""
;;
val lire_mot : string -> char Stream.t -> string = <fun>

[nicolaskarp]

en fait j'ai touvé mais merci quand même

voici la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
let rec lire_mot flux string = 
   match flux with parser 
      | [< ' ('a'..'z' | 'A'..'Z' as c) >] -> string^Char.escaped c ^ lire_mot flux ""; 
      | [<>] -> string 
;;

A++

Nicolas.[/code]

[pcaboche]

J'y étais presque!