.KEY dest
.BRA {
.KET }

;
; Do the PageSetterII installation:
;
; Inputs:
;    dest  Where stuff should go.


IF NOT EXISTS {dest}PageSetterII
   ECHO "     Verzeichnis {dest}PageSetterII wird erstellt..."
   MAKEDIR {dest}PageSetterII
   COPY PSInstUtil:Misc/Icons/Drawer.info {dest}PageSetterII.info
ENDIF

;
; Install the program itself.
;
ECHO "*N"
INSTUTIL ask -dy "PageSetterII-Programm installieren [Y/N]? Y"
IF NOT WARN
   EXECUTE RAM:PSInstall/DiskMount Programm PageSetterII: PSInstPgm:

   ECHO "*N     Programm *"PageSetterII*" wird kopiert..."
   COPY PSInstPgm:PageSetterII {dest}PageSetterII/PageSetterII
   COPY PSInstPgm:PageSetterII.info {dest}PageSetterII/PageSetterII.info
   INSTUTIL reseticon {dest}PageSetterII/PageSetterII


;
; these libraries are necessary for PageSetterII, make sure that they are there:
; (This is near the copying of PageSetterII, to eliminate a disk swap.)
;
   IF NOT EXISTS LIBS:mathtrans.library
      ECHO "*N     mathtrans.library wird kopiert..."
      COPY PSInstPgm:libs/mathtrans.library LIBS:
   ENDIF
   IF NOT EXISTS LIBS:diskfont.library
      ECHO "*N     diskfont.library wird kopiert..."
      COPY PSInstPgm:libs/diskfont.library LIBS:
   ENDIF

   ;
   ; While we've got this diskette, grab the new paintjet driver in case
   ; he wants it.
   COPY PSInstPgm:devs/printers/HP_PaintJet RAM:PSInstall

   COPY PSInstUtil:MakeFont {dest}PageSetterII
   COPY PSInstUtil:MakeFont.info {dest}PageSetterII
   INSTUTIL reseticon {dest}PageSetterII/MakeFont
   COPY PSInstUtil:MakeMetric {dest}PageSetterII

ENDIF


ECHO "*N"
INSTUTIL ask -dy "Möchten Sie die Beispiel-Dateien nach {dest}PageSetterII kopieren [Y/N]? Y"
IF NOT warn

   IF NOT EXISTS {dest}PageSetterII/PresseInfo
      MAKEDIR {dest}PageSetterII/PresseInfo
   ENDIF
   COPY PSInstUtil:PresseInfo {dest}PageSetterII/PresseInfo ALL QUIET
   COPY PSInstUtil:PresseInfo.info {dest}PageSetterII
   INSTUTIL reseticon {dest}PageSetterII/PresseInfo

ENDIF   ; copy Tutorial files

ECHO "*N"
INSTUTIL ask -dy "Neuen HP-PaintJet-Treiber in DEVS:Printers kopieren [Y/N]? Y"
IF NOT warn
   COPY RAM:PSInstall/HP_PaintJet DEVS:printers
ENDIF


ECHO "*N"
INSTUTIL ask -dy "PageSetterII-Bitmap-Schriften ins Verzeichnis FONTS: kopieren [Y/N]? Y"
IF NOT warn

   FAILAT 21
   ECHO "*N      Bitmap-Schriften werden ins Verzeichnis FONTS: kopiert..."
   COPY PSInstUtil:fonts FONTS: ALL QUIET
   IF error
      ECHO "*N      Nicht genug Platz im *"FONTS:*"-Verzeichnis!*N"
   ENDIF
   FAILAT 10

ELSE

   INSTUTIL ask -dy "Bitmap-Schriften ins Verzeichnis {dest}PageSetterII/Fonts kopieren [Y/N]? Y"
   IF NOT warn

      ECHO "*N     Bitmap-Schriften werden ins Verzeichnis*N     {dest}PageSetterII/Fonts kopiert..."
      IF NOT EXISTS {dest}PageSetterII/Fonts
         MAKEDIR {dest}PageSetterII/Fonts
      ENDIF
      COPY PSInstUtil:fonts {dest}PageSetterII/Fonts ALL QUIET

      ;
      ; Make a couple of IconX files to switch between PageSetterII and normal fonts.
      ;
      CD RAM:PSInstall
      ECHO >SelPS.1 "Echo *"PageSetterII-Schriften werden aktiviert... *" NOLINE"
      ECHO >SelPS.2 "Assign FONTS: {dest}PageSetterII/Fonts"
      ECHO >Sel.Done "Echo *"Fertig.*""
      JOIN SelPS.1 SelPS.2 Sel.Done AS {dest}PageSetterII/PSFonts
      COPY PSInstUtil:misc/Icons/PSFonts.info {dest}PageSetterII/PSFonts.info

      ECHO >SelAm.1 "Echo *"Amiga-Schriften werden aktiviert... *" NOLINE"
      ECHO >SelAm.2a "Assign FONTS: " NOLINE

      CD FONTS:
      CD >RAM:PSInstall/SelAm.2b
      CD RAM:PSInstall

      JOIN SelAm.1 SelAm.2a SelAm.2b Sel.Done AS {dest}PageSetterII/AmigaFonts
      COPY PSInstUtil:misc/Icons/AmigaFonts.info {dest}PageSetterII/AmigaFonts.info

   ENDIF

ENDIF   ; copy FONTS

ECHO "*N"
INSTUTIL ask -dy "Compugraphic-Schriften nach {dest}PageSetterII/CGFonts kopieren [Y/N]? Y"
IF NOT warn
   ; Copy the CGFonts stuff
   ECHO "*N     Compugraphic-Schriften werden kopiert ..."
   IF NOT EXISTS {dest}PageSetterII/CGFonts
      MAKEDIR {dest}PageSetterII/CGFonts
   ENDIF
   COPY PSInstUtil:CGFonts {dest}PageSetterII/CGFonts ALL QUIET

   ; Post-processing:
   ; - Move CacheEditII up into the main PageSetterII drawer
   RENAME {dest}PageSetterII/CGFonts/CacheEditII {dest}PageSetterII/CacheEditII
   RENAME {dest}PageSetterII/CGFonts/CacheEditII.info {dest}PageSetterII/CacheEditII.info
   INSTUTIL reseticon {dest}PageSetterII/CacheEditII

ENDIF   ; copy CG Fonts

ENDSKIP

;
; The Assign commands for startup-sequence
;
CD RAM:PSInstall
ECHO >AsnPS        "ASSIGN PageSetterII:  {dest}PageSetterII"

IF EXISTS {dest}PageSetterII/PresseInfo/PresseInfo.Endversion
   ECHO >AsnPSUtil "ASSIGN PSUtil:        {dest}PageSetterII"
ELSE
   COPY NIL: to AsnPSUtil
ENDIF

If EXISTS {dest}PageSetterII/CGFonts
   ECHO >AsnCFonts "ASSIGN CGFonts:       {dest}PageSetterII/CGFonts"
ELSE
   COPY NIL: to AsnCFonts
ENDIF

IF EXISTS {dest}PageSetterII/CGFonts/CGCache
   ECHO >AsnCCache "ASSIGN CGCache:       {dest}PageSetterII/CGFonts/CGCache"
ELSE
   COPY NIL: to AsnCCache
ENDIF

JOIN AsnPS AsnPSUtil AsnCFonts AsnCCache as S:PageSetterII-Startup
COPY s:PageSetterII-Startup {dest}PageSetterII/PS2Assigns
COPY PSInstUtil:misc/Icons/PS2Assigns.info {dest}PageSetterII/PS2Assigns.info
INSTUTIL reseticon {dest}PageSetterII/PS2Assigns