home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / wb / deft_ii / install / install < prev   
Encoding:
Text File  |  1994-11-06  |  5.9 KB  |  276 lines
  1. (set vernum-DeftII (getversion "/Deft II"))
  2. (set version-DeftII (/ vernum-DeftII 65536))
  3. (set revision-DeftII (- vernum-DeftII (* version-DeftII 65536)))
  4.  
  5. (set @default-dest "")
  6. (set #sources_wanted 0)
  7. (set #rexx_wanted 0)
  8.  
  9. ;-------------------------------------------------
  10. ;-------------------------------------------------
  11. ; English strings
  12.  
  13. (if    (= @language "english")
  14.     (
  15.      
  16.         (set default_lang 1)
  17.  
  18.         (set default_doc 0)
  19.  
  20.         (set #bad-wb-msg "Deft II needs Workbench 2.0 (V37) or higher !")
  21.  
  22.         (set #install-msg (cat "This script installs Deft II v" version-DeftII "." revision-DeftII " on your Amiga."))
  23.  
  24.         (set #install-DeftII-prompt "Choose the directory where to put Deft II and its documentation (create it if needed) :")
  25.  
  26.         (set #doc-prompt "Choose the documentation to install :")
  27.  
  28.         (set #locale-prompt "Choose the different languages to install :")
  29.  
  30.         (set #locale-help "Deft II uses the .catalog files to speak your language. Only the files you're going to select will be available next.")
  31.  
  32.         (set #sources-request "Do you want to install a directory with DeftII sources inside ?")
  33.  
  34.         (set #sources_prompt "Choose the directory where to put the DeftII sources (create it if needed) :")
  35.  
  36.         (set #arexx-request "Do you want to copy Deft II ARexx scripts to REXX: ?")
  37.  
  38.     )
  39. )
  40.  
  41. ;-------------------------------------------------
  42. ;-------------------------------------------------
  43. ; French strings
  44.  
  45. (if    (= @language "français")
  46.     (
  47.  
  48.         (set default_lang 2)
  49.  
  50.         (set default_doc 1)
  51.  
  52.         (set #bad-wb-msg "Deft II nécessite un Workbench 2.0 (V37) ou supérieur !")
  53.  
  54.         (set #install-msg (cat "Ce script installe Deft II v" version-DeftII "." revision-DeftII " sur votre Amiga."))
  55.  
  56.         (set #install-DeftII-prompt "Choisissez le répertoire qui contiendra DeftII et sa documentation (créez-le si nécessaire) :")
  57.  
  58.         (set #doc-prompt "Choisissez la documentation à installer :")
  59.  
  60.         (set #locale-prompt "Choisissez les différents langages à installer :")
  61.  
  62.         (set #locale-help "Deft II utilise les fichiers catalog pour parler votre langue. Seuls les fichiers que vous allez sélectionner seront accessibles par la suite.")
  63.  
  64.         (set #sources-request "Voulez-vous installer un répertoire avec les sources de DeftII ?")
  65.  
  66.         (set #sources-prompt "Choisissez le répertoire qui contiendra les sources de DeftII (créez-le si nécessaire) :")
  67.  
  68.         (set #arexx-request "Voulez-vous copier les scripts ARexx de Deft II dans REXX: ?")
  69.  
  70.     )
  71. )
  72.  
  73. ;-------------------------------------------------
  74. ;-------------------------------------------------
  75. ; German strings
  76.  
  77. (if    (= @language "deutsch")
  78.     (
  79.      
  80.         (set default_lang 4)
  81.  
  82.         (set default_doc 0)
  83.  
  84.         (set #bad-wb-msg "Deft II needs Workbench 2.0 (V37) or higher !")
  85.  
  86.         (set #install-msg (cat "This script installs Deft II v" version-DeftII "." revision-DeftII " on your Amiga."))
  87.  
  88.         (set #install-DeftII-prompt "Choose the directory where to put Deft II and its documentation (create it if needed) :")
  89.  
  90.         (set #doc-prompt "Choose the documentation to install :")
  91.  
  92.         (set #locale-prompt "Choose the different languages to install :")
  93.  
  94.         (set #locale-help "Deft II uses the .catalog files to speak your language. Only the files you're going to select will be available next.")
  95.  
  96.         (set #sources-request "Do you want to install a directory with DeftII sources inside ?")
  97.  
  98.         (set #sources_prompt "Choose the directory where to put the DeftII sources (create it if needed) :")
  99.  
  100.         (set #arexx-request "Do you want to copy Deft II ARexx scripts to REXX: ?")
  101.  
  102.     )
  103. )
  104.  
  105. ;-------------------------------------------------
  106. ;-------------------------------------------------
  107. ; Installation
  108.  
  109. ; GET WORKBENCH RELEASE. V37 AT LEAST NEEDED
  110.  
  111. (if (< (/ (getversion "LIBS:version.library") 65536) 37)
  112.     (
  113.         (abort #bad-wb-msg)
  114.     )
  115. )
  116.  
  117. (message #install-msg)
  118.  
  119. ; ASK WHERE TO INSTALL DeftII
  120.  
  121. (set @default-dest
  122.     (askdir
  123.         (prompt #install-DeftII-prompt)
  124.         (help @askdir-help)
  125.         (default "work:")
  126.         (disk)
  127.     )
  128. )
  129.  
  130. ; AND COPY IT !
  131.  
  132. (copyfiles
  133.     (source "/Deft II")
  134.     (dest @default-dest)
  135. )
  136.  
  137. (copyfiles
  138.     (source "/Deft II.info")
  139.     (dest @default-dest)
  140. )
  141.  
  142. (if (not (exists (tackon @default-dest "Deft II.prefs") (noreq)))
  143.     (copyfiles
  144.         (source "/Deft II.prefs")
  145.         (dest @default-dest)
  146.     )
  147. )
  148.  
  149. ; ASK WHICH DOC FILE TO INSTALL
  150.  
  151. (set doc
  152.     (askchoice
  153.         (prompt #doc-prompt)
  154.         (help @askchoice-help)
  155.         (choices
  156.             "English"
  157.             "Français"
  158.         )
  159.         (default default_doc)
  160.     )
  161. )
  162.  
  163. ; AND COPY IT !
  164.  
  165. (set doc-dir
  166.     (select doc "English" "Français")
  167. )
  168.  
  169. (copyfiles
  170.     (source (cat "/Docs/" doc-dir))
  171.     (dest @default-dest)
  172.     (all)
  173. )
  174.  
  175. ; LOCALE FILE INSTALLATION
  176.  
  177. (if (>= (/ (getversion "LIBS:version.library") 65536) 38)
  178.  
  179.     (
  180.  
  181. ; ASK WHICH LOCALE FILES TO INSTALL
  182.  
  183.         (set lang
  184.             (askoptions
  185.                 (prompt #locale-prompt)
  186.                 (help #locale-help)
  187.                 (choices
  188.                     "English (built-in)"
  189.                     "Français"
  190.                     "Deutsch"
  191.                 )
  192.                 (default default_lang)
  193.             )
  194.         )
  195.  
  196.  
  197. ; AND COPY THEM !
  198.  
  199.         (set n 0)
  200.  
  201.         (while
  202.             (set language
  203.                 (select n "english" "français" "deutsch" "")
  204.             )
  205.  
  206.             (if (IN lang n)
  207.                 (if (<> n 0)
  208.                     (
  209.                         (if (= 0 (exists (cat "LOCALE:Catalogs/" language) (noreq)))
  210.                             (makedir (cat "LOCALE:Catalogs/" language) (help @makedir-help))
  211.                         )
  212.  
  213.                         (if (<> 1 @pretend)
  214.                             (copyfiles
  215.                                 (source (cat "/catalogs/" language))
  216.                                 (dest (cat "LOCALE:Catalogs/" language))
  217.                                 (all)
  218.                             )
  219.                         )
  220.                     )
  221.                 )
  222.  
  223.             )
  224.  
  225.             (set n (+ n 1))
  226.         )
  227.     )
  228.  
  229. )
  230.  
  231. ; ASK WHERE TO INSTALL SOURCES IF WANTED
  232.  
  233. (if (= 2 @user-level)
  234.     (if (askbool
  235.             (help @askbool-help)
  236.             (prompt #sources-request)
  237.         )
  238.         (
  239.             (set #sources_wanted 1)
  240.             (set sources-dir
  241.                 (askdir
  242.                     (prompt #sources_prompt)
  243.                     (help @askdir-help)
  244.                     (default @default-dest)
  245.                     (disk)
  246.                 )
  247.             )
  248.         )
  249.     )
  250. )
  251.  
  252. ; AND COPY THEM IF WANTED
  253.  
  254. (if #sources_wanted
  255.     (copyfiles
  256.         (source "/Sources")
  257.         (dest sources-dir)
  258.         (all)
  259.     )
  260. )
  261.  
  262. ; ASK IF Deft II AREXX SCRIPTS MUST BE COPIED AND COPY THEM IF WANTED
  263.  
  264. (if (= 2 @user-level)
  265.     (if (askbool
  266.             (help @askbool-help)
  267.             (prompt #arexx-request)
  268.         )
  269.         (copyfiles
  270.             (source "/ARexx")
  271.             (dest "REXX:")
  272.             (all)
  273.         )
  274.     )
  275. )
  276.