home *** CD-ROM | disk | FTP | other *** search
- ;
- ; $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)
-