You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2009/12/01 21:17:16 UTC
svn commit: r885905 - /lucene/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm
Author: marvin
Date: Tue Dec 1 20:17:15 2009
New Revision: 885905
URL: http://svn.apache.org/viewvc?rev=885905&view=rev
Log:
Add an XS binding for IxFileNames_latest_snapshot().
Modified:
lucene/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm
Modified: lucene/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm?rev=885905&r1=885904&r2=885905&view=diff
==============================================================================
--- lucene/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm (original)
+++ lucene/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm Tue Dec 1 20:17:15 2009
@@ -15,6 +15,17 @@
CODE:
RETVAL = lucy_IxFileNames_extract_gen((lucy_CharBuf*)&name);
OUTPUT: RETVAL
+
+SV*
+latest_snapshot(folder)
+ lucy_Folder *folder;
+CODE:
+{
+ lucy_CharBuf *latest = lucy_IxFileNames_latest_snapshot(folder);
+ RETVAL = XSBind_cb_to_sv(latest);
+ LUCY_DECREF(latest);
+}
+OUTPUT: RETVAL
END_XS_CODE
Boilerplater::Binding::Perl::Class->register(