Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Generate doc_pagelink_crossref.html which shows which pages link to which. Useful for finding orphans. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bd0b540d7b9f21fd096316733949fff2 |
| User & Date: | shaneh 2009-05-14 18:13:40.000 |
Context
|
2009-05-14
| ||
| 20:45 | Better doc_pagelink_crossref.html support. Now catches more hrefs outputted directly via hd_puts. (check-in: d0a850961d user: shaneh tags: trunk) | |
| 18:13 | Generate doc_pagelink_crossref.html which shows which pages link to which. Useful for finding orphans. (check-in: bd0b540d7b user: shaneh tags: trunk) | |
| 18:12 | Changed lang.html to use hd_resolve for linkage rather than crafted links. (check-in: 17a3eefb66 user: shaneh tags: trunk) | |
Changes
Changes to wrap.tcl.
| ︙ | ︙ | |||
541 542 543 544 545 546 547 | hd_close_main } # Generate a document showing the hyperlink keywords and their # targets. # hd_open_main doc_keyword_crossref.html | | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 |
hd_close_main
}
# Generate a document showing the hyperlink keywords and their
# targets.
#
hd_open_main doc_keyword_crossref.html
hd_header {Keyword Crossreference} $DOC/wrap.tcl
hd_puts "<ul>"
foreach x [lsort -dict [array names glink]] {
set y $glink($x)
hd_puts "<li>$x - <a href=\"$y\">$y</a></li>"
lappend revglink($y) $x
}
hd_puts "</ul>"
hd_close_main
hd_open_main doc_target_crossref.html
hd_header {Target Crossreference} $DOC/wrap.tcl
hd_puts "<ul>"
foreach y [lsort [array names revglink]] {
hd_puts "<li><a href=\"$y\">$y</a> - [lsort $revglink($y)]</li>"
}
hd_puts "</ul>"
hd_close_main
hd_open_main doc_backlink_crossref.html
hd_header {Backlink Crossreference} $DOC/wrap.tcl
hd_puts "<ul>"
foreach kw [lsort [array names backlink]] {
hd_puts "<li>$kw -"
set prev {}
foreach ref [lsort $backlink($kw)] {
if {$ref==$prev} continue
set prev $ref
hd_puts " <a href=\"$ref\">$ref</a>"
}
}
hd_puts "</ul>"
hd_close_main
hd_open_main doc_pagelink_crossref.html
hd_header {Pagelink Crossreference} $DOC/wrap.tcl
hd_puts "<p>Target Page - Which pages reference it.</p>"
hd_puts "<p>Pages matching (news|changes|releaselog|\[0-9]to\[0-9]|^hlr) are skipped.</p>"
hd_puts "<ul>"
foreach y [lsort [array names revglink]] {
regsub {#.*} $y {} y2
foreach kw [lsort $revglink($y)] {
if {[info exists backlink($kw)]} {
foreach ref [lsort $backlink($kw)] {
regsub {#.*} $ref {} ref2
lappend pagelink($y2) $ref2
}
}
}
}
foreach y [lsort [array names pagelink]] {
if {[regexp {(news|changes|releaselog|[0-9]to[0-9]|^hlr)} $y]} continue
hd_puts "<li><a href=\"$y\">$y</a> - "
set prev {}
foreach ref [lsort $pagelink($y)] {
if {$ref==$prev} continue
if {$ref==$y} continue
if {[regexp {(news|changes|releaselog|[0-9]to[0-9]|^hlr)} $ref]} continue
hd_puts "<a href=\"$ref\">$ref</a> "
set prev $ref
}
hd_puts "</li>"
}
hd_puts "</ul>"
hd_close_main
|