home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / varia / happydt / install / install_script < prev   
Text File  |  1997-07-24  |  7KB  |  307 lines
  1.  
  2. ; $VER: Install HappyDT 2.2 (06.22.97)
  3. ;
  4. ;    Installer script for HappyDT.
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialize messages.
  10.  
  11.     (set #WrongKickStart "\nYou must be using at least KickStart 3.0 to run HappyDT.")
  12.     (set #WhichLanguage "\nWhich languages should be installed ? (English built-in)\n")
  13.     (set #WhichDoc "\nWhich documentations should be installed ?\n")
  14.     (set #ChoiceCpu "\nWhich version of HappyDT should be installed ?\n")
  15.     (set #ChoiceIcon "\nWhich icon type should be installed ?\n")
  16.     (set #SelDCom "\nSelect the drawer where you want the HappyDT program will be install.\n")
  17.     (set #SelDPre "\nSelect the drawer where you want the preference program will be install\n")
  18.     (set #SelBDoc "\nDo you wish to install the HappyDT documentation ?")
  19.     (set #SelDDoc "\nSelect the drawer where you want the HappyDT documentation will be install.\n")
  20.  
  21. (if (= @language "français")
  22. (
  23.     (set #WrongKickStart "\nVous devez utilisez au moins le KickStart 3.0\n pour utiliser HappyDT.")
  24.     (set #WhichLanguage "\nQuelles languages doivent être installé ? (Englais en interne)\n")
  25.     (set #WhichDoc "\nQuelles documentations doivent être installé ?\n")
  26.     (set #ChoiceCpu "\nQuelle version de HappyDT doit être installé ?\n")
  27.     (set #ChoiceIcon "\nQuelle type d'icône doit être installé ?\n")
  28.     (set #SelDCom "\nChoisissez le répertoire où vous voulez installer HappyDT.\n")
  29.     (set #SelDPre "\nChoisissez le répertoire où vous voulez installer le programme de préférence\n")
  30.     (set #SelBDoc "\nVoulez-vous installer la documentation de HappyDT ?")
  31.     (set #SelDDoc "\nChoisissez le repertoire où vous voulez installer la documentation de HappyDT.\n")
  32. ))
  33.  
  34. (procedure InstallLanguages
  35. (
  36.     (set n 0)
  37.     (while (set language (select n "français" "english" ""))
  38.     (
  39.       (if (in SelectedLanguages n)
  40.       (
  41.         (if (<> 1 n)
  42.         (
  43.           (makedir (cat "SYS:Locale/Catalogs/" language))
  44.           (copyfiles (source (cat "/Locale/Catalogs/" language))
  45.                  (dest   (cat "SYS:Locale/Catalogs/" language))
  46.                  (all))
  47.         ))
  48.       ))
  49.       (set n (+ n 1))
  50.     ))
  51. ))
  52.  
  53. (procedure InstallDocs
  54. (
  55.     (set n 0)
  56.     (while (set doc (select n "HappyDT_Français.guide" "HappyDT_English.guide" "HappyDT_Deutsch.guide" ""))
  57.     (
  58.       (if (in SelectedDocs n)
  59.       (
  60.         (if (<> 3 n)
  61.         (
  62.           (copyfiles (source DOCSource)
  63.                  (dest DOCDest)
  64.                  (pattern doc))
  65.         ))
  66.         (if (= SelectedIcon 0)
  67.         (     (copyfiles (source (tackon DOCSource "icons/std_icon.info"))
  68.                      (dest DOCDest)
  69.                      (newname (cat doc ".info"))
  70.             )
  71.         ))
  72.         (if (= SelectedIcon 1)
  73.         (     (copyfiles (source (tackon DOCSource "icons/magicwb_icon.info"))
  74.                      (dest DOCDest)
  75.                      (newname (cat doc ".info"))
  76.             )
  77.         ))
  78.         (if (= SelectedIcon 2)
  79.         (     (copyfiles (source (tackon DOCSource "icons/newicon_icon.info"))
  80.                      (dest DOCDest)
  81.                      (newname (cat doc ".info"))
  82.             )
  83.         ))
  84.       ))
  85.       (set n (+ n 1))
  86.     ))
  87. ))
  88.  
  89. (procedure InstallCom
  90. (
  91.       (if (= SelectedCpu 0)
  92.       (
  93.           (copyfiles (source (tackon COMSource "00"))
  94.                  (dest COMDest)
  95.                  (all))
  96.       ))
  97.  
  98.       (if (= SelectedCpu 1)
  99.       (
  100.           (copyfiles (source (tackon COMSource "20"))
  101.                  (dest COMDest)
  102.                  (all))
  103.       ))
  104. ))
  105.  
  106. (procedure InstallIcon
  107. (
  108.     (if (= SelectedIcon 0)
  109.     (     (copyfiles (source (tackon PRESource "icons/std_icon.info"))
  110.                  (dest PREDest)
  111.                  (newname ICONName)
  112.         )
  113.          (copyfiles (source (tackon COMSource "icons/std_icon.info"))
  114.                  (dest COMDest)
  115.                  (newname "HappyDT.info")
  116.         )
  117.      ))
  118.  
  119.     (if (= SelectedIcon 1)
  120.     (     (copyfiles (source (tackon PRESource "icons/magicwb_icon.info"))
  121.                  (dest PREDest)
  122.                  (newname ICONName)
  123.         )
  124.          (copyfiles (source (tackon COMSource "icons/magicwb_icon.info"))
  125.                  (dest COMDest)
  126.                  (newname "HappyDT.info")
  127.         )
  128.      ))
  129.  
  130.     (if (= SelectedIcon 2)
  131.     (     (copyfiles (source (tackon PRESource "icons/newicon_icon.info"))
  132.                  (dest PREDest)
  133.                  (newname ICONName)
  134.         )
  135.          (copyfiles (source (tackon COMSource "icons/newicon_icon.info"))
  136.                  (dest COMDest)
  137.                  (newname "HappyDT.info")
  138.         )
  139.      ))
  140. ))
  141.  
  142. (procedure InstallPrefs
  143. (
  144.       (if (= SelectedCpu 0)
  145.       (
  146.           (if (= PREDest COMDest)
  147.           (copyfiles (source (tackon PRESource "00/HappyDT"))
  148.                      (dest PREDest)
  149.                      (newname "HappyDT_Prefs")
  150.             )
  151.           (copyfiles (source (tackon PRESource "00"))
  152.                  (dest PREDest)
  153.                  (all)))
  154.       ))
  155.  
  156.       (if (= SelectedCpu 1)
  157.       (
  158.           (if (= PREDest COMDest)
  159.           (copyfiles (source (tackon PRESource "20/HappyDT"))
  160.                      (dest PREDest)
  161.                      (newname "HappyDT_Prefs")
  162.             )
  163.           (copyfiles (source (tackon PRESource "20"))
  164.                  (dest PREDest)
  165.                  (all)))
  166.       ))
  167.  
  168. ))
  169.  
  170. ; Welcome the user.
  171.  
  172.     (complete 0)
  173.     (welcome)
  174.  
  175. ; Make sure we are running under KickStart 3.0
  176.  
  177.     (if (< (/ (getversion) 65536) 39)
  178.       (abort #WrongKickStart)
  179.     )
  180.  
  181. ; Prepare Install
  182.  
  183.     (set COMSource "/exe/")
  184.  
  185. ; Commodity dest.
  186.  
  187.     (set COMDest
  188.       (tackon
  189.         (askdir
  190.           (prompt #SelDCom)
  191.           (help @askdir-help)
  192.           (default "Sys:WBStartup")
  193.         )
  194.         ""
  195.       )
  196.     )
  197.  
  198.     (set PRESource "/prefs/")
  199.  
  200. ; Preference dest.
  201.  
  202.     (set PREDest
  203.       (tackon
  204.         (askdir
  205.           (prompt #SelDPre)
  206.           (help @askdir-help)
  207.           (default "Sys:Prefs")
  208.         )
  209.         ""
  210.       )
  211.     )
  212.  
  213. ; Cpu choice.
  214.  
  215.     (set SelectedCpu
  216.         (askchoice
  217.           (help @askchoice-help)
  218.            (prompt #ChoiceCpu)
  219.            (choices "68000"
  220.             "68020+")
  221.            (default (if (= "68000" (database "cpu")) 0 1))
  222.     ))
  223.  
  224. ; Icon choice.
  225.  
  226.     (set SelectedIcon
  227.         (askchoice
  228.           (help @askchoice-help)
  229.            (prompt #ChoiceIcon)
  230.            (choices "Standard"
  231.             "MagicWb" "NewIcon")
  232.     ))
  233.  
  234. ; Install doc ?
  235.  
  236.     (set docbool
  237.       (askbool
  238.         (prompt #SelBDoc)
  239.         (help @askbool_help)
  240.         (default 1)
  241.       ))
  242.  
  243. ; where ?
  244.  
  245.     (set DOCSource "/docs/")
  246.  
  247.     (if docbool
  248.     (set DOCDest
  249.       (tackon
  250.         (askdir
  251.           (prompt #SelDDoc)
  252.           (help @askdir-help)
  253.           (default "help:")
  254.         )
  255.         ""
  256.       )
  257.     ))
  258.  
  259. ; choice of docs to install
  260.  
  261.       (if docbool
  262.       (set SelectedDocs
  263.         (askoptions
  264.            (prompt #WhichDoc)
  265.            (help @askdir-help)
  266.            (choices "français"
  267.             "english" "deutsch")
  268.            (default (if (= @language "français") 1 (if (= @language "deutsch") 3 2)))
  269.         )))
  270.  
  271. ; Choice of language catalogs
  272.  
  273.     (if (exists "SYS:Locale/Catalogs")
  274.     (
  275.       (user 1)
  276.  
  277.       (set SelectedLanguages
  278.         (askoptions
  279.            (prompt #WhichLanguage)
  280.            (help   @askoptions-help)
  281.            (choices "français"
  282.             "english" "deutsch")
  283.            (default (if (= @language "français") 1 (if (= @language "deutsch") 3 2)))
  284.         ))
  285.  
  286.       (user UserLevel.old)
  287.     ))
  288.  
  289. ; Install all
  290.  
  291.     (InstallCom)
  292.     (complete 25)
  293.     (if (= COMDest PREDest) (set ICONName "HappyDT_Prefs.info")
  294.                             (set ICONName "HappyDT.info"))
  295.     (InstallPrefs)
  296.     (complete 50)
  297.     (InstallIcon)
  298.     (if docbool (InstallDocs))
  299.     (complete 75)
  300.     (InstallLanguages)
  301.     (complete 100)
  302.  
  303. ; exit
  304.  
  305.     (set @default-dest "")
  306.     (exit)
  307.