ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/pod2wiki
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/pod2wiki (file contents):
Revision 1.12 by root, Tue Mar 25 02:12:36 2008 UTC vs.
Revision 1.15 by root, Sun Mar 30 11:31:09 2008 UTC

… …
104} 104}
105 105
106sub view_head1 { 106sub view_head1 {
107 push @result, [ $indent * 16, $level ]; 107 push @result, [ $indent * 16, $level ];
108 my $title = $_[1]->title->present ($_[0]); 108 my $title = $_[1]->title->present ($_[0]);
109 $result[-1][P_MARKUP] = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n" if length $title; 109 $result[-1][P_MARKUP] = ::special h1 => $title if length $title;
110 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 110 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
111 local $level = $level + 1; 111 local $level = $level + 1;
112 $_[1]->content->present ($_[0]); 112 $_[1]->content->present ($_[0]);
113 () 113 ()
114}; 114};
115 115
116sub view_head2 { 116sub view_head2 {
117 push @result, [ $indent * 16, $level ]; 117 push @result, [ $indent * 16, $level ];
118 my $title = $_[1]->title->present ($_[0]); 118 my $title = $_[1]->title->present ($_[0]);
119 $result[-1][P_MARKUP] = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n" if length $title; 119 $result[-1][P_MARKUP] = ::special h2 => $title if length $title;
120 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 120 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
121 local $level = $level + 1; 121 local $level = $level + 1;
122 $_[1]->content->present ($_[0]); 122 $_[1]->content->present ($_[0]);
123 () 123 ()
124}; 124};
125 125
126sub view_head3 { 126sub view_head3 {
127 push @result, [ $indent * 16, $level ]; 127 push @result, [ $indent * 16, $level ];
128 my $title = $_[1]->title->present ($_[0]); 128 my $title = $_[1]->title->present ($_[0]);
129 $result[-1][P_MARKUP] = "\n\n<span size='large'>$title</span>\n" if length $title; 129 $result[-1][P_MARKUP] = ::special h3 => $title if length $title;
130 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 130 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
131 local $level = $level + 1; 131 local $level = $level + 1;
132 $_[1]->content->present ($_[0]); 132 $_[1]->content->present ($_[0]);
133 () 133 ()
134}; 134};
… …
218 $pod->[N_LEVEL] = 1; 218 $pod->[N_LEVEL] = 1;
219 $pod->[N_KW] = [$base]; 219 $pod->[N_KW] = [$base];
220 $pod->[N_DOC] = $para; 220 $pod->[N_DOC] = $para;
221 221
222 my @parent = ($pod); 222 my @parent = ($pod);
223 add_node $parent[-1];
224 223
225 for my $idx (0 .. $#$para) { 224 for my $idx (0 .. $#$para) {
226 my $par = $para->[$idx]; 225 my $par = $para->[$idx];
227 226
228 while ($parent[-1][N_LEVEL] >= $par->[P_LEVEL]) { 227 while ($parent[-1][N_LEVEL] >= $par->[P_LEVEL]) {
… …
238 $node->[N_DOC] = $para; 237 $node->[N_DOC] = $para;
239 push @parent, $node; 238 push @parent, $node;
240 add_node $node; 239 add_node $node;
241 } 240 }
242 } 241 }
242
243 add_node $pod;
243} 244}
245
246add_node $root;
244 247
245Storable::nstore \%wiki, "docwiki.pst"; 248Storable::nstore \%wiki, "docwiki.pst";
246 249

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines