# Usage: readenv var-name file-name
#   for 2seconds beta.5 which does not have the readenv command.
#
define var "$1"
rmacro tmp "$2"
if ( ne $STATUS 0 )
  setenv $var
  leave $STATUS
else
  setenv "$var" "$tmp"
  leave 0
endif
