Modulinos: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,278: / Line 1,278: @@
 <lang rexx>/*REXX program to detect whether or not it is a "scripted main" program.*/
-parse source . howInvoke .;  if howInvoke \== 'COMMAND' then return ''
+parse upper source . howInvoke .
+if howInvoke \== 'COMMAND' then do
+                                /* maybe say something here? */
+                                return ''
+                                end
           /* ┌────────────────────────────────────────────────┐
-             │                                                │
              │  At this point, we know that this program was  │
              │  invoked via the "command line" and not via    │
              │  another program.                              │
-             │                                                │
              └────────────────────────────────────────────────┘  */
 say 'and away we go ...'</lang>