home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / Barfly / Install < prev    next >
Text File  |  1994-07-31  |  3KB  |  133 lines
  1. ;
  2. ;    $VER: Install-Barfly 1.0 (10.07.94)
  3. ;
  4. ;    Install script for Barfly
  5. ;    © Copyright 1994 by Ralph Schmidt
  6. ;    All Rights Reserved
  7. ;    
  8.  
  9. (set intro
  10. (cat "\n Welcome to the installation of Barfly!\n\n"
  11.      "© Copyright 1994 by Ralph Schmidt\n"
  12.      "All Rights Reserved"
  13. ))
  14.  
  15.  
  16.  
  17. ; Kickstart version test
  18.  
  19. (if (< (/ (getversion) 65536) 37)
  20. (
  21.  (abort "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !")
  22. ))
  23.  
  24. ; here we go
  25.  
  26. (welcome intro)
  27.  
  28. ; install Program
  29.  
  30. (set @default-dest "SYS:")
  31.  
  32. (set dest2 "SYS:")
  33.  
  34. (complete 0)
  35.  
  36. (set dest2 (askdir  (prompt "Select the location to install the Barfly directory")
  37.                     (default @default-dest)
  38.                     (help "Choose a destination partition or directory " 
  39.                           "to contain the Barfly Development System."
  40.                           "The install will create a directory called"
  41.                           "Barfly at the location your choose and copy"
  42.                           "the needed files to that directory"
  43.                     )
  44.             )
  45. )
  46.  
  47. (set dest1 (tackon dest2 "Barfly"))
  48.  
  49. (set @default-dest dest1)
  50. (message "Package will be installed in " 
  51.           dest1
  52. )
  53.  
  54. (if (= (exists @default-dest) 0)
  55.     (makedir @default-dest)
  56. )
  57.  
  58. (copyfiles (source "/Barfly.info")
  59.            (dest   dest2)
  60. )
  61.  
  62.  
  63. (copyfiles (source "")
  64.            (dest   @default-dest)
  65.            (all)
  66. )
  67.  
  68. (copylib (source "libs/cachefile.library")
  69.          (dest   "libs:")
  70. )
  71. (message "cachefile.library is used for the BASM cache functions and is copied to libs:")
  72.  
  73. (if (<> (exists "libs/barfly.library") 0)
  74.         (copylib (source "libs/barfly.library")
  75.                  (dest   "libs:")
  76.         )
  77. )
  78.  
  79. (if (<> (exists "libs/barfly.library") 0)
  80.         (message "barfly.library is the key and was copied to libs:")
  81. )
  82.  
  83.  
  84. (message "Path will be added to the user-startup")
  85.  
  86. (set dest3 (cat "path " dest1 " add" "\n"))
  87.  
  88. (startup "Barfly Development System"
  89.    (prompt ("%s\n%s\n\n%s\n%s\n"
  90.             "The following path is needed."
  91.             "Do you want the path added to your startup?"
  92.             dest3
  93.             "NOTE: The path will not be updated until you reboot."
  94.             )
  95.    )
  96.    (command 
  97.            ("") dest3
  98.    )
  99.    (help "The programs BAsm and BDebug need to be in the path"
  100.          "to be found by the system"
  101.          "If you request it, the installer will add the necessary"
  102.          "path to your user-startup script, which is run when your"
  103.          "machine boots.  If you decide not to allow the installer"
  104.          "to make these changes, you will need to make them yourself."
  105.    )
  106. )
  107.  
  108. (message "env:BarflyPath will be created for the configuration files")
  109.  
  110. (textfile (dest "env:BarflyPath")
  111.           (append dest1)
  112.           (append "/s/Barfly")
  113. )
  114.  
  115. (message "envarc:BarflyPath will be created for the configuration files")
  116.  
  117. (textfile (dest "envarc:BarflyPath")
  118.           (append dest1)
  119.           (append "/s/Barfly")
  120. )
  121.  
  122.  
  123. (message "BDebug-Desktop Screen is shown to demonstrate the Debuggers abilities")
  124.  
  125. (set dest4 (cat "sys:utilities/Multiview " dest1 "/BDebug-Desktop.iff" ))
  126.  
  127. (run dest4
  128.    (prompt ("%s\n"
  129.             "Do you wanna see a Desktop-Screen of the Debugger?"
  130.             )
  131.    )
  132. )
  133.