tweaks to match runtime
This commit is contained in:
Larry Masinter
20
.gitignore
vendored
Normal file
20
.gitignore
vendored
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
|
||||||
|
#compiled code
|
||||||
|
|
||||||
|
*.lcom
|
||||||
|
*.LCOM
|
||||||
|
*.dfasl
|
||||||
|
*.DFASL
|
||||||
|
|
||||||
|
# older versions
|
||||||
|
|
||||||
|
*~
|
||||||
|
*#
|
||||||
|
\.#*
|
||||||
|
*#
|
||||||
|
|
||||||
|
# core files
|
||||||
|
|
||||||
|
core
|
||||||
|
*.core
|
||||||
|
|
||||||
207
run-medley
Normal file
207
run-medley
Normal file
@@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
104
unicode/example.txt
Normal file
104
unicode/example.txt
Normal file
@@ -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 的範例內容
|
||||||
Reference in New Issue
Block a user