git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@8369 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
4318d446e0
commit
ef3d967d8a
|
@ -826,41 +826,41 @@ fun check_context_list [] model = []
|
||||||
val s2 = ("Error Message: " ^ mes ^ "\n")
|
val s2 = ("Error Message: " ^ mes ^ "\n")
|
||||||
val _ = trace exce (s1^s2)
|
val _ = trace exce (s1^s2)
|
||||||
in
|
in
|
||||||
raise TC_OperationWithTypeError mes
|
raise TC_WrongContextChecked h
|
||||||
|
end
|
||||||
|
| TC_NoSuchAttributeError mes =>
|
||||||
|
let
|
||||||
|
val s1 = ("TC_NoSuchAttributeError:\n")
|
||||||
|
val s2 = ("Error Message: " ^ mes ^ "\n")
|
||||||
|
val _ = trace exce (s1^s2)
|
||||||
|
in
|
||||||
|
raise TC_WrongContextChecked h
|
||||||
|
end
|
||||||
|
| GetClassifierError mes =>
|
||||||
|
let
|
||||||
|
val s1 = ("GetClassifierError:\n")
|
||||||
|
val s2 = ("Error Message: " ^ mes ^ "\n")
|
||||||
|
val _ = trace exce (s1^s2)
|
||||||
|
in
|
||||||
|
raise TC_WrongContextChecked h
|
||||||
|
end
|
||||||
|
| TC_NoSuchOperationError mes =>
|
||||||
|
let
|
||||||
|
val s1 = ("TC_NoSuchOperationError:\n")
|
||||||
|
val s2 = ("Error Message: " ^ mes ^ "\n")
|
||||||
|
val _ = trace exce (s1^s2)
|
||||||
|
in
|
||||||
|
raise TC_WrongContextChecked h
|
||||||
end
|
end
|
||||||
)::(check_context_list context_list_tail model))
|
)::(check_context_list context_list_tail model))
|
||||||
handle(* TC_WrongContextChecked h => *)
|
handle TC_WrongContextChecked h =>
|
||||||
(* let *)
|
|
||||||
(* val s1 = ("\n\n#################################################\n") *)
|
|
||||||
(* val s2 = ("WrongContextChecked:\n") *)
|
|
||||||
(* val s3 = ("In Context: " ^ (cxt_list2string [h]) ^ "\n") *)
|
|
||||||
(* val _ = trace exce (s1^s2^s3) *)
|
|
||||||
(* in *)
|
|
||||||
(* raise TC_RootError ("Something went wrong!\n") *)
|
|
||||||
(* end *)
|
|
||||||
(* | *) TC_NoSuchAttributeError s =>
|
|
||||||
let
|
let
|
||||||
val s1 = ("\n\n#################################################\n")
|
val s1 = ("\n\n#################################################\n")
|
||||||
val s2 = ("Attribute not found: "^s^ "\n")
|
val s2 = ("WrongContextChecked:\n")
|
||||||
val _ = print s2
|
val s3 = ("In Context: " ^ (cxt_list2string [h]) ^ "\n")
|
||||||
in (* ADB TODO *)
|
val _ = trace exce (s1^s2^s3)
|
||||||
raise TC_RootError ("Something went wrong!\n")
|
in
|
||||||
end
|
raise TC_RootError ("Something went wrong!\n")
|
||||||
| GetClassifierError s =>
|
|
||||||
let
|
|
||||||
val s1 = ("\n\n#################################################\n")
|
|
||||||
val s2 = ("Classifier not found: "^s^ "\n")
|
|
||||||
val _ = print s2
|
|
||||||
in (* ADB TODO *)
|
|
||||||
raise TC_RootError ("Something went wrong!\n")
|
|
||||||
end
|
|
||||||
| TC_NoSuchOperationError s =>
|
|
||||||
let
|
|
||||||
val s1 = ("\n\n#################################################\n")
|
|
||||||
val s2 = ("Operation not found: "^s^ "\n")
|
|
||||||
val _ = print s2
|
|
||||||
in (* ADB TODO *)
|
|
||||||
raise TC_RootError ("Something went wrong!\n")
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue