home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / parex-3.10.lha / PARex / PARexScripts / AutoVERS.pxs < prev    next >
Encoding:
Text File  |  1994-02-18  |  2.0 KB  |  41 lines
  1. ; PARex v3.xx script: "PAREX:AutoVERS.pxs"
  2. ; ~~~~~~~~~~~~~~~~~~~  ~~~~~~~~~~~~~~~~~~
  3. ; Update: 17-Nov-93
  4.  
  5. ; $VER: AutoVERS.pxs 39.012 (17.11.93) PARex v3.xx script for AutoVERS.
  6.  
  7. MODE UPDATE
  8.  
  9.   REPL "{UPDATE# : }*\xA0#\xA0"   BY "{}&FIXTIME:%W %d %M %Y (%H:%i:%s)&" CONTEXT MINSIZE 50 MAXSIZE 50 RIGHTFILL \xA0 TIMES 1
  10.   REPL "{REVISION# : }*\xA0#\xA0" BY "{}&FILE:ENV:pavREVISION&"        CONTEXT MINSIZE 50 MAXSIZE 50 RIGHTFILL \xA0 TIMES 1
  11.  
  12.   EXITPXS
  13.  
  14. MODE INIT
  15.  
  16.   REPL !filename!   BY &FILE:ENV:pavFILENAME&             MAXSIZE 50
  17.   REPL !release!    BY &FILE:ENV:pavRELEASE&              MAXSIZE 50 TIMES 1
  18.   REPL !creation!   BY "&FIXTIME:%W %d %M %Y (%H:%i:%s)&" MAXSIZE 50 TIMES 1
  19.   REPL !author!     BY &FILE:ENV:pavAUTHOR&               MAXSIZE 50 TIMES 1
  20.   REPL !copyright!  BY &FILE:ENV:pavCOPYRIGHT&            MAXSIZE 50 TIMES 1
  21.   REPL !translator! BY &FILE:ENV:pavTRANSLATOR&           MAXSIZE 50 TIMES 1
  22.   REPL !version!    BY &FILE:ENV:pavVERSION&              MAXSIZE 50 TIMES 1
  23.   REPL "{UPDATE# : }!update!"     BY "{}&FIXTIME:%W %d %M %Y (%H:%i:%s)&" CONTEXT MINSIZE 50 MAXSIZE 50 RIGHTFILL \xA0 TIMES 1
  24.   REPL "{REVISION# : }!revision!" BY "{}&FILE:ENV:pavREVISION&"           CONTEXT MINSIZE 50 MAXSIZE 50 RIGHTFILL \xA0 TIMES 1
  25.  
  26.   EXITPXS
  27.  
  28. ; --Comments--
  29.  
  30. o It's important for the items that will be updated everytime AutoVers is called, keep the
  31.   same size, in order not to disturb the fileheader, since we're going to change to the
  32.   source file directly! In other words, if the header uses e.g. 500 bytes, then we must
  33.   make sure that after updating, we have the same size!
  34.  
  35. o Note that the updated lines of the fileheader always have 50 bytes. If the line should be
  36.   to short then the line is appended with a hard-space (ASCII 160), otherwise the line is
  37.   cut! That's why we use the commands MINSIZE, MAXSIZE and RIGHTFILL!
  38.  
  39. o Note also the use of CONTEXT in the UPDATE and INIT MODE with the items that have to be
  40.   updated. This is important in order to keep the right size of 50 characters!
  41.