home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / libs / rxsocket / install < prev    next >
Encoding:
Text File  |  1999-05-24  |  3.2 KB  |  146 lines
  1. ; $VER: rxsocket_Install
  2.  
  3. (procedure choose
  4.  (set what
  5.   (askoptions
  6.    (prompt "What do you want to install?"
  7.     (help "Choose what you want to install")
  8.     (choices "rxsocket.library" "rxlibnet.library" "rmh.library" "rxs commands" "libraries guide" "examples")
  9.    )
  10.   )
  11.  )
  12. )
  13.  
  14. (procedure sel-guide-dest
  15.  (set #installGuideDir
  16.   (askdir
  17.    (prompt "Select the directory where you want to "
  18.     "install rxsocket.library and rxlibnet guide")
  19.     (help "This will install rxsocket.library guide"
  20.      "and rxlibnet guide")
  21.    (default "Ram Disk:")
  22.   )
  23.  )
  24. )
  25. (procedure copy-guide
  26.  (sel-guide-dest)
  27.  (copyfiles
  28.   (source (tackon #source-dir "DOCS/english/"))
  29.   (dest #installGuideDir)
  30.   (optional force)
  31.   (all)
  32.  )
  33. )
  34.  
  35. (procedure copy-rxs-commands
  36.  (copylib
  37.   (prompt "Installing rxs to C:" )
  38.   (help "This will copy rxs to C:")
  39.   (source (tackon #source-dir "C/rxs"))
  40.   (dest "C:")
  41.   (confirm)
  42.   (optional "askuser" "force")
  43.  )
  44.  (copylib
  45.   (prompt "Installing rxsco to C:" )
  46.   (help "This will copy rxsco to C:")
  47.   (source (tackon #source-dir "C/rxsco"))
  48.   (dest "C:")
  49.   (confirm)
  50.   (optional "askuser" "force")
  51.  )
  52.  (copylib
  53.   (prompt "Installing rxscc to C:" )
  54.   (help "This will copy rxscc to C:")
  55.   (source (tackon #source-dir "C/rxscc"))
  56.   (dest "C:")
  57.   (confirm)
  58.   (optional "askuser" "force")
  59.  )
  60.  (copylib
  61.   (prompt "Installing rxhelp to C:" )
  62.   (help "This will copy rxhelp to C:")
  63.   (source (tackon #source-dir "C/rxhelp"))
  64.   (dest "C:")
  65.   (confirm)
  66.   (optional "askuser" "force")
  67.  )
  68. )
  69.  
  70. (procedure selExDest
  71.  (set #installExDir
  72.   (askdir
  73.    (prompt "Select the directory where you want to "
  74.     "install the examples")
  75.     (help "This will install rxsocket.library examples")
  76.    (default "Ram Disk:")
  77.   )
  78.  )
  79. )
  80. (procedure copy-ex
  81.  (selExDest)
  82.  (copyfiles
  83.   (source (tackon #source-dir "EXAMPLES/"))
  84.   (dest #installExDir)
  85.   (optional force)
  86.   (all)
  87.  )
  88. )
  89.  
  90. (procedure copy-rxsocket-lib
  91.  (copylib
  92.   (prompt "Installing rxsocket.library to LIBS:" )
  93.   (help "This will copy rxsocket.library to LIBS:")
  94.   (source (tackon #source-dir "LIBS/rxsocket.library"))
  95.   (dest @default-dest)
  96.   (confirm)
  97.   (optional "askuser" "force")
  98.  )
  99. )
  100.  
  101. (procedure copy-rxlibnet-lib
  102.  (copylib
  103.   (prompt "Installing rxlibnet.library to LIBS:" )
  104.   (help "This will copy rxlibnet.library to LIBS:")
  105.   (source (tackon #source-dir "LIBS/rxlibnet.library"))
  106.   (dest @default-dest)
  107.   (confirm)
  108.   (optional "askuser" "force")
  109.  )
  110. )
  111.  
  112. (procedure copy-rmh-lib
  113.  (copylib
  114.   (prompt "Installing rmh.library to LIBS:" )
  115.   (help "This will copy rmh.library to LIBS:")
  116.   (source (tackon #source-dir "LIBS/rmh.library"))
  117.   (dest @default-dest)
  118.   (confirm)
  119.   (optional "askuser" "force")
  120.  )
  121. )
  122.  
  123. (welcome "Welcome to the rxsocket.library installation.\n")
  124.  
  125. (set @app-name "rxsocket.library")
  126. (set @default-dest "LIBS:")
  127. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  128.  (expandpath @icon))
  129. )
  130.  
  131. (complete 0)
  132. (choose)
  133. (if (= 0 what) (exit))
  134. (if (BITAND what 1)  (copy-rxsocket-lib))
  135. (complete 10)
  136. (if (BITAND what 2)  (copy-rxlibnet-lib))
  137. (complete 20)
  138. (if (BITAND what 4)  (copy-rmh-lib))
  139. (complete 30)
  140. (if (BITAND what 8)  (procedure copy-rxs-commands))
  141. (complete 40)
  142. (if (BITAND what 16) (copy-guide))
  143. (complete 80)
  144. (if (BITAND what 32) (copy-ex))
  145. (complete 100)
  146.