Posted to tcl by mr_calvin at Thu Oct 05 08:45:48 GMT 2017view raw
- Index: extensions/tnc/tnc.c
- ==================================================================
- --- extensions/tnc/tnc.c
- +++ extensions/tnc/tnc.c
- @@ -1793,11 +1793,11 @@
- /* If the document doesn't have a doctype declaration, but the
- user have used the -useForeignDTD 1 feature, the collected
- data out of the provided DTD isn't postprocessed by
- TncElementStartCommand. We do this now.
- NOTE: Since there wasn't a doctype declaration, there is no
- - information avaliable which element is expected to be the
- + information available which element is expected to be the
- document element. Eventually it would be desirable, to set
- this somehow. For now, this means, that every valid subtree
- of the given DTD information is accepted. */
- if (!tncdata->contentStackPtr && !tncdata->elemContentsRewriten) {
- TncEndDoctypeDeclHandler (userData);
- Index: generic/dom.c
- ==================================================================
- --- generic/dom.c
- +++ generic/dom.c
- @@ -95,11 +95,11 @@
- static int domModuleIsInitialized = 0;
- TDomThreaded(static Tcl_Mutex initMutex;)
- static char *domException2StringTable [] = {
- - "OK - no expection",
- + "OK - no exception",
- "INDEX_SIZE_ERR",
- "DOMSTRING_SIZE_ERR",
- "HIERARCHY_REQUEST_ERR",
- "WRONG_DOCUMENT_ERR",
- "INVALID_CHARACTER_ERR",
- @@ -5430,11 +5430,11 @@
- Tcl_SetResult (interp, "parser object isn't tdom enabled.", NULL);
- return TCL_ERROR;
- }
- expat = GetExpatInfo (interp, objv[1]);
- if (info->tdomStatus != 2 || !expat->finished) {
- - Tcl_SetResult (interp, "No DOM tree avaliable.", NULL);
- + Tcl_SetResult (interp, "No DOM tree available.", NULL);
- return TCL_ERROR;
- }
- domSetDocumentElement (info->document);
- result = tcldom_returnDocumentObj (interp, info->document, 0,
- newObjName, 0, 0);
- Index: generic/dom.h
- ==================================================================
- --- generic/dom.h
- +++ generic/dom.h
- @@ -721,11 +721,11 @@
- /*--------------------------------------------------------------------------
- | Function prototypes
- |
- \-------------------------------------------------------------------------*/
- -const char * domException2String (domException expection);
- +const char * domException2String (domException exception);
- void domModuleInitialize (void);
- domDocument * domCreateDoc (const char *baseURI, int storeLineColumn);
- domDocument * domCreateDocument (Tcl_Interp *interp, const char *uri,
- Index: generic/domxpath.c
- ==================================================================
- --- generic/domxpath.c
- +++ generic/domxpath.c
- @@ -193,11 +193,11 @@
- \---------------------------------------------------------------------------*/
- static char *astType2str[] = {
- "Int", "Real", "Mult", "Div", "Mod", "UnaryMinus", "IsNSElement",
- "IsNode", "IsComment", "IsText", "IsPI", "IsSpecificPI", "IsElement",
- "IsFQElement", "GetVar", "GetFQVar", "Literal", "ExecFunction", "Pred",
- - "EvalSteps", "SelectRoot", "CombineSets", "Add", "Substract", "Less",
- + "EvalSteps", "SelectRoot", "CombineSets", "Add", "Subtract", "Less",
- "LessOrEq", "Greater", "GreaterOrEq", "Equal", "NotEqual", "And", "Or",
- "IsNSAttr", "IsAttr", "AxisAncestor", "AxisAncestorOrSelf",
- "AxisAttribute", "AxisChild",
- "AxisDescendant", "AxisDescendantOrSelf", "AxisFollowing",
- "AxisFollowingSibling", "AxisNamespace", "AxisParent",
- @@ -1471,11 +1471,11 @@
- if (LA==PLUS) {
- Consume(PLUS);
- a = New2( Add, a, Recurse(MultiplicativeExpr));
- } else {
- Consume(MINUS);
- - a = New2( Substract, a, Recurse(MultiplicativeExpr));
- + a = New2( Subtract, a, Recurse(MultiplicativeExpr));
- }
- }
- EndProduction
- @@ -4379,11 +4379,11 @@
- case Real:
- rsSetReal (result, step->realvalue);
- break;
- case Add:
- - case Substract:
- + case Subtract:
- case Mult:
- case Div:
- case Mod:
- xpathRSInit (&leftResult);
- xpathRSInit (&rightResult);
- @@ -4424,11 +4424,11 @@
- if (NaN || NaN1) {
- if ((NaN == 2) || (NaN1 == 2)) {
- rsSetNaN (result);
- } else {
- switch (step->type) {
- - case Substract:
- + case Subtract:
- NaN1 = -1 * NaN1;
- /* fall throu */
- case Add:
- if (NaN == NaN1) {
- if (NaN == 1) rsSetInf (result);
- @@ -4473,11 +4473,11 @@
- xpathRSFree (&leftResult);
- return XPATH_OK;
- }
- switch (step->type) {
- case Add: rsSetReal (result, dLeft + dRight); break;
- - case Substract: rsSetReal (result, dLeft - dRight); break;
- + case Subtract: rsSetReal (result, dLeft - dRight); break;
- case Mult: rsSetReal (result, dLeft * dRight); break;
- case Div:
- if (dRight == 0.0) {
- if (dLeft == 0.0) {
- rsSetNaN (result);
- Index: generic/domxpath.h
- ==================================================================
- --- generic/domxpath.h
- +++ generic/domxpath.h
- @@ -73,11 +73,11 @@
- \---------------------------------------------------------------------------*/
- typedef enum {
- Int, Real, Mult, Div, Mod, UnaryMinus, IsNSElement,
- IsNode, IsComment, IsText, IsPI, IsSpecificPI, IsElement,
- IsFQElement, GetVar, GetFQVar, Literal, ExecFunction, Pred,
- - EvalSteps, SelectRoot, CombineSets, Add, Substract, Less,
- + EvalSteps, SelectRoot, CombineSets, Add, Subtract, Less,
- LessOrEq, Greater, GreaterOrEq, Equal, NotEqual, And, Or,
- IsNSAttr, IsAttr, AxisAncestor, AxisAncestorOrSelf,
- AxisAttribute, AxisChild,
- AxisDescendant, AxisDescendantOrSelf, AxisFollowing,
- AxisFollowingSibling, AxisNamespace, AxisParent,
- Index: tests/tdomcmd.test
- ==================================================================
- --- tests/tdomcmd.test
- +++ tests/tdomcmd.test
- @@ -101,17 +101,17 @@
- rename dom {}
- rename _dom dom
- $_main_parser free
- -test tdomcmd-1.1 {no doc avaliable} {
- +test tdomcmd-1.1 {no doc available} {
- set parser [expat]
- tdom $parser enable
- set result [catch {tdom $parser getdoc} errMsg]
- $parser free
- lappend result $errMsg
- -} {1 {No DOM tree avaliable.}}
- +} {1 {No DOM tree available.}}
- test tdomcmd-1.2 {request dom tree in the middle of parsing} {
- set parser [expat -final 0]
- tdom $parser enable
- $parser parse {<root>}
- @@ -124,11 +124,11 @@
- $parser parse {}
- lappend result [catch {set doc [tdom $parser getdoc]} errMsg]
- $doc delete
- $parser free
- set result
- -} {1 {No DOM tree avaliable.} 1 {No DOM tree avaliable.} 0}
- +} {1 {No DOM tree available.} 1 {No DOM tree available.} 0}
- proc es-tdomcmd-1.3 {parser name attlist} {
- tdom $parser enable
- }
- Index: unix/CONFIG
- ==================================================================
- --- unix/CONFIG
- +++ unix/CONFIG
- @@ -45,11 +45,11 @@
- # If building tDOM as module for AOLserver, this points to the
- # directory with the AOLserver source distribution. See below
- # for examples.
- #
- # --with-tdom
- -# Useful (and avaliable) only for building extensions to tDOM (as
- +# Useful (and available) only for building extensions to tDOM (as
- # tnc). Use it to point to the tdomConfig.sh file.
- #
- #
- #
- # Comment-out next line if building with GCC compiler.