nsf

Clone
Gustaf Neumann <neumann@wu-wien.ac.at>
committed
9877524
on 02 Jun 13
- improved handling of required configure parameters when classes are changed dynamically. When configure parameter are defined required… Show more
- improved handling of required configure parameters   when classes are changed dynamically.   When configure parameter are defined required, checking   for the absence of required parameter was only performed   at creation time. When objects were re-classed or their   classes extended with required parameters, later   calls to configure did not trigger exceptions. Now   we check for the existence of the instance variable   which addresses most of these points, but in future   we might wish a more general solution (see comment   for futures releases)

Show less

2-1-0-rc + 55 more
library/xotcl/library/comm/Access.xotcl (+2 -2)
1 1 # -*- tcl -*- $
2 2
3   set httpAccessVersion 0.92
  3 set httpAccessVersion 1.2
4 4 package provide xotcl::comm::httpAccess $httpAccessVersion
5 5
6 6 package require xotcl::comm::pcache
7 7 package require xotcl::comm::mime
8   package require xotcl::comm::connection
  8 package require xotcl::comm::connection 1.2
9 9 package require xotcl::trace
10 10
11 11 package require XOTcl 2.0
12 12
13 13 namespace eval ::xotcl::comm::httpAccess {
14 14     namespace import ::xotcl::*
15 15
16 16     variable os
17 17     variable VERSION
18 18
19 19     if {[catch {set os [exec uname -sr]}]} {
20 20         if {[catch {set os [exec uname -a]}]} { set os unknownOS }
21 21     }
22 22     if {![info exists VERSION]} { set VERSION 1.0 }
23 23
24 24
25 25     # assert is used only for invariants in the source
26 26     proc assert {f r} {
27 27         set got [eval $f]
28 28         if {$got != $r} {