home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / misc / memake.lha / memake / Install < prev    next >
Encoding:
Text File  |  1997-01-30  |  2.8 KB  |  163 lines
  1. ;
  2. ; Installer-Script for MEMake 2.0
  3. ; 
  4. ;    Autor    : Malte Eller
  5. ;    Version    : 1.1
  6. ;    Datum    : 16.01.1997
  7. ;
  8. ;    $VER: Install 1.0 (16.01.1997)
  9. ;
  10. ;**************************************************
  11.  
  12. (set @user-level 1)
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set #bad-kick (cat "Leider wird OS2.0 oder höher benötigt"))
  17. (set #askdir1 (cat "Wohin wollen Sie MEMake installieren?\n"
  18. "Dort wird dann eine neue Schubalde angelegt"))
  19. (set #fragetext (cat "Soll ich das Programm auch in die\n"
  20. " WBStartup kopieren?"))
  21. (set #ja (cat "Ja"))
  22. (set #nein (cat "Nein"))
  23. (set #confirmt (cat "Was soll ich instalieren?"))
  24. (set #fragetextL (cat "Welche Sprachen sollen installiert werden?"))
  25. (set #fragestext (cat "Soll ich das Prefsfile nach S: kopieren?"))
  26. )
  27.  
  28. (
  29. (set #bad-kick (cat "I need OS2.0 or higher"))
  30. (set #askdir1 (cat "In which Drawer will you install MEMake?\n"
  31. "A new Drawer will be create"))
  32. (set #fragetext (cat "Should I copy the Program to WBStartup"))
  33. (set #ja (cat "Yes"))
  34. (set #nein (cat "No"))
  35. (set #confirmt (cat "What should I install?"))
  36. (set #fragetextL (cat "Which languages should I install?"))
  37. (set #fragestext (cat "Sould I copy the Prefsfile to S:"))
  38. ))
  39.  
  40. ;**************************************************
  41.  
  42. (if (< (/ (getversion) 65536) 37)
  43. (
  44.     (abort #bad-kick)
  45. ))
  46.  
  47. ;**************************************************
  48.  
  49. (complete 0)
  50.  
  51. (set #name
  52.     (askdir
  53.         (prompt #askdir1)
  54.         (help @askdir-help)
  55.         (default "sys:")
  56.     )
  57. )
  58.  
  59. (set #Dname (tackon #name "MEMake"))
  60.  
  61. (makedir #Dname
  62.  (infos)
  63. )
  64.  
  65. (copyfiles
  66.     (source "")
  67.     (dest #Dname)
  68.     (pattern "#?")
  69.     (prompt #confirmt)
  70.     (help @confirm-help)
  71.     (confirm)
  72. )
  73.  
  74. (complete 50)
  75.  
  76. ;**************************************************
  77.  
  78. (set name
  79.     (askoptions
  80.         (prompt #fragetext)
  81.         (help @askoptions-help)
  82.         (choices #Ja)
  83.         (default 1)
  84.     )
  85. )
  86.  
  87. (if (= 1 name)
  88. (
  89.  (copyfiles
  90.     (source "MEMake")
  91.     (dest "sys:WBStartup")
  92.     (prompt #fragetext)
  93.     (help @confirm-help)
  94.     (confirm)
  95.  )
  96.  (copyfiles
  97.     (source "MEMake.info")
  98.     (dest "sys:WBStartup")
  99.     (prompt #fragetext)
  100.     (help @confirm-help)
  101.     (confirm)
  102.  )
  103. )
  104. )
  105.  
  106. (copyfiles
  107.     (source "MEMake.prefs")
  108.     (dest "s:")
  109.     (prompt #fragestext)
  110.     (help @confirm-help)
  111.     (confirm)
  112. )
  113. (copyfiles
  114.     (source "MEMake.ToolsListe")
  115.     (dest "s:")
  116.     (prompt #fragestext)
  117.     (help @confirm-help)
  118.     (confirm)
  119. )
  120.  
  121. (complete 80)
  122.  
  123. ;**************************************************
  124.  
  125. (if (exists "sys:locale/catalogs")
  126.  
  127.  (set #lang (askoptions
  128.         (prompt #fragetextL)
  129.         (help @askoptions-help)
  130.         (choices "Deutsch" "English")
  131.         (default 1))
  132.  )
  133. )
  134.  
  135. (set #n 0)
  136.  
  137. (while
  138.     (set #sprache
  139.          (select #n
  140.              "Deutsch"
  141.              "English"
  142.              ""
  143.          )
  144.      )
  145.     (
  146.      (if (IN #lang #n)
  147.         (
  148.          (set #catalog (tackon "Catalogs" (tackon #sprache "MEMake.catalog")))
  149.          (set #destination (tackon "Locale:Catalogs/" #sprache))
  150.          (copyfiles
  151.             (source #catalog)
  152.             (dest #destination)
  153.             (prompt #confirmt)
  154.             (help @confirm-help)
  155.             (confirm))
  156.         )
  157.      )
  158.      (set #n (+ #n 1))
  159.     )
  160. )
  161.  
  162. (complete 100)
  163.