; $VER: Install_DOpusXFD 1.0 (10.8.96)
; Install script for DOpusXFD

(set srcdir "")
(set destdir "Dopus5:")
(set @default-dest destdir)

;========================================================
; Copy Main Program

(copyfiles
    (prompt "Copying DOpusXFD to destination.")
    (help @copyfiles-help)
    (source (tackon srcdir "C/DOpusXFD"))
    (dest (tackon destdir "C"))
    (infos)
    (confirm)
)
(complete 20)

;========================================================
; Copy Filetype

(copyfiles
        (prompt "Copying XFD filetype to destination.")
        (help @copyfiles-help)
        (source (tackon srcdir "Filetypes/XFD"))
        (dest (tackon destdir "Filetypes"))
        (infos)
        (confirm)
)
(complete 40)
 
;========================================================
; Copy Main Program

(copyfiles
        (prompt "Copying DOpusXFD Guide to destination.")
        (help @copyfiles-help)
        (source (tackon srcdir "Docs/DOpusXFD.guide"))
        (dest (tackon destdir "C"))
        (infos)
        (confirm)
)
(complete 60)

(if (< (/ (getversion "xfdmaster.library" (resident)) 65536) 38)
(
        (copylib
                (prompt ("\n\nInstalling xfdmaster.library"))
                (help @copylib-help)
                (source (tackon srcdir "libs/xfdmaster.library"))
                (dest "LIBS:")
                (confirm)
        )
(complete 80)
        (copyfiles
                (prompt ("\n\nInstalling xfdmaster sub-libraries"))
                (help @copylib-help)
                (source (tackon srcdir "libs/xfd"))
                (dest "LIBS:xfd")
                (pattern "#?")
                (confirm)
        ) 
)
)
(complete 100)

(exit)