Import sources from 2011-03-30 iso image

1 files changed, 1161 insertions, 0 deletions

diff --git a/sys/src/cmd/dict/pgw.c b/sys/src/cmd/dict/pgw.c
new file mode 100755
index 000000000..c9d442e89
--- /dev/null
+++ b/sys/src/cmd/dict/pgw.c
@@ -0,0 +1,1161 @@
+/* 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;
+}