cscope/cscope-15.7a-add-cctree.patch
2011-05-26 16:01:23 -04:00

3944 lines
129 KiB
Diff

diff -up /dev/null cscope-15.7a/contrib/cctree.txt
--- /dev/null 2011-05-25 12:40:15.391845002 -0400
+++ cscope-15.7a/contrib/cctree.txt 2011-05-26 14:45:02.905838546 -0400
@@ -0,0 +1,537 @@
+*CCTree.txt* Plugin for C Call-Tree Explorer *CCTree*
+
+Author: Hari Rangarajan (First.Last AT gmail DOT com)
+Last Change: 20 May 2011
+
+CCTree version 1.51
+
+For Vim version 7.0 and above
+
+==============================================================================
+
+1. Overview |CCTree-overview|
+2. Downloads |CCTree-download|
+3. Installation |CCTree-installation|
+4. Configuration |CCTree-configuration|
+5. Features |CCTree-features|
+6. Limitations |CCTree-limitations|
+7. FAQ & TIPS |CCTree-faq|
+8. History |CCTree-history|
+9. Thanks |CCTree-thanks|
+
+==============================================================================
+1. Overview~
+ *CCTree-overview*
+
+Plugin generates dependency-trees for symbols using a cscope database in Vim.
+Basic cross-referencing includes functions and macros. Enhanced symbol
+processing covers macros, typedefs, enums, and global variables.
+
+Requires Cscope and works best with C code.
+
+==============================================================================
+2. Downloads~
+ *CCTree-download*
+
+You can download the latest release of the script from this url :
+ http://www.vim.org/scripts/script.php?script_id=2368
+
+
+Cscope packages can be found here:
+ http://cscope.sourceforge.net/
+ http://code.google.com/p/cscope-win32/
+
+
+==============================================================================
+3. Installation~
+ *CCTree-installation*
+
+Copy this file to ~/.vim/plugins/ or to /vimfiles/plugins/ (on Win32
+platforms)
+
+It should also be possible to load it as a filetype plugin ~/.vim/ftplugin/c/
+Need to set :filetype plugin on
+
+
+==============================================================================
+CONFIGURATION *CCTree-configuration*
+4. Options~
+
+You can customize behavior by changing the following variable settings
+
+4.1.1 Cscope Symbol Database~
+ *CCTreeCscopeDb*
+
+Cscope database file, g:CCTreeCscopeDb = "cscope.out"
+
+4.1.2 Call-tree Depth~
+ *CCTreeRecursiveDepth*
+Maximum call levels, g:CCTreeRecursiveDepth = 3
+
+4.1.3 Call-tree Minimum Visible Depth~
+ *CCTreeMinVisibleDepth*
+Maximum visible(unfolded) level, g:CCTreeMinVisibleDepth = 3
+
+4.1.4 Call-tree window display~
+
+4.4.1 Orientation~
+ *CCTreeOrientation*
+Orientation of window, g:CCTreeOrientation = "leftabove"
+ (standard vim options for split: [right|left][above|below])
+
+4.5 Direction~
+ *CCTreeWindowVertical*
+Use Vertical window, g:CCTreeWindowVertical = 1
+
+4.5.1 Dimensions~
+
+These settings determine the layout of the CCTree preview window.
+
+4.5.2 Horizontal Window Settings~
+ *CCTreeWindowHeight*
+ Horizontal window, g:CCTreeWindowHeight, default is -1.
+
+4.5.2 Vertical Window Settings~
+ *CCTreeWindowMinWidth*
+ *CCTreeWindowWidth*
+ Minimum width for window, g:CCTreeWindowMinWidth = 40.
+ g:CCTreeWindowWidth = -1, auto-select best width to fit.
+
+
+4.6 Call-tree display format~
+ *CCTreeDisplayMode*
+Display format, g:CCTreeDisplayMode, default: 1
+
+Values: 1 -- Ultra-compact (takes minimum screen width)
+ 2 -- Compact (Takes little more space)
+ 3 -- Wide (Takes copious amounts of space)
+
+For vertical splits, 1 and 2 are good, while 3 is good for horizontal
+displays.
+
+4.7. Dynamic Call-tree highlighting~
+ *CCTreeHilightCallTree*
+
+Enable/disable dynamic call-tree highlighting, default: 1
+
+
+4.7.1 Syntax items~
+ *CCTreeSymbol* *CCTreeHiSymbol*
+CCTreeSymbol is the symbol name.
+CCTreeHiSymbol is the highlighted call tree functions.
+
+ *CCTreeMarkers* *CCTreeHiMarkers*
+CCTreeMarkers include "|","+--->".
+CCTreeHiMarkers is the same as CCTreeMarkers except these denote the
+highlighted call-tree.
+
+
+
+==============================================================================
+COMMAND LIST *CCTree-commands-list*
+
+Database Management~
+ CCTreeLoadDB <dbname>
+ CCTreeAppendDB <dbname>
+ CCTreeUnLoadDB
+ CCTreeShowLoadedDBs
+ Refer to |CCTree-usage|
+
+Native Xref Database~
+ CCTreeLoadXRefDB <dbname>
+ CCTreeSaveXRefDB <dbname>
+
+ Refer to |CCTree-fast-loading|
+
+Symbol tracing~
+ CCTreeTraceForward <symbolname>
+ CCTreeTraceReverse <symbolname>
+ CCTreeRecurseDepthPlus
+ CCTreeRecurseDepthMinus
+ Refer to |CCTree-explore-source|
+Trace Management~
+ CCTreeWindowSaveCopy
+ CCTreeWindowHiCallTree
+ Refer to |CCTree-preview-window|
+
+Dynamic configuration~
+ CCTreeOptsEnable <option> (<tab> for auto-complete)
+ CCTreeOptsDisable <option> (<tab> for auto-complete)
+ CCTreeOptsToggle <option> (<tab> for auto-complete)
+ Options~
+ DynamicTreeHiLights: Control dynamic tree highlighting
+ UseUnicodeSymbols: Use of UTF-8 special characters for tree
+ UseConceal: Use (+Conceal) feature instead of 'ignore'
+ syntax highlighting. Allows CCTree window
+ to be exported in HTML without syntax markup
+ characters. (Vim 7.3+ only)
+ *CCTree-Enhanced-Symbol-Processing*
+ EnhancedSymbolProcessing: Cross-reference enums, macros,
+ global variables, typedefs (WARNING: Database
+ processing speeds will be slow).
+
+SHORTCUT KEYS *CCTree-Key-Map*
+Default Mappings~
+ *CCTree-Default-Key-Map*
+ Get reverse call tree for symbol <C-\><
+ Get forward call tree for symbol <C-\>>
+ Increase depth of tree and update <C-\>=
+ Decrease depth of tree and update <C-\>-
+
+ Open symbol in other window <CR>
+ Preview symbol in other window <Ctrl-P>
+
+ Save copy of preview window <C-\>y
+ Highlight current call-tree flow <C-l>
+ Compress(Fold) call tree view zs
+ (This is useful for viewing long
+ call trees which span across
+ multiple pages)
+
+Custom user-mappings
+ *CCTree-Custom-Key-Map*
+ Users can custom-map the short-cut keys by
+ overriding the following variables in their
+ Vim start-up configuration
+>
+ let g:CCTreeKeyTraceForwardTree = '<C-\>>'
+ let g:CCTreeKeyTraceReverseTree = '<C-\><'
+ let g:CCTreeKeyHilightTree = '<C-l>' " Static highlighting
+ let g:CCTreeKeySaveWindow = '<C-\>y'
+ let g:CCTreeKeyToggleWindow = '<C-\>w'
+ let g:CCTreeKeyCompressTree = 'zs' " Compress call-tree
+ let g:CCTreeKeyDepthPlus = '<C-\>='
+ let g:CCTreeKeyDepthMinus = '<C-\>-'
+<
+
+==============================================================================
+FEATURES *CCTree-features*
+
+5.1. Symbol database~
+ *CCTree-usage*
+Build cscope database, for example:
+> cscope -b -i cscope.files
+ [Tip: add -c option to build uncompressed databases for faster
+ load speeds]
+
+Load database~
+>
+ :CCTreeLoadDB
+<
+ (Please note that it might take a while depending on the
+ database size)
+
+A database name, i.e., my_cscope.out, can be specified with the command. If
+not provided, a prompt will ask for the filename; default is cscope.out.
+
+Unload database ~
+ >
+ :CCTreeUnLoadDB
+<
+Append database~
+ >
+ :CCTreeAppendDB
+<
+ Allows multiple cscope files to be loaded and cross-referenced
+ Illustration: >
+ :CCTreeAppendDB ./cscope.out
+ :CCTreeAppendDB ./dir1/cscope.out
+ :CCTreeAppendDB ./dir2/cscope.out
+<
+ A database name, i.e., my_cscope.out, can be specified with
+ the command. If not provided, a prompt will ask for the
+ filename; default is cscope.out.
+
+FASTER DATABASE LOADING *CCTree-fast-loading*
+
+Save native Xref Db~
+>
+ :CCTreeSaveXRefDb cctree.out
+<
+This command will save the cross-referenced symbols currently loaded into
+memory into a serialized format for faster loading.
+
+Load native XRef Db~
+>
+ :CCTreeLoadXRefDb cctree.out
+<
+This command will load cross-referenced symbols from the previously saved
+native format database.
+
+ccglue~
+ *CCTree-ccglue*
+
+Check out the ccglue project at http://ccglue.sourceforge.net for an external
+tool that can build cctree-compatible xref databases.
+
+
+5.2. Exploring source-code~
+ *CCTree-explore-source*
+
+Get reverse call tree for symbol <C-\><
+>
+ :CCTreeTraceReverse <symbolname>
+<
+
+Get forward call tree for symbol <C-\>>
+>
+ :CCTreeTraceForward <symbolname>
+<
+Increase depth of tree and update <C-\>=
+>
+ :CCTreeRecurseDepthPlus
+<
+Decrease depth of tree and update <C-\>-
+>
+ :CCTreeRecurseDepthMinus
+<
+5.3. Preview Window~
+ *CCTree-preview-window*
+Open symbol in other window <CR>
+Preview symbol in other window <Ctrl-P>
+
+5.4. Syntax Coloring~
+ *CCTree-Syntax*
+CCTreeHiXXXX allows dynamic highlighting of the call-tree. To observe the
+effect, move the cursor to the function to highlight the current call-tree.
+This option can be turned off using the setting, *CCTreeHilightCallTree* .
+
+For faster highlighting, the value of 'updatetime' can be changed.
+
+5.5 Support for large database files~
+ *CCTree-LargeDatabase* *CCTree-LargeFile*
+Vimscript does not have an API for reading files line-by-line. This
+becomes a problem when parsing large databases. CCTree can overcome
+the limitation using an external utility (i.e., GNU coreutils: split)
+or VimScript's perl interpreter interface (:version must indicate +perl)
+
+5.5.1 Using GNU Coreutils (split/cat)~
+ *CCTree-Tools-split* *CCTree-Tools-cat*
+ The following settings are tailored to suit GNU coreutils split; the
+default settings should work with no changes on typical linux/unix distros.
+Monopoly OSes will require installation of unixutils or equivalent.
+
+External command is setup with the following parameters~
+>
+ let g:CCTreeSplitProgCmd =
+ 'PROG_SPLIT SPLIT_OPT SPLIT_SIZE IN_FILE OUT_FILE_PREFIX'
+<
+
+Break-down of individual parameters~
+The split utility is assumed to be on the path; otherwise, specify full path
+ g:CCTreeSplitProg = 'split'
+
+Option for splitting files (-C or -l)~
+>
+ let g:CCTreeSplitProgOption = '-C'
+<
+If split program does not support -C, then this parameter must be set to
+the number of lines in the split files
+>
+ let g:CCTreeDbFileSplitLines = -1
+<
+Largest filesize Vimscript can handle; file sizes greater than this will
+be temporarily split
+>
+ let g:CCTreeDbFileMaxSize = 40000000 (40 Mbytes)
+<
+Sample system command~
+Typical:
+>
+ split -C 40000000 inputFile outputFilePrefix
+<
+ When g:CCTreeDbFileSplitLines is set to 10000 (-C options will be ignored)
+>
+ split -l 10000 inputFile outputFilePrefix
+<
+ *CCTree-Tools-Perl*
+ *CCTree-Tools-Perl-LargeFile*
+Enabling perl interface~
+
+ By default, perl usage is disabled. Set
+>
+ let g:CCTreeUsePerl = 1
+< to enable the perl interface.
+
+ Perl interface is typically faster than native Vimscript.
+ This option can be used independent of the file size
+
+ For more info on setting up perl interface
+ :help |perl-using| or :help |perl-dynamic|
+
+5.6. Miscellaneous *CCTree-Miscellaneous*
+
+ UTF-8 usage *CCTree-UTF8-Symbols*
+ UTF-8 symbols should work fine on the majority of
+ X11 systems; however, some terminals might cause problems.
+
+ To use symbols for drawing the tree, this option can be enabled.
+>
+ let g:CCTreeUseUTF8Symbols = 1
+<
+ The options interface (CCTreeOptsxxx) can be used to
+ modify options on-the-fly.
+
+==============================================================================
+6. Limitations~
+ *CCTree-limitations*
+
+The following are known limitations:
+
+Basic Symbol Processing:
+ (1) The accuracy of the call-tree will only be as good as the cscope database
+generation. (NOTE: Different flavors of Cscope have some known limitations
+due to the lexical analysis engine. This results in incorrectly identified
+function blocks, etc.)
+
+Enhanced Symbol Processing:
+ (1) Cscope does not mark-up nameless enums correctly; hence,
+CCTree cannot recognize nameless enum symbols.
+
+
+==============================================================================
+7. FAQ~
+ *CCTree-faq*
+
++ I see strange characters "!#@" on my screen when dynamic highlighting is
+enabled. Why do I see them?
+
+Check :hi ignore. You will see something like
+hi ignore ctermfg=white guifg=bg
+
+ For console, white must be your background color; for GUI, guifg must be set
+to bg.
+
+==============================================================================
+8. History~
+ *CCTree-history*
+Version 1.51: May 18, 2011
+ 1. Robust error reporting when external (split/cat) utils fail
+
+Version 1.50: May 6, 2011
+ 1. Support cross-referencing of global variables, macros,
+ enums, and typedefs.
+
+Version 1.40: April 22, 2011
+ 1. Maintain order of functions called during forward tracing
+
+Version 1.39: April 18, 2011
+ 1. Use +Conceal feature for highlighting (only Vim 7.3)
+
+Version 1.33: April 5, 2011
+ 1. Load and trace CCTree native XRefDb directly from disk
+ 2. Fix AppendDB command when 'ignorecase' is set
+
+Version 1.26: March 28, 2011
+ 1. Fix macro cross-referencing limitation
+ 2. Correct native xref file format
+
+Version 1.21: March 21, 2011
+ 1. Support serialization of loaded
+ cscope databases (for faster loading)
+
+Version 1.07: March 09, 2011
+ 1. Fix new keymaps incorrectly applied to buffer
+ 2. CCTreeOptsToggle command for toggling options
+
+Version 1.04: March 06, 2011
+ 1. Customization for key mappings
+ 2. Dynamic configuration of UI variables
+ 3. Folding long call-trees to show current path dynamically
+
+Version 1.01: March 04, 2011
+ 1. Make UTF-8 symbols for tree optional
+
+Version 1.00: March 02, 2011
+ 1. Staging release for upcoming features
+ - Complete refactoring of code to take
+ advantage of VimScript's OO features
+ 2. Faster decompression of symbols
+ 3. Display related changes
+ - Use of unicode symbols for tree
+ 4. Bugfixes related to multi-database loading
+
+Version 0.90: February 18, 2011
+ 1. Support for large databases using external split utility or perl
+ interface
+
+Version 0.85: February 9, 2011
+ 1. Significant increase in database loading and decompression speeds
+
+Version 0.80: February 4, 2011
+ 1. Reduce memory usage by removing unused xref symbols
+
+Version 0.75: June 23, 2010
+ 1. Support for saving CCTree preview window; multiple
+ CCTree windows can now be open
+
+ersion 0.71: May 11, 2010
+ 1. Fix script bug
+
+Version 0.70: May 8, 2010
+ 1. Functionality to load multiple cscope databases
+
+Version 0.65: July 12, 2009
+ 1. Toggle preview window
+
+Version 0.61: December 24, 2008
+ 1. Fixed bug when processing include files
+ 2. Remove 'set ruler' option
+
+Version 0.60: November 26, 2008
+ 1. Added support for source-file dependency tree
+
+Version 0.50: October 17, 2008
+ 1. Optimizations for compact memory foot-print and
+ improved compressed-database load speeds
+
+Version 0.41: October 6, 2008
+ 1. Minor fix: Compressed cscope databases will load
+ incorrectly if encoding is not 8-bit
+
+Version 0.4: September 28, 2008
+ 1. Rewrite of display-related code
+ 2. New syntax hightlighting
+ 3. Dynamic highlighting for call-trees
+ 4. Support for new window modes (vertical, horizontal)
+ 5. New display format option for compact or wide call-trees
+ 6. Preview window fix
+
+Version 0.3: September 21, 2008
+ 1. Support compressed cscope databases
+ 2. Display window related bugs fixed
+ 3. More intuitive display and folding capabilities
+
+Version 0.2: September 12, 2008
+ (Patches from Yegappan Lakshmanan, thanks!)
+ 1. Support for using the plugin in Vi-compatible mode
+ 2. Filtering out unwanted lines before processing the db
+ 3. Command-line completion for the commands
+ 4. Using the cscope db from any directory
+
+Version 0.1: August 31,2008
+ 1. Cross-referencing support for only functions and macros
+ (Note: Functions inside macro definitions will be incorrectly
+ attributed to the top level calling function)
+
+
+==============================================================================
+9. Thanks~
+ *CCTree-thanks*
+
+
+ Qaiser Durrani (ver 1.51 -- Reporting issues with SunOS)
+ Ben Fritz (ver 1.39 -- Suggestion/Testing for
+ conceal feature)
+ Ben Fritz (ver 1.26 -- Bug report)
+ Frank Chang (ver 1.0x -- testing/UI enhancement
+ ideas/bug fixes)
+ Arun Chaganty/Timo Tiefel (Ver 0.60 -- bug report)
+ Michael Wookey (Ver 0.40 -- Testing/bug report/patches)
+ Yegappan Lakshmanan (Ver 0.20 -- Patches)
+
+ The Vim Community, ofcourse :)
+
+
+vim:tw=78:fo=tcq2:isk=!-~,^*,^\|,^\":ts=8:ft=help:norl:
+
diff -up /dev/null cscope-15.7a/contrib/cctree.vim
--- /dev/null 2011-05-25 12:40:15.391845002 -0400
+++ cscope-15.7a/contrib/cctree.vim 2011-05-26 14:45:02.906838571 -0400
@@ -0,0 +1,3398 @@
+" C Call-Tree Explorer (CCTree) <CCTree.vim>
+"
+"
+" Script Info and Documentation
+"=============================================================================
+" Copyright: Copyright (C) August 2008 - 2011, Hari Rangarajan
+" Permission is hereby granted to use and distribute this code,
+" with or without modifications, provided that this copyright
+" notice is copied with it. Like anything else that's free,
+" cctree.vim is provided *as is* and comes with no
+" warranty of any kind, either expressed or implied. In no
+" event will the copyright holder be liable for any damamges
+" resulting from the use of this software.
+"
+" Name Of File: CCTree.vim
+" Description: C Call-Tree Explorer Vim Plugin
+" Maintainer: Hari Rangarajan <hari.rangarajan@gmail.com>
+" URL: http://vim.sourceforge.net/scripts/script.php?script_id=2368
+" Last Change: May 18, 2011
+" Version: 1.51
+"
+"=============================================================================
+"
+" {{{ Description:
+" Plugin generates dependency-trees for symbols using a cscope database
+" in Vim.
+" }}}
+" {{{ Requirements: 1) Vim 7.xx , 2) Cscope
+"
+" Tested on Unix and the following Win32 versions:
+" + Cscope, mlcscope (WIN32)
+" http://code.google.com/p/cscope-win32/
+" http://www.bell-labs.com/project/wwexptools/packages.html
+" }}}
+" {{{ Installation:
+" Copy this file to ~/.vim/plugins/
+" or to /vimfiles/plugins/ (on Win32 platforms)
+"
+" It might also be possible to load it as a filetype plugin
+" ~/.vim/ftplugin/c/
+"
+" Need to set :filetype plugin on
+"
+" }}}
+" {{{ Usage:
+" Build cscope database, for example:
+" > cscope -b -i cscope.files
+" [Tip: add -c option to build uncompressed databases for faster
+" load speeds]
+"
+" Load database with command ":CCTreeLoadDB"
+" (Please note that it might take a while depending on the
+" database size)
+"
+" Append database with command ":CCTreeAppendDB"
+" Allows multiple cscope files to be loaded and cross-referenced
+" Illustration:
+" :CCTreeAppendDB ./cscope.out
+" :CCTreeAppendDB ./dir1/cscope.out
+" :CCTreeAppendDB ./dir2/cscope.out
+"
+" A database name, i.e., my_cscope.out, can be specified with
+" the command. If not provided, a prompt will ask for the
+" filename; default is cscope.out.
+"
+" To show loaded databases, use command ":CCTreeShowLoadedDBs"
+"
+" To unload all databases, use command ":CCTreeUnLoadDB"
+" Note: There is no provision to unload databases individually
+"
+" To save the current set of databases loaded in to memory onto disk
+" in native CCTree XRef format, use command ":CCTreeSaveXRefDB"
+"
+" To load a saved native CCTree XRef format file, use
+" command ":CCTreeLoadXRefDB"
+"
+" To load a saved native CCTree XRef format file, use
+" command ":CCTreeLoadXRefDBFromDisk"
+"
+" Notes: No merging database support for CCTree native DB's [at present].
+"
+"
+" To have multiple CCTree preview windows, use ":CCTreeWindowSaveCopy"
+" Note: Once saved, only the depth of the preview window can be changed
+"
+" Default Mappings:
+" Get reverse call tree for symbol <C-\><
+" Get forward call tree for symbol <C-\>>
+" Increase depth of tree and update <C-\>=
+" Decrease depth of tree and update <C-\>-
+"
+" Open symbol in other window <CR>
+" Preview symbol in other window <Ctrl-P>
+"
+" Save copy of preview window <C-\>y
+" Highlight current call-tree flow <C-l>
+" Compress(Fold) call tree view zs
+" (This is useful for viewing long
+" call trees which span across
+" multiple pages)
+"
+" Custom user-mappings:
+" Users can custom-map the short-cut keys by
+" overriding the following variables in their
+" Vim start-up configuration
+"
+" g:CCTreeKeyTraceForwardTree = '<C-\>>'
+" g:CCTreeKeyTraceReverseTree = '<C-\><'
+" g:CCTreeKeyHilightTree = '<C-l>' " Static highlighting
+" g:CCTreeKeySaveWindow = '<C-\>y'
+" g:CCTreeKeyToggleWindow = '<C-\>w'
+" g:CCTreeKeyCompressTree = 'zs' " Compress call-tree
+" g:CCTreeKeyDepthPlus = '<C-\>='
+" g:CCTreeKeyDepthMinus = '<C-\>-'
+"
+" Command List:
+" CCTreeLoadDB <dbname>
+" CCTreeAppendDB <dbname>
+" CCTreeLoadXRefDB <dbname>
+" CCTreeSaveXRefDB <dbname>
+" CCTreeLoadXRefDBFromDisk <dbname>
+"
+" CCTreeUnLoadDB
+" CCTreeShowLoadedDBs
+"
+" CCTreeTraceForward <symbolname>
+" CCTreeTraceReverse <symbolname>
+" CCTreeRecurseDepthPlus
+" CCTreeRecurseDepthMinus
+" CCTreeWindowSaveCopy
+"
+" Only in preview window:
+" CCTreeWindowHiCallTree (same as <C-l> shorcut)
+" Highlight calling tree for keyword at cursor
+"
+" Dynamic configuration:
+" CCTreeOptsEnable <option> (<tab> for auto-complete)
+" CCTreeOptsDisable <option> (<tab> for auto-complete)
+" CCTreeOptsToggle <option> (<tab> for auto-complete)
+" Options:
+" DynamicTreeHiLights: Control dynamic tree highlighting
+" UseUnicodeSymbols: Use of UTF-8 special characters for
+" tree
+" UseConceal: Use (+Conceal) feature instead of 'ignore'
+" syntax highlighting. Allows CCTree window
+" to be exported in HTML without syntax markup
+" characters. (Vim 7.3+ only)
+" EnhancedSymbolProcessing: Cross-reference enums, macros,
+" global variables, typedefs (Warning: Database
+" processing speeds will be slow).
+"
+"
+"
+" Settings:
+" Customize behavior by changing the variable settings
+"
+" UTF-8 usage:
+" UTF-8 symbols should work fine on the majority of
+" X11 systems; however, some terminals might cause problems.
+"
+" To use symbols for drawing the tree, this option can be enabled.
+" g:CCTreeUseUTF8Symbols = 1
+" The options interface (CCTreeOptsxxx) can be used to
+" modify options on-the-fly.
+"
+" Cscope database file, g:CCTreeCscopeDb = "cscope.out"
+" Maximum call levels, g:CCTreeRecursiveDepth = 3
+" Maximum visible(unfolded) level, g:CCTreeMinVisibleDepth = 3
+" Orientation of window, g:CCTreeOrientation = "topleft"
+" (standard vim options for split: [right|left][above|below])
+"
+" Use Vertical window, g:CCTreeWindowVertical = 1
+" Min width for window, g:CCTreeWindowMinWidth = 40
+" g:CCTreeWindowWidth = -1, auto-select best width to fit
+"
+" Horizontal window, g:CCTreeWindowHeight, default is -1
+"
+"
+" Display format, g:CCTreeDisplayMode, default 1
+"
+" Values: 1 -- Ultra-compact (takes minimum screen width)
+" 2 -- Compact (Takes little more space)
+" 3 -- Wide (Takes copious amounts of space)
+"
+" For vertical splits, 1 and 2 are good, while 3 is good for
+" horizontal displays
+"
+" NOTE: To get older behavior, add the following to your vimrc
+" let g:CCTreeDisplayMode = 3
+" let g:CCTreeWindowVertical = 0
+"
+" Syntax Coloring:
+" CCTreeSymbol is the symbol name
+" CCTreeMarkers include "|","+--->"
+"
+" CCTreeHiSymbol is the highlighted call tree functions
+" CCTreeHiMarkers is the same as CCTreeMarkers except
+" these denote the highlighted call-tree
+"
+"
+" CCTreeHiXXXX allows dynamic highlighting of the call-tree.
+" To observe the effect, move the cursor to the function to
+" highlight the current call-tree. This option can be
+" turned off using the setting, g:CCTreeHilightCallTree.
+" For faster highlighting, the value of 'updatetime' can be
+" changed.
+"
+" Support for large database files:
+" Vimscript does not have an API for reading files line-by-line. This
+" becomes a problem when parsing large databases. CCTree can overcome
+" the limitation using an external utility (i.e., GNU coreutils: split)
+" or VimScript's perl interpreter interface (:version must indicate +perl)
+"
+" The following settings are tailored to suit GNU coreutils split; the default
+" settings should work with no changes on typical linux/unix distros
+" (Monopoly OSes will require installation of unixutils or equivalent)
+"
+" External command is setup with the following parameters:
+" g:CCTreeSplitProgCmd = 'PROG_SPLIT SPLIT_OPT SPLIT_SIZE IN_FILE OUT_FILE_PREFIX'
+"
+" Break-down of individual parameters:
+" The split utility is assumed to be on the path; otherwise, specify full path
+" g:CCTreeSplitProg = 'split'
+"
+" Option for splitting files (-C or -l)
+" g:CCTreeSplitProgOption = '-C'
+" If split program does not support -C, then this parameter must be set to
+" the number of lines in the split files
+" g:CCTreeDbFileSplitLines = -1
+" Largest filesize Vimscript can handle; file sizes greater than this will
+" be temporarily split
+" g:CCTreeDbFileMaxSize = 40000000 (40 Mbytes)
+"
+" Sample system command:
+" Typical:
+" split -C 40000000 inputFile outputFilePrefix
+"
+" When g:CCTreeDbFileSplitLines is set to 10000 (-C options will be ignored)
+" split -l 10000 inputFile outputFilePrefix
+"
+"
+" Using perl interface:
+" By default, perl usage is disabled. Set
+" g:CCTreeUsePerl = 1 to enable the perl interface.
+"
+" Perl interface is typically faster than native Vimscript.
+" This option can be used independent of the file size
+"
+" For more info on setting up perl interface
+" :help perl-using or :help perl-dynamic
+"
+" Writing large Xref Databases:
+" CCTree can use external utilities to write extremely large files beyond
+" VimScripts capabilities. It requires the use of an external tool that can
+" join text files (i.e., 'cat' in unix). This utility is triggered if the size
+" of the file being written exceeds g:CCTreeDbFileMaxSize (40 Mb or as configured)
+"
+" The join utility command is configured by default as follows:
+" let CCTreeJoinProgCmd = 'PROG_JOIN JOIN_OPT IN_FILES > OUT_FILE'
+"
+" let g:CCTreeJoinProg = 'cat' " PROG_JOIN
+" let g:CCTreeJoinProgOpts = "" " JOIN_OPT
+"
+"
+" }}}
+" {{{ Limitations:
+" Basic Symbol Processing:
+" The accuracy of the call-tree will only be as good as the cscope
+" database generation.
+" NOTE: Different flavors of Cscope have some known
+" limitations due to the lexical analysis engine. This results
+" in incorrectly identified function blocks, etc.
+" Enhanced Symbol Processing:
+" (1) Cscope does not mark-up nameless enums correctly; hence,
+" CCTree cannot recognize nameless enum symbols.
+" }}}
+" {{{ History:
+" Version 1.51: May 18, 2011
+" 1. Robust error reporting when external (split/cat) utils fail
+" Version 1.50: May 6, 2011
+" 1. Support cross-referencing of global variables, macros,
+" enums, and typedefs.
+" Version 1.40: April 22, 2011
+" 1. Maintain order of functions called during forward tracing
+" Version 1.39: April 18, 2011
+" 1. Use +Conceal feature for highlighting (only Vim 7.3)
+" Version 1.33: April 5, 2011
+" 1. Load and trace CCTree native XRefDb directly from disk
+" 2. Fix AppendDB command when 'ignorecase' is set
+" Version 1.26: March 28, 2011
+" 1. Fix macro cross-referencing limitation
+" 2. Correct native xref file format
+" Version 1.21: March 21, 2011
+" 1. Support serialization of loaded
+" cscope databases (for faster loading)
+" Version 1.07: March 09, 2011
+" 1. Fix new keymaps incorrectly applied to buffer
+" 2. CCTreeOptsToggle command for toggling options
+"
+" Version 1.04: March 06, 2011
+" 1. Customization for key mappings
+" 2. Dynamic configuration of UI variables
+" 3. Folding long call-trees to show current path dynamically
+"
+" Version 1.01: March 04, 2011
+" 1. Make UTF-8 symbols for tree optional
+"
+" Version 1.00: March 02, 2011
+" 1. Staging release for upcoming features
+" - Complete refactoring of code to take
+" advantage of VimScript's OO features
+" 2. Faster decompression of symbols
+" 3. Display related changes
+" - Use of unicode symbols for tree
+" 4. Bugfixes related to multi-database loading
+"
+" Version 0.90: February 18, 2011
+" 1. Support for large databases using external split utility or perl
+" interface
+"
+" Version 0.85: February 9, 2011
+" 1. Significant increase in database loading and decompression speeds
+"
+" Version 0.80: February 4, 2011
+" 1. Reduce memory usage by removing unused xref symbols
+"
+" Version 0.75: June 23, 2010
+" 1. Support for saving CCTree preview window; multiple
+" CCTree windows can now be open
+"
+" Version 0.71: May 11, 2010
+" 1. Fix script bug
+
+" Version 0.70: May 8, 2010
+" 1. Functionality to load multiple cscope databases
+"
+" Version 0.65: July 12, 2009
+" 1. Toggle preview window
+"
+" Version 0.61: December 24, 2008
+" 1. Fixed bug when processing include files
+" 2. Remove 'set ruler' option
+"
+" Version 0.60: November 26, 2008
+" 1. Added support for source-file dependency tree
+"
+" Version 0.50: October 17, 2008
+" 1. Optimizations for compact memory foot-print and
+" improved compressed-database load speeds
+"
+" Version 0.41: October 6, 2008
+" 1. Minor fix: Compressed cscope databases will load
+" incorrectly if encoding is not 8-bit
+"
+" Version 0.4: September 28, 2008
+" 1. Rewrite of "tree-display" code
+" 2. New syntax hightlighting
+" 3. Dynamic highlighting for call-trees
+" 4. Support for new window modes (vertical, horizontal)
+" 5. New display format option for compact or wide call-trees
+" NOTE: defaults for tree-orientation set to vertical
+"
+" Version 0.3:
+" September 21, 2008
+" 1. Support compressed cscope databases
+" 2. Display window related bugs fixed
+" 3. More intuitive display and folding capabilities
+"
+" Version 0.2:
+" September 12, 2008
+" (Patches from Yegappan Lakshmanan, thanks!)
+" 1. Support for using the plugin in Vi-compatible mode.
+" 2. Filtering out unwanted lines before processing the db.
+" 3. Command-line completion for the commands.
+" 4. Using the cscope db from any directory.
+"
+" Version 0.1:
+" August 31,2008
+" 1. Cross-referencing support for only functions and macros
+" Functions inside macro definitions will be incorrectly
+" attributed to the top level calling function
+"
+" }}}
+" {{{ Thanks:
+"
+" Qaiser Durrani (ver 1.51 -- Reporting issues with SunOS)
+" Ben Fritz (ver 1.39 -- Suggestion/Testing for conceal feature)
+" Ben Fritz (ver 1.26 -- Bug report)
+" Frank Chang (ver 1.0x -- testing/UI enhancement ideas/bug fixes)
+" Arun Chaganty/Timo Tiefel (Ver 0.60 -- bug report)
+" Michael Wookey (Ver 0.4 -- Testing/bug report/patches)
+" Yegappan Lakshmanan (Ver 0.2 -- Patches)
+"
+" The Vim Community, ofcourse :)
+"=============================================================================
+" }}}
+
+" {{{ Init
+if !exists('loaded_cctree') && v:version >= 700
+ " First time loading the cctree plugin
+ let loaded_cctree = 1
+else
+ "finish
+endif
+
+" Line continuation used here
+let s:cpo_save = &cpoptions
+set cpoptions&vim
+
+" Trick to get the current script ID
+map <SID>xx <SID>xx
+let s:sid = substitute(maparg('<SID>xx'), '<SNR>\(\d\+_\)xx$', '\1', '')
+unmap <SID>xx
+"}}}
+" {{{ Global variables; Modify in .vimrc to modify default behavior
+" {{{General
+if !exists('CCTreeCscopeDb')
+ let CCTreeCscopeDb = "cscope.out"
+endif
+" revisit
+if !exists('CCTreeDb')
+ let CCTreeDb = "cctree.out"
+endif
+if !exists('CCTreeRecursiveDepth')
+ let CCTreeRecursiveDepth = 3
+endif
+if !exists('CCTreeMinVisibleDepth')
+ let CCTreeMinVisibleDepth = 3
+endif
+if !exists('CCTreeEnhancedSymbolProcessing')
+ let CCTreeEnhancedSymbolProcessing = 0
+endif
+" }}}
+" {{{ Custom user-key mappings
+if !exists('CCTreeKeyTraceForwardTree')
+ let g:CCTreeKeyTraceForwardTree = '<C-\>>'
+endif
+if !exists('CCTreeKeyTraceReverseTree')
+ let g:CCTreeKeyTraceReverseTree = '<C-\><'
+endif
+if !exists('CCTreeKeyHilightTree')
+ let g:CCTreeKeyHilightTree = '<C-l>' " Static highlighting
+endif
+if !exists('CCTreeKeySaveWindow ')
+ let g:CCTreeKeySaveWindow = '<C-\>y'
+endif
+if !exists('CCTreeKeyToggleWindow ')
+ let g:CCTreeKeyToggleWindow = '<C-\>w'
+endif
+if !exists('CCTreeKeyCompressTree ')
+ let g:CCTreeKeyCompressTree = 'zs' " Compress call-tree
+endif
+if !exists('CCTreeKeyDepthPlus')
+ let g:CCTreeKeyDepthPlus = '<C-\>='
+endif
+if !exists('CCTreeKeyDepthMinus')
+ let g:CCTreeKeyDepthMinus = '<C-\>-'
+endif
+" }}}
+" {{{ CCTree UI settings
+if !exists('CCTreeOrientation')
+ let CCTreeOrientation = "topleft"
+endif
+if !exists('CCTreeWindowVertical')
+ let CCTreeWindowVertical = 1
+endif
+if !exists('CCTreeWindowWidth')
+ " -1 is auto select best width
+ let CCTreeWindowWidth = -1
+endif
+if !exists('CCTreeWindowMinWidth')
+ let CCTreeWindowMinWidth = 25
+endif
+if !exists('CCTreeWindowHeight')
+ let CCTreeWindowHeight = -1
+endif
+if !exists('CCTreeDisplayMode')
+ let CCTreeDisplayMode = 1
+endif
+if !exists('CCTreeHilightCallTree')
+ let CCTreeHilightCallTree = 1
+endif
+" }}}
+" {{{ Split prog
+if !exists('CCTreeSplitProgCmd')
+ let CCTreeSplitProgCmd = 'PROG_SPLIT SPLIT_OPT SPLIT_SIZE IN_FILE OUT_FILE_PREFIX'
+endif
+
+if !exists('CCTreeSplitProg')
+ "PROG_SPLIT
+ let CCTreeSplitProg = 'split'
+endif
+
+if !exists('CCTreeSplitProgOption')
+ "SPLIT_OPT
+ let CCTreeSplitProgOption = '-C'
+endif
+
+if !exists('CCTreeDbFileSplitLines')
+ " if SPLIT_OPT is -l
+ " If split program does not support -C, then this parameter must be set to
+ " the number of lines in the split files
+ let CCTreeDbFileSplitLines = -1
+endif
+
+if !exists('CCTreeSplitProgCmd')
+ let CCTreeSplitProgCmd = 'PROG_SPLIT SPLIT_OPT SPLIT_SIZE IN_FILE OUT_FILE_PREFIX'
+endif
+
+if !exists('CCTreeDbFileMaxSize')
+ " if SPLIT_OPT is -C
+ let CCTreeDbFileMaxSize = 40000000 "40 Mbytes
+endif
+
+" }}}
+" {{{ Join/Cat prog
+if !exists('CCTreeJoinProgCmd')
+ let CCTreeJoinProgCmd = 'PROG_JOIN JOIN_OPT IN_FILES > OUT_FILE'
+endif
+
+if !exists('CCTreeJoinProg')
+ "PROG_JOIN
+ let CCTreeJoinProg = 'cat'
+endif
+
+if !exists('CCTreeJoinProgOpts')
+ let CCTreeJoinProgOpts = ""
+endif
+" }}}
+" {{{ Misc (perl)
+if !exists('CCTreeUsePerl')
+ " Disabled by default
+ let CCTreeUsePerl = 0
+if 0 " Auto-detect perl interface (Experimental code)
+ if has('perl)
+perl << PERL_EOF
+ VIM::DoCommand("let CCTreeUsePerl = 1");
+PERL_EOF
+ endif
+endif
+endif
+
+if has('conceal')
+ let s:CCTreeUseConceal = 1
+else
+ let s:CCTreeUseConceal = 0
+endif
+
+if !exists('CCTreeUseUTF8Symbols')
+ let CCTreeUseUTF8Symbols = 0
+endif
+" }}}
+" }}}
+" {{{ Plugin related local variables
+let s:pluginname = 'CCTree'
+let s:windowtitle = 'CCTree-View'
+let s:windowsavetitle = 'CCTree-View-Copy'
+
+let s:DBClasses = { 'cscopeid': 'Cscope', 'cctreexref' : 'CCTree XRef'}
+let s:DBStorage = { 'memory': 'Memory', 'disk' : 'Disk'}
+
+" }}}
+" {{{ Turn on/off debugs
+let s:tag_debug=0
+
+" Use the Decho plugin for debugging
+function! DBGecho(...)
+ if s:tag_debug
+ Decho(a:000)
+ endif
+endfunction
+
+function! DBGredir(...)
+ if s:tag_debug
+ Decho(a:000)
+ endif
+endfunction
+
+function! Pause()
+ call input("sasasD", "asdads")
+endfunction
+" }}}
+" {{{ Progress bar (generic, numeric, rolling)
+let s:GenericProgressBar= {
+ \ 'depth': 0,
+ \ 'depthChar': '',
+ \ 'currentChar': 0,
+ \ 'updateTime': 0,
+ \ 'rangeChars': [],
+ \ 'formatStr' : '',
+ \ 'units' : ''
+ \ }
+
+function! s:GenericProgressBar.mCreate(rangechars, depthchar, fmtStr)
+ let pbr = deepcopy(s:GenericProgressBar)
+ unlet pbr.mCreate
+
+ let pbr.rangeChars = a:rangechars
+ let pbr.depthChar = a:depthchar
+ let pbr.formatStr = a:fmtStr
+
+ return pbr
+endfunction
+
+function! s:GenericProgressBar.mSetDepth(val) dict
+ let self.depth = a:val
+endfunction
+
+function! s:GenericProgressBar.mUpdate() dict
+ let staticchars = repeat(self.depthChar, self.depth)
+ let displayStr = substitute(self.formatStr, "\@PROGRESS\@",
+ \ staticchars . self.rangeChars[self.currentChar], "")
+ call s:StatusLine.mSetExtraInfo(displayStr)
+endfunction
+
+function! s:GenericProgressBar.mDone()
+ call s:StatusLine.mSetExtraInfo("")
+endfunction
+
+let s:ProgressBarRoll = {
+ \ 'updateTime' : 0,
+ \ 'curTime' : 0
+ \}
+
+function! s:ProgressBarRoll.mCreate(rollchars, depthChar) dict
+ let gpbr = s:GenericProgressBar.mCreate(a:rollchars, a:depthChar, "\@PROGRESS\@")
+ let pbr = extend(gpbr, deepcopy(s:ProgressBarRoll))
+ unlet pbr.mCreate
+
+ let pbr.curTime = localtime()
+
+ return pbr
+endfunction
+
+function! s:ProgressBarRoll.mTick(count) dict
+ if (localtime() - self.curTime) > self.updateTime
+ let self.currentChar += 1
+ if self.currentChar == len(self.rangeChars)
+ let self.currentChar = 0
+ endif
+ let self.curTime = localtime()
+ call self.mUpdate()
+ endif
+endfunction
+
+let s:ProgressBarNumeric = {
+ \ 'progress1current' : 0,
+ \ 'progressmax' : 0,
+ \ 'progress1percent' : 0,
+ \ 'progresspercent' : 0,
+ \}
+
+function! s:ProgressBarNumeric.mCreate(maxcount, unit) dict
+ let gpbr = s:GenericProgressBar.mCreate(range(0,200), '',
+ \ "Processing \@PROGRESS\@\%, total ". a:maxcount . " " . a:unit)
+ let progressbar = extend(gpbr, deepcopy(s:ProgressBarNumeric))
+ unlet progressbar.mCreate
+
+ let progressbar.progressmax = a:maxcount
+ let progressbar.progress1percent = a:maxcount/100
+
+ let progressbar.units = a:unit
+
+ return progressbar
+endfunction
+
+
+function! s:ProgressBarNumeric.mTick(count) dict
+ let self.progress1current += a:count
+ if self.progress1percent <= self.progress1current
+ let tmp = (self.progress1current/self.progress1percent)
+ let self.progresspercent += tmp
+ let self.progress1current -= tmp * self.progress1percent
+ let self.currentChar += 1
+ call self.mUpdate()
+ endif
+endfunction
+
+" }}}
+" {{{ Status line
+let s:StatusLine = {
+ \ 'symlastprogress' : 0,
+ \ 'symprogress' : 0,
+ \ 'cursym' : 0,
+ \ 'savedStatusLine' : '',
+ \ 'statusextra' : '',
+ \ 'local':0
+ \}
+
+function! s:StatusLine.mInit() dict
+ let self.savedStatusLine = &l:statusline
+ setlocal statusline=%{CCTreeStatusLine()}
+endfunction
+
+function! s:StatusLine.mRestore() dict
+ let self.currentstatus = ''
+ let self.statusextra = ''
+
+ let &l:statusline = s:StatusLine.savedStatusLine
+ redrawstatus
+endfunction
+
+function! s:StatusLine.mSetInfo(msg) dict
+ let s:StatusLine.currentstatus = a:msg
+ redrawstatus
+endfunction
+
+function! s:StatusLine.mSetExtraInfo(msg) dict
+ let s:StatusLine.statusextra = a:msg
+ redrawstatus
+endfunction
+
+function! CCTreeStatusLine()
+ return s:pluginname. " ".
+ \ s:StatusLine.currentstatus . " -- ".
+ \ s:StatusLine.statusextra
+endfunction
+"}}}
+" {{{ Shell command interface
+
+let s:ShellCmds = {'shellOutput': ''}
+
+function! s:ShellCmds.mSplit(inFile, outFile)
+ let cmdEx = substitute(g:CCTreeSplitProgCmd, "PROG_SPLIT", g:CCTreeSplitProg,"")
+ let cmdEx = substitute(cmdEx, "SPLIT_OPT", g:CCTreeSplitProgOption,"")
+ if g:CCTreeDbFileSplitLines != -1
+ let cmdEx = substitute(cmdEx, "SPLIT_SIZE", g:CCTreeDbFileSplitLines,"")
+ else
+ let cmdEx = substitute(cmdEx, "SPLIT_SIZE", g:CCTreeDbFileMaxSize,"")
+ endif
+ let cmdEx = substitute(cmdEx, "IN_FILE", a:inFile,"")
+ let cmdEx = substitute(cmdEx, "OUT_FILE_PREFIX", a:outFile,"")
+
+ return cmdEx
+endfunction
+
+function! s:ShellCmds.mJoin(inFileList, outFile)
+ let cmdEx = substitute(g:CCTreeJoinProgCmd, "PROG_JOIN", g:CCTreeJoinProg,"")
+ let cmdEx = substitute(cmdEx, "JOIN_OPT", g:CCTreeJoinProgOpts,"")
+ let cmdEx = substitute(cmdEx, "IN_FILES", a:inFileList,"")
+ let cmdEx = substitute(cmdEx, "OUT_FILE", a:outFile,"")
+
+ return cmdEx
+endfunction
+
+function! s:ShellCmds.mExec(cmd)
+ let s:shellOutput= system(a:cmd)
+ if s:shellOutput != ''
+ " Failed
+ return s:CCTreeRC.Error
+ endif
+ return s:CCTreeRC.Success
+endfunction
+
+" }}}
+
+" {{{ Virtual file interface
+let s:vFile = {}
+
+function! s:vFile.mCreate(fname, mode)
+ if a:mode == 'r'
+ return s:vFileR.mCreate(a:fname)
+ elseif a:mode == 'w'
+ return s:vFileW.mCreate(a:fname)
+ endif
+ return -1
+endfunction
+
+let s:vFileW = {
+ \ 'splitfiles' : [],
+ \ 'totSplits' : 0,
+ \ 'lines' : [],
+ \ 'fileSize' : 0
+ \}
+
+function! s:vFileW.mCreate(fname) dict
+ let vfile = deepcopy(s:vFileW)
+ unlet vfile.mCreate
+ let vfile.link = a:fname
+
+ return vfile
+endfunction
+
+function! s:vFileW.mCreateSplit() dict
+ " first split, create name
+ if self.totSplits == 0
+ let self.tlink = tempname()
+ endif
+ let fname = self.tlink .'_'. self.totSplits
+ call writefile(self.lines, fname)
+ call add(self.splitfiles, fname)
+ let self.lines = []
+ let self.totSplits += 1
+endfunction
+
+function! s:vFileW.mTestForSplit() dict
+ if self.fileSize > g:CCTreeDbFileMaxSize
+ call self.mCreateSplit()
+ endif
+endfunction
+
+function! s:vFileW.mAddFileSize(size) dict
+ let self.fileSize += a:size
+endfunction
+
+function! s:vFileW.mWriteList(linelist) dict
+ call extend(self.lines, a:linelist)
+ call self.mTestForSplit()
+endfunction
+
+function! s:vFileW.mWriteLine(line) dict
+ call add(self.lines, a:line)
+ call self.mAddFileSize(len(a:line))
+ call self.mTestForSplit()
+endfunction
+
+function! s:vFileW.mClose() dict
+ if self.totSplits == 0
+ call writefile(self.lines, self.link)
+ else
+ " force remaining lines into a new split
+ call self.mCreateSplit()
+ " now join all of them
+ let filelist = join(self.splitfiles, " ")
+ let cmdEx = s:ShellCmds.mJoin(filelist, self.link)
+ if s:ShellCmds.mExec(cmdEx) != s:CCTreeRC.Success
+ let msg = s:shellOutput ."Shell command: ".cmdEx. " failed!".
+ \ " Refer help to setup split/join utils."
+ call s:CCTreeUtils.mWarningPrompt(msg)
+ endif
+ endif
+ for afile in self.splitfiles
+ call delete(afile)
+ endfor
+ return 0
+endfunction
+
+let s:vFileR = {
+ \ 'splitfiles' : [],
+ \ 'currentSplitIdx' : 0,
+ \ 'totSplits' : 0,
+ \ 'lines' : [],
+ \ 'valid' : 0,
+ \ 'mode' : ""
+ \}
+
+
+function! s:vFileR.mIsLargeFile() dict
+ if (getfsize(self.link) > g:CCTreeDbFileMaxSize)
+ return 1
+ endif
+ return 0
+endfunction
+
+function! s:vFileR.mCreate(fname) dict
+ let vfile = deepcopy(s:vFileR)
+ unlet vfile.mCreate
+ let vfile.link = a:fname
+ let vfile.valid = filereadable(a:fname)
+ let vfile.size = getfsize(a:fname)
+
+ return vfile
+endfunction
+
+function! s:vFileR.mOpen() dict
+ if self.mode == 'w'
+ " no need to do anything
+ return 0
+ endif
+
+ if self.mIsLargeFile() == 0
+ "little trick to keep interface uniform when we don't split
+ call add(self.splitfiles, self.link)
+ let self.totSplits = 1
+ else
+ let tmpDb = tempname()
+ let cmdEx = s:ShellCmds.mSplit(self.link, tmpDb)
+
+ if s:ShellCmds.mExec(cmdEx) != s:CCTreeRC.Success
+ let msg = s:shellOutput ."Shell command: ".cmdEx. " failed!".
+ \ " Refer help to setup split/join utils."
+ call s:CCTreeUtils.mWarningPrompt(msg)
+ return -1
+ else
+ let self.splitfiles = split(expand(tmpDb."*"), "\n")
+ endif
+ if empty(self.splitfiles)
+ return -1
+ endif
+ endif
+ let self.totSplits = len(self.splitfiles)
+ return 0
+endfunction
+
+function! s:vFileR.mRead() dict
+ if (self.currentSplitIdx >= len(self.splitfiles))
+ " out of bounds
+ return -1
+ endif
+ let self.lines = readfile(self.splitfiles[self.currentSplitIdx])
+ let self.currentSplitIdx += 1
+ return 0
+endfunction
+
+function! s:vFileR.mRewind() dict
+ let self.currentSplitIdx = 0
+ let self.lines = []
+endfunction
+
+
+function! s:vFileR.mClose() dict
+ if self.totSplits == 1
+ return
+ endif
+ for afile in self.splitfiles
+ call delete(afile)
+ endfor
+endfunction
+"}}}
+" {{{Stop watch
+let s:StopWatch = {
+ \ 'text' : "(no reltime feature)",
+ \}
+
+function! s:StopWatch.mCreate() dict
+ let stopWatch = deepcopy(s:StopWatch)
+ unlet stopWatch.mCreate
+
+ call stopWatch.mReset()
+ return stopWatch
+endfunction
+
+function! s:StopWatch.mReset() dict
+ if has('reltime')
+ let self.startRTime = reltime()
+ else
+ let self.startRTime = localtime()
+ endif
+endfunction
+
+function! s:StopWatch.mSnapElapsed() dict
+ if has('reltime')
+ let self.text = reltimestr(reltime(self.startRTime))
+ else
+ let self.text = localtime() - self.startRTime
+ endif
+endfunction
+
+function! s:StopWatch.mGetText() dict
+ return self.text
+endfunction
+"}}}
+" {{{ Digraph character compression/decompression routines
+
+let s:CharMaps = {
+ \'savedEncoding' : '',
+ \'mapkind' : ''
+ \}
+
+" The encoding needs to be changed to 8-bit, otherwise we can't swap special
+" 8-bit characters; restore after done
+function! s:CharMaps.mInitTranslator() dict
+ if self.mapkind == 'Alpha'
+ let self.savedEncoding = &encoding
+ let &encoding="latin1"
+ endif
+endfunction
+
+function! s:CharMaps.mDoneTranslator() dict
+ if self.mapkind == 'Alpha'
+ let &encoding=self.savedEncoding
+ endif
+endfunction
+
+function! s:CharMaps.CrossProduct(seq1, seq2) dict
+ let cpSeq = []
+ for dc1 in range(strlen(a:seq1))
+ for dc2 in range(strlen(a:seq2))
+ call add(cpSeq, a:seq1[dc1].a:seq2[dc2])
+ endfor
+ endfor
+ return cpSeq
+endfunction
+
+let s:TranslateMap = {}
+
+function! s:TranslateMap.mCreate (srcsym, destsym, mapkind, regex) dict
+ let dicttable = extend(deepcopy(s:CharMaps), deepcopy(s:TranslateMap))
+ unlet dicttable.CrossProduct
+
+ let dicttable.mappings = {}
+
+ " map lower
+ let maxsym = min([len(a:srcsym),len (a:destsym)])
+
+ let index = 0
+ while (index < maxsym)
+ let dicttable.mappings[a:srcsym[index]] = a:destsym[index]
+ let index += 1
+ endwhile
+ " Need mapping lens, we assume it's constant across the board
+ let dicttable.mapsrclen = len(a:srcsym[0])
+ let dicttable.regex = a:regex
+
+
+ if a:mapkind == 'Alpha'
+ let dicttable.mTranslate = dicttable.mTranslateAlpha
+ elseif a:mapkind == 'Numeric'
+ let dicttable.mTranslate = dicttable.mTranslateNumeric
+ endif
+
+ let dicttable.mapkind = a:mapkind
+
+ unlet dicttable.mTranslateNumeric
+ unlet dicttable.mTranslateAlpha
+
+ return dicttable
+endfunction
+
+
+function! s:TranslateMap.mTranslateNumeric(value) dict
+ let index = 0
+ let retval = ""
+
+ " remember to deal with multi-byte characters
+ while index < len(a:value)
+ let char1 = char2nr(a:value[index])
+ if has_key(self.mappings, char1)
+ let newmap = self.mappings[char1]
+ else
+ " take only the first character
+ let newmap = a:value[index]
+ endif
+ let retval .= newmap
+ let index += 1
+ endwhile
+ return retval
+endfunction
+
+function! s:TranslateMap.mTranslateAlpha(value) dict
+ let retval = substitute(a:value, self.regex, '\=self.mappings[submatch(1)]', "g")
+ return retval
+endfunction
+
+function! s:CCTreeGetXRefDbMaps(maptype, mapkind)
+ let dichar1 = ",0123456789"
+ let dichar2 = ",0123456789"
+
+ return s:CCTreeCreateGenericMaps(a:maptype, a:mapkind, dichar1, dichar2)
+endfunction
+
+function! s:CCTreeGetCscopeMaps(maptype, mapkind)
+ let dichar1 = " teisaprnl(of)=c"
+ let dichar2 = " tnerpla"
+
+ return s:CCTreeCreateGenericMaps(a:maptype, a:mapkind, dichar1, dichar2)
+endfunction
+
+
+function! s:CCTreeCreateGenericMaps(maptype, mapkind, dichar1, dichar2)
+ let s:CharMaps.mapkind = a:mapkind
+ call s:CharMaps.mInitTranslator()
+ if a:mapkind == 'Numeric'
+ let ab = map(range(128,255), 'v:val')
+ elseif a:mapkind == 'Alpha'
+ let ab = map(range(128,255), 'nr2char(v:val)')
+ else
+ return {}
+ endif
+ let ac = s:CharMaps.CrossProduct(a:dichar1, a:dichar2)
+ if a:maptype == 'Compress'
+ let maps = s:TranslateMap.mCreate(ac, ab, a:mapkind,
+ \'\(['.a:dichar1.']['.a:dichar2.']\)\C')
+ elseif a:maptype == 'Uncompress'
+ let maps = s:TranslateMap.mCreate(ab, ac, a:mapkind,
+ \'\([\d128-\d255]\)')
+ endif
+ call s:CharMaps.mDoneTranslator()
+ return maps
+endfunction
+" }}}
+" {{{ Unique list filter object
+
+let s:UniqList = {}
+
+function! s:UniqList.mFilterEntries(lstval) dict
+ let valdict = {}
+ let reslist = ''
+ for aval in a:lstval
+ if !has_key(valdict, aval)
+ let valdict[aval] = ''
+ let reslist .= (aval . ",")
+ endif
+ endfor
+ return reslist
+endfunction
+
+let s:CCTreeUniqListFilter = deepcopy(s:UniqList)
+function! s:CCTreeMakeCommaListUnique(clist)
+ let entries = split(a:clist, ",")
+ if len(entries) > 0
+ return s:CCTreeUniqListFilter.mFilterEntries(entries)
+ endif
+ return ""
+endfunction
+" }}}
+" {{{ Buffer/Window
+func! s:FindOpenBuffer(filename)
+ let bnrHigh = bufnr("$")
+ "tabpagebuflist(tabpagenr())
+
+ for bufnrs in range(1, bnrHigh)
+ if (bufexists(bufnrs) == 1 && bufname(bufnrs) == a:filename && bufloaded(bufnrs) != 0 )
+ return bufnrs
+ endif
+ endfor
+ " Could not find the buffer
+ return 0
+endfunction
+
+func! s:FindOpenWindow(filename)
+ let bufnr = s:FindOpenBuffer(a:filename)
+ if (bufnr > 0)
+ let newWinnr = bufwinnr(bufnr)
+ if newWinnr != -1
+ exec newWinnr.'wincmd w'
+ return 1
+ endif
+ endif
+ " Could not find the buffer
+ return 0
+endfunction
+" }}}
+" {{{ Utils library
+
+let s:Utils = {}
+
+" Use this function to determine the correct "g" flag
+" for substitution
+function! s:Utils.mGetSearchFlag(gvalue)
+ let ret = (!a:gvalue)* (&gdefault) + (!&gdefault)*(a:gvalue)
+ if ret == 1
+ return 'g'
+ endif
+ return ''
+endfunc
+
+" Strlen works for multibyte characters
+function! s:Utils.mStrlenEx(val)
+ return strlen(substitute(a:val, ".", "x", "g"))
+endfunc
+" }}}
+" {{{ Generic db loader interface
+let s:GenericDbLdr = {
+ \ 'fDBName' : '',
+ \ 'class' : 'Generic',
+ \ }
+
+function! s:GenericDbLdr.mCreate(fname) dict
+ let gdb = deepcopy(s:GenericDbLdr)
+ unlet gdb.mCreate
+ let gdb.fDBName = a:fname
+
+ if !filereadable(a:fname)
+ return s:CCTreeRC.Error
+ endif
+
+ return gdb
+endfunction
+
+function! s:GenericDbLdr.mParseDbHeader(gRdr)
+ let header = readfile(self.fDBName, "", a:gRdr.headerLines)
+ return a:gRdr.mParseDbHeader(header)
+endfunction
+
+let s:XRefMemDbLdr = {
+ \ 'class' : s:DBStorage.memory
+ \}
+
+function! s:XRefMemDbLdr.mCreate(fname) dict
+ let gdb = s:GenericDbLdr.mCreate(a:fname)
+ if type(gdb) != type({})
+ return gdb
+ endif
+ let mdb = extend(gdb, deepcopy(s:XRefMemDbLdr))
+ unlet mdb.mCreate
+
+ return mdb
+endfunction
+
+if has('perl') && g:CCTreeUsePerl == 1
+" Perl function
+function! s:XRefMemDbLdr.mLoadFileIntoXRefDb(xRefDb, gRdr) dict
+ let stage = 1
+ for afltr in a:gRdr.opts
+ let stageidxstr = 'Stage ('.stage.'/'.len(a:gRdr.opts).') '
+ call s:StatusLine.mSetInfo(stageidxstr. ': (PERL) Loading database ')
+ call a:gRdr.mProcessingStateInit()
+ let pBar = s:ProgressBarNumeric.mCreate(getfsize(self.fDBName), "bytes")
+ echomsg 'filtering '. afltr
+perl << PERL_EOF
+ #use strict;
+ #use warnings FATAL => 'all';
+ #use warnings NONFATAL => 'redefine';
+
+ my $filebytes = 0;
+ my $filterpat = VIM::Eval("afltr");
+
+ open (CSCOPEDB, VIM::Eval("self.fDBName")) or die "File trouble!";
+ #VIM::DoCommand("echomsg '".$filterpat."'");
+
+ while (<CSCOPEDB>) {
+ $filebytes += length($_);
+ chomp($_);
+
+ if ($_ !~ $filterpat) {
+ next;
+ }
+ VIM::DoCommand("call pBar.mTick(".$filebytes.")");
+ $filebytes = 0;
+ VIM::DoCommand("call a:gRdr.mProcessSymbol(a:xRefDb, '".$_."')");
+ }
+ VIM::DoCommand("call pBar.mDone()");
+ close(CSCOPEDB);
+PERL_EOF
+ call a:gRdr.mProcessingStateDone()
+ let stage += 1
+ endfor
+endfunction
+else
+" Native Vim function
+function! s:XRefMemDbLdr.mLoadFileIntoXRefDb(xRefDb, gRdr) dict
+ let vDbFile = s:vFile.mCreate(self.fDBName, "r")
+ if vDbFile.valid == 0
+ return -1
+ endif
+ if vDbFile.mIsLargeFile() == 1
+ call s:StatusLine.mSetExtraInfo('Database '
+ \.' >'.g:CCTreeDbFileMaxSize .' bytes. Splitting '.
+ \'into smaller chunks... (this may take some time)')
+ endif
+ try
+ if vDbFile.mOpen() == 0
+ call self.mReadFileIntoXRefDb(vDbFile,
+ \ a:xRefDb,
+ \ a:gRdr)
+ endif
+ finally
+ call vDbFile.mClose()
+ endtry
+endfunction
+endif
+
+function! s:XRefMemDbLdr.mReadFileIntoXRefDb(vDbFile, xrefdb, gRdr)
+ let stage = 0
+ for afltr in a:gRdr.opts
+ call a:vDbFile.mRewind()
+ let stage += 1
+ call a:gRdr.mProcessingStateInit()
+ while 1 == 1
+ if a:vDbFile.mRead() == -1
+ break
+ endif
+ let stageidxstr = 'Stage ('.stage.'/'.len(a:gRdr.opts).') '
+ let fileidxstr = '('.a:vDbFile.currentSplitIdx.'/'.a:vDbFile.totSplits.') '
+ call s:StatusLine.mSetInfo(stageidxstr. ': Reading database chunk '.fileidxstr)
+ " Filter-out lines that doesn't have relevant information
+ let plist = a:gRdr.mReadLinesFromFile(a:vDbFile, afltr)
+ let pBar = s:ProgressBarNumeric.mCreate(len(plist), "items")
+ call s:StatusLine.mSetInfo(stageidxstr.': Analyzing database chunk '.fileidxstr)
+ call self.mProcessListIntoXrefDb(plist, a:gRdr, a:xrefdb, pBar)
+ call pBar.mDone()
+ " clean-up memory
+ call garbagecollect()
+ endwhile
+ call a:gRdr.mProcessingStateDone()
+ endfor
+endfunction
+
+function! s:XRefMemDbLdr.mProcessListIntoXrefDb(symbols, rdr, xrefdb, pbar)
+ for a in a:symbols
+ call a:pbar.mTick(1)
+ call a:rdr.mProcessSymbol(a:xrefdb, a)
+ endfor
+endfunction
+
+function! s:GenericDbLdr.mParseDbHeader(gRdr)
+ let header = readfile(self.fDBName, "", a:gRdr.headerLines)
+ return a:gRdr.mParseDbHeader(header)
+endfunction
+
+" }}}
+" {{{ Generic Disk DB Ldr
+let s:XRefDiskDbLdr = {
+ \ 'class' : s:DBStorage.disk
+ \ }
+
+function! s:XRefDiskDbLdr.mCreate(fname) dict
+ let gdb = s:GenericDbLdr.mCreate(a:fname)
+ if type(gdb) != type({})
+ return gdb
+ endif
+ let mdb = extend(gdb, deepcopy(s:XRefDiskDbLdr))
+ unlet mdb.mCreate
+
+ return mdb
+endfunction
+
+function! s:XRefDiskDbLdr.mLoadFileIntoXRefDb(xRefDb, gRdr) dict
+ call a:xRefDb.mSetLink(self.fDBName)
+endfunction
+
+"}}}
+" {{{ Xref disk DB
+let s:XRefDiskDb = {
+ \ 'link':'',
+ \ 'savedTags': '',
+ \ 'class' : s:DBStorage.disk
+ \ }
+
+function! s:XRefDiskDb.mCreate() dict
+ let fdb = deepcopy(s:XRefDiskDb)
+ unlet fdb.mCreate
+ let fdb.maps = s:CCTreeGetXRefDbMaps('Uncompress', 'Numeric')
+
+ return fdb
+endfunction
+
+function! s:XRefDiskDb.mSetLink(filedb) dict
+ let self.link = a:filedb
+ " revisit, do parse header here
+endfunction
+
+function! s:XRefDiskDb.mClear() dict
+ " do nothing
+endfunction
+
+function! s:XRefDiskDb.mInitState() dict
+ let self.savedTags = &tags
+ let &tags = self.link
+endfunction
+
+function! s:XRefDiskDb.mRestoreState() dict
+ let &tags = self.savedTags
+endfunction
+
+function! s:XRefDiskDb.mDecodeTagEntry(tagentry) dict
+ let itms = split(a:tagentry.name, "#")
+ let a:tagentry.n = itms[1]
+ let a:tagentry.idx = itms[0]
+
+ " Vim taglist() drops empty fields, so need to protect
+ if has_key(a:tagentry, 'c')
+ let a:tagentry.c = self.maps.mTranslate(a:tagentry.c)
+ else
+ let a:tagentry.c = ''
+ endif
+ if has_key(a:tagentry, 'p')
+ let a:tagentry.p = self.maps.mTranslate(a:tagentry.p)
+ else
+ let a:tagentry.p = ''
+ endif
+
+ return a:tagentry
+endfunction
+
+function! s:XRefDiskDb.mGetSymbolIdFromName(symname) dict
+ let symtagline = taglist('\#'.a:symname.'$')
+ let g:xyz = symtagline
+ let asym = self.mDecodeTagEntry(symtagline[0])
+ return asym.idx
+endfunction
+
+function! s:XRefDiskDb.mGetSymbolFromId(symid) dict
+ let symtagline = taglist('^'.a:symid.'\#')
+ if empty(symtagline)
+ echomsg "Failed to locate ".a:symid
+ else
+ return self.mDecodeTagEntry(symtagline[0])
+ endif
+ return {}
+endfunction
+
+function! s:XRefDiskDb.mGetSymbolIds() dict
+ " illegal
+ let symtaglines = taglist('^.')
+ return keys(self.symidhash)
+endfunction
+
+function! s:XRefDiskDb.mGetSymbolNames(lead) dict
+ if empty(a:lead)
+ let symtaglines = taglist('^.')
+ else
+ let symtaglines = taglist('#'.a:lead)
+ endif
+ let alist = []
+ for atag in symtaglines
+ let acctreesym = self.mDecodeTagEntry(atag)
+ call add(alist, acctreesym.n)
+ endfor
+ return alist
+endfunction
+" }}}
+" {{{ TagFile utils
+let s:CCTreeTagDbRdr = {'class': 'CCTreeXrefDb',
+ \ 'headerLines' : 4,
+ \ 'compressed' : 0,
+ \ 'opts': ['v:val !~ "^[\!]"'],
+ \ 'perl_opts': "^[^\!]",
+ \ 'mapPreKeys': {'c':'','p':''},
+ \ 'mapPostKeys': {'c':'','p':''}
+ \ }
+
+function! s:CCTreeTagDbRdr.mCreate(fname) dict
+ let cctxdbrdr = deepcopy(s:CCTreeTagDbRdr)
+ unlet cctxdbrdr.mCreate
+
+ return cctxdbrdr
+endfunction
+
+function! s:CCTreeTagDbRdr.mRequirePreProcessing() dict
+ return s:CCTreeRC.False
+endfunction
+
+function! s:CCTreeTagDbRdr.mRequirePostProcessing() dict
+ return s:CCTreeRC.True
+endfunction
+
+function! s:CCTreeTagDbRdr.mRequireCleanup() dict
+ " Clean-up all symbols [never]
+ return s:CCTreeRC.False
+endfunction
+
+function! s:CCTreeTagDbRdr.mGetPreProcessingMaps() dict
+ return s:CCTreeGetXRefDbMaps('Compress', 'Alpha')
+endfunction
+
+function! s:CCTreeTagDbRdr.mGetPostProcessingMaps() dict
+ return s:CCTreeGetXRefDbMaps('Uncompress', 'Alpha')
+endfunction
+
+
+function! s:CCTreeTagDbRdr.mParseDbHeader(hdr) dict
+ " just check line 3 for sanity
+ if a:hdr[2] =~ "CCTree"
+ return s:CCTreeRC.Success
+ endif
+ return s:CCTreeRC.Error
+endfunction
+
+function! s:CCTreeTagDbRdr.mProcessingStateInit() dict
+endfunction
+
+function! s:CCTreeTagDbRdr.mProcessingStateDone() dict
+endfunction
+
+function! s:CCTreeTagDbRdr.mReadLinesFromFile(vdbFile, filtercmds) dict
+ " Hard-coded assumptions here about format for performance
+ if empty(get(a:vdbFile.lines, 0)) != 1 && a:vdbFile.lines[0][0] == "!"
+ " filter out the first few lines starting with "!"
+ call remove(a:vdbFile.lines, 0, self.headerLines-1)
+ endif
+ return a:vdbFile.lines
+endfunction
+
+function! s:CCTreeTagDbRdr.mProcessSymbol(xrefdb, aline) dict
+ let cctreesym = self.mDecodeTagLine(a:aline)
+ call a:xrefdb.mInsertSym(cctreesym.idx, cctreesym)
+ " we really don't need idx any longer
+ unlet cctreesym.idx
+endfunction
+
+function! s:CCTreeTagDbRdr.mDecodeTagLine(tagline) dict
+
+ let items = split(a:tagline, "\t")
+ let newsym = s:CCTreeSym.mCreate("")
+ try
+ let [newsym.idx, newsym.n] = split(items[0], '#')
+ catch
+ echomsg "problem decoding ". a:tagline
+ endtry
+
+ "let newsym.idx = strpart(items[0], 0, idxBr)
+ "let newsym.n = items[0][ idxBr+1 : -2] "strpart(items[0], idxBr+1, strlen(items[0])-1)
+ if empty(get(items, 3)) != 1
+ let newsym.c = items[3][2:]
+ endif
+ if empty(get(items, 4)) != 1
+ let newsym.p = items[4][2:]
+ endif
+ return newsym
+endfunction
+
+" }}}
+" {{{ Generic Db Serializer
+let s:GenericDbSerializer = {}
+
+function! s:GenericDbSerializer.mCreate(xrefdb) dict
+ let gDbSerializer = deepcopy(s:GenericDbSerializer)
+ let gDbSerializer.xrefdb = a:xrefdb
+ return gDbSerializer
+endfunction
+
+function! s:GenericDbSerializer.mWriteXRefDbToFile(fname,
+ \ gWriter) dict
+ call s:StatusLine.mInit()
+ try
+ call s:StatusLine.mSetInfo('Writing XRefDb')
+ let vDbFile = s:vFile.mCreate(a:fname, "w")
+ call vDbFile.mWriteList(a:gWriter.mBuildHeader())
+ call self.mWriteSymsToFile(vDbFile, a:gWriter)
+ finally
+ call vDbFile.mClose()
+ call s:StatusLine.mRestore()
+ endtry
+endfunction
+
+function! s:GenericDbSerializer.mWriteSymsToFile(dstVFile,
+ \ gWriter) dict
+ let pBar = s:ProgressBarNumeric.mCreate(self.xrefdb.mGetSymbolCount(),
+ \ "items")
+ call a:gWriter.mInitWriting()
+ " write syms
+ for asymid in sort(self.xrefdb.mGetSymbolIds())
+ let acctreesym = self.xrefdb.mGetSymbolFromId(asymid)
+ call a:dstVFile.mWriteLine(a:gWriter.mBuildTagLine(acctreesym,
+ \ asymid))
+ call pBar.mTick(1)
+ endfor
+ call pBar.mDone()
+ call a:gWriter.mDoneWriting()
+endfunction
+" }}}
+" {{{ CCTreeTagDb Writer
+let s:CCTreeTagDbWriter = {}
+
+function! s:CCTreeTagDbWriter.mCreate(tmaps) dict
+ let dbwriter = deepcopy(s:CCTreeTagDbWriter)
+ unlet dbwriter.mCreate
+
+
+ let dbwriter.tmaps = a:tmaps
+ return dbwriter
+endfunction
+
+function! s:CCTreeTagDbWriter.mInitWriting() dict
+ call self.tmaps.mInitTranslator()
+endfunction
+
+function! s:CCTreeTagDbWriter.mDoneWriting() dict
+ call self.tmaps.mDoneTranslator()
+endfunction
+
+function! s:CCTreeTagDbWriter.mBuildHeader() dict
+ let hdr = []
+ call add(hdr, "!_TAG_FILE_FORMAT\t2\t/extended format; --format=1 will not append ;\" to lines/")
+ call add(hdr, "!_TAG_FILE_SORTED\t1\t/0=unsorted, 1=sorted, 2=foldcase/")
+ call add(hdr, "!_TAG_PROGRAM_NAME\t\tCCTree (Vim plugin)//")
+ call add(hdr, "!_TAG_PROGRAM_URL\thttp://vim.sourceforge.net/scripts/script.php?script_id=2368\t/site/")
+ return hdr
+endfunction
+
+
+function! s:CCTreeTagDbWriter.mBuildTagLine(sym, symid) dict
+ let basetag = a:symid .'#'. a:sym.n."\t"."\t"."/^\$/".";\""
+ let cm = self.tmaps.mTranslate(a:sym.c)
+ let pm = self.tmaps.mTranslate(a:sym.p)
+
+ let basetag .= "\tc:". self.tmaps.mTranslate(a:sym.c)
+ let basetag .= "\tp:". self.tmaps.mTranslate(a:sym.p)
+
+ return basetag
+endfunction
+" }}}
+" {{{ CCTree constants
+let s:CCTreeRC = {
+ \ 'Error' : -1,
+ \ 'True' : 1,
+ \ 'False' : 0,
+ \ 'Success' : 2
+ \ }
+"}}}
+" {{{ CCTree DB Obj
+" Symbol definition
+
+let s:CCTreeSym = {
+ \'k': "",
+ \'n': "",
+ \'c': "",
+ \'p': ""
+ \}
+
+function! s:CCTreeSym.mCreate(name, kind)
+ let sym = deepcopy(s:CCTreeSym)
+ unlet sym.mCreate
+ let sym.n = a:name
+ let sym.k = a:kind
+ return sym
+endfunction
+
+
+" }}}
+" {{{ GenericXref, XrefDb
+let s:GenericXRef = {}
+
+function! s:GenericXRef.mCreate(filedb) dict
+ let gxref = deepcopy(s:GenericXRef)
+ return gxref
+endfunction
+
+function! s:GenericXRef.mInitState() dict
+endfunction
+
+function! s:GenericXRef.mRestoreState() dict
+endfunction
+" {{{ XRef Database object
+let s:xRefMemDb = {
+ \ 'symuniqid': 0,
+ \ 'symidhash' : {},
+ \ 'symnamehash' : {},
+ \ 'class' : s:DBStorage.memory
+ \}
+
+
+function s:xRefMemDb.mCreate() dict
+ let dbObj = deepcopy(s:xRefMemDb)
+ unlet dbObj.mCreate
+
+ return dbObj
+endfunction
+
+function s:xRefMemDb.mInitState() dict
+endfunction
+
+function s:xRefMemDb.mRestoreState() dict
+endfunction
+
+function s:xRefMemDb.mClear() dict
+ let self.symidhash = {}
+ let self.symnamehash = {}
+ let self.symuniqid = 0
+endfunction
+
+function! s:xRefMemDb.mInsertSym(idx, cctreesym) dict
+ let self.symuniqid = max([self.symuniqid, a:idx])
+ let self.symidhash[a:idx] = a:cctreesym
+ let self.symnamehash[a:cctreesym.n] = a:idx
+endfunction
+
+function! s:xRefMemDb.mRemoveSymById(symidx) dict
+ call self.mRemoveSymByName(acctreesym.n)
+ call remove(self.symidhash, a:symidx)
+endfunction
+
+function! s:xRefMemDb.mRemoveSymByName(symname) dict
+ call remove(self.symnamehash, a:symname)
+endfunction
+
+function! s:xRefMemDb.mAddSym(name, kind) dict
+ if !has_key(self.symnamehash, a:name)
+ let self.symnamehash[a:name] = self.symuniqid
+ let self.symidhash[self.symuniqid] =
+ \s:CCTreeSym.mCreate(a:name, a:kind)
+ let self.symuniqid += 1
+ endif
+ let asymid = self.symnamehash[a:name]
+ if a:kind != ""
+ let asym = self.symidhash[asymid]
+ let asym.k = a:kind
+ endif
+ return asymid
+endfunction
+
+function! s:xRefMemDb.mMarkXRefSyms(funcentryidx, newfuncidx) dict
+ let self.symidhash[a:funcentryidx]['c'] .= (",". a:newfuncidx)
+ let self.symidhash[a:newfuncidx]['p'] .= (",". a:funcentryidx)
+endfunction
+
+function! s:xRefMemDb.mGetSymbolFromName(symname) dict
+ return self.symidhash[self.symnamehash[a:symname]]
+endfunction
+
+function! s:xRefMemDb.mGetSymbolIdFromName(symname) dict
+ if has_key(self.symnamehash, a:symname)
+ return self.symnamehash[a:symname]
+ else
+ return s:CCTreeRC.Error
+ endif
+endfunction
+
+function! s:xRefMemDb.mGetSymbolFromId(symid) dict
+ return self.symidhash[a:symid]
+endfunction
+
+function! s:xRefMemDb.mGetSymbolIds() dict
+ return keys(self.symidhash)
+endfunction
+
+function! s:xRefMemDb.mGetSymbolNames(lead) dict
+ let syms = keys(self.symnamehash)
+ if empty(a:lead) != 1
+ return filter(syms, 'v:val =~? a:lead')
+ endif
+ return syms
+endfunction
+
+function! s:xRefMemDb.mGetSymbolCount() dict
+ return len(self.symnamehash)
+endfunction
+
+function! s:xRefMemDb.mTranslateSymbols(map, tkeys) dict
+ call a:map.mInitTranslator()
+ let pBar = s:ProgressBarNumeric.mCreate(len(self.symnamehash), "items")
+
+ for asym in keys(self.symnamehash)
+ let idx = self.symnamehash[asym]
+ let val = self.symidhash[idx]
+ if has_key(a:tkeys, 'n')
+ let uncmpname = a:map.mTranslate(asym)
+ if (asym != uncmpname)
+ "Set up new entry
+ let self.symnamehash[uncmpname] = idx
+ " free the old entry
+ call remove(self.symnamehash, asym)
+ " Set uncompressed name
+ let val.n = uncmpname
+ endif
+ endif
+ if has_key(a:tkeys, 'p')
+ let val.p = a:map.mTranslate(val.p)
+ endif
+ if has_key(a:tkeys, 'c')
+ let val.c = a:map.mTranslate(val.c)
+ endif
+ call pBar.mTick(1)
+ endfor
+ call pBar.mDone()
+ call a:map.mDoneTranslator()
+endfunction
+
+function! s:xRefMemDb.mCleanSymbols () dict
+ let pBar = s:ProgressBarNumeric.mCreate(len(self.symnamehash), "items")
+ for asym in keys(self.symnamehash)
+ let idx = self.symnamehash[asym]
+ let val = self.symidhash[idx]
+ if empty(val.p) && empty(val.c)
+ call remove(self.symnamehash, asym)
+ call remove(self.symidhash, idx)
+ else
+ let val.p = s:CCTreeMakeCommaListUnique(val.p)
+ let val.c = s:CCTreeMakeCommaListUnique(val.c)
+ endif
+ call pBar.mTick(1)
+ endfor
+ call pBar.mDone()
+endfunction
+"}}}
+"}}} End of Xref
+" {{{ Tracer
+let s:CallTree = {
+ \ 'symbol' : ""
+ \ }
+function! s:CallTree.mCreate(name) dict
+ let ct = deepcopy(s:CallTree)
+ unlet ct.mCreate
+
+ let ct.symbol = a:name
+
+ return ct
+endfunction
+
+function! s:CallTree.mAddChildLink(childTree) dict
+ if !has_key(self, 'childlinks')
+ let self.childlinks = []
+ endif
+ call add(self.childlinks, a:childTree)
+endfunction
+
+let s:XRefTracer = {
+ \}
+
+function! s:XRefTracer.mCreate(xrefdb) dict
+ let xreftracer = deepcopy(s:XRefTracer)
+ let xreftracer.xrefdb = a:xrefdb
+
+ return xreftracer
+endfunction
+
+function! s:XRefTracer.mInitTracing() dict
+ call self.xrefdb.mInitState()
+endfunction
+
+function! s:XRefTracer.mDoneTracing() dict
+ call self.xrefdb.mRestoreState()
+endfunction
+
+function! s:XRefTracer.mGetSymbolIdXRef(symid, direction) dict
+ let acctreesym = self.xrefdb.mGetSymbolFromId(a:symid)
+ let symidslist = split(
+ \s:CCTreeMakeCommaListUnique(acctreesym[a:direction]), ",")
+ return symidslist
+endfunction
+
+function! s:XRefTracer.mBuildForSymbol(symid, curdepth, maxdepth,
+ \ direction, pbar) dict
+ if (a:curdepth > a:maxdepth)
+ return {}
+ endif
+
+ call a:pbar.mSetDepth(a:curdepth)
+ let asym = self.xrefdb.mGetSymbolFromId(a:symid)
+ " revisit
+ if empty(asym)
+ return {}
+ endif
+
+ let rtree = s:CallTree.mCreate(asym['n'])
+
+ for entry in self.mGetSymbolIdXRef(a:symid, a:direction)
+ call a:pbar.mTick(1)
+ let ctree =
+ \self.mBuildForSymbol(entry, a:curdepth+1, a:maxdepth,
+ \a:direction, a:pbar)
+ call rtree.mAddChildLink(ctree)
+ endfor
+ return rtree
+endfunction
+" }}}
+
+" {{{ Cscope Reader
+
+
+let s:CscopeDbRdrState = {
+ \'curfuncidx': -1,
+ \'curfileidx': -1,
+ \'curmacroidx': -1,
+ \'curenumidx': -1,
+ \ }
+
+function! s:CscopeDbRdrState.mCreate() dict
+ return deepcopy(s:CscopeDbRdrState)
+endfunction
+
+let s:CscopeDbRdrSymTags = {
+ \'func' : '$}',
+ \'macro' : '#\)',
+ \'file' : '@\~',
+ \'enum' : 'em',
+ \'global' : 'g',
+ \'typedef' : 't',
+ \}
+
+let s:CscopeDbSymFilter = ['v:val =~ "^\t[#`$}@\~\)]"']
+let s:CscopeDbSymEnhFilter = ['v:val =~ "^\t[emgt#`$}@~)]"',
+ \ 'v:val =~ "^\\a\\|^\t[)$}#]"']
+
+let s:CscopeDbSymFilterPerl = ['^\t[\`\#\$\}\@\~\)]']
+let s:CscopeDbSymEnhFilterPerl = ['^\t[\`\#\$\}\@\~\)emgt]',
+ \ '^[A-Za-z]|^\t[\#\$\}\)]']
+
+let s:CscopeDbRdr = {
+ \ 'class': 'Cscope',
+ \ 'headerLines' : 1,
+ \ 'compressed' : 0,
+ \ 'opts': [],
+ \ 'perl_opts': '',
+ \ 'mapPreKeys': {'n':''},
+ \ 'mapPostKeys': {'n':''}
+ \}
+
+function! s:CscopeDbRdr.mCreate(fname, enhanced) dict
+ let csdbrdr = deepcopy(s:CscopeDbRdr)
+ unlet csdbrdr.mCreate
+
+ if a:enhanced == 1
+ if g:CCTreeUsePerl == 1
+ let csdbrdr.opts = s:CscopeDbSymEnhFilterPerl
+ else
+ let csdbrdr.opts = s:CscopeDbSymEnhFilter
+ endif
+ else
+ if g:CCTreeUsePerl == 1
+ let csdbrdr.opts = s:CscopeDbSymFilterPerl
+ else
+ let csdbrdr.opts = s:CscopeDbSymFilter
+ endif
+ endif
+ return csdbrdr
+endfunction
+
+function! s:CscopeDbRdr.mProcessingStateInit() dict
+ let self.iState = s:CscopeDbRdrState.mCreate()
+endfunction
+
+function! s:CscopeDbRdr.mProcessingStateDone() dict
+ " discard state
+ unlet self.iState
+endfunction
+
+function! s:CscopeDbRdr.mReadLinesFromFile(vDbFile, filtercmds) dict
+ return s:CCTreeUtils.mFilter(a:vDbFile.lines, a:filtercmds)
+endfunction
+
+function! s:CscopeDbRdr.mParseDbHeader(dbHeader) dict
+ if a:dbHeader[0] =~ "cscope"
+ if (a:dbHeader[0] !~ "cscope.*\-c")
+ let self.compressed = s:CCTreeRC.True
+ else
+ let self.compressed = s:CCTreeRC.False
+ endif
+ return s:CCTreeRC.Success
+ endif
+ return s:CCTreeRC.Error
+endfunction
+
+function! s:CscopeDbRdr.mRequirePreProcessing() dict
+ return (self.compressed == 1)? s:CCTreeRC.True : s:CCTreeRC.False
+endfunction
+
+function! s:CscopeDbRdr.mRequirePostProcessing() dict
+ return (self.compressed == 1)? s:CCTreeRC.True : s:CCTreeRC.False
+endfunction
+
+function! s:CscopeDbRdr.mRequireCleanup() dict
+ " Clean-up all symbols [always]
+ return s:CCTreeRC.True
+endfunction
+
+function! s:CscopeDbRdr.mGetPreProcessingMaps() dict
+ return s:CCTreeGetCscopeMaps('Compress', 'Alpha')
+endfunction
+
+function! s:CscopeDbRdr.mGetPostProcessingMaps() dict
+ return s:CCTreeGetCscopeMaps('Uncompress', 'Alpha')
+endfunction
+
+function! s:CscopeDbRdr.mProcessSymbol(xrefdb, symbol) dict
+ try
+ if a:symbol[0] == "\t"
+ return self.mProcessTaggedSymbol(a:xrefdb, a:symbol)
+ else
+ return self.mProcessUnTaggedSymbol(a:xrefdb, a:symbol)
+ endif
+ catch
+ echomsg 'Problem with '. a:symbol
+ endtry
+endfunction
+
+function! s:CscopeDbRdr.mProcessUnTaggedSymbol(xrefdb, symbol) dict
+ let cursymidx = a:xrefdb.mGetSymbolIdFromName(a:symbol)
+ if cursymidx != s:CCTreeRC.Error
+ if self.iState.curfuncidx != -1
+ call a:xrefdb.mMarkXRefSyms(self.iState.curfuncidx, cursymidx)
+ elseif self.iState.curmacroidx != -1
+ call a:xrefdb.mMarkXRefSyms(self.iState.curmacroidx, cursymidx)
+ endif
+ endif
+endfunction
+
+function! s:CscopeDbRdr.mProcessTaggedSymbol(xrefdb, symbol) dict
+ if self.iState.curmacroidx != -1
+ if a:symbol[1] == "`"
+ call a:xrefdb.mMarkXRefSyms(self.iState.curmacroidx,
+ \ a:xrefdb.mAddSym(a:symbol[2:], ""))
+ elseif a:symbol[1] == ')'
+ let self.iState.curmacroidx = -1
+ endif
+ elseif self.iState.curfuncidx != -1
+ " inside function
+ if a:symbol[1] == "`"
+ call a:xrefdb.mMarkXRefSyms(self.iState.curfuncidx,
+ \ a:xrefdb.mAddSym(a:symbol[2:], ""))
+ elseif a:symbol[1] == "}"
+ let self.iState.curfuncidx = -1
+ elseif a:symbol[1] == "#"
+ let self.iState.curmacroidx = a:xrefdb.mAddSym(a:symbol[2:], 'm')
+ endif
+ elseif self.iState.curenumidx != -1
+ if a:symbol[1] == "m"
+ call a:xrefdb.mMarkXRefSyms(self.iState.curenumidx,
+ \ a:xrefdb.mAddSym(a:symbol[2:], "em"))
+ else
+ " just reprocess the symbol after changing state
+ let self.iState.curenumidx = -1
+ call self.mProcessTaggedSymbol(a:xrefdb, a:symbol)
+ endif
+ elseif a:symbol[1] == "$"
+ let self.iState.curfuncidx = a:xrefdb.mAddSym(a:symbol[2:], "f")
+ elseif a:symbol[1] == "#"
+ let self.iState.curmacroidx = a:xrefdb.mAddSym(a:symbol[2:], "d")
+ elseif a:symbol[1] == "~"
+ call a:xrefdb.mMarkXRefSyms(self.iState.curfileidx,
+ \a:xrefdb.mAddSym(a:symbol[3:], "i"))
+ elseif a:symbol[1] == "e"
+ let self.iState.curenumidx = a:xrefdb.mAddSym(a:symbol[2:], "e")
+ elseif a:symbol[1] == "g"
+ call a:xrefdb.mAddSym(a:symbol[2:], "g")
+ elseif a:symbol[1] == "@"
+ if a:symbol[2] != ""
+ let self.iState.curfileidx =
+ \a:xrefdb.mAddSym(a:symbol[2:], "F")
+ endif
+ endif
+endfunction
+
+" }}}
+" {{{ CCTree helper library
+let s:CCTreeUtils = {}
+
+function! s:CCTreeUtils.mDetectDB(class)
+ if a:class == s:DBClasses.cctreexref
+ if filereadable(g:CCTreeDb)
+ return g:CCTreeDb
+ endif
+ elseif a:class == s:DBClasses.cscopeid
+ if filereadable(g:CCTreeCscopeDb)
+ return g:CCTreeCscopeDb
+ endif
+ endif
+ return ''
+endfunction
+
+function! s:CCTreeUtils.mFilter(lines, filtercmd) dict
+ let retlst = []
+ let progr = len(a:lines)/100
+ let pBar = s:ProgressBarNumeric.mCreate(len(a:lines), "items")
+ while len(a:lines) > 0
+ if progr <= len(a:lines)
+ let tmplist = remove(a:lines, 0, progr)
+ else
+ let tmplist = remove(a:lines, 0, len(a:lines)-1)
+ endif
+ call filter(tmplist, a:filtercmd)
+ call pBar.mTick(progr)
+ call extend(retlst, tmplist)
+ endwhile
+ call pBar.mDone()
+ return retlst
+endfunction
+
+function! s:CCTreeUtils.mWarningPrompt(msg) dict
+ echohl WarningMsg
+ let a = input(s:pluginname. ": ". a:msg)
+ echohl None
+endfunction
+
+function! s:CCTreeUtils.mWarningMsg(msg) dict
+ echohl WarningMsg
+ echomsg s:pluginname. ": ". a:msg
+ echohl None
+endfunction
+
+function! s:CCTreeUtils.mInfoMsg(msg) dict
+ echohl Title
+ echomsg s:pluginname. ": ". a:msg
+ echohl None
+endfunction
+
+function! s:CCTreeUtils.mWrite(msg) dict
+ echo s:pluginname. ": ". a:msg
+endfunction
+
+" }}}
+" {{{ CCTree DB management
+let s:CCTreeXrefDbEntry = {
+ \ 'type': '',
+ \ 'fname' : '',
+ \ 'fsize' : 0,
+ \ 'fdate' : 0
+ \}
+
+function! s:CCTreeXrefDbEntry.mCreate(fname, type) dict
+ let xrefdbent = deepcopy(s:CCTreeXrefDbEntry)
+ unlet xrefdbent.mCreate
+
+ let xrefdbent.type = a:type
+ let xrefdbent.fname = simplify(getcwd().'/'.a:fname)
+ let xrefdbent.fsize = getfsize(a:fname)
+ let xrefdbent.fdate = strftime("%c", getftime(a:fname))
+ return xrefdbent
+endfunction
+
+let s:CCTreeDBList = {
+ \'loadedDBs' : []
+ \ }
+
+function! s:CCTreeDBList.mCreate() dict
+ let dbList = deepcopy(s:CCTreeDBList)
+ unlet dbList.mCreate
+
+ return dbList
+endfunction
+
+function! s:CCTreeDBList.mShowLoaded() dict
+ let i = 1
+ call s:CCTreeUtils.mWrite(s:pluginname.": List of loaded cscope databases")
+ call s:CCTreeUtils.mWrite("---------------------------------------")
+ for aDBEnt in self.loadedDBs
+ call s:CCTreeUtils.mWrite(i." ".aDBEnt.fname. " ".
+ \ " (".aDBEnt.type.") ".
+ \ aDBEnt.fsize. " bytes ".
+ \ aDBEnt.fdate)
+ let i = i + 1
+ endfor
+endfunction
+
+function! s:CCTreeDBList.mClearAll() dict
+ let self.loadedDBs = []
+endfunction
+
+function! s:CCTreeDBList.mIsEmpty() dict
+ if empty(self.loadedDBs)
+ return s:CCTreeRC.True
+ endif
+ return s:CCTreeRC.False
+endfunction
+
+" Load the cscope db into the global cctree xref db
+function! s:CCTreeDBList.mCreateDbLoaderAndReader(dbName, dbclass, storageclass) dict
+ let dbUser = s:CCTreeCmdLine.mInputDBName('Load', a:dbName, a:dbclass)
+ if dbUser == ''
+ call s:CCTreeUtils.mWarningMsg('Filename required')
+ "User cancel, do nothing
+ return
+ endif
+
+ " Create generic Db loader object
+ if a:storageclass == s:DBStorage.disk
+ let gDbLdr = s:XRefDiskDbLdr.mCreate(dbUser)
+ elseif a:storageclass == s:DBStorage.memory
+ let gDbLdr = s:XRefMemDbLdr.mCreate(dbUser)
+ endif
+
+ if type(gDbLdr) != type({})
+ call s:CCTreeUtils.mWarningMsg(a:dbclass.' database ' . a:dbName .
+ \ ' not found.')
+ return s:CCTreeRC.Error
+ endif
+
+ " Create new DB reader object
+ if a:storageclass == s:DBStorage.memory
+ if a:dbclass == s:DBClasses.cscopeid
+ let gDbRdr = s:CscopeDbRdr.mCreate(dbUser, g:CCTreeEnhancedSymbolProcessing)
+ elseif a:dbclass == s:DBClasses.cctreexref
+ let gDbRdr = s:CCTreeTagDbRdr.mCreate(dbUser)
+ else
+ return s:CCTreeRC.Error
+ endif
+ if gDbLdr.mParseDbHeader(gDbRdr) == s:CCTreeRC.Error
+ call s:CCTreeUtils.mWarningMsg(gDbRdr.class.' database ' . a:dbName .
+ \ ' format is not parseable.')
+ return s:CCTreeRC.Error
+ endif
+ else
+ let gDbRdr = {}
+ endif
+
+ return {'loader': gDbLdr, 'reader': gDbRdr}
+endfunction
+
+function! s:CCTreeDBList.mAddDbToList(dbName, type)
+ let aDBEnt = s:CCTreeXrefDbEntry.mCreate(a:dbName, a:type)
+ call add(self.loadedDBs, aDBEnt)
+endfunction
+
+" Merge the cscope db into the global cctree xref db
+function! s:CCTreeDBList.mMerge(dbName, xRefDb, class)
+ " Check if merge can be supported
+ if self.loadedDBs[0].type == s:DBStorage.disk
+ call s:CCTreeUtils.mInfoMsg("Cannot merge with DBs traced from disk")
+ return
+ endif
+ " Create db loader, reader
+ let gObjs = self.mCreateDbLoaderAndReader(a:dbName, a:class, s:DBStorage.memory)
+
+ if type(gObjs) == type({})
+ " if Db is compressed, then we need to compress our symbols first
+ let swatch = s:StopWatch.mCreate()
+ if self.mLoadDB(gObjs.loader, a:xRefDb,
+ \ gObjs.reader) != s:CCTreeRC.Error
+ call self.mAddDbToList(gObjs.loader.fDBName, gObjs.loader.class)
+ let msg = "Done merging databases. xRef Symbol Count: "
+ \.a:xRefDb.mGetSymbolCount()
+ \.". Time taken: ".swatch.mGetText()." secs"
+ call s:CCTreeUtils.mInfoMsg(msg)
+ endif
+ " Load will auto decompress the symbols
+ endif
+endfunction
+
+" Load the cscope db into the global cctree xref db
+function! s:CCTreeDBList.mAddNew(dbName, xRefDb, dbclass, storageclass)
+ " Create db loader, reader
+ let gObjs = self.mCreateDbLoaderAndReader(a:dbName, a:dbclass, a:storageclass)
+
+ if type(gObjs) == type({})
+ let swatch = s:StopWatch.mCreate()
+ if self.mLoadDB(gObjs.loader, a:xRefDb,
+ \ gObjs.reader) != s:CCTreeRC.Error
+ call self.mAddDbToList(gObjs.loader.fDBName, gObjs.loader.class)
+ call swatch.mSnapElapsed()
+ if a:storageclass == s:DBStorage.memory
+ let msg = "Done loading database. xRef Symbol Count: "
+ \.a:xRefDb.mGetSymbolCount()
+ \.". Time taken: ".swatch.mGetText()." secs"
+ else
+ let msg = "Disk Xref database loaded for tracing"
+ endif
+ call s:CCTreeUtils.mInfoMsg(msg)
+ endif
+ endif
+endfunction
+
+function! s:CCTreeDBList.mLoadDB(gDbLdr, xRefDb, gRdr)
+ let rc = s:CCTreeRC.Success
+ try
+ let swatch = s:StopWatch.mCreate()
+ call s:StatusLine.mInit()
+ " if compression, then we need to compress our symbols first
+ if !empty(a:gRdr) && a:gRdr.mRequirePreProcessing() == s:CCTreeRC.True
+ call s:StatusLine.mSetInfo('Pre-processing existing symbols')
+ call a:xRefDb.mTranslateSymbols(a:gRdr.mGetPreProcessingMaps(),
+ \ a:gRdr.mapPreKeys)
+ endif
+ call garbagecollect()
+ call s:StatusLine.mSetInfo('Loading database')
+ call a:gDbLdr.mLoadFileIntoXRefDb(a:xRefDb, a:gRdr)
+ if !empty(a:gRdr) && a:gRdr.mRequireCleanup() == s:CCTreeRC.True
+ call s:StatusLine.mSetInfo('Symbol clean-up')
+ call a:xRefDb.mCleanSymbols()
+ endif
+ call garbagecollect()
+ if !empty(a:gRdr) && a:gRdr.mRequirePostProcessing() == s:CCTreeRC.True
+ call s:StatusLine.mSetInfo('Post-processing loaded symbols')
+ call a:xRefDb.mTranslateSymbols(a:gRdr.mGetPostProcessingMaps(),
+ \ a:gRdr.mapPostKeys)
+ endif
+ call swatch.mSnapElapsed()
+ " restore normalcy
+ call garbagecollect()
+ redraw
+
+ catch /^Vim:Interrupt$/ " catch interrupts (CTRL-C)
+ call s:CCTreeUtils.mWarningMsg('Loading aborted.')
+ let rc = s:CCTreeRC.Error
+ finally
+ call s:StatusLine.mRestore()
+ endtry
+ return rc
+endfunction
+"}}}
+" {{{ UI Input related
+let s:CCTreeUI = {}
+
+
+function! s:CCTreeUI.mInputDBName(dbName, class, action)
+ let dbUser = a:dbName
+ let dbUser = input(a:action. ' database ('. a:class. '): ', a:dbName, 'file')
+ return dbUser
+endfunction
+" }}}
+" {{{ CCTree Markers
+let s:TreeMarkers_UTF8 = {
+ \ 'splitT' : nr2char(0x251c),
+ \ 'arrowR' : nr2char(0x25c0),
+ \ 'arrowF' : nr2char(0x25B6),
+ \ 'extV' : nr2char(0x2502),
+ \ 'extH': nr2char(0x2500),
+ \ 'depth': nr2char(0x25BC)
+ \}
+
+let s:TreeMarkers_Text = {
+ \ 'splitT' : '+',
+ \ 'arrowF' : '>',
+ \ 'arrowR' : '<',
+ \ 'extV' : '|',
+ \ 'extH': '-',
+ \ 'depth': 'depth:'
+ \}
+
+let s:CCTreeMarkers = {
+ \ 'icons':{}
+ \ }
+function! s:CCTreeMarkers.mCreate() dict
+ let treeMarkers = deepcopy(s:CCTreeMarkers)
+
+ if &encoding == 'utf-8' && g:CCTreeUseUTF8Symbols == 1
+ let treeMarkers.icons = deepcopy(s:TreeMarkers_UTF8)
+ else
+ " default choice
+ let treeMarkers.icons = deepcopy(s:TreeMarkers_Text)
+ endif
+
+ let treeMarkers.icons.arrowSyms = treeMarkers.icons.arrowF . treeMarkers.icons.arrowR
+ let treeMarkers.icons.vertSyms = treeMarkers.icons.splitT . treeMarkers.icons.extV
+
+ return treeMarkers
+endfunction
+
+function! s:CCTreeMarkers.mGetArrow(direction) dict
+ if a:direction == 'p'
+ return self.icons.arrowR
+ elseif a:direction == 'c'
+ return self.icons.arrowF
+ endif
+ return '?'
+endfunction
+" }}}
+" {{{ User key mappings
+let s:CCTreeKeyMappings = {
+ \ 'CTreeF': g:CCTreeKeyTraceForwardTree,
+ \ 'CTreeR': g:CCTreeKeyTraceReverseTree,
+ \ 'CTreeHilight': g:CCTreeKeyHilightTree,
+ \ 'CTreeWSave': g:CCTreeKeySaveWindow,
+ \ 'CTreeWToggle': g:CCTreeKeyToggleWindow,
+ \ 'CTreeCompress': g:CCTreeKeyCompressTree,
+ \ 'CTreeDepthMinus': g:CCTreeKeyDepthMinus,
+ \ 'CTreeDepthPlus': g:CCTreeKeyDepthPlus
+ \}
+" }}}
+" {{{ CCTreeWindow
+let s:CCTreeWindow = {
+ \ 'hiKeyword': '',
+ \ 'hiKeywordLine':'',
+ \ 'lastbufname':'',
+ \ 'treeMarkers': s:CCTreeMarkers.mCreate()}
+
+function! s:CCTreeWindow.mCreate() dict
+ let win = deepcopy(s:CCTreeWindow)
+ unlet win.mCreate
+
+ return win
+endfunction
+
+function! s:CCTreeWindow.mLeave()
+ call s:FindOpenWindow(self.lastbufname)
+endfunction
+
+
+" Definition of a keyword...
+let s:CCTreeKeywordRegEx = '[A-Za-z0-9_\\\.\/]\+'
+
+function! s:CCTreeWindow.mGetKeywordAtCursor() dict
+ let curline = line(".")
+ let self.hiKeyword = ''
+ if foldclosed(curline) == -1
+ let curkeyword = matchstr(getline("."), s:CCTreeKeywordRegEx)
+ if curkeyword != ''
+ if curkeyword != self.hiKeyword || curline != self.hiKeywordLine
+ let self.hiKeyword = curkeyword
+ let self.hiKeywordLine = line(".")
+ return s:CCTreeRC.Success
+ endif
+ else
+ return s:CCTreeRC.Error
+ endif
+ endif
+ if self.hiKeyword == ''
+ return s:CCTreeRC.Error
+ endif
+ return s:CCTreeRC.Success
+endfunction
+
+function! s:CCTreeWindow.mBuildStatusLine(pState, title, items)
+ let needcomma = 0
+ let rtitle = a:title. ' ('. a:pState.keyword
+ let rtitle .= '['
+ if has_key(a:items, "depth")
+ let rtitle .= self.treeMarkers.icons.depth
+ let rtitle .= a:pState.depth
+ let needcomma = 1
+ endif
+ if has_key(a:items, "direction")
+ if needcomma == 1
+ let rtitle .= ','
+ endif
+
+ let rtitle .= self.treeMarkers.mGetArrow(a:pState.direction)
+ endif
+ let rtitle .= '])'
+
+ return rtitle
+endfunction
+
+function! CCTreeWindowPreviewStatusLine()
+ " get global
+ " this is a hack
+ let pState = s:CCTreeGlobals.PreviewState
+ let tMarkers = s:CCTreeGlobals.Window.treeMarkers
+
+ return s:CCTreeGlobals.Window.mBuildStatusLine(
+ \ s:CCTreeGlobals.PreviewState,
+ \ s:windowtitle,
+ \ {'depth':''}
+ \)
+endfunction
+
+function! s:CCTreeWindow.mPreviewSave(savetitle) dict
+ if s:FindOpenWindow(s:windowtitle) == 1
+ setlocal modifiable
+ call self.mClearMarks(b:displayTree)
+ setlocal nomodifiable
+ setlocal statusline=%-F
+ silent! exec ":f ". a:savetitle
+ return s:CCTreeRC.Success
+ endif
+ return s:CCTreeRC.Error
+endfunction
+
+function! s:CCTreeWindow.mIsOpen() dict
+ if s:FindOpenBuffer(s:windowtitle) > 0
+ return s:CCTreeRC.True
+ endif
+ return s:CCTreeRC.False
+endfunction
+
+function! s:CCTreeWindow.mClose() dict
+ if s:FindOpenWindow(s:windowtitle) == 1
+ silent! q!
+ endif
+endfunction
+
+function! s:CCTreeWindow.mDisplayToggle() dict
+ if s:FindOpenWindow(s:windowtitle) == 1
+ silent! hide
+ else
+ let winbufnr = s:FindOpenBuffer(s:windowtitle)
+ if winbufnr > 0
+ call self.mEnter()
+ silent! exec "buf ".winbufnr
+ call self.mResize()
+ silent! wincmd p
+ else
+ call s:CCTreeUtils.mWarningMsg(" No active window found.")
+ endif
+ endif
+endfunction
+
+function! s:CCTreeWindow.mResize() dict
+ if g:CCTreeWindowVertical == 1
+ if g:CCTreeWindowWidth == -1
+ exec "vertical resize ". b:maxwindowlen
+ else
+ exec "vertical resize ". g:CCTreeWindowWidth
+ endif
+ else
+ if g:CCTreeWindowHeight != -1
+ let &winminheight = g:CCTreeWindowHeight
+ exec "resize".g:CCTreeWindowHeight
+ endif
+ endif
+endfunction
+
+function! s:CCTreeWindow.mDisplayTree(atree, direction) dict
+ let incctreewin = 1
+ if (bufname('%') != s:windowtitle)
+ let incctreewin = self.mEnter()
+ endif
+
+ setlocal modifiable
+ silent 1,$d
+ let b:maxwindowlen = g:CCTreeWindowMinWidth
+ let b:displayTree = s:DisplayTree.mCreate(a:atree,
+ \ a:direction, self.treeMarkers)
+ call s:CCTreeDisplay.mPopulateTreeInCurrentBuffer(b:displayTree)
+ exec "normal gg"
+
+ " Need to force this again
+ let &l:foldlevel=g:CCTreeMinVisibleDepth
+ setlocal nomodifiable
+ call self.mResize()
+ if (incctreewin == 0)
+ call s:CCTreeWindow.mLeave()
+ endif
+endfunction
+
+function! s:CCTreeWindow.mExtractTreeSymbols(dtree)
+ let symlist = {}
+ for aentry in a:dtree.entries
+ let symlist[aentry.symbol] = 0
+ endfor
+ return symlist
+endfunction
+
+function! s:CCTreeWindow.mEnter() dict
+ let self.lastbufname = bufname("%")
+ let foundWindow = s:FindOpenWindow(s:windowtitle)
+ if foundWindow == 0
+ if g:CCTreeWindowVertical == 1
+ exec g:CCTreeOrientation." vsplit ". s:windowtitle
+ set winfixwidth
+ else
+ exec g:CCTreeOrientation." split ". s:windowtitle
+ set winfixheight
+ endif
+
+ setlocal buftype=nofile
+ setlocal bufhidden=hide
+ setlocal noswapfile
+ setlocal nonumber
+ setlocal nowrap
+ setlocal nobuflisted
+
+ if s:CCTreeUseConceal == 1
+ setlocal cole=3
+ setlocal cocu=nv
+ endif
+
+ setlocal statusline=%=%{CCTreeWindowPreviewStatusLine()}
+
+ call self.mInitSyntax(self.treeMarkers.icons)
+ let cpo_save = &cpoptions
+ set cpoptions&vim
+
+ call s:CCTreeBufferKeyMappingsCreate(s:CCTreeKeyMappings)
+
+ command! -buffer -nargs=0 CCTreeWindowHiCallTree
+ \ call s:CCTreeGlobals.mCursorHoldHandleEvent()
+
+ exec 'nnoremap <buffer> <silent> '.s:CCTreeKeyMappings.CTreeHilight.
+ \' :CCTreeWindowHiCallTree<CR>'
+ exec 'nnoremap <buffer> <silent> '.s:CCTreeKeyMappings.CTreeCompress.
+ \ ' :2,.foldclose!<CR>zv'
+
+ nnoremap <buffer> <silent> <C-p> :CCTreePreviewBufferUsingTag<CR>
+ nnoremap <buffer> <silent> <CR> :CCTreeLoadBufferUsingTag<CR>
+ nnoremap <buffer> <silent> <2-LeftMouse> :CCTreeLoadBufferUsingTag<CR>
+
+ let &cpoptions = cpo_save
+ endif
+ setlocal foldmethod=expr
+ setlocal foldexpr=CCTreeFoldExpr(getline(v:lnum))
+ setlocal foldtext=CCTreeFoldText()
+ let &l:foldlevel=g:CCTreeMinVisibleDepth
+
+ return foundWindow
+endfunction
+" }}}
+" {{{ Dynamic call-tree highlighting using
+" syntax highlight tricks
+"
+" There are 3 types of lines, marked with the start character [\s, !, #]
+" Also @ is used to mark the path that is going up
+
+function! s:CCTreeWindow.mMarkCallTree(dtree, keyword) dict
+ let declevel = -1
+ let treelst = a:dtree.entries
+ let curLine = line(".")
+
+ let declevel = treelst[curLine-1].level
+
+ let targetlevel = declevel
+ for idx in range(curLine, 1, -1)
+ let aentry = treelst[idx-1]
+
+
+ " Find our keyword
+ let linemarker = 0
+ " Skip folds
+ if declevel != -1 && foldclosed(idx) == -1
+ if targetlevel == aentry.level
+ let linemarker = 1
+ let targetlevel -= 1
+ endif
+ let aline = a:dtree.mGetNotationalTxt(aentry.level, targetlevel+1, linemarker, 1)
+ \ . aentry.symbol
+ call setline(idx, aline)
+ endif
+ endfor
+endfunction
+
+function! s:CCTreeWindow.mClearMarks(dtree) dict
+ for idx in range(line(".")+1, line("$"))
+ let breakout = (getline(idx)[0] !~ "[!#]")
+ if breakout == 1
+ break
+ endif
+ let aentry = a:dtree.entries[idx-1]
+ let aline = a:dtree.mGetNotationalTxt(aentry.level, -1, 0, 0)
+ \ . aentry.symbol
+ call setline(idx, aline)
+ endfor
+endfunction
+
+function! s:CCTreeWindow.mInitSyntax(markers) dict
+ "syntax match CCTreePathMark /\s[|+]/ contained
+ exec 'syntax match CCTreePathMark /\s['. a:markers.vertSyms . ']/ contained'
+ "syntax match CCTreeArrow /-*[<>]/ contained
+ exec 'syntax match CCTreeArrow /'.a:markers.extH.'*['. a:markers.arrowSyms .']/ contained'
+
+ syntax match CCTreeSymbol / [A-Za-z0-9_\.\\\/]\+/ contained
+ syntax region CCTreeSymbolLine start="^\s" end="$" contains=CCTreeArrow,CCTreePathMark,CCTreeSymbol oneline
+
+ "syntax match CCTreeHiArrow /-*[<>]/ contained
+ exec 'syntax match CCTreeHiArrow /'. a:markers.extH .'*['. a:markers.arrowSyms .']/ contained'
+ syntax match CCTreeHiSymbol / [A-Za-z0-9_\.\\\/]\+/ contained
+
+ "syntax match CCTreeHiPathMark /\s[|+]/ contained
+ exec 'syntax match CCTreeHiPathMark /\s[' . a:markers.vertSyms . ']/ contained'
+
+ if s:CCTreeUseConceal == 1
+ syntax match CCTreeMarkExcl /^[!#]/ contained conceal
+ syntax match CCTreeMarkTilde /@/ contained conceal
+ else
+ syntax match CCTreeMarkExcl /^[!#]/ contained
+ syntax match CCTreeMarkTilde /@/ contained
+ endif
+ "syntax region CCTreeUpArrowBlock start="@" end=/[|+]/ contains=CCTreeMarkTilde contained oneline
+ exec 'syntax region CCTreeUpArrowBlock start="@" end=/['. a:markers.vertSyms .']/ contains=CCTreeMarkTilde contained oneline'
+
+ syntax region CCTreeHiSymbolLine start="!" end="$" contains=CCTreeMarkExcl,
+ \ CCTreeUpArrowBlock,
+ \ CCTreeHiSymbol,CCTreeHiArrow,CCTreeHiPathMark oneline
+
+ syntax region CCTreeMarkedSymbolLine start="#" end="$" contains=CCTreeMarkExcl,
+ \ CCTreeMarkTilde,CCTreePathMark,
+ \ CCTreeArrow,CCTreeSymbol,CCTreeUpArrowBlock oneline
+endfunction
+
+
+" }}}
+" {{{ CCTreeDisplay
+
+let s:CCTreeDisplay = {}
+
+function! s:CCTreeDisplay.mPopulateTreeInCurrentBuffer(dtree)
+ let linelist = []
+ for aentry in a:dtree.entries
+ let aline = a:dtree.mGetNotationalTxt(aentry.level, -1, 0, 0)
+ \ . aentry.symbol
+ let len = s:Utils.mStrlenEx(aline)
+ let b:maxwindowlen = max([len+1, b:maxwindowlen])
+ call add(linelist, aline)
+ endfor
+ call setline(".", linelist)
+endfunction
+
+
+
+" }}}
+" {{{ CCTree command line interface
+let s:CCTreeCmdLine = {}
+
+
+function! s:CCTreeCmdLine.mLoadDBFromDisk(dbName) dict
+ call s:CCTreeGlobals.mUnLoadDBs()
+ let s:CCTreeGlobals.XRefDb = s:XRefDiskDb.mCreate()
+ call s:CCTreeGlobals.DbList.mAddNew(a:dbName,
+ \ s:CCTreeGlobals.XRefDb, s:DBClasses.cctreexref, "Disk")
+endfunction
+
+" Unload current db's and load new one
+" There is no selective unloading
+function! s:CCTreeCmdLine.mLoadDB(db_name, class) dict
+ call s:CCTreeGlobals.mSetupEncodingChangeAutoCmd(0)
+ call s:CCTreeGlobals.mUnLoadDBs()
+ let s:CCTreeGlobals.XRefDb = s:xRefMemDb.mCreate()
+ call s:CCTreeGlobals.DbList.mAddNew(a:db_name,
+ \ s:CCTreeGlobals.XRefDb, a:class, s:DBStorage.memory)
+ call s:CCTreeGlobals.mSetupAutoCmds()
+endfunction
+
+function! s:CCTreeCmdLine.mInputDBName(action, dbName, class) dict
+ if a:dbName == ''
+ let dbUser = s:CCTreeUI.mInputDBName(
+ \ s:CCTreeUtils.mDetectDB(a:class),
+ \ a:class, a:action)
+ else
+ let dbUser = a:dbName
+ endif
+ return dbUser
+endfunction
+
+function! s:CCTreeCmdLine.mSaveDB(dbName, class) dict
+ let dbUser = self.mInputDBName('Save', a:dbName, a:class)
+ if dbUser == ''
+ call s:CCTreeUtils.mWarningMsg('Filename required')
+ return
+ endif
+ call s:CCTreeGlobals.Window.mClose()
+ call s:CCTreeGlobals.mSetupEncodingChangeAutoCmd(0)
+ call s:CCTreeGlobals.mWriteXRefDbToFile(dbUser)
+ call s:CCTreeGlobals.mSetupAutoCmds()
+ call s:CCTreeGlobals.mUpdateForCurrentSymbol()
+endfunction
+
+" Merge current db with new one
+function! s:CCTreeCmdLine.mMergeDB(db_name, class) dict
+ "call s:CCTreeGlobals.Window.mClose()
+ call s:CCTreeGlobals.DbList.mMerge(a:db_name, s:CCTreeGlobals.XRefDb, a:class)
+endfunction
+
+
+" }}}
+" {{{ CCTree Buffer mappings
+function! s:CCTreeWindowGetHiKeyword()
+ let keyw = expand("<cword>")
+ let keyf = expand("<cfile>")
+
+ let syms = s:CCTreeGlobals.mGetPreviewTreeSymbols()
+
+ if keyw != keyf
+ if has_key(syms, keyf)
+ return keyf
+ elseif has_key(syms, keyw)
+ return keyw
+ endif
+ else
+ return keyw
+ endif
+ return ''
+endfunction
+
+
+" Keymappings used common to source files and CCTree window
+function! s:CCTreeBufferKeyMappingsCreate(kmaps)
+ let func_expr = '<SNR>'.s:sid.'CCTreeWindowGetHiKeyword()'
+ exec 'nnoremap <buffer> <silent> '.a:kmaps.CTreeR.' :CCTreeTraceReverse <C-R>='.
+ \ func_expr.'<CR><CR>'
+ exec 'nnoremap <buffer> <silent> '.a:kmaps.CTreeF.' :CCTreeTraceForward <C-R>='
+ \ .func_expr.'<CR><CR>'
+
+ exec 'nnoremap <silent> '.a:kmaps.CTreeWSave. ' :CCTreeWindowSaveCopy<CR>'
+ exec 'nnoremap <silent> '.a:kmaps.CTreeWToggle. ' :CCTreeWindowToggle<CR>'
+
+ exec 'nnoremap <buffer> <silent> '.a:kmaps.CTreeDepthPlus.
+ \ ' :CCTreeRecurseDepthPlus<CR>'
+ exec 'nnoremap <buffer> <silent> '.a:kmaps.CTreeDepthMinus.
+ \ ' :CCTreeRecurseDepthMinus<CR>'
+endfunction
+
+augroup CCTreeMaps
+au!
+" Header files get detected as cpp?
+" This is a bug in Vim 7.2, a patch needs to be applied to the runtime c
+" syntax files
+" For now, use this hack to make *.h files work
+autocmd FileType * if &ft == 'c'|| &ft == 'cpp' |
+ \ call s:CCTreeBufferKeyMappingsCreate(s:CCTreeKeyMappings)|
+ \ endif
+augroup END
+
+
+" }}}
+" {{{ Tree building
+
+let s:DisplayTreeEntry = {
+ \ 'symbol': "",
+ \ 'level': -1
+ \ }
+
+function! s:DisplayTreeEntry.mCreate(sym, level) dict
+ let te = deepcopy(s:DisplayTreeEntry)
+ let te.symbol = a:sym
+ let te.level = a:level
+ unlet te.mCreate
+
+ return te
+endfunction
+
+let s:calltreemaxdepth = 10
+let s:DisplayTree = {
+ \ 'entries': [],
+ \ 'levelMaxLen': repeat([255], s:calltreemaxdepth),
+ \ 'notTxt': {}
+ \ }
+
+function! s:DisplayTree.mCreate(calltree, direction, markers) dict
+ let dt = deepcopy(s:DisplayTree)
+ call dt.mBuildTreeForLevel(a:calltree, 0)
+ call dt.mBuildNotationalTxtMarkers(a:direction, a:markers.icons)
+
+ unlet dt.mBuildTreeForLevel
+ unlet dt.mCreate
+
+ return dt
+endfunction
+
+function! s:DisplayTree.mBuildTreeForLevel(ctree, level)
+ if !has_key(a:ctree, 'symbol')
+ return
+ endif
+
+ if g:CCTreeDisplayMode == 3
+ let curlevellen = strlen(a:ctree.symbol) + a:level + 2
+ let self.levelMaxLen[a:level] = min([self.levelMaxLen[a:level],
+ \ curlevellen])
+ endif
+
+
+ let aentry = s:DisplayTreeEntry.mCreate(a:ctree.symbol, a:level)
+ call add(self.entries, aentry)
+
+ if has_key(a:ctree, 'childlinks')
+ for alink in a:ctree['childlinks']
+ call self.mBuildTreeForLevel(alink, a:level+1)
+ endfor
+ endif
+endfunction
+
+
+function! s:DisplayTree.mBuildNotationalTxtMarkers(direction, markerSyms) dict
+ " REVISIT
+ if a:direction == 'p'
+ let directiontxt = a:markerSyms.arrowR . " "
+ elseif a:direction == 'c'
+ let directiontxt = a:markerSyms.arrowF . " "
+ endif
+
+
+ let self.notTxt.arrowHead = a:markerSyms.splitT
+ let self.notTxt.arrow = directiontxt
+ let self.notTxt.arrowLead = a:markerSyms.extH
+ let self.notTxt.sep = a:markerSyms.extV
+ if s:CCTreeUseConceal == 1
+ let concealspace = " "
+ else
+ let concealspace = ""
+ endif
+
+ let self.notTxt.symHighlighter= concealspace . "@"
+
+ let self.notTxt.hiSymbolMarker = "!".concealspace
+ let self.notTxt.hiBranchMarker = "#".concealspace
+
+ let self.notTxt.cache = {}
+
+endfunction
+
+function! s:DisplayTree.mGetNotationalTxt(depth, hiDepth, hiSym, hiPath) dict
+ let notkey = join(a:000, ":")
+ if has_key(self.notTxt.cache,notkey) == 1
+ return self.notTxt.cache[notkey]
+ else
+ return self.mBuildNotationalTxt(a:depth, a:hiDepth, a:hiSym, a:hiPath)
+ endif
+endfunction
+
+function! s:DisplayTree.mBuildNotationalTxt(depth, hiDepth, hiSym, hiPath) dict
+ let hiBranch = 0
+ let curDepth = a:depth
+ if 0
+ let Aspace = "A"
+ let Bspace = "B"
+ let Cspace = "C"
+ let Sspace = "S"
+ let Xspace = "X"
+ let Zspace = "Z"
+ let Fspace = "1"
+ else
+ let Aspace = " "
+ let Bspace = " "
+ let Cspace = " "
+ let Sspace = " "
+ let Xspace = " "
+ let Zspace = " "
+ let Fspace = " "
+ endif
+
+ if g:CCTreeDisplayMode == 1
+ let arrowLeads = self.notTxt.arrowLead
+ elseif g:CCTreeDisplayMode >= 2
+ let arrowLeads = repeat(self.notTxt.arrowLead, a:depth)
+ endif
+
+ let indentSpace = ""
+ if g:CCTreeDisplayMode == 2
+ if curDepth > 0
+ let indentSpace = repeat(Aspace, curDepth)
+ endif
+ elseif g:CCTreeDisplayMode == 3
+ if curDepth > 0
+ let indentSpace = repeat(Aspace, self.levelMaxLen[curDepth-1])
+ endif
+ endif
+ let notTxt = self.notTxt.arrowHead. arrowLeads . self.notTxt.arrow
+ if a:hiDepth == a:depth
+ let notTxt = indentSpace . self.notTxt.symHighlighter . notTxt
+ let hiBranch = 1
+ else
+ let notTxt = indentSpace. Cspace. notTxt
+ endif
+ let curDepth -= 1
+
+ let indentSpace = ""
+ while (curDepth > 0)
+ if g:CCTreeDisplayMode == 2
+ let indentSpace = repeat(Bspace, curDepth)
+ elseif g:CCTreeDisplayMode == 3
+ let indentSpace = repeat(Bspace, self.levelMaxLen[curDepth-1])
+ endif
+ let notTxt = self.notTxt.sep . notTxt
+ if a:hiDepth == curDepth && a:hiPath == 1
+ let notTxt = indentSpace . self.notTxt.symHighlighter . notTxt
+ let hiBranch = 1
+ else
+ let notTxt = indentSpace. Cspace. notTxt
+ endif
+ let curDepth -= 1
+ endwhile
+ if curDepth == 0
+ " curdepth is 0
+ if a:hiDepth == curDepth && a:hiPath == 1
+ let notTxt = self.notTxt.symHighlighter . notTxt
+ let hiBranch = 1
+ else
+ let notTxt = Fspace . notTxt
+ endif
+ let curDepth -= 1
+ endif
+ " adjust space
+ if a:depth > 0
+ let notTxt = Xspace . notTxt
+ endif
+ if hiBranch == 1
+ if a:hiSym == 1
+ let notTxt = self.notTxt.hiSymbolMarker . notTxt
+ else
+ let notTxt = self.notTxt.hiBranchMarker . notTxt
+ endif
+ else
+ let notTxt = Sspace . notTxt
+ endif
+ return notTxt
+endfunction
+
+"}}}
+" {{{ Preview window Folding
+function! CCTreeFoldExpr(line)
+ if !exists('b:displayTree') || v:lnum > len(b:displayTree.entries)
+ return 0
+ endif
+
+ let lvl = b:displayTree.entries[v:lnum-1].level
+ if lvl == 0
+ let lvl = 1
+ endif
+ return '>'.lvl
+endfunction
+
+
+function! CCTreeFoldText()
+ if s:CCTreeUseConceal == 1
+ let line = substitute(getline(v:foldstart), '[!@#]', '' , 'g')
+ else
+ let line = substitute(getline(v:foldstart), '[!@#]', ' ' , 'g')
+ endif
+ return line. " (+". (v:foldend - v:foldstart).
+ \ ')'. repeat(" ", winwidth(0))
+endfunction
+" }}}
+" {{{ Syntax coloring definitions
+"Standard display
+highlight default link CCTreeSymbol Function
+highlight default link CCTreeMarkers LineNr
+highlight default link CCTreeArrow CCTreeMarkers
+highlight default link CCTreePathMark CCTreeArrow
+highlight default link CCTreeHiPathMark CCTreePathMark
+
+" highlighted display
+highlight default link CCTreeHiKeyword Macro
+highlight default link CCTreeHiSymbol TODO
+highlight default link CCTreeHiMarkers NonText
+highlight default link CCTreeHiArrow CCTreeHiMarkers
+highlight default link CCTreeUpArrowBlock CCTreeHiArrow
+
+highlight default link CCTreeMarkExcl Ignore
+highlight default link CCTreeMarkTilde Ignore
+"}}}
+" {{{ CCTree global state
+
+let s:CCTreePreviewState = {
+ \ 'keyword':'',
+ \ 'direction': '',
+ \ 'depth' : ''
+ \}
+
+function! s:CCTreePreviewState.mCreate()
+ let state = deepcopy(s:CCTreePreviewState)
+ unlet state.mCreate
+
+ return state
+endfunction
+
+function! s:CCTreePreviewState.mStore(symbol, direction)
+ let self.keyword = a:symbol
+ let self.direction = a:direction
+endfunction
+" }}}
+" {{{ CCTree global objects
+
+let s:CCTreeGlobals = {
+ \ 'XRefDb': {},
+ \ 'DbList': s:CCTreeDBList.mCreate(),
+ \ 'PreviewState': s:CCTreePreviewState.mCreate(),
+ \ 'Window': s:CCTreeWindow.mCreate()
+ \}
+
+let g:CCTreeGlobals = s:CCTreeGlobals
+
+function! s:CCTreeGlobals.mEnable(opt) dict
+ if (has_key(s:CCTreeOptions, a:opt))
+ call s:CCTreeOptions[a:opt](1)
+ else
+ call s:CCTreeUtils.mWarningMsg('Invalid option')
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mDisable(opt) dict
+ if (has_key(s:CCTreeOptions, a:opt))
+ call s:CCTreeOptions[a:opt](0)
+ else
+ call s:CCTreeUtils.mWarningMsg('Invalid option')
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mToggle(opt) dict
+ if (has_key(s:CCTreeOptions, a:opt))
+ call s:CCTreeOptions[a:opt](-1)
+ else
+ call s:CCTreeUtils.mWarningMsg('Invalid option')
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mGetSymNames(lead) dict
+ call self.XRefDb.mInitState()
+ let syms = self.XRefDb.mGetSymbolNames(a:lead)
+ call self.XRefDb.mRestoreState()
+ return syms
+endfunction
+
+
+function! s:CCTreeGlobals.mGetCallsForSymbol(name, depth, direction) dict
+ let pbar = s:ProgressBarRoll.mCreate(['-','\','|','/'], '*')
+ call s:StatusLine.mSetInfo('Building ')
+ redrawstatus!
+ " Create tracer
+ let xtracer = s:XRefTracer.mCreate(self.XRefDb)
+ call xtracer.mInitTracing()
+ let symid = self.XRefDb.mGetSymbolIdFromName(a:name)
+ let xrefs = xtracer.mBuildForSymbol(symid,
+ \ a:depth, self.PreviewState.depth, a:direction, pbar)
+ call xtracer.mDoneTracing()
+ return xrefs
+endfunction
+
+function! s:CCTreeGlobals.mShowLoadedDBs() dict
+ call self.DbList.mShowLoaded()
+endfunction
+
+function! s:CCTreeGlobals.mUnLoadDBs() dict
+ call s:CCTreeGlobals.Window.mClose()
+ if !empty(s:CCTreeGlobals.XRefDb)
+ call s:CCTreeGlobals.XRefDb.mClear()
+ endif
+ call s:CCTreeGlobals.DbList.mClearAll()
+endfunction
+
+function! s:CCTreeGlobals.mSetPreviewState(name, depth, direction) dict
+ let self.PreviewState.keyword = a:name
+ let self.PreviewState.direction = a:direction
+ let self.PreviewState.depth = a:depth
+endfunction
+
+function! s:CCTreeGlobals.mUpdateForCurrentSymbol() dict
+ if self.DbList.mIsEmpty() == s:CCTreeRC.True
+ return s:CCTreeRC.Error
+ endif
+ if self.PreviewState.keyword != ''
+ let swatch = s:StopWatch.mCreate()
+ " Move this function to globals?
+ call s:StatusLine.mInit()
+ let atree = self.mGetCallsForSymbol(self.PreviewState.keyword,
+ \ 0,
+ \ self.PreviewState.direction)
+ call s:StatusLine.mRestore()
+ call self.Window.mDisplayTree(atree, self.PreviewState.direction)
+
+ call swatch.mSnapElapsed()
+ endif
+endfunction
+
+
+function! s:CCTreeGlobals.mGetPreviewTreeSymbols()
+ " REVIST
+ if exists('b:displayTree')
+ return self.Window.mExtractTreeSymbols(b:displayTree)
+ end
+ return {}
+endfunction
+
+function! s:CCTreeGlobals.mSanitizeCallDepth() dict
+ let error = 0
+ if self.PreviewState.depth >= s:calltreemaxdepth
+ self.PreviewState.depth = s:calltreemaxdepth
+ let error = 1
+ elseif self.PreviewState.depth < 1
+ let self.PreviewState.depth = 1
+ let error = 1
+ endif
+
+ if error == 1
+ call s:CCTreeUtils.mWarningMsg('Depth out of bounds')
+ endif
+ return error
+endfunction
+
+function! s:CCTreeGlobals.mRecursiveDepthIncrease() dict
+ let self.PreviewState.depth += 1
+ if self.mSanitizeCallDepth() == 0
+ call self.mUpdateForCurrentSymbol()
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mRecursiveDepthDecrease() dict
+ let self.PreviewState.depth -= 1
+ if self.mSanitizeCallDepth() == 0
+ call self.mUpdateForCurrentSymbol()
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mDisplayToggle() dict
+ call self.Window.mDisplayToggle()
+endfunction
+
+function! s:CCTreeGlobals.mSetupAutoCmds() dict
+ augroup CCTreeGeneral
+ au!
+ augroup END
+ call s:CCTreeGlobals.mSetupCursorMoveAutoCmd(g:CCTreeHilightCallTree)
+ call s:CCTreeGlobals.mSetupEncodingChangeAutoCmd(g:CCTreeUseUTF8Symbols)
+endfunction
+
+function! s:CCTreeGlobals.mSetupCursorMoveAutoCmd(enable) dict
+ if a:enable == 1
+ exec 'autocmd CCTreeGeneral CursorMoved '.s:windowtitle.' call s:CCTreeGlobals.mCursorHoldHandleEvent()'
+ else
+ exec 'autocmd! CCTreeGeneral CursorMoved '.s:windowtitle
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mSetupEncodingChangeAutoCmd(enable) dict
+ return
+ if a:enable == 1
+ autocmd CCTreeGeneral EncodingChanged * call s:CCTreeGlobals.mEncodingChangedHandleEvent()
+ else
+ autocmd! CCTreeGeneral EncodingChanged *
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mPreviewSave() dict
+ let rtitle = s:CCTreeGlobals.Window.mBuildStatusLine(
+ \ s:CCTreeGlobals.PreviewState,
+ \ s:windowsavetitle,
+ \ {'depth':'', 'direction':''}
+ \)
+
+ if self.Window.mPreviewSave(rtitle) == s:CCTreeRC.Success
+ call s:CCTreeUtils.mInfoMsg('Window saved as '. rtitle .
+ \ '. New window will be opened on next usage.')
+ else
+ call s:CCTreeUtils.mWarningMsg('No active window found to be saved.')
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mWriteXRefDbToFile(fname) dict
+ " create db serializer and writer
+ let gDbSz = s:GenericDbSerializer.mCreate(self.XRefDb)
+ let gDbWriter = s:CCTreeTagDbWriter.mCreate(
+ \ s:CCTreeGetXRefDbMaps('Compress', 'Alpha'))
+ call gDbSz.mWriteXRefDbToFile(a:fname, gDbWriter)
+endfunction
+
+function! s:CCTreeGlobals.mReadToXRefDb(fname) dict
+ call s:StatusLine.mInit()
+ call s:StatusLine.mSetInfo('Reading XRefDb')
+ let vDbFile = s:vFile.mCreate(a:fname, "r")
+ if vDbFile.mIsLargeFile() == 1
+ call s:StatusLine.mSetExtraInfo('Xref DB '
+ \.' >'.g:CCTreeDbFileMaxSize .' bytes. Splitting '.
+ \'into smaller chunks... (this may take some time)')
+ endif
+ try
+ if vDbFile.mOpen() == 0
+ call s:TagFile.mReadToXRefDb(self.XRefDb, vDbFile)
+ endif
+ finally
+ call vDbFile.mClose()
+ call s:StatusLine.mRestore()
+ call self.DbList.mAddDbToList(a:fname, s:DBStorage.memory)
+ endtry
+endfunction
+
+function! s:CCTreeGlobals.mCursorHoldHandleEvent() dict
+ if self.Window.mGetKeywordAtCursor() != s:CCTreeRC.Error
+ setlocal modifiable
+ call self.Window.mClearMarks(b:displayTree)
+ call self.Window.mMarkCallTree(b:displayTree,
+ \ self.Window.hiKeyword)
+ setlocal nomodifiable
+ endif
+endfunction
+
+function! s:CCTreeGlobals.mEncodingChangedHandleEvent() dict
+ let self.Window.treeMarkers = s:CCTreeMarkers.mCreate()
+ if self.Window.mIsOpen() == s:CCTreeRC.True
+ call self.Window.mClose()
+ call self.mUpdateForCurrentSymbol()
+ endif
+endfunction
+
+
+function! s:CCTreeGlobals.mInit() dict
+ call self.mSetupAutoCmds()
+endfunction
+
+" }}}
+" {{{ CCTree options
+function! s:CCTreeSetUseCallTreeHiLights(val)
+ if a:val == -1
+ let g:CCTreeHilightCallTree = !g:CCTreeHilightCallTree
+ else
+ let g:CCTreeHilightCallTree = a:val
+ endif
+ call s:CCTreeGlobals.mSetupAutoCmds()
+endfunction
+
+function! s:CCTreeSetUseUtf8Symbols(val)
+ if a:val == -1
+ let g:CCTreeUseUTF8Symbols = !g:CCTreeUseUTF8Symbols
+ else
+ let g:CCTreeUseUTF8Symbols = a:val
+ endif
+ call s:CCTreeGlobals.mEncodingChangedHandleEvent()
+endfunction
+
+function! s:CCTreeSetUseConceal(val)
+ if a:val == -1
+ let s:CCTreeUseConceal = !s:CCTreeUseConceal
+ else
+ let s:CCTreeUseConceal = a:val
+ endif
+ if !has('conceal')
+ call s:CCTreeUtils.mWarningMsg('+conceal feature not available')
+ let s:CCTreeUseConceal = 0
+ endif
+endfunction
+
+function! s:CCTreeSetEnhancedSymbolProcessing(val)
+ if a:val == -1
+ let g:CCTreeEnhancedSymbolProcessing = !g:CCTreeEnhancedSymbolProcessing
+ else
+ let g:CCTreeEnhancedSymbolProcessing = a:val
+ endif
+endfunction
+
+function! s:CCTreeOptionsList(arglead, cmdline, cursorpos)
+ let opts = keys(s:CCTreeOptions)
+ if a:arglead == ''
+ return opts
+ else
+ return filter(opts, 'v:val =~? a:arglead')
+ endif
+endfunction
+
+let s:CCTreeOptions = {'UseUnicodeSymbols': function('s:CCTreeSetUseUtf8Symbols'),
+ \ 'DynamicTreeHiLights': function('s:CCTreeSetUseCallTreeHiLights'),
+ \ 'UseConceal': function('s:CCTreeSetUseConceal'),
+ \ 'EnhancedSymbolProcessing': function('s:CCTreeSetEnhancedSymbolProcessing')
+ \}
+
+" }}}
+" {{{ Vim tags interface
+
+" CCTreeCompleteKwd
+" Command line completion function to return names from the db
+function! s:CCTreeCompleteKwd(arglead, cmdline, cursorpos)
+ let syms = s:CCTreeGlobals.mGetSymNames(a:arglead)
+ if a:arglead == ''
+ return syms
+ else
+ return filter(syms, 'v:val =~? a:arglead')
+ endif
+endfunction
+
+function! s:CCTreeTraceTreeForSymbol(sym_arg, direction)
+ if s:CCTreeGlobals.DbList.mIsEmpty() == s:CCTreeRC.True
+ call s:CCTreeUtils.mWarningMsg('No database loaded')
+ return
+ endif
+
+ let symbol = a:sym_arg
+ if symbol == ''
+ let symbol = input('Trace symbol: ', expand('<cword>'),
+ \ 'customlist,<SNR>' . s:sid . 'CCTreeCompleteKwd')
+ if symbol == ''
+ return
+ endif
+ endif
+ let symmatch = s:CCTreeGlobals.mGetSymNames(symbol)
+ if len(symmatch) > 0 && index(symmatch, symbol) >= 0
+ call s:CCTreeGlobals.mSetPreviewState(symbol,
+ \ g:CCTreeRecursiveDepth,
+ \ a:direction)
+ call s:CCTreeGlobals.mUpdateForCurrentSymbol()
+ else
+ call s:CCTreeUtils.mWarningMsg('Symbol not found')
+ endif
+endfunction
+
+
+
+
+function! s:CCTreeGlobals.mLoadBufferFromKeyword()
+ " REVISIT
+ if s:CCTreeGlobals.Window.mGetKeywordAtCursor() == s:CCTreeRC.Error
+ call s:CCTreeUtils.mWarningMsg('No keyword at cursor')
+ return
+ endif
+
+ let hiKeyword = s:CCTreeGlobals.Window.hiKeyword
+ try
+ wincmd p
+ catch
+ call s:CCTreeUtils.mWarningMsg('No buffer to load file')
+ finally
+ if (cscope_connection() > 0)
+ try
+ exec "cs find g ". hiKeyword
+ catch
+ " cheap hack
+ exec "cs find f ". hiKeyword
+ endtry
+ else
+ try
+ " Ctags is smart enough to figure the path
+ exec "tag ".fnamemodify(hiKeyword, ":t")
+ catch /^Vim\%((\a\+)\)\=:E433/
+ call s:CCTreeUtils.mWarningMsg('Tag file not found')
+ catch /^Vim\%((\a\+)\)\=:E426/
+ call s:CCTreeUtils.mWarningMsg('Tag '. hiKeyword .' not found')
+ wincmd p
+ endtry
+ endif
+ endtry
+endfunction
+
+function! s:CCTreeGlobals.mPreviewBufferFromKeyword()
+ if self.Window.mGetKeywordAtCursor() == s:CCTreeRC.Error
+ call s:CCTreeUtils.mWarningMsg('No keyword found')
+ return
+ endif
+
+ let hiKeyword = s:CCTreeGlobals.Window.hiKeyword
+ silent! wincmd P
+ if !&previewwindow
+ wincmd p
+ endif
+ try
+ exec "ptag ". hiKeyword
+ catch
+ call s:CCTreeUtils.mWarningMsg('Tag '.hiKeyword. ' not found')
+ endtry
+endfunction
+
+" }}}
+" {{{ Define commands
+command! -nargs=? -complete=file CCTreeLoadXRefDBFromDisk
+ \ call s:CCTreeCmdLine.mLoadDBFromDisk(<q-args>)
+command! -nargs=? -complete=file CCTreeLoadDB call s:CCTreeCmdLine.mLoadDB(<q-args>, s:DBClasses.cscopeid)
+command! -nargs=? -complete=file CCTreeLoadXRefDB call s:CCTreeCmdLine.mLoadDB(<q-args>, s:DBClasses.cctreexref)
+command! -nargs=? -complete=file CCTreeSaveXRefDB call s:CCTreeCmdLine.mSaveDB(<q-args>, s:DBClasses.cctreexref)
+command! -nargs=? -complete=file CCTreeAppendDB call s:CCTreeCmdLine.mMergeDB(<q-args>, s:DBClasses.cscopeid)
+command! -nargs=0 CCTreeUnLoadDB call s:CCTreeGlobals.mUnLoadDBs()
+command! -nargs=0 CCTreeShowLoadedDBs call s:CCTreeGlobals.mShowLoadedDBs()
+command! -nargs=? -complete=customlist,s:CCTreeCompleteKwd
+ \ CCTreeTraceForward call s:CCTreeTraceTreeForSymbol(<q-args>, 'c')
+command! -nargs=? -complete=customlist,s:CCTreeCompleteKwd CCTreeTraceReverse
+ \ call s:CCTreeTraceTreeForSymbol(<q-args>, 'p')
+command! -nargs=0 CCTreeLoadBufferUsingTag call s:CCTreeGlobals.mLoadBufferFromKeyword()
+command! -nargs=0 CCTreePreviewBufferUsingTag call s:CCTreeGlobals.mPreviewBufferFromKeyword()
+command! -nargs=0 CCTreeRecurseDepthPlus call s:CCTreeGlobals.mRecursiveDepthIncrease()
+command! -nargs=0 CCTreeRecurseDepthMinus call s:CCTreeGlobals.mRecursiveDepthDecrease()
+" Preview Window
+command! -nargs=0 CCTreeWindowToggle call s:CCTreeGlobals.mDisplayToggle()
+command! -nargs=0 CCTreeWindowSaveCopy call s:CCTreeGlobals.mPreviewSave()
+" Run-time dynamic options
+command! -nargs=1 -complete=customlist,s:CCTreeOptionsList CCTreeOptsEnable call s:CCTreeGlobals.mEnable(<q-args>)
+command! -nargs=1 -complete=customlist,s:CCTreeOptionsList CCTreeOptsDisable call s:CCTreeGlobals.mDisable(<q-args>)
+command! -nargs=1 -complete=customlist,s:CCTreeOptionsList CCTreeOptsToggle call s:CCTreeGlobals.mToggle(<q-args>)
+"}}}
+" {{{ finish (and init)
+call s:CCTreeGlobals.mInit()
+" restore 'cpo'
+let &cpoptions = s:cpo_save
+unlet s:cpo_save
+" vim: ts=8 sw=4 sts=4 et foldenable foldmethod=marker foldcolumn=1
+" }}}