depager 0.2.3 → 0.3.0.b20250423

data/examples/c89/test.c89

@@ -1,10 +1,10 @@
-/*
-  comment
-*/
-int fact(int n)
-{
-    if (n == 1)
-        return 1;
-    else
-        return n * fact(n - 1);
-}
+/*
+  comment
+*/
+int fact(int n)
+{
+    if (n == 0)
+        return 1;
+    else
+        return n * fact(n - 1);
+}

data/examples/extension/astdf.rb

@@ -0,0 +1,9 @@
+require "plugins/ast"
+
+module Examples; end
+
+class Examples::ASTBuilderDepthFirstExtension < Depager::ASTBuilderExtension # :nodoc:all
+  def gen_accept_code(sym)
+    "        @#{sym}.accept(v)\n"
+  end
+end

data/examples/extension/atree.dr

@@ -0,0 +1,55 @@
+%defext Examples::ATreeBuilderExtension
+%extend Depager::Action ('depager/plugins/action.rb')
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%expanded_code_delimiter DEPAGER_EXPANDED_CODE
+%inner{
+  attr_accessor :action_code, :on_reduce
+  def init_extension
+    @action_code = ''
+    @on_reduce = []
+  end
+  def term_extension
+    g_parser.outer_code <<
+      generate_action_decorator_code(@on_reduce, @action_code)
+  end
+%}
+%hook post_rhs
+%banner '=>...'
+%%
+%LEX{
+  /[ \t]+/                { }
+  /\r?\n/                 { yield nil, nil }
+  /[a-zA-Z][a-zA-Z0-9_]*/ { yield token(:ID, $&) }
+  /'(.+)'/                { yield token(:STR, $1) }
+  /::/                    { yield token(:CC, $&) }
+  /=>/                    { yield token(:EG, $&) }
+  /./                     { yield token($&, $&) }
+%}
+
+#begin-rule
+  start:
+      EG ast
+      {
+        n = g_parser.rules.size-1
+        master.action_code <<
+          master.expand_inline_code(_ast, _EG.lineno, :wrap => "def _atree_#{n} val")
+        master.on_reduce[n] = ":_atree_#{n}"
+      }
+  ;
+  ast:
+      ID '(' ')'           { "[:#{_ID.value}]" }
+    | ID '(' fact_list ')' { "[:#{_ID.value}, #{_fact_list.join(',')}]" }
+    | ID                   { "val[#{g_parser.name_to_rhs_index(_ID.value)}]" }
+  ;
+  fact_list:
+      fact                 { [ _fact ] }
+    | fact_list ',' fact   { _fact_list.push _fact }
+  ;
+  fact:
+      ID                   { "val[#{g_parser.name_to_rhs_index(_ID.value)}]" }
+    | STR                  { "'#{_STR.value}'" }
+  ;
+#end-rule
+%%

data/examples/{sample_calc → extension}/calc.atree.dr

@@ -1,43 +1,42 @@
-%class TinyCalc
-%extend Lexer ('plugins/lex.rb')
-%extend ATreeBuilder ('plugins/atree.rb')
-%decorate @ATreeBuilder
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%mixin Depager
-%%
-
-%LEX{
-  /\s+/, /\#.*/ { }
-  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
-  /./           { yield token($&, $&) }
-%}
-
-#begin-rule
-   expr :
-      expr '+' term
-      => add(expr, term)
-    | expr '-' term
-      => sub(expr, term)
-    | term
-      => term
-  ;
-  term :
-      term '*' fact
-      => mul(term, fact)
-    | term '/' fact
-      => div(term, fact)
-    | fact
-      => fact
-  ;
-  fact :
-      NUM
-      => literal(NUM)
-    | '(' expr ')'
-      => expr
-  ;
-#end-rule
-%%
-require 'pp'
-parser = createDecoratedTinyCalc
-r, = parser.parse(STDIN)
-pp r
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Examples::ATreeBuilder ('./atree.dr.rb')
+%decorate @ATreeBuilder
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%%
+
+%LEX{
+  /\s+/, /\#.*/ { }
+  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
+  /./           { yield token($&, $&) }
+%}
+
+#begin-rule
+  expr :
+      expr '+' term
+      => add(expr, term)
+    | expr '-' term
+      => sub(expr, term)
+    | term
+      => term
+  ;
+  term :
+      term '*' fact
+      => mul(term, fact)
+    | term '/' fact
+      => div(term, fact)
+    | fact
+      => fact
+  ;
+  fact :
+      NUM
+      => literal(NUM)
+    | '(' expr ')'
+      => expr
+  ;
+#end-rule
+%%
+require 'pp'
+parser = TinyCalc.create_decorated_parser()
+t, = parser.parse(ARGF)
+pp t

data/examples/{sample_calc/calc.action.dr → extension/calc.simple_action.dr}

@@ -1,33 +1,33 @@
-%class TinyCalc
-%extend Lexer ('plugins/lex.rb')
-%extend Action ('plugins/action.rb')
-%decorate @Action
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%%
-
-%LEX{
-  /\s+/, /\#.*/ { }
-  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
-  /./           { yield token($&, $&) }
-%}
-
-#begin-rule
-  expr : 
-      expr '+' term { val[0] + val[2] }
-    | expr '-' term { val[0] - val[2] }
-    | term          { val[0] }
-  ;
-  term :
-      term '*' fact { val[0] * val[2] }
-    | term '/' fact { val[0] / val[2] }
-    | fact          { val[0] }
-  ;
-  fact :
-      NUM           { val[0].value }
-    | '(' expr ')'  { val[1] }
-  ;
-#end-rule
-%%
-parser = TinyCalc::createDecoratedParser
-r, = parser.parse(STDIN)
-puts r
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Examples::SimpleAction ('./simple_action.rb')
+%decorate @SimpleAction
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%%
+
+%LEX{
+  /\s+/, /\#.*/ { }
+  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
+  /./           { yield token($&, $&) }
+%}
+
+#begin-rule
+  expr :
+      expr '+' term { val[0] + val[2] }
+    | expr '-' term { val[0] - val[2] }
+    | term          { val[0] }
+  ;
+  term :
+      term '*' fact { val[0] * val[2] }
+    | term '/' fact { val[0] / val[2] }
+    | fact          { val[0] }
+  ;
+  fact :
+      NUM           { val[0].value }
+    | '(' expr ')'  { val[1] }
+  ;
+#end-rule
+%%
+parser = TinyCalc.create_decorated_parser
+r, = parser.parse(ARGF)
+puts r

data/examples/extension/paction.dr

@@ -1,15 +1,16 @@
-%defext PseudoActionExtension
-%extend Lexer ('plugins/lex.rb')
-%extend Action ('plugins/action.rb')
-%decorate @Action
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%hook postrhs
-%%
-%LEX{
-  /\s/ { }
-  /./  { yield $&, $&, @lineno }
-%}
- start:
-   '{' '}' { warn 'HIT' }
- ;
-%%
+%defext Examples::PseudoActionExtension
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::Action ('depager/plugins/action.rb')
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%hook post_rhs
+%%
+%LEX{
+  /\s+/ { }
+  /\{/  { yield $&, $&, @lineno }
+  /\}/  { yield $&, $&, @lineno ; yield nil, nil }
+%}
+ start:
+   '{' '}' { warn 'HIT' }
+ ;
+%%

data/examples/extension/pactiontest.dr

@@ -1,14 +1,14 @@
-%class PseudoActionTest
-%extend PseudoAction ('paction.rb')
-%%
-#begin-rule
-  expr:
-      expr '+' fact { }
-  ;
-  fact:
-      ID { }
-  ;
-#end-rule
-%%
-p = PseudoActionTest.new()
-#p.parse(STDIN)
+%class PseudoActionTest::Parser
+%extend Examples::PseudoAction ('./paction.dr.rb')
+%%
+#begin-rule
+  expr:
+      expr '+' fact { }
+  ;
+  fact:
+      ID { }
+  ;
+#end-rule
+%%
+parser = PseudoActionTest.new()
+pareser.parse(ARGF)

data/examples/extension/simple_action.rb

@@ -0,0 +1,46 @@
+require "depager/parser"
+
+module Examples; end
+
+class Examples::SimpleActionExtension < Depager::Extension # :nodoc:all
+  def init_extension
+    @line0 = @line = @oldline = ""
+    @action_code = ""
+    @on_reduce = []
+  end
+
+  def term_extension
+    g_parser.outer_code <<
+      generate_action_decorator_code(@on_reduce, @action_code)
+  end
+
+  def modify_action_code(code)
+    [code, 0]
+  end
+
+  def pre_rule_list
+    return unless /^%ACTION\{\s*$/.match?(g_parser.original_line)
+
+    while (line = file.gets)
+      break if /^%\}\s*$/.match?(line)
+
+      @action_code << line
+    end
+    g_parser.update_context ""
+  end
+
+  def post_rhs
+    return unless /\s*\{/.match?(g_parser.line)
+
+    @original_line = g_parser.original_line
+    @line = g_parser.line
+    lineno = g_parser.file.lineno
+    code = parse_block
+    d = 1
+    n = g_parser.rules.size - 1
+    @action_code <<
+      expand_inline_code(code, lineno, wrap: "def _act_#{n} val", delta: d)
+    g_parser.update_context @line
+    @on_reduce[n] = ":_act_#{n}"
+  end
+end