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
45
46
47
48
49
50
51
52

53
54

55
56
57
58
59
60
61



#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_PIValueCheck(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);








>
>
>















>


>








31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66



#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_PIValueCheck(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);
︙︙
85
86
87
88
89
90
91



92
93
94
95
96
97
98
99
100
101
102

103
104
105

    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










>
>
>











>




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

    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
173
174
175
176
177
178
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);
int CHandlerSetRemove (Tcl_Interp *interp,
 		      Tcl_Obj *const expatObj,
 		      char *handlerSetName);
CHandlerSet * CHandlerSetCreate (char *name);
CHandlerSet * CHandlerSetGet (Tcl_Interp *interp,
                              Tcl_Obj *const expatObj,
 			     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
169
170
171
172
173
174
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);
int CHandlerSetRemove (Tcl_Interp *interp,
 		      Tcl_Obj *const expatObj,
 		      char *handlerSetName);
CHandlerSet * CHandlerSetCreate (char *name);
CHandlerSet * CHandlerSetGet (Tcl_Interp *interp,
                              Tcl_Obj *const expatObj,
 			     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.19 [1e131febd3] 2022-07-21 16:10:55
This page was generated in about 0.006s