X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=classes.lisp;h=996a7cdde8bb2f781a23b38aabee46443dabad03;hp=0a926b617f1fcc42c23c6889bda2249f17a9f97f;hb=08af5459d3ba7d229a8339d242ef742cfe846861;hpb=e70c7b119ecfffb895d5536d0edb1fd373633038 diff --git a/classes.lisp b/classes.lisp index 0a926b6..996a7cd 100644 --- a/classes.lisp +++ b/classes.lisp @@ -32,12 +32,12 @@ (:default-print-slots sab srl) (:description "Custom Table: Source Restriction Level")) - + (defclass urank (umlsclass) ((rank :value-type fixnum :initarg :rank :reader rank) (sab :value-type string :initarg :sab :reader sab) (tty :value-type string :initarg :tty :reader tty) - (suppres :value-type string :initarg :suppres :reader suppres)) + (suppress :value-type string :initarg :suppress :reader suppress)) (:metaclass hyperobject-class) (:user-name "Rank") (:default-print-slots rank sab tty suppres)) @@ -147,7 +147,7 @@ (:user-name "String") (:default-print-slots sui stt lrl str suppress)) - + (defclass uso (umlsclass) ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui :hyperlink find-ucon-aui) @@ -158,10 +158,10 @@ (saui :value-type string :initarg :saui :reader saui) (sdui :value-type string :initarg :sdui :reader sdui) (scui :value-type string :initarg :scui :reader scui) - (tty :value-type string :initarg :tty :reader tty :hyperlink find-btty-tty) + (tty :value-type string :initarg :tty :reader tty) (code :value-type string :initarg :code :reader code) (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) - (lat :value-type string :initarg lat :reader lat) + (lat :value-type string :initarg :lat :reader lat) (str :value-type cdata :initarg :str :reader str) (srl :value-type fixnum :initarg :srl :reader srl)) (:metaclass hyperobject-class) @@ -214,7 +214,7 @@ (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) (stype2 :value-type string :initarg :stype2 :reader stype2) (rela :value-type string :initarg :rela :reader rela) - (rui :value-type string :initarg :rui :reader rui) + (rui :value-type fixnum :initarg :rui :reader rui :print-formatter fmt-rui) (srui :value-type string :initarg :srui :reader srui) (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (sl :value-type string :initarg :sl :reader sl) @@ -225,7 +225,7 @@ (:metaclass hyperobject-class) (:user-name "Relationship") (:default-print-slots stype1 rel cui2 aui2 stype2 rela rui srui sab sl rg dir suppress pfstr2)) - + (defclass ucoc (umlsclass) ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) (aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui) @@ -246,10 +246,15 @@ (defclass ucon (umlsclass) ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui :hyperlink find-ucon-cui) - (lrl :value-type fixnum :initarg :lrl :reader lrl) - (pfstr :value-type cdata :initarg :pfstr :reader pfstr) + (lrl :value-type fixnum :initarg :lrl :reader lrl + :subobject (find-lrl-cui cui)) + (pfstr :value-type cdata :initarg :pfstr :reader pfstr + :subobject (find-pfstr-cui cui)) (s#def :reader s#def :subobject (find-udef-cui cui)) (s#so :reader s#so :subobject (find-uso-cui cui)) + (s#hier :reader s#hier :subobject (find-uhier-cui cui)) + (s#map :reader s#map :subobject (find-umap-cui cui)) + (s#smap :reader s#smap :subobject (find-usmap-cui cui)) (s#sty :reader s#sty :subobject (find-usty-cui cui)) (s#lo :reader s#lo :subobject (find-ulo-cui cui)) (s#term :reader s#term :subobject (find-uterm-cui cui)) @@ -260,14 +265,48 @@ (:user-name "Concept") (:default-print-slots cui lrl pfstr)) -(defclass udoc (umlsclass) - ((key :value-type string :initarg :key :reader key) - (value :value-type cdata :initarg :value :reader value) - (type :value-type cdata :initarg :type :reader etype) - (expl :value-type cdata :initarg :expl :reader expl)) + +(defclass uconso (umlsclass) + ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui + :hyperlink find-ucon-cui) + (lat :value-type string :initarg :lat :reader lat) + (ts :value-type string :initarg :ts :reader ts) + (lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui) + (stt :value-type string :initarg :stt :reader stt) + (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui) + (ispref :value-type string :initarg :ispref :reader ispref) + (aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui) + (saui :value-type string :initarg :saui :reader saui) + (scui :value-type string :initarg :scui :reader scui) + (sdui :value-type string :initarg :sdui :reader sdui) + (sab :value-type string :initarg :sab :reader sab) + (tty :value-type string :initarg :tty :reader tty) + (code :value-type string :initarg :code :reader code) + (str :value-type string :initarg :str :reader str) + (srl :value-type fixnum :initarg :srl :reader srl) + (suppress :value-type string :initarg :suppress :reader suppress) + (cvf :value-type string :initarg :cvf :reader cvf) + (kpfeng :value-type string :initarg :kpfeng :reader kpfeng) + (kcuisui :value-type bigint :initarg :kcuisui :reader kcuisui) + (kcuilui :value-type bigint :initarg :kcuilui :reader kcuilui) + (kcuilrl :value-type fixnum :initarg :kcuilrl :reader kcuilrl) + (kluilrl :value-type fixnum :initarg :kluilrl :reader kluilrl) + (ksuilrl :value-type fixnum :initarg :ksuilrl :reader ksuilrl) + (s#def :reader s#def :subobject (find-udef-cui cui)) + (s#so :reader s#so :subobject (find-uso-cui cui)) + (s#hier :reader s#hier :subobject (find-uhier-cui cui)) + (s#map :reader s#map :subobject (find-umap-cui cui)) + (s#smap :reader s#smap :subobject (find-usmap-cui cui)) + (s#sty :reader s#sty :subobject (find-usty-cui cui)) + (s#lo :reader s#lo :subobject (find-ulo-cui cui)) + (s#term :reader s#term :subobject (find-uterm-cui cui)) + (s#sat :reader s#sat :subobject (find-usat-ui cui)) + (s#rel :reader s#rel :subobject (find-urel-cui cui)) + (s#coc :reader s#coc :subobject (find-ucoc-cui cui))) + (:documentation "CONSO is a new concept from the RRF files. This object is a rather raw row from the MRCONSO table.") (:metaclass hyperobject-class) - (:user-name "Abbreviation Documentation") - (:default-print-slots key value type expl)) + (:user-name "Concept") + (:default-print-slots cui lrl str sab)) (defclass umap (umlsclass) ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui) @@ -350,6 +389,15 @@ (:user-name "XNS Index" "XNS Indices") (:default-print-slots lat nstr cuilist)) +(defclass udoc (umlsclass) + ((dockey :value-type string :initarg :dockey :reader dockey) + (expl :value-type cdata :initarg :expl :reader expl) + (dtype :value-type cdata :initarg :dtype :reader dtype) + (dvalue :value-type cdata :initarg :dvalue :reader dvalue)) + (:metaclass hyperobject-class) + (:user-name "Documentation record") + (:default-print-slots dockey expl dtype dvalue)) + ;;; LEX objects