Module Genlex syntax error

Bonjour à tous,
Je suis actuellement sur un projet qui nécessite l'utilisation des graphes et de ce fait je dois coder un outil permettant de créer un graphe.
J'utilise un fichier.dat pour la création et pour analyser ce fichier, j'utilise le module Genlex d'analyse lexicale.
J'ai suivis un tutoriel etc et quand je compile j'ai une erreur de syntaxe que je n'arrive pas à corriger.
Voici les quelques bouts de codes avec l'interpréteur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

# let keywords = [ "TAILLE"; "SOMMET"; "ARC"; "#"];; val keywords : string list = ["TAILLE"; "SOMMET"; "ARC"; "#"] # let lexer_line l = Genlex.make_lexer keywords (Stream.of_string l);; val lexer_line : string -> Genlex.token Stream.t = <fun> # let parser_line g s = match s with parser [< '(Genlex.Kwd "TAILLE"); '(Genlex.Int n) >] -> g := cree_graphe "" n | [< '(Genlex.Kwd "SOMMET"); '(Genlex.Ident nom) >] -> ajoute_sommet nom !g | [< '(Genlex.Kwd "ARC"); '(Genlex.Ident n1); '(Genlex.Ident n2); '(Genlex.Float c) >] -> ajoute_arc n1 n2 c !g | [< '(Genlex.Kwd "#") >] -> () | [<>] -> ();; Characters 46-48: [< '(Genlex.Kwd "TAILLE"); '(Genlex.Int n) >] -> ^^ Error: Syntax error

---

J'ai essayé de chercher un peu dans la doc que j'ai trouvé sur Genlex mais apparemment ce n'est pas une erreur de syntaxe lié à la libraire.

Si quelqu'un a une solution, un indice ou quoi que ce soit, je suis prenneur :)

Citation:

---

Envoyé par Yyukk

[CODE]# let parser_line g s = match s with parser
[< '(Genlex.Kwd "TAILLE"); '(Genlex.Int n) >] ->
g := cree_graphe "" n

---

C'est quoi parser ?

D'habitude quand j'utilise un match with, c'est "match bidule with truc -> " et pas "match bidule with truc machin ->".
Ensuite je suis pas un pro de CAML, donc si c'est une utilisation que je ne connais pas, désolé pour le faux espoir :p

La syntaxe "match .. with parser" et des flots ( "[< ... >]" ) était incluse par défaut dans Caml Light, mais dans Objective Caml c'est un préprocesseur externe (camlp4) qui s'en charge.

Dans le toplevel il faut faire:

#load "camlp4o.cma";;

ou alors, si tu as findlib :

#use "topfind";;
#camlp4o;;

Pour compiler, ajouter l'option "-pp camlp4o"

Merci pour l'information, je vais essayer de voir ça.

@ManusDei: J'ai toujours utiliser match x with (sans rien derrière), donc ça m'a surpris un peu aussi je savais pas qu'on pouvait le faire, je ne peux donc pas te donner la réponse je m'y connais trop peu pour m'y aventurer