SQLite

Check-in [c47e53b4d0]
Login

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

Overview
Comment:Have wapptest.tcl display the name, OS and architecture of the host.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | wapptest
Files: files | file ages | folders
SHA3-256: c47e53b4d0f29628bd20ba3daf7e759c4bfed07710d982c095445c01376d57f5
User & Date: dan 2019-04-10 19:45:19.357
Context
2019-04-11
06:50
Fix the checksymbols target in Makefile.in. (check-in: 1956eb3481 user: dan tags: wapptest)
2019-04-10
19:45
Have wapptest.tcl display the name, OS and architecture of the host. (check-in: c47e53b4d0 user: dan tags: wapptest)
18:56
Various fixes for the wapptest.tcl script. (check-in: cbf4236560 user: dan tags: wapptest)
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to test/wapptest.tcl.
39
40
41
42
43
44
45





46
47
48
49
50
51
52
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57







+
+
+
+
+







  # releasetest.tcl script
  set G(releaseTest) [file join [file dirname [info script]] releasetest.tcl]

  set G(sqlite_version) "unknown"

  # Either "config", "running" or "stopped":
  set G(state) "config"

  set G(host) "(unknown host)"
  catch { set G(host) [exec hostname] } 
  append G(host) " $::tcl_platform(os) $::tcl_platform(osVersion)"
  append G(host) " $::tcl_platform(machine) $::tcl_platform(byteOrder)"
}

# Check to see if there are uncommitted changes in the SQLite source
# directory. Return true if there are, or false otherwise.
#
proc check_uncommitted {} {
  global G
279
280
281
282
283
284
285

286

287
288
289
290
291
292
293
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300







+

+







    wapp-trim {
      <div class=warning>
        WARNING: Uncommitted changes in checkout.
      </div>
    }
  }

  set host $G(host)
  wapp-trim {
      <div class=div>%string($host)</div>
      <div class=div id=controls> 
      <form action="control" method="post" name="control">
  }

  # Build the "platform" select widget. 
  set lOpt [array names ::Platforms]
  generate_select_widget Platform control_platform $lOpt $G(platform)