Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge branch-3.29 enhancements into trunk, and in particular the hd_adunit change. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
caa36aeea03bc86fa1304704d705b3d6 |
| User & Date: | drh 2019-10-02 11:41:09 |
Context
|
2019-10-02
| ||
| 12:39 | Fix the history hyperlinks on the checklist app. check-in: 5cb74ba705 user: drh tags: trunk | |
| 11:41 | Merge branch-3.29 enhancements into trunk, and in particular the hd_adunit change. check-in: caa36aeea0 user: drh tags: trunk | |
| 11:36 | Add the ability to put an ad unit at the top of the index page and the download page. If the file "adunit.txt" exists in the build directory, then the content of that file is copied into the appropriate spot on those two pages. Leaf check-in: ea232463fc user: drh tags: branch-3.29 | |
| 10:40 | Typos and minor enhancements to the althttpd.md document. check-in: 5140eb346c user: drh tags: trunk | |
Changes
Changes to pages/download.in.
1 2 3 4 5 6 7 8 |
<title>SQLite Download Page</title>
<h2>SQLite Download Page</h2>
<table width="100%" cellpadding="5" cellspacing="0">
<tcl>
hd_keywords {download page}
set nDownload 0
|
> > |
1 2 3 4 5 6 7 8 9 10 |
<title>SQLite Download Page</title>
<tcl>hd_adunit</tcl>
<h2>SQLite Download Page</h2>
<table width="100%" cellpadding="5" cellspacing="0">
<tcl>
hd_keywords {download page}
set nDownload 0
|
Changes to pages/index.in.
1 2 3 4 5 6 7 8 |
<title>SQLite Home Page</title> <div class="rightsidebar desktoponly border2px"> <h3 align="center">Common Links</h3> <tcl>common_links</tcl> </div> <h3>What Is SQLite?</h3> |
> > |
1 2 3 4 5 6 7 8 9 10 |
<title>SQLite Home Page</title>
<tcl>hd_adunit</tcl>
<div class="rightsidebar desktoponly border2px">
<h3 align="center">Common Links</h3>
<tcl>common_links</tcl>
</div>
<h3>What Is SQLite?</h3>
|
Changes to wrap.tcl.
749 750 751 752 753 754 755 756 757 758 759 760 761 762 |
set b [string trim $hd_req_rdr(body)]
set c [string trim $hd_req_rdr(comment)]
set ::${varname}($rn) [list $hd_req_rdr(derived) $b $c]
lappend ::${varname}(*) $rn
}
hd_reset_requirement_reader
}
# First pass. Process all files. But do not render hyperlinks.
# Merely collect keyword information so that hyperlinks can be
# correctly rendered on the second pass.
#
foreach infile [lrange $argv 3 end] {
cd $HOMEDIR
|
> > > > > > > > > > > > > > > > > |
749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 |
set b [string trim $hd_req_rdr(body)]
set c [string trim $hd_req_rdr(comment)]
set ::${varname}($rn) [list $hd_req_rdr(derived) $b $c]
lappend ::${varname}(*) $rn
}
hd_reset_requirement_reader
}
# If the filed "adunit.txt" exists in the working
# directory, then insert a verbatim copy of the
# text of that file whenever the hd_adunit routine
# is seen. If the file does not exist or is not
# readable, then hd_adunit is a no-op.
#
if {[file readable adunit.txt]} {
set fd [open adunit.txt]
set ADUNIT [read $fd]
close $fd
proc hd_adunit {} {
hd_puts $::ADUNIT
}
} else {
proc hd_adunit {} {}
}
# First pass. Process all files. But do not render hyperlinks.
# Merely collect keyword information so that hyperlinks can be
# correctly rendered on the second pass.
#
foreach infile [lrange $argv 3 end] {
cd $HOMEDIR
|