]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | * tclExtdInt.h | |
3 | * | |
4 | * Standard internal include file for Extended Tcl library.. | |
5 | *----------------------------------------------------------------------------- | |
6 | * Copyright 1992 Karl Lehenbauer and Mark Diekhans. | |
7 | * | |
8 | * Permission to use, copy, modify, and distribute this software and its | |
9 | * documentation for any purpose and without fee is hereby granted, provided | |
10 | * that the above copyright notice appear in all copies. Karl Lehenbauer and | |
11 | * Mark Diekhans make no representations about the suitability of this | |
12 | * software for any purpose. It is provided "as is" without express or | |
13 | * implied warranty. | |
14 | *----------------------------------------------------------------------------- | |
15 | * $Id: tclExtdInt.h,v 2.0 1992/10/16 04:51:27 markd Rel $ | |
16 | *----------------------------------------------------------------------------- | |
17 | */ | |
18 | ||
19 | #ifndef TCLEXTDINT_H | |
20 | #define TCLEXTDINT_H | |
21 | ||
22 | #include "tclxtend.h" | |
23 | #include "tclint.h" | |
24 | #include "tclunix.h" | |
25 | #include <sys/param.h> | |
26 | #include <unistd.h> | |
27 | ||
28 | ||
29 | #ifdef TCL_NEED_SYS_SELECT_H | |
30 | # include "sys/select.h" | |
31 | #endif | |
32 | ||
33 | /* | |
34 | * If tclUnix.h has already included time.h, don't include it again, some | |
35 | * systems don't #ifdef inside of the file. On some systems, undef | |
36 | * CLK_TCK (defined in tclUnix.h) to avoid an annoying warning about | |
37 | * redefinition. | |
38 | */ | |
39 | #ifdef TCL_NEED_TIME_H | |
40 | # if TCL_SYS_TIME_H | |
41 | # ifdef TCL_DUP_CLK_TCK | |
42 | # undef CLK_TCK | |
43 | # endif | |
44 | # include <time.h> | |
45 | # endif | |
46 | #endif | |
47 | ||
48 | /* | |
49 | * Precompute milliseconds-per-tick, the " + CLK_TCK / 2" bit gets it to | |
50 | * round off instead of truncate. Take care of defining CLK_TCK if its not | |
51 | * defined. | |
52 | */ | |
53 | #ifndef CLK_TCK | |
54 | # ifdef HZ | |
55 | # define CLK_TCK HZ | |
56 | # else | |
57 | # define CLK_TCK 60 | |
58 | # endif | |
59 | #endif | |
60 | ||
61 | #define MS_PER_TICK ((1000 + CLK_TCK/2) / CLK_TCK) | |
62 | ||
63 | /* | |
64 | * If tclUnix.h did not bring times.h, bring it in here. | |
65 | */ | |
66 | #if TCL_GETTOD | |
67 | # include <sys/times.h> | |
68 | #endif | |
69 | ||
70 | //#include "values.h" | |
71 | #include <limits.h> | |
72 | #include <float.h> | |
73 | #define MAXDOUBLE DBL_MAX | |
74 | #include <grp.h> | |
75 | /* | |
76 | * On some systems this is not included by tclUnix.h. | |
77 | */ | |
78 | ||
79 | /* | |
80 | * These should be take from an include file, but it got to be such a mess | |
81 | * to get the include files right that they are here for good measure. | |
82 | */ | |
83 | struct tm *gmtime (); | |
84 | struct tm *localtime (); | |
85 | ||
86 | #ifndef MAXINT | |
87 | # define BITSPERBYTE 8 | |
88 | # define BITS(type) (BITSPERBYTE * (int)sizeof(type)) | |
89 | # define HIBITI ((unsigned int)(1 << BITS(int) - 1)) | |
90 | # define MAXINT ((int)(~HIBITI)) | |
91 | #endif | |
92 | ||
93 | #ifndef MININT | |
94 | # define MININT (-MAXINT)-1 | |
95 | #endif | |
96 | ||
97 | #ifndef TRUE | |
98 | # define TRUE (1) | |
99 | # define FALSE (0) | |
100 | #endif | |
101 | ||
102 | /* | |
103 | * Structure to hold a regular expression, plus a Boyer-Moore compiled | |
104 | * pattern. | |
105 | */ | |
106 | ||
107 | typedef struct regexp_t { | |
108 | regexp *progPtr; | |
109 | char *boyerMoorePtr; | |
110 | int noCase; | |
111 | } regexp_t; | |
112 | typedef regexp_t *regexp_pt; | |
113 | /* | |
114 | * Flags used by RegExpCompile: | |
115 | */ | |
116 | #define REXP_NO_CASE 1 /* Do matching regardless of case */ | |
117 | #define REXP_BOTH_ALGORITHMS 2 /* Use boyer-moore along with regexp */ | |
118 | ||
119 | /* | |
120 | * Data structure to control a dynamic buffer. These buffers are primarly | |
121 | * used for reading things from files, were the maximum size is not known | |
122 | * in advance, and the buffer must grow. These are used in the case were | |
123 | * the value is not to be returned as the interpreter result. | |
124 | */ | |
125 | ||
126 | #define INIT_DYN_BUFFER_SIZE 256 | |
127 | ||
128 | typedef struct dynamicBuf_t { | |
129 | char buf [INIT_DYN_BUFFER_SIZE]; /* Initial buffer area. */ | |
130 | char *ptr; /* Pointer to buffer area. */ | |
131 | int size; /* Current size of buffer. */ | |
132 | int len; /* Current string length (less '\0') */ | |
133 | } dynamicBuf_t; | |
134 | ||
135 | /* | |
136 | * Used to return argument messages by most commands. | |
137 | */ | |
138 | extern char *tclXWrongArgs; | |
139 | ||
140 | /* | |
141 | * Macros to do string compares. They pre-check the first character before | |
142 | * checking of the strings are equal. | |
143 | */ | |
144 | ||
145 | #define STREQU(str1, str2) \ | |
146 | (((str1) [0] == (str2) [0]) && (strcmp (str1, str2) == 0)) | |
147 | #define STRNEQU(str1, str2, cnt) \ | |
148 | (((str1) [0] == (str2) [0]) && (strncmp (str1, str2, cnt) == 0)) | |
149 | ||
150 | /* | |
151 | * Prototypes for utility procedures. | |
152 | */ | |
153 | void | |
154 | Tcl_DynBufInit _ANSI_ARGS_((dynamicBuf_t *dynBufPtr)); | |
155 | ||
156 | void | |
157 | Tcl_DynBufFree _ANSI_ARGS_((dynamicBuf_t *dynBufPtr)); | |
158 | ||
159 | void | |
160 | Tcl_DynBufReturn _ANSI_ARGS_((Tcl_Interp *interp, | |
161 | dynamicBuf_t *dynBufPtr)); | |
162 | ||
163 | void | |
164 | Tcl_DynBufAppend _ANSI_ARGS_((dynamicBuf_t *dynBufPtr, | |
165 | char *newStr)); | |
166 | ||
167 | void | |
168 | Tcl_ExpandDynBuf _ANSI_ARGS_((dynamicBuf_t *dynBufPtr, | |
169 | int appendSize)); | |
170 | ||
171 | int | |
172 | Tcl_DynamicFgets _ANSI_ARGS_((dynamicBuf_t *dynBufPtr, | |
173 | FILE *filePtr, | |
174 | int append)); | |
175 | ||
176 | int | |
177 | Tcl_ConvertFileHandle _ANSI_ARGS_((Tcl_Interp *interp, | |
178 | char *handle)); | |
179 | ||
180 | time_t | |
181 | Tcl_GetDate _ANSI_ARGS_((char *p, | |
182 | time_t now, | |
183 | long zone)); | |
184 | ||
185 | int | |
186 | Tcl_ProcessSignal _ANSI_ARGS_((Tcl_Interp *interp, | |
187 | int cmdResultCode)); | |
188 | ||
189 | void | |
190 | Tcl_RegExpClean _ANSI_ARGS_((regexp_pt regExpPtr)); | |
191 | ||
192 | int | |
193 | Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp *interp, | |
194 | regexp_pt regExpPtr, | |
195 | char *expression, | |
196 | int flags)); | |
197 | ||
198 | int | |
199 | Tcl_RegExpExecute _ANSI_ARGS_((Tcl_Interp *interp, | |
200 | regexp_pt regExpPtr, | |
201 | char *matchStrIn, | |
202 | char *matchStrLower)); | |
203 | void | |
204 | Tcl_ResetSignals (); | |
205 | ||
206 | int | |
207 | Tcl_ReturnDouble _ANSI_ARGS_((Tcl_Interp *interp, | |
208 | double number)); | |
209 | ||
210 | int | |
211 | Tcl_SetupFileEntry _ANSI_ARGS_((Tcl_Interp *interp, | |
212 | int fileNum, | |
213 | int readable, | |
214 | int writable)); | |
215 | ||
216 | /* | |
217 | * Definitions required to initialize all extended commands. These are either | |
218 | * the command executors or initialization routines that do the command | |
219 | * initialization. The initialization routines are used when there is more | |
220 | * to initializing the command that just binding the command name to the | |
221 | * executor. Usually, this means initializing some command local data via | |
222 | * the ClientData mechanism. The command executors should be declared to be of | |
223 | * type `Tcl_CmdProc', but this blows up some compilers, so they are declared | |
224 | * with an ANSI prototype. | |
225 | */ | |
226 | ||
227 | /* | |
228 | * from tclXbsearch.c | |
229 | */ | |
230 | extern int | |
231 | Tcl_BsearchCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
232 | ||
233 | /* | |
234 | * from tclXchmod.c | |
235 | */ | |
236 | extern int | |
237 | Tcl_ChmodCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
238 | ||
239 | extern int | |
240 | Tcl_ChownCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
241 | ||
242 | extern int | |
243 | Tcl_ChgrpCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
244 | ||
245 | /* | |
246 | * from tclXclock.c | |
247 | */ | |
248 | extern int | |
249 | Tcl_GetclockCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
250 | ||
251 | extern int | |
252 | Tcl_FmtclockCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
253 | ||
254 | /* | |
255 | * from tclXcnvclock.c | |
256 | */ | |
257 | extern int | |
258 | Tcl_ConvertclockCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
259 | ||
260 | /* | |
261 | * from tclXcmdloop.c | |
262 | */ | |
263 | extern int | |
264 | Tcl_CommandloopCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
265 | ||
266 | /* | |
267 | * from tclXdebug.c | |
268 | */ | |
269 | extern void | |
270 | Tcl_InitDebug _ANSI_ARGS_((Tcl_Interp *interp)); | |
271 | ||
272 | /* | |
273 | * from tclXdup.c | |
274 | */ | |
275 | extern int | |
276 | Tcl_DupCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
277 | ||
278 | /* | |
279 | * from tclXfcntl.c | |
280 | */ | |
281 | extern int | |
282 | Tcl_FcntlCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
283 | ||
284 | /* | |
285 | * from tclXfilecmds.c | |
286 | */ | |
287 | extern int | |
288 | Tcl_PipeCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
289 | ||
290 | extern int | |
291 | Tcl_CopyfileCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
292 | ||
293 | extern int | |
294 | Tcl_FstatCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
295 | ||
296 | extern int | |
297 | Tcl_LgetsCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
298 | ||
299 | extern int | |
300 | Tcl_FlockCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
301 | ||
302 | extern int | |
303 | Tcl_FunlockCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
304 | ||
305 | /* | |
306 | * from tclXfilescan.c | |
307 | */ | |
308 | extern void | |
309 | Tcl_InitFilescan _ANSI_ARGS_((Tcl_Interp *interp)); | |
310 | ||
311 | /* | |
312 | * from tclXfmath.c | |
313 | */ | |
314 | extern int | |
315 | Tcl_AcosCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
316 | ||
317 | extern int | |
318 | Tcl_AsinCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
319 | ||
320 | extern int | |
321 | Tcl_AtanCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
322 | ||
323 | extern int | |
324 | Tcl_CosCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
325 | ||
326 | extern int | |
327 | Tcl_SinCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
328 | ||
329 | extern int | |
330 | Tcl_TanCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
331 | ||
332 | extern int | |
333 | Tcl_CoshCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
334 | ||
335 | extern int | |
336 | Tcl_SinhCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
337 | ||
338 | extern int | |
339 | Tcl_TanhCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
340 | ||
341 | extern int | |
342 | Tcl_ExpCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
343 | ||
344 | extern int | |
345 | Tcl_LogCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
346 | ||
347 | extern int | |
348 | Tcl_Log10Cmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
349 | ||
350 | extern int | |
351 | Tcl_SqrtCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
352 | ||
353 | extern int | |
354 | Tcl_FabsCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
355 | ||
356 | extern int | |
357 | Tcl_FloorCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
358 | ||
359 | extern int | |
360 | Tcl_CeilCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
361 | ||
362 | extern int | |
363 | Tcl_FmodCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
364 | ||
365 | extern int | |
366 | Tcl_PowCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
367 | ||
368 | /* | |
369 | * from tclXgeneral.c | |
370 | */ | |
371 | ||
372 | extern int | |
373 | Tcl_EchoCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
374 | ||
375 | extern int | |
376 | Tcl_InfoxCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
377 | ||
378 | extern int | |
379 | Tcl_LoopCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
380 | ||
381 | /* | |
382 | * from tclXid.c | |
383 | */ | |
384 | extern int | |
385 | Tcl_IdCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
386 | ||
387 | /* | |
388 | * from tclXkeylist.c | |
389 | */ | |
390 | extern int | |
391 | Tcl_KeyldelCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
392 | ||
393 | extern int | |
394 | Tcl_KeylgetCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
395 | ||
396 | extern int | |
397 | Tcl_KeylkeysCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
398 | ||
399 | extern int | |
400 | Tcl_KeylsetCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
401 | ||
402 | /* | |
403 | * from tclXlist.c | |
404 | */ | |
405 | extern int | |
406 | Tcl_LvarpopCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
407 | ||
408 | extern int | |
409 | Tcl_LvarcatCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
410 | ||
411 | extern int | |
412 | Tcl_LvarpushCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
413 | ||
414 | extern int | |
415 | Tcl_LemptyCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
416 | ||
417 | /* | |
418 | * from tclXmath.c | |
419 | */ | |
420 | extern int | |
421 | Tcl_MaxCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
422 | ||
423 | extern int | |
424 | Tcl_MinCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
425 | ||
426 | extern int | |
427 | Tcl_RandomCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
428 | ||
429 | /* | |
430 | * from tclXmsgcat.c | |
431 | */ | |
432 | extern void | |
433 | Tcl_InitMsgCat _ANSI_ARGS_((Tcl_Interp *interp)); | |
434 | ||
435 | /* | |
436 | * from tclXprocess.c | |
437 | */ | |
438 | extern int | |
439 | Tcl_ExeclCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
440 | ||
441 | extern int | |
442 | Tcl_ForkCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
443 | ||
444 | extern int | |
445 | Tcl_WaitCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
446 | ||
447 | /* | |
448 | * from tclXprofile.c | |
449 | */ | |
450 | void | |
451 | Tcl_InitProfile _ANSI_ARGS_((Tcl_Interp *interp)); | |
452 | ||
453 | /* | |
454 | * from tclXselect.c | |
455 | */ | |
456 | extern int | |
457 | Tcl_SelectCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
458 | ||
459 | /* | |
460 | * from tclXsignal.c | |
461 | */ | |
462 | extern void | |
463 | Tcl_InitSignalHandling _ANSI_ARGS_((Tcl_Interp *interp)); | |
464 | ||
465 | /* | |
466 | * from tclXstring.c | |
467 | */ | |
468 | extern int | |
469 | Tcl_CindexCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
470 | ||
471 | extern int | |
472 | Tcl_ClengthCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
473 | ||
474 | extern int | |
475 | Tcl_CrangeCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
476 | ||
477 | extern int | |
478 | Tcl_ReplicateCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
479 | ||
480 | extern int | |
481 | Tcl_TranslitCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
482 | ||
483 | extern int | |
484 | Tcl_CtypeCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
485 | ||
486 | /* | |
487 | * from tclXlib.c | |
488 | */ | |
489 | extern int | |
490 | Tcl_Demand_loadCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
491 | ||
492 | extern int | |
493 | Tcl_LoadlibindexCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
494 | ||
495 | /* | |
496 | * from tclXunixcmds.c | |
497 | */ | |
498 | extern int | |
499 | Tcl_AlarmCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
500 | ||
501 | extern int | |
502 | Tcl_SleepCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
503 | ||
504 | extern int | |
505 | Tcl_SystemCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
506 | ||
507 | extern int | |
508 | Tcl_TimesCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
509 | ||
510 | extern int | |
511 | Tcl_UmaskCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
512 | ||
513 | extern int | |
514 | Tcl_LinkCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
515 | ||
516 | extern int | |
517 | Tcl_UnlinkCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
518 | ||
519 | extern int | |
520 | Tcl_MkdirCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
521 | ||
522 | extern int | |
523 | Tcl_RmdirCmd _ANSI_ARGS_((ClientData, Tcl_Interp*, int, char**)); | |
524 | ||
525 | #endif |