Changeset 310 for lang/perl/Text-Nyarlax

Show
Ignore:
Timestamp:
09/30/07 16:16:58 (7 years ago)
Author:
nyarla
Message:

lang/perl/Text-Nyarlax: I implemented parse of the Block(Inserted|Deleted) element on Text::Nyarlax::Parser::PRD and changed delimiters of .tb files.

Location:
lang/perl/Text-Nyarlax/trunk
Files:
2 added
30 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Parser/PRD.pm

    r295 r310  
    104104                        |   BlockQuote 
    105105                        |   BlockNotes 
     106                        |   BlockEdited[ marker => quotemeta('+'), name => 'BlockInserted' ] 
     107                        |   BlockEdited[ marker => quotemeta('-'), name => 'BlockDeleted' ] 
    106108                        |   Paragraph 
    107109 
     
    213215                            my $elm = element( $item[0] ); 
    214216                            $elm->push_content( @{ $item{'Root'} } ); 
     217                            $return = $elm; 
     218                        } 
     219 
     220    BlockEdited         :   /(?:$arg{'marker'}){3}/ Blank Text(?) Blank /\n/ 
     221                                Root 
     222                            /(?:$arg{'marker'}){3}/ Blank DateTime(?) Blank /\n/ 
     223                        { 
     224                            my $elm = element( $arg{'name'} ); 
     225                            $elm->push_content( @{ $item{'Root'} } ); 
     226                            $elm->attr->{'title'} = $item{'Text(?)'}->[0] 
     227                                if ( $item{'Text(?)'}->[0] ); 
     228                            $elm->attr->{'datetime'} = $item{'DateTime(?)'}->[0] 
     229                                if ( $item{'DateTime(?)'}->[0] ); 
    215230                            $return = $elm; 
    216231                        } 
     
    387402    Identifier          :   /[a-zA-Z]+/ 
    388403    URI                 :   /$RE{'URI'}/ 
     404    DateTime            :   /\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}[\-+]\d{2}:\d{2}/ 
    389405__GRAMMER__ 
    390406 
  • lang/perl/Text-Nyarlax/trunk/t/parser/01_PRD.t

    r88 r310  
    77set_test_elements; 
    88 
     9delimiters('###', '@@@'); 
     10 
    911run_test_parse( in => 'out' ); 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/abbreviation.tb

    r88 r310  
    1 === Abbreviation 
    2 --- in 
     1### Abbreviation 
     2@@@ in 
    33((HTML=Hyper Text Markup Language)) 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/acronym.tb

    r88 r310  
    1 === Acronym 
    2 --- in 
     1### Acronym 
     2@@@ in 
    33((LAN:=Local Area Network)) 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/blocknotes.tb

    r278 r310  
    1 === BlockNotes 
    2 --- in 
     1### BlockNotes 
     2@@@ in 
    33((( 
    44text text text 
    55text text text 
    66))) 
    7 --- out 
     7@@@ out 
    88name: BlockNotes 
    99content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/blockquote.tb

    r260 r310  
    1 === simple BlockQuote 
    2 --- in 
     1### simple BlockQuote 
     2@@@ in 
    33 
    44>>> 
     
    77<<< 
    88 
    9 --- out 
     9@@@ out 
    1010name: BlockQuote 
    1111content: 
     
    1818            text text text 
    1919 
    20 === BlockQuote with Attributes 
    21 --- in 
     20### BlockQuote with Attributes 
     21@@@ in 
    2222 
    2323>>> document title 
     
    2626<<< http://example.com/foo/bar.html 
    2727 
    28 --- out 
     28@@@ out 
    2929name: BlockQuote 
    3030attr: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/citation.tb

    r88 r310  
    1 === Citation 
    2 --- in 
     1### Citation 
     2@@@ in 
    33foo bar >>baz<< 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/code.tb

    r88 r310  
    1 === quote 
    2 --- in 
     1### quote 
     2@@@ in 
    33`$self->parser->parse( $text )` 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/comparison.tb

    r88 r310  
    1 === comparison 
    2 --- in 
     1### comparison 
     2@@@ in 
    33AAABBB//CCC/DDD//EEEFFF 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/definition.tb

    r88 r310  
    1 === Definition 
    2 --- in 
     1### Definition 
     2@@@ in 
    33AAABBB??CCC??DDD 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/deleted.tb

    r88 r310  
    1 === Deleted 
    2 --- in 
     1### Deleted 
     2@@@ in 
    33AAABBB--CCC--DDD 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/embedding.tb

    r88 r310  
    1 === simple Embedding 
    2 --- in 
     1### simple Embedding 
     2@@@ in 
    33{{name}} 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
     
    1212      - "\n" 
    1313 
    14 === Embedding with arguments 
    15 --- in 
     14### Embedding with arguments 
     15@@@ in 
    1616{{name:aaa}} 
    17 --- out 
     17@@@ out 
    1818name: Paragraph 
    1919content: 
     
    2727      - "\n" 
    2828 
    29 === Embedding with Mluti-line 
    30 --- in 
     29### Embedding with Mluti-line 
     30@@@ in 
    3131{{name: 
    3232foo: AAA 
     
    3434baz: CCC 
    3535}} 
    36 --- out 
     36@@@ out 
    3737name: Paragraph 
    3838content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/emphasis.tb

    r88 r310  
    1 === emphasis 
    2 --- in 
     1### emphasis 
     2@@@ in 
    33AAABBBCCC**EEE*FFF** 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/escape.tb

    r88 r310  
    1 === Escape bracket 
    2 --- in 
     1### Escape bracket 
     2@@@ in 
    33AAA BBB CCC \\\(( DDD EEE ))\\\ 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
     
    99      - "AAA BBB CCC (( DDD EEE ))\n" 
    1010 
    11 === Escape one charactor 
    12 --- in 
     11### Escape one charactor 
     12@@@ in 
    1313AAA BBB \"foo bar baz\" 
    14 --- out 
     14@@@ out 
    1515name: Paragraph 
    1616content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/heading.tb

    r89 r310  
    1 === Heading 
    2 --- in 
     1### Heading 
     2@@@ in 
    33= heading = 
    4 --- out 
     4@@@ out 
    55name: Section 
    66content: 
     
    99      - heading 
    1010 
    11 === Heading with ID 
    12 --- in 
     11### Heading with ID 
     12@@@ in 
    1313= heading = MyID 
    14 --- out 
     14@@@ out 
    1515name: Section 
    1616content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/hyperlink.tb

    r88 r310  
    1 === PageLink 
    2 --- in 
     1### PageLink 
     2@@@ in 
    33[[PageName]] 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
     
    1414      - "\n" 
    1515 
    16 === PageLink with title 
     16### PageLink with title 
    1717[[title|PageName]] 
    18 --- out 
     18@@@ out 
    1919name: Paragraph 
    2020content: 
     
    2828      - "\n" 
    2929 
    30 === InterWikiName 
    31 --- in 
     30### InterWikiName 
     31@@@ in 
    3232[[WikiName[PageName]]] 
    33 --- out 
     33@@@ out 
    3434name: Paragraph 
    3535content: 
     
    4444      - "\n" 
    4545 
    46 === InterWikiName with title 
    47 --- in 
     46### InterWikiName with title 
     47@@@ in 
    4848[[title|WikiName[PageName]]] 
    49 --- out 
     49@@@ out 
    5050name: Paragraph 
    5151content: 
     
    6060      - "\n" 
    6161 
    62 === HTTP link 
    63 --- in 
     62### HTTP link 
     63@@@ in 
    6464[[http://example.com/foo/bar/]] 
    65 --- out 
     65@@@ out 
    6666name: Paragraph 
    6767content: 
     
    7575      - "\n" 
    7676 
    77 === HTTP link with title 
    78 --- in 
     77### HTTP link with title 
     78@@@ in 
    7979[[title|http://example.com/foo/bar/]] 
    80 --- out 
     80@@@ out 
    8181name: Paragraph 
    8282content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/inputcommand.tb

    r88 r310  
    1 === InputCommand 
    2 --- in 
     1### InputCommand 
     2@@@ in 
    33[$prove -I lib t/*.t$] 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/inputtext.tb

    r88 r310  
    1 === InputText 
    2 --- in 
     1### InputText 
     2@@@ in 
    33AAABBB[|CCC|]DDD 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/inserted.tb

    r88 r310  
    1 === Inserted 
    2 --- in 
     1### Inserted 
     2@@@ in 
    33AAABBB++CCC++DDD 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/keyboard.tb

    r88 r310  
    1 === Keyboard 
    2 --- in 
     1### Keyboard 
     2@@@ in 
    33<[shift]> + <[c]> 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/list.tb

    r251 r310  
    1 === simple List 
    2 --- in 
    3  
    4 * item 
    5 * item 
    6 * item 
    7  
    8 --- out 
     1### simple List 
     2@@@ in 
     3 
     4* item 
     5* item 
     6* item 
     7 
     8@@@ out 
    99name: UnorderedList 
    1010content: 
     
    1919      - item 
    2020 
    21 === multi-line list 
    22 --- in 
     21### multi-line list 
     22@@@ in 
    2323 
    2424# text text text 
     
    2929  text text text 
    3030 
    31 --- out 
     31@@@ out 
    3232name: OrderedList 
    3333content: 
     
    4848        text text text 
    4949 
    50 === inline-block List 
    51 --- in 
     50### inline-block List 
     51@@@ in 
    5252 
    5353* >> 
     
    6161* item 
    6262 
    63 --- out 
     63@@@ out 
    6464name: UnorderedList 
    6565content: 
     
    8585      - item 
    8686 
    87 === simple DefinitionList 
    88 --- in 
     87### simple DefinitionList 
     88@@@ in 
    8989 
    9090? term 
     
    9696 
    9797 
    98 --- out 
     98@@@ out 
    9999name: DefinitionList 
    100100content: 
     
    123123 
    124124 
    125 === multi-line DefinitionDescription 
    126 --- in 
     125### multi-line DefinitionDescription 
     126@@@ in 
    127127 
    128128? text text text 
     
    132132 
    133133 
    134 --- out 
     134@@@ out 
    135135name: DefinitionList 
    136136content: 
     
    148148            text text text 
    149149 
    150 === inline-block DefinitionList 
    151 --- in 
     150### inline-block DefinitionList 
     151@@@ in 
    152152 
    153153? term 
     
    158158: description 
    159159 
    160 --- out 
     160@@@ out 
    161161name: DefinitionList 
    162162content: 
     
    179179          - description 
    180180 
    181 === simple nestring list 
    182 --- in 
     181### simple nestring list 
     182@@@ in 
    183183 
    184184* item 
     
    187187    : description 
    188188 
    189 --- out 
     189@@@ out 
    190190name: UnorderedList 
    191191content: 
     
    209209                          - description 
    210210 
    211 === multi-line nesting list 
    212 --- in 
     211### multi-line nesting list 
     212@@@ in 
    213213 
    214214# text text text 
     
    221221      text text text 
    222222 
    223 --- out 
     223@@@ out 
    224224name: OrderedList 
    225225content: 
     
    251251                            text text text 
    252252 
    253 === inline-block nesting list 
    254 --- in 
     253### inline-block nesting list 
     254@@@ in 
    255255 
    256256? term 
     
    268268      << 
    269269 
    270 --- out 
     270@@@ out 
    271271name: DefinitionList 
    272272content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/notes.tb

    r88 r310  
    1 === notes 
    2 --- in 
     1### notes 
     2@@@ in 
    33AAABBBCCC((( DDDEEE(FFF) ))) 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/paragraph.tb

    r88 r310  
    1 === simple paragraph 
    2 --- in 
     1### simple paragraph 
     2@@@ in 
    33text text text 
    44text text text 
     
    66text text text 
    77text text text 
    8 --- out 
     8@@@ out 
    99name: Paragraph 
    1010content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/quote.tb

    r88 r310  
    1 === quote 
    2 --- in 
     1### quote 
     2@@@ in 
    33text"text"text 
    44text"text"text 
    5 --- out 
     5@@@ out 
    66name: Paragraph 
    77content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/ruby.tb

    r88 r310  
    1 === Simple Ruby 
    2 --- in 
     1### Simple Ruby 
     2@@@ in 
    33((<HTML><Hyper Text Markup Language>)) 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
     
    1717      - "\n" 
    1818 
    19 === Multi Ruby 
    20 --- in 
     19### Multi Ruby 
     20@@@ in 
    2121((<H|T|M|L><Hyper|Text|Markup|Language><Hyper|Text|Markup|Language>)) 
    22 --- out 
     22@@@ out 
    2323name: Paragraph 
    2424content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/sample.tb

    r88 r310  
    1 === Sample 
    2 --- in 
     1### Sample 
     2@@@ in 
    33[!404 Not Found!] 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/section.tb

    r140 r310  
    1 === single Section 
    2 --- in 
     1### single Section 
     2@@@ in 
    33 
    44= heading = 
     
    77paragraph paragraph paragraph 
    88 
    9 --- out 
     9@@@ out 
    1010name: Section 
    1111content: 
     
    2121            paragraph paragraph paragraph 
    2222 
    23 === multi Section 1 
    24 --- in 
     23### multi Section 1 
     24@@@ in 
    2525 
    2626= heading = 
     
    3535 
    3636 
    37 --- out 
     37@@@ out 
    3838name: Section 
    3939content: 
     
    6060 
    6161 
    62 === multi Section 2 
    63 --- in 
     62### multi Section 2 
     63@@@ in 
    6464 
    6565= heading 1 = 
     
    8383paragraph paragraph paragraph 
    8484 
    85 --- out 
     85@@@ out 
    8686name: Section 
    8787content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/subscript.tb

    r88 r310  
    1 === SubScript 
    2 --- in 
     1### SubScript 
     2@@@ in 
    33AAABBB__CCC__DDD 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/superscript.tb

    r88 r310  
    1 === SuperScript 
    2 --- in 
     1### SuperScript 
     2@@@ in 
    33AAABBB~~CCC~~DDD 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
  • lang/perl/Text-Nyarlax/trunk/t/parser/spec/variable.tb

    r88 r310  
    1 === Variable: string 
    2 --- in 
     1### Variable: string 
     2@@@ in 
    33{$ $string $} 
    4 --- out 
     4@@@ out 
    55name: Paragraph 
    66content: 
     
    1414      - "\n" 
    1515 
    16 === Variable: number 
    17 --- in 
     16### Variable: number 
     17@@@ in 
    1818{# 1000 #} 
    19 --- out 
     19@@@ out 
    2020name: Paragraph 
    2121content: 
     
    2929      - "\n" 
    3030 
    31 === Variable: boolean 
    32 --- in 
     31### Variable: boolean 
     32@@@ in 
    3333{? false ?} 
    34 --- out 
     34@@@ out 
    3535name: Paragraph 
    3636content: 
     
    4444      - "\n" 
    4545 
    46 === Variable: reference 
    47 --- in 
     46### Variable: reference 
     47@@@ in 
    4848{: \$string :} 
    49 --- out 
     49@@@ out 
    5050name: Paragraph 
    5151content: 
     
    5959      - "\n" 
    6060 
    61 === Variable: pointer 
    62 --- in 
     61### Variable: pointer 
     62@@@ in 
    6363{* *pointer *} 
    64 --- out 
     64@@@ out 
    6565name: Paragraph 
    6666content: 
     
    7474      - "\n" 
    7575 
    76 === Variable: function 
    77 --- in 
     76### Variable: function 
     77@@@ in 
    7878{& $class->method &} 
    79 --- out 
     79@@@ out 
    8080name: Paragraph 
    8181content: 
     
    8989      - "\n" 
    9090 
    91 === Variable: array 
    92 --- in 
     91### Variable: array 
     92@@@ in 
    9393{@ @array @} 
    94 --- out 
     94@@@ out 
    9595name: Paragraph 
    9696content: 
     
    104104      - "\n" 
    105105 
    106 === Variable: hash 
    107 --- in 
     106### Variable: hash 
     107@@@ in 
    108108{% %hash %} 
    109 --- out 
     109@@@ out 
    110110name: Paragraph 
    111111content: 
     
    119119      - "\n" 
    120120 
    121 === Variable: structure 
    122 --- in 
     121### Variable: structure 
     122@@@ in 
    123123{= structure =} 
    124 --- out 
     124@@@ out 
    125125name: Paragraph 
    126126content: 
     
    134134      - "\n" 
    135135 
    136 === Variable: object 
    137 --- in 
     136### Variable: object 
     137@@@ in 
    138138{+ {} +} 
    139 --- out 
     139@@@ out 
    140140name: Paragraph 
    141141content: 
     
    149149      - "\n" 
    150150 
    151 === Variable: object 
    152 --- in 
     151### Variable: object 
     152@@@ in 
    153153{+ {} +} 
    154 --- out 
     154@@@ out 
    155155name: Paragraph 
    156156content: 
     
    164164      - "\n" 
    165165 
    166 === Variable: class 
    167 --- in 
     166### Variable: class 
     167@@@ in 
    168168{! Foo.Bar.Baz !} 
    169 --- out 
     169@@@ out 
    170170name: Paragraph 
    171171content: 
     
    179179      - "\n" 
    180180 
    181 === Variable: path 
    182 --- in 
     181### Variable: path 
     182@@@ in 
    183183{path:/path/to/dir} 
    184 --- out 
     184@@@ out 
    185185name: Paragraph 
    186186content: 
     
    194194      - "\n" 
    195195 
    196 === Variable: file 
    197 --- in 
     196### Variable: file 
     197@@@ in 
    198198{file:filename.pl} 
    199 --- out 
     199@@@ out 
    200200name: Paragraph 
    201201content: