richter 02/01/22 02:59:35
Modified: . Tag: Embperl2c Embperl.xs Makefile.PL epmain.c
eppriv.h
xsbuilder/maps Tag: Embperl2c ep_function.map
Added: . Tag: Embperl2c Old.xs
Log:
data structure rewrite
Revision Changes Path
No revision
No revision
1.29.4.39 +11 -9 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.29.4.38
retrieving revision 1.29.4.39
diff -u -r1.29.4.38 -r1.29.4.39
--- Embperl.xs 22 Jan 2002 09:29:54 -0000 1.29.4.38
+++ Embperl.xs 22 Jan 2002 10:59:34 -0000 1.29.4.39
@@ -66,6 +66,8 @@
+# /* INCLUDE: Old.xs */
+
MODULE = Embperl PACKAGE = Embperl PREFIX = embperl_
@@ -77,55 +79,55 @@
XPUSHs(sv_2mortal(newSVpv("Embperl::Thread", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Thread (aTHX) ;
+ boot_Embperl__Thread (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::App", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__App (aTHX) ;
+ boot_Embperl__App (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::App::Config", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__App__Config (aTHX) ;
+ boot_Embperl__App__Config (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::Req", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Req (aTHX) ;
+ boot_Embperl__Req (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::Req::Config", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Req__Config (aTHX) ;
+ boot_Embperl__Req__Config (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::Req::Param", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Req__Param (aTHX) ;
+ boot_Embperl__Req__Param (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::Component", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Component (aTHX) ;
+ boot_Embperl__Component (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::Component::Config", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Component__Config (aTHX) ;
+ boot_Embperl__Component__Config (aTHX_ cv) ;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv("Embperl::Component::Param", 0))) ;
XPUSHs(version) ;
PUTBACK;
- boot_Embperl__Component__Param (aTHX) ;
+ boot_Embperl__Component__Param (aTHX_ cv) ;
1.31.4.43 +16 -13 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.31.4.42
retrieving revision 1.31.4.43
diff -u -r1.31.4.42 -r1.31.4.43
--- Makefile.PL 22 Jan 2002 09:29:54 -0000 1.31.4.42
+++ Makefile.PL 22 Jan 2002 10:59:34 -0000 1.31.4.43
@@ -3,7 +3,7 @@
#
# (C) 1997-2001 G.Richter ([EMAIL PROTECTED]) / ECOS
#
-# $Id: Makefile.PL,v 1.31.4.42 2002/01/22 09:29:54 richter Exp $
+# $Id: Makefile.PL,v 1.31.4.43 2002/01/22 10:59:34 richter Exp $
#
@@ -1160,18 +1160,21 @@
close FH ;
-$o .= ' ' .
-join (' ', qw{
-xs\Embperl\App\App.obj
-xs\Embperl\App\Config\Config.obj
-xs\Embperl\Component\Component.obj
-xs\Embperl\Component\Config\Config.obj
-xs\Embperl\Component\Param\Param.obj
-xs\Embperl\Req\Req.obj
-xs\Embperl\Req\Config\Config.obj
-xs\Embperl\Req\Param\Param.obj
-xs\Embperl\Thread\Thread.obj
-}) ;
+my $sublibs .= ' ' .
+join ('$(OBJ_EXT) ', qw{
+xs/Embperl/App/App
+xs/Embperl/App/Config/Config
+xs/Embperl/Component/Component
+xs/Embperl/Component/Config/Config
+xs/Embperl/Component/Param/Param
+xs/Embperl/Req/Req
+xs/Embperl/Req/Config/Config
+xs/Embperl/Req/Param/Param
+xs/Embperl/Thread/Thread
+}) . '$(OBJ_EXT)';
+
+$sublibs = s/\//\\/g if ($win32) ;
+$o .= $sublibs ;
WriteMakefile(
'NAME' => 'Embperl',
1.75.4.85 +2 -2 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.84
retrieving revision 1.75.4.85
diff -u -r1.75.4.84 -r1.75.4.85
--- epmain.c 22 Jan 2002 09:29:54 -0000 1.75.4.84
+++ epmain.c 22 Jan 2002 10:59:34 -0000 1.75.4.85
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epmain.c,v 1.75.4.84 2002/01/22 09:29:54 richter Exp $
+# $Id: epmain.c,v 1.75.4.85 2002/01/22 10:59:34 richter Exp $
#
###################################################################################*/
@@ -1834,7 +1834,7 @@
{
int rc ;
- epTHX ;
+ epTHX_
/*
r -> Component.pSourcelinePos = r -> Component.pCurrPos = r -> Component.pBuf ;
1.1.2.8 +17 -17 embperl/Attic/eppriv.h
Index: eppriv.h
===================================================================
RCS file: /home/cvs/embperl/Attic/eppriv.h,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -u -r1.1.2.7 -r1.1.2.8
--- eppriv.h 22 Jan 2002 09:29:54 -0000 1.1.2.7
+++ eppriv.h 22 Jan 2002 10:59:34 -0000 1.1.2.8
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: eppriv.h,v 1.1.2.7 2002/01/22 09:29:54 richter Exp $
+# $Id: eppriv.h,v 1.1.2.8 2002/01/22 10:59:34 richter Exp $
#
###################################################################################*/
@@ -36,15 +36,15 @@
#endif
-void boot_Embperl__Thread (pTHX) ;
-void boot_Embperl__App (pTHX) ;
-void boot_Embperl__App__Config (pTHX) ;
-void boot_Embperl__Req (pTHX) ;
-void boot_Embperl__Req__Config (pTHX) ;
-void boot_Embperl__Req__Param (pTHX) ;
-void boot_Embperl__Component (pTHX) ;
-void boot_Embperl__Component__Config (pTHX) ;
-void boot_Embperl__Component__Param (pTHX) ;
+void boot_Embperl__Thread (pTHX_ CV * cv) ;
+void boot_Embperl__App (pTHX_ CV * cv) ;
+void boot_Embperl__App__Config (pTHX_ CV * cv) ;
+void boot_Embperl__Req (pTHX_ CV * cv) ;
+void boot_Embperl__Req__Config (pTHX_ CV * cv) ;
+void boot_Embperl__Req__Param (pTHX_ CV * cv) ;
+void boot_Embperl__Component (pTHX_ CV * cv) ;
+void boot_Embperl__Component__Config (pTHX_ CV * cv) ;
+void boot_Embperl__Component__Param (pTHX_ CV * cv) ;
struct tCacheItem ;
@@ -221,12 +221,12 @@
void embperl_DefaultReqConfig (/*in*/ tReqConfig *pCfg) ;
void embperl_DefaultComponentConfig (/*in*/ tComponentConfig *pCfg) ;
-void Embperl__App_new_init(pApp, pPerlParam) ;
-void Embperl__Req_new_init (r, pPerlParam) ;
-void Embperl__Req__Config_new_init (r, pPerlParam) ;
-void Embperl__Req__Param_new_init (r, pPerlParam) ;
-void Embperl__Component_new_init (c, pPerlParam) ;
-void Embperl__Component__Config_new_init (c, pPerlParam) ;
-void Embperl__Component__Param_new_init (c, pPerlParam) ;
+void Embperl__App_new_init(aTHX_ tApp * pApp, SV * pPerlParam, int overwrite) ;
+void Embperl__Req_new_init (aTHX_ tReq * r, SV * pPerlParam, int overwrite) ;
+void Embperl__Req__Config_new_init (aTHX_ tReqConfig * r, SV * pPerlParam, int
overwrite) ;
+void Embperl__Req__Param_new_init (aTHX_ tReqParam * r, SV * pPerlParam, int
overwrite) ;
+void Embperl__Component_new_init (aTHX_ tComponent * c, SV * pPerlParam, int
overwrite) ;
+void Embperl__Component__Config_new_init (aTHX_ tComponentConfig * c, SV *
pPerlParam, int overwrite) ;
+void Embperl__Component__Param_new_init (aTHX_ tComponentParam * c, SV *
pPerlParam, int overwrite) ;
No revision
No revision
1.1.2.1 +903 -0 embperl/Attic/Old.xs
No revision
No revision
1.1.2.4 +2 -2 embperl/xsbuilder/maps/Attic/ep_function.map
Index: ep_function.map
===================================================================
RCS file: /home/cvs/embperl/xsbuilder/maps/Attic/ep_function.map,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- ep_function.map 19 Jan 2002 13:45:40 -0000 1.1.2.3
+++ ep_function.map 22 Jan 2002 10:59:35 -0000 1.1.2.4
@@ -1,5 +1,5 @@
MODULE=Embperl::Req PREFIX=embperl_
- embperl_Init
- embperl_InitRequest | | pApacheReqSV,pPerlParam,<ppReq
+! embperl_Init
+! embperl_InitRequest | | pApacheReqSV,pPerlParam,<ppReq
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
