workbench/devs/AHI/Drivers/Paula/version.rexx

   1 /* Makes the macros VERSION, REVISION, DATE and VERS from a RCS ID */
   2
   3 OPTIONS RESULTS
   4 PARSE PULL "$Id: " . " " ver "." rev y "/" m "/" d .
   5
   6 y = RIGHT(y, 2)
   7
   8 SAY    'VERSION         EQU ' || ver
   9 SAY    'REVISION        EQU ' || rev
  10 SAY    'DATE    MACRO'
  11 SAY    '                dc.b    "' || d || '.' || m || '.' || y || '"'
  12 SAY    '        ENDM'
  13 SAY    'VERS    MACRO'
  14 SAY    '                dc.b    "paula.audio ' || ver || '.' || rev || '"'
  15 SAY    '        ENDM'