#include <u.h>#include <libc.h>#include <bio.h>#include "dict.h" Dict dicts[] = {	{"oed",		"Oxford English Dictionary, 2nd Ed.",	 "/lib/dict/oed2",	"/lib/dict/oed2index",	 oednextoff,	oedprintentry,		oedprintkey},	{"ahd",		"American Heritage Dictionary, 2nd College Ed.",	 "/lib/dict/ahd.db/DICT.DB",	"/lib/dict/ahd.db/index",	 ahdnextoff,	ahdprintentry,		ahdprintkey},	{"pgw",		"Project Gutenberg Webster Dictionary",	 "/lib/dict/pgw",	"/lib/dict/pgwindex",	 pgwnextoff,	pgwprintentry,		pgwprintkey},	{"thesaurus",	"Collins Thesaurus",	 "/lib/dict/thesaurus",	"/lib/dict/thesindex",	 thesnextoff,	thesprintentry,	thesprintkey},	{"roget",		"Project Gutenberg Roget's Thesaurus",	 "/lib/dict/roget", "/lib/dict/rogetindex",	 rogetnextoff,	rogetprintentry,	rogetprintkey}, 	{"ce",		"Gendai Chinese->English",	 "/lib/dict/world/sansdata/sandic24.dat",	 "/lib/dict/world/sansdata/ceindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"ceh",		"Gendai Chinese->English (Hanzi index)",	 "/lib/dict/world/sansdata/sandic24.dat",	 "/lib/dict/world/sansdata/cehindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"ec",		"Gendai English->Chinese",	 "/lib/dict/world/sansdata/sandic24.dat",	 "/lib/dict/world/sansdata/ecindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"dae",		"Gyldendal Danish->English",	 "/lib/dict/world/gylddata/sandic30.dat",	 "/lib/dict/world/gylddata/daeindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"eda",		"Gyldendal English->Danish",	 "/lib/dict/world/gylddata/sandic29.dat",	 "/lib/dict/world/gylddata/edaindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"due",		"Wolters-Noordhoff Dutch->English",	 "/lib/dict/world/woltdata/sandic07.dat",	 "/lib/dict/world/woltdata/deindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"edu",		"Wolters-Noordhoff English->Dutch",	 "/lib/dict/world/woltdata/sandic06.dat",	 "/lib/dict/world/woltdata/edindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"fie",		"WSOY Finnish->English",	 "/lib/dict/world/werndata/sandic32.dat",	 "/lib/dict/world/werndata/fieindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"efi",		"WSOY English->Finnish",	 "/lib/dict/world/werndata/sandic31.dat",	 "/lib/dict/world/werndata/efiindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"fe",		"Collins French->English",	 "/lib/dict/fe",	"/lib/dict/feindex",	 pcollnextoff,	pcollprintentry,	pcollprintkey},	{"ef",		"Collins English->French",	 "/lib/dict/ef",	"/lib/dict/efindex",	 pcollnextoff,	pcollprintentry,	pcollprintkey}, 	{"ge",		"Collins German->English",	 "/lib/dict/ge",	"/lib/dict/geindex",	 pcollgnextoff,	pcollgprintentry,	pcollgprintkey},	{"eg",		"Collins English->German",	 "/lib/dict/eg",	"/lib/dict/egindex",	 pcollgnextoff,	pcollgprintentry,	pcollgprintkey}, 	{"ie",		"Collins Italian->English",	 "/lib/dict/ie",	"/lib/dict/ieindex",	 pcollnextoff,	pcollprintentry,	pcollprintkey},	{"ei",		"Collins English->Italian",	 "/lib/dict/ei",	"/lib/dict/eiindex",	 pcollnextoff,	pcollprintentry,	pcollprintkey}, 	{"je",		"Sanshusha Japanese->English",	 "/lib/dict/world/sansdata/sandic18.dat",	 "/lib/dict/world/sansdata/jeindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"jek",		"Sanshusha Japanese->English (Kanji index)",	 "/lib/dict/world/sansdata/sandic18.dat",	 "/lib/dict/world/sansdata/jekindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"ej",		"Sanshusha English->Japanese",	 "/lib/dict/world/sansdata/sandic18.dat",	 "/lib/dict/world/sansdata/ejindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"tjeg",	"Sanshusha technical Japanese->English,German",	 "/lib/dict/world/sansdata/sandic16.dat",	 "/lib/dict/world/sansdata/tjegindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"tjegk",	"Sanshusha technical Japanese->English,German (Kanji index)",	 "/lib/dict/world/sansdata/sandic16.dat",	 "/lib/dict/world/sansdata/tjegkindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"tegj",	"Sanshusha technical English->German,Japanese",	 "/lib/dict/world/sansdata/sandic16.dat",	 "/lib/dict/world/sansdata/tegjindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"tgje",	"Sanshusha technical German->Japanese,English",	 "/lib/dict/world/sansdata/sandic16.dat",	 "/lib/dict/world/sansdata/tgjeindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"ne",		"Kunnskapforlaget Norwegian->English",	 "/lib/dict/world/kunndata/sandic28.dat",	 "/lib/dict/world/kunndata/neindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"en",		"Kunnskapforlaget English->Norwegian",	 "/lib/dict/world/kunndata/sandic27.dat",	 "/lib/dict/world/kunndata/enindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"re",		"Leon Ungier Russian->English",	 "/lib/dict/re",	"/lib/dict/reindex",	 simplenextoff,	simpleprintentry,	simpleprintkey},	{"er",		"Leon Ungier English->Russian",	 "/lib/dict/re",	"/lib/dict/erindex",	 simplenextoff,	simpleprintentry,	simpleprintkey}, 	{"se",		"Collins Spanish->English",	 "/lib/dict/se",	"/lib/dict/seindex",	 pcollnextoff,	pcollprintentry,	pcollprintkey},	{"es",		"Collins English->Spanish",	 "/lib/dict/es",	"/lib/dict/esindex",	 pcollnextoff,	pcollprintentry,	pcollprintkey}, 	{"swe",		"Esselte Studium Swedish->English",	 "/lib/dict/world/essedata/sandic34.dat",	 "/lib/dict/world/essedata/sweindex",	 worldnextoff,	worldprintentry,	worldprintkey},	{"esw",		"Esselte Studium English->Swedish",	 "/lib/dict/world/essedata/sandic33.dat",	 "/lib/dict/world/essedata/eswindex",	 worldnextoff,	worldprintentry,	worldprintkey}, 	{"movie",	"Movies -- by title",	 "/lib/movie/data",	"/lib/dict/movtindex",	 movienextoff,	movieprintentry,	movieprintkey},	{"moviea",	"Movies -- by actor",	 "/lib/movie/data",	"/lib/dict/movaindex",	 movienextoff,	movieprintentry,	movieprintkey},	{"movied",	"Movies -- by director",	 "/lib/movie/data",	"/lib/dict/movdindex",	 movienextoff,	movieprintentry,	movieprintkey}, 	{"slang",	"English Slang",	 "/lib/dict/slang",	"/lib/dict/slangindex",	 slangnextoff,	slangprintentry,	slangprintkey}, 	{"robert",	"Robert Électronique",	 "/lib/dict/robert/_pointers",	"/lib/dict/robert/_index",	 robertnextoff,	robertindexentry,	robertprintkey},	{"robertv",	"Robert Électronique - formes des verbes",	 "/lib/dict/robert/flex.rob",	"/lib/dict/robert/_flexindex",	 robertnextflex,	robertflexentry,	robertprintkey}, 	{0, 0, 0, 0, 0}}; typedef struct Lig Lig;struct Lig {	Rune	start;		/* accent rune */	Rune	*pairs;		/* <char,accented version> pairs */}; static Lig ligtab[Nligs] = {[LACU-LIGS]	{L'´',	L"AÁaáCĆcćEÉeégģIÍiíıíLĹlĺNŃnńOÓoóRŔrŕSŚsśUÚuúYÝyýZŹzź"},[LGRV-LIGS]	{L'ˋ',	L"AÀaàEÈeèIÌiìıìOÒoòUÙuù"},[LUML-LIGS]	{L'¨',	L"AÄaäEËeëIÏiïOÖoöUÜuüYŸyÿ"},[LCED-LIGS]	{L'¸',	L"CÇcçGĢKĶkķLĻlļNŅnņRŖrŗSŞsşTŢtţ"},[LTIL-LIGS]	{L'˜',	L"AÃaãIĨiĩıĩNÑnñOÕoõUŨuũ"},[LBRV-LIGS]	{L'˘',	L"AĂaăEĔeĕGĞgğIĬiĭıĭOŎoŏUŬuŭ"},[LRNG-LIGS]	{L'˚',	L"AÅaåUŮuů"},[LDOT-LIGS]	{L'˙',	L"CĊcċEĖeėGĠgġIİLĿlŀZŻzż"},[LDTB-LIGS]	{L'.',	L""},[LFRN-LIGS]	{L'⌢',	L"AÂaâCĈcĉEÊeêGĜgĝHĤhĥIÎiîıîJĴjĵOÔoôSŜsŝUÛuûWŴwŵYŶyŷ"},[LFRB-LIGS]	{L'̯',	L""},[LOGO-LIGS]	{L'˛',	L"AĄaąEĘeęIĮiįıįUŲuų"},[LMAC-LIGS]	{L'¯',	L"AĀaāEĒeēIĪiīıīOŌoōUŪuū"},[LHCK-LIGS]	{L'ˇ',	L"CČcčDĎdďEĚeěLĽlľNŇnňRŘrřSŠsšTŤtťZŽzž"},[LASP-LIGS]	{L'ʽ',	L""},[LLEN-LIGS]	{L'ʼ',	L""},[LBRB-LIGS]	{L'̮',	L""}}; Rune *multitab[Nmulti] = {[MAAS-MULTI]	L"ʽα",[MALN-MULTI]	L"ʼα",[MAND-MULTI]	L"and",[MAOQ-MULTI]	L"a/q",[MBRA-MULTI]	L"<|",[MDD-MULTI]	L"..",[MDDD-MULTI]	L"...",[MEAS-MULTI]	L"ʽε",[MELN-MULTI]	L"ʼε",[MEMM-MULTI]	L"——",[MHAS-MULTI]	L"ʽη",[MHLN-MULTI]	L"ʼη",[MIAS-MULTI]	L"ʽι",[MILN-MULTI]	L"ʼι",[MLCT-MULTI]	L"ct",[MLFF-MULTI]	L"ff",[MLFFI-MULTI]	L"ffi",[MLFFL-MULTI]	L"ffl",[MLFL-MULTI]	L"fl",[MLFI-MULTI]	L"fi",[MLLS-MULTI]	L"ɫɫ",[MLST-MULTI]	L"st",[MOAS-MULTI]	L"ʽο",[MOLN-MULTI]	L"ʼο",[MOR-MULTI]	L"or",[MRAS-MULTI]	L"ʽρ",[MRLN-MULTI]	L"ʼρ",[MTT-MULTI]	L"~~",[MUAS-MULTI]	L"ʽυ",[MULN-MULTI]	L"ʼυ",[MWAS-MULTI]	L"ʽω",[MWLN-MULTI]	L"ʼω",[MOE-MULTI]	L"oe",[MES-MULTI]	L"  ",}; static Rune 	*ttabstack[20];static int	ntt; /* * tab is an array of n Assoc's, sorted by key. * Look for key in tab, and return corresponding val * or -1 if not there */longlookassoc(Assoc *tab, int n, char *key){	Assoc *q;	long i, low, high;	int r; 	for(low = -1, high = n; high > low+1; ){		i = (high+low)/2;		q = &tab[i];		if((r=strcmp(key, q->key))<0)			high = i;		else if(r == 0)			return q->val;		else			low=i;	}	return -1;} longlooknassoc(Nassoc *tab, int n, long key){	Nassoc *q;	long i, low, high; 	for(low = -1, high = n; high > low+1; ){		i = (high+low)/2;		q = &tab[i];		if(key < q->key)			high = i;		else if(key == q->key)			return q->val;		else			low=i;	}	return -1;} voiderr(char *fmt, ...){	char buf[1000];	va_list v; 	va_start(v, fmt);	vsnprint(buf, sizeof(buf), fmt, v);	va_end(v);	fprint(2, "%s: %s\n", argv0, buf);} /* * Write the rune r to bout, keeping track of line length * and breaking the lines (at blanks) when they get too long */voidoutrune(long r){	if(outinhibit)		return;	if(++linelen > breaklen && r == L' ') {		Bputc(bout, '\n');		linelen = 0;	} else		Bputrune(bout, r);} voidoutrunes(Rune *rp){	Rune r; 	while((r = *rp++) != 0)		outrune(r);} /* like outrune, but when arg is know to be a char */voidoutchar(int c){	if(outinhibit)		return;	if(++linelen > breaklen && c == ' ') {		c ='\n';		linelen = 0;	}	Bputc(bout, c);} voidoutchars(char *s){	char c; 	while((c = *s++) != 0)		outchar(c);} voidoutprint(char *fmt, ...){	char buf[1000];	va_list v; 	va_start(v, fmt);	vsnprint(buf, sizeof(buf), fmt, v);	va_end(v);	outchars(buf);} voidoutpiece(char *b, char *e){	int c, lastc; 	lastc = 0;	while(b < e) {		c = *b++;		if(c == '\n')			c = ' ';		if(!(c == ' ' && lastc == ' '))			outchar(c);		lastc = c;	}} /* * Go to new line if not already there; indent if ind != 0. * If ind > 1, leave a blank line too. * Slight hack: assume if current line is only one or two * characters long, then they were spaces. */voidoutnl(int ind){	if(outinhibit)		return;	if(ind) {		if(ind > 1) {			if(linelen > 2)				Bputc(bout, '\n');			Bprint(bout, "\n  ");		} else if(linelen == 0)			Bprint(bout, "  ");		else if(linelen == 1)			Bputc(bout, ' ');		else if(linelen != 2)			Bprint(bout, "\n  ");		linelen = 2;	} else {		if(linelen) {			Bputc(bout, '\n');			linelen = 0;		}	}} /* * Fold the runes in null-terminated rp. * Use the sort(1) definition of folding (uppercase to lowercase, * runes are folded into base form) */voidfold(Rune *rp){	Rune r; 	while((r = *rp) != 0)		*rp++ = tolowerrune(tobaserune(r));} /* * Like fold, but put folded result into new * (assumed to have enough space). * old is a regular expression, but we know that * metacharacters aren't affected */voidfoldre(char *new, char *old){	Rune r; 	while(*old) {		old += chartorune(&r, old);		r = tolowerrune(tobaserune(r));		new += runetochar(new, &r);	}	*new = 0;} /* *	acomp(s, t) returns: *		-2 if s strictly precedes t *		-1 if s is a prefix of t *		0 if s is the same as t *		1 if t is a prefix of s *		2 if t strictly precedes s */ intacomp(Rune *s, Rune *t){	int cs, ct; 	for(;;) {		cs = *s;		ct = *t;		if(cs != ct)			break;		if(cs == 0)			return 0;		s++;		t++;	}	if(cs == 0)		return -1;	if(ct == 0)		return 1;	if(cs < ct)		return -2;	return 2;} /* * Conversion of unsigned number to long, no overflow detection */longrunetol(Rune *r){	int c;	long n; 	n = 0;	for(;; r++){		c = *r;		if(L'0'<=c && c<=L'9')			c -= '0';		else			break;		n = n*10 + c;	}	return n;} /* * See if there is a rune corresponding to the accented * version of r with accent acc (acc in [LIGS..LIGE-1]), * and return it if so, else return NONE. */Runeliglookup(Rune acc, Rune r){	Rune *p; 	if(acc < LIGS || acc >= LIGE)		return NONE;	for(p = ligtab[acc-LIGS].pairs; *p; p += 2)		if(*p == r)			return *(p+1);	return NONE;

Lines 1–500 of 534. Load more