lexer_test.js

// Generated CODE, PLEASE EDIT WITH CARE
'use strict';

var Caml_builtin_exceptions = require("../runtime/caml_builtin_exceptions");
var Arith_syntax            = require("./arith_syntax");
var Mt                      = require("./mt");
var Lexing                  = require("../stdlib/lexing");
var Number_lexer            = require("./number_lexer");
var Arith_lexer             = require("./arith_lexer");
var Caml_curry              = require("../runtime/caml_curry");
var List                    = require("../stdlib/list");
var Arith_parser            = require("./arith_parser");

function get_tokens(lex, str) {
  var buf = Lexing.from_string(str);
  var _acc = /* [] */0;
  while(true) {
    var acc = _acc;
    var v = Caml_curry.app1(lex, buf);
    if (v === /* EOF */7) {
      return List.rev(acc);
    }
    else {
      _acc = /* :: */[
        v,
        acc
      ];
      continue ;
      
    }
  };
}

function f(param) {
  return get_tokens(Arith_lexer.lexeme, param);
}

function from_tokens(lst) {
  var l = [lst];
  var aux = function () {
    var match = l[0];
    if (match) {
      l[0] = match[1];
      return match[0];
    }
    else {
      throw Caml_builtin_exceptions.end_of_file;
    }
  };
  return aux;
}

var lexer_suites_000 = /* tuple */[
  "arith_token",
  function () {
    return /* Eq */{
            0: f("x + 3 + 4 + y"),
            1: /* :: */[
              /* IDENT */{
                0: "x",
                length: 1,
                tag: 1
              },
              /* :: */[
                /* PLUS */0,
                /* :: */[
                  /* NUMERAL */{
                    0: 3,
                    length: 1,
                    tag: 0
                  },
                  /* :: */[
                    /* PLUS */0,
                    /* :: */[
                      /* NUMERAL */{
                        0: 4,
                        length: 1,
                        tag: 0
                      },
                      /* :: */[
                        /* PLUS */0,
                        /* :: */[
                          /* IDENT */{
                            0: "y",
                            length: 1,
                            tag: 1
                          },
                          /* [] */0
                        ]
                      ]
                    ]
                  ]
                ]
              ]
            ],
            length: 2,
            tag: 0
          };
  }
];

var lexer_suites_001 = /* :: */[
  /* tuple */[
    "simple token",
    function () {
      return /* Eq */{
              0: Arith_lexer.lexeme(Lexing.from_string("10")),
              1: /* NUMERAL */{
                0: 10,
                length: 1,
                tag: 0
              },
              length: 2,
              tag: 0
            };
    }
  ],
  /* :: */[
    /* tuple */[
      "number_lexer",
      function () {
        var v = [/* [] */0];
        var add = function (t) {
          v[0] = /* :: */[
            t,
            v[0]
          ];
          return /* () */0;
        };
        Number_lexer.token(add, Lexing.from_string("32 + 32 ( ) * / "));
        return /* Eq */{
                0: List.rev(v[0]),
                1: /* :: */[
                  "number",
                  /* :: */[
                    "32",
                    /* :: */[
                      "new line",
                      /* :: */[
                        "+",
                        /* :: */[
                          "new line",
                          /* :: */[
                            "number",
                            /* :: */[
                              "32",
                              /* :: */[
                                "new line",
                                /* :: */[
                                  "(",
                                  /* :: */[
                                    "new line",
                                    /* :: */[
                                      ")",
                                      /* :: */[
                                        "new line",
                                        /* :: */[
                                          "*",
                                          /* :: */[
                                            "new line",
                                            /* :: */[
                                              "/",
                                              /* :: */[
                                                "new line",
                                                /* :: */[
                                                  "eof",
                                                  /* [] */0
                                                ]
                                              ]
                                            ]
                                          ]
                                        ]
                                      ]
                                    ]
                                  ]
                                ]
                              ]
                            ]
                          ]
                        ]
                      ]
                    ]
                  ]
                ],
                length: 2,
                tag: 0
              };
      }
    ],
    /* :: */[
      /* tuple */[
        "simple number",
        function () {
          return /* Eq */{
                  0: Arith_syntax.str(Arith_parser.toplevel(Arith_lexer.lexeme, Lexing.from_string("10"))),
                  1: "10.",
                  length: 2,
                  tag: 0
                };
        }
      ],
      /* :: */[
        /* tuple */[
          "arith",
          function () {
            return /* Eq */{
                    0: Arith_syntax.str(Arith_parser.toplevel(Arith_lexer.lexeme, Lexing.from_string("x + 3 + 4 + y"))),
                    1: "x+3.+4.+y",
                    length: 2,
                    tag: 0
                  };
          }
        ],
        /* [] */0
      ]
    ]
  ]
];

var lexer_suites = /* :: */[
  lexer_suites_000,
  lexer_suites_001
];

Mt.from_pair_suites("lexer_test.ml", lexer_suites);

exports.get_tokens   = get_tokens;
exports.f            = f;
exports.from_tokens  = from_tokens;
exports.lexer_suites = lexer_suites;
/*  Not a pure module */