adjusted signal events
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@5905 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
a3ca4d56c5
commit
a51a155041
|
@ -306,7 +306,7 @@ fun transform_event t (XMI.CallEvent ev) =
|
|||
Rep.CallEvent (find_operation t (#operation ev),
|
||||
map (transform_parameter t) (#parameter ev))
|
||||
| transform_event t (XMI.SignalEvent ev) =
|
||||
Rep.SignalEvent []
|
||||
Rep.SignalEvent (map (transform_parameter t) (#parameter ev))
|
||||
|
||||
fun transform_proc t (XMI.mk_Procedure proc) =
|
||||
Rep.Proc_mk { proc_id = #xmiid proc,
|
||||
|
@ -366,6 +366,7 @@ fun transform_classifier t (XMI.Class {xmiid,name,isActive,visibility,isLeaf,
|
|||
supplierDependency,taggedValue}) =
|
||||
let val parents = map ((find_classifier_type t) o (find_parent t))
|
||||
generalizations
|
||||
(* FIXME: filter for classes vs. interfaces *)
|
||||
val filtered_parents = filter (fn x => x <> Rep_OclType.OclAny) parents
|
||||
val checked_invariants = filter_exists t invariant
|
||||
in
|
||||
|
|
Loading…
Reference in New Issue