#!/bin/sh
# Splus version 1.75 created 6/13/96
# @(#)Copyright (c), 1987, 1996 StatSci, Inc.  All rights reserved.
S_SCRIPT_SCCS_MAJOR=1
S_SCRIPT_SCCS_MINOR=75
export S_SCRIPT_SCCS_MAJOR S_SCRIPT_SCCS_MINOR
#
# This shell script starts the S-PLUS system and calls S-PLUS utilities.
#
# Set the Top Level S-PLUS directory
SHOME=${SHOME-/opt/splus3.4}
  
# Add the S-PLUS utilities directory to your PATH
PATH=$SHOME/cmd:$PATH
   
# Set the S-PLUS printing options for the printgraph function
S_PRINT_ORIENTATION=${S_PRINT_ORIENTATION-"landscape"}
S_PRINTGRAPH_METHOD=${S_PRINTGRAPH_METHOD-"postscript"}
S_POSTSCRIPT_PRINT_COMMAND=${S_POSTSCRIPT_PRINT_COMMAND-"lp"}
S_LASERJET_PRINT_COMMAND=${S_LASERJET_PRINT_COMMAND-"lp -dhp"}
S_LASERJET_DPI=${S_LASERJET_DPI-"100"}
  
# S_SHELL used by ! escape
S_SHELL=${S_SHELL-${SHELL-"/bin/sh"}}
  
# S_PAGER is the default pager.
S_PAGER=${S_PAGER-${PAGER-less}}
   
osrev="`uname -r`"
S_CC_FLAGS=''; S_LD_FLAGS=''; S_DL2_EXTRAS=''
export S_CC_FLAGS S_LD_FLAGS S_DL2_EXTRAS
case "$osrev" in
   4*) ;;
   *)
      # Append our lib directory to the ld path for the dynamically
      # loaded X11 client programs (e.g. motif(), help.start(),
      # data.ed(), and the rest) and FORTRAN-using programs.
      S_LIBLIST=/opt/SUNWspro/lib:${SHOME}/newfun/lib
      case "X$LD_LIBRARY_PATH" in
         X) LD_LIBRARY_PATH=$S_LIBLIST;;
         *\;) LD_LIBRARY_PATH="$LD_LIBRARY_PATH$S_LIBLIST";;
         *) LD_LIBRARY_PATH="$LD_LIBRARY_PATH:$S_LIBLIST";;
      esac
      export LD_LIBRARY_PATH
   ;;
esac
#
# Increase the odds that X11 programs and libs will be found automagically.
if [ -r "${OPENWINHOME:-/usr/openwin}/bin" ]
then PATH=${PATH}:${OPENWINHOME:-/usr/openwin}/bin
fi
if [ -r "${OPENWINHOME:-/usr/openwin}/lib" ]; then 
     LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:${OPENWINHOME:-/usr/openwin}/lib
     export LD_LIBRARY_PATH
fi
 
# What system library specifications S-PLUS should use when static loading or
# dynamic loading with dyn.load2 (which load your own routines into S-PLUS)
S_LIB_STATIC=${S_LIB_STATIC-"$S_CC_FLAGS -Bdynamic -lF77 -lM77 -lsunmath -lelf -ldl -lm"}
S_LIB_DYNLOAD2=${S_LIB_DYNLOAD2-"$S_LD_FLAGS -Bdynamic -lF77 -lM77 -lsunmath -lelf -ldl -lm -lc"}
   
# Location of X11 applications default files:
if [ "X$S_BYPASS_X11_ADPATH" = "X" ]
then
   if [ "X$XFILESEARCHPATH" = "X" ]
   then
      XFILESEARCHPATH="$SHOME/splus/lib/X11/app-defaults/%N:/usr/lib/X11/%T/%N"
      if [ "X$OPENWINHOME" != "X" ]
      then XFILESEARCHPATH="$XFILESEARCHPATH:$OPENWINHOME/lib/%T/%N"
      fi
   else XFILESEARCHPATH="$SHOME/splus/lib/X11/app-defaults/%N:$XFILESEARCHPATH"
   fi
fi
  
# Use this variable to set the prompt when you use "less" inside "help"
LESS=${LESS-"-PPaging with 'less' - hit 'q' to quit, <space> to continue or use 'vi' commands"}
   
S_PATH=${S_PATH-"$SHOME/splus/.Functions:$SHOME/stat/.Functions:$SHOME/s/.Functions:$SHOME/s/.Datasets:$SHOME/stat/.Datasets:$SHOME/splus/.Datasets"}
   
S_WORK=${S_WORK-.Data:$HOME/.Data}
   
# Which utility should it run by default
S_DEFAULT=${S_DEFAULT-NEW}
   
export S_PRINT_ORIENTATION S_PRINTGRAPH_METHOD
export S_POSTSCRIPT_PRINT_COMMAND S_LASERJET_PRINT_COMMAND S_LASERJET_DPI
export LESS PATH S_PATH S_WORK S_DEFAULT SHOME
export S_LIB_STATIC S_LIB_DYNLOAD2
export S_SHELL S_PAGER
export XFILESEARCHPATH
if [ -r $SHOME/adm/lic/RSHCMD ]
then
    SLIC_RSHCMD=${SLIC_RSHCMD-"`cat $SHOME/adm/lic/RSHCMD`"}
    export SLIC_RSHCMD
fi
CLED=$SHOME/cmd/cled
CLEDJCTL=$SHOME/cmd/cled_jctl
if [ $# -ge 1 ]
then
	case $1 in
	-e)
		shift
		if [ x$S_FRONT_END_RUNNING = x ]
		then
			S_CLHISTFILE=${S_CLHISTFILE-"$HOME/.Splus_history"}
			S_FRONT_END="$CLED $CLEDJCTL"
			S_FRONT_END_RUNNING=1
			export S_FRONT_END_RUNNING S_CLHISTFILE
		fi
	;;
	-*)
		echo "$0: unrecognized option $1" >&2
		echo "usage: $0 [-e] [utility [args...]]" >&2
		exit 1
	;;
	esac
fi
   
case "`$SHOME/cmd/PLATFORM`" in
        SUNOS4_SPARC)
	# Warn if we are running on a SunOS 5.x system
	case "`uname -r`" in
 	        5.*)
		cat <<EOCAT >&2
WARNING:  This version of S-PLUS was built for a SunOS 4.x system.  Some
          functionality will not work properly when run on a SunOS 5.x
          system.  For best results, use a SunOS 5.x version of S-PLUS.
EOCAT
	    ;;
	esac
    ;;
esac
  
case $# in
0)	exec $S_FRONT_END $SHOME/cmd/$S_DEFAULT
	;;
*)	c=$1; shift
	exec $S_FRONT_END $SHOME/cmd/$c ${1+"$@"}
	;;
esac