;
; $VER: Install_SQOp V20.1 (10.1.98)
; This is the Installer Script for Steve Quartly's operators
;
; Modified by © 1998 Dámaso D. Estévez :)

; ------------------------------------------------------

; English strings (default)

(set @app-name "SQ-Operators")
(set #msj1 "Installing CPInfo files to 'ENVARC:'...")
(set #msj2 "Library Path")
(set #msj3 "Installing svoperators to LIBS:svoperators ...")
(set #msj4 "SQ-Operators have been installed now.\nIf this was an Update, you should\nreboot your computer now.")

; Spanish strings

(if (= @language "español")
        (
                (set @app-name "'Operadores SQ'")
                (set #msj1 "Instalando ficheros CPInfo en 'ENVARC:'...")
                (set #msj2 "Seleccione el directorio donde está instalada la biblioteca 'superview.library'")
                (set #msj3 "Instalando operadores de SuperView en ")
                (set #msj4 "Los operadores SQ han sido instalados.\nSi se trata de una actualización,\ndeberá reiniciar su ordenador ahora.")
        )
)

; ------------------------------------------------------

(makedir "ENV:SuperView-Library")
(makedir "ENVARC:SuperView-Library")

(copyfiles
  (prompt #msj1)
  (help @copyfiles-help)
  (source "envarc")
  (dest "ENVARC:")
  (all)
)

(set svlibdir
              (askdir
                     (prompt #msj2)
                     (help @askdir-help)
                     (newpath)
                     (default "LIBS:")
              )
 )

(set @default-dest svlibdir)

(set svoperatordir (tackon svlibdir "svoperators"))
(makedir svoperatordir)

(set #msj2 (cat #msj3 svlibdir "/svoperators..."))

(copyfiles
  (prompt #msj3)
  (help @copyfiles-help)
  (source "libs/svoperators")
  (dest (tackon svlibdir "svoperators"))
  (pattern "#?")
  (files)
)

(exit #msj4)