Compilation: enable full parallel build
[scilab.git] / scilab / modules / scicos / src / xml2modelica / linenum.mll
1 (*
2  *  Translator from Modelica 2.x to flat Modelica
3  *
4  *  Copyright (C) 2005 - 2007 Imagine S.A.
5  *  For more information or commercial use please contact us at www.amesim.com
6  *
7  *  This program is free software; you can redistribute it and/or
8  *  modify it under the terms of the GNU General Public License
9  *  as published by the Free Software Foundation; either version 2
10  *  of the License, or (at your option) any later version.
11  *
12  *  This program is distributed in the hope that it will be useful,
13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  *  GNU General Public License for more details.
16  *
17  *  You should have received a copy of the GNU General Public License
18  *  along with this program; if not, write to the Free Software
19  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
20  *
21  *)
22
23 {
24
25 (** Convert {! Parser.location } to line and column numbers. *)
26
27 let linenum = ref 0
28 let linebeg = ref 0
29
30 }
31
32 rule skip_line = parse
33   | [^ '\n' '\r']* ('\n' | '\r' | "\r\n")
34       { incr linenum;
35         linebeg := Lexing.lexeme_start lexbuf;
36         Lexing.lexeme_end lexbuf }
37   | [^ '\n' '\r']* eof
38       { incr linenum;
39         linebeg := Lexing.lexeme_start lexbuf;
40         raise End_of_file }
41
42 {
43
44 let for_position file loc =
45   let ic = open_in_bin file in
46   let lb = Lexing.from_channel ic in
47   linenum := 1;
48   linebeg := 0;
49   begin try
50     while skip_line lb <= loc do () done
51   with End_of_file -> ()
52   end;
53   close_in ic;
54   (!linenum - 1, !linebeg)
55
56 }