Commit 6320cec9 authored by bguillaum's avatar bguillaum

Fix parsing and printing of constituent

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@9091 7838e531-6607-4d57-9587-6c381814729c
parent b95b2db7
......@@ -546,7 +546,7 @@ module Id = struct
let gbuild ?(loc:Loc.t option) key (table,conv) =
try Array_.dicho_find key table
with Not_found -> Error.build ?loc "Identifier '%s' not found" (conv key)
with Not_found -> Error.build ?loc "[Id.gbuild] Identifier '%s' not found" (conv key)
let gbuild_opt key (table, _) =
try Some (Array_.dicho_find key table)
......@@ -556,7 +556,7 @@ module Id = struct
type table = string array
let build ?(loc:Loc.t option) key table =
try Array_.dicho_find key table
with Not_found -> Error.build ?loc "Identifier '%s' not found" key
with Not_found -> Error.build ?loc "[Id.build] Identifier '%s' not found" key
let build_opt key table =
try Some (Array_.dicho_find key table)
......
......@@ -241,6 +241,5 @@ and const = parse
| '\n' { incr Global.current_line; const lexbuf}
| '(' { printf ">>>LPAREN<<<\n%!"; LPAREN }
| ')' { printf ">>>RPAREN<<<\n%!"; RPAREN }
| "SENT" { printf ">>>SENT<<<\n%!"; SENT }
| [^'(' ')' ' ']+ as id { printf "ID=>>>%s<<<\n%!" id; ID id }
......@@ -163,7 +163,7 @@ module Label_domain = struct
| Solid when deco -> ["style=dotted"]
| Solid -> []) in
match style.text with
| "_" -> sprintf "[%s]" (String.concat ", " dot_items)
| "_" -> sprintf "[arrowhead=none, %s]" (String.concat ", " dot_items)
| _ -> sprintf "[label=\"%s\", %s]" style.text (String.concat ", " dot_items)
end
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment