/
db-defs.lisp
37 lines (30 loc) · 1.38 KB
/
db-defs.lisp
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
(in-package :wordnet)
;;;;; VIEW CLASS DEFINITIONS ;;;;;
; Each of the below are class definitions that we want to utilize
; when calling our methods
;
(def-view-class worddef ()
((lemma :accessor lemma :type (string 80) :initarg :lemma)
(pos :accessor pos :type (string 3) :initarg :pos)
(definition :accessor definition :type (string 9000) :initarg :definition))
(:base-table word_defs))
(def-view-class wordparse()
((lemma :accessor lemma :type (string 80) :initarg :lemma)
(synsetid :accessor synsetid :type integer :initarg :synsetid)
(parse :accessor parse :type (string 9000) :initarg :parse))
(:base-table word_parse))
(def-view-class hypernyms()
((hyponym :accessor hyponym :type (string 80) :initarg :hyponym)
(rank :accessor rank :type integer :initarg :rank)
(hypernym :accessor hypernym :type (string 80) :initarg :hypernym))
(:base-table hypernyms))
(def-view-class hyponyms()
((hypernym :accessor hypernym :type (string 80) :initarg :hypernym)
(rank :accessor rank :type integer :initarg :rank)
(hyponym :accessor hyponym :type (string 80) :initarg :hyponym))
(:base-table hyponyms))
(def-view-class synonyms ()
((orig_word :accessor orig_word :type (string 80) :initarg :orig_word)
(synonym :accessor synonym :type (string 80) :initarg :synonym)
(grammarpos :accessor grammarpos :type (string 5) :initarg :grammarpos))
(:base-table synonyms))