September 2017 Update

This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions

View file

@ -1,5 +1,4 @@
/*output from parse version (almost all REXX versions) */
/* theREXXinterpreterName level mm Mon yyyy */
/*output from parse version (almost all REXX versions) */
/* theREXXinterpreterName level mm Mon yyyy */
parse version . level .
if level<4 then exit
if level<4 then exit

View file

@ -1,7 +1,7 @@
parse version x 1 whatLang level mm mon yyyy .
if level<4 then do
say
say 'version' level "is too old!"
say x /*this displays everything.*/
exit /*or maybe: EXIT 13 */
end
parse version x 1 whatLang level dd mon yyyy .
if level<4 then do
say
say 'version' level "is too old!"
say x /*this displays everything.*/
exit /*or maybe: EXIT 13 */
end

View file

@ -1,2 +1,2 @@
if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'
else say 'the "bloop" variable doesn''t exist.'
if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'
else say 'the "bloop" variable doesn''t exist.'

View file

@ -1,3 +1,3 @@
bloop=47
if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'
else say 'the "bloop" variable doesn''t exist.'
if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'
else say 'the "bloop" variable doesn''t exist.'

View file

@ -1,9 +1,9 @@
if testxyz() then say 'function XYZ not found.'
else say 'function XYZ was found.'
if testxyz() then say 'function XYZ not found.'
else say 'function XYZ was found.'
exit
/*──────────────────────────────────────────────────────────────────────────────────────*/
testxyz: signal on syntax
call XYZ
return 0
syntax: return 1
call XYZ
return 0
/*──────────────────────────────────────────────────────────────────────────────────────*/
syntax: return 1