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

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

@ -453,26 +453,32 @@ fun check_wfc model wfc =
end end
fun check_wfcs model wfcs = fun check_wfcs model wfcs =
List.concat (map (fn (a as WFCPOG.WFPO{identifier,name,description,recommended,depends,recommends,apply,data}:WFCPOG.wfpo) => let
if (depends = []) val _ = trace function_calls ("WFCPOG_Registry.check_wfcs\n")
then [(check_wfc model a)] val res = List.concat (map (fn (a as WFCPOG.WFPO{identifier,name,description,recommended,depends,recommends,apply,data}:WFCPOG.wfpo) =>
else if (depends = [])
let then [(check_wfc model a)]
val depending_wfpos = List.map (set_data (get_wfpo supported)) depends else
val depending_wfcs = List.filter (fn b => let
case (WFCPOG.apply_of b) of val depending_wfpos = List.map (set_data (get_wfpo supported)) depends
WFCPOG.WFC(x) => true val depending_wfcs = List.filter (fn b =>
| WFCPOG.POG(x) => false) depending_wfpos case (WFCPOG.apply_of b) of
val depending_pos = List.filter (fn b => WFCPOG.WFC(x) => true
case (WFCPOG.apply_of b) of | WFCPOG.POG(x) => false) depending_wfpos
WFCPOG.WFC(x) => false val depending_pos = List.filter (fn b =>
| WFCPOG.POG(x) => true) depending_wfpos case (WFCPOG.apply_of b) of
in WFCPOG.WFC(x) => false
if (List.length depending_pos <> 0) | WFCPOG.POG(x) => true) depending_wfpos
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)!!!") in
else (List.map (check_wfc model) depending_wfcs)@[(check_wfc model a)] if (List.length depending_pos <> 0)
end) 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 = fun generate_po model po =
let let
val _ = trace function_calls ("WFCPOG_Registry.generate_po\n") val _ = trace function_calls ("WFCPOG_Registry.generate_po\n")