Changeset 29447 in project


Ignore:
Timestamp:
07/29/13 11:07:09 (6 years ago)
Author:
felix winkelmann
Message:

rss 1.6: applied xml-base patch by Hugo Arregui

Location:
release/4/rss
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/rss/tags/1.6/rss.scm

    r23851 r29447  
    3838  (channel rss:feed-channel rss:feed-channel-set!)
    3939  (items rss:feed-items rss:feed-items-set!)
     40  (base-uri rss:feed-base-uri rss:feed-base-uri-set!)
    4041  )
    4142
     
    104105  (match (cleanup sxml)
    105106    [('rss ('@ attrs ...) data ...)
    106      (check-version attrs)
     107     (for-each
     108       (match-lambda
     109         [('version v)
     110          (rss:feed-version-set! feed v) ]
     111         [('xml:base base)
     112          (rss:feed-base-uri-set! feed base) ])
     113       attrs)
    107114     (for-each (cut traverse-element <> #f) data) ]
    108115    [('rdf:RDF data ...)
     
    110117     (for-each (cut traverse-element <> #t) data) ]
    111118    [_ (rss:error "invalid root element" sxml)] ) )
    112 
    113 (define (check-version attrs)
    114   (for-each
    115    (match-lambda
    116      [('version v)
    117       (rss:feed-version-set! feed v) ] )
    118    attrs) )
    119119
    120120(define last-channel #f)
  • release/4/rss/trunk/rss.scm

    r23851 r29447  
    3838  (channel rss:feed-channel rss:feed-channel-set!)
    3939  (items rss:feed-items rss:feed-items-set!)
     40  (base-uri rss:feed-base-uri rss:feed-base-uri-set!)
    4041  )
    4142
     
    104105  (match (cleanup sxml)
    105106    [('rss ('@ attrs ...) data ...)
    106      (check-version attrs)
     107     (for-each
     108       (match-lambda
     109         [('version v)
     110          (rss:feed-version-set! feed v) ]
     111         [('xml:base base)
     112          (rss:feed-base-uri-set! feed base) ])
     113       attrs)
    107114     (for-each (cut traverse-element <> #f) data) ]
    108115    [('rdf:RDF data ...)
     
    110117     (for-each (cut traverse-element <> #t) data) ]
    111118    [_ (rss:error "invalid root element" sxml)] ) )
    112 
    113 (define (check-version attrs)
    114   (for-each
    115    (match-lambda
    116      [('version v)
    117       (rss:feed-version-set! feed v) ] )
    118    attrs) )
    119119
    120120(define last-channel #f)
Note: See TracChangeset for help on using the changeset viewer.