home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / Examples / examples.zoo / date.txed < prev    next >
Encoding:
Text File  |  1991-11-01  |  458 b   |  22 lines
  1. /* date:                            */
  2. /*    is used to add a line to the source code to indicate     */
  3. /*    that the source was changed and the date it was changed */
  4.  
  5. parse arg comment
  6.  
  7.    options results
  8.    'status d'
  9.    fms = result
  10.    'status f'
  11.    fns = upper(result)
  12.    fils = fms''fns
  13.    do while comment = ''
  14.     say 'Comment required'
  15.     parse pull comment
  16.     end
  17.    if pos('.A68',fils) ~= 0
  18.    then 'I ;'date('s') comment
  19.    else 'I /*'date('s') comment'*/'
  20.  
  21. 'MACRO 8 date' comment
  22.