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