/[emacs]/emacs/lisp/url/url-dav.el
ViewVC logotype

Diff of /emacs/lisp/url/url-dav.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by monnier, Fri Apr 16 21:58:11 2004 UTC revision 1.7 by lektu, Mon May 16 10:07:31 2005 UTC
# Line 121  Line 121 
121    
122      ;; Nobody else handles iso8601 correctly, lets do it ourselves.      ;; Nobody else handles iso8601 correctly, lets do it ourselves.
123      (when (string-match date-re date-string re-start)      (when (string-match date-re date-string re-start)
124        (setq year (string-to-int (match-string 1 date-string))        (setq year (string-to-number (match-string 1 date-string))
125              month (string-to-int (match-string 2 date-string))              month (string-to-number (match-string 2 date-string))
126              day (string-to-int (match-string 3 date-string))              day (string-to-number (match-string 3 date-string))
127              re-start (match-end 0))              re-start (match-end 0))
128        (when (string-match time-re date-string re-start)        (when (string-match time-re date-string re-start)
129          (setq hour (string-to-int (match-string 1 date-string))          (setq hour (string-to-number (match-string 1 date-string))
130                minute (string-to-int (match-string 2 date-string))                minute (string-to-number (match-string 2 date-string))
131                seconds (string-to-int (match-string 3 date-string))                seconds (string-to-number (match-string 3 date-string))
132                fractional-seconds (string-to-int (or                fractional-seconds (string-to-number (or
133                                                   (match-string 4 date-string)                                                      (match-string 4 date-string)
134                                                   "0"))                                                      "0"))
135                re-start (match-end 0))                re-start (match-end 0))
136          (when (string-match tz-re date-string re-start)          (when (string-match tz-re date-string re-start)
137            (setq tz (match-string 1 date-string)))            (setq tz (match-string 1 date-string)))
# Line 149  Line 149 
149      time))      time))
150    
151  (defun url-dav-process-boolean-property (node)  (defun url-dav-process-boolean-property (node)
152    (/= 0 (string-to-int (url-dav-node-text node))))    (/= 0 (string-to-number (url-dav-node-text node))))
153    
154  (defun url-dav-process-uri-property (node)  (defun url-dav-process-uri-property (node)
155    ;; Returns a parsed representation of the URL...    ;; Returns a parsed representation of the URL...
# Line 318  Line 318 
318    ;; only care about the numeric status code.    ;; only care about the numeric status code.
319    (let ((status (url-dav-node-text node)))    (let ((status (url-dav-node-text node)))
320      (if (string-match "\\`[ \r\t\n]*HTTP/[0-9.]+ \\([0-9]+\\)" status)      (if (string-match "\\`[ \r\t\n]*HTTP/[0-9.]+ \\([0-9]+\\)" status)
321          (string-to-int (match-string 1 status))          (string-to-number (match-string 1 status))
322        500)))        500)))
323    
324  (defun url-dav-process-DAV:propstat (node)  (defun url-dav-process-DAV:propstat (node)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26