r30234 - in /trunk/libtext-csv-xs-perl: CSV_XS.pm CSV_XS.xs ChangeLog META.yml debian/changelog

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Thu Jan 29 16:56:26 UTC 2009


Author: gregoa
Date: Thu Jan 29 16:56:22 2009
New Revision: 30234

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30234
Log:
New upstream release.

Modified:
    trunk/libtext-csv-xs-perl/CSV_XS.pm
    trunk/libtext-csv-xs-perl/CSV_XS.xs
    trunk/libtext-csv-xs-perl/ChangeLog
    trunk/libtext-csv-xs-perl/META.yml
    trunk/libtext-csv-xs-perl/debian/changelog

Modified: trunk/libtext-csv-xs-perl/CSV_XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/CSV_XS.pm?rev=30234&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.pm (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.pm Thu Jan 29 16:56:22 2009
@@ -30,7 +30,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA );
-$VERSION = "0.59";
+$VERSION = "0.60";
 @ISA     = qw( DynaLoader );
 bootstrap Text::CSV_XS $VERSION;
 

Modified: trunk/libtext-csv-xs-perl/CSV_XS.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/CSV_XS.xs?rev=30234&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.xs (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.xs Thu Jan 29 16:56:22 2009
@@ -3,7 +3,7 @@
  *  This program is free software; you can redistribute it and/or
  *  modify it under the same terms as Perl itself.
  */
-
+#define PERL_NO_GET_CONTEXT
 #include <EXTERN.h>
 #include <perl.h>
 #include <XSUB.h>
@@ -180,7 +180,8 @@
 	io_handle_loaded = 1;				\
 	}
 
-static SV *SvDiag (int xse)
+#define SvDiag(xse)		cx_SvDiag (aTHX_ xse)
+static SV *cx_SvDiag (pTHX_ int xse)
 {
     int   i = 0;
     SV   *err;
@@ -194,7 +195,8 @@
     return (err);
     } /* SvDiag */
 
-static SV *SetDiag (csv_t *csv, int xse)
+#define SetDiag(csv,xse)	cx_SetDiag (aTHX_ csv, xse)
+static SV *cx_SetDiag (pTHX_ csv_t *csv, int xse)
 {
     SV   *err = SvDiag (xse);
 
@@ -208,7 +210,8 @@
     return (err);
     } /* SetDiag */
 
-static void SetupCsv (csv_t *csv, HV *self)
+#define SetupCsv(csv,self)	cx_SetupCsv (aTHX_ csv, self)
+static void cx_SetupCsv (pTHX_ csv_t *csv, HV *self)
 {
     SV	       **svp;
     STRLEN	 len;
@@ -357,7 +360,8 @@
     csv->used = 0;
     } /* SetupCsv */
 
-static int Print (csv_t *csv, SV *dst)
+#define Print(csv,dst)		cx_Print (aTHX_ csv, dst)
+static int cx_Print (pTHX_ csv_t *csv, SV *dst)
 {
     int result;
 
@@ -401,7 +405,8 @@
 /* Should be extended for EBCDIC ? */
 #define is_csv_binary(ch) ((ch < CH_SPACE || ch >= CH_DEL) && ch != CH_TAB)
 
-static int Combine (csv_t *csv, SV *dst, AV *fields)
+#define Combine(csv,dst,fields)	cx_Combine (aTHX_ csv, dst, fields)
+static int cx_Combine (pTHX_ csv_t *csv, SV *dst, AV *fields)
 {
     int		i;
 
@@ -494,10 +499,8 @@
     return TRUE;
     } /* Combine */
 
-#if MAINT_DEBUG
-static char str_parsed[40];
-#endif
-static void ParseError (csv_t *csv, int xse, int pos)
+#define ParseError(csv,xse,pos)	cx_ParseError (aTHX_ csv, xse, pos)
+static void cx_ParseError (pTHX_ csv_t *csv, int xse, int pos)
 {
     hv_store (csv->self, "_ERROR_POS", 10, newSViv (pos), 0);
     if (csv->tmp) {
@@ -507,7 +510,8 @@
     (void)SetDiag (csv, xse);
     } /* ParseError */
 
-static int CsvGet (csv_t *csv, SV *src)
+#define CsvGet(csv,src)		cx_CsvGet (aTHX_ csv, src)
+static int cx_CsvGet (pTHX_ csv_t *csv, SV *src)
 {
     unless (csv->useIO)
 	return EOF;
@@ -609,7 +613,8 @@
     }
 #endif
 
-static void strip_trail_whitespace (SV *sv)
+#define strip_trail_whitespace(sv)	cx_strip_trail_whitespace (aTHX_ sv)
+static void cx_strip_trail_whitespace (pTHX_ SV *sv)
 {
     STRLEN len;
     char   *s = SvPV (sv, len);
@@ -620,7 +625,8 @@
     SvCUR_set (sv, len);
     } /* strip_trail_whitespace */
 
-static SV *bound_field (csv_t *csv, int i)
+#define bound_field(csv,i)	cx_bound_field (aTHX_ csv, i)
+static SV *cx_bound_field (pTHX_ csv_t *csv, int i)
 {
     SV *sv = csv->bound;
     AV *av;
@@ -657,7 +663,12 @@
 	f = 0;					\
 	}
 
-static int Parse (csv_t *csv, SV *src, AV *fields, AV *fflags)
+#if MAINT_DEBUG
+static char str_parsed[40];
+#endif
+
+#define Parse(csv,src,fields,fflags)	cx_Parse (aTHX_ csv, src, fields, fflags)
+static int cx_Parse (pTHX_ csv_t *csv, SV *src, AV *fields, AV *fflags)
 {
     int		 c, f = 0;
     int		 c_ungetc		= EOF;
@@ -747,7 +758,7 @@
 	    if (csv->verbatim) {
 		f |= CSV_FLAGS_BIN;
 		unless (csv->binary)
-/* uncovered */	    ERROR_INSIDE_FIELD (2030);
+		    ERROR_INSIDE_FIELD (2030);
 
 		CSV_PUT_SV (c);
 		}
@@ -1079,7 +1090,8 @@
     return TRUE;
     } /* Parse */
 
-static int xsParse (HV *hv, AV *av, AV *avf, SV *src, bool useIO)
+#define xsParse(hv,av,avf,src,useIO)	cx_xsParse (aTHX_ hv, av, avf, src, useIO)
+static int cx_xsParse (pTHX_ HV *hv, AV *av, AV *avf, SV *src, bool useIO)
 {
     csv_t	csv;
     int		result;
@@ -1137,7 +1149,8 @@
     return result;
     } /* xsParse */
 
-static int xsCombine (HV *hv, AV *av, SV *io, bool useIO)
+#define xsCombine(hv,av,io,useIO)	cx_xsCombine (aTHX_ hv, av, io, useIO)
+static int cx_xsCombine (pTHX_ HV *hv, AV *av, SV *io, bool useIO)
 {
     csv_t	csv;
     int		result;

Modified: trunk/libtext-csv-xs-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/ChangeLog?rev=30234&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/ChangeLog (original)
+++ trunk/libtext-csv-xs-perl/ChangeLog Thu Jan 29 16:56:22 2009
@@ -1,3 +1,8 @@
+2009-01-27 0.60 - H.Merijn Brand   <h.m.brand at xs4all.nl>
+
+	* Optimize for threaded perls. (Goro Fuji, RT#42517)
+	  Non-threaded perls won't notice
+
 2009-01-23 0.59 - H.Merijn Brand   <h.m.brand at xs4all.nl>
 
 	* Wrong e-mail in META.yml

Modified: trunk/libtext-csv-xs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/META.yml?rev=30234&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/META.yml (original)
+++ trunk/libtext-csv-xs-perl/META.yml Thu Jan 29 16:56:22 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.1
 name:              Text-CSV_XS
-version:           0.59
+version:           0.60
 abstract:          Comma-Separated Values manipulation routines
 license:           perl
 author:              
@@ -10,7 +10,7 @@
 provides:
     Text::CSV_XS:
         file:      CSV_XS.pm
-        version:   0.59
+        version:   0.60
 requires:     
     perl:          5.005
     DynaLoader:    0

Modified: trunk/libtext-csv-xs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/debian/changelog?rev=30234&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/debian/changelog (original)
+++ trunk/libtext-csv-xs-perl/debian/changelog Thu Jan 29 16:56:22 2009
@@ -1,3 +1,9 @@
+libtext-csv-xs-perl (0.60-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Thu, 29 Jan 2009 17:55:49 +0100
+
 libtext-csv-xs-perl (0.59-1) unstable; urgency=low
 
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN




More information about the Pkg-perl-cvs-commits mailing list