Sync

Task/Include-a-file/ALGOL-68/include-a-file-1.alg

@@ -0,0 +1 @@
+PR read "file.a68" PR

Task/Include-a-file/ALGOL-68/include-a-file-2.alg

@@ -0,0 +1,6 @@
+# -*- coding: utf-8 -*- #
+BEGIN
+# Exception setup code: #
+  on value error(stand out, (REF FILE f)BOOL: GOTO value error not mended);
+# Block setup code: #
+  printf(($"Prelude test:"l$))

Task/Include-a-file/ALGOL-68/include-a-file-3.alg

@@ -0,0 +1,7 @@
+# -*- coding: utf-8 -*- #
+# Block teardown code:  #
+  printf(($"Postlude test."l$))
+EXIT
+# Exception code: #
+  value error not mended: SKIP
+END

Task/Include-a-file/ALGOL-68/include-a-file-4.alg

@@ -0,0 +1,6 @@
+#!/usr/bin/a68g --script #
+# -*- coding: utf-8 -*- #
+
+PR read "prelude/test.a68" PR;
+printf($4x"Hello, world!"l$);
+PR read "postlude/test.a68" PR

Task/Include-a-file/ALGOL-68/include-a-file-5.alg

@@ -0,0 +1,9 @@
+BEGIN
+   INT dim = 3; # a constant #
+   INT a number := 120; # a variable #
+   ENVIRON EXAMPLE1;
+   MODE MATRIX = [dim, dim]REAL; # a type definition #
+   MATRIX m1;
+   a number := ENVIRON EXAMPLE2;
+   print((a number))
+END

Task/Include-a-file/ALGOL-68/include-a-file-6.alg

@@ -0,0 +1,8 @@
+USING EXAMPLE2 FROM "mylib"
+BEGIN
+  MATRIX m2; # example only #
+  print((a number)); # declared in mylib.a68 #
+  print((2 UPB m1)); # also declared in mylib.a68 #
+  ENVIRON EXAMPLE3;  # ENVIRONs can be nested #
+  666
+END

Task/Include-a-file/AWK/include-a-file-3.awk

@@ -0,0 +1 @@
+@include "filename.awk"

Task/Include-a-file/Applesoft-BASIC/include-a-file-1.applesoft

@@ -0,0 +1,5 @@
+ 10  REMPROGRAM TWO
+ 20  DEF  FN A(X) = X * Y
+ 30  PRINT  FN A(2)
+
+SAVE PROGRAM TWO

Task/Include-a-file/Applesoft-BASIC/include-a-file-2.applesoft

@@ -0,0 +1,10 @@
+ 10  REMPROGRAM ONE
+ 20 Y = 6
+ 30  DEF  FN A(X) = X * Y
+ 40  PRINT  FN A(2)
+ 50 D$ =  CHR$ (4)
+ 60  PRINT D$"BLOADCHAIN,A520"
+ 70  CALL 520"PROGRAM TWO"
+
+SAVE PROGRAM ONE
+RUN

Task/Include-a-file/Bracmat/include-a-file.bracmat

@@ -0,0 +1 @@
+get$"<i>module</i>"

Task/Include-a-file/COBOL/include-a-file.cobol

@@ -0,0 +1,4 @@
+COPY "copy.cpy". *> The full stop is mandatory, wherever the COPY is.
+COPY "another-copy.cpy" REPLACING foo BY bar
+                                  SPACE BY ZERO
+                                  ==text to replace== BY ==replacement text==.

Task/Include-a-file/Deja-Vu/include-a-file.djv

@@ -0,0 +1,5 @@
+#with the module system:
+!import!foo
+
+#passing a file name (only works with compiled bytecode files):
+!run-file "/path/file.vu"

Task/Include-a-file/Gnuplot/include-a-file-1.gnuplot

@@ -0,0 +1 @@
+load "filename.gnuplot"

Task/Include-a-file/Gnuplot/include-a-file-2.gnuplot

@@ -0,0 +1 @@
+load "-"         # read standard input

Task/Include-a-file/Gnuplot/include-a-file-3.gnuplot

@@ -0,0 +1,2 @@
+load "< myprogram"       # run myprogram, read its output
+load "< echo print 123"

Task/Include-a-file/Gnuplot/include-a-file-4.gnuplot

@@ -0,0 +1 @@
+call "filename.gnuplot" 123 456 "arg3"

Task/Include-a-file/Nemerle/include-a-file-1.nemerle

@@ -0,0 +1 @@
+using System.Console;

Task/Include-a-file/Nemerle/include-a-file-2.nemerle

@@ -0,0 +1,4 @@
+public partial class Foo : Bar // all parts of a partial class must have same access modifier;
+{                              // the class that a partial class inherits from only needs to
+...                            // be specified in one location
+}

Task/Include-a-file/UNIX-Shell/include-a-file-3.sh

@@ -0,0 +1,2 @@
+. myfile.sh
+source myfile.sh