Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-28 01:53:48 +08:00
Code Issues Actions 31 Packages Projects Releases Wiki Activity

add printing function

Browse Source
This commit is contained in:
Gautier Hattenberger
2009-03-11 16:46:42 +00:00
parent fd02b48d04
commit ced7ddda1c
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/xml2h.ml
+5
View File
@@ -67,6 +67,11 @@ let start_and_begin_c = fun xml_file name ->
nl (); nl ();
xml xml
let begin_c_out = fun xml_file name out ->
fprintf out "/* This file has been generated from %s */\n" xml_file;
fprintf out "/* Please DO NOT EDIT */\n\n";
fprintf out "#include \"%s.h\"\n\n" name
let finish = fun h_name -> let finish = fun h_name ->
printf "\n#endif // %s\n" h_name printf "\n#endif // %s\n" h_name
sw/lib/ocaml/xml2h.mli
+1
View File
@@ -32,5 +32,6 @@ val xml_error : string -> 'a
val sprint_float_array : string list -> string val sprint_float_array : string list -> string
val start_and_begin : string -> string -> Xml.xml val start_and_begin : string -> string -> Xml.xml
val start_and_begin_c : string -> string -> Xml.xml val start_and_begin_c : string -> string -> Xml.xml
val begin_c_out : string -> string -> out_channel -> unit
val finish : string -> unit val finish : string -> unit
val warning : string -> unit val warning : string -> unit