lexical scope avoidence optimizations

Changes

@@ -1,5 +1,12 @@
 Revision history for Perl module Text::Levenshtein::Damerau::XS
 
+2.3 ?
+	- bulk88 optimizations
+	- Removed lexicals from XS.pm
+
+2.2 Thu Jan 10 23:52:34 2013
+	- NO_XSLOCKS to let malloc work correctly
+
 2.1 Tue Jan 08 20:18:02 2013
 	- Fixed pod error
 	- Updated docs

XS.xs

@@ -34,9 +34,9 @@ PPCODE:
 
   //char *packedSource;
   //char type = 'U';
-  //packedSource = SvPVX(ST(0));
+  //packedSource = SvPVX(arraySource);
   //PUTBACK;
-  //unpackstring(&type, &type+1, packedSource, packedSource + SvCUR(ST(0)), 0);
+  //unpackstring(type, type+1, packedSource, packedSource + SvCUR(arraySource), 0);
   //SPAGAIN;
 
 

damerau-int.c

@@ -11,9 +11,16 @@ struct dictionary{
   unsigned int key;
   unsigned int value;
   struct dictionary* next;
+  struct dictionary* prev;
 };
 typedef struct dictionary item;
 
+struct dictionary_list{
+  struct dictionary* first;
+  struct dictionary* last;
+};
+typedef struct dictionary_list item_list;
+
 static __inline item* push(unsigned int key,item* curr){
   item* head;
   head = malloc(sizeof(item));   

lib/Text/Levenshtein/Damerau/XS.pm

@@ -5,7 +5,7 @@ require Exporter;
 *import = \&Exporter::import;
 require DynaLoader;
 
-$Text::Levenshtein::Damerau::XS::VERSION = '2.1';
+$Text::Levenshtein::Damerau::XS::VERSION = '2.3';
 
 DynaLoader::bootstrap Text::Levenshtein::Damerau::XS $Text::Levenshtein::Damerau::XS::VERSION;
 
@@ -18,15 +18,7 @@ DynaLoader::bootstrap Text::Levenshtein::Damerau::XS $Text::Levenshtein::Damerau
 sub dl_load_flags {0} # Prevent DynaLoader from complaining and croaking
 
 sub xs_edistance {
-    # Wrapper for XS cxs_edistance function
-    my $str1 = shift;
-    my $str2 = shift;
-    my $maxd = shift || 0;
-
-    my @arr1 = unpack 'U*', $str1;
-    my @arr2 = unpack 'U*', $str2;
-
-    return cxs_edistance( \@arr1, \@arr2, $maxd );
+    return cxs_edistance( [unpack('U*', shift)], [unpack('U*',shift)], shift || 0);
 }
 
 
@@ -50,7 +42,9 @@ Text::Levenshtein::Damerau::XS - XS Damerau Levenshtein edit distance.
 
 Returns the true Damerau Levenshtein edit distance of strings with adjacent transpositions. XS implementation (requires a C compiler). Works correctly with utf8.
 
+	use Text::Levenshtein::Damerau::XS qw/xs_edistance/;
 	use utf8;
+
 	xs_edistance('ⓕⓞⓤⓡ','ⓕⓤⓞⓡ'), 
 	# prints 1