Implement prompt built-in.

rakudo · Feb 13, 2009 · 1ac6625 · 1ac6625
1 parent 0f87695
commit 1ac6625
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/builtins/io.pir b/src/builtins/io.pir
@@ -148,6 +148,19 @@ It is an error to use bare C<unlink> without arguments.
 .end
 
 
+=item prompt
+
+Shows the supplied message and then waits for input from $*IN.
+
+=cut
+
+.sub 'prompt'
+    .param string prompt
+    'print'(prompt)
+    $P0 = get_hll_global "$IN"
+    .tailcall $P0.'readline'()
+.end
+
 =back
 
 =cut