File: 01_basic_s.re

package info (click to toggle)
re2c 4.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 51,512 kB
  • sloc: cpp: 34,160; ml: 8,494; sh: 5,311; makefile: 1,014; haskell: 611; python: 431; ansic: 234; javascript: 113
file content (25 lines) | stat: -rw-r--r-- 493 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
(* re2ocaml $INPUT -o $OUTPUT -s *)

type state = {
    str: string;
    mutable cur: int;
}

/*!re2c
    re2c:api = custom;
    re2c:define:YYFN = ["lex;bool", "st;state"];
    re2c:define:YYPEEK = "st.str.[st.cur]";
    re2c:define:YYSKIP = "st.cur <- st.cur + 1;";
    re2c:yyfill:enable = 0;

    number = [1-9][0-9]*;

    number { true }
    *      { false }
*/

let main () =
    let st = {str = "1234\x00"; cur = 0}
    in if not (lex st) then raise (Failure "error")

let _ = main ()