scilab/modules/scicos/src/xml2modelica/stringLexer.ml

   1 # 23 "stringLexer.mll"
   2  \r
   3 \r
   4 open StringParser\r
   5 \r
   6 exception Illegal_character of char * int * int\r
   7 \r
   8
   9 # 10 "stringLexer.ml"
  10 let __ocaml_lex_tables = {
  11   Lexing.lex_base =
  12    "\000\000\249\255\001\000\000\000\000\000\000\000\000\000\002\000\
  13     \000\000\255\255\001\000\254\255\000\000\002\000\002\000\253\255\
  14     \000\000\003\000\252\255\008\000\004\000\004\000\251\255";
  15   Lexing.lex_backtrk =
  16    "\005\000\255\255\005\000\007\000\255\255\255\255\255\255\255\255\
  17     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  18     \255\255\255\255\255\255\255\255\255\255\255\255\255\255";
  19   Lexing.lex_default =
  20    "\002\000\000\000\002\000\255\255\255\255\255\255\255\255\255\255\
  21     \255\255\000\000\255\255\000\000\255\255\255\255\255\255\000\000\
  22     \255\255\255\255\000\000\255\255\255\255\255\255\000\000";
  23   Lexing.lex_trans =
  24    "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  25     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  26     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  27     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  28     \000\000\000\000\000\000\000\000\000\000\000\000\003\000\255\255\
  29     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  30     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  31     \000\000\000\000\000\000\009\000\011\000\015\000\018\000\022\000\
  32     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  33     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  34     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  35     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  36     \000\000\005\000\000\000\000\000\000\000\000\000\000\000\006\000\
  37     \000\000\000\000\000\000\000\000\007\000\013\000\000\000\016\000\
  38     \012\000\004\000\014\000\017\000\010\000\019\000\008\000\020\000\
  39     \021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  40     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  41     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  42     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  43     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  44     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  45     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  46     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  47     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  48     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  49     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  50     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  51     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  52     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  53     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  54     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  55     \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
  56     \001\000\255\255\000\000\000\000\000\000\000\000\000\000\000\000\
  57     \000\000";
  58   Lexing.lex_check =
  59    "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  60     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  61     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  62     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  63     \255\255\255\255\255\255\255\255\255\255\255\255\000\000\002\000\
  64     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  65     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  66     \255\255\255\255\255\255\008\000\010\000\014\000\017\000\021\000\
  67     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  68     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  69     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  70     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  71     \255\255\003\000\255\255\255\255\255\255\255\255\255\255\003\000\
  72     \255\255\255\255\255\255\255\255\003\000\005\000\255\255\012\000\
  73     \005\000\003\000\013\000\016\000\006\000\004\000\007\000\019\000\
  74     \020\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  75     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  76     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  77     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  78     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  79     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  80     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  81     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  82     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  83     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  84     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  85     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  86     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  87     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  88     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  89     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  90     \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
  91     \000\000\002\000\255\255\255\255\255\255\255\255\255\255\255\255\
  92     \255\255";
  93   Lexing.lex_base_code =
  94    "";
  95   Lexing.lex_backtrk_code =
  96    "";
  97   Lexing.lex_default_code =
  98    "";
  99   Lexing.lex_trans_code =
 100    "";
 101   Lexing.lex_check_code =
 102    "";
 103   Lexing.lex_code =
 104    "";
 105 }
 106
 107 let rec token lexbuf =
 108     __ocaml_lex_token_rec lexbuf 0
 109 and __ocaml_lex_token_rec lexbuf __ocaml_lex_state =
 110   match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
 111       | 0 ->
 112 # 32 "stringLexer.mll"
 113             ( let _ = Lexing.lexeme lexbuf in STRING "<" )
 114 # 115 "stringLexer.ml"
 115
 116   | 1 ->
 117 # 33 "stringLexer.mll"
 118             ( let _ = Lexing.lexeme lexbuf in STRING ">" )
 119 # 120 "stringLexer.ml"
 120
 121   | 2 ->
 122 # 34 "stringLexer.mll"
 123              ( let _ = Lexing.lexeme lexbuf in STRING "&" )
 124 # 125 "stringLexer.ml"
 125
 126   | 3 ->
 127 # 35 "stringLexer.mll"
 128               ( let _ = Lexing.lexeme lexbuf in STRING "'" )
 129 # 130 "stringLexer.ml"
 130
 131   | 4 ->
 132 # 36 "stringLexer.mll"
 133               ( let _ = Lexing.lexeme lexbuf in STRING "\"" )
 134 # 135 "stringLexer.ml"
 135
 136   | 5 ->
 137 # 37 "stringLexer.mll"
 138              ( let lxm = Lexing.lexeme lexbuf in STRING lxm )
 139 # 140 "stringLexer.ml"
 140
 141   | 6 ->
 142 # 38 "stringLexer.mll"
 143          ( EOF )
 144 # 145 "stringLexer.ml"
 145
 146   | 7 ->
 147 # 39 "stringLexer.mll"
 148        ( raise (\r
 149            Illegal_character (\r
 150              (Lexing.lexeme lexbuf).[0],\r
 151               Lexing.lexeme_start lexbuf,\r
 152               Lexing.lexeme_end lexbuf)) )
 153 # 154 "stringLexer.ml"
 154
 155   | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_token_rec lexbuf __ocaml_lex_state
 156
 157 ;;
 158