add merge in Ron's 11/21/2020 lispcore

bin/medley

@@ -0,0 +1,217 @@
+#! /bin/csh -f
+#
+# Run Medley
+#
+# Syntax: medley [-nogreet][-xns][-noxns] [-geometry pixelgeometry] [-display xdisplay-device]
+#                [-raw] [-t xtimeout][-prog executable-program] [-vmem savevmemfilename] |
+#                [-m memorylimit] [-kbd keyboardtype]  [-key key]
+#                [sysoutfilename | -lfg | -lisp | -full | -xlfg
+#                -{name of any sysout on the public sysout directory} ]
+#
+# -xns means leave unix xns running
+# -noxns means suppress Lisp xns.
+
+onintr cleanup
+limit coredumpsize 0
+setenv HOSTNAME `hostname`
+setenv OSVERSION `uname -r`
+\
+# Directory variables are accessible from Lisp via UNIX-GETENV
+# Shell should set MEDLEYDIR to point to the Medley3.5 directory
+setenv lispcore $MEDLEYDIR/lispcore
+setenv LDEINIT "$lispcore/greetfiles/local-init.lcom"
+
+set mem="-m 256"   # Default, has to be set
+#set geometry="-g 1060x790"
+# MBA screensize
+set geometry="-g 1440x900"
+setenv LDEKBDTYPE x
+set ICONSPEC=" "
+
+setenv LDEFILETIMEOUT 60
+setenv TAKEXNSDOWN 0
+setenv LDELISPXNS 0
+#default is no lispxns
+
+if ($#argv != 0) then
+   while ("$1" != "")
+	 switch ($1)
+	    case "-m":
+		set  mem="-m $2"
+		shift
+		breaksw
+	    case "-makefull":
+	    setenv LDEINIT $lispcore/makesysout/makefullsysout.lcom
+	    setenv LOADUPDIR $lispcore
+	    case "-xlisp":
+	    setenv LDESRCESYSOUT "$lispcore/loadups/xlisp.sysout"
+		breaksw
+		case "-venuelisp":
+		case "-lisp":
+	    setenv LDESRCESYSOUT "$lispcore/loadups/lisp.venuesysout"
+		breaksw
+		case "-venuefull":
+		setenv LDESRCESYSOUT "$lispcore/full.venuesysout"
+		breaksw
+		case "-makelfg":
+	    setenv LDEINIT $lfghome/parser/makelfgsysout.lcom
+	    setenv LOADUPDIR $lfghome/parser
+	    case "-xfull":
+		setenv LDESRCESYSOUT "$lispcore/loadups/xfull35.sysout"
+		breaksw
+	    case "-lfg":
+	    case "-lfg35":
+		setenv LDESRCESYSOUT "$lfghome/parser/release/lfg.sysout"
+		set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox"
+		breaksw
+		case "-oldlfg":
+		setenv LDESRCESYSOUT "$lfghome/parser/oldrelease/lfg35.sysout"
+		set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox"
+		breaksw
+	    case "-xlfg35":
+	    case "-xlfg":
+		setenv LDESRCESYSOUT "$lfghome/parser/xlfg35.sysout"
+		set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox"
+		breaksw
+		case "-makelisp":
+	    setenv LDEINIT $lispcore/makesysout/synclispfiles.lcom
+	    setenv LOADUPDIR $lispcore
+	    setenv LDESRCESYSOUT "$lispcore/loadups/lisp.venuesysout"	    		
+		breaksw
+		case "-xlisp":
+	    setenv LDESRCESYSOUT "$lispcore/loadups/xlisp.sysout"	    	
+	    breaksw
+		case "-makeinit":
+		setenv LDESRCESYSOUT "$MEDLEYDIR/basics/next/INIT.DLINIT"
+		setenv LDEINIT ""
+	    breaksw
+	    case "-nogreet":
+		setenv LDEINIT ""
+		breaksw
+	    case "-greet":
+		setenv LDEINIT "$2"
+		shift
+		breaksw
+	    case "-xns":
+		setenv TAKEXNSDOWN 1
+		setenv LDELISPXNS 1
+		breaksw
+	    case "-noxns":
+		setenv TAKEXNSDOWN 0
+		setenv LDELISPXNS 0
+		breaksw
+	    case "-raw":
+		unsetenv DISPLAY
+		breaksw
+	    case "-geometry":
+		set geometry="-g $2"
+		shift
+		breaksw
+	    case "-display":
+		setenv DISPLAY $2
+		shift
+		breaksw
+	    case "-t":
+		set xtimeout=$2
+		shift
+		breaksw
+	    case "-prog":
+		set progparam=$2
+		shift
+		breaksw
+	    case "-vmem":
+		setenv LDEDESTSYSOUT $2
+		shift
+		breaksw
+	    case "-kbd":
+		setenv LDEKBDTYPE $2
+		shift
+		breaksw
+
+	    default:
+		   if (`expr index "$1" "[-]"` ==  1) then
+		      # public sysout name
+                set name=`expr substr $1 2 999`
+			 	setenv LDESRCESYSOUT "$MEDLEYDIR/basics/${name}.sysout"
+		   else # not an option so must be a private sysout name
+				setenv LDESRCESYSOUT $1
+		   endif
+		breaksw
+	 endsw
+     shift
+   end
+else
+# no options specified
+endif
+
+if ($?LDEDESTSYSOUT) then
+else if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then
+   setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem
+else if (-f ~/lisp.virtualmem) then
+   setenv LDEDESTSYSOUT ~/lisp.virtualmem
+else if (-d /$HOSTNAME/$LOGNAME) then
+   setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem
+endif
+
+if (! $?LDESRCESYSOUT) then
+   setenv LDESRCESYSOUT $LDEDESTSYSOUT
+endif
+
+
+if (! $?LDEKBDTYPE) then
+#   switch (`/usr/bin/hostinfo keyboardtype`)
+#	endsw
+endif
+echo "keyboard type is " $LDEKBDTYPE
+
+#set hostid = `hostid`
+setenv INMEDLEY 1
+echo "sysout is " $LDESRCESYSOUT
+#set version = `medley-lisp-version $LDESRCESYSOUT`
+set version = "35010"
+if ($status) exit
+
+if ($LDELISPXNS) then
+	     set prog="ldeether"
+	 else
+	     set prog="lde"
+	     echo "running without xns protocols"
+endif
+switch ("$version")
+  case "35000":
+	set version = "3.5"
+	breaksw
+  case "35010":
+	set version = "3.501"
+	breaksw
+  default:
+	set version = "3.5"
+endsw
+echo "using emulator version $version"
+
+ switch ("$version")
+   case "3.5":
+   case "3.501":
+    set path = ($lispcore/bin/ $path)
+#	if ${?DISPLAY} then	 # we are running under X
+	     $prog $mem $geometry $ICONSPEC
+#	else $prog $mem
+	endif
+	breaksw
+
+endsw
+#
+# Now we are done, so clean up after ourselves
+#
+cleanup:
+
+if ${?DISPLAY} then
+	# do X cleanup
+else
+#	reset
+endif
+#clear		; this obscures error messages
+
+
+
+