Parent Directory | Revision Log | Patch
revision 1.1 by jlenton, Mon Apr 7 18:02:43 2003 UTC | revision 1.2 by jlenton, Wed Apr 9 15:29:14 2003 UTC | |
---|---|---|
# | Line 12 my %classes = ( Perl => 1, | Line 12 my %classes = ( Perl => 1, |
12 | Block => 1, | Block => 1, |
13 | Vars => 1 ); | Vars => 1 ); |
14 | ||
15 | my $i = 0; | |
16 | ||
17 | sub Init | sub Init |
18 | { | { |
19 | my $expat = shift; | my $expat = shift; |
# | Line 32 sub Start | Line 34 sub Start |
34 | ||
35 | $obj->bind_parent($expat->{PTR}); | $obj->bind_parent($expat->{PTR}); |
36 | $obj->attributes(@_); | $obj->attributes(@_); |
37 | ||
38 | $expat->{PTR} = $obj; | $expat->{PTR} = $obj; |
39 | } | } |
40 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |