Index: ChangeLog-2.0.0-2.1.0.log
===================================================================
diff -u -racc1c347010153b600d440af866809a544dd3f65 -rf934951db464db1a6f39ac98290ecde17a466cd7
--- ChangeLog-2.0.0-2.1.0.log (.../ChangeLog-2.0.0-2.1.0.log) (revision acc1c347010153b600d440af866809a544dd3f65)
+++ ChangeLog-2.0.0-2.1.0.log (.../ChangeLog-2.0.0-2.1.0.log) (revision f934951db464db1a6f39ac98290ecde17a466cd7)
@@ -38,7 +38,7 @@
2016-12-18 Gustaf Neumann This document describes the differences between the Next Scripting
Language Framework and XOTcl 1. In particular, it presents a
migration guide from XOTcl 1 to NX, and presents potential
-incompatibilities beween XOTcl 1 and XOTcl 2.
The Next Scripting Language (NX) is a successor of XOTcl 1 and is based on 10 years of experience with XOTcl in projects containing @@ -1634,7 +1634,7 @@ # # NX does not provide own methods, but uses # the low level framework commands, since -# application developer will only seldomly +# application developer will only seldom # need it. Class create C @@ -1775,14 +1775,14 @@ # method, forward, alias # Class create C { - :/method-definiton-method/ ... - :public /method-definiton-method/ ... - :protected /method-definiton-method/ ... - :private /method-definiton-method/ ... - :object /method-definiton-method/ ... - :public object /method-definiton-method/ ... - :protected object /method-definiton-method/ ... - :private object /method-definiton-method/ ... + :/method-definition-method/ ... + :public /method-definition-method/ ... + :protected /method-definition-method/ ... + :private /method-definition-method/ ... + :object /method-definition-method/ ... + :public object /method-definition-method/ ... + :protected object /method-definition-method/ ... + :private object /method-definition-method/ ... }
d1 foo
). The
next three calls show how to provide flags that influence the method
resolution. The flags can be provided between the colon and the method
-name. These flags are used rather seldomly but can be helpful in some
+name. These flags are used rather seldom but can be helpful in some
situations.
The invocation flag -local
means that the method has to be resolved
from the same place, where the current method is defined. Since the
@@ -2825,7 +2825,7 @@
allowed.
If the same checks are used in many places in the program, defining names for the value checker will be the better choice since -it improves maintainability. For seldomly used kind of checks, the +it improves maintainability. For seldom used kind of checks, the parameterized value checkers might be more convenient.
SoccerTeam method newPlayer args {# we create a new player who is part of the soccer team -# "eval" is needed to pass the provided arguments seperately to the call of new +# "eval" is needed to pass the provided arguments separately to the call of new eval Player new -childof [self] $args }
-A player can be transfered to another team. The player object does +A player can be transferred to another team. The player object does not change internally (e.g. the playerRole stays the same). Therefore we move it to the destination team.
@@ -776,7 +776,7 @@Class TransferObserver { :method transferPlayer {pname destinationTeam} { - puts "Player '$pname' is transfered to Team '[$destinationTeam name]'" + puts "Player '$pname' is transferred to Team '[$destinationTeam name]'" next } } @@ -920,7 +920,7 @@ intrinsic changes of object properties (in contrast to extrinsic properties e.g. modeled through roles and implemented through per-object and per-class mixins [Neumann and -Zdun 1999c] ) . These changes can be achieved without loosing the +Zdun 1999c] ) . These changes can be achieved without losing the object's identity, its inner state, and its per-object behavior (methods and mixins). @@ -1816,7 +1816,7 @@ dynamics is the changing of the relationship between object and class. This means, objects can also change their class dynamically at run-time. This feature may be used to model a life-cycle of an object, -without loosing the object's identity, inner state or +without losing the object's identity, inner state or per-object-specializations through procs. The class instance method enables this functionality. Index: generic/aolstub.c =================================================================== diff -u -r24571ae44c492c681d3efd2f2d2f5169ad7d6d57 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- generic/aolstub.c (.../aolstub.c) (revision 24571ae44c492c681d3efd2f2d2f5169ad7d6d57) +++ generic/aolstub.c (.../aolstub.c) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -114,7 +114,7 @@ * * So, we made sure (by patching the AOLserver code) that no commands with * delete callbacks declared, are ever copied from the startup thread. - * Additionaly, we also made sure that AOLserver properly invokes any + * Additionally, we also made sure that AOLserver properly invokes any * AtCreate callbacks. So, instead of activating those callbacks *after* * running the Tcl-initialization script (which is the standard behaviour) * we activate them *before*. So we may get a chance to configure the Index: generic/asm/asmAssembleTemplate.c =================================================================== diff -u -r24571ae44c492c681d3efd2f2d2f5169ad7d6d57 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- generic/asm/asmAssembleTemplate.c (.../asmAssembleTemplate.c) (revision 24571ae44c492c681d3efd2f2d2f5169ad7d6d57) +++ generic/asm/asmAssembleTemplate.c (.../asmAssembleTemplate.c) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -9,7 +9,7 @@ NULL }; -enum asmStatmentArgTypeIndex { +enum asmStatementArgTypeIndex { asmStatementArgTypeArgIdx, asmStatementArgTypeArgvIdx, asmStatementArgTypeInstructionIdx, @@ -261,7 +261,7 @@ */ for (patchPtr = &patchArray[0]; patchPtr < patches; patchPtr++) { - fprintf(stderr, "wanna patch code[%d]->argv = code[%d]->argv[%d]\n", + fprintf(stderr, "want to patch code[%d]->argv = code[%d]->argv[%d]\n", patchPtr->targetAsmInstruction, patchPtr->sourceAsmInstruction, patchPtr->argvIndex); /* set the argument vector of code[1] to the address of code[4]->argv[1] */ (&proc->code[patchPtr->targetAsmInstruction])->argv = Index: generic/asm/nsfAsmAssemble.c =================================================================== diff -u -r24571ae44c492c681d3efd2f2d2f5169ad7d6d57 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- generic/asm/nsfAsmAssemble.c (.../nsfAsmAssemble.c) (revision 24571ae44c492c681d3efd2f2d2f5169ad7d6d57) +++ generic/asm/nsfAsmAssemble.c (.../nsfAsmAssemble.c) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -49,7 +49,7 @@ NULL }; -enum asmStatmentArgTypeIndex { +enum asmStatementArgTypeIndex { asmStatementArgTypeArgIdx, asmStatementArgTypeArgvIdx, asmStatementArgTypeInstructionIdx, @@ -567,7 +567,7 @@ */ for (patchPtr = &patchArray[0]; patchPtr < patches; patchPtr++) { - fprintf(stderr, "wanna patch code[%d]->argv = code[%d]->argv[%d]\n", + fprintf(stderr, "want to patch code[%d]->argv = code[%d]->argv[%d]\n", patchPtr->targetAsmInstruction, patchPtr->sourceAsmInstruction, patchPtr->argvIndex); /* set the argument vector of code[1] to the address of code[4]->argv[1] */ (&proc->code[patchPtr->targetAsmInstruction])->argv = Index: generic/nsf.c =================================================================== diff -u -r5561af6ab78fa00fbd28de17087ece99f76fd844 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- generic/nsf.c (.../nsf.c) (revision 5561af6ab78fa00fbd28de17087ece99f76fd844) +++ generic/nsf.c (.../nsf.c) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -2423,7 +2423,7 @@ * * Results: * Indicates whether a cycle was detected (0) or not (1); and, - * therefore, whether the sort failed (0) or suceeded (1). + * therefore, whether the sort failed (0) or succeeded (1). * * Side effects: * Allocates class list. @@ -5761,7 +5761,7 @@ * single pass risks leaking so-revived Var structures. TclDeleteVars() * requires variables under deletion to be untraced. * - * As Tcl does not provide access to the neccessary lower-level Var API to + * As Tcl does not provide access to the necessary lower-level Var API to * extensions (ideally: TclDeleteNamespaceVars or TclPtrUnsetVar), we resort * to a mix of navigating the variable table and calling high-level unset * operations (UnsetInstVar). @@ -6157,10 +6157,10 @@ /*fprintf(stderr, "NSCheckNamespace %s parentNsPtr %p\n", nameString, parentNsPtr);*/ /* - * Check, if there is a already a namespace for the full name. The - * namespace will be seldomly here, but we have to make this check - * in every case. If there is a full namespace, we can use it to - * determine the parent name. + * Check, if there is a already a namespace for the full name. The namespace + * will be only in rare cases, but we have to make this check in every + * case. If there is a full namespace, we can use it to determine the parent + * name. */ TclGetNamespaceForQualName(interp, nameString, NULL, TCL_GLOBAL_ONLY|TCL_FIND_ONLY_NS, @@ -9779,7 +9779,7 @@ * client data. * * Results: - * Returns 0 or 1 depending on wether the cmd is part of the + * Returns 0 or 1 depending on whether the cmd is part of the * definition list. * * Side effects: @@ -9979,7 +9979,7 @@ *---------------------------------------------------------------------- * FilterIsActive -- * - * Check, wether a method name is in the set of methods, which were used as + * Check, whether a method name is in the set of methods, which were used as * filters in the current interp. * * Results: @@ -11068,7 +11068,7 @@ *---------------------------------------------------------------------- * ByteCompiled -- * - * Function to determine wether a proc is already byted compiled or not. + * Function to determine whether a proc is already byted compiled or not. * * Results: * 0 or 1 based on success @@ -11333,7 +11333,7 @@ return TCL_ERROR; } else { /* - * Alias definition suceeded + * Alias definition succeeded. */ Tcl_Obj *methodObj = Tcl_GetObjResult(interp); Tcl_Command cmd = Tcl_GetCommandFromObj(interp, methodObj); @@ -12204,7 +12204,7 @@ *---------------------------------------------------------------------- * NsfParamDefsAppendVirtual -- * - * Check for the given paramsPtr wether this is a virtual parameter and if + * Check for the given paramsPtr whether this is a virtual parameter and if * possible, resolve it and append the formatted content to the Tcl_Obj. * * Results: @@ -13301,7 +13301,7 @@ cscPtr1 = cscPtr; - /*fprintf(stderr, "cscPtr %p cmd %p %s wanna stack cmd %p %s cp %p no-leaf %d force frame %d\n", + /*fprintf(stderr, "cscPtr %p cmd %p %s want to stack cmd %p %s cp %p no-leaf %d force frame %d\n", cscPtr, cmd, Tcl_GetCommandName(interp, cmd), cmd, Tcl_GetCommandName(interp, cmd), cp, @@ -14900,7 +14900,7 @@ int Nsf_ConvertToClass(Tcl_Interp *interp, Tcl_Obj *objPtr, Nsf_Param const *pPtr, ClientData *clientData, Tcl_Obj **outObjPtr) { - int withUnkown, result; + int withUnknown, result; nonnull_assert(interp != NULL); nonnull_assert(objPtr != NULL); @@ -14909,9 +14909,9 @@ nonnull_assert(outObjPtr != NULL); assert(*outObjPtr == objPtr); - withUnkown = (RUNTIME_STATE(interp)->doClassConverterOmitUnkown == 0); + withUnknown = (RUNTIME_STATE(interp)->doClassConverterOmitUnknown == 0); - if (likely(GetClassFromObj(interp, objPtr, (NsfClass **)clientData, withUnkown) == TCL_OK)) { + if (likely(GetClassFromObj(interp, objPtr, (NsfClass **)clientData, withUnknown) == TCL_OK)) { result = IsObjectOfType(interp, (NsfObject *)*clientData, "class", objPtr, pPtr); } else { result = NsfObjErrType(interp, NULL, objPtr, "class", (Nsf_Param *)pPtr); @@ -22872,7 +22872,7 @@ *---------------------------------------------------------------------- * AppendMethodRegistration -- * - * Append to the listObj the command words needed for defintion / + * Append to the listObj the command words needed for definition / * registration. * * Results: @@ -23331,10 +23331,9 @@ /* * The cmd must be an alias or object. * - * Note that some aliases come with procPtr == NsfObjDispatch. - * In order to distinguish between "object" and alias, we have - * to do the lookup for the entryObj to determine wether it is - * really an alias. + * Note that some aliases come with procPtr == NsfObjDispatch. In order + * to distinguish between "object" and alias, we have to do the lookup for + * the entryObj to determine whether it is really an alias. */ Tcl_Obj *entryObj; @@ -28402,9 +28401,9 @@ paramPtr->flags &= ~NSF_ARG_UNNAMED; } - RUNTIME_STATE(interp)->doClassConverterOmitUnkown = 1; + RUNTIME_STATE(interp)->doClassConverterOmitUnknown = 1; result = ArgumentCheck(interp, valueObj, paramPtr, doCheckArguments, &flags, &checkedData, &outObjPtr); - RUNTIME_STATE(interp)->doClassConverterOmitUnkown = 0; + RUNTIME_STATE(interp)->doClassConverterOmitUnknown = 0; /*fprintf(stderr, "ParameterCheck paramPtr %p final refCount of wrapper %d can free %d flags %.6x\n", paramPtr, paramWrapperPtr->refCount, paramWrapperPtr->canFree, flags);*/ @@ -28673,7 +28672,7 @@ * (object->flags & NSF_INIT_CALLED) * * to perform required testing just for in the non-initialized state. We - * switched in 2.0b5 to checking for the existance of the associated + * switched in 2.0b5 to checking for the existence of the associated * instance variable, which works under the assumption that the instance * variable has the same name and that e.g. an required alias parameter * sets this variable either. Similar assumption is in the default Index: generic/nsfInt.h =================================================================== diff -u -r95656d2638199a6292c1b2c9bc570c37020280b6 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- generic/nsfInt.h (.../nsfInt.h) (revision 95656d2638199a6292c1b2c9bc570c37020280b6) +++ generic/nsfInt.h (.../nsfInt.h) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -943,7 +943,7 @@ int doProfile; int doTrace; unsigned int preventRecursionFlags; - int doClassConverterOmitUnkown; + int doClassConverterOmitUnknown; int doSoftrecreate; int exitHandlerDestroyRound; /* shutdown handling */ Index: generic/nsfUtil.c =================================================================== diff -u -r878a74b68b15d4ee5c33d345e670f50ce7473ebc -rf934951db464db1a6f39ac98290ecde17a466cd7 --- generic/nsfUtil.c (.../nsfUtil.c) (revision 878a74b68b15d4ee5c33d345e670f50ce7473ebc) +++ generic/nsfUtil.c (.../nsfUtil.c) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -42,8 +42,8 @@ * strnstr -- * * Implementation of strnstr() for platforms not providing it via their C - * library. The function strnstr locates the first occurance of a substring - * in a null-terminated string + * library. The function strnstr locates the first occurrence of a + * substring in a null-terminated string. * * Results: * Strbstring or NULL Index: library/lib/nx-traits.tcl =================================================================== diff -u -r6751144a362a62d47801ee1b59caed7aa85f518e -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/lib/nx-traits.tcl (.../nx-traits.tcl) (revision 6751144a362a62d47801ee1b59caed7aa85f518e) +++ library/lib/nx-traits.tcl (.../nx-traits.tcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -100,7 +100,7 @@ } } foreach slot [$traitName info variables] { - #puts "$obj - wanna define: [$traitName info variable definition $slot]" + #puts "$obj - will define: [$traitName info variable definition $slot]" $obj {*}[lrange [$traitName info variable definition $slot] 1 end] if {[nx::configure trait-verbosity]} { puts "...trait: $obj [lrange [$traitName info variable definition $slot] 1 end]" Index: library/mongodb/nsfmongo.c =================================================================== diff -u -r3d447c3c5b6f5b5becb6baa26950bbd06e60b9a4 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/mongodb/nsfmongo.c (.../nsfmongo.c) (revision 3d447c3c5b6f5b5becb6baa26950bbd06e60b9a4) +++ library/mongodb/nsfmongo.c (.../nsfmongo.c) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -912,7 +912,7 @@ if (withUnique != 0) {options.unique = 1;} if (withTtl != 0) {options.expire_after_seconds = withTtl;} if (withName != 0) {options.name = withName;} - /* TODO: not handled: is_initialized, v, weights, default_language, laguage_override, padding */ + /* TODO: not handled: is_initialized, v, weights, default_language, language_override, padding */ success = mongoc_collection_create_index(collectionPtr, keysPtr, &options, &bsonError); Index: library/mongodb/tests/nx-reference-many.test =================================================================== diff -u -rcef3de5c4f65e767d0c66389bacc77bc3c2e5a68 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/mongodb/tests/nx-reference-many.test (.../nx-reference-many.test) (revision cef3de5c4f65e767d0c66389bacc77bc3c2e5a68) +++ library/mongodb/tests/nx-reference-many.test (.../nx-reference-many.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -63,7 +63,7 @@ ###################################################################### # The third approach is to embed the objects in the referencing # document. This might be feasible when the values of the embedded -# objects seldomly change, When the containing object (the posting) is +# objects seldom change, When the containing object (the posting) is # loaded, the appropriate object structure is created automatically. # ? {nx::mongo::Class create Member { Index: library/mongodb/tests/nx-reference-one.test =================================================================== diff -u -rcef3de5c4f65e767d0c66389bacc77bc3c2e5a68 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/mongodb/tests/nx-reference-one.test (.../nx-reference-one.test) (revision cef3de5c4f65e767d0c66389bacc77bc3c2e5a68) +++ library/mongodb/tests/nx-reference-one.test (.../nx-reference-one.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -64,7 +64,7 @@ ###################################################################### # The third approach is to embed the object in the referencing # document. This might be feasible when the values of the embedded -# objects seldomly change, When the containing object (the Post +# objects seldom change, When the containing object (the Post # instance) is loaded, the appropriate object structure is created # automatically. # Index: library/nx/nx.tcl =================================================================== diff -u -r8f64a468d8bb53f2ba317c8c738c2d3a24243980 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/nx/nx.tcl (.../nx.tcl) (revision 8f64a468d8bb53f2ba317c8c738c2d3a24243980) +++ library/nx/nx.tcl (.../nx.tcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -1059,7 +1059,7 @@ } elseif {$property in [list "alias" "forward" "cmd" "initcmd"]} { lappend opts -disposition $property set class [:requireClass ::nx::ObjectParameterSlot $class] - } elseif {[regexp {([01])[.][.]([1n*])} $property _ minOccurance maxOccurance]} { + } elseif {[regexp {([01])[.][.]([1n*])} $property _ minOccurrence maxOccurrence]} { lappend opts -multiplicity $property } else { set type $property @@ -2518,7 +2518,7 @@ # Evaluate the command under catch to ensure reverse mapping # of "new" # - set errorOccured [catch \ + set errorOccurred [catch \ [list ::apply [list {} $cmds $object]] \ result errorOptions] @@ -2532,7 +2532,7 @@ # # Report the error with message and code when necessary # - if {$errorOccured} { + if {$errorOccurred} { dict incr errorOptions -level dict unset errorOptions -errorinfo } Index: library/serialize/serializer.tcl =================================================================== diff -u -r353fdf460e5124d48f9ebe0f37e23abe51494b38 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/serialize/serializer.tcl (.../serializer.tcl) (revision 353fdf460e5124d48f9ebe0f37e23abe51494b38) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -197,7 +197,7 @@ } :public method getTargetName {sourceName} { - # TODO: make more efficent; + # TODO: make more efficient; if {![string match ::* $sourceName]} { set sourceName ::$sourceName } @@ -314,7 +314,7 @@ } ############################### - # class object specfic methods + # class object specific methods ############################### :public object method allChildren o { @@ -770,7 +770,7 @@ # # Handle targets of forwarders: when target object mapping # is activated, we might have to adapt the forwarding target - # as well. This is particulary important for per-object + # as well. This is in particular important for per-object # forwarders, which are used frequently in the slot objects # (but not necessarily only there). # Index: library/xotcl/apps/comm/get-regression-nb.xotcl =================================================================== diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/apps/comm/get-regression-nb.xotcl (.../get-regression-nb.xotcl) (revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0) +++ library/xotcl/apps/comm/get-regression-nb.xotcl (.../get-regression-nb.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -26,7 +26,7 @@ # webserver.xotcl: # cd wafe/src/cineast # get-regression-nb.xotcl -port 8086 -sequential 0 -# die ausgabe sollte mit totalbytes=6536120 +# die Ausgabe sollte mit totalbytes=6536120 # abgeschlossen werden # # 5) grosser testlauf: @@ -365,7 +365,7 @@ assert {lindex [exec md5sum test.ps] 0} c6029c987e841430f3ca9bab157da12f } -test "specify filesink and use cache; no copying neccesary" { +test "specify filesink and use cache; no copying necessary" { persistentCache invalidate \ http://nestroy.wi-inf.uni-essen.de/Lv/muster-d1klausur.ps SimpleRequest $r -useFileSink 1 -caching 1 \ Index: library/xotcl/apps/comm/get-regression.xotcl =================================================================== diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/apps/comm/get-regression.xotcl (.../get-regression.xotcl) (revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0) +++ library/xotcl/apps/comm/get-regression.xotcl (.../get-regression.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -155,7 +155,7 @@ assert {lindex [exec md5sum test.ps] 0} c6029c987e841430f3ca9bab157da12f } -test "specify filesink and use cache; no copying neccesary" { +test "specify filesink and use cache; no copying necessary" { persistentCache invalidate \ http://nestroy.wi-inf.uni-essen.de/Lv/muster-d1klausur.ps SimpleRequest $r -useFileSink 1 -caching 1 \ Index: library/xotcl/apps/comm/secure-webclient.xotcl =================================================================== diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/apps/comm/secure-webclient.xotcl (.../secure-webclient.xotcl) (revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0) +++ library/xotcl/apps/comm/secure-webclient.xotcl (.../secure-webclient.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -34,7 +34,7 @@ puts -nonewline "\nTrying to load image logo-100.jpg ... (not secure)" SimpleRequest r2 -url $http_server/logo-100.jpg if {[r2::sink set contentLength] == 1706} { - puts "suceeded! Loaded 1706 bytes!" + puts "succeeded! Loaded 1706 bytes!" } else { puts "failed! Loaded [r2::sink set contentLength] (!= 1706) bytes" exit @@ -43,7 +43,7 @@ puts -nonewline "\nTrying to load image logo-100.jpg secure ... " SimpleRequest r1 -url $https_server/logo-100.jpg if {[r1::sink set contentLength] == 1706} { - puts "suceeded! Loaded 1706 bytes!" + puts "succeeded! Loaded 1706 bytes!" } else { puts "failed! Loaded [r1::sink set contentLength] (!= 1706) bytes" exit Index: library/xotcl/apps/comm/webserver.xotcl =================================================================== diff -u -re607595596399193900b411fa551280e7086963a -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/apps/comm/webserver.xotcl (.../webserver.xotcl) (revision e607595596399193900b411fa551280e7086963a) +++ library/xotcl/apps/comm/webserver.xotcl (.../webserver.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -54,7 +54,7 @@ We implent here "exit", and we return the information about the actual request and user in HTML format for all other requests.-Note that the definition of Saftey can be used not only for instances of the class Stack, but for arbitrary objects supporting the same interface. Therefore we could as well make the stack object stack (that we created before) safe at any time by adding the safety at arbitrary times with the method mixin, and we can remove the safety as well at any time. +Note that the definition of Safety can be used not only for instances of the class Stack, but for arbitrary objects supporting the same interface. Therefore we could as well make the stack object stack (that we created before) safe at any time by adding the safety at arbitrary times with the method mixin, and we can remove the safety as well at any time.This method is an example, how to access on the server side - request specific infomation. + request specific information. }} SpecializedWorker instproc respond {} { if {[my set resourceName] eq "exit"} { Index: library/xotcl/doc/Announce-0.9.4 =================================================================== diff -u -re8715774bf274fbeadabf08a5a0777a968f71148 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/doc/Announce-0.9.4 (.../Announce-0.9.4) (revision e8715774bf274fbeadabf08a5a0777a968f71148) +++ library/xotcl/doc/Announce-0.9.4 (.../Announce-0.9.4) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -52,7 +52,7 @@ c1 ++ c1 print - In earlier versions it was neccessary to use "[self]" + In earlier versions it was necessary to use "[self]" instead of "my". This change reduces the number of special characters in XOTcl programs. "[self]" will continue to be supported by XOTcl. @@ -77,7 +77,7 @@ - optimizations: * XOTcl is trying to keep Tcl_Objs of type tclCmdNameType - instead of converting it to XOTclObjectType agressively. + instead of converting it to XOTclObjectType aggressively. * A patch for Tcl 8.4a3 is available from the XOTcl web site for performance hungry applications to provide special Index: library/xotcl/doc/Announce-1.5.3 =================================================================== diff -u -re8715774bf274fbeadabf08a5a0777a968f71148 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/doc/Announce-1.5.3 (.../Announce-1.5.3) (revision e8715774bf274fbeadabf08a5a0777a968f71148) +++ library/xotcl/doc/Announce-1.5.3 (.../Announce-1.5.3) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -11,7 +11,7 @@ + provided compatibility with Tcl 8.4.14 (fixed a nasty bug caused by a change in tcl 8.4.14, could - led to a crash due to freed Tcl_Objs in OpenACS, allthough + led to a crash due to freed Tcl_Objs in OpenACS, although the xotcl regression test passed correctly) + reduced calling overhead of methods with nonpositional Index: library/xotcl/doc/tutorial.html =================================================================== diff -u -rbe3ba45f303ed61511b034e73e0bba5d10d10982 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/doc/tutorial.html (.../tutorial.html) (revision be3ba45f303ed61511b034e73e0bba5d10d10982) +++ library/xotcl/doc/tutorial.html (.../tutorial.html) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -411,7 +411,7 @@ Stack empty!
-We can as well use Saftey to create a new class SafeStack. In this case, all instances of SafeStack have the safety property defined above. +We can as well use Safety to create a new class SafeStack. In this case, all instances of SafeStack have the safety property defined above.# Add Safety to the object stack @@ -422,7 +422,7 @@# remove Safety % stack mixin {}
# # Create a safe stack class by using Stack and mixin @@ -548,7 +548,7 @@ }
-A player can be transfered to another team. The player object does +A player can be transferred to another team. The player object does not change internally (e.g. the playerRole stays the same). Therefore we move it to the destination team.
@@ -728,7 +728,7 @@Class TransferObserver TransferObserver instproc transferPlayer {pname destinationTeam} { - puts "Player '$pname' is transfered to Team '[$destinationTeam name]'" + puts "Player '$pname' is transferred to Team '[$destinationTeam name]'" next }@@ -827,7 +827,7 @@ intrinsic changes of object properties (in contrast to extrinsic properties e.g. modeled through roles and implemented through per-object and per-class mixins [Neumann and -Zdun 1999c] ) . These changes can be achieved without loosing the +Zdun 1999c] ) . These changes can be achieved without losing the object's identity, its inner state, and its per-object behavior (procs and per-object mixins). @@ -1717,7 +1717,7 @@ dynamics is the changing of the relationship between object and class. This means, objects can also change their class dynamically at run-time. This feature may be used to model a life-cycle of an object, -without loosing the object's identity, inner state or +without losing the object's identity, inner state or per-object-specializations through procs. The class instance method enables this functionality. @@ -3688,7 +3688,7 @@
XOTcl provides a short-hand notation for creating attribute slots, which is backward compatible for the most important options of XOTcl -verison prior to 1.5.0. Instead of writing
+version prior to 1.5.0. Instead of writingClass Car -slots { Index: library/xotcl/library/comm/Access.xotcl =================================================================== diff -u -rb34996b24ea334963e83aadda66384680a6f8ce5 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/library/comm/Access.xotcl (.../Access.xotcl) (revision b34996b24ea334963e83aadda66384680a6f8ce5) +++ library/xotcl/library/comm/Access.xotcl (.../Access.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -135,10 +135,10 @@ # # incCb: when new data is available # - # endCb: when the request is finished sucessfully and the object + # endCb: when the request is finished successfully and the object # is going to be destroyed # - # cancelCb: when the request is finished nonsucessfully and the object + # cancelCb: when the request is finished nonsuccessfully and the object # is going to be destroyed # # All these messages receive the name of the Access object @@ -266,9 +266,9 @@ ######################################### Access instproc timeout t { - my set timeout [::after $t [self] timeoutOccured] + my set timeout [::after $t [self] timeoutOccurred] } - Access instproc timeoutOccured {} { + Access instproc timeoutOccurred {} { #my showCall my unset timeout my abort "timeout exceeded" @@ -956,7 +956,7 @@ #if {$totalsize == 0 && ($responseCode > 300 || !$expectsBody($method) )} #my showVars method totalsize expectsBody($method) expectBody # the following is used currently for Actiweb-Agents: - # the reponse of a PUTS contains a BODY! + # the response of a PUTS contains a BODY! if {!$expectBody && [::info exists v(content-length)] && $v(content-length) > 0} { @@ -1189,7 +1189,7 @@ pwdManager proc requireCredentials {realm url} { regexp {^(.*/)[^/]*$} $url _ path if {[my exists pwd($realm)]} { - #my showMsg "*** register url=$url for ther realm=$realm" + #my showMsg "*** register url=$url for other realm=$realm" my set area($path) $realm return 1 } else { Index: library/xotcl/library/comm/Connection.xotcl =================================================================== diff -u -r073177c8b1304443107efeeb0c334e9477346778 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/library/comm/Connection.xotcl (.../Connection.xotcl) (revision 073177c8b1304443107efeeb0c334e9477346778) +++ library/xotcl/library/comm/Connection.xotcl (.../Connection.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -201,7 +201,7 @@ $req freeConnection if {[my exists persistent]} { my flush - #::puts stderr "[self] PERSISTENT CONNECTION wanna close" + #::puts stderr "[self] PERSISTENT CONNECTION wants close" if {$blocked eq ""} { ::fileevent $socket readable [list [self] destroy] unset req Index: library/xotcl/library/lib/htmllib.xotcl =================================================================== diff -u -r073177c8b1304443107efeeb0c334e9477346778 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/library/lib/htmllib.xotcl (.../htmllib.xotcl) (revision 073177c8b1304443107efeeb0c334e9477346778) +++ library/xotcl/library/lib/htmllib.xotcl (.../htmllib.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -102,7 +102,7 @@ if {$compressed == "0"} { append rvalue "$line\n" } else { - ## only new line for closing tags at the beginnig + ## only new line for closing tags at the beginning ## of a document element if {[string equal -length 2 "" $line]} { append rvalue "$line\n" Index: library/xotcl/library/lib/metadataAnalyzer.xotcl =================================================================== diff -u -r073177c8b1304443107efeeb0c334e9477346778 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/library/lib/metadataAnalyzer.xotcl (.../metadataAnalyzer.xotcl) (revision 073177c8b1304443107efeeb0c334e9477346778) +++ library/xotcl/library/lib/metadataAnalyzer.xotcl (.../metadataAnalyzer.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -405,7 +405,7 @@ @ MetadataAnalyzer instproc print {} { description "Print all collected token information to stdout. - This method is also an exmaple how the tokens can be used." + This method is also an example how the tokens can be used." } MetadataAnalyzer instproc print {} { my instvar extensions packageList Index: library/xotcl/library/lib/mixinStrategy.xotcl =================================================================== diff -u -r073177c8b1304443107efeeb0c334e9477346778 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- library/xotcl/library/lib/mixinStrategy.xotcl (.../mixinStrategy.xotcl) (revision 073177c8b1304443107efeeb0c334e9477346778) +++ library/xotcl/library/lib/mixinStrategy.xotcl (.../mixinStrategy.xotcl) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -51,7 +51,7 @@ This method searches the mixin list for a mixin of this kind (starting with $kind=) } - return "returns the maching strategy" + return "returns the matching strategy" } Object instproc mixinQueryStrategy {kind} { Index: tests/disposition.test =================================================================== diff -u -re0da9e0032a357fe5c6bfdd37a2d234e00780460 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/disposition.test (.../disposition.test) (revision e0da9e0032a357fe5c6bfdd37a2d234e00780460) +++ tests/disposition.test (.../disposition.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -1020,7 +1020,7 @@ C filters set "" # / / / / / / / / / / / / / / / / / / / / / / / / / / / / / - # b) Between root and intermittent or inbetween the set of + # b) Between root and intermittent or in-between the set of # intermittent frames (i.e., indirection at the level of # container/ensemble objects) Index: tests/doc.test =================================================================== diff -u -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/doc.test (.../doc.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) +++ tests/doc.test (.../doc.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -813,19 +813,19 @@ # ? [list $entity info has type ::nx::doc::@property] 1 # ? [list $entity as_text] ".. is overruled by a long one ..." - # --testing-- @class-object-property attr2 (its non-existance) + # --testing-- @class-object-property attr2 (its non-existence) set entity [@property id [@class id ::C] object attr2] ? [list ::nsf::object::exists $entity] 0 - # --testing-- @child-class Foo (its non-existance) + # --testing-- @child-class Foo (its non-existence) set entity [@class id ::C::Foo] ? [list ::nsf::object::exists $entity] 0 - # --testing -- @method foo (its non-existance) + # --testing -- @method foo (its non-existence) set entity [@method id ::C class foo] ? [list ::nsf::object::exists $entity] 0 - # --testing-- @class-object-method.parameter {bar p1} (its non-existance) + # --testing-- @class-object-method.parameter {bar p1} (its non-existence) set entity [@parameter id [@method id ::C class bar] "" p1] ? [list ::nsf::object::exists $entity] 0 - # --testing-- @child-object.property {foo p1} (its non-existance) + # --testing-- @child-object.property {foo p1} (its non-existence) set cl [@class id ::C::Foo] ? [list ::nsf::object::exists $entity] 0 set entity [@property id $cl class p1] @@ -892,13 +892,13 @@ set entity [@method id ::C class foo] ? [list ::nsf::object::exists $entity] 1 ? [list $entity as_text] "" - # --testing-- @class-object-method.parameter {bar p1} (its non-existance) It + # --testing-- @class-object-method.parameter {bar p1} (its non-existence) It # still cannot exist as a documented entity, as the class method # has not been initialised before! set entity [@parameter id [@method id ::C class bar] "" p1] ? [list ::nsf::object::exists $entity] 0 - # --testing-- @child-class.property {foo p1} (its non-existance) - # --testing-- @child-class.object-property {foo p2} (its non-existance) + # --testing-- @child-class.property {foo p1} (its non-existence) + # --testing-- @child-class.object-property {foo p2} (its non-existence) set cl [@class id ::C::Foo] ? [list ::nsf::object::exists $cl] 1 set entity [@property id $cl class p1] Index: tests/info-method.test =================================================================== diff -u -r183cd0a9a3d2a37133ac51bb86952e1b522dbf6f -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/info-method.test (.../info-method.test) (revision 183cd0a9a3d2a37133ac51bb86952e1b522dbf6f) +++ tests/info-method.test (.../info-method.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -212,7 +212,7 @@ #package require nx::test # -# Introspect the returns method property throught the "info method" +# Introspect the returns method property through the "info method" # API chunk ... # @@ -1189,7 +1189,7 @@ } # -# Testing "... info method orgin ..." (in contrast to "... info method +# Testing "... info method origin ..." (in contrast to "... info method # handle ..."). "origin" always points to the definintion handle, # "handle" alone is the registration handle. # Index: tests/parameters.test =================================================================== diff -u -r8f64a468d8bb53f2ba317c8c738c2d3a24243980 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/parameters.test (.../parameters.test) (revision 8f64a468d8bb53f2ba317c8c738c2d3a24243980) +++ tests/parameters.test (.../parameters.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -1255,7 +1255,7 @@ ####################################################### # slot specific converter ####################################################### -nx::test case slot-specfic-converter { +nx::test case slot-specific-converter { nx::Class create Person { Index: tests/returns.test =================================================================== diff -u -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/returns.test (.../returns.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) +++ tests/returns.test (.../returns.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -313,7 +313,7 @@ package req nx::serializer set s [C serialize] puts $s - ? [list set _ [regsub -all returns $s returns s]] 8 "occurances of returns" + ? [list set _ [regsub -all returns $s returns s]] 8 "occurrences of returns" ? {c1 bar-ok1 1 2} 1 ? {c1 bar-ok2 1 2} 1 Index: tests/tcl86.test =================================================================== diff -u -r2d8f61fd83d21c065a52795bc01b9200a64d33db -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/tcl86.test (.../tcl86.test) (revision 2d8f61fd83d21c065a52795bc01b9200a64d33db) +++ tests/tcl86.test (.../tcl86.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -202,8 +202,8 @@ return $string } } - ATeam create a1 -members {alice bob ceasar} - ? {a1 concat } "-Alice-Bob-Ceasar-" + ATeam create a1 -members {alice bob caesar} + ? {a1 concat } "-Alice-Bob-Caesar-" } # Index: tests/tcloo.test =================================================================== diff -u -r371cc41c32db500cb1d5bcab139ef65299ef4d6c -rf934951db464db1a6f39ac98290ecde17a466cd7 --- tests/tcloo.test (.../tcloo.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) +++ tests/tcloo.test (.../tcloo.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -29,7 +29,7 @@ # method impl, they are skipped during method dispatch (as in an # implicit next call). Using the method stubs, the public interface # (i.e., the interface dispatchable through an object's Tcl_command) -# can be extended or shrinked by selectively enabling or disabling +# can be extended or shrunk by selectively enabling or disabling # shadowed (inherited) method implementations along the instande-of or # the inheritance relationships. Exported or unexported, yet # unimplemented methods are treated as unknowns. Index: win/makefile.vc =================================================================== diff -u -r93011b62a440d59747d47887cadec0f767ada061 -rf934951db464db1a6f39ac98290ecde17a466cd7 --- win/makefile.vc (.../makefile.vc) (revision 93011b62a440d59747d47887cadec0f767ada061) +++ win/makefile.vc (.../makefile.vc) (revision f934951db464db1a6f39ac98290ecde17a466cd7) @@ -91,12 +91,12 @@ # memdbg = Enables the debugging memory allocator. # # CHECKS=64bit,fullwarn,nodep,none -# Sets special macros for checking compatability. +# Sets special macros for checking compatibility. # # 64bit = Enable 64bit portability warnings (if available) # fullwarn = Builds with full compiler and link warnings enabled. # Very verbose. -# nodep = Turns off compatability macros to ensure the extension +# nodep = Turns off compatibility macros to ensure the extension # isn't being built with deprecated functions. # # MACHINE=(ALPHA|AMD64|IA64|IX86)