tweaks to match runtime

.gitignore

@@ -0,0 +1,20 @@
+
+#compiled code
+
+*.lcom
+*.LCOM
+*.dfasl
+*.DFASL
+
+# older versions
+
+*~
+*#
+\.#*
+*#
+
+# core files
+
+core
+*.core
+

run-medley

@@ -0,0 +1,207 @@
+#!/bin/tcsh -f
+#
+# Run Medley
+#
+# Syntax: run-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 |
+#                -{name of any in the sysouts} ]
+#
+# -xns means leave unix xns running
+# -noxns means suppress Lisp xns.
+
+# LDESRCESYSOUT
+# LDESOURCESYSOUT		SYSOUT full-file name you want to run
+
+# LDEDESTSYSOUT		SYSOUT name for destination of SAVEVM/LOGOUT
+
+# LDEKBDTYPE
+# 			type2
+# 			type3
+# 			type4
+# 			jle
+# 			as3000j
+# LDEFILETIMEOUT
+
+
+setenv HOSTNAME `hostname`
+setenv OSVERSION `uname -r`
+
+# Directory variables are accessible from Lisp via UNIX-GETENV
+
+setenv MEDLEYDIR "$HOME/medley"
+setenv LDEINIT "$MEDLEYDIR/initfiles/local-init"
+
+
+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 "-xlisp":
+	        setenv LDESRCESYSOUT "$MEDLEYDIR/loadups/xlisp.sysout"
+		breaksw
+	    case "-lisp":
+		setenv LDESRCESYSOUT "$MEDLEYDIR/loadups/lisp.sysout"
+		breaksw
+		case "-xfull35":
+		setenv LDESRCESYSOUT "$MEDLEYDIR/loadups/xfull35.sysout"
+		breaksw
+	    case "-full":
+		setenv LDESRCESYSOUT "$MEDLEYDIR/loadups/full.sysout"
+		breaksw
+	    case "-lfg":
+	    case "-lfg35":
+	    case "-xlfg35":
+		setenv LDESRCESYSOUT "$LFGPARSERDIR/release/lfg35.sysout"
+		set ICONSPEC = "-iconbitmap $LFGPARSERDIR/release/lfg.xbm -icontitle Xerox"
+		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:
+		# anything else is a public sysout name
+		      if (`expr index "$1" "[-]"` ==  1) then
+				set name=`expr substr $1 2 999`
+				setenv LDESRCESYSOUT "$MEDLEYDIR/loadups/${name}.sysout"
+			else # not an option so must be a 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
+
+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/maiko/bin $MEDLEYDIR/../maiko/bin $path)
+set path = ($MEDLEYDIR/../maiko/`osversion`/`machintype` $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
+
+
+
+
+

unicode/example.txt

@@ -0,0 +1,104 @@
+omment[bn]=উবুন্টু সংক্রান্ত নমুনা তথ্য
+Comment[br]=Skouerenn endalc'had evit Ubuntu
+Comment[bs]=Primjer sadrzaja za Ubuntu
+Comment[ca]=Continguts d'exemple per a l'Ubuntu
+Comment[ca@valencia]=Continguts d'exemple per a l'Ubuntu
+Comment[ckb]=نموونەی ناوەڕۆکێک بۆ ئوبوونتو
+Comment[cs]=Ukázkový obsah pro Ubuntu
+Comment[csb]=Przëmiôrowô zamkłosc dlô Ubuntu
+Comment[cy]=Cynnwys enghraifft ar gyfer  Ubuntu
+Comment[da]=Eksempel indhold til Ubuntu
+Comment[de]=Beispielinhalt für Ubuntu
+Comment[dv]=އުބުންޓު އާއި އެކަށޭނަ މިސާލުތައް
+Comment[el]=Παραδείγματα περιεχομένου για το Ubuntu
+Comment[en_AU]=Example content for Ubuntu
+Comment[en_CA]=Example content for Ubuntu
+Comment[en_GB]=Example content for Ubuntu
+Comment[eo]=Ekzempla enhavo por Ubuntu
+Comment[es]=Contenido de ejemplo para Ubuntu
+Comment[et]=Ubuntu näidisfailid
+Comment[eu]=Adibidezko edukia Ubunturako
+Comment[fa]=محتویات نمونه برای اوبونتو
+Comment[fi]=Esimerkkisisältöjä Ubuntulle
+Comment[fil]=Halimbawang laman para sa Ubuntu
+Comment[fo]=Dømis innihald fyri Ubuntu
+Comment[fr]=Contenu d'exemple pour Ubuntu
+Comment[fur]=Contignûts di esempli par Ubuntu
+Comment[fy]=Foarbyld fan ynhâld foar Ubuntu
+Comment[ga]=Inneachar samplach do Ubuntu
+Comment[gd]=Eisimpleir de shusbaint airson Ubuntu
+Comment[gl]=Contido do exemplo para Ubuntu
+Comment[gu]=Ubuntu માટે ઉદાહરણ સૂચી
+Comment[gv]=Stoo Sanpleyr son Ubuntu
+Comment[he]=תוכן לדוגמה עבור אובונטו
+Comment[hi]=उबुन्टू हेतु उदाहरण सारांश
+Comment[hr]=Primjeri sadržaja za Ubuntu
+Comment[ht]=Kontni egzanplè pou Ubuntu
+Comment[hu]=Mintatartalom Ubuntuhoz
+Comment[hy]=Բովանդակության օրինակները Ubuntu֊ի համար
+Comment[id]=Contoh isi bagi Ubuntu
+Comment[is]=Sýnishorn fyrir Ubuntu
+Comment[it]=Contenuti di esempio per Ubuntu
+Comment[ja]=Ubuntuのサンプルコンテンツ
+Comment[ka]=უბუნტუს სანიმუშო შიგთავსი
+Comment[kk]=Ubuntu құжаттар мысалдары
+Comment[kl]=Ubuntu-mut imarisaanut assersuut
+Comment[km]=ឧទាហរណ៍សម្រាប់អាប់ប៊ុនធូ
+Comment[kn]=ಉಬುಂಟುಗೆ ಉದಾಹರಣೆಗಳು
+Comment[ko]=우분투 컨텐츠 예시
+Comment[ku]=Ji bo Ubuntu mînaka naverokê
+Comment[ky]=Ubuntu-нун мисал документтери
+Comment[lb]=Beispillinhalt fir Ubuntu
+Comment[lt]=Įvairių dokumentų, paveikslėlių, garsų bei vaizdų pavyzdžiai
+Comment[lv]=Parauga saturs Ubuntu videi
+Comment[mg]=Ohatra ho an'i Ubuntu
+Comment[mhr]=Ubuntu-лан документ-влакын пример-влак
+Comment[mi]=Mata tauira o Ubuntu
+Comment[mk]=Пример содржина за Убунту
+Comment[ml]=ഉബുണ്ടുവിനു വേണ്ടിയുള്ള ഉദാഹരണങ്ങള്‍
+Comment[mr]=उबंटूसाठी घटकांची उदाहरणे
+Comment[ms]=Kandungan contoh untuk Ubuntu
+Comment[my]=Ubuntu အတွက် နမူနာ မာတိကာ
+Comment[nb]=Eksempelinnhold for Ubuntu
+Comment[ne]=उबन्टुका लागि उदाहरण सामग्री
+Comment[nl]=Voorbeeldinhoud voor Ubuntu
+Comment[nn]=Eksempelinnhald for Ubuntu
+Comment[nso]=Mohlala wa dikagare tša Ubuntu
+Comment[oc]=Exemples de contengut per Ubuntu
+Comment[pa]=ਉਬਤੂੰ ਲਈ ਨਮੂਨਾ ਸਮੱਗਰੀ
+Comment[pl]=Przykładowa zawartość dla Ubuntu
+Comment[pt]=Conteúdo de exemplo para o Ubuntu
+Comment[pt_BR]=Exemplo de conteúdo para Ubuntu
+Comment[ro]=Conținut exemplu pentru Ubuntu
+Comment[ru]=Примеры документов для Ubuntu
+Comment[sc]=Esempiu de cabidu pro Ubuntu
+Comment[sco]=Example content fur Ubuntu
+Comment[sd]=اوبنٽو لاءِ مثال طور ڏنل مواد
+Comment[shn]=တူဝ်ႇယၢင်ႇလမ်းၼႂ်း တႃႇ Ubuntu
+Comment[si]=උබුන්ටු සඳහා උදාහරණ අන්තර්ගතයන්
+Comment[sk]=Ukážkový obsah pre Ubuntu
+Comment[sl]=Ponazoritvena vsebina za Ubuntu
+Comment[sml]=Saupama Isina Ubuntu
+Comment[sn]=Muyenzaniso wehuiswa kuitira Ubuntu
+Comment[sq]=Shembull i përmbajtjes për Ubuntu
+Comment[sr]=Садржај примера за Убунту
+Comment[sv]=Exempelinnehåll för Ubuntu
+Comment[sw]=Bidhaa mfano ya Ubuntu
+Comment[szl]=Bajszpilnŏ treść dlŏ Ubuntu
+Comment[ta]=உபுண்டுவிற்கான எடுத்துகாட்டு உள்ளடக்கங்கள்
+Comment[ta_LK]=உபுண்டுவிற்கான எடுத்துகாட்டு உள்ளடக்கங்கள்
+Comment[te]=Ubuntu వాడుక విధాన నమూనాలు
+Comment[tg]=Мӯҳтавои намунавӣ барои Ubuntu
+Comment[th]=ตัวอย่างข้อมูลสำหรับ Ubuntu
+Comment[tr]=Ubuntu için örnek içerik
+Comment[tt]=Ubuntu өчен документ мисаллары
+Comment[ug]=ئۇبۇنتۇنىڭ مىساللىرى
+Comment[uk]=Приклади контенту для Ubuntu
+Comment[ur]=یوبنٹو کیلئے مثالی مواد
+Comment[uz]=Ubuntu учун намуна таркиби
+Comment[vec]=Contenuti de esempio de Ubuntu
+Comment[vi]=Mẫu ví dụ cho Ubuntu
+Comment[wae]=D'Ubuntu bischbildatijä
+Comment[zh_CN]=Ubuntu 示例内容
+Comment[zh_HK]=Ubuntu 的範例內容
+Comment[zh_TW]=Ubuntu 的範例內容