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

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

• [svn:parrot] r35016 - trunk/languages/befunge by jquelin