add translator & XML2modelica
[scilab.git] / scilab / modules / scicos / src / xml2modelica / stringParser.ml
1 type token =
2   | STRING of (string)
3   | EOF
4
5 open Parsing;;
6 # 23 "stringParser.mly"
7 \r
8 \r
9 # 10 "stringParser.ml"
10 let yytransl_const = [|
11     0 (* EOF *);
12     0|]
13
14 let yytransl_block = [|
15   257 (* STRING *);
16     0|]
17
18 let yylhs = "\255\255\
19 \001\000\001\000\001\000\000\000"
20
21 let yylen = "\002\000\
22 \000\000\001\000\002\000\002\000"
23
24 let yydefred = "\000\000\
25 \000\000\000\000\002\000\000\000\003\000"
26
27 let yydgoto = "\002\000\
28 \004\000"
29
30 let yysindex = "\255\255\
31 \000\255\000\000\000\000\001\255\000\000"
32
33 let yyrindex = "\000\000\
34 \003\000\000\000\000\000\004\000\000\000"
35
36 let yygindex = "\000\000\
37 \000\000"
38
39 let yytablesize = 4
40 let yytable = "\001\000\
41 \003\000\005\000\001\000\004\000"
42
43 let yycheck = "\001\000\
44 \001\001\001\001\000\000\000\000"
45
46 let yynames_const = "\
47   EOF\000\
48   "
49
50 let yynames_block = "\
51   STRING\000\
52   "
53
54 let yyact = [|
55   (fun _ -> failwith "parser")
56 ; (fun __caml_parser_env ->
57     Obj.repr(
58 # 38 "stringParser.mly"
59                             ( "" )
60 # 61 "stringParser.ml"
61                : string))
62 ; (fun __caml_parser_env ->
63     let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
64     Obj.repr(
65 # 39 "stringParser.mly"
66                             ( _1 )
67 # 68 "stringParser.ml"
68                : string))
69 ; (fun __caml_parser_env ->
70     let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
71     let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
72     Obj.repr(
73 # 40 "stringParser.mly"
74                             ( _1 ^ _2 )
75 # 76 "stringParser.ml"
76                : string))
77 (* Entry parse_string *)
78 ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
79 |]
80 let yytables =
81   { Parsing.actions=yyact;
82     Parsing.transl_const=yytransl_const;
83     Parsing.transl_block=yytransl_block;
84     Parsing.lhs=yylhs;
85     Parsing.len=yylen;
86     Parsing.defred=yydefred;
87     Parsing.dgoto=yydgoto;
88     Parsing.sindex=yysindex;
89     Parsing.rindex=yyrindex;
90     Parsing.gindex=yygindex;
91     Parsing.tablesize=yytablesize;
92     Parsing.table=yytable;
93     Parsing.check=yycheck;
94     Parsing.error_function=parse_error;
95     Parsing.names_const=yynames_const;
96     Parsing.names_block=yynames_block }
97 let parse_string (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =
98    (Parsing.yyparse yytables 1 lexfun lexbuf : string)
99 ;;
100 # 43 "stringParser.mly"
101 \r
102 \r
103 let parse token_fun lexbuf =\r
104   try\r
105     parse_string token_fun lexbuf\r
106   with\r
107     | _ -> assert false\r
108 # 109 "stringParser.ml"