Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs const-c.inc
Log Message:
implement tree sorting in xs, pm, and test
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -3 -r1.13 -r1.14
--- Etk.xs 11 Jun 2006 18:13:53 -0000 1.13
+++ Etk.xs 11 Jun 2006 18:59:27 -0000 1.14
@@ -3555,10 +3555,18 @@
void
etk_tree_sort(tree, compare_cb, ascendant, col, data)
Etk_Widget * tree
- int ( * ) ( Etk_Tree * tree, Etk_Tree_Row * row1, Etk_Tree_Row * row2,
Etk_Tree_Col * col, void * data ) compare_cb
+ SV *compare_cb
Etk_Bool ascendant
Etk_Tree_Col * col
- void * data
+ SV * data
+ CODE:
+ Callback_Tree_Compare_Data *cbd;
+
+ cbd = calloc(1, sizeof(Callback_Tree_Compare_Data));
+ cbd->object = col;
+ cbd->perl_data = newSVsv(data);
+ cbd->perl_callback = newSVsv(compare_cb);
+ etk_tree_sort(ETK_TREE(tree), tree_compare_cb, ascendant, col, cbd);
void
etk_tree_thaw(tree)
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/const-c.inc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -3 -r1.8 -r1.9
--- const-c.inc 11 Jun 2006 08:04:19 -0000 1.8
+++ const-c.inc 11 Jun 2006 18:59:27 -0000 1.9
@@ -33,7 +33,7 @@
Regenerate these constant functions by feeding this entire source file to
perl -x
-#!/usr/bin/perl -w
+#!perl -w
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
my $types = {map {($_, 1)} qw()};
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
