richter 02/05/17 07:07:02
Modified: . Tag: Embperl2c MANIFEST Old.xs epdom.c epinit.c
epocgi.bat.templ epocgi.pl.templ
epocgi.test.pl.templ typemap
Embperl/Syntax Tag: Embperl2c Test2.pm
crypto Tag: Embperl2c README
Added: test/cmp Tag: Embperl2c changeattr.htm
Log:
-
Revision Changes Path
No revision
No revision
1.50.4.45 +1 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.44
retrieving revision 1.50.4.45
diff -u -r1.50.4.44 -r1.50.4.45
--- MANIFEST 17 May 2002 13:18:55 -0000 1.50.4.44
+++ MANIFEST 17 May 2002 14:07:01 -0000 1.50.4.45
@@ -180,6 +180,7 @@
test/cmp/asp.htm
test/cmp/binary.htm
test/cmp/callsub.htm
+test/cmp/changeattr.htm
test/cmp/chdir.htm
test/cmp/clearsess.htm
test/cmp/crypto.htm
1.1.2.7 +1 -19 embperl/Attic/Old.xs
Index: Old.xs
===================================================================
RCS file: /home/cvs/embperl/Attic/Old.xs,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- Old.xs 7 Apr 2002 19:25:03 -0000 1.1.2.6
+++ Old.xs 17 May 2002 14:07:01 -0000 1.1.2.7
@@ -449,24 +449,6 @@
RETVAL
-SV *
-embperl_Application(r,app=NULL)
- tReq * r
- SV * app
-ALIAS:
- HTML::Embperl::Req::app = 1
- HTML::Embperl::Req::application = 2
-CODE:
- RETVAL = r -> pApplication ;
- if (items > 1)
- {
- r -> pApplication = app ;
- SvREFCNT_inc (app) ;
- }
- else if (RETVAL)
- SvREFCNT_inc (RETVAL) ;
-OUTPUT:
- RETVAL
@@ -684,7 +666,7 @@
# Reset Module, so we get the correct boot function
-MODULE = HTML::Embperl PACKAGE = HTML::Embperl PREFIX = embperl_
+MODULE = Embperl PACKAGE = Embperl PREFIX = embperl_
1.4.2.87 +5 -2 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.86
retrieving revision 1.4.2.87
diff -u -r1.4.2.86 -r1.4.2.87
--- epdom.c 7 May 2002 04:14:08 -0000 1.4.2.86
+++ epdom.c 17 May 2002 14:07:01 -0000 1.4.2.87
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.c,v 1.4.2.86 2002/05/07 04:14:08 richter Exp $
+# $Id: epdom.c,v 1.4.2.87 2002/05/17 14:07:01 richter Exp $
#
###################################################################################*/
@@ -3646,7 +3646,10 @@
if (pAttr -> xValue && (pAttr -> bFlags & aflgAttrValue))
NdxStringFree (a, pAttr -> xValue) ;
- pAttr -> xValue = xValue ;
+ pAttr -> bFlags |= aflgAttrValue ;
+ pAttr -> bFlags &= ~aflgAttrChilds ;
+
+ pAttr -> xValue = xValue ;
return pAttr ;
}
1.1.2.47 +1 -5 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.46
retrieving revision 1.1.2.47
diff -u -r1.1.2.46 -r1.1.2.47
--- epinit.c 7 May 2002 04:14:09 -0000 1.1.2.46
+++ epinit.c 17 May 2002 14:07:01 -0000 1.1.2.47
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epinit.c,v 1.1.2.46 2002/05/07 04:14:09 richter Exp $
+# $Id: epinit.c,v 1.1.2.47 2002/05/17 14:07:01 richter Exp $
#
###################################################################################*/
@@ -54,10 +54,6 @@
#define EMBPERL_EscMode_NAME EMBPERL_PACKAGE_STR"::escmode"
#define EMBPERL_CurrNode_NAME EMBPERL_PACKAGE_STR"::_ep_node"
-
-static char sUserHashName [] = "HTML::Embperl::udat" ;
-static char sStateHashName [] = "HTML::Embperl::sdat" ;
-static char sModHashName [] = "HTML::Embperl::mdat" ;
static int bInitDone = 0 ; /* c part is already initialized */
static int nRequestCount = 1 ;
1.2.2.3 +2 -2 embperl/epocgi.bat.templ
Index: epocgi.bat.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.bat.templ,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -r1.2.2.2 -r1.2.2.3
--- epocgi.bat.templ 5 Mar 2002 08:07:21 -0000 1.2.2.2
+++ epocgi.bat.templ 17 May 2002 14:07:01 -0000 1.2.2.3
@@ -17,7 +17,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.bat.templ,v 1.2.2.2 2002/03/05 08:07:21 richter Exp $
+# $Id: epocgi.bat.templ,v 1.2.2.3 2002/05/17 14:07:01 richter Exp $
#
###################################################################################
@@ -46,7 +46,7 @@
<BODY bgcolor=\"#FFFFFF\">
<H1>epocgi Server Error: $rc</H1>
Please contact the server administrator, $ENV{SERVER_ADMIN} and inform them of the
time the error occurred, and anything you might have done that may have caused the
error.<P><P>
-$ENV{SERVER_SOFTWARE} HTML::Embperl $HTML::Embperl::VERSION [$time]<P>
+$ENV{SERVER_SOFTWARE} Embperl $Embperl::VERSION [$time]<P>
</BODY></HTML>
EOT
1.2.2.4 +2 -2 embperl/epocgi.pl.templ
Index: epocgi.pl.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.pl.templ,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -u -r1.2.2.3 -r1.2.2.4
--- epocgi.pl.templ 5 Mar 2002 08:07:21 -0000 1.2.2.3
+++ epocgi.pl.templ 17 May 2002 14:07:01 -0000 1.2.2.4
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.pl.templ,v 1.2.2.3 2002/03/05 08:07:21 richter Exp $
+# $Id: epocgi.pl.templ,v 1.2.2.4 2002/05/17 14:07:01 richter Exp $
#
###################################################################################
@@ -40,7 +40,7 @@
<BODY bgcolor=\"#FFFFFF\">
<H1>epocgi Server Error: $rc</H1>
Please contact the server administrator, $ENV{SERVER_ADMIN} and inform them of the
time the error occurred, and anything you might have done that may have caused the
error.<P><P>
-$ENV{SERVER_SOFTWARE} HTML::Embperl $HTML::Embperl::VERSION [$time]<P>
+$ENV{SERVER_SOFTWARE} Embperl $Embperl::VERSION [$time]<P>
</BODY></HTML>
EOT
1.2.2.5 +2 -2 embperl/epocgi.test.pl.templ
Index: epocgi.test.pl.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.test.pl.templ,v
retrieving revision 1.2.2.4
retrieving revision 1.2.2.5
diff -u -r1.2.2.4 -r1.2.2.5
--- epocgi.test.pl.templ 5 Mar 2002 08:07:21 -0000 1.2.2.4
+++ epocgi.test.pl.templ 17 May 2002 14:07:01 -0000 1.2.2.5
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.test.pl.templ,v 1.2.2.4 2002/03/05 08:07:21 richter Exp $
+# $Id: epocgi.test.pl.templ,v 1.2.2.5 2002/05/17 14:07:01 richter Exp $
#
###################################################################################
@@ -48,7 +48,7 @@
<BODY bgcolor=\"#FFFFFF\">
<H1>epocgi Server Error: $rc</H1>
Please contact the server administrator, $ENV{SERVER_ADMIN} and inform them of the
time the error occurred, and anything you might have done that may have caused the
error.<P><P>
-$ENV{SERVER_SOFTWARE} HTML::Embperl $HTML::Embperl::VERSION [$time]<P>
+$ENV{SERVER_SOFTWARE} Embperl $Embperl::VERSION [$time]<P>
</BODY></HTML>
EOT
1.3.4.7 +10 -9 embperl/typemap
Index: typemap
===================================================================
RCS file: /home/cvs/embperl/typemap,v
retrieving revision 1.3.4.6
retrieving revision 1.3.4.7
diff -u -r1.3.4.6 -r1.3.4.7
--- typemap 19 Jan 2002 13:45:40 -0000 1.3.4.6
+++ typemap 17 May 2002 14:07:01 -0000 1.3.4.7
@@ -6,7 +6,8 @@
tTokenTable * T_PTROBJ_SYNTAX
AV * T_MYAVREF
HV * T_MYHVREF
-Apache::Server T_PTROBJ
+Apache::Server T_PTROBJ
+
INPUT
T_MYAVREF
@@ -16,10 +17,10 @@
$var = (HV *)SvRV($arg);
T_PTROBJ_CONF
- if (sv_derived_from ($arg, \"HTML::Embperl::Conf\"))
+ if (sv_derived_from ($arg, \"Embperl::Conf\"))
$var = (tConf *)(SvIV((SV *)SvRV($arg))) ;
else
- croak (\"$var is not of type HTML::Embperl::Conf\") ;
+ croak (\"$var is not of type Embperl::Conf\") ;
T_PTROBJ_REQ
{
@@ -27,15 +28,15 @@
if (mg = mg_find (SvRV($arg), '~'))
$var = *((tReq **)(mg -> mg_ptr)) ;
else
- croak (\"$var is not of type HTML::Embperl::Req\") ;
+ croak (\"$var is not of type Embperl::Req\") ;
}
T_PTROBJ_FILE
- if (sv_derived_from ($arg, \"HTML::Embperl::File\"))
+ if (sv_derived_from ($arg, \"Embperl::File\"))
$var = (tFile *)(SvIV((SV *)SvRV($arg))) ;
else
- croak (\"$var is not of type HTML::Embperl::File\") ;
+ croak (\"$var is not of type Embperl::File\") ;
T_PTROBJ_DOMNODE
{
@@ -52,14 +53,14 @@
if (SvROK ($arg) && (mg = mg_find (SvRV($arg), '~')))
$var = *((tTokenTable **)(mg -> mg_ptr)) ;
else
- croak (\"$var is not of type HTML::Embperl::Syntax\") ;
+ croak (\"$var is not of type Embperl::Syntax\") ;
}
OUTPUT
T_PTROBJ_CONF
- sv_setref_pv ($arg, \"HTML::Embperl::Conf\", (void *)$var) ;
+ sv_setref_pv ($arg, \"Embperl::Conf\", (void *)$var) ;
T_PTROBJ_REQ
{
@@ -71,7 +72,7 @@
}
T_PTROBJ_FILE
- sv_setref_pv ($arg, \"HTML::Embperl::File\", (void *)$var) ;
+ sv_setref_pv ($arg, \"Embperl::File\", (void *)$var) ;
T_PTROBJ_DOMNODE
{
No revision
No revision
1.1.2.2 +6 -1 embperl/Embperl/Syntax/Attic/Test2.pm
Index: Test2.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/Test2.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- Test2.pm 17 May 2002 13:18:56 -0000 1.1.2.1
+++ Test2.pm 17 May 2002 14:07:02 -0000 1.1.2.2
@@ -34,6 +34,7 @@
# specified by %$n%
_ep_sa(%$n%, 'href', Embperl::Syntax::Test2::rewrite_url(%&'href%));
}],
+ });
$self->AddTag('a', ['href'], undef, undef, {
perlcode => q[ {
@@ -47,4 +48,8 @@
}
-sub rewrite_url { return "12"; }
+sub rewrite_url
+ {
+ warn "rewrite_url got $_[0]\n" ;
+ return "12";
+ }
No revision
No revision
1.1.2.2 +4 -4 embperl/crypto/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/crypto/README,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- README 13 Sep 2001 07:29:45 -0000 1.1.2.1
+++ README 17 May 2002 14:07:02 -0000 1.1.2.2
@@ -1,8 +1,8 @@
-HTML::Embperl - Building dynamic Websites with Perl
----------------------------------------------------
+Embperl - Building dynamic Websites with Perl
+---------------------------------------------
-Copyright (c) 1997-2001 Gerald Richter / ecos gmbh
+Copyright (c) 1997-2002 Gerald Richter / ecos gmbh
You may distribute under the terms of either the GNU General Public
License or the Artistic License, as specified in the Perl README file.
@@ -11,7 +11,7 @@
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-$Id: README,v 1.1.2.1 2001/09/13 07:29:45 richter Exp $
+$Id: README,v 1.1.2.2 2002/05/17 14:07:02 richter Exp $
Sourcecode encryption
No revision
No revision
1.1.2.1 +18 -0 embperl/test/cmp/Attic/changeattr.htm
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
