Alien-SVN
view release on metacpan or search on metacpan
src/subversion/build/ltmain.sh view on Meta::CPAN
# 'require_*' variable to ensure that they are executed, at most, once.
#
# It's entirely deliberate that calling these functions can set
# variables that don't obey the namespace limitations obeyed by the rest
# of this file, in order that that they be as useful as possible to
# callers.
# require_term_colors
# -------------------
# Allow display of bold text on terminals that support it.
require_term_colors=func_require_term_colors
func_require_term_colors ()
{
$debug_cmd
test -t 1 && {
# COLORTERM and USE_ANSI_COLORS environment variables take
# precedence, because most terminfo databases neglect to describe
# whether color sequences are supported.
test -n "${COLORTERM+set}" && : ${USE_ANSI_COLORS="1"}
if test 1 = "$USE_ANSI_COLORS"; then
# Standard ANSI escape sequences
tc_reset='[0m'
tc_bold='[1m'; tc_standout='[7m'
tc_red='[31m'; tc_green='[32m'
tc_blue='[34m'; tc_cyan='[36m'
else
# Otherwise trust the terminfo database after all.
test -n "`tput sgr0 2>/dev/null`" && {
tc_reset=`tput sgr0`
test -n "`tput bold 2>/dev/null`" && tc_bold=`tput bold`
tc_standout=$tc_bold
test -n "`tput smso 2>/dev/null`" && tc_standout=`tput smso`
test -n "`tput setaf 1 2>/dev/null`" && tc_red=`tput setaf 1`
test -n "`tput setaf 2 2>/dev/null`" && tc_green=`tput setaf 2`
test -n "`tput setaf 4 2>/dev/null`" && tc_blue=`tput setaf 4`
test -n "`tput setaf 5 2>/dev/null`" && tc_cyan=`tput setaf 5`
}
fi
}
require_term_colors=:
src/subversion/build/ltmain.sh view on Meta::CPAN
$debug_cmd
$require_term_colors
_G_infix=$1; shift
_G_indent=$_G_infix
_G_prefix="$progname: $_G_infix: "
_G_message=$*
# Strip color escape sequences before counting printable length
for _G_tc in "$tc_reset" "$tc_bold" "$tc_standout" "$tc_red" "$tc_green" "$tc_blue" "$tc_cyan"
do
test -n "$_G_tc" && {
_G_esc_tc=`$ECHO "$_G_tc" | $SED "$sed_make_literal_regex"`
_G_indent=`$ECHO "$_G_indent" | $SED "s|$_G_esc_tc||g"`
}
done
_G_indent="$progname: "`echo "$_G_indent" | $SED 's|.| |g'`" " ## exclude from sc_prohibit_nested_quotes
func_echo_infix_1_IFS=$IFS
IFS=$nl
for _G_line in $_G_message; do
IFS=$func_echo_infix_1_IFS
$ECHO "$_G_prefix$tc_bold$_G_line$tc_reset" >&2
_G_prefix=$_G_indent
done
IFS=$func_echo_infix_1_IFS
}
# func_error ARG...
# -----------------
# Echo program name prefixed message to standard error.
func_error ()
src/subversion/subversion/bindings/swig/perl/native/core.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_client.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_delta.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_diff.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_fs.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_ra.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_repos.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/perl/native/svn_wc.c view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/bindings/swig/proxy/swig_perl_external_runtime.swg view on Meta::CPAN
# define PL_errgv errgv
# define PL_sv_no sv_no
# define PL_sv_yes sv_yes
# define PL_markstack_ptr markstack_ptr
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
# else
# if PTRSIZE == LONGSIZE
# define PTRV unsigned long
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="60"
y="102.3622"
id="text4510"
inkscape:label="#revisions_key"><tspan
sodipodi:role="line"
id="tspan4512"
x="60"
y="102.3622"
style="font-weight:bold">[num]<tspan
style="font-weight:normal"
id="tspan8171" /></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="70"
y="122.3622"
id="text4514"
inkscape:label="#revisions_kind"><tspan
sodipodi:role="line"
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="220"
y="252.36226"
id="text4843"
inkscape:label="#copies_key"><tspan
sodipodi:role="line"
id="tspan4845"
x="220"
y="252.36226"><tspan
style="font-weight:bold"
id="tspan8181">cpy_id</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="230"
y="272.36218"
id="text4847"
inkscape:label="#copies_kind"><tspan
sodipodi:role="line"
id="tspan4849"
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="60.000011"
y="282.36215"
id="text4883"
inkscape:label="#changes_key"><tspan
sodipodi:role="line"
id="tspan4885"
x="60.000011"
y="282.36215"
style="font-weight:bold">txn_id<tspan
style="font-weight:normal"
id="tspan8237" /></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="70.000008"
y="302.36206"
id="text4887"
inkscape:label="#changes_kind"><tspan
sodipodi:role="line"
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
sodipodi:nodetypes="cc" />
<path
style="fill:none;fill-opacity:0.75;fill-rule:evenodd;stroke:#000000;stroke-width:1;stroke-linecap:butt;stroke-linejoin:miter;marker-end:url(#Arrow1Mend);stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;display:inl...
d="M 258.71275,304.2489 C 258.71275,304.2489 230.28855,352.36218 290,352.36218"
id="path7057"
inkscape:connector-type="polyline"
sodipodi:nodetypes="cc"
inkscape:connection-start="#text4859" />
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:bold;line-height:125%;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="300"
y="372.36218"
id="text7073"
sodipodi:linespacing="125%"
inkscape:label="#nodes_key"><tspan
sodipodi:role="line"
id="tspan7075"
x="300"
y="372.36218">id<tspan
style="font-size:8px;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;text-align:start;line-height:125%;writing-mode:lr-tb;text-anchor:start;font-family:Bitstream Vera Sans"
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="460"
y="312.36218"
id="text7123"
inkscape:label="#representations_key"><tspan
sodipodi:role="line"
id="tspan7125"
x="460"
y="312.36218"><tspan
style="font-weight:bold"
id="tspan8241">rep_id</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="470"
y="332.36218"
id="text7127"
inkscape:label="#representations_kind"><tspan
sodipodi:role="line"
id="tspan7129"
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="540"
y="562.36218"
id="text7143"
inkscape:label="#strings_key"><tspan
sodipodi:role="line"
id="tspan7145"
x="540"
y="562.36218"><tspan
style="font-weight:bold"
id="tspan8239">str_id</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="470"
y="372.36176"
id="text7193"
inkscape:label="#representations_string_key"><tspan
sodipodi:role="line"
id="tspan7195"
src/subversion/subversion/libsvn_fs_base/notes/schema-bdb-1.6.svg view on Meta::CPAN
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="240"
y="552.36218"
id="text4875"
inkscape:label="#uuids_key"><tspan
sodipodi:role="line"
id="tspan4877"
x="240"
y="552.36218"><tspan
style="font-weight:bold"
id="tspan8179">[num=1]</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="260"
y="132.3622"
id="text8231"
inkscape:label="#transactions_key"><tspan
sodipodi:role="line"
id="tspan8233"
x="260"
y="132.3622"><tspan
style="font-weight:bold"
id="tspan8235">txn_id</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="540"
y="162.36226"
id="text8243"
inkscape:label="#locks_key"><tspan
sodipodi:role="line"
id="tspan8245"
x="540"
y="162.36226"><tspan
style="font-weight:bold"
id="tspan8247">token</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="460"
y="82.362427"
id="text8249"
inkscape:label="#lock-tokens_key"><tspan
sodipodi:role="line"
id="tspan8251"
x="460"
y="82.362427"><tspan
style="font-weight:bold"
id="tspan8253">path</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="140"
y="412.36246"
id="text8255"
inkscape:label="#node-origins_key"><tspan
sodipodi:role="line"
id="tspan8257"
x="140"
y="412.36246"><tspan
style="font-weight:bold"
id="tspan8259">node_id</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="600"
y="342.3623"
id="text8261"
inkscape:label="#checksum-reps_key"><tspan
sodipodi:role="line"
id="tspan8263"
x="600"
y="342.3623"><tspan
style="font-weight:bold"
id="tspan8265">sha1sum</tspan></tspan></text>
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
x="60.000031"
y="552.36212"
id="text8267"
inkscape:label="#miscellaneous_key"><tspan
sodipodi:role="line"
id="tspan8269"
x="60.000031"
y="552.36212"><tspan
style="font-weight:bold"
id="tspan8271">"forward-delta-rev"</tspan></tspan></text>
<path
sodipodi:nodetypes="cc"
inkscape:connector-type="polyline"
id="path8273"
d="M 320.41386,290.0484 C 379.92417,290.0484 340,202.36218 340,202.36218"
style="fill:none;fill-opacity:0.75;fill-rule:evenodd;stroke:#000000;stroke-width:1;stroke-linecap:butt;stroke-linejoin:miter;marker-end:url(#Arrow1Mend);stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;display:inl...
<text
xml:space="preserve"
style="font-size:8px;font-style:normal;font-weight:normal;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;font-family:Bitstream Vera Sans"
src/subversion/tools/buildbot/master/public_html/buildbot.css view on Meta::CPAN
/* Copied from buildbot.ethereal.com. Thanks! */
* {
font-family: verdana, arial, helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
}
a:link,a:visited,a:active {
color: #333;
}
a:hover {
color: #999;
}
.table {
src/subversion/tools/dev/benchmarks/suite1/benchmark.py view on Meta::CPAN
for idx,command_name in enumerate(command_names):
ylabel = '%s\nvs. %.1fs' % (
command_name,
left[command_name][3])
ypos=1.0 - margin - titlemargin - ystep/M - ystep * idx
plt.figtext(0.5, ypos,
command_name,
ha='center', va='top',
size='medium', weight='bold')
plt.figtext(0.5, ypos - ystep/(M+1),
'%s\n= %.2fs' % (
labels[0], left[command_name][3]),
ha='center', va='top',
size='small')
if options.title:
plt.figtext(0.5, 1. - titlemargin/2, options.title, ha='center',
va='center', weight='bold')
plt.savefig(chart_path)
print 'wrote chart file:', chart_path
# ------------------------------------------------------------ main
# Custom option formatter, keeping newlines in the description.
# adapted from:
src/subversion/tools/dev/mergegraph/mergegraph.py view on Meta::CPAN
graph.add_node(Node(name, label=label))
else:
graph.add_node(Node(name, color='grey', label=''))
def mk_merge_target(graph, target_node, important):
"""Add a merge target node to the graph."""
if important:
color = 'red'
else:
color = 'black'
graph.add_node(Node(target_node, color=color, fontcolor=color, style='bold'))
def mk_edge(graph, name1, name2, **attrs):
"""Add an ordinary edge to the graph"""
graph.add_edge(Edge(name1, name2, dir='none', style='dotted', color='grey', **attrs))
def mk_br_edge(graph, name1, name2):
"""Add a branch-creation edge to the graph"""
# Constraint=false to avoid the Y-shape skewing the nice parallel branch lines
graph.mk_edge(name1, name2, constraint='false')
def mk_merge_edge(graph, src_node, tgt_node, kind, label, important):
"""Add a merge edge to the graph"""
if important:
color = 'red'
else:
color = 'grey'
e = Edge(src_node, tgt_node, constraint='false',
label='"' + label + '"',
color=color, fontcolor=color,
style='bold')
if kind.startswith('cherry'):
e.set_style('dashed')
graph.add_edge(e)
def mk_mergeinfo_edge(graph, base_node, src_node, important):
""""""
if important:
color = 'red'
else:
color = 'grey'
src/subversion/tools/dev/svn-dev.el view on Meta::CPAN
;; Non-paging behavior should be a standard command-line option. No
;; program that can output text should *ever* insist on invoking the
;; pager.
;;
;; Anyway, these Emacs commands will solve the problem for us.
;;
;; Acknowledgements:
;; Much of this code is copied from man.el in the FSF Emacs 21.x
;; sources.
(defcustom svn-perldoc-overstrike-face 'bold
"*Face to use when fontifying overstrike."
:type 'face
:group 'svn-dev)
(defcustom svn-perldoc-underline-face 'underline
"*Face to use when fontifying underlining."
:type 'face
:group 'svn-dev)
src/subversion/tools/dev/svn-dev.el view on Meta::CPAN
current-language-environment 0 6 t))
(goto-char (point-min))
(let ((str "\255"))
(if enable-multibyte-characters
(setq str (string-as-multibyte str)))
(while (search-forward str nil t) (replace-match "-")))))
(defun svn-perldoc-fontify-buffer ()
"Convert overstriking and underlining to the correct fonts.
Same for the ANSI bold and normal escape sequences."
(interactive)
(message "Please wait, making up the page...")
(goto-char (point-min))
(while (search-forward "\e[1m" nil t)
(delete-backward-char 4)
(put-text-property (point)
(progn (if (search-forward "\e[0m" nil 'move)
(delete-backward-char 4))
(point))
'face svn-perldoc-overstrike-face))
src/subversion/tools/dev/svn-dev.el view on Meta::CPAN
(while (search-forward "\b_" nil t)
(backward-delete-char 2)
(put-text-property (1- (point)) (point) 'face svn-perldoc-underline-face))
(goto-char (point-min))
(while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t)
(replace-match "\\1")
(put-text-property (1- (point)) (point) 'face svn-perldoc-overstrike-face))
(goto-char (point-min))
(while (re-search-forward "o\b\\+\\|\\+\bo" nil t)
(replace-match "o")
(put-text-property (1- (point)) (point) 'face 'bold))
(goto-char (point-min))
(while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t)
(replace-match "+")
(put-text-property (1- (point)) (point) 'face 'bold))
(svn-perldoc-softhyphen-to-minus)
(message "Please wait, making up the page...done"))
(defun svn-perldoc-cleanup-buffer ()
"Remove overstriking and underlining from the current buffer."
(interactive)
(message "Please wait, cleaning up the page...")
(progn
(goto-char (point-min))
( run in 2.937 seconds using v1.01-cache-2.11-cpan-c333fce770f )