Rev 2 | Blame | Compare with Previous | Last modification | View Log | RSS feed
/* thanks to Caerwyn Jones <caerwyn@comcast.net> for this module */
#include <u.h>
#include <libc.h>
#include <bio.h>
#include "dict.h"
enum {
Buflen=1000,
Maxaux=5,
};
/* Possible tags */
enum {
B, /* Bold */
Blockquote, /* Block quote */
Br, /* Break line */
Cd, /* ? coloquial data */
Col, /* ? Coloquial */
Def, /* Definition */
Hw, /* Head Word */
I, /* Italics */
P, /* Paragraph */
Pos, /* Part of Speach */
Sn, /* Sense */
U, /* ? cross reference*/
Wf, /* ? word form */
Ntag /* end of tags */
};
/* Assoc tables must be sorted on first field */
static Assoc tagtab[] = {
{"b", B},
{"blockquote", Blockquote},
{"BR", Br},
{"cd", Cd},
{"col", Col},
{"def", Def},
{"hw", Hw},
{"i", I},
{"p", P},
{"pos", Pos},
{"sn", Sn},
{"u", U},
{"wf", Wf},
};
/* Possible tag auxilliary info */
enum {
Cols, /* number of columns in a table */
Num, /* letter or number, for a sense */
St, /* status (e.g., obs) */
Naux
};
static Assoc auxtab[] = {
{"cols", Cols},
{"num", Num},
{"st", St}
};
static Assoc spectab[] = {
{"3on4", L'¾'},
{"AElig", L'Æ'},
{"Aacute", L'Á'},
{"Aang", L'Å'},
{"Abarab", L'Ä€'},
{"Acirc", L'Â'},
{"Agrave", L'À'},
{"Alpha", L'Α'},
{"Amacr", L'Ä€'},
{"Asg", L'Æ·'}, /* Unicyle. Cf "Sake" */
{"Auml", L'Ä'},
{"Beta", L'Β'},
{"Cced", L'Ç'},
{"Chacek", L'Č'},
{"Chi", L'Χ'},
{"Chirho", L'☧'}, /* Chi Rho U+2627 */
{"Csigma", L'Ϛ'},
{"Delta", L'Δ'},
{"Eacute", L'É'},
{"Ecirc", L'Ê'},
{"Edh", L'Ð'},
{"Epsilon", L'Ε'},
{"Eta", L'Η'},
{"Gamma", L'Γ'},
{"Iacute", L'Í'},
{"Icirc", L'Î'},
{"Imacr", L'Ī'},
{"Integ", L'∫'},
{"Iota", L'Ι'},
{"Kappa", L'Κ'},
{"Koppa", L'Ϟ'},
{"Lambda", L'Λ'},
{"Lbar", L'Ł'},
{"Mu", L'Μ'},
{"Naira", L'N'}, /* should have bar through */
{"Nplus", L'N'}, /* should have plus above */
{"Ntilde", L'Ñ'},
{"Nu", L'Ν'},
{"Oacute", L'Ó'},
{"Obar", L'Ø'},
{"Ocirc", L'Ô'},
{"Oe", L'Å’'},
{"Omega", L'Ω'},
{"Omicron", L'Ο'},
{"Ouml", L'Ö'},
{"Phi", L'Φ'},
{"Pi", L'Π'},
{"Psi", L'Ψ'},
{"Rho", L'Ρ'},
{"Sacute", L'Ś'},
{"Sigma", L'Σ'},
{"Summ", L'∑'},
{"Tau", L'Τ'},
{"Th", L'Þ'},
{"Theta", L'Θ'},
{"Tse", L'Ц'},
{"Uacute", L'Ú'},
{"Ucirc", L'Û'},
{"Upsilon", L'Υ'},
{"Uuml", L'Ü'},
{"Wyn", L'Æ¿'}, /* wynn U+01BF */
{"Xi", L'Ξ'},
{"Ygh", L'Æ·'}, /* Yogh U+01B7 */
{"Zeta", L'Ζ'},
{"Zh", L'Æ·'}, /* looks like Yogh. Cf "Sake" */
{"a", L'a'}, /* ante */
{"aacute", L'á'},
{"aang", L'å'},
{"aasper", MAAS},
{"abreve", L'ă'},
{"acirc", L'â'},
{"acute", LACU},
{"aelig", L'æ'},
{"agrave", L'à'},
{"ahook", L'ą'},
{"alenis", MALN},
{"alpha", L'α'},
{"amacr", L'ā'},
{"amp", L'&'},
{"and", MAND},
{"ang", LRNG},
{"angle", L'∠'},
{"ankh", L'☥'}, /* ankh U+2625 */
{"ante", L'a'}, /* before (year) */
{"aonq", MAOQ},
{"appreq", L'≃'},
{"aquar", L'♒'},
{"arDadfull", L'ض'}, /* Dad U+0636 */
{"arHa", L'ح'}, /* haa U+062D */
{"arTa", L'ت'}, /* taa U+062A */
{"arain", L'ع'}, /* ain U+0639 */
{"arainfull", L'ع'}, /* ain U+0639 */
{"aralif", L'ا'}, /* alef U+0627 */
{"arba", L'ب'}, /* baa U+0628 */
{"arha", L'ه'}, /* ha U+0647 */
{"aries", L'♈'},
{"arnun", L'ن'}, /* noon U+0646 */
{"arnunfull", L'ن'}, /* noon U+0646 */
{"arpa", L'ه'}, /* ha U+0647 */
{"arqoph", L'ق'}, /* qaf U+0642 */
{"arshinfull", L'ش'}, /* sheen U+0634 */
{"arta", L'ت'}, /* taa U+062A */
{"artafull", L'ت'}, /* taa U+062A */
{"artha", L'ث'}, /* thaa U+062B */
{"arwaw", L'و'}, /* waw U+0648 */
{"arya", L'ي'}, /* ya U+064A */
{"aryafull", L'ي'}, /* ya U+064A */
{"arzero", L'٠'}, /* indic zero U+0660 */
{"asg", L'Ê’'}, /* unicycle character. Cf "hallow" */
{"asper", LASP},
{"assert", L'⊢'},
{"astm", L'⁂'}, /* asterism: should be upside down */
{"at", L'@'},
{"atilde", L'ã'},
{"auml", L'ä'},
{"ayin", L'ع'}, /* arabic ain U+0639 */
{"b1", L'-'}, /* single bond */
{"b2", L'='}, /* double bond */
{"b3", L'≡'}, /* triple bond */
{"bbar", L'Æ€'}, /* b with bar U+0180 */
{"beta", L'β'},
{"bigobl", L'/'},
{"blC", L'C'}, /* should be black letter */
{"blJ", L'J'}, /* should be black letter */
{"blU", L'U'}, /* should be black letter */
{"blb", L'b'}, /* should be black letter */
{"blozenge", L'â—Š'}, /* U+25CA; should be black */
{"bly", L'y'}, /* should be black letter */
{"bra", MBRA},
{"brbl", LBRB},
{"breve", LBRV},
{"bslash", L'\\'},
{"bsquare", L'■'}, /* black square U+25A0 */
{"btril", L'â—€'}, /* U+25C0 */
{"btrir", L'â–¶'}, /* U+25B6 */
{"c", L'c'}, /* circa */
{"cab", L'〉'},
{"cacute", L'ć'},
{"canc", L'♋'},
{"capr", L'♑'},
{"caret", L'^'},
{"cb", L'}'},
{"cbigb", L'}'},
{"cbigpren", L')'},
{"cbigsb", L']'},
{"cced", L'ç'},
{"cdil", LCED},
{"cdsb", L'〛'}, /* ]] U+301b */
{"cent", L'¢'},
{"chacek", L'č'},
{"chi", L'χ'},
{"circ", LRNG},
{"circa", L'c'}, /* about (year) */
{"circbl", L'Ì¥'}, /* ring below accent U+0325 */
{"circle", L'○'}, /* U+25CB */
{"circledot", L'⊙'},
{"click", L'Ê–'},
{"club", L'♣'},
{"comtime", L'C'},
{"conj", L'☌'},
{"cprt", L'©'},
{"cq", L'\''},
{"cqq", L'”'},
{"cross", L'✠'}, /* maltese cross U+2720 */
{"crotchet", L'♩'},
{"csb", L']'},
{"ctilde", L'c'}, /* +tilde */
{"ctlig", MLCT},
{"cyra", L'а'},
{"cyre", L'е'},
{"cyrhard", L'ъ'},
{"cyrjat", L'ѣ'},
{"cyrm", L'м'},
{"cyrn", L'н'},
{"cyrr", L'р'},
{"cyrsoft", L'ь'},
{"cyrt", L'т'},
{"cyry", L'ы'},
{"dag", L'†'},
{"dbar", L'Ä‘'},
{"dblar", L'⇋'},
{"dblgt", L'≫'},
{"dbllt", L'≪'},
{"dced", L'd'}, /* +cedilla */
{"dd", MDD},
{"ddag", L'‡'},
{"ddd", MDDD},
{"decr", L'↓'},
{"deg", L'°'},
{"dele", L'd'}, /* should be dele */
{"delta", L'δ'},
{"descnode", L'☋'}, /* descending node U+260B */
{"diamond", L'♢'},
{"digamma", L'ϝ'},
{"div", L'÷'},
{"dlessi", L'ı'},
{"dlessj1", L'j'}, /* should be dotless */
{"dlessj2", L'j'}, /* should be dotless */
{"dlessj3", L'j'}, /* should be dotless */
{"dollar", L'$'},
{"dotab", LDOT},
{"dotbl", LDTB},
{"drachm", L'Ê’'},
{"dubh", L'-'},
{"eacute", L'é'},
{"earth", L'♁'},
{"easper", MEAS},
{"ebreve", L'Ä•'},
{"ecirc", L'ê'},
{"edh", L'ð'},
{"egrave", L'è'},
{"ehacek", L'ě'},
{"ehook", L'ę'},
{"elem", L'∊'},
{"elenis", MELN},
{"em", L'—'},
{"emacr", L'Ä“'},
{"emem", MEMM},
{"en", L'–'},
{"epsilon", L'ε'},
{"equil", L'⇋'},
{"ergo", L'∴'},
{"es", MES},
{"eszett", L'ß'},
{"eta", L'η'},
{"eth", L'ð'},
{"euml", L'ë'},
{"expon", L'↑'},
{"fact", L'!'},
{"fata", L'É‘'},
{"fatpara", L'¶'}, /* should have fatter, filled in bowl */
{"female", L'♀'},
{"ffilig", MLFFI},
{"fflig", MLFF},
{"ffllig", MLFFL},
{"filig", MLFI},
{"flat", L'♭'},
{"fllig", MLFL},
{"frE", L'E'}, /* should be curly */
{"frL", L'L'}, /* should be curly */
{"frR", L'R'}, /* should be curly */
{"frakB", L'B'}, /* should have fraktur style */
{"frakG", L'G'},
{"frakH", L'H'},
{"frakI", L'I'},
{"frakM", L'M'},
{"frakU", L'U'},
{"frakX", L'X'},
{"frakY", L'Y'},
{"frakh", L'h'},
{"frbl", LFRB},
{"frown", LFRN},
{"fs", L' '},
{"fsigma", L'ς'},
{"gAacute", L'Á'}, /* should be Α+acute */
{"gaacute", L'α'}, /* +acute */
{"gabreve", L'α'}, /* +breve */
{"gafrown", L'α'}, /* +frown */
{"gagrave", L'α'}, /* +grave */
{"gamacr", L'α'}, /* +macron */
{"gamma", L'γ'},
{"gauml", L'α'}, /* +umlaut */
{"ge", L'≧'},
{"geacute", L'ε'}, /* +acute */
{"gegrave", L'ε'}, /* +grave */
{"ghacute", L'η'}, /* +acute */
{"ghfrown", L'η'}, /* +frown */
{"ghgrave", L'η'}, /* +grave */
{"ghmacr", L'η'}, /* +macron */
{"giacute", L'ι'}, /* +acute */
{"gibreve", L'ι'}, /* +breve */
{"gifrown", L'ι'}, /* +frown */
{"gigrave", L'ι'}, /* +grave */
{"gimacr", L'ι'}, /* +macron */
{"giuml", L'ι'}, /* +umlaut */
{"glagjat", L'ѧ'},
{"glots", L'Ë€'},
{"goacute", L'ο'}, /* +acute */
{"gobreve", L'ο'}, /* +breve */
{"grave", LGRV},
{"gt", L'>'},
{"guacute", L'υ'}, /* +acute */
{"gufrown", L'υ'}, /* +frown */
{"gugrave", L'υ'}, /* +grave */
{"gumacr", L'υ'}, /* +macron */
{"guuml", L'υ'}, /* +umlaut */
{"gwacute", L'ω'}, /* +acute */
{"gwfrown", L'ω'}, /* +frown */
{"gwgrave", L'ω'}, /* +grave */
{"hacek", LHCK},
{"halft", L'⌈'},
{"hash", L'#'},
{"hasper", MHAS},
{"hatpath", L'ֲ'}, /* hataf patah U+05B2 */
{"hatqam", L'ֳ'}, /* hataf qamats U+05B3 */
{"hatseg", L'ֱ'}, /* hataf segol U+05B1 */
{"hbar", L'ħ'},
{"heart", L'♡'},
{"hebaleph", L'א'}, /* aleph U+05D0 */
{"hebayin", L'ע'}, /* ayin U+05E2 */
{"hebbet", L'ב'}, /* bet U+05D1 */
{"hebbeth", L'ב'}, /* bet U+05D1 */
{"hebcheth", L'ח'}, /* bet U+05D7 */
{"hebdaleth", L'ד'}, /* dalet U+05D3 */
{"hebgimel", L'ג'}, /* gimel U+05D2 */
{"hebhe", L'ה'}, /* he U+05D4 */
{"hebkaph", L'כ'}, /* kaf U+05DB */
{"heblamed", L'ל'}, /* lamed U+05DC */
{"hebmem", L'מ'}, /* mem U+05DE */
{"hebnun", L'נ'}, /* nun U+05E0 */
{"hebnunfin", L'ן'}, /* final nun U+05DF */
{"hebpe", L'פ'}, /* pe U+05E4 */
{"hebpedag", L'ף'}, /* final pe? U+05E3 */
{"hebqoph", L'ק'}, /* qof U+05E7 */
{"hebresh", L'ר'}, /* resh U+05E8 */
{"hebshin", L'ש'}, /* shin U+05E9 */
{"hebtav", L'ת'}, /* tav U+05EA */
{"hebtsade", L'צ'}, /* tsadi U+05E6 */
{"hebwaw", L'ו'}, /* vav? U+05D5 */
{"hebyod", L'י'}, /* yod U+05D9 */
{"hebzayin", L'ז'}, /* zayin U+05D6 */
{"hgz", L'Ê’'}, /* ??? Cf "alet" */
{"hireq", L'ִ'}, /* U+05B4 */
{"hlenis", MHLN},
{"hook", LOGO},
{"horizE", L'E'}, /* should be on side */
{"horizP", L'P'}, /* should be on side */
{"horizS", L'∽'},
{"horizT", L'⊣'},
{"horizb", L'{'}, /* should be underbrace */
{"ia", L'α'},
{"iacute", L'í'},
{"iasper", MIAS},
{"ib", L'β'},
{"ibar", L'ɨ'},
{"ibreve", L'ĭ'},
{"icirc", L'î'},
{"id", L'δ'},
{"ident", L'≡'},
{"ie", L'ε'},
{"ifilig", MLFI},
{"ifflig", MLFF},
{"ig", L'γ'},
{"igrave", L'ì'},
{"ih", L'η'},
{"ii", L'ι'},
{"ik", L'κ'},
{"ilenis", MILN},
{"imacr", L'Ä«'},
{"implies", L'⇒'},
{"index", L'☞'},
{"infin", L'∞'},
{"integ", L'∫'},
{"intsec", L'∩'},
{"invpri", L'ˏ'},
{"iota", L'ι'},
{"iq", L'ψ'},
{"istlig", MLST},
{"isub", L'ϵ'}, /* iota below accent */
{"iuml", L'ï'},
{"iz", L'ζ'},
{"jup", L'♃'},
{"kappa", L'κ'},
{"koppa", L'ϟ'},
{"lambda", L'λ'},
{"lar", L'←'},
{"lbar", L'ł'},
{"le", L'≦'},
{"lenis", LLEN},
{"leo", L'♌'},
{"lhalfbr", L'⌈'},
{"lhshoe", L'⊃'},
{"libra", L'♎'},
{"llswing", MLLS},
{"lm", L'ː'},
{"logicand", L'∧'},
{"logicor", L'∨'},
{"longs", L'ʃ'},
{"lrar", L'↔'},
{"lt", L'<'},
{"ltappr", L'≾'},
{"ltflat", L'∠'},
{"lumlbl", L'l'}, /* +umlaut below */
{"mac", LMAC},
{"male", L'♂'},
{"mc", L'c'}, /* should be raised */
{"merc", L'☿'}, /* mercury U+263F */
{"min", L'−'},
{"moonfq", L'☽'}, /* first quarter moon U+263D */
{"moonlq", L'☾'}, /* last quarter moon U+263E */
{"msylab", L'm'}, /* +sylab (ˌ) */
{"mu", L'μ'},
{"nacute", L'ń'},
{"natural", L'♮'},
{"neq", L'≠'},
{"nfacute", L'′'},
{"nfasper", L'ʽ'},
{"nfbreve", L'˘'},
{"nfced", L'¸'},
{"nfcirc", L'ˆ'},
{"nffrown", L'⌢'},
{"nfgra", L'ˋ'},
{"nfhacek", L'ˇ'},
{"nfmac", L'¯'},
{"nftilde", L'˜'},
{"nfuml", L'¨'},
{"ng", L'ŋ'},
{"not", L'¬'},
{"notelem", L'∉'},
{"ntilde", L'ñ'},
{"nu", L'ν'},
{"oab", L'〈'},
{"oacute", L'ó'},
{"oasper", MOAS},
{"ob", L'{'},
{"obar", L'ø'},
{"obigb", L'{'}, /* should be big */
{"obigpren", L'('},
{"obigsb", L'['}, /* should be big */
{"obreve", L'ŏ'},
{"ocirc", L'ô'},
{"odsb", L'〚'}, /* [[ U+301A */
{"oelig", L'Å“'},
{"oeamp", L'&'},
{"ograve", L'ò'},
{"ohook", L'o'}, /* +hook */
{"olenis", MOLN},
{"omacr", L'ō'},
{"omega", L'ω'},
{"omicron", L'ο'},
{"ope", L'ɛ'},
{"opp", L'☍'},
{"oq", L'`'},
{"oqq", L'“'},
{"or", MOR},
{"osb", L'['},
{"otilde", L'õ'},
{"ouml", L'ö'},
{"ounce", L'â„¥'}, /* ounce U+2125 */
{"ovparen", L'⌢'}, /* should be sideways ( */
{"p", L'′'},
{"pa", L'∂'},
{"page", L'P'},
{"pall", L'ÊŽ'},
{"paln", L'ɲ'},
{"par", PAR},
{"para", L'¶'},
{"pbar", L'p'}, /* +bar */
{"per", L'℘'}, /* per U+2118 */
{"phi", L'φ'},
{"phi2", L'ϕ'},
{"pi", L'π'},
{"pisces", L'♓'},
{"planck", L'ħ'},
{"plantinJ", L'J'}, /* should be script */
{"pm", L'±'},
{"pmil", L'‰'},
{"pp", L'″'},
{"ppp", L'‴'},
{"prop", L'∝'},
{"psi", L'ψ'},
{"pstlg", L'£'},
{"q", L'?'}, /* should be raised */
{"qamets", L'ֳ'}, /* U+05B3 */
{"quaver", L'♪'},
{"rar", L'→'},
{"rasper", MRAS},
{"rdot", L'·'},
{"recipe", L'â„ž'}, /* U+211E */
{"reg", L'®'},
{"revC", L'Ɔ'}, /* open O U+0186 */
{"reva", L'É’'},
{"revc", L'É”'},
{"revope", L'ɜ'},
{"revr", L'ɹ'},
{"revsc", L'Ë’'}, /* upside-down semicolon */
{"revv", L'ʌ'},
{"rfa", L'o'}, /* +hook (Cf "goal") */
{"rhacek", L'ř'},
{"rhalfbr", L'⌉'},
{"rho", L'ρ'},
{"rhshoe", L'⊂'},
{"rlenis", MRLN},
{"rsylab", L'r'}, /* +sylab */
{"runash", L'F'}, /* should be runic 'ash' */
{"rvow", L'Ë”'},
{"sacute", L'ś'},
{"sagit", L'♐'},
{"sampi", L'ϡ'},
{"saturn", L'♄'},
{"sced", L'ş'},
{"schwa", L'ə'},
{"scorpio", L'♏'},
{"scrA", L'A'}, /* should be script */
{"scrC", L'C'},
{"scrE", L'E'},
{"scrF", L'F'},
{"scrI", L'I'},
{"scrJ", L'J'},
{"scrL", L'L'},
{"scrO", L'O'},
{"scrP", L'P'},
{"scrQ", L'Q'},
{"scrS", L'S'},
{"scrT", L'T'},
{"scrb", L'b'},
{"scrd", L'd'},
{"scrh", L'h'},
{"scrl", L'l'},
{"scruple", L'℈'}, /* U+2108 */
{"sdd", L'ː'},
{"sect", L'§'},
{"semE", L'∃'},
{"sh", L'ʃ'},
{"shacek", L'š'},
{"sharp", L'♯'},
{"sheva", L'ְ'}, /* U+05B0 */
{"shti", L'ɪ'},
{"shtsyll", L'∪'},
{"shtu", L'ÊŠ'},
{"sidetri", L'⊲'},
{"sigma", L'σ'},
{"since", L'∵'},
{"slge", L'≥'}, /* should have slanted line under */
{"slle", L'≤'}, /* should have slanted line under */
{"sm", L'ˈ'},
{"smm", L'ˌ'},
{"spade", L'♠'},
{"sqrt", L'√'},
{"square", L'â–¡'}, /* U+25A1 */
{"ssChi", L'Χ'}, /* should be sans serif */
{"ssIota", L'Ι'},
{"ssOmicron", L'Ο'},
{"ssPi", L'Π'},
{"ssRho", L'Ρ'},
{"ssSigma", L'Σ'},
{"ssTau", L'Τ'},
{"star", L'*'},
{"stlig", MLST},
{"sup2", L''},
{"supgt", L'˃'},
{"suplt", L'Ë‚'},
{"sur", L'ʳ'},
{"swing", L'∼'},
{"tau", L'τ'},
{"taur", L'♉'},
{"th", L'þ'},
{"thbar", L'þ'}, /* +bar */
{"theta", L'θ'},
{"thinqm", L'?'}, /* should be thinner */
{"tilde", LTIL},
{"times", L'×'},
{"tri", L'∆'},
{"trli", L'‖'},
{"ts", L' '},
{"uacute", L'ú'},
{"uasper", MUAS},
{"ubar", L'u'}, /* +bar */
{"ubreve", L'ŭ'},
{"ucirc", L'û'},
{"udA", L'∀'},
{"udT", L'⊥'},
{"uda", L'ɐ'},
{"udh", L'É¥'},
{"udqm", L'¿'},
{"udpsi", L'⋔'},
{"udtr", L'∇'},
{"ugrave", L'ù'},
{"ulenis", MULN},
{"umacr", L'Å«'},
{"uml", LUML},
{"undl", L'ˍ'}, /* underline accent */
{"union", L'∪'},
{"upsilon", L'υ'},
{"uuml", L'ü'},
{"vavpath", L'ו'}, /* vav U+05D5 (+patah) */
{"vavsheva", L'ו'}, /* vav U+05D5 (+sheva) */
{"vb", L'|'},
{"vddd", L'⋮'},
{"versicle2", L'â„£'}, /* U+2123 */
{"vinc", L'¯'},
{"virgo", L'♍'},
{"vpal", L'ɟ'},
{"vvf", L'É£'},
{"wasper", MWAS},
{"wavyeq", L'≈'},
{"wlenis", MWLN},
{"wyn", L'Æ¿'}, /* wynn U+01BF */
{"xi", L'ξ'},
{"yacute", L'ý'},
{"ycirc", L'Å·'},
{"ygh", L'Ê’'},
{"ymacr", L'y'}, /* +macron */
{"yuml", L'ÿ'},
{"zced", L'z'}, /* +cedilla */
{"zeta", L'ζ'},
{"zh", L'Ê’'},
{"zhacek", L'ž'},
};
/*
The following special characters don't have close enough
equivalents in Unicode, so aren't in the above table.
22n 2^(2^n) Cf Fermat
2on4 2/4
3on8 3/8
Bantuo Bantu O. Cf Otshi-herero
Car C with circular arrow on top
albrtime cut-time: C with vertical line
ardal Cf dental
bantuo Bantu o. Cf Otshi-herero
bbc1 single chem bond below
bbc2 double chem bond below
bbl1 chem bond like /
bbl2 chem bond like //
bbr1 chem bond like \
bbr2 chem bond \\
bcop1 copper symbol. Cf copper
bcop2 copper symbol. Cf copper
benchm Cf benchmark
btc1 single chem bond above
btc2 double chem bond above
btl1 chem bond like \
btl2 chem bond like \\
btr1 chem bond like /
btr2 chem bond line //
burman Cf Burman
devph sanskrit letter. Cf ph
devrfls sanskrit letter. Cf cerebral
duplong[12] musical note
egchi early form of chi
eggamma[12] early form of gamma
egiota early form of iota
egkappa early form of kappa
eglambda early form of lambda
egmu[12] early form of mu
egnu[12] early form of nu
egpi[123] early form of pi
egrho[12] early form of rho
egsampi early form of sampi
egsan early form of san
egsigma[12] early form of sigma
egxi[123] early form of xi
elatS early form of S
elatc[12] early form of C
elatg[12] early form of G
glagjeri Slavonic Glagolitic jeri
glagjeru Slavonic Glagolitic jeru
hypolem hypolemisk (line with underdot)
lhrbr lower half }
longmord long mordent
mbwvow backwards scretched C. Cf retract.
mord music symbol. Cf mordent
mostra Cf direct
ohgcirc old form of circumflex
oldbeta old form of β. Cf perturbate
oldsemibr[12] old forms of semibreve. Cf prolation
ormg old form of g. Cf G
para[12345] form of ¶
pauseo musical pause sign
pauseu musical pause sign
pharyng Cf pharyngal
ragr Black letter ragged r
repetn musical repeat. Cf retort
segno musical segno sign
semain[12] semitic ain
semhe semitic he
semheth semitic heth
semkaph semitic kaph
semlamed[12] semitic lamed
semmem semitic mem
semnum semitic nun
sempe semitic pe
semqoph[123] semitic qoph
semresh semitic resh
semtav[1234] semitic tav
semyod semitic yod
semzayin[123] semitic zayin
shtlong[12] U with underbar. Cf glyconic
sigmatau σ,τ combination
squaver sixteenth note
sqbreve square musical breve note
swast swastika
uhrbr upper half of big }
versicle1 Cf versicle
*/
static Rune normtab[128] = {
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, ' ', NONE, NONE, NONE, NONE, NONE,
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*20*/ L' ', L'!', L'"', L'#', L'$', L'%', SPCS, L'\'',
L'(', L')', L'*', L'+', L',', L'-', L'.', L'/',
/*30*/ L'0', L'1', L'2', L'3', L'4', L'5', L'6', L'7',
L'8', L'9', L':', L';', TAGS, L'=', TAGE, L'?',
/*40*/ L'@', L'A', L'B', L'C', L'D', L'E', L'F', L'G',
L'H', L'I', L'J', L'K', L'L', L'M', L'N', L'O',
/*50*/ L'P', L'Q', L'R', L'S', L'T', L'U', L'V', L'W',
L'X', L'Y', L'Z', L'[', L'\\', L']', L'^', L'_',
/*60*/ L'`', L'a', L'b', L'c', L'd', L'e', L'f', L'g',
L'h', L'i', L'j', L'k', L'l', L'm', L'n', L'o',
/*70*/ L'p', L'q', L'r', L's', L't', L'u', L'v', L'w',
L'x', L'y', L'z', L'{', L'|', L'}', L'~', NONE,
};
static Rune phtab[128] = {
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*20*/ L' ', L'!', L'ˈ', L'#', L'$', L'ˌ', L'æ', L'\'',
L'(', L')', L'*', L'+', L',', L'-', L'.', L'/',
/*30*/ L'0', L'1', L'2', L'ɜ', L'4', L'5', L'6', L'7',
L'8', L'ø', L'ː', L';', TAGS, L'=', TAGE, L'?',
/*40*/ L'ə', L'ɑ', L'B', L'C', L'ð', L'ɛ', L'F', L'G',
L'H', L'ɪ', L'J', L'K', L'L', L'M', L'ŋ', L'ɔ',
/*50*/ L'P', L'ɒ', L'R', L'ʃ', L'θ', L'ʊ', L'ʌ', L'W',
L'X', L'Y', L'Ê’', L'[', L'\\', L']', L'^', L'_',
/*60*/ L'`', L'a', L'b', L'c', L'd', L'e', L'f', L'g',
L'h', L'i', L'j', L'k', L'l', L'm', L'n', L'o',
/*70*/ L'p', L'q', L'r', L's', L't', L'u', L'v', L'w',
L'x', L'y', L'z', L'{', L'|', L'}', L'~', NONE,
};
static Rune grtab[128] = {
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*20*/ L' ', L'!', L'"', L'#', L'$', L'%', SPCS, L'\'',
L'(', L')', L'*', L'+', L',', L'-', L'.', L'/',
/*30*/ L'0', L'1', L'2', L'3', L'4', L'5', L'6', L'7',
L'8', L'9', L':', L';', TAGS, L'=', TAGE, L'?',
/*40*/ L'@', L'Α', L'Β', L'Ξ', L'Δ', L'Ε', L'Φ', L'Γ',
L'Η', L'Ι', L'Ϛ', L'Κ', L'Λ', L'Μ', L'Ν', L'Ο',
/*50*/ L'Π', L'Θ', L'Ρ', L'Σ', L'Τ', L'Υ', L'V', L'Ω',
L'Χ', L'Ψ', L'Ζ', L'[', L'\\', L']', L'^', L'_',
/*60*/ L'`', L'α', L'β', L'ξ', L'δ', L'ε', L'φ', L'γ',
L'η', L'ι', L'ς', L'κ', L'λ', L'μ', L'ν', L'ο',
/*70*/ L'π', L'θ', L'ρ', L'σ', L'τ', L'υ', L'v', L'ω',
L'χ', L'ψ', L'ζ', L'{', L'|', L'}', L'~', NONE,
};
static Rune subtab[128] = {
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*20*/ L' ', L'!', L'"', L'#', L'$', L'%', SPCS, L'\'',
L'â‚', L'â‚Ž', L'*', L'â‚Š', L',', L'â‚‹', L'.', L'/',
/*30*/ L'₀', L'₁', L'₂', L'₃', L'₄', L'₅', L'₆', L'₇',
L'₈', L'₉', L':', L';', TAGS, L'₌', TAGE, L'?',
/*40*/ L'@', L'A', L'B', L'C', L'D', L'E', L'F', L'G',
L'H', L'I', L'J', L'K', L'L', L'M', L'N', L'O',
/*50*/ L'P', L'Q', L'R', L'S', L'T', L'U', L'V', L'W',
L'X', L'Y', L'Z', L'[', L'\\', L']', L'^', L'_',
/*60*/ L'`', L'a', L'b', L'c', L'd', L'e', L'f', L'g',
L'h', L'i', L'j', L'k', L'l', L'm', L'n', L'o',
/*70*/ L'p', L'q', L'r', L's', L't', L'u', L'v', L'w',
L'x', L'y', L'z', L'{', L'|', L'}', L'~', NONE,
};
static Rune suptab[128] = {
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
/*20*/ L' ', L'!', L'"', L'#', L'$', L'%', SPCS, L'\'',
L'⁽', L'⁾', L'*', L'⁺', L',', L'⁻', L'.', L'/',
/*30*/ L'⁰', L'ⁱ', L'', L'', L'⁴', L'⁵', L'⁶', L'⁷',
L'⁸', L'⁹', L':', L';', TAGS, L'⁼', TAGE, L'?',
/*40*/ L'@', L'A', L'B', L'C', L'D', L'E', L'F', L'G',
L'H', L'I', L'J', L'K', L'L', L'M', L'N', L'O',
/*50*/ L'P', L'Q', L'R', L'S', L'T', L'U', L'V', L'W',
L'X', L'Y', L'Z', L'[', L'\\', L']', L'^', L'_',
/*60*/ L'`', L'a', L'b', L'c', L'd', L'e', L'f', L'g',
L'h', L'i', L'j', L'k', L'l', L'm', L'n', L'o',
/*70*/ L'p', L'q', L'r', L's', L't', L'u', L'v', L'w',
L'x', L'y', L'z', L'{', L'|', L'}', L'~', NONE,
};
static int tagstarts;
static char tag[Buflen];
static char spec[Buflen];
static Entry curentry;
#define cursize (curentry.end-curentry.start)
static char *getspec(char *, char *);
static char *gettag(char *, char *);
/*
* cmd is one of:
* 'p': normal print
* 'h': just print headwords
* 'P': print raw
*/
void
pgwprintentry(Entry e, int cmd)
{
char *p, *pe;
int t;
long r, rprev, rlig;
Rune *transtab;
p = e.start;
pe = e.end;
transtab = normtab;
rprev = NONE;
changett(0, 0, 0);
curentry = e;
if(cmd == 'h')
outinhibit = 1;
while(p < pe) {
if(cmd == 'r') {
outchar(*p++);
continue;
}
r = transtab[(*p++)&0x7F];
if(r < NONE) {
/* Emit the rune, but buffer in case of ligature */
if(rprev != NONE)
outrune(rprev);
rprev = r;
} else if(r == SPCS) {
/* Start of special character name */
p = getspec(p, pe);
r = lookassoc(spectab, asize(spectab), spec);
if(r == -1) {
if(debug)
err("spec %ld %d %s",
e.doff, cursize, spec);
r = L'�';
}
if(r >= LIGS && r < LIGE) {
/* handle possible ligature */
rlig = liglookup(r, rprev);
if(rlig != NONE)
rprev = rlig; /* overwrite rprev */
else {
/* could print accent, but let's not */
if(rprev != NONE) outrune(rprev);
rprev = NONE;
}
} else if(r >= MULTI && r < MULTIE) {
if(rprev != NONE) {
outrune(rprev);
rprev = NONE;
}
outrunes(multitab[r-MULTI]);
} else if(r == PAR) {
if(rprev != NONE) {
outrune(rprev);
rprev = NONE;
}
outnl(1);
} else {
if(rprev != NONE) outrune(rprev);
rprev = r;
}
} else if(r == TAGS) {
/* Start of tag name */
if(rprev != NONE) {
outrune(rprev);
rprev = NONE;
}
p = gettag(p, pe);
t = lookassoc(tagtab, asize(tagtab), tag);
if(t == -1) {
if(debug)
err("tag %ld %d %s",
e.doff, cursize, tag);
continue;
}
switch(t){
case Hw:
if(cmd == 'h') {
if(!tagstarts)
outchar(' ');
outinhibit = !tagstarts;
}
break;
case Sn:
if(tagstarts) {
outnl(2);
}
break;
case P:
outnl(tagstarts);
break;
case Col:
case Br:
case Blockquote:
if(tagstarts)
outnl(1);
break;
case U:
outchar('/');
}
}
}
if(cmd == 'h') {
outinhibit = 0;
outnl(0);
}
}
/*
* Return offset into bdict where next webster entry after fromoff starts.
* Webster entries start with <p><hw>
*/
long
pgwnextoff(long fromoff)
{
long a, n;
int c;
a = Bseek(bdict, fromoff, 0);
if(a != fromoff)
return -1;
n = 0;
for(;;) {
c = Bgetc(bdict);
if(c < 0)
break;
if(c == '<' && Bgetc(bdict) == 'p' && Bgetc(bdict) == '>') {
c = Bgetc(bdict);
if(c == '<') {
if (Bgetc(bdict) == 'h' && Bgetc(bdict) == 'w'
&& Bgetc(bdict) == '>')
n = 7;
}else if (c == '{')
n = 4;
if(n)
break;
}
}
return (Boffset(bdict)-n);
}
static char *prkey =
"KEY TO THE PRONUNCIATION\n"
"\n"
"I. CONSONANTS\n"
"b, d, f, k, l, m, n, p, t, v, z: usual English values\n"
"\n"
"g as in go (gəʊ)\n"
"h ... ho! (həʊ)\n"
"r ... run (rʌn), terrier (ˈtɛriə(r))\n"
"(r)... her (hɜː(r))\n"
"s ... see (siː), success (səkˈsɜs)\n"
"w ... wear (wɛə(r))\n"
"hw ... when (hwɛn)\n"
"j ... yes (jɛs)\n"
"θ ... thin (θin), bath (bÉ‘Ëθ)\n"
"ð ... then (ðɛn), bathe (beɪð)\n"
"ʃ ... shop (ʃɒp), dish (dɪʃ)\n"
"tʃ ... chop (tʃɒp), ditch (dɪtʃ)\n"
"ʒ ... vision (ˈvɪʒən), déjeuner (deʒøne)\n"
"dÊ’ ... judge (dÊ’ÊŒdÊ’)\n"
"ŋ ... singing (ˈsɪŋɪŋ), think (θiŋk)\n"
"ŋg ... finger (ˈfiŋgə(r))\n"
"\n"
"Foreign\n"
"ʎ as in It. seraglio (serˈraʎo)\n"
"ɲ ... Fr. cognac (kɔɲak)\n"
"x ... Ger. ach (ax), Sc. loch (lÉ’x)\n"
"ç ... Ger. ich (ɪç), Sc. nicht (nɪçt)\n"
"É£ ... North Ger. sagen (ˈzaËɣən)\n"
"c ... Afrikaans baardmannetjie (ˈbaːrtmanəci)\n"
"ɥ ... Fr. cuisine (kɥizin)\n"
"\n"
"II. VOWELS AND DIPTHONGS\n"
"\n"
"Short\n"
"ɪ as in pit (pɪt), -ness (-nɪs)\n"
"ɛ ... pet (pɛt), Fr. sept (sɛt)\n"
"æ ... pat (pæt)\n"
"ʌ ... putt (pʌt)\n"
"É’ ... pot (pÉ’t)\n"
"ÊŠ ... put (pÊŠt)\n"
"ə ... another (əˈnʌðə(r))\n"
"(ə)... beaten (ˈbiːt(ə)n)\n"
"i ... Fr. si (si)\n"
"e ... Fr. bébé (bebe)\n"
"a ... Fr. mari (mari)\n"
"ɑ ... Fr. bâtiment (bɑtimã)\n"
"ɔ ... Fr. homme (ɔm)\n"
"o ... Fr. eau (o)\n"
"ø ... Fr. peu (pø)\n"
"œ ... Fr. boeuf (bœf), coeur (kœr)\n"
"u ... Fr. douce (dus)\n"
"ʏ ... Ger. Müller (ˈmʏlər)\n"
"y ... Fr. du (dy)\n"
"\n"
"Long\n"
"iː as in bean (biːn)\n"
"É‘Ë ... barn (bÉ‘Ën)\n"
"É”Ë ... born (bÉ”Ën)\n"
"uː ... boon (buːn)\n"
"ɜː ... burn (bɜːn)\n"
"eː ... Ger. Schnee (ʃneː)\n"
"ɛː ... Ger. Fähre (ˈfɛːrə)\n"
"aː ... Ger. Tag (taːk)\n"
"oː ... Ger. Sohn (zoːn)\n"
"øː ... Ger. Goethe (gøːtə)\n"
"yː ... Ger. grün (gryːn)\n"
"\n"
"Nasal\n"
"ɛ˜, æ˜ as in Fr. fin (fɛ˜, fæ˜)\n"
"ã ... Fr. franc (frã)\n"
"ɔ˜ ... Fr. bon (bɔ˜n)\n"
"œ˜ ... Fr. un (œ˜)\n"
"\n"
"Dipthongs, etc.\n"
"eɪ as in bay (beɪ)\n"
"aɪ ... buy (baɪ)\n"
"ɔɪ ... boy (bɔɪ)\n"
"əʊ ... no (nəʊ)\n"
"aÊŠ ... now (naÊŠ)\n"
"ɪə ... peer (pɪə(r))\n"
"ɛə ... pair (pɛə(r))\n"
"ÊŠÉ™ ... tour (tÊŠÉ™(r))\n"
"ɔə ... boar (bɔə(r))\n"
"\n"
"III. STRESS\n"
"\n"
"Main stress: ˈ preceding stressed syllable\n"
"Secondary stress: ˌ preceding stressed syllable\n"
"\n"
"E.g.: pronunciation (prəˌnʌnsɪˈeɪʃ(ə)n)\n";
/* TODO: find transcriptions of foreign consonents, Å“, Ê, nasals */
void
pgwprintkey(void)
{
Bprint(bout, "%s", prkey);
}
/*
* f points just after a '&', fe points at end of entry.
* Accumulate the special name, starting after the &
* and continuing until the next ';', in spec[].
* Return pointer to char after ';'.
*/
static char *
getspec(char *f, char *fe)
{
char *t;
int c, i;
t = spec;
i = sizeof spec;
while(--i > 0) {
c = *f++;
if(c == ';' || f == fe)
break;
*t++ = c;
}
*t = 0;
return f;
}
/*
* f points just after '<'; fe points at end of entry.
* Expect next characters from bin to match:
* [/][^ >]+( [^>=]+=[^ >]+)*>
* tag auxname auxval
* Accumulate the tag and its auxilliary information in
* tag[], auxname[][] and auxval[][].
* Set tagstarts=1 if the tag is 'starting' (has no '/'), else 0.
* Set naux to the number of aux pairs found.
* Return pointer to after final '>'.
*/
static char *
gettag(char *f, char *fe)
{
char *t;
int c, i;
t = tag;
c = *f++;
if(c == '/')
tagstarts = 0;
else {
tagstarts = 1;
*t++ = c;
}
i = Buflen;
while(--i > 0) {
c = *f++;
if(c == '>' || f == fe)
break;
*t++ = c;
}
*t = 0;
return f;
}