depager 0.2.3 → 0.3.0.b20250423

data/examples/{sample_calc → tiny_calc}/calc.ast.action.dr

@@ -1,66 +1,76 @@
-%class TinyCalc
-%extend Lexer ('plugins/lex.rb')
-%extend ASTBuilder ('plugins/ast.rb')
-%extend Action ('plugins/action.rb')
-%decorate @ASTBuilder
-%decorate @Action
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%mixin Depager
-%%
-
-%LEX{
-  /\s+/, /\#.*/, /\n/  { }
-  /[1-9][0-9]*/        { yield token(:NUM, $&.to_i) }
-  /./                  { yield token($&, $&) }
-%}
-
-%AST{
-  Node [value]     { @value = nil }
-  Visitor          { }
-  add(left, right) { $.value = visit($.left).value + visit($.right).value }
-  sub(left, right) { $.value = visit($.left).value - visit($.right).value }
-  mul(left, right) { $.value = visit($.left).value * visit($.right).value }
-  div(left, right) { $.value = visit($.left).value / visit($.right).value }
-  literal(-n)      { $.value = $.n.value }
-%}
-
-#begin-rule
-  expr :
-      expr '+' term
-      => add(expr, term)
-      { val[0] + val[2] }
-    | expr '-' term
-      => sub(expr, term)
-      { val[0] - val[2] }
-    | term
-      => term
-      { val[0] }
-  ;
-  term :
-      term '*' fact
-      => mul(term, fact)
-      { val[0] * val[2] }
-    | term '/' fact
-      => div(term, fact)
-      { val[0] / val[2] }
-    | fact
-      => fact
-      { val[0] }
-  ;
-  fact :
-      NUM
-      => literal(NUM)
-      { val[0].value }
-    | '(' expr ')'
-      => expr
-      { val[1].value }
-  ;
-#end-rule
-%%
-require 'pp'
-parser = createDecoratedTinyCalc()
-t, r = parser.parse(STDIN)
-v = Visitor.new
-pp r
-pp t.accept(v).value
-pp t
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::ASTBuilder ('depager/plugins/ast.rb')
+%extend Depager::Action ('depager/plugins/action.rb')
+%decorate @ASTBuilder
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%%
+
+%LEX{
+  /\s+/, /\#.*/, /\n/  { }
+  /[1-9][0-9]*/        { yield token(:NUM, $&.to_i) }
+  /./                  { yield token($&, $&) }
+%}
+
+%AST{
+  Node [value]     { @value = nil }
+  Visitor          { }
+  add(left, right) { $.value = visit($.left).value + visit($.right).value }
+  sub(left, right) { $.value = visit($.left).value - visit($.right).value }
+  mul(left, right) { $.value = visit($.left).value * visit($.right).value }
+  div(left, right) { $.value = visit($.left).value / visit($.right).value }
+  literal(-n)      { $.value = $.n.value }
+%}
+
+#begin-rule
+  expr :
+      expr '+' term
+      => add(expr, term)
+      { val[0] + val[2] }
+    | expr '-' term
+      => sub(expr, term)
+      { val[0] - val[2] }
+    | term
+      => term
+      { val[0] }
+  ;
+  term :
+      term '*' fact
+      => mul(term, fact)
+      { val[0] * val[2] }
+    | term '/' fact
+      => div(term, fact)
+      { val[0] / val[2] }
+    | fact
+      => fact
+      { val[0] }
+  ;
+  fact :
+      NUM
+      => literal(NUM)
+      { val[0].value }
+    | '(' expr ')'
+      => expr
+      { val[1].value }
+  ;
+#end-rule
+%%
+
+module TinyCalc
+  class Node
+    def to_s
+      "#{self.class.name}:\n" + attributes.flat_map do |k, v|
+        lines = v.to_s.lines.map(&:rstrip)
+        "  #{k} = #{lines.shift}\n" + lines.map { |j| "  #{j}\n" }.join
+      end.join
+    end
+  end
+end
+
+parser = TinyCalc.create_decorated_parser()
+r, a = parser.parse(ARGF)
+v = TinyCalc::Visitor.new
+puts r
+puts r.accept(v).value
+puts a

data/examples/{sample_calc → tiny_calc}/calc.ast.dr

@@ -1,55 +1,67 @@
-%class TinyCalc
-%extend Lexer ('plugins/lex.rb')
-%extend ASTBuilder ('plugins/ast.rb')
-%decorate @ASTBuilder
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%%
-
-%LEX{
-  /\s+/, /\#.*/ { }
-  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
-  /./           { yield token($&, $&) }
-%}
-
-%AST{
-  Node [value]     { @value = nil }
-  Visitor          { }
-  add(left, right) { $.value = visit($.left).value + visit($.right).value }
-  sub(left, right) { $.value = visit($.left).value - visit($.right).value }
-  mul(left, right) { $.value = visit($.left).value * visit($.right).value }
-  div(left, right) { $.value = visit($.left).value / visit($.right).value }
-  literal(-n)      { $.value = $.n.value }
-%}
-
-#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()
-t, = parser.parse(STDIN)
-v = Visitor.new
-pp t.accept(v).value
-pp t
-
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::ASTBuilder ('depager/plugins/ast.rb')
+%decorate @ASTBuilder
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%%
+
+%LEX{
+  /\s+/, /\#.*/ { }
+  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
+  /./           { yield token($&, $&) }
+%}
+
+%AST{
+  Node [value]     { @value = nil }
+  Visitor          { }
+  add(left, right) { $.value = visit($.left).value + visit($.right).value }
+  sub(left, right) { $.value = visit($.left).value - visit($.right).value }
+  mul(left, right) { $.value = visit($.left).value * visit($.right).value }
+  div(left, right) { $.value = visit($.left).value / visit($.right).value }
+  literal(-n)      { $.value = $.n.value }
+%}
+
+#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
+%%
+
+module TinyCalc
+  class Node
+    def to_s
+      "#{self.class.name}:\n" + attributes.flat_map do |k, v|
+        lines = v.to_s.lines.map(&:rstrip)
+        "  #{k} = #{lines.shift}\n" + lines.map { |j| "  #{j}\n" }.join
+      end.join
+    end
+  end
+end
+
+parser = TinyCalc.create_decorated_parser()
+r, = parser.parse(ARGF)
+v = TinyCalc::Visitor.new
+puts r
+puts r.accept(v).value
+
+

data/examples/tiny_calc/calc.cst.dr

@@ -0,0 +1,50 @@
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::CSTBuilder ('depager/plugins/cst.rb')
+%decorate @CSTBuilder
+%%
+
+%LEX{
+  /\s+/, /\#.*/ { }
+  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
+  /./           { yield token($&, $&) }
+%}
+
+%CST{
+  Node {
+    attr_accessor :value
+    def initialize
+      @value = nil
+    end
+
+    def to_s
+      "#{self.class.name}:\n" + children.flat_map do |i|
+        i.to_s.lines.map { |j| "  #{j.rstrip}\n" }
+      end.join
+    end
+  }
+%}
+
+#begin-rule
+  expr :
+      expr '+' term { $.value = $.expr.value + $.term.value }
+    | expr '-' term { $.value = $.expr.value + $.term.value }
+    | term          { $.value = $.term.value }
+  ;
+  term :
+      term '*' fact { $.value = $.term.value * $.fact.value }
+    | term '/' fact { $.value = $.term.value / $.fact.value }
+    | fact          { $.value = $.fact.value }
+  ;
+  fact :
+      NUM           { $.value = $.num.value }
+    | '(' expr ')'  { $.value = $.expr }
+  ;
+#end-rule
+%%
+
+parser = TinyCalc.create_decorated_parser
+r, = parser.parse(ARGF)
+v = TinyCalc::Visitor.new
+puts r
+puts r.accept(v)

data/examples/{sample_calc → tiny_calc}/calc.dr

@@ -1,43 +1,43 @@
-%class TinyCalc
-%inner{
-  def lex
-    until @file.eof?
-      @line = @file.gets
-      until @line.empty? do
-        case @line
-        when /\A\s+/, /\A\#.*/, /\A\n/
-          #skip blank and comment
-        when /\A[0-9]+/
-          yield :NUM, $&
-        when /\A./
-          yield $&, $&
-        else
-          raise RuntimeError, "must not happen #{line}"
-        end
-        @line = $'
-      end
-    end
-    yield nil, nil
-  end
-%}
-%%
-
-#begin-rule
-  expr :
-      expr '+' term
-    | expr '-' term
-    | term
-  ;
-  term :
-      term '*' fact
-    | term '/' fact
-    | fact
-  ;
-  fact :
-      NUM
-    | '(' expr ')'
-  ;
-#end-rule
-%%
-parser = TinyCalc.new()
-parser.parse(STDIN)
+%class TinyCalc::Parser
+%inner{
+  def lex
+    until @file.eof?
+      @line = @file.gets
+      until @line.empty? do
+        case @line
+        when /\A\s+/, /\A\#.*/, /\A\n/
+          #skip blank and comment
+        when /\A[0-9]+/
+          yield :NUM, $&
+        when /\A./
+          yield $&, $&
+        else
+          raise RuntimeError, "must not happen #{line}"
+        end
+        @line = $'
+      end
+    end
+    yield nil, nil
+  end
+%}
+%%
+
+#begin-rule
+  expr :
+      expr '+' term
+    | expr '-' term
+    | term
+  ;
+  term :
+      term '*' fact
+    | term '/' fact
+    | fact
+  ;
+  fact :
+      NUM
+    | '(' expr ')'
+  ;
+#end-rule
+%%
+parser = TinyCalc.create_decorated_parser()
+parser.parse(ARGF)

data/examples/{sample_calc → tiny_calc}/calc.lex.dr

@@ -1,29 +1,29 @@
-%class TinyCalc
-%extend Lexer ('plugins/lex.rb')
-%%
-
-%LEX{
-  /\s+/, /\#.*/, /\n/  { }
-  /[1-9][0-9]*/        { yield token(:NUM, $&.to_i) }
-  /./                  { yield token($&, $&) }
-%}
-
-#begin-rule
-  expr :
-      expr '+' term
-    | expr '-' term
-    | term
-  ;
-  term :
-      term '*' fact
-    | term '/' fact
-    | fact
-  ;
-  fact :
-      NUM
-    | '(' expr ')'
-  ;
-#end-rule
-%%
-parser = TinyCalc.new()
-parser.parse(STDIN)
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%%
+
+%LEX{
+  /\s+/, /\#.*/, /\n/  { }
+  /[1-9][0-9]*/        { yield token(:NUM, $&.to_i) }
+  /./                  { yield token($&, $&) }
+%}
+
+#begin-rule
+  expr :
+      expr '+' term
+    | expr '-' term
+    | term
+  ;
+  term :
+      term '*' fact
+    | term '/' fact
+    | fact
+  ;
+  fact :
+      NUM
+    | '(' expr ')'
+  ;
+#end-rule
+%%
+parser = TinyCalc.create_decorated_parser()
+parser.parse(ARGF)

data/examples/{sample_calc/calc_prec.nvaction.dr → tiny_calc/calc_prec.action.dr}

@@ -1,31 +1,31 @@
-%class TinyCalc
-%extend Lexer ('plugins/lex.rb')
-%extend NVAction ('plugins/nvaction.rb')
-%decorate @NVAction
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%prec{
-  left '*' '/'
-  left '+' '-'
-%}
-%%
-
-%LEX{
-  /\s+/, /\#.*/ { }
-  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
-  /./           { yield token($&, $&) }
-%}
-
-#begin-rule
-  expr : 
-      expr-left '+' expr-right { _left + _right }
-    | expr-left '-' expr-right { _left - _right }
-    | expr-left '*' expr-right { _left * _right }
-    | expr-left '/' expr-right { _left / _right }
-    | '(' expr ')'  { _expr }
-    | NUM           { _NUM.value }
-  ;
-#end-rule
-%%
-parser = createDecoratedTinyCalc
-r, = parser.parse(STDIN)
-puts r
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::Action ('depager/plugins/action.rb')
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%prec{
+  left '*' '/'
+  left '+' '-'
+%}
+%%
+
+%LEX{
+  /\s+/, /\#.*/ { }
+  /[1-9][0-9]*/ { yield token(:NUM, $&.to_i) }
+  /./           { yield token($&, $&) }
+%}
+
+#begin-rule
+  expr : 
+      expr-left '+' expr-right { _left + _right }
+    | expr-left '-' expr-right { _left - _right }
+    | expr-left '*' expr-right { _left * _right }
+    | expr-left '/' expr-right { _left / _right }
+    | '(' expr ')'  { _expr }
+    | NUM           { _NUM.value }
+  ;
+#end-rule
+%%
+parser = TinyCalc.create_decorated_parser
+r, = parser.parse(ARGF)
+puts r

data/lib/depager/cli.rb

@@ -0,0 +1,44 @@
+require "depager"
+require "depager/version"
+require "optparse"
+
+module Depager
+  class CLI
+    def run(argv)
+      output_file_name = nil
+
+      OptionParser.new do |opt|
+        opt.banner = "Usage: depager [options] [file]"
+        opt.version = Depager::VERSION
+        opt.on("-v", "Enable verbose mode") { Depager.configuration[:verbose] = true }
+        opt.on("-g[FLAGS]", "Enable debug mode") { |v| Depager.configuration[:debug] = v || "sgc" }
+        opt.on("-I DIRECTORY", "Add the directory to $LOAD_PATH") { |v| $LOAD_PATH.unshift(v) }
+        opt.on("-o OUTPUT", "Set the output file name") { |v| output_file_name = v }
+        opt.parse!(argv)
+      end
+
+      d_parser = Depager::DeclarationPartParser.new
+      result   = d_parser.parse(argv[0] ? File.open(argv[0]) : $stdin)
+
+      if output_file_name
+        File.write(output_file_name, result)
+      else
+        $stdout.write result
+      end
+      0
+    rescue Depager::ErrorExit
+      1
+    rescue SystemExit => e
+      e.status
+    rescue Exception => e # rubocop:disable Lint/RescueException
+      warn "#{File.basename $PROGRAM_NAME}: fatal error."
+      warn "| #{e}"
+      warn "| - #{d_parser.input_path}:#{d_parser.file.lineno}" if d_parser
+      warn "| ( #{File.basename $1}:#{$2} )" if e.backtrace[0] =~ /^(.+):(\d+)(:.+)?$/
+      raise if Depager.debug_mode?
+
+      warn "Try -g option if you want to see more error infomation."
+      2
+    end
+  end
+end