1 /*
2  * $Id: final.c,v 1.2 2001/06/14 18:16:11 ura Exp $
3  */
4 
5 /*
6  * FreeWnn is a network-extensible Kana-to-Kanji conversion system.
7  * This file is part of FreeWnn.
8  *
9  * Copyright OMRON Corporation. 1987, 1988, 1989, 1990, 1991, 1992, 1999
10  *
11  * Author: OMRON SOFTWARE Co., Ltd. <freewnn@rd.kyoto.omronsoft.co.jp>
12  *
13  * This program is free software; you can redistribute it and/or modify
14  * it under the terms of the GNU General Public License as published by
15  * the Free Software Foundation; either version 2, or (at your option)
16  * any later version.
17  *
18  * This program is distributed in the hope that it will be useful,
19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21  * GNU General Public License for more details.
22  *
23  * You should have received a copy of the GNU General Public License
24  * along with GNU Emacs; see the file COPYING.  If not, write to the
25  * Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
26  *
27  * Commentary:
28  *
29  * Change log:
30  *
31  * Last modified date: 8,Feb.1999
32  *
33  * Code:
34  *
35  */
36 
37 /*
38  * X11R5 Input Method Test Program
39  * final.c v 1.0   Fri Mar 15 14:01:00 JST 1991
40  */
41 
42 /*
43  *      Author: Shoji kamada     OMRON Corporation
44  *                               kamada@ari.ncl.omron.co.jp
45  *
46  *              Takashi Inoue    OMRON Corporation
47  *                               takashi@ari.ncl.omron.co.jp
48  */
49 
50 #include "exvalue.h"
51 #include "func.h"
52 
53 void
dtictoex(ic,im)54 dtictoex (ic, im)               /* DesTroy IC TO EXit */
55      XIM im;
56      XIC ic;
57 {
58   dticonly (ic);
59   fcictoex (im);
60 }
61 
62 void
dticonly(ic)63 dticonly (ic)                   /* DesTroy IC ONLY */
64      XIC ic;
65 {
66   destic (ic);
67 }
68 
69 void
dtictofc(ic)70 dtictofc (ic)                   /* DesTroy IC TO File Close of ic */
71      XIC ic;
72 {
73   dticonly (ic);
74   fclic ();
75 }
76 
77 void
fcictoex(im)78 fcictoex (im)                   /* log File Close of IC TO EXit */
79      XIM im;
80 {
81   fclic ();
82   climtoex (im);
83 }
84 
85 void
climtoex(im)86 climtoex (im)                   /* CLose IM TO EXit */
87      XIM im;
88 {
89   closeim (im);
90   fcimtoex ();
91 }
92 
93 void
fcimtoex()94 fcimtoex ()                     /* log File Close IM TO EXit */
95 {
96   fclim ();
97   freexres ();
98   freemwin ();
99 }
100