-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinfl-codes.tdl
62 lines (48 loc) · 1.1 KB
/
infl-codes.tdl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
;; Hey, emacs(1), this is -*- Mode: TDL; Coding: utf-8; -*- got it?
;;;;;
;;;;; INFLECTONAL TYPES
;;;;;
inflection := sort.
no-infl := inflection.
;;;;;;;;;;;;;;;;;;;; NOUN INFLECTION CODES ;;;;;;;;;;;;;;;;;;;;;
noun-infl := inflection.
m1-m2-n1-n2 := noun-infl.
m1-m2 := m1-m2-n1-n2.
n1-n2 := m1-m2-n1-n2.
m1 := m1-m2.
m2 := m1-m2.
m3 := noun-infl.
n1 := n1-n2.
n2 := n1-n2.
;;;;;;;;;;;;; ADJECTIVE INFLECTION CODES ;;;;;;;;;;;;;;;;;;;;;;
adj-infl := inflection.
a1-a2 := adj-infl.
a1-a5 := adj-infl.
a2-a3-a4 := adj-infl.
only-pos := adj-infl.
comp-sup := adj-infl.
a1 := a1-a5 & a1-a2.
a1a := a1 & only-pos.
a1b := a1 & comp-sup.
a2 := a2-a3-a4 & a1-a2.
a2a := a2 & only-pos.
a2b := a2 & comp-sup.
a3 := a2-a3-a4.
a3a := a3 & only-pos.
a3b := a3 & comp-sup.
a4 := a2-a3-a4.
a4a := a4 & only-pos.
a4b := a4 & comp-sup.
a5 := a1-a5.
a5a := a5 & only-pos.
a5b := a5 & comp-sup.
;;;;;;;;; VERB INFLECTION CODES ;;;;;;;;;;;;;;;;;;;
v-infl := inflection.
v1-v2-v3 := v-infl.
v1-v2 := v1-v2-v3.
v1-v3 := v1-v2-v3.
v2-v3 := v1-v2-v3.
v1 := v1-v2 & v1-v3.
v2 := v1-v2 & v2-v3.
v3 := v1-v3 & v2-v3.
v4 := v-infl.