Lines Matching defs:url
0 ;;; url-parse.el --- Uniform Resource Locator parser
29 (require 'url-vars)
31 (autoload 'url-scheme-get-property "url-methods")
33 (defmacro url-type (urlobj)
36 (defmacro url-user (urlobj)
39 (defmacro url-password (urlobj)
42 (defmacro url-host (urlobj)
45 (defmacro url-port (urlobj)
47 (if (url-fullness ,urlobj)
48 (url-scheme-get-property (url-type ,urlobj) 'default-port))))
50 (defmacro url-filename (urlobj)
53 (defmacro url-target (urlobj)
56 (defmacro url-attributes (urlobj)
59 (defmacro url-fullness (urlobj)
62 (defmacro url-set-type (urlobj type)
65 (defmacro url-set-user (urlobj user)
68 (defmacro url-set-password (urlobj pass)
71 (defmacro url-set-host (urlobj host)
74 (defmacro url-set-port (urlobj port)
77 (defmacro url-set-filename (urlobj file)
80 (defmacro url-set-target (urlobj targ)
83 (defmacro url-set-attributes (urlobj targ)
86 (defmacro url-set-full (urlobj val)
90 (defun url-recreate-url (urlobj)
92 (concat (url-type urlobj) ":" (if (url-host urlobj) "//" "")
93 (if (url-user urlobj)
94 (concat (url-user urlobj)
95 (if (url-password urlobj)
96 (concat ":" (url-password urlobj)))
98 (url-host urlobj)
99 (if (and (url-port urlobj)
100 (not (equal (url-port urlobj)
101 (url-scheme-get-property (url-type urlobj) 'default-port))))
102 (format ":%d" (url-port urlobj)))
103 (or (url-filename urlobj) "/")
104 (url-recreate-url-attributes urlobj)
105 (if (url-target urlobj)
106 (concat "#" (url-target urlobj)))))
108 (defun url-recreate-url-attributes (urlobj)
110 (when (url-attributes urlobj)
116 (url-attributes urlobj) ";"))))
119 (defun url-generic-parse-url (url)
125 ((null url)
127 ((or (not (string-match url-nonrelative-link url))
128 (= ?/ (string-to-char url)))
134 (url-set-filename retval url)
135 (url-set-full retval nil)
139 (set-syntax-table url-parse-syntax-table)
152 (insert url)
189 (setq port (url-scheme-get-property prot 'default-port)))
211 (setq attr (url-parse-args (buffer-substring (point) (point-max)) t)
216 (setq host (url-unhex-string host)))
219 (provide 'url-parse)
222 ;;; url-parse.el ends here