Changeset 324

Show
Ignore:
Timestamp:
10/27/06 19:05:08 (2 years ago)
Author:
miya
Message:

Text::Trac: WikiMacros support.Timestamp and HelloWorld.
Renamed files XXXNode.pm to XXX.pm.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • library/perl/trunk/Text-Trac/MANIFEST

    r177 r324  
    55README 
    66lib/Text/Trac.pm 
    7 lib/Text/Trac/AutoLinkHttpNode.pm 
     7lib/Text/Trac/AutoLinkHttp.pm 
    88lib/Text/Trac/BlockNode.pm 
    9 lib/Text/Trac/BlockquoteNode.pm 
    10 lib/Text/Trac/BoldItalicNode.pm 
    11 lib/Text/Trac/BoldNode.pm 
    12 lib/Text/Trac/BrNode.pm 
     9lib/Text/Trac/Blockquote.pm 
     10lib/Text/Trac/BoldItalic.pm 
     11lib/Text/Trac/Bold.pm 
     12lib/Text/Trac/Br.pm 
    1313lib/Text/Trac/Context.pm 
    14 lib/Text/Trac/DlNode.pm 
    15 lib/Text/Trac/HeadingNode.pm 
    16 lib/Text/Trac/HrNode.pm 
     14lib/Text/Trac/Dl.pm 
     15lib/Text/Trac/Heading.pm 
     16lib/Text/Trac/Hr.pm 
    1717lib/Text/Trac/InlineNode.pm 
    18 lib/Text/Trac/ItalicNode.pm 
    19 lib/Text/Trac/MonospaceNode.pm 
     18lib/Text/Trac/Italic.pm 
     19lib/Text/Trac/Monospace.pm 
    2020lib/Text/Trac/Node.pm 
    21 lib/Text/Trac/OlNode.pm 
    22 lib/Text/Trac/PNode.pm 
    23 lib/Text/Trac/PreNode.pm 
    24 lib/Text/Trac/StrikeNode.pm 
    25 lib/Text/Trac/SubNode.pm 
    26 lib/Text/Trac/SupNode.pm 
    27 lib/Text/Trac/TableNode.pm 
     21lib/Text/Trac/Ol.pm 
     22lib/Text/Trac/P.pm 
     23lib/Text/Trac/Pre.pm 
     24lib/Text/Trac/Strike.pm 
     25lib/Text/Trac/Sub.pm 
     26lib/Text/Trac/Sup.pm 
     27lib/Text/Trac/Table.pm 
    2828lib/Text/Trac/Text.pm 
    29 lib/Text/Trac/UlNode.pm 
    30 lib/Text/Trac/UnderlineNode.pm 
     29lib/Text/Trac/Ul.pm 
     30lib/Text/Trac/Underline.pm 
    3131t/00-load.t 
    3232t/01-text-trac.t 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/AutoLinkHttp.pm

    r192 r324  
    1 package Text::Trac::AutoLinkHttpNode; 
     1package Text::Trac::AutoLinkHttp; 
    22use base qw(Text::Trac::InlineNode); 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/BlockNode.pm

    r176 r324  
    1010__PACKAGE__->mk_classdata( 
    1111    inline_nodes   => [ qw( bold_italic bold italic underline monospace strike sup sub br 
    12                             auto_link_http ) ] 
     12                            auto_link_http macro ) ] 
    1313); 
    1414__PACKAGE__->mk_classdata( 
    …… 
    4141 
    4242    while ( defined ( my $l = $c->shiftline ) ) { 
    43         #my $l = $c->shiftline; 
    4443        next if $l =~ /^$/; 
    4544        for my $parser ( @{ $self->_get_matched_parsers('block', $l) } ){ 
    …… 
    5554    my @parsers; 
    5655    for ( @{ $self->$type } ){ 
    57         my $class = 'Text::Trac::' . $self->_camelize($_) . 'Node'; 
     56        my $class = 'Text::Trac::' . $self->_camelize($_); 
    5857        $class->require; 
    5958        push @parsers, $class->new({ context => $self->context }); 
    …… 
    7069 
    7170    for my $parser ( @{ $self->$type } ){ 
    72         next if ( grep { ref($parser) eq 'Text::Trac::'. $self->_camelize($_) . 'Node' } @{$c->in_block_of} 
     71        next if ( grep { ref($parser) eq 'Text::Trac::'. $self->_camelize($_) } @{$c->in_block_of} 
    7372            and $type =~ /^block/ ); 
    7473        my $pattern = $parser->pattern or next; 
    …… 
    7978    } 
    8079 
    81     push @matched_parsers, Text::Trac::PNode->new({ context => $self->context }) 
     80    push @matched_parsers, Text::Trac::P->new({ context => $self->context }) 
    8281        if( !@matched_parsers and $type =~ /^block/ ); 
    8382 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Blockquote.pm

    r323 r324  
    1 package Text::Trac::BlockquoteNode; 
     1package Text::Trac::Blockquote; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Bold.pm

    r176 r324  
    1 package Text::Trac::BoldNode; 
     1package Text::Trac::Bold; 
    22use strict; 
    33use base qw(Text::Trac::InlineNode); 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/BoldItalic.pm

    r176 r324  
    1 package Text::Trac::BoldItalicNode; 
     1package Text::Trac::BoldItalic; 
    22use strict; 
    33use base qw(Text::Trac::InlineNode); 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Br.pm

    r176 r324  
    1 package Text::Trac::BrNode; 
     1package Text::Trac::Br; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Dl.pm

    r321 r324  
    1 package Text::Trac::DlNode; 
     1package Text::Trac::Dl; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Heading.pm

    r176 r324  
    1 package Text::Trac::HeadingNode; 
     1package Text::Trac::Heading; 
    22use strict; 
    33use base qw(Text::Trac::BlockNode); 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Hr.pm

    r176 r324  
    1 package Text::Trac::HrNode; 
     1package Text::Trac::Hr; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Italic.pm

    r176 r324  
    1 package Text::Trac::ItalicNode; 
     1package Text::Trac::Italic; 
    22use strict; 
    33use base qw(Text::Trac::InlineNode); 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Monospace.pm

    r176 r324  
    1 package Text::Trac::MonospaceNode; 
     1package Text::Trac::Monospace; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Ol.pm

    r323 r324  
    1 package Text::Trac::OlNode; 
     1package Text::Trac::Ol; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/P.pm

    r174 r324  
    1 package Text::Trac::PNode; 
     1package Text::Trac::P; 
    22use strict; 
    33use base qw(Text::Trac::BlockNode); 
    …… 
    2424        # parse other block nodes 
    2525        my $parsers = $self->_get_matched_parsers('block', $l); 
    26         if( grep { ref($_) ne 'Text::Trac::PNode' } @{$parsers} ){ 
     26        if( grep { ref($_) ne 'Text::Trac::P' } @{$parsers} ){ 
    2727            #$c->htmllines($l); 
    2828            $c->htmllines('</p>'); 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Pre.pm

    r166 r324  
    1 package Text::Trac::PreNode; 
     1package Text::Trac::Pre; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Strike.pm

    r176 r324  
    1 package Text::Trac::StrikeNode; 
     1package Text::Trac::Strike; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Sub.pm

    r176 r324  
    1 package Text::Trac::SubNode; 
     1package Text::Trac::Sub; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Sup.pm

    r176 r324  
    1 package Text::Trac::SupNode; 
     1package Text::Trac::Sup; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Table.pm

    r176 r324  
    1 package Text::Trac::TableNode; 
     1package Text::Trac::Table; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Ul.pm

    r323 r324  
    1 package Text::Trac::UlNode; 
     1package Text::Trac::Ul; 
    22 
    33use strict; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Underline.pm

    r176 r324  
    1 package Text::Trac::UnderlineNode; 
     1package Text::Trac::Underline; 
    22use strict; 
    33use base qw(Text::Trac::InlineNode); 

  • library/perl/trunk/Text-Trac/t/01-text-trac.t

    r323 r324  
    338338</dd> 
    339339</dl> 
     340 
     341### macro HelloWorld test 
     342--- input 
     343[[HelloWorld(arg1, arg2)]] 
     344--- expected 
     345<p> 
     346Hello World, args = arg1, arg2 
     347</p>