Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: gsoc_nci
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (16 sloc) 0.289 kb
.loadlib 'io_ops'
.sub 'foo'
.param pmc bar
say bar
.end
.sub 'main' :main
$I0 = 123.0
$S0 = $I0
$S0 .= 'bar'
$P0 = getstdin
readstuff:
$S1 = $P0.'readline_interactive'('Please enter "foo": ')
ne $S1, 'foo', readstuff
'foo'($S0)
.return(0)
.end
Jump to Line
Something went wrong with that request. Please try again.