X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=d965e92baa8febf1120eca4306e2982e405e2d3c;hb=7aadf2bbca30301d2479a21edbcdcb6e12da5cd0;hp=0a926b617f1fcc42c23c6889bda2249f17a9f97f;hpb=e70c7b119ecfffb895d5536d0edb1fd373633038;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index 0a926b6..d965e92 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)) @@ -92,25 +92,6 @@ rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc curver sabin ssn scit)) -(defclass ucxt (umlsclass) - ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) - (code :value-type string :initarg :code :reader code) - (cxn :value-type fixnum :initarg :cxn :reader cxn) - (cxl :value-type string :initarg :cxl :reader cxl) - (rank :value-type string :initarg :rank :reader rank) - (cxs :value-type cdata :initarg :cxs :reader cxs) - (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui - :print-formatter fmt-cui) - (aui2 :value-type fixnum :initarg :aui2 :reader aui2 :hyperlink find-ucon-aui - :print-formatter fmt-aui) - (hcd :value-type string :initarg :hcd :reader hcd) - (rela :value-type string :initarg :rela :reader rela) - (xc :value-type string :initarg :xc :reader xc) - (cvf :value-type string :initarg :cvf :reader cvf)) - (:metaclass hyperobject-class) - (:user-name "Context") - (:default-print-slots sab code cxn cxl hcd rela xc cui2 cxs)) - (defclass uhier (umlsclass) ((cui :value-type fixnum :initarg :cui :reader cui :hyperlink find-ucon-cui :print-formatter fmt-cui) @@ -141,13 +122,12 @@ (stt :value-type string :initarg :stt :reader stt) (suppress :value-type string :initarg :suppress :reader suppress) (s#so :reader s#so :subobject (find-uso-cuisui cui sui)) - (s#sat :reader s#sat :subobject (find-usat-ui cui lui sui)) - (s#cxt :reader s#cxt :subobject (find-ucxt-cuisui cui sui))) + (s#sat :reader s#sat :subobject (find-usat-ui cui lui sui))) (:metaclass hyperobject-class) (: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,27 +138,16 @@ (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) (:user-name "Source") (:default-print-slots aui sab code saui sdui scui tty srl)) -(defclass ulo (umlsclass) - ((isn :value-type string :initarg :isn :reader isn) - (fr :value-type fixnum :initarg :fr :reader fr) - (un :value-type string :initarg :un :reader un) - (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui) - (sna :value-type string :initarg :sna :reader sna) - (soui :value-type string :initarg :soui :reader soui)) - (:metaclass hyperobject-class) - (:user-name "Locator") - (:default-print-slots isn fr un sna soui sui)) - (defclass uterm (umlsclass) ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui :hyperlink find-uterm-lui) @@ -214,7 +183,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 +194,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,12 +215,16 @@ (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 + :compute-cached-value (find-lrl-cui cui)) + (pfstr :value-type cdata :initarg :pfstr :reader pfstr + :compute-cached-value (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)) (s#sat :reader s#sat :subobject (find-usat-ui cui)) (s#rel :reader s#rel :subobject (find-urel-cui cui)) @@ -260,14 +233,47 @@ (: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#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 kcuilrl str sab)) (defclass umap (umlsclass) ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui) @@ -350,6 +356,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