| … | |
… | |
| 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; |
|
|
