2
* katuyou.c - conjugation
4
* Copyright (C) 2000, 2001,
5
* Nara Institute of Science and Technology
2
* Copyright (c) 2003 Nara Institute of Science and Technology
7
3
* All rights reserved.
9
5
* Redistribution and use in source and binary forms, with or without
10
6
* modification, are permitted provided that the following conditions
12
9
* 1. Redistributions of source code must retain the above copyright
13
* notice, this list of conditions and the following disclaimer.
10
* notice, this list of conditions and the following disclaimer.
14
11
* 2. Redistributions in binary form must reproduce the above copyright
15
12
* notice, this list of conditions and the following disclaimer in the
16
13
* documentation and/or other materials provided with the distribution.
17
* 3. All advertising materials mentioning features or use of this software
18
* must display the following acknowledgement:
19
* This product includes software developed by Nara Institute of
20
* Science and Technology.
21
* 4. The name Nara Institute of Science and Technology may not be used to
22
* endorse or promote products derived from this software without specific
23
* prior written permission.
14
* 3. The name Nara Institute of Science and Technology may not be used to
15
* endorse or promote products derived from this software without
16
* specific prior written permission.
26
18
* THIS SOFTWARE IS PROVIDED BY Nara Institute of Science and Technology
27
19
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
33
25
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
34
26
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
35
27
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37
* 1990/12/17/Mon Yutaka MYOKI(Nagao Lab., KUEE)
38
* $Id: katuyou.c,v 1.8.4.1 2002/02/05 13:42:07 akira-k Exp $
30
* $Id: katuyou.c,v 1.14 2003/07/08 17:08:49 kazuma-t Exp $
41
33
#include "chadic.h"
43
36
ktype_t Cha_type[TYPE_NUM];
44
37
kform_t Cha_form[TYPE_NUM][FORM_NUM];
61
54
cell1 = cha_car(cha_cdr(cell1));
63
56
/* base form string */
64
if (strmatch3(Cha_type[i].name, JSTR_BASE_FORM_STR,
65
ESTR_BASE_FORM_STR1, ESTR_BASE_FORM_STR2)) {
57
if (cha_litmatch(Cha_type[i].name, 2,
58
STR_BASE_FORM_STR1, STR_BASE_FORM_STR2)) {
66
59
Cha_base_form_str = cha_strdup(cha_s_atom(cell1));
77
70
if (!Cha_type[i].basic &&
79
72
? !strcmp(Cha_form[i][j].name, Cha_base_form_str)
80
: strmatch3(Cha_form[i][j].name, JSTR_BASE_FORM,
81
ESTR_BASE_FORM1, ESTR_BASE_FORM2)))
73
: cha_litmatch(Cha_form[i][j].name, 2,
74
STR_BASE_FORM1, STR_BASE_FORM2)))
82
75
Cha_type[i].basic = j;