Documentation Source Text

Check-in [caa36aeea0]
Login

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: caa36aeea03bc86fa1304704d705b3d65be17f543381e9cfae72bd5b13d4903d
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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