Input loop: Difference between revisions
Content added Content deleted
(Add SmallBASIC) |
(Added OmniMark solution) |
||
Line 2,461: | Line 2,461: | ||
<syntaxhighlight lang="oforth">: readFile(filename) File new(filename) apply(#println) ; </syntaxhighlight> |
<syntaxhighlight lang="oforth">: readFile(filename) File new(filename) apply(#println) ; </syntaxhighlight> |
||
=={{header|OmniMark}}== |
|||
This OmniMark script will output the file text.txt verbatim, reading it one line at a time: |
|||
<syntaxhighlight lang="omnimark"> |
|||
;command line: omnimark -sb Input-loop.xom text.txt |
|||
process |
|||
repeat scan file #args |
|||
match any-text+ => line white-space |
|||
output '%x(line)%n' |
|||
again |
|||
</syntaxhighlight> |
|||
That would be less common than using #main-input and find rule(s), noting the following effectively produces the same result: |
|||
<syntaxhighlight lang="omnimark"> |
|||
;command line: omnimark -sb Input-loop.xom text.txt |
|||
process |
|||
submit #main-input |
|||
find any-text+ => line |
|||
output line |
|||
</syntaxhighlight> |
|||
=={{header|Oz}}== |
=={{header|Oz}}== |