develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35016 - trunk/languages/befunge

From:
jquelin
Date:
January 6, 2009 01:01
Subject:
[svn:parrot] r35016 - trunk/languages/befunge
Message ID:
20090106090053.88F79CB9F9@x12.develooper.com
Author: jquelin
Date: Tue Jan  6 01:00:52 2009
New Revision: 35016

Added:
   trunk/languages/befunge/befunge.pir
      - copied, changed from r35014, /trunk/languages/befunge/befunge.pasm
Removed:
   trunk/languages/befunge/befunge.pasm

Log:
beginning return of befunge to a working state


Copied: trunk/languages/befunge/befunge.pir (from r35014, /trunk/languages/befunge/befunge.pasm)
==============================================================================
--- /trunk/languages/befunge/befunge.pasm	(original)
+++ trunk/languages/befunge/befunge.pir	Tue Jan  6 01:00:52 2009
@@ -1,6 +1,6 @@
 # $Id$
-        get_params "(0)", P5    # get @ARGV as a ResizableStringArray
-        branch MAIN
+
+=pod
 
 .include "debug.pasm"
 .include "flow.pasm"
@@ -9,6 +9,16 @@
 .include "maths.pasm"
 .include "stack.pasm"
 
+=cut
+
+.sub "befunge" :main
+
+    print "befunge being ported to a working state...\n"
+
+=pod
+
+        get_params "(0)", P5    # get @ARGV as a ResizableStringArray
+
 MAIN:
         getstdout P10
         pioctl I10, P10, 3, 0   # disable buffering on stdout
@@ -117,6 +127,9 @@
         mod I0, I0, 80
         branch TICK
 
+=cut
+
 MAIN_END:
         end
 
+.end



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