summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cftests
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/cftests')
-rw-r--r--Build/source/texk/web2c/cftests/cftest.ch7
-rw-r--r--Build/source/texk/web2c/cftests/cftest.p2
-rw-r--r--Build/source/texk/web2c/cftests/cftest.web15
-rw-r--r--Build/source/texk/web2c/cftests/lcftest.p2
-rw-r--r--Build/source/texk/web2c/cftests/ocftest.p2
5 files changed, 28 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/cftests/cftest.ch b/Build/source/texk/web2c/cftests/cftest.ch
new file mode 100644
index 00000000000..220bf25a756
--- /dev/null
+++ b/Build/source/texk/web2c/cftests/cftest.ch
@@ -0,0 +1,7 @@
+% Replace seven_bits by eight_bits.
+
+@x
+@!seven_bits=0..127; {seven-bit numbers, a subrange of the integers}
+@y
+@!eight_bits=0..255; {eight-bit numbers, a subrange of the integers}
+@z
diff --git a/Build/source/texk/web2c/cftests/cftest.p b/Build/source/texk/web2c/cftests/cftest.p
new file mode 100644
index 00000000000..197bae6e97a
--- /dev/null
+++ b/Build/source/texk/web2c/cftests/cftest.p
@@ -0,0 +1,2 @@
+{1:}program CFtest;type{2:}eightbits=0..255;
+{:2}{:1}{3:}begin writeln('This is CFtest');end.{:3}
diff --git a/Build/source/texk/web2c/cftests/cftest.web b/Build/source/texk/web2c/cftests/cftest.web
new file mode 100644
index 00000000000..a49ba6a1947
--- /dev/null
+++ b/Build/source/texk/web2c/cftests/cftest.web
@@ -0,0 +1,15 @@
+% This is not a real program, only to test if tangle works.
+
+@* Introduction.
+This is just a test.
+
+@p program CF_test;
+type @<Types in the outer block@>
+
+@ @<Types...@>=
+@!seven_bits=0..127; {seven-bit numbers, a subrange of the integers}
+
+@* Main program.
+
+@p begin write_ln('This is CFtest');
+end.
diff --git a/Build/source/texk/web2c/cftests/lcftest.p b/Build/source/texk/web2c/cftests/lcftest.p
new file mode 100644
index 00000000000..ab3074345bf
--- /dev/null
+++ b/Build/source/texk/web2c/cftests/lcftest.p
@@ -0,0 +1,2 @@
+{1:}program CFtest;type{2:}eightbits=0..255;{:2}{:1}{3:}
+begin writeln('This is CFtest');end.{:3}
diff --git a/Build/source/texk/web2c/cftests/ocftest.p b/Build/source/texk/web2c/cftests/ocftest.p
new file mode 100644
index 00000000000..ab3074345bf
--- /dev/null
+++ b/Build/source/texk/web2c/cftests/ocftest.p
@@ -0,0 +1,2 @@
+{1:}program CFtest;type{2:}eightbits=0..255;{:2}{:1}{3:}
+begin writeln('This is CFtest');end.{:3}