diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/example.rexx | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/example.rexx')
-rw-r--r-- | tests/examplefiles/example.rexx | 50 |
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 |