" =========================================================================== " File: ccm.vim " Author: Stefan Liebl (S.Liebl@gmx.de) " Description: handles version controlling with Continuus " =========================================================================== if exists('g:noccm') finish endif " -------------------------- " config datei für Continuus " -------------------------- if !exists('g:ccm') let g:ccm = 'ccm ' endif " -------- " commands " -------- command -nargs=0 CCMconnect call s:CCMconnect() command -nargs=? CCMcheckout call s:CCMcheckout(expand('%:p'), '') command -nargs=? CCMcheckpoint call s:CCMcheckpoint(expand('%:p'), '') command -nargs=0 CCMchangeable call s:CCMchangeable('qx13468') command -nargs=0 CCMdiff call s:CCMdiff(expand('%:p')) command -nargs=0 CCMobject call s:CCM_get_object(expand('%:p')) command -nargs=0 CCMhistory call s:CCMhistory(expand('%:p')) " ---- " Menu " ---- let s:CCMMenuLocation = 100 let s:CCMmenuname = '&VCS.&CCM.' "------------------------- function s:CCMRedrawMenu() "------------------------- exec 'anoremenu '.s:CCMMenuLocation.'.40 '.s:CCMmenuname. \'check\ &out:CCMcheckout'. \' :CCMcheckout' exec 'anoremenu '.s:CCMMenuLocation.'.40 '.s:CCMmenuname. \'check&point:CCMcheckpoint'. \' :CCMcheckpoint ""' exec 'anoremenu '.s:CCMMenuLocation.'.40 '.s:CCMmenuname. \'&diff:CCMdiff'. \' :CCMdiff' exec 'anoremenu '.s:CCMMenuLocation.'.40 '.s:CCMmenuname. \'show\ &history:CCMhistory'. \' :CCMhistory' endfunction if !exists('noccmmenu') call s:CCMRedrawMenu() endif " ------------------- " Regular Expressions " ------------------- let s:any = '.*' let s:word = '$\w\+$' let s:noPathSeparator = '$[^/\\]\+$' "----------------------------- function s:CCM_run_silent(cmd) "----------------------------- let expression = g:ccm .' '. a:cmd echo expression let output = system(expression) return split(output, "\n") endfunction "---------------------- function s:CCM_run(cmd) "---------------------- call s:CCMconnect() let output = s:CCM_run_silent(a:cmd) for line in output echo line endfor echo '---' return output endfunction let s:connected = 0 "------------------------- function s:CCMconnected() "------------------------- let output = s:CCM_run_silent('status') if (match(output, "Current project:") >= 0) let s:connected = 1 endif return s:connected endfunction "----------------------- function s:CCMconnect() "----------------------- if !s:connected if !s:CCMconnected() let output = s:CCM_run_silent('start') let s:connected = 1 endif endif endfunction "--------------------------- function s:Set_compare_cmd() "--------------------------- let vimdiff = g:gvim let commands = ' -c ' . '\"winsize 201 60\" -c \"set winwidth=100\"' let options = ' -d' . ' %file1 %file2' . ' --servername DIFF' let compare_cmd = Double_quote(vimdiff . commands . options) let output = s:CCM_run('set cli_compare_cmd ' . compare_cmd) "let output = s:CCM_run('set compare_cmd') endfunction "--------------------------- function s:CCM_query(string) "--------------------------- let query_string = 'query ' . a:string let query_format = ' /nf /no_sort /u /f ' . '"%objectname"' let output = s:CCM_run(query_string . query_format) return output endfunction "------------------------------- function s:CCM_get_owner(object) "------------------------------- let query_string = 'properties ' . a:object['objectname'] let query_format = ' /f ' . '"%owner"' let output = s:CCM_run(query_string . query_format) return output endfunction "-------------------------------- function s:CCM_long_query(string) "-------------------------------- let query_string = 'query ' . a:string let query_format = ' /u /f ' . '"%objectname %status %owner %task"' let output = s:CCM_run(query_string . query_format) return output endfunction "------------------------------------ function s:CCM_get_project(filename) "------------------------------------ " in Verzeichnis des Files wechseln let dirname = fnamemodify(a:filename, ':p:h') let cwd_old = getcwd() execute 'cd ' . dirname " project ermitteln let query_string = 'work_area -show ' let output = s:CCM_run(query_string) for line in output let projectname = substitute(line, '$\S\+$.*', '\1', '') endfor if projectname == '' echo 'No project found for ' . a:filename echo '==============================' echo ' ' endif " Verzeichnis zurücksetzen execute 'cd ' . cwd_old let project = s:CCM_split_object(projectname) return project endfunction "----------------------------------- function s:CCM_get_object(filename) "----------------------------------- let basename = fnamemodify(a:filename, ':t') let dirname = fnamemodify(a:filename, ':p:h') let object = {} let project = s:CCM_get_project(a:filename) if project != {} let query_string = '"' \ . 'name=' . Single_quote(basename) \ . ' and is_member_of(' . Single_quote(project['displayname']) . ')"' let objectnames = s:CCM_query(query_string) let object = s:CCM_choose_object(a:filename, objectnames, project) if object == {} echo 'no object found for ' . a:filename else echo object['objectname'] endif else echo 'No Project' endif return object endfunction "------------------------------------------------------------ function s:CCM_choose_object(filename, objectnames, project) "------------------------------------------------------------ let result = {} for line in a:objectnames let object = s:CCM_split_object(line) let objectpath = s:CCM_get_path(object, a:project) let object['path'] = objectpath if object['path'] == a:filename let result = object endif endfor return result endfunction "--------------------------------------- function s:CCM_split_object(objectname) "--------------------------------------- let object = {} let reName = '$[^-]\+$' let reVersion = '$[^:]\+$' let reType = '$[^:]\+$' let reInstance = '$\d\+$' let regexp = reName.'-'.reVersion let regexp = regexp.'\%('.':'.reType.':'.reInstance let regexp = regexp.'\)\?' let object['name'] = substitute(a:objectname, regexp, '\1', '') let object['version'] = substitute(a:objectname, regexp, '\2', '') let object['type'] = substitute(a:objectname, regexp, '\3', '') let object['instance'] = substitute(a:objectname, regexp, '\4', '') let object['displayname'] = object['name'].'-'.object['version'] let object['objectname'] = object['displayname'].':'.object['type'].':'.object['instance'] return object endfunction "---------------------------------------- function s:CCM_get_path(object, project) "---------------------------------------- let query_string = 'finduse' \ .' /n "'.a:object['name'].'"' \ .' /v "'.a:object['version'].'"' \ .' /t "'.a:object['type'].'"' \ .' /i "'.a:object['instance'].'"' \ .' /working_proj' let lines = s:CCM_run(query_string) for line in lines let regexp = '.*\s$\S*' . a:object['name'] . '$-'.a:object['version'].'@' . a:project['displayname'] let relpath = substitute(line, regexp, '\1', '') let foundpath = findfile(relpath) if foundpath == '' let relpath = substitute(relpath, '[^/\\]\+[/\\]$.*$', '\1', '') let foundpath = findfile(relpath) endif if foundpath != '' let path = fnamemodify(foundpath, ':p') return path endif endfor return '' endfunction "----------------------------------- function s:CCM_get_successor(object) "----------------------------------- let query_string = 'is_successor_of(' . Single_quote(a:object['objectname']) . ')' let predecessor = s:CCM_query(query_string) if predecessor == '' echo 'no successor found for ' . a:object['objectname'] else " delete let predecessor = matchstr(predecessor, '\p\+') endif return predecessor endfunction "------------------------------------- function s:CCM_get_predecessor(object) "------------------------------------- let query_string = 'is_predecessor_of(' . Single_quote(a:object['objectname']) . ')' let query_answer = s:CCM_query(query_string) let predecessor = {} if query_answer[0] == '' echo 'no predecessor found for ' . a:object['objectname'] else let predecessorname = matchstr(query_answer, '\p\+') let predecessor = s:CCM_split_object(predecessorname) endif return predecessor endfunction "----------------------------------- function s:CCM_get_hist_root(object) "----------------------------------- let query_string = '"' \ . 'name=' . Single_quote(a:object['name']) \ . ' and instance=' . Single_quote(a:object['instance']) \ . ' and is_hist_root()"' let hist_root = s:CCM_query(query_string) if hist_root == '' echo 'no hist_root found for ' . a:object['objectname'] else let hist_root = matchstr(hist_root, '\p\+') endif return hist_root endfunction "-------------------------------- function s:CCM_get_default_task() "-------------------------------- let output = s:CCM_run('task /default') if match(output[0], '\d\+') >= 0 let task = matchstr(output[0], '\d\+') else let task = 'none' endif return task endfunction "-------------------------------------------------- function s:CCM_check_out(object, project, comment) "-------------------------------------------------- let default_task = s:CCM_get_default_task() if default_task == 'none' echo 'no default task!' else let comment = '/comment "' . a:comment . '"' let task = '/task ' . default_task let project = '/project ' . a:project['displayname'] let object = a:object['objectname'] let expression = 'checkout ' . comment .' '. task . ' '. object " cd to directory let objectpath = s:CCM_get_path(a:object, a:project) let old_cwd = getcwd() execute 'cd ' . fnamemodify(objectpath, ':p:h') let output = s:CCM_run(expression) " go back execute 'cd ' . old_cwd endif endfunction "---------------------------------------------- function s:CCM_check_in(object, state, comment) "---------------------------------------------- let comment = '/comment "' . a:comment . '" ' let state = '/state ' . a:state . ' ' let expression = 'checkin ' . comment . state . a:object['objectname'] echo 'comment:' . comment echo 'state:' . state echo 'expression:' . expression echo 'execute' let output = s:CCM_run(expression) endfunction "---------------------------------------- function s:CCMcheckout(filename, comment) "---------------------------------------- let object = s:CCM_get_object(a:filename) let project = s:CCM_get_project(a:filename) if object != {} let output = s:CCM_check_out(object, project, a:comment) endif endfunction "------------------------------------------ function s:CCMcheckpoint(filename, comment) "------------------------------------------ let object = s:CCM_get_object(a:filename) if object != {} if (a:comment == '') if has('gui') let l:comment = inputdialog('comment:') else echo 'enter a comment' return endif else let l:comment = a:comment endif let state = 'checkpoint' let output = s:CCM_check_in(object, state, l:comment) endif endfunction "------------------------------ function s:CCMchangeable(owner) "------------------------------ let object = '' if project == '?' let owner = 'owner=' . Single_quote(a:owner) let project = ' and project=' . Single_quote('bmsk') let released = ' and status!=' . Single_quote('released') let integrate = ' and status!=' . Single_quote('integrate') let rejected = ' and status!=' . Single_quote('rejected') let status = released . integrate . rejected let query_string = '"' . owner . project . status . '"' let object = s:CCM_long_query(query_string) endif if object == '' echo 'no working objects found for ' . a:owner endif return object endfunction "--------------------------- function s:CCMdiff(filename) "--------------------------- let object = s:CCM_get_object(a:filename) if object != {} let predecessor = s:CCM_get_predecessor(object) if predecessor != {} let output = s:CCM_run_silent('diff /g ' . predecessor['objectname'] . ' ' . a:filename) endif endif endfunction "--------------------------------- function s:CCM_view_object(object) "--------------------------------- let file_content = s:CCM_run_silent('type ' . a:object['objectname']) return file_content endfunction "------------------------------ function s:CCMhistory(filename) "------------------------------ let object = s:CCM_get_object(a:filename) if object != {} let expression = 'history /g ' . object['objectname'] let output = s:CCM_run(expression) endif endfunction "----------------------- function s:Wait(seconds) "----------------------- let starttime = localtime() while ((localtime() - starttime) < a:seconds) endwhile endfunction "------------------------------ " Funktionen für Change Synergy "------------------------------ "command ChangeSynergyBeautify call s:ChangeSynergyBeautify() command ChangeSynergyCreateCRTaskList call s:ChangeSynergyCreateCRTaskList() command ChangeSynergyCreateCRList call s:ChangeSynergyCreateCRList() command ChangeSynergyCreateTaskList call s:ChangeSynergyCreateTaskList() let s:CR_text = 'CR ' let s:Task_text = 'Task ' " Umformatieren der CR-Liste aus dem ChangeSynergy Bericht function s:ChangeSynergyBeautify() DelAllMultipleEmptyLines call s:ChangeSynergyDeleteRejected() call s:ChangeSynergyFormatTasks() call s:ChangeSynergyFormatCRs() endfunction " Liste mit allen CRs incl. Tasks aus Bericht function s:ChangeSynergyCreateCRTaskList() call s:ChangeSynergyBeautify() let RE = '^$' . s:CR_text . '.*$' execute ':%s/' . RE . '/\r\1/e' normal ggdddw endfunction " Liste mit allen CRs aus Bericht function s:ChangeSynergyCreateCRList() call s:ChangeSynergyBeautify() let RE = '^' . s:Task_text . '.*\n' execute ':%s/' . RE . '//e' execute ':3,$sort' endfunction " Liste mit allen Tasks aus Bericht function s:ChangeSynergyCreateTaskList() call s:ChangeSynergyBeautify() let RE = '^' . s:CR_text . '.*\n' execute ':%s/' . RE . '//e' execute ':3,$sort' endfunction " Löschen der CRs mit Status 'rejected' function s:ChangeSynergyDeleteRejected() let RE = s:ComposeCrTaskRE('rejected') execute ':%s/' . RE . '//e' endfunction " Task umfomatieren function s:ChangeSynergyFormatTasks() let RE = '\%(' \ . 'Task Number:\s\+$\d\+$' \ . '\s\+' \ . 'Resolver:\s\+$.\+$' \ . '\s\+' \ . 'Status:\s\+$\w\+$' \ . '\n' \ . 'Synopsis:\s\+$.*$' \ . '\n' \ . '\)' " execute '%:s/' . RE . '/' . s:Task_text . '\1\t\2:\t\4/e' execute '%:s/' . RE . '/\=printf("%s%4s %-32s: %s", s:Task_text, submatch(1), submatch(2), submatch(4))/e' endfunction " CR umfomatieren function s:ChangeSynergyFormatCRs() let RE = '\%(' \ . 'CR ID:\s\+$\d\+$' \ . '\s\+' \ . 'Resolver:\s\+$.\+$' \ . '\s\+' \ . 'Status:\s\+$\w\+$' \ . '\n' \ . 'Synopsis:\s\+$.*$' \ . '\n' \ . '\)' " execute '%:s/' . RE . '/' . s:CR_text . '\1\t\2:\t\4/e' execute '%:s/' . RE . '/\=printf("%s %4s %-32s: %s", s:CR_text, submatch(1), submatch(2), submatch(4))/e' endfunction " Zusammensetzen der Regular Expression für ChangeRequests aus dem Bericht " Open PST + CR + Task function s:ComposeCrTaskRE(CRstatus) if a:CRstatus == '' let CRstatus = '\w\+' else let CRstatus = a:CRstatus endif let taskRE = '$Task Number:.*\nSynopsis:.*\n\n$' let crRE = 'CR ID:.*Status:\s\+$' . CRstatus . '$\nSynopsis:.*\n\%(\s*\n\)*' . taskRE . '*' return crRE endfunction EchoDebug 'loaded ccm.vim'