2 /* This file is part of NIT ( http://www.nitlanguage.org ).
4 * Copyright 2008 Jean Privat <jean@pryen.org>
6 * Licensed under the Apache License, Version 2.0 (the "License");
7 * you may not use this file except in compliance with the License.
8 * You may obtain a copy of the License at
10 * http://www.apache.org/licenses/LICENSE-2.0
12 * Unless required by applicable law or agreed to in writing, software
13 * distributed under the License is distributed on an "AS IS" BASIS,
14 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15 * See the License for the specific language governing permissions and
16 * limitations under the License.
19 /* This grammar defines the NIT language. */
21 /*****************************************************************************/
23 /*****************************************************************************/
26 lowercase = ['a' .. 'z'];
27 uppercase = ['A' .. 'Z'];
29 letter = lowercase | uppercase | digit | '_';
34 any = [all - [cr + lf]];
36 // characers inside strings and super-strings (atomaton powaa)
38 = [any - [['"' + '{'] + '\']]
43 eol_helper = cr lf | cr | lf; // This takes care of different platforms
45 /*****************************************************************************/
47 /*****************************************************************************/
51 /*****************************************************************************/
53 /*****************************************************************************/
58 comment = '#' any* eol_helper;
60 kwpackage = 'package';
63 kwabstract = 'abstract';
64 kwinterface = 'interface';
65 kwuniversal = 'universal';
66 kwspecial = 'special';
75 kwreadable = 'readable';
76 kwwritable = 'writable';
80 kwprotected = 'protected';
81 kwprivate = 'private';
82 kwintrude = 'intrude';
93 kwcontinue = 'continue';
134 classid = uppercase letter*;
135 id = lowercase letter*;
136 attrid = '_' lowercase letter*;
139 float = digit* '.' digit+;
140 char = ''' [any - ''']* ''';
141 string = '"' str_body '"';
142 start_string = '"' str_body '{';
143 mid_string = '}' str_body '{';
144 end_string = '}' str_body '"';
147 /*****************************************************************************/
149 /*****************************************************************************/
153 /*****************************************************************************/
155 /*****************************************************************************/
157 /* MODULES *******************************************************************/
159 = packagedecl? [imports]:import* [classdefs]:classdef* implicit_top_class? implicit_main_class? {-> New module(packagedecl, [imports.import],[classdefs.classdef,implicit_top_class.classdef,implicit_main_class.classdef])};
162 = [doc]:no kwpackage no id [n2]:n1 {-> New packagedecl(doc.doc, kwpackage, id)};
165 = [doc]:no visibility kwimport no id [n2]:n1 {-> New import(visibility, kwimport, id)}
166 | {no} [doc]:no visibility kwimport no kwend [n2]:n1 {-> New import.no(visibility, kwimport, kwend)}
169 implicit_top_class {-> classdef}
170 = tl_propdefs {-> New classdef.top([tl_propdefs.propdef])};
172 implicit_main_class {-> classdef?}
173 = implicit_main_meth {-> New classdef.main([implicit_main_meth.propdef])}
176 implicit_main_meth {-> propdef}
177 = [doc]:no stmts no {-> New propdef.main_meth(Null, stmts.expr)};
179 /* CLASSES *******************************************************************/
181 = [doc]:no redef visibility classkind no classid formaldefs? [specials]:special* propdefs? [n2]:no kwend {-> New classdef(doc.doc, redef.kwredef, visibility, classkind, classid, [formaldefs.formaldef], [specials.superclass], [propdefs.propdef])};
183 = kwredef? {-> kwredef};
186 | {abstract} kwabstract kwclass
187 | {interface} kwinterface
188 | {universal} kwuniversal
191 formaldefs {-> formaldef*}
192 = obra no formaldef formaldefs_tail* [n2]:no cbra {-> [formaldef, formaldefs_tail.formaldef]};
193 formaldefs_tail {-> formaldef}
194 = comma no formaldef {-> formaldef};
196 = classid typing? {-> New formaldef(classid, typing.type)};
198 special {-> superclass}
199 = no kwspecial [n2]:no type {-> New superclass(kwspecial, type)};
201 propdefs {-> propdef*}
202 = propdef n1 propdefs_tail* {-> [propdef, propdefs_tail.propdef]};
203 propdefs_tail {-> propdef}
204 = propdef n1 {-> propdef};
206 = {attr} [doc]:no readable writable redef visibility kwattr attrid typing? {-> New propdef.attr(doc.doc, readable.able, writable.able, redef.kwredef, visibility, kwattr, attrid, typing.type, Null)}
207 | {attr2} [doc]:no readable writable redef visibility kwattr attrid typing? assign [n2]:no expr {-> New propdef.attr(doc.doc, readable.able, writable.able, redef.kwredef, visibility, kwattr, attrid, typing.type, expr)}
208 | {deferred} [doc]:no redef visibility kwmeth methid signature kwis kwabstract {-> New propdef.deferred_meth(doc.doc, redef.kwredef, visibility, kwmeth, methid, signature.signature)}
209 | {intern} [doc]:no redef visibility kwmeth methid signature kwis kwintern {-> New propdef.intern_meth(doc.doc, redef.kwredef, visibility, kwmeth, methid, signature.signature)}
210 | {extern} [doc]:no redef visibility kwmeth methid signature kwis kwextern string? {-> New propdef.extern_meth(doc.doc, redef.kwredef, visibility, kwmeth, methid, signature.signature, string)}
211 | {meth} [doc]:no redef visibility kwmeth methid signature kwdo stmtso kwend? {-> New propdef.concrete_meth(doc.doc, redef.kwredef, visibility, kwmeth, methid, signature, stmtso.expr)}
212 | {init} [doc]:no redef visibility kwinit methid? signature kwdo stmtso kwend? {-> New propdef.concrete_init(doc.doc, redef.kwredef, visibility, kwinit, methid, signature, stmtso.expr)}
213 | {type} [doc]:no redef visibility kwtype classid typing {-> New propdef.type(doc.doc, redef.kwredef, visibility, kwtype, classid, typing.type)}
216 = redef kwreadable {-> New able.read(redef.kwredef, kwreadable)}
220 = redef kwwritable {-> New able.write(redef.kwredef, kwwritable)}
224 tl_propdefs {-> propdef*}
225 = tl_propdef n1 tl_propdefs_tail* {-> [tl_propdef.propdef, tl_propdefs_tail.propdef]};
226 tl_propdefs_tail {-> propdef}
227 = tl_propdef n1 {-> tl_propdef.propdef};
228 tl_propdef {-> propdef}
229 = {extern} [doc]:no redef visibility kwmeth methid signature kwis kwextern string? {-> New propdef.extern_meth(doc.doc, redef.kwredef, visibility, kwmeth, methid, signature, string)}
230 | {meth} [doc]:no redef visibility kwmeth methid signature kwdo stmtso {-> New propdef.concrete_meth(doc.doc, redef.kwredef, visibility, kwmeth, methid, signature, stmtso.expr)}
234 = {public} {-> New visibility.public()}
235 | {private} kwprivate no {-> New visibility.private(kwprivate)}
236 | {protected} kwprotected no {-> New visibility.protected(kwprotected)}
237 | {intrude} kwintrude no {-> New visibility.intrude(kwintrude)}
254 | {starship} starship
256 | {braassign} obra cbra assign
260 = params? typing? closure_decls {-> New signature([params.param], typing.type, [closure_decls.closure_decl])}
261 | {noclosures} params? typing? no {-> New signature([params.param], typing.type, [])}
264 signature_noclosures {-> signature}
265 = params? typing? {-> New signature([params.param], typing.type, [])};
268 = opar no param params_tail* [n2]:no cpar {-> [param, params_tail.param]}
269 | {empty} opar no cpar {-> []}
271 params_tail {-> param}
272 = comma no param {-> param};
274 = {untyped} id {-> New param(id, Null, Null)}
275 | id typing dotdotdot? {-> New param(id, typing.type, dotdotdot)}
278 closure_decls {->closure_decl*}
279 = no closure_decl+ {-> [closure_decl]};
281 = kwwith kwbreak? [no2]:no id signature_noclosures n {-> New closure_decl(kwwith, kwbreak, id, signature_noclosures.signature, Null)}
282 | {optionnal} kwwith kwbreak? [no2]:no id signature_noclosures kwdo stmtso n {-> New closure_decl(kwwith, kwbreak, id, signature_noclosures.signature, stmtso.expr)}
285 /* TYPES *********************************************************************/
286 type/*B3*//*B*/ {-> type}
287 = {simple} classid {-> New type(classid, [])}
288 /*N*/ | {generic} classid obra no types [n2]:no cbra {-> New type(classid, [types.type])}
292 = type types_tail* {-> [type, types_tail.type]};
294 = comma no type {-> type};
296 = column no type {-> type};
298 /* STATMENTS *****************************************************************/
299 stmtso/*B2*/ {-> expr?}
300 = {oneline} stmt/*B2*/ {-> stmt/*B2*/.expr}
301 | {block} n stmts [n2]:n kwend {-> stmts.expr}
302 | {emptyblock} n kwend {-> New expr.block([])}
303 | {emptyoneline} kwend {-> New expr.block([])}
306 = stmt stmts_tail* {-> New expr.block([stmt.expr, stmts_tail.expr])};
308 = n stmt {-> stmt.expr};
310 = {vardecl} vardecl/*B2*/ {-> vardecl/*B2*/.expr}
311 | {assign} assignment/*B2*/ {-> assignment/*B2*/.expr}
312 | {return} kwreturn expr_final/*B2*/? {-> New expr.return(kwreturn, expr_final/*B2*/.expr)}
313 | {break} kwbreak expr_final/*B2*/? {-> New expr.break(kwbreak, expr_final/*B2*/.expr)}
314 | {abort} kwabort {-> New expr.abort(kwabort)}
315 | {continue} kwcontinue expr_final/*B2*/? {-> New expr.continue(kwcontinue, expr_final/*B2*/.expr)}
316 | {do} do/*B2*/ {-> do/*B2*/.expr}
317 | {if} if/*B2*/ {-> if/*B2*/.expr}
318 | {while} while/*B2*/ {-> while/*B2*/.expr}
319 | {for} for/*B2*/ {-> for/*B2*/.expr}
320 | {assert} assert/*B2*/ {-> assert/*B2*/.expr}
321 // | {expr} expr {-> expr.expr}
322 | {call} recv id args_nopar closure_defs/*B2*/? {-> New expr.call(recv.expr, id, [args_nopar.expr], [closure_defs/*B2*/.closure_def])}
323 | {super} qualified? kwsuper args_nopar {-> New expr.super(qualified, kwsuper, [args_nopar.expr])}
324 | {init} recv kwinit args_nopar {-> New expr.init(recv.expr, kwinit, [args_nopar.expr])}
327 closure_defs/*B2*/ {-> closure_def*}
328 = {one} closure_def_last/*B2*/ {-> [closure_def_last/*B2*/.closure_def]}
329 | closure_def closure_defs/*B2*/ {-> [closure_def, closure_defs/*B2*/.closure_def]}
332 closure_def_last/*B2*/ {-> closure_def}
333 = kwwith idlist? kwdo stmtso/*B2*/ {-> New closure_def(kwwith, [idlist.id], kwdo, stmtso/*B2*/.expr)}
336 closure_def {-> closure_def}
337 = kwwith idlist? kwdo n stmts [n2]:n {-> New closure_def(kwwith, [idlist.id], kwdo, stmts.expr)}
338 | {empty} kwwith idlist? kwdo n {-> New closure_def(kwwith, [idlist.id], kwdo, Null)}
341 vardecl/*B2*/{-> expr}
342 = kwvar id typing? {-> New expr.vardecl(kwvar, id, typing.type, Null, Null)}
343 | {assign} kwvar id typing? assign no expr_final/*B2*/ {-> New expr.vardecl(kwvar, id, typing.type, assign, expr_final/*B2*/.expr)}
346 assignment/*B2*/ {-> expr}
347 = {attr} recv attrid assign expr_final/*B2*/ {-> New expr.attr_assign(recv.expr, attrid, assign, expr_final/*B2*/.expr)}
348 | {call} recv id args assign expr_final/*B2*/ {-> New expr.call_assign(recv.expr, id, [args.expr], assign, expr_final/*B2*/.expr)}
349 | {bra} expr_atom braargs assign expr_final/*B2*/ {-> New expr.bra_assign(expr_atom.expr, [braargs.expr], assign, expr_final/*B2*/.expr)}
350 | {attr_re} recv attrid assign_op expr_final/*B2*/ {-> New expr.attr_reassign(recv.expr, attrid, assign_op, expr_final/*B2*/.expr)}
351 | {call_re} recv id args assign_op expr_final/*B2*/ {-> New expr.call_reassign(recv.expr, id, [args.expr], assign_op, expr_final/*B2*/.expr)}
352 | {bra_re} expr_atom braargs assign_op expr_final/*B2*/ {-> New expr.bra_reassign(expr_atom.expr, [braargs.expr], assign_op, expr_final/*B2*/.expr)}
360 = kwdo stmtso/*B2*/ {-> New expr.do(kwdo, stmtso/*B2*/.expr)}
364 = {onelineelse} kwif no expr [n2]:no kwthen stmt_withelse kwelse stmtso/*B2*/ {-> New expr.if(kwif, expr, stmt_withelse.expr, stmtso/*B2*/.expr)}
365 /*N2*/ | {oneline} kwif no expr [n2]:no kwthen stmt {-> New expr.if(kwif, expr, stmt.expr, Null)}
366 /*N2*/ | {block} kwif no expr [n2]:no kwthen [n3]:n stmts [n4]:n elsepartblock {-> New expr.if(kwif, expr, stmts.expr, elsepartblock.expr)}
367 /*N2*/ | {emptyblock} kwif no expr [n2]:no kwthen [n3]:n? elsepartblock {-> New expr.if(kwif, expr, Null, elsepartblock.expr)}
369 elsepartblock {-> expr?}
370 = {else} kwelse stmtso {-> stmtso.expr}
371 | {empty} kwend {-> Null}
374 while/*B2*/ {-> expr}
375 = kwwhile no expr [n2]:no kwdo stmtso/*B2*/ {-> New expr.while(kwwhile, expr, kwdo, stmtso/*B2*/.expr)};
378 = for_vardecl [n4]:no kwdo stmtso/*B2*/ {-> New expr.for(for_vardecl.expr, kwdo, stmtso/*B2*/.expr)};
379 for_vardecl {-> expr}
380 = kwfor no id [n2]:no kwin [n3]:no expr {-> New expr.for_vardecl(kwfor, id, expr)};
382 assert/*B2*/ {-> expr}
383 = kwassert assertid? expr_final/*B2*/ {-> New expr.assert(kwassert, assertid.id, expr_final/*B2*/.expr)};
387 /* EXPRESSIONS ***************************************************************/
388 expr_final/*B3*//*B2*//*B*/ {-> expr}
389 = expr/*B3*//*B*/ {-> expr/*B3*//*B*/.expr}
390 | {closure_call} recv/*B*/ id args closure_defs/*B2*/ {-> New expr.call(recv/*B*/.expr, id, [args.expr], [closure_defs/*B2*/.closure_def])}
391 /*N*//*N3*/ | {closure_bra} expr_atom braargs closure_defs/*B2*/ {-> New expr.bra(expr_atom.expr, [braargs.expr], [closure_defs/*B2*/.closure_def])}
394 expr/*B3*//*B*/ {-> expr}
395 = expr_and/*B3*//*B*/ {-> expr_and/*B3*//*B*/.expr}
396 | {ifexpr} kwif [n1]:no expr [n2]:no kwthen [n3]:no [then]:expr [n4]:no kwelse [n5]:no [else]:expr/*B3*//*B*/ {-> New expr.ifexpr(kwif, expr, kwthen, then, kwelse, else.expr)}
399 expr_and/*B3*//*B*/ {-> expr}
400 = expr_not/*B3*//*B*/ {-> expr_not/*B3*//*B*/.expr}
401 | {or} expr_and/*B3*//*B*/ kwor no expr_not/*B3*//*B*/ {-> New expr.or(expr_and/*B3*//*B*/.expr, expr_not/*B3*//*B*/.expr)}
402 | {and} expr_and/*B3*//*B*/ kwand no expr_not/*B3*//*B*/ {-> New expr.and(expr_and/*B3*//*B*/.expr, expr_not/*B3*//*B*/.expr)}
405 expr_not/*B3*//*B*/ {-> expr}
406 = expr_eq/*B3*//*B*/ {-> expr_eq/*B3*//*B*/.expr}
407 | {not} kwnot no expr_not/*B3*//*B*/ {-> New expr.not(kwnot, expr_not/*B3*//*B*/.expr)}
410 expr_eq/*B3*//*B*/ {-> expr}
411 = expr_add/*B3*//*B*/ {-> expr_add/*B3*//*B*/.expr}
412 | {eq} expr_add/*B3*//*B*/ eq no [expr2]:expr_add/*B3*//*B*/ {-> New expr.eq(expr_add/*B3*//*B*/.expr, expr2.expr)}
413 | {ee} expr_add/*B3*//*B*/ kwis no [expr2]:expr_add/*B3*//*B*/ {-> New expr.ee(expr_add/*B3*//*B*/.expr, expr2.expr)}
414 | {ne} expr_add/*B3*//*B*/ ne no [expr2]:expr_add/*B3*//*B*/ {-> New expr.ne(expr_add/*B3*//*B*/.expr, expr2.expr)}
415 | {lt} expr_add/*B3*//*B*/ lt no [expr2]:expr_add/*B3*//*B*/ {-> New expr.lt(expr_add/*B3*//*B*/.expr, expr2.expr)}
416 | {le} expr_add/*B3*//*B*/ le no [expr2]:expr_add/*B3*//*B*/ {-> New expr.le(expr_add/*B3*//*B*/.expr, expr2.expr)}
417 | {gt} expr_add/*B3*//*B*/ gt no [expr2]:expr_add/*B3*//*B*/ {-> New expr.gt(expr_add/*B3*//*B*/.expr, expr2.expr)}
418 | {ge} expr_add/*B3*//*B*/ ge no [expr2]:expr_add/*B3*//*B*/ {-> New expr.ge(expr_add/*B3*//*B*/.expr, expr2.expr)}
419 | {starship} expr_add/*B3*//*B*/ starship no [expr2]:expr_add/*B3*//*B*/ {-> New expr.starship(expr_add/*B3*//*B*/.expr, expr2.expr)}
420 | {isa} expr_add/*B3*//*B*/ kwisa no type/*B3*//*B*/ {-> New expr.isa(expr_add/*B3*//*B*/.expr, type/*B3*//*B*/.type)}
423 expr_add/*B3*//*B*/ {-> expr}
424 = expr_mul/*B3*//*B*/ {-> expr_mul/*B3*//*B*/.expr}
425 | {plus} expr_add/*B3*//*B*/ plus no [expr2]:expr_mul/*B3*//*B*/ {-> New expr.plus(expr_add/*B3*//*B*/.expr, expr2.expr)}
426 | {minus} expr_add/*B3*//*B*/ minus no [expr2]:expr_mul/*B3*//*B*/ {-> New expr.minus(expr_add/*B3*//*B*/.expr, expr2.expr)}
429 expr_mul/*B3*//*B*/ {-> expr}
430 = expr_minus/*B3*//*B*/ {-> expr_minus/*B3*//*B*/.expr}
431 | {star} expr_mul/*B3*//*B*/ star no [expr2]:expr_minus/*B3*//*B*/ {-> New expr.star(expr_mul/*B3*//*B*/.expr, expr2.expr)}
432 | {slash} expr_mul/*B3*//*B*/ slash no [expr2]:expr_minus/*B3*//*B*/ {-> New expr.slash(expr_mul/*B3*//*B*/.expr, expr2.expr)}
433 | {percent} expr_mul/*B3*//*B*/ percent no [expr2]:expr_minus/*B3*//*B*/ {-> New expr.percent(expr_mul/*B3*//*B*/.expr, expr2.expr)}
436 expr_minus/*B3*//*B*/ {-> expr}
437 = expr_new/*B3*//*B*/ {-> expr_new/*B3*//*B*/.expr}
438 | {minus} minus no expr_minus/*B3*//*B*/ {-> New expr.uminus(minus, expr_minus/*B3*//*B*/.expr)}
439 | {once} kwonce no expr_minus/*B3*//*B*/ {-> New expr.once(kwonce, expr_minus/*B3*//*B*/.expr)}
442 expr_new/*B3*//*B*/ {-> expr}
443 = expr_atom/*B3*//*B*/ {-> expr_atom/*B3*//*B*/.expr}
444 | {new} kwnew no type/*B3*//*B*/ args {-> New expr.new(kwnew, type/*B3*//*B*/.type, Null, [args.expr])}
447 expr_atom/*B3*//*B*/ {-> expr}
448 = {attr} recv/*B3*//*B*/ attrid {-> New expr.attr(recv/*B3*//*B*/.expr, attrid)}
449 | {call} recv/*B3*//*B*/ id args {-> New expr.call(recv/*B3*//*B*/.expr, id, [args.expr], [])}
450 | {super} qualified? kwsuper args {-> New expr.super(qualified, kwsuper, [args.expr])}
451 | {init} recv/*B3*//*B*/ kwinit args {-> New expr.init(recv/*B3*//*B*/.expr, kwinit, [args.expr])}
452 /*N*//*N3*/ | {bra} expr_atom braargs {-> New expr.bra(expr_atom.expr, [braargs.expr], [])}
453 | {new} kwnew no type/*B3*//*B*/ dot [n2]:no id args {-> New expr.new(kwnew, type/*B3*//*B*/.type, id, [args.expr])}
454 /*N*//*N3*/ | {range} obra no expr [n2]:no dotdot [n3]:no [expr2]:expr_nobra [n4]:no cbra {-> New expr.crange(expr, expr2.expr)}
455 /*N*//*N3*/ | {orange} obra no expr [n2]:no dotdot [n3]:no [expr2]:expr_nobra [n4]:no [cbra]:obra {-> New expr.orange(expr, expr2.expr)}
456 /*N*//*N3*/ | {array} braargs {-> New expr.array([braargs.expr])}
457 | {self} kwself {-> New expr.self(kwself)}
458 | {true} kwtrue {-> New expr.true(kwtrue)}
459 | {false} kwfalse {-> New expr.false(kwfalse)}
460 | {null} kwnull {-> New expr.null(kwnull)}
461 | {int} number {-> New expr.int(number)}
462 | {float} float {-> New expr.float(float)}
463 | {char} char {-> New expr.char(char)}
464 | {string} string {-> New expr.string(string)}
465 | {superstring} superstring {-> superstring.expr}
466 /*N3*/ | {par} opar expr cpar {-> expr}
467 | {as_cast} expr_atom/*B3*//*B*/ dot no kwas [n2]:no opar [n3]:no type [n4]:no cpar {-> New expr.as_cast(expr_atom/*B3*//*B*/.expr, kwas, type)}
470 superstring {-> expr}
471 = superstring_start superstring_middle* superstring_end {-> New expr.superstring([superstring_start.expr, superstring_middle.expr, superstring_end.expr])};
472 superstring_start {-> expr*}
473 = start_string_p no expr [n2]:no {-> [start_string_p.expr, expr]};
474 start_string_p {-> expr}
475 = start_string {-> New expr.start_string(start_string)};
476 superstring_middle {-> expr*}
477 = mid_string_p no expr [n2]:no {-> [mid_string_p.expr, expr]};
478 mid_string_p {-> expr}
479 = mid_string {-> New expr.mid_string(mid_string)};
480 superstring_end {-> expr}
481 = end_string {-> New expr.end_string(end_string)};
483 /* MISC **********************************************************************/
485 recv/*B3*//*B*/ {-> expr}
486 = expr_atom/*B3*//*B*/ dot no {-> expr_atom/*B3*//*B*/.expr}
487 | {implicit} {-> New expr.implicit_self()}
491 = opar no expr [n2]:no args_tail* cpar {-> [expr, args_tail.expr]}
492 | {emptypar} opar no cpar {-> []}
495 args_nopar {-> expr*}
496 = opar no expr [n2]:no args_tail* cpar {-> [expr, args_tail.expr]}
497 | {onearg} expr_nopar {-> [expr_nopar.expr]}
498 | {emptypar} opar no cpar {-> []}
502 = obra no expr [n2]:no args_tail* cbra {-> [expr, args_tail.expr]};
504 = comma no expr [n2]:no {-> expr};
506 = {single} id {-> [id]}
507 | {more} idlist no comma [n2]:no id {-> [idlist.id, id]}
511 = {cla} modquad* classquad {-> New qualified([modquad.id], classquad.classid)}
512 | {mod} modquad+ {-> New qualified([modquad.id], Null)}
515 = id quad no {-> id};
516 classquad {-> classid}
517 = classid quad no {-> classid};
519 n1 = {a} comment | {b} eol;
521 = {a} n2? comment+ {-> New doc([comment])}
530 = {a} n2? comment+ eol+
534 /* EXPR NO BRACKETS **********************************************************/
535 /* since there is no shift/reduce conflict handling in sablecc, the following
536 * is a duplication of previous productions minus some alternative where '['
537 * are not protected. */
543 /*****************************************************************************/
545 /*****************************************************************************/
547 module = packagedecl? [imports]:import* [classdefs]:classdef*;
552 import = visibility kwimport id
553 | {no} visibility kwimport kwend
558 | {private} kwprivate
559 | {protected} kwprotected
560 | {intrude} kwintrude
563 classdef = doc? kwredef? visibility classkind [id]:classid? [formaldefs]:formaldef* [superclasses]:superclass* [propdefs]:propdef*
564 | {top} [propdefs]:propdef*
565 | {main} [propdefs]:propdef*
569 | {abstract} kwabstract kwclass
570 | {interface} kwinterface
571 | {universal} kwuniversal
573 formaldef = [id]:classid type?;
574 superclass = kwspecial type;
577 propdef = {attr} doc? [readable]:able? [writable]:able? kwredef? visibility kwattr [id]:attrid type? expr?
578 | {meth} doc? kwredef? visibility methid signature
579 | {deferred_meth} doc? kwredef? visibility kwmeth methid signature
580 | {intern_meth} doc? kwredef? visibility kwmeth methid signature
581 | {extern_meth} doc? kwredef? visibility kwmeth methid signature [extern]:string?
582 | {concrete_meth} doc? kwredef? visibility kwmeth methid signature [block]:expr?
583 | {concrete_init} doc? kwredef? visibility kwinit methid? signature [block]:expr?
584 | {main_meth} kwredef? [block]:expr?
585 | {type} doc? kwredef? visibility kwtype [id]:classid type
588 able = {read} kwredef? kwreadable
589 | {write} kwredef? kwwritable
592 methid = {id} id | {plus} plus | {minus} minus | {star} star | {slash} slash | {percent} percent | {eq} eq | {ne} ne | {le} le | {ge} ge | {lt} lt | {gt} gt | {bra} obra cbra | {starship} starship | {assign} id assign | {braassign} obra cbra assign;
594 signature = [params]:param* type? [closure_decls]:closure_decl*;
596 param = id type? dotdotdot?
599 closure_decl = kwwith kwbreak? id signature expr?
602 type = [id]:classid [types]:type*;
605 | {vardecl} kwvar id type? assign? expr?
606 | {return} kwreturn expr?
607 | {break} kwbreak expr?
609 | {continue} kwcontinue expr?
610 | {do} kwdo [block]:expr?
611 | {if} kwif expr [then]:expr? [else]:expr?
612 | {ifexpr} kwif expr kwthen [then]:expr kwelse [else]:expr
613 | {while} kwwhile expr kwdo [block]:expr?
614 | {for} [vardecl]:expr kwdo [block]:expr?
615 | {for_vardecl} kwfor id expr
616 | {assert} kwassert id? expr
619 | {binop} expr [expr2]:expr
620 | {or} expr [expr2]:expr
621 | {and} expr [expr2]:expr
623 | {eq} expr [expr2]:expr
624 | {ee} expr [expr2]:expr
625 | {ne} expr [expr2]:expr
626 | {lt} expr [expr2]:expr
627 | {le} expr [expr2]:expr
628 | {gt} expr [expr2]:expr
629 | {ge} expr [expr2]:expr
631 | {plus} expr [expr2]:expr
632 | {minus} expr [expr2]:expr
633 | {starship} expr [expr2]:expr
634 | {star} expr [expr2]:expr
635 | {slash} expr [expr2]:expr
636 | {percent} expr [expr2]:expr
637 | {uminus} minus expr
638 | {new} kwnew type id? [args]:expr*
639 | {attr} expr [id]:attrid
640 | {attr_assign} expr [id]:attrid assign [value]:expr
641 | {attr_reassign} expr [id]:attrid assign_op [value]:expr
642 | {call} expr id [args]:expr* [closure_defs]:closure_def*
643 | {call_assign} expr id [args]:expr* assign [value]:expr
644 | {call_reassign} expr id [args]:expr* assign_op [value]:expr
645 | {super} qualified? kwsuper [args]:expr*
646 | {init} expr kwinit [args]:expr*
647 | {bra} expr [args]:expr* [closure_defs]:closure_def*
648 | {bra_assign} expr [args]:expr* assign [value]:expr
649 | {bra_reassign} expr [args]:expr* assign_op [value]:expr
651 | {var_assign} id assign [value]:expr
652 | {var_reassign} id assign_op [value]:expr
653 | {range} expr [expr2]:expr
654 | {crange} expr [expr2]:expr
655 | {orange} expr [expr2]:expr
656 | {array} [exprs]:expr*
666 | {start_string} [string]:start_string
667 | {mid_string} [string]:mid_string
668 | {end_string} [string]:end_string
669 | {superstring} [exprs]:expr*
671 | {as_cast} expr kwas type
679 = kwwith id* kwdo expr?
682 qualified = id* classid? ;
686 /*****************************************************************************/