home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / manutenzione / sfsgui / install-sfsgui < prev    next >
Text File  |  1999-12-04  |  2KB  |  109 lines
  1. ; $VER: 'Install-SFSGui' 1.0 (30.11.99)
  2.  
  3.  
  4. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  5. (set #needInst43 "You must use Installer version 43 or greater.")
  6. (set srcdir (pathonly @icon))
  7. (if (< (/ @installer-version 65536) 43)
  8.   (abort #needInst43)
  9. )
  10.  
  11. (procedure vercopy #libname #newlib #oldlib
  12.  
  13.  (set newvv (getversion #newlib))
  14.  (set newv (/ newvv 65536))
  15.  (set newr (- newvv (* newv 65536) ) )
  16.  
  17.  (set oldvv (getversion #oldlib))
  18.  (set oldv (/ oldvv 65536))
  19.  (set oldr (- oldvv (* oldv 65536) ) )
  20. (if (= oldvv 0) (set oldv "None Installed") )
  21.  (if (>= newvv oldvv)
  22.   (if (askbool
  23.       (prompt "\nInstall: "#libname" ???\n\nVersion to Install: "newv"."newr"\nPrevious Version "oldv"."oldr"\n")
  24.       (help "r")
  25.       (choices "Install" "Skip This Bit")
  26.       )
  27.   (run "copy "#newlib" "#oldlib"")
  28.   )
  29.  )
  30. )
  31.  
  32. (complete 10)
  33.  
  34. (set askfor "Select a Drawer to install SFSGui to\nA drawer Called SFSGui will be Created if it Doesn\'t Exsist")
  35.  
  36. (set SFSGpath
  37.    (askdir
  38.       (default "SYS:Tools")
  39.       (prompt askfor)
  40.       (help askfor)
  41.    )
  42. )
  43. (set SFSGdir (tackon SFSGpath @app-name))
  44.  
  45. (set SFSicon (tackon SFSGpath "SFSGui.info"))
  46.  
  47.  
  48. (complete 20)
  49.  
  50. (if
  51.  (NOT (exists SFSGdir) )
  52. (copyfiles
  53. (source "/SFSGui.info")
  54. (dest SFSGpath)
  55. )
  56. )
  57.  
  58. (makedir SFSGdir)
  59.  
  60. (complete 30)
  61.  
  62. (vercopy "RexxSupport library" "rexxsupport.library" "sys:libs/rexxsupport.library")
  63.  
  64. (complete 40)
  65.  
  66. (vercopy "AWNPipe handler" "awnpipe-handler" "sys:l/awnpipe-handler")
  67.  
  68. (complete 55)
  69.  
  70. (copyfiles
  71.    (source "AWNPIPE")
  72.    (dest "Devs:Dosdrivers/")
  73.    (infos)
  74. )
  75.  
  76. (complete 70)
  77.  
  78. (copyfiles
  79. (source "SFSGui")
  80. (dest SFSGdir)
  81. (infos)
  82. )
  83.  
  84. (complete 80)
  85.  
  86. (copyfiles
  87. (source "SFSGui.Guide")
  88. (dest SFSGdir)
  89. (infos)
  90. )
  91.  
  92. (complete 90)
  93.  
  94. (copyfiles
  95. (source "ReadMe")
  96. (dest SFSGdir)
  97. (infos)
  98. )
  99.  
  100. (complete 99)
  101.  
  102. (set @default-dest (expandpath SFSGdir))
  103.  
  104. (complete 100)
  105.  
  106. (exit  "\n\n" @app-name
  107.   " is now installed.\n")
  108.  
  109.