Imported version 1.0
[claws.git] / libkcc / setfunc.c
1 #include "kcc.h"
2
3 void (*outascii)(), (*outkanji)(), (*outgaiji)(), (*outkana)();
4
5 /**********************************************************************
6  *                                                                    *
7  *  Conversion Routines                                               *
8  *                                                                    *
9  **********************************************************************/
10 void Kcc_outchar();
11 void Kcc_jisascii(), Kcc_jiskanji(), Kcc_jisgaiji();
12 void Kcc_jiskana(), Kcc_jiskanak(), Kcc_jiskana8();
13 void Kcc_euckanji(), Kcc_eucgaiji(), Kcc_euckana();
14 void Kcc_sjiskanji(), Kcc_sjisgaiji(), Kcc_sjiskana();
15 void Kcc_decascii(), Kcc_deckanji(), Kcc_decgaiji(), Kcc_deckana();
16
17 /*---------------------------------------------------------------------
18     NAME
19         setfunc
20  ---------------------------------------------------------------------*/
21 void Kcc_setfunc(outcode)
22      unsigned outcode;
23 {
24     switch (outcode) {
25     case EUC:
26         outascii = Kcc_outchar;
27         outkanji = Kcc_euckanji;
28         outgaiji = Kcc_eucgaiji;
29         outkana = Kcc_euckana;
30         break;
31     case DEC:
32         outascii = Kcc_decascii;
33         outkanji = Kcc_deckanji;
34         outgaiji = Kcc_decgaiji;
35         outkana = Kcc_deckana;
36         break;
37     case SJIS:
38         outascii = Kcc_outchar;
39         outkanji = Kcc_sjiskanji;
40         outgaiji = Kcc_sjisgaiji;
41         outkana = Kcc_sjiskana;
42         break;
43     default:
44         outascii = Kcc_jisascii;
45         outkanji = Kcc_jiskanji;
46         outgaiji = Kcc_jisgaiji;
47         switch (outcode) {
48         case JIS:               /* mode:  M_ASCII M_KANJI M_GAIJI
49                                  * M_SO */
50             outkana = Kcc_jiskana;
51             break;
52         case JIS | ESCI:        /* mode:  M_ASCII M_KANJI M_GAIJI
53                                  * M_ESCI */
54             outkana = Kcc_jiskanak;
55             break;
56         case JIS | JIS8:        /* mode:  M_ASCII M_KANJI M_GAIJI */
57             outkana = Kcc_jiskana8;
58             break;
59         }
60         break;
61     }
62 }
63