I've upgraded and reviewed Mattias' patch to Client.pm. I've got another one
brewing for Repos.pm that should come along shortly. If I can get a Approved
by: for these, I'll apply to trunk (before redoing the perl-bindings-improvement
branch). I've actually got a script to generate the list of XS-wrapped, but
such automation will have to wait until I have some more tuits (round or octagonal).
John
[[[
Make many functions added since version 1.0 in the Client API visible
to users of the Perl bindings. They are already swig-wrapped, just not
exported. (issue 2646)
* subversion/bindings/swig/perl/native/Client.pm
Export more API functions, and refactor to avoid unnecessary repetition.
Patch by: Mattias Engdegård <mattias@virtutech.se>
me
]]]
=== Client.pm
==================================================================
--- Client.pm (revision 27320)
+++ Client.pm (local)
@@ -5,12 +5,33 @@
use SVN::Wc;
package SVN::Client;
-use SVN::Base qw(Client svn_client_ checkout update switch add mkdir delete
- commit status log blame diff merge cleanup relocate
- revert resolved copy move revprop_set propset
- proplist revvprop_list export ls cat import propget
- uuid_from_url uuid_from_path url_from_path revprop_get
- revprop_list info);
+my @_all_fns;
+BEGIN {
+ @_all_fns =
+ qw( version diff_summarize_dup create_context checkout3
+ checkout2 checkout update3 update2 update switch2 switch
+ add4 add3 add2 add mkdir3 mkdir2 mkdir delete3 delete2
+ delete import3 import2 import commit4 commit3 commit2
+ commit status3 status2 status log4 log3 log2 log blame4
+ blame3 blame2 blame diff4 diff3 diff2 diff diff_peg4
+ diff_peg3 diff_peg2 diff_peg diff_summarize2
+ diff_summarize diff_summarize_peg2 diff_summarize_peg
+ merge3 merge2 merge merge_peg3 merge_peg2 merge_peg
+ cleanup relocate revert2 revert resolved resolved2 copy4
+ copy3 copy2 copy move5 move4 move3 move2 move propset3
+ propset2 propset revprop_set propget4 propget3 propget2
+ propget revprop_get proplist3 proplist2 proplist
+ revprop_list export4 export3 export2 export list2 list
+ ls3 ls2 ls cat2 cat add_to_changelist
+ remove_from_changelist lock unlock info2 info
+ url_from_path uuid_from_url uuid_from_path open_ra_session
+ invoke_blame_receiver2 invoke_blame_receiver
+ invoke_diff_summarize_func
+ );
+
+ require SVN::Base;
+ import SVN::Base (qw(Client svn_client_), @_all_fns);
+}
=head1 NAME
@@ -820,13 +841,7 @@
# import methods into our name space and wrap them in a closure
# to support method calling style $ctx->log()
-foreach my $function (qw(checkout update switch add mkdir delete commit
- status log blame diff merge cleanup relocate
- revert resolved copy move revprop_set propset
- proplist revvprop_list export ls cat import
- propget uuid_from_url uuid_from_path
- url_from_path revprop_get revprop_list
- info))
+foreach my $function (@_all_fns)
{
no strict 'refs';
my $real_function = \&{"SVN::_Client::svn_client_$function"};
@@ -1301,6 +1316,8 @@
=item $info->prejfile()
+=back
+
=cut
package _p_svn_client_commit_info_t;
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Wed Oct 24 03:53:48 2007