… | |
… | |
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 $pod; |
|
|
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 | |
|
|
246 | add_node $root; |
244 | |
247 | |
245 | Storable::nstore \%wiki, "docwiki.pst"; |
248 | Storable::nstore \%wiki, "docwiki.pst"; |
246 | |
249 | |
247 | add_node $root; |
|
|