Changes to HTML in Tcl between r0 and r1
Another example of the flexibility of [Tcl]. Any non-existent commands that look like HTML tags are output to standard out.
(blank line)
proc unknown args {
set args [string trim $args]
if {![regexp {^<.*>$} $args]} {
error "Unknown command: $args"
}
puts -nonewline [join $args]
return 0
}
<html>
<head><title>; puts "This is a test"; puts "joe"; <h>; puts "bob"; </title></head>
<body bgcolor="#FFFFFF" text="#000000">
puts "This is a test"
</body>
</html>
Legend
Only in r0
Only in r1 --> Modified slightly between r0 and r1