From 8d7133308db580d2356d5d1dd30f0b9a1f0a7417 Mon Sep 17 00:00:00 2001 From: rsc Date: Sun, 21 May 2006 20:42:33 +0000 Subject: forgot --- src/cmd/tcs/tune.c | 309 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 309 insertions(+) create mode 100644 src/cmd/tcs/tune.c diff --git a/src/cmd/tcs/tune.c b/src/cmd/tcs/tune.c new file mode 100644 index 00000000..1046b779 --- /dev/null +++ b/src/cmd/tcs/tune.c @@ -0,0 +1,309 @@ +#include +#include +#include +#include "hdr.h" +#include "conv.h" + +typedef struct Tmap Tmap; +struct Tmap +{ + Rune u; + Rune t; +}; + +static Tmap t1[] = +{ + {0x0b85/*அ*/, 0xe201/**/}, + {0x0b86/*ஆ*/, 0xe202/**/}, + {0x0b87/*இ*/, 0xe203/**/}, + {0x0b88/*ஈ*/, 0xe204/**/}, + {0x0b89/*உ*/, 0xe205/**/}, + {0x0b8a/*ஊ*/, 0xe206/**/}, + {0x0b8e/*எ*/, 0xe207/**/}, + {0x0b8f/*ஏ*/, 0xe208/**/}, + {0x0b90/*ஐ*/, 0xe209/**/}, + {0x0b92/*ஒ*/, 0xe20a/**/}, + {0x0b93/*ஓ*/, 0xe20b/**/}, + {0x0b94/*ஔ*/, 0xe20c/**/}, + {0x0b83/*ஃ*/, 0xe20d/**/} +}; + +static Rune t2[] = +{ + 0x0bcd/*்*/, + 0x0bcd/*்*/, // filler + 0x0bbe/*ா*/, + 0x0bbf/*ி*/, + 0x0bc0/*ீ*/, + 0x0bc1/*ு*/, + 0x0bc2/*ூ*/, + 0x0bc6/*ெ*/, + 0x0bc7/*ே*/, + 0x0bc8/*ை*/, + 0x0bca/*ொ*/, + 0x0bcb/*ோ*/, + 0x0bcc/*ௌ*/ +}; + +static Tmap t3[] = +{ + {0x0b95/*க*/, 0xe211/**/}, + {0x0b99/*ங*/, 0xe221/**/}, + {0x0b9a/*ச*/, 0xe231/**/}, + {0x0b9c/*ஜ*/, 0xe331/**/}, + {0x0b9e/*ஞ*/, 0xe241/**/}, + {0x0b9f/*ட*/, 0xe251/**/}, + {0x0ba3/*ண*/, 0xe261/**/}, + {0x0ba4/*த*/, 0xe271/**/}, + {0x0ba8/*ந*/, 0xe281/**/}, + {0x0ba9/*ன*/, 0xe321/**/}, + {0x0baa/*ப*/, 0xe291/**/}, + {0x0bae/*ம*/, 0xe2a1/**/}, + {0x0baf/*ய*/, 0xe2b1/**/}, + {0x0bb0/*ர*/, 0xe2c1/**/}, + {0x0bb1/*ற*/, 0xe311/**/}, + {0x0bb2/*ல*/, 0xe2d1/**/}, + {0x0bb3/*ள*/, 0xe301/**/}, + {0x0bb4/*ழ*/, 0xe2f1/**/}, + {0x0bb5/*வ*/, 0xe2e1/**/}, + {0x0bb6/*ஶ*/, 0xe341/**/}, + {0x0bb7/*ஷ*/, 0xe351/**/}, + {0x0bb8/*ஸ*/, 0xe361/**/}, + {0x0bb9/*ஹ*/, 0xe371/**/} +}; + +static Rune +findbytune(Tmap *tab, int size, Rune t) +{ + int i; + + for(i = 0; i < size; i++) + if(tab[i].t == t) + return tab[i].u; + return Runeerror; +} + +static Rune +findbyuni(Tmap *tab, int size, Rune u) +{ + int i; + + for(i = 0; i < size; i++) + if(tab[i].u == u) + return tab[i].t; + return Runeerror; +} + +static int +findindex(Rune *rstr, int size, Rune r) +{ + int i; + + for(i = 0; i < size; i++) + if(rstr[i] == r) + return i; + return -1; +} + +void +tune_in(int fd, long *x, struct convert *out) +{ + Biobuf b; + Rune rbuf[N]; + Rune *r, *er, tr; + int c, i; + + USED(x); + r = rbuf; + er = rbuf+N-3; + Binit(&b, fd, OREAD); + while((c = Bgetrune(&b)) != Beof){ + ninput += b.runesize; + if(r >= er){ + OUT(out, rbuf, r-rbuf); + r = rbuf; + } + if(c>=0xe210/**/ && c <= 0xe38c/**/ && (i = c%16) < nelem(t2)){ + if(c >= 0xe380/**/){ + *r++ = 0x0b95/*க*/; + *r++ = 0x0bcd/*்*/; + *r++ = 0x0bb7/*ஷ*/; + }else + *r++ = findbytune(t3, nelem(t3), c-i+1); + if(i != 1) + *r++ = t2[i]; + }else if((tr = findbytune(t1, nelem(t1), c)) != Runeerror) + *r++ = tr; + else switch(c){ + case 0xe3d0/**/: + *r++ = 0x0ba3/*ண*/; *r++ = 0x0bbe/*ா*/; + break; + case 0xe3d1/**/: + *r++ = 0x0bb1/*ற*/; *r++ = 0x0bbe/*ா*/; + break; + case 0xe3d2/**/: + *r++ = 0x0ba9/*ன*/; *r++ = 0x0bbe/*ா*/; + break; + case 0xe3d4/**/: + *r++ = 0x0ba3/*ண*/; *r++ = 0x0bc8/*ை*/; + break; + case 0xe3d5/**/: + *r++ = 0x0bb2/*ல*/; *r++ = 0x0bc8/*ை*/; + break; + case 0xe3d6/**/: + *r++ = 0x0bb3/*ள*/; *r++ = 0x0bc8/*ை*/; + break; + case 0xe3d7/**/: + *r++ = 0x0ba9/*ன*/; *r++ = 0x0bc8/*ை*/; + break; + case 0xe38d/**/: + *r++ = 0x0bb6/*ஶ*/; *r++ = 0x0bcd/*்*/; *r++ = 0x0bb0/*ர*/; *r++ = 0x0bc0/*ீ*/; + break; + default: + if(c >= 0xe200 && c <= 0xe3ff){ + if(squawk) + EPR "%s: rune 0x%x not in output cs\n", argv0, c); + nerrors++; + if(clean) + break; + c = BADMAP; + } + *r++ = c; + break; + } + } + if(r > rbuf) + OUT(out, rbuf, r-rbuf); + OUT(out, rbuf, 0); +} + +void +tune_out(Rune *r, int n, long *x) +{ + static int state = 0; + static Rune lastr; + Rune *er, tr, rr; + char *p; + int i; + + USED(x); + nrunes += n; + er = r+n; + for(p = obuf; r < er; r++){ + switch(state){ + case 0: + case0: + if((tr = findbyuni(t3, nelem(t3), *r)) != Runeerror){ + lastr = tr; + state = 1; + }else if(*r == 0x0b92/*ஒ*/){ + lastr = 0xe20a/**/; + state = 3; + }else if((tr = findbyuni(t1, nelem(t1), *r)) != Runeerror) + p += runetochar(p, &tr); + else + p += runetochar(p, r); + break; + case 1: + case1: + if((i = findindex(t2, nelem(t2), *r)) != -1){ + if(lastr && lastr != Runeerror) + lastr += i-1; + if(*r ==0x0bc6/*ெ*/) + state = 5; + else if(*r ==0x0bc7/*ே*/) + state = 4; + else if(lastr == 0xe210/**/) + state = 2; + else if(lastr == 0xe340/**/) + state = 6; + else{ + if(lastr) + p += runetochar(p, &lastr); + state = 0; + } + }else if(lastr && lastr != Runeerror && (*r == 0x00b2/*²*/ || *r == 0x00b3/*³*/ || *r == 0x2074/*⁴*/)){ + if(squawk) + EPR "%s: character not in output cs\n", argv0, lastr, *r); + lastr = clean ? 0 : Runeerror; + nerrors++; + }else{ + if(lastr) + p += runetochar(p, &lastr); + state = 0; + goto case0; + } + break; + case 2: + if(*r == 0x0bb7/*ஷ*/){ + lastr = 0xe381/**/; + state = 1; + break; + } + p += runetochar(p, &lastr); + state = 0; + goto case0; + case 3: + state = 0; + if(*r == 0x0bd7/*ௗ*/){ + rr = 0xe20c/**/; + p += runetochar(p, &rr); + break; + } + p += runetochar(p, &lastr); + goto case0; + case 4: + state = 0; + if(*r == 0x0bbe/*ா*/){ + if(lastr){ + if(lastr != Runeerror) + lastr += 3; + p += runetochar(p, &lastr); + } + break; + } + if(lastr) + p += runetochar(p, &lastr); + goto case0; + case 5: + state = 0; + if(*r == 0x0bbe/*ா*/ || *r == 0x0bd7/*ௗ*/){ + if(lastr){ + if(lastr != Runeerror) + lastr += *r == 0x0bbe/*ா*/ ? 3 : 5; + p += runetochar(p, &lastr); + } + break; + } + if(lastr) + p += runetochar(p, &lastr); + goto case0; + case 6: + if(*r == 0x0bb0/*ர*/){ + state = 7; + break; + } + p += runetochar(p, &lastr); + state = 0; + goto case0; + case 7: + if(*r == 0x0bc0/*ீ*/){ + rr = 0xe38d/**/; + p += runetochar(p, &rr); + state = 0; + break; + } + p += runetochar(p, &lastr); + lastr = 0xe2c1/**/; + state = 1; + goto case1; + } + } + if(n == 0 && state != 0){ + if(lastr) + p += runetochar(p, &lastr); + state = 0; + } + noutput += p-obuf; + write(1, obuf, p-obuf); +} -- cgit v1.2.3