richter 00/06/05 04:55:42
Modified: . Tag: Embperl2 epcomp.c
Embperl Tag: Embperl2 Syntax.pm
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.1.2.25 +1 -0 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.1.2.24
retrieving revision 1.1.2.25
diff -u -r1.1.2.24 -r1.1.2.25
--- epcomp.c 2000/06/05 10:06:55 1.1.2.24
+++ epcomp.c 2000/06/05 11:55:41 1.1.2.25
@@ -813,6 +813,7 @@
StringNew (&pProg, r -> Buf.pFile -> nFilesize / 4) ;
StringAdd (&pProg, "my $_ep_DomTree = $_[1];\nmy $_ep_EscMask =
5;\n*_ep_rp=\\&XML::Embperl::DOM::Node_replaceChildWithCDATA;\n*_ep_rpurl=\\&XML::Embperl::DOM::Node_replaceChildWithUrlDATA;\n*_ep_cp=\\&XML::Embperl::DOM::DomTree_checkpoint;\n
", 0) ;
+ StringAdd (&pProg,
"*_ep_dcp=\\&XML::Embperl::DOM::DomTree_discardAfterCheckpoint;\n ", 0) ;
pDomTree -> pSV = (SV *)newHV () ;
nLabelCnt = 1 ;
No revision
No revision
1.1.2.19 +10 -10 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -u -r1.1.2.18 -r1.1.2.19
--- Syntax.pm 2000/06/05 06:44:07 1.1.2.18
+++ Syntax.pm 2000/06/05 11:55:42 1.1.2.19
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Syntax.pm,v 1.1.2.18 2000/06/05 06:44:07 richter Exp $
+# $Id: Syntax.pm,v 1.1.2.19 2000/06/05 11:55:42 richter Exp $
#
###################################################################################
@@ -92,9 +92,9 @@
embperl => {
perlcode =>
[
- 'if (!defined (_ep_rp(%$n%,scalar(do{%#~0:$col%}))))
%#~-0:$row% { if ($col == 0) { XML::Embperl::DOM::DomTree_discardAfterCheckpoint
(%$t%,%^*htmltable%) ; last l%^*htmltable% ; } else {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }}',
- 'if (!defined (_ep_rp(%$n%,scalar(do{%#~0:$col%})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }',
- 'if (!defined (_ep_rp(%$n%,scalar(do{%#~0:$row%})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmltable%) ; last
l%^*htmltable% ; }',
+ 'if (!defined (_ep_rp(%$n%,scalar(do{%#~0:$col%}))))
%#~-0:$row% { if ($col == 0) { _ep_dcp (%$t%,%^*htmltable%) ; last l%^*htmltable% ; }
else { _ep_dcp (%$t%,%^*htmlrow%) ; last l%^*htmlrow% ; }}',
+ 'if (!defined (_ep_rp(%$n%,scalar(do{%#~0:$col%})))) {
_ep_dcp (%$t%,%^*htmlrow%) ; last l%^*htmlrow% ; }',
+ 'if (!defined (_ep_rp(%$n%,scalar(do{%#~0:$row%})))) {
_ep_dcp (%$t%,%^*htmltable%) ; last l%^*htmltable% ; }',
'_ep_rp(%$n%,scalar(do{%#0%}));',
],
removenode => 4,
@@ -110,9 +110,9 @@
'procinfo' => {
embperl => {
perlcode => [
- 'if (!defined (scalar(do{%#~0:$col%}))) %#~-0:$row%
{ if ($col == 0) { XML::Embperl::DOM::DomTree_discardAfterCheckpoint
(%$t%,%^*htmltable%) ; last l%^*htmltable% ; } else {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }}',
- 'if (!defined (scalar(do{%#~0:$col%}))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }',
- 'if (!defined (scalar(do{%#~0:$row%}))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmltable%) ; last
l%^*htmltable% ; }',
+ 'if (!defined (scalar(do{%#~0:$col%}))) %#~-0:$row%
{ if ($col == 0) { _ep_dcp (%$t%,%^*htmltable%) ; last l%^*htmltable% ; } else {
_ep_dcp (%$t%,%^*htmlrow%) ; last l%^*htmlrow% ; }}',
+ 'if (!defined (scalar(do{%#~0:$col%}))) { _ep_dcp
(%$t%,%^*htmlrow%) ; last l%^*htmlrow% ; }',
+ 'if (!defined (scalar(do{%#~0:$row%}))) { _ep_dcp
(%$t%,%^*htmltable%) ; last l%^*htmltable% ; }',
'{%#0%;}',
],
removenode => 3,
@@ -164,9 +164,9 @@
$CmdsLink{'Embperl output code'}{'nodename'} = '[+url' ;
$CmdsLink{'Embperl output code'}{'procinfo'}{'embperl'}{'perlcode'} =
[
- 'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$col%}))))
%#~-0:$row% { if ($col == 0) { XML::Embperl::DOM::DomTree_discardAfterCheckpoint
(%$t%,%^*htmltable%) ; last l%^*htmltable% ; } else {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }}',
- 'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$col%})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }',
- 'if (!defined
(_ep_rpurl(%$n%,scalar($val3=do{%#~0:$row%;})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmltable%) ; last
l%^*htmltable% ; }',
+ 'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$col%}))))
%#~-0:$row% { if ($col == 0) { _ep_dcp (%$t%,%^*htmltable%) ; last l%^*htmltable% ; }
else { _ep_dcp (%$t%,%^*htmlrow%) ; last l%^*htmlrow% ; }}',
+ 'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$col%})))) {
_ep_dcp (%$t%,%^*htmlrow%) ; last l%^*htmlrow% ; }',
+ 'if (!defined
(_ep_rpurl(%$n%,scalar($val3=do{%#~0:$row%;})))) { _ep_dcp (%$t%,%^*htmltable%) ;
last l%^*htmltable% ; }',
'_ep_rpurl(%$n%,scalar(do{%#0%}));',
] ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
