home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / converter / xtrace / install < prev    next >
Encoding:
Text File  |  1996-07-16  |  10.7 KB  |  283 lines
  1. ; $VER: Install 1.0
  2. ; Script to install XTrace V 1.0
  3.  
  4. ; ============================================================================
  5. ; Variables
  6. ; ============================================================================
  7.  
  8. (SET OSVersion        (/ (getversion) 65536))
  9. (SET TRUE        1)
  10. (SET FALSE        0)
  11. (SET CPU        (database "cpu"))
  12. (SET update        FALSE)
  13.  
  14. ; ============================================================================
  15. ; Strings
  16. ; ============================================================================
  17.  
  18. (IF (= @language "deutsch")
  19.  (
  20.   ; ===== German strings
  21.  
  22.   (SET Msg_Kick          "Tut mir leid, aber XTrace benötigt mindestens AmigaDOS V3.0.")
  23.   (SET Msg_Welcome       "Willkommen bei der Installation von XTrace V1.0 !\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nSie können jederzeit die Installation abbrechen und alle installierten Teile von XTrace werden gelöscht.\n\nFalls Sie sich entscheiden XTrace zu löschen brauchen Sie nur die XTrace-Schublade entfernen.")
  24.   (SET Msg_Bye           "Danke das Sie XTrace installiert haben. Vergessen Sie nicht sich registrieren zu lassen !")
  25.   (SET Msg_Dir           "Wählen Sie bitte ein Verzeichnis in dem XTrace installiert werden soll. Ein eigenes XTrace Verzeichnis wird angelegt. Es sollten 650 Kb auf dem Datenträger frei sein.")
  26.   (SET Msg_Proc          "Wählen Sie den/die Prozessor(en) Ihres Amigas®. Ihre Konfiguration sollte bereits ausgewählt sein.")
  27.  
  28.   (SET Msg_ExtractMain   "Extrahiere Hauptprogramm.\n")
  29.   (SET Msg_ExtractFilt   "Extrahiere Filter.")
  30.   (SET Msg_ExtractExam   "Extrahiere Beispiele.")
  31.   (SET Msg_ExtractIGui   "Extrahiere Icons und Guide.")
  32.   (SET Msg_68000     "Erstelle MC68000er Version.")
  33.   (SET Msg_68020     "Erstelle MC68020er Version.")
  34.   (SET Msg_68030     "Erstelle MC68030er Version.")
  35.   (SET Msg_68030FPU     "Erstelle MC68030er + M68882 Version.")
  36.   (SET Msg_68040     "Erstelle MC68040er Version.")
  37.   (SET Msg_CopyLibs     "Kopiere Libraries.")
  38.  
  39.   (SET Msg_Abort         "Installation abgebrochen. Wollen Sie die bereits installierten Dateien löschen ?\n\nFalls Sie eine existierende Version von XTrace geupdated haben könnte diese bereits überschrieben worden sein. Installieren Sie sie bitte neu.\n\n")
  40.   (SET Msg_Abort_RYes    "Ja, entfernen")
  41.   (SET Msg_Abort_RNo     "Nein")
  42.  )
  43.  (
  44.   ; ===== English strings
  45.  
  46.   (SET Msg_Kick          "Sorry, but XTrace requires AmigaDOS V3.0.")
  47.   (SET Msg_Welcome       "Welcome to the installation of XTrace V 1.0 !\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nYou can always abort the installation and the installed parts will be safely deleted.\n\nIf you decide to uninstall XTrace, only delete the XTrace drawer.")
  48.   (SET Msg_Bye           "Thanks for installing XTrace. Don't forget to register !")
  49.   (SET Msg_Dir           "Please choose a directory to install XTrace. A own XTrace directory will be created. There should be 650 Kb free.")
  50.   (SET Msg_Proc          "Choose the processor(s) of your Amiga®. Your configuration should be already choosen.")
  51.  
  52.   (SET Msg_ExtractMain   "Extracting main program.\n")
  53.   (SET Msg_ExtractFilt   "Extracting filters.")
  54.   (SET Msg_ExtractExam   "Extracting examples.")
  55.   (SET Msg_ExtractIGui   "Extracting icons and guide.")
  56.   (SET Msg_68000     "Create version for MC68000.")
  57.   (SET Msg_68020     "Create version for MC68020.")
  58.   (SET Msg_68030     "Create version for MC68030.")
  59.   (SET Msg_68030FPU     "Create version for MC68030 and M68882.")
  60.   (SET Msg_68040     "Create version for MC68040.")
  61.   (SET Msg_CopyLibs      "Copy libraries.")
  62.  
  63.   (SET Msg_Abort         "Installation aborted. Do you want to delete the files that were installed?\n\nIf you are updating an existing version of XTrace, it may have already been overwritten, so you must reinstall it.\n\n")
  64.   (SET Msg_Abort_RYes    "Yes, remove")
  65.   (SET Msg_Abort_RNo     "No")
  66.  )
  67. )
  68.  
  69. ; ============================================================================
  70. ; Initialization
  71. ; ============================================================================
  72.  
  73. ; ===== Make sure that we are running under 3.0 or better
  74. (IF (< OSVersion 39) (ABORT Msg_Kick))
  75.  
  76. ; ===== Set up error routine
  77.  
  78. (ONERROR
  79.  (IF (EXISTS "XTDest:" (NOREQ))
  80.  (
  81.   (IF (ASKBOOL
  82.    (PROMPT Msg_Abort)
  83.    (HELP " ")
  84.    (CHOICES Msg_Abort_RYes
  85.             Msg_Abort_RNo)
  86.    (DEFAULT 0))
  87.    (
  88.     (RUN "delete XTDest:XTrace ALL FORCE QUIET")
  89.     (DELETE "XTDest:XTrace.info")
  90.    )
  91.   )
  92.  
  93.   (MAKEASSIGN "XTSrc"  (SAFE))
  94.   (MAKEASSIGN "XTDest" (SAFE))
  95.  ))
  96. )
  97.  
  98. ; ============================================================================
  99. ; Installation
  100. ; ============================================================================
  101.  
  102. (MESSAGE Msg_Welcome)
  103. (COMPLETE 0)
  104.  
  105. ; ===== cancel the assign in case of installation restart
  106.  
  107. (MAKEASSIGN "XTSrc" (SAFE))
  108. (MAKEASSIGN "XTDest" (SAFE))
  109.  
  110. ; ============================================================================
  111. ; Ask for directory and create
  112. ; ============================================================================
  113.  
  114. (SET XTDest
  115.  (TACKON 
  116.   (ASKDIR (PROMPT Msg_Dir)
  117.   (HELP "")
  118.   (DEFAULT @default-dest))
  119.  
  120.   "XTrace"
  121.  )
  122. )
  123.  
  124. (MAKEASSIGN "XTDest" (PATHONLY XTDest) (SAFE))
  125.  
  126. (IF (EXISTS "XTDest:XTrace") (SET update TRUE) (MAKEDIR "XTDest:XTrace"))
  127.  
  128. (MAKEASSIGN "XTSrc" "")
  129. (SET @default-dest (EXPANDPATH "XTDest:"))
  130.  
  131. ; ============================================================================
  132. ; Ask for processor 
  133. ; ============================================================================
  134.  
  135. (IF(EXISTS("c:CPU")) (SET FPU (RUN "c:CPU CHECK 68882")) (SET FPU 5))
  136.  
  137. (IF (OR (= CPU "68000") (= CPU "68010")) (SET Processor 0))
  138. (IF (= CPU "68020")                      (SET Processor 1))
  139. (IF (= CPU "68030") (IF (<> FPU 0)       (SET Processor 2) (SET Processor 3)))
  140. (IF (OR (= CPU "68040") (= CPU "68060")) (SET Processor 4))
  141.  
  142. (IF (= @user-level 2)
  143.  (SET Processor
  144.   (ASKCHOICE
  145.    (PROMPT Msg_Proc)
  146.    (HELP "")
  147.    (CHOICES "MC 68000"
  148.             "MC 68020"
  149.             "MC 68030"
  150.             "MC 68030 & FPU (M68882)"
  151.         "MC 68040")
  152.    (DEFAULT Processor)
  153.   )
  154.  )
  155. )
  156.  
  157. ; ============================================================================
  158. ; Install main program
  159. ; ============================================================================
  160.  
  161. ; ===== Extracting main program
  162.  
  163. (WORKING Msg_ExtractMain)
  164. (RUN "XTSrc:c/UnLZX >NIL: <NIL: x XTSrc:Bin.lzx XTrace.68000 XTDest:XTrace/")
  165.  
  166. (IF (= Processor 0)
  167.  (
  168.   (WORKING Msg_ExtractMain Msg_68000)
  169.   (RENAME "XTDest:XTrace/XTrace.68000" "XTDest:XTrace/XTrace")
  170.  )
  171. )
  172.  
  173. (IF (= Processor 1)
  174.  (
  175.   (WORKING Msg_ExtractMain Msg_68020)
  176.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68020.pch XTDest:XTrace/")
  177.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68020.pch XTDest:XTrace/XTrace.68000")
  178.  ) 
  179. )
  180.  
  181. (IF (= Processor 2)
  182.  (
  183.   (WORKING Msg_ExtractMain Msg_68030)
  184.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68030.pch XTDest:XTrace/")
  185.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68030.pch XTDest:XTrace/XTrace.68000")
  186.  ) 
  187. )
  188.  
  189. (IF (= Processor 3)
  190.  (
  191.   (WORKING Msg_ExtractMain Msg_68030FPU)
  192.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68030FPU.pch XTDest:XTrace/")
  193.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68030FPU.pch XTDest:XTrace/XTrace.68000")
  194.  ) 
  195. )
  196.  
  197. (IF (= Processor 4)
  198.  (
  199.   (WORKING Msg_ExtractMain Msg_68040)
  200.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68040.pch XTDest:XTrace/")
  201.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68040.pch XTDest:XTrace/XTrace.68000")
  202.  ) 
  203. )
  204.  
  205. (RUN "delete XTDest:XTrace/#?.pch XTDest:XTrace/XTrace.68000 QUIET FORCE")
  206. (RUN "copy XTSrc:XTrace.info XTDest:XTrace/XTrace.info")
  207.  
  208. ; ============================================================================
  209. ; Extract filters
  210. ; ============================================================================
  211.  
  212. (COMPLETE 20)
  213. (WORKING Msg_ExtractFilt)
  214.  
  215. (IF (NOT (EXISTS "XTDest:XTrace/Filters")) (MAKEDIR "XTDest:XTrace/Filters"))
  216. (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Filters.lzx XTDest:XTrace/Filters/")
  217.  
  218. ; ============================================================================
  219. ; Extract examples
  220. ; ============================================================================
  221.  
  222. (COMPLETE 40)
  223. (WORKING Msg_ExtractExam)
  224.  
  225. (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Examples.lzx XTDest:XTrace/")
  226.  
  227. ; ============================================================================
  228. ; Copy icons & guide
  229. ; ============================================================================
  230.  
  231. (COMPLETE 60)
  232. (WORKING Msg_ExtractIGui)
  233. (IF (NOT (EXISTS "XTDest:XTrace/Icons"))  (MAKEDIR "XTDest:XTrace/Icons"))
  234. (IF (NOT (EXISTS "XTDest:XTrace/Guides")) (MAKEDIR "XTDest:XTrace/Guides"))
  235.  
  236. (COPYFILES (SOURCE "XTSrc:Icons/") (DEST "XTDest:XTrace/Icons/") (PATTERN "defxt_#?.info"))
  237.  
  238. (RUN "copy XTSrc:Icons/Drawer_XTrace.info XTDest:XTrace.info")
  239. (RUN "copy XTSrc:Icons/Drawer_Guides.info XTDest:XTrace/Guides.info")
  240. (RUN "copy XTSrc:Icons/XTrace.info XTDest:XTrace/XTrace.info")
  241.  
  242. ; Fit icons
  243.  
  244. (TOOLTYPE (DEST "XTDest:XTrace") (NOPOSITION))
  245. (TOOLTYPE (DEST "XTDest:XTrace/IFFILBM/Intel_Outside.ILBM") (SETDEFAULTTOOL (EXPANDPATH "XTDest:XTrace/XTrace"))) 
  246.  
  247. ; ===== Guides and text files
  248.  
  249. (COPYFILES (SOURCE "XTSrc:Guides/") (DEST "XTDest:XTrace/Guides/") (PATTERN "#?"))
  250. (COPYFILES (SOURCE "XTSrc:") (DEST "XTDest:XTrace/") (PATTERN "(Read_Me_First#?|RegisterForm#?|XPK_Overview#?|ReqTools_Distribution#?)"))
  251.  
  252. ; ============================================================================
  253. ; Copy libs
  254. ; ============================================================================
  255.  
  256. (COMPLETE 80)
  257. (WORKING Msg_CopyLibs)
  258.  
  259. (IF (NOT (EXISTS "LIBS:Compressors")) (MAKEDIR "LIBS:Compressors"))
  260.  
  261. (COPYLIB (SOURCE "XTSrc:Libs/reqtools.library")            (DEST "Libs:"))
  262. (COPYLIB (SOURCE "XTSrc:Libs/xpkmaster.library")           (DEST "Libs:"))
  263. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkSHRI.library") (DEST "Libs:Compressors/")) 
  264. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkRLEN.library") (DEST "Libs:Compressors/"))
  265. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkNUKE.library") (DEST "Libs:Compressors/"))
  266. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkNONE.library") (DEST "Libs:Compressors/"))
  267. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkIMPL.library") (DEST "Libs:Compressors/"))
  268. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkHUFF.library") (DEST "Libs:Compressors/"))
  269. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkDLTA.library") (DEST "Libs:Compressors/"))
  270. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkCBR0.library") (DEST "Libs:Compressors/"))
  271. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkBLZW.library") (DEST "Libs:Compressors/"))
  272.  
  273. ; ============================================================================
  274. ; Cleanup & End
  275. ; ============================================================================
  276.  
  277. (COMPLETE 100)
  278.  
  279. (MAKEASSIGN "XTSrc"  (SAFE))
  280. (MAKEASSIGN "XTDest" (SAFE))
  281.  
  282. (EXIT Msg_Bye)
  283.