symbolstartpos.opp.exp 406 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
%start main
%token B
%token A

%type <unit> main
%%

main:
| _1 = A _2 = B
    {let _endpos = _endpos__2_ in
let _symbolstartpos = if Pervasives.(!=) _startpos__1_ _endpos__1_ then
  _startpos__1_
else
  if Pervasives.(!=) _startpos__2_ _endpos__2_ then
    _startpos__2_
  else
    _endpos in
let _symbolstartofs = _symbolstartpos.Lexing.pos_cnum in
          ( _symbolstartpos, _symbolstartofs )}

%%