git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@6298 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
c61da0fcbd
commit
87d9937b8d
|
@ -36,12 +36,6 @@ open Rep_Core
|
||||||
open Rep_OclType
|
open Rep_OclType
|
||||||
val OclLibPackage="oclLib"
|
val OclLibPackage="oclLib"
|
||||||
|
|
||||||
fun is_oclLib c = let
|
|
||||||
fun listin _ [] = false
|
|
||||||
| listin e (x::xs) = if e=x then true else listin e xs
|
|
||||||
in
|
|
||||||
listin c oclLib
|
|
||||||
end
|
|
||||||
|
|
||||||
val oclLib =
|
val oclLib =
|
||||||
[Template
|
[Template
|
||||||
|
@ -1243,4 +1237,10 @@ val oclLib =
|
||||||
}
|
}
|
||||||
] : Rep_Core.Classifier list
|
] : Rep_Core.Classifier list
|
||||||
|
|
||||||
|
fun is_oclLib c = let
|
||||||
|
fun listin _ [] = false
|
||||||
|
| listin e (x::xs) = if e=x then true else listin e xs
|
||||||
|
in
|
||||||
|
listin c oclLib
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue