#!/bin/csh
# extracts $MACHINE and $proot settings from executable psl.

## $tmpPSL should be set to an executable psl  before executing this.

rm -f tmpvars*
setenv tmpPSL /usr/local/bin/psl

$tmpPSL <auxil/fpslvars.sl>tmpvars1

$tmpPSL <<%EOR
(OFF RAISE)
(GLOBAL '(arch prt))
(PROG (r0 r1)
      (RDS (OPEN "tmpvars1" 'INPUT))
  Fl  (SETQ r1 r0)
      (COND ((EQN (SETQ r0 (READ)) 0)
	     (SETQ arch r1))
	    ((EQ AA !$EOF!$)
	     (RETURN NIL))
	    (T
	     (GO Fl)))
  Sl  (SETQ r1 r0)
      (COND ((EQN (SETQ r0 (READ)) 0)
	     (SETQ prt r1)
	     (RETURN T))
	    ((EQ AA !$EOF!$)
	     (RETURN NIL))
	    (T
	     (GO Sl)))
      (CLOSE (RDS NIL)) )

(COND  (T %(AND arch prt)
	(WRS (OPEN "tmpvars2" 'OUTPUT))
	(PRIN2 "setenv MACHINE ")
	(PRIN2 arch)
	(TERPRI)
	(PRIN2 "setenv proot ")
	(PRIN2 prt)
	(TERPRI)
	(CLOSE (WRS NIL))
	T ))
(QUIT)
%EOR
