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.15 by root, Sun Mar 30 11:31:09 2008 UTC vs.
Revision 1.17 by root, Wed Apr 2 13:27:55 2008 UTC

… …
77} 77}
78 78
79sub view_seq_link { 79sub view_seq_link {
80 my (undef, $link) = @_; 80 my (undef, $link) = @_;
81 81
82 my $text = $link =~ s/^(.*)\|// ? $1 : $link; 82 $link =~ s/^(.*)\|//
83 or $link =~ /([^\/]*)$/;
84
85 my $text = $1;
83 86
84 if ($link =~ /http:/) { 87 if ($link =~ /http:/) {
85 "<u>" . (::asxml $link) . "</u>" 88 "<u>" . (::asxml $link) . "</u>"
86 } elsif ($link =~ /^\$ARCH\/(.+)$/) { 89 } elsif ($link =~ /^\$ARCH\/(.+)$/) {
87 my $path = $1; 90 my $path = $1;
… …
105 108
106sub view_head1 { 109sub view_head1 {
107 push @result, [ $indent * 16, $level ]; 110 push @result, [ $indent * 16, $level ];
108 my $title = $_[1]->title->present ($_[0]); 111 my $title = $_[1]->title->present ($_[0]);
109 $result[-1][P_MARKUP] = ::special h1 => $title if length $title; 112 $result[-1][P_MARKUP] = ::special h1 => $title if length $title;
110 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 113 $title = ::flatten $title;
114 unshift @{ $result[-1][P_INDEX] }, $title
115 if !$result[-1][P_INDEX];
111 local $level = $level + 1; 116 local $level = $level + 1;
112 $_[1]->content->present ($_[0]); 117 $_[1]->content->present ($_[0]);
113 () 118 ()
114}; 119};
115 120
116sub view_head2 { 121sub view_head2 {
117 push @result, [ $indent * 16, $level ]; 122 push @result, [ $indent * 16, $level ];
118 my $title = $_[1]->title->present ($_[0]); 123 my $title = $_[1]->title->present ($_[0]);
119 $result[-1][P_MARKUP] = ::special h2 => $title if length $title; 124 $result[-1][P_MARKUP] = ::special h2 => $title if length $title;
120 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 125 $title = ::flatten $title;
126 unshift @{ $result[-1][P_INDEX] }, $title
127 if !$result[-1][P_INDEX];
121 local $level = $level + 1; 128 local $level = $level + 1;
122 $_[1]->content->present ($_[0]); 129 $_[1]->content->present ($_[0]);
123 () 130 ()
124}; 131};
125 132
126sub view_head3 { 133sub view_head3 {
127 push @result, [ $indent * 16, $level ]; 134 push @result, [ $indent * 16, $level ];
128 my $title = $_[1]->title->present ($_[0]); 135 my $title = $_[1]->title->present ($_[0]);
129 $result[-1][P_MARKUP] = ::special h3 => $title if length $title; 136 $result[-1][P_MARKUP] = ::special h3 => $title if length $title;
130 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 137 $title = ::flatten $title;
138 unshift @{ $result[-1][P_INDEX] || [] }, $title
139 if !$result[-1][P_INDEX];
131 local $level = $level + 1; 140 local $level = $level + 1;
132 $_[1]->content->present ($_[0]); 141 $_[1]->content->present ($_[0]);
133 () 142 ()
134}; 143};
135 144
… …
142 151
143sub view_item { 152sub view_item {
144 push @result, [ $indent * 8, $level ]; 153 push @result, [ $indent * 8, $level ];
145 my $title = $_[1]->title->present ($_[0]); 154 my $title = $_[1]->title->present ($_[0]);
146 $result[-1][P_MARKUP] = "$title\n" if length $title; 155 $result[-1][P_MARKUP] = "$title\n" if length $title;
147 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 156 $title = ::flatten $title;
157 unshift @{ $result[-1][P_INDEX] || [] }, $title
158 if !$result[-1][P_INDEX];
148 local $level = $level + 1; 159 local $level = $level + 1;
149 $_[1]->content->present ($_[0]); 160 $_[1]->content->present ($_[0]);
150 () 161 ()
151} 162}
152 163
… …
196 push @{$wiki{lc $_}}, $node; 207 push @{$wiki{lc $_}}, $node;
197 } 208 }
198} 209}
199 210
200my $root; 211my $root;
201$root->[N_KW] = ["pod"]; 212$root->[N_KW] = ["Documents", "pod"];
213$root->[N_DOC] = [[0, 0, ::special link => "All Documents", "pod/*"]];
202 214
203for my $path (@ARGV) { 215for my $path (@ARGV) {
204 $path =~ /([^\/\\]+)\.pod$/ or die "$path: illegal pathname"; 216 $path =~ /([^\/\\]+)\.pod$/ or die "$path: illegal pathname";
205 my $base = $1; 217 my $base = $1;
206 my $pom = Pod::POM->new->parse_text (do { 218 my $pom = Pod::POM->new->parse_text (do {

Diff Legend

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