Lines Matching +defs:table +defs:string
35 (defvar url-parse-args-syntax-table
36 (copy-syntax-table emacs-lisp-mode-syntax-table)
37 "A syntax table for parsing sgml attributes.")
39 (modify-syntax-entry ?' "\"" url-parse-args-syntax-table)
40 (modify-syntax-entry ?` "\"" url-parse-args-syntax-table)
41 (modify-syntax-entry ?{ "(" url-parse-args-syntax-table)
42 (modify-syntax-entry ?} ")" url-parse-args-syntax-table)
77 ;; Return an assoc list of attribute/value pairs from an RFC822-type string
90 (set-syntax-table url-parse-args-syntax-table)
95 (set-syntax-table url-parse-args-syntax-table)
134 (defun url-insert-entities-in-string (string)
137 an attribute value in a tag. Returns a new string with the result of the
143 (if (string-match "[&<>\"]" string)
148 (insert string)
159 (buffer-string))
160 string))
188 "Return a 'real' date string that most HTTP servers can understand."
190 (let* ((raw (if specified-time (current-time-string specified-time)
191 (current-time-string)))
200 (string-to-number (aref parsed 1)) url-monthabbrev-alist)))
218 "Remove spaces/tabs at the end of a string."
227 "Remove spaces at the front of a string."
266 ((string-match (eval-when-compile (regexp-quote "?")) file)
274 (defun url-parse-query-string (query &optional downcase allow-newlines)
276 (setq pairs (split-string query "&"))
280 (if (not (string-match "=" cur))
282 (setq key (url-unhex-string (substring cur 0 (match-beginning 0))
284 (setq val (url-unhex-string (substring cur (match-end 0) nil)
303 ;; (defun url-unhex-string (str &optional allow-newlines)
306 ;; decoding of carriage returns and line feeds in the string, which is normally
309 ;; (setq str (replace-regexp-in-string "%[[:xdigit:]]\\{2\\}"
311 ;; (string (string-to-number
315 ;; (replace-regexp-in-string "[\n\r]" (lambda (match)
321 (defun url-unhex-string (str &optional allow-newlines)
324 decoding of carriage returns and line feeds in the string, which is normally
329 (while (string-match "%[0-9a-f][0-9a-f]" str)
338 (char-to-string code))
341 (t (char-to-string code))))
356 (defun url-hexify-string (string)
357 "Return a new string that is STRING URI-encoded.
359 character in the utf-8 string, those found in `url-unreserved-chars'
361 string: \"%\" followed by two lowercase hex digits."
364 ;; (defconst url-hexify-table
368 ;; (char-to-string byte)
372 ;; (mapconcat (curry 'aref url-hexify-table) ...)
375 (char-to-string byte)
377 (if (multibyte-string-p string)
378 (encode-coding-string string 'utf-8)
379 string)
389 (string-match "\\.[^./]+$" fname))
412 (string-match "?" url))
421 (string-match "/" fname))
469 (string-match (eval-when-compile
471 (char-to-string (char-after (point)))))
478 (if (and url (string-match "^(.*)\\.?$" url))
479 (setq url (match-string 1 url)))
480 (if (and url (string-match "^URL:" url))
482 (if (and url (string-match "\\.$" url))
484 (if (and url (string-match "^www\\." url))
486 (if (and url (not (string-match url-nonrelative-link url)))
500 fname (concat base (int-to-string x))))
502 (let ((base (concat "url" (int-to-string (user-real-uid))))
505 (setq fname (format fmt (concat base (int-to-string x))))
509 fname (format fmt (concat base (int-to-string x)))))