; $VER: HiSOFT C++ 4.0 Developer Install Version 1.01 (12/11/97)
; Script for installing HiSOFT C++ - Stephen Marriott HiSOFT SYSTEMS
;
(set #introduction
(cat "\nThis install script installs HiSOFT C++ developer to your HD\n\n"     
     "Please make sure that you have at least 7Mb of HD space free\n\n"))

(set #askdir-help
(cat "\nPlease select the drawer where you wish to install HiSOFT C++ "
     "The HiSOFT C++ drawer will be created automatically\n\n"))
     
(set #askdisk-help
(cat "\nPlease insert the HiSOFT C++ disk in any drive\n\n"))     

(set #COPVERZ  (cat "\Where do you wish to install HiSOFT C++ "
                    "\nThe drawer \"HiSOFT_C\" will be created automatically\n\n"))

(set @language "English")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))


(Procedure Inst_LhaFiles
   (working @Working)
   (run ("RAM:Lhx -E -N x %s \"%s/\"" (tackon @default-src @Source) @Dest))
)

(Procedure Inst_NormFiles
   (if (< (getdiskspace @Dest) @Size)
      (abort #no-inst))

   (set @display (cat "Copy "@FName" from  "@SOURCE" \nto "@Dest))
   (copyfiles (prompt @display)(help @copyfiles-help)
   (source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_PatternFiles
   (if (< (getdiskspace @Dest) @Size)
      (abort #no-inst))

   (set @display (cat "Copy "@FName" from "@SOURCE" \nto "@Dest))
   (copyfiles (prompt @display)(help @copyfiles-help)(source @Source)
   (pattern @Pattern)(infos)(dest @Dest)(confirm))
)

(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)

(set @default-dest                 
   (askdir
      (prompt #COPVERZ)
      (help #askdir-help)
      (default "WORK:")
   )
)

(set @default-dest (tackon @default-dest "HiSOFT_C"))
(set @default-src "HiSOFT_C:")

(if                                 
   (= (exists @default-dest) 0)
   (makedir @default-dest (infos))
)

(askdisk
   (prompt "\n\n\nPlease insert disk 1 in any drive")
   (help #askdir-help)
   (dest "HiSOFT_C")
)

(complete 5)

(
   (set @Source (tackon @default-src "c"))
   (set @Dest "RAM:")
      (set @FName "LHX")
   (Inst_NormFiles)
)

(complete 10)

(
   (set @Working "Unpacking compressed files...")
   (set @Source "hcpp_dev.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 20)

(
   (set @Working "Unpacking Logo")
   (set @Source "logo.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 25)

(
   (set @Working "Unpacking C-Libraries")
   (set @Source "c-libs.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(
	(set @Source "rct.library")
	(set @Dest (tackon @default-dest "SYS:libs"))
	(Inst_NormFiles)
)


(if                              
	(= (exists "locale:catalogs/english/maxondev.catalog") 1)
	(delete "locale:catalogs/english/maxondev.catalog")
)

(
	(set @Source (tackon @default-src "catalog/english"))
	(set @Dest (tackon @default-dest "LOCALE:Catalogs/english"))
	(set @FName "maxondev.catalog")
	(set @Size 26000)		
	(Inst_NormFiles)
)		


(complete 30)

(askdisk
   (prompt "\n\n\nPlease insert disk 2 in any drivce")
   (help #askdisk-help)
   (dest "HiSOFT_C-2")
)

(set @default-src "HiSOFT_C-2:")

(
   (set @Working "Unpacking Compiler")
   (set @Source "compiler.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 40)

(
   (set @Working "Unpacking C-Includes")
   (set @Source "c-includes.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 50)

(
   (set @Working "Unpacking Assembler-Includes")
   (set @Source "asm-includes.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 60)

(
   (set @Working "Unpacking Assembler")
   (set @Source "assembler.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 70)

(askdisk
   (prompt "\n\n\nPlease insert disk 3 in any drive")
   (help #askdisk-help)
   (dest "HiSOFT_C-3")
)

(set @default-src "HiSOFT_C-3:")

(
   (set @Working "Unpacking Example Programs")
   (set @Source "demos.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 80)

; Not available w/ lite version
(
   (set @Working "Unpacking EasyObjects-Includes")
   (set @Source "easyobjects-includes.lha")
   (set @Dest @default-dest)
   (Inst_LhaFiles)
)

(complete 85)

(
	(set @Working "Unpacking Hothelp files")
	(set @Source "hothelp.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)
)



(complete 90)

(
	(set @Working "Unpacking HotHelp libraries")
	(set @Source "hhlibs.lha")
	(set @Dest (tackon @default-dest "SYS:"))
	(working @Working)
    (run ("RAM:Lhx -E -N x %s \"%s\"" (tackon @default-src @Source) @Dest))
)

(
	(set @Source (tackon @default-src "c/"))
	(set @Dest (tackon @default-dest "SYS:WBStartup/"))
	(set @FName "HotKeyHelp")
	(set @Size 26000)		
	(Inst_NormFiles)
)

(complete 95)
; Edit user-startup

(set command1 (cat "Assign MDEV: " @default-dest))
(set #command1.txt
   (cat  "\nA logical device has been created for HiSOFT C++ "
         "The installer will now update your \"User-Startup\"\n\n"
         command1))

(startup "HiSOFT_C"
   (prompt #command1.txt)
   (help #help-startup)
   (command command1)
)
(makeassign "MDEV")
(makeassign "MDEV" @default-dest)

(set @hothelp-dest (tackon @default-dest "hothelp"))

(set command1 (cat "Assign HOTHELP: " @hothelp-dest))
(set #command1.txt
   (cat  "\nA logical device has been created for HotHelp "
         "The installer will now update your \"User-Startup\"\n\n"
         command1))

(startup "HotHelp"
   (prompt #command1.txt)
   (help #help-startup)
   (command command1)
)

(makeassign "HOTHELP")
(makeassign "HOTHELP" @default-dest)

(run "C:DELETE RAM:LHX")                           ;Clean exit

(complete 100)

(USER 2)
	(Message "HiSOFT C++ Developer Installation complete...\n"
		"\n Technical Support\n\n"
		"North America - Tel: +1 503 620 4919\n"
		"                  Fax: +1 502 624 2940\n"
		"Web: http://www.orres.com/ Email: orres@teleport.com\n\n"
		"Rest of world - Tel: +44 1525 718181\n"
		"                  Fax: +44 1525 713716\n"
		"Web: http://www.hisoft.co.uk/ Email: suppor@hisoft.co.uk\n"
		)

	(Message "Please remember, UK technical support is\n between 2-3p.m."
			" Mon-Fri\nIf you need technical support, please remember to have when you"
		" phone, your:-\nSerial Number\nSoftware version number\nMachine"
		" configuration (RAM,Processor,Hard disk etc.)\n\n Please also have a"
		" clear and concise description of the problem you are having to ensure"
		" that we can deal with your problem as quickly as possible.\n\n"
		" Select Proceed to quit to Workbench"
		"\n Please reboot for the changes to take effect...")

(if (= (exists "SYS:Utilities/Multiview") 1)
		(Run "Run SYS:Utilities/Multiview README" (safe))
		(Run "Run More README" (safe))
) ; Done

(exit)