home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / sviluppo / rxmui / install < prev    next >
Encoding:
Text File  |  1999-12-21  |  3.8 KB  |  155 lines
  1. ; $VER: rxmui_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 "rxmui.library" "rmh.library" "rxasl.library" "Documentation" "External Classes" "Examples")
  9.    )
  10.   )
  11.  )
  12. )
  13.  
  14. (procedure copy-guide
  15.  (set #installGuideDir
  16.   (askdir
  17.    (prompt "Select the directory where you want to "
  18.     "install rxmui.library guide")
  19.     (help "This will install RxMUI documentation in AmigaGuide format")
  20.    (default "Ram Disk:")
  21.   )
  22.  )
  23.  (copyfiles
  24.   (source (tackon #source-dir "DOCS/english/"))
  25.   (dest #installGuideDir)
  26.   (optional force)
  27.   (all)
  28.  )
  29. )
  30.  
  31. (procedure copy-ex
  32.  (set #installExDir
  33.   (askdir
  34.    (prompt "Select the directory where you want to "
  35.     "install the examples")
  36.     (help "This will install RxMUI examples")
  37.    (default "Ram Disk:")
  38.   )
  39.  )
  40.  (copyfiles
  41.   (source (tackon #source-dir "EXAMPLES/"))
  42.   (dest #installExDir)
  43.   (optional force)
  44.   (all)
  45.  )
  46. )
  47.  
  48. (procedure copy-rxmui-lib
  49.  (copylib
  50.   (prompt "Installing rxmui.library to LIBS:" )
  51.   (help "This will copy rxmui.library to LIBS:")
  52.   (source (tackon #source-dir "LIBS/rxmui.library"))
  53.   (dest @default-dest)
  54.   (confirm)
  55.   (optional "askuser" "force")
  56.  )
  57. )
  58.  
  59. (procedure copy-rmh-lib
  60.  (copylib
  61.   (prompt "Installing rmh.library to LIBS:" )
  62.   (help "This will copy rmh.library to LIBS:")
  63.   (source (tackon #source-dir "LIBS/rmh.library"))
  64.   (dest @default-dest)
  65.   (confirm)
  66.   (optional "askuser" "force")
  67.  )
  68. )
  69.  
  70. (procedure copy-rxasl-lib
  71.  (copylib
  72.   (prompt "Installing rxasl.library to LIBS:" )
  73.   (help "This will copy rxasl.library to LIBS:")
  74.   (source (tackon #source-dir "LIBS/rxasl.library"))
  75.   (dest @default-dest)
  76.   (confirm)
  77.   (optional "askuser" "force")
  78.  )
  79. )
  80.  
  81. (procedure copy-ext-classes
  82.  (copylib
  83.   (prompt "Installing cm.rxmec to LIBS:RXMUI" )
  84.   (help "This will copy cm.rxmec to LIBS:RXMUI")
  85.   (source (tackon #source-dir "LIBS/RXMUI/cm.rxmec"))
  86.   (dest (tackon @default-dest "RXMUI"))
  87.   (confirm)
  88.   (optional "askuser" "force")
  89.  )
  90.  (copylib
  91.   (prompt "Installing speedbar.rxmec to LIBS:RXMUI" )
  92.   (help "This will copy speedbar.rxmec to LIBS:RXMUI")
  93.   (source (tackon #source-dir "LIBS/RXMUI/speedbar.rxmec"))
  94.   (dest (tackon @default-dest "RXMUI"))
  95.   (confirm)
  96.   (optional "askuser" "force")
  97.  )
  98.  (copylib
  99.   (prompt "Installing dirlist.rxmec to LIBS:RXMUI" )
  100.   (help "This will copy dirlist.rxmec to LIBS:RXMUI")
  101.   (source (tackon #source-dir "LIBS/RXMUI/dirlist.rxmec"))
  102.   (dest (tackon @default-dest "RXMUI"))
  103.   (confirm)
  104.   (optional "askuser" "force")
  105.  )
  106.  (copylib
  107.   (prompt "Installing volumelist.rxmec to LIBS:RXMUI" )
  108.   (help "This will copy volumelist.rxmec to LIBS:RXMUI")
  109.   (source (tackon #source-dir "LIBS/RXMUI/volumelist.rxmec"))
  110.   (dest (tackon @default-dest "RXMUI"))
  111.   (confirm)
  112.   (optional "askuser" "force")
  113.  )
  114.  (copylib
  115.   (prompt "Installing coloradjust.rxmec to LIBS:RXMUI" )
  116.   (help "This will copy coloradjust.rxmec to LIBS:RXMUI")
  117.   (source (tackon #source-dir "LIBS/RXMUI/coloradjust.rxmec"))
  118.   (dest (tackon @default-dest "RXMUI"))
  119.   (confirm)
  120.   (optional "askuser" "force")
  121.  )
  122.  (copylib
  123.   (prompt "Installing mailtext.rxmec to LIBS:RXMUI" )
  124.   (help "This will copy mailtext.rxmec to LIBS:RXMUI")
  125.   (source (tackon #source-dir "LIBS/RXMUI/mailtext.rxmec"))
  126.   (dest (tackon @default-dest "RXMUI"))
  127.   (confirm)
  128.   (optional "askuser" "force")
  129.  )
  130. )
  131.  
  132. (welcome "Welcome to the rxmui.library installation.\n")
  133.  
  134. (set @app-name "rxmui.library")
  135. (set @default-dest "LIBS:")
  136. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  137.  (expandpath @icon))
  138. )
  139.  
  140. (complete 0)
  141. (choose)
  142. (if (= 0 what) (exit))
  143. (if (BITAND what 1)  (copy-rxmui-lib))
  144. (complete 10)
  145. (if (BITAND what 2)  (copy-rmh-lib))
  146. (complete 30)
  147. (if (BITAND what 4)  (copy-rxasl-lib))
  148. (complete 50)
  149. (if (BITAND what 8) (copy-guide))
  150. (complete 80)
  151. (if (BITAND what 16) (copy-ext-classes))
  152. (complete 90)
  153. (if (BITAND what 32) (copy-ex))
  154. (complete 100)
  155.