develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r32600 - in trunk/languages: . unlambda

From:
bernhard
Date:
November 13, 2008 02:43
Subject:
[svn:parrot] r32600 - in trunk/languages: . unlambda
Message ID:
20081113104301.8258ECB9AF@x12.develooper.com
Author: bernhard
Date: Thu Nov 13 02:43:00 2008
New Revision: 32600

Modified:
   trunk/languages/LANGUAGES_STATUS.pod
   trunk/languages/unlambda/MAINTAINER
   trunk/languages/unlambda/unl.pir

Log:
[unlambda] Adapt to recent changes.
Note that a maintainer is sought.


Modified: trunk/languages/LANGUAGES_STATUS.pod
==============================================================================
--- trunk/languages/LANGUAGES_STATUS.pod	(original)
+++ trunk/languages/LANGUAGES_STATUS.pod	Thu Nov 13 02:43:00 2008
@@ -1075,10 +1075,11 @@
 =item Status
 
 Working. Part of languages smoke testing.
+A new maintainer is sought.
 
 =item Last verified with parrot version
 
-0.7.1
+0.8.0
 
 =item Location
 

Modified: trunk/languages/unlambda/MAINTAINER
==============================================================================
--- trunk/languages/unlambda/MAINTAINER	(original)
+++ trunk/languages/unlambda/MAINTAINER	Thu Nov 13 02:43:00 2008
@@ -2,3 +2,5 @@
 
 N: Leopold Toetsch
 E: lt@toetsch.at
+
+A new maintainer is sought.

Modified: trunk/languages/unlambda/unl.pir
==============================================================================
--- trunk/languages/unlambda/unl.pir	(original)
+++ trunk/languages/unlambda/unl.pir	Thu Nov 13 02:43:00 2008
@@ -40,7 +40,7 @@
     $P0 = getinterp
     $P0."recursion_limit"(50000)
     prog = parse(in)
-    cchar = new .String
+    cchar = new 'String'
     global "cchar" = cchar
     # _dumper( prog, "prog" )
     ev(prog)
@@ -54,15 +54,15 @@
 
     .local string ch
     .local pmc op, arg, pair
-    .const .Sub i  = "i"
-    .const .Sub k  = "k"
-    .const .Sub s  = "s"
-    .const .Sub c  = "c"
-    .const .Sub d  = "d"
-    .const .Sub v  = "v"
-    .const .Sub e  = "e"
-    .const .Sub rd  = "rd"
-    .const .Sub pc  = "pc"
+    .const 'Sub' i  = "i"
+    .const 'Sub' k  = "k"
+    .const 'Sub' s  = "s"
+    .const 'Sub' c  = "c"
+    .const 'Sub' d  = "d"
+    .const 'Sub' v  = "v"
+    .const 'Sub' e  = "e"
+    .const 'Sub' rd  = "rd"
+    .const 'Sub' pc  = "pc"
 loop:
     ch = read io, 1
     unless ch == '`' goto not_bq
@@ -76,9 +76,9 @@
 not_bq:
     unless ch == '.' goto not_dot
 	$S0 = read io, 1
-	arg = new .String
+	arg = new 'String'
 	arg = $S0
-	.return clos_pr(arg)
+	.tailcall clos_pr(arg)
 not_dot:
     unless ch == '@' goto not_rd
 	.return (rd)
@@ -88,14 +88,14 @@
 not_pc:
     unless ch == '?' goto not_rc
 	$S0 = read io, 1
-	arg = new .String
+	arg = new 'String'
 	arg = $S0
-	.return clos_rc(arg)
+	.tailcall clos_rc(arg)
 not_rc:
     unless ch == 'r' goto not_r
-	arg = new .String
+	arg = new 'String'
 	arg = "\n"
-	.return clos_pr(arg)
+	.tailcall clos_pr(arg)
 not_r:
     unless ch == 'i' goto not_i
 	.return (i)
@@ -137,8 +137,8 @@
 # debugging helper
 .sub unparse
     .param pmc exp
-    $I0 = typeof exp
-    unless $I0 == .FixedPMCArray goto no_ar
+    $I0 = isa exp, 'FixedPMCArray'
+    unless $I0 goto no_ar
 	$I1 = elements exp
 	if $I1 != 2 goto no_ar
 	.local pmc car, cdr
@@ -166,12 +166,12 @@
 .sub ev
     .param pmc exp
     ## unparse_all(exp)
-    $I0 = typeof exp
-    unless $I0 == .FixedPMCArray goto no_ar
+    $I0 = isa exp, 'FixedPMCArray'
+    unless $I0 goto no_ar
 	$I1 = elements exp
 	if $I1 != 2 goto no_pair
 	.local pmc car, cdr, op, arg
-	.const .Sub d  = "d"
+	.const 'Sub' d  = "d"
 	car = exp[0]
 	cdr = exp[1]
 	# this is tricky - we have to apply car
@@ -179,11 +179,11 @@
 	# else this doesn't play together with call/cc
 	op = ev(car)
 	if car != d goto not_d
-	.return clos_d1(cdr)
+	.tailcall clos_d1(cdr)
 
     not_d:
 	arg = ev(cdr)
-	.return op(arg)
+	.tailcall op(arg)
 no_ar:
     .return (exp)
 no_pair:
@@ -199,7 +199,7 @@
     .param pmc arg
     .local pmc cl
     .lex 'x', arg
-    .const .Sub pr = "pr"
+    .const 'Sub' pr = "pr"
     cl = newclosure pr
     .return (cl)
 .end
@@ -223,15 +223,15 @@
 # k constant generator
 .sub k
     .param pmc arg
-    .const .Sub k1  = "k1"
-    .return clos_k1(arg)
+    .const 'Sub' k1  = "k1"
+    .tailcall clos_k1(arg)
 .end
 
 .sub clos_k1
     .param pmc arg
     .local pmc cl
     .lex 'x', arg
-    .const .Sub k1 = "k1"
+    .const 'Sub' k1 = "k1"
     cl = newclosure k1
     .return (cl)
 .end
@@ -247,14 +247,14 @@
 # s substitution
 .sub s
     .param pmc arg
-    .return clos_s1("x", arg)
+    .tailcall clos_s1("x", arg)
 .end
 
 .sub clos_s1
     .param pmc arg
     .local pmc cl
     .lex 'x', arg
-    .const .Sub s1 = "s1"
+    .const 'Sub' s1 = "s1"
     cl = newclosure s1
     .return (cl)
 .end
@@ -264,7 +264,7 @@
     .param pmc arg
     .local pmc x
     x = find_lex 'x'
-    .return clos_s2(x, arg)
+    .tailcall clos_s2(x, arg)
 .end
 
 #
@@ -276,7 +276,7 @@
     .local pmc cl
     .lex 'x', arg
     .lex 'y', arg2
-    .const .Sub s2 = "s2"
+    .const 'Sub' s2 = "s2"
     cl = newclosure s2
     .return (cl)
 .end
@@ -289,7 +289,7 @@
     y = find_lex 'y'
     f1 = x(z)
     f2 = y(z)
-    .return f1(f2)
+    .tailcall f1(f2)
 .end
 
 .include "interpinfo.pasm"
@@ -307,16 +307,16 @@
     .param pmc x
     .local pmc cc, c1
     cc = interpinfo .INTERPINFO_CURRENT_CONT
-    .const .Sub c1 = "c1"
+    .const 'Sub' c1 = "c1"
     cc = clos_c1(cc)
-    .return x(cc)
+    .tailcall x(cc)
 .end
 
 .sub clos_c1
     .param pmc arg
     .local pmc cl
     .lex 'cc', arg
-    .const .Sub c1 = "c1"
+    .const 'Sub' c1 = "c1"
     cl = newclosure c1
     .return (cl)
 .end
@@ -341,7 +341,7 @@
     .param pmc arg
     .local pmc cl
     .lex 'F', arg
-    .const .Sub d1 = "d1"
+    .const 'Sub' d1 = "d1"
     cl = newclosure d1
     .return (cl)
 .end
@@ -352,7 +352,7 @@
     .local pmc x, f
     f = find_lex 'F'
     x = ev(f)
-    .return x(y)
+    .tailcall x(y)
 .end
 
 # e exit
@@ -374,18 +374,18 @@
     cchar = global "cchar"
     cchar = ch
     if ch == '' goto void
-       .const .Sub i = "i"
-       .return x(i)
+       .const 'Sub' i = "i"
+       .tailcall x(i)
 void:
-       .const .Sub v = "v"
-       .return x(v)
+       .const 'Sub' v = "v"
+       .tailcall x(v)
 .end
 
 .sub clos_rc
     .param pmc arg
     .local pmc cl
     .lex 'ch', arg
-    .const .Sub rc = "rc"
+    .const 'Sub' rc = "rc"
     cl = newclosure rc
     .return (cl)
 .end
@@ -398,14 +398,14 @@
     cchar = global "cchar"
     ch = cchar
     if ch == '' goto void
-       .const .Sub i = "i"
+       .const 'Sub' i = "i"
        $P0 = find_lex "ch"
        $S0 = $P0
        if $S0 != ch goto void
-       .return x(i)
+       .tailcall x(i)
 void:
-       .const .Sub v = "v"
-       .return x(v)
+       .const 'Sub' v = "v"
+       .tailcall x(v)
 .end
 
 # | reprint character read
@@ -418,10 +418,10 @@
     if ch == '' goto void
 	s = clone cchar
         p = clos_pr(s)
-        .return x(p)
+        .tailcall x(p)
 void:
-        .const .Sub v = "v"
-        .return x(v)
+        .const 'Sub' v = "v"
+        .tailcall x(v)
 .end
 
 .include "library/dumper.pir"



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About