Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Suppression de la ligne blanche au debut de chaque caml_example 

git-svn-id: http://caml.inria.fr/svn/ocamldoc/trunk@9882 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-04-27 12:16:33 +00:00
parent 91cfd6aeb4
commit a159cbbb91
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
manual/tools/caml-tex2.ml
View File

@ -76,7 +76,6 @@ let process_file file =
open_out_gen ~mode:[Open_wronly; Open_creat; Open_append; Open_text]
~perm:0x666 !outfile
with _ -> failwith "Cannot open output file" in
let first = ref true in
try while true do
let input = ref (input_line ic) in
if string_match ~pat:~!"\\\\begin{caml_example\\(\\*?\\)}[ \t]*$"
@ -84,6 +83,7 @@ let process_file file =
then begin
let omit_answer = matched_group 1 !input = "*" in
output_string oc camlbegin;
let first = ref true in
let read_phrase () =
let phrase = Buffer.create 256 in
while
@ -91,7 +91,7 @@ let process_file file =
if string_match ~pat:~!"\\\\end{caml_example\\*?}[ \t]*$"
input ~pos:0
then raise End_of_file;
Buffer.add_char phrase '\n';
if Buffer.length phrase > 0 then Buffer.add_char phrase '\n';
Buffer.add_string phrase input;
not (string_match ~pat:~!".*;;[ \t]*$" input ~pos:0)
do
@ -121,7 +121,7 @@ let process_file file =
escape_backslash phrase in
let phrase = global_replace ~pat:~!"^\(.\)" ~templ:camlin phrase
and output = global_replace ~pat:~!"^\(.\)" ~templ:camlout output in
if not !first then output_string oc "\\;";
if not !first then output_string oc "\\;\n";
fprintf oc "%s\n" phrase;
if not omit_answer then fprintf oc "%s" output;
flush oc;