Index: generic/aol-xotcl.tcl =================================================================== diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- generic/aol-xotcl.tcl (.../aol-xotcl.tcl) (revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0) +++ generic/aol-xotcl.tcl (.../aol-xotcl.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -1,11 +1,11 @@ # # Load Next Scripting Framework, XOTcl and some related packages for -# AOLserver 4.* and naviserver. +# AOLserver 4.* and NaviServer. # -# - aolserver: rewrite essentially _ns_savenamespaces to include the +# - AOLserver: rewrite essentially _ns_savenamespaces to include the # serialized objects # -# - naviserver: just needed for the package require +# - NaviServer: just needed for the package require # the serialization logic resides in ns/tcl/nstrace.tcl # # We expect to find the package in standard Tcl package search path Index: generic/nsf.c =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- generic/nsf.c (.../nsf.c) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ generic/nsf.c (.../nsf.c) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -17101,7 +17101,7 @@ if (likely(result == TCL_OK)) { /* - * The shadowed proc was created successfuly. Retrieve the defined proc + * The shadowed proc was created successfully. Retrieve the defined proc * and set its namespace to the namespace of the stub cmd. */ Tcl_Command procCmd = Tcl_GetCommandFromObj(interp, procNameObj); Index: generic/nsf.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- generic/nsf.tcl (.../nsf.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ generic/nsf.tcl (.../nsf.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -143,7 +143,7 @@ if {[info command ::ns_log] ne ""} { proc ::nsf::log {level msg} { # The function might be called in situations in - # aolserver/naviserver, where ns_log is not available. + # aolserver/NaviServer, where ns_log is not available. if {[info command ::ns_log] ne ""} { ::ns_log $level "nsf: $msg" } else { Index: generic/nsfInt.h =================================================================== diff -u -rf934951db464db1a6f39ac98290ecde17a466cd7 -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- generic/nsfInt.h (.../nsfInt.h) (revision f934951db464db1a6f39ac98290ecde17a466cd7) +++ generic/nsfInt.h (.../nsfInt.h) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -730,11 +730,11 @@ "alias", "args", "cmd", "filter", "forward", "method", "object", "setter", "settername", "valuecheck", "-guard", "__unknown__", "::array", "get", "set", "-strict", - /* nsf tcl commands */ + /* nsf Tcl commands */ "::nsf::object::unknown", "::nsf::argument::unknown", "::nsf::parseargs", - /* tcl commands */ + /* Tcl commands */ "expr", "format", "::tcl::info::body", "::tcl::info::frame", "interp", "::tcl::string::is", "::eval", "rename" @@ -851,7 +851,7 @@ /* * Tcl uses 01 and 02, TclOO uses 04 and 08, so leave some space free - * for further extensions of tcl and tcloo... + * for further extensions of Tcl and tcloo... */ #define FRAME_IS_NSF_OBJECT 0x10000U #define FRAME_IS_NSF_METHOD 0x20000U Index: library/lib/make.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/lib/make.tcl (.../make.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ library/lib/make.tcl (.../make.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -6,7 +6,7 @@ # adjust the paths; # - auto_path is needed, when nx is loaded via good old pkgIndex.tcl -# - tcl::tm::roots is needed when nx is provided as a tcl module (.tm) +# - tcl::tm::roots is needed when nx is provided as a Tcl module (.tm) lappend auto_path .. ::tcl::tm::roots [pwd] #puts stderr TM-LIST=[ ::tcl::tm::path list ] @@ -120,7 +120,7 @@ } } -### tcl file-command +### Tcl file-command rename file tcl_file nx::Object create file { :require namespace Index: library/lib/mkIndex.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/lib/mkIndex.tcl (.../mkIndex.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ library/lib/mkIndex.tcl (.../mkIndex.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -6,7 +6,7 @@ # adjust the paths; # - auto_path is needed, when nx is loaded via good old pkgIndex.tcl -# - tcl::tm::roots is needed when nx is provided as a tcl module (.tm) +# - tcl::tm::roots is needed when nx is provided as a Tcl module (.tm) lappend auto_path .. # Is support for Tcl modules available (>= Tcl 8.5)? Index: library/lib/nx-shell.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/lib/nx-shell.tcl (.../nx-shell.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ library/lib/nx-shell.tcl (.../nx-shell.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -1,4 +1,4 @@ -# -*- tcl -*- +# -*- Tcl -*- ############################################################ # nx-shell.tcl -- # Index: library/lib/nx-zip.tcl =================================================================== diff -u -r5f294355a07a9b47efeb9e7e4f8e36462ad3fb8b -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/lib/nx-zip.tcl (.../nx-zip.tcl) (revision 5f294355a07a9b47efeb9e7e4f8e36462ad3fb8b) +++ library/lib/nx-zip.tcl (.../nx-zip.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -24,7 +24,7 @@ # - addString (add the file-content from a string to the archive) # # - writeToZipFile (produce a Zip file) - # - ns_returnZipFile (return a zip file via aolserver ns_return) + # - ns_returnZipFile (return a zip file via AOLserver ns_return) # # - writeToStream (for already opened and configured # output streams @@ -63,7 +63,7 @@ } # - # return the added files via aolserver/naviserver to the client + # return the added files via aolserver/NaviServer to the client # :public method ns_returnZipFile {zipFileName} { ns_write "HTTP/1.0 200 OK\r\nContent-type: application/zip\r\n" @@ -72,7 +72,7 @@ set channel [ns_conn channel] fconfigure $channel -translation binary :writeToStream $channel - # aolserver/naviserver closes the channel automatically + # aolserver/NaviServer closes the channel automatically } # Index: library/nx/nx.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/nx/nx.tcl (.../nx.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ library/nx/nx.tcl (.../nx.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -1,4 +1,4 @@ -# -*- tcl -*- +# -*- Tcl -*- ############################################################ # nx.tcl -- # @@ -360,7 +360,7 @@ set arguments [lrange [::nsf::current args] 1 end] set object [dict get $pathData object] - if {[info exists target] && [string range $target 0 0] eq "-"} { + if {[info exists target] && [string index $target 0] eq "-"} { error "target '$target' must not start with a dash" } if {[info exists frame] && $frame ni {object default}} { @@ -584,7 +584,7 @@ set pathData [:__resolve_method_path -per-object $methodName] set object [dict get $pathData object] - if {[info exists target] && [string range $target 0 0] eq "-"} { + if {[info exists target] && [string index $target 0] eq "-"} { error "target '$target' must not start with a dash" } if {[info exists frame] && $frame ni {object default}} { Index: library/serialize/serializer.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/serialize/serializer.tcl (.../serializer.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -61,7 +61,7 @@ <@tt>ignore and <@tt>ignoreVarsRE see <@tt>Serizalizer all. <@tt>map can be used in addition to provide pairs of old-string and new-string - (like in the tcl command <@tt>string map). This option + (like in the Tcl command <@tt>string map). This option can be used to regenerate the serialized object under a different object or under an different name, or to translate relative object names in the serialized code.

Index: library/xotcl/library/xotcl2.tcl =================================================================== diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae --- library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision 6af35a888e33da976e283271bb68060f34d91a9a) +++ library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae) @@ -1,4 +1,4 @@ -# -*- tcl -*- +# -*- Tcl -*- ############################################################ # xotcl2.tcl -- # @@ -374,7 +374,7 @@ target:optional args } { set arglist [list] - if {[info exists target] && [string range $target 0 0] eq "-"} { + if {[info exists target] && [string index $target 0] eq "-"} { error "target '$target' must not start with a dash" } if {[info exists default]} {lappend arglist -default $default} @@ -398,7 +398,7 @@ target:optional args } { set arglist [list] - if {[info exists target] && [string range $target 0 0] eq "-"} { + if {[info exists target] && [string index $target 0] eq "-"} { error "target '$target' must not start with a dash" } if {[info exists default]} {lappend arglist -default $default}