home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / drucker / wbprint / install < prev    next >
Encoding:
Text File  |  1998-04-28  |  3.0 KB  |  151 lines
  1. ; Installer script for wbprint
  2. ;
  3. ; Copyright © 1998 Gerhard Jirsa
  4. ; All rights reserved!
  5. ; Released as Freeware without any explicit or implicit warranty!
  6. ;
  7. ; email: g.jirsa@xpoint.at
  8. ; WWW  : http://www.user.xpoint.at/g.jirsa/
  9. ;
  10. ; $VER: Install 43.8 (28.04.1998)
  11. ;
  12. ; -------------------------------------------------------------------------------
  13.  
  14.  
  15. (procedure check-system-version
  16.     (set #exec-version (/ (getversion) 65536))
  17.     (if (< #exec-version 37)
  18.         (abort "wbprint needs Kickstart 2.04 or higher.\n")
  19.     )
  20. )
  21.  
  22. (procedure select-document-directory
  23.     (set #doc-dest
  24.         (askdir
  25.             (prompt "Select the directory where you want to "
  26.             "install the documentation. ")
  27.             (help "The documentation can be installed anywhere. ")
  28.             (default "Sys:tools")
  29.         )
  30.     )
  31. )
  32. (procedure select-destination-directory
  33.     (if (exists "Sys:WBStartup")
  34.         (set #default-dir "Sys:WBStartup")
  35.         (set #default-dir "Sys:")
  36.     )
  37.     (set @default-dest
  38.         (askdir
  39.             (prompt "Select the directory where you want to "
  40.             "install wbprint. A seperate directory WILL NOT "
  41.             "be created at the location you specify.")
  42.             (help "Select the directory where you want to "
  43.             "install wbprint. Installing wbprint in your "
  44.             "WBStartup drawer is useful if you print regularily "
  45.             "wbstartup is just about 5.3k, so it does not need "
  46.             "much ressources.")
  47.             (default #default-dir) 
  48.         )
  49.     )
  50. )
  51.  
  52. (procedure select-icon
  53.     (set #icon-choice
  54.         (askchoice
  55.             (prompt "Please select which icons you "
  56.             "want to use:")
  57.             (help "wbprint comes with two different "
  58.             "icon styles. Please select the one you prefer. ")
  59.             (choices "4 color Workbench" "8 Color Workbench")
  60.             (default 0)
  61.         )
  62.     )
  63. )
  64.  
  65. (procedure copy-file
  66.     (copyfiles
  67.         (source #to-copy)
  68.         (dest @default-dest)
  69.         (optional force)
  70.     )
  71. )
  72.  
  73. (procedure copy-files
  74.     (set #to-copy "wbprint")
  75.     (copy-file)
  76.     (complete 30)
  77.     (select #icon-choice
  78.         (set #to-copy "Icons/wbprint.4.info")
  79.         (set #to-copy "Icons/wbprint.8.info")
  80.     )
  81.     (copyfiles
  82.         (source #to-copy)
  83.         (dest @default-dest)
  84.         (newname "wbprint.info")
  85.     )
  86. )
  87.  
  88. (procedure ask-docs
  89.     (set #docstyle
  90.         (askoptions
  91.             (prompt "Which docs do you want to install: ")
  92.             (help "You can install the .doc file (plain ASCII) "
  93.             "and/or the .dvi file (TeX output format, requires "
  94.             "ShowDVI or compatible program) and/or the .guide  "
  95.             "(TM) file (requires Amigaguide or Multiview)")
  96.             (choices ".doc (ASCII)" ".dvi (TeX)" ".guide (Amigaguide)")
  97.             (default -1)
  98.         )
  99.     )
  100. )
  101.  
  102. (procedure copy-docs
  103.     (if (IN #docstyle 0)
  104.         (copyfiles
  105.             (source "doc/wbprint.doc")
  106.             (dest #doc-dest)
  107.             (infos)
  108.         )
  109.     )
  110.     (if (IN #docstyle 1)
  111.         (copyfiles
  112.             (source "doc/wbprint.dvi")
  113.             (dest #doc-dest)
  114.             (infos)
  115.         )
  116.     )
  117.     (if (IN #docstyle 2)
  118.         (copyfiles
  119.             (source "doc/wbprint.guide")
  120.             (dest #doc-dest)
  121.             (infos)
  122.         )
  123.     )
  124. )
  125.  
  126. ; ------------ Start --------------
  127.  
  128. (welcome "Welcome to the wbprint 1.1 installation.\n")
  129.  
  130. (check-system-version)
  131.  
  132. (complete 0)
  133.  
  134. (set source-dir "")
  135.  
  136. (select-destination-directory)
  137.  
  138. (select-icon)
  139.  
  140. (copy-files)
  141.  
  142. (ask-docs)
  143.  
  144. (if (not(= #docstyle 0))
  145.     (
  146.         (select-document-directory)
  147.         (copy-docs)
  148.     )
  149. )
  150.  
  151. (complete 100)