| PurpleWiki documentation | Contained in the PurpleWiki distribution. |
PurpleWiki::InlineNode - Inline node object
use PurpleWiki::InlineNode;
# Create node of type 'text' and content 'Hello, world!'
my $inlineNode1 =
PurpleWiki::InlineNode->new(type => 'text',
content => 'Hello, world!');
# Represent bolded and italicized 'Hello, world!'.
# First, create node of type 'b'.
my $boldNode = PurpleWiki::InlineNode->new(type => 'b');
# Create node of type 'i'.
my $italicsNode = PurpleWiki::InlineNode->new(type => 'i');
# Create 'text' node with content 'Hello, world!'.
my $textNode =
PurpleWiki::InlineNode->new(type => 'text',
content => 'Hello, world!');
# Make 'text' node a child of 'i' node, and 'i' node a child
# of 'b' node.
$italicsNode->children([$textNode]);
$boldNode->children([$italicsNode]);
Inline nodes make up the content of structural nodes. They are mostly content containers, although some types use children to handle nested inline content, such as bold and italicized content.
The data structure looks like:
PurpleWiki::InlineNode = {
type => text|nowiki|b|i|tt|wikiword|freelink|link|url|image
href => string
content => string
children => [PurpleWiki::InlineNode, ...]
}
There are two content nodes: text and nowiki. Both use the content field, and neither allow nesting.
The nowiki type is useful for serializing trees as WikiText. For example, if you had the text:
Brevity is the soul of wit. --WilliamShakespeare
it would make no difference to PurpleWiki internally if you treated this as either a text node or a nowiki node. In both cases, "WilliamShakespeare" is not treated as a Wiki word. However, the correct WikiText serialization is:
<nowiki>Brevity is the soul of wit. --WilliamShakespeare</nowiki>
Without the nowiki tags, WilliamShakespeare looks like a node of type 'wikiword', which is not the case in this example. If we did not have a nowiki type, then the View driver would have to parse the contents of the text node to see if anything ought to be surrounded by nowiki tags.
There are three types of nested nodes: b, i, and tt. The BNF constraints are as follows:
b ::= text|nowiki|i|tt|wikiword|freelink|link|url|image i ::= text|nowiki|b|tt|wikiword|freelink|link|url|image tt ::= text|nowiki|b|i|wikiword|freelink|link|url|image
The content field of these types of nodes should be left undefined.
Suppose you had a paragraph consisting of an italicized sentence with a fixed font word:
<i>Hello, <tt>world!</tt></i>
The corresponding inline nodes would be:
I
|
+-- TEXT: 'Hello, '
|
+-- TT
|
+-- TEXT: 'world!'
In other words, you would have an i node with two children: a text node with content 'Hello, ', and a tt node. The tt node would have one child: a text node with content 'world!'.
There are four types of link nodes:
wikiword -- WikiWord freelink -- free link (double bracketed links) link -- links (bracketed links) url -- URLs image -- images
Each of these nodes use both the content and href fields. Link nodes are not nested.
Chris Dent, <cdent@blueoxen.org>
Eugene Eric Kim, <eekim@blueoxen.org>
| PurpleWiki documentation | Contained in the PurpleWiki distribution. |
# PurpleWiki::InlineNode.pm # # $Id: InlineNode.pm 352 2004-05-08 22:00:33Z cdent $ # # Copyright (c) Blue Oxen Associates 2002-2003. All rights reserved. # # This file is part of PurpleWiki. PurpleWiki is derived from: # # UseModWiki v0.92 (c) Clifford A. Adams 2000-2001 # AtisWiki v0.3 (c) Markus Denker 1998 # CVWiki CVS-patches (c) Peter Merel 1997 # The Original WikiWikiWeb (c) Ward Cunningham # # PurpleWiki is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the # Free Software Foundation, Inc. # 59 Temple Place, Suite 330 # Boston, MA 02111-1307 USA package PurpleWiki::InlineNode; use 5.005; use strict; our $VERSION; $VERSION = sprintf("%d", q$Id: InlineNode.pm 352 2004-05-08 22:00:33Z cdent $ =~ /\s(\d+)\s/); ### constructor sub new { my $this = shift; my (%options) = @_; my $self = {}; # TODO: Type checking. $self->{type} = $options{type} ? $options{type} : undef; $self->{href} = $options{href} ? $options{href} : undef; $self->{class} = $options{class} ? $options{class} : undef; $self->{content} = $options{content} ? $options{content} : undef; $self->{children} = $options{children} ? $options{children} : undef; bless $self, $this; return $self; } ### accessors/mutators sub type { my $this = shift; $this->{type} = shift if @_; return $this->{type}; } sub href { my $this = shift; $this->{href} = shift if @_; return $this->{href}; } sub class { my $this = shift; $this->{class} = shift if @_; return $this->{class}; } sub content { my $this = shift; $this->{content} = shift if @_; return $this->{content}; } sub children { my $this = shift; $this->{children} = shift if @_; return $this->{children}; } 1; __END__