home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / proasm / install < prev    next >
Text File  |  1996-04-29  |  10KB  |  437 lines
  1. ;=============================================================================
  2. ;
  3. ; ProAsm small installation script for AmigaDOS 2.0 or higher.
  4. ;
  5. ; ProAsm 1.74
  6. ;
  7. ;=============================================================================
  8.  
  9.  
  10.  
  11. ;=============================================================================
  12. ;
  13. ; german strings
  14. ;
  15. (if (= @language "deutsch")
  16. (
  17.  
  18. (set #intro
  19. (cat "\n\nDieses Programm installiert die ProAsm Software auf der Harddisk")
  20. )
  21.  
  22. (set #welcometext
  23. (cat "\nWillkommen zur ProAsm Software Installation.\n"
  24.      "Copyright © 1995 by Daniel Weber\n"
  25.      "All Rights Reserved\n\n\n")
  26. )
  27.  
  28.  
  29. (set #askdir_prompt
  30. (cat "Wo soll die ProAsm Software installiert werden?")
  31. )
  32.  
  33. (set #askdir_help
  34. (cat "Waehle ein Zielverzeichnis (oder -Partition) in welches die "
  35.      "ProAsm Software installiert werden soll. "
  36.      "Der Installer generiert dort ein Verzeichnis ProAsm/ "
  37.      "in das dann die benoetigten Dateien kopiert werden.")
  38. )
  39.  
  40.  
  41. (set #askopt_prompt
  42. (cat "Welche Teile der ProAsm Software sollen auf der "
  43.      "Harddisk installieren?\n")
  44. )
  45.  
  46. (set #askopt_help
  47. (cat "Die komplette Software benoetigt etwa 1.8 Megabytes auf "
  48.      "der Harddisk. Nun koennen die Teile der Software ausgewaehlt "
  49.      "werden, die installiert werden sollen.\n"
  50.      "Die vorgeschlagenen Teile sind entsprechend markiert.\n\n"
  51.      "Ein Ueberblick ueber die verschiedenen Teile und deren "
  52.      "Groesse (ca.):\n"
  53.      "ProAsm Assembler:  154 kbytes\n"
  54.      "ASX             :   78 kbytes\n"
  55.      "ProOpts         :   26 kbytes\n"
  56.      "Utilities       :   60 kbytes\n"
  57.      "Documentation   :  640 kbytes\n"
  58.      "BLink Archive   :   24 kbytes\n"
  59.      "Examples        :  170 kbytes\n"
  60.      "Routine Files   :  460 kbytes\n"
  61.      "Include Files   :   45 kbytes\n"
  62.      "\n")
  63. )
  64.  
  65.  
  66. (set #askbool_prompt
  67. (cat "Sollen die env-Variablen nach envarc: und env: kopiert werden?")
  68. )
  69.  
  70. (set #askbool_help
  71. (cat "Es wird nur der inhalt des ProAsm/env/ Verzeichnisses nach "
  72.      "envarc: und env: kopiert.  Das ProAsm/env/ Verzeichnis "
  73.      "enthaelt einige vordefinierte Konfigurationsdateien.\n\n\n")
  74. )
  75.  
  76.  
  77.  
  78. (set #message1
  79. (cat "Pfade und Assigns werden der User-Startup Datei hinzugefuegt")
  80. )
  81.  
  82. (set #startup_prompt_a
  83. (cat "Die folgenden Pfade und Assigns werden benoetigt. "
  84.      "Sollen sie der User-Startup Datei hinzugefuegt werden?")
  85. )
  86.  
  87. (set #startup_prompt_b
  88. (cat "Die Aenderungen werden erst beim naechsten Neustart aktiv.")
  89. )
  90.  
  91.  
  92. (set #startup_help
  93. (cat "Die Pfade werden benoetigt, damit die ProAsm Software vom "
  94.      "System gefunden wird.\n"
  95.      "Die Assigns sind noetig, damit die benoetigten Bibliotheken "
  96.      "und Dokumentation "
  97.      "von ProAsm und der dazugehoerigen Utilitysoftware gefunden "
  98.      "werden.")
  99. )
  100.  
  101. ))
  102.  
  103.  
  104.  
  105. ;=============================================================================
  106. ;
  107. ; english strings
  108. ;
  109. (if (= @language "english")
  110. (
  111.  
  112. (set #intro
  113. (cat "\n\nThis program lets you install ProAsm on a hard drive, "
  114.      "by copying all needed files.")
  115. )
  116.  
  117. (set #welcometext
  118. (cat "\nWelcome to the Installation of the ProAsm Package.\n"
  119.         "Copyright © 1995 by Daniel Weber\n"
  120.         "All Rights Reserved\n\n\n")
  121. )
  122.  
  123.  
  124. (set #askdir_prompt
  125. (cat "Select location to install the ProAsm directory")
  126. )
  127.  
  128. (set #askdir_help
  129. (cat "Choose a destination directory where you want "
  130.      "the ProAsm package have to be copied to. "
  131.      "The Installer will create a directory called ProAsm "
  132.      "at the choosen location. All needed files will then "
  133.      "be copied to that new created directory.")
  134. )
  135.  
  136.  
  137. (set #askopt_prompt
  138. (cat "Which part(s) of the ProAsm package would "
  139.      "you like to install onto your hard drive?\n")
  140. )
  141.  
  142. (set #askopt_help
  143. (cat "The complete software package requires about "
  144.      "1.8 megabyte of disk space for the full "
  145.      "installation.  You have the choice now which "
  146.      "part(s) of the distribution should be installed "
  147.      "and which not.  The suggested parts are especially "
  148.      "marked.\n\n"
  149.      "An overview of the approx. sizes of the different parts:\n"
  150.      "ProAsm Assembler:  154 kbytes\n"
  151.      "ASX             :   78 kbytes\n"
  152.      "ProOpts         :   26 kbytes\n"
  153.      "Utilities       :   60 kbytes\n"
  154.      "Documentation   :  640 kbytes\n"
  155.      "BLink Archive   :   24 kbytes\n"
  156.      "Examples        :  170 kbytes\n"
  157.      "Routine Files   :  460 kbytes\n"
  158.      "Include Files   :   45 kbytes\n"
  159.      "\n")
  160. )
  161.  
  162.  
  163. (set #askbool_prompt
  164. (cat "Copying the env-Variables to envarc: and env:?")
  165. )
  166.  
  167. (set #askbool_help
  168. (cat "This will just copy the contents of the ProAsm/env/ "
  169.      "directory to envarc: and env:. The ProAsm/env/ directory "
  170.      "contains some predefined configuration files.\n\n\n")
  171. )
  172.  
  173.  
  174.  
  175. (set #message1
  176. (cat "Pathes and Assigns will be added to the user-startup")
  177. )
  178.  
  179. (set #startup_prompt_a
  180. (cat "The following pathes and assigns are needed."
  181.      "Do you want them added to your user-startup file?")
  182. )
  183.  
  184. (set #startup_prompt_b
  185. (cat "The changes won't be effective till you reboot.")
  186. )
  187.  
  188.  
  189. (set #startup_help
  190. (cat "The pathes are needed by the ProAsm package "
  191.      "to be found by the system. "
  192.      "The assigns are needed to assure that ProAsm and "
  193.      "its associated utilities find the needed libraries "
  194.      "and documentations.")
  195. )
  196.  
  197. ))
  198.  
  199.  
  200.  
  201. ;=============================================================================
  202. ;
  203. ; some set up stuff...
  204. ;
  205. (set sourcepath (expandpath (pathonly @icon)))
  206.  
  207.  
  208.  
  209. (set @defdest "work:")
  210. (set @destx   "work:")
  211.  
  212. ;=============================================================================
  213. ;
  214. ; Introduction...
  215. ;
  216. (user 1)
  217. (message #intro)
  218.  
  219.  
  220. ;
  221. ; Welcome...
  222. ;
  223. (welcome #welcometext)
  224.  
  225.  
  226. ;
  227. ; Install Package
  228. ;
  229. (complete 0)
  230.  
  231. (set destx (askdir (prompt #askdir_prompt)
  232.                    (default @defdest)
  233.                    (help   #askdir_help)
  234.            )
  235. )
  236.  
  237.  
  238.  
  239. (complete 10)
  240. (set destdir (tackon destx "ProAsm"))
  241. (set @default-dest destdir)
  242.  
  243.  
  244. (set InstallOpts
  245.     (askoptions (prompt #askopt_prompt)
  246.                 (help   #askopt_help)
  247.             (choices "ProAsm Assembler (suggested)"
  248.                      "ASX (suggested)"
  249.                      "ProOpts (suggested)"
  250.                      "Utilities (suggested)"
  251.                      "Documentation (suggested)"
  252.                      "BLink Archive"
  253.                      "Examples"
  254.                      "Routine Files"
  255.                      "Include Files")
  256.     )
  257. )
  258.  
  259. (makedir (destx "ProAsm"))
  260. (copyfiles (source "/ProAsm.info") (dest destx))
  261. (copyfiles (source "readme.txt") (dest destdir))
  262. (copyfiles (source "readme.txt.info") (dest destdir))
  263.  
  264. (copyfiles (source "registration.doc") (dest destdir))
  265. (copyfiles (source "registration.doc.info") (dest destdir))
  266.  
  267.  
  268. ;
  269. ; ProAsm
  270. ;
  271. (complete 20)
  272. (if (BITAND InstallOpts 1) (
  273.     (copyfiles (source "proasm") (dest destdir))
  274.     (makedir (destdir "libs"))
  275.     (set dest2 (tackon destdir "libs"))
  276.     (copyfiles (source "libs") (dest dest2) (all))
  277.     (makedir (destdir "Catalogs"))
  278.     (set dest2 (tackon destdir "Catalogs"))
  279.     (copyfiles (source "Catalogs") (dest dest2) (all))
  280. ))
  281.  
  282. ;
  283. ; ASX
  284. ;
  285. (complete 30)
  286. (if (BITAND InstallOpts 2) (
  287.     (copyfiles (source "ASX") (dest destdir))
  288.     (copyfiles (source "ASX.info") (dest destdir))
  289.     (makedir (destdir "rexx"))
  290.     (set dest2 (tackon destdir "rexx"))
  291.     (copyfiles (source "rexx") (dest dest2) (all))
  292.     (makedir (destdir "env"))
  293.     (set dest2 (tackon destdir "env"))
  294.     (copyfiles (source "env") (dest dest2) (all))
  295. ))
  296.  
  297. ;
  298. ; ProOpts
  299. ;
  300. (complete 40)
  301. (if (BITAND InstallOpts 4) (
  302.     (copyfiles (source "ProOpts") (dest destdir))
  303.     (copyfiles (source "ProOpts.info") (dest destdir))
  304. ))
  305.  
  306. ;
  307. ; Utilities
  308. ;
  309. (complete 45)
  310. (if (BITAND InstallOpts 8) (
  311.     (makedir (destdir "c"))
  312.     (set dest2 (tackon destdir "c"))
  313.     (copyfiles (source "c") (dest dest2) (all))
  314. ))
  315.  
  316.  
  317. ;
  318. ; Documentation
  319. ;
  320. (complete 55)
  321. (if (BITAND InstallOpts 16) (
  322.     (makedir (destdir "Help"))
  323.     (set dest2 (tackon destdir "Help"))
  324.     (copyfiles (source "Help") (dest dest2) (all))
  325.     (copyfiles (source "Help.info") (dest destdir))
  326. ))
  327.  
  328.  
  329. ;
  330. ; BLink
  331. ;
  332. (complete 65)
  333. (if (BITAND InstallOpts 32) (
  334.     (makedir (destdir "BLink"))
  335.     (set dest2 (tackon destdir "BLink"))
  336.     (copyfiles (source "BLink") (dest dest2) (all))
  337.     (copyfiles (source "BLink.info") (dest destdir))
  338.  
  339. ))
  340.  
  341.  
  342. ;
  343. ; Examples
  344. ;
  345. (complete 70)
  346. (if (BITAND InstallOpts 64) (
  347.     (makedir (destdir "Examples"))
  348.     (set dest2 (tackon destdir "Examples"))
  349.     (copyfiles (source "Examples") (dest dest2) (all))
  350.     (copyfiles (source "Examples.info") (dest destdir))
  351. ))
  352.  
  353.  
  354. ;
  355. ; Routines
  356. ;
  357. (complete 80)
  358. (if (BITAND InstallOpts 128) (
  359.     (makedir (destdir "Routines"))
  360.     (set dest2 (tackon destdir "Routines"))
  361.     (copyfiles (source "routines") (dest dest2) (all))
  362. ))
  363.  
  364. ;
  365. ; Includes
  366. ;
  367. (complete 85)
  368. (if (BITAND InstallOpts 256) (
  369.     (makedir (destdir "include"))
  370.     (set dest2 (tackon destdir "include"))
  371.     (copyfiles (source "include") (dest dest2) (all))
  372. ))
  373.  
  374.  
  375.  
  376.  
  377. ;
  378. ; copy the env variables
  379. ;
  380. (complete 90)
  381. (set ask_env
  382.     (askbool
  383.         (prompt #askbool_prompt)
  384.         (help #askbool_help)
  385.         (default 0)
  386.     )
  387. )
  388.  
  389. (if ask_env
  390. (
  391. (copyfiles (source "env")
  392.            (dest "envarc:")
  393.            (all)
  394. )
  395.  
  396.  
  397. (copyfiles (source "env")
  398.            (dest "env:")
  399.            (all)
  400. )
  401. ))
  402.  
  403.  
  404.  
  405.  
  406. ;
  407. ; change user-startup
  408. ;
  409. (complete 95)
  410. (user 2)
  411. (message #message1)
  412. (set ProAsmCDir        (cat "path " destdir " " destdir "/c add" "\n"))
  413. (set ProAsmLibsAssign  (cat "assign libs: " destdir "/libs add" "\n"))
  414. (set ProAsmHelpAssign  (cat "assign help: " destdir "/Help add" "\n"))
  415.  
  416. (startup "ProAsm Assembler Package"
  417.         (prompt ("%s\n\n%s\n%s\n%s\n\n%s\n"
  418.                  #startup_prompt_a
  419.                  ProAsmCDir
  420.                  ProAsmLibsAssign
  421.                  ProAsmHelpAssign
  422.                  #startup_prompt_b)
  423.         )
  424.          (command ("") ProAsmCDir
  425.                   ("") ProAsmLibsAssign
  426.                   ("") ProAsmHelpAssign
  427.          )
  428.         (help #startup_help)
  429. )
  430. (user 1)
  431.  
  432. (complete 100)
  433. (exit)
  434.  
  435. ;=============================================================================
  436.  
  437.