1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
/*
* tkimgDecls.h --
*
* Declarations of functions in the platform independent public TKIMG API.
*
*/
#ifndef _TKIMGDECLS
#define _TKIMGDECLS
/*
* WARNING: The contents of this file is automatically generated by the
* genStubs.tcl script. Any modifications to the function declarations
* below should be made in the tkimg.decls script.
*/
#include <tk.h>
#ifdef TKIMGAPI
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#else
# define TKIMGAPI extern
# undef USE_TKIMG_STUBS
# define USE_TKIMG_STUBS 1
#endif
EXTERN int Tkimg_Init(Tcl_Interp *interp);
EXTERN int Tkimg_SafeInit(Tcl_Interp *interp);
typedef struct tkimg_MFile {
Tcl_DString *buffer; /* pointer to dynamical string */
char *data; /* mmencoded source string */
int c; /* bits left over from previous char */
int state; /* decoder state (0-4 or IMG_DONE) */
int length; /* length of physical line already written */
} tkimg_MFile;
/* !BEGIN!: Do not edit below this line. */
/*
* Exported function declarations:
*/
/* 0 */
TKIMGAPI Tcl_Channel tkimg_OpenFileChannel(Tcl_Interp *interp,
const char *fileName, int permissions);
/* 1 */
TKIMGAPI int tkimg_ReadInit(Tcl_Obj *data, int c,
tkimg_MFile *handle);
/* 2 */
TKIMGAPI void tkimg_WriteInit(Tcl_DString *buffer,
tkimg_MFile *handle);
/* 3 */
TKIMGAPI int tkimg_Getc(tkimg_MFile *handle);
/* 4 */
TKIMGAPI int tkimg_Read(tkimg_MFile *handle, char *dst, int count);
/* 5 */
TKIMGAPI int tkimg_Putc(int c, tkimg_MFile *handle);
/* 6 */
TKIMGAPI int tkimg_Write(tkimg_MFile *handle, const char *src,
int count);
/* 7 */
TKIMGAPI void tkimg_ReadBuffer(int onOff);
/* Slot 8 is reserved */
/* Slot 9 is reserved */
/* 10 */
TKIMGAPI int tkimg_PhotoPutBlock(Tcl_Interp *interp,
Tk_PhotoHandle handle,
Tk_PhotoImageBlock *blockPtr, int x, int y,
int width, int height, int flags);
/* 11 */
TKIMGAPI int tkimg_PhotoExpand(Tcl_Interp *interp,
Tk_PhotoHandle handle, int width, int height);
/* 12 */
TKIMGAPI int tkimg_PhotoSetSize(Tcl_Interp *interp,
Tk_PhotoHandle handle, int width, int height);
/* Slot 13 is reserved */
/* Slot 14 is reserved */
/* Slot 15 is reserved */
/* Slot 16 is reserved */
/* Slot 17 is reserved */
/* Slot 18 is reserved */
/* Slot 19 is reserved */
/* 20 */
TKIMGAPI void tkimg_FixChanMatchProc(Tcl_Interp **interp,
Tcl_Channel *chan, const char **file,
Tcl_Obj **format, int **width, int **height);
/* 21 */
TKIMGAPI void tkimg_FixObjMatchProc(Tcl_Interp **interp,
Tcl_Obj **data, Tcl_Obj **format,
int **width, int **height);
/* 22 */
TKIMGAPI void tkimg_FixStringWriteProc(Tcl_DString *data,
Tcl_Interp **interp, Tcl_DString **dataPtr,
Tcl_Obj **format,
Tk_PhotoImageBlock **blockPtr);
/* Slot 23 is reserved */
/* Slot 24 is reserved */
/* Slot 25 is reserved */
/* Slot 26 is reserved */
/* Slot 27 is reserved */
/* Slot 28 is reserved */
/* Slot 29 is reserved */
/* 30 */
TKIMGAPI const char * tkimg_GetStringFromObj(Tcl_Obj *objPtr,
int *lengthPtr);
/* 31 */
TKIMGAPI unsigned char * tkimg_GetByteArrayFromObj(Tcl_Obj *objPtr,
int *lengthPtr);
/* 32 */
TKIMGAPI int tkimg_ListObjGetElements(Tcl_Interp *interp,
Tcl_Obj *objPtr, int *argc, Tcl_Obj ***argv);
typedef struct TkimgStubs {
int magic;
const struct TkimgStubHooks *hooks;
Tcl_Channel (*tkimg_OpenFileChannelPtr) (Tcl_Interp *interp, const char *fileName, int permissions); /* 0 */
int (*tkimg_ReadInitPtr) (Tcl_Obj *data, int c, tkimg_MFile *handle); /* 1 */
void (*tkimg_WriteInitPtr) (Tcl_DString *buffer, tkimg_MFile *handle); /* 2 */
int (*tkimg_GetcPtr) (tkimg_MFile *handle); /* 3 */
int (*tkimg_ReadPtr) (tkimg_MFile *handle, char *dst, int count); /* 4 */
int (*tkimg_PutcPtr) (int c, tkimg_MFile *handle); /* 5 */
int (*tkimg_WritePtr) (tkimg_MFile *handle, const char *src, int count); /* 6 */
void (*tkimg_ReadBufferPtr) (int onOff); /* 7 */
void (*reserved8)(void);
void (*reserved9)(void);
int (*tkimg_PhotoPutBlockPtr) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int flags); /* 10 */
int (*tkimg_PhotoExpandPtr) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 11 */
int (*tkimg_PhotoSetSizePtr) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 12 */
void (*reserved13)(void);
void (*reserved14)(void);
void (*reserved15)(void);
void (*reserved16)(void);
void (*reserved17)(void);
void (*reserved18)(void);
void (*reserved19)(void);
void (*tkimg_FixChanMatchProcPtr) (Tcl_Interp **interp, Tcl_Channel *chan, const char **file, Tcl_Obj **format, int **width, int **height); /* 20 */
void (*tkimg_FixObjMatchProcPtr) (Tcl_Interp **interp, Tcl_Obj **data, Tcl_Obj **format, int **width, int **height); /* 21 */
void (*tkimg_FixStringWriteProcPtr) (Tcl_DString *data, Tcl_Interp **interp, Tcl_DString **dataPtr, Tcl_Obj **format, Tk_PhotoImageBlock **blockPtr); /* 22 */
void (*reserved23)(void);
void (*reserved24)(void);
void (*reserved25)(void);
void (*reserved26)(void);
void (*reserved27)(void);
void (*reserved28)(void);
void (*reserved29)(void);
const char * (*tkimg_GetStringFromObjPtr) (Tcl_Obj *objPtr, int *lengthPtr); /* 30 */
unsigned char * (*tkimg_GetByteArrayFromObjPtr) (Tcl_Obj *objPtr, int *lengthPtr); /* 31 */
int (*tkimg_ListObjGetElementsPtr) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *argc, Tcl_Obj ***argv); /* 32 */
} TkimgStubs;
#ifdef __cplusplus
extern "C" {
#endif
TKIMGAPI const TkimgStubs *tkimgStubsPtr;
#ifdef __cplusplus
}
#endif
#if defined(USE_TKIMG_STUBS)
/*
* Inline function declarations:
*/
#define tkimg_OpenFileChannel \
(tkimgStubsPtr->tkimg_OpenFileChannelPtr) /* 0 */
#define tkimg_ReadInit \
(tkimgStubsPtr->tkimg_ReadInitPtr) /* 1 */
#define tkimg_WriteInit \
(tkimgStubsPtr->tkimg_WriteInitPtr) /* 2 */
#define tkimg_Getc \
(tkimgStubsPtr->tkimg_GetcPtr) /* 3 */
#define tkimg_Read \
(tkimgStubsPtr->tkimg_ReadPtr) /* 4 */
#define tkimg_Putc \
(tkimgStubsPtr->tkimg_PutcPtr) /* 5 */
#define tkimg_Write \
(tkimgStubsPtr->tkimg_WritePtr) /* 6 */
#define tkimg_ReadBuffer \
(tkimgStubsPtr->tkimg_ReadBufferPtr) /* 7 */
/* Slot 8 is reserved */
/* Slot 9 is reserved */
#define tkimg_PhotoPutBlock \
(tkimgStubsPtr->tkimg_PhotoPutBlockPtr) /* 10 */
#define tkimg_PhotoExpand \
(tkimgStubsPtr->tkimg_PhotoExpandPtr) /* 11 */
#define tkimg_PhotoSetSize \
(tkimgStubsPtr->tkimg_PhotoSetSizePtr) /* 12 */
/* Slot 13 is reserved */
/* Slot 14 is reserved */
/* Slot 15 is reserved */
/* Slot 16 is reserved */
/* Slot 17 is reserved */
/* Slot 18 is reserved */
/* Slot 19 is reserved */
#define tkimg_FixChanMatchProc \
(tkimgStubsPtr->tkimg_FixChanMatchProcPtr) /* 20 */
#define tkimg_FixObjMatchProc \
(tkimgStubsPtr->tkimg_FixObjMatchProcPtr) /* 21 */
#define tkimg_FixStringWriteProc \
(tkimgStubsPtr->tkimg_FixStringWriteProcPtr) /* 22 */
/* Slot 23 is reserved */
/* Slot 24 is reserved */
/* Slot 25 is reserved */
/* Slot 26 is reserved */
/* Slot 27 is reserved */
/* Slot 28 is reserved */
/* Slot 29 is reserved */
#define tkimg_GetStringFromObj \
(tkimgStubsPtr->tkimg_GetStringFromObjPtr) /* 30 */
#define tkimg_GetByteArrayFromObj \
(tkimgStubsPtr->tkimg_GetByteArrayFromObjPtr) /* 31 */
#define tkimg_ListObjGetElements \
(tkimgStubsPtr->tkimg_ListObjGetElementsPtr) /* 32 */
#endif /* defined(USE_TKIMG_STUBS) */
/* !END!: Do not edit above this line. */
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TKIMGDECLS */
|
