Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Restored build with VC build chain.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | wip
Files: files | file ages | folders
SHA3-256: 0a6be2d70690b69fd8df4424d65f27e55a4751fbfa8aced427c0f8839a91c065
User & Date: user 2024-07-08 14:10:27
Context
2024-07-08
14:55
Started with Tcl 9 there are only threaded builds. check-in: 1015b3cae0 user: user tags: wip
14:10
Restored build with VC build chain. check-in: 0a6be2d706 user: user tags: wip
12:30
In a few cases Tcl 9 needs Tcl_Size and Tcl 8 long. check-in: a1f819339d user: rolf tags: wip
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tcldom.h. 

31
32
33
34
35
36
37



38
39
40
41
42
43
44
..
46
47
48
49
50
51
52

53
54

55
56
57
58
59
60
61
..
85
86
87
88
89
90
91



92
93
94
95
96
97
98
99
100
101
102

103
104
105



#ifndef __TCLDOM_H_INCLUDE__
#define __TCLDOM_H_INCLUDE__  

#include <tcl.h>





/* The following procs are defined in tcldom.c - since they are used
 * in nodecmd.c these need a prototype somewhere. The prototypes can
 * live here for now. */
int  tcldom_textCheck(Tcl_Interp *interp, char *text, char *errText);
int  tcldom_commentCheck(Tcl_Interp *interp, char *text);
int  tcldom_CDATACheck(Tcl_Interp *interp, char *text);
................................................................................
int  tcldom_PINameCheck(Tcl_Interp *interp, char *name);
int  tcldom_nameCheck(Tcl_Interp *interp, char *name, char *nameType,
                      int isFQName);
void tcldom_createNodeObj(Tcl_Interp * interp, domNode *node,
                          char *objCmdName);

domNode * tcldom_getNodeFromObj(Tcl_Interp  *interp, Tcl_Obj *nodeObj);

domDocument * tcldom_getDocumentFromName(Tcl_Interp *interp,
				char *docName, char **errMsg);

int tcldom_prefixNSlist (char ***prefixnsPtr, Tcl_Interp *interp, int objc,
                         Tcl_Obj *const objv[], const char *methodName);
int tcldom_setInterpAndReturnVar (Tcl_Interp *interp, domNode *node,
                                  int setVariable, Tcl_Obj *var_name);

void tcldom_initialize(void);
void tcldom_deleteDoc (Tcl_Interp *interp, domDocument *doc);
................................................................................
    domLength column,
    char *xmlstring,
    const char *entity,
    domLength byteIndex,
    const char *errStr
    );





#if defined(_MSC_VER) || defined(__MINGW32__)
#  undef TCL_STORAGE_CLASS
#  define TCL_STORAGE_CLASS DLLEXPORT
#endif

#define STR_TDOM_VERSION(v) (VERSION)

EXTERN int Tdom_Init     (Tcl_Interp *interp);
EXTERN int Tdom_SafeInit (Tcl_Interp *interp);


#endif










>
>
>







 







>


>







 







>
>
>











>




31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
..
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
..
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114



#ifndef __TCLDOM_H_INCLUDE__
#define __TCLDOM_H_INCLUDE__  

#include <tcl.h>

#ifdef __cplusplus
extern "C" {
#endif

/* The following procs are defined in tcldom.c - since they are used
 * in nodecmd.c these need a prototype somewhere. The prototypes can
 * live here for now. */
int  tcldom_textCheck(Tcl_Interp *interp, char *text, char *errText);
int  tcldom_commentCheck(Tcl_Interp *interp, char *text);
int  tcldom_CDATACheck(Tcl_Interp *interp, char *text);
................................................................................
int  tcldom_PINameCheck(Tcl_Interp *interp, char *name);
int  tcldom_nameCheck(Tcl_Interp *interp, char *name, char *nameType,
                      int isFQName);
void tcldom_createNodeObj(Tcl_Interp * interp, domNode *node,
                          char *objCmdName);

domNode * tcldom_getNodeFromObj(Tcl_Interp  *interp, Tcl_Obj *nodeObj);
#ifndef __TDOM_H
domDocument * tcldom_getDocumentFromName(Tcl_Interp *interp,
				char *docName, char **errMsg);
#endif
int tcldom_prefixNSlist (char ***prefixnsPtr, Tcl_Interp *interp, int objc,
                         Tcl_Obj *const objv[], const char *methodName);
int tcldom_setInterpAndReturnVar (Tcl_Interp *interp, domNode *node,
                                  int setVariable, Tcl_Obj *var_name);

void tcldom_initialize(void);
void tcldom_deleteDoc (Tcl_Interp *interp, domDocument *doc);
................................................................................
    domLength column,
    char *xmlstring,
    const char *entity,
    domLength byteIndex,
    const char *errStr
    );

#ifdef __cplusplus
}
#endif

#if defined(_MSC_VER) || defined(__MINGW32__)
#  undef TCL_STORAGE_CLASS
#  define TCL_STORAGE_CLASS DLLEXPORT
#endif

#define STR_TDOM_VERSION(v) (VERSION)

EXTERN int Tdom_Init     (Tcl_Interp *interp);
EXTERN int Tdom_SafeInit (Tcl_Interp *interp);

    
#endif

Changes to generic/tclexpat.h. 

154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
...
179
180
181
182
183
184
185
186



} TclGenExpatInfo;

/*--------------------------------------------------------------------------
|   Function prototypes
|
\-------------------------------------------------------------------------*/

#if defined(_MSC_VER) || defined(BUILD_tdom) || defined(__MINGW32__) 
#  undef TCL_STORAGE_CLASS
#  define TCL_STORAGE_CLASS DLLEXPORT
#endif

Tcl_ObjCmdProc TclExpatObjCmd;

int CheckExpatParserObj (Tcl_Interp *interp,
 			Tcl_Obj *const nameObj);
int CHandlerSetInstall (Tcl_Interp *interp,
 		       Tcl_Obj *const expatObj,
 		       CHandlerSet *handlerSet);
................................................................................
 			     char *handlerSetName);
void * CHandlerSetGetUserData (Tcl_Interp *interp,
                               Tcl_Obj *const expatObj,
 			      char *handlerSetName);

TclGenExpatInfo * GetExpatInfo (Tcl_Interp *interp,
				       Tcl_Obj *const expatObj);
#endif 










|
<
<
<
<







 







|
>
>

154
155
156
157
158
159
160
161




162
163
164
165
166
167
168
...
175
176
177
178
179
180
181
182
183
184

} TclGenExpatInfo;

/*--------------------------------------------------------------------------
|   Function prototypes
|
\-------------------------------------------------------------------------*/

#ifndef __TDOM_H




Tcl_ObjCmdProc TclExpatObjCmd;

int CheckExpatParserObj (Tcl_Interp *interp,
 			Tcl_Obj *const nameObj);
int CHandlerSetInstall (Tcl_Interp *interp,
 		       Tcl_Obj *const expatObj,
 		       CHandlerSet *handlerSet);
................................................................................
 			     char *handlerSetName);
void * CHandlerSetGetUserData (Tcl_Interp *interp,
                               Tcl_Obj *const expatObj,
 			      char *handlerSetName);

TclGenExpatInfo * GetExpatInfo (Tcl_Interp *interp,
				       Tcl_Obj *const expatObj);
#endif

#endif

Changes to generic/tdom.h. 

1


2
3

4
5
6
7
8
9
10
11
12




#include "tcl.h"
#include <expat.h>


#ifdef BUILD_tdom
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif

#include "tclexpat.h"
#include "dom.h"
#include "tdomDecls.h"


>
>


>






<



1
2
3
4
5
6
7
8
9
10
11
12

13
14


#define __TDOM_H

#include "tcl.h"
#include <expat.h>
#include <tclexpat.h>

#ifdef BUILD_tdom
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif


#include "dom.h"
#include "tdomDecls.h"

Changes to generic/tdomStubInit.c. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14


/* This is generated by the getStubs.tcl tool (see the Tcl distribution)
   out of the tdom.decls file */
   
#ifdef USE_TCL_STUBS

#include <dom.h>
#include <tdom.h>

/* !BEGIN!: Do not edit below this line. */

const TdomStubs tdomStubs = {
    TCL_STUB_MAGIC,
    0,







<








1
2
3
4
5
6

7
8
9
10
11
12
13


/* This is generated by the getStubs.tcl tool (see the Tcl distribution)
   out of the tdom.decls file */
   
#ifdef USE_TCL_STUBS


#include <tdom.h>

/* !BEGIN!: Do not edit below this line. */

const TdomStubs tdomStubs = {
    TCL_STUB_MAGIC,
    0,

Changes to generic/tdominit.c. 

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46




/*----------------------------------------------------------------------------
|   Includes
|
\---------------------------------------------------------------------------*/
#include <tcl.h>
#include <dom.h>
#include <tdom.h>
#include <tcldom.h>
#include <tclpull.h>
#include <schema.h>
#include <nodecmd.h>

extern TdomStubs tdomStubs;








<
<








31
32
33
34
35
36
37


38
39
40
41
42
43
44




/*----------------------------------------------------------------------------
|   Includes
|
\---------------------------------------------------------------------------*/


#include <tdom.h>
#include <tcldom.h>
#include <tclpull.h>
#include <schema.h>
#include <nodecmd.h>

extern TdomStubs tdomStubs;

Fossil 2.15.2 [818f40f62f] 2021-06-15 10:03:05
This page was generated in about 0.005s