Data update

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

@@ -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/Batch-File/copy-stdin-to-stdout-1.bat

@@ -0,0 +1 @@
+findstr ^^

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-2.bat

@@ -0,0 +1 @@
+findstr "^"

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-3.bat

@@ -0,0 +1 @@
+findstr $

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-4.bat

@@ -0,0 +1 @@
+find/v ""

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-5.bat

@@ -0,0 +1 @@
+more

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-6.bat

@@ -0,0 +1 @@
+copy con[:] con[:]

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-7.bat

@@ -0,0 +1 @@
+type con[:]

Task/Copy-stdin-to-stdout/Batch-File/copy-stdin-to-stdout-8.bat

@@ -0,0 +1,2 @@
+@setlocal enabledelayedexpansion
+@<con (for /l %%# in (0 0 1) do @set/p input=&echo:!input!)

Task/Copy-stdin-to-stdout/Fortran/copy-stdin-to-stdout-1.f

@@ -0,0 +1,20 @@
+! Copy stdin to stdout
+! tested with GNU Fortran (Ubuntu 15.2.0-4ubuntu4) 15.2.0   on Kubuntu 25.10
+!             uses non-standard function fget and gput, both are available in gfortran only.
+! ------------------------------------------------------------------------------------------
+!
+program cp
+
+implicit none
+
+character :: c                              ! The chcaracter to read
+integer :: ios                              ! IO Status
+
+
+do
+  ios = fget (c)          ! gfortran only
+  if (ios .ne. 0) exit
+  call fput(c)            ! gfortran only
+end do
+
+end program cp

Task/Copy-stdin-to-stdout/Fortran/copy-stdin-to-stdout-2.f

@@ -0,0 +1,20 @@
+! Copy stdin to stdout
+! tested with Intel ifx (IFX) 2025.2.1 20250806             on Kubuntu 25.10
+!
+! can also be compiled with gfortran but fails at run-time because it cannot change the access parameter
+! -------------------------------------------------------------------------------------------------------
+!
+program cp
+character :: c
+integer:: ios
+
+open (unit=5, form='unformatted', access='stream', action ='read')
+open (unit=6, form='unformatted', access='stream', action ='write')
+
+do
+  read (5, iostat=ios) c
+  if (ios .ne. 0) exit
+  write (6) c
+end do
+
+end program cp

Task/Copy-stdin-to-stdout/Icon/copy-stdin-to-stdout.icon

@@ -0,0 +1,3 @@
+procedure main()
+   every write(!&input)
+end

Task/Copy-stdin-to-stdout/Oberon-07/copy-stdin-to-stdout.oberon

@@ -0,0 +1,10 @@
+MODULE CopyStdinToStdout;
+    IMPORT In, Out;
+    VAR    c : CHAR;
+BEGIN
+    In.Char( c );
+    WHILE In.Done DO
+        Out.Char( c );
+        In.Char( c )
+    END
+END CopyStdinToStdout.

Task/Copy-stdin-to-stdout/UNIX-Shell/copy-stdin-to-stdout-1.sh

@@ -0,0 +1 @@
+cat

Task/Copy-stdin-to-stdout/UNIX-Shell/copy-stdin-to-stdout-2.sh

@@ -0,0 +1,11 @@
+NAME
+   cat - concatenate files and print on the standard output
+
+SYNOPSIS
+   cat [OPTION]... [FILE]...
+
+DESCRIPTION
+   Concatenate FILE(s) to standard output.
+   :
+   With no FILE(s), or when FILE is -, read standard input.
+   :

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

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