Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 17 May 2003 09:40:20 -0000 1.15 +++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 29 Oct 2003 10:12:41 -0000 1.16 @@ -244,10 +244,10 @@ if { [lsearch $arg_flags "boolean"] >= 0 } { set default_values(${arg}_p) 0 - append switch_code " -$arg - -$arg=1 { + append switch_code " -$arg - -$arg=1 - -$arg=t - -$arg=true { ::uplevel ::set ${arg}_p 1 } - -$arg=0 { + -$arg=0 - -$arg=f - -$arg=false { ::uplevel ::set ${arg}_p 0 } " @@ -313,7 +313,7 @@ nsv_set proc_doc $proc_name [lindex $doc_elements(main) 0] if { [nsv_exists proc_source_file $proc_name] \ && [string compare [nsv_get proc_source_file $proc_name] [info script]] != 0 } { - ns_log Notice "Multiple definition of $proc_name in [nsv_get proc_source_file $proc_name] and [info script]" + ns_log Warning "Multiple definition of $proc_name in [nsv_get proc_source_file $proc_name] and [info script]" } nsv_set proc_source_file $proc_name [info script] @@ -451,10 +451,11 @@

- However, you could invoke the procedure as foobar -foo=$some_boolean_value, + However, you could invoke the procedure as foobar -foo=$some_boolean_value + (where some_boolean_value can be 0, 1, t, f, true, false), which could make your procedure cleaner because you could write instead: some_proc -flush=$foo_p $key. - +

With named parameters, the same rule as the Tcl switch statement apply, meaning that -- marks the end of the parameters. This is important if