… | |
… | |
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]; |
223 | add_node $pod; |
224 | |
224 | |
225 | for my $idx (0 .. $#$para) { |
225 | for my $idx (0 .. $#$para) { |
226 | my $par = $para->[$idx]; |
226 | my $par = $para->[$idx]; |
227 | |
227 | |
228 | while ($parent[-1][N_LEVEL] >= $par->[P_LEVEL]) { |
228 | while ($parent[-1][N_LEVEL] >= $par->[P_LEVEL]) { |
… | |
… | |
242 | } |
242 | } |
243 | } |
243 | } |
244 | |
244 | |
245 | Storable::nstore \%wiki, "docwiki.pst"; |
245 | Storable::nstore \%wiki, "docwiki.pst"; |
246 | |
246 | |
|
|
247 | add_node $root; |