Data commit

Task/Documentation/REXX/documentation-1.rexx

@@ -0,0 +1,29 @@
+/*REXX program illustrates how to display embedded documentation (help) within REXX code*/
+parse arg doc                                    /*obtain (all) the arguments from C.L. */
+if doc='?'  then call help                       /*show documentation if arg=a single ? */
+/*■■■■■■■■■regular■■■■■■■■■■■■■■■■■■■■■■■■■*/
+/*■■■■■■■■■■■■■■■■■mainline■■■■■■■■■■■■■■■■*/
+/*■■■■■■■■■■■■■■■■■■■■■■■■■■code■■■■■■■■■■■*/
+/*■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■here.■■■■■*/
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+help: ?=0;    do j=1  for sourceline();  _=sourceline(j)         /*get a line of source.*/
+              if _='<help>'   then do;  ?=1;  iterate;  end      /*search for  <help>   */
+              if _='</help>'  then leave                         /*   "    "   </help>  */
+              if ?            then say _
+              end   /*j*/
+      exit                                       /*stick a fork in it,  we're all done. */
+/*══════════════════════════════════start of the in═line documentation AFTER the  <help>
+<help>
+       To use the  YYYY  program, enter one of:
+
+             YYYY  numberOfItems
+             YYYY                            (no arguments uses the default)
+             YYYY  ?                         (to see this documentation)
+
+
+       ─── where:  numberOfItems             is the number of items to be used.
+
+           If no  "numberOfItems"  are entered, the default of  100  is used.
+</help>
+════════════════════════════════════end of the in═line documentation BEFORE the </help> */

Task/Documentation/REXX/documentation-2.rexx

@@ -0,0 +1,19 @@
+/* REXX ***************************************************************
+* 13.10.2013 Walter Pachl  another way to show documentation
+*                          no tags and good enough if only one documentation block
+**********************************************************************/
+beghelp=here()+1                  /* line where the docmentation begins
+Documentation
+any text explaining the program's invocation and workings
+---
+                                     and where it ends               */
+endhelp=here()-2
+If arg(1)='?' Then Do
+  Do i=beghelp To endhelp
+    Say sourceline(i)
+    End
+  Exit
+  End
+say 'the program would be here!'
+Exit
+here: return sigl            /* returns the invocation's line number */