home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / dev / lang / sgmls / install < prev    next >
Text File  |  1995-06-13  |  3KB  |  116 lines
  1. ;
  2. ; Installation script for sgmls
  3. ;
  4. ; created on 13.06.1995 by Kai Hofmann
  5. ;
  6.  
  7. (if (= @language "english")
  8.     (
  9.      (set #welcome (cat "Welcome to the sgmls parser!\n\n"))
  10.      (set #iuquest ("What do you want to do with the %s parser?\n\n" @app-name))
  11.      (set #iuc1    "Install")
  12.      (set #iuc2    "Uninstall")
  13.      (set #use37   ("You must be using OS 2.04 or higher to install and use the %s parser" @app-name))
  14.      (set #exedestdir ("Where do you want to install the %s parser?" @app-name))
  15.  
  16.      (set #docdestdir "To which directory should I copy the .doc files?")
  17.      (set #del1 "Deleting .info file - it is created by an installer bug!")
  18.  
  19.      (set #remove ("Removing %s" @app-name))
  20.      (set #notfound ("Sorry, could not found %s" @app-name))
  21.      (set #endunin ("\nUninstalling %s finished, but if you have installed the docs, so please remove this by hand!" @app-name))
  22.     )
  23. )
  24.  
  25. (if (= 0 (askchoice (prompt #iuquest)
  26.                     (choices #iuc1 #iuc2)
  27.                     (default 0)
  28.                     (help @askchoice-help)
  29.          )
  30.     )
  31.     (
  32.      ; Install
  33.      (if (< (/ (getversion) 65536) 37)
  34.          (abort #use37)
  35.      )
  36.      (welcome #welcome)
  37.      (complete 0)
  38.      (set @default-dest "c:")
  39.      (set @default-dest (askdir (prompt #exedestdir)
  40.                                 (default @default-dest)
  41.                                 (help @askdir-help)
  42.                         )
  43.      )
  44.      (if (= @language "english") ;then
  45.          (
  46.           (set #cplprompt ("Copying %s to %s" @app-name @default-dest))
  47.          )
  48.      )
  49.      (copyfiles (prompt #cplpromt)
  50.                 (source "bin/")
  51.                 (dest @default-dest)
  52.                 (all)
  53.                 (optional "askuser")
  54.                 (help @copyfiles-help)
  55.      )
  56.      (complete 50)
  57.      (set destination (askdir (prompt #docdestdir)
  58.                               (default "SYS:")
  59.                               (help @askdir-help)
  60.                       )
  61.      )
  62.      (if (= @language "english") ;then
  63.          (
  64.           (set #cplprompt ("Copying %s to %s" @app-name destination))
  65.          )
  66.      )
  67.      (copyfiles (prompt #cplpromt)
  68.                 (source "doc/")
  69.                 (dest destination)
  70.                 (infos)
  71.                 (all)
  72.                 (optional "askuser")
  73.                 (help @copyfiles-help)
  74.      )
  75.      (delete (tackon destination ".info")
  76.              (prompt #del1)
  77.              (optional "force")
  78.              (help @delete-help)
  79.      )
  80.      (complete 100)
  81.     )
  82. ;else
  83.     (
  84.      ; Uninstall
  85.      (if (exists "c:sgmls" (noreq))
  86.          (delete "c:sgmls"
  87.                  (prompt #remove)
  88.                  (help @delete-help)
  89.                  (optional "force")
  90.          )
  91.          (message #notfound)
  92.      )
  93.      (complete 33)
  94.      (if (exists "c:sgmlsasp" (noreq))
  95.          (delete "c:sgmlsasp"
  96.                  (prompt #remove)
  97.                  (help @delete-help)
  98.                  (optional "force")
  99.          )
  100.          (message #notfound)
  101.      )
  102.      (complete 66)
  103.      (if (exists "c:rast" (noreq))
  104.          (delete "c:rast"
  105.                  (prompt #remove)
  106.                  (help @delete-help)
  107.                  (optional "force")
  108.          )
  109.          (message #notfound)
  110.      )
  111.      (complete 100)
  112.      (message #endunin)
  113.      (exit (quiet))
  114.     )
  115. )
  116.