; Installer script for Info, © 1997 by Stephan Rupprecht

(set @default-dest "C:")



(if (exists "LOCALE:" (noreq))
   (
      (if (NOT (patmatch @language "english")) 
         (
            (set #src_name
               (cat "Catalogs/" @language "/")
            )

            (set #dst_name
               (cat "LOCALE:" #src_name)
            )

            (set #src_name
               (cat #src_name "info_com.catalog")
            )

            (if (exists #src_name (noreq))
               (
                  (copyfiles
                     (help @copyfiles-help)
                     (source #src_name)
                     (dest #dst_name)
                  )
               )
               (message "Sorry, Info doesn't speak\n" @language "\nat the moment!")
            ) 
         )
      )
   )
)

(rename "C:Info" "C:Info.old"
   (help "")
   (prompt  "Do you want a backup of the old info command\n(c:info.old)?")
   (confirm)
)

;--- check os version ---
(set #vernum (getversion "exec.library" (resident)))
(set #vernum (/ #vernum 65536))

(if (< #vernum 39)
(
	(set #srcname "info")
)
(
	(set #srcname "info_v39")
)
)

(copyfiles
   (help @copyfiles-help)
   (source #srcname)
   (newname "info")
   (dest @default-dest)
)