Alien-SVN
view release on metacpan or search on metacpan
src/subversion/build/libtool.m4 view on Meta::CPAN
delay_variable_subst='$delay_variable_subst'
_LT_CONFIG_STATUS_DECLARATIONS
LTCC='$LTCC'
LTCFLAGS='$LTCFLAGS'
compiler='$compiler_DEFAULT'
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
\$[]1
_LTECHO_EOF'
}
# Quote evaled strings.
for var in lt_decl_all_varnames([[ \
]], lt_decl_quote_varnames); do
case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
*[[\\\\\\\`\\"\\\$]]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
;;
src/subversion/build/libtool.m4 view on Meta::CPAN
{
echo
AS_BOX([Running $as_me.])
} >&AS_MESSAGE_LOG_FD
lt_cl_help="\
'$as_me' creates a local libtool stub from the current configuration,
for use in further configure time tests before the real libtool is
generated.
Usage: $[0] [[OPTIONS]]
-h, --help print this help, then exit
-V, --version print version number, then exit
-q, --quiet do not print progress messages
-d, --debug don't remove temporary files
Report bugs to <bug-libtool@gnu.org>."
lt_cl_version="\
m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl
m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION])
configured by $[0], generated by m4_PACKAGE_STRING.
Copyright (C) 2011 Free Software Foundation, Inc.
This config.lt script is free software; the Free Software Foundation
gives unlimited permision to copy, distribute and modify it."
while test 0 != $[#]
do
case $[1] in
--version | --v* | -V )
echo "$lt_cl_version"; exit 0 ;;
--help | --h* | -h )
echo "$lt_cl_help"; exit 0 ;;
--debug | --d* | -d )
debug=: ;;
--quiet | --q* | --silent | --s* | -q )
lt_cl_silent=: ;;
-*) AC_MSG_ERROR([unrecognized option: $[1]
Try '$[0] --help' for more information.]) ;;
*) AC_MSG_ERROR([unrecognized argument: $[1]
Try '$[0] --help' for more information.]) ;;
esac
shift
done
if $lt_cl_silent; then
exec AS_MESSAGE_FD>/dev/null
fi
_LTEOF
cat >>"$CONFIG_LT" <<_LTEOF
src/subversion/build/libtool.m4 view on Meta::CPAN
if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \
test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then
ECHO='print -r --'
elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then
ECHO='printf %s\n'
else
# Use this function as a fallback that always works.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
$[]1
_LTECHO_EOF'
}
ECHO='func_fallback_echo'
fi
# func_echo_all arg...
# Invoke $ECHO with all args, space-separated.
func_echo_all ()
{
$ECHO "$*"
src/subversion/build/ltmain.sh view on Meta::CPAN
-prefer-non-pic)
pic_mode=no
continue
;;
esac
done
func_quote_for_eval "$libobj"
test "X$libobj" != "X$func_quote_for_eval_result" \
&& $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \
&& func_warning "libobj name '$libobj' may not contain shell special characters."
func_dirname_and_basename "$obj" "/" ""
objname=$func_basename_result
xdir=$func_dirname_result
lobj=$xdir$objdir/$objname
test -z "$base_compile" && \
func_fatal_help "you must specify a compilation command"
# Delete any leftover library objects.
src/subversion/configure view on Meta::CPAN
t loop
s/-\n.*//
' >$as_me.lineno &&
chmod +x "$as_me.lineno" ||
{ $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
# If we had to re-execute with $CONFIG_SHELL, we're ensured to have
# already done that, so ensure we don't try to do so again and fall
# in an infinite loop. This has already happened in practice.
_as_can_reexec=no; export _as_can_reexec
# Don't try to exec as it changes $[0], causing all sort of problems
# (the dirname of $[0] is not the place where we might find the
# original and so on. Autoconf is especially sensitive to this).
. "./$as_me.lineno"
# Exit status is that of the last command.
exit
}
ECHO_C= ECHO_N= ECHO_T=
case `echo -n x` in #(((((
-n*)
case `echo 'xy\c'` in
src/subversion/subversion/bindings/swig/perl/native/Client.pm view on Meta::CPAN
*{"SVN::Client::$function"} = sub
{
my ($self, $ctx);
my @args;
# Don't shift the first param if it isn't a SVN::Client
# object. This lets the old style interface still work.
# And is useful for functions like url_from_path which
# don't take a ctx param, but might be called in method
# invocation style or as a normal function.
for (my $index = $[; $index <= $#_; $index++)
{
if (ref($_[$index]) eq 'SVN::Client')
{
($self) = splice(@_,$index,1);
$ctx = $self->{'ctx'};
last;
} elsif (ref($_[$index]) eq '_p_svn_client_ctx_t') {
$self = undef;
($ctx) = splice(@_,$index,1);
last;
src/subversion/subversion/bindings/swig/perl/native/Client.pm view on Meta::CPAN
}
}
if (ref($_[$#_]) eq '_p_apr_pool_t' ||
ref($_[$#_]) eq 'SVN::Pool')
{
# if we got a pool passed to us we need to
# leave it off until we add the ctx first
# so we push only the first arg to the next
# to last arg.
push @args, @_[$[ .. ($#_ - 1)];
unless ($function =~ /^(?:propset|url_from_path)$/)
{
# propset and url_from_path don't take a ctx argument
push @args, $ctx;
}
push @args, $_[$#_];
} else {
push @args, @_;
unless ($function =~ /^(?:propset|url_from_path)$/)
{
src/subversion/subversion/bindings/swig/perl/native/Core.pm view on Meta::CPAN
}
else {
apr_pool_destroy($$self)
}
}
package _p_svn_error_t;
use SVN::Base qw(Core svn_error_t_);
sub strerror {
return SVN::Error::strerror($_[$[]->apr_err());
}
sub handle_error {
return SVN::Error::handle_error(@_);
}
sub expanded_message {
return SVN::Error::expanded_message(@_);
}
sub handle_warning {
# need to swap parameter order.
return SVN::Error::handle_warning($_[$[+1],$_[$[]);
}
foreach my $function (qw(compose clear quick_wrap)) {
no strict 'refs';
my $real_function = \&{"SVN::_Core::svn_error_$function"};
*{"_p_svn_error_t::$function"} = sub {
return $real_function->(@_);
}
}
src/subversion/subversion/bindings/swig/perl/native/Core.pm view on Meta::CPAN
=item SVN::Error::is_error($value)
Returns true if value is of type svn_error. Returns false if value is
anything else or undefined. This is useful for seeing if a call has returned
an error.
=cut
sub is_error {
return (ref($_[$[]) eq '_p_svn_error_t');
}
=item SVN::Error::croak_on_error
Default error handler. It takes an svn_error_t and extracts the error messages
from it and croaks with those messages.
It can be used in two ways. The first is detailed above as setting it as the
automatic exception handler via setting $SVN::Error::handler.
src/subversion/subversion/bindings/swig/perl/native/Core.pm view on Meta::CPAN
an explicit error handler. For example:
my $result_rev=SVN::Error::croak_on_error($ctx-E<gt>checkout($url,$path,'HEAD',1));
If there is no error then croak_on_error will return the arguments passed to it
unchanged.
=cut
sub croak_on_error {
unless (is_error($_[$[])) {
return @_;
}
my $svn_error = shift;
my $error_message = $svn_error->expanded_message();
$svn_error->clear();
croak($error_message);
}
=item SVN::Error::confess_on_error
The same as croak_on_error except it will give a more detailed stack backtrace,
including internal calls within the implementation of the perl bindings.
This is useful when you are doing development work on the bindings themselves.
=cut
sub confess_on_error {
unless (is_error($_[$[])) {
return @_;
}
my $svn_error = shift;
my $error_message = $svn_error->expanded_message();
$svn_error->clear();
confess($error_message);
}
src/subversion/subversion/bindings/swig/perl/native/Core.pm view on Meta::CPAN
This is useful for wrapping around calls which you wish to ignore any potential
error. It checks to see if the first parameter is an error and if it is it
clears it. It then returns all the other parameters.
=back
=cut
sub ignore_error {
if (is_error($_[$[])) {
my $svn_error = shift;
$svn_error->clear();
}
return @_;
}
package _p_svn_log_changed_path_t;
use SVN::Base qw(Core svn_log_changed_path_t_);
( run in 0.586 second using v1.01-cache-2.11-cpan-b61123c0432 )