Lines Matching defs:uri
0 # uri.tcl --
14 # CVS: $Id: uri.tcl 6 2009-02-03 00:37:42Z jcw@equi4.com $
18 namespace eval ::uri {
91 # ::uri::register --
94 # creates a namespace below "::uri" with the same name as the
97 # uri variables keeping track of overall scheme information.
110 proc ::uri::register {schemeList script} {
154 # ::uri::split --
164 proc ::uri::split {url {defaultscheme http}} {
194 proc ::uri::SplitFtp {url} {
241 proc ::uri::JoinFtp args {
267 proc ::uri::SplitHttps {url} {
271 proc ::uri::SplitHttp {url} {
336 proc ::uri::JoinHttp {args} {
337 return [eval [linsert $args 0 ::uri::JoinHttpInner http 80]]
340 proc ::uri::JoinHttps {args} {
341 return [eval [linsert $args 0 ::uri::JoinHttpInner https 443]]
344 proc ::uri::JoinHttpInner {scheme defport args} {
371 proc ::uri::SplitFile {url} {
412 proc ::uri::JoinFile args {
433 proc ::uri::SplitMailto {url} {
447 proc ::uri::JoinMailto args {
457 proc ::uri::SplitNews {url} {
466 proc ::uri::JoinNews args {
475 proc ::uri::SplitLdaps {url} {
476 ::uri::SplitLdap $url
479 proc ::uri::SplitLdap {url} {
514 proc ::uri::JoinLdap {args} {
515 return [eval [linsert $args 0 ::uri::JoinLdapInner ldap 389]]
518 proc ::uri::JoinLdaps {args} {
519 return [eval [linsert $args 0 ::uri::JoinLdapInner ldaps 636]]
522 proc ::uri::JoinLdapInner {scheme defport args} {
553 proc ::uri::GetUPHP {urlvar} {
615 proc ::uri::GetHostPort {urlvar} {
650 # ::uri::resolve --
661 proc ::uri::resolve {base url} {
701 # ::uri::isrelative --
711 proc ::uri::isrelative url {
716 # ::uri::geturl --
730 proc ::uri::geturl {url args} {
750 # ::uri::file_geturl --
765 proc ::uri::file_geturl {url args} {
785 # ::uri::join --
795 proc ::uri::join args {
802 # ::uri::canonicalize --
810 # uri URI (which contains a path component)
815 proc ::uri::canonicalize uri {
817 # Make uri canonical with respect to dots (path changing commands)
834 if {[catch {array set u [::uri::split $uri]}]} {
835 return $uri
838 return $uri
841 set uri $u(path)
844 regsub -all -- {^(\./)+} $uri {} uri
845 regsub -all -- {^/(\.\./)+} $uri {/} uri
846 regsub -all -- {^(\.\./)+} $uri {} uri
849 while {[regsub -all -- {/\./} $uri {/} uri]} {}
850 while {[regsub -all -- {/[^/]+/\.\./} $uri {/} uri]} {}
851 while {[regsub -all -- {^[^/]+/\.\./} $uri {} uri]} {}
853 while {[regsub -all -- {/[^/]+/\.\.} $uri {/} uri]} {}
854 if { $uri == ".." } { set uri "/" }
856 set u(path) $uri
857 set uri [eval [linsert [array get u] 0 ::uri::join]]
859 return $uri
908 uri::register ftp {
926 uri::register file {
935 uri::register http {
954 uri::register gopher {
971 uri::register mailto {
980 uri::register news {
995 uri::register wais {
1020 uri::register prospero {
1040 uri::register ldap {
1055 package provide uri 1.2.1