X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=c21574e18c118006a0c2aa8d583d450ec72320e0;hb=3c963bdf7389ec0d00b893fb7b7757ab884f3222;hp=fcc26f97b3e81a48558bdbdf90fb6ddf869d0d8b;hpb=d8fe27c58aa49f4a19f8b0dc11f97e0db7662e9e;p=umlisp-orf.git diff --git a/classes.lisp b/classes.lisp index fcc26f9..c21574e 100644 --- a/classes.lisp +++ b/classes.lisp @@ -32,7 +32,7 @@ (: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) @@ -63,7 +63,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) @@ -86,8 +86,8 @@ (: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)) + rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc + curver sabin)) (defclass uso (umlsclass) ((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) @@ -106,7 +106,7 @@ (cxl :value-type string :initarg :cxl :reader cxl) (cxs :value-type cdata :initarg :cxs :reader cxs) (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui - :print-formatter fmt-cui) + :print-formatter fmt-cui) (hcd :value-type string :initarg :hcd :reader hcd) (rela :value-type string :initarg :rela :reader rela) (xc :value-type string :initarg :xc :reader xc)) @@ -116,11 +116,11 @@ (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) @@ -145,9 +145,9 @@ (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) @@ -159,8 +159,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") @@ -170,7 +170,7 @@ ((rel :value-type string :initarg :rel :reader rel :hyperlink find-brel-rel) (cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-sui - :print-formatter fmt-cui) + :print-formatter fmt-cui) (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) (rela :value-type string :initarg :rela :reader rela) (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) @@ -179,11 +179,11 @@ (:metaclass hyperobject-class) (:user-name "Relationship") (:default-print-slots rel rela sab sl mg cui2 pfstr2)) - + (defclass ucoc (umlsclass) ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui - :hyperlink find-ucon-cui) + :hyperlink find-ucon-cui) (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2) (soc :value-type string :initarg :soc :reader soc) (cot :value-type string :initarg :cot :reader cot) @@ -193,7 +193,7 @@ (:user-name "Co-occuring Concept") (:default-print-slots soc cot cof coa cui2 pfstr2)) - + (defclass uatx (umlsclass) ((sab :value-type string :initarg :sab :reader sab) (rel :value-type string :initarg :rel :reader rel) @@ -204,7 +204,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) (pfstr :value-type cdata :initarg :pfstr :reader pfstr) (s#def :reader s#def :subobject (find-udef-cui cui)) @@ -260,7 +260,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)) @@ -417,7 +417,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) @@ -426,7 +426,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)) @@ -437,8 +437,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) @@ -446,41 +446,41 @@ (:default-print-slots name hits srl) (:documentation "Custom Table: UMLS Database statistics.")) - + (defclass bsab (umlsclass) ((sab :value-type string :initarg :sab :reader sab - :hyperlink find-ustr-sab - :hyperlink-parameters (("subobjects" . "no"))) + :hyperlink find-ustr-sab + :hyperlink-parameters (("subobjects" . "no"))) (name :value-type string :initarg :name :reader name) (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer)) + :user-name "count" + :print-formatter fmt-comma-integer)) (:metaclass hyperobject-class) (:default-initargs :sab nil :name nil :hits nil) (:user-name "Source of Abbreviation") (:default-print-slots sab name hits) (:documentation "Bonus SAB file")) - + (defclass btty (umlsclass) ((tty :value-type string :initarg :tty :reader tty) (name :value-type string :initarg :name :reader name) (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer)) + :user-name "count" + :print-formatter fmt-comma-integer)) (:metaclass hyperobject-class) (:default-initargs :tty nil :name nil :hits nil) (:user-name "Bonus TTY") (:default-print-slots tty name hits) (:documentation "Bonus TTY file")) - + (defclass brel (umlsclass) ((sab :value-type string :initarg :sab :reader sab) (sl :value-type string :initarg :sl :reader sl) (rel :value-type string :initarg :rel :reader rel) (rela :value-type string :initarg :rela :reader rela) (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-integer)) + :user-name "count" + :print-formatter fmt-comma-integer)) (:metaclass hyperobject-class) (:default-initargs :sab nil :sl nil :rel nil :rela nil :hits nil) (:user-name "Bonus REL") @@ -491,8 +491,8 @@ ((sab :value-type string :initarg :sab :reader sab) (atn :value-type string :initarg :atn :reader atn) (hits :value-type fixnum :initarg :hits :reader hits - :user-name "count" - :print-formatter fmt-comma-intger)) + :user-name "count" + :print-formatter fmt-comma-intger)) (:metaclass hyperobject-class) (:default-initargs :sab nil :atn nil) (:user-name "Bonus ATN")