From: handa@etlken.etl.go.jp (Kenichi Handa)
Subject: Re: Call For Discussion on Multilingual text posting
Organization: Electrotechnical Lab., Japan.
Distribution: fj
Date: Sat, 23 Jan 1993 02:00:03 GMT

In article <HANDA.93Jan22180546@etlken.etl.go.jp>
	handa@etlken.etl.go.jp (Kenichi Handa) writes:
>> $B!V%P%$%H?t!aI=<(I}!W$G$O:Q$^$;$F$$$^$;$s!#Nc$($P(B
>>                 if (ISJISKANJI1(c, multiindex))
>>                 {
>>                         multilen = 2;
>> ...

$B$9$$$^$;$s!#$3$l$OE,Ev$JItJ,$G$O$"$j$^$;$s$G$7$?!#(Bless177
$B$K4X$7$F$O(B line.c $B$N(B
        switch (a & MULTIMASK)
        {
        case KANJI1: return (2);
        case KANJI2: return (0);
        case KANA1:  return (1);
        case KANA2:  return (0);
        case OTHER1: return (2);
        case OTHER2: return (0);
        case OTHER3: return (0);
        case OTHER4: return (0);
        }
$B$NJ}$,E,Ev$JNc$G$7$g$&!#$=$l$+$i!"(B

>> $B$7$+$b>e5-$ONc$($P(B ISO5589-5 (Cyrillic) $B$K$OBP1~$7$F$$$^$;$s(B

$B$3$l$O(B exterm $B$K$D$$$F$O(B X Locale Definition File $B$rE,Ev$K@_(B
$BDj$9$k$9$k$3$H$K$h$C$F2DG=$G$7$?!#(B

>> $B$h$M!#$3$NJ8;z%;%C%H$r;H$&$3$H$K$J$C$?;~$K$O$I$&$;=$@5$,I,MW(B
>> $B$G$9!#$=$N:]$K(B ESC,<F> $B$rF~$l$k$N$O$=$l$3$=$[$s$N$A$g$C$H$7(B
>> $B$?:n6H$G:Q$_$^$9!#(B

$B$A$J$_$K:#(B V11R5/mit/lib/X/Xsi/XInitCT.c $B$rGA$$$?$i(B
------------------------------------------------------------
/*
 * Add one more for Taiwan.
 * It would be better to invoke final characters for Taiwan into 03/01
 * and 03/02 in accordance with ISO 2022 because it has not registered yet.
 * However strict CT definition contains the following statements:
 *
 *    [Final characters for private encodings (in the range 03/00 to 03/15),
 *    are not permitted here in Compound Text.]  
 *
 * Ooh,Ooh!
 * So the final characters for Taiwan is defined to 05/01 and 05/02.
 *
 * By Li Yuhong, Nov. 20, 1990
*/
#ifdef  nodef
#define NTW2312_1       "tw2312-1.1980-0"
#define NTW2312_2       "tw2312-2.1980-0"
#define ETW2312_1       "\033$(Y"       /* Taiwan Font1, not registered yet.*/
#define ETW2312_2       "\033$(Z"       /* Taiwan Font2, not registered yet.*/
#define WTW2312_1       PrivatePlaneLastI11
#define WTW2312_2       PrivatePlaneLastI10
#endif
------------------------------------------------------------
$B$J$s$F5-=R$,$"$k!*(B tw2312-1 $B$C$F(B CNS $B$NBh0lLL$N$3$H$@$m$&$+!#(B
$B$^$@(B #ifdef nodef $B$NCf$@$1$I>-Mh(B Xsi $B$O$I$&$9$k$s$@$m$&!#(B

$B$=$l$+$i!"F1$8%U%!%$%k$N(B
------------------------------------------------------------
_XctisGLdsg(dsg)
    char *dsg;
{
    if (*(dsg+1) == '(' || *(dsg+2) == '(')
        return (True);
    else if (*(dsg+1) == ')' || *(dsg+2) == ')' || *(dsg+1) == '-')
        return (False);
    else if (*(dsg+1) == '$' &&
                (*(dsg+2) == '@' || *(dsg+2) == 'A' || *(dsg+2) == 'B'))
        return (True);
    return (False);
}
------------------------------------------------------------ 
$B$r$A$g$3$C$H=$@5$9$l$P(B exterm $B$G$b(B ESC,<F> $B$,;H$($k$h$&$K$J(B
$B$k$N$+$J!)(B $B$=$l$K$7$F$b(B X $B%3%s%=!<%7%"%`!J$+$J!"$"$k$$$O(B Xsi 
$B$r$d$C$F$$$k$H$3$m!)!K$K$3$l$rDs0F$9$k$N$OLLE]$=$&$@$J$!!#(B

$B!]!]!!$1$s$A$c$s!w#E#T#L(B
      handa@etl.go.jp