tweaks to match runtime
This commit is contained in:
Larry Masinter
parent
851925875d
commit
ad0eaca829
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 的範例內容
|
||||
Loading…
x
Reference in New Issue
Block a user