You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2002/01/15 22:01:46 UTC
cvs commit: embperl/xsbuilder ParseSource.pm WrapXS.pm source_scan.pl xs_check.pl xs_generate.pl
richter 02/01/15 13:01:45
Modified: . Tag: Embperl2c epdat2.h
Added: xsbuilder Tag: Embperl2c ParseSource.pm WrapXS.pm
source_scan.pl xs_check.pl xs_generate.pl
Log:
XSbuilder config for generating new API
Revision Changes Path
No revision
No revision
1.1.2.7 +21 -33 embperl/Attic/epdat2.h
Index: epdat2.h
===================================================================
RCS file: /home/cvs/embperl/Attic/epdat2.h,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- epdat2.h 15 Jan 2002 14:31:30 -0000 1.1.2.6
+++ epdat2.h 15 Jan 2002 21:01:45 -0000 1.1.2.7
@@ -1,4 +1,19 @@
+#ifdef PERL_IMPLICIT_CONTEXT
+#ifdef USE_THREADS
+#define tPerlInterpreter struct perl_thread
+#else
+#define tPerlInterpreter PerlInterpreter
+#endif
+#endif
+
+#ifdef PerlIO
+#define FILEIO PerlIO
+#else
+#define FILEIO FILE
+#endif
+
+
typedef struct tComponentConfig
{
@@ -71,13 +86,7 @@
typedef struct tThreadData
{
SV * pThreadSV ; /**< The perl reference to this structure */
-#ifdef PERL_IMPLICIT_CONTEXT
-#ifdef USE_THREADS
- struct perl_thread *pPerlTHX ; /* pointer to Perl interpreter */
-#else
- PerlInterpreter *pPerlTHX ; /* pointer to Perl interpreter */
-#endif
-#endif
+ tPerlInterpreter * pPerlTHX ; /* pointer to Perl interpreter */
HV * pApplications ; /**< Hash with available applications */
tReq * pCurrReq ; /**< Current running request if any */
pid_t nPid ; /**< process/thread id */
@@ -97,21 +106,11 @@
typedef struct tApp
{
SV * pAppSV ; /**< The perl reference to this structure */
-#ifdef PERL_IMPLICIT_CONTEXT
-#ifdef USE_THREADS
- struct perl_thread *pPerlTHX ; /* pointer to Perl interpreter */
-#else
- PerlInterpreter *pPerlTHX ; /* pointer to Perl interpreter */
-#endif
-#endif
+ tPerlInterpreter * pPerlTHX ; /* pointer to Perl interpreter */
tThreadData * pThread ;
tReq * pCurrReq ; /**< Current running request if any */
tAppConfig Config ; /**< application configuration data */
- #ifdef PerlIO
- PerlIO * lfd ; /**< log file handle */
- #else
- FILE * lfd ; /**< log file handle */
- #endif
+ FILEIO * lfd ; /**< log file handle */
SV * pUserSession ; /**< user session object */
SV * pStateSession ; /**< state session object */
@@ -192,13 +191,8 @@
/* --- i/o filehandles --- */
- #ifdef PerlIO
- PerlIO * ifd ; /* input file */
- PerlIO * ofd ; /* output file */
- #else
- FILE * ifd ; /* input file */
- FILE * ofd ; /* output file */
- #endif
+ FILEIO * ifd ; /* input file */
+ FILEIO * ofd ; /* output file */
SV * ofdobj ; /* perl object that is tied to stdout, if any */
SV * ifdobj ; /* perl object that is tied to stdin, if any */
@@ -246,13 +240,7 @@
{
SV * pReqSV ; /* The perl reference to this request structure */
-#ifdef PERL_IMPLICIT_CONTEXT
-#ifdef USE_THREADS
- struct perl_thread *pPerlTHX ; /* pointer to Perl interpreter */
-#else
- PerlInterpreter *pPerlTHX ; /* pointer to Perl interpreter */
-#endif
-#endif
+ tPerlInterpreter * pPerlTHX ; /* pointer to Perl interpreter */
#ifdef APACHE
request_rec * pApacheReq ; /* apache request record */
No revision
No revision
1.1.2.1 +99 -0 embperl/xsbuilder/Attic/ParseSource.pm
1.1.2.1 +33 -0 embperl/xsbuilder/Attic/WrapXS.pm
1.1.2.1 +9 -0 embperl/xsbuilder/Attic/source_scan.pl
1.1.2.1 +12 -0 embperl/xsbuilder/Attic/xs_check.pl
1.1.2.1 +8 -0 embperl/xsbuilder/Attic/xs_generate.pl
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org