## core functions
#include <getopt.h>
- static char Usage[] = "Usage: oceani --trace --print --noexec --brackets"
- "--section=SectionName prog.ocn\n";
+ static char Usage[] =
+ "Usage: oceani --trace --print --noexec --brackets --section=SectionName prog.ocn\n";
static const struct option long_options[] = {
{"trace", 0, NULL, 't'},
{"print", 0, NULL, 'p'},
char *section = NULL;
struct parse_context context = {
.config = {
- .ignored = (1 << TK_line_comment)
- | (1 << TK_block_comment)
- | (1 << TK_mark),
+ .ignored = (1 << TK_mark),
.number_chars = ".,_+- ",
.word_start = "_",
.word_cont = "_",
$*fieldlist
FieldBlock -> Open FieldList } ${ $0 = $<2; }$
| Open SimpleFieldList } ${ $0 = $<2; }$
- | : FieldList $$NEWLINE ${ $0 = $<2; }$
+ | : FieldList ${ $0 = $<2; }$
FieldList -> FieldLines ${ $0 = $<1; }$
| Newlines FieldLines ${ $0 = $<2; }$
Block -> Open Statementlist Close ${ $0 = $<2; }$
| Open SimpleStatements } ${ $0 = reorder_bilist($<2); }$
| : SimpleStatements ${ $0 = reorder_bilist($<2); }$
- | : Statementlist $$OUT ${ $0 = $<2; }$
+ | : Statementlist ${ $0 = $<2; }$
Statementlist -> ComplexStatements ${ $0 = reorder_bilist($<1); }$
| Newlines ComplexStatements ${ $0 = reorder_bilist($<2); }$
case Xcond_statement: free_cond_statement(cast(cond_statement, e)); break;
###### ComplexStatement Grammar
- | CondStatement $$NEWLINE ${ $0 = $<1; }$
+ | CondStatement ${ $0 = $<1; }$
###### Grammar
DeclareConstant -> const Open ConstList Close
| const Open SimpleConstList }
- | const : ConstList $$NEWLINE
+ | const : ConstList
| const SimpleConstList NEWLINE
ConstList -> ConstLines