richter 01/03/20 00:01:55
Modified: . Tag: Embperl2c test.pl
Embperl Tag: Embperl2c Syntax.pm
Embperl/Syntax Tag: Embperl2c Perl.pm
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.70.4.33 +3 -0 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.32
retrieving revision 1.70.4.33
diff -u -r1.70.4.32 -r1.70.4.33
--- test.pl 2001/03/18 13:07:17 1.70.4.32
+++ test.pl 2001/03/20 08:01:53 1.70.4.33
@@ -471,6 +471,9 @@
'inctext.htm' => {
'version' => 2,
},
+ 'incperl.htm' => {
+ 'version' => 2,
+ },
) ;
for ($i = 0 ; $i < @testdata; $i += 2)
No revision
No revision
1.1.4.24 +9 -2 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.4.23
retrieving revision 1.1.4.24
diff -u -r1.1.4.23 -r1.1.4.24
--- Syntax.pm 2001/03/17 22:20:52 1.1.4.23
+++ Syntax.pm 2001/03/20 08:01:54 1.1.4.24
@@ -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.4.23 2001/03/17 22:20:52 richter Exp $
+# $Id: Syntax.pm,v 1.1.4.24 2001/03/20 08:01:54 richter Exp $
#
###################################################################################
@@ -130,7 +130,7 @@
sub AddInitCode
{
- my ($self, $compiletimecode, $initcode, $termcode) = @_ ;
+ my ($self, $compiletimecode, $initcode, $termcode, $procinfo) = @_ ;
my $root = $self -> {-root} ;
my $ttref ;
@@ -141,6 +141,13 @@
$pinfo -> {'compiletimeperlcode'} .= $compiletimecode if ($compiletimecode)
;
$pinfo -> {'perlcode'} .= $initcode if ($initcode) ;
$pinfo -> {'perlcodeend'} .= $termcode if ($termcode) ;
+ if ($procinfo)
+ {
+ while (my ($k, $v) = each (%$procinfo))
+ {
+ $pinfo -> {$k} = $v ;
+ }
+ }
}
}
No revision
No revision
1.1.2.2 +14 -1 embperl/Embperl/Syntax/Attic/Perl.pm
Index: Perl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/Perl.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- Perl.pm 2001/03/18 13:07:18 1.1.2.1
+++ Perl.pm 2001/03/20 08:01:55 1.1.2.2
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Perl.pm,v 1.1.2.1 2001/03/18 13:07:18 richter Exp $
+# $Id: Perl.pm,v 1.1.2.2 2001/03/20 08:01:55 richter Exp $
#
###################################################################################
@@ -44,6 +44,19 @@
my $class = shift ;
my $self = HTML::Embperl::Syntax::new ($class) ;
+
+ if (!$self -> {-perlInit})
+ {
+ $self -> {-perlInit} = 1 ;
+
+ $self -> AddInitCode (undef, '%#0% ;', undef,
+ {
+ removenode => 3,
+ compilechilds => 0,
+ }) ;
+
+ }
+
return $self ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
