home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / amiga / chiputil / ltools21_demo.lha / LangTools.install < prev    next >
Encoding:
Text File  |  2001-06-13  |  9.1 KB  |  266 lines
  1. ;
  2. ; Install script for Language Tools 2.0
  3. ; (c) 2001 Blue Lion Software
  4. ; This script is based on v1.01 (c) 2000 Seahorse
  5. ;
  6. ;
  7. ; $VER : 2.1 (05-05-2000) ⌐2001 desco@freemail.hu
  8. ;
  9. ;=======================================================================
  10. ; Please ask before use part(s) of this script. :)
  11. ;=======================================================================
  12.  
  13. (SET #L_English    0 )
  14. (SET #L_Franτais   1 )
  15. (SET #L_Magyar     12 )
  16.  
  17. (SET #NomProg "LangTools")
  18. (SET #NomRepert "LangTools")
  19.  
  20. ;//+ **** -> English
  21.  
  22. (SET #Def_lang #L_English #Def_doc #L_English)
  23.  
  24. (SET #wrongOS  "Sorry, but:\nOS 3.0 or newer is required!\n")
  25. (SET #wrongMUI "Sorry, but:\nMUI 3.8 or newer is required!\n")
  26.  
  27. (set #Msg_dir "\nChoose your LangTools directory\n(A drawer called \"LangTools\" will be created!)")
  28. (set #Msg_cat "\nWhich catalog file do you want to install?\n(English language is built-in)")
  29. (set #Msg_doc "\nSelect language for documentation in AmigaGuide format")
  30.  
  31. (SET #Creer_dir "\nCreating \"%s\" directory...")
  32. (SET #Help_dir (CAT "\nChoose where you wish to install LangTools.\n"
  33.                     "Again a \"LangTools\" drawer will be created."))
  34. (SET #Msg_Assign (CAT "LangTools must be assigned.\n"
  35.                       "Do you want I add the assignation\n"
  36.                       "`LTools:' inside `S:User-Startup' for you?"))
  37. (SET #Pour "For ")
  38. (SET #Help_Nil "")
  39. (SET #Bad_Class (cat "\nWrong ½á%sá╗ version (%s).\n"
  40.                      "Please install the %s version or newer."))
  41. ;+//
  42. ; -------------------------------------------------------------------
  43. ; //+ **** -> Franτais  (1)
  44.  
  45. (IF (= @language "franτais")
  46. (
  47. (SET #Def_lang #L_Franτais  #Def_doc #L_Franτais)
  48.  
  49. (SET #wrongCPU "Il vous faut au moins un 68020 !\n")
  50. (SET #wrongOS  "DΘsolΘ, mais :\nil vous faut au moins le systΦme 3.0 !\n")
  51. (SET #wrongMUI "DΘsolΘ, mais :\nil vous faut au moins MUI 3.8 !\n")
  52.  
  53. (SET #Msg_dir "\nO∙ voulez-vous installer LangTools ?\n(Un rΘpertoire ½áLangToolsá╗ sera crΘe.)\n")
  54. (SET #Msg_cat "\nQuel langage voulez-vous installer ?\nL'Anglais est en interne.\n")
  55. (SET #Msg_doc "\nQuelle documentation voulez-vous installer ?\n")
  56.  
  57. (SET #Creer_dir "CrΘation du rΘpertoire \"%s\"...")
  58. (SET #Help_dir (CAT "\nChoisissez l'endroit o∙ vous souhaitez installer LangTools.\n"
  59.                     "Je vous rappel qu'un rΘpertoire ½áLangToolsá╗ sera crΘe."))
  60.  
  61. (SET #Msg_Assign (CAT "LangTools doit-Ωtre assignΘ.\n"
  62.                       "Voulez-vous que j'ajoute l'assignation\n"
  63.                       "½áLTools:á╗ dans ½áS:User-Startupá╗ pour vous ?"))
  64. (SET #Pour "Pour ")
  65. (SET #Bad_Class (cat "\nMauvaise version de ½á%sá╗ (%s).\n"
  66.                      "Veuillez installer la version %s ou supΘrieure."))
  67.  
  68. )) ; +// Fin IF
  69. ; -------------------------------------------------------------------
  70. ; //+ **** -> Magyar (12)
  71.  
  72. (IF (= @language "magyar")
  73. (
  74. (SET #Def_lang #L_Magyar  #Def_doc #L_Magyar)
  75. ;(SET #Def_lang #L_English  #Def_doc #L_English) ; Current way
  76. (SET #wrongOS  "Sajnßlom, de:\nOS 3.0 vagy ·jabb szⁿksΘges!\n")
  77. (SET #wrongMUI "Sajnßlom, de:\nMUI 3.8 vagy ·jabb szⁿksΘges!\n")
  78.  
  79. (set #Msg_dir (CAT "\nVßlaszd ki, hogy hova telepφtsem a programot!\n"
  80.                    "(A \"LangTools\" nev√ fi≤kot aut≤matikusan lΘtrehozom!)"))
  81. (set #Msg_cat "\nMely katal≤gusokat telepφtsem?\n(English az alapbeßllφtßs!)")
  82. (set #Msg_doc "\nMely nyelv√ AmigaGuide dokumentßci≤t telepφtsem?")
  83.  
  84. (SET #Creer_dir "\nLΘtrehozom a(z) \"%s\" nev√ fi≤kot...")
  85. (SET #Help_dir (CAT "\nVßlasz ki a LangTools telepφtΘsi ·tvonalßt!\n"
  86.             "┌jra! A \"LangTools\" fi≤kot automatikusan lΘtrehozom."))
  87. (SET #Msg_Assign (CAT "A programnak szⁿksΘge van hozzßrendelΘsre!\n"
  88.               "Hozzßf√zzem az `Ltools:' hozzßrendelΘst\n"
  89.               "az  `S:User-Startup' ßllomßnyhoz?"))
  90. (SET #Pour "For ")
  91. (SET #Help_Nil "")
  92. (SET #Bad_Class (cat "\nNem megfelel⌡ a\(z|) ½á%sá╗ verzi≤ja (%s).\n"
  93.              "KΘrlek telepφtsd a %s verzi≤t vagy egy ·jabbat!"))
  94. )) ; +// Fin IF
  95. ; -------------------------------------------------------------------
  96.  
  97. ; ---- * ====================================================== * ----
  98. ;//+        ====                Procedures                    ====
  99. ; ---- * ======================================================== * ----
  100.  
  101. (PROCEDURE P_CheckClass #arg1 #arg2
  102. (SET #MUI_class (getversion (TACKON "MUI:libs/mui/" #arg1)))
  103. (SET #Vers (CAT(/ #MUI_Class 65536) "." (- #MUI_Class (* (/ #MUI_Class 65536) 65536))))
  104. (if (< #Vers #arg2)
  105.  (Message (#Bad_Class #arg1 #Vers #arg2))
  106. ; (Message ("C'est ok. %s" #vers))
  107. ) ;if
  108. ) ;proc
  109.  
  110. ; ---- * ======================================================== * ----
  111. ;+//     ====              Fin des procΘdures                ====
  112. ; ---- * ====================================================== * ----
  113. ;
  114. ; --------------------------------------------------------------------
  115. ; ========================  <*  SCRIPT  *>  ==========================
  116. ; --------------------------------------------------------------------
  117.  
  118. ; --***  VΘrifier l'environnement
  119. (set Type_CPU (database "cpu"))
  120. (if (< Type_CPU "68020") (abort #wrongCPU))
  121. (set OS_ver (getversion "exec.library" (resident)))
  122. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  123. (set #MUI_ver (getversion "MUI:libs/muimaster.library"))
  124. (if (AND (< #MUI_ver (* 19 65536)) (<> #MUI_ver 0)) (abort #wrongMUI))
  125.  
  126. ; -- **  VΘrification de classes MUI
  127. (P_CheckClass "texteditor.mcc" "15.9")
  128.  
  129. ; --***  Choix du rΘpertoire de destination
  130. (SET #Dest_dir
  131.         (askdir
  132.               (default @default-dest)
  133.               (prompt  #Msg_dir)
  134.               (help    #Help_dir) )
  135. )
  136. (SET #Dest_dir (TACKON #Dest_dir #NomRepert))
  137. (SET @default-dest #Dest_dir)
  138.  
  139. ; --***  Choix du catalogue
  140.  
  141. (SET #H_Langage (askchoice
  142.     (PROMPT  #Msg_cat)
  143.     (HELP    @askchoice-help)
  144.     (CHOICES
  145.              "English"
  146.              ""
  147.              ""  ""
  148.              ""  ""
  149.              ""  ""
  150.              ""  ""
  151.              ""  ""
  152.              "Magyar"
  153.     )
  154.     (DEFAULT #Def_lang)
  155.                )
  156. )
  157.  
  158. (COMPLETE 10)
  159.  
  160. ; --  Choix de la documentation (1 seulle)
  161.  
  162. (SET #H_Guide (askchoice
  163.     (PROMPT #Msg_doc)
  164.     (HELP   @askchoice-help)
  165.     (CHOICES
  166.              "English"
  167.              ""
  168.              ""
  169.              ""
  170.              ""
  171.              ""
  172.              ""
  173.              ""
  174.              ""
  175.              ""
  176.              ""
  177.              ""
  178.              "Magyar"
  179.     )
  180.     (DEFAULT #Def_doc)
  181.              )
  182. )
  183.  
  184. (COMPLETE 20)
  185.  
  186. ; --
  187. ; **** Installation (dir)
  188. ; --
  189.  
  190. (MAKEDIR #Dest_dir (PROMPT (#Creer_dir #NomRepert)) (INFOS))
  191. (MAKEDIR (tackon #Dest_dir "Prefs"))
  192. (MAKEDIR (tackon #Dest_dir "Arexx"))
  193. (MAKEDIR (TackOn #Dest_dir "Dics"))
  194. (MAKEDIR (TackOn #Dest_dir "Source"))
  195. (MAKEDIR (TackOn #Dest_dir "Translated"))
  196.  
  197. (SET #Cat_dir (tackon #Dest_dir "Catalogs"))
  198. (IF (NOT (EXISTS #Cat_dir)) (MAKEDIR #Cat_dir (PROMPT (#Creer_dir "Catalogs"))) )
  199.  
  200. (COMPLETE 30)
  201. (SET #Prefs_dir (tackon #Dest_dir "Prefs"))
  202.  
  203. (if (= #H_langage #L_English)
  204. (
  205.     (copyfiles (source "locale/english/lsdic.list") (dest (tackon #Dest_dir "Prefs")))
  206.     (copyfiles (source "locale/english/ltdic.list") (dest (tackon #Dest_dir "Prefs")))
  207.     (copyfiles (source "locale/english/agcom.prefs") (dest (tackon #Dest_dir "Prefs")))
  208. ))
  209. (if (= #H_langage #L_Franτais)
  210. (
  211.     (copyfiles (source "locale/franτais/langtools.catalog") (dest (tackon #Cat_dir "franτais")))
  212.     (copyfiles (source "locale/franτais/lsdic.list") (dest (tackon #Dest_dir "Prefs")))
  213.     (copyfiles (source "locale/franτais/ltdic.list") (dest (tackon #Dest_dir "Prefs")))
  214.     (copyfiles (source "locale/franτais/agcom.prefs") (dest (tackon #Dest_dir "Prefs")))
  215. ))
  216. (if (= #H_langage #L_Magyar)
  217. (
  218.     (copyfiles (source "locale/magyar/langtools.catalog")  (dest (tackon #Cat_dir "magyar")))
  219.     (copyfiles (source "locale/magyar/lsdic.list") (dest (tackon #Dest_dir "Prefs")))
  220.     (copyfiles (source "locale/magyar/ltdic.list") (dest (tackon #Dest_dir "Prefs")))
  221.     (copyfiles (source "locale/magyar/agcom.prefs") (dest (tackon #Dest_dir "Prefs")))
  222. ))
  223.  
  224. (COMPLETE 40)
  225. ;
  226. ; -- SI 1 SEULLE DOCUMENTATION AU CHOIX !!  (AskChoice)
  227. ;
  228. (IF (= #H_Guide #L_English)
  229. (
  230.     (copyfiles (source "locale/english/LangTools.guide") (dest #Dest_dir) (infos))
  231. ))
  232. (IF (= #H_Guide #L_Franτais)
  233. (
  234.     (copyfiles (source "locale/franτais/LangTools.guide") (dest #Dest_dir) (infos) (optional "nofail"))
  235. ))
  236. (IF (= #H_Guide #L_Magyar)
  237. (
  238.     (copyfiles (source "locale/magyar/LangTools.guide") (dest #Dest_dir) (infos))
  239. ))
  240. (COMPLETE 50)
  241. ;
  242. ( copyfiles (source "LangTools") (dest #Dest_dir) (infos) )
  243. ( copyfiles (source "Langtools.key") (dest #Dest_dir)(optional "nofail") )
  244.  
  245. (COMPLETE 60)
  246.  
  247. (copyfiles (source "Arexx") (dest (Tackon #Dest_dir "Arexx")) (All) (optional "nofail"))
  248.  
  249. (COMPLETE 80)
  250. (copyfiles (source "Userdic") (dest (Tackon #Dest_dir "Userdic")) (All) (optional "nofail"))
  251. (copyfiles (source "Images") (dest (Tackon #Dest_dir "Images")) (All))
  252. (COMPLETE 90)
  253.  
  254. (Startup " --******--   LangTools" (PROMPT #Msg_Assign)
  255.                      (HELP @startup-help) (Confirm)
  256.                      (Command (Cat "Assign LTools: " (CAT "\"" #Dest_Dir "\"")) ))
  257. (MakeAssign "LTools" #Dest_Dir)
  258.  
  259. (COMPLETE 100)
  260.  
  261. (exit)
  262.  
  263. ; -------------------------------------------------------------------
  264. ; -------------------------- FIN DE SCRIPT --------------------------
  265. ; -------------------------------------------------------------------
  266.