Hello community,
here is the log from the commit of package tdom
checked in at Wed Aug 15 20:37:34 CEST 2007.
--------
--- tdom/tdom.changes 2007-08-08 16:41:09.000000000 +0200
+++ /mounts/work_src_done/STABLE/tdom/tdom.changes 2007-08-15 11:20:56.000000000 +0200
@@ -1,0 +2,7 @@
+Wed Aug 15 11:17:27 CEST 2007 - max@suse.de
+
+- Update to the final 0.8.2 release
+ * Correct a licensing issue
+ * Some cosmetical fixes
+
+-------------------------------------------------------------------
Old:
----
tDOM-0.8.2rc3.tar.bz2
New:
----
tDOM-0.8.2.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ tdom.spec ++++++
--- /var/tmp/diff_new_pack.R25598/_old 2007-08-15 20:37:24.000000000 +0200
+++ /var/tmp/diff_new_pack.R25598/_new 2007-08-15 20:37:24.000000000 +0200
@@ -15,12 +15,12 @@
%endif
Summary: A XML/DOM/XPath/XSLT Implementation for Tcl
Version: 0.8.2
-Release: 1
+Release: 3
License: MOZILLA PUBLIC LICENSE (MPL/NPL)
Group: Development/Libraries/Tcl
URL: http://www.tdom.org
BuildRequires: libexpat-devel tcl-devel tcllib
-Source0: tDOM-%{version}rc3.tar.bz2
+Source0: tDOM-%{version}.tar.bz2
Patch0: tdom.patch
Patch1: tdom-expat.patch
Patch2: tdom-tnc.patch
@@ -97,6 +97,10 @@
%_libdir/tdomConfig.sh
%changelog
+* Wed Aug 15 2007 - max@suse.de
+- Update to the final 0.8.2 release
+ * Correct a licensing issue
+ * Some cosmetical fixes
* Wed Aug 08 2007 - max@suse.de
- New version: 0.8.2rc3
* Update to expat 2.0.1.
++++++ tDOM-0.8.2rc3.tar.bz2 -> tDOM-0.8.2.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/ChangeLog new/tDOM-0.8.2/ChangeLog
--- old/tDOM-0.8.2/ChangeLog 2007-08-07 22:36:20.000000000 +0200
+++ new/tDOM-0.8.2/ChangeLog 2007-08-15 01:22:47.000000000 +0200
@@ -1,4 +1,52 @@
+2007-08-13 Rolf Ade
+
+ * win/pkgIndex.tcl: Bumped version to 0.8.2
+
+2007-08-12 Rolf Ade
+
+ * generic/tcldom.c: Corrected a typo in the doc cmd usage
+ message. Updated the asXML related parts of the doc and node
+ cmd usage msg. Corrected a typo in the error msg in case of
+ wrong # of args to asXML.
+
+ * generic/tdomStubLib.c: Ensure that the new code build also
+ with tcl8.0.x (although that old versions doesn't have
+ extension stubs tables.)
+
+ * extensions/tnc/configure
+ * extensions/tnc/configure.in
+ * extensions/tnc/tnc.c: Tweaks to build tnc with
+ win/msys/mingw.
+
+ * tdom.m4: Removed irritating breaks in TDOM_PATH_CONFIG.
+
+ * unix/tclAppInit.c: Editorial fix.
+
+ * generic/tdomStubLib.c: Rewritten from the scratch.
+
+2007-08-11 Rolf Ade
+
+ * generic/domxslt.c: Code cosmetic.
+
+ * generic/tcldom.c: Updated error msg in case of wrong # of
+ args to the asXML method to the new added option
+ -escapeAllQuot.
+
+ * generic/tdom.h
+ * generic/tclexpat.h: Fixed build problem with the build
+ environment win/msys/mingw.
+
+ * generic/aolstub.cpp: Fixed editorial mistake in comment.
+
+ * unix/tclAppInit.c: Rewritten from the scratch. New feature:
+ tcldomsh will read ~/.tcldomshrc at start up.
+
+2007-08-07 Rolf Ade
+
+ * generic/dom.h: Another change needed, to complete the new
+ type of domDoc->documentNumber.
+
2007-08-07 Rolf Ade
* generic/dom.c: Type gymnastic for 64 bit systems.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/CHANGES new/tDOM-0.8.2/CHANGES
--- old/tDOM-0.8.2/CHANGES 2007-08-05 20:09:34.000000000 +0200
+++ new/tDOM-0.8.2/CHANGES 2007-08-11 02:12:08.000000000 +0200
@@ -1,4 +1,8 @@
+2007-08-11 Rolf Ade
+
+ Now tcldomsh will source ~/.tcldomshrc at start up.
+
2007-08-05 Rolf Ade
In case of asXML with indentation: indent XML comments as
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/extensions/tnc/configure new/tDOM-0.8.2/extensions/tnc/configure
--- old/tDOM-0.8.2/extensions/tnc/configure 2007-07-27 01:51:57.000000000 +0200
+++ new/tDOM-0.8.2/extensions/tnc/configure 2007-08-12 01:10:31.000000000 +0200
@@ -6166,7 +6166,6 @@
../../../tdom `ls -dr ../../../tdom-* 2>/dev/null` ; do
if test -f "$i/$tdom_bindir/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd $i/$tdom_bindir; pwd)`
- break
fi
done
fi
@@ -6174,7 +6173,6 @@
if test x"${ac_cv_c_tdomconfig}" = x ; then
if test -f "../../$tdom_bindir/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd ../../$tdom_bindir; pwd)`
- break
fi
fi
# Check in a few common install locations
@@ -6184,7 +6182,6 @@
`ls -d /usr/local/lib 2>/dev/null` ; do
if test -f "$i/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd $i; pwd)`
- break
fi
done
fi
@@ -6195,7 +6192,6 @@
`ls -dr ${srcdir}/../tdom[0-9].[0-9]* 2>/dev/null` ; do
if test -f "$i/$tdom_bindir/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd $i/$tdom_bindir; pwd)`
- break
fi
done
fi
@@ -6383,7 +6379,7 @@
if test "${TEA_PLATFORM}" = "windows" ; then
cat >>confdefs.h <<\_ACEOF
-#define BUILD_sample 1
+#define BUILD_tnc 1
_ACEOF
CLEANFILES="pkgIndex.tcl *.lib *.dll *.exp *.ilk *.pdb vc*.pch"
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/extensions/tnc/configure.in new/tDOM-0.8.2/extensions/tnc/configure.in
--- old/tDOM-0.8.2/extensions/tnc/configure.in 2007-07-27 01:51:57.000000000 +0200
+++ new/tDOM-0.8.2/extensions/tnc/configure.in 2007-08-12 01:10:31.000000000 +0200
@@ -3,7 +3,7 @@
dnl generate the file "configure", which is run during Tcl installation
dnl to configure the system for the local environment.
#
-# RCS: @(#) $Id: configure.in,v 1.8 2007/07/26 23:51:57 rolf Exp $
+# RCS: @(#) $Id: configure.in,v 1.9 2007/08/11 23:10:31 rolf Exp $
#-----------------------------------------------------------------------
# Sample configure.in for Tcl Extensions. The only places you should
@@ -107,7 +107,7 @@
#--------------------------------------------------------------------
if test "${TEA_PLATFORM}" = "windows" ; then
- AC_DEFINE(BUILD_sample, 1, [Build windows export dll])
+ AC_DEFINE(BUILD_tnc, 1, [Build windows export dll])
CLEANFILES="pkgIndex.tcl *.lib *.dll *.exp *.ilk *.pdb vc*.pch"
#TEA_ADD_SOURCES([win/winFile.c])
#TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"])
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/extensions/tnc/tnc.c new/tDOM-0.8.2/extensions/tnc/tnc.c
--- old/tDOM-0.8.2/extensions/tnc/tnc.c 2007-07-31 02:24:49.000000000 +0200
+++ new/tDOM-0.8.2/extensions/tnc/tnc.c 2007-08-12 01:10:31.000000000 +0200
@@ -2932,6 +2932,12 @@
}
+#ifdef BUILD_tnc
+# undef TCL_STORAGE_CLASS
+# define TCL_STORAGE_CLASS DLLEXPORT
+#endif
+
+
/*
*----------------------------------------------------------------------------
*
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/aolstub.cpp new/tDOM-0.8.2/generic/aolstub.cpp
--- old/tDOM-0.8.2/generic/aolstub.cpp 2005-01-16 12:57:19.000000000 +0100
+++ new/tDOM-0.8.2/generic/aolstub.cpp 2007-08-11 00:46:45.000000000 +0200
@@ -3,10 +3,10 @@
*
* Adds interface for loading the extension into the AOLserver.
*
- * See the file "license.terms" for information on usage and redistribution
+ * See the file "LICENSE" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * Rcsid: @(#)$Id: aolstub.cpp,v 1.6 2005/01/16 11:57:19 zv Exp $
+ * Rcsid: @(#)$Id: aolstub.cpp,v 1.7 2007/08/10 22:46:45 rolf Exp $
* ---------------------------------------------------------------------------
*/
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/dom.h new/tDOM-0.8.2/generic/dom.h
--- old/tDOM-0.8.2/generic/dom.h 2007-08-07 22:10:56.000000000 +0200
+++ new/tDOM-0.8.2/generic/dom.h 2007-08-08 17:52:38.000000000 +0200
@@ -2,7 +2,7 @@
| Copyright (C) 1999 Jochen C. Loewer (loewerj@hotmail.com)
+----------------------------------------------------------------------------
|
-| $Id: dom.h,v 1.51 2007/08/07 20:10:56 rolf Exp $
+| $Id: dom.h,v 1.52 2007/08/08 15:52:38 rolf Exp $
|
|
| A DOM interface upon the expat XML parser for the C language
@@ -125,7 +125,7 @@
# define TDomThreaded(x) x
# define HASHTAB(doc,tab) (doc)->tab
# define NODE_NO(doc) ((doc)->nodeCounter)++
-# define DOC_NO(doc) (unsigned int)(doc)
+# define DOC_NO(doc) (unsigned long)(doc)
#endif /* TCL_THREADS */
#define DOC_CMD(s,doc) sprintf((s), "domDoc%p", (doc))
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/domxslt.c new/tDOM-0.8.2/generic/domxslt.c
--- old/tDOM-0.8.2/generic/domxslt.c 2007-08-05 19:52:36.000000000 +0200
+++ new/tDOM-0.8.2/generic/domxslt.c 2007-08-11 02:39:41.000000000 +0200
@@ -2,7 +2,7 @@
| Copyright (c) 2000 Jochen Loewer (loewerj@hotmail.com)
|-----------------------------------------------------------------------------
|
-| $Id: domxslt.c,v 1.114 2007/08/05 17:52:36 rolf Exp $
+| $Id: domxslt.c,v 1.115 2007/08/11 00:39:41 rolf Exp $
|
|
| A XSLT implementation for tDOM, according to the W3C
@@ -3312,7 +3312,7 @@
{
xpathResultSet rs;
char *tplStart = NULL, *tplResult, *pc, literalChar;
- int rc, aLen, inTpl = 0, p = 0, inLiteral;
+ int rc, aLen, inTpl = 0, p = 0, inLiteral = 0;
aLen = 500;
*out = MALLOC(aLen);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/tcldom.c new/tDOM-0.8.2/generic/tcldom.c
--- old/tDOM-0.8.2/generic/tcldom.c 2007-08-07 22:11:24.000000000 +0200
+++ new/tDOM-0.8.2/generic/tcldom.c 2007-08-12 13:55:25.000000000 +0200
@@ -2,7 +2,7 @@
| Copyright (c) 1999 Jochen Loewer (loewerj@hotmail.com)
+-----------------------------------------------------------------------------
|
-| $Id: tcldom.c,v 1.108 2007/08/07 20:11:24 rolf Exp $
+| $Id: tcldom.c,v 1.110 2007/08/12 11:55:25 rolf Exp $
|
|
| A DOM implementation for Tcl using James Clark's expat XML parser
@@ -234,9 +234,9 @@
" createTextNode text ?objVar? \n"
" createComment text ?objVar? \n"
" createProcessingInstruction target data ?objVar? \n"
- " asXML ?-indent ? ?-channel <channelId>? ?-escapeNonASCII?\n"
+ " asXML ?-indent ? ?-channel <channel>? ?-escapeNonASCII? ?-escapeAllQuot? ?-doctypeDeclaration <boolean>?\n"
" asHTML ?-channel <channelId>? ?-escapeNonASCII? ?-htmlEntities?\n"
- " asTexT \n"
+ " asText \n"
" getDefaultOutputMethod \n"
" publicId ?publicId? \n"
" systemId ?systemId? \n"
@@ -329,7 +329,7 @@
" getColumn \n"
" @<attrName> ?defaultValue? \n"
" asList \n"
- " asXML ?-indent ? ?-channel <channel>? ?-escapeNonASCII?\n"
+ " asXML ?-indent ? ?-channel <channel>? ?-escapeNonASCII? ?-escapeAllQuot? ?-doctypeDeclaration <boolean>?\n"
" asHTML ?-channel <channelId>? ?-escapeNonASCII? ?-htmlEntities?\n"
" asText \n"
" appendFromList nestedList \n"
@@ -2902,7 +2902,8 @@
if (objc > 10) {
Tcl_WrongNumArgs(interp, 2, objv,
"?-indent <0..8>? ?-channel <channelID>? "
- "?-escapeNonASCII? -?doctypeDeclaration <boolean>?");
+ "?-escapeNonASCII? ?-escapeAllQuot? "
+ "?-doctypeDeclaration <boolean>?");
return TCL_ERROR;
}
indent = 4;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/tclexpat.h new/tDOM-0.8.2/generic/tclexpat.h
--- old/tDOM-0.8.2/generic/tclexpat.h 2004-12-10 19:56:31.000000000 +0100
+++ new/tDOM-0.8.2/generic/tclexpat.h 2007-08-11 02:00:46.000000000 +0200
@@ -144,7 +144,7 @@
|
\-------------------------------------------------------------------------*/
-#if defined(_MSC_VER)
+#if defined(_MSC_VER) || defined(BUILD_tdom)
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/tdom.h new/tDOM-0.8.2/generic/tdom.h
--- old/tDOM-0.8.2/generic/tdom.h 2007-07-31 02:23:13.000000000 +0200
+++ new/tDOM-0.8.2/generic/tdom.h 2007-08-11 02:00:26.000000000 +0200
@@ -126,6 +126,11 @@
CHandlerSet *firstCHandlerSet;
} TclGenExpatInfo;
+#ifdef BUILD_tdom
+# undef TCL_STORAGE_CLASS
+# define TCL_STORAGE_CLASS DLLEXPORT
+#endif
+
#include "dom.h"
#include "tdomDecls.h"
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/generic/tdomStubLib.c new/tDOM-0.8.2/generic/tdomStubLib.c
--- old/tDOM-0.8.2/generic/tdomStubLib.c 2007-08-07 19:25:41.000000000 +0200
+++ new/tDOM-0.8.2/generic/tdomStubLib.c 2007-08-12 13:29:25.000000000 +0200
@@ -1,30 +1,41 @@
-/*
- * tdomStubLib.c --
- *
- * Stub object that will be statically linked into extensions that wish
- * to access Tdom.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- * Copyright (c) 1998 Paul Duffin.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- */
-
-/*
- * We need to ensure that we use the stub macros so that this file contains
- * no references to any of the stub functions. This will make it possible
- * to build an extension that references Tdom_InitStubs but doesn't end up
- * including the rest of the stub functions.
- */
+/*----------------------------------------------------------------------------
+| Copyright (c) 2007 Rolf Ade (rolf@pointsman.de)
++-----------------------------------------------------------------------------
+|
+| $Id: tdomStubLib.c,v 1.8 2007/08/12 11:29:25 rolf Exp $
+|
+| Implements entry point, which has to be called by C coded extensions
+| to tDOM. Following http://wiki.tcl.tk/3358.
+|
+| The contents of this file are subject to the Mozilla Public License
+| Version 1.1 (the "License"); you may not use this file except in
+| compliance with the License. You may obtain a copy of the License at
+| http://www.mozilla.org/MPL/
+|
+| Software distributed under the License is distributed on an "AS IS"
+| basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+| License for the specific language governing rights and limitations
+| under the License.
+|
+| The Original Code is tDOM.
+|
+| The Initial Developer of the Original Code is Jochen Loewer
+| Portions created by Jochen Loewer are Copyright (C) 1998, 1999
+| Jochen Loewer. All Rights Reserved.
+|
+| Contributor(s):
+|
+|
+| written by Rolf Ade
+| August, 2007
+|
+\---------------------------------------------------------------------------*/
#ifndef USE_TCL_STUBS
-#define USE_TCL_STUBS
+# define USE_TCL_STUBS
#endif
#undef USE_TCL_STUB_PROCS
-#include
#include
/*
@@ -37,47 +48,40 @@
TdomStubs *tdomStubsPtr;
-/*
- *----------------------------------------------------------------------
- *
- * Tdom_InitStubs --
- *
- * Checks that the correct version of Tdom is loaded and that it
- * supports stubs. It then initialises the stub table pointers.
- *
- * Results:
- * The actual version of Tdom that satisfies the request, or
- * NULL to indicate that an error occurred.
- *
- * Side effects:
- * Sets the stub table pointers.
- *
- *----------------------------------------------------------------------
- */
+/*----------------------------------------------------------------------------
+| Tdom_InitStubs
+|
+\---------------------------------------------------------------------------*/
CONST char *
-Tdom_InitStubs (Tcl_Interp *interp, char *version, int exact)
+Tdom_InitStubs (
+ Tcl_Interp *interp,
+ char *version,
+ int exact
+ )
{
CONST char *actualVersion;
- ClientData clientData;
+ ClientData clientData = NULL;
#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION == 0)
- actualVersion = Tcl_PkgRequire(interp, "tdom", version, exact);
+ Tcl_SetResult(interp, "Too old Tcl version. Binary extensions "
+ "to tDOM are not possible, with a that outdated "
+ "Tcl version.", TCL_STATIC);
+ return NULL;
#else
actualVersion = Tcl_PkgRequireEx(interp, "tdom", version, exact,
(ClientData*) &clientData);
tdomStubsPtr = (TdomStubs*)clientData;
-#endif
if (!actualVersion) {
return NULL;
}
if (!tdomStubsPtr) {
- Tcl_SetResult(interp,
- "This implementation of Tdom does not support stubs",
- TCL_STATIC);
+ Tcl_SetResult(interp, "This implementation of Tdom does not "
+ "support stubs", TCL_STATIC);
return NULL;
}
-
+
return actualVersion;
+#endif
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/tdom.m4 new/tDOM-0.8.2/tdom.m4
--- old/tDOM-0.8.2/tdom.m4 2007-02-04 20:36:45.000000000 +0100
+++ new/tDOM-0.8.2/tdom.m4 2007-08-12 01:08:46.000000000 +0200
@@ -265,7 +265,6 @@
../../../tdom `ls -dr ../../../tdom-* 2>/dev/null` ; do
if test -f "$i/$tdom_bindir/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd $i/$tdom_bindir; pwd)`
- break
fi
done
fi
@@ -273,7 +272,6 @@
if test x"${ac_cv_c_tdomconfig}" = x ; then
if test -f "../../$tdom_bindir/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd ../../$tdom_bindir; pwd)`
- break
fi
fi
# Check in a few common install locations
@@ -283,7 +281,6 @@
`ls -d /usr/local/lib 2>/dev/null` ; do
if test -f "$i/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd $i; pwd)`
- break
fi
done
fi
@@ -294,7 +291,6 @@
`ls -dr ${srcdir}/../tdom[[0-9]].[[0-9]]* 2>/dev/null` ; do
if test -f "$i/$tdom_bindir/tdomConfig.sh" ; then
ac_cv_c_tdomconfig=`(cd $i/$tdom_bindir; pwd)`
- break
fi
done
fi
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/unix/tclAppInit.c new/tDOM-0.8.2/unix/tclAppInit.c
--- old/tDOM-0.8.2/unix/tclAppInit.c 2002-06-23 02:25:37.000000000 +0200
+++ new/tDOM-0.8.2/unix/tclAppInit.c 2007-08-12 00:20:11.000000000 +0200
@@ -1,75 +1,62 @@
-/*
- * tclAppInit.c --
- *
- * Provides a default version of the main program and Tcl_AppInit
- * procedure for Tcl applications (without Tk).
- *
- * Copyright (c) 1993 The Regents of the University of California.
- * Copyright (c) 1994-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclAppInit.c,v 1.3 2002/06/23 00:25:37 rolf Exp $
- */
-
-#ifdef TCL_XT_TEST
-#include
-#endif
+/*----------------------------------------------------------------------------
+| Copyright (c) 2007 Rolf Ade (rolf@pointsman.de)
++-----------------------------------------------------------------------------
+|
+| $Id: tclAppInit.c,v 1.5 2007/08/11 22:20:11 rolf Exp $
+|
+|
+| Main file for a standalone tclsh with tDOM build in ('big tclsh').
+|
+| The contents of this file are subject to the Mozilla Public License
+| Version 1.1 (the "License"); you may not use this file except in
+| compliance with the License. You may obtain a copy of the License at
+| http://www.mozilla.org/MPL/
+|
+| Software distributed under the License is distributed on an "AS IS"
+| basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+| License for the specific language governing rights and limitations
+| under the License.
+|
+| The Original Code is tDOM.
+|
+| The Initial Developer of the Original Code is Jochen Loewer
+| Portions created by Jochen Loewer are Copyright (C) 1998, 1999
+| Jochen Loewer. All Rights Reserved.
+|
+| Contributor(s):
+|
+|
+| written by Rolf Ade
+| August, 2007
+|
+\---------------------------------------------------------------------------*/
#include "tcl.h"
extern int Tdom_Init _ANSI_ARGS_((Tcl_Interp *interp));
extern int Tdom_SafeInit _ANSI_ARGS_((Tcl_Interp *interp));
-/*
- *----------------------------------------------------------------------
- *
- * main --
- *
- * This is the main program for the application.
- *
- * Results:
- * None: Tcl_Main never returns here, so this procedure never
- * returns either.
- *
- * Side effects:
- * Whatever the application does.
- *
- *----------------------------------------------------------------------
- */
-
+/*----------------------------------------------------------------------------
+| main
+|
+\---------------------------------------------------------------------------*/
int
-main(argc, argv)
- int argc; /* Number of command-line arguments. */
- char **argv; /* Values of command-line arguments. */
+main(
+ int argc,
+ char **argv
+ )
{
- Tcl_Main(argc, argv, Tcl_AppInit);
- return 0; /* Needed only to prevent compiler warning. */
+ Tcl_Main (argc, argv, Tcl_AppInit);
+ return 0;
}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_AppInit --
- *
- * This procedure performs application-specific initialization.
- * Most applications, especially those that incorporate additional
- * packages, will have their own version of this procedure.
- *
- * Results:
- * Returns a standard Tcl completion code, and leaves an error
- * message in interp->result if an error occurs.
- *
- * Side effects:
- * Depends on the startup script.
- *
- *----------------------------------------------------------------------
- */
+/*----------------------------------------------------------------------------
+| Tcl_AppInit
+|
+\---------------------------------------------------------------------------*/
int
Tcl_AppInit(interp)
- Tcl_Interp *interp; /* Interpreter for application. */
+ Tcl_Interp *interp;
{
if (Tcl_Init(interp) == TCL_ERROR) {
return TCL_ERROR;
@@ -77,32 +64,7 @@
if (Tdom_Init(interp) == TCL_ERROR) {
return TCL_ERROR;
}
-
Tcl_StaticPackage(interp, "tdom", Tdom_Init, Tdom_SafeInit);
-
- /*
- * Call the init procedures for included packages. Each call should
- * look like this:
- *
- * if (Mod_Init(interp) == TCL_ERROR) {
- * return TCL_ERROR;
- * }
- *
- * where "Mod" is the name of the module.
- */
-
- /*
- * Call Tcl_CreateCommand for application-specific commands, if
- * they weren't already created by the init procedures called above.
- */
-
- /*
- * Specify a user-specific startup file to invoke if the application
- * is run interactively. Typically the startup file is "~/.apprc"
- * where "app" is the name of the application. If this line is deleted
- * then no user-specific startup file will be run under any conditions.
- */
-
- Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY);
+ Tcl_SetVar(interp, "tcl_rcFileName", "~/.tcldomshrc", TCL_GLOBAL_ONLY);
return TCL_OK;
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/tDOM-0.8.2/win/pkgIndex.tcl new/tDOM-0.8.2/win/pkgIndex.tcl
--- old/tDOM-0.8.2/win/pkgIndex.tcl 2005-01-16 12:55:49.000000000 +0100
+++ new/tDOM-0.8.2/win/pkgIndex.tcl 2007-08-15 01:22:32.000000000 +0200
@@ -1,5 +1,5 @@
# tDOM Tcl package index file
-package ifneeded tdom 0.8.1 \
- "[list load [file join $dir libtdom081[info sharedlibextension] ] tdom];\
+package ifneeded tdom 0.8.2 \
+ "[list load [file join $dir tdom082[info sharedlibextension] ] tdom];\
[list source [file join $dir tdom.tcl]]"
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org