--- deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 02:43:23	1.1
+++ deliantra/Deliantra-Client/bin/pod2wiki	2008/04/02 13:27:55	1.17
@@ -1,17 +1,23 @@
 #! perl
 
-use Storable;
-
 # convert given .pod files to wiki style
 
+# base path of arch tree, only used for new arch graphics
+my $ARCH = "/root/devel/cvs/cf.schmorp.de/arch";
+
 use strict;
 
+use Storable;
 use Pod::POM;
 
 our @result;
 our $indent;
 our $level;
 
+my $MA_BEG = "\x{fcd0}";
+my $MA_SEP = "\x{fcd1}";
+my $MA_END = "\x{fcd2}";
+
 sub asxml($) {
    local $_ = $_[0];
 
@@ -33,19 +39,36 @@
    $_
 }
 
+sub special {
+   $MA_BEG . (join $MA_SEP, @_) . $MA_END
+}
+
 package AsParagraphs;
 
 use strict;
 
 use base "Pod::POM::View";
 
+# nodes (order must stay as it is)
+sub N_PARENT (){ 0 }
+sub N_PAR    (){ 1 }
+sub N_LEVEL  (){ 2 }
+sub N_KW     (){ 3 }
+sub N_DOC    (){ 4 }
+
+# paragraphs (order must stay as it is)
+sub P_INDENT (){ 0 }
+sub P_LEVEL  (){ 1 }
+sub P_MARKUP (){ 2 }
+sub P_INDEX  (){ 3 }
+
 *view_seq_file   =
 *view_seq_code   =
 *view_seq_bold   = sub { "<b>$_[1]</b>" };
 *view_seq_italic = sub { "<i>$_[1]</i>" };
 *view_seq_zero   = sub { };
 *view_seq_space  = sub { my $text = $_[1]; $text =~ s/ /&#160;/g; $text };
-*view_seq_index  = sub { push @{ $result[-1]{index} }, $_[1]; "" };
+*view_seq_index  = sub { push @{ $result[-1][P_INDEX] }, $_[1]; "" };
 
 sub view_seq_text {
    my $text = $_[1];
@@ -56,79 +79,64 @@
 sub view_seq_link {
    my (undef, $link) = @_;
 
-   # TODO:
-   # http://...
-   # ref
-   # pod/ref
+   $link =~ s/^(.*)\|//
+      or $link =~ /([^\/]*)$/;
 
-   "<u>" . (::asxml $_[1]) . "</u>";
-}
+   my $text = $1;
 
-sub view_item {
-   push @result, {
-      indent => $indent * 8,
-      level  => $level,
-   };
-   my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "$title\n\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
-   local $level = $level + 1;
-   $_[1]->content->present ($_[0]);
-   ()
+   if ($link =~ /http:/) {
+      "<u>" . (::asxml $link) . "</u>"
+   } elsif ($link =~ /^\$ARCH\/(.+)$/) {
+      my $path = $1;
+      (my $base = $path) =~ s/.*\///;
+      -f "$ARCH/$path" && system "rsync -av -c \Q$ARCH/$path\E \Qresources/arch/$base";
+      ::special image => "arch/$base", 1;
+   } else {
+      ::special link => $text, $link
+   }
 }
 
 sub view_verbatim {
-   push @result, {
-      indent => $indent * 16,
-      level  => $level,
-      markup => "<tt>" . (::asxml $_[1]) . "</tt>\n",
-   };
+   push @result, [ $indent * 16, $level, "<tt>" . (::asxml $_[1]) . "</tt>\n" ];
    ()
 }
 
 sub view_textblock {
-   push @result, {
-      indent => $indent * 16,
-      level  => $level,
-      markup => "$_[1]\n",
-   };
+   push @result, [ $indent * 16, $level, "$_[1]\n" ];
    ()
 }
 
 sub view_head1 {
-   push @result, {
-      indent => $indent * 16,
-      level  => $level,
-   };
+   push @result, [ $indent * 16, $level ];
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1][P_MARKUP] = ::special h1 => $title if length $title;
+   $title = ::flatten $title;
+   unshift @{ $result[-1][P_INDEX] }, $title
+      if !$result[-1][P_INDEX];
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
 };
 
 sub view_head2 {
-   push @result, {
-      indent => $indent * 16,
-      level  => $level,
-   };
+   push @result, [ $indent * 16, $level ];
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1][P_MARKUP] = ::special h2 => $title if length $title;
+   $title = ::flatten $title;
+   unshift @{ $result[-1][P_INDEX] }, $title
+      if !$result[-1][P_INDEX];
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
 };
 
 sub view_head3 {
-   push @result, {
-      indent => $indent * 16,
-      level  => $level,
-   };
+   push @result, [ $indent * 16, $level ];
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "\n\n<span size='large'>$title</span>\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1][P_MARKUP] = ::special h3 => $title if length $title;
+   $title = ::flatten $title;
+   unshift @{ $result[-1][P_INDEX] || [] }, $title
+      if !$result[-1][P_INDEX];
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
@@ -136,23 +144,38 @@
 
 sub view_over {
    local $indent = $indent + $_[1]->indent;
-   push @result, { indent => $indent };
+   push @result, [ $indent, $level ];
+   $_[1]->content->present ($_[0]);
+   ()
+}
+
+sub view_item {
+   push @result, [ $indent * 8, $level ];
+   my $title = $_[1]->title->present ($_[0]);
+   $result[-1][P_MARKUP] = "$title\n" if length $title;
+   $title = ::flatten $title;
+   unshift @{ $result[-1][P_INDEX] || [] }, $title
+      if !$result[-1][P_INDEX];
+   local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
 }
 
 sub view_for {
    if ($_[1]->format eq "image") {
-      push @result, {
-         indent => $indent * 16,
-         level  => $level,
-         markup => "\x{fffc}",
-         widget => [["CFPlus::UI::Image" => path => "pod/" . $_[1]->text]],
-      };
+      push @result, [
+         $indent * 16,
+         $level,
+         (::special image => "pod/" . $_->text),
+      ];
    }
    ()
 }
 
+sub view_begin {
+   ()
+}
+
 sub view {
    my ($self, $type, $item) = @_;
 
@@ -164,13 +187,13 @@
 sub as_paragraphs($) {
    my ($pom) = @_;
 
-   local @result = ( { } );
    local $indent = 0;
-   local $level  = 1;
+   local $level  = 2;
+   local @result = ( [] );
 
    $pom->present ("AsParagraphs");
 
-   [grep exists $_->{markup}, @result]
+   [grep $_->[P_INDEX] || defined $_->[P_MARKUP], @result]
 }
 
 #############################################################################
@@ -180,14 +203,14 @@
 sub add_node($) {
    my ($node) = @_;
 
-   for (@{ $node->{kw} || {} }) {
-      push @{$wiki{$_}}, $node;
+   for (@{ $node->[N_KW] || {} }) {
+      push @{$wiki{lc $_}}, $node;
    }
 }
 
-my $root = {
-   kw => ["pod"],
-};
+my $root;
+$root->[N_KW] = ["Documents", "pod"];
+$root->[N_DOC] = [[0, 0, ::special link => "All Documents", "pod/*"]];
 
 for my $path (@ARGV) {
    $path =~ /([^\/\\]+)\.pod$/ or die "$path: illegal pathname";
@@ -201,31 +224,38 @@
 
    my $para = as_paragraphs $pom;
 
-   my @parent = (
-      { parent => $root, kw => [$base], doc => $para, par => 0, level => 0 },
-   );
-   add_node $parent[-1];
+   my $pod;
+   $pod->[N_PARENT] = $root;
+   $pod->[N_PAR]    = 0;
+   $pod->[N_LEVEL]  = 1;
+   $pod->[N_KW]     = [$base];
+   $pod->[N_DOC]    = $para;
+
+   my @parent = ($pod);
 
    for my $idx (0 .. $#$para) {
       my $par = $para->[$idx];
 
-      while ($parent[-1]{level} >= $par->{level}) {
+      while ($parent[-1][N_LEVEL] >= $par->[P_LEVEL]) {
          pop @parent;
       }
 
-      if ($par->{index}) {
-         my $node = {
-            kw     => $par->{index},
-            parent => $parent[-1],
-            doc    => $para,
-            par    => $idx,
-            level  => $par->{level},
-         };
+      if ($par->[P_INDEX]) {
+         my $node;
+         $node->[N_PARENT] = $parent[-1];
+         $node->[N_PAR]    = $idx;
+         $node->[N_LEVEL]  = $par->[P_LEVEL];
+         $node->[N_KW]     = $par->[P_INDEX];
+         $node->[N_DOC]    = $para;
          push @parent, $node;
          add_node $node;
       }
    }
+
+   add_node $pod;
 }
 
+add_node $root;
+
 Storable::nstore \%wiki, "docwiki.pst";