Lines Matching refs:Token

21   | [< 'Token.Number n >] -> Ast.Number n
24   | [< 'Token.Kwd '('; e=parse_expr; 'Token.Kwd ')' ?? "expected ')'" >] -> e
29   | [< 'Token.Ident id; stream >] ->
33               | [< 'Token.Kwd ','; e=parse_args (e :: accumulator) >] -> e
40         | [< 'Token.Kwd '(';
42              'Token.Kwd ')' ?? "expected ')'">] ->
51   | [< 'Token.If; c=parse_expr;
52        'Token.Then ?? "expected 'then'"; t=parse_expr;
53        'Token.Else ?? "expected 'else'"; e=parse_expr >] ->
58   | [< 'Token.For;
59        'Token.Ident id ?? "expected identifier after for";
60        'Token.Kwd '=' ?? "expected '=' after for";
65              'Token.Kwd ',' ?? "expected ',' after for";
70               | [< 'Token.Kwd ','; step=parse_expr >] -> Some step
75             | [< 'Token.In; body=parse_expr >] ->
87   | [< 'Token.Var;
89        'Token.Ident id ?? "expected identifier after var";
93        'Token.In ?? "expected 'in' keyword after 'var'";
104   | [< 'Token.Kwd op when op != '(' && op != ')'; operand=parse_expr >] ->
115   | Some (Token.Kwd c) when Hashtbl.mem binop_precedence c ->
130           | Some (Token.Kwd c2) ->
148   | [< 'Token.Kwd '='; e=parse_expr >] -> Some e
152   | [< 'Token.Kwd ',';
153        'Token.Ident id ?? "expected identifier list after var";
169     | [< 'Token.Ident id; e=parse_args (id::accumulator) >] -> e
173     | [< 'Token.Unary >] -> "unary", 1
174     | [< 'Token.Binary >] -> "binary", 2
177     | [< 'Token.Number n >] -> int_of_float n
181   | [< 'Token.Ident id;
182        'Token.Kwd '(' ?? "expected '(' in prototype";
184        'Token.Kwd ')' ?? "expected ')' in prototype" >] ->
188        'Token.Kwd op ?? "expected an operator";
191        'Token.Kwd '(' ?? "expected '(' in prototype";
193        'Token.Kwd ')' ?? "expected ')' in prototype" >] ->
210   | [< 'Token.Def; p=parse_prototype; e=parse_expr >] ->
221   | [< 'Token.Extern; e=parse_prototype >] -> e