richter 00/10/31 07:17:57
Modified: . Tag: Embperl2c Embperl.pm
test/html Tag: Embperl2c subimp.htm
Log:
Embperl 2 - imported sub
Revision Changes Path
No revision
No revision
1.118.4.6 +5 -4 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.5
retrieving revision 1.118.4.6
diff -u -r1.118.4.5 -r1.118.4.6
--- Embperl.pm 2000/10/31 08:02:46 1.118.4.5
+++ Embperl.pm 2000/10/31 15:17:46 1.118.4.6
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.118.4.5 2000/10/31 08:02:46 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.6 2000/10/31 15:17:46 richter Exp $
#
###################################################################################
@@ -1895,11 +1895,12 @@
no strict ;
my $v ;
- my $k ;
+ #my $k ;
- while (($k, $v) = each (%$exports))
+ #while (($k, $v) = each (%$exports))
+ foreach $k (keys %$exports)
{
- *{"$caller\:\:$k"} = $v ; #\&{"$package\:\:$k"} ;
+ *{"$caller\:\:$k"} = $exports -> {$k} ; #\&{"$package\:\:$k"} ;
print HTML::Embperl::LOG "[$$]IMP: Created Import for $package\:\:$k ->
$caller\n" ;
}
No revision
No revision
1.5.6.1 +22 -22 embperl/test/html/subimp.htm
Index: subimp.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/subimp.htm,v
retrieving revision 1.5
retrieving revision 1.5.6.1
diff -u -r1.5 -r1.5.6.1
--- subimp.htm 2000/01/05 05:41:39 1.5
+++ subimp.htm 2000/10/31 15:17:55 1.5.6.1
@@ -1,45 +1,45 @@
[###### first sub #####]
[$sub tfirst$]
-
-<h2>1.) Here goes some normal html text <h2>
-
+*1*
+*1*<h2>1.) Here goes some normal html text <h2>
+*1*
[$endsub$]
[###### second sub #####]
[$sub tsecond $]
-
-2.) Here comes some perl:
-
-[- $foo = 'Hello world' -]
-
-foo = [+ $foo +]<br>
-testdata = [+ $testdata +]<br>
-
+*2*
+*2*2.) Here comes some perl:
+*2*
+*2*[- $foo = 'Hello world' -]
+*2*
+*2*foo = [+ $foo +]<br>
+*2*testdata = [+ $testdata +]<br>
+*2*
[$endsub$]
[###### table header #####]
[$sub tabheader $]
-<table>
-<tr><th>1</th><th>2></th></tr>
-<tr>
+<txable>
+<txr><th>1</th><th>2></th></txr>
+<txr>
[$endsub$]
[###### table cell #####]
[$sub tabcell $]
-
-<td>[+ $_[0] -> [$row][$col] +]<td>
-
+*4*
+*4*<td>[+ $_[0] -> [$row][$col] +]<td>
+*4*
[$endsub$]
[###### table footer #####]
[$sub tabfooter $]
-</tr>
-</table>
+</txr>
+</txable>
[$endsub$]
[###### req_rec #####]
[$sub trr$]
-
-<h2>$req_rec = [+ $req_rec +] $$req_rec = [+ $$req_rec +]<h2>
-
+*6*
+*6*<h2>$req_rec = [+ $req_rec +] $$req_rec = [+ $$req_rec +]<h2>
+*6*
[$endsub$]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
