home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 2
/
agavol2.iso
/
software
/
utilities
/
comms
/
html-heaven
/
install
< prev
next >
Wrap
Text File
|
1996-01-05
|
15KB
|
620 lines
(message
"\nWelcome to the\nHTML-Heaven Installer Utility\n\n"
"This program will install the HTML-Heaven\n"
"HTML authoring suite rel. 1.3 on your Amiga.\n"
"\n"
"Please read the AmigaGuide document or the\n"
"HTML documents for more information on how\n"
"to use the HTML-Heaven suite.\n"
"\n"
"The HTML-Heaven HTML authoring suite is\n"
"© 1994, 95 by Paul Kolenbrander\n"
"All Rights Reserved!\n"
)
(welcome)
;
; checking the AmigaOS version. We need at least 37.xx
;
(transcript "One moment, checking your OS version...")
(if
(<
(/
(getversion)
65536
)
37
)
(
(transcript "Aborting Installation as AmigaOS Release 2.04 (or higher) is not available.")
(abort "\nSorry, HTML-Heaven requires at least AmigaOS Release 2.04 to run.\n\n"
"Press the Proceed button to abort the installation procedure.")
)
(transcript "AmigaOS version 2.04 (or higher) found. Proceeding.")
)
(complete 0)
;
; Now ask where to install the HTML-Heaven drawer
;
(set HTML-Heaven-dest
(tackon
(askdir
(prompt "Where should the HTML-Heaven drawer be installed?")
(help @askdir-help)
(default @default-dest)
)
"HTML-Heaven"
)
)
(set @default-dest HTML-Heaven-dest)
(complete 10)
;
; And copy all the file we need to the destination directory
;
(copyfiles
(source "")
(dest HTML-Heaven-dest)
(pattern "#?")
(infos)
)
(complete 40)
;
; Set the date of all the copied files so the user gets a clean list and knows
; when he/she installed the package. [I know, I'm nitpicking. :-)]
;
(set mydestin (tackon HTML-Heaven-Dest "#?"))
(run "setdate" mydestin)
(complete 50)
(copyfiles
(source "Arexx")
(dest ( tackon HTML-Heaven-dest "ARexx" ) )
(pattern "#?")
(infos)
)
(complete 60)
;
; Set the date of all the copied files so the user gets a clean list and knows
; when he/she installed the package. [I know, I'm nitpicking. :-)]
;
(set mydestin (tackon HTML-Heaven-Dest "Arexx/#?"))
(run "setdate" mydestin)
(complete 70)
;
; Now ask which editor script should be copied to S:
;
(set editor-options
(select
(set editor-choice
(askchoice
(prompt "Which editor script do you wish to install?\n"
(choices "AME (part of DICE)"
"Annotate 2.0 or higher"
"Amiga Ed (standard editor)"
"CygnusEd 3.5Pro or higher"
"EdWord"
"EdWord 5.0"
"Final Writer 4"
"More supported editors"
)
(default 0)
(help "Editor script description:\n"
"AME: Sets up HTML-Heaven to work with the DICE AME "
"editor.\n"
"\n"
"Annotate: Sets up HTML-Heaven to work with the Annotate "
"v2.0 editor.\n"
"\n"
"Amiga Ed: Sets up HTML-Heaven to work with the Amiga ED "
"editor. Note, Limited support due to Ed's behavior.\n"
"\n"
"CygnusEd: Sets up HTML-Heaven to work with the CygnusEd "
"editor.\n"
"EdWord: Sets up HTML-Heaven to work with the shareware "
"EdWord editor.\n"
"\n"
"EdWord5.0: Sets up HTML-Heaven to work with the shareware "
"EdWord 5.0 editor.\n"
"\n"
"FinalWriter: Sets up HTML-Heaven to work with the Final "
"Writer 4 word processor.\n"
"\n"
"Even more editors supported by the HTML-Heaven suite. "
"\n"
@askoptions-help)
)
)
)
(shiftleft 1 0) ; AME
(shiftleft 1 1) ; Annotate
(shiftleft 1 2) ; Amiga Ed
(shiftleft 1 3) ; CygnusEd
(shiftleft 1 4) ; EdWord
(shiftleft 1 5) ; EdWord 5.0
(shiftleft 1 6) ; Final Writer 4
(shiftleft 1 7) ; More editors
)
)
(complete 80)
;
; Copy selected editor script
;
(if
(IN editor-options 0)
(
(copyfiles
(prompt "Installing the AME script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-AME.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 1)
(
(copyfiles
(prompt "Installing the Annotate script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-Annotate.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 2)
(
(copyfiles
(prompt "Installing the AmigaEd script...")
(source ( tackon HTMl-Heaven-dest "ARexx/HTML-Ed.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 3)
(
(copyfiles
(prompt "Installing the CygnusEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-CEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 4)
(
(copyfiles
(prompt "Installing the EdWord script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-EdWord.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 5)
(
(copyfiles
(prompt "Installing the EdWord 5.0script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-EdWord5.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 6)
(
(copyfiles
(prompt "Installing the FrexxEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-FrexxEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 7)
(
(set editor-options
(select
(set editor-choice
(askchoice
(prompt "Which editor script do you wish to install?\n"
(choices "FrexxEd"
"GoldEd 1.0 or higher"
"GNU Emacs"
"PolyEd"
"SAS's SE"
"SkoEd"
"TurboText"
"even more editors"
)
(default 0)
(help "Editor script description:\n"
"FrexxEd: Sets up HTML-Heaven to work with the shareware "
"FrexxEd editor.\n"
"\n"
"GoldEd: Sets up HTML-Heaven to work with the shareware "
"GoldEd 1.0 or higher editor.\n"
"\n"
"MEmacs: Sets up HTML-Heaven to work with the MEmacs editor "
"that is available on most AmiNet sites.\n"
"\n"
"PolyEd: Sets up HTML-Heaven to work with the shareware "
"PolyEd editor found on eg. AmiNet.\n"
"\n"
"SE: Sets up HTML-Heaven to work with the SE editor that "
"comes with the SAS C compiler.\n"
"\n"
"SkoEd: Sets up HTML-Heaven to work with the shareware editor"
"SkoEd.\n"
"\n"
"TTX: Sets up HTML-Heaven to work with the TurboText "
"editor. An excellent script created by Cletus Baker.\n"
"\n"
"Even more editors supported by the HTML-Heaven suite. "
"\n"
"\n"
@askoptions-help)
)
)
)
(shiftleft 1 0) ; FrexxEd
(shiftleft 1 1) ; GoldEd
(shiftleft 1 2) ; MEmacs
(shiftleft 1 3) ; PolyEd
(shiftleft 1 4) ; SE
(shiftleft 1 5) ; SkoEd
(shiftleft 1 6) ; TTX
(shiftleft 1 7) ; More Editors
)
)
(complete 80)
;
; Copy selected editor script
;
(if
(IN editor-options 0)
(
(copyfiles
(prompt "Installing the FrexxEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-FrexxEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 1)
(
(copyfiles
(prompt "Installing the GoldEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-GoldEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 2)
(
(copyfiles
(prompt "Installing the GNU Emacs script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-MEmacs.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 3)
(
(copyfiles
(prompt "Installing the PolyEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-PolyEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 4)
(
(copyfiles
(prompt "Installing the SE script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-SE.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 5)
(
(copyfiles
(prompt "Installing the SkoEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-SkoEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 6)
(
(copyfiles
(prompt "Installing the TurboTeXt script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-TTX.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 7)
(
(set editor-options
(select
(set editor-choice
(askchoice
(prompt "Which editor script do you wish to install?\n"
(choices "Black's Editor (BEd)"
"Textra 1.0 or higher"
"Write 4.76 or higher"
"Skip this part"
)
(default 0)
(help "Editor script description:\n"
"BED: Sets up HTML-Heaven to work with the shareware "
"BED editor.\n"
"\n"
"Textra: Sets up HTML-Heaven to work with the Textra "
"editor.\n"
"Write: Sets up HTML-Heaven to work with the shareware "
"Write editor.\n"
"\n"
@askoptions-help)
)
)
)
(shiftleft 1 0) ; BEd
(shiftleft 1 1) ; Textra
(shiftleft 1 2) ; Textra
)
)
(complete 80)
;
; Copy selected editor script
;
(if
(IN editor-options 0)
(
(copyfiles
(prompt "Installing the BEd script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-BEd.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 1)
(
(copyfiles
(prompt "Installing the Textra script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-Textra.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 2)
(
(copyfiles
(prompt "Installing the Write script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-Write.rexx" ) )
(dest "S:")
(newname "HTML.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 95)
(if
(IN editor-options 3)
(
(complete 95)
)
)
)
)
)
)
(set editor-options
(select
(set editor-choice
(askchoice
(prompt "Do you wish to install AutoView Support?\n"
(choices "AMosaic"
"Ibrowse (Not available yet)"
"WebLink (Not available yet)"
"No Autoview support"
)
(default 0)
(help "AutoView script description:\n"
"AMosaic: Sets up HTML-Heaven to automatically tell AMosaic "
"to show any change made in the document you are working on\n"
"\n"
"Ibrowse: Sets up HTML-Heaven to automatically tell Ibrowse "
"to show any change made in the document you are working on "
"Not available as Ibrowse does not support Arexx yet.\n"
"\n"
"WebLink: Sets up HTML-Heaven to automatically tell WebLink "
"to show any change made in the document you are working on "
"Not available as Ibrowse does not support Arexx yet.\n"
"\n"
"Do not sets up HTML-Heaven to automatically tell a browser "
"to show any change made in the document being worked on. "
"Not available as WebLink isn't released yet.\n"
"\n"
"\n"
@askoptions-help)
)
)
)
(shiftleft 1 0) ; AMosaic
(shiftleft 1 1) ; IBrowse
(shiftleft 1 2) ; WebLink
)
)
(complete 96)
;
; Copy selected browser script
;
(if
(IN editor-options 0)
(
(copyfiles
(prompt "Installing the AMosaic script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-AMosaic.rexx" ) )
(dest "S:")
(newname "HTMLVIEW.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 97)
(if
(IN editor-options 1)
(
(copyfiles
(prompt "Installing the Ibrowse script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-IBrowse.rexx" ) )
(dest "S:")
(newname "HTMLVIEW.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 97)
(if
(IN editor-options 2)
(
(copyfiles
(prompt "Installing the WebLink script...")
(source ( tackon HTML-Heaven-dest "ARexx/HTML-WebLink.rexx" ) )
(dest "S:")
(newname "HTMLVIEW.rexx")
(infos)
(help @copyfiles-help)
)
)
)
(complete 97)
(if
(IN editor-options 3)
(
(complete 97)
)
)
(complete 98)
(run "setdate S:HTML.rexx")
(run "setdate S:HTMLView.rexx")
(complete 100)
(exit "Release 1.3 of HTML-Heaven has been installed.\n"
"\n"
"HTML-Heaven is ©1994, 95 by Paul Kolenbrander\n"
"All Rights Reserved!\n\n"
"Please consider registering this fine package.\n"
)