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

[r2004-02-06 22:34:54 by beppe] Empty log message

Original author: beppe
Date: 2004-02-06 22:34:54+00:00
parent 74d80815
type url = Filename of string | Url of string
(* Returns whether a string is a valid url. *)
val is_url: string -> bool
(* It recognizes if it is a valid url. If it is connect and bufferize
* in a string otherwise consider it as filename
*)
val process: string -> url
......@@ -105,7 +105,7 @@ let load_expat =
let buf = String.create buflen in
fun s ->
let ic =
if Url.is_url then
if Url.is_url s then
let msg =
Printf.sprintf "load_xml, file \"%s\": URLs support is not available for expat, yet." s
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