; $VER: Install_CallPNM.script V2.4 (16.7.95)
; © 1995 by Andreas R. Kleinert.
; This is the Installer Script for my CallPNM-SVOperator

(set svlibdir
            (askdir
                   (prompt "Library Path")
                   (help @askdir-help)
                   (newpath)
                   (default "LIBS:")
            )
)

(makedir (tackon svlibdir "svoperators"))

(copyfiles
  (prompt "Installing svoperators to LIBS:svoperators ...")
  (help @copyfiles-help)
  (source "libs/svoperators")
  (dest (tackon svlibdir "svoperators"))
  (pattern "#?.svoperator")
  (files)
)

(makedir "ENV:superview-Library")

(copyfiles
  (prompt "Installing ControlPad to ENV: ...")
  (help @copyfiles-help)
  (source "env/superview-Library")
  (dest "ENV:superview-Library")
  (pattern "#?")
  (files)
)

(makedir "ENVARC:superview-Library")

(copyfiles
  (prompt "Installing ControlPad to ENVARC: ...")
  (help @copyfiles-help)
  (source "env/superview-Library")
  (dest "ENVARC:superview-Library")
  (pattern "#?")
  (files)
)