depager 0.2.3 → 0.3.0.b20250423

data/examples/pl0d/test.pl0ds

@@ -1,34 +1,34 @@
-const m = 7, n = 85;
-var x,y;
-
-function puts10(x)
-    var i;
-begin
-    i := 0;
-    while i < 10 do
-      begin
-        write x; writeln;
-        i := i + 1;
-      end;
-    return i
-end;
-
-function fact(x)
-begin
-    write x; writeln;
-    if x = 1 then return 1;
-    return x * fact(x - 1);
-end;
-
-begin
-    x := m; y := n;
-    write x; write y; writeln;
-    x := 84; y := 36; 
-    write x; write y; writeln;
-
-    y := puts10(5);
-    write y; writeln;
-
-    y := fact(5);
-    write y; writeln;
+const m = 7, n = 85;
+var x,y;
+
+function puts10(x)
+    var i;
+begin
+    i := 0;
+    while i < 10 do
+      begin
+        write x; writeln;
+        i := i + 1;
+      end;
+    return i
+end;
+
+function fact(x)
+begin
+    write x; writeln;
+    if x = 0 then return 1;
+    return x * fact(x - 1);
+end;
+
+begin
+    x := m; y := n;
+    write x; write y; writeln;
+    x := 84; y := 36;
+    write x; write y; writeln;
+
+    y := puts10(5);
+    write y; writeln;
+
+    y := fact(5);
+    write y; writeln;
 end.

data/examples/rie_calc/calc.rie.dr

@@ -0,0 +1,57 @@
+%class TinyCalc::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::Rie ('depager/plugins/rie.rb')
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%decorate @Rie
+%%
+
+%LEX{
+  /\s+/, /\#.*/ { }
+  /[A-Za-z]\w*/ { yield token(:ID, $&) }
+  /\d+/         { yield token(:NUMBER, $&.to_i) }
+  /./           { yield token($&, $&) }
+%}
+
+#begin-rule
+  program:
+      vardecl_list expr
+      {
+        %thread env
+        %except vardecl_list._env = { }
+        printf "vars:%s\nresult:%s\n", expr._env.inspect, expr.value
+      }
+  ;
+  vardecl_list [ _env:eq, env ] :
+                           { %thread env }
+    | vardecl_list vardecl { %thread env }
+  ;
+  vardecl [ _env:eq, env] :
+      ID '=' expr ';'
+      {
+        expr._env = $._env
+        $.env = $._env.merge({ ID.value => expr.value })
+        $._env[ ID.value ] and printf "'%s' redefined.\n", ID.value
+      }
+  ;
+  expr [ _env:eq, value ] :
+      expr '+' term   { %transfer _env ; $.value = expr.value + term.value }
+    | expr '-' term   { %transfer _env ; $.value = expr.value - term.value }
+    | term            { %transfer _env, value }
+  ;
+  term [ _env:eq, value ] :
+      term '*' fact   { %transfer _env ; $.value = term.value * fact.value }
+    | term '/' fact   { %transfer _env ; $.value = term.value / fact.value }
+    | fact            { %transfer _env, value }
+  ;
+  fact [ _env:eq, value ] :
+      ID
+      {
+        $.value = $._env[ ID.value ] || 0
+        $._env[ ID.value ] or printf "'%s' undefined.\n", ID.value
+      }
+    | NUMBER          { $.value = NUMBER.value }
+  ;
+#end-rule
+%%
+parser = TinyCalc.create_decorated_parser
+r, = parser.parse(ARGF)

data/examples/rie_calc/test.calc

@@ -0,0 +1,4 @@
+a=10;
+b=20+x;
+a=10;
+a+b

data/examples/rie_dcuse/dcuse.rie.dr

@@ -0,0 +1,71 @@
+%class DcUse::Parser
+%extend Depager::Lexer ('depager/plugins/lex.rb')
+%extend Depager::Rie ('depager/plugins/rie.rb')
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
+%decorate @Rie
+%%
+
+%LEX{
+  /\s+/, /\#.*/  { }
+  /use/          { yield token(:USE) }
+  /dcl /         { yield token(:DCL) }
+  /[A-Za-z_]\w*/ { yield token(:ID, $&) }
+  /./            { yield token($&, $&) }
+%}
+
+#begin-rule
+  program:
+      dclist stlist
+      { stlist._env = dclist.env }
+  ;
+  dclist [ env ] :
+        dc
+      { $.env = newenv([ dc.name ]) }
+    | dclist dc
+      {
+        $.env = dclist.env | [ dc.name ]
+        not dclist.env.include? dc.name or
+        message "redeclaration '%s'.\n", dc.name
+      }
+    ;
+  dc [ name ] :
+      DCL ID ';'
+      { $.name = ID.value }
+  ;
+  stlist [ _env ] :
+        stlist st
+      { %transfer _env }
+    | st
+      { %transfer _env }
+  ;
+  st [ _env ] :
+      USE ID ';'
+      {
+        $._env.include? ID.value or
+        message "not declared '%s'.\n", ID.value
+      }
+  ;
+#end-rule
+%%
+class DcUseEnv
+  def initialize ary
+    @ary = ary
+  end
+  def | ary
+    DcUseEnv.new(@ary | ary)
+  end
+  def include? i
+    @ary.include? i
+  end
+  def inspect
+    "{#{@ary.inspect}}"
+  end
+end
+def newenv *args
+  DcUseEnv.new(*args)
+end
+def message *args
+  printf(*args)
+end
+parser = DcUse.create_decorated_parser
+r, = parser.parse(ARGF)

data/examples/rie_dcuse/test.dcuse

@@ -0,0 +1 @@
+dcl a; dcl b; use a; use b;

data/examples/rie_pl0/orig_ex/exerrdg.pl0

@@ -0,0 +1,44 @@
+const   m=7, n=85
+var     x,y,z,q,r ;
+
+procedure multiply ;
+        var a,b
+begin   a := u ; b := y ; z := 0
+        while b > 0 do
+        begin
+                if odd b do z := z + a ;
+                a := 2a ; b := b/2 ;
+        end
+end ;
+
+procedure divide
+        var w ;
+        const two = 2, three := 3;
+begin r = x ; q := 0 ; w := y ;
+        while w <= r do w := two*w ;
+        while w >  y
+                begin q := ( 2*q ; w := w/2 ) ;
+                        if w <= r then
+                                begin r:= r-w   q := q + 1
+                                end
+                end
+end ;
+
+procedure gcd ;
+        var f,g ;
+begin f := x ; g := y 
+        while f <> g do
+                begin if f < g then g := g-f ;
+                      if g < f then f := f-g ;
+        z := f 
+end ;
+
+begin
+        x :=  m ; y :=  n ; call multiply ;
+        x := 25 ; y :=  3 ; call divide ;
+        x := 84 ; y := 36 ; call gcd ;
+        call x ;  x:= gcd ; gcd = x
+end
+
+
+

data/examples/rie_pl0/orig_ex/exerrm.pl0

@@ -0,0 +1,19 @@
+const m=7,n=85;
+var x,y,z;
+
+  procedure multiply;
+    var a,b;
+    begin
+      a:=u; b=y; z:=0;
+      while b>0 do
+        begin
+          if odd b then z:=z+a;
+          a:=2*a; b:=b/2;
+        end
+    end;
+
+begin
+  x:=m; y:=n; call multiply;
+  call x;
+  x:=multiply; multiply:=x
+end.

data/examples/rie_pl0/orig_ex/exerrmre.pl0

@@ -0,0 +1,20 @@
+const m=7,n=85,m=7;
+var x,y,z,x;
+
+  procedure multiply;
+     var a,b;
+    begin
+      a:=x; b:=y; z:=0;
+      while b>0 do
+        begin
+          if odd b then z:=z+a;
+          a:=2048*a; b:=b/2;
+        end
+    end;
+  procedure multiply;
+
+begin
+  x:=m; y:=n; call multiply;
+  call x;
+  x:=multiply; multiply:=x
+end.

data/examples/rie_pl0/orig_ex/exerrtok.pl0

@@ -0,0 +1,18 @@
+const m=7,n=85;
+var x,y,z;
+
+  procedure multiply;
+    var a,b;
+    begin
+      a:=x; b:=y; z:=0;
+      while b>0 do
+        begin
+          if odd b then z:=z+a;
+          a:=2*a; b:=b/2;
+        end
+    end;
+
+begin
+  @x := 0 ; x:=m; y:=n; call multiply;
+  !write(x); writeln(y); writeln(z)
+end.

data/examples/rie_pl0/orig_ex/exmdg.pl0

@@ -0,0 +1,40 @@
+const   m=7, n=85 ;
+var     x,y,z,q,r ;
+
+procedure multiply ;
+        var a,b ;
+begin   a := x ; b := y ; z := 0 ;
+        while b > 0 do
+        begin
+                if odd b then z := z + a ;
+                a := 2*a ; b := b/2 ;
+        end
+end ;
+
+procedure divide ;
+        var w ;
+begin r := x ; q := 0 ; w := y ;
+        while w <= r do w := 2*w ;
+        while w >  y do
+                begin q := 2*q ; w := w/2 ;
+                        if w <= r then
+                                begin r:= r-w ; q := q + 1
+                                end
+                end
+end ;
+
+procedure gcd ;
+        var f,g ;
+begin f := x ; g := y ;
+        while f <> g do
+                begin if f < g then g := g-f ;
+                      if g < f then f := f-g ;
+                end ;
+        z := f
+end ;
+
+begin
+        x :=  m ; y :=  n ; call multiply ;
+        x := 25 ; y :=  3 ; call divide ;
+        x := 84 ; y := 36 ; call gcd ;
+end .

data/examples/rie_pl0/orig_ex/exmdgwwl.pl0

@@ -0,0 +1,43 @@
+const   m=7, n=85 ;
+var     x,y,z,q,r ;
+
+procedure multiply ;
+        var a,b ;
+begin   a := x ; b := y ; z := 0 ;
+        while b > 0 do
+        begin
+                if odd b then z := z + a ;
+                a := 2*a ; b := b/2 ;
+        end
+end ;
+
+procedure divide ;
+        var w ;
+begin r := x ; q := 0 ; w := y ;
+        while w <= r do w := 2*w ;
+        while w >  y do
+                begin q := 2*q ; w := w/2 ;
+                        if w <= r then
+                                begin r:= r-w ; q := q + 1
+                                end
+                end
+end ;
+
+procedure gcd ;
+        var f,g ;
+begin f := x ; g := y ;
+        while f <> g do
+                begin if f < g then g := g-f ;
+                      if g < f then f := f-g ;
+                end ;
+        z := f
+end ;
+
+begin
+        x :=  m ; y :=  n ; call multiply ; 
+        write(x) ; write(y) ; write(z) ; writeln ;
+        x := 25 ; y :=  3 ; call divide ; 
+        write(x) ; write(y) ; write(q) ; write(r) ; writeln ;
+        x := 84 ; y := 36 ; call gcd ; 
+        write(x) ; write(y) ; write(z) ; writeln 
+end .

data/examples/rie_pl0/orig_ex/exmrw.pl0

@@ -0,0 +1,22 @@
+var x,y,z;
+
+  procedure multiply;
+     var a,b;
+    begin
+      a:=x; b:=y; z:=0;
+      while b>0 do
+        begin
+          if odd b then z:=z+a;
+          a:=2*a; b:=b/2;
+        end
+    end;
+
+begin
+  read(x);
+  while x<>0 do
+    begin
+      read(y); call multiply;
+      write( x ); write( y ); writeln( z );
+      read(x)
+    end 
+end.

data/examples/rie_pl0/orig_ex/exmwwl.pl0

@@ -0,0 +1,18 @@
+const m=7,n=85;
+var x,y,z;
+
+  procedure multiply;
+    var a,b;
+    begin
+      a:=x; b:=y; z:=0;
+      while b>0 do
+        begin
+          if odd b then z:=z+a;
+          a:=2*a; b:=b/2;
+        end
+    end;
+
+begin
+  x:=m; y:=n; call multiply;
+  write(x); writeln(y); writeln(z)
+end.

data/examples/rie_pl0/orig_ex/exnorw.pl0

@@ -0,0 +1,17 @@
+const m=7,n=85;
+var x,y,z,q,r;
+
+  procedure multiply;
+     var a,b;
+    begin
+      a:=x; b:=y; z:=0;
+      while b>0 do
+        begin
+          if odd b then z:=z+a;
+          a:=2*a; b:=b/2;
+        end
+    end;
+
+begin
+  x:=m; y:=n; call multiply;
+end.