util_complete_url_p

util_complete_url_p {} string

Determine whether string is a complete URL, i.e. wheteher it begins with protocol: where protocol consists of letters only.

Source code:

arg_parser_for_util_complete_url_p $args

  if {[regexp -nocase {^[a-z]+:} $string]} {
     return 1
  } else {
     return 0
  }