home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / hf-dm1.lha / docma11 / Install-DocMa < prev    next >
Encoding:
Text File  |  1996-10-15  |  13.1 KB  |  505 lines
  1. ; $VER: Install-DocMa 1.1 (14.10.96)
  2.  
  3. (set current_version "1.1")
  4. (set lng @language)
  5.  
  6. (complete 0)
  7.  
  8.  
  9. ;=============================================================================
  10. ; Locale strings
  11.  
  12. (set #intro_0 (cat "\n\Document Manager " current_version"\n========================\n© 1996, Marc Ewert"))
  13.  
  14.  
  15. ;=============================================================================
  16. ; german
  17.  
  18. (if (= lng "deutsch")
  19. (
  20.  
  21. (set #intro        "Willkommen zum DocMa Installationsprogramm.\n Hiermit können Sie DocMa auf Ihrem Amiga installieren.\nFalls Sie DocMa von Ihrem Amiga entfernen wollen, müssen Sie sich mindestens als Geübter Benutzer deklarieren")
  22. (set #destdir      "Bitte wählen Sie ein Zielverzeichnis für DocMa aus. Ein Verzeichnis 'DocMa' wird dort angelegt. Falls dort bereits ein 'DocMa' Verzeichnis existiert, wird die Programmversion auf den neusten Stand gebracht.")
  23. (set #destexists_1 "\nIm gewählten Zielverzeichnis\n\n")
  24. (set #destexists_2 "\n\nexistiert bereits eine DocMa-Schublade. Wenn Sie fortfahren, wird die dort befindliche DocMa-Installation aktualisiert.")
  25. (set #copying      "\nKopiere ")
  26. (set #localeask    "Bitte wählen Sie den zu installierenden Sprachkatalog aus.")
  27.  
  28. (set #finished            "DocMa wurde erfolgreich installiert im Verzeichnis\n\n%s.\n\n Eventuell gesicherte Dateien finden Sie in DocMa/Backup.")
  29. (set #finished_1          "DocMa wurde in Ihrem Suchpfad eingefügt. Bitte starten Sie Ihren Rechner neu, damit diese Änderung in Kraft tritt.")
  30. (set #finished_removed    "DocMa wurde erfolgreich entfernt.")
  31. (set #finished_notremoved "DocMa wurde nicht erfolgreich entfernt.")
  32.  
  33. (set #cpuask       "Bitte wählen Sie gewünschte Prozessorversion von DocMa aus.")
  34. (set #docsask      "Bitte wählen Sie die Sprache für die Dokumentationen aus.")
  35. (set #startup      "Es werden nun einige Ergänzungen an Ihrer 'User-Startup' vorgenommen. DocMa wird in Ihrem Suchpfad eingefügt:\n\n%s")
  36. (set #startup_2    "Die Änderungen an der 'User-Startup' Datei werden gelöscht.")
  37. (set #startup_ask  "Möchten Sie, daß DocMa permanent in ihrem Suchpfad aufgenommen wird?")
  38. (set #remove_docma "Entferne das DocMa Verzeichnis. Leider bleibt eine leere Schublade übrig, wenn sich DocMa in Ihrem Suchpfad befand.")
  39.  
  40. (set #install_ask     "Was möchten Sie tun?")
  41. (set #install_install "DocMa installieren...")
  42. (set #install_remove  "DocMa entfernen...")
  43.  
  44. (set #sourcedir       "Bitte geben Sie das Verzeichnis ein, in dem sich ihr DocMa Verzeichnis befindet.")
  45. (set #sourcenotexists "Das Verzeichnis '%s' existiert nicht!")
  46.  
  47. (set #prefupdate_ask  "Soll ich jetzt Ihr alte Konfigurations Datei auf den neusten Stand bringen?")
  48.  
  49. (set #backup_ask      "Soll '%s' gesichert werden?")
  50. (set #backup_msg      "Sicher alte Dateien...")
  51.  
  52. )
  53.  
  54. ;=============================================================================
  55. ; english
  56.  
  57. (
  58.  
  59. (set #intro        "Welcome to the DocMa installation program.\n Use this tool to install DocMa on your Amiga.\nIf you want to remove DocMa from your Amiga, you have at least to declare yourself as Intermediate User")
  60. (set #destdir      "Please select a drawer for DocMa. A drawer 'DocMa' will be created there. If there is already a 'DocMa' drawer, the program version will be updated.")
  61. (set #destexists_1 "\nThe directory\n\n")
  62. (set #destexists_2 "\n\nalready contains a DocMa drawer. If you continue, the DocMa installation in this drawer is updated.")
  63. (set #copying      "\nCopying ")
  64. (set #localeask    "Please select which language catalogue should be installed.")
  65.  
  66. (set #finished            "DocMa was successfully installed in the drawer\n\n%s.\n\nYou can find possible backuped files in DocMa/Backup.")
  67. (set #finished_1          "DocMa was added to your search-path. Please reboot your Amiga, to let the changes take effect.")
  68. (set #finished_removed    "DocMa was successfully removed.")
  69. (set #finished_notremoved "DocMa wasn`t successfully removed.")
  70.  
  71. (set #cpuask       "Please select the processor version for DocMa.")
  72. (set #docsask      "Please select the language for the documentation.")
  73. (set #startup      "Some lines will be added to your 'User-Startup' file. DocMa will be added to your search-path:\n\n%s")
  74. (set #startup_2    "The changes of the 'user-startup' file will be removed.")
  75. (set #startup_ask  "Do you want DocMa to be permanently in your search-path?")
  76. (set #remove_docma "Delete the DocMa drawer. Unfortunately there will be an empty drawer left, if DocMa was in your search path.")
  77.  
  78. (set #install_ask     "What should be done?")
  79. (set #install_install "Install DocMa...")
  80. (set #install_remove  "Remove DocMa...")
  81.  
  82. (set #sourcedir       "Please insert the drawer, where you have installed the DocMa drawer.")
  83. (set #sourcenotexists "The drawer '%s' doesn`t exist!")
  84.  
  85. (set #prefupdate_ask  "Should your old config file be updated?")
  86.  
  87. (set #backup_ask      "Should '%s' be backuped?")
  88. (set #backup_msg      "Backup old files...")
  89.  
  90. ))
  91.  
  92.  
  93. (procedure P_COPYDIR #sourcedir #destdir
  94. (
  95.   (copyfiles
  96.     (prompt (cat #copying #sourcedir "..."))
  97.     (help @copyfiles-help)
  98.     (source #sourcedir)
  99.     (dest #destdir)
  100.     (optional "force" "askuser")
  101.     (confirm "expert")
  102.     (all)
  103.     (infos)
  104.   )
  105. )
  106. )
  107.  
  108.  
  109. (procedure P_COPYFILE #srcname #dstdir
  110. (
  111.   (copyfiles
  112.     (prompt #copying #srcname "...")
  113.     (help @copyfiles-help)
  114.     (source #srcname)
  115.     (dest #dstdir)
  116.     (optional "force" "askuser")
  117.     (confirm "expert")
  118.     (infos)
  119.   )
  120. )
  121. )
  122.  
  123.  
  124. (procedure P_GETLANGUAGE #text
  125. (
  126.   (if (= @language "deutsch")
  127.   (
  128.      (set #def 0)
  129.   )
  130.   (
  131.     (set #def 1)
  132.   ))
  133.   (if (= @user-level 0)
  134.   (
  135.     (set #def #def)
  136.   )
  137.   (
  138.     (askchoice
  139.       (prompt #text)
  140.       (choices "deutsch" "english")
  141.       (help @askoptions-help)
  142.       (default #def)
  143.     )
  144.   ))
  145. )
  146. )
  147.  
  148. (procedure P_BACKUP #source #dest
  149. (
  150. (if (askbool
  151.       (prompt (#backup_ask #source))
  152.       (default 1)
  153.       (help @askbool-help))
  154.   (
  155.     (copyfiles
  156.       (prompt #backup_msg)
  157.       (source #source)
  158.       (dest #dest)
  159.       (confirm "expert")
  160.       (help @copyfile-help)
  161.     )
  162.  
  163.   )
  164. )
  165. )
  166. )
  167.  
  168. (set #startup_change FALSE)
  169.  
  170. (set #mode_install 0)
  171. (set #mode_remove  1)
  172.  
  173. ;=============================================================================
  174. ; Say hello
  175.  
  176. (message #intro_0 "\n\n" #intro)
  177.  
  178. ; what should be done
  179.  
  180. (select (askchoice
  181.   (prompt #install_ask)
  182.   (choices #install_install #install_remove)
  183.   (help @askoptions-help)
  184.   (default #mode_install)
  185. )
  186.  
  187. (
  188.  
  189. ;=============================================================================
  190. ; INSTALL
  191. ;=============================================================================
  192.  
  193. ;=============================================================================
  194. ; Select destination directory
  195.  
  196. (set seldir 1)
  197.  
  198.   (set #default-dest
  199.       (askdir
  200.           (prompt #destdir)
  201.           (default @default-dest)
  202.           (help @askdir-help)
  203.       )
  204.   )
  205.  
  206.   (set #default-dest (expandpath #default-dest))
  207.   (set @default-dest (#default-dest)) ; for finish message
  208.  
  209. (set destination (tackon #default-dest "DocMa"))
  210.  
  211. (if (<> seldir 0)
  212. (
  213.     (if (<> (exists destination) 0)
  214.     (
  215.         (message (cat #destexists_1 #default-dest #destexists_2))
  216.     )
  217.     )
  218. )
  219. )
  220.  
  221.  
  222. ;=============================================================================
  223. ; Lets go, create destination directory, copy main files
  224.  
  225. (complete 10)
  226.  
  227. ; create destination directory
  228. (if (= (exists destination) 0) ( (makedir destination (help @makedir-help))))
  229.  
  230. ;DocMa drawer icon
  231. (if (exists "/DocMa11.info") (run (cat "copy /DocMa11.info \"" destination ".info\"")))
  232.  
  233. (tooltype (dest destination) (noposition))
  234.  
  235. (copyfiles
  236.     (prompt (cat #copying "readme files ..."))
  237.     (source "")
  238.     (pattern "(ReadMe|LiesMich| )")
  239.     (dest destination)
  240.     (infos)
  241.     (confirm "expert")
  242.     (help @copyfile-help)
  243. )
  244.  
  245. ;=============================================================================
  246. ; Choose CPU and copy DocMa
  247.  
  248. (complete 15)
  249.  
  250. (set choice
  251.   (askchoice
  252.     (prompt #cpuask)
  253.     (default 0)
  254.     (help @askoptions-help)
  255.     (choices "68000" "68020" "68030" "68040")
  256.   )
  257. )
  258.  
  259. (if (= choice 0)
  260. (if (exists "c/docma.000") (run (cat "copy c/docma.000 \"" destination "/DocMa\""))))
  261. (if (= choice 1)
  262. (if (exists "c/docma.020") (run (cat "copy c/docma.020 \"" destination "/DocMa\""))))
  263. (if (= choice 2)
  264. (if (exists "c/docma.030") (run (cat "copy c/docma.030 \"" destination "/DocMa\""))))
  265. (if (= choice 3)
  266. (if (exists "c/docma.040") (run (cat "copy c/docma.040 \"" destination "/DocMa\""))))
  267.  
  268. ; Copy DocMa.info
  269. (P_COPYFILE "Icons/DocMa.info" destination)
  270.  
  271. (complete 20)
  272.  
  273. ;=============================================================================
  274. ; Tools
  275.  
  276. (P_COPYDIR "Tools" (tackon destination "Tools"))
  277. ; Copy Tools.info
  278. (P_COPYFILE "Tools.info" destination)
  279.  
  280. (complete 30)
  281.  
  282. ;=============================================================================
  283. ; Prefs
  284.  
  285. (if (= (exists (tackon destination "DocMa.pref")) 0)
  286. (
  287. (copyfiles
  288.     (prompt (cat #copying "DocMa.prefs ..."))
  289.     (source "DocMa.pref")
  290.     (dest destination)
  291.     (infos)
  292.     (confirm "expert")
  293.     (help @copyfile-help)
  294. )
  295. )
  296. (
  297.   (P_BACKUP "DocMa.pref" (tackon destination "Backup"))
  298.   (if (askbool
  299.       (prompt #prefupdate_ask)
  300.       (default 1)
  301.       (help @askbool-help))
  302.     (
  303.       (run
  304.         (cat "Tools/UpdateConfig "
  305.           "\""(tackon destination "DocMa.pref")"\""
  306.           " "
  307.           "\""(tackon destination "DocMa.pref")"\""
  308.         )
  309.       )
  310.     )
  311. )
  312. )
  313. )
  314.  
  315. (complete 40)
  316.  
  317. ;=============================================================================
  318. ; Catalogs
  319.  
  320. ; create Catalogs directory
  321. (if (= (exists (tackon destination "Catalogs")) 0) ( (makedir (tackon destination "Catalogs")
  322.   (help @makedir-help)))
  323. )
  324.  
  325. ; Catalogs drawer icon
  326. (P_COPYFILE "Catalogs.info" destination)
  327.  
  328. ; CD file
  329. (P_COPYFILE "Catalogs/DocMa.cd" (tackon destination "Catalogs"))
  330.  
  331. (set choice
  332.   (P_GETLANGUAGE #localeask)
  333. )
  334. (if (= choice 0) (P_COPYDIR "Catalogs/Deutsch" (tackon destination "Catalogs/Deutsch")))
  335.  
  336. (complete 50)
  337.  
  338. ;=============================================================================
  339. ; Icons
  340.  
  341. (P_COPYDIR "Icons" (tackon destination "Icons"))
  342.  
  343. ; Icons drawer icon
  344. (P_COPYFILE "Icons.info" destination)
  345.  
  346. (complete 60)
  347.  
  348.  
  349. ;=============================================================================
  350. ; Images
  351.  
  352. ; Images drawer icon
  353. (if (exists "Images.info") (run (cat "copy Images.info \"" (tackon destination "Images") ".info\""))
  354. )
  355.  
  356. (P_COPYDIR "Images" (tackon destination "Images"))
  357.  
  358. (complete 70)
  359.  
  360. ;=============================================================================
  361. ; Docs Drawer
  362.  
  363. (copyfiles
  364.   (prompt "copying Docs...")
  365.   (help @copyfiles-help)
  366.   (source "Docs")
  367.   (pattern "~(Deutsch#?|English#?)")
  368.   (dest (tackon destination "Docs"))
  369.   (optional "force" "askuser")
  370.   (confirm "expert")
  371.   (infos)
  372. )
  373.  
  374. ; Docs drawer icon
  375. (P_COPYFILE "Docs.info" destination)
  376.  
  377. (set choice
  378.   (P_GETLANGUAGE #docsask)
  379. )
  380.  
  381. (if (= choice 0) (
  382.                  (P_COPYDIR "Docs/Deutsch" (tackon destination "Docs/Deutsch"))
  383.                  (P_COPYFILE "Docs/Deutsch.info" (tackon destination "Docs"))
  384.                  ))
  385. (if (= choice 1) (
  386.                  (P_COPYDIR "Docs/English" (tackon destination "Docs/English"))
  387.                  (P_COPYFILE "Docs/English.info" (tackon destination "Docs"))
  388.                  ))
  389.  
  390. (complete 80)
  391.  
  392. ;=============================================================================
  393. ; Keyfile drawer
  394.  
  395. ; create Keyfile directory
  396. (if (= (exists (tackon destination "Keyfile")) 0) ( (makedir (tackon destination "Keyfile")
  397.   (help @makedir-help)))
  398. )
  399.  
  400. (complete 90)
  401.  
  402. ;=============================================================================
  403. ; Startup Sequence
  404.  
  405. (if (askbool
  406.       (prompt #startup_ask)
  407.       (default 1)
  408.       (help @askbool-help))
  409.   (
  410.     (set #cmd (cat "if exists " destination "\n  path " destination " add\nendif"))
  411.     (set #startup_change TRUE)
  412.     (startup "DocMa"
  413.       (confirm "expert")
  414.       (prompt (#startup #cmd))
  415.       (command #cmd)
  416.       (help @startup-help)
  417.     )
  418.   )
  419. )
  420.  
  421. (complete 100)
  422.  
  423. ;=============================================================================
  424. ; Finish Install
  425.  
  426. (if (= #startup_change TRUE)
  427.   (
  428.     (exit (#finished destination) "\n\n" #finished_1)
  429.   )
  430.   (
  431.     (exit (#finished destination))
  432.   )
  433. )
  434.  
  435. )
  436.  
  437. (
  438. ;=============================================================================
  439. ; REMOVE
  440. ;=============================================================================
  441.  
  442. ;=============================================================================
  443. ; Select source directory
  444.  
  445. (set #removed FALSE)
  446.  
  447. (set seldir 1)
  448.  
  449.   (set #default-source
  450.       (askdir
  451.           (prompt #sourcedir)
  452.           (default @default-dest)
  453.           (help @askdir-help)
  454.       )
  455.   )
  456.  
  457.   (set #default-source (expandpath #default-source))
  458.  
  459. (set #source (tackon #default-source "DocMa"))
  460.  
  461. (if (<> seldir 0)
  462. (
  463.     (if (= (exists #source) 0)
  464.     (
  465.       (message (#sourcenotexists #source))
  466.     )
  467.     (
  468.       ;(run (cat "path \"" #source " remove\""))
  469.       (delete #source
  470.         (help @delete-help)
  471.         (prompt #remove_docma)
  472.         (all)
  473.         (infos)
  474.         (optional "force")
  475.         (confirm "expert")
  476.       )
  477.       (startup "DocMa"
  478.         (confirm "expert")
  479.         (prompt #startup_2)
  480.         (command ";")
  481.         (help @startup-help)
  482.       )
  483.       (set #removed TRUE)
  484.     )
  485.     )
  486. )
  487. )
  488.  
  489.  
  490. ;=============================================================================
  491. ; Finish Remove
  492.  
  493. (if (= #removed TRUE)
  494. (
  495.   (exit #finished_removed)
  496. )
  497. (
  498.   (exit #finished_notremoved)
  499. )
  500. )
  501.  
  502. )
  503. ) ;select
  504.  
  505.