tree-sitter-ocaml 0.16.0

OCaml grammar for the tree-sitter parsing library
Documentation 
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

/**
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 */

%token EOF
%token DOT HYPHEN PLUS
%token LT LTE GT GTE EQ
%token CARET
%token <string> ID
%token <string> NR

%start version comparator range
%type <Semver_version.t> version
%type <Semver_comparator.t> comparator
%type <Semver_range.t> range
%%
version:
  number part part prerelease build {
    Semver_version.({
      major = $1;
      minor = $2;
      patch = $3;
      prerelease = $4;
      build = $5;
    })
  }
;

comparator:
  op version {
    Semver_comparator.({
      op = $1;
      version = $2;
    })
  }
;

number:
  NR { int_of_string $1 }

part:
/* empty */ { 0 }
| DOT number { $2 }
;

prerelease:
/* empty */ { [] }
| HYPHEN identifier_list { $2 }
;

build:
/* empty */ { [] }
| PLUS identifier_list { $2 }
;

identifier_list:
  identifier_part { [$1] }
| identifier_part DOT identifier_list { $1::$3 }
;

identifier_part:
  ID { Semver_version.Str $1 }
| NR { Semver_version.Int (int_of_string $1) }

op:
/* empty */ { None }
| LT { Some Semver_comparator.Less }
| LTE { Some Semver_comparator.LessOrEqual }
| GT { Some Semver_comparator.Greater }
| GTE { Some Semver_comparator.GreaterOrEqual }
| EQ { Some Semver_comparator.Equal }
;

/* RANGES */

range:
  range_part { [$1] }
| range_part range { $1::$2 }
;

range_part:
  comparator { Semver_range.Comparator $1 }
| CARET version { Semver_range.Caret $2 }
;