home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / system / info / install < prev    next >
Text File  |  1997-06-07  |  1KB  |  49 lines
  1. ; Installer script for Info, © 1997 by Stephan Rupprecht
  2.  
  3. (set @default-dest "C:")
  4.  
  5.  
  6.  
  7. (if (exists "LOCALE:" (noreq))
  8.    (
  9.       (if (NOT (patmatch @language "english")) 
  10.          (
  11.             (set #src_name
  12.                (cat "Catalogs/" @language "/")
  13.             )
  14.  
  15.             (set #dst_name
  16.                (cat "LOCALE:" #src_name)
  17.             )
  18.  
  19.             (set #src_name
  20.                (cat #src_name "info_com.catalog")
  21.             )
  22.  
  23.             (if (exists #src_name (noreq))
  24.                (
  25.                   (copyfiles
  26.                      (help @copyfiles-help)
  27.                      (source #src_name)
  28.                      (dest #dst_name)
  29.                   )
  30.                )
  31.                (message "Sorry, Info doesn't speak\n" @language "\nat the moment!")
  32.             ) 
  33.          )
  34.       )
  35.    )
  36. )
  37.  
  38. (rename "C:Info" "C:Info.old"
  39.    (help "")
  40.    (prompt  "Do you want a backup of the old info command\n(c:info.old)?")
  41.    (confirm)
  42. )
  43.  
  44. (copyfiles
  45.    (help @copyfiles-help)
  46.    (source "info")
  47.    (dest @default-dest)
  48. )
  49.