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