home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / workbench / uniview / install < prev    next >
Encoding:
Text File  |  1998-02-13  |  6.2 KB  |  260 lines
  1. ;
  2. ; $PROJECT: UniView
  3. ;
  4. ; $VER: Install 40.1 (08.12.96)
  5. ;
  6. ; $AUTHOR: Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  7. ;
  8. ; $COPYRIGHT: (C) Copyright 1996-1997 by Stefan Ruppert, All Rights Reserved!
  9. ;
  10. ; $EMAIL: ruppert@amigaworld.com
  11. ;
  12. ; $HISTORY:
  13. ;
  14. ; 08.12.96 : 040.001 : initial
  15. ;
  16.  
  17. (set #project       "UniView")
  18. (set #dirname       "UniView")
  19.  
  20. (set #cpu (database "cpu"))
  21.  
  22. (set #loc-english  (cat "english"))
  23. (set #loc-german   (cat "deutsch"))
  24. (set #loc-danish   (cat "dansk"))
  25. (set #loc-frensh   (cat "français"))
  26. (set #loc-greek    (cat "greek"))
  27. (set #loc-italiano (cat "italiano"))
  28. (set #loc-norsk    (cat "norsk"))
  29. (set #loc-suomi    (cat "suomi"))
  30. (set #loc-swedish  (cat "svenska"))
  31.  
  32. ;
  33. ; V43 installer only
  34. ;
  35. (procedure p_version name
  36.     (/ (getversion name) 65536)
  37. )
  38.  
  39. (procedure p_revision name
  40.     (set #p_ver (getversion name))
  41.     (- #p_ver (* (/ #p_ver 65536) 65536))
  42. )
  43.  
  44. ;
  45. ; german texts
  46. ;
  47.  
  48. (set #lang-default 0)
  49.  
  50. (if (= @language "deutsch")
  51.     (
  52.     (set #lang-default 2)
  53.     (set #txt-english "Englisch")
  54.     (set #txt-german  "Deutsch")
  55.  
  56.     (set #txt-classdir-prompt "Wo liegen die System Klassen?")
  57.  
  58.     (set #txt-dest-dir-prompt (cat
  59.          "Wohin soll " @app-name " installiert werden?\n"
  60.          "(Es wird ein Verzeichnis " #dirname " angelegt)"
  61.          )
  62.     )
  63.     (set #txt-dest-dir-help (cat
  64.          "Wählen Sie hier ein Verzeichnis, indem alle Dateien abgelegt "
  65.          "werden.\n"
  66.          )
  67.     )
  68.  
  69.     (set #txt-copy-class "Kopiere Klassen")
  70.     (set #txt-copy-menu-files "Kopiere Menü Dateien")
  71.  
  72.     (set #txt-language-prompt "Welche Sprachen sollen installiert werden?")
  73.     (set #txt-language-help   (cat ""))
  74.  
  75.     (set #txt-replace-multiview (cat
  76.          "Soll MultiView durch UniView ersetzt werden (HardLink)?\n\n"
  77.          "Wenn Sie für alle Dateien lieber UniView als Standard verwenden "
  78.          "wollen, dann ist es sinnvoll MultiView in z.B. MultiView.old "
  79.          "umzubennen und einen Link von MultiView auf UniView zeigen zu "
  80.          "lassen. Dies wird durch einen Hardlink erreicht, so daß UniView "
  81.          "auf der gleichen Partition installiert sein muß wie MultiView "
  82.          "(Sys:). Wenn Sie dies wünschen, dann beanworten Sie die Frage "
  83.          "mit Ja."
  84.     ))
  85.     )
  86. )
  87.  
  88. ;
  89. ; english texts (default)
  90. ;
  91.  
  92. (if (OR (= @language "english") (= #lang-default 0))
  93.     (
  94.     (set #lang-default 1)
  95.  
  96.     (set #txt-english "English")
  97.     (set #txt-german  "German")
  98.  
  99.     (set #txt-classdir-prompt "Where do the system classes belong?")
  100.  
  101.     (set #txt-dest-dir-prompt (cat
  102.          "Where do you want to install the " @app-name "?\n"
  103.          "(A drawer called " #dirname " will be created there)"
  104.          )
  105.     )
  106.     (set #txt-dest-dir-help (cat
  107.          "Please select here a drawer, in which all files are copied. "
  108.          )
  109.     )
  110.  
  111.     (set #txt-copy-class "Copy classes")
  112.     (set #txt-copy-menu-files "Copy menu files")
  113.  
  114.     (set #txt-language-prompt "Which languages should be installed?")
  115.     (set #txt-language-help   (cat ""))
  116.  
  117.     (set #txt-replace-multiview (cat
  118.          "Do you want to replace MultiView with UniView (HardLink)?\n\n"
  119.          "If you want to view all files by default with UniView instead "
  120.          "with MultiView, you can do this by renaming MultiView to MultiView.old, "
  121.          "for example and to create a link from MultiView to UniView. "
  122.          "This will be made with an hard link, if you choose yes. But note, "
  123.          "therefore UniView have to be installed on the same partition as "
  124.          "MultiView resides (Sys:)."
  125.     ))
  126.     )
  127. )
  128.  
  129.  
  130. ; get classes dir
  131. (set #classdir
  132.     (askdir
  133.         (prompt #txt-classdir-prompt)
  134.         (help @askdir-help)
  135.         (default "SYS:Classes")
  136.     )
  137. )
  138.  
  139. (complete 0)
  140.  
  141. (set @default-dest "Sys:Utilities")
  142. (set #dest-dir-raw
  143.      (askdir
  144.         (prompt #txt-dest-dir-prompt)
  145.         (help #txt-dest-dir-help @askdir-help)
  146.         (default @default-dest)
  147.      )
  148. )
  149. (set #dest-dir (tackon #dest-dir-raw #dirname))
  150. (if (= (exists #dest-dir) 0)
  151.     (makedir #dest-dir (infos))
  152. )
  153. (set @default-dest #dest-dir)
  154.  
  155. (set #languages
  156.      (askoptions
  157.      (prompt #txt-language-prompt)
  158.      (choices #loc-english #loc-german "") ; (#loc-frensh #loc-danish #loc-greek #loc-italiano #loc-norsk #loc-suomi #loc-swedish "")
  159.      (help #txt-language-help @askoptions-help)
  160.      (default #lang-default)
  161.      )
  162. )
  163.  
  164. (complete 10)
  165.  
  166. (if (= (exists "classes" (noreq)) 2)
  167.     (
  168.      (copylib
  169.          (prompt #txt-copy-class)
  170.          (help @copylib-help)
  171.          (source "classes/dtwindow.class")
  172.          (dest #classdir)
  173.      )
  174.      (copylib
  175.          (prompt #txt-copy-class)
  176.          (help @copylib-help)
  177.          (source "classes/startup.class")
  178.          (dest #classdir)
  179.      )
  180.     )
  181. )
  182.  
  183. (complete 10)
  184.  
  185. (if (= (exists "locale" (noreq)) 2)
  186.     (
  187.     (set l 0)
  188.  
  189.     (while (set #lang (select l #loc-english #loc-german "")) ; (( #loc-frensh #loc-danish #loc-greek #loc-italiano #loc-norsk #loc-suomi #loc-swedish ""))
  190.          (if (in #languages l)
  191.          (
  192.              (set c 0)
  193.              (while (set #catalog (select c "startup" "dtwindow" ""))
  194.              (if (= (exists (cat "locale/catalogs/" #lang "/" #catalog ".catalog")) 1)
  195.                  (copyfiles
  196.                  (prompt (cat #txt-copy-catalog-prompt ": " #lang))
  197.                  (source (cat "locale/catalogs/" #lang "/" #catalog ".catalog"))
  198.                  (dest   (cat "Locale:catalogs/" #lang))
  199.                  )
  200.              )
  201.              (set c (+ c 1))
  202.              )
  203.              (makedir (tackon #dest-dir "Menu"))
  204.              (copyfiles
  205.              (prompt #txt-copy-menu-files)
  206.              (source "Menu.info")
  207.              (dest   #dest-dir)
  208.              )
  209.              (makedir (tackon (tackon #dest-dir "Menu") #lang))
  210.              (copyfiles
  211.              (prompt #txt-copy-menu-files)
  212.              (source (tackon "Menu" #lang))
  213.              (pattern "#?")
  214.              (dest (tackon (tackon #dest-dir "Menu") #lang))
  215.              (infos)
  216.              )
  217.          )
  218.          )
  219.          (set l (+ l 1))
  220.     )
  221.     )
  222. )
  223.  
  224. (complete 30)
  225.  
  226. (copyfiles
  227.     (prompt #txt-copy-all)
  228.     (source "")
  229.     (dest   #dest-dir)
  230.     (pattern "~(locale#?|menu#?|install#?|classes#?)")
  231.     (help @copyfiles-help)
  232.     (infos)
  233. )
  234.  
  235. (complete 80)
  236. (copyfiles
  237.     (prompt #txt-copy-all)
  238.     (help @copyfiles-help)
  239.     (source "/UniView.info")
  240.     (dest   (cat #dest-dir-raw))
  241. )
  242.  
  243. (complete 90)
  244. (if (NOT (exists "Sys:Utilities/MultiView.old"))
  245.     (if (askbool (prompt #txt-replace-multiview) (help @askbool-help))
  246.     (
  247.         (if (exists "Sys:Utilities/MultiView")
  248.         (rename "Sys:Utilities/MultiView" "Sys:Utilities/MultiView.old")
  249.         )
  250.         (run "MakeLink" (cat "From Sys:Utilities/MultiView TO " (tackon #dest-dir "UniView") " HARD FORCE"))
  251.     )
  252.     )
  253. )
  254. (complete 95)
  255.  
  256. (run "Sys:Utilities/MultiView" "ReadMe")
  257.  
  258. (complete 100)
  259.  
  260.