Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch tclish-args Excluding Merge-Ins
This is equivalent to a diff from 97b423d7fc to d6f9265bbe
2018-12-11
| ||
07:07 | merge tclish-args, which includes commits unrelated to its topic check-in: 0227bf5899 user: aspect tags: trunk | |
07:06 | boot.tcl can now pass args to a script correctly, tclish likes this Leaf check-in: d6f9265bbe user: aspect tags: tclish-args | |
2018-08-05
| ||
09:08 | add select object check-in: e570c71b81 user: aspect tags: trunk | |
2018-07-29
| ||
15:55 | provide close, reject unused args from serve check-in: 6ead9e4e36 user: aspect tags: tclish-args | |
2018-07-26
| ||
14:59 | tclish taking arguments: will require fixing boot.tcl's argv/0 handling check-in: 37c5eb27dc user: aspect tags: tclish-args | |
2018-07-24
| ||
13:25 | Note some teapot deficiencies while they're fresh check-in: 97b423d7fc user: aspect tags: trunk | |
13:14 | note some immediate fixme's check-in: da116e30d4 user: aspect tags: trunk | |
Changes to bin/tclish.
︙ | |||
53 54 55 56 57 58 59 | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + | proc atexit {script args} { set ns [uplevel 1 {namespace current}] set script "$script $args" trace add execution exit enter [thunk $script $ns] } proc lshift {_list} { upvar 1 $_list list if {[llength $list] == 0} { throw {LSHIFT EMPTY} "Attempt to shift an empty list!" } set list [lassign $list r] return $r } |
Changes to boot.tcl.
1 2 3 4 5 6 7 8 9 10 11 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | + - - - - - - - - - - - - + + + + + + + + + + + + + | #!/usr/bin/env tclsh # #lappend auto_path [file normalize [info script]/../modules] #::tcl::tm::path add [file normalize [info script]/../modules] proc boot {args} [format { {*}$args [list lappend auto_path %1$s] {*}$args [list ::tcl::tm::path add %1$s] } [list [file normalize [info script]/../modules]]] boot eval package provide boot 0.1 if {[info exists ::argv0] && ($::argv0 eq [info script])} { |
Changes to hacks/cuppa/tpc.tcl.
︙ | |||
20 21 22 23 24 25 26 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | - + - - + + + + + + + | # - put commands into a namespace with docs # [ ] modularise and use appdirs # [ ] parse tclenv.txt -> uninstall # - empty interp # [ ] assemble & distribute # [ ] isatty() ? # |
︙ | |||
94 95 96 97 98 99 100 | 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | + + + + + - + | proc log {text} { puts stderr "# $text" } proc isatty {} { # unix: expr {![catch {chan configure stdout -mode}]} # doesn't work on windows (according to wine). But wine+tclkit does get # -encoding unicode ... if tty (unicode? what fucking sort of encoding is that?) # -encoding [encoding system] ... if redirected # uglier alternative: |
︙ |
Changes to inet/inet.tcl.
︙ | |||
256 257 258 259 260 261 262 263 264 265 266 267 268 269 | 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 | + + + + + + + + + + + + + + + + + + + + + + | count or list of the particular product or product slot. Vending machines should NEVER NEVER EVER eat money. } {puts $chan $line} } } } } service http/80 { ;# rfc2616 - see minhttpd for a much more careful implementation chan configure $chan -encoding iso8859-1 -translation crlf gets $chan reqline if {![regexp {^GET (\S+) HTTP/1.1$} $reqline -> uri]} { puts $chan "HTTP/1.1 400 Bad Request" puts $chan "Connection: close" puts $chan "" throw {HTTP INVALID REQUEST} "Invalid request [list $reqline]" } while {[gets $chan line]>0} {} puts $chan "HTTP/1.1 200 OK" puts $chan "Connection: close" puts $chan "" puts $chan "Hello, world!" } service ident/113 { ;# rfc1413 if {[gets $chan line] > 0} { set parts [lmap x [split $line ,] {string trim $x}] lassign $parts remote local if {![string is integer -strict $local] || $local < 1 || $local >= 2**16} { |
︙ |
Added modules/minhttpd-0.tm.