home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / AddVersion.edge next >
Encoding:
Text File  |  1993-10-27  |  547 b   |  26 lines
  1.  
  2. /*
  3. ** $VER: AddVersion.edge 1.2 (Sunday 08-Aug-93 02:25:43)
  4. ** 
  5. ** Insert a version string at current cursor position, based on current date and
  6. ** filename, position the cursor so the user may type the version.revision
  7. **
  8. ** Written by Thomas liljetoft
  9. */
  10.  
  11. options results
  12.  
  13. /* first get filename and date */
  14.  
  15. 'getenvvar' _fe_name
  16. filename = result
  17. 'getenvvar' _ge_date
  18. timestamp = result
  19.  
  20. /* insert the version string, put the cursor after the filename */
  21.  
  22. 'text' '"'"$VER: "filename"  ("timestamp")"'"'
  23. 'find' '" ("' forward 0 words 0
  24.  
  25. exit(0)
  26.