home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Enigma Amiga Life 109
/
EnigmaAmiga109CD.iso
/
software
/
sviluppo
/
rxmui
/
install
< prev
next >
Wrap
Text File
|
1999-12-21
|
4KB
|
155 lines
; $VER: rxmui_Install
(procedure choose
(set what
(askoptions
(prompt "What do you want to install?"
(help "Choose what you want to install")
(choices "rxmui.library" "rmh.library" "rxasl.library" "Documentation" "External Classes" "Examples")
)
)
)
)
(procedure copy-guide
(set #installGuideDir
(askdir
(prompt "Select the directory where you want to "
"install rxmui.library guide")
(help "This will install RxMUI documentation in AmigaGuide format")
(default "Ram Disk:")
)
)
(copyfiles
(source (tackon #source-dir "DOCS/english/"))
(dest #installGuideDir)
(optional force)
(all)
)
)
(procedure copy-ex
(set #installExDir
(askdir
(prompt "Select the directory where you want to "
"install the examples")
(help "This will install RxMUI examples")
(default "Ram Disk:")
)
)
(copyfiles
(source (tackon #source-dir "EXAMPLES/"))
(dest #installExDir)
(optional force)
(all)
)
)
(procedure copy-rxmui-lib
(copylib
(prompt "Installing rxmui.library to LIBS:" )
(help "This will copy rxmui.library to LIBS:")
(source (tackon #source-dir "LIBS/rxmui.library"))
(dest @default-dest)
(confirm)
(optional "askuser" "force")
)
)
(procedure copy-rmh-lib
(copylib
(prompt "Installing rmh.library to LIBS:" )
(help "This will copy rmh.library to LIBS:")
(source (tackon #source-dir "LIBS/rmh.library"))
(dest @default-dest)
(confirm)
(optional "askuser" "force")
)
)
(procedure copy-rxasl-lib
(copylib
(prompt "Installing rxasl.library to LIBS:" )
(help "This will copy rxasl.library to LIBS:")
(source (tackon #source-dir "LIBS/rxasl.library"))
(dest @default-dest)
(confirm)
(optional "askuser" "force")
)
)
(procedure copy-ext-classes
(copylib
(prompt "Installing cm.rxmec to LIBS:RXMUI" )
(help "This will copy cm.rxmec to LIBS:RXMUI")
(source (tackon #source-dir "LIBS/RXMUI/cm.rxmec"))
(dest (tackon @default-dest "RXMUI"))
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing speedbar.rxmec to LIBS:RXMUI" )
(help "This will copy speedbar.rxmec to LIBS:RXMUI")
(source (tackon #source-dir "LIBS/RXMUI/speedbar.rxmec"))
(dest (tackon @default-dest "RXMUI"))
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing dirlist.rxmec to LIBS:RXMUI" )
(help "This will copy dirlist.rxmec to LIBS:RXMUI")
(source (tackon #source-dir "LIBS/RXMUI/dirlist.rxmec"))
(dest (tackon @default-dest "RXMUI"))
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing volumelist.rxmec to LIBS:RXMUI" )
(help "This will copy volumelist.rxmec to LIBS:RXMUI")
(source (tackon #source-dir "LIBS/RXMUI/volumelist.rxmec"))
(dest (tackon @default-dest "RXMUI"))
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing coloradjust.rxmec to LIBS:RXMUI" )
(help "This will copy coloradjust.rxmec to LIBS:RXMUI")
(source (tackon #source-dir "LIBS/RXMUI/coloradjust.rxmec"))
(dest (tackon @default-dest "RXMUI"))
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing mailtext.rxmec to LIBS:RXMUI" )
(help "This will copy mailtext.rxmec to LIBS:RXMUI")
(source (tackon #source-dir "LIBS/RXMUI/mailtext.rxmec"))
(dest (tackon @default-dest "RXMUI"))
(confirm)
(optional "askuser" "force")
)
)
(welcome "Welcome to the rxmui.library installation.\n")
(set @app-name "rxmui.library")
(set @default-dest "LIBS:")
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(complete 0)
(choose)
(if (= 0 what) (exit))
(if (BITAND what 1) (copy-rxmui-lib))
(complete 10)
(if (BITAND what 2) (copy-rmh-lib))
(complete 30)
(if (BITAND what 4) (copy-rxasl-lib))
(complete 50)
(if (BITAND what 8) (copy-guide))
(complete 80)
(if (BITAND what 16) (copy-ext-classes))
(complete 90)
(if (BITAND what 32) (copy-ex))
(complete 100)