home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / getitinstall / install < prev    next >
Encoding:
Text File  |  1999-05-23  |  1.9 KB  |  86 lines
  1. ; $VER: Install_GetIt 4.1 (15.5.99)
  2.  
  3. (procedure selDest
  4.  (set #installDir
  5.   (askdir
  6.    (prompt "Select the directory where you want to "
  7.            "install GetIt 4.1. An additional directory "
  8.            "will *NOT* be created at the location you specify.")
  9.    (help "Select the directory where you want to "
  10.          "install GetIt 4.1. All necessary files will be copied "
  11.          "to that directory during installation. A new directory "
  12.          "will *NOT* be created at the location you specify. "
  13.          "This means if you want GetIt to be installed in its "
  14.          "own directory then you need to create that directory "
  15.          "yourself first.")
  16.    (default "ram:")
  17.   )
  18.  )
  19. )
  20.  
  21. (procedure copyLibs
  22.  (set #copyLibsHelp "Copying the libraries needed by GetIt")
  23.  (copylib
  24.   (prompt "Installing rxsocket.library to LIBS:" )
  25.   (help #copyLibsHelp)
  26.   (source (tackon #source-dir "LIBS/rxsocket.library"))
  27.   (dest "LIBS:")
  28.   (confirm)
  29.   (optional "askuser" "force")
  30.  )
  31.  (copylib
  32.   (prompt "Installing rmh.library to LIBS:" )
  33.   (help #copyLibsHelp)
  34.   (source (tackon #source-dir "LIBS/rmh.library"))
  35.   (dest "LIBS:")
  36.   (confirm)
  37.   (optional "askuser" "force")
  38.  )
  39.  (copylib
  40.   (prompt "Installing rxwiz.library to LIBS:" )
  41.   (help #copyLibsHelp)
  42.   (source (tackon #source-dir "LIBS/rxwiz.library"))
  43.   (dest "LIBS:")
  44.   (confirm)
  45.   (optional "askuser" "force")
  46.  )
  47.  (copylib
  48.   (prompt "Installing rxasl.library to LIBS:" )
  49.   (help #copyLibsHelp)
  50.   (source (tackon #source-dir "LIBS/rxasl.library"))
  51.   (dest "LIBS:")
  52.   (confirm)
  53.   (optional "askuser" "force")
  54.  )
  55. )
  56.  
  57. (welcome "Welcome to the GetIt 4.1 installation.\n")
  58.  
  59. (set @app-name "GetIt 4.1")
  60.  
  61. (complete 0)
  62.  
  63. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  64.  (expandpath @icon))
  65. )
  66.  
  67. (selDest)
  68. (set @default-dest #installDir)
  69.  
  70. (complete 20)
  71.  
  72. ;copy libraries
  73. (copyLibs)
  74.  
  75. (complete 70)
  76.  
  77. ;copy files
  78. (copyfiles
  79.  (source (tackon #source-dir "CORE"))
  80.  (dest (#installDir))
  81.  (optional force)
  82.  (all)
  83. )
  84.  
  85. (complete 100)
  86.