/[papo]/papo/neb/neb.pm
ViewVC logotype

Diff of /papo/neb/neb.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by jlenton, Wed Apr 9 15:29:14 2003 UTC revision 1.3 by jlenton, Wed Apr 9 23:52:49 2003 UTC
# Line 19  sub init Line 19  sub init
19  {  {
20      my $self = shift;      my $self = shift;
21      my $file = shift;      my $file = shift;
22        my $root = shift;
23    
24        $self->root($root) if defined($root);
25      $self->parsefile($file) if $file;      $self->parsefile($file) if $file;
26    
27      return $self;      return $self;
# Line 40  sub parsefile Line 42  sub parsefile
42      return $self;      return $self;
43  }  }
44    
45    sub root
46    {
47        my $self = shift;
48        my $root = shift;
49    
50        $self->{ROOT} = $root
51            if defined $root;
52    
53        return $self->{ROOT};
54    }
55    
56  sub parse  sub parse
57  {  {
58      my $self = shift;      my $self = shift;
59      my $text = shift;      my $text = shift;
60      $self->{PARSE} = new XML::Parser(Style => 'neb::Parser')->parse($text)  #    $self->{PARSE} = new XML::Parser(Style => 'neb::Parser')->parse($text)
61          if defined $text;  #        if defined $text;
62        if (defined $text)
63        {
64            my $p = new XML::Parser(Style => 'neb::Parser');
65            $self->{PARSE} = $p->parse($text, 'neb_root_name' => $self->root);
66        }
67    
68      return $self->{PARSE};      return $self->{PARSE};
69  }  }
70    
71  sub begin { "use strict;\nuse Carp;\nuse warnings;\n\nmy \$OUTPUT = '';\n" }  sub begin { "use strict;\nuse Carp;\nuse warnings;\n\nmy \$OUTPUT = '';\n" }
72  sub end   { "print \"\$OUTPUT\\n\";\n"                }  sub end   { "print \"\$OUTPUT\";\n"                }
73    
74  sub canonical  sub canonical
75  {  {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26