viewcvs.cgi/parser/url.ml

type url = Filename of string | Url of string

let is_url s = 
  try let _ = Neturl.extract_url_scheme s in true
  with Neturl.Malformed_URL -> false
        
let no_load_url s =
  let msg =  
    Printf.sprintf 
      "Error \"%s\": \nTo fetch external URLs, you need to compile CDuce with curl and/or netclient" s 
  in
  raise (Location.Generic msg) 

let load_url = ref no_load_url

let process s =
  if is_url s then Url (!load_url s)
  else Filename s
1	type url = Filename of string \| Url of string
2
3	let is_url s =
4	try let _ = Neturl.extract_url_scheme s in true
5	with Neturl.Malformed_URL -> false
6
7	let no_load_url s =
8	let msg =
9	Printf.sprintf
10	"Error \"%s\": \nTo fetch external URLs, you need to compile CDuce with curl and/or netclient" s
11	in
12	raise (Location.Generic msg)
13
14	let load_url = ref no_load_url
15
16	let process s =
17	if is_url s then Url (!load_url s)
18	else Filename s