New pointer type for WordNet 3,1 database

[reanz59]

parse-wordnet-data.lisp needs to include:

(define-wordnet-pointer-symbol "+" :adverb :derivationally-related-form) ; added by reanz1959

Complete set of pointer symbols should now be:

(progn ;; It's debatable which of these should or shouldn't be considered transitive. ;; I made a quick guess and could easily be wrong about some of these. Let me ;; know what you think. (define-wordnet-pointer-type :also-see nil nil) (define-wordnet-pointer-type :antonym nil nil) (define-wordnet-pointer-type :attribute nil nil) (define-wordnet-pointer-type :cause :up nil) (define-wordnet-pointer-type :derived-from nil nil) (define-wordnet-pointer-type :entailment t :up) (define-wordnet-pointer-type :hypernym t :up :hyponym) (define-wordnet-pointer-type :substance-hypernym t :up :substance-hyponym) (define-wordnet-pointer-type :instance-hypernym t :up :instance-hyponym) (define-wordnet-pointer-type :member-holonym nil :up :member-meronym) (define-wordnet-pointer-type :part-holonym t :up :part-meronym) (define-wordnet-pointer-type :participle-of-verb nil nil) (define-wordnet-pointer-type :pertainym nil nil) (define-wordnet-pointer-type :similar-to nil nil) (define-wordnet-pointer-type :substance-holonym t :up :substance-meronym) (define-wordnet-pointer-type :verb-group nil nil) (define-wordnet-pointer-type :derivationally-related-form nil nil) (define-wordnet-pointer-type :domain-of-synset-topic nil :down :member-of-domain-topic) (define-wordnet-pointer-type :domain-of-synset-region nil :down :member-of-domain-region) (define-wordnet-pointer-type :domain-of-synset-usage nil :down :member-of-domain-usage)

(define-wordnet-pointer-symbol "!" :noun :antonym) (define-wordnet-pointer-symbol "@" :noun :hypernym) (define-wordnet-pointer-symbol "~" :noun :hyponym) (define-wordnet-pointer-symbol "@i" :noun :substance-hypernym) (define-wordnet-pointer-symbol "~i" :noun :substance-hyponym) (define-wordnet-pointer-symbol "#m" :noun :member-meronym) (define-wordnet-pointer-symbol "#s" :noun :substance-meronym) (define-wordnet-pointer-symbol "#p" :noun :part-meronym) (define-wordnet-pointer-symbol "%m" :noun :member-holonym) (define-wordnet-pointer-symbol "%s" :noun :substance-holonym) (define-wordnet-pointer-symbol "%p" :noun :part-holonym) (define-wordnet-pointer-symbol "=" :noun :attribute) (define-wordnet-pointer-symbol "+" :noun :derivationally-related-form) (define-wordnet-pointer-symbol ";c" :noun :domain-of-synset-topic) (define-wordnet-pointer-symbol "-c" :noun :member-of-domain-topic) (define-wordnet-pointer-symbol ";r" :noun :domain-of-synset-region) (define-wordnet-pointer-symbol "-r" :noun :member-of-domain-region) (define-wordnet-pointer-symbol ";u" :noun :domain-of-synset-usage) (define-wordnet-pointer-symbol "-u" :noun :member-of-domain-usage)

(define-wordnet-pointer-symbol "!" :verb :antonym) (define-wordnet-pointer-symbol "@" :verb :hypernym) (define-wordnet-pointer-symbol "~" :verb :hyponym) (define-wordnet-pointer-symbol "*" :verb :entailment) (define-wordnet-pointer-symbol ">" :verb :cause) (define-wordnet-pointer-symbol "^" :verb :also-see) (define-wordnet-pointer-symbol "$" :verb :verb-group) (define-wordnet-pointer-symbol "+" :verb :derivationally-related-form) (define-wordnet-pointer-symbol ";c" :verb :domain-of-synset-topic) (define-wordnet-pointer-symbol ";r" :verb :domain-of-synset-region) (define-wordnet-pointer-symbol ";u" :verb :domain-of-synset-usage)

(define-wordnet-pointer-symbol "!" :adjective :antonym) (define-wordnet-pointer-symbol "&" :adjective :similar-to) (define-wordnet-pointer-symbol "<" :adjective :participle-of-verb) (define-wordnet-pointer-symbol "\" :adjective :pertainym) (define-wordnet-pointer-symbol "=" :adjective :attribute) (define-wordnet-pointer-symbol "^" :adjective :also-see) (define-wordnet-pointer-symbol "+" :adjective :derivationally-related-form) (define-wordnet-pointer-symbol ";c" :adjective :domain-of-synset-topic) (define-wordnet-pointer-symbol ";r" :adjective :domain-of-synset-region) (define-wordnet-pointer-symbol ";u" :adjective :domain-of-synset-usage)

(define-wordnet-pointer-symbol "!" :adverb :antonym) (define-wordnet-pointer-symbol "+" :adverb :derivationally-related-form) ; added by reanz1959
(define-wordnet-pointer-symbol "\" :adverb :derived-from) (define-wordnet-pointer-symbol ";c" :adverb :domain-of-synset-topic) (define-wordnet-pointer-symbol ";r" :adverb :domain-of-synset-region) (define-wordnet-pointer-symbol ";u" :adverb :domain-of-synset-usage))