X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=cdc4d561648b62b234ad293f6ba58b6b446086f2;hb=357dad37300c0f2cc45156dae18bd89265c20431;hp=aed5b64b2ccc98a3365f3ae622e36b21c399ac61;hpb=c88fbfe8bd947b12c89f32effaf328699ba067ab;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index aed5b64..cdc4d56 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) @@ -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) @@ -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) @@ -250,6 +250,9 @@ (pfstr :value-type cdata :initarg :pfstr :reader pfstr) (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))