Commit b694d0a3 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-10-24 09:20:19 by szach] commented out old implementation of schema validation, now raise a

cduce exception

Original author: szach
Date: 2003-10-24 09:20:19+00:00
parent 7be8162d
......@@ -62,15 +62,7 @@ and eval_ref env e t=
Record (Builtin_defs.mk_ref ~get ~set)
and eval_validate env e schema name =
let validator = Typer.get_schema_validator (schema, name) in
(*
(* DEBUG *)
let s = Schema_xml.pxp_stream_of_value (eval env e) in
Schema_xml.dump_stream s;
*)
Schema_validator.validate ~validator
(Schema_xml.pxp_stream_of_value (eval env e))
raise (CDuceExn (string_latin1 "validate: not implemented"))
and eval_try env arg brs =
try eval env arg
......@@ -435,9 +427,12 @@ and eval_ref env e t=
Value.Record (Builtin_defs.mk_ref ~get ~set)
and eval_validate env e schema name =
raise (CDuceExn (string_latin1 "validate: not implemented"))
(*
let validator = Typer.get_schema_validator (schema, name) in
Schema_validator.validate ~validator
(Schema_xml.pxp_stream_of_value (eval env e))
*)
and eval_try env arg brs =
let saved_frame = !frame and saved_sp = !sp in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment