X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=9210e6fcf0720f3640c49fc19d74cd09c840a43f;hb=5265bd2d2382c51c7bbef19c150466eb1afd58bd;hp=fe8bf41b2aae859fb263706591fe91d3f2eedf2b;hpb=672c4a6653769dd13609822eee43ab09dd6d3f3f;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index fe8bf41..9210e6f 100644 --- a/classes.lisp +++ b/classes.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: classes.lisp,v 1.31 2003/04/17 05:39:31 kevin Exp $ +;;;; $Id: classes.lisp,v 1.33 2003/05/14 05:37:48 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -224,7 +224,18 @@ (lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui) (sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui)) (:metaclass hyperobject-class) - (:user-name "XW Index") + (:user-name "XW Index" "XW Indices") + (:default-print-slots wd cui lui sui)) + +(defclass uxw-noneng (umlsclass) + ((lat :value-type string :initarg :lat :reader lat) + (wd :value-type string :initarg :wd :reader wd) + (cui :value-type fixnum :initform nil :initarg :cui :reader cui :print-formatter fmt-cui) + (lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui) + (sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui) + (lrl :value-type fixnum :initform nil :initarg :lrl :reader lrl)) + (:metaclass hyperobject-class) + (:user-name "XW Non-English Index" "XW Non-English Indices") (:default-print-slots wd cui lui sui)) (defclass uxnw (umlsclass) @@ -232,7 +243,7 @@ (nwd :value-type string :initarg :nwd :reader nwd) (cuilist :value-type list :initarg :cuilist :reader uxnw-cuilist)) (:metaclass hyperobject-class) - (:user-name "XNW Index") + (:user-name "XNW Index" "XNW Indices") (:default-print-slots lat nwd cuilist)) (defclass uxns (umlsclass) @@ -240,7 +251,7 @@ (nstr :value-type string :initarg :nstr :reader nstr) (cuilist :value-type list :initarg :cuilist :reader cuilist)) (:metaclass hyperobject-class) - (:user-name "XNS Index") + (:user-name "XNS Index" "XNS Indices") (:default-print-slots lat nstr cuilist)) @@ -272,7 +283,7 @@ (eui2 :value-type integer :initarg :eui2 :reader eui2 :print-formatter fmt-eui) (bas2 :value-type string :initarg :bas2 :reader bas2)) (:metaclass hyperobject-class) - (:user-name "Abbreviations and Acronyms") + (:user-name "Abbreviations and Acronym") (:default-print-slots eui bas abr eui2 bas2)) (defclass lagr (umlsclass) @@ -302,7 +313,7 @@ (psnmod :value-type string :initarg :psnmod :reader psnmod) (fea :value-type string :initarg :fea :reader fea)) (:metaclass hyperobject-class) - (:user-name "Modifiers") + (:user-name "Modifier") (:default-print-slots eui bas sca psnmod fea)) (defclass lnom (umlsclass) @@ -313,7 +324,7 @@ (bas2 :value-type string :initarg :bas2 :reader bas2) (sca2 :value-type string :initarg :sca2 :reader sca2)) (:metaclass hyperobject-class) - (:user-name "Nominalizations") + (:user-name "Nominalization") (:default-print-slots eui bas sca eui2 bas2 sca2)) (defclass lprn (umlsclass) @@ -326,7 +337,7 @@ (qnt :value-type string :initarg :qnt :reader qnt) (fea :value-type string :initarg :fea :reader fea)) (:metaclass hyperobject-class) - (:user-name "Pronouns") + (:user-name "Pronoun") (:default-print-slots eui bas num gnd cas pos qnt fea)) (defclass lprp (umlsclass) @@ -336,7 +347,7 @@ (sca :value-type string :initarg :sca :reader sca) (fea :value-type string :initarg :fea :reader fea)) (:metaclass hyperobject-class) - (:user-name "Properties") + (:user-name "Property" "Properties") (:default-print-slots eui bas str sca fea)) @@ -345,7 +356,7 @@ (spv :value-type string :initarg :spv :reader spv) (bas :value-type string :initarg :bas :reader bas)) (:metaclass hyperobject-class) - (:user-name "Spelling Variants") + (:user-name "Spelling Variant") (:default-print-slots eui spv bas)) @@ -354,7 +365,7 @@ (bas :value-type string :initarg :bas :reader bas) (gen :value-type string :initarg :gen :reader gen)) (:metaclass hyperobject-class) - (:user-name "Trade Marks") + (:user-name "Trade Mark") (:default-print-slots eui bas gen)) (defclass ltyp (umlsclass) @@ -370,7 +381,7 @@ ((wrd :value-type string :initarg :wrd :reader wrd) (euilist :value-type list :initarg :euilist :reader euilist)) (:metaclass hyperobject-class) - (:user-name "Lexical Word Index") + (:user-name "Lexical Word Index" "Lexical Word Indices") (:default-print-slots wrd euilist)) ;;; Semantic NET objects @@ -387,7 +398,7 @@ (abr :value-type string :initarg :abr :reader abr) (rin :value-type string :initarg :rin :reader rin)) (:metaclass hyperobject-class) - (:user-name "Basic information about Semantic Types and Relations") + (:user-name "Basic information about Semantic Types and Relation") (:default-print-slots rt ui styrl stnrtn def ex un rh abr rin)) (defclass sstr (umlsclass) @@ -404,7 +415,8 @@ (ui2 :value-type integer :initarg :ui2 :reader ui2 :print-formatter fmt-tui) (ui3 :value-type integer :initarg :ui3 :reader ui3 :print-formatter fmt-tui)) (:metaclass hyperobject-class) - (:user-name "Fully Inherited Set of Releatons (TUI's)") + (:user-name "Fully Inherited Set of Relation (TUIs)" + "Fully Inherited Set of Relations (TUIs)") (:default-print-slots ui ui2 ui3)) (defclass sstre2 (umlsclass) @@ -412,6 +424,7 @@ (rl :value-type string :initarg :ui2 :reader rl) (sty2 :value-type string :initarg :ui3 :reader sty2)) (:metaclass hyperobject-class) - (:user-name "Fully Inherited Set of Releatons (strings)") + (:user-name "Fully Inherited Set of Relation (strings)" + "Fully Inherited Set of Relations (strings)") (:default-print-slots sty rl sty2))