/ Check-in [c47e53b4]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

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 | SQL archive
Timelines: family | ancestors | descendants | both | wapptest
Files: files | file ages | folders
SHA3-256: c47e53b4d0f29628bd20ba3daf7e759c4bfed07710d982c095445c01376d57f5
User & Date: dan 2019-04-10 19:45:19
Context
2019-04-11
06:50
Fix the checksymbols target in Makefile.in. check-in: 1956eb34 user: dan tags: wapptest
2019-04-10
19:45
Have wapptest.tcl display the name, OS and architecture of the host. check-in: c47e53b4 user: dan tags: wapptest
18:56
Various fixes for the wapptest.tcl script. check-in: cbf42365 user: dan tags: wapptest
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/wapptest.tcl.

39
40
41
42
43
44
45





46
47
48
49
50
51
52
...
279
280
281
282
283
284
285

286

287
288
289
290
291
292
293
  # 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"





}

# 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
................................................................................
    wapp-trim {
      <div class=warning>
        WARNING: Uncommitted changes in checkout.
      </div>
    }
  }


  wapp-trim {

      <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)







>
>
>
>
>







 







>

>







39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
...
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
  # 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
................................................................................
    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)