summaryrefslogtreecommitdiff
path: root/tests/examplefiles/example.rexx
diff options
context:
space:
mode:
authorMatth?us G. Chajdas <dev@anteru.net>2019-11-10 13:56:53 +0100
committerMatth?us G. Chajdas <dev@anteru.net>2019-11-10 13:56:53 +0100
commit1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch)
tree87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/example.rexx
parentf1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff)
downloadpygments-master.tar.gz
Remove all files, redirect to GitHub.HEADmaster
Diffstat (limited to 'tests/examplefiles/example.rexx')
-rw-r--r--tests/examplefiles/example.rexx50
1 files changed, 0 insertions, 50 deletions
diff --git a/tests/examplefiles/example.rexx b/tests/examplefiles/example.rexx
deleted file mode 100644
index ec4da5ad..00000000
--- a/tests/examplefiles/example.rexx
+++ /dev/null
@@ -1,50 +0,0 @@
-/* REXX example. */
-
-/* Some basic constructs. */
-almost_pi = 0.1415 + 3
-if almost_pi < 3 then
- say 'huh?'
-else do
- say 'almost_pi=' almost_pi || " - ok"
-end
-x = '"' || "'" || '''' || """" /* quotes */
-
-/* A comment
- * spawning multiple
- lines. /* / */
-
-/* Built-in functions. */
-line = 'line containing some short text'
-say WordPos(line, 'some')
-say Word(line, 4)
-
-/* Labels and procedures. */
-some_label :
-
-divide: procedure
- parse arg some other
- return some / other
-
-call divide(5, 2)
-
-/* Loops */
-do i = 1 to 5
- do j = -3 to -9 by -3
- say i '+' j '=' i + j
- end j
-end i
-
-do forever
- leave
-end
-
-/* Print a text file on MVS. */
-ADDRESS TSO
-"ALLOC F(TEXTFILE) DSN('some.text.dsn') SHR REU"
-"EXECIO * DISKR TEXTFILE ( FINIS STEM LINES."
-"FREE F(TEXTFILE)"
-I = 1
-DO WHILE I <= LINES.0
- SAY ' LINE ' I ' : ' LINES.I
- I = I + 1
-END