Commit b4991e58 authored by Pietro Abate's avatar Pietro Abate

[r2003-06-13 16:15:38 by cvscast] get rid of ";;"

Original author: cvscast
Date: 2003-06-13 16:15:38+00:00
parent 740fcb51
(* XML Schema validator *)
open Printf ;;
open Pxp_document ;;
open Schema_types ;;
open Printf
open Pxp_document
open Schema_types
let die_usage () =
prerr_endline
"Usage: validate <schema_document> [ <instance_document> ... ]";
exit 1
;;
let schema_file = try Sys.argv.(1) with Invalid_argument _ -> die_usage () ;;
let schema_file = try Sys.argv.(1) with Invalid_argument _ -> die_usage ()
let main () =
let schema_doc = Schema_xml.pxp_tree_of schema_file in
......@@ -44,9 +43,8 @@ let main () =
print_endline (sprintf "Validation error on '%s': %s" Sys.argv.(i) msg);
flush stdout)
done
;;
main () ;;
let _ = main ()
(* PROVE VARIE *)
(*
......
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