diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/auto.tcl | 8 | ||||
| -rw-r--r-- | library/clock.tcl | 8 | ||||
| -rw-r--r-- | library/history.tcl | 2 | ||||
| -rw-r--r-- | library/http/http.tcl | 8 | ||||
| -rw-r--r-- | library/init.tcl | 2 | ||||
| -rw-r--r-- | library/msgcat/msgcat.tcl | 12 | ||||
| -rw-r--r-- | library/opt/optparse.tcl | 22 | ||||
| -rw-r--r-- | library/package.tcl | 6 | ||||
| -rw-r--r-- | library/platform/platform.tcl | 2 | ||||
| -rw-r--r-- | library/platform/shell.tcl | 8 | ||||
| -rw-r--r-- | library/safe.tcl | 10 | ||||
| -rw-r--r-- | library/tcltest/tcltest.tcl | 32 | ||||
| -rw-r--r-- | library/tm.tcl | 18 | ||||
| -rw-r--r-- | library/word.tcl | 6 |
14 files changed, 72 insertions, 72 deletions
diff --git a/library/auto.tcl b/library/auto.tcl index 7d23b6e..f998b45 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -119,7 +119,7 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { $basename$patch library] } } - # uniquify $dirs in order + # make $dirs unique, preserving order array set seen {} foreach i $dirs { # Make sure $i is unique under normalization. Avoid repeated [source]. @@ -317,7 +317,7 @@ namespace eval auto_mkindex_parser { $parser expose eval $parser invokehidden rename eval _%@eval - # Install all the registered psuedo-command implementations + # Install all the registered pseudo-command implementations foreach cmd $initCommands { eval $cmd @@ -570,7 +570,7 @@ auto_mkindex_parser::hook { load {} tbcload $auto_mkindex_parser::parser # AUTO MKINDEX: tbcload::bcproc name arglist body - # Adds an entry to the auto index list for the given pre-compiled + # Adds an entry to the auto index list for the given precompiled # procedure name. auto_mkindex_parser::commandInit tbcload::bcproc {name args} { @@ -625,7 +625,7 @@ auto_mkindex_parser::command namespace {op args} { } regsub -all ::+ $name :: name } - # create artifical proc to force an entry in the tclIndex + # create artificial proc to force an entry in the tclIndex $parser eval [list ::proc $name {} {}] } } diff --git a/library/clock.tcl b/library/clock.tcl index b51f86f..abe6c81 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -2298,7 +2298,7 @@ proc ::tcl::clock::MakeParseCodeFromFields { dateFields parseActions } { # Returns the locale that was previously current. # # Side effects: -# Does [mclocale]. If necessary, loades the designated locale's files. +# Does [mclocale]. If necessary, loads the designated locale's files. # #---------------------------------------------------------------------- @@ -2605,7 +2605,7 @@ proc ::tcl::clock::FormatStarDate { date } { # # Parameters: # year - Year from the Roddenberry epoch -# fractYear - Fraction of a year specifiying the day of year. +# fractYear - Fraction of a year specifying the day of year. # fractDay - Fraction of a day # # Results: @@ -2975,7 +2975,7 @@ proc ::tcl::clock::InterpretHMS { date } { # Returns the system time zone. # # Side effects: -# Stores the sustem time zone in the 'CachedSystemTimeZone' +# Stores the system time zone in the 'CachedSystemTimeZone' # variable, since determining it may be an expensive process. # #---------------------------------------------------------------------- @@ -3401,7 +3401,7 @@ proc ::tcl::clock::ReadZoneinfoFile {fileName fname} { close $f # The file begins with a magic number, sixteen reserved bytes, and then - # six 4-byte integers giving counts of fileds in the file. + # six 4-byte integers giving counts of fields in the file. binary scan $d a4a1x15IIIIII \ magic version nIsGMT nIsStd nLeap nTime nType nChar diff --git a/library/history.tcl b/library/history.tcl index ef9099b..8505c10 100644 --- a/library/history.tcl +++ b/library/history.tcl @@ -268,7 +268,7 @@ proc ::tcl::HistIndex {event} { return -code error "event \"$event\" is too far in the past" } if {$i > $history(nextid)} { - return -code error "event \"$event\" hasn't occured yet" + return -code error "event \"$event\" hasn't occurred yet" } return $i } diff --git a/library/http/http.tcl b/library/http/http.tcl index 5a09bb8..fb256a3 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -2356,7 +2356,7 @@ proc http::error {token} { # token The token returned from http::geturl # # Side Effects -# unsets the state array +# Unsets the state array. proc http::cleanup {token} { variable $token @@ -2375,7 +2375,7 @@ proc http::cleanup {token} { # http::Connect # -# This callback is made when an asyncronous connection completes. +# This callback is made when an asynchronous connection completes. # # Arguments # token The token returned from http::geturl @@ -3250,7 +3250,7 @@ proc http::CopyChunk {token chunk} { # # Arguments # token The token returned from http::geturl -# count The amount transfered +# count The amount transferred # # Side Effects # Invokes callbacks @@ -3293,7 +3293,7 @@ proc http::CopyDone {token count {error {}}} { # reason - "eof" means premature EOF (not EOF as the natural end of # the response) # - "" means completion of response, with or without EOF -# - anything else describes an error confition other than +# - anything else describes an error condition other than # premature EOF. # # Side Effects diff --git a/library/init.tcl b/library/init.tcl index 0655dc8..9412e00 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -200,7 +200,7 @@ if {[namespace which -command exec] eq ""} { set auto_noexec 1 } -# Define a log command (which can be overwitten to log errors +# Define a log command (which can be overwritten to log errors # differently, specially when stderr is not available) if {[namespace which -command tclLog] eq ""} { diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl index fa91a37..851ad77 100644 --- a/library/msgcat/msgcat.tcl +++ b/library/msgcat/msgcat.tcl @@ -32,7 +32,7 @@ namespace eval msgcat { # Configuration values per Package (e.g. client namespace). # The dict key is of the form "<option> <namespace>" and the value is the - # configuration option. A nonexisting key is an unset option. + # configuration option. A non-existing key is an unset option. variable PackageConfig [dict create mcfolder {} loadcmd {} changecmd {}\ unknowncmd {} loadedlocales {} loclist {}] @@ -179,7 +179,7 @@ namespace eval msgcat { # Find the translation for the given string based on the current # locale setting. Check the local namespace first, then look in each # parent namespace until the source is found. If additional args are -# specified, use the format command to work them into the traslated +# specified, use the format command to work them into the translated # string. # If no catalog item is found, mcunknown is called in the caller frame # and its result is returned. @@ -578,7 +578,7 @@ proc msgcat::mcforgetpackage {} { # mcfolder # The message catalog folder of the package. # This is automatically set by mcload. -# If the value is changed using the set subcommand, an evntual +# If the value is changed using the set subcommand, an eventual # loadcmd is invoked and all message files of the package locale are # loaded. # @@ -1013,7 +1013,7 @@ proc msgcat::mcflmset {pairs} { # by an application specific routine for error reporting # purposes. The default behavior is to return the source string. # If additional args are specified, the format command will be used -# to work them into the traslated string. +# to work them into the translated string. # # Arguments: # locale The current locale. @@ -1034,9 +1034,9 @@ proc msgcat::mcunknown {args} { # - Default global handler, if mcunknown is not redefined. # - Per package handler, if the package sets unknowncmd to the empty # string. -# It returna the source string if the argument list is empty. +# It returns the source string if the argument list is empty. # If additional args are specified, the format command will be used -# to work them into the traslated string. +# to work them into the translated string. # # Arguments: # locale (unused) The current locale. diff --git a/library/opt/optparse.tcl b/library/opt/optparse.tcl index 454b923..914ceff 100644 --- a/library/opt/optparse.tcl +++ b/library/opt/optparse.tcl @@ -75,7 +75,7 @@ namespace eval ::tcl { variable OptDescN 0 # Inside algorithm/mechanism description: -# (not for the faint hearted ;-) +# (not for the faint-hearted ;-) # # The argument description is parsed into a "program tree" # It is called a "program" because it is the program used by @@ -134,9 +134,9 @@ namespace eval ::tcl { # they should start to be much faster. # But this code use a lot of helper procs (like Lvarset) # which are quite slow and would be helpfully optimized -# for instance by being written in C. Also our struture +# for instance by being written in C. Also our structure # is complex and there is maybe some places where the -# string rep might be calculated at great exense. to be checked. +# string rep might be calculated at great expense. to be checked. # # Parse a given description and saves it here under the given key @@ -226,7 +226,7 @@ proc ::tcl::OptKeyDelete {key} { set OptDesc($descKey) } -# Parse entry point for ppl who don't want to register with a key, +# Parse entry point for people who don't want to register with a key, # for instance because the description changes dynamically. # (otherwise one should really use OptKeyRegister once + OptKeyParse # as it is way faster or simply OptProc which does it all) @@ -328,18 +328,18 @@ proc ::tcl::OptProcArgGiven {argname} { return $start } } - # Set the value field of the current instruction + # Set the value field of the current instruction. proc OptCurSetValue {descriptionsName value} { upvar $descriptionsName descriptions - # get the current item full adress + # Get the current item full address. set adress [OptCurAddr $descriptions] - # use the 3th field of the item (see OptValue / OptNewInst) + # Use the 3rd field of the item (see OptValue / OptNewInst). lappend adress 2 Lvarset descriptions $adress [list 1 $value] # ^hasBeenSet flag } - # empty state means done/paste the end of the program + # Empty state means done/paste the end of the program. proc OptState {item} { lindex $item 0 } @@ -352,11 +352,11 @@ proc ::tcl::OptProcArgGiven {argname} { ####### # Arguments manipulation - # Returns the argument that has to be processed now + # Returns the argument that has to be processed now. proc OptCurrentArg {lst} { lindex $lst 0 } - # Advance to next argument + # Advance to next argument. proc OptNextArg {argsName} { uplevel 1 [list Lvarpop1 $argsName] } @@ -553,7 +553,7 @@ proc ::tcl::OptKeyParse {descKey arglist} { if {[OptHasBeenSet $item]} { # puts "adding $vname" # lets use the input name for the returned list - # it is more usefull, for instance you can check that + # it is more useful, for instance you can check that # no flags at all was given with expr # {![string match "*-*" $Args]} lappend vnamesLst [OptName $item] diff --git a/library/package.tcl b/library/package.tcl index 4a73346..4ccc20a 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -69,7 +69,7 @@ proc tcl::Pkg::CompareExtension {fileName {ext {}}} { # than lazily when the first reference to an exported # procedure in the package is made. # -verbose (optional) Verbose output; the name of each file that -# was successfully rocessed is printed out. Additionally, +# was successfully processed is printed out. Additionally, # if processing of a file failed a message is printed. # -load pat (optional) Preload any packages whose names match # the pattern. Used to handle DLLs that depend on @@ -206,7 +206,7 @@ proc pkg_mkIndex {args} { package unknown tclPkgUnknown # Stub out the unknown command so package can call into each other - # during their initialilzation. + # during their initialization. proc unknown {args} {} @@ -720,7 +720,7 @@ proc ::tcl::Pkg::Create {args} { error $err(noLoadOrSource) } - # OK, now everything is good. Generate the package ifneeded statment. + # OK, now everything is good. Generate the package ifneeded statement. set cmdline "package ifneeded $opts(-name) $opts(-version) " set cmdList {} diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl index acaebf2..63d4d76 100644 --- a/library/platform/platform.tcl +++ b/library/platform/platform.tcl @@ -265,7 +265,7 @@ proc ::platform::LibcVersion {base _->_ vv} { set libc [lindex $libclist 0] - # Try executing the library first. This should suceed + # Try executing the library first. This should succeed # for a glibc library, and return the version # information. diff --git a/library/platform/shell.tcl b/library/platform/shell.tcl index 6eb9691..1e43409 100644 --- a/library/platform/shell.tcl +++ b/library/platform/shell.tcl @@ -27,7 +27,7 @@ proc ::platform::shell::generic {shell} { LOCATE base out set code {} - # Forget any pre-existing platform package, it might be in + # Forget any preexisting platform package, it might be in # conflict with this one. lappend code {package forget platform} # Inject our platform package @@ -52,7 +52,7 @@ proc ::platform::shell::identify {shell} { LOCATE base out set code {} - # Forget any pre-existing platform package, it might be in + # Forget any preexisting platform package, it might be in # conflict with this one. lappend code {package forget platform} # Inject our platform package @@ -99,14 +99,14 @@ proc ::platform::shell::LOCATE {bv ov} { upvar 1 $bv base $ov out # Locate the platform package for injection into the specified - # shell. We are using package management to find it, whereever it + # shell. We are using package management to find it, wherever it # is, instead of using hardwired relative paths. This allows us to # install the two packages as TMs without breaking the code # here. If the found package is wrapped we copy the code somewhere # where the spawned shell will be able to read it. # This code is brittle, it needs has to adapt to whatever changes - # are made to the TM code, i.e. the provide statement generated by + # are made to the TM code, i.e. the "provide" statement generated by # tm.tcl set pl [package ifneeded platform [package require platform]] diff --git a/library/safe.tcl b/library/safe.tcl index 59e4c90..1eafec0 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -169,7 +169,7 @@ proc ::safe::interpConfigure {args} { # it is most probably a set in fact but we would need # then to jump to the set part and it is not *sure* # that it is a set action that the user want, so force - # it to use the unambigous -statics ?value? instead: + # it to use the unambiguous -statics ?value? instead: return -code error\ "ambigous query (get or set -noStatics ?)\ use -statics instead" @@ -220,7 +220,7 @@ proc ::safe::interpConfigure {args} { } # we can now reconfigure : InterpSetConfig $slave $accessPath $statics $nested $deleteHook - # auto_reset the child (to completly synch the new access_path) + # auto_reset the child (to completely synch the new access_path) if {$doreset} { if {[catch {::interp eval $slave {auto_reset}} msg]} { Log $slave "auto_reset failed: $msg" @@ -332,7 +332,7 @@ proc ::safe::InterpSetConfig {child access_path staticsok nestedok deletehook} { moved it to front of slave's access_path" NOTICE } - # Add 1st level sub dirs (will searched by auto loading from tcl + # Add 1st level subdirs (will searched by auto loading from tcl # code in the child using glob and thus fail, so we add them here # so by default it works the same). set access_path [AddSubDirs $access_path] @@ -602,7 +602,7 @@ proc ::safe::interpDelete {child} { } # If the child has a cleanup hook registered, call it. Check the - # existance because we might be called to delete an interp which has + # existence because we might be called to delete an interp which has # not been registered with us at all if {[info exists state(cleanupHook)]} { @@ -636,7 +636,7 @@ proc ::safe::interpDelete {child} { return } -# Set (or get) the logging mecanism +# Set (or get) the logging mechanism proc ::safe::setLogCmd {args} { variable Log diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 7344f9f..984f5c1 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -153,7 +153,7 @@ namespace eval tcltest { } ##### Initialize internal arrays of tcltest, but only if the caller - # has not already pre-initialized them. This is done to support + # has not already preinitialized them. This is done to support # compatibility with older tests that directly access internals # rather than go through command interfaces. # @@ -163,7 +163,7 @@ namespace eval tcltest { return } if {[info exists $varName]} { - # Pre-initialized value is a scalar: destroy it! + # Preinitialized value is a scalar: Destroy it! unset $varName } array set $varName $value @@ -196,7 +196,7 @@ namespace eval tcltest { ArrayDefault testConstraints {} ##### Initialize internal variables of tcltest, but only if the caller - # has not already pre-initialized them. This is done to support + # has not already preinitialized them. This is done to support # compatibility with older tests that directly access internals # rather than go through command interfaces. # @@ -229,7 +229,7 @@ namespace eval tcltest { # check the current working dir for files created by the tests. # filesMade keeps track of such files created using the makeFile and # makeDirectory procedures. filesExisted stores the names of - # pre-existing files. + # preexisting files. # # Note that $filesExisted lists only those files that exist in # the original [temporaryDirectory]. @@ -298,7 +298,7 @@ namespace eval tcltest { # keep track of test level for nested test commands variable testLevel 0 - # the variables and procs that existed when saveState was called are + # the variables and procedures that existed when saveState was called are # stored in a variable of the same name Default saveState {} @@ -354,12 +354,12 @@ namespace eval tcltest { # be kept in sync with the [configure -outfile] configuration # option ( and underlying variable Option(-outfile) ). This is # accomplished with a write trace on Option(-outfile) that will - # update [outputChannel] whenver a new value is written. That + # update [outputChannel] whenever a new value is written. That # much is easy. # # The trick is that in order to maintain compatibility with # version 1 of tcltest, we must allow every configuration option - # to get its inital value from command line arguments. This is + # to get its initial value from command line arguments. This is # accomplished by setting initial read traces on all the # configuration options to parse the command line option the first # time they are read. These traces are cancelled whenever the @@ -482,7 +482,7 @@ namespace eval tcltest { # Initialize the default values of the configurable options that are # historically associated with an exported variable. If that variable - # is already set, support compatibility by accepting its pre-set value. + # is already set, support compatibility by accepting its preset value. # Use [trace] to establish ongoing connection between the deprecated # exported variable and the modern option kept as a true internal var. # Also set up usage string and value testing for the option. @@ -761,7 +761,7 @@ namespace eval tcltest { # even if the directory is not writable return $directory } - return -code error "\"$directory\" is not writeable" + return -code error "\"$directory\" is not writable" } return $directory } @@ -852,7 +852,7 @@ namespace eval tcltest { # tcltest::Debug* -- # # Internal helper procedures to write out debug information -# dependent on the chosen level. A test shell may overide +# dependent on the chosen level. A test shell may override # them, f.e. to redirect the output into a different # channel, or even into a GUI. @@ -1758,7 +1758,7 @@ proc tcltest::SubstArguments {argList} { # We need to split the argList up into tokens but cannot use list # operations as they throw away some significant quoting, and # [split] ignores braces as it should. Therefore what we do is - # gradually build up a string out of whitespace seperated strings. + # gradually build up a string out of whitespace-separated strings. # We cannot use [split] to split the argList into whitespace # separated strings as it throws away the whitespace which maybe # important so we have to do it all by hand. @@ -1865,7 +1865,7 @@ proc tcltest::SubstArguments {argList} { # match - specifies type of matching to do on result, # output, errorOutput; this must be a string # previously registered by a call to [customMatch]. -# The strings exact, glob, and regexp are pre-registered +# The strings exact, glob, and regexp are preregistered # by the tcltest package. Default value is exact. # # Arguments: @@ -1896,7 +1896,7 @@ proc tcltest::test {name description args} { FillFilesExisted incr testLevel - # Pre-define everything to null except output and errorOutput. We + # Predefine everything to null except output and errorOutput. We # determine whether or not to trap output based on whether or not # these variables (output & errorOutput) are defined. lassign {} constraints setup cleanup body result returnCodes errorCode match @@ -2491,7 +2491,7 @@ proc tcltest::cleanupTests {{calledFromAllFile 0}} { # Remove files and directories created by the makeFile and # makeDirectory procedures. Record the names of files in - # workingDirectory that were not pre-existing, and associate them + # workingDirectory that were not preexisting, and associate them # with the test file that created them. if {!$calledFromAllFile} { @@ -3449,7 +3449,7 @@ proc tcltest::threadReap {} { # Initialize the constraints and set up command line arguments namespace eval tcltest { - # Define initializers for all the built-in contraint definitions + # Define initializers for all the built-in constraint definitions DefineConstraintInitializers # Set up the constraints in the testConstraints array to be lazily @@ -3458,7 +3458,7 @@ namespace eval tcltest { trace add variable testConstraints read [namespace code SafeFetch] # Only initialize constraints at package load time if an - # [initConstraintsHook] has been pre-defined. This is only + # [initConstraintsHook] has been predefined. This is only # for compatibility support. The modern way to add a custom # test constraint is to just call the [testConstraint] command # straight away, without all this "hook" nonsense. diff --git a/library/tm.tcl b/library/tm.tcl index c60084c..02007d5 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -22,10 +22,10 @@ # # This covers the possibility that the application asked for a package # late, and the package was actually added to the installation after the -# application was started. It shoukld still be able to find it. +# application was started. It should still be able to find it. # # 2) It still is not there: Either way, you don't get it, but the rescan -# takes time. This is however an error case and we dont't care that much +# takes time. This is however an error case and we don't care that much # about it # # 3) It was there the first time; but for some reason a "package forget" has @@ -70,9 +70,9 @@ namespace eval ::tcl::tm { # No result for subcommands 'add' and 'remove'. A list of paths for # 'list'. # -# Sideeffects +# Side effects # The subcommands 'add' and 'remove' manipulate the list of paths to -# search for Tcl Modules. The subcommand 'list' has no sideeffects. +# search for Tcl Modules. The subcommand 'list' has no side effects. proc ::tcl::tm::add {args} { # PART OF THE ::tcl::tm::path ENSEMBLE @@ -81,7 +81,7 @@ proc ::tcl::tm::add {args} { # # The command enforces the restriction that no path may be an ancestor # directory of any other path on the list. If the new path violates this - # restriction an error wil be raised. + # restriction an error will be raised. # # If the path is already present as is no error will be raised and no # action will be taken. @@ -166,7 +166,7 @@ proc ::tcl::tm::list {} { # name - Name of desired package. # version - Version of desired package. Can be the # empty string. -# exact - Either -exact or ommitted. +# exact - Either -exact or omitted. # # Name, version, and exact are used to determine satisfaction. The # original is called iff no satisfaction was achieved. The name is also @@ -175,7 +175,7 @@ proc ::tcl::tm::list {} { # Results # None. # -# Sideeffects +# Side effects # May populate the package ifneeded database with additional provide # scripts. @@ -310,7 +310,7 @@ proc ::tcl::tm::UnknownHandler {original name args} { # Results # None. # -# Sideeffects +# Side effects # May add paths to the list of defaults. proc ::tcl::tm::Defaults {} { @@ -355,7 +355,7 @@ proc ::tcl::tm::Defaults {} { # Results # No result. # -# Sideeffects +# Side effects # Calls 'path add' to paths to the list of module search paths. proc ::tcl::tm::roots {paths} { diff --git a/library/word.tcl b/library/word.tcl index 828f13a..0c8e01c 100644 --- a/library/word.tcl +++ b/library/word.tcl @@ -5,7 +5,7 @@ # properly for different platforms. # # Copyright (c) 1996 Sun Microsystems, Inc. -# Copyright (c) 1998 Scritpics Corporation. +# Copyright (c) 1998 Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -14,7 +14,7 @@ # interpreted as white space. if {$::tcl_platform(platform) eq "windows"} { - # Windows style - any but a unicode space char + # Windows style - any but a Unicode space char if {![info exists ::tcl_wordchars]} { set ::tcl_wordchars {\S} } @@ -22,7 +22,7 @@ if {$::tcl_platform(platform) eq "windows"} { set ::tcl_nonwordchars {\s} } } else { - # Motif style - any unicode word char (number, letter, or underscore) + # Motif style - any Unicode word char (number, letter, or underscore) if {![info exists ::tcl_wordchars]} { set ::tcl_wordchars {\w} } |