X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=ba0f51c06ac9f4267bc97d25fc616d1ddb51fcbb;hb=90dcc29376b4e52a1ba4b7b86dd19ce9f81be4c5;hp=efa685feab503a063bbe5e03b58d5eb8964cd77b;hpb=12131484e6e61019e61a281e26d49aaf7dd83690;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index efa685f..ba0f51c 100644 --- a/classes.lisp +++ b/classes.lisp @@ -64,7 +64,7 @@ (rcui :value-type fixnum :initarg :rcui :reader rcui :print-formatter fmt-cui) (vsab :value-type string :initarg :vsab :reader vsab) (rsab :value-type string :initarg :rsab :reader rsab :hyperlink find-ustr-sab - :hyperlink-parameters (("subobjects" . "no"))) + :hyperlink-parameters (("subobjects" . "no"))) (son :value-type string :initarg :son :reader son) (sf :value-type string :initarg :sf :reader sf) (sver :value-type string :initarg :sver :reader sver) @@ -89,36 +89,17 @@ (:metaclass hyperobject-class) (:user-name "Source Abbreviation") (:default-print-slots vcui rcui vsab rsab son sf sver vstart vend imeta - 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)) + rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc + curver sabin ssn scit)) (defclass uhier (umlsclass) ((cui :value-type fixnum :initarg :cui :reader cui :hyperlink find-ucon-cui - :print-formatter fmt-cui) + :print-formatter fmt-cui) (aui :value-type fixnum :initarg :aui :reader aui :hyperlink find-ucon-aui - :print-formatter fmt-aui) + :print-formatter fmt-aui) (cxn :value-type fixnum :initarg :cxn :reader cxn) (paui :value-type fixnum :initarg :paui :reader paui - :print-formatter fmt-aui) + :print-formatter fmt-aui) (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (rela :value-type string :initarg :rela :reader rela) (ptr :value-type string :initarg :ptr :reader ptr) @@ -130,19 +111,18 @@ (defclass ustr (umlsclass) ((sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui - :hyperlink find-ustr-sui) + :hyperlink find-ustr-sui) (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) (lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui - :hyperlink find-uterm-lui) + :hyperlink find-uterm-lui) (cuisui :value-type integer :initarg :cuisui :reader cuisui ) (str :value-type cdata :initarg :str :reader str) (lrl :value-type fixnum :initarg :lrl :reader lrl) (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)) @@ -152,13 +132,13 @@ ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui :hyperlink find-ucon-aui) (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui - :hyperlink find-ucon-sui) + :hyperlink find-ucon-sui) (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) @@ -168,22 +148,11 @@ (: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) + :hyperlink find-uterm-lui) (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) (lat :value-type string :initarg :lat :reader lat) (ts :value-type string :initarg :ts :reader ts) (lrl :value-type fixnum :initarg :lrl :reader lrl) @@ -195,8 +164,8 @@ (defclass usty (umlsclass) ((tui :value-type fixnum :initarg :tui :reader tui :print-formatter fmt-tui - :hyperlink find-ucon-tui - :hyperlink-parameters (("subobjects" . "no"))) + :hyperlink find-ucon-tui + :hyperlink-parameters (("subobjects" . "no"))) (sty :value-type string :initarg :sty :reader sty)) (:metaclass hyperobject-class) (:user-name "Semantic Type") @@ -208,9 +177,9 @@ (aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui) (stype1 :value-type string :initarg :stype1 :reader stype1) (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-sui - :print-formatter fmt-cui) + :print-formatter fmt-cui) (aui2 :value-type fixnum :initarg :aui2 :reader aui2 :hyperlink find-ucon-aui - :print-formatter fmt-aui) + :print-formatter fmt-aui) (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) (stype2 :value-type string :initarg :stype2 :reader stype2) (rela :value-type string :initarg :rela :reader rela) @@ -230,9 +199,9 @@ ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) (aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui) (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) (aui2 :value-type fixnum :initarg :aui2 :reader aui2 :print-formatter fmt-aui - :hyperlink find-ucon-aui) + :hyperlink find-ucon-aui) (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) (sab :value-type string :initarg :sab :reader sab) (cot :value-type string :initarg :cot :reader cot) @@ -245,18 +214,17 @@ (defclass ucon (umlsclass) ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) (lrl :value-type fixnum :initarg :lrl :reader lrl - :subobject (find-lrl-cui cui)) + :compute-cached-value (find-lrl-cui cui)) (pfstr :value-type cdata :initarg :pfstr :reader pfstr - :subobject (find-pfstr-cui cui)) + :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)) @@ -268,7 +236,9 @@ (defclass uconso (umlsclass) ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) + (pfstr :value-type cdata :initarg :pfstr :reader pfstr + :compute-cached-value (find-pfstr-cui 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) @@ -298,7 +268,6 @@ (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)) @@ -306,7 +275,7 @@ (: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 "Concept") - (:default-print-slots cui lrl str sab)) + (:default-print-slots cui kcuilrl str sab)) (defclass umap (umlsclass) ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui) @@ -336,8 +305,8 @@ (:metaclass hyperobject-class) (:user-name "Mapping") (:default-print-slots mapsetcui mapsetsab mapsubsetid maprank fromid fromsid fromexpr fromtype - fromrule fromres rel rela toid tosid toexpr totype torule tores maprule - maptype mapatn mapatv)) + fromrule fromres rel rela toid tosid toexpr totype torule tores maprule + maptype mapatn mapatv)) (defclass usmap (umlsclass) ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui) @@ -403,7 +372,7 @@ (defclass lexterm (umlsclass) ((eui :value-type fixnum :initarg :eui :reader eui :print-formatter fmt-eui - :hyperlink find-lexterm-eui) + :hyperlink find-lexterm-eui) (wrd :value-type string :initarg :wrd :reader wrd) (s#abr :reader s#abr :subobject (find-labr-eui eui)) (s#agr :reader s#agr :subobject (find-lagr-eui eui)) @@ -560,7 +529,7 @@ (ui3 :value-type integer :initarg :ui3 :reader ui3 :print-formatter fmt-tui)) (:metaclass hyperobject-class) (:user-name "Fully Inherited Set of Relation (TUIs)" - "Fully Inherited Set of Relations (TUIs)") + "Fully Inherited Set of Relations (TUIs)") (:default-print-slots ui ui2 ui3)) (defclass sstre2 (umlsclass) @@ -569,7 +538,7 @@ (sty2 :value-type string :initarg :ui3 :reader sty2)) (:metaclass hyperobject-class) (:user-name "Fully Inherited Set of Relation (strings)" - "Fully Inherited Set of Relations (strings)") + "Fully Inherited Set of Relations (strings)") (:default-print-slots sty rl sty2)) @@ -580,8 +549,8 @@ (defclass ustats (umlsclass) ((name :value-type string :initarg :name :reader name) (hits :value-type integer :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer) + :user-name "count" + :print-formatter fmt-comma-integer) (srl :value-type fixnum :initarg :srl :reader srl)) (:metaclass hyperobject-class) (:default-initargs :name nil :hits nil :srl nil)