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),
|
Rep.CallEvent (find_operation t (#operation ev),
|
||||||
map (transform_parameter t) (#parameter ev))
|
map (transform_parameter t) (#parameter ev))
|
||||||
| transform_event t (XMI.SignalEvent 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) =
|
fun transform_proc t (XMI.mk_Procedure proc) =
|
||||||
Rep.Proc_mk { proc_id = #xmiid proc,
|
Rep.Proc_mk { proc_id = #xmiid proc,
|
||||||
|
@ -366,7 +366,8 @@ fun transform_classifier t (XMI.Class {xmiid,name,isActive,visibility,isLeaf,
|
||||||
supplierDependency,taggedValue}) =
|
supplierDependency,taggedValue}) =
|
||||||
let val parents = map ((find_classifier_type t) o (find_parent t))
|
let val parents = map ((find_classifier_type t) o (find_parent t))
|
||||||
generalizations
|
generalizations
|
||||||
val filtered_parents = filter (fn x => x <> Rep_OclType.OclAny) parents
|
(* FIXME: filter for classes vs. interfaces *)
|
||||||
|
val filtered_parents = filter (fn x => x <> Rep_OclType.OclAny) parents
|
||||||
val checked_invariants = filter_exists t invariant
|
val checked_invariants = filter_exists t invariant
|
||||||
in
|
in
|
||||||
Rep.Class {name = (* path_of_classifier *) (find_classifier_type t xmiid),
|
Rep.Class {name = (* path_of_classifier *) (find_classifier_type t xmiid),
|
||||||
|
|
Loading…
Reference in New Issue