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"