let s:save_cpo = &cpo

set cpo&vim

let s:system = function(get(g:, 'webapi#system_function', 'system'))

let s:author_template = {

\ "name": "",

let s:link_template = {

\ "rel": "",

\ "href": "",

let s:category_template = {

\ "term": "",

\ "scheme": "",

\ "label": "",

let s:feed_template = {

\ "id": "",

\ "icon": "",

\ "logo": "",

\ "title": "",

\ "link": [],

\ "category": [],

\ "author": [],

\ "contirubutor": [],

\ "entry": [],

let s:entry_template = {

\ "id": "",

\ "icon": "",

\ "logo": "",

\ "title": "",

\ "link": [],

\ "category": [],

\ "app:control": {},

\ "author": [],

\ "contirubutor": [],

\ "copyright": "",

\ "content": "",

\ "content.type": "text/plain",

\ "content.mode": "escaped",

\ "summary": "",

\ "created": "",

\ "updated": "",

for s:name in ['author', 'link', 'category', 'feed', 'entry']

for s:key in keys(eval('s:'.s:name.'_template'))

let key = substitute(s:key, '\.\(.\)', '\=toupper(submatch(1))', '')

let key = substitute(key, ':\(.\)', '\=toupper(submatch(1))', '')

exe "function s:".s:name."_template.set".toupper(key[0]).key[1:]."(v) dict\n"

\. " let self['".s:key."'] = a:v\n"

\. "endfunction\n"

exe "function s:".s:name."_template.get".toupper(key[0]).key[1:]."() dict\n"

\. " return self['".s:key."']\n"

\. "endfunction\n"

endfor

function s:entry_template.setContentFromFile(file) dict abort

let quote = &shellxquote == '"' ? "'" : '"'

let bits = substitute(s:system("xxd -ps ".quote.a:file.quote), "[ \n\r]", '', 'g')

let self['mode'] = "base64"

let self['content'] = webapi#base64#b64encodebin(bits)

unlet s:name

unlet s:key

function! webapi#atom#newEntry() abort

return deepcopy(s:entry_template)

function! s:createXml(entry) abort

let entry = webapi#xml#createElement("entry")

let entry.attr["xmlns"] = "http://purl.org/atom/ns#"

let entry.attr["xmlns:app"] = "http://www.w3.org/2007/app"

for key in keys(a:entry)

let l:keytype = type(a:entry[key])

if l:keytype == 1 && key !~ '\.'

let node = webapi#xml#createElement(key)

call node.value(a:entry[key])

if key == "content"

let node.attr["type"] = a:entry['content.type']

let node.attr["mode"] = a:entry['content.mode']

endif

call add(entry.child, node)

elseif l:keytype == 3

if key == "category"

for l:category in a:entry['category']

let node = webapi#xml#createElement(key)

let node.attr["term"] = l:category

call add(entry.child, node)

endfor

endif

elseif l:keytype == 4

let node = webapi#xml#createElement(key)

if key == "app:control"

let l:draft_node = webapi#xml#createElement("app:draft")

if exists("a:entry['app:control']['app:draft']")

call l:draft_node.value(a:entry['app:control']['app:draft'])

else

call l:draft_node.value('no')

endif

call add(node.child, l:draft_node)

endif

call add(entry.child, node)

endif

endfor

let xml = '<?xml version="1.0" encoding="utf-8"?>' . entry.toString()

return iconv(xml, &encoding, "utf-8")

function! s:createWsse(user, pass) abort

let now = localtime()

let nonce = webapi#sha1#sha1(now . " " . now)[0:28]

let created = strftime("%Y-%m-%dT%H:%M:%SZ", now)

let passworddigest = webapi#base64#b64encodebin(webapi#sha1#sha1(nonce.created.a:pass))

let nonce = webapi#base64#b64encode(nonce)

return 'UsernameToken Username="'.a:user.'", PasswordDigest="'.passworddigest.'", Nonce="'.nonce.'", Created="'.created.'"'

function! webapi#atom#deleteEntry(uri, user, pass) abort

let res = webapi#http#post(a:uri, "",

\ {

\ "Content-Type": "application/x.atom+xml",

\ "X-WSSE": s:createWsse(a:user, a:pass)

\ }, "DELETE")

return res

function! webapi#atom#updateEntry(uri, user, pass, entry, ...) abort

let headdata = a:0 > 0 ? a:000[0] : {}

let headdata["Content-Type"] = "application/x.atom+xml"

let headdata["X-WSSE"] = s:createWsse(a:user, a:pass)

let res = webapi#http#post(a:uri, s:createXml(a:entry), headdata, "PUT")

let location = filter(res.header, 'v:val =~ "^Location:"')

if len(location)

return split(location[0], '\s*:\s\+')[1]

endif

return ''

function! webapi#atom#createEntry(uri, user, pass, entry, ...) abort

let headdata = a:0 > 0 ? a:000[0] : {}

let headdata["Content-Type"] = "application/x.atom+xml"

let headdata["X-WSSE"] = s:createWsse(a:user, a:pass)

let headdata["WWW-Authenticate"] = "WSSE profile=\"UsernameToken\""

let res = webapi#http#post(a:uri, s:createXml(a:entry), headdata, "POST")

let location = filter(res.header, 'v:val =~ "^Location:"')

if len(location)

return split(location[0], '\s*:\s\+')[1]

endif

return ''

function! s:parse_node(target, parent) abort

for node in a:parent.child

if type(node) != 4 || !has_key(a:target, node.name)

unlet node

continue

endif

if node.name == 'content'

let a:target[node.name] = node.value()

if has_key(node.attr, 'type')

let a:target['content.type'] = node.attr['type']

endif

if has_key(node.attr, 'type')

let a:target['content.type'] = node.attr['type']

endif

elseif node.name == 'link'

let link = deepcopy(s:link_template)

for attr in keys(node.attr)

if !has_key(link, attr)

continue

endif

let link[attr] = node.attr[attr]

endfor

call add(a:target.link, link)

elseif node.name == 'author'

let author = deepcopy(s:author_template)

for item in node.child

if type(item) == 4 && has_key(author, item.name)

let author[item.name] = item.value()

endif

unlet item

endfor

call add(a:target.author, author)

elseif node.name == 'entry'

let entry = deepcopy(s:entry_template)

call s:parse_node(entry, node)

call add(a:target.entry, entry)

elseif node.name == 'category'

let l:category = deepcopy(s:category_template)

let l:category['term'] = has_key(node.attr, 'term') ? node.attr['term'] : ''

let l:category['scheme'] = has_key(node.attr, 'scheme') ? node.attr['scheme'] : ''

let l:category['label'] = has_key(node.attr, 'label') ? node.attr['label'] : ''

call add(a:target.category, l:category)

elseif node.name == 'app:control'

for l:item in node.child

if type(l:item) == 4 && l:item.name == 'app:draft'

let a:target['app:control'] = {'app:draft': l:item.child[0]}

endif

unlet l:item

endfor

elseif type(a:target[node.name]) == 3

call add(a:target[node.name], a:parent.value())

else

let a:target[node.name] = node.value()

endif

unlet node

endfor

function! webapi#atom#getFeed(uri, user, pass) abort

let headdata = {}

if len(a:user) > 0 && len(a:pass) > 0

let headdata["X-WSSE"] = s:createWsse(a:user, a:pass)

endif

let res = webapi#http#get(a:uri, {}, headdata)

let dom = webapi#xml#parse(res.content)

let feed = deepcopy(s:feed_template)

call s:parse_node(feed, dom)

return feed

function! webapi#atom#getService(uri, user, pass) abort

let headdata = {}

if len(a:user) > 0 && len(a:pass) > 0

let headdata["X-WSSE"] = s:createWsse(a:user, a:pass)

endif

let res = webapi#http#get(a:uri, {}, headdata)

return webapi#xml#parse(res.content)

function! webapi#atom#getEntry(uri, user, pass) abort

let headdata = {}

if len(a:user) > 0 && len(a:pass) > 0

let headdata["X-WSSE"] = s:createWsse(a:user, a:pass)

endif

let res = webapi#http#get(a:uri, {}, headdata)

let dom = webapi#xml#parse(res.content)

let entry = deepcopy(s:entry_template)

call s:parse_node(entry, dom)

return entry

let &cpo = s:save_cpo

unlet s:save_cpo