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

[svn:parrot] r34331 - in trunk/languages: . lazy-k

From:
bernhard
Date:
December 24, 2008 04:08
Subject:
[svn:parrot] r34331 - in trunk/languages: . lazy-k
Message ID:
20081224120819.48615CBA12@x12.develooper.com
Author: bernhard
Date: Wed Dec 24 04:08:18 2008
New Revision: 34331

Modified:
   trunk/languages/LANGUAGES_STATUS.pod
   trunk/languages/lazy-k/lazy.pir

Log:
[lazy-k] Make it compile again. But no output is printed.


Modified: trunk/languages/LANGUAGES_STATUS.pod
==============================================================================
--- trunk/languages/LANGUAGES_STATUS.pod	(original)
+++ trunk/languages/LANGUAGES_STATUS.pod	Wed Dec 24 04:08:18 2008
@@ -513,7 +513,9 @@
 
 =item Status
 
-Working, but not complete. Part of languages smoke testing.
+Broken with Parrot 0.8.2.devel.
+Not complete.
+Part of languages smoke testing.
 A new maintainer is sought.
 
 =item Last verified with parrot version

Modified: trunk/languages/lazy-k/lazy.pir
==============================================================================
--- trunk/languages/lazy-k/lazy.pir	(original)
+++ trunk/languages/lazy-k/lazy.pir	Wed Dec 24 04:08:18 2008
@@ -61,7 +61,7 @@
     .local pmc prog, e
 
     create_globals()
-    e = global "I"
+    e = get_global "I"
     prog = parse(in)
     ## _dumper( prog, "prog" )
     e = append(e, prog)
@@ -112,8 +112,8 @@
     .param pmc church
 
     .local pmc e, Zero, Inc, result
-    Inc = global "Inc"
-    Zero = global "Zero"
+    Inc = get_global "Inc"
+    Zero = get_global "Zero"
     e = new_apply(church, Inc)
     e = new_apply(e, Zero)
     result = eval(e)
@@ -129,7 +129,7 @@
 .sub car
     .param pmc list
     .local pmc k
-    k = global "K"
+    k = get_global "K"
     .tailcall new_apply(list, k)
 .end
 
@@ -137,7 +137,7 @@
 .sub cdr
     .param pmc list
     .local pmc ki
-    ki = global "KI"
+    ki = get_global "KI"
     .tailcall new_apply(list, ki)
 .end
 
@@ -147,36 +147,36 @@
     .local pmc e, NUL, K, S, KS, I, KI
     null NUL
     K = new_expr(expK, NUL, NUL)
-    global "K" = K
+    set_global "K", K
     S = new_expr(expS, NUL, NUL)
-    global "S" = S
+    set_global "S", S
     I = new_expr(expI, NUL, NUL)
-    global "I" = I
+    set_global "I", I
     KI = new_expr(expK1, I, NUL)
-    global "KI" = KI
+    set_global "KI", KI
     e = new_expr(expS1, I, NUL)
-    global "SI" = e
+    set_global "SI", e
     KS = new_expr(expK1, S, NUL)
-    global "KS" = KS
+    set_global "KS", KS
     e = new_expr(expK1, K, NUL)
-    global "KK" = e
+    set_global "KK", e
     e = new_expr(expS2, KS, K)
-    global "SKSK" = e
+    set_global "SKSK", e
     e = new_expr(expS2, I, KS)
-    global "SIKS" = e
+    set_global "SIKS", e
 
     e = new_expr(expInc, NUL, NUL)
-    global "Inc" = e
+    set_global "Inc", e
     $P0 = new 'Integer'
     e = new_expr(expNum, $P0, NUL)
-    global "Zero" = e
+    set_global "Zero", e
 
     .local pmc cache
     cache = new 'FixedPMCArray'
     cache = 257
     cache[0] = KI
     cache[1] = I
-    global "church_cache" = cache
+    set_global "church_cache", cache
 
 .end
 
@@ -212,9 +212,9 @@
     .local string ch
     .local pmc op, arg, NUL
     .local pmc I, K, S
-    I = global "I"
-    K = global "K"
-    S = global "S"
+    I = get_global "I"
+    K = get_global "K"
+    S = get_global "S"
     null NUL
 loop:
     ch = read io, 1
@@ -271,7 +271,7 @@
     .param int i
 
     .local pmc cached, e
-    cached = global "church_cache"
+    cached = get_global "church_cache"
     if i < 0 goto i256
     if i > 256 goto i256
     goto ok
@@ -281,7 +281,7 @@
     e = cached[i]
     unless_null e,  ret
 	.local pmc sksk, e, cm1
-	sksk = global "SKSK"
+	sksk = get_global "SKSK"
 	$I0 = i - 1
 	cm1 = int2church($I0)
 	e = new_expr(expS2, sksk, cm1)
@@ -361,7 +361,7 @@
 	$I0 = ord s
     eof:
 	cc = int2church($I0)
-	i = global "I"
+	i = get_global "I"
 	k1c = new_expr(expK1, cc, NUL)
 	s2ik1 = new_expr(expS2, i, k1c)
 	lhs[1] = s2ik1



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