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