Data commit

Task/Copy-stdin-to-stdout/00-META.yaml

@@ -0,0 +1,2 @@
+---
+from: http://rosettacode.org/wiki/Copy_stdin_to_stdout

Task/Copy-stdin-to-stdout/00-TASK.txt

@@ -0,0 +1,2 @@
+Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.
+

Task/Copy-stdin-to-stdout/8086-Assembly/copy-stdin-to-stdout.8086

@@ -0,0 +1,22 @@
+READ:	equ	3Fh		; MS-DOS syscalls
+WRITE:	equ	40h
+BUFSZ:	equ	4000h		; Buffer size
+	cpu	8086
+	bits	16
+	org	100h
+section	.text
+read:	mov	ah,READ		; Read into buffer
+	xor	bx,bx		; From STDIN (file 0)
+	mov	cx,BUFSZ
+	mov	dx,buffer
+	int	21h
+	test	ax,ax		; Did we read anything?
+	jz	done		; If not, stop
+	xchg	ax,cx		; Write as many bytes as read
+	mov	ah,WRITE
+	inc	bx		; To STDOUT (file 1)
+	int	21h
+	jmp	read		; Go get more
+done:	ret	
+section	.bss
+buffer:	resb	BUFSZ

Task/Copy-stdin-to-stdout/ALGOL-68/copy-stdin-to-stdout.alg

@@ -0,0 +1,8 @@
+BEGIN
+    BOOL at eof := FALSE;
+    # set the EOF handler for stand in to a procedure that sets "at eof" to true #
+    # and returns true so processing can continue                                #
+    on logical file end( stand in, ( REF FILE f )BOOL: at eof := TRUE );
+    # copy stand in to stand out                                                 #
+    WHILE STRING line; read( ( line, newline ) ); NOT at eof DO write( ( line, newline ) ) OD
+END

Task/Copy-stdin-to-stdout/AWK/copy-stdin-to-stdout.awk

@@ -0,0 +1 @@
+awk "//"

Task/Copy-stdin-to-stdout/Action-/copy-stdin-to-stdout.action

@@ -0,0 +1,9 @@
+PROC Main()
+  CHAR c
+
+  DO
+    c=GetD(7)
+    Put(c)
+  UNTIL c=27 ;repeat until Esc key is pressed
+  OD
+RETURN

Task/Copy-stdin-to-stdout/Ada/copy-stdin-to-stdout.ada

@@ -0,0 +1,11 @@
+with Ada.Text_IO;
+
+procedure Copy_Stdin_To_Stdout is
+   use Ada.Text_IO;
+   C : Character;
+begin
+   while not End_Of_File loop
+      Get_Immediate (C);
+      Put (C);
+   end loop;
+end Copy_Stdin_To_Stdout;

Task/Copy-stdin-to-stdout/Aime/copy-stdin-to-stdout.aime

@@ -0,0 +1,6 @@
+file f;
+data b;
+f.stdin;
+while (f.b_line(b) ^ -1) {
+    o_(b, "\n");
+}

Task/Copy-stdin-to-stdout/Applesoft-BASIC/copy-stdin-to-stdout.basic

@@ -0,0 +1 @@
+0 GET C$ : PRINT C$; : GOTO

Task/Copy-stdin-to-stdout/BCPL/copy-stdin-to-stdout.bcpl

@@ -0,0 +1,7 @@
+get "libhdr"
+
+let start() be
+$(  let c = rdch()
+    if c = endstreamch then finish
+    wrch(c)
+$) repeat

Task/Copy-stdin-to-stdout/Brainf---/copy-stdin-to-stdout.bf

@@ -0,0 +1 @@
+,[.,]

Task/Copy-stdin-to-stdout/C++/copy-stdin-to-stdout-1.cpp

@@ -0,0 +1,13 @@
+#include <iostream>
+#include <iterator>
+
+int main() {
+    using namespace std;
+    noskipws(cin);
+    copy(
+        istream_iterator<char>(cin),
+        istream_iterator<char>(),
+        ostream_iterator<char>(cout)
+    );
+    return 0;
+}

Task/Copy-stdin-to-stdout/C++/copy-stdin-to-stdout-2.cpp

@@ -0,0 +1,5 @@
+#include <iostream>
+
+int main() {
+    std::cout << std::cin.rdbuf();
+}

Task/Copy-stdin-to-stdout/C-sharp/copy-stdin-to-stdout.cs

@@ -0,0 +1,9 @@
+using System;
+
+class Program
+{
+    static void Main(string[] args)
+    {
+        Console.OpenStandardInput().CopyTo(Console.OpenStandardOutput());
+    }
+}

Task/Copy-stdin-to-stdout/C/copy-stdin-to-stdout.c

@@ -0,0 +1,9 @@
+#include <stdio.h>
+
+int main(){
+  char c;
+  while ( (c=getchar()) != EOF ){
+    putchar(c);
+  }
+  return 0;
+}

Task/Copy-stdin-to-stdout/CLU/copy-stdin-to-stdout.clu

@@ -0,0 +1,10 @@
+start_up = proc ()
+    pi: stream := stream$primary_input()
+    po: stream := stream$primary_output()
+
+    while true do
+         stream$putc(po, stream$getc(pi))
+    end except when end_of_file:
+         return
+    end
+end start_up

Task/Copy-stdin-to-stdout/Commodore-BASIC/copy-stdin-to-stdout.basic

@@ -0,0 +1,15 @@
+10 print chr$(147);chr$(14);
+11 print "0:Keyboard  1:Tape  2:RS-232  3:Screen"
+12 print "4-7:printers/plotters"
+13 print "8-11:Disk Drives":print
+14 input "Input device";d1
+15 if d1=1 or d1>=8 then input "Filename for INPUT";i$
+16 input "Output device";d2
+17 if d2=1 or d2>=8 then input "Filename for OUTPUT";o$
+18 print:if d1=0 then print "Begin typing. Press CTRL-Z to end.":print
+20 open 5,d1,5,"0:"+i$+",s,r"
+30 open 2,d2,2,"@0:"+o$+",s,w"
+40 get#5,a$
+50 if (d1=0 and a$=chr$(26)) or (d1>0 and st>0) then close 5:close 2:end
+60 print#2,a$;
+70 goto 40

Task/Copy-stdin-to-stdout/Common-Lisp/copy-stdin-to-stdout.lisp

@@ -0,0 +1,5 @@
+#|Loops while reading and collecting characters from STDIN until EOF (C-Z or C-D)
+Then concatenates the characters into a string|#
+(format t
+  (concatenate 'string
+    (loop for x = (read-char *query-io*) until (or (char= x #\Sub) (char= x #\Eot)) collecting x)))

Task/Copy-stdin-to-stdout/Crystal/copy-stdin-to-stdout.crystal

@@ -0,0 +1,3 @@
+STDIN.each_line do |line|
+  puts line
+end

Task/Copy-stdin-to-stdout/D/copy-stdin-to-stdout.d

@@ -0,0 +1,7 @@
+import std.stdio;
+
+void main() {
+    foreach (line; stdin.byLine) {
+        writeln(line);
+    }
+}

Task/Copy-stdin-to-stdout/Dart/copy-stdin-to-stdout.dart

@@ -0,0 +1,6 @@
+import 'dart:io';
+
+void main() {
+  var line = stdin.readLineSync();
+  stdout.write(line);
+}

Task/Copy-stdin-to-stdout/Draco/copy-stdin-to-stdout.draco

@@ -0,0 +1,22 @@
+\util.g
+
+proc nonrec main() void:
+    char c;
+    while
+        /* I/O is line-oriented, so first read characters
+         * from the current line while that is possible */
+        while read(c) do write(c) od;
+        case ioerror()
+            /* Then once it fails, if the line is empty,
+             * try to go to the next line. */
+            incase CH_MISSING:
+                readln();
+                writeln();
+                true
+            /* If it failed for another reason (which will be
+             * EOF here), stop. */
+            default:
+                false
+        esac
+    do od
+corp

Task/Copy-stdin-to-stdout/F-Sharp/copy-stdin-to-stdout.fs

@@ -0,0 +1,4 @@
+let copy()=let n,g=stdin,stdout
+           let rec fN()=match n.ReadLine() with "EOF"->g.Write "" |i->g.WriteLine i; fN()
+           fN()
+copy()

Task/Copy-stdin-to-stdout/Factor/copy-stdin-to-stdout.factor

@@ -0,0 +1,3 @@
+USING: io kernel ;
+
+[ read1 dup ] [ write1 ] while drop

Task/Copy-stdin-to-stdout/Forth/copy-stdin-to-stdout.fth

@@ -0,0 +1 @@
+stdin slurp-fid type bye

Task/Copy-stdin-to-stdout/FreeBASIC/copy-stdin-to-stdout.basic

@@ -0,0 +1,7 @@
+#define FIN 255  'eof is already a reserved word
+#include "crt/stdio.bi"  'provides the C functions getchar and putchar
+dim as ubyte char
+do
+    char = getchar()
+    if char = FIN then exit do else putchar(char)
+loop

Task/Copy-stdin-to-stdout/Frink/copy-stdin-to-stdout.frink

@@ -0,0 +1 @@
+print[read["-"]]

Task/Copy-stdin-to-stdout/Go/copy-stdin-to-stdout-1.go

@@ -0,0 +1,20 @@
+package main
+
+import (
+    "bufio"
+    "io"
+    "os"
+)
+
+func main() {
+    r := bufio.NewReader(os.Stdin)
+    w := bufio.NewWriter(os.Stdout)
+    for {
+        b, err := r.ReadByte()
+        if err == io.EOF {
+            return
+        }
+        w.WriteByte(b)
+        w.Flush()
+    }
+}

Task/Copy-stdin-to-stdout/Go/copy-stdin-to-stdout-2.go

@@ -0,0 +1,10 @@
+package main
+
+import (
+	"io"
+	"os"
+)
+
+func main() {
+	io.Copy(os.Stdout, os.Stdin)
+}

Task/Copy-stdin-to-stdout/Groovy/copy-stdin-to-stdout.groovy

@@ -0,0 +1,10 @@
+class StdInToStdOut {
+    static void main(args) {
+        try (def reader = System.in.newReader()) {
+            def line
+            while ((line = reader.readLine()) != null) {
+                println line
+            }
+        }
+    }
+}

Task/Copy-stdin-to-stdout/Haskell/copy-stdin-to-stdout.hs

@@ -0,0 +1 @@
+main = interact id

Task/Copy-stdin-to-stdout/Java/copy-stdin-to-stdout.java

@@ -0,0 +1,14 @@
+import java.util.Scanner;
+
+public class CopyStdinToStdout {
+
+    public static void main(String[] args) {
+        try (Scanner scanner = new Scanner(System.in);) {
+            String s;
+            while ( (s = scanner.nextLine()).compareTo("") != 0 ) {
+                System.out.println(s);
+            }
+        }
+    }
+
+}

Task/Copy-stdin-to-stdout/JavaScript/copy-stdin-to-stdout-1.js

@@ -0,0 +1,2 @@
+process.stdin.resume();
+process.stdin.pipe(process.stdout);

Task/Copy-stdin-to-stdout/JavaScript/copy-stdin-to-stdout-2.js

@@ -0,0 +1 @@
+node index.js < index.js

Task/Copy-stdin-to-stdout/Jq/copy-stdin-to-stdout.jq

@@ -0,0 +1 @@
+jq -Rr .

Task/Copy-stdin-to-stdout/Julia/copy-stdin-to-stdout.julia

@@ -0,0 +1,3 @@
+while !eof(stdin)
+    write(stdout, read(stdin, UInt8))
+end

Task/Copy-stdin-to-stdout/Kotlin/copy-stdin-to-stdout.kotlin

@@ -0,0 +1,7 @@
+fun main() {
+    var c: Int
+    do {
+        c = System.`in`.read()
+        System.out.write(c)
+    } while (c >= 0)
+}

Task/Copy-stdin-to-stdout/Latitude/copy-stdin-to-stdout.latitude

@@ -0,0 +1,3 @@
+while { $stdin eof? not. } do {
+  $stdout putln: $stdin readln.
+}.

Task/Copy-stdin-to-stdout/Mercury/copy-stdin-to-stdout.mercury

@@ -0,0 +1,41 @@
+:- module stdin_to_stdout.
+:- interface.
+
+:- import_module io.
+
+:- pred main(io::di, io::uo) is det.
+
+%-----------------------------------------------------------------------------%
+%-----------------------------------------------------------------------------%
+
+:- implementation.
+
+:- import_module char.
+:- import_module list.
+:- import_module string.
+
+%-----------------------------------------------------------------------------%
+
+
+
+main(!IO) :-
+    io.read_line_as_string(Result, !IO),
+    (
+        Result = ok(Line),
+        io.write_string(Line, !IO),
+        main(!IO)
+    ;
+        Result = eof
+    ;
+        Result = error(Error),
+        io.error_message(Error, Message),
+        io.input_stream_name(StreamName, !IO),
+        io.progname("stdin_to_stdout", ProgName, !IO),
+        io.write_strings([
+            ProgName, ": ",
+            "error reading from `", StreamName, "': \n\t",
+            Message, "\n"
+        ], !IO)
+    ).
+
+%-----------------------------------------------------------------------------%

Task/Copy-stdin-to-stdout/Nim/copy-stdin-to-stdout.nim

@@ -0,0 +1 @@
+stdout.write readAll(stdin)

Task/Copy-stdin-to-stdout/OCaml/copy-stdin-to-stdout.ocaml

@@ -0,0 +1,5 @@
+try
+  while true do
+    output_char stdout (input_char stdin)
+  done
+with End_of_file -> ()

Task/Copy-stdin-to-stdout/Ol/copy-stdin-to-stdout.ol

@@ -0,0 +1 @@
+(bytestream->port (port->bytestream stdin) stdout)

Task/Copy-stdin-to-stdout/Pascal/copy-stdin-to-stdout.pas

@@ -0,0 +1,10 @@
+program writeInput(input, output);
+var
+	buffer: char;
+begin
+	while not EOF() do
+	begin
+		read(buffer); // shorthand for read(input, buffer)
+		write(buffer); // shorthand for write(output, buffer)
+	end;
+end.

Task/Copy-stdin-to-stdout/Perl/copy-stdin-to-stdout.pl

@@ -0,0 +1 @@
+perl -pe ''

Task/Copy-stdin-to-stdout/Phix/copy-stdin-to-stdout.phix

@@ -0,0 +1,8 @@
+(notonline)-->
+ <span style="color: #008080;">without</span> <span style="color: #008080;">js</span>
+ <span style="color: #008080;">while</span> <span style="color: #004600;">true</span> <span style="color: #008080;">do</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">=</span><span style="color: #000000;">#1B</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">ch</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+<!--

Task/Copy-stdin-to-stdout/PicoLisp/copy-stdin-to-stdout.l

@@ -0,0 +1 @@
+(in NIL (echo))

Task/Copy-stdin-to-stdout/Prolog/copy-stdin-to-stdout-1.pro

@@ -0,0 +1,8 @@
+%File: stdin_to_stdout.pl
+:- initialization(main).
+
+main :- repeat,
+	get_char(X),
+	put_char(X),
+	X == end_of_file,
+	fail.

Task/Copy-stdin-to-stdout/Prolog/copy-stdin-to-stdout-2.pro

@@ -0,0 +1 @@
+swipl stdin_to_stdout.pl

Task/Copy-stdin-to-stdout/REXX/copy-stdin-to-stdout.rexx

@@ -0,0 +1,6 @@
+/*REXX pgm copies data from STDIN──►STDOUT (default input stream──►default output stream*/
+
+  do while chars()\==0                           /*repeat loop until no more characters.*/
+  call charin  , x                               /*read  a char from the  input stream. */
+  call charout , x                               /*write "   "    "   "   output   "    */
+  end   /*while*/                                /*stick a fork in it,  we're all done. */

Task/Copy-stdin-to-stdout/Racket/copy-stdin-to-stdout.rkt

@@ -0,0 +1,7 @@
+#lang racket
+
+(let loop ()
+  (match (read-char)
+    [(? eof-object?) (void)]
+    [c (display c)
+       (loop)]))

Task/Copy-stdin-to-stdout/Raku/copy-stdin-to-stdout-1.raku

@@ -0,0 +1 @@
+raku -pe'.lines'

Task/Copy-stdin-to-stdout/Raku/copy-stdin-to-stdout-2.raku

@@ -0,0 +1 @@
+.say for lines

Task/Copy-stdin-to-stdout/Ring/copy-stdin-to-stdout.ring

@@ -0,0 +1,2 @@
+? "give input: " give str
+? "output: " + str

Task/Copy-stdin-to-stdout/Ruby/copy-stdin-to-stdout.rb

@@ -0,0 +1 @@
+$stdout << $stdin.gets

Task/Copy-stdin-to-stdout/Rust/copy-stdin-to-stdout.rust

@@ -0,0 +1,5 @@
+use std::io;
+
+fn main() {
+    io::copy(&mut io::stdin().lock(), &mut io::stdout().lock());
+}

Task/Copy-stdin-to-stdout/Scala/copy-stdin-to-stdout-1.scala

@@ -0,0 +1,3 @@
+object CopyStdinToStdout extends App {
+  io.Source.fromInputStream(System.in).getLines().foreach(println)
+}

Task/Copy-stdin-to-stdout/Scala/copy-stdin-to-stdout-2.scala

@@ -0,0 +1 @@
+scala -e "io.Source.fromInputStream(System.in).getLines().foreach(println)"

Task/Copy-stdin-to-stdout/Scheme/copy-stdin-to-stdout.ss

@@ -0,0 +1,3 @@
+(do ((c (read-char) (read-char)))
+    ((eof-object? c) 'done)
+  (display c))

Task/Copy-stdin-to-stdout/Sed/copy-stdin-to-stdout.sed

@@ -0,0 +1 @@
+sed -e ''

Task/Copy-stdin-to-stdout/Seed7/copy-stdin-to-stdout.seed7

@@ -0,0 +1,7 @@
+$ include "seed7_05.s7i";
+  include "fileutil.s7i";
+
+const proc: main is func
+  begin
+    copyFile(IN, OUT);
+  end func;

Task/Copy-stdin-to-stdout/Smalltalk/copy-stdin-to-stdout.st

@@ -0,0 +1,13 @@
+"using Stream class's bulk copy method:"
+Stdin copyToEndInto:Stdout.
+
+"line wise"
+[Stdin atEnd] whileFalse:[ Stdout nextPutLine:(Stdin nextLine) ].
+
+"character wise"
+[Stdin atEnd] whileFalse:[ Stdout nextPut:(Stdin next) ].
+
+"no EOF test, but handle EOF Exception"
+[
+    [ Stdout nextPut:(Stdin next) ] loop.
+] on: StreamError do:[]

Task/Copy-stdin-to-stdout/Standard-ML/copy-stdin-to-stdout.ml

@@ -0,0 +1,6 @@
+fun copyLoop () =
+  case TextIO.input TextIO.stdIn of
+    "" => ()
+  | tx => copyLoop (TextIO.output (TextIO.stdOut, tx))
+
+val () = copyLoop ()

Task/Copy-stdin-to-stdout/Symsyn/copy-stdin-to-stdout.symsyn

@@ -0,0 +1,2 @@
+Loop [] []
+     go Loop

Task/Copy-stdin-to-stdout/Tcl/copy-stdin-to-stdout.tcl

@@ -0,0 +1,4 @@
+package require Tcl 8.5
+
+chan copy stdin stdout
+# fcopy stdin stdout for older versions

Task/Copy-stdin-to-stdout/VBScript/copy-stdin-to-stdout.vb

@@ -0,0 +1,4 @@
+do
+  s=wscript.stdin.readline
+  wscript.stdout.writeline s
+loop until asc(left(s,1))=26

Task/Copy-stdin-to-stdout/Wren/copy-stdin-to-stdout.wren

@@ -0,0 +1,11 @@
+import "io" for Stdin, Stdout
+
+Stdin.isRaw = true // prevents echoing to the terminal
+while (true) {
+    var byte = Stdin.readByte()         // read a byte from stdin
+    if (byte == 13) break               // break when enter key pressed
+    System.write(String.fromByte(byte)) // write the byte (in string form) to stdout
+    Stdout.flush()                      // flush output
+}
+System.print()
+Stdin.isRaw = false

Task/Copy-stdin-to-stdout/XPL0/copy-stdin-to-stdout.xpl0

@@ -0,0 +1,5 @@
+int C;
+loop    [C:= ChIn(1);
+        if C = $1A \EOF\ then quit;
+        ChOut(0, C);
+        ]

Task/Copy-stdin-to-stdout/Zkl/copy-stdin-to-stdout.zkl

@@ -0,0 +1 @@
+zkl --eval "File.stdout.write(File.stdin.read())"