Replace Dy by %Dy and move input arguments checking.
[scilab.git] / scilab / modules / scicos / src / xml2modelica / linenum.ml
index bdd1e65..4cb385d 100644 (file)
-# 23 "linenum.mll"\r
\r
-\r
-let linenum = ref 0\r
-let linebeg = ref 0\r
-\r
-\r
-# 9 "linenum.ml"\r
-let __ocaml_lex_tables = {\r
-  Lexing.lex_base = \r
-   "\000\000\254\255\001\000\255\255";\r
-  Lexing.lex_backtrk = \r
-   "\255\255\255\255\000\000\255\255";\r
-  Lexing.lex_default = \r
-   "\000\000\000\000\255\255\000\000";\r
-  Lexing.lex_trans = \r
-   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\003\000\003\000\000\000\002\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\r
-    \001\000\000\000";\r
-  Lexing.lex_check = \r
-   "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\000\000\002\000\255\255\000\000\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\\r
-    \000\000\255\255";\r
-  Lexing.lex_base_code = \r
-   "";\r
-  Lexing.lex_backtrk_code = \r
-   "";\r
-  Lexing.lex_default_code = \r
-   "";\r
-  Lexing.lex_trans_code = \r
-   "";\r
-  Lexing.lex_check_code = \r
-   "";\r
-  Lexing.lex_code = \r
-   "";\r
-}\r
-\r
-let rec skip_line lexbuf =\r
-    __ocaml_lex_skip_line_rec lexbuf 0\r
-and __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state =\r
-  match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with\r
-      | 0 ->\r
-# 32 "linenum.mll"\r
-      ( incr linenum;\r
-        linebeg := Lexing.lexeme_start lexbuf;\r
-        Lexing.lexeme_end lexbuf )\r
-# 108 "linenum.ml"\r
-\r
-  | 1 ->\r
-# 36 "linenum.mll"\r
-      ( incr linenum;\r
-        linebeg := Lexing.lexeme_start lexbuf;\r
-        raise End_of_file )\r
-# 115 "linenum.ml"\r
-\r
-  | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state\r
-\r
-;;\r
-\r
-# 40 "linenum.mll"\r
\r
-\r
-let for_position file loc =\r
-  let ic = open_in_bin file in\r
-  let lb = Lexing.from_channel ic in\r
-  linenum := 1;\r
-  linebeg := 0;\r
-  begin try\r
-    while skip_line lb <= loc do () done\r
-  with End_of_file -> ()\r
-  end;\r
-  close_in ic;\r
-  (!linenum - 1, !linebeg)\r
-\r
-\r
-# 137 "linenum.ml"\r
+# 23 "linenum.mll"
+
+let linenum = ref 0
+let linebeg = ref 0
+
+
+# 9 "linenum.ml"
+let __ocaml_lex_tables = {
+  Lexing.lex_base = 
+   "\000\000\254\255\001\000\255\255";
+  Lexing.lex_backtrk = 
+   "\255\255\255\255\000\000\255\255";
+  Lexing.lex_default = 
+   "\000\000\000\000\255\255\000\000";
+  Lexing.lex_trans = 
+   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\003\000\003\000\000\000\002\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+    \001\000\000\000";
+  Lexing.lex_check = 
+   "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\000\000\002\000\255\255\000\000\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+    \000\000\255\255";
+  Lexing.lex_base_code = 
+   "";
+  Lexing.lex_backtrk_code = 
+   "";
+  Lexing.lex_default_code = 
+   "";
+  Lexing.lex_trans_code = 
+   "";
+  Lexing.lex_check_code = 
+   "";
+  Lexing.lex_code = 
+   "";
+}
+
+let rec skip_line lexbuf =
+    __ocaml_lex_skip_line_rec lexbuf 0
+and __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state =
+  match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
+      | 0 ->
+# 32 "linenum.mll"
+      ( incr linenum;
+        linebeg := Lexing.lexeme_start lexbuf;
+        Lexing.lexeme_end lexbuf )
+# 108 "linenum.ml"
+
+  | 1 ->
+# 36 "linenum.mll"
+      ( incr linenum;
+        linebeg := Lexing.lexeme_start lexbuf;
+        raise End_of_file )
+# 115 "linenum.ml"
+
+  | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state
+
+;;
+
+# 40 "linenum.mll"
+
+let for_position file loc =
+  let ic = open_in_bin file in
+  let lb = Lexing.from_channel ic in
+  linenum := 1;
+  linebeg := 0;
+  begin try
+    while skip_line lb <= loc do () done
+  with End_of_file -> ()
+  end;
+  close_in ic;
+  (!linenum - 1, !linebeg)
+
+
+# 137 "linenum.ml"