#!/usr/bin/ksh93
################################################################
#### Program: fopen_k93
#### 
#### Description: Support function to determine if a given 
#### filename is referring to standard input
#### 
#### 
#### Author: Dana French (dfrench@mtxia.com)
####         Copyright 2004
#### 
#### Date: 07/22/2004
#### 
################################################################
function fopen_k93 {
  nameref UNITNUM="${1}"
  nameref FILENAME="${2}"
  typeset TRUE="0"
  typeset FALSE="1"
  typeset STDIN="${FALSE}"
  typeset UNITNUM="3"

  [[ "_${FILENAME}" = '_-' ]] && STDIN="${TRUE}"
  (( STDIN == FALSE )) && eval exec ${UNITNUM}\<"${FILE1}"
  return ${?}
}
################################################################

fopen_k93 "${@}"