diff options
Diffstat (limited to 'libXg/latin1.c')
| -rw-r--r-- | libXg/latin1.c | 247 |
1 files changed, 247 insertions, 0 deletions
diff --git a/libXg/latin1.c b/libXg/latin1.c new file mode 100644 index 0000000..bfc6418 --- /dev/null +++ b/libXg/latin1.c @@ -0,0 +1,247 @@ +/* Copyright (c) 1992 AT&T - All rights reserved. */ + +struct latin +{ + unsigned short l; + unsigned char c[2]; +}latintab[] = { + 0x00a1, '!','!', /* spanish initial ! */ + 0x00a2, 'c','$', /* cent */ + 0x00a3, 'l','$', /* pound sterling */ + 0x00a4, 'g','$', /* general currency */ + 0x00a5, 'y','$', /* yen */ + 0x00a6, '|','|', /* broken vertical bar */ + 0x00a7, 'S','S', /* section symbol */ + 0x00a8, '\"','\"', /* dieresis */ + 0x00a9, 'c','O', /* copyright */ + 0x00aa, 's','a', /* super a, feminine ordinal */ + 0x00ab, '<','<', /* left angle quotation */ + 0x00ac, 'n','o', /* not sign, hooked overbar */ + 0x00ad, '-','-', /* soft hyphen */ + 0x00ae, 'r','O', /* registered trademark */ + 0x00af, '_','_', /* macron */ + 0x00b0, 'd','e', /* degree */ + 0x00b1, '+','-', /* plus-minus */ + 0x00b2, 's','2', /* sup 2 */ + 0x00b3, 's','3', /* sup 3 */ + 0x00b4, '\'','\'', /* acute accent */ + 0x00b5, 'm','i', /* micron */ + 0x00b6, 'p','g', /* paragraph (pilcrow) */ + 0x00b7, '.','.', /* centered . */ + 0x00b8, ',',',', /* cedilla */ + 0x00b9, 's','1', /* sup 1 */ + 0x00ba, 's','o', /* super o, masculine ordinal */ + 0x00bb, '>','>', /* right angle quotation */ + 0x00bc, '1','4', /* 1/4 */ + 0x00bd, '1','2', /* 1/2 */ + 0x00be, '3','4', /* 3/4 */ + 0x00bf, '?','?', /* spanish initial ? */ + 0x00c0, '`','A', /* A grave */ + 0x00c1, '\'','A', /* A acute */ + 0x00c2, '^','A', /* A circumflex */ + 0x00c3, '~','A', /* A tilde */ + 0x00c4, '\"','A', /* A dieresis */ + 0x00c5, 'o','A', /* A circle */ + 0x00c6, 'A','E', /* AE ligature */ + 0x00c7, ',','C', /* C cedilla */ + 0x00c8, '`','E', /* E grave */ + 0x00c9, '\'','E', /* E acute */ + 0x00ca, '^','E', /* E circumflex */ + 0x00cb, '\"','E', /* E dieresis */ + 0x00cc, '`','I', /* I grave */ + 0x00cd, '\'','I', /* I acute */ + 0x00ce, '^','I', /* I circumflex */ + 0x00cf, '\"','I', /* I dieresis */ + 0x00d0, 'D','-', /* Eth */ + 0x00d1, '~','N', /* N tilde */ + 0x00d2, '`','O', /* O grave */ + 0x00d3, '\'','O', /* O acute */ + 0x00d4, '^','O', /* O circumflex */ + 0x00d5, '~','O', /* O tilde */ + 0x00d6, '\"','O', /* O dieresis */ + 0x00d7, 'm','u', /* times sign */ + 0x00d8, '/','O', /* O slash */ + 0x00d9, '`','U', /* U grave */ + 0x00da, '\'','U', /* U acute */ + 0x00db, '^','U', /* U circumflex */ + 0x00dc, '\"','U', /* U dieresis */ + 0x00dd, '\'','Y', /* Y acute */ + 0x00de, '|','P', /* Thorn */ + 0x00df, 's','s', /* sharp s */ + 0x00e0, '`','a', /* a grave */ + 0x00e1, '\'','a', /* a acute */ + 0x00e2, '^','a', /* a circumflex */ + 0x00e3, '~','a', /* a tilde */ + 0x00e4, '\"','a', /* a dieresis */ + 0x00e5, 'o','a', /* a circle */ + 0x00e6, 'a','e', /* ae ligature */ + 0x00e7, ',','c', /* c cedilla */ + 0x00e8, '`','e', /* e grave */ + 0x00e9, '\'','e', /* e acute */ + 0x00ea, '^','e', /* e circumflex */ + 0x00eb, '\"','e', /* e dieresis */ + 0x00ec, '`','i', /* i grave */ + 0x00ed, '\'','i', /* i acute */ + 0x00ee, '^','i', /* i circumflex */ + 0x00ef, '\"','i', /* i dieresis */ + 0x00f0, 'd','-', /* eth */ + 0x00f1, '~','n', /* n tilde */ + 0x00f2, '`','o', /* o grave */ + 0x00f3, '\'','o', /* o acute */ + 0x00f4, '^','o', /* o circumflex */ + 0x00f5, '~','o', /* o tilde */ + 0x00f6, '\"','o', /* o dieresis */ + 0x00f7, '-',':', /* divide sign */ + 0x00f8, '/','o', /* o slash */ + 0x00f9, '`','u', /* u grave */ + 0x00fa, '\'','u', /* u acute */ + 0x00fb, '^','u', /* u circumflex */ + 0x00fc, '\"','u', /* u dieresis */ + 0x00fd, '\'','y', /* y acute */ + 0x00fe, '|','p', /* thorn */ + 0x00ff, '\"','y', /* y dieresis */ + 0x2654, 'w','k', /* chess white king */ + 0x2655, 'w','q', /* chess white queen */ + 0x2656, 'w','r', /* chess white rook */ + 0x2657, 'w','b', /* chess white bishop */ + 0x2658, 'w','n', /* chess white knight */ + 0x2659, 'w','p', /* chess white pawn */ + 0x265a, 'b','k', /* chess black king */ + 0x265b, 'b','q', /* chess black queen */ + 0x265c, 'b','r', /* chess black rook */ + 0x265d, 'b','b', /* chess black bishop */ + 0x265e, 'b','n', /* chess black knight */ + 0x265f, 'b','p', /* chess black pawn */ + 0x03b1, '*','a', /* alpha */ + 0x03b2, '*','b', /* beta */ + 0x03b3, '*','g', /* gamma */ + 0x03b4, '*','d', /* delta */ + 0x03b5, '*','e', /* epsilon */ + 0x03b6, '*','z', /* zeta */ + 0x03b7, '*','y', /* eta */ + 0x03b8, '*','h', /* theta */ + 0x03b9, '*','i', /* iota */ + 0x03ba, '*','k', /* kappa */ + 0x03bb, '*','l', /* lambda */ + 0x03bc, '*','m', /* mu */ + 0x03bd, '*','n', /* nu */ + 0x03be, '*','c', /* xsi */ + 0x03bf, '*','o', /* omicron */ + 0x03c0, '*','p', /* pi */ + 0x03c1, '*','r', /* rho */ + 0x03c2, 't','s', /* terminal sigma */ + 0x03c3, '*','s', /* sigma */ + 0x03c4, '*','t', /* tau */ + 0x03c5, '*','u', /* upsilon */ + 0x03c6, '*','f', /* phi */ + 0x03c7, '*','x', /* chi */ + 0x03c8, '*','q', /* psi */ + 0x03c9, '*','w', /* omega */ + 0x0391, '*','A', /* Alpha */ + 0x0392, '*','B', /* Beta */ + 0x0393, '*','G', /* Gamma */ + 0x0394, '*','D', /* Delta */ + 0x0395, '*','E', /* Epsilon */ + 0x0396, '*','Z', /* Zeta */ + 0x0397, '*','Y', /* Eta */ + 0x0398, '*','H', /* Theta */ + 0x0399, '*','I', /* Iota */ + 0x039a, '*','K', /* Kappa */ + 0x039b, '*','L', /* Lambda */ + 0x039c, '*','M', /* Mu */ + 0x039d, '*','N', /* Nu */ + 0x039e, '*','C', /* Xsi */ + 0x039f, '*','O', /* Omicron */ + 0x03a0, '*','P', /* Pi */ + 0x03a1, '*','R', /* Rho */ + 0x03a3, '*','S', /* Sigma */ + 0x03a4, '*','T', /* Tau */ + 0x03a5, '*','U', /* Upsilon */ + 0x03a6, '*','F', /* Phi */ + 0x03a7, '*','X', /* Chi */ + 0x03a8, '*','Q', /* Psi */ + 0x03a9, '*','W', /* Omega */ + 0x2190, '<','-', /* left arrow */ + 0x2191, 'u','a', /* up arrow */ + 0x2192, '-','>', /* right arrow */ + 0x2193, 'd','a', /* down arrow */ + 0x2194, 'a','b', /* arrow both */ + 0x21d0, 'V','=', /* left double-line arrow */ + 0x21d2, '=','V', /* right double-line arrow */ + 0x2200, 'f','a', /* forall */ + 0x2203, 't','e', /* there exists */ + 0x2202, 'p','d', /* partial differential */ + 0x2205, 'e','s', /* empty set */ + 0x2206, 'D','e', /* delta */ + 0x2207, 'g','r', /* gradient */ + 0x2208, 'm','o', /* element of */ + 0x2209, '!','m', /* not element of */ + 0x220d, 's','t', /* such that */ + 0x2217, '*','*', /* math asterisk */ + 0x2219, 'b','u', /* bullet */ + 0x221a, 's','r', /* radical */ + 0x221d, 'p','t', /* proportional */ + 0x221e, 'i','f', /* infinity */ + 0x2220, 'a','n', /* angle */ + 0x2227, 'l','&', /* logical and */ + 0x2228, 'l','|', /* logical or */ + 0x2229, 'c','a', /* intersection */ + 0x222a, 'c','u', /* union */ + 0x222b, 'i','s', /* integral */ + 0x2234, 't','f', /* therefore */ + 0x2243, '~','=', /* asymptotically equal */ + 0x2245, 'c','g', /* congruent */ + 0x2248, '~','~', /* almost equal */ + 0x2260, '!','=', /* not equal */ + 0x2261, '=','=', /* equivalent */ + 0x2266, '<','=', /* less than or equal */ + 0x2267, '>','=', /* greater than or equal */ + 0x2282, 's','b', /* proper subset */ + 0x2283, 's','p', /* proper superset */ + 0x2284, '!','b', /* not subset */ + 0x2286, 'i','b', /* reflexive subset */ + 0x2287, 'i','p', /* reflexive superset */ + 0x2295, 'O','+', /* circle plus */ + 0x2296, 'O','-', /* circle minus */ + 0x2297, 'O','x', /* circle multiply */ + 0x22a2, 't','u', /* turnstile */ + 0x22a8, 'T','u', /* valid */ + 0x22c4, 'l','z', /* lozenge */ + 0x22ef, 'e','l', /* ellipses */ + 0x2639, ':','(', /* saddy */ + 0x263a, ':',')', /* white-face smiley */ + 0x263b, ';',')', /* dark-face smiley */ + 0, 0, +}; + +long +latin1(unsigned char *k) +{ + struct latin *l; + + for(l=latintab; l->l; l++) + if(k[0]==l->c[0] && k[1]==l->c[1]) + return l->l; + return -1; +} + +long +unicode(unsigned char *k) +{ + long i, c; + + k++; /* skip 'X' */ + c = 0; + for(i=0; i<4; i++,k++){ + c <<= 4; + if('0'<=*k && *k<='9') + c += *k-'0'; + else if('a'<=*k && *k<='f') + c += 10 + *k-'a'; + else if('A'<=*k && *k<='F') + c += 10 + *k-'A'; + else + return -1; + } + return c; +} |