Index: io.ops
===================================================================
RCS file: /cvs/public/parrot/io.ops,v
retrieving revision 1.5
diff -u -r1.5 io.ops
--- io.ops	23 Mar 2002 21:27:01 -0000	1.5
+++ io.ops	23 Mar 2002 23:41:37 -0000
@@ -105,6 +105,10 @@
 
 =item B<puts>(in STR)
 
+=item B<puts>(in INT)
+
+=item B<puts>(in NUM)
+
 Print $1 to standard output stream
 This will go away when print ops are all migrated to
 use ParrotIO instead of STDIO. Right now ParrotIO is
@@ -116,6 +120,24 @@
   if (($1) && string_length($1)) {
     PIO_write(interpreter, PIO_STDOUT(interpreter), ($1)->bufstart,
 			string_length($1));
+  }
+  goto NEXT();
+}
+
+op puts(in INT) {
+  STRING * s = string_from_int(interpreter, $1);
+  if (string_length(s)) {
+    PIO_write(interpreter, PIO_STDOUT(interpreter), s->bufstart,
+			string_length(s));
+  }
+  goto NEXT();
+}
+
+op puts(in NUM) {
+  STRING * s = Parrot_sprintf_c(interpreter, "%Vf", $1);
+  if (string_length(s)) {
+    PIO_write(interpreter, PIO_STDOUT(interpreter), s->bufstart,
+			string_length(s));
   }
   goto NEXT();
 }