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. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | bd0b540d7b9f21fd096316733949fff2 |
| User & Date: | shaneh 2009-05-14 18:13:40 |
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
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
|
hd_close_main
}
# Generate a document showing the hyperlink keywords and their
# targets.
#
hd_open_main doc_keyword_crossref.html
hd_header {Hyperlink 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
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|