[OCaml] Pattern

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

Si quelqu'un pouvait m'aider ;-)

Code:

---

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:

---

Failure: range pattern allowed only for characters

---

Merci d'avance

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:

---

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>

---

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

voici la solution :

Code:

---

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]

J'y étais presque! :lol: