- try
- while true do
- try
- let s = bscanf iscan " %s " (fun s -> s) in
- if s = "" then raise End_of_file;
- if s <> "\\" then includes =::s
- with
- Scan_failure _ -> ()
- done; []
- with
- End_of_file -> close_in ichan; !includes
+ begin
+ bscanf iscan " %s@: " ignore;
+ bscanf iscan " %s " ignore;
+ try
+ while true do
+ try
+ let s = bscanf iscan " %s " (fun s -> s) in
+ if s = "" then raise End_of_file;
+ if s <> "\\" then includes =::s
+ with
+ Scan_failure _ -> ()
+ done
+ with
+ End_of_file -> close_in ichan
+ end;
+ !includes