; $VER: 'Install-SFSGui' 1.0 (30.11.99)


(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
(set #needInst43 "You must use Installer version 43 or greater.")
(set srcdir (pathonly @icon))
(if (< (/ @installer-version 65536) 43)
  (abort #needInst43)
)

(procedure vercopy #libname #newlib #oldlib

 (set newvv (getversion #newlib))
 (set newv (/ newvv 65536))
 (set newr (- newvv (* newv 65536) ) )

 (set oldvv (getversion #oldlib))
 (set oldv (/ oldvv 65536))
 (set oldr (- oldvv (* oldv 65536) ) )
(if (= oldvv 0) (set oldv "None Installed") )
 (if (>= newvv oldvv)
  (if (askbool
      (prompt "\nInstall: "#libname" ???\n\nVersion to Install: "newv"."newr"\nPrevious Version "oldv"."oldr"\n")
      (help "r")
      (choices "Install" "Skip This Bit")
      )
  (run "copy "#newlib" "#oldlib"")
  )
 )
)

(complete 10)

(set askfor "Select a Drawer to install SFSGui to\nA drawer Called SFSGui will be Created if it Doesn\'t Exsist")

(set SFSGpath
   (askdir
      (default "SYS:Tools")
      (prompt askfor)
      (help askfor)
   )
)
(set SFSGdir (tackon SFSGpath @app-name))

(set SFSicon (tackon SFSGpath "SFSGui.info"))


(complete 20)

(if
 (NOT (exists SFSGdir) )
(copyfiles
(source "/SFSGui.info")
(dest SFSGpath)
)
)

(makedir SFSGdir)

(complete 30)

(vercopy "RexxSupport library" "rexxsupport.library" "sys:libs/rexxsupport.library")

(complete 40)

(vercopy "AWNPipe handler" "awnpipe-handler" "sys:l/awnpipe-handler")

(complete 55)

(copyfiles
   (source "AWNPIPE")
   (dest "Devs:Dosdrivers/")
   (infos)
)

(complete 70)

(copyfiles
(source "SFSGui")
(dest SFSGdir)
(infos)
)

(complete 80)

(copyfiles
(source "SFSGui.Guide")
(dest SFSGdir)
(infos)
)

(complete 90)

(copyfiles
(source "ReadMe")
(dest SFSGdir)
(infos)
)

(complete 99)

(set @default-dest (expandpath SFSGdir))

(complete 100)

(exit  "\n\n" @app-name
  " is now installed.\n")