home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1019.lha / Programs / SMenu / SMenu.install < prev    next >
Encoding:
Text File  |  1994-06-03  |  2.4 KB  |  137 lines
  1. ; find SMenu version in distribution
  2. (set vernum-SMenu (getversion "SMenu"))
  3. (set version-SMenu    (/ vernum-SMenu 65536))
  4. (set revision-SMenu    (- vernum-SMenu (* version-SMenu 65536) ) )
  5.  
  6. (set @default-dest "")
  7. (set @doc-dest "")
  8.  
  9. (set #bad-kick "SMenu needs Kickstart 2.04 at least to run !")
  10.  
  11. (set #install-SMenu-msg 
  12.     ("Please select the Directory where you would like to install SMenu...")
  13. )
  14.  
  15. (set #install-msg
  16.     (cat ("\n\n SMenu %ld.%ld installation script.\n\n\n" version-SMenu revision-SMenu)
  17.           " This script installs SMenu and related files on your Amiga.\n\n")
  18. )
  19.  
  20. (set #install-guide 
  21.     (cat "Where would you like to install the documentation for SMenu which is in amigaguide format?")
  22. )
  23.  
  24. (set #arexx-prompt  "Which ARexx-scripts should be installed?")
  25.  
  26. (set #arexx-help
  27.     (cat "   These are scripts which make SMenu able to quit other programs.\n"
  28.           "   You should install those scripts which supports programs in your system.\n\n")
  29. )
  30.  
  31.  
  32. ; BEGINNING OF INSTALLATION
  33. ; MAKE SURE WE ARE RUNNING UNDER A 2.04 ROM AT LEAST
  34.  
  35. (if (< (/ (getversion) 65536) 37)
  36.     (
  37.         (abort #bad-kick)
  38.     )
  39. )
  40.  
  41. (message #install-msg)
  42.  
  43. ; ASK WHERE TO INSTALL SMenu
  44.  
  45. (set @default-dest
  46.     (askdir
  47.        (prompt #install-SMenu-msg)
  48.        (help @askdir-help)
  49.        (default "SYS:WBStartup")
  50.    )
  51. )
  52.  
  53. (copyfiles
  54.     (prompt "")
  55.     (source "SMenu")
  56.     (dest @default-dest)
  57.     (infos)
  58. )
  59.  
  60. ; INSTALL AREXX-SCRIPT
  61.  
  62. (set lang
  63.     (askoptions (prompt #arexx-prompt)
  64.         (help #arexx-help)
  65.         (choices
  66.             "ADPro"
  67.             "CygnusED"
  68.             "DiskMaster"
  69.             "DOpus"
  70.             "EDGE"
  71.             "FinalWriter"
  72.             "GoldED"
  73.             "NComm"
  74.             "PPage"
  75.             "ProCalc"
  76.             "Thor"
  77.         )
  78.     )
  79. )
  80.  
  81. (makedir "REXX:SMenu")
  82. (set n 0)
  83. (while (set language (select n
  84.             "ADPro_quit.rexx"
  85.             "CED_quit.rexx"
  86.             "DM_quit.rexx"
  87.             "DOpus_quit.rexx"
  88.             "EDGE_quit.rexx"
  89.             "FinalW_quit.rexx"
  90.             "GED_quit.rexx"
  91.             "NComm_quit.rexx"
  92.             "PPage_quit.rexx"
  93.             "ProCalc_quit.rexx"
  94.             "Thor_quit.rexx"
  95.             ""))
  96.     (
  97.         (if (IN lang n)
  98.             (
  99.                 (if (<> 1 n)
  100.                     (
  101.                         (copyfiles (source (cat "arexx/" language))
  102.                            (dest "REXX:SMenu/")
  103.                         )
  104.                     )
  105.                 )
  106.             )
  107.         )
  108.     )
  109.     (set n (+ n 1))
  110. )
  111.  
  112. ; INSTALL SMenu.GUIDE
  113.  
  114. (if (askbool
  115.     (prompt "Do you want to install the documentation ?")
  116.     (help @askbool-help)
  117.     )
  118. ; Then
  119.     (
  120.         (set @doc-dest
  121.             (askdir
  122.                (prompt #install-guide)
  123.                (help @askdir-help)
  124.                (default "SYS:Help/")
  125.            )
  126.         )
  127.  
  128.         (copyfiles
  129.             (prompt "")
  130.             (source "SMenu.Guide")
  131.             (dest @doc-dest)
  132.             (infos)
  133.         )
  134.     )
  135. )
  136.  
  137.