refactor without printerr

fperrad · Jun 14, 2010 · fd67126 · fd67126
1 parent 83982a0
commit fd67126
Show file tree

Hide file tree

Showing 7 changed files with 15 additions and 11 deletions.
diff --git a/wmls2pbc.pir b/wmls2pbc.pir
@@ -18,7 +18,6 @@ wmlsd, wmls2pir, wmlsi
 =cut
 
 .HLL 'wmlscript'
-.loadlib 'io_ops'
 
 .sub 'main' :main
     .param pmc argv
@@ -50,7 +49,9 @@ wmlsd, wmls2pir, wmlsi
   L1:
     end
   USAGE:
-    printerr "Usage: parrot wmls2pbc.pir filename\n"
+    .local pmc stderr
+    stderr = getstderr
+    print stderr, "Usage: parrot wmls2pbc.pir filename\n"
     exit -1
   _handler:
     .local pmc e

diff --git a/wmls2pir.pir b/wmls2pir.pir
@@ -18,7 +18,6 @@ wmlsd, wmls2pbc, wmlsi
 =cut
 
 .HLL 'wmlscript'
-.loadlib 'io_ops'
 
 .sub 'main' :main
     .param pmc argv
@@ -46,7 +45,9 @@ wmlsd, wmls2pbc, wmlsi
   L1:
     end
   USAGE:
-    printerr "Usage: parrot wmls2pir.pir filename\n"
+    .local pmc stderr
+    stderr = getstderr
+    print stderr, "Usage: parrot wmls2pir.pir filename\n"
     exit -1
   _handler:
     .local pmc e

diff --git a/wmlscript/WMLScript.pir b/wmlscript/WMLScript.pir
@@ -2,7 +2,6 @@
 # $Id$
 
 .HLL 'wmlscript'
-.loadlib 'io_ops'
 .loadlib 'wmls_group'
 .loadlib 'wmls_ops'
 

diff --git a/wmlscript/library/wmlsfloat.pir b/wmlscript/library/wmlsfloat.pir
@@ -15,7 +15,6 @@ See "WMLScript Standard Libraries Specification", section 8 "Float".
 =cut
 
 .HLL 'wmlscript'
-.loadlib 'io_ops'
 .loadlib 'wmls_group'
 .loadlib 'wmls_ops'
 .loadlib 'trans_ops'

diff --git a/wmlscript/wmlsstdlibs.pir b/wmlscript/wmlsstdlibs.pir
@@ -138,7 +138,9 @@ helper for CALL_URL* opcodes.
     $S1 = err
     $S0 .= $S1
     $S0 .= ")\n"
-    printerr $S0
+    .local pmc stderr
+    stderr = getstderr
+    print stderr, $S0
     .return ('')
 .end
 

diff --git a/wmlsd.pir b/wmlsd.pir
@@ -18,7 +18,6 @@ parrot-wmlsi
 =cut
 
 .HLL 'wmlscript'
-.loadlib 'io_ops'
 
 .sub 'main' :main
     .param pmc argv
@@ -44,7 +43,9 @@ parrot-wmlsi
   L1:
     end
   USAGE:
-    printerr "Usage: parrot wmlsd.pbc filename\n"
+    .local pmc stderr
+    stderr = getstderr
+    print stderr, "Usage: parrot wmlsd.pbc filename\n"
     exit -1
   _handler:
     .local pmc e

diff --git a/wmlsi.pir b/wmlsi.pir
@@ -19,7 +19,6 @@ parrot-wmlsd
 =cut
 
 .HLL 'wmlscript'
-.loadlib 'io_ops'
 
 .sub 'main' :main
     .param pmc argv
@@ -75,7 +74,9 @@ parrot-wmlsd
   L1:
     end
   USAGE:
-    printerr "Usage: parrot wmlsi.pbc filename entry\n"
+    .local pmc stderr
+    stderr = getstderr
+    print stderr, "Usage: parrot wmlsi.pbc filename entry\n"
     exit -1
   _handler:
     .local pmc e