1
2
3
4
5
6
7
8
9
10
11
12
...
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
; [ʞ] verb.scm
; ~ lexi hale <lexi@hale.su>
; © affero general public license
; > (load "lib/lisp-macro.scm")
; (load "lib/struct.scm")
; (load "lib/verb.scm")
; macros, functions, and rules for conjugating verbs and
; generating verb phrases. this library rules was written
; specifically for english verbs and cannot be used as a
; "drop-in" library for other languages; however, the
; structured and functions used are sufficiently generic
................................................................................
; e.g. drink → drank
(inf [stem] *o*)
(prs [stem "s"] *o*)
(ger [stem "ing"] *o*)
(adj [stem "ing"] *o*)
(pst [ipst] *o*)
(ppl [ippl] *o*))
(verb-form (irregular iinf iprs iger ipst ippl)
; e.g. have → has → had
(inf [iinf] *o*)
(prs [iprs] *o*)
(ger [iger] *o*)
(adj [iger] *o*)
|
|
1
2
3
4
5
6
7
8
9
10
11
12
...
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
; [ʞ] verb.scm
; ~ lexi hale <lexi@hale.su>
; © affero general public license
; > (load "lib/lisp-macro.scm")
; (load "lib/fn-struct.scm")
; (load "lib/verb.scm")
; macros, functions, and rules for conjugating verbs and
; generating verb phrases. this library rules was written
; specifically for english verbs and cannot be used as a
; "drop-in" library for other languages; however, the
; structured and functions used are sufficiently generic
................................................................................
; e.g. drink → drank
(inf [stem] *o*)
(prs [stem "s"] *o*)
(ger [stem "ing"] *o*)
(adj [stem "ing"] *o*)
(pst [ipst] *o*)
(ppl [ippl] *o*))
(verb-form (strong-heavy stem final ipst ippl)
; e.g. drink → drank
(inf [stem] *o*)
(prs [stem "s"] *o*)
(ger [stem final "ing"] *o*)
(adj [stem final "ing"] *o*)
(pst [ipst] *o*)
(ppl [ippl] *o*))
(verb-form (irregular iinf iprs iger ipst ippl)
; e.g. have → has → had
(inf [iinf] *o*)
(prs [iprs] *o*)
(ger [iger] *o*)
(adj [iger] *o*)
|