[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Pod.pm

Comparing deliantra/Deliantra-Client/DC/Pod.pm (file contents):
Revision 1.18 by root, Tue Mar 25 01:46:36 2008 UTC vs.
Revision 1.20 by root, Sun Mar 30 00:25:11 2008 UTC

 sub P_INDENT (){ 0 }
 sub P_LEVEL  (){ 1 }
 sub P_MARKUP (){ 2 }
 sub P_INDEX  (){ 3 }
-*wiki = Storable::retrieve DC::find_rcfile "docwiki.pst";
+our %wiki;
+sub load_docwiki {
+   *wiki = Storable::retrieve $_[0];
+}
 sub goto_document($) {
    $goto_document->(split /\//, $_[0]);
 }
    return 1 unless @path;
    my $kw = lc pop @path;
-   $node = $node->{parent}
+   $node = $node->[N_PARENT]
       or return 0;
-   return scalar grep $_ eq $kw, @{ $node->{kw} };
+   return scalar grep $_ eq $kw, @{ $node->[N_KW] };
 }
 sub find(@) {
    my (@path) = @_;
    my ($node) = @_;
    my @path;
    # skip toplevel hierarchy pod/, because its not a document
-   while ($node->{parent}) {
+   while ($node->[N_PARENT]) {
       unshift @path, $node;
-      $node = $node->{parent};
+      $node = $node->[N_PARENT];
    }
    @path
 }
 sub full_path($) {
-   join "/", map $_->{kw}[0], &full_path_of
+   join "/", map $_->[N_KW][0], &full_path_of
 }
 sub section_of($) {
    my ($node) = @_;
-   my $doc = $node->{doc};
+   my $doc = $node->[N_DOC];
-   my $par = $node->{par};
+   my $par = $node->[N_PAR];
-   my $lvl = $node->{level};
+   my $lvl = $node->[N_LEVEL];
    my @res;
    do {
       my $p = $doc->[$par];

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