aboutsummaryrefslogtreecommitdiff
path: root/viz.js/process/tab_Lexer.mll
blob: 5149917806b51647d4462b231b996193452491fd (plain)
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
{
  open Js_of_ocaml
  exception SyntaxError of string * Lexing.lexbuf
  exception Eof

  type arrow =
  | Forward
  | Backward
  | Both
  | None

  type jstring = Js.js_string Js.t

  type res = 
  | NewLine
  | Root of jstring
  | Entry of jstring * (jstring * jstring * arrow) option
  | Redirection of jstring * jstring * arrow
  | Separator

  let get_arrow = begin function
  | "<-" -> Backward
  | "<->" -> Both
  | "--" -> None
  | _ -> Forward
  end

}

let space = ['\000' '\t' '\x0C' ' '] 
let spaces = space*
let newline = spaces ("\r\n" | '\n' | '\r')+

(* Any character except the delimiters and spaces *)
let regular = [^ '\n' '\x0C' '\r' ]
let target_id = ['A'-'Z' 'a'-'z' '0'-'9']+ (':' ['0'-'9']+)?

let arrow = "->" | "--" | "<-" | "<->"

rule parse_line = shortest
  | eof            { raise Eof }

  | newline  {NewLine}

  | space+ '-'+ newline {Separator}

  | (target_id as _1) newline        { Root (Js.string _1) }

  | (spaces as _1) 
    (arrow as _arrow) space+ 
    (target_id as _target) spaces 
    (regular* as comment) newline 
        { Redirection ( Js.string _target, Js.string comment, (get_arrow _arrow))}

  | spaces
    (regular+ as _2) space+ 
    (arrow as _arrow) space+ 
    (target_id as _target) spaces 
    (regular* as comment) newline 
        { Entry (Js.string _2, Some (Js.string _target, Js.string comment, (get_arrow _arrow)))}

  | (spaces as _1) 
    (regular+ as _2) newline
        { Entry (Js.string _2, None) }