massive reorganization

bin/medley

@@ -1,219 +0,0 @@
-#! /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
-setenv MEDLEYDIR $local/medley3.5
-setenv lispcore $MEDLEYDIR/lispcore
-setenv LDEINIT "$MEDLEYDIR/current/local-init.lcom"
-setenv lfghome $local/lfg
-
-
-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 $MEDLEYDIR/lispcore/makesysout/makefullsysout.lcom
-	    setenv LOADUPDIR $MEDLEYDIR/lispcore
-	    case "-xlisp":
-	    setenv LDESRCESYSOUT "$MEDLEYDIR/lispcore/loadups/xlisp.sysout"
-		breaksw
-		case "-oldlisp":
-		case "-lisp":
-	    setenv LDESRCESYSOUT "$MEDLEYDIR/basics/lisp.sysout"
-		breaksw
-		case "-full":
-		setenv LDESRCESYSOUT "$MEDLEYDIR/basics/full.sysout"
-		breaksw
-		case "-makelfg":
-	    setenv LDEINIT $lfghome/parser/makelfgsysout.lcom
-	    setenv LOADUPDIR $lfghome/parser
-	    case "-xfull":
-		setenv LDESRCESYSOUT "$MEDLEYDIR/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 "$MEDLEYDIR/basics/lisp.sysout"	    		
-		breaksw
-		case "-xlisp":
-	    setenv LDESRCESYSOUT "$MEDLEYDIR/lispcore/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 = ($MEDLEYDIR/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
-
-
-
-