Little Helpers
Here are some Little Helpers for the enthusiastic developer, such as small scripts that help to tame the OOo code base.
Contents
Tools for maintaining identifier databases
GNU ID-utils
The GNU ID-utils are a powerful set of utilities to generate and query a database of file names and identifiers, invoke your favourite editor with the resulting set of files, or accomplish any other task with the resultset. Be sure to not use the original version 3.2, use the Debian package instead, or maybe some other distribution's package. For details why and how to patch a self-compiled version 3.2d see this blog entry.
The ID-utils come with an
;;; id-utils.el -- emacs interface to `lid -R grep', a.k.a. `gid'
For how to interface with the vim editor see the
Vim editor's GNU ID-utils section.
Generally, the editor invoking functionality of ID-utils uses the shell
variables VISUAL or EDITOR, EIDARG, EIDLDEL and EIDRDEL, so
it should be possible to invoke any capable editor. Citing from the
documentation:
`eid' invokes the editor defined by the environment variable
`VISUAL'. If `VISUAL' is undefined, it uses the environment variable
`EDITOR' instead. If `EDITOR' is undefined, it defaults to `vi'. It
is possible for `eid' to pass the editor an initial search pattern so
that your cursor will immediately alight on the token of interest.
This feature is controlled by the following environment variables:
`EIDARG'
A printf(3) format string for the editor argument to search for the
matching token. For `vi', this should be `+/%s/'.
`EIDLDEL'
The regular-expression meta-character(s) for delimiting the
beginning of a word (the ``eid' Left DELimiter'). `eid' inserts
this in front of the matching token when a word-search is desired.
For `vi', this should be `\<'.
`EIDRDEL'
The regular-expression meta-character(s) for delimiting the end of
a word (the ``eid' Right DELimiter'). `eid' inserts this in end
of the matching token when a word-search is desired. For `vi',
this should be `\>'.
The ID-utils use an extension → language mapping file id-lang.map. Either edit the system-wide file of your installation or a local copy thereof. Here we're assuming a local copy as $HOME/devbase/id-lang.map, add the following entries:
# Treat OOo/SO resource header files as C files *.hrc C # Treat OOo/SO header files generated from *.idl as C++ files *.hdl C++ # Treat OOo IDL files as C++ files, not exactly a header file, but ... *.idl C++ # Treat OOo/SO resource files as C files *.src C # Treat OOo/SO *.mk files as makefiles *.mk make
Note: The *.mk make entry doesn't seem to work, the makefile.mk's IDs are not added to the database, didn't investigate yet why.
Then the script below may be invoked either
- In a module's directory without parameters, creating an ID database for just the single module.
- In the $SRC_ROOT directory for all modules:
mkid-script '*'
Note the literal '*' asterisk that is not to be expanded by the shell.
The file size of the generated ID file using this method currently (m223) is 31MB. - In the $SRC_ROOT directory for specified modules:
mkid-script '{module1,module2,solver}'
Again, note the literal argument enclosed in single quotes for the file name expansion, which is done by the script. If the argument was not passed literally, only the first module would be included, and other strange things may happen.. Wildcards may be used as usual.
It is a good idea to include the solver module to gather identifiers from delivered header files.
Ignore messages like
mkid: can't lstat `unxlngi4.pro' from `.../SRC680/src.m180/solver' or
mkid: can't lstat `build' from `.../SRC680/src.m180/module1/unxlngi4.pro/misc'
They result from the INPATH relevant arguments passed for each module and don't harm.
You may also manually invoke mkid in the $SRC_ROOT directory for all
modules, this is a safe bet but may include more than you want if you have
output directories for multiple platforms, all identifiers present there will
get duplicated, triplicated, ... the command line for this is
mkid --lang-map=$HOME/devbase/id-lang.map --statistics
mkid-script
The module-wise script, suggested name: $HOME/devbase/mkid-script
#!/bin/tcsh
# Either the current module, or all modules can be ID'ed if $1 is
# specified as literal '*' unexpanded. Will be expanded here.
# Instead of '*' _any_ shell wildcard should be possible, e.g. '{.,bf_*}'.
# Output directories except $INPATH/inc and $INPATH/misc/build are skipped in
# these cases.
# A simple ALL generator, not ignoring any directory, is the parameter 'all'.
# Warning, that may create a huge database and massively duplicated entries if
# more than one platform's output directory exists.
if ( { ( which mkid >> /dev/null ) } ) then
echo generating IDs
if ( "$1" == "-o" ) then
set output="--output=$2"
shift
shift
else
set output=""
endif
if ( "$1" == "" ) then
set module="."
#set exclude=./{common,unxlngi6,unxsols4,wntmsci10}{,.pro}
# Wildcards not only make updates unnecessary but also suppress "no
# match" error messages. The CVS* and .svn* directories are included
# for the case of a freshly checked out source that does not have any
# output directories yet. Otherwise that would still lead to a "no
# match" error if no wildcarded names matched.
set exclude=./{CVS*,.svn*,common*,*unxlng*,*unxsol*,*unxmac*,*wntmsc*}
else if ( "`basename '$1'`" == "*" ) then
set module="$1"
echo module: $module
# prevent command line overflow with a full exclude
set exclude="x"
echo exclude: $exclude
else if ( "$1" == "all" ) then
set module="$1"
echo module: $module
set exclude="nothing"
echo exclude: $exclude
else
set module="$1"
echo module: $module
set exclude=$1/{CVS*,.svn*,common*,*unxlng*,*unxsol*,*unxmac*,*wntmsc*}
echo exclude: $exclude
endif
if ( "`basename '$1'`" == "*" ) then
# test for ls overrun
set dcommand="ls -d $module/*"
if ( ! { ( $dcommand >> /dev/null ) } ) then
echo "$0 : ls overrun, trying find $module -mindepth 1 -maxdepth 1"
# test for find mindepth/maxdepth availability
set dcommand="find $module -mindepth 1 -maxdepth 1"
if ( ! { ( $dcommand >> /dev/null ) } ) then
echo "$0 : find doesn't know options -mindepth -maxdepth"
echo "$0 : too bad, giving up."
exit 1
endif
endif
# Only positive list of module subdirectories and files,
# excluding output directories except $INPATH/{inc,misc/build}
set dirs="$module/$INPATH/inc $module/$INPATH/misc/build `$dcommand | sed -e '/\(\/\(CVS\|common\|.*unxlng\|.*unxsol\|.*unxmac\|.*wntmsc\|Jamfile\|cscope\.\|tags\|ID\)\)\|^solver\//d'`"
echo dirs: $dirs
echo Creating output: $output
mkid --lang-map=$HOME/devbase/id-lang.map --include='C C++ asm perl java make' $output --statistics $dirs
else if ( "$1" == "all" ) then
echo Creating output: $output
mkid --lang-map=$HOME/devbase/id-lang.map --include='C C++ asm perl java make' $output --statistics
else
# all but negative list plus INPATH relevants
echo Creating output: $output
mkid --lang-map=$HOME/devbase/id-lang.map --include='C C++ asm perl java make' $output --statistics --prune="$exclude" $module $module/$INPATH/inc $module/$INPATH/misc/build
endif
else
echo no ID-utils
endif
Exuberant Ctags
The Exuberant Ctags utility interfaces nicely with Emacs and Vim and enables quick lookup for declarations and definitions of macros, typedefs, constants, enums, variables, structs and classes and their methods and implementation. You should get the latest version available at http://ctags.sourceforge.net/, which currently (2006-08-27) is v5.6, older versions included by distributions for example don't automatically recognize .mk files as makefiles, and v5.6 also added a patch needed for the vim 7.0 omni-completion feature. Ctags creates a file tags in the current directory, if not told otherwise.
As creating a tags file over all modules and directories exceeded the 2GB file size limit, a positive directory list was used to go along with a '*' parameter, identical to the one used in the mkid-script above. The file size of the tags file generated for '*' currently (m182) is 398MB.
ctags-script
For use with the OOo code base a script with a syntax similar to the ID-utils script above comes handy, suggested name: $HOME/devbase/ctags-script
#!/bin/tcsh
# Either the current module, or all modules can be ctag'ed if $1 is
# specified as literal '*' unexpanded. Will be expanded here.
# Instead of '*' _any_ shell wildcard should be possible, e.g. '{.,bf_*}'.
# NOTE: ctags on '*' exceeded 2GB file size limit if for _all_ OOo modules and
# no positive dirs list was used.
if ( "$?MYCTAGS" == "0" ) then
set MYCTAGS="ctags"
endif
if ( { ( which "$MYCTAGS" >> /dev/null ) } ) then
echo generating ctags
# Options necessary for the Vim OmniCppComplete plugin,
# http://www.vim.org/scripts/script.php?script_id=1520
# --c++-kinds=+p : Adds prototypes in the database for C++ files.
# --fields=+iaS : Adds inheritance (i), access (a) and function
# signatures (S) informations.
# --extra=+q : Adds context to the tag name. Note: Without this
# option, the script cannot get class members.
set omnicppoptions="--c++-kinds=+p --fields=+iaS --extra=+q"
if ( "$1" == "--global" ) then
if ( ! $?UPDMINOREXT ) set UPDMINOREXT=""
"$MYCTAGS" -h "+.hdl.hrc" --langmap=c:+.hdl.hrc.src $omnicppoptions -R $SOLARVERSION/$INPATH/inc$UPDMINOREXT
else
if ( "$1" == "" ) then
set module="."
else
set module="$1"
echo module: $module
endif
# test for ls overrun
set dcommand="ls -d $module/*"
if ( ! { ( $dcommand >> /dev/null ) } ) then
echo "$0 : ls overrun, trying find $module -mindepth 1 -maxdepth 1"
# test for find mindepth/maxdepth availability
set dcommand="find $module -mindepth 1 -maxdepth 1"
if ( ! { ( $dcommand >> /dev/null ) } ) then
echo "$0 : find doesn't know options -mindepth -maxdepth"
echo "$0 : too bad, giving up."
exit 1
endif
endif
# Only positive list of module subdirectories and files,
# excluding output directories except $INPATH/{inc,misc/build}
set dirs="$module/$INPATH/inc $module/$INPATH/misc/build `$dcommand | sed -e '/\(\/\(CVS\|\.svn\|common\|.*unxlng\|.*unxsol\|.*unxmac\|.*wntmsc\|Jamfile\|cscope\.\|tags\|ID\)\)\|^solver\//d'`"
echo dirs: $dirs
"$MYCTAGS" -h "+.hdl.hrc" --langmap=c:+.hdl.hrc.src $omnicppoptions -R $dirs
endif
else
echo no ctags
endif
Ignore messages like
ctags: Warning: cannot open source file "./unxlngi6.pro/misc/build" : No such file or directory
or consider them purely informational.
Note that also here, if more than one module is to be specified, the shell
filename glob-patterns and metanotations have to be passed in single quotes.
Though tagging an entire OOo code base would result in a "file overflow" with
more than 2GB this isn't a problem in practice, at least with Vim, don't know
about other editors, since it may search the tags files going up the
directory hierarchy if a tag is not found in the current directory's tags file.
So generate the tags file in the modules you are interested in, using the
script without parameters, then cd $SRC_ROOT and invoke
scriptname --global to produce a tags file for the solver.
A final ctags note: In some cases, you might have more than one version of ctags on your system. E.g., there is a version that ships with Emacs (and is often in /usr/local/bin) that doesn't support the same arguments as Exhuberant ctags; if this is the case (you'll see an error message from the script like "unrecognized option `--langmap=c:+.hdl.hrc.src'") then you can set the MYCTAGS variable, e.g., from a bash shell:
MYCTAGS=/usr/bin/ctags $HOME/devbase/ctags-script --global MYCTAGS=/usr/bin/ctags CTAGS=-e $HOME/devbase/ctags-script --global # generate TAGS for Emacs
If all you have is the Emacs version, you will want to rewrite the script (or provide a better solution here).
Cscope
Cscope is another utility to query a database for code elements. It comes with a cumbersome screen-oriented interactive tool to browse source files, but also interfaces nicely with Vim and Emacs. Unfortunately it is not able to cope with the entire OOo source base it seems, so for '*' even when called with a list of files to work on, at the end it displayed Input string too long, limit 50251 and no output was generated. Didn't investigate yet what exactly is the problem. However, using it on a subset of several modules is possible.
cscope-script
This script may be used to generate a cscope.out database file, same parameter syntax as the mkid-script and ctags-script above. Suggested name: $HOME/devbase/cscope-script
#!/bin/tcsh
# Either the current module, or all modules can be tagID'ed if $1 is
# specified as literal '*' unexpanded. Will be expanded here.
# Instead of '*' _any_ shell wildcard should be possible, e.g. '{.,bf_*}'.
# NOTE: cscope on '*' hanged if for _all_ OOo modules and no positive dirs list
# was used. Even with the generated cscope.files it still refuses to complete
# its work.
if ( { ( which cscope >> /dev/null ) } ) then
echo generating cscope
if ( "$1" == "" ) then
set module="."
else
set module="$1"
echo module: $module
endif
# test for ls overrun
set dcommand="ls -d $module/*"
if ( ! { ( $dcommand >> /dev/null ) } ) then
echo "$0 : ls overrun, trying find $module -mindepth 1 -maxdepth 1"
# test for find mindepth/maxdepth availability
set dcommand="find $module -mindepth 1 -maxdepth 1"
if ( ! { ( $dcommand >> /dev/null ) } ) then
echo "$0 : find doesn't know options -mindepth -maxdepth"
echo "$0 : too bad, giving up."
exit 1
endif
endif
# Only positive list of module subdirectories and files,
# excluding output directories except $INPATH/{inc,misc/build}
set dirs="$module/$INPATH/inc $module/$INPATH/misc/build `$dcommand | sed -e '/\(\/\(CVS\|\.svn\|common\|.*unxlng\|.*unxsol\|.*unxmac\|.*wntmsc\|Jamfile\|cscope\.\|tags\|ID\)\)\|^solver\//d'`"
echo dirs: $dirs
( find $dirs -name '*.[hc]' -o -name '*.[hc]xx' -o -name '*.[hc]pp' -o -name '*.[hs]rc' >cscope.files ) >>& /dev/null
if ( `uname` == "SunOS" ) then
cscope -b -c
else
cscope -b -c -q
endif
else
echo no cscope
endif
Note that the find command is executed in a subshell with stderr redirected to /dev/null to suppress all the find: ./unxlngi6.pro/misc/build: No such file or directory and the like warning messages. Remove the parentheses and the redirection in case you suspect errors in your environment.
All together now
Surely we don't want to invoke all these scripts separately all the times, so here's a small wrapper just to prove that the suggested names actually make sense ;-) let's call it $HOME/devbase/tagsID
#!/bin/tcsh
# Either the current module, or all modules can be tagID'ed if $1 is
# specified as literal '*' unexpanded. Will be expanded here.
# Instead of '*' _any_ shell wildcard should be possible, e.g. '{.,bf_*}'.
# NOTE: ctags on '*' exceeds 2GB file size limit if for _all_ OOo modules.
# NOTE: cscope on '*' hangs if for _all_ OOo modules.
# Which actually is the reason we invoke it last just in case we forgot..
${0:h}/ctags-script "$1"
${0:h}/mkid-script "$1"
${0:h}/cscope-script "$1"
The same syntax as with the other scripts applies: filename glob-patterns and metanotations have to be passed as literals, enquoted with single quotes. Invoking it in a module's directory without passing an argument creates databases for that single module.
Build selected source code files with debug
Sometimes only a few files need to be build with debug instead of an entire module, which significantly saves time. Change into the directory and invoke the following script with the files of interest passed as arguments, for example, in sc/source/core/tool
mkd token.cxx compiler.cxx interpr*.cxxTo also link the library in the module's util directory pass the --link or -l option:
mkd -l token.cxx compiler.cxx interpr*.cxx
mkd
#!/bin/bash # Compile source files (in current directory!) passed as arguments with debug. # Option --link or -l also links the library in the module's util directory. # Do parallel build, set to empty if not wanted. PARALLEL="-P4" if [ -z "$INPATH" ]; then echo "No \$INPATH, source environment!" exit 1 fi UTIL="" if [ "$1" == "--link" -o "$1" == "-l" ]; then UTIL="Yes" shift fi # Determine the current hierarchy depth by looking upwards for the prj/d.lst # file, but no more than MAX levels up. DLST="prj/d.lst" SUBS="" MAX=5 for (( LEVEL=0 ; LEVEL < MAX ; ++LEVEL )); do if [ -f "${SUBS}${DLST}" ]; then break fi SUBS="../$SUBS" done OUTP="${SUBS}${INPATH}/slo" if [ $LEVEL == $MAX ]; then echo "No ${SUBS}${DLST} found! (LEVEL $LEVEL)" exit 1 fi ERR=0 # Force compilation of files passed as arguments. for x in "$@"; do FILE="${x//*\//}" BASE="${FILE%.*}" FULL="${OUTP}/${BASE}.obj" rm "$FULL" if [ -z "$PARALLEL" ]; then dmake debug=t "$FULL" fi ERR=$? if [ $ERR != 0 ]; then break fi done # If no error, compile yet uncompiled files and create archive, if any. if [ $ERR == 0 ]; then dmake $PARALLEL debug=t ERR=$? fi # Some modules, such as Writer, have an extra archiving step one level up, e.g. # in sw/source/core/ if files in sw/source/core/layout/ were compiled. # Do this only if deeper than in module level. if (( LEVEL > 1 )); then if [ $ERR == 0 -a -f ../makefile.mk ]; then pushd .. dmake debug=t ERR=$? popd fi fi # If no error, link library if requested. if [ $ERR == 0 -a -n "$UTIL" ]; then UTIL="${SUBS}util" if [ ! -d "$UTIL" ]; then echo "No $UTIL directory, no linking." exit fi cd "$UTIL" dmake debug=t ERR=$? fi exit $ERR
