Documentation Source Text

Check-in [ea232463fc]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: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.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | branch-3.29
Files: files | file ages | folders
SHA3-256: ea232463fc234d1b5b0cba5380f9ad9b46b98361136638ae48a4d86787227263
User & Date: drh 2019-10-02 11:36:00.988
Context
2019-10-02
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)
2019-09-24
10:30
Use single-quoted strings in the documention for PRAGMA encoding. (check-in: 4c6aa056b7 user: drh tags: branch-3.29)
Changes
Unified Diff 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
︙︙