HOL-OCL
/
su4sml
1
0
Fork 0
Code Issues Pull Requests Releases Activity

logging strings added 

git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7934 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
Manuel Krucker 2008-05-09 14:38:55 +00:00
parent c104e1e43c
commit 8f9d1dc99d
1 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
su4sml/src/wfcpog/wfcpog_registry.sml
View File

@ -453,7 +453,9 @@ fun check_wfc model wfc =
end
fun check_wfcs model wfcs =
List.concat (map (fn (a as WFCPOG.WFPO{identifier,name,description,recommended,depends,recommends,apply,data}:WFCPOG.wfpo) =>
let
val _ = trace function_calls ("WFCPOG_Registry.check_wfcs\n")
val res = List.concat (map (fn (a as WFCPOG.WFPO{identifier,name,description,recommended,depends,recommends,apply,data}:WFCPOG.wfpo) =>
if (depends = [])
then [(check_wfc model a)]
else
@ -472,6 +474,10 @@ fun check_wfcs model wfcs =
then raise WFCPOG_RegistryError ("A wellformedness check has a proof obligation marked as depending. But this is not allowed! \n\nCHANGE WFCPOG_Registry.supported_wfs ENTRY(IES)!!!")
else (List.map (check_wfc model) depending_wfcs)@[(check_wfc model a)]
end) wfcs)
val _ = trace function_ends ("WFCPOG_Registry.check_wfcs\n")
in
res
end
fun generate_po model po =
let