Wapp

Check-in [199a1a71c1]
Login

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

Overview
Comment:Fix is so that it runs with Tcl9.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 199a1a71c1dbc7df45bc6a85e0c40d82f2af4c7d43282c9df7e14684f0bee59a
User & Date: drh 2024-09-29 22:40:27.742
Context
2024-10-14
11:16
Do not require CRLF endings from clients. (check-in: 2b091c8428 user: drh tags: trunk)
2024-10-13
19:20
The line-ending is always a bare U+000a character only. Wapp no longer sends CRLF line endings. (Leaf check-in: 293f95b663 user: drh tags: omit-cr)
2024-09-29
22:40
Fix is so that it runs with Tcl9. (check-in: 199a1a71c1 user: drh tags: trunk)
22:03
Update the built-in SQLite to the latest 3.47.0 alpha. (check-in: 0819ed51b3 user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to Makefile. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/make

CFLAGS = -Os -static
CC = gcc $(CFLAGS)
OPTS = -DSQLITE_ENABLE_DESERIALIZE
TCLLIB = /home/drh/tcl/lib/libtcl8.6.a -lm -lz -lpthread -ldl
TCLINC = /home/drh/tcl/include
TCLSH = tclsh

all: wapptclsh

wapptclsh: wapptclsh.c
	$(CC) -I. -I$(TCLINC) -o $@ $(OPTS) wapptclsh.c $(TCLLIB)







|
|








1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/make

CFLAGS = -Os -static
CC = gcc $(CFLAGS)
OPTS = -DSQLITE_ENABLE_DESERIALIZE
TCLLIB = /home/drh/tcl/tcl9/lib/libtcl9.0.a -lm -lz -lpthread -ldl
TCLINC = /home/drh/tcl/tcl9/include
TCLSH = tclsh

all: wapptclsh

wapptclsh: wapptclsh.c
	$(CC) -I. -I$(TCLINC) -o $@ $(OPTS) wapptclsh.c $(TCLLIB)
︙︙
Changes to wapp.tcl.
︙︙
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#
# Design rules:
#
#   (1)  All identifiers in the global namespace begin with "wapp"
#
#   (2)  Indentifiers intended for internal use only begin with "wappInt"
#
package require Tcl 8.6

# Add text to the end of the HTTP reply.  No interpretation or transformation
# of the text is performs.  The argument should be enclosed within {...}
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt








|








12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#
# Design rules:
#
#   (1)  All identifiers in the global namespace begin with "wapp"
#
#   (2)  Indentifiers intended for internal use only begin with "wappInt"
#
if {$::tcl_version < 8.6} {package require Tcl 8.6}

# Add text to the end of the HTTP reply.  No interpretation or transformation
# of the text is performs.  The argument should be enclosed within {...}
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt
︙︙