home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / parex-3.10.lha / PARex / PARexScripts / AutoVERS < prev    next >
Encoding:
AmigaDOS Script File  |  1994-02-18  |  3.5 KB  |  115 lines
  1. .KEY SOURCE/A,REVNAME/A,INIT/S,M2/S,C/S,OBERON/S,ASM/S,AREXX/S,AMIGADOS/S,PAREXARGS/F
  2. .BRA {
  3. .KET }
  4.  
  5. ; PARex v3.xx program script: "AutoVERS"
  6. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~  ~~~~~~~~~
  7. ; Update: 16-Nov-93
  8.  
  9. ; $VER: AutoVERS 39.027 (16.11.93) PARex v3.xx auto source version updating.
  10.  
  11. ; This is just a simple example of how to construct a version updating system with
  12. ; the help of PARex.
  13.  
  14. ECHO "*ec*e[1mPARex AutoVERS 39.027*e[0m"  NOLINE
  15.  
  16. ; ---------------
  17.  
  18. FAILAT 21
  19.  
  20. IF {INIT}
  21.  
  22.    RESIDENT >NIL: C:SETENV     ; ##!!!## remove this line if SETENV is already resident!
  23.  
  24.    IF {M2}
  25.       SETENV pavLANG M2
  26.    ELSE
  27.       IF {C}
  28.          SETENV pavLANG C
  29.       ELSE
  30.          IF {OBERON}
  31.             SETENV pavLANG OBERON
  32.          ELSE
  33.             IF {ASM}
  34.                SETENV pavLANG ASM
  35.             ELSE
  36.                IF {AREXX}
  37.                   SETENV pavLANG AREXX
  38.                ELSE ; default=AMIGADOS
  39.                   SETENV pavLANG AMIGADOS
  40.                ENDIF
  41.             ENDIF
  42.          ENDIF
  43.       ENDIF
  44.    ENDIF
  45.  
  46.    ECHO "  ### $pavLANG-HEADER INSTALLATION, PROJECT:"
  47.  
  48.    SETENV >NIL: pavFILENAME {REVNAME}
  49.    SETENV >NIL: pavRELEASE _.__ 
  50.    SETENV >NIL: pavVERSION __
  51.    SETENV >NIL: pavREVISION _
  52.    SETENV >NIL: pavAUTHOR _
  53.    SETENV >NIL: pavCOPYRIGHT _
  54.    SETENV >NIL: pavTRANSLATOR _
  55.  
  56.    LAB Init
  57.  
  58.       ECHO "*n      FILENAME       : $pavFILENAME*n*eM      FILENAME       : " NOLINE
  59.                                    SETENV >NIL: pavFILENAME ?
  60.       ECHO "      RELEASE (x.xx) : $pavRELEASE*n*eM      RELEASE (x.xx) : " NOLINE
  61.                                    SETENV >NIL: pavRELEASE ?
  62.       ECHO "      VERSION   (xx) : $pavVERSION*n*eM      VERSION   (xx) : " NOLINE
  63.                                    SETENV >NIL: pavVERSION ?
  64.       ECHO "      REVISION (xxx) : $pavREVISION*n*eM      REVISION (xxx) : " NOLINE
  65.                                    SETENV >NIL: pavREVISION ?
  66.       ECHO "      AUTHOR         : $pavAUTHOR*n*eM      AUTHOR         : " NOLINE
  67.                                    SETENV >NIL: pavAUTHOR ?
  68.       ECHO "      COPYRIGHT      : $pavCOPYRIGHT*n*eM      COPYRIGHT      : " NOLINE
  69.                                    SETENV >NIL: pavCOPYRIGHT ?
  70.       ECHO "      TRANSLATOR     : $pavTRANSLATOR*n*eM      TRANSLATOR     : " NOLINE
  71.                                    SETENV >NIL: pavTRANSLATOR ?
  72.  
  73.    ASK  "*n      Are these entries correct (y/n) ? "
  74.  
  75.    IF NOT WARN
  76.       SKIP Init BACK
  77.    ENDIF
  78.  
  79.    ECHO "*n      Installing..." NOLINE
  80.  
  81.    RESIDENT >NIL: C:COPY     ; ##!!!## remove this line if COPY is already resident!
  82.  
  83.    COPY >NIL: ENV:pavREVISION ENV:{REVNAME}.pav
  84.    COPY >NIL: ENV:pavREVISION ENVARC:{REVNAME}.pav
  85.  
  86.    PAREX SILENT FROM PAREX:AutoVERSFiles/BlankSource_$pavLANG TO T:pavTEMP INIT &FILE:PAREX:AutoVERSFiles/Header_$pavLANG&
  87.    PAREX SILENT FROM T:pavTEMP TO {SOURCE} SCRIPT PAREX:AutoVERS.pxs MODE init
  88.  
  89.    RESIDENT >NIL: C:EVAL     ; ##!!!## remove this line if EVAL is already resident!
  90.    RESIDENT >NIL: C:DELETE   ; ##!!!## remove this line if DELETE is already resident!
  91.  
  92.    DELETE >NIL: ENV:pav#?
  93.    DELETE >NIL: T:pavTEMP
  94.  
  95.    ECHO "finished!*n"
  96.  
  97. ELSE
  98.  
  99.    ECHO "  ### {REVNAME}-HEADER UPDATE."
  100.  
  101.    IF NOT EXISTS ENV:{REVNAME}.pav
  102.       SETENV >NIL: pavREVISION 0
  103.    ELSE
  104.       EVAL <ENV:{REVNAME}.pav >NIL: TO=ENV:pavREVISION value2=1 op=+ LFORMAT="%N" ?
  105.    ENDIF
  106.  
  107.    COPY >NIL: ENV:pavREVISION TO ENV:{REVNAME}.pav
  108.    COPY >NIL: ENV:pavREVISION TO ENVARC:{REVNAME}.pav  ; remove if ENVARC: doesn't exist
  109.  
  110.    PAREX SILENT FROM {SOURCE} TOUCH 1000 SCRIPT PAREX:AutoVERS.pxs MODE update ; (1000 bytes should be enough!)
  111.  
  112. ENDIF
  113.  
  114.  
  115.