root/lang/vim/sync/sync-file.vim @ 9279

"sync-file.vim
"sync to file.
"used by sync.vim

function! SyncFile(method,head,tail,opt_string)
        let v:errmsg=""
        let l=matchlist(a:opt_string,'\s*path=\([^ ]\+\)\s*')
        if len(l)==0
                echoerr 'need path param'
                return
        endif
        let path=l[1]
        if v:errmsg!=""
                echoerr '�G���[��������̂Œ��~���܂���'
                return
        endif
        if a:method=="pull"
                execute 'new '.path
                let content=getline(1,line('$'))
                bdelete
                redraw
                call s:delete_range(a:head,a:tail)
                call append(a:head-1,content)
        elseif a:method=="push"
                let content=getline(a:head,a:tail)
                execute 'new '.path
                call s:delete_range(1,line('$'))
                call append(0,content)
                execute line('$').'delete'
                write
                bdelete
                redraw
        else
                echoerr 'wrong method'
                return
        endif
        return {'new_opts': 'path='.path}
endfunction

function! s:delete_range(head,tail)
        if a:head > a:tail
                return
        endif
        execute a:head.','.a:tail.'delete'
endfunction