;;; -*- Mode: TDL; Coding: utf-8 -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;        file: %Z% %M%
;;;      module:
;;;     version: %I%
;;;  written by: Melanie Siegel
;;; last update: %G% --- %U%
;;;  updated by: 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; author            | date        | modification
;;; ------------------|-------------|------------------------------------------
;;;Melanie Siegel(MS) |             |Emily Bender (ERB), Francis Bond (FCB), (TT)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



; Values



category :< sort.
p :< category.
n :< category.
adj :< category.
v :< category.
adv :< category.
card :< category.
interj :< category.
det :< category.
temp_mod :< category.
noun_mod :< category.
pp_mod :< category.
idiom :< category.
utt :< category.
turn :< category.
sap  :< category.
comp :< category.
prep :< category.
;card_mod :< category.
hes :< category.
punct :< category.
prefix :< category.
numcl :< category.

;aspect :< sort.
terminative :< aspect.
prospective :< aspect.
perfective :< aspect.
progressive :< aspect.
inceptive :< aspect.
perfect_progressive :< aspect.
modal :< aspect.
;;; the value for sentences with no special marking
default_aspect :< aspect.  

;tense :< sort.
tensed :< tense.


; (ERB 2001-12-13) For runon_s rule.

present-past-or-future := tensed.

present-or-past := present-past-or-future.
present :< present-or-past.
past :< present-or-past.

fut := present-past-or-future.
te :< tensed.
no_tense :< tense.


; (MS 2003-09-10) already contained in matrix.tdl
;mood :< sort.

uttmodus :< mood.

nonuttmodus :< mood.

passive :< mood.

nonpassive :< mood.

operative :< mood.

nonoperative :< mood.

imperative := nonuttmodus & nonpassive & nonoperative.

simple-imperative :< imperative.
polite-imperative :< imperative.

infinitive := nonuttmodus & nonpassive & nonoperative.

negative := operative & uttmodus.

conditional := operative & uttmodus.

voluntative := operative & uttmodus.


indicative := nonoperative & uttmodus & nonpassive.
subjunctive := indicative.

consultative := nonoperative & uttmodus.

;potential := uttmodus & nonpassive.
potential := uttmodus & operative.

causative := uttmodus & nonpassive & operative.

pot-neg := negative & potential.
pot-pass := potential & passive-basic.
pot-caus := potential & causative.
pot-cond := potential & conditional.
pot-vol := potential & voluntative.
;pot-ind := potential & indicative.

neg-caus := negative & causative.
neg-pass := negative & passive-basic.
neg-vol := negative & voluntative.


vol-pass := voluntative & passive-basic.
vol-caus := voluntative & causative.


conditional-basic := conditional & nonpassive.
pass-cond := passive-basic & conditional.
neg-cond := conditional & negative.
caus-cond := causative & conditional.

passive-basic := passive & operative & uttmodus.

consult-caus := consultative & causative.

;sase-rare-tai
pot-caus-vol := pot-caus & vol-caus.

;sase-rare-nai
pot-neg-caus := pot-neg & pot-caus.

;sase-rare-taku-nai
caus-pot-vol-neg := pot-caus-vol & pot-neg-caus.

;taku-nakere-ba
vol-neg-cond := neg-vol & neg-cond.

;(MS 2004-11-26) sase-rareru
pass-caus := passive-basic & causative.


smod  :< sort.

unmarked :< smod.
marked :< smod.

decl :< marked.
quest :< marked.
cond :< marked.
imp :< marked.


;Particles

ptype :< sort.

overt :< ptype.
empty :< ptype.
sentence-particle :< ptype.

topic :< overt.
nontop :< overt.

case :< nontop.
mod :< case.
temp-no :< case.
no-case :< case.
con :< case.
kara-case :< ni-or-kara.

; (ERB 2002-02-14) Complementizer to and postposition to should
; be distinguished.  For now, give complementizer to its own case
; value.  (Probably need more fundamental change to analysis -- 
; perhaps when we overhaul the clause analysis.)
; (MS 2004-12-13) Why was made in topic? This lead to unwanted unifications!
; took that out (犬などの動物 got a reading, where the nado got PTYPE made).


to-comp := case.

ni-or-to :< case.
ni-or-kara :< case.
ga-or-wo :< case.
ni-or-ga :< case.
ga-or-coparg :< case.
wo-or-ni :< case.

ga := ga-or-wo & ni-or-ga & ga-or-coparg.
wo := ga-or-wo & wo-or-ni.
ni := ni-or-ga & ni-or-to & ni-or-kara & wo-or-ni.
to :< ni-or-to.
coparg :< ga-or-coparg.


postp-case :< nontop.
mo :< topic.
koso :< topic.
comma :< topic.

nattr  :< nontop.
parmod :< nontop.
de :< nontop.
wa  :< topic.
shika  :< topic.
dake :< topic.
nanka  :< postp-case.
he  :< postp-case.
sonota  :< postp-case.
tomo  :< postp-case.
nado  :< nontop.
made  :=  postp-case.
kara  :< postp-case.
bakari  :< postp-case.
kurai  :< postp-case.
igai  :< postp-case.
toshite  :< postp-case.
yori  :< postp-case.
nitsuite :< postp-case.
nikaNshite :< postp-case.
nikakete :< postp-case.
niyotte :< postp-case.
sae :< postp-case.
tou :< postp-case.
zutsu :< postp-case.
toka :< postp-case.
kamo :< postp-case.
toiu :< nontop.
niokeru :< nontop.
notame :< topic.

; (TT 2003-09-04) for ijou, igai
ijou :< postp-case.
ika :< postp-case.


modify :< sort.
n-modified :< modify.
not-modified :<  modify.
modified :<  modify.

; (MS 2003-07-09) Not used any more?

;word-status :< sort.
;word :< word-status.
;stem :< word-status.

; (FCB 2005-05-05) Not used any more?

;vref :< sort.
;he :< vref.
;sp :< vref.
;sp_he :< vref.
;top :< vref.
;third :< vref.
;thirdpl :< third.
;firstpl :< sp.

vtype :< sort.
std-or-demon :< vtype.
std :< std-or-demon.
zero :< vtype.
demon :< std-or-demon.

morphbind :< sort.

morphbindtype :< morphbind.
nomorphbind :< morphbind.

vstem-morph :< morphbindtype.
cstem-morph :< morphbindtype.


v-or-c-stem-morph := vstem-morph & cstem-morph.

o-morph :< v-or-c-stem-morph.
u-morph :< v-or-c-stem-morph.
inf-morph :< v-or-c-stem-morph.
;cond-morph :< v-or-c-stem-morph.
i-or-t-or-a-morph :< v-or-c-stem-morph.
a-or-aa-morph :< i-or-t-or-a-morph.
a-morph :< a-or-aa-morph.

;;; (FCB 2003-08-12) type for "se zu" very irregular suru ending before zu
aa-morph :< a-or-aa-morph.

nd-morph :< cstem-morph.
mai-morph :< cstem-morph.
beki-morph :< cstem-morph.
imp-morph :< cstem-morph.
cond-morph :< cstem-morph.

; (MS 2004-12-21) Maybe we don't need this one any more?
;e-morph :< vstem-morph.

pass-morph :< morphbind.
pass-c-stem-morph := pass-morph & cstem-morph.
pass-v-stem-morph := pass-morph & vstem-morph.


ere-morph :< cond-morph.
cond-exceptional-morph :< cond-morph.

;(MS & FCB 2003-10-29) fixed the definition.

i-or-t-morph :< i-or-t-or-a-morph.
i-morph := i-or-t-morph & i-or-shortadj-morph.
t-morph :< i-or-t-morph.

i-or-shortadj-morph :< v-or-c-stem-morph.
shortadj-morph :< i-or-shortadj-morph.


stemtype :< sort.
regular-stem :< stemtype.
cons-stem :< regular-stem.
c-stem :< cons-stem. 
c2-stem :< cons-stem. 
v-stem :< regular-stem.

; (ERB 2002-01-22) To keep te (and possibly other tense
; endings) out of the i-adj-inflectional rule.

otherstem := stemtype.

irregular-stem  :< stemtype.

cop-stem :< irregular-stem.
da-stem :< cop-stem.
desu-stem  :< cop-stem.

adj-stem  :< irregular-stem.


kurusuru-stem  :< irregular-stem.


infinitive-stem :< stemtype.

nominal-stem  :< stemtype.
noun-stem :< nominal-stem.
poss-adv-stem :< nominal-stem.


pn :< sort.

person :< pn.
number :< pn.

; (ERB 2001-11-12) For the experiment I'm doing with -tai,
; I need a type one-or-two.

;one :< person.
one-or-two := person.
two-or-three := person.
one := one-or-two.
two := two-or-three & one-or-two.
three := two-or-three.

sg :< number.
pl :< number.

onesg := one & sg.
twosg := two & sg. 
threesg := three & sg.
onepl := one & pl.
twopl := two & pl.
threepl := three & pl.


; (MS 2005-03-01) andro should be fem or masc, but not neut (彼ら)
gender :< sort.
andro :< gender.
fem :< andro.
masc :< andro.
neut :< gender.


; (MS 2004-11-30) I want to distinguish between relatives and others,
; such that the others don't go into the relative clause rule.
; (MS 2005-03-29) intersective is not used any more.
; (MS 2005-07-04) we need something for compounds

posthead :< sort.
nonrels  :< posthead.
left :< nonrels.
right :< nonrels.
;;intersective :< nonrels.
rels :< posthead.
coord :< nonrels.
compound :< nonrels.

; (ERB 2002-01-24) To keep phrases produced by the conj-rule
; from being modified.  The multiple layers here allow for
; te-conjunction to either side of other kinds of conjucntion,
; while still forcing one order of combination within a kind
; of conjunction.

nucl :< sort.
fin_conj := nucl.
not_fin_conj := nucl.
te_conj := not_fin_conj.
nucl_bool := not_fin_conj.
nucl_plus := nucl_bool.
nucl_minus := nucl_bool.

; (MS 2004-11-09) We need to divide auxiliaries into aspectual and others to
; be able to state where zpros can be inserted.

aux :< sort.
aux_plus := aux.
aux_minus_or_complex := aux.
aux_minus := aux_minus_or_complex.
aspect_aux := aux_plus.
complex_aux := aux_plus & aux_minus_or_complex.