richter 00/06/01 06:00:56
Modified: . Tag: Embperl2 Makefile.PL
Embperl Tag: Embperl2 Syntax.pm
Added: . Tag: Embperl2 epcmd2.c
Log:
Embperl2 - Input
Revision Changes Path
No revision
No revision
1.28.2.5 +1 -1 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.28.2.4
retrieving revision 1.28.2.5
diff -u -r1.28.2.4 -r1.28.2.5
--- Makefile.PL 2000/05/11 07:27:53 1.28.2.4
+++ Makefile.PL 2000/06/01 13:00:54 1.28.2.5
@@ -839,7 +839,7 @@
WriteMakefile(
'NAME' => 'HTML::Embperl',
'VERSION_FROM' => 'Embperl.pm', # finds $VERSION
- 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT) epdbg$(OBJ_EXT)
epparse$(OBJ_EXT) epdom$(OBJ_EXT) epcomp$(OBJ_EXT)' . $o,
+ 'OBJECT' => 'Embperl$(OBJ_EXT) epmain$(OBJ_EXT) epio$(OBJ_EXT)
epchar$(OBJ_EXT) epcmd$(OBJ_EXT) epcmd2$(OBJ_EXT) eputil$(OBJ_EXT) epeval$(OBJ_EXT)
epdbg$(OBJ_EXT) epparse$(OBJ_EXT) epdom$(OBJ_EXT) epcomp$(OBJ_EXT)' . $o,
'LIBS' => [''],
'DEFINE' => "$d \$(DEFS)",
'INC' => $i,
No revision
No revision
1.1.2.1 +51 -0 embperl/Attic/epcmd2.c
No revision
No revision
1.1.2.16 +2 -2 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.2.15
retrieving revision 1.1.2.16
diff -u -r1.1.2.15 -r1.1.2.16
--- Syntax.pm 2000/06/01 06:38:14 1.1.2.15
+++ Syntax.pm 2000/06/01 13:00:55 1.1.2.16
@@ -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.15 2000/06/01 06:38:14 richter Exp $
+# $Id: Syntax.pm,v 1.1.2.16 2000/06/01 13:00:55 richter Exp $
#
###################################################################################
@@ -274,7 +274,7 @@
perlcode =>
[
'if ($fdat{%&*\'name%} eq %&*\'value%) {
XML::Embperl::DOM::Element_setAttribut (%$n%, \'checked\', undef) } else
{XML::Embperl::DOM::Element_removeAttribut (%$n%, \'checked\') };
%&=-type:radio|checkbox% ',
- 'XML::Embperl::DOM::Element_setAttribut (%$n%, \'value\',
$fdat{%&*\'name%} || \'\') ; %&!value%',
+ '$idat{%&*\'name%} = %&*\'value% ;
XML::Embperl::DOM::Element_setAttribut (%$n%, \'value\', $fdat{%&*\'name%} || \'\') ;
%&!value%',
'$idat{%&*\'name%} = %&*\'value% ; ',
]
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
