git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@6294 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
90af330bfb
commit
f498c9cb19
|
@ -446,6 +446,7 @@ fun name_of (Class{name,...}) = path_of_OclType name
|
|||
| name_of (Interface{name,...}) = path_of_OclType name
|
||||
| name_of (Enumeration{name,...}) = path_of_OclType name
|
||||
| name_of (Primitive{name,...}) = path_of_OclType name
|
||||
| name_of (Template{classifier,...}) = name_of classifier
|
||||
| name_of _ = error "in Rep.name_of: Classifier has no name represenation"
|
||||
|
||||
fun short_name_of C = case (name_of C) of
|
||||
|
|
Loading…
Reference in New Issue