Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (3 sloc) 151 Bytes
let re () = Str.regexp "\\(0*\\)http://\\([0-9a-zA-Z.-]+\\)\\(\\(/.*\\)?\\)"
let m r s = Str.string_match r s 0
let f r us = List.for_all (m r) us