Copy stdin to stdout: Difference between revisions
Add BCPL
Not a robot (talk | contribs) (Add BCPL) |
|||
Line 64:
Using the awk interpreter, the following command uses the pattern // (which matches anything) with the default action (which is to print the current line) and so copy lines from stdin to stdut.
<lang AWK>awk "//"</lang>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let start() be
$( let c = rdch()
if c = endstreamch then finish
wrch(c)
$) repeat</lang>
=={{header|C}}==
| |||