home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
packery
/
fp_adpcm
/
adpcm_dt
/
install
< prev
next >
Wrap
Text File
|
1977-12-31
|
2KB
|
75 lines
;
; Installer Script for Flowerpower's datatypes
; $VER: 40.1 (30.1.95)
;
; permission is hereby granted to use this script for whatever you want.
; print it and make a fire of it if you like.
;
(set #basename "adpcm")
(set #descriptor "ADPCM")
(set @default-dest "SYS:")
(if (askchoice (prompt @app-name)
(help @askchoice-help)
(choices "Installation" "De-Installation"))
; De-Installation
(
(delete (cat "SYS:Classes/Datatypes/" #basename ".datatype")
(prompt "The class file will now be deleted from \"SYS:Classes/Datatypes\".")
(help "No help available.")
(confirm) )
(delete (cat "DEVS:Datatypes/" #descriptor)
(prompt "The descriptor will now be deleted from \"DEVS:Datatypes\".")
(help "No help available.")
(confirm)
(infos) )
(run "C:AddDataTypes Refresh")
(run "C:Avail >NIL: Flush")
(message "De-Installation complete!\n"
@app-name
" was removed from your "
"\"" @default-dest "\" "
"drawer\n(or partition) "
"and is no longer usable.\n"
"(Even if you do NOT reboot your machine ;-)")
(exit (quiet))
)
; Installation
(
(copylib (source (cat "Classes/Datatypes/" #basename ".datatype"))
(dest "SYS:Classes/Datatypes")
(prompt "The class file will now be copied to \"SYS:Classes/Datatypes\".")
(help @copylib-help)
(confirm))
(copyfiles (source "Devs/Datatypes/")
(dest "DEVS:Datatypes")
(choices #descriptor (cat #descriptor ".info"))
(prompt "The descriptor file will now be copied to \"DEVS:Datatypes\".")
(help @copyfiles-help)
(confirm))
(run "C:Avail >NIL: Flush")
(run "C:AddDataTypes Refresh")
(message "Installation complete!\n"
@app-name
" can be found in your "
"\"" @default-dest "\" "
"drawer\n(or partition) "
"and is ready for use.\n"
"(You need NOT reboot your machine).")
(exit (quiet))
)
)