Wapp

Differences From Artifact [80e166ac19]:

• File encode-binary-file.tcl — part of check-in [7c173f40cb] at 2018-02-01 22:07:51 on branch trunk — Move test files into the tests/ folder. Add the encode-binary-file.tcl utility script. Add an image to tests/test01.tcl. Move the "-translation binary" out of wappInt-handle-request and into wappInt-handle-cgi-request. (user: drh size: 611)

To Artifact [ce973538f2]:

• File encode-binary-file.tcl — part of check-in [c0bf5ea896] at 2024-04-15 10:28:22 on branch w3 — Rebrand as "W3" (user: drh size: 609)

14
15
16
17
18
19
20
21

22
23
24
25
26

14
15
16
17
18
19
20

21
22
23
24
25
26

-
+

if {$mode!="hex" && $mode!="base64"} {
  puts stderr "Usage: $argv0 (hex|base64) FILENAME"
  exit
}
set filename [lindex $argv 1]
set fd [open $filename rb]
set x [binary encode $mode [read $fd]]
puts "  wapp-unsafe \[binary decode $mode \173"
puts "  w3-unsafe \[binary decode $mode \173"
set n [string length $x]
for {set i 0} {$i<$n} {incr i 64} {
  puts "    [string range $x $i [expr {$i+63}]]"
}
puts "  \175\]"