X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=ba0f51c06ac9f4267bc97d25fc616d1ddb51fcbb;hb=90dcc29376b4e52a1ba4b7b86dd19ce9f81be4c5;hp=d054bdd382cb09953b0ca0eb09b5db205867817c;hpb=2602e82650f294955a06228db3d4b6a872f1485c;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index d054bdd..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,17 +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)) + 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) @@ -111,18 +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 lui :sui 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)) @@ -132,9 +132,9 @@ ((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) @@ -150,22 +150,22 @@ (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) (s#str :reader s#str :subobject (find-ustr-cuilui cui lui)) - (s#sat :reader s#sat :subobject (find-usat-ui cui :lui lui))) + (s#sat :reader s#sat :subobject (find-usat-ui cui lui))) (:metaclass hyperobject-class) (:user-name "Term") (:default-print-slots lui lat ts lrl)) (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") @@ -177,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) @@ -199,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) @@ -214,7 +214,7 @@ (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 :compute-cached-value (find-lrl-cui cui)) (pfstr :value-type cdata :initarg :pfstr :reader pfstr @@ -236,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) @@ -303,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) @@ -370,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)) @@ -527,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) @@ -536,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)) @@ -547,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)