Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 27097 Details for
Bug 43770
itcl build failed
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
preprocessed file
dumpfile (text/plain), 272.01 KB, created by
Carter Smithhart
on 2004-03-09 07:53:43 UTC
(
hide
)
Description:
preprocessed file
Filename:
MIME Type:
Creator:
Carter Smithhart
Created:
2004-03-09 07:53:43 UTC
Size:
272.01 KB
patch
obsolete
># 1 "itcl/generic/itcl_class.c" ># 1 "<built-in>" ># 1 "<command line>" ># 1 "itcl/generic/itcl_class.c" ># 33 "itcl/generic/itcl_class.c" ># 1 "itcl/generic/itclInt.h" 1 ># 52 "itcl/generic/itclInt.h" ># 1 "itcl/generic/itcl.h" 1 ># 55 "itcl/generic/itcl.h" ># 1 "/usr/local/include/tcl.h" 1 3 ># 162 "/usr/local/include/tcl.h" 3 ># 1 "/usr/include/stdio.h" 1 3 ># 28 "/usr/include/stdio.h" 3 ># 1 "/usr/include/features.h" 1 3 ># 295 "/usr/include/features.h" 3 ># 1 "/usr/include/sys/cdefs.h" 1 3 ># 296 "/usr/include/features.h" 2 3 ># 318 "/usr/include/features.h" 3 ># 1 "/usr/include/gnu/stubs.h" 1 3 ># 319 "/usr/include/features.h" 2 3 ># 29 "/usr/include/stdio.h" 2 3 > > > > > ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 213 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 3 >typedef unsigned int size_t; ># 35 "/usr/include/stdio.h" 2 3 > ># 1 "/usr/include/bits/types.h" 1 3 ># 28 "/usr/include/bits/types.h" 3 ># 1 "/usr/include/bits/wordsize.h" 1 3 ># 29 "/usr/include/bits/types.h" 2 3 > > ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 32 "/usr/include/bits/types.h" 2 3 > > >typedef unsigned char __u_char; >typedef unsigned short int __u_short; >typedef unsigned int __u_int; >typedef unsigned long int __u_long; > > >typedef signed char __int8_t; >typedef unsigned char __uint8_t; >typedef signed short int __int16_t; >typedef unsigned short int __uint16_t; >typedef signed int __int32_t; >typedef unsigned int __uint32_t; > > > > >__extension__ typedef signed long long int __int64_t; >__extension__ typedef unsigned long long int __uint64_t; > > > > > > > >__extension__ typedef long long int __quad_t; >__extension__ typedef unsigned long long int __u_quad_t; ># 129 "/usr/include/bits/types.h" 3 ># 1 "/usr/include/bits/typesizes.h" 1 3 ># 130 "/usr/include/bits/types.h" 2 3 > > > > > > >__extension__ typedef unsigned long long int __dev_t; >__extension__ typedef unsigned int __uid_t; >__extension__ typedef unsigned int __gid_t; >__extension__ typedef unsigned long int __ino_t; >__extension__ typedef unsigned long long int __ino64_t; >__extension__ typedef unsigned int __mode_t; >__extension__ typedef unsigned int __nlink_t; >__extension__ typedef long int __off_t; >__extension__ typedef long long int __off64_t; >__extension__ typedef int __pid_t; >__extension__ typedef struct { int __val[2]; } __fsid_t; >__extension__ typedef long int __clock_t; >__extension__ typedef unsigned long int __rlim_t; >__extension__ typedef unsigned long long int __rlim64_t; >__extension__ typedef unsigned int __id_t; >__extension__ typedef long int __time_t; >__extension__ typedef unsigned int __useconds_t; >__extension__ typedef long int __suseconds_t; > >__extension__ typedef int __daddr_t; >__extension__ typedef long int __swblk_t; >__extension__ typedef int __key_t; > > >__extension__ typedef int __clockid_t; > > >__extension__ typedef int __timer_t; > > >__extension__ typedef long int __blksize_t; > > > > >__extension__ typedef long int __blkcnt_t; >__extension__ typedef long long int __blkcnt64_t; > > >__extension__ typedef unsigned long int __fsblkcnt_t; >__extension__ typedef unsigned long long int __fsblkcnt64_t; > > >__extension__ typedef unsigned long int __fsfilcnt_t; >__extension__ typedef unsigned long long int __fsfilcnt64_t; > >__extension__ typedef int __ssize_t; > > > >typedef __off64_t __loff_t; >typedef __quad_t *__qaddr_t; >typedef char *__caddr_t; > > >__extension__ typedef int __intptr_t; > > >__extension__ typedef unsigned int __socklen_t; ># 37 "/usr/include/stdio.h" 2 3 > > > > > > > > > >typedef struct _IO_FILE FILE; > > > > > ># 62 "/usr/include/stdio.h" 3 >typedef struct _IO_FILE __FILE; ># 72 "/usr/include/stdio.h" 3 ># 1 "/usr/include/libio.h" 1 3 ># 32 "/usr/include/libio.h" 3 ># 1 "/usr/include/_G_config.h" 1 3 ># 14 "/usr/include/_G_config.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 325 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 3 >typedef long int wchar_t; ># 354 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 3 >typedef unsigned int wint_t; ># 15 "/usr/include/_G_config.h" 2 3 ># 24 "/usr/include/_G_config.h" 3 ># 1 "/usr/include/wchar.h" 1 3 ># 48 "/usr/include/wchar.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 49 "/usr/include/wchar.h" 2 3 > ># 1 "/usr/include/bits/wchar.h" 1 3 ># 51 "/usr/include/wchar.h" 2 3 ># 76 "/usr/include/wchar.h" 3 >typedef struct >{ > int __count; > union > { > wint_t __wch; > char __wchb[4]; > } __value; >} __mbstate_t; ># 25 "/usr/include/_G_config.h" 2 3 > >typedef struct >{ > __off_t __pos; > __mbstate_t __state; >} _G_fpos_t; >typedef struct >{ > __off64_t __pos; > __mbstate_t __state; >} _G_fpos64_t; ># 44 "/usr/include/_G_config.h" 3 ># 1 "/usr/include/gconv.h" 1 3 ># 28 "/usr/include/gconv.h" 3 ># 1 "/usr/include/wchar.h" 1 3 ># 48 "/usr/include/wchar.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 49 "/usr/include/wchar.h" 2 3 ># 29 "/usr/include/gconv.h" 2 3 > > ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 32 "/usr/include/gconv.h" 2 3 > > > > > >enum >{ > __GCONV_OK = 0, > __GCONV_NOCONV, > __GCONV_NODB, > __GCONV_NOMEM, > > __GCONV_EMPTY_INPUT, > __GCONV_FULL_OUTPUT, > __GCONV_ILLEGAL_INPUT, > __GCONV_INCOMPLETE_INPUT, > > __GCONV_ILLEGAL_DESCRIPTOR, > __GCONV_INTERNAL_ERROR >}; > > > >enum >{ > __GCONV_IS_LAST = 0x0001, > __GCONV_IGNORE_ERRORS = 0x0002 >}; > > > >struct __gconv_step; >struct __gconv_step_data; >struct __gconv_loaded_object; >struct __gconv_trans_data; > > > >typedef int (*__gconv_fct) (struct __gconv_step *, struct __gconv_step_data *, > __const unsigned char **, __const unsigned char *, > unsigned char **, size_t *, int, int); > > >typedef wint_t (*__gconv_btowc_fct) (struct __gconv_step *, unsigned char); > > >typedef int (*__gconv_init_fct) (struct __gconv_step *); >typedef void (*__gconv_end_fct) (struct __gconv_step *); > > > >typedef int (*__gconv_trans_fct) (struct __gconv_step *, > struct __gconv_step_data *, void *, > __const unsigned char *, > __const unsigned char **, > __const unsigned char *, unsigned char **, > size_t *); > > >typedef int (*__gconv_trans_context_fct) (void *, __const unsigned char *, > __const unsigned char *, > unsigned char *, unsigned char *); > > >typedef int (*__gconv_trans_query_fct) (__const char *, __const char ***, > size_t *); > > >typedef int (*__gconv_trans_init_fct) (void **, const char *); >typedef void (*__gconv_trans_end_fct) (void *); > >struct __gconv_trans_data >{ > > __gconv_trans_fct __trans_fct; > __gconv_trans_context_fct __trans_context_fct; > __gconv_trans_end_fct __trans_end_fct; > void *__data; > struct __gconv_trans_data *__next; >}; > > > >struct __gconv_step >{ > struct __gconv_loaded_object *__shlib_handle; > __const char *__modname; > > int __counter; > > char *__from_name; > char *__to_name; > > __gconv_fct __fct; > __gconv_btowc_fct __btowc_fct; > __gconv_init_fct __init_fct; > __gconv_end_fct __end_fct; > > > > int __min_needed_from; > int __max_needed_from; > int __min_needed_to; > int __max_needed_to; > > > int __stateful; > > void *__data; >}; > > > >struct __gconv_step_data >{ > unsigned char *__outbuf; > unsigned char *__outbufend; > > > > int __flags; > > > > int __invocation_counter; > > > > int __internal_use; > > __mbstate_t *__statep; > __mbstate_t __state; > > > > struct __gconv_trans_data *__trans; >}; > > > >typedef struct __gconv_info >{ > size_t __nsteps; > struct __gconv_step *__steps; > __extension__ struct __gconv_step_data __data []; >} *__gconv_t; ># 45 "/usr/include/_G_config.h" 2 3 >typedef union >{ > struct __gconv_info __cd; > struct > { > struct __gconv_info __cd; > struct __gconv_step_data __data; > } __combined; >} _G_iconv_t; > >typedef int _G_int16_t __attribute__ ((__mode__ (__HI__))); >typedef int _G_int32_t __attribute__ ((__mode__ (__SI__))); >typedef unsigned int _G_uint16_t __attribute__ ((__mode__ (__HI__))); >typedef unsigned int _G_uint32_t __attribute__ ((__mode__ (__SI__))); ># 33 "/usr/include/libio.h" 2 3 ># 53 "/usr/include/libio.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stdarg.h" 1 3 ># 43 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stdarg.h" 3 >typedef __builtin_va_list __gnuc_va_list; ># 54 "/usr/include/libio.h" 2 3 ># 163 "/usr/include/libio.h" 3 >struct _IO_jump_t; struct _IO_FILE; ># 173 "/usr/include/libio.h" 3 >typedef void _IO_lock_t; > > > > > >struct _IO_marker { > struct _IO_marker *_next; > struct _IO_FILE *_sbuf; > > > > int _pos; ># 196 "/usr/include/libio.h" 3 >}; > > >enum __codecvt_result >{ > __codecvt_ok, > __codecvt_partial, > __codecvt_error, > __codecvt_noconv >}; ># 264 "/usr/include/libio.h" 3 >struct _IO_FILE { > int _flags; > > > > > char* _IO_read_ptr; > char* _IO_read_end; > char* _IO_read_base; > char* _IO_write_base; > char* _IO_write_ptr; > char* _IO_write_end; > char* _IO_buf_base; > char* _IO_buf_end; > > char *_IO_save_base; > char *_IO_backup_base; > char *_IO_save_end; > > struct _IO_marker *_markers; > > struct _IO_FILE *_chain; > > int _fileno; > > > > int _flags2; > > __off_t _old_offset; > > > > unsigned short _cur_column; > signed char _vtable_offset; > char _shortbuf[1]; > > > > _IO_lock_t *_lock; ># 312 "/usr/include/libio.h" 3 > __off64_t _offset; > > > > > > void *__pad1; > void *__pad2; > > int _mode; > > char _unused2[15 * sizeof (int) - 2 * sizeof (void *)]; > >}; > > >typedef struct _IO_FILE _IO_FILE; > > >struct _IO_FILE_plus; > >extern struct _IO_FILE_plus _IO_2_1_stdin_; >extern struct _IO_FILE_plus _IO_2_1_stdout_; >extern struct _IO_FILE_plus _IO_2_1_stderr_; ># 351 "/usr/include/libio.h" 3 >typedef __ssize_t __io_read_fn (void *__cookie, char *__buf, size_t __nbytes); > > > > > > > >typedef __ssize_t __io_write_fn (void *__cookie, __const char *__buf, > size_t __n); > > > > > > > >typedef int __io_seek_fn (void *__cookie, __off64_t *__pos, int __w); > > >typedef int __io_close_fn (void *__cookie); ># 403 "/usr/include/libio.h" 3 >extern int __underflow (_IO_FILE *) ; >extern int __uflow (_IO_FILE *) ; >extern int __overflow (_IO_FILE *, int) ; >extern wint_t __wunderflow (_IO_FILE *) ; >extern wint_t __wuflow (_IO_FILE *) ; >extern wint_t __woverflow (_IO_FILE *, wint_t) ; ># 433 "/usr/include/libio.h" 3 >extern int _IO_getc (_IO_FILE *__fp) ; >extern int _IO_putc (int __c, _IO_FILE *__fp) ; >extern int _IO_feof (_IO_FILE *__fp) ; >extern int _IO_ferror (_IO_FILE *__fp) ; > >extern int _IO_peekc_locked (_IO_FILE *__fp) ; > > > > > >extern void _IO_flockfile (_IO_FILE *) ; >extern void _IO_funlockfile (_IO_FILE *) ; >extern int _IO_ftrylockfile (_IO_FILE *) ; ># 463 "/usr/include/libio.h" 3 >extern int _IO_vfscanf (_IO_FILE * __restrict, const char * __restrict, > __gnuc_va_list, int *__restrict) ; >extern int _IO_vfprintf (_IO_FILE *__restrict, const char *__restrict, > __gnuc_va_list) ; >extern __ssize_t _IO_padn (_IO_FILE *, int, __ssize_t) ; >extern size_t _IO_sgetn (_IO_FILE *, void *, size_t) ; > >extern __off64_t _IO_seekoff (_IO_FILE *, __off64_t, int, int) ; >extern __off64_t _IO_seekpos (_IO_FILE *, __off64_t, int) ; > >extern void _IO_free_backup_area (_IO_FILE *) ; ># 73 "/usr/include/stdio.h" 2 3 ># 86 "/usr/include/stdio.h" 3 > > >typedef _G_fpos_t fpos_t; > > > > ># 138 "/usr/include/stdio.h" 3 ># 1 "/usr/include/bits/stdio_lim.h" 1 3 ># 139 "/usr/include/stdio.h" 2 3 > > > >extern struct _IO_FILE *stdin; >extern struct _IO_FILE *stdout; >extern struct _IO_FILE *stderr; > > > > > > > >extern int remove (__const char *__filename) ; > >extern int rename (__const char *__old, __const char *__new) ; > > > > > > > > > >extern FILE *tmpfile (void); ># 178 "/usr/include/stdio.h" 3 >extern char *tmpnam (char *__s) ; > > > > > >extern char *tmpnam_r (char *__s) ; ># 196 "/usr/include/stdio.h" 3 >extern char *tempnam (__const char *__dir, __const char *__pfx) > __attribute__ ((__malloc__)); > > > > > > > > >extern int fclose (FILE *__stream); > > > > >extern int fflush (FILE *__stream); > ># 221 "/usr/include/stdio.h" 3 >extern int fflush_unlocked (FILE *__stream); ># 235 "/usr/include/stdio.h" 3 > > > > > > >extern FILE *fopen (__const char *__restrict __filename, > __const char *__restrict __modes); > > > > >extern FILE *freopen (__const char *__restrict __filename, > __const char *__restrict __modes, > FILE *__restrict __stream); ># 262 "/usr/include/stdio.h" 3 > ># 273 "/usr/include/stdio.h" 3 >extern FILE *fdopen (int __fd, __const char *__modes) ; ># 294 "/usr/include/stdio.h" 3 > > > >extern void setbuf (FILE *__restrict __stream, char *__restrict __buf) ; > > > >extern int setvbuf (FILE *__restrict __stream, char *__restrict __buf, > int __modes, size_t __n) ; > > > > > >extern void setbuffer (FILE *__restrict __stream, char *__restrict __buf, > size_t __size) ; > > >extern void setlinebuf (FILE *__stream) ; > > > > > > > > >extern int fprintf (FILE *__restrict __stream, > __const char *__restrict __format, ...); > > > > >extern int printf (__const char *__restrict __format, ...); > >extern int sprintf (char *__restrict __s, > __const char *__restrict __format, ...) ; > > > > > >extern int vfprintf (FILE *__restrict __s, __const char *__restrict __format, > __gnuc_va_list __arg); > > > > >extern int vprintf (__const char *__restrict __format, __gnuc_va_list __arg); > >extern int vsprintf (char *__restrict __s, __const char *__restrict __format, > __gnuc_va_list __arg) ; > > > > > >extern int snprintf (char *__restrict __s, size_t __maxlen, > __const char *__restrict __format, ...) > __attribute__ ((__format__ (__printf__, 3, 4))); > >extern int vsnprintf (char *__restrict __s, size_t __maxlen, > __const char *__restrict __format, __gnuc_va_list __arg) > __attribute__ ((__format__ (__printf__, 3, 0))); > ># 388 "/usr/include/stdio.h" 3 > > > > > >extern int fscanf (FILE *__restrict __stream, > __const char *__restrict __format, ...); > > > > >extern int scanf (__const char *__restrict __format, ...); > >extern int sscanf (__const char *__restrict __s, > __const char *__restrict __format, ...) ; > ># 430 "/usr/include/stdio.h" 3 > > > > > >extern int fgetc (FILE *__stream); >extern int getc (FILE *__stream); > > > > > >extern int getchar (void); > ># 454 "/usr/include/stdio.h" 3 >extern int getc_unlocked (FILE *__stream); >extern int getchar_unlocked (void); ># 465 "/usr/include/stdio.h" 3 >extern int fgetc_unlocked (FILE *__stream); > > > > > > > > > > > >extern int fputc (int __c, FILE *__stream); >extern int putc (int __c, FILE *__stream); > > > > > >extern int putchar (int __c); > ># 498 "/usr/include/stdio.h" 3 >extern int fputc_unlocked (int __c, FILE *__stream); > > > > > > > >extern int putc_unlocked (int __c, FILE *__stream); >extern int putchar_unlocked (int __c); > > > > > > >extern int getw (FILE *__stream); > > >extern int putw (int __w, FILE *__stream); > > > > > > > > >extern char *fgets (char *__restrict __s, int __n, FILE *__restrict __stream); > > > > > > >extern char *gets (char *__s); > ># 578 "/usr/include/stdio.h" 3 > > > > > >extern int fputs (__const char *__restrict __s, FILE *__restrict __stream); > > > > > >extern int puts (__const char *__s); > > > > > > >extern int ungetc (int __c, FILE *__stream); > > > > > > >extern size_t fread (void *__restrict __ptr, size_t __size, > size_t __n, FILE *__restrict __stream); > > > > >extern size_t fwrite (__const void *__restrict __ptr, size_t __size, > size_t __n, FILE *__restrict __s); > ># 631 "/usr/include/stdio.h" 3 >extern size_t fread_unlocked (void *__restrict __ptr, size_t __size, > size_t __n, FILE *__restrict __stream); >extern size_t fwrite_unlocked (__const void *__restrict __ptr, size_t __size, > size_t __n, FILE *__restrict __stream); > > > > > > > > >extern int fseek (FILE *__stream, long int __off, int __whence); > > > > >extern long int ftell (FILE *__stream); > > > > >extern void rewind (FILE *__stream); > ># 686 "/usr/include/stdio.h" 3 > > > > > > >extern int fgetpos (FILE *__restrict __stream, fpos_t *__restrict __pos); > > > > >extern int fsetpos (FILE *__stream, __const fpos_t *__pos); ># 709 "/usr/include/stdio.h" 3 > ># 718 "/usr/include/stdio.h" 3 > > >extern void clearerr (FILE *__stream) ; > >extern int feof (FILE *__stream) ; > >extern int ferror (FILE *__stream) ; > > > > >extern void clearerr_unlocked (FILE *__stream) ; >extern int feof_unlocked (FILE *__stream) ; >extern int ferror_unlocked (FILE *__stream) ; > > > > > > > > >extern void perror (__const char *__s); > > > > > > ># 1 "/usr/include/bits/sys_errlist.h" 1 3 ># 27 "/usr/include/bits/sys_errlist.h" 3 >extern int sys_nerr; >extern __const char *__const sys_errlist[]; ># 748 "/usr/include/stdio.h" 2 3 > > > > >extern int fileno (FILE *__stream) ; > > > > >extern int fileno_unlocked (FILE *__stream) ; ># 767 "/usr/include/stdio.h" 3 >extern FILE *popen (__const char *__command, __const char *__modes); > > > > > >extern int pclose (FILE *__stream); > > > > > >extern char *ctermid (char *__s) ; ># 807 "/usr/include/stdio.h" 3 >extern void flockfile (FILE *__stream) ; > > > >extern int ftrylockfile (FILE *__stream) ; > > >extern void funlockfile (FILE *__stream) ; ># 828 "/usr/include/stdio.h" 3 ># 1 "/usr/include/bits/stdio.h" 1 3 ># 33 "/usr/include/bits/stdio.h" 3 >extern __inline int >vprintf (__const char *__restrict __fmt, __gnuc_va_list __arg) >{ > return vfprintf (stdout, __fmt, __arg); >} > > >extern __inline int >getchar (void) >{ > return _IO_getc (stdin); >} > > > > >extern __inline int >getc_unlocked (FILE *__fp) >{ > return ((__fp)->_IO_read_ptr >= (__fp)->_IO_read_end ? __uflow (__fp) : *(unsigned char *) (__fp)->_IO_read_ptr++); >} > > >extern __inline int >getchar_unlocked (void) >{ > return ((stdin)->_IO_read_ptr >= (stdin)->_IO_read_end ? __uflow (stdin) : *(unsigned char *) (stdin)->_IO_read_ptr++); >} > > > > >extern __inline int >putchar (int __c) >{ > return _IO_putc (__c, stdout); >} > > > > >extern __inline int >fputc_unlocked (int __c, FILE *__stream) >{ > return (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c))); >} > > > > > >extern __inline int >putc_unlocked (int __c, FILE *__stream) >{ > return (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c))); >} > > >extern __inline int >putchar_unlocked (int __c) >{ > return (((stdout)->_IO_write_ptr >= (stdout)->_IO_write_end) ? __overflow (stdout, (unsigned char) (__c)) : (unsigned char) (*(stdout)->_IO_write_ptr++ = (__c))); >} ># 111 "/usr/include/bits/stdio.h" 3 >extern __inline int >feof_unlocked (FILE *__stream) >{ > return (((__stream)->_flags & 0x10) != 0); >} > > >extern __inline int >ferror_unlocked (FILE *__stream) >{ > return (((__stream)->_flags & 0x20) != 0); >} ># 829 "/usr/include/stdio.h" 2 3 > > > ># 163 "/usr/local/include/tcl.h" 2 3 ># 176 "/usr/local/include/tcl.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stdarg.h" 1 3 ># 110 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stdarg.h" 3 >typedef __gnuc_va_list va_list; ># 177 "/usr/local/include/tcl.h" 2 3 ># 327 "/usr/local/include/tcl.h" 3 > typedef void *ClientData; ># 383 "/usr/local/include/tcl.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 1 3 ># 11 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/syslimits.h" 1 3 > > > > > > ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 1 3 ># 132 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 3 ># 1 "/usr/include/limits.h" 1 3 ># 144 "/usr/include/limits.h" 3 ># 1 "/usr/include/bits/posix1_lim.h" 1 3 ># 130 "/usr/include/bits/posix1_lim.h" 3 ># 1 "/usr/include/bits/local_lim.h" 1 3 ># 36 "/usr/include/bits/local_lim.h" 3 ># 1 "/usr/include/linux/limits.h" 1 3 ># 37 "/usr/include/bits/local_lim.h" 2 3 ># 131 "/usr/include/bits/posix1_lim.h" 2 3 ># 145 "/usr/include/limits.h" 2 3 > > > ># 1 "/usr/include/bits/posix2_lim.h" 1 3 ># 149 "/usr/include/limits.h" 2 3 ># 133 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 2 3 ># 8 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/syslimits.h" 2 3 ># 12 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 2 3 ># 384 "/usr/local/include/tcl.h" 2 3 ># 397 "/usr/local/include/tcl.h" 3 >typedef long long Tcl_WideInt; >typedef unsigned long long Tcl_WideUInt; ># 419 "/usr/local/include/tcl.h" 3 >typedef struct stat Tcl_StatBuf; ># 460 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Interp { > char *result; > > void (*freeProc) (char *blockPtr); > > > > > > > > int errorLine; > > >} Tcl_Interp; > >typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; >typedef struct Tcl_Channel_ *Tcl_Channel; >typedef struct Tcl_Command_ *Tcl_Command; >typedef struct Tcl_Condition_ *Tcl_Condition; >typedef struct Tcl_EncodingState_ *Tcl_EncodingState; >typedef struct Tcl_Encoding_ *Tcl_Encoding; >typedef struct Tcl_Event Tcl_Event; >typedef struct Tcl_Mutex_ *Tcl_Mutex; >typedef struct Tcl_Pid_ *Tcl_Pid; >typedef struct Tcl_RegExp_ *Tcl_RegExp; >typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; >typedef struct Tcl_ThreadId_ *Tcl_ThreadId; >typedef struct Tcl_TimerToken_ *Tcl_TimerToken; >typedef struct Tcl_Trace_ *Tcl_Trace; >typedef struct Tcl_Var_ *Tcl_Var; >typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; >typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; ># 505 "/usr/local/include/tcl.h" 3 >typedef void (Tcl_ThreadCreateProc) (ClientData clientData); ># 571 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_RegExpIndices { > long start; > long end; > >} Tcl_RegExpIndices; > >typedef struct Tcl_RegExpInfo { > int nsubs; > > Tcl_RegExpIndices *matches; > > long extendStart; > > long reserved; >} Tcl_RegExpInfo; > > > > > >typedef Tcl_StatBuf *Tcl_Stat_; >typedef struct stat *Tcl_OldStat_; ># 634 "/usr/local/include/tcl.h" 3 >typedef enum { > TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT > > > >} Tcl_ValueType; >typedef struct Tcl_Value { > Tcl_ValueType type; > > long intValue; > double doubleValue; > > Tcl_WideInt wideValue; > >} Tcl_Value; > > > > > > >struct Tcl_Obj; > > > > > > >typedef int (Tcl_AppInitProc) (Tcl_Interp *interp); >typedef int (Tcl_AsyncProc) (ClientData clientData, Tcl_Interp *interp, int code); > >typedef void (Tcl_ChannelProc) (ClientData clientData, int mask); >typedef void (Tcl_CloseProc) (ClientData data); >typedef void (Tcl_CmdDeleteProc) (ClientData clientData); >typedef int (Tcl_CmdProc) (ClientData clientData, Tcl_Interp *interp, int argc, const char *argv[]); > >typedef void (Tcl_CmdTraceProc) (ClientData clientData, Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, ClientData cmdClientData, int argc, const char *argv[]); > > >typedef int (Tcl_CmdObjTraceProc) (ClientData clientData, Tcl_Interp *interp, int level, const char *command, Tcl_Command commandInfo, int objc, struct Tcl_Obj * const * objv); > > >typedef void (Tcl_CmdObjTraceDeleteProc) (ClientData clientData); >typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr, struct Tcl_Obj *dupPtr); > >typedef int (Tcl_EncodingConvertProc)(ClientData clientData, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); > > > >typedef void (Tcl_EncodingFreeProc)(ClientData clientData); >typedef int (Tcl_EventProc) (Tcl_Event *evPtr, int flags); >typedef void (Tcl_EventCheckProc) (ClientData clientData, int flags); > >typedef int (Tcl_EventDeleteProc) (Tcl_Event *evPtr, ClientData clientData); > >typedef void (Tcl_EventSetupProc) (ClientData clientData, int flags); > >typedef void (Tcl_ExitProc) (ClientData clientData); >typedef void (Tcl_FileProc) (ClientData clientData, int mask); >typedef void (Tcl_FileFreeProc) (ClientData clientData); >typedef void (Tcl_FreeInternalRepProc) (struct Tcl_Obj *objPtr); >typedef void (Tcl_FreeProc) (char *blockPtr); >typedef void (Tcl_IdleProc) (ClientData clientData); >typedef void (Tcl_InterpDeleteProc) (ClientData clientData, Tcl_Interp *interp); > >typedef int (Tcl_MathProc) (ClientData clientData, Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr); > >typedef void (Tcl_NamespaceDeleteProc) (ClientData clientData); >typedef int (Tcl_ObjCmdProc) (ClientData clientData, Tcl_Interp *interp, int objc, struct Tcl_Obj * const * objv); > >typedef int (Tcl_PackageInitProc) (Tcl_Interp *interp); >typedef void (Tcl_PanicProc) (const char * format, ...); >typedef void (Tcl_TcpAcceptProc) (ClientData callbackData, Tcl_Channel chan, char *address, int port); > >typedef void (Tcl_TimerProc) (ClientData clientData); >typedef int (Tcl_SetFromAnyProc) (Tcl_Interp *interp, struct Tcl_Obj *objPtr); > >typedef void (Tcl_UpdateStringProc) (struct Tcl_Obj *objPtr); >typedef char *(Tcl_VarTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *part1, const char *part2, int flags); > >typedef void (Tcl_CommandTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *oldName, const char *newName, int flags); > > >typedef void (Tcl_CreateFileHandlerProc) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); > >typedef void (Tcl_DeleteFileHandlerProc) (int fd); >typedef void (Tcl_AlertNotifierProc) (ClientData clientData); >typedef void (Tcl_ServiceModeHookProc) (int mode); >typedef ClientData (Tcl_InitNotifierProc) (void); >typedef void (Tcl_FinalizeNotifierProc) (ClientData clientData); >typedef void (Tcl_MainLoopProc) (void); ># 733 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_ObjType { > char *name; > Tcl_FreeInternalRepProc *freeIntRepProc; > > > > Tcl_DupInternalRepProc *dupIntRepProc; > > > Tcl_UpdateStringProc *updateStringProc; > > > Tcl_SetFromAnyProc *setFromAnyProc; > > > > >} Tcl_ObjType; ># 759 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Obj { > int refCount; > char *bytes; ># 772 "/usr/local/include/tcl.h" 3 > int length; > > Tcl_ObjType *typePtr; > > > > union { > long longValue; > double doubleValue; > void *otherValuePtr; > Tcl_WideInt wideValue; > struct { > void *ptr1; > void *ptr2; > } twoPtrValue; > } internalRep; >} Tcl_Obj; ># 801 "/usr/local/include/tcl.h" 3 >void Tcl_IncrRefCount (Tcl_Obj *objPtr); >void Tcl_DecrRefCount (Tcl_Obj *objPtr); >int Tcl_IsShared (Tcl_Obj *objPtr); ># 854 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_SavedResult { > char *result; > Tcl_FreeProc *freeProc; > Tcl_Obj *objResultPtr; > char *appendResult; > int appendAvl; > int appendUsed; > char resultSpace[200 +1]; >} Tcl_SavedResult; ># 871 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Namespace { > char *name; > > > > char *fullName; > > ClientData clientData; > > Tcl_NamespaceDeleteProc* deleteProc; > > > struct Tcl_Namespace* parentPtr; > > > >} Tcl_Namespace; ># 912 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_CallFrame { > Tcl_Namespace *nsPtr; > int dummy1; > int dummy2; > char *dummy3; > char *dummy4; > char *dummy5; > int dummy6; > char *dummy7; > char *dummy8; > int dummy9; > char* dummy10; >} Tcl_CallFrame; ># 942 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_CmdInfo { > int isNativeObjectProc; > > > > Tcl_ObjCmdProc *objProc; > ClientData objClientData; > Tcl_CmdProc *proc; > ClientData clientData; > Tcl_CmdDeleteProc *deleteProc; > > > ClientData deleteData; > > Tcl_Namespace *namespacePtr; > > > > >} Tcl_CmdInfo; > > > > > > > >typedef struct Tcl_DString { > char *string; > > int length; > > int spaceAvl; > > char staticSpace[200]; > > >} Tcl_DString; ># 1096 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_HashKeyType Tcl_HashKeyType; >typedef struct Tcl_HashTable Tcl_HashTable; >typedef struct Tcl_HashEntry Tcl_HashEntry; > >typedef unsigned int (Tcl_HashKeyProc) (Tcl_HashTable *tablePtr, void *keyPtr); > >typedef int (Tcl_CompareHashKeysProc) (void *keyPtr, Tcl_HashEntry *hPtr); > >typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) ( Tcl_HashTable *tablePtr, void *keyPtr); > >typedef void (Tcl_FreeHashEntryProc) (Tcl_HashEntry *hPtr); ># 1125 "/usr/local/include/tcl.h" 3 >struct Tcl_HashEntry { > Tcl_HashEntry *nextPtr; > > > Tcl_HashTable *tablePtr; > > > void *hash; ># 1144 "/usr/local/include/tcl.h" 3 > ClientData clientData; > > union { > char *oneWordValue; > Tcl_Obj *objPtr; > int words[1]; > > > > char string[4]; > > > } key; >}; ># 1177 "/usr/local/include/tcl.h" 3 >struct Tcl_HashKeyType { > int version; > > > > > > int flags; > > > > > Tcl_HashKeyProc *hashKeyProc; > > > > > Tcl_CompareHashKeysProc *compareKeysProc; ># 1205 "/usr/local/include/tcl.h" 3 > Tcl_AllocHashEntryProc *allocEntryProc; > > > > > > > Tcl_FreeHashEntryProc *freeEntryProc; >}; ># 1222 "/usr/local/include/tcl.h" 3 >struct Tcl_HashTable { > Tcl_HashEntry **buckets; > > > Tcl_HashEntry *staticBuckets[4]; > > > int numBuckets; > > int numEntries; > > int rebuildSize; > > int downShift; > > > int mask; > > int keyType; > > > > > > > Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key); > > Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key, int *newPtr); > > > Tcl_HashKeyType *typePtr; > >}; > > > > > > >typedef struct Tcl_HashSearch { > Tcl_HashTable *tablePtr; > int nextIndex; > > Tcl_HashEntry *nextEntryPtr; > >} Tcl_HashSearch; ># 1360 "/usr/local/include/tcl.h" 3 >struct Tcl_Event { > Tcl_EventProc *proc; > struct Tcl_Event *nextPtr; >}; > > > > >typedef enum { > TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK >} Tcl_QueuePosition; ># 1386 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Time { > long sec; > long usec; >} Tcl_Time; > >typedef void (Tcl_SetTimerProc) (Tcl_Time *timePtr); >typedef int (Tcl_WaitForEventProc) (Tcl_Time *timePtr); ># 1436 "/usr/local/include/tcl.h" 3 >typedef int (Tcl_DriverBlockModeProc) ( ClientData instanceData, int mode); > >typedef int (Tcl_DriverCloseProc) (ClientData instanceData, Tcl_Interp *interp); > >typedef int (Tcl_DriverClose2Proc) (ClientData instanceData, Tcl_Interp *interp, int flags); > >typedef int (Tcl_DriverInputProc) (ClientData instanceData, char *buf, int toRead, int *errorCodePtr); > >typedef int (Tcl_DriverOutputProc) (ClientData instanceData, const char *buf, int toWrite, int *errorCodePtr); > >typedef int (Tcl_DriverSeekProc) (ClientData instanceData, long offset, int mode, int *errorCodePtr); > >typedef int (Tcl_DriverSetOptionProc) ( ClientData instanceData, Tcl_Interp *interp, const char *optionName, const char *value); > > >typedef int (Tcl_DriverGetOptionProc) ( ClientData instanceData, Tcl_Interp *interp, const char *optionName, Tcl_DString *dsPtr); > > >typedef void (Tcl_DriverWatchProc) ( ClientData instanceData, int mask); > >typedef int (Tcl_DriverGetHandleProc) ( ClientData instanceData, int direction, ClientData *handlePtr); > > >typedef int (Tcl_DriverFlushProc) ( ClientData instanceData); > >typedef int (Tcl_DriverHandlerProc) ( ClientData instanceData, int interestMask); > >typedef Tcl_WideInt (Tcl_DriverWideSeekProc) ( ClientData instanceData, Tcl_WideInt offset, int mode, int *errorCodePtr); ># 1509 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_ChannelType { > char *typeName; > > > Tcl_ChannelTypeVersion version; > Tcl_DriverCloseProc *closeProc; > > > > Tcl_DriverInputProc *inputProc; > > Tcl_DriverOutputProc *outputProc; > > Tcl_DriverSeekProc *seekProc; > > Tcl_DriverSetOptionProc *setOptionProc; > > Tcl_DriverGetOptionProc *getOptionProc; > > Tcl_DriverWatchProc *watchProc; > > Tcl_DriverGetHandleProc *getHandleProc; > > > Tcl_DriverClose2Proc *close2Proc; > > > > Tcl_DriverBlockModeProc *blockModeProc; > > > > > > Tcl_DriverFlushProc *flushProc; > > Tcl_DriverHandlerProc *handlerProc; > > > > > > Tcl_DriverWideSeekProc *wideSeekProc; > > > > > >} Tcl_ChannelType; ># 1571 "/usr/local/include/tcl.h" 3 >typedef enum Tcl_PathType { > TCL_PATH_ABSOLUTE, > TCL_PATH_RELATIVE, > TCL_PATH_VOLUME_RELATIVE >} Tcl_PathType; > > > > > > >typedef struct Tcl_GlobTypeData { > > int type; > > int perm; > > Tcl_Obj* macType; > > Tcl_Obj* macCreator; >} Tcl_GlobTypeData; ># 1614 "/usr/local/include/tcl.h" 3 >typedef int (Tcl_FSStatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); >typedef int (Tcl_FSAccessProc) (Tcl_Obj *pathPtr, int mode); >typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) > (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); > >typedef int (Tcl_FSMatchInDirectoryProc) (Tcl_Interp* interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData * types); > > >typedef Tcl_Obj* (Tcl_FSGetCwdProc) (Tcl_Interp *interp); >typedef int (Tcl_FSChdirProc) (Tcl_Obj *pathPtr); >typedef int (Tcl_FSLstatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); > >typedef int (Tcl_FSCreateDirectoryProc) (Tcl_Obj *pathPtr); >typedef int (Tcl_FSDeleteFileProc) (Tcl_Obj *pathPtr); >typedef int (Tcl_FSCopyDirectoryProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); > >typedef int (Tcl_FSCopyFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); > >typedef int (Tcl_FSRemoveDirectoryProc) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); > >typedef int (Tcl_FSRenameFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); > >typedef void (Tcl_FSUnloadFileProc) (Tcl_LoadHandle loadHandle); >typedef Tcl_Obj* (Tcl_FSListVolumesProc) (void); > >struct utimbuf; >typedef int (Tcl_FSUtimeProc) (Tcl_Obj *pathPtr, struct utimbuf *tval); > >typedef int (Tcl_FSNormalizePathProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int nextCheckpoint); > >typedef int (Tcl_FSFileAttrsGetProc) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); > > >typedef const char** (Tcl_FSFileAttrStringsProc) (Tcl_Obj *pathPtr, Tcl_Obj** objPtrRef); > >typedef int (Tcl_FSFileAttrsSetProc) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); > > >typedef Tcl_Obj* (Tcl_FSLinkProc) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkType); > >typedef int (Tcl_FSLoadFileProc) (Tcl_Interp * interp, Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); > > > >typedef int (Tcl_FSPathInFilesystemProc) (Tcl_Obj *pathPtr, ClientData *clientDataPtr); > >typedef Tcl_Obj* (Tcl_FSFilesystemPathTypeProc) > (Tcl_Obj *pathPtr); >typedef Tcl_Obj* (Tcl_FSFilesystemSeparatorProc) > (Tcl_Obj *pathPtr); >typedef void (Tcl_FSFreeInternalRepProc) (ClientData clientData); >typedef ClientData (Tcl_FSDupInternalRepProc) > (ClientData clientData); >typedef Tcl_Obj* (Tcl_FSInternalToNormalizedProc) > (ClientData clientData); >typedef ClientData (Tcl_FSCreateInternalRepProc) (Tcl_Obj *pathPtr); > >typedef struct Tcl_FSVersion_ *Tcl_FSVersion; ># 1698 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Filesystem { > const char *typeName; > int structureLength; > > Tcl_FSVersion version; > > Tcl_FSPathInFilesystemProc *pathInFilesystemProc; > > > > Tcl_FSDupInternalRepProc *dupInternalRepProc; > > > Tcl_FSFreeInternalRepProc *freeInternalRepProc; > > > > Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; > > > > > Tcl_FSCreateInternalRepProc *createInternalRepProc; > > > > > > > > Tcl_FSNormalizePathProc *normalizePathProc; > > > > > > Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; > > > Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; > > > > Tcl_FSStatProc *statProc; > > > > > > Tcl_FSAccessProc *accessProc; > > > > > > Tcl_FSOpenFileChannelProc *openFileChannelProc; > > > > > > > Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; > > > > > > Tcl_FSUtimeProc *utimeProc; > > > > > > > Tcl_FSLinkProc *linkProc; > > > > > Tcl_FSListVolumesProc *listVolumesProc; > > > > > Tcl_FSFileAttrStringsProc *fileAttrStringsProc; > > > > > > > Tcl_FSFileAttrsGetProc *fileAttrsGetProc; > > > > Tcl_FSFileAttrsSetProc *fileAttrsSetProc; > > > > Tcl_FSCreateDirectoryProc *createDirectoryProc; > > > > > Tcl_FSRemoveDirectoryProc *removeDirectoryProc; > > > > > Tcl_FSDeleteFileProc *deleteFileProc; > > > > > Tcl_FSCopyFileProc *copyFileProc; > > > > > > > Tcl_FSRenameFileProc *renameFileProc; > > > > > > Tcl_FSCopyDirectoryProc *copyDirectoryProc; > > > > > > > Tcl_FSLstatProc *lstatProc; > > > > > Tcl_FSLoadFileProc *loadFileProc; > > > > > > Tcl_FSGetCwdProc *getCwdProc; > > > > > > > > Tcl_FSChdirProc *chdirProc; ># 1870 "/usr/local/include/tcl.h" 3 >} Tcl_Filesystem; ># 1888 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_NotifierProcs { > Tcl_SetTimerProc *setTimerProc; > Tcl_WaitForEventProc *waitForEventProc; > Tcl_CreateFileHandlerProc *createFileHandlerProc; > Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; > Tcl_InitNotifierProc *initNotifierProc; > Tcl_FinalizeNotifierProc *finalizeNotifierProc; > Tcl_AlertNotifierProc *alertNotifierProc; > Tcl_ServiceModeHookProc *serviceModeHookProc; >} Tcl_NotifierProcs; > > > > > > >typedef struct Tcl_EncodingType { > const char *encodingName; > > > Tcl_EncodingConvertProc *toUtfProc; > > > Tcl_EncodingConvertProc *fromUtfProc; > > > Tcl_EncodingFreeProc *freeProc; > > > ClientData clientData; > > int nullSize; > > > > >} Tcl_EncodingType; ># 1972 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Token { > int type; > > const char *start; > int size; > int numComponents; > > > > >} Tcl_Token; ># 2088 "/usr/local/include/tcl.h" 3 >typedef struct Tcl_Parse { > const char *commentStart; > > > int commentSize; > > > > const char *commandStart; > int commandSize; > > > > int numWords; > > Tcl_Token *tokenPtr; > > > > > int numTokens; > int tokensAvailable; > > int errorType; ># 2120 "/usr/local/include/tcl.h" 3 > const char *string; > > const char *end; > > Tcl_Interp *interp; > > const char *term; > > > > > > int incomplete; > > > > Tcl_Token staticTokens[20]; > > > > > >} Tcl_Parse; ># 2191 "/usr/local/include/tcl.h" 3 >typedef unsigned short Tcl_UniChar; ># 2236 "/usr/local/include/tcl.h" 3 >extern const char * Tcl_InitStubs (Tcl_Interp *interp, const char *version, int exact); ># 2256 "/usr/local/include/tcl.h" 3 ># 1 "/usr/local/include/tclDecls.h" 1 3 ># 30 "/usr/local/include/tclDecls.h" 3 >extern int Tcl_PkgProvideEx (Tcl_Interp* interp, const char* name, const char* version, ClientData clientData); > > > >extern const char * Tcl_PkgRequireEx ( Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); > > > > >extern void Tcl_Panic (const char * format, ...); > >extern char * Tcl_Alloc (unsigned int size); > >extern void Tcl_Free (char * ptr); > >extern char * Tcl_Realloc (char * ptr, unsigned int size); > > >extern char * Tcl_DbCkalloc (unsigned int size, const char * file, int line); > > >extern int Tcl_DbCkfree (char * ptr, const char * file, int line); > > >extern char * Tcl_DbCkrealloc (char * ptr, unsigned int size, const char * file, int line); > > > > >extern void Tcl_CreateFileHandler (int fd, int mask, Tcl_FileProc * proc, ClientData clientData); > > > > >extern void Tcl_DeleteFileHandler (int fd); > > >extern void Tcl_SetTimer (Tcl_Time * timePtr); > >extern void Tcl_Sleep (int ms); > >extern int Tcl_WaitForEvent (Tcl_Time * timePtr); > >extern int Tcl_AppendAllObjTypes ( Tcl_Interp * interp, Tcl_Obj * objPtr); > > >extern void Tcl_AppendStringsToObj (Tcl_Obj * objPtr, ...); > >extern void Tcl_AppendToObj (Tcl_Obj* objPtr, const char* bytes, int length); > > >extern Tcl_Obj * Tcl_ConcatObj (int objc, Tcl_Obj *const objv[]); > > >extern int Tcl_ConvertToType (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr); > > >extern void Tcl_DbDecrRefCount (Tcl_Obj * objPtr, const char * file, int line); > > >extern void Tcl_DbIncrRefCount (Tcl_Obj * objPtr, const char * file, int line); > > >extern int Tcl_DbIsShared (Tcl_Obj * objPtr, const char * file, int line); > > >extern Tcl_Obj * Tcl_DbNewBooleanObj (int boolValue, const char * file, int line); > > >extern Tcl_Obj * Tcl_DbNewByteArrayObj ( const unsigned char * bytes, int length, const char * file, int line); > > > >extern Tcl_Obj * Tcl_DbNewDoubleObj (double doubleValue, const char * file, int line); > > >extern Tcl_Obj * Tcl_DbNewListObj (int objc, Tcl_Obj *const * objv, const char * file, int line); > > > >extern Tcl_Obj * Tcl_DbNewLongObj (long longValue, const char * file, int line); > > >extern Tcl_Obj * Tcl_DbNewObj (const char * file, int line); > > >extern Tcl_Obj * Tcl_DbNewStringObj (const char * bytes, int length, const char * file, int line); > > >extern Tcl_Obj * Tcl_DuplicateObj (Tcl_Obj * objPtr); > >extern void TclFreeObj (Tcl_Obj * objPtr); > >extern int Tcl_GetBoolean (Tcl_Interp * interp, const char * str, int * boolPtr); > > >extern int Tcl_GetBooleanFromObj ( Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr); > > > >extern unsigned char * Tcl_GetByteArrayFromObj ( Tcl_Obj * objPtr, int * lengthPtr); > > >extern int Tcl_GetDouble (Tcl_Interp * interp, const char * str, double * doublePtr); > > >extern int Tcl_GetDoubleFromObj ( Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr); > > > >extern int Tcl_GetIndexFromObj (Tcl_Interp * interp, Tcl_Obj * objPtr, const char ** tablePtr, const char * msg, int flags, int * indexPtr); > > > >extern int Tcl_GetInt (Tcl_Interp * interp, const char * str, int * intPtr); > > >extern int Tcl_GetIntFromObj (Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr); > > >extern int Tcl_GetLongFromObj (Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr); > > >extern Tcl_ObjType * Tcl_GetObjType (const char * typeName); > >extern char * Tcl_GetStringFromObj (Tcl_Obj * objPtr, int * lengthPtr); > > >extern void Tcl_InvalidateStringRep ( Tcl_Obj * objPtr); > > >extern int Tcl_ListObjAppendList ( Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr); > > > >extern int Tcl_ListObjAppendElement ( Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr); > > > >extern int Tcl_ListObjGetElements ( Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr); > > > >extern int Tcl_ListObjIndex (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr); > > > >extern int Tcl_ListObjLength (Tcl_Interp * interp, Tcl_Obj * listPtr, int * lengthPtr); > > >extern int Tcl_ListObjReplace (Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); > > > >extern Tcl_Obj * Tcl_NewBooleanObj (int boolValue); > >extern Tcl_Obj * Tcl_NewByteArrayObj ( const unsigned char* bytes, int length); > > >extern Tcl_Obj * Tcl_NewDoubleObj (double doubleValue); > >extern Tcl_Obj * Tcl_NewIntObj (int intValue); > >extern Tcl_Obj * Tcl_NewListObj (int objc, Tcl_Obj *const objv[]); > > >extern Tcl_Obj * Tcl_NewLongObj (long longValue); > >extern Tcl_Obj * Tcl_NewObj (void); > >extern Tcl_Obj * Tcl_NewStringObj (const char * bytes, int length); > > >extern void Tcl_SetBooleanObj (Tcl_Obj * objPtr, int boolValue); > > >extern unsigned char * Tcl_SetByteArrayLength (Tcl_Obj * objPtr, int length); > > >extern void Tcl_SetByteArrayObj (Tcl_Obj * objPtr, const unsigned char * bytes, int length); > > >extern void Tcl_SetDoubleObj (Tcl_Obj * objPtr, double doubleValue); > > >extern void Tcl_SetIntObj (Tcl_Obj * objPtr, int intValue); > > >extern void Tcl_SetListObj (Tcl_Obj * objPtr, int objc, Tcl_Obj *const objv[]); > > >extern void Tcl_SetLongObj (Tcl_Obj * objPtr, long longValue); > > >extern void Tcl_SetObjLength (Tcl_Obj * objPtr, int length); > > >extern void Tcl_SetStringObj (Tcl_Obj* objPtr, const char* bytes, int length); > > >extern void Tcl_AddErrorInfo (Tcl_Interp * interp, const char * message); > > >extern void Tcl_AddObjErrorInfo (Tcl_Interp * interp, const char * message, int length); > > >extern void Tcl_AllowExceptions (Tcl_Interp * interp); > >extern void Tcl_AppendElement (Tcl_Interp * interp, const char * string); > > >extern void Tcl_AppendResult (Tcl_Interp * interp, ...); > >extern Tcl_AsyncHandler Tcl_AsyncCreate (Tcl_AsyncProc * proc, ClientData clientData); > > >extern void Tcl_AsyncDelete (Tcl_AsyncHandler async); > >extern int Tcl_AsyncInvoke (Tcl_Interp * interp, int code); > > >extern void Tcl_AsyncMark (Tcl_AsyncHandler async); > >extern int Tcl_AsyncReady (void); > >extern void Tcl_BackgroundError (Tcl_Interp * interp); > >extern char Tcl_Backslash (const char * src, int * readPtr); > > >extern int Tcl_BadChannelOption ( Tcl_Interp * interp, const char * optionName, const char * optionList); > > > >extern void Tcl_CallWhenDeleted (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); > > > >extern void Tcl_CancelIdleCall ( Tcl_IdleProc * idleProc, ClientData clientData); > > > >extern int Tcl_Close (Tcl_Interp * interp, Tcl_Channel chan); > > >extern int Tcl_CommandComplete (const char * cmd); > >extern char * Tcl_Concat (int argc, const char * const * argv); > > >extern int Tcl_ConvertElement (const char * src, char * dst, int flags); > > >extern int Tcl_ConvertCountedElement ( const char * src, int length, char * dst, int flags); > > > >extern int Tcl_CreateAlias (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int argc, const char * const * argv); > > > > >extern int Tcl_CreateAliasObj (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int objc, Tcl_Obj *const objv[]); > > > > >extern Tcl_Channel Tcl_CreateChannel ( Tcl_ChannelType * typePtr, const char * chanName, ClientData instanceData, int mask); > > > > >extern void Tcl_CreateChannelHandler ( Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData); > > > > >extern void Tcl_CreateCloseHandler (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); > > >extern Tcl_Command Tcl_CreateCommand (Tcl_Interp * interp, const char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > > > > >extern void Tcl_CreateEventSource ( Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); > > > > >extern void Tcl_CreateExitHandler ( Tcl_ExitProc * proc, ClientData clientData); > > >extern Tcl_Interp * Tcl_CreateInterp (void); > >extern void Tcl_CreateMathFunc (Tcl_Interp * interp, const char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData); > > > > >extern Tcl_Command Tcl_CreateObjCommand ( Tcl_Interp * interp, const char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > > > > >extern Tcl_Interp * Tcl_CreateSlave (Tcl_Interp * interp, const char * slaveName, int isSafe); > > >extern Tcl_TimerToken Tcl_CreateTimerHandler (int milliseconds, Tcl_TimerProc * proc, ClientData clientData); > > >extern Tcl_Trace Tcl_CreateTrace (Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData); > > > >extern void Tcl_DeleteAssocData (Tcl_Interp * interp, const char * name); > > >extern void Tcl_DeleteChannelHandler ( Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData); > > > >extern void Tcl_DeleteCloseHandler (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); > > >extern int Tcl_DeleteCommand (Tcl_Interp * interp, const char * cmdName); > > >extern int Tcl_DeleteCommandFromToken ( Tcl_Interp * interp, Tcl_Command command); > > >extern void Tcl_DeleteEvents ( Tcl_EventDeleteProc * proc, ClientData clientData); > > > >extern void Tcl_DeleteEventSource ( Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); > > > > >extern void Tcl_DeleteExitHandler ( Tcl_ExitProc * proc, ClientData clientData); > > >extern void Tcl_DeleteHashEntry ( Tcl_HashEntry * entryPtr); > > >extern void Tcl_DeleteHashTable ( Tcl_HashTable * tablePtr); > > >extern void Tcl_DeleteInterp (Tcl_Interp * interp); > > >extern void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr); ># 391 "/usr/local/include/tclDecls.h" 3 >extern void Tcl_DeleteTimerHandler ( Tcl_TimerToken token); > > >extern void Tcl_DeleteTrace (Tcl_Interp * interp, Tcl_Trace trace); > > >extern void Tcl_DontCallWhenDeleted ( Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); > > > > >extern int Tcl_DoOneEvent (int flags); > >extern void Tcl_DoWhenIdle (Tcl_IdleProc * proc, ClientData clientData); > > >extern char * Tcl_DStringAppend (Tcl_DString * dsPtr, const char * str, int length); > > >extern char * Tcl_DStringAppendElement ( Tcl_DString * dsPtr, const char * string); > > >extern void Tcl_DStringEndSublist ( Tcl_DString * dsPtr); > > >extern void Tcl_DStringFree (Tcl_DString * dsPtr); > >extern void Tcl_DStringGetResult ( Tcl_Interp * interp, Tcl_DString * dsPtr); > > >extern void Tcl_DStringInit (Tcl_DString * dsPtr); > >extern void Tcl_DStringResult (Tcl_Interp * interp, Tcl_DString * dsPtr); > > >extern void Tcl_DStringSetLength ( Tcl_DString * dsPtr, int length); > > >extern void Tcl_DStringStartSublist ( Tcl_DString * dsPtr); > > >extern int Tcl_Eof (Tcl_Channel chan); > >extern const char * Tcl_ErrnoId (void); > >extern const char * Tcl_ErrnoMsg (int err); > >extern int Tcl_Eval (Tcl_Interp * interp, const char * string); > > >extern int Tcl_EvalFile (Tcl_Interp * interp, const char * fileName); > > >extern int Tcl_EvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr); > > >extern void Tcl_EventuallyFree ( ClientData clientData, Tcl_FreeProc * freeProc); > > > >extern void Tcl_Exit (int status); > >extern int Tcl_ExposeCommand (Tcl_Interp * interp, const char * hiddenCmdToken, const char * cmdName); > > > >extern int Tcl_ExprBoolean (Tcl_Interp * interp, const char * str, int * ptr); > > >extern int Tcl_ExprBooleanObj (Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr); > > >extern int Tcl_ExprDouble (Tcl_Interp * interp, const char * str, double * ptr); > > >extern int Tcl_ExprDoubleObj (Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr); > > >extern int Tcl_ExprLong (Tcl_Interp * interp, const char * str, long * ptr); > > >extern int Tcl_ExprLongObj (Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr); > > >extern int Tcl_ExprObj (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr); > > >extern int Tcl_ExprString (Tcl_Interp * interp, const char * string); > > >extern void Tcl_Finalize (void); > >extern void Tcl_FindExecutable (const char * argv0); > >extern Tcl_HashEntry * Tcl_FirstHashEntry ( Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr); > > > >extern int Tcl_Flush (Tcl_Channel chan); > >extern void Tcl_FreeResult (Tcl_Interp * interp); > >extern int Tcl_GetAlias (Tcl_Interp * interp, const char * slaveCmd, Tcl_Interp ** targetInterpPtr, const char ** targetCmdPtr, int * argcPtr, const char *** argvPtr); > > > > > >extern int Tcl_GetAliasObj (Tcl_Interp * interp, const char * slaveCmd, Tcl_Interp ** targetInterpPtr, const char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv); > > > > > >extern ClientData Tcl_GetAssocData (Tcl_Interp * interp, const char * name, Tcl_InterpDeleteProc ** procPtr); > > > >extern Tcl_Channel Tcl_GetChannel (Tcl_Interp * interp, const char * chanName, int * modePtr); > > >extern int Tcl_GetChannelBufferSize ( Tcl_Channel chan); > > >extern int Tcl_GetChannelHandle (Tcl_Channel chan, int direction, ClientData * handlePtr); > > >extern ClientData Tcl_GetChannelInstanceData ( Tcl_Channel chan); > > >extern int Tcl_GetChannelMode (Tcl_Channel chan); > >extern const char * Tcl_GetChannelName ( Tcl_Channel chan); > > >extern int Tcl_GetChannelOption ( Tcl_Interp * interp, Tcl_Channel chan, const char * optionName, Tcl_DString * dsPtr); > > > >extern Tcl_ChannelType * Tcl_GetChannelType (Tcl_Channel chan); > >extern int Tcl_GetCommandInfo (Tcl_Interp * interp, const char * cmdName, Tcl_CmdInfo * infoPtr); > > >extern const char * Tcl_GetCommandName ( Tcl_Interp * interp, Tcl_Command command); > > >extern int Tcl_GetErrno (void); > >extern const char * Tcl_GetHostName (void); > >extern int Tcl_GetInterpPath ( Tcl_Interp * askInterp, Tcl_Interp * slaveInterp); > > > >extern Tcl_Interp * Tcl_GetMaster (Tcl_Interp * interp); > >extern const char * Tcl_GetNameOfExecutable (void); > >extern Tcl_Obj * Tcl_GetObjResult (Tcl_Interp * interp); > > >extern int Tcl_GetOpenFile (Tcl_Interp * interp, const char * str, int forWriting, int checkUsage, ClientData * filePtr); > > > > >extern Tcl_PathType Tcl_GetPathType (const char * path); > >extern int Tcl_Gets (Tcl_Channel chan, Tcl_DString * dsPtr); > > >extern int Tcl_GetsObj (Tcl_Channel chan, Tcl_Obj * objPtr); > > >extern int Tcl_GetServiceMode (void); > >extern Tcl_Interp * Tcl_GetSlave (Tcl_Interp * interp, const char * slaveName); > > >extern Tcl_Channel Tcl_GetStdChannel (int type); > >extern const char * Tcl_GetStringResult ( Tcl_Interp * interp); > > >extern const char * Tcl_GetVar (Tcl_Interp * interp, const char * varName, int flags); > > >extern const char * Tcl_GetVar2 (Tcl_Interp * interp, const char * part1, const char * part2, int flags); > > > >extern int Tcl_GlobalEval (Tcl_Interp * interp, const char * command); > > >extern int Tcl_GlobalEvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr); > > >extern int Tcl_HideCommand (Tcl_Interp * interp, const char * cmdName, const char * hiddenCmdToken); > > > >extern int Tcl_Init (Tcl_Interp * interp); > >extern void Tcl_InitHashTable ( Tcl_HashTable * tablePtr, int keyType); > > >extern int Tcl_InputBlocked (Tcl_Channel chan); > >extern int Tcl_InputBuffered (Tcl_Channel chan); > >extern int Tcl_InterpDeleted (Tcl_Interp * interp); > >extern int Tcl_IsSafe (Tcl_Interp * interp); > >extern char * Tcl_JoinPath (int argc, const char * const * argv, Tcl_DString * resultPtr); > > > >extern int Tcl_LinkVar (Tcl_Interp * interp, const char * varName, char * addr, int type); > > > >extern Tcl_Channel Tcl_MakeFileChannel (ClientData handle, int mode); > > >extern int Tcl_MakeSafe (Tcl_Interp * interp); > >extern Tcl_Channel Tcl_MakeTcpClientChannel ( ClientData tcpSocket); > > >extern char * Tcl_Merge (int argc, const char * const * argv); > > >extern Tcl_HashEntry * Tcl_NextHashEntry ( Tcl_HashSearch * searchPtr); > > >extern void Tcl_NotifyChannel (Tcl_Channel channel, int mask); > > >extern Tcl_Obj * Tcl_ObjGetVar2 (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags); > > > >extern Tcl_Obj * Tcl_ObjSetVar2 (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags); > > > > >extern Tcl_Channel Tcl_OpenCommandChannel ( Tcl_Interp * interp, int argc, const char ** argv, int flags); ># 651 "/usr/local/include/tclDecls.h" 3 >extern Tcl_Channel Tcl_OpenFileChannel (Tcl_Interp * interp, const char * fileName, const char * modeString, int permissions); > > > >extern Tcl_Channel Tcl_OpenTcpClient (Tcl_Interp * interp, int port, const char * address, const char * myaddr, int myport, int async); > > > >extern Tcl_Channel Tcl_OpenTcpServer (Tcl_Interp * interp, int port, const char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData); > > > > >extern void Tcl_Preserve (ClientData data); > >extern void Tcl_PrintDouble (Tcl_Interp * interp, double value, char * dst); > > >extern int Tcl_PutEnv (const char * string); > >extern const char * Tcl_PosixError (Tcl_Interp * interp); > >extern void Tcl_QueueEvent (Tcl_Event * evPtr, Tcl_QueuePosition position); > > >extern int Tcl_Read (Tcl_Channel chan, char * bufPtr, int toRead); > > > >extern void Tcl_ReapDetachedProcs (void); > > > > > > >extern int Tcl_RecordAndEval (Tcl_Interp * interp, const char * cmd, int flags); > > >extern int Tcl_RecordAndEvalObj ( Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags); > > > >extern void Tcl_RegisterChannel (Tcl_Interp * interp, Tcl_Channel chan); > > >extern void Tcl_RegisterObjType ( Tcl_ObjType * typePtr); > > >extern Tcl_RegExp Tcl_RegExpCompile (Tcl_Interp * interp, const char * string); > > >extern int Tcl_RegExpExec (Tcl_Interp * interp, Tcl_RegExp regexp, const char * str, const char * start); > > > >extern int Tcl_RegExpMatch (Tcl_Interp * interp, const char * str, const char * pattern); > > >extern void Tcl_RegExpRange (Tcl_RegExp regexp, int index, const char ** startPtr, const char ** endPtr); > > > >extern void Tcl_Release (ClientData clientData); > >extern void Tcl_ResetResult (Tcl_Interp * interp); > >extern int Tcl_ScanElement (const char * str, int * flagPtr); > > >extern int Tcl_ScanCountedElement (const char * str, int length, int * flagPtr); > > >extern int Tcl_SeekOld (Tcl_Channel chan, int offset, int mode); > > >extern int Tcl_ServiceAll (void); > >extern int Tcl_ServiceEvent (int flags); > >extern void Tcl_SetAssocData (Tcl_Interp * interp, const char * name, Tcl_InterpDeleteProc * proc, ClientData clientData); > > > > >extern void Tcl_SetChannelBufferSize ( Tcl_Channel chan, int sz); > > >extern int Tcl_SetChannelOption ( Tcl_Interp * interp, Tcl_Channel chan, const char * optionName, const char * newValue); > > > > >extern int Tcl_SetCommandInfo (Tcl_Interp * interp, const char * cmdName, const Tcl_CmdInfo * infoPtr); > > > >extern void Tcl_SetErrno (int err); > >extern void Tcl_SetErrorCode (Tcl_Interp * interp, ...); > >extern void Tcl_SetMaxBlockTime (Tcl_Time * timePtr); > >extern void Tcl_SetPanicProc ( Tcl_PanicProc * panicProc); > > >extern int Tcl_SetRecursionLimit ( Tcl_Interp * interp, int depth); > > >extern void Tcl_SetResult (Tcl_Interp * interp, char * str, Tcl_FreeProc * freeProc); > > >extern int Tcl_SetServiceMode (int mode); > >extern void Tcl_SetObjErrorCode (Tcl_Interp * interp, Tcl_Obj * errorObjPtr); > > >extern void Tcl_SetObjResult (Tcl_Interp * interp, Tcl_Obj * resultObjPtr); > > >extern void Tcl_SetStdChannel (Tcl_Channel channel, int type); > > >extern const char * Tcl_SetVar (Tcl_Interp * interp, const char * varName, const char * newValue, int flags); > > > >extern const char * Tcl_SetVar2 (Tcl_Interp * interp, const char * part1, const char * part2, const char * newValue, int flags); > > > >extern const char * Tcl_SignalId (int sig); > >extern const char * Tcl_SignalMsg (int sig); > >extern void Tcl_SourceRCFile (Tcl_Interp * interp); > >extern int Tcl_SplitList (Tcl_Interp * interp, const char * listStr, int * argcPtr, const char *** argvPtr); > > > >extern void Tcl_SplitPath (const char * path, int * argcPtr, const char *** argvPtr); > > >extern void Tcl_StaticPackage (Tcl_Interp * interp, const char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc); > > > > >extern int Tcl_StringMatch (const char * str, const char * pattern); > > >extern int Tcl_TellOld (Tcl_Channel chan); > >extern int Tcl_TraceVar (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > > > > >extern int Tcl_TraceVar2 (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > > > > >extern char * Tcl_TranslateFileName ( Tcl_Interp * interp, const char * name, Tcl_DString * bufferPtr); > > > >extern int Tcl_Ungets (Tcl_Channel chan, const char * str, int len, int atHead); > > >extern void Tcl_UnlinkVar (Tcl_Interp * interp, const char * varName); > > >extern int Tcl_UnregisterChannel ( Tcl_Interp * interp, Tcl_Channel chan); > > >extern int Tcl_UnsetVar (Tcl_Interp * interp, const char * varName, int flags); > > >extern int Tcl_UnsetVar2 (Tcl_Interp * interp, const char * part1, const char * part2, int flags); > > > >extern void Tcl_UntraceVar (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > > > > >extern void Tcl_UntraceVar2 (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > > > > >extern void Tcl_UpdateLinkedVar (Tcl_Interp * interp, const char * varName); > > >extern int Tcl_UpVar (Tcl_Interp * interp, const char * frameName, const char * varName, const char * localName, int flags); > > > >extern int Tcl_UpVar2 (Tcl_Interp * interp, const char * frameName, const char * part1, const char * part2, const char * localName, int flags); > > > > >extern int Tcl_VarEval (Tcl_Interp * interp, ...); > >extern ClientData Tcl_VarTraceInfo (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); > > > > >extern ClientData Tcl_VarTraceInfo2 (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); > > > > >extern int Tcl_Write (Tcl_Channel chan, const char * s, int slen); > > >extern void Tcl_WrongNumArgs (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], const char * message); > > > >extern int Tcl_DumpActiveMemory ( const char * fileName); > > >extern void Tcl_ValidateAllMemory (const char * file, int line); > > >extern void Tcl_AppendResultVA (Tcl_Interp * interp, va_list argList); > > >extern void Tcl_AppendStringsToObjVA ( Tcl_Obj * objPtr, va_list argList); > > >extern const char * Tcl_HashStats ( Tcl_HashTable * tablePtr); > > >extern const char * Tcl_ParseVar (Tcl_Interp * interp, const char * str, const char ** termPtr); > > >extern const char * Tcl_PkgPresent (Tcl_Interp * interp, const char * name, const char * version, int exact); > > > >extern const char * Tcl_PkgPresentEx ( Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); > > > > >extern int Tcl_PkgProvide (Tcl_Interp * interp, const char * name, const char * version); > > >extern const char * Tcl_PkgRequire (Tcl_Interp * interp, const char * name, const char * version, int exact); > > > >extern void Tcl_SetErrorCodeVA (Tcl_Interp * interp, va_list argList); > > >extern int Tcl_VarEvalVA (Tcl_Interp * interp, va_list argList); > > >extern Tcl_Pid Tcl_WaitPid (Tcl_Pid pid, int * statPtr, int options); > > >extern void Tcl_PanicVA (const char * format, va_list argList); > > >extern void Tcl_GetVersion (int * major, int * minor, int * patchLevel, int * type); > > >extern void Tcl_InitMemory (Tcl_Interp * interp); > >extern Tcl_Channel Tcl_StackChannel (Tcl_Interp * interp, Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); > > > > >extern int Tcl_UnstackChannel (Tcl_Interp * interp, Tcl_Channel chan); > > >extern Tcl_Channel Tcl_GetStackedChannel (Tcl_Channel chan); > >extern void Tcl_SetMainLoop (Tcl_MainLoopProc * proc); > > >extern void Tcl_AppendObjToObj (Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr); > > >extern Tcl_Encoding Tcl_CreateEncoding ( Tcl_EncodingType * typePtr); > > >extern void Tcl_CreateThreadExitHandler ( Tcl_ExitProc * proc, ClientData clientData); > > >extern void Tcl_DeleteThreadExitHandler ( Tcl_ExitProc * proc, ClientData clientData); > > >extern void Tcl_DiscardResult ( Tcl_SavedResult * statePtr); > > >extern int Tcl_EvalEx (Tcl_Interp * interp, const char * script, int numBytes, int flags); > > >extern int Tcl_EvalObjv (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); > > >extern int Tcl_EvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); > > >extern void Tcl_ExitThread (int status); > >extern int Tcl_ExternalToUtf (Tcl_Interp * interp, Tcl_Encoding encoding, const char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); > > > > > > >extern char * Tcl_ExternalToUtfDString ( Tcl_Encoding encoding, const char * src, int srcLen, Tcl_DString * dsPtr); > > > >extern void Tcl_FinalizeThread (void); > >extern void Tcl_FinalizeNotifier ( ClientData clientData); > > >extern void Tcl_FreeEncoding (Tcl_Encoding encoding); > >extern Tcl_ThreadId Tcl_GetCurrentThread (void); > >extern Tcl_Encoding Tcl_GetEncoding (Tcl_Interp * interp, const char * name); > > >extern const char * Tcl_GetEncodingName ( Tcl_Encoding encoding); > > >extern void Tcl_GetEncodingNames ( Tcl_Interp * interp); > > >extern int Tcl_GetIndexFromObjStruct ( Tcl_Interp * interp, Tcl_Obj * objPtr, const void * tablePtr, int offset, const char * msg, int flags, int * indexPtr); > > > > >extern void * Tcl_GetThreadData ( Tcl_ThreadDataKey * keyPtr, int size); > > >extern Tcl_Obj * Tcl_GetVar2Ex (Tcl_Interp * interp, const char * part1, const char * part2, int flags); > > > >extern ClientData Tcl_InitNotifier (void); > >extern void Tcl_MutexLock (Tcl_Mutex * mutexPtr); > >extern void Tcl_MutexUnlock (Tcl_Mutex * mutexPtr); > >extern void Tcl_ConditionNotify ( Tcl_Condition * condPtr); > > >extern void Tcl_ConditionWait ( Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr); > > > >extern int Tcl_NumUtfChars (const char * src, int len); > > >extern int Tcl_ReadChars (Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag); > > > >extern void Tcl_RestoreResult (Tcl_Interp * interp, Tcl_SavedResult * statePtr); > > >extern void Tcl_SaveResult (Tcl_Interp * interp, Tcl_SavedResult * statePtr); > > >extern int Tcl_SetSystemEncoding ( Tcl_Interp * interp, const char * name); > > >extern Tcl_Obj * Tcl_SetVar2Ex (Tcl_Interp * interp, const char * part1, const char * part2, Tcl_Obj * newValuePtr, int flags); > > > >extern void Tcl_ThreadAlert (Tcl_ThreadId threadId); > >extern void Tcl_ThreadQueueEvent ( Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position); > > > >extern Tcl_UniChar Tcl_UniCharAtIndex (const char * src, int index); > > >extern Tcl_UniChar Tcl_UniCharToLower (int ch); > >extern Tcl_UniChar Tcl_UniCharToTitle (int ch); > >extern Tcl_UniChar Tcl_UniCharToUpper (int ch); > >extern int Tcl_UniCharToUtf (int ch, char * buf); > >extern const char * Tcl_UtfAtIndex (const char * src, int index); > > >extern int Tcl_UtfCharComplete (const char * src, int len); > > >extern int Tcl_UtfBackslash (const char * src, int * readPtr, char * dst); > > >extern const char * Tcl_UtfFindFirst (const char * src, int ch); > > >extern const char * Tcl_UtfFindLast (const char * src, int ch); > > >extern const char * Tcl_UtfNext (const char * src); > >extern const char * Tcl_UtfPrev (const char * src, const char * start); > > >extern int Tcl_UtfToExternal (Tcl_Interp * interp, Tcl_Encoding encoding, const char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); > > > > > > >extern char * Tcl_UtfToExternalDString ( Tcl_Encoding encoding, const char * src, int srcLen, Tcl_DString * dsPtr); > > > >extern int Tcl_UtfToLower (char * src); > >extern int Tcl_UtfToTitle (char * src); > >extern int Tcl_UtfToUniChar (const char * src, Tcl_UniChar * chPtr); > > >extern int Tcl_UtfToUpper (char * src); > >extern int Tcl_WriteChars (Tcl_Channel chan, const char * src, int srcLen); > > >extern int Tcl_WriteObj (Tcl_Channel chan, Tcl_Obj * objPtr); > > >extern char * Tcl_GetString (Tcl_Obj * objPtr); > >extern const char * Tcl_GetDefaultEncodingDir (void); > >extern void Tcl_SetDefaultEncodingDir ( const char * path); > > >extern void Tcl_AlertNotifier (ClientData clientData); > >extern void Tcl_ServiceModeHook (int mode); > >extern int Tcl_UniCharIsAlnum (int ch); > >extern int Tcl_UniCharIsAlpha (int ch); > >extern int Tcl_UniCharIsDigit (int ch); > >extern int Tcl_UniCharIsLower (int ch); > >extern int Tcl_UniCharIsSpace (int ch); > >extern int Tcl_UniCharIsUpper (int ch); > >extern int Tcl_UniCharIsWordChar (int ch); > >extern int Tcl_UniCharLen (const Tcl_UniChar * str); > >extern int Tcl_UniCharNcmp (const Tcl_UniChar * cs, const Tcl_UniChar * ct, unsigned long n); > > >extern char * Tcl_UniCharToUtfDString ( const Tcl_UniChar * string, int numChars, Tcl_DString * dsPtr); > > > >extern Tcl_UniChar * Tcl_UtfToUniCharDString ( const char * string, int length, Tcl_DString * dsPtr); > > > >extern Tcl_RegExp Tcl_GetRegExpFromObj ( Tcl_Interp * interp, Tcl_Obj * patObj, int flags); > > > >extern Tcl_Obj * Tcl_EvalTokens (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); > > >extern void Tcl_FreeParse (Tcl_Parse * parsePtr); > >extern void Tcl_LogCommandInfo (Tcl_Interp * interp, const char * script, const char * command, int length); > > > >extern int Tcl_ParseBraces (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr, int append, const char ** termPtr); > > > > >extern int Tcl_ParseCommand (Tcl_Interp * interp, const char * string, int numBytes, int nested, Tcl_Parse * parsePtr); > > > >extern int Tcl_ParseExpr (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr); > > > >extern int Tcl_ParseQuotedString ( Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr, int append, const char ** termPtr); > > > > >extern int Tcl_ParseVarName (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr, int append); > > > >extern char * Tcl_GetCwd (Tcl_Interp * interp, Tcl_DString * cwdPtr); > > >extern int Tcl_Chdir (const char * dirName); > >extern int Tcl_Access (const char * path, int mode); > >extern int Tcl_Stat (const char * path, struct stat * bufPtr); > > >extern int Tcl_UtfNcmp (const char * s1, const char * s2, unsigned long n); > > >extern int Tcl_UtfNcasecmp (const char * s1, const char * s2, unsigned long n); > > >extern int Tcl_StringCaseMatch (const char * str, const char * pattern, int nocase); > > >extern int Tcl_UniCharIsControl (int ch); > >extern int Tcl_UniCharIsGraph (int ch); > >extern int Tcl_UniCharIsPrint (int ch); > >extern int Tcl_UniCharIsPunct (int ch); > >extern int Tcl_RegExpExecObj (Tcl_Interp * interp, Tcl_RegExp regexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags); > > > >extern void Tcl_RegExpGetInfo (Tcl_RegExp regexp, Tcl_RegExpInfo * infoPtr); > > >extern Tcl_Obj * Tcl_NewUnicodeObj ( const Tcl_UniChar * unicode, int numChars); > > >extern void Tcl_SetUnicodeObj (Tcl_Obj * objPtr, const Tcl_UniChar * unicode, int numChars); > > >extern int Tcl_GetCharLength (Tcl_Obj * objPtr); > >extern Tcl_UniChar Tcl_GetUniChar (Tcl_Obj * objPtr, int index); > > >extern Tcl_UniChar * Tcl_GetUnicode (Tcl_Obj * objPtr); > >extern Tcl_Obj * Tcl_GetRange (Tcl_Obj * objPtr, int first, int last); > > >extern void Tcl_AppendUnicodeToObj (Tcl_Obj * objPtr, const Tcl_UniChar * unicode, int length); > > >extern int Tcl_RegExpMatchObj (Tcl_Interp * interp, Tcl_Obj * stringObj, Tcl_Obj * patternObj); > > >extern void Tcl_SetNotifier ( Tcl_NotifierProcs * notifierProcPtr); > > >extern Tcl_Mutex * Tcl_GetAllocMutex (void); > >extern int Tcl_GetChannelNames (Tcl_Interp * interp); > >extern int Tcl_GetChannelNamesEx ( Tcl_Interp * interp, const char * pattern); > > >extern int Tcl_ProcObjCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern void Tcl_ConditionFinalize ( Tcl_Condition * condPtr); > > >extern void Tcl_MutexFinalize (Tcl_Mutex * mutex); > >extern int Tcl_CreateThread (Tcl_ThreadId * idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); > > > > >extern int Tcl_ReadRaw (Tcl_Channel chan, char * dst, int bytesToRead); > > >extern int Tcl_WriteRaw (Tcl_Channel chan, const char * src, int srcLen); > > >extern Tcl_Channel Tcl_GetTopChannel (Tcl_Channel chan); > >extern int Tcl_ChannelBuffered (Tcl_Channel chan); > >extern const char * Tcl_ChannelName ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_ChannelTypeVersion Tcl_ChannelVersion ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverCloseProc * Tcl_ChannelCloseProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverInputProc * Tcl_ChannelInputProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverOutputProc * Tcl_ChannelOutputProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverSeekProc * Tcl_ChannelSeekProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverWatchProc * Tcl_ChannelWatchProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverFlushProc * Tcl_ChannelFlushProc ( Tcl_ChannelType * chanTypePtr); > > >extern Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc ( Tcl_ChannelType * chanTypePtr); > > >extern int Tcl_JoinThread (Tcl_ThreadId id, int* result); > > >extern int Tcl_IsChannelShared (Tcl_Channel channel); > >extern int Tcl_IsChannelRegistered ( Tcl_Interp* interp, Tcl_Channel channel); > > >extern void Tcl_CutChannel (Tcl_Channel channel); > >extern void Tcl_SpliceChannel (Tcl_Channel channel); > >extern void Tcl_ClearChannelHandlers ( Tcl_Channel channel); > > >extern int Tcl_IsChannelExisting ( const char* channelName); > > >extern int Tcl_UniCharNcasecmp ( const Tcl_UniChar * cs, const Tcl_UniChar * ct, unsigned long n); > > > >extern int Tcl_UniCharCaseMatch ( const Tcl_UniChar * ustr, const Tcl_UniChar * pattern, int nocase); > > > >extern Tcl_HashEntry * Tcl_FindHashEntry ( Tcl_HashTable * tablePtr, const char * key); > > >extern Tcl_HashEntry * Tcl_CreateHashEntry ( Tcl_HashTable * tablePtr, const char * key, int * newPtr); > > > >extern void Tcl_InitCustomHashTable ( Tcl_HashTable * tablePtr, int keyType, Tcl_HashKeyType * typePtr); > > > >extern void Tcl_InitObjHashTable ( Tcl_HashTable * tablePtr); > > >extern ClientData Tcl_CommandTraceInfo ( Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData); > > > > >extern int Tcl_TraceCommand (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); > > > > >extern void Tcl_UntraceCommand (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); > > > > >extern char * Tcl_AttemptAlloc (unsigned int size); > >extern char * Tcl_AttemptDbCkalloc (unsigned int size, const char * file, int line); > > >extern char * Tcl_AttemptRealloc (char * ptr, unsigned int size); > > >extern char * Tcl_AttemptDbCkrealloc (char * ptr, unsigned int size, const char * file, int line); > > > >extern int Tcl_AttemptSetObjLength ( Tcl_Obj * objPtr, int length); > > >extern Tcl_ThreadId Tcl_GetChannelThread ( Tcl_Channel channel); > > >extern Tcl_UniChar * Tcl_GetUnicodeFromObj (Tcl_Obj * objPtr, int * lengthPtr); > > >extern int Tcl_GetMathFuncInfo (Tcl_Interp * interp, const char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr); > > > > > >extern Tcl_Obj * Tcl_ListMathFuncs (Tcl_Interp * interp, const char * pattern); > > >extern Tcl_Obj * Tcl_SubstObj (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); > > >extern int Tcl_DetachChannel (Tcl_Interp* interp, Tcl_Channel channel); > > >extern int Tcl_IsStandardChannel ( Tcl_Channel channel); > > >extern int Tcl_FSCopyFile (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); > > >extern int Tcl_FSCopyDirectory ( Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); > > > >extern int Tcl_FSCreateDirectory (Tcl_Obj * pathPtr); > >extern int Tcl_FSDeleteFile (Tcl_Obj * pathPtr); > >extern int Tcl_FSLoadFile (Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * sym1, const char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** unloadProcPtr); > > > > > > > >extern int Tcl_FSMatchInDirectory ( Tcl_Interp * interp, Tcl_Obj * result, Tcl_Obj * pathPtr, const char * pattern, Tcl_GlobTypeData * types); > > > > >extern Tcl_Obj * Tcl_FSLink (Tcl_Obj * pathPtr, Tcl_Obj * toPtr, int linkAction); > > >extern int Tcl_FSRemoveDirectory (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); > > >extern int Tcl_FSRenameFile (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); > > >extern int Tcl_FSLstat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); > > >extern int Tcl_FSUtime (Tcl_Obj * pathPtr, struct utimbuf * tval); > > >extern int Tcl_FSFileAttrsGet (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); > > > >extern int Tcl_FSFileAttrsSet (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj * objPtr); > > > >extern const char ** Tcl_FSFileAttrStrings (Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); > > >extern int Tcl_FSStat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); > > >extern int Tcl_FSAccess (Tcl_Obj * pathPtr, int mode); > > >extern Tcl_Channel Tcl_FSOpenFileChannel ( Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * modeString, int permissions); > > > >extern Tcl_Obj* Tcl_FSGetCwd (Tcl_Interp * interp); > >extern int Tcl_FSChdir (Tcl_Obj * pathPtr); > >extern int Tcl_FSConvertToPathType ( Tcl_Interp * interp, Tcl_Obj * pathPtr); > > >extern Tcl_Obj* Tcl_FSJoinPath (Tcl_Obj * listObj, int elements); > > >extern Tcl_Obj* Tcl_FSSplitPath (Tcl_Obj* pathPtr, int * lenPtr); > > >extern int Tcl_FSEqualPaths (Tcl_Obj* firstPtr, Tcl_Obj* secondPtr); > > >extern Tcl_Obj* Tcl_FSGetNormalizedPath ( Tcl_Interp * interp, Tcl_Obj* pathObjPtr); > > >extern Tcl_Obj* Tcl_FSJoinToPath (Tcl_Obj * basePtr, int objc, Tcl_Obj *const objv[]); > > >extern ClientData Tcl_FSGetInternalRep ( Tcl_Obj* pathObjPtr, Tcl_Filesystem * fsPtr); > > >extern Tcl_Obj* Tcl_FSGetTranslatedPath ( Tcl_Interp * interp, Tcl_Obj* pathPtr); > > >extern int Tcl_FSEvalFile (Tcl_Interp * interp, Tcl_Obj * fileName); > > >extern Tcl_Obj* Tcl_FSNewNativePath ( Tcl_Filesystem* fromFilesystem, ClientData clientData); > > > >extern const char* Tcl_FSGetNativePath (Tcl_Obj* pathObjPtr); > >extern Tcl_Obj* Tcl_FSFileSystemInfo ( Tcl_Obj* pathObjPtr); > > >extern Tcl_Obj* Tcl_FSPathSeparator (Tcl_Obj* pathObjPtr); > >extern Tcl_Obj* Tcl_FSListVolumes (void); > >extern int Tcl_FSRegister (ClientData clientData, Tcl_Filesystem * fsPtr); > > >extern int Tcl_FSUnregister (Tcl_Filesystem * fsPtr); > >extern ClientData Tcl_FSData (Tcl_Filesystem * fsPtr); > >extern const char* Tcl_FSGetTranslatedStringPath ( Tcl_Interp * interp, Tcl_Obj* pathPtr); > > >extern Tcl_Filesystem* Tcl_FSGetFileSystemForPath ( Tcl_Obj* pathObjPtr); > > >extern Tcl_PathType Tcl_FSGetPathType (Tcl_Obj * pathObjPtr); > >extern int Tcl_OutputBuffered (Tcl_Channel chan); > >extern void Tcl_FSMountsChanged ( Tcl_Filesystem * fsPtr); > > >extern int Tcl_EvalTokensStandard ( Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); > > > >extern void Tcl_GetTime (Tcl_Time* timeBuf); > >extern Tcl_Trace Tcl_CreateObjTrace (Tcl_Interp* interp, int level, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc* delProc); > > > > > >extern int Tcl_GetCommandInfoFromToken ( Tcl_Command token, Tcl_CmdInfo* infoPtr); > > >extern int Tcl_SetCommandInfoFromToken ( Tcl_Command token, const Tcl_CmdInfo* infoPtr); > > > >extern Tcl_Obj * Tcl_DbNewWideIntObj ( Tcl_WideInt wideValue, const char * file, int line); > > > >extern int Tcl_GetWideIntFromObj ( Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_WideInt * widePtr); > > > >extern Tcl_Obj * Tcl_NewWideIntObj (Tcl_WideInt wideValue); > >extern void Tcl_SetWideIntObj (Tcl_Obj * objPtr, Tcl_WideInt wideValue); > > >extern Tcl_StatBuf * Tcl_AllocStatBuf (void); > >extern Tcl_WideInt Tcl_Seek (Tcl_Channel chan, Tcl_WideInt offset, int mode); > > >extern Tcl_WideInt Tcl_Tell (Tcl_Channel chan); > >extern Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc ( Tcl_ChannelType * chanTypePtr); > > >typedef struct TclStubHooks { > struct TclPlatStubs *tclPlatStubs; > struct TclIntStubs *tclIntStubs; > struct TclIntPlatStubs *tclIntPlatStubs; >} TclStubHooks; > >typedef struct TclStubs { > int magic; > struct TclStubHooks *hooks; > > int (*tcl_PkgProvideEx) (Tcl_Interp* interp, const char* name, const char* version, ClientData clientData); > const char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); > void (*tcl_Panic) (const char * format, ...); > char * (*tcl_Alloc) (unsigned int size); > void (*tcl_Free) (char * ptr); > char * (*tcl_Realloc) (char * ptr, unsigned int size); > char * (*tcl_DbCkalloc) (unsigned int size, const char * file, int line); > int (*tcl_DbCkfree) (char * ptr, const char * file, int line); > char * (*tcl_DbCkrealloc) (char * ptr, unsigned int size, const char * file, int line); > > void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc * proc, ClientData clientData); ># 1597 "/usr/local/include/tclDecls.h" 3 > void (*tcl_DeleteFileHandler) (int fd); > > > > > > > > void (*tcl_SetTimer) (Tcl_Time * timePtr); > void (*tcl_Sleep) (int ms); > int (*tcl_WaitForEvent) (Tcl_Time * timePtr); > int (*tcl_AppendAllObjTypes) (Tcl_Interp * interp, Tcl_Obj * objPtr); > void (*tcl_AppendStringsToObj) (Tcl_Obj * objPtr, ...); > void (*tcl_AppendToObj) (Tcl_Obj* objPtr, const char* bytes, int length); > Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); > int (*tcl_ConvertToType) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr); > void (*tcl_DbDecrRefCount) (Tcl_Obj * objPtr, const char * file, int line); > void (*tcl_DbIncrRefCount) (Tcl_Obj * objPtr, const char * file, int line); > int (*tcl_DbIsShared) (Tcl_Obj * objPtr, const char * file, int line); > Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char * file, int line); > Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char * bytes, int length, const char * file, int line); > Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char * file, int line); > Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const * objv, const char * file, int line); > Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char * file, int line); > Tcl_Obj * (*tcl_DbNewObj) (const char * file, int line); > Tcl_Obj * (*tcl_DbNewStringObj) (const char * bytes, int length, const char * file, int line); > Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj * objPtr); > void (*tclFreeObj) (Tcl_Obj * objPtr); > int (*tcl_GetBoolean) (Tcl_Interp * interp, const char * str, int * boolPtr); > int (*tcl_GetBooleanFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr); > unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj * objPtr, int * lengthPtr); > int (*tcl_GetDouble) (Tcl_Interp * interp, const char * str, double * doublePtr); > int (*tcl_GetDoubleFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr); > int (*tcl_GetIndexFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, const char ** tablePtr, const char * msg, int flags, int * indexPtr); > int (*tcl_GetInt) (Tcl_Interp * interp, const char * str, int * intPtr); > int (*tcl_GetIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr); > int (*tcl_GetLongFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr); > Tcl_ObjType * (*tcl_GetObjType) (const char * typeName); > char * (*tcl_GetStringFromObj) (Tcl_Obj * objPtr, int * lengthPtr); > void (*tcl_InvalidateStringRep) (Tcl_Obj * objPtr); > int (*tcl_ListObjAppendList) (Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr); > int (*tcl_ListObjAppendElement) (Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr); > int (*tcl_ListObjGetElements) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr); > int (*tcl_ListObjIndex) (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr); > int (*tcl_ListObjLength) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * lengthPtr); > int (*tcl_ListObjReplace) (Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); > Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); > Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char* bytes, int length); > Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); > Tcl_Obj * (*tcl_NewIntObj) (int intValue); > Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); > Tcl_Obj * (*tcl_NewLongObj) (long longValue); > Tcl_Obj * (*tcl_NewObj) (void); > Tcl_Obj * (*tcl_NewStringObj) (const char * bytes, int length); > void (*tcl_SetBooleanObj) (Tcl_Obj * objPtr, int boolValue); > unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj * objPtr, int length); > void (*tcl_SetByteArrayObj) (Tcl_Obj * objPtr, const unsigned char * bytes, int length); > void (*tcl_SetDoubleObj) (Tcl_Obj * objPtr, double doubleValue); > void (*tcl_SetIntObj) (Tcl_Obj * objPtr, int intValue); > void (*tcl_SetListObj) (Tcl_Obj * objPtr, int objc, Tcl_Obj *const objv[]); > void (*tcl_SetLongObj) (Tcl_Obj * objPtr, long longValue); > void (*tcl_SetObjLength) (Tcl_Obj * objPtr, int length); > void (*tcl_SetStringObj) (Tcl_Obj* objPtr, const char* bytes, int length); > void (*tcl_AddErrorInfo) (Tcl_Interp * interp, const char * message); > void (*tcl_AddObjErrorInfo) (Tcl_Interp * interp, const char * message, int length); > void (*tcl_AllowExceptions) (Tcl_Interp * interp); > void (*tcl_AppendElement) (Tcl_Interp * interp, const char * string); > void (*tcl_AppendResult) (Tcl_Interp * interp, ...); > Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc * proc, ClientData clientData); > void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); > int (*tcl_AsyncInvoke) (Tcl_Interp * interp, int code); > void (*tcl_AsyncMark) (Tcl_AsyncHandler async); > int (*tcl_AsyncReady) (void); > void (*tcl_BackgroundError) (Tcl_Interp * interp); > char (*tcl_Backslash) (const char * src, int * readPtr); > int (*tcl_BadChannelOption) (Tcl_Interp * interp, const char * optionName, const char * optionList); > void (*tcl_CallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); > void (*tcl_CancelIdleCall) (Tcl_IdleProc * idleProc, ClientData clientData); > int (*tcl_Close) (Tcl_Interp * interp, Tcl_Channel chan); > int (*tcl_CommandComplete) (const char * cmd); > char * (*tcl_Concat) (int argc, const char * const * argv); > int (*tcl_ConvertElement) (const char * src, char * dst, int flags); > int (*tcl_ConvertCountedElement) (const char * src, int length, char * dst, int flags); > int (*tcl_CreateAlias) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int argc, const char * const * argv); > int (*tcl_CreateAliasObj) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int objc, Tcl_Obj *const objv[]); > Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType * typePtr, const char * chanName, ClientData instanceData, int mask); > void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData); > void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); > Tcl_Command (*tcl_CreateCommand) (Tcl_Interp * interp, const char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > void (*tcl_CreateEventSource) (Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); > void (*tcl_CreateExitHandler) (Tcl_ExitProc * proc, ClientData clientData); > Tcl_Interp * (*tcl_CreateInterp) (void); > void (*tcl_CreateMathFunc) (Tcl_Interp * interp, const char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData); > Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp * interp, const char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp * interp, const char * slaveName, int isSafe); > Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc * proc, ClientData clientData); > Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData); > void (*tcl_DeleteAssocData) (Tcl_Interp * interp, const char * name); > void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData); > void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); > int (*tcl_DeleteCommand) (Tcl_Interp * interp, const char * cmdName); > int (*tcl_DeleteCommandFromToken) (Tcl_Interp * interp, Tcl_Command command); > void (*tcl_DeleteEvents) (Tcl_EventDeleteProc * proc, ClientData clientData); > void (*tcl_DeleteEventSource) (Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); > void (*tcl_DeleteExitHandler) (Tcl_ExitProc * proc, ClientData clientData); > void (*tcl_DeleteHashEntry) (Tcl_HashEntry * entryPtr); > void (*tcl_DeleteHashTable) (Tcl_HashTable * tablePtr); > void (*tcl_DeleteInterp) (Tcl_Interp * interp); > > void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); > > > > > > > > void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); > void (*tcl_DeleteTrace) (Tcl_Interp * interp, Tcl_Trace trace); > void (*tcl_DontCallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); > int (*tcl_DoOneEvent) (int flags); > void (*tcl_DoWhenIdle) (Tcl_IdleProc * proc, ClientData clientData); > char * (*tcl_DStringAppend) (Tcl_DString * dsPtr, const char * str, int length); > char * (*tcl_DStringAppendElement) (Tcl_DString * dsPtr, const char * string); > void (*tcl_DStringEndSublist) (Tcl_DString * dsPtr); > void (*tcl_DStringFree) (Tcl_DString * dsPtr); > void (*tcl_DStringGetResult) (Tcl_Interp * interp, Tcl_DString * dsPtr); > void (*tcl_DStringInit) (Tcl_DString * dsPtr); > void (*tcl_DStringResult) (Tcl_Interp * interp, Tcl_DString * dsPtr); > void (*tcl_DStringSetLength) (Tcl_DString * dsPtr, int length); > void (*tcl_DStringStartSublist) (Tcl_DString * dsPtr); > int (*tcl_Eof) (Tcl_Channel chan); > const char * (*tcl_ErrnoId) (void); > const char * (*tcl_ErrnoMsg) (int err); > int (*tcl_Eval) (Tcl_Interp * interp, const char * string); > int (*tcl_EvalFile) (Tcl_Interp * interp, const char * fileName); > int (*tcl_EvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); > void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc * freeProc); > void (*tcl_Exit) (int status); > int (*tcl_ExposeCommand) (Tcl_Interp * interp, const char * hiddenCmdToken, const char * cmdName); > int (*tcl_ExprBoolean) (Tcl_Interp * interp, const char * str, int * ptr); > int (*tcl_ExprBooleanObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr); > int (*tcl_ExprDouble) (Tcl_Interp * interp, const char * str, double * ptr); > int (*tcl_ExprDoubleObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr); > int (*tcl_ExprLong) (Tcl_Interp * interp, const char * str, long * ptr); > int (*tcl_ExprLongObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr); > int (*tcl_ExprObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr); > int (*tcl_ExprString) (Tcl_Interp * interp, const char * string); > void (*tcl_Finalize) (void); > void (*tcl_FindExecutable) (const char * argv0); > Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr); > int (*tcl_Flush) (Tcl_Channel chan); > void (*tcl_FreeResult) (Tcl_Interp * interp); > int (*tcl_GetAlias) (Tcl_Interp * interp, const char * slaveCmd, Tcl_Interp ** targetInterpPtr, const char ** targetCmdPtr, int * argcPtr, const char *** argvPtr); > int (*tcl_GetAliasObj) (Tcl_Interp * interp, const char * slaveCmd, Tcl_Interp ** targetInterpPtr, const char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv); > ClientData (*tcl_GetAssocData) (Tcl_Interp * interp, const char * name, Tcl_InterpDeleteProc ** procPtr); > Tcl_Channel (*tcl_GetChannel) (Tcl_Interp * interp, const char * chanName, int * modePtr); > int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); > int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData * handlePtr); > ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); > int (*tcl_GetChannelMode) (Tcl_Channel chan); > const char * (*tcl_GetChannelName) (Tcl_Channel chan); > int (*tcl_GetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, const char * optionName, Tcl_DString * dsPtr); > Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); > int (*tcl_GetCommandInfo) (Tcl_Interp * interp, const char * cmdName, Tcl_CmdInfo * infoPtr); > const char * (*tcl_GetCommandName) (Tcl_Interp * interp, Tcl_Command command); > int (*tcl_GetErrno) (void); > const char * (*tcl_GetHostName) (void); > int (*tcl_GetInterpPath) (Tcl_Interp * askInterp, Tcl_Interp * slaveInterp); > Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp * interp); > const char * (*tcl_GetNameOfExecutable) (void); > Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp * interp); > > int (*tcl_GetOpenFile) (Tcl_Interp * interp, const char * str, int forWriting, int checkUsage, ClientData * filePtr); > > > > > > > > Tcl_PathType (*tcl_GetPathType) (const char * path); > int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString * dsPtr); > int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj * objPtr); > int (*tcl_GetServiceMode) (void); > Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp * interp, const char * slaveName); > Tcl_Channel (*tcl_GetStdChannel) (int type); > const char * (*tcl_GetStringResult) (Tcl_Interp * interp); > const char * (*tcl_GetVar) (Tcl_Interp * interp, const char * varName, int flags); > const char * (*tcl_GetVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags); > int (*tcl_GlobalEval) (Tcl_Interp * interp, const char * command); > int (*tcl_GlobalEvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); > int (*tcl_HideCommand) (Tcl_Interp * interp, const char * cmdName, const char * hiddenCmdToken); > int (*tcl_Init) (Tcl_Interp * interp); > void (*tcl_InitHashTable) (Tcl_HashTable * tablePtr, int keyType); > int (*tcl_InputBlocked) (Tcl_Channel chan); > int (*tcl_InputBuffered) (Tcl_Channel chan); > int (*tcl_InterpDeleted) (Tcl_Interp * interp); > int (*tcl_IsSafe) (Tcl_Interp * interp); > char * (*tcl_JoinPath) (int argc, const char * const * argv, Tcl_DString * resultPtr); > int (*tcl_LinkVar) (Tcl_Interp * interp, const char * varName, char * addr, int type); > void *reserved188; > Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); > int (*tcl_MakeSafe) (Tcl_Interp * interp); > Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); > char * (*tcl_Merge) (int argc, const char * const * argv); > Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch * searchPtr); > void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); > Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags); > Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags); > > Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, const char ** argv, int flags); > > > > > > > > Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp * interp, const char * fileName, const char * modeString, int permissions); > Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp * interp, int port, const char * address, const char * myaddr, int myport, int async); > Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp * interp, int port, const char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData); > void (*tcl_Preserve) (ClientData data); > void (*tcl_PrintDouble) (Tcl_Interp * interp, double value, char * dst); > int (*tcl_PutEnv) (const char * string); > const char * (*tcl_PosixError) (Tcl_Interp * interp); > void (*tcl_QueueEvent) (Tcl_Event * evPtr, Tcl_QueuePosition position); > int (*tcl_Read) (Tcl_Channel chan, char * bufPtr, int toRead); > > void (*tcl_ReapDetachedProcs) (void); > > > > > > > > int (*tcl_RecordAndEval) (Tcl_Interp * interp, const char * cmd, int flags); > int (*tcl_RecordAndEvalObj) (Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags); > void (*tcl_RegisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); > void (*tcl_RegisterObjType) (Tcl_ObjType * typePtr); > Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp * interp, const char * string); > int (*tcl_RegExpExec) (Tcl_Interp * interp, Tcl_RegExp regexp, const char * str, const char * start); > int (*tcl_RegExpMatch) (Tcl_Interp * interp, const char * str, const char * pattern); > void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, const char ** startPtr, const char ** endPtr); > void (*tcl_Release) (ClientData clientData); > void (*tcl_ResetResult) (Tcl_Interp * interp); > int (*tcl_ScanElement) (const char * str, int * flagPtr); > int (*tcl_ScanCountedElement) (const char * str, int length, int * flagPtr); > int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); > int (*tcl_ServiceAll) (void); > int (*tcl_ServiceEvent) (int flags); > void (*tcl_SetAssocData) (Tcl_Interp * interp, const char * name, Tcl_InterpDeleteProc * proc, ClientData clientData); > void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); > int (*tcl_SetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, const char * optionName, const char * newValue); > int (*tcl_SetCommandInfo) (Tcl_Interp * interp, const char * cmdName, const Tcl_CmdInfo * infoPtr); > void (*tcl_SetErrno) (int err); > void (*tcl_SetErrorCode) (Tcl_Interp * interp, ...); > void (*tcl_SetMaxBlockTime) (Tcl_Time * timePtr); > void (*tcl_SetPanicProc) (Tcl_PanicProc * panicProc); > int (*tcl_SetRecursionLimit) (Tcl_Interp * interp, int depth); > void (*tcl_SetResult) (Tcl_Interp * interp, char * str, Tcl_FreeProc * freeProc); > int (*tcl_SetServiceMode) (int mode); > void (*tcl_SetObjErrorCode) (Tcl_Interp * interp, Tcl_Obj * errorObjPtr); > void (*tcl_SetObjResult) (Tcl_Interp * interp, Tcl_Obj * resultObjPtr); > void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); > const char * (*tcl_SetVar) (Tcl_Interp * interp, const char * varName, const char * newValue, int flags); > const char * (*tcl_SetVar2) (Tcl_Interp * interp, const char * part1, const char * part2, const char * newValue, int flags); > const char * (*tcl_SignalId) (int sig); > const char * (*tcl_SignalMsg) (int sig); > void (*tcl_SourceRCFile) (Tcl_Interp * interp); > int (*tcl_SplitList) (Tcl_Interp * interp, const char * listStr, int * argcPtr, const char *** argvPtr); > void (*tcl_SplitPath) (const char * path, int * argcPtr, const char *** argvPtr); > void (*tcl_StaticPackage) (Tcl_Interp * interp, const char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc); > int (*tcl_StringMatch) (const char * str, const char * pattern); > int (*tcl_TellOld) (Tcl_Channel chan); > int (*tcl_TraceVar) (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > int (*tcl_TraceVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > char * (*tcl_TranslateFileName) (Tcl_Interp * interp, const char * name, Tcl_DString * bufferPtr); > int (*tcl_Ungets) (Tcl_Channel chan, const char * str, int len, int atHead); > void (*tcl_UnlinkVar) (Tcl_Interp * interp, const char * varName); > int (*tcl_UnregisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); > int (*tcl_UnsetVar) (Tcl_Interp * interp, const char * varName, int flags); > int (*tcl_UnsetVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags); > void (*tcl_UntraceVar) (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > void (*tcl_UntraceVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); > void (*tcl_UpdateLinkedVar) (Tcl_Interp * interp, const char * varName); > int (*tcl_UpVar) (Tcl_Interp * interp, const char * frameName, const char * varName, const char * localName, int flags); > int (*tcl_UpVar2) (Tcl_Interp * interp, const char * frameName, const char * part1, const char * part2, const char * localName, int flags); > int (*tcl_VarEval) (Tcl_Interp * interp, ...); > ClientData (*tcl_VarTraceInfo) (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); > ClientData (*tcl_VarTraceInfo2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); > int (*tcl_Write) (Tcl_Channel chan, const char * s, int slen); > void (*tcl_WrongNumArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], const char * message); > int (*tcl_DumpActiveMemory) (const char * fileName); > void (*tcl_ValidateAllMemory) (const char * file, int line); > void (*tcl_AppendResultVA) (Tcl_Interp * interp, va_list argList); > void (*tcl_AppendStringsToObjVA) (Tcl_Obj * objPtr, va_list argList); > const char * (*tcl_HashStats) (Tcl_HashTable * tablePtr); > const char * (*tcl_ParseVar) (Tcl_Interp * interp, const char * str, const char ** termPtr); > const char * (*tcl_PkgPresent) (Tcl_Interp * interp, const char * name, const char * version, int exact); > const char * (*tcl_PkgPresentEx) (Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); > int (*tcl_PkgProvide) (Tcl_Interp * interp, const char * name, const char * version); > const char * (*tcl_PkgRequire) (Tcl_Interp * interp, const char * name, const char * version, int exact); > void (*tcl_SetErrorCodeVA) (Tcl_Interp * interp, va_list argList); > int (*tcl_VarEvalVA) (Tcl_Interp * interp, va_list argList); > Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int * statPtr, int options); > void (*tcl_PanicVA) (const char * format, va_list argList); > void (*tcl_GetVersion) (int * major, int * minor, int * patchLevel, int * type); > void (*tcl_InitMemory) (Tcl_Interp * interp); > Tcl_Channel (*tcl_StackChannel) (Tcl_Interp * interp, Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); > int (*tcl_UnstackChannel) (Tcl_Interp * interp, Tcl_Channel chan); > Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); > void (*tcl_SetMainLoop) (Tcl_MainLoopProc * proc); > void *reserved285; > void (*tcl_AppendObjToObj) (Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr); > Tcl_Encoding (*tcl_CreateEncoding) (Tcl_EncodingType * typePtr); > void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc * proc, ClientData clientData); > void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc * proc, ClientData clientData); > void (*tcl_DiscardResult) (Tcl_SavedResult * statePtr); > int (*tcl_EvalEx) (Tcl_Interp * interp, const char * script, int numBytes, int flags); > int (*tcl_EvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); > int (*tcl_EvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); > void (*tcl_ExitThread) (int status); > int (*tcl_ExternalToUtf) (Tcl_Interp * interp, Tcl_Encoding encoding, const char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); > char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char * src, int srcLen, Tcl_DString * dsPtr); > void (*tcl_FinalizeThread) (void); > void (*tcl_FinalizeNotifier) (ClientData clientData); > void (*tcl_FreeEncoding) (Tcl_Encoding encoding); > Tcl_ThreadId (*tcl_GetCurrentThread) (void); > Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp * interp, const char * name); > const char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); > void (*tcl_GetEncodingNames) (Tcl_Interp * interp); > int (*tcl_GetIndexFromObjStruct) (Tcl_Interp * interp, Tcl_Obj * objPtr, const void * tablePtr, int offset, const char * msg, int flags, int * indexPtr); > void * (*tcl_GetThreadData) (Tcl_ThreadDataKey * keyPtr, int size); > Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp * interp, const char * part1, const char * part2, int flags); > ClientData (*tcl_InitNotifier) (void); > void (*tcl_MutexLock) (Tcl_Mutex * mutexPtr); > void (*tcl_MutexUnlock) (Tcl_Mutex * mutexPtr); > void (*tcl_ConditionNotify) (Tcl_Condition * condPtr); > void (*tcl_ConditionWait) (Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr); > int (*tcl_NumUtfChars) (const char * src, int len); > int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag); > void (*tcl_RestoreResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr); > void (*tcl_SaveResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr); > int (*tcl_SetSystemEncoding) (Tcl_Interp * interp, const char * name); > Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp * interp, const char * part1, const char * part2, Tcl_Obj * newValuePtr, int flags); > void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); > void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position); > Tcl_UniChar (*tcl_UniCharAtIndex) (const char * src, int index); > Tcl_UniChar (*tcl_UniCharToLower) (int ch); > Tcl_UniChar (*tcl_UniCharToTitle) (int ch); > Tcl_UniChar (*tcl_UniCharToUpper) (int ch); > int (*tcl_UniCharToUtf) (int ch, char * buf); > const char * (*tcl_UtfAtIndex) (const char * src, int index); > int (*tcl_UtfCharComplete) (const char * src, int len); > int (*tcl_UtfBackslash) (const char * src, int * readPtr, char * dst); > const char * (*tcl_UtfFindFirst) (const char * src, int ch); > const char * (*tcl_UtfFindLast) (const char * src, int ch); > const char * (*tcl_UtfNext) (const char * src); > const char * (*tcl_UtfPrev) (const char * src, const char * start); > int (*tcl_UtfToExternal) (Tcl_Interp * interp, Tcl_Encoding encoding, const char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); > char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char * src, int srcLen, Tcl_DString * dsPtr); > int (*tcl_UtfToLower) (char * src); > int (*tcl_UtfToTitle) (char * src); > int (*tcl_UtfToUniChar) (const char * src, Tcl_UniChar * chPtr); > int (*tcl_UtfToUpper) (char * src); > int (*tcl_WriteChars) (Tcl_Channel chan, const char * src, int srcLen); > int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj * objPtr); > char * (*tcl_GetString) (Tcl_Obj * objPtr); > const char * (*tcl_GetDefaultEncodingDir) (void); > void (*tcl_SetDefaultEncodingDir) (const char * path); > void (*tcl_AlertNotifier) (ClientData clientData); > void (*tcl_ServiceModeHook) (int mode); > int (*tcl_UniCharIsAlnum) (int ch); > int (*tcl_UniCharIsAlpha) (int ch); > int (*tcl_UniCharIsDigit) (int ch); > int (*tcl_UniCharIsLower) (int ch); > int (*tcl_UniCharIsSpace) (int ch); > int (*tcl_UniCharIsUpper) (int ch); > int (*tcl_UniCharIsWordChar) (int ch); > int (*tcl_UniCharLen) (const Tcl_UniChar * str); > int (*tcl_UniCharNcmp) (const Tcl_UniChar * cs, const Tcl_UniChar * ct, unsigned long n); > char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar * string, int numChars, Tcl_DString * dsPtr); > Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char * string, int length, Tcl_DString * dsPtr); > Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp * interp, Tcl_Obj * patObj, int flags); > Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); > void (*tcl_FreeParse) (Tcl_Parse * parsePtr); > void (*tcl_LogCommandInfo) (Tcl_Interp * interp, const char * script, const char * command, int length); > int (*tcl_ParseBraces) (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr, int append, const char ** termPtr); > int (*tcl_ParseCommand) (Tcl_Interp * interp, const char * string, int numBytes, int nested, Tcl_Parse * parsePtr); > int (*tcl_ParseExpr) (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr); > int (*tcl_ParseQuotedString) (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr, int append, const char ** termPtr); > int (*tcl_ParseVarName) (Tcl_Interp * interp, const char * string, int numBytes, Tcl_Parse * parsePtr, int append); > char * (*tcl_GetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); > int (*tcl_Chdir) (const char * dirName); > int (*tcl_Access) (const char * path, int mode); > int (*tcl_Stat) (const char * path, struct stat * bufPtr); > int (*tcl_UtfNcmp) (const char * s1, const char * s2, unsigned long n); > int (*tcl_UtfNcasecmp) (const char * s1, const char * s2, unsigned long n); > int (*tcl_StringCaseMatch) (const char * str, const char * pattern, int nocase); > int (*tcl_UniCharIsControl) (int ch); > int (*tcl_UniCharIsGraph) (int ch); > int (*tcl_UniCharIsPrint) (int ch); > int (*tcl_UniCharIsPunct) (int ch); > int (*tcl_RegExpExecObj) (Tcl_Interp * interp, Tcl_RegExp regexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags); > void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo * infoPtr); > Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar * unicode, int numChars); > void (*tcl_SetUnicodeObj) (Tcl_Obj * objPtr, const Tcl_UniChar * unicode, int numChars); > int (*tcl_GetCharLength) (Tcl_Obj * objPtr); > Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj * objPtr, int index); > Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj * objPtr); > Tcl_Obj * (*tcl_GetRange) (Tcl_Obj * objPtr, int first, int last); > void (*tcl_AppendUnicodeToObj) (Tcl_Obj * objPtr, const Tcl_UniChar * unicode, int length); > int (*tcl_RegExpMatchObj) (Tcl_Interp * interp, Tcl_Obj * stringObj, Tcl_Obj * patternObj); > void (*tcl_SetNotifier) (Tcl_NotifierProcs * notifierProcPtr); > Tcl_Mutex * (*tcl_GetAllocMutex) (void); > int (*tcl_GetChannelNames) (Tcl_Interp * interp); > int (*tcl_GetChannelNamesEx) (Tcl_Interp * interp, const char * pattern); > int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > void (*tcl_ConditionFinalize) (Tcl_Condition * condPtr); > void (*tcl_MutexFinalize) (Tcl_Mutex * mutex); > int (*tcl_CreateThread) (Tcl_ThreadId * idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); > int (*tcl_ReadRaw) (Tcl_Channel chan, char * dst, int bytesToRead); > int (*tcl_WriteRaw) (Tcl_Channel chan, const char * src, int srcLen); > Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); > int (*tcl_ChannelBuffered) (Tcl_Channel chan); > const char * (*tcl_ChannelName) (Tcl_ChannelType * chanTypePtr); > Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverInputProc * (*tcl_ChannelInputProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (Tcl_ChannelType * chanTypePtr); > Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (Tcl_ChannelType * chanTypePtr); > int (*tcl_JoinThread) (Tcl_ThreadId id, int* result); > int (*tcl_IsChannelShared) (Tcl_Channel channel); > int (*tcl_IsChannelRegistered) (Tcl_Interp* interp, Tcl_Channel channel); > void (*tcl_CutChannel) (Tcl_Channel channel); > void (*tcl_SpliceChannel) (Tcl_Channel channel); > void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); > int (*tcl_IsChannelExisting) (const char* channelName); > int (*tcl_UniCharNcasecmp) (const Tcl_UniChar * cs, const Tcl_UniChar * ct, unsigned long n); > int (*tcl_UniCharCaseMatch) (const Tcl_UniChar * ustr, const Tcl_UniChar * pattern, int nocase); > Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, const char * key); > Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable * tablePtr, const char * key, int * newPtr); > void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType, Tcl_HashKeyType * typePtr); > void (*tcl_InitObjHashTable) (Tcl_HashTable * tablePtr); > ClientData (*tcl_CommandTraceInfo) (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData); > int (*tcl_TraceCommand) (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); > void (*tcl_UntraceCommand) (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); > char * (*tcl_AttemptAlloc) (unsigned int size); > char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char * file, int line); > char * (*tcl_AttemptRealloc) (char * ptr, unsigned int size); > char * (*tcl_AttemptDbCkrealloc) (char * ptr, unsigned int size, const char * file, int line); > int (*tcl_AttemptSetObjLength) (Tcl_Obj * objPtr, int length); > Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); > Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj * objPtr, int * lengthPtr); > int (*tcl_GetMathFuncInfo) (Tcl_Interp * interp, const char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr); > Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp * interp, const char * pattern); > Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); > int (*tcl_DetachChannel) (Tcl_Interp* interp, Tcl_Channel channel); > int (*tcl_IsStandardChannel) (Tcl_Channel channel); > int (*tcl_FSCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); > int (*tcl_FSCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); > int (*tcl_FSCreateDirectory) (Tcl_Obj * pathPtr); > int (*tcl_FSDeleteFile) (Tcl_Obj * pathPtr); > int (*tcl_FSLoadFile) (Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * sym1, const char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** unloadProcPtr); > int (*tcl_FSMatchInDirectory) (Tcl_Interp * interp, Tcl_Obj * result, Tcl_Obj * pathPtr, const char * pattern, Tcl_GlobTypeData * types); > Tcl_Obj * (*tcl_FSLink) (Tcl_Obj * pathPtr, Tcl_Obj * toPtr, int linkAction); > int (*tcl_FSRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); > int (*tcl_FSRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); > int (*tcl_FSLstat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); > int (*tcl_FSUtime) (Tcl_Obj * pathPtr, struct utimbuf * tval); > int (*tcl_FSFileAttrsGet) (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); > int (*tcl_FSFileAttrsSet) (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj * objPtr); > const char ** (*tcl_FSFileAttrStrings) (Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); > int (*tcl_FSStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); > int (*tcl_FSAccess) (Tcl_Obj * pathPtr, int mode); > Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * modeString, int permissions); > Tcl_Obj* (*tcl_FSGetCwd) (Tcl_Interp * interp); > int (*tcl_FSChdir) (Tcl_Obj * pathPtr); > int (*tcl_FSConvertToPathType) (Tcl_Interp * interp, Tcl_Obj * pathPtr); > Tcl_Obj* (*tcl_FSJoinPath) (Tcl_Obj * listObj, int elements); > Tcl_Obj* (*tcl_FSSplitPath) (Tcl_Obj* pathPtr, int * lenPtr); > int (*tcl_FSEqualPaths) (Tcl_Obj* firstPtr, Tcl_Obj* secondPtr); > Tcl_Obj* (*tcl_FSGetNormalizedPath) (Tcl_Interp * interp, Tcl_Obj* pathObjPtr); > Tcl_Obj* (*tcl_FSJoinToPath) (Tcl_Obj * basePtr, int objc, Tcl_Obj *const objv[]); > ClientData (*tcl_FSGetInternalRep) (Tcl_Obj* pathObjPtr, Tcl_Filesystem * fsPtr); > Tcl_Obj* (*tcl_FSGetTranslatedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); > int (*tcl_FSEvalFile) (Tcl_Interp * interp, Tcl_Obj * fileName); > Tcl_Obj* (*tcl_FSNewNativePath) (Tcl_Filesystem* fromFilesystem, ClientData clientData); > const char* (*tcl_FSGetNativePath) (Tcl_Obj* pathObjPtr); > Tcl_Obj* (*tcl_FSFileSystemInfo) (Tcl_Obj* pathObjPtr); > Tcl_Obj* (*tcl_FSPathSeparator) (Tcl_Obj* pathObjPtr); > Tcl_Obj* (*tcl_FSListVolumes) (void); > int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem * fsPtr); > int (*tcl_FSUnregister) (Tcl_Filesystem * fsPtr); > ClientData (*tcl_FSData) (Tcl_Filesystem * fsPtr); > const char* (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); > Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) (Tcl_Obj* pathObjPtr); > Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj * pathObjPtr); > int (*tcl_OutputBuffered) (Tcl_Channel chan); > void (*tcl_FSMountsChanged) (Tcl_Filesystem * fsPtr); > int (*tcl_EvalTokensStandard) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); > void (*tcl_GetTime) (Tcl_Time* timeBuf); > Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp* interp, int level, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc* delProc); > int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo* infoPtr); > int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo* infoPtr); > Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char * file, int line); > int (*tcl_GetWideIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_WideInt * widePtr); > Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); > void (*tcl_SetWideIntObj) (Tcl_Obj * objPtr, Tcl_WideInt wideValue); > Tcl_StatBuf * (*tcl_AllocStatBuf) (void); > Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); > Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); > Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (Tcl_ChannelType * chanTypePtr); >} TclStubs; > > > > >extern TclStubs *tclStubsPtr; ># 2257 "/usr/local/include/tcl.h" 2 3 ># 2275 "/usr/local/include/tcl.h" 3 ># 1 "/usr/local/include/tclPlatDecls.h" 1 3 ># 87 "/usr/local/include/tclPlatDecls.h" 3 >typedef struct TclPlatStubs { > int magic; > struct TclPlatStubHooks *hooks; ># 109 "/usr/local/include/tclPlatDecls.h" 3 >} TclPlatStubs; > > > > >extern TclPlatStubs *tclPlatStubsPtr; ># 2276 "/usr/local/include/tcl.h" 2 3 > > > > > > >extern void Tcl_Main (int argc, char **argv, Tcl_AppInitProc *appInitProc); ># 2293 "/usr/local/include/tcl.h" 3 >extern int Tcl_AppInit (Tcl_Interp *interp); ># 56 "itcl/generic/itcl.h" 2 ># 99 "itcl/generic/itcl.h" >typedef struct Itcl_Stack { > ClientData *values; > int len; > int max; > ClientData space[5]; >} Itcl_Stack; > > > > > > >struct Itcl_List; >typedef struct Itcl_ListElem { > struct Itcl_List* owner; > ClientData value; > struct Itcl_ListElem *prev; > struct Itcl_ListElem *next; >} Itcl_ListElem; > >typedef struct Itcl_List { > int validate; > int num; > struct Itcl_ListElem *head; > struct Itcl_ListElem *tail; >} Itcl_List; ># 136 "itcl/generic/itcl.h" >typedef struct Itcl_InterpState_ *Itcl_InterpState; > > > > > > > ># 1 "itcl/generic/itclDecls.h" 1 ># 30 "itcl/generic/itclDecls.h" >extern int Itcl_Init (Tcl_Interp * interp); > >extern int Itcl_SafeInit (Tcl_Interp * interp); > >extern int Itcl_RegisterC (Tcl_Interp * interp, char * name, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > > > > >extern int Itcl_RegisterObjC (Tcl_Interp * interp, char * name, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > > > > >extern int Itcl_FindC (Tcl_Interp * interp, char * name, Tcl_CmdProc ** argProcPtr, Tcl_ObjCmdProc ** objProcPtr, ClientData * cDataPtr); > > > > >extern void Itcl_InitStack (Itcl_Stack * stack); > >extern void Itcl_DeleteStack (Itcl_Stack * stack); > >extern void Itcl_PushStack (ClientData cdata, Itcl_Stack * stack); > > >extern ClientData Itcl_PopStack (Itcl_Stack * stack); > >extern ClientData Itcl_PeekStack (Itcl_Stack * stack); > >extern ClientData Itcl_GetStackValue (Itcl_Stack * stack, int pos); > > >extern void Itcl_InitList (Itcl_List * listPtr); > >extern void Itcl_DeleteList (Itcl_List * listPtr); > >extern Itcl_ListElem* Itcl_CreateListElem (Itcl_List * listPtr); > >extern Itcl_ListElem* Itcl_DeleteListElem ( Itcl_ListElem * elemPtr); > > >extern Itcl_ListElem* Itcl_InsertList (Itcl_List * listPtr, ClientData val); > > >extern Itcl_ListElem* Itcl_InsertListElem (Itcl_ListElem * pos, ClientData val); > > >extern Itcl_ListElem* Itcl_AppendList (Itcl_List * listPtr, ClientData val); > > >extern Itcl_ListElem* Itcl_AppendListElem (Itcl_ListElem * pos, ClientData val); > > >extern void Itcl_SetListValue ( Itcl_ListElem * elemPtr, ClientData val); > > >extern void Itcl_EventuallyFree (ClientData cdata, Tcl_FreeProc * fproc); > > >extern void Itcl_PreserveData (ClientData cdata); > >extern void Itcl_ReleaseData (ClientData cdata); > >extern Itcl_InterpState Itcl_SaveInterpState ( Tcl_Interp* interp, int status); > > >extern int Itcl_RestoreInterpState ( Tcl_Interp* interp, Itcl_InterpState state); > > >extern void Itcl_DiscardInterpState ( Itcl_InterpState state); > > >typedef struct ItclStubHooks { > struct ItclIntStubs *itclIntStubs; >} ItclStubHooks; > >typedef struct ItclStubs { > int magic; > struct ItclStubHooks *hooks; > > int (*itcl_Init) (Tcl_Interp * interp); > int (*itcl_SafeInit) (Tcl_Interp * interp); > int (*itcl_RegisterC) (Tcl_Interp * interp, char * name, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > int (*itcl_RegisterObjC) (Tcl_Interp * interp, char * name, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > int (*itcl_FindC) (Tcl_Interp * interp, char * name, Tcl_CmdProc ** argProcPtr, Tcl_ObjCmdProc ** objProcPtr, ClientData * cDataPtr); > void (*itcl_InitStack) (Itcl_Stack * stack); > void (*itcl_DeleteStack) (Itcl_Stack * stack); > void (*itcl_PushStack) (ClientData cdata, Itcl_Stack * stack); > ClientData (*itcl_PopStack) (Itcl_Stack * stack); > ClientData (*itcl_PeekStack) (Itcl_Stack * stack); > ClientData (*itcl_GetStackValue) (Itcl_Stack * stack, int pos); > void (*itcl_InitList) (Itcl_List * listPtr); > void (*itcl_DeleteList) (Itcl_List * listPtr); > Itcl_ListElem* (*itcl_CreateListElem) (Itcl_List * listPtr); > Itcl_ListElem* (*itcl_DeleteListElem) (Itcl_ListElem * elemPtr); > Itcl_ListElem* (*itcl_InsertList) (Itcl_List * listPtr, ClientData val); > Itcl_ListElem* (*itcl_InsertListElem) (Itcl_ListElem * pos, ClientData val); > Itcl_ListElem* (*itcl_AppendList) (Itcl_List * listPtr, ClientData val); > Itcl_ListElem* (*itcl_AppendListElem) (Itcl_ListElem * pos, ClientData val); > void (*itcl_SetListValue) (Itcl_ListElem * elemPtr, ClientData val); > void (*itcl_EventuallyFree) (ClientData cdata, Tcl_FreeProc * fproc); > void (*itcl_PreserveData) (ClientData cdata); > void (*itcl_ReleaseData) (ClientData cdata); > Itcl_InterpState (*itcl_SaveInterpState) (Tcl_Interp* interp, int status); > int (*itcl_RestoreInterpState) (Tcl_Interp* interp, Itcl_InterpState state); > void (*itcl_DiscardInterpState) (Itcl_InterpState state); >} ItclStubs; > > > > >extern ItclStubs *itclStubsPtr; ># 145 "itcl/generic/itcl.h" 2 ># 53 "itcl/generic/itclInt.h" 2 ># 1 "/usr/lib/tcl8.3/include/generic/tclInt.h" 1 ># 36 "/usr/lib/tcl8.3/include/generic/tclInt.h" ># 1 "/usr/include/ctype.h" 1 3 ># 30 "/usr/include/ctype.h" 3 > ># 41 "/usr/include/ctype.h" 3 ># 1 "/usr/include/endian.h" 1 3 ># 37 "/usr/include/endian.h" 3 ># 1 "/usr/include/bits/endian.h" 1 3 ># 38 "/usr/include/endian.h" 2 3 ># 42 "/usr/include/ctype.h" 2 3 > > > > > > >enum >{ > _ISupper = ((0) < 8 ? ((1 << (0)) << 8) : ((1 << (0)) >> 8)), > _ISlower = ((1) < 8 ? ((1 << (1)) << 8) : ((1 << (1)) >> 8)), > _ISalpha = ((2) < 8 ? ((1 << (2)) << 8) : ((1 << (2)) >> 8)), > _ISdigit = ((3) < 8 ? ((1 << (3)) << 8) : ((1 << (3)) >> 8)), > _ISxdigit = ((4) < 8 ? ((1 << (4)) << 8) : ((1 << (4)) >> 8)), > _ISspace = ((5) < 8 ? ((1 << (5)) << 8) : ((1 << (5)) >> 8)), > _ISprint = ((6) < 8 ? ((1 << (6)) << 8) : ((1 << (6)) >> 8)), > _ISgraph = ((7) < 8 ? ((1 << (7)) << 8) : ((1 << (7)) >> 8)), > _ISblank = ((8) < 8 ? ((1 << (8)) << 8) : ((1 << (8)) >> 8)), > _IScntrl = ((9) < 8 ? ((1 << (9)) << 8) : ((1 << (9)) >> 8)), > _ISpunct = ((10) < 8 ? ((1 << (10)) << 8) : ((1 << (10)) >> 8)), > _ISalnum = ((11) < 8 ? ((1 << (11)) << 8) : ((1 << (11)) >> 8)) >}; ># 81 "/usr/include/ctype.h" 3 >extern __const unsigned short int **__ctype_b_loc (void) > __attribute__ ((__const)); >extern __const __int32_t **__ctype_tolower_loc (void) > __attribute__ ((__const)); >extern __const __int32_t **__ctype_toupper_loc (void) > __attribute__ ((__const)); ># 96 "/usr/include/ctype.h" 3 > > > > > > >extern int isalnum (int) ; >extern int isalpha (int) ; >extern int iscntrl (int) ; >extern int isdigit (int) ; >extern int islower (int) ; >extern int isgraph (int) ; >extern int isprint (int) ; >extern int ispunct (int) ; >extern int isspace (int) ; >extern int isupper (int) ; >extern int isxdigit (int) ; > > > >extern int tolower (int __c) ; > > >extern int toupper (int __c) ; > > ># 142 "/usr/include/ctype.h" 3 >extern int isascii (int __c) ; > > > >extern int toascii (int __c) ; > > > >extern int _toupper (int) ; >extern int _tolower (int) ; ># 190 "/usr/include/ctype.h" 3 >extern __inline int >tolower (int __c) >{ > return __c >= -128 && __c < 256 ? (*__ctype_tolower_loc ())[__c] : __c; >} > >extern __inline int >toupper (int __c) >{ > return __c >= -128 && __c < 256 ? (*__ctype_toupper_loc ())[__c] : __c; >} ># 323 "/usr/include/ctype.h" 3 > ># 37 "/usr/lib/tcl8.3/include/generic/tclInt.h" 2 > > > ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/limits.h" 1 3 ># 41 "/usr/lib/tcl8.3/include/generic/tclInt.h" 2 > > > > ># 1 "/usr/include/stdlib.h" 1 3 ># 33 "/usr/include/stdlib.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 34 "/usr/include/stdlib.h" 2 3 > > ># 93 "/usr/include/stdlib.h" 3 > > >typedef struct > { > int quot; > int rem; > } div_t; > > > >typedef struct > { > long int quot; > long int rem; > } ldiv_t; > > > ># 137 "/usr/include/stdlib.h" 3 >extern size_t __ctype_get_mb_cur_max (void) ; > > > > >extern double atof (__const char *__nptr) __attribute__ ((__pure__)); > >extern int atoi (__const char *__nptr) __attribute__ ((__pure__)); > >extern long int atol (__const char *__nptr) __attribute__ ((__pure__)); > > > > > >__extension__ extern long long int atoll (__const char *__nptr) > __attribute__ ((__pure__)); > > > > > >extern double strtod (__const char *__restrict __nptr, > char **__restrict __endptr) ; > ># 174 "/usr/include/stdlib.h" 3 > > >extern long int strtol (__const char *__restrict __nptr, > char **__restrict __endptr, int __base) ; > >extern unsigned long int strtoul (__const char *__restrict __nptr, > char **__restrict __endptr, int __base) > ; > > > > >__extension__ >extern long long int strtoq (__const char *__restrict __nptr, > char **__restrict __endptr, int __base) ; > >__extension__ >extern unsigned long long int strtouq (__const char *__restrict __nptr, > char **__restrict __endptr, int __base) > ; > > > > > >__extension__ >extern long long int strtoll (__const char *__restrict __nptr, > char **__restrict __endptr, int __base) ; > >__extension__ >extern unsigned long long int strtoull (__const char *__restrict __nptr, > char **__restrict __endptr, int __base) > ; > ># 264 "/usr/include/stdlib.h" 3 >extern double __strtod_internal (__const char *__restrict __nptr, > char **__restrict __endptr, int __group) > ; >extern float __strtof_internal (__const char *__restrict __nptr, > char **__restrict __endptr, int __group) > ; >extern long double __strtold_internal (__const char *__restrict __nptr, > char **__restrict __endptr, > int __group) ; > >extern long int __strtol_internal (__const char *__restrict __nptr, > char **__restrict __endptr, > int __base, int __group) ; > > > >extern unsigned long int __strtoul_internal (__const char *__restrict __nptr, > char **__restrict __endptr, > int __base, int __group) ; > > > > >__extension__ >extern long long int __strtoll_internal (__const char *__restrict __nptr, > char **__restrict __endptr, > int __base, int __group) ; > > > >__extension__ >extern unsigned long long int __strtoull_internal (__const char * > __restrict __nptr, > char **__restrict __endptr, > int __base, int __group) > ; > > > > > > > > >extern __inline double >strtod (__const char *__restrict __nptr, char **__restrict __endptr) >{ > return __strtod_internal (__nptr, __endptr, 0); >} >extern __inline long int >strtol (__const char *__restrict __nptr, char **__restrict __endptr, > int __base) >{ > return __strtol_internal (__nptr, __endptr, __base, 0); >} >extern __inline unsigned long int >strtoul (__const char *__restrict __nptr, char **__restrict __endptr, > int __base) >{ > return __strtoul_internal (__nptr, __endptr, __base, 0); >} > ># 343 "/usr/include/stdlib.h" 3 >__extension__ extern __inline long long int >strtoq (__const char *__restrict __nptr, char **__restrict __endptr, > int __base) >{ > return __strtoll_internal (__nptr, __endptr, __base, 0); >} >__extension__ extern __inline unsigned long long int >strtouq (__const char *__restrict __nptr, char **__restrict __endptr, > int __base) >{ > return __strtoull_internal (__nptr, __endptr, __base, 0); >} > > > > >__extension__ extern __inline long long int >strtoll (__const char *__restrict __nptr, char **__restrict __endptr, > int __base) >{ > return __strtoll_internal (__nptr, __endptr, __base, 0); >} >__extension__ extern __inline unsigned long long int >strtoull (__const char * __restrict __nptr, char **__restrict __endptr, > int __base) >{ > return __strtoull_internal (__nptr, __endptr, __base, 0); >} > > > > >extern __inline double >atof (__const char *__nptr) >{ > return strtod (__nptr, (char **) ((void *)0)); >} >extern __inline int >atoi (__const char *__nptr) >{ > return (int) strtol (__nptr, (char **) ((void *)0), 10); >} >extern __inline long int >atol (__const char *__nptr) >{ > return strtol (__nptr, (char **) ((void *)0), 10); >} > > > > >__extension__ extern __inline long long int >atoll (__const char *__nptr) >{ > return strtoll (__nptr, (char **) ((void *)0), 10); >} > ># 408 "/usr/include/stdlib.h" 3 >extern char *l64a (long int __n) ; > > >extern long int a64l (__const char *__s) __attribute__ ((__pure__)); > > > > ># 1 "/usr/include/sys/types.h" 1 3 ># 29 "/usr/include/sys/types.h" 3 > > > > > > >typedef __u_char u_char; >typedef __u_short u_short; >typedef __u_int u_int; >typedef __u_long u_long; >typedef __quad_t quad_t; >typedef __u_quad_t u_quad_t; >typedef __fsid_t fsid_t; > > > > >typedef __loff_t loff_t; > > > >typedef __ino_t ino_t; ># 62 "/usr/include/sys/types.h" 3 >typedef __dev_t dev_t; > > > > >typedef __gid_t gid_t; > > > > >typedef __mode_t mode_t; > > > > >typedef __nlink_t nlink_t; > > > > >typedef __uid_t uid_t; > > > > > >typedef __off_t off_t; ># 100 "/usr/include/sys/types.h" 3 >typedef __pid_t pid_t; > > > > >typedef __id_t id_t; > > > > >typedef __ssize_t ssize_t; > > > > > >typedef __daddr_t daddr_t; >typedef __caddr_t caddr_t; > > > > > >typedef __key_t key_t; ># 133 "/usr/include/sys/types.h" 3 ># 1 "/usr/include/time.h" 1 3 ># 74 "/usr/include/time.h" 3 > > >typedef __time_t time_t; > > > ># 92 "/usr/include/time.h" 3 >typedef __clockid_t clockid_t; ># 104 "/usr/include/time.h" 3 >typedef __timer_t timer_t; ># 134 "/usr/include/sys/types.h" 2 3 ># 147 "/usr/include/sys/types.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 148 "/usr/include/sys/types.h" 2 3 > > > >typedef unsigned long int ulong; >typedef unsigned short int ushort; >typedef unsigned int uint; ># 191 "/usr/include/sys/types.h" 3 >typedef int int8_t __attribute__ ((__mode__ (__QI__))); >typedef int int16_t __attribute__ ((__mode__ (__HI__))); >typedef int int32_t __attribute__ ((__mode__ (__SI__))); >typedef int int64_t __attribute__ ((__mode__ (__DI__))); > > >typedef unsigned int u_int8_t __attribute__ ((__mode__ (__QI__))); >typedef unsigned int u_int16_t __attribute__ ((__mode__ (__HI__))); >typedef unsigned int u_int32_t __attribute__ ((__mode__ (__SI__))); >typedef unsigned int u_int64_t __attribute__ ((__mode__ (__DI__))); > >typedef int register_t __attribute__ ((__mode__ (__word__))); ># 216 "/usr/include/sys/types.h" 3 ># 1 "/usr/include/sys/select.h" 1 3 ># 31 "/usr/include/sys/select.h" 3 ># 1 "/usr/include/bits/select.h" 1 3 ># 32 "/usr/include/sys/select.h" 2 3 > > ># 1 "/usr/include/bits/sigset.h" 1 3 ># 23 "/usr/include/bits/sigset.h" 3 >typedef int __sig_atomic_t; > > > > >typedef struct > { > unsigned long int __val[(1024 / (8 * sizeof (unsigned long int)))]; > } __sigset_t; ># 35 "/usr/include/sys/select.h" 2 3 > > > >typedef __sigset_t sigset_t; > > > > > ># 1 "/usr/include/time.h" 1 3 ># 118 "/usr/include/time.h" 3 >struct timespec > { > __time_t tv_sec; > long int tv_nsec; > }; ># 45 "/usr/include/sys/select.h" 2 3 > ># 1 "/usr/include/bits/time.h" 1 3 ># 69 "/usr/include/bits/time.h" 3 >struct timeval > { > __time_t tv_sec; > __suseconds_t tv_usec; > }; ># 47 "/usr/include/sys/select.h" 2 3 > > >typedef __suseconds_t suseconds_t; > > > > > >typedef long int __fd_mask; ># 67 "/usr/include/sys/select.h" 3 >typedef struct > { > > > > > > > __fd_mask __fds_bits[1024 / (8 * sizeof (__fd_mask))]; > > > } fd_set; > > > > > > >typedef __fd_mask fd_mask; ># 99 "/usr/include/sys/select.h" 3 > ># 109 "/usr/include/sys/select.h" 3 >extern int select (int __nfds, fd_set *__restrict __readfds, > fd_set *__restrict __writefds, > fd_set *__restrict __exceptfds, > struct timeval *__restrict __timeout); ># 128 "/usr/include/sys/select.h" 3 > ># 217 "/usr/include/sys/types.h" 2 3 > > ># 1 "/usr/include/sys/sysmacros.h" 1 3 ># 29 "/usr/include/sys/sysmacros.h" 3 >__extension__ >extern __inline unsigned int gnu_dev_major (unsigned long long int __dev) > ; >__extension__ >extern __inline unsigned int gnu_dev_minor (unsigned long long int __dev) > ; >__extension__ >extern __inline unsigned long long int gnu_dev_makedev (unsigned int __major, > unsigned int __minor) > ; > > >__extension__ extern __inline unsigned int >gnu_dev_major (unsigned long long int __dev) >{ > return ((__dev >> 8) & 0xfff) | ((unsigned int) (__dev >> 32) & ~0xfff); >} > >__extension__ extern __inline unsigned int >gnu_dev_minor (unsigned long long int __dev) >{ > return (__dev & 0xff) | ((unsigned int) (__dev >> 12) & ~0xff); >} > >__extension__ extern __inline unsigned long long int >gnu_dev_makedev (unsigned int __major, unsigned int __minor) >{ > return ((__minor & 0xff) | ((__major & 0xfff) << 8) > | (((unsigned long long int) (__minor & ~0xff)) << 12) > | (((unsigned long long int) (__major & ~0xfff)) << 32)); >} ># 220 "/usr/include/sys/types.h" 2 3 ># 231 "/usr/include/sys/types.h" 3 >typedef __blkcnt_t blkcnt_t; > > > >typedef __fsblkcnt_t fsblkcnt_t; > > > >typedef __fsfilcnt_t fsfilcnt_t; ># 266 "/usr/include/sys/types.h" 3 ># 1 "/usr/include/bits/pthreadtypes.h" 1 3 ># 23 "/usr/include/bits/pthreadtypes.h" 3 ># 1 "/usr/include/bits/sched.h" 1 3 ># 83 "/usr/include/bits/sched.h" 3 >struct __sched_param > { > int __sched_priority; > }; ># 24 "/usr/include/bits/pthreadtypes.h" 2 3 > > >struct _pthread_fastlock >{ > long int __status; > int __spinlock; > >}; > > > >typedef struct _pthread_descr_struct *_pthread_descr; > > > > > >typedef struct __pthread_attr_s >{ > int __detachstate; > int __schedpolicy; > struct __sched_param __schedparam; > int __inheritsched; > int __scope; > size_t __guardsize; > int __stackaddr_set; > void *__stackaddr; > size_t __stacksize; >} pthread_attr_t; > > > > > >__extension__ typedef long long __pthread_cond_align_t; > > > > >typedef struct >{ > struct _pthread_fastlock __c_lock; > _pthread_descr __c_waiting; > char __padding[48 - sizeof (struct _pthread_fastlock) > - sizeof (_pthread_descr) - sizeof (__pthread_cond_align_t)]; > __pthread_cond_align_t __align; >} pthread_cond_t; > > > >typedef struct >{ > int __dummy; >} pthread_condattr_t; > > >typedef unsigned int pthread_key_t; > > > > > >typedef struct >{ > int __m_reserved; > int __m_count; > _pthread_descr __m_owner; > int __m_kind; > struct _pthread_fastlock __m_lock; >} pthread_mutex_t; > > > >typedef struct >{ > int __mutexkind; >} pthread_mutexattr_t; > > > >typedef int pthread_once_t; ># 150 "/usr/include/bits/pthreadtypes.h" 3 >typedef unsigned long int pthread_t; ># 267 "/usr/include/sys/types.h" 2 3 > > > ># 417 "/usr/include/stdlib.h" 2 3 > > > > > > >extern long int random (void) ; > > >extern void srandom (unsigned int __seed) ; > > > > > >extern char *initstate (unsigned int __seed, char *__statebuf, > size_t __statelen) ; > > > >extern char *setstate (char *__statebuf) ; > > > > > > > >struct random_data > { > int32_t *fptr; > int32_t *rptr; > int32_t *state; > int rand_type; > int rand_deg; > int rand_sep; > int32_t *end_ptr; > }; > >extern int random_r (struct random_data *__restrict __buf, > int32_t *__restrict __result) ; > >extern int srandom_r (unsigned int __seed, struct random_data *__buf) ; > >extern int initstate_r (unsigned int __seed, char *__restrict __statebuf, > size_t __statelen, > struct random_data *__restrict __buf) ; > >extern int setstate_r (char *__restrict __statebuf, > struct random_data *__restrict __buf) ; > > > > > > >extern int rand (void) ; > >extern void srand (unsigned int __seed) ; > > > > >extern int rand_r (unsigned int *__seed) ; > > > > > > > >extern double drand48 (void) ; >extern double erand48 (unsigned short int __xsubi[3]) ; > > >extern long int lrand48 (void) ; >extern long int nrand48 (unsigned short int __xsubi[3]) ; > > >extern long int mrand48 (void) ; >extern long int jrand48 (unsigned short int __xsubi[3]) ; > > >extern void srand48 (long int __seedval) ; >extern unsigned short int *seed48 (unsigned short int __seed16v[3]) ; >extern void lcong48 (unsigned short int __param[7]) ; > > > > > >struct drand48_data > { > unsigned short int __x[3]; > unsigned short int __old_x[3]; > unsigned short int __c; > unsigned short int __init; > unsigned long long int __a; > }; > > >extern int drand48_r (struct drand48_data *__restrict __buffer, > double *__restrict __result) ; >extern int erand48_r (unsigned short int __xsubi[3], > struct drand48_data *__restrict __buffer, > double *__restrict __result) ; > > >extern int lrand48_r (struct drand48_data *__restrict __buffer, > long int *__restrict __result) ; >extern int nrand48_r (unsigned short int __xsubi[3], > struct drand48_data *__restrict __buffer, > long int *__restrict __result) ; > > >extern int mrand48_r (struct drand48_data *__restrict __buffer, > long int *__restrict __result) ; >extern int jrand48_r (unsigned short int __xsubi[3], > struct drand48_data *__restrict __buffer, > long int *__restrict __result) ; > > >extern int srand48_r (long int __seedval, struct drand48_data *__buffer) > ; > >extern int seed48_r (unsigned short int __seed16v[3], > struct drand48_data *__buffer) ; > >extern int lcong48_r (unsigned short int __param[7], > struct drand48_data *__buffer) ; > > > > > > > > > >extern void *malloc (size_t __size) __attribute__ ((__malloc__)); > >extern void *calloc (size_t __nmemb, size_t __size) > __attribute__ ((__malloc__)); > > > > > > > >extern void *realloc (void *__ptr, size_t __size) __attribute__ ((__malloc__)); > >extern void free (void *__ptr) ; > > > > >extern void cfree (void *__ptr) ; > > > ># 1 "/usr/include/alloca.h" 1 3 ># 25 "/usr/include/alloca.h" 3 ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 26 "/usr/include/alloca.h" 2 3 > > > > > > > >extern void *alloca (size_t __size) ; > > > > > > ># 579 "/usr/include/stdlib.h" 2 3 > > > > >extern void *valloc (size_t __size) __attribute__ ((__malloc__)); ># 592 "/usr/include/stdlib.h" 3 > > >extern void abort (void) __attribute__ ((__noreturn__)); > > > >extern int atexit (void (*__func) (void)) ; > > > > > >extern int on_exit (void (*__func) (int __status, void *__arg), void *__arg) > ; > > > > > > >extern void exit (int __status) __attribute__ ((__noreturn__)); > ># 624 "/usr/include/stdlib.h" 3 > > >extern char *getenv (__const char *__name) ; > > > > >extern char *__secure_getenv (__const char *__name) ; > > > > > >extern int putenv (char *__string) ; > > > > > >extern int setenv (__const char *__name, __const char *__value, int __replace) > ; > > >extern int unsetenv (__const char *__name) ; > > > > > > >extern int clearenv (void) ; ># 663 "/usr/include/stdlib.h" 3 >extern char *mktemp (char *__template) ; ># 674 "/usr/include/stdlib.h" 3 >extern int mkstemp (char *__template); ># 693 "/usr/include/stdlib.h" 3 >extern char *mkdtemp (char *__template) ; > > > > > > > > >extern int system (__const char *__command); > ># 720 "/usr/include/stdlib.h" 3 >extern char *realpath (__const char *__restrict __name, > char *__restrict __resolved) ; > > > > > > >typedef int (*__compar_fn_t) (__const void *, __const void *); > > > > > > > > > >extern void *bsearch (__const void *__key, __const void *__base, > size_t __nmemb, size_t __size, __compar_fn_t __compar); > > > >extern void qsort (void *__base, size_t __nmemb, size_t __size, > __compar_fn_t __compar); > > > >extern int abs (int __x) __attribute__ ((__const__)); >extern long int labs (long int __x) __attribute__ ((__const__)); > > > > > > > > > > > > >extern div_t div (int __numer, int __denom) > __attribute__ ((__const__)); >extern ldiv_t ldiv (long int __numer, long int __denom) > __attribute__ ((__const__)); > ># 784 "/usr/include/stdlib.h" 3 >extern char *ecvt (double __value, int __ndigit, int *__restrict __decpt, > int *__restrict __sign) ; > > > > >extern char *fcvt (double __value, int __ndigit, int *__restrict __decpt, > int *__restrict __sign) ; > > > > >extern char *gcvt (double __value, int __ndigit, char *__buf) ; > > > > >extern char *qecvt (long double __value, int __ndigit, > int *__restrict __decpt, int *__restrict __sign) ; >extern char *qfcvt (long double __value, int __ndigit, > int *__restrict __decpt, int *__restrict __sign) ; >extern char *qgcvt (long double __value, int __ndigit, char *__buf) ; > > > > >extern int ecvt_r (double __value, int __ndigit, int *__restrict __decpt, > int *__restrict __sign, char *__restrict __buf, > size_t __len) ; >extern int fcvt_r (double __value, int __ndigit, int *__restrict __decpt, > int *__restrict __sign, char *__restrict __buf, > size_t __len) ; > >extern int qecvt_r (long double __value, int __ndigit, > int *__restrict __decpt, int *__restrict __sign, > char *__restrict __buf, size_t __len) ; >extern int qfcvt_r (long double __value, int __ndigit, > int *__restrict __decpt, int *__restrict __sign, > char *__restrict __buf, size_t __len) ; > > > > > > > >extern int mblen (__const char *__s, size_t __n) ; > > >extern int mbtowc (wchar_t *__restrict __pwc, > __const char *__restrict __s, size_t __n) ; > > >extern int wctomb (char *__s, wchar_t __wchar) ; > > > >extern size_t mbstowcs (wchar_t *__restrict __pwcs, > __const char *__restrict __s, size_t __n) ; > >extern size_t wcstombs (char *__restrict __s, > __const wchar_t *__restrict __pwcs, size_t __n) > ; > > > > > > > > >extern int rpmatch (__const char *__response) ; ># 916 "/usr/include/stdlib.h" 3 >extern int getloadavg (double __loadavg[], int __nelem) ; > > > > > > ># 46 "/usr/lib/tcl8.3/include/generic/tclInt.h" 2 > > > > ># 1 "/usr/include/string.h" 1 3 ># 28 "/usr/include/string.h" 3 > > > > > ># 1 "/usr/lib/gcc-lib/i686-pc-linux-gnu/3.2.3/include/stddef.h" 1 3 ># 34 "/usr/include/string.h" 2 3 > > > > >extern void *memcpy (void *__restrict __dest, > __const void *__restrict __src, size_t __n) ; > > >extern void *memmove (void *__dest, __const void *__src, size_t __n) > ; > > > > > > >extern void *memccpy (void *__restrict __dest, __const void *__restrict __src, > int __c, size_t __n) > ; > > > > > >extern void *memset (void *__s, int __c, size_t __n) ; > > >extern int memcmp (__const void *__s1, __const void *__s2, size_t __n) > __attribute__ ((__pure__)); > > >extern void *memchr (__const void *__s, int __c, size_t __n) > __attribute__ ((__pure__)); > ># 80 "/usr/include/string.h" 3 > > >extern char *strcpy (char *__restrict __dest, __const char *__restrict __src) > ; > >extern char *strncpy (char *__restrict __dest, > __const char *__restrict __src, size_t __n) ; > > >extern char *strcat (char *__restrict __dest, __const char *__restrict __src) > ; > >extern char *strncat (char *__restrict __dest, __const char *__restrict __src, > size_t __n) ; > > >extern int strcmp (__const char *__s1, __const char *__s2) > __attribute__ ((__pure__)); > >extern int strncmp (__const char *__s1, __const char *__s2, size_t __n) > __attribute__ ((__pure__)); > > >extern int strcoll (__const char *__s1, __const char *__s2) > __attribute__ ((__pure__)); > >extern size_t strxfrm (char *__restrict __dest, > __const char *__restrict __src, size_t __n) ; > ># 126 "/usr/include/string.h" 3 >extern char *strdup (__const char *__s) __attribute__ ((__malloc__)); ># 160 "/usr/include/string.h" 3 > > >extern char *strchr (__const char *__s, int __c) __attribute__ ((__pure__)); > >extern char *strrchr (__const char *__s, int __c) __attribute__ ((__pure__)); > > > > > > > > > > > >extern size_t strcspn (__const char *__s, __const char *__reject) > __attribute__ ((__pure__)); > > >extern size_t strspn (__const char *__s, __const char *__accept) > __attribute__ ((__pure__)); > >extern char *strpbrk (__const char *__s, __const char *__accept) > __attribute__ ((__pure__)); > >extern char *strstr (__const char *__haystack, __const char *__needle) > __attribute__ ((__pure__)); > > > >extern char *strtok (char *__restrict __s, __const char *__restrict __delim) > ; > > > > >extern char *__strtok_r (char *__restrict __s, > __const char *__restrict __delim, > char **__restrict __save_ptr) ; > >extern char *strtok_r (char *__restrict __s, __const char *__restrict __delim, > char **__restrict __save_ptr) ; ># 228 "/usr/include/string.h" 3 > > >extern size_t strlen (__const char *__s) __attribute__ ((__pure__)); > ># 241 "/usr/include/string.h" 3 > > >extern char *strerror (int __errnum) ; > > > > >extern char *strerror_r (int __errnum, char *__buf, size_t __buflen) ; > > > > >extern void __bzero (void *__s, size_t __n) ; > > > >extern void bcopy (__const void *__src, void *__dest, size_t __n) ; > > >extern void bzero (void *__s, size_t __n) ; > > >extern int bcmp (__const void *__s1, __const void *__s2, size_t __n) > __attribute__ ((__pure__)); > > >extern char *index (__const char *__s, int __c) __attribute__ ((__pure__)); > > >extern char *rindex (__const char *__s, int __c) __attribute__ ((__pure__)); > > > >extern int ffs (int __i) __attribute__ ((__const__)); ># 287 "/usr/include/string.h" 3 >extern int strcasecmp (__const char *__s1, __const char *__s2) > __attribute__ ((__pure__)); > > >extern int strncasecmp (__const char *__s1, __const char *__s2, size_t __n) > __attribute__ ((__pure__)); ># 309 "/usr/include/string.h" 3 >extern char *strsep (char **__restrict __stringp, > __const char *__restrict __delim) ; ># 372 "/usr/include/string.h" 3 ># 1 "/usr/include/bits/string.h" 1 3 ># 373 "/usr/include/string.h" 2 3 > > ># 1 "/usr/include/bits/string2.h" 1 3 ># 389 "/usr/include/bits/string2.h" 3 >extern void *__rawmemchr (const void *__s, int __c); ># 919 "/usr/include/bits/string2.h" 3 >extern __inline size_t __strcspn_c1 (__const char *__s, int __reject); >extern __inline size_t >__strcspn_c1 (__const char *__s, int __reject) >{ > register size_t __result = 0; > while (__s[__result] != '\0' && __s[__result] != __reject) > ++__result; > return __result; >} > >extern __inline size_t __strcspn_c2 (__const char *__s, int __reject1, > int __reject2); >extern __inline size_t >__strcspn_c2 (__const char *__s, int __reject1, int __reject2) >{ > register size_t __result = 0; > while (__s[__result] != '\0' && __s[__result] != __reject1 > && __s[__result] != __reject2) > ++__result; > return __result; >} > >extern __inline size_t __strcspn_c3 (__const char *__s, int __reject1, > int __reject2, int __reject3); >extern __inline size_t >__strcspn_c3 (__const char *__s, int __reject1, int __reject2, > int __reject3) >{ > register size_t __result = 0; > while (__s[__result] != '\0' && __s[__result] != __reject1 > && __s[__result] != __reject2 && __s[__result] != __reject3) > ++__result; > return __result; >} ># 976 "/usr/include/bits/string2.h" 3 >extern __inline size_t __strspn_c1 (__const char *__s, int __accept); >extern __inline size_t >__strspn_c1 (__const char *__s, int __accept) >{ > register size_t __result = 0; > > while (__s[__result] == __accept) > ++__result; > return __result; >} > >extern __inline size_t __strspn_c2 (__const char *__s, int __accept1, > int __accept2); >extern __inline size_t >__strspn_c2 (__const char *__s, int __accept1, int __accept2) >{ > register size_t __result = 0; > > while (__s[__result] == __accept1 || __s[__result] == __accept2) > ++__result; > return __result; >} > >extern __inline size_t __strspn_c3 (__const char *__s, int __accept1, > int __accept2, int __accept3); >extern __inline size_t >__strspn_c3 (__const char *__s, int __accept1, int __accept2, int __accept3) >{ > register size_t __result = 0; > > while (__s[__result] == __accept1 || __s[__result] == __accept2 > || __s[__result] == __accept3) > ++__result; > return __result; >} ># 1033 "/usr/include/bits/string2.h" 3 >extern __inline char *__strpbrk_c2 (__const char *__s, int __accept1, > int __accept2); >extern __inline char * >__strpbrk_c2 (__const char *__s, int __accept1, int __accept2) >{ > > while (*__s != '\0' && *__s != __accept1 && *__s != __accept2) > ++__s; > return *__s == '\0' ? ((void *)0) : (char *) (size_t) __s; >} > >extern __inline char *__strpbrk_c3 (__const char *__s, int __accept1, > int __accept2, int __accept3); >extern __inline char * >__strpbrk_c3 (__const char *__s, int __accept1, int __accept2, > int __accept3) >{ > > while (*__s != '\0' && *__s != __accept1 && *__s != __accept2 > && *__s != __accept3) > ++__s; > return *__s == '\0' ? ((void *)0) : (char *) (size_t) __s; >} ># 1085 "/usr/include/bits/string2.h" 3 >extern __inline char *__strtok_r_1c (char *__s, char __sep, char **__nextp); >extern __inline char * >__strtok_r_1c (char *__s, char __sep, char **__nextp) >{ > char *__result; > if (__s == ((void *)0)) > __s = *__nextp; > while (*__s == __sep) > ++__s; > __result = ((void *)0); > if (*__s != '\0') > { > __result = __s++; > while (*__s != '\0') > if (*__s++ == __sep) > { > __s[-1] = '\0'; > break; > } > *__nextp = __s; > } > return __result; >} ># 1117 "/usr/include/bits/string2.h" 3 >extern char *__strsep_g (char **__stringp, __const char *__delim); ># 1135 "/usr/include/bits/string2.h" 3 >extern __inline char *__strsep_1c (char **__s, char __reject); >extern __inline char * >__strsep_1c (char **__s, char __reject) >{ > register char *__retval = *__s; > if (__retval != ((void *)0) && (*__s = (__extension__ (__builtin_constant_p (__reject) && (__reject) == '\0' ? (char *) __rawmemchr (__retval, __reject) : strchr (__retval, __reject)))) != ((void *)0)) > *(*__s)++ = '\0'; > return __retval; >} > >extern __inline char *__strsep_2c (char **__s, char __reject1, char __reject2); >extern __inline char * >__strsep_2c (char **__s, char __reject1, char __reject2) >{ > register char *__retval = *__s; > if (__retval != ((void *)0)) > { > register char *__cp = __retval; > while (1) > { > if (*__cp == '\0') > { > __cp = ((void *)0); > break; > } > if (*__cp == __reject1 || *__cp == __reject2) > { > *__cp++ = '\0'; > break; > } > ++__cp; > } > *__s = __cp; > } > return __retval; >} > >extern __inline char *__strsep_3c (char **__s, char __reject1, char __reject2, > char __reject3); >extern __inline char * >__strsep_3c (char **__s, char __reject1, char __reject2, char __reject3) >{ > register char *__retval = *__s; > if (__retval != ((void *)0)) > { > register char *__cp = __retval; > while (1) > { > if (*__cp == '\0') > { > __cp = ((void *)0); > break; > } > if (*__cp == __reject1 || *__cp == __reject2 || *__cp == __reject3) > { > *__cp++ = '\0'; > break; > } > ++__cp; > } > *__s = __cp; > } > return __retval; >} ># 1216 "/usr/include/bits/string2.h" 3 >extern char *__strdup (__const char *__string) __attribute__ ((__malloc__)); ># 1235 "/usr/include/bits/string2.h" 3 >extern char *__strndup (__const char *__string, size_t __n) > __attribute__ ((__malloc__)); ># 376 "/usr/include/string.h" 2 3 > > > > ># 51 "/usr/lib/tcl8.3/include/generic/tclInt.h" 2 ># 70 "/usr/lib/tcl8.3/include/generic/tclInt.h" >struct Tcl_ResolvedVarInfo; > >typedef Tcl_Var (Tcl_ResolveRuntimeVarProc) ( Tcl_Interp* interp, struct Tcl_ResolvedVarInfo *vinfoPtr); > > >typedef void (Tcl_ResolveVarDeleteProc) ( struct Tcl_ResolvedVarInfo *vinfoPtr); ># 85 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct Tcl_ResolvedVarInfo { > Tcl_ResolveRuntimeVarProc *fetchProc; > Tcl_ResolveVarDeleteProc *deleteProc; >} Tcl_ResolvedVarInfo; > > > >typedef int (Tcl_ResolveCompiledVarProc) ( Tcl_Interp* interp, char* name, int length, Tcl_Namespace *context, Tcl_ResolvedVarInfo **rPtr); > > > >typedef int (Tcl_ResolveVarProc) ( Tcl_Interp* interp, char* name, Tcl_Namespace *context, int flags, Tcl_Var *rPtr); > > > >typedef int (Tcl_ResolveCmdProc) (Tcl_Interp* interp, char* name, Tcl_Namespace *context, int flags, Tcl_Command *rPtr); > > > >typedef struct Tcl_ResolverInfo { > Tcl_ResolveCmdProc *cmdResProc; > > Tcl_ResolveVarProc *varResProc; > > > Tcl_ResolveCompiledVarProc *compiledVarResProc; > > >} Tcl_ResolverInfo; ># 128 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct Namespace { > char *name; > > > > char *fullName; > > ClientData clientData; > > Tcl_NamespaceDeleteProc *deleteProc; > > > struct Namespace *parentPtr; > > > Tcl_HashTable childTable; > > > long nsId; > Tcl_Interp *interp; > > int flags; > > > int activationCount; > > > > > int refCount; > > > Tcl_HashTable cmdTable; > > > > > > > > Tcl_HashTable varTable; > > > char **exportArrayPtr; > > > > > > > int numExportPatterns; > > int maxExportPatterns; > > int cmdRefEpoch; > > > > > int resolverEpoch; > > > > > Tcl_ResolveCmdProc *cmdResProc; > > > > > > Tcl_ResolveVarProc *varResProc; > > > > > > > Tcl_ResolveCompiledVarProc *compiledVarResProc; > > > > > > >} Namespace; ># 260 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct VarTrace { > Tcl_VarTraceProc *traceProc; > > ClientData clientData; > int flags; > > > > struct VarTrace *nextPtr; > >} VarTrace; ># 280 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct ActiveVarTrace { > struct Var *varPtr; > struct ActiveVarTrace *nextPtr; > > > > VarTrace *nextTracePtr; > > > >} ActiveVarTrace; > > > > > > > >typedef struct ArraySearch { > int id; > > > struct Var *varPtr; > > Tcl_HashSearch search; > > Tcl_HashEntry *nextEntry; > > > > > > struct ArraySearch *nextPtr; > > >} ArraySearch; ># 326 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct Var { > union { > Tcl_Obj *objPtr; > > Tcl_HashTable *tablePtr; > > > > struct Var *linkPtr; > > > > } value; > char *name; > > > > > > > Namespace *nsPtr; > > > Tcl_HashEntry *hPtr; ># 359 "/usr/lib/tcl8.3/include/generic/tclInt.h" > int refCount; > > > > > > > > VarTrace *tracePtr; > > ArraySearch *searchPtr; > > int flags; > >} Var; ># 528 "/usr/lib/tcl8.3/include/generic/tclInt.h" >struct Command; ># 543 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct CompiledLocal { > struct CompiledLocal *nextPtr; > > > > int nameLength; > > > int frameIndex; > > int flags; > > > > > Tcl_Obj *defValuePtr; > > > Tcl_ResolvedVarInfo *resolveInfo; > > > > > > > char name[4]; > > > > >} CompiledLocal; > > > > > > > >typedef struct Proc { > struct Interp *iPtr; > > int refCount; > > > > > struct Command *cmdPtr; > > > > Tcl_Obj *bodyPtr; > > int numArgs; > int numCompiledLocals; > > > CompiledLocal *firstLocalPtr; > > > > > CompiledLocal *lastLocalPtr; > > >} Proc; > > > > > > >typedef struct Trace { > int level; > > Tcl_CmdTraceProc *proc; > ClientData clientData; > struct Trace *nextPtr; >} Trace; ># 629 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct AssocData { > Tcl_InterpDeleteProc *proc; > ClientData clientData; >} AssocData; ># 648 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct CallFrame { > Namespace *nsPtr; > > int isProcCallFrame; > > > > > > > int objc; > > Tcl_Obj *const *objv; > struct CallFrame *callerPtr; > > > > struct CallFrame *callerVarPtr; > > > > > > > int level; > > > > Proc *procPtr; > > > > > > Tcl_HashTable *varTablePtr; > > > > int numCompiledLocals; > > Var* compiledLocals; > > > >} CallFrame; ># 702 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef void **TclHandle; > >extern TclHandle TclHandleCreate (void *ptr); >extern void TclHandleFree (TclHandle handle); >extern TclHandle TclHandlePreserve (TclHandle handle); >extern void TclHandleRelease (TclHandle handle); ># 721 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct { > char *command; > > int bytesAvl; > >} HistoryEvent; ># 735 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct HistoryRev { > int firstIndex; > > int lastIndex; > > int newSize; > char *newBytes; > > struct HistoryRev *nextPtr; > >} HistoryRev; ># 760 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct MathFunc { > int builtinFuncIndex; > > > > > > > int numArgs; > Tcl_ValueType argTypes[5]; > > Tcl_MathProc *proc; > > ClientData clientData; > > >} MathFunc; > > > > > > > >extern void *TclThreadDataKeyGet (Tcl_ThreadDataKey *keyPtr); >extern void TclThreadDataKeySet (Tcl_ThreadDataKey *keyPtr, void *data); ># 807 "/usr/lib/tcl8.3/include/generic/tclInt.h" >struct CompileEnv; ># 828 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef int (CompileProc) (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *compEnvPtr); > > > > > > > >typedef int (CompileHookProc) (Tcl_Interp *interp, struct CompileEnv *compEnvPtr, ClientData clientData); ># 849 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct ExecEnv { > Tcl_Obj **stackPtr; > > int stackTop; > > int stackEnd; >} ExecEnv; ># 873 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct LiteralEntry { > struct LiteralEntry *nextPtr; > > > Tcl_Obj *objPtr; > > > int refCount; > > > > > > >} LiteralEntry; > >typedef struct LiteralTable { > LiteralEntry **buckets; > > > LiteralEntry *staticBuckets[4]; > > > > int numBuckets; > > int numEntries; > > int rebuildSize; > > int mask; > >} LiteralTable; ># 958 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct ImportRef { > struct Command *importedCmdPtr; > > > > > struct ImportRef *nextPtr; > > > > >} ImportRef; > > > > > > > >typedef struct ImportedCmdData { > struct Command *realCmdPtr; > > struct Command *selfPtr; > > > >} ImportedCmdData; > > > > > > >typedef struct Command { > Tcl_HashEntry *hPtr; ># 1002 "/usr/lib/tcl8.3/include/generic/tclInt.h" > Namespace *nsPtr; > > int refCount; > > > > > > int cmdEpoch; > > > CompileProc *compileProc; > > Tcl_ObjCmdProc *objProc; > ClientData objClientData; > Tcl_CmdProc *proc; > ClientData clientData; > Tcl_CmdDeleteProc *deleteProc; > > > ClientData deleteData; > int deleted; > > > > ImportRef *importRefPtr; > > > > > > >} Command; ># 1051 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct ResolverScheme { > char *name; > Tcl_ResolveCmdProc *cmdResProc; > > > Tcl_ResolveVarProc *varResProc; > > > > Tcl_ResolveCompiledVarProc *compiledVarResProc; > > > > struct ResolverScheme *nextPtr; > >} ResolverScheme; ># 1078 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct Interp { ># 1096 "/usr/lib/tcl8.3/include/generic/tclInt.h" > char *result; > > > Tcl_FreeProc *freeProc; > > > > > > > int errorLine; > > > struct TclStubs *stubTable; > > > > > > > > TclHandle handle; > > > Namespace *globalNsPtr; > Tcl_HashTable *hiddenCmdTablePtr; > > > > ClientData interpInfo; > > > Tcl_HashTable mathFuncTable; ># 1140 "/usr/lib/tcl8.3/include/generic/tclInt.h" > int numLevels; > > > > > int maxNestingDepth; > > > CallFrame *framePtr; > > > CallFrame *varFramePtr; > > > > > ActiveVarTrace *activeTracePtr; > > > int returnCode; > > char *errorInfo; > > char *errorCode; > > > > > > > > char *appendResult; > > > int appendAvl; > > int appendUsed; > > > > > > > Tcl_HashTable packageTable; > > > > char *packageUnknown; ># 1196 "/usr/lib/tcl8.3/include/generic/tclInt.h" > int cmdCount; > > int evalFlags; > > > > int termOffset; > > LiteralTable literalTable; > > > > > > int compileEpoch; > > > > > Proc *compiledProcPtr; > > > > > ResolverScheme *resolverPtr; > > > > > > char *scriptFile; > > > > > int flags; > long randSeed; > Trace *tracePtr; > Tcl_HashTable *assocData; > > > struct ExecEnv *execEnvPtr; > > > Tcl_Obj *emptyObjPtr; > > > > char resultSpace[200 +1]; > > Tcl_Obj *objResultPtr; > > > Tcl_ThreadId threadId; ># 1260 "/usr/lib/tcl8.3/include/generic/tclInt.h" >} Interp; ># 1337 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct ParseValue { > char *buffer; > > char *next; > > char *end; > > void (*expandProc) (struct ParseValue *pvPtr, int needed); > > > ClientData clientData; > >} ParseValue; ># 1386 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef enum { > TCL_PLATFORM_UNIX, > TCL_PLATFORM_MAC, > TCL_PLATFORM_WINDOWS >} TclPlatformType; ># 1421 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct List { > int maxElemCount; > int elemCount; > Tcl_Obj **elements; >} List; ># 1436 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef int (TclGetFileAttrProc) (Tcl_Interp *interp, int objIndex, const char *fileName, Tcl_Obj **attrObjPtrPtr); > >typedef int (TclSetFileAttrProc) (Tcl_Interp *interp, int objIndex, const char *fileName, Tcl_Obj *attrObjPtr); > > >typedef struct TclFileAttrProcs { > TclGetFileAttrProc *getProc; > TclSetFileAttrProc *setProc; >} TclFileAttrProcs; > > > > > > >typedef struct TclFile_ *TclFile; ># 1460 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef int (TclStatProc_) (const char *path, struct stat *buf); >typedef int (TclAccessProc_) (const char *path, int mode); >typedef Tcl_Channel (TclOpenFileChannelProc_) (Tcl_Interp *interp, char *fileName, char *modeString, int permissions); > > > >typedef int (*TclCmdProcType) (ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]); > >typedef int (*TclObjCmdProcType) (ClientData clientData, Tcl_Interp *interp, int objc, struct Tcl_Obj * const objv[]); > > > > > > >typedef struct TclpTime_t_ *TclpTime_t; ># 1484 "/usr/lib/tcl8.3/include/generic/tclInt.h" >typedef struct GlobTypeData { > > int type; > > int perm; > > Tcl_Obj* macType; > > Tcl_Obj* macCreator; >} GlobTypeData; ># 1518 "/usr/lib/tcl8.3/include/generic/tclInt.h" >extern Tcl_Time tclBlockTime; >extern int tclBlockTimeSet; >extern char * tclExecutableName; >extern char * tclNativeExecutableName; >extern char * tclDefaultEncodingDir; >extern Tcl_ChannelType tclFileChannelType; >extern char * tclMemDumpFileName; >extern TclPlatformType tclPlatform; >extern char * tclpFileAttrStrings[]; >extern const TclFileAttrProcs tclpFileAttrProcs[]; > > > > > >extern Tcl_ObjType tclBooleanType; >extern Tcl_ObjType tclByteArrayType; >extern Tcl_ObjType tclByteCodeType; >extern Tcl_ObjType tclDoubleType; >extern Tcl_ObjType tclIntType; >extern Tcl_ObjType tclListType; >extern Tcl_ObjType tclProcBodyType; >extern Tcl_ObjType tclStringType; > > > > > > >extern Tcl_Obj * tclFreeObjList; ># 1562 "/usr/lib/tcl8.3/include/generic/tclInt.h" >extern char * tclEmptyStringRep; ># 1571 "/usr/lib/tcl8.3/include/generic/tclInt.h" >extern int TclAccess (const char *path, int mode); > >extern int TclAccessDeleteProc (TclAccessProc_ *proc); >extern int TclAccessInsertProc (TclAccessProc_ *proc); >extern void TclAllocateFreeObjects (void); >extern int TclArraySet (Tcl_Interp *interp, Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj); > >extern int TclCheckBadOctal (Tcl_Interp *interp, char *value); > >extern int TclCleanupChildren (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); > > >extern void TclCleanupCommand (Command *cmdPtr); >extern int TclCopyChannel (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); > > > > > >extern int TclCreatePipeline (Tcl_Interp *interp, int argc, char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); > > > >extern int TclCreateProc (Tcl_Interp *interp, Namespace *nsPtr, char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); > > > >extern void TclDeleteCompiledLocalVars ( Interp *iPtr, CallFrame *framePtr); > >extern void TclDeleteVars (Interp *iPtr, Tcl_HashTable *tablePtr); > >extern int TclDoGlob (Tcl_Interp *interp, char *separators, Tcl_DString *headPtr, char *tail, GlobTypeData *types); > > >extern void TclDumpMemoryInfo (FILE *outFile); >extern void TclExpandTokenArray ( Tcl_Parse *parsePtr); > >extern void TclExprFloatError (Tcl_Interp *interp, double value); > >extern int TclFileAttrsCmd (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int TclFileCopyCmd (Tcl_Interp *interp, int argc, char **argv) ; > >extern int TclFileDeleteCmd (Tcl_Interp *interp, int argc, char **argv); > >extern int TclFileMakeDirsCmd (Tcl_Interp *interp, int argc, char **argv) ; > >extern int TclFileRenameCmd (Tcl_Interp *interp, int argc, char **argv) ; > >extern void TclFinalizeAllocSubsystem (void); >extern void TclFinalizeCompExecEnv (void); >extern void TclFinalizeCompilation (void); >extern void TclFinalizeEncodingSubsystem (void); >extern void TclFinalizeEnvironment (void); >extern void TclFinalizeExecution (void); >extern void TclFinalizeIOSubsystem (void); >extern void TclFinalizeLoad (void); >extern void TclFinalizeMemorySubsystem (void); >extern void TclFinalizeNotifier (void); >extern void TclFinalizeAsync (void); >extern void TclFinalizeSynchronization (void); >extern void TclFinalizeThreadData (void); >extern void TclFindEncodings (const char *argv0); >extern Proc * TclFindProc (Interp *iPtr, char *procName); > >extern int TclFormatInt (char *buffer, long n); >extern void TclFreePackageInfo (Interp *iPtr); >extern int TclGetDate (char *p, unsigned long now, long zone, unsigned long *timePtr); > > >extern Tcl_Obj * TclGetElementOfIndexedArray ( Tcl_Interp *interp, int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg); > > >extern char * TclGetExtension (char *name); >extern int TclGetFrame (Tcl_Interp *interp, char *string, CallFrame **framePtrPtr); > >extern TclCmdProcType TclGetInterpProc (void); >extern int TclGetIntForIndex (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); > >extern Tcl_Obj * TclGetIndexedScalar (Tcl_Interp *interp, int localIndex, int leaveErrorMsg); > >extern int TclGetLong (Tcl_Interp *interp, char *string, long *longPtr); > >extern int TclGetLoadedPackages ( Tcl_Interp *interp, char *targetName); > >extern int TclGetNamespaceForQualName ( Tcl_Interp *interp, char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, char **simpleNamePtr); > > > > > >extern TclObjCmdProcType TclGetObjInterpProc (void); >extern int TclGetOpenMode (Tcl_Interp *interp, char *string, int *seekFlagPtr); > >extern Tcl_Command TclGetOriginalCommand ( Tcl_Command command); > >extern int TclGlob (Tcl_Interp *interp, char *pattern, char *unquotedPrefix, int globFlags, GlobTypeData* types); > > >extern int TclGlobalInvoke (Tcl_Interp *interp, int argc, char **argv, int flags); > >extern int TclGuessPackageName (char *fileName, Tcl_DString *bufPtr); > >extern int TclHideUnsafeCommands ( Tcl_Interp *interp); > >extern int TclInExit (void); >extern Tcl_Obj * TclIncrElementOfIndexedArray ( Tcl_Interp *interp, int localIndex, Tcl_Obj *elemPtr, long incrAmount); > > >extern Tcl_Obj * TclIncrIndexedScalar ( Tcl_Interp *interp, int localIndex, long incrAmount); > > >extern Tcl_Obj * TclIncrVar2 (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, long incrAmount, int flags); > > >extern void TclInitAlloc (void); >extern void TclInitCompiledLocals ( Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); > > >extern void TclInitDbCkalloc (void); >extern void TclInitEncodingSubsystem (void); >extern void TclInitIOSubsystem (void); >extern void TclInitNamespaceSubsystem (void); >extern void TclInitNotifier (void); >extern void TclInitObjSubsystem (void); >extern void TclInitSubsystems (const char *argv0); >extern int TclInvoke (Tcl_Interp *interp, int argc, char **argv, int flags); > >extern int TclInvokeObjectCommand ( ClientData clientData, Tcl_Interp *interp, int argc, char **argv); > > >extern int TclInvokeStringCommand ( ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > > >extern int TclIsLocalScalar (const char *src, int len); > >extern Proc * TclIsProc (Command *cmdPtr); >extern Var * TclLookupVar (Tcl_Interp *interp, char *part1, char *part2, int flags, char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); > > > >extern int TclMathInProgress (void); >extern int TclNeedSpace (char *start, char *end); >extern Tcl_Obj * TclNewProcBodyObj (Proc *procPtr); >extern int TclObjCommandComplete (Tcl_Obj *cmdPtr); >extern int TclObjInterpProc (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > > >extern int TclObjInvoke (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); > >extern int TclObjInvokeGlobal (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); > >extern int TclOpenFileChannelDeleteProc ( TclOpenFileChannelProc_ *proc); > >extern int TclOpenFileChannelInsertProc ( TclOpenFileChannelProc_ *proc); > >extern int TclpAccess (const char *filename, int mode); > >extern char * TclpAlloc (unsigned int size); >extern int TclpCheckStackSpace (void); >extern int TclpCopyFile (const char *source, const char *dest); > >extern int TclpCopyDirectory (const char *source, const char *dest, Tcl_DString *errorPtr); > >extern int TclpCreateDirectory (const char *path); >extern int TclpDeleteFile (const char *path); >extern void TclpExit (int status); >extern void TclpFinalizeCondition ( Tcl_Condition *condPtr); > >extern void TclpFinalizeMutex (Tcl_Mutex *mutexPtr); >extern void TclpFinalizeThreadData ( Tcl_ThreadDataKey *keyPtr); > >extern void TclpFinalizeThreadDataKey ( Tcl_ThreadDataKey *keyPtr); > >extern char * TclpFindExecutable ( const char *argv0); > >extern int TclpFindVariable (const char *name, int *lengthPtr); > >extern void TclpFree (char *ptr); >extern unsigned long TclpGetClicks (void); >extern Tcl_Channel TclpGetDefaultStdChannel (int type); >extern unsigned long TclpGetSeconds (void); >extern void TclpGetTime (Tcl_Time *time); >extern int TclpGetTimeZone (unsigned long time); >extern char * TclpGetUserHome (const char *name, Tcl_DString *bufferPtr); > >extern int TclpHasSockets (Tcl_Interp *interp); >extern void TclpInitLibraryPath (const char *argv0); >extern void TclpInitLock (void); >extern void TclpInitPlatform (void); >extern void TclpInitUnlock (void); >extern int TclpListVolumes (Tcl_Interp *interp); >extern void TclpMasterLock (void); >extern void TclpMasterUnlock (void); >extern int TclpMatchFiles (Tcl_Interp *interp, char *separators, Tcl_DString *dirPtr, char *pattern, char *tail); > > >extern Tcl_Channel TclpOpenFileChannel (Tcl_Interp *interp, char *fileName, char *modeString, int permissions); > > >extern char * TclpReadlink (const char *fileName, Tcl_DString *linkPtr); > >extern char * TclpRealloc (char *ptr, unsigned int size); > >extern void TclpReleaseFile (TclFile file); >extern int TclpRemoveDirectory (const char *path, int recursive, Tcl_DString *errorPtr); > >extern int TclpRenameFile (const char *source, const char *dest); > >extern void TclpSetInitialEncodings (void); >extern void TclpSetVariables (Tcl_Interp *interp); >extern void * TclpSysAlloc (long size, int isBin); >extern void TclpSysFree (void *ptr); >extern void * TclpSysRealloc (void *cp, unsigned int size); > >extern void TclpUnloadFile (ClientData clientData); >extern char * TclPrecTraceProc (ClientData clientData, Tcl_Interp *interp, char *name1, char *name2, int flags); > > >extern int TclPreventAliasLoop (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); > >extern void TclProcCleanupProc (Proc *procPtr); >extern int TclProcCompileProc (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); > > >extern void TclProcDeleteProc (ClientData clientData); >extern int TclProcInterpProc (ClientData clientData, Tcl_Interp *interp, int argc, char **argv); > >extern void * TclpThreadDataKeyGet ( Tcl_ThreadDataKey *keyPtr); > >extern void TclpThreadDataKeyInit ( Tcl_ThreadDataKey *keyPtr); > >extern void TclpThreadDataKeySet ( Tcl_ThreadDataKey *keyPtr, void *data); > >extern void TclpThreadExit (int status); >extern void TclRememberCondition (Tcl_Condition *mutex); >extern void TclRememberDataKey (Tcl_ThreadDataKey *mutex); >extern void TclRememberMutex (Tcl_Mutex *mutex); >extern int TclRenameCommand (Tcl_Interp *interp, char *oldName, char *newName) ; > >extern void TclResetShadowedCmdRefs ( Tcl_Interp *interp, Command *newCmdPtr); > >extern int TclServiceIdle (void); >extern Tcl_Obj * TclSetElementOfIndexedArray ( Tcl_Interp *interp, int localIndex, Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int leaveErrorMsg); > > > >extern Tcl_Obj * TclSetIndexedScalar (Tcl_Interp *interp, int localIndex, Tcl_Obj *objPtr, int leaveErrorMsg); > > >extern char * TclSetPreInitScript (char *string); >extern void TclSetupEnv (Tcl_Interp *interp); >extern int TclSockGetPort (Tcl_Interp *interp, char *string, char *proto, int *portPtr); > >extern int TclSockMinimumBuffers (int sock, int size); > >extern int TclStat (const char *path, struct stat *buf); > >extern int TclStatDeleteProc (TclStatProc_ *proc); >extern int TclStatInsertProc (TclStatProc_ *proc); >extern void TclTeardownNamespace (Namespace *nsPtr); >extern void TclTransferResult (Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp); > >extern int TclUpdateReturnInfo (Interp *iPtr); > > > > > > > >extern int Tcl_AfterObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_AppendObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ArrayObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_BinaryObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_BreakObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_CaseObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_CatchObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_CdObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ClockObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_CloseObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ConcatObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ContinueObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_EncodingObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_EofObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ErrorObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_EvalObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ExecObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ExitObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ExprObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FblockedObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FconfigureObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FcopyObjCmd (ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FileObjCmd (ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FileEventObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FlushObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ForObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ForeachObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_FormatObjCmd (ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_GetsObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_GlobalObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_GlobObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_IfObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_IncrObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_InfoObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_InterpObjCmd (ClientData clientData, Tcl_Interp *interp, int argc, Tcl_Obj *const objv[]); > >extern int Tcl_JoinObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LappendObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LindexObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LinsertObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LlengthObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ListObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LoadObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LrangeObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LreplaceObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LsearchObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_LsortObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_NamespaceObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_OpenObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_PackageObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_PidObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_PutsObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_PwdObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ReadObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_RegexpObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_RegsubObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_RenameObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ReturnObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_ScanObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SeekObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SetObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SplitObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SocketObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SourceObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_StringObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SubstObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_SwitchObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_TellObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_TimeObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_TraceObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_UnsetObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_UpdateObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_UplevelObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_UpvarObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_VariableObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_VwaitObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); > >extern int Tcl_WhileObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); ># 2020 "/usr/lib/tcl8.3/include/generic/tclInt.h" >extern int TclCompileBreakCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileCatchCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileContinueCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileExprCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileForCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileForeachCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileIfCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileIncrCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileSetCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); > >extern int TclCompileWhileCmd (Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *envPtr); ># 2216 "/usr/lib/tcl8.3/include/generic/tclInt.h" ># 1 "/usr/lib/tcl8.3/include/generic/tclIntDecls.h" 1 ># 33 "/usr/lib/tcl8.3/include/generic/tclIntDecls.h" >extern int TclAccess (const char * path, int mode); > >extern int TclAccessDeleteProc ( TclAccessProc_ * proc); > > >extern int TclAccessInsertProc ( TclAccessProc_ * proc); > > >extern void TclAllocateFreeObjects (void); > > > >extern int TclCleanupChildren (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); ># 56 "/usr/lib/tcl8.3/include/generic/tclIntDecls.h" >extern void TclCleanupCommand (Command * cmdPtr); > >extern int TclCopyAndCollapse (int count, const char * src, char * dst); > > >extern int TclCopyChannel (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); > > > > >extern int TclCreatePipeline (Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); ># 79 "/usr/lib/tcl8.3/include/generic/tclIntDecls.h" >extern int TclCreateProc (Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); > > > > >extern void TclDeleteCompiledLocalVars ( Interp * iPtr, CallFrame * framePtr); > > >extern void TclDeleteVars (Interp * iPtr, Tcl_HashTable * tablePtr); > > >extern int TclDoGlob (Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, GlobTypeData * types); > > > >extern void TclDumpMemoryInfo (FILE * outFile); > > >extern void TclExprFloatError (Tcl_Interp * interp, double value); > > >extern int TclFileAttrsCmd (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > >extern int TclFileCopyCmd (Tcl_Interp * interp, int argc, char ** argv); > > >extern int TclFileDeleteCmd (Tcl_Interp * interp, int argc, char ** argv); > > >extern int TclFileMakeDirsCmd (Tcl_Interp * interp, int argc, char ** argv); > > >extern int TclFileRenameCmd (Tcl_Interp * interp, int argc, char ** argv); > > >extern int TclFindElement (Tcl_Interp * interp, const char * listStr, int listLength, const char ** elementPtr, const char ** nextPtr, int * sizePtr, int * bracePtr); > > > > > >extern Proc * TclFindProc (Interp * iPtr, char * procName); > > >extern int TclFormatInt (char * buffer, long n); > >extern void TclFreePackageInfo (Interp * iPtr); > > >extern int TclGetDate (char * p, unsigned long now, long zone, unsigned long * timePtr); > > >extern Tcl_Channel TclpGetDefaultStdChannel (int type); > >extern Tcl_Obj * TclGetElementOfIndexedArray ( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg); > > > > >extern char * TclGetExtension (char * name); > >extern int TclGetFrame (Tcl_Interp * interp, char * str, CallFrame ** framePtrPtr); > > >extern TclCmdProcType TclGetInterpProc (void); > >extern int TclGetIntForIndex (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); > > > >extern Tcl_Obj * TclGetIndexedScalar (Tcl_Interp * interp, int localIndex, int leaveErrorMsg); > > >extern int TclGetLong (Tcl_Interp * interp, char * str, long * longPtr); > > >extern int TclGetLoadedPackages ( Tcl_Interp * interp, char * targetName); > > >extern int TclGetNamespaceForQualName ( Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr); > > > > > > > >extern TclObjCmdProcType TclGetObjInterpProc (void); > >extern int TclGetOpenMode (Tcl_Interp * interp, char * str, int * seekFlagPtr); > > >extern Tcl_Command TclGetOriginalCommand ( Tcl_Command command); > > >extern char * TclpGetUserHome (const char * name, Tcl_DString * bufferPtr); > > >extern int TclGlobalInvoke (Tcl_Interp * interp, int argc, char ** argv, int flags); > > >extern int TclGuessPackageName (char * fileName, Tcl_DString * bufPtr); > > >extern int TclHideUnsafeCommands ( Tcl_Interp * interp); > > >extern int TclInExit (void); > >extern Tcl_Obj * TclIncrElementOfIndexedArray ( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount); > > > >extern Tcl_Obj * TclIncrIndexedScalar ( Tcl_Interp * interp, int localIndex, long incrAmount); > > > >extern Tcl_Obj * TclIncrVar2 (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed); > > > >extern void TclInitCompiledLocals ( Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr); > > > >extern int TclInterpInit (Tcl_Interp * interp); > >extern int TclInvoke (Tcl_Interp * interp, int argc, char ** argv, int flags); > > >extern int TclInvokeObjectCommand ( ClientData clientData, Tcl_Interp * interp, int argc, char ** argv); > > > >extern int TclInvokeStringCommand ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern Proc * TclIsProc (Command * cmdPtr); > > > >extern Var * TclLookupVar (Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr); > > > > >extern int TclpMatchFiles (Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail); > > > >extern int TclNeedSpace (char * start, char * end); > >extern Tcl_Obj * TclNewProcBodyObj (Proc * procPtr); > >extern int TclObjCommandComplete (Tcl_Obj * cmdPtr); > >extern int TclObjInterpProc (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int TclObjInvoke (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); > > >extern int TclObjInvokeGlobal (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); > > >extern int TclOpenFileChannelDeleteProc ( TclOpenFileChannelProc_ * proc); > > >extern int TclOpenFileChannelInsertProc ( TclOpenFileChannelProc_ * proc); > > >extern int TclpAccess (const char * path, int mode); > >extern char * TclpAlloc (unsigned int size); > >extern int TclpCopyFile (const char * source, const char * dest); > > >extern int TclpCopyDirectory (const char * source, const char * dest, Tcl_DString * errorPtr); > > >extern int TclpCreateDirectory (const char * path); > >extern int TclpDeleteFile (const char * path); > >extern void TclpFree (char * ptr); > >extern unsigned long TclpGetClicks (void); > >extern unsigned long TclpGetSeconds (void); > >extern void TclpGetTime (Tcl_Time * time); > >extern int TclpGetTimeZone (unsigned long time); > >extern int TclpListVolumes (Tcl_Interp * interp); > >extern Tcl_Channel TclpOpenFileChannel (Tcl_Interp * interp, char * fileName, char * modeString, int permissions); > > > >extern char * TclpRealloc (char * ptr, unsigned int size); > > >extern int TclpRemoveDirectory (const char * path, int recursive, Tcl_DString * errorPtr); > > >extern int TclpRenameFile (const char * source, const char * dest); > > > > > > >extern char * TclPrecTraceProc (ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags); > > > >extern int TclPreventAliasLoop (Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd); > > > >extern void TclProcCleanupProc (Proc * procPtr); > >extern int TclProcCompileProc (Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, const char * description, const char * procName); > > > > >extern void TclProcDeleteProc (ClientData clientData); > >extern int TclProcInterpProc (ClientData clientData, Tcl_Interp * interp, int argc, char ** argv); > > >extern int TclpStat (const char * path, struct stat * buf); > > >extern int TclRenameCommand (Tcl_Interp * interp, char * oldName, char * newName); > > >extern void TclResetShadowedCmdRefs ( Tcl_Interp * interp, Command * newCmdPtr); > > >extern int TclServiceIdle (void); > >extern Tcl_Obj * TclSetElementOfIndexedArray ( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg); > > > > >extern Tcl_Obj * TclSetIndexedScalar (Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg); > > > > >extern char * TclSetPreInitScript (char * string); > > > > > > >extern void TclSetupEnv (Tcl_Interp * interp); > >extern int TclSockGetPort (Tcl_Interp * interp, char * str, char * proto, int * portPtr); > > > >extern int TclSockMinimumBuffers (int sock, int size); ># 359 "/usr/lib/tcl8.3/include/generic/tclIntDecls.h" >extern int TclStat (const char * path, struct stat * buf); > > >extern int TclStatDeleteProc (TclStatProc_ * proc); > >extern int TclStatInsertProc (TclStatProc_ * proc); > >extern void TclTeardownNamespace (Namespace * nsPtr); > >extern int TclUpdateReturnInfo (Interp * iPtr); > > >extern void Tcl_AddInterpResolvers ( Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); > > > > > >extern int Tcl_AppendExportList ( Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); > > > >extern Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); > > > >extern void Tcl_DeleteNamespace ( Tcl_Namespace * nsPtr); > > >extern int Tcl_Export (Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst); > > > >extern Tcl_Command Tcl_FindCommand (Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags); > > > >extern Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags); > > > >extern int Tcl_GetInterpResolvers ( Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo); > > > >extern int Tcl_GetNamespaceResolvers ( Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo); > > > >extern Tcl_Var Tcl_FindNamespaceVar ( Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags); > > > >extern int Tcl_ForgetImport (Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern); > > >extern Tcl_Command Tcl_GetCommandFromObj ( Tcl_Interp * interp, Tcl_Obj * objPtr); > > >extern void Tcl_GetCommandFullName ( Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); > > > >extern Tcl_Namespace * Tcl_GetCurrentNamespace ( Tcl_Interp * interp); > > >extern Tcl_Namespace * Tcl_GetGlobalNamespace ( Tcl_Interp * interp); > > >extern void Tcl_GetVariableFullName ( Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr); > > > >extern int Tcl_Import (Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite); > > > >extern void Tcl_PopCallFrame (Tcl_Interp* interp); > >extern int Tcl_PushCallFrame (Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame); > > > >extern int Tcl_RemoveInterpResolvers ( Tcl_Interp * interp, char * name); > > >extern void Tcl_SetNamespaceResolvers ( Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); > > > > > >extern int TclpHasSockets (Tcl_Interp * interp); > >extern struct tm * TclpGetDate (TclpTime_t time, int useGMT); > >extern size_t TclpStrftime (char * s, size_t maxsize, const char * format, const struct tm * t); > > >extern int TclpCheckStackSpace (void); > > >extern int TclpChdir (const char * dirName); > >extern char * TclGetEnv (const char * name, Tcl_DString * valuePtr); > > >extern int TclpLoadFile (Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr); > > > > > >extern int TclLooksLikeInt (char * bytes, int length); > > >extern char * TclpGetCwd (Tcl_Interp * interp, Tcl_DString * cwdPtr); > > >extern int TclSetByteCodeFromAny ( Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData); > > > > >extern int TclAddLiteralObj ( struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr); > > > >extern void TclHideLiteral (Tcl_Interp * interp, struct CompileEnv * envPtr, int index); > > >extern struct AuxDataType * TclGetAuxDataType (char * typeName); > >extern TclHandle TclHandleCreate (void * ptr); > >extern void TclHandleFree (TclHandle handle); > >extern TclHandle TclHandlePreserve (TclHandle handle); > >extern void TclHandleRelease (TclHandle handle); > >extern int TclRegAbout (Tcl_Interp * interp, Tcl_RegExp re); > > >extern void TclRegExpRangeUniChar (Tcl_RegExp re, int index, int * startPtr, int * endPtr); > > >extern void TclSetLibraryPath (Tcl_Obj * pathPtr); > >extern Tcl_Obj * TclGetLibraryPath (void); > > > >extern void TclRegError (Tcl_Interp * interp, char * msg, int status); > > >extern Var * TclVarTraceExists (Tcl_Interp * interp, char * varName); > > >extern void TclSetStartupScriptFileName ( char * filename); > > >extern char * TclGetStartupScriptFileName (void); > >extern int TclpMatchFilesTypes (Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types); > > > > >extern int TclChannelTransform (Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr); > > >extern void TclChannelEventScriptInvoker ( ClientData clientData, int flags); > > >extern void * TclGetInstructionTable (void); > >extern void TclExpandCodeArray (void * envPtr); > >typedef struct TclIntStubs { > int magic; > struct TclIntStubHooks *hooks; > > int (*tclAccess) (const char * path, int mode); > int (*tclAccessDeleteProc) (TclAccessProc_ * proc); > int (*tclAccessInsertProc) (TclAccessProc_ * proc); > void (*tclAllocateFreeObjects) (void); > void *reserved4; > > int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); > > > > > > > > void (*tclCleanupCommand) (Command * cmdPtr); > int (*tclCopyAndCollapse) (int count, const char * src, char * dst); > int (*tclCopyChannel) (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); > > int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); > > > > > > > > int (*tclCreateProc) (Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); > void (*tclDeleteCompiledLocalVars) (Interp * iPtr, CallFrame * framePtr); > void (*tclDeleteVars) (Interp * iPtr, Tcl_HashTable * tablePtr); > int (*tclDoGlob) (Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, GlobTypeData * types); > void (*tclDumpMemoryInfo) (FILE * outFile); > void *reserved15; > void (*tclExprFloatError) (Tcl_Interp * interp, double value); > int (*tclFileAttrsCmd) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*tclFileCopyCmd) (Tcl_Interp * interp, int argc, char ** argv); > int (*tclFileDeleteCmd) (Tcl_Interp * interp, int argc, char ** argv); > int (*tclFileMakeDirsCmd) (Tcl_Interp * interp, int argc, char ** argv); > int (*tclFileRenameCmd) (Tcl_Interp * interp, int argc, char ** argv); > int (*tclFindElement) (Tcl_Interp * interp, const char * listStr, int listLength, const char ** elementPtr, const char ** nextPtr, int * sizePtr, int * bracePtr); > Proc * (*tclFindProc) (Interp * iPtr, char * procName); > int (*tclFormatInt) (char * buffer, long n); > void (*tclFreePackageInfo) (Interp * iPtr); > void *reserved26; > int (*tclGetDate) (char * p, unsigned long now, long zone, unsigned long * timePtr); > Tcl_Channel (*tclpGetDefaultStdChannel) (int type); > Tcl_Obj * (*tclGetElementOfIndexedArray) (Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg); > void *reserved30; > char * (*tclGetExtension) (char * name); > int (*tclGetFrame) (Tcl_Interp * interp, char * str, CallFrame ** framePtrPtr); > TclCmdProcType (*tclGetInterpProc) (void); > int (*tclGetIntForIndex) (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); > Tcl_Obj * (*tclGetIndexedScalar) (Tcl_Interp * interp, int localIndex, int leaveErrorMsg); > int (*tclGetLong) (Tcl_Interp * interp, char * str, long * longPtr); > int (*tclGetLoadedPackages) (Tcl_Interp * interp, char * targetName); > int (*tclGetNamespaceForQualName) (Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr); > TclObjCmdProcType (*tclGetObjInterpProc) (void); > int (*tclGetOpenMode) (Tcl_Interp * interp, char * str, int * seekFlagPtr); > Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); > char * (*tclpGetUserHome) (const char * name, Tcl_DString * bufferPtr); > int (*tclGlobalInvoke) (Tcl_Interp * interp, int argc, char ** argv, int flags); > int (*tclGuessPackageName) (char * fileName, Tcl_DString * bufPtr); > int (*tclHideUnsafeCommands) (Tcl_Interp * interp); > int (*tclInExit) (void); > Tcl_Obj * (*tclIncrElementOfIndexedArray) (Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount); > Tcl_Obj * (*tclIncrIndexedScalar) (Tcl_Interp * interp, int localIndex, long incrAmount); > Tcl_Obj * (*tclIncrVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed); > void (*tclInitCompiledLocals) (Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr); > int (*tclInterpInit) (Tcl_Interp * interp); > int (*tclInvoke) (Tcl_Interp * interp, int argc, char ** argv, int flags); > int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp * interp, int argc, char ** argv); > int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > Proc * (*tclIsProc) (Command * cmdPtr); > void *reserved56; > void *reserved57; > Var * (*tclLookupVar) (Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr); > int (*tclpMatchFiles) (Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail); > int (*tclNeedSpace) (char * start, char * end); > Tcl_Obj * (*tclNewProcBodyObj) (Proc * procPtr); > int (*tclObjCommandComplete) (Tcl_Obj * cmdPtr); > int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*tclObjInvoke) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); > int (*tclObjInvokeGlobal) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); > int (*tclOpenFileChannelDeleteProc) (TclOpenFileChannelProc_ * proc); > int (*tclOpenFileChannelInsertProc) (TclOpenFileChannelProc_ * proc); > int (*tclpAccess) (const char * path, int mode); > char * (*tclpAlloc) (unsigned int size); > int (*tclpCopyFile) (const char * source, const char * dest); > int (*tclpCopyDirectory) (const char * source, const char * dest, Tcl_DString * errorPtr); > int (*tclpCreateDirectory) (const char * path); > int (*tclpDeleteFile) (const char * path); > void (*tclpFree) (char * ptr); > unsigned long (*tclpGetClicks) (void); > unsigned long (*tclpGetSeconds) (void); > void (*tclpGetTime) (Tcl_Time * time); > int (*tclpGetTimeZone) (unsigned long time); > int (*tclpListVolumes) (Tcl_Interp * interp); > Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp * interp, char * fileName, char * modeString, int permissions); > char * (*tclpRealloc) (char * ptr, unsigned int size); > int (*tclpRemoveDirectory) (const char * path, int recursive, Tcl_DString * errorPtr); > int (*tclpRenameFile) (const char * source, const char * dest); > void *reserved84; > void *reserved85; > void *reserved86; > void *reserved87; > char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags); > int (*tclPreventAliasLoop) (Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd); > void *reserved90; > void (*tclProcCleanupProc) (Proc * procPtr); > int (*tclProcCompileProc) (Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, const char * description, const char * procName); > void (*tclProcDeleteProc) (ClientData clientData); > int (*tclProcInterpProc) (ClientData clientData, Tcl_Interp * interp, int argc, char ** argv); > int (*tclpStat) (const char * path, struct stat * buf); > int (*tclRenameCommand) (Tcl_Interp * interp, char * oldName, char * newName); > void (*tclResetShadowedCmdRefs) (Tcl_Interp * interp, Command * newCmdPtr); > int (*tclServiceIdle) (void); > Tcl_Obj * (*tclSetElementOfIndexedArray) (Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg); > Tcl_Obj * (*tclSetIndexedScalar) (Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg); > > char * (*tclSetPreInitScript) (char * string); > > > > > > > > void (*tclSetupEnv) (Tcl_Interp * interp); > int (*tclSockGetPort) (Tcl_Interp * interp, char * str, char * proto, int * portPtr); > > int (*tclSockMinimumBuffers) (int sock, int size); > > > > > > > > int (*tclStat) (const char * path, struct stat * buf); > int (*tclStatDeleteProc) (TclStatProc_ * proc); > int (*tclStatInsertProc) (TclStatProc_ * proc); > void (*tclTeardownNamespace) (Namespace * nsPtr); > int (*tclUpdateReturnInfo) (Interp * iPtr); > void *reserved110; > void (*tcl_AddInterpResolvers) (Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); > int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); > Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); > void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); > int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst); > Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags); > Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags); > int (*tcl_GetInterpResolvers) (Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo); > int (*tcl_GetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo); > Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags); > int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern); > Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); > void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); > Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); > Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); > void (*tcl_GetVariableFullName) (Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr); > int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite); > void (*tcl_PopCallFrame) (Tcl_Interp* interp); > int (*tcl_PushCallFrame) (Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame); > int (*tcl_RemoveInterpResolvers) (Tcl_Interp * interp, char * name); > void (*tcl_SetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); > int (*tclpHasSockets) (Tcl_Interp * interp); > struct tm * (*tclpGetDate) (TclpTime_t time, int useGMT); > size_t (*tclpStrftime) (char * s, size_t maxsize, const char * format, const struct tm * t); > int (*tclpCheckStackSpace) (void); > void *reserved136; > int (*tclpChdir) (const char * dirName); > char * (*tclGetEnv) (const char * name, Tcl_DString * valuePtr); > int (*tclpLoadFile) (Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr); > int (*tclLooksLikeInt) (char * bytes, int length); > char * (*tclpGetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); > int (*tclSetByteCodeFromAny) (Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData); > int (*tclAddLiteralObj) (struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr); > void (*tclHideLiteral) (Tcl_Interp * interp, struct CompileEnv * envPtr, int index); > struct AuxDataType * (*tclGetAuxDataType) (char * typeName); > TclHandle (*tclHandleCreate) (void * ptr); > void (*tclHandleFree) (TclHandle handle); > TclHandle (*tclHandlePreserve) (TclHandle handle); > void (*tclHandleRelease) (TclHandle handle); > int (*tclRegAbout) (Tcl_Interp * interp, Tcl_RegExp re); > void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int * startPtr, int * endPtr); > void (*tclSetLibraryPath) (Tcl_Obj * pathPtr); > Tcl_Obj * (*tclGetLibraryPath) (void); > void *reserved154; > void *reserved155; > void (*tclRegError) (Tcl_Interp * interp, char * msg, int status); > Var * (*tclVarTraceExists) (Tcl_Interp * interp, char * varName); > void (*tclSetStartupScriptFileName) (char * filename); > char * (*tclGetStartupScriptFileName) (void); > int (*tclpMatchFilesTypes) (Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types); > int (*tclChannelTransform) (Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr); > void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); > void * (*tclGetInstructionTable) (void); > void (*tclExpandCodeArray) (void * envPtr); >} TclIntStubs; > > > > >extern TclIntStubs *tclIntStubsPtr; ># 2217 "/usr/lib/tcl8.3/include/generic/tclInt.h" 2 ># 54 "itcl/generic/itclInt.h" 2 ># 67 "itcl/generic/itclInt.h" >struct ItclObject; >typedef struct ItclObjectInfo { > Tcl_Interp *interp; > Tcl_HashTable objects; > > Itcl_Stack transparentFrames; > > > > > > Tcl_HashTable contextFrames; > > int protection; > > Itcl_Stack cdefnStack; > >} ItclObjectInfo; > > > > > > >typedef struct ItclClass { > char *name; > char *fullname; > Tcl_Interp *interp; > Tcl_Namespace *namesp; > Tcl_Command accessCmd; > > struct ItclObjectInfo *info; > Itcl_List bases; > Itcl_List derived; > Tcl_HashTable heritage; > > > > Tcl_Obj *initCode; > Tcl_HashTable variables; > > > Tcl_HashTable functions; > > > int numInstanceVars; > > Tcl_HashTable resolveVars; > > Tcl_HashTable resolveCmds; > > int unique; > int flags; >} ItclClass; > >typedef struct ItclHierIter { > ItclClass *current; > Itcl_Stack stack; >} ItclHierIter; > > > > >typedef struct ItclObject { > ItclClass *classDefn; > Tcl_Command accessCmd; > > int dataSize; > Var** data; > Tcl_HashTable* constructed; > Tcl_HashTable* destructed; >} ItclObject; > > > > > > >typedef struct ItclMemberCode { > int flags; > CompiledLocal *arglist; > int argcount; > Proc *procPtr; > > union { > Tcl_CmdProc *argCmd; > Tcl_ObjCmdProc *objCmd; > } cfunc; > > ClientData clientData; > >} ItclMemberCode; > > > > >typedef struct ItclMember { > Tcl_Interp* interp; > ItclClass* classDefn; > char* name; > char* fullname; > int protection; > int flags; > ItclMemberCode *code; >} ItclMember; ># 194 "itcl/generic/itclInt.h" >typedef struct ItclMemberFunc { > ItclMember *member; > Tcl_Command accessCmd; > CompiledLocal *arglist; > int argcount; >} ItclMemberFunc; > > > > >typedef struct ItclVarDefn { > ItclMember *member; > char* init; >} ItclVarDefn; > > > > >typedef struct ItclVarLookup { > ItclVarDefn* vdefn; > int usage; > int accessible; > > char *leastQualName; > > > > union { > int index; > Tcl_Var common; > } var; >} ItclVarLookup; ># 234 "itcl/generic/itclInt.h" >typedef struct ItclContext { > ItclClass *classDefn; > CallFrame frame; > Var *compiledLocals; > Var localStorage[20]; >} ItclContext; ># 249 "itcl/generic/itclInt.h" ># 1 "itcl/generic/itclIntDecls.h" 1 ># 33 "itcl/generic/itclIntDecls.h" >extern int Itcl_IsClassNamespace ( Tcl_Namespace * namesp); > > >extern int Itcl_IsClass (Tcl_Command cmd); > >extern ItclClass* Itcl_FindClass (Tcl_Interp* interp, char* path, int autoload); > > >extern int Itcl_FindObject (Tcl_Interp * interp, char * name, ItclObject ** roPtr); > > >extern int Itcl_IsObject (Tcl_Command cmd); > >extern int Itcl_ObjectIsa (ItclObject * contextObj, ItclClass * cdefn); > > >extern int Itcl_Protection (Tcl_Interp * interp, int newLevel); > > >extern char* Itcl_ProtectionStr (int pLevel); > >extern int Itcl_CanAccess (ItclMember* memberPtr, Tcl_Namespace* fromNsPtr); > > >extern int Itcl_CanAccessFunc ( ItclMemberFunc* mfunc, Tcl_Namespace* fromNsPtr); > > > >extern Tcl_Namespace* Itcl_GetTrueNamespace ( Tcl_Interp * interp, ItclObjectInfo * info); > > >extern void Itcl_ParseNamespPath (char * name, Tcl_DString * buffer, char ** head, char ** tail); > > > >extern int Itcl_DecodeScopedCommand ( Tcl_Interp * interp, char * name, Tcl_Namespace ** rNsPtr, char ** rCmdPtr); > > > >extern int Itcl_EvalArgs (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > >extern Tcl_Obj* Itcl_CreateArgs (Tcl_Interp * interp, char * string, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_PushContext (Tcl_Interp * interp, ItclMember * member, ItclClass * contextClass, ItclObject * contextObj, ItclContext * contextPtr); > > > > > >extern void Itcl_PopContext (Tcl_Interp * interp, ItclContext * contextPtr); > > >extern int Itcl_GetContext (Tcl_Interp * interp, ItclClass ** cdefnPtr, ItclObject ** odefnPtr); > > > >extern void Itcl_InitHierIter (ItclHierIter * iter, ItclClass * cdefn); > > >extern void Itcl_DeleteHierIter (ItclHierIter * iter); > >extern ItclClass* Itcl_AdvanceHierIter ( ItclHierIter * iter); > > >extern int Itcl_FindClassesCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_FindObjectsCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ProtectionCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_DelClassCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_DelObjectCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ScopeCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_CodeCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_StubCreateCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_StubExistsCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_IsStub (Tcl_Command cmd); > >extern int Itcl_CreateClass (Tcl_Interp* interp, char* path, ItclObjectInfo * info, ItclClass ** rPtr); > > > >extern int Itcl_DeleteClass (Tcl_Interp * interp, ItclClass * cdefnPtr); > > >extern Tcl_Namespace* Itcl_FindClassNamespace ( Tcl_Interp* interp, char* path); > > >extern int Itcl_HandleClass (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassCmdResolver ( Tcl_Interp * interp, const char* name, Tcl_Namespace * context, int flags, Tcl_Command * rPtr); > > > > >extern int Itcl_ClassVarResolver ( Tcl_Interp * interp, char* name, Tcl_Namespace * context, int flags, Tcl_Var * rPtr); > > > > >extern int Itcl_ClassCompiledVarResolver ( Tcl_Interp * interp, char* name, int length, Tcl_Namespace * context, Tcl_ResolvedVarInfo ** rPtr); > > > > >extern void Itcl_BuildVirtualTables ( ItclClass* cdefnPtr); > > >extern int Itcl_CreateVarDefn (Tcl_Interp * interp, ItclClass* cdefn, char* name, char* init, char* config, ItclVarDefn** vdefnPtr); > > > >extern void Itcl_DeleteVarDefn (ItclVarDefn * vdefn); > >extern char* Itcl_GetCommonVar (Tcl_Interp * interp, char * name, ItclClass * contextClass); > > >extern ItclMember* Itcl_CreateMember (Tcl_Interp* interp, ItclClass * cdefn, char* name); > > >extern void Itcl_DeleteMember (ItclMember * memPtr); > >extern int Itcl_CreateObject (Tcl_Interp * interp, char* name, ItclClass * cdefn, int objc, Tcl_Obj *const objv[], ItclObject ** roPtr); > > > >extern int Itcl_DeleteObject (Tcl_Interp * interp, ItclObject * contextObj); > > >extern int Itcl_DestructObject (Tcl_Interp * interp, ItclObject * contextObj, int flags); > > >extern int Itcl_HandleInstance ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern char* Itcl_GetInstanceVar (Tcl_Interp * interp, char * name, ItclObject * contextObj, ItclClass * contextClass); > > > >extern int Itcl_ScopedVarResolver ( Tcl_Interp * interp, char * name, Tcl_Namespace * contextNs, int flags, Tcl_Var * rPtr); > > > > >extern int Itcl_BodyCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ConfigBodyCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_CreateMethod (Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body); > > > >extern int Itcl_CreateProc (Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body); > > > >extern int Itcl_CreateMemberFunc ( Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body, ItclMemberFunc** mfuncPtr); > > > > >extern int Itcl_ChangeMemberFunc ( Tcl_Interp* interp, ItclMemberFunc* mfunc, char* arglist, char* body); > > > >extern void Itcl_DeleteMemberFunc (char* cdata); > >extern int Itcl_CreateMemberCode ( Tcl_Interp* interp, ItclClass * cdefn, char* arglist, char* body, ItclMemberCode** mcodePtr); > > > > >extern void Itcl_DeleteMemberCode (char* cdata); > >extern int Itcl_GetMemberCode (Tcl_Interp* interp, ItclMember* member); > > > >extern int Itcl_EvalMemberCode (Tcl_Interp * interp, ItclMemberFunc * mfunc, ItclMember * member, ItclObject * contextObj, int objc, Tcl_Obj *const objv[]); > > > > >extern int Itcl_CreateArgList (Tcl_Interp* interp, char* decl, int* argcPtr, CompiledLocal** argPtr); > > > >extern CompiledLocal* Itcl_CreateArg (char* name, char* init); > >extern void Itcl_DeleteArgList ( CompiledLocal * arglist); > > >extern Tcl_Obj* Itcl_ArgList (int argc, CompiledLocal* arglist); > > >extern int Itcl_EquivArgLists (CompiledLocal* arg1, int arg1c, CompiledLocal* arg2, int arg2c); > > >extern void Itcl_GetMemberFuncUsage ( ItclMemberFunc * mfunc, ItclObject * contextObj, Tcl_Obj * objPtr); > > > >extern int Itcl_ExecMethod (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ExecProc (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_AssignArgs (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], ItclMemberFunc * mfunc); > > > >extern int Itcl_ConstructBase (Tcl_Interp * interp, ItclObject * contextObj, ItclClass * contextClass); > > > >extern int Itcl_InvokeMethodIfExists ( Tcl_Interp * interp, char * name, ItclClass * contextClass, ItclObject * contextObj, int objc, Tcl_Obj *const objv[]); > > > > > > >extern int Itcl_ReportFuncErrors ( Tcl_Interp* interp, ItclMemberFunc * mfunc, ItclObject * contextObj, int result); > > > >extern int Itcl_ParseInit (Tcl_Interp * interp, ItclObjectInfo * info); > > >extern int Itcl_ClassCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassInheritCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassProtectionCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassConstructorCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassDestructorCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassMethodCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassProcCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassVariableCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ClassCommonCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_ParseVarResolver ( Tcl_Interp * interp, char* name, Tcl_Namespace * contextNs, int flags, Tcl_Var* rPtr); > > > > >extern int Itcl_BiInit (Tcl_Interp * interp); > >extern int Itcl_InstallBiMethods ( Tcl_Interp * interp, ItclClass * cdefn); > > >extern int Itcl_BiIsaCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiConfigureCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiCgetCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiChainCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoClassCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoInheritCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoHeritageCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoFunctionCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoVariableCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoBodyCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_BiInfoArgsCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_DefaultInfoCmd (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_EnsembleInit (Tcl_Interp * interp); > >extern int Itcl_CreateEnsemble (Tcl_Interp * interp, char* ensName); > > >extern int Itcl_AddEnsemblePart ( Tcl_Interp * interp, char* ensName, char* partName, char* usageInfo, Tcl_ObjCmdProc * objProc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > > > > > > >extern int Itcl_GetEnsemblePart ( Tcl_Interp * interp, char * ensName, char * partName, Tcl_CmdInfo * infoPtr); > > > >extern int Itcl_IsEnsemble (Tcl_CmdInfo* infoPtr); > >extern int Itcl_GetEnsembleUsage ( Tcl_Interp * interp, char * ensName, Tcl_Obj * objPtr); > > > >extern int Itcl_GetEnsembleUsageForObj ( Tcl_Interp * interp, Tcl_Obj * ensObjPtr, Tcl_Obj * objPtr); > > > >extern int Itcl_EnsembleCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_EnsPartCmd (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_EnsembleErrorCmd ( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > > > >extern int Itcl_OldInit (Tcl_Interp* interp, ItclObjectInfo* info); > > >extern int Itcl_InstallOldBiMethods ( Tcl_Interp * interp, ItclClass * cdefn); > > >extern Tcl_CallFrame* _Tcl_GetCallFrame (Tcl_Interp * interp, int level); > > >extern Tcl_CallFrame* _Tcl_ActivateCallFrame ( Tcl_Interp * interp, Tcl_CallFrame * framePtr); > > > >extern Var* _TclNewVar (void); > >extern void Itcl_Assert (char * testExpr, char * fileName, int lineNum); > > >typedef struct ItclIntStubs { > int magic; > struct ItclIntStubHooks *hooks; > > int (*itcl_IsClassNamespace) (Tcl_Namespace * namesp); > int (*itcl_IsClass) (Tcl_Command cmd); > ItclClass* (*itcl_FindClass) (Tcl_Interp* interp, char* path, int autoload); > int (*itcl_FindObject) (Tcl_Interp * interp, char * name, ItclObject ** roPtr); > int (*itcl_IsObject) (Tcl_Command cmd); > int (*itcl_ObjectIsa) (ItclObject * contextObj, ItclClass * cdefn); > int (*itcl_Protection) (Tcl_Interp * interp, int newLevel); > char* (*itcl_ProtectionStr) (int pLevel); > int (*itcl_CanAccess) (ItclMember* memberPtr, Tcl_Namespace* fromNsPtr); > int (*itcl_CanAccessFunc) (ItclMemberFunc* mfunc, Tcl_Namespace* fromNsPtr); > Tcl_Namespace* (*itcl_GetTrueNamespace) (Tcl_Interp * interp, ItclObjectInfo * info); > void (*itcl_ParseNamespPath) (char * name, Tcl_DString * buffer, char ** head, char ** tail); > int (*itcl_DecodeScopedCommand) (Tcl_Interp * interp, char * name, Tcl_Namespace ** rNsPtr, char ** rCmdPtr); > int (*itcl_EvalArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > Tcl_Obj* (*itcl_CreateArgs) (Tcl_Interp * interp, char * string, int objc, Tcl_Obj *const objv[]); > int (*itcl_PushContext) (Tcl_Interp * interp, ItclMember * member, ItclClass * contextClass, ItclObject * contextObj, ItclContext * contextPtr); > void (*itcl_PopContext) (Tcl_Interp * interp, ItclContext * contextPtr); > int (*itcl_GetContext) (Tcl_Interp * interp, ItclClass ** cdefnPtr, ItclObject ** odefnPtr); > void (*itcl_InitHierIter) (ItclHierIter * iter, ItclClass * cdefn); > void (*itcl_DeleteHierIter) (ItclHierIter * iter); > ItclClass* (*itcl_AdvanceHierIter) (ItclHierIter * iter); > int (*itcl_FindClassesCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_FindObjectsCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ProtectionCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_DelClassCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_DelObjectCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ScopeCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_CodeCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_StubCreateCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_StubExistsCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_IsStub) (Tcl_Command cmd); > int (*itcl_CreateClass) (Tcl_Interp* interp, char* path, ItclObjectInfo * info, ItclClass ** rPtr); > int (*itcl_DeleteClass) (Tcl_Interp * interp, ItclClass * cdefnPtr); > Tcl_Namespace* (*itcl_FindClassNamespace) (Tcl_Interp* interp, char* path); > int (*itcl_HandleClass) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassCmdResolver) (Tcl_Interp * interp, const char* name, Tcl_Namespace * context, int flags, Tcl_Command * rPtr); > int (*itcl_ClassVarResolver) (Tcl_Interp * interp, char* name, Tcl_Namespace * context, int flags, Tcl_Var * rPtr); > int (*itcl_ClassCompiledVarResolver) (Tcl_Interp * interp, char* name, int length, Tcl_Namespace * context, Tcl_ResolvedVarInfo ** rPtr); > void (*itcl_BuildVirtualTables) (ItclClass* cdefnPtr); > int (*itcl_CreateVarDefn) (Tcl_Interp * interp, ItclClass* cdefn, char* name, char* init, char* config, ItclVarDefn** vdefnPtr); > void (*itcl_DeleteVarDefn) (ItclVarDefn * vdefn); > char* (*itcl_GetCommonVar) (Tcl_Interp * interp, char * name, ItclClass * contextClass); > ItclMember* (*itcl_CreateMember) (Tcl_Interp* interp, ItclClass * cdefn, char* name); > void (*itcl_DeleteMember) (ItclMember * memPtr); > int (*itcl_CreateObject) (Tcl_Interp * interp, char* name, ItclClass * cdefn, int objc, Tcl_Obj *const objv[], ItclObject ** roPtr); > int (*itcl_DeleteObject) (Tcl_Interp * interp, ItclObject * contextObj); > int (*itcl_DestructObject) (Tcl_Interp * interp, ItclObject * contextObj, int flags); > int (*itcl_HandleInstance) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > char* (*itcl_GetInstanceVar) (Tcl_Interp * interp, char * name, ItclObject * contextObj, ItclClass * contextClass); > int (*itcl_ScopedVarResolver) (Tcl_Interp * interp, char * name, Tcl_Namespace * contextNs, int flags, Tcl_Var * rPtr); > int (*itcl_BodyCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ConfigBodyCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_CreateMethod) (Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body); > int (*itcl_CreateProc) (Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body); > int (*itcl_CreateMemberFunc) (Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body, ItclMemberFunc** mfuncPtr); > int (*itcl_ChangeMemberFunc) (Tcl_Interp* interp, ItclMemberFunc* mfunc, char* arglist, char* body); > void (*itcl_DeleteMemberFunc) (char* cdata); > int (*itcl_CreateMemberCode) (Tcl_Interp* interp, ItclClass * cdefn, char* arglist, char* body, ItclMemberCode** mcodePtr); > void (*itcl_DeleteMemberCode) (char* cdata); > int (*itcl_GetMemberCode) (Tcl_Interp* interp, ItclMember* member); > void *reserved60; > int (*itcl_EvalMemberCode) (Tcl_Interp * interp, ItclMemberFunc * mfunc, ItclMember * member, ItclObject * contextObj, int objc, Tcl_Obj *const objv[]); > int (*itcl_CreateArgList) (Tcl_Interp* interp, char* decl, int* argcPtr, CompiledLocal** argPtr); > CompiledLocal* (*itcl_CreateArg) (char* name, char* init); > void (*itcl_DeleteArgList) (CompiledLocal * arglist); > Tcl_Obj* (*itcl_ArgList) (int argc, CompiledLocal* arglist); > int (*itcl_EquivArgLists) (CompiledLocal* arg1, int arg1c, CompiledLocal* arg2, int arg2c); > void (*itcl_GetMemberFuncUsage) (ItclMemberFunc * mfunc, ItclObject * contextObj, Tcl_Obj * objPtr); > int (*itcl_ExecMethod) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ExecProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_AssignArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], ItclMemberFunc * mfunc); > int (*itcl_ConstructBase) (Tcl_Interp * interp, ItclObject * contextObj, ItclClass * contextClass); > int (*itcl_InvokeMethodIfExists) (Tcl_Interp * interp, char * name, ItclClass * contextClass, ItclObject * contextObj, int objc, Tcl_Obj *const objv[]); > void *reserved73; > int (*itcl_ReportFuncErrors) (Tcl_Interp* interp, ItclMemberFunc * mfunc, ItclObject * contextObj, int result); > int (*itcl_ParseInit) (Tcl_Interp * interp, ItclObjectInfo * info); > int (*itcl_ClassCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassInheritCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassProtectionCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassConstructorCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassDestructorCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassMethodCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassProcCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassVariableCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ClassCommonCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_ParseVarResolver) (Tcl_Interp * interp, char* name, Tcl_Namespace * contextNs, int flags, Tcl_Var* rPtr); > int (*itcl_BiInit) (Tcl_Interp * interp); > int (*itcl_InstallBiMethods) (Tcl_Interp * interp, ItclClass * cdefn); > int (*itcl_BiIsaCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiConfigureCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiCgetCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiChainCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoClassCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoInheritCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoHeritageCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoFunctionCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoVariableCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoBodyCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_BiInfoArgsCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_DefaultInfoCmd) (ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_EnsembleInit) (Tcl_Interp * interp); > int (*itcl_CreateEnsemble) (Tcl_Interp * interp, char* ensName); > int (*itcl_AddEnsemblePart) (Tcl_Interp * interp, char* ensName, char* partName, char* usageInfo, Tcl_ObjCmdProc * objProc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); > int (*itcl_GetEnsemblePart) (Tcl_Interp * interp, char * ensName, char * partName, Tcl_CmdInfo * infoPtr); > int (*itcl_IsEnsemble) (Tcl_CmdInfo* infoPtr); > int (*itcl_GetEnsembleUsage) (Tcl_Interp * interp, char * ensName, Tcl_Obj * objPtr); > int (*itcl_GetEnsembleUsageForObj) (Tcl_Interp * interp, Tcl_Obj * ensObjPtr, Tcl_Obj * objPtr); > int (*itcl_EnsembleCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_EnsPartCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_EnsembleErrorCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); > int (*itcl_OldInit) (Tcl_Interp* interp, ItclObjectInfo* info); > int (*itcl_InstallOldBiMethods) (Tcl_Interp * interp, ItclClass * cdefn); > Tcl_CallFrame* (*_Tcl_GetCallFrame) (Tcl_Interp * interp, int level); > Tcl_CallFrame* (*_Tcl_ActivateCallFrame) (Tcl_Interp * interp, Tcl_CallFrame * framePtr); > Var* (*_TclNewVar) (void); > void (*itcl_Assert) (char * testExpr, char * fileName, int lineNum); >} ItclIntStubs; > > > > >extern ItclIntStubs *itclIntStubsPtr; ># 250 "itcl/generic/itclInt.h" 2 ># 34 "itcl/generic/itcl_class.c" 2 > > > > > >typedef struct ItclResolvedVarInfo { > Tcl_ResolvedVarInfo vinfo; > ItclVarLookup *vlookup; >} ItclResolvedVarInfo; > > > > >static void ItclDestroyClass (ClientData cdata); >static void ItclDestroyClassNamesp (ClientData cdata); >static void ItclFreeClass (char* cdata); > >static Tcl_Var ItclClassRuntimeVarResolver ( Tcl_Interp *interp, Tcl_ResolvedVarInfo *vinfoPtr); > > >extern int itclCompatFlags; ># 68 "itcl/generic/itcl_class.c" >int >Itcl_CreateClass(interp, path, info, rPtr) > Tcl_Interp* interp; > char* path; > ItclObjectInfo *info; > ItclClass **rPtr; >{ > char *head, *tail; > Tcl_DString buffer; > Tcl_Command cmd; > Tcl_Namespace *classNs; > ItclClass *cdPtr; > ItclVarDefn *vdefn; > Tcl_HashEntry *entry; > int newEntry; ># 92 "itcl/generic/itcl_class.c" > classNs = (tclIntStubsPtr->tcl_FindNamespace)(interp, path, (Tcl_Namespace*)((void *)0), > 0); > > if (classNs != ((void *)0) && Itcl_IsClassNamespace(classNs)) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "class \"", path, "\" already exists", > (char*)((void *)0)); > return 1; > } > > > > > > > > cmd = (tclIntStubsPtr->tcl_FindCommand)(interp, path, (Tcl_Namespace*)((void *)0), > 2); > > if (cmd != ((void *)0) && !Itcl_IsStub(cmd)) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "command \"", path, "\" already exists", > (char*)((void *)0)); > > if (strstr(path,"::") == ((void *)0)) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > " in namespace \"", > (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp)->fullName, "\"", > (char*)((void *)0)); > } > return 1; > } > > > > > > > > Itcl_ParseNamespPath(path, &buffer, &head, &tail); > > if (strstr(tail,".")) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "bad class name \"", tail, "\"", > (char*)((void *)0)); > (tclStubsPtr->tcl_DStringFree)(&buffer); > return 1; > } > (tclStubsPtr->tcl_DStringFree)(&buffer); > > > > > cdPtr = (ItclClass*)(tclStubsPtr->tcl_Alloc)(sizeof(ItclClass)); > cdPtr->name = ((void *)0); > cdPtr->fullname = ((void *)0); > cdPtr->interp = interp; > cdPtr->info = info; Itcl_PreserveData((ClientData)info); > cdPtr->namesp = ((void *)0); > cdPtr->accessCmd = ((void *)0); > > (tclStubsPtr->tcl_InitHashTable)(&cdPtr->variables, 0); > (tclStubsPtr->tcl_InitHashTable)(&cdPtr->functions, 0); > > cdPtr->numInstanceVars = 0; > (tclStubsPtr->tcl_InitHashTable)(&cdPtr->resolveVars, 0); > (tclStubsPtr->tcl_InitHashTable)(&cdPtr->resolveCmds, 0); > > Itcl_InitList(&cdPtr->bases); > Itcl_InitList(&cdPtr->derived); > > cdPtr->initCode = ((void *)0); > cdPtr->unique = 0; > cdPtr->flags = 0; > > > > > > > (tclStubsPtr->tcl_InitHashTable)(&cdPtr->heritage, 1); > (void) (*((&cdPtr->heritage)->createProc))(&cdPtr->heritage, (char*)cdPtr, &newEntry); > > > > > > > > Itcl_PreserveData((ClientData)cdPtr); > > if (classNs == ((void *)0)) { > classNs = (tclIntStubsPtr->tcl_CreateNamespace)(interp, path, > (ClientData)cdPtr, ItclDestroyClassNamesp); > } > else { > if (classNs->clientData && classNs->deleteProc) { > (*classNs->deleteProc)(classNs->clientData); > } > classNs->clientData = (ClientData)cdPtr; > classNs->deleteProc = ItclDestroyClassNamesp; > } > > Itcl_EventuallyFree((ClientData)cdPtr, ItclFreeClass); > > if (classNs == ((void *)0)) { > Itcl_ReleaseData((ClientData)cdPtr); > return 1; > } > > cdPtr->namesp = classNs; > > cdPtr->name = (char*)(tclStubsPtr->tcl_Alloc)((unsigned)(strlen(classNs->name)+1)); > strcpy(cdPtr->name, classNs->name); > > cdPtr->fullname = (char*)(tclStubsPtr->tcl_Alloc)((unsigned)(strlen(classNs->fullName)+1)); > strcpy(cdPtr->fullname, classNs->fullName); > > > > > > > (tclIntStubsPtr->tcl_SetNamespaceResolvers)(classNs, Itcl_ClassCmdResolver, > Itcl_ClassVarResolver, Itcl_ClassCompiledVarResolver); > > > > > (void) Itcl_CreateVarDefn(interp, cdPtr, "this", > (char*)((void *)0), (char*)((void *)0), &vdefn); > > vdefn->member->protection = 2; > vdefn->member->flags |= 0x200; > > entry = (*((&cdPtr->variables)->createProc))(&cdPtr->variables, "this", &newEntry); > ((entry)->clientData = (ClientData) ((ClientData)vdefn)); > > > > > > > Itcl_PreserveData((ClientData)cdPtr); > > cdPtr->accessCmd = (tclStubsPtr->tcl_CreateObjCommand)(interp, > cdPtr->fullname, Itcl_HandleClass, > (ClientData)cdPtr, ItclDestroyClass); > > *rPtr = cdPtr; > return 0; >} ># 259 "itcl/generic/itcl_class.c" >int >Itcl_DeleteClass(interp, cdefnPtr) > Tcl_Interp *interp; > ItclClass *cdefnPtr; >{ > ItclClass *cdPtr = ((void *)0); > > Itcl_ListElem *elem; > ItclObject *contextObj; > Tcl_HashEntry *entry; > Tcl_HashSearch place; > Tcl_DString buffer; ># 280 "itcl/generic/itcl_class.c" > elem = ((&cdefnPtr->derived)->head); > while (elem) { > cdPtr = (ItclClass*)((elem)->value); > elem = ((elem)->next); > > if (Itcl_DeleteClass(interp, cdPtr) != 0) { > goto deleteClassFail; > } > } > > > > > > > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->info->objects, &place); > while (entry) { > contextObj = (ItclObject*)((entry)->clientData); > > if (contextObj->classDefn == cdefnPtr) { > if (Itcl_DeleteObject(interp, contextObj) != 0) { > cdPtr = cdefnPtr; > goto deleteClassFail; > } ># 313 "itcl/generic/itcl_class.c" > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->info->objects, &place); > continue; > } > > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } ># 329 "itcl/generic/itcl_class.c" > (tclIntStubsPtr->tcl_DeleteNamespace)(cdefnPtr->namesp); > return 0; > >deleteClassFail: > (tclStubsPtr->tcl_DStringInit)(&buffer); > (tclStubsPtr->tcl_DStringAppend)(&buffer, "\n (while deleting class \"", -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, cdPtr->namesp->fullName, -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, "\")", -1); > (tclStubsPtr->tcl_AddErrorInfo)(interp, ((&buffer)->string)); > (tclStubsPtr->tcl_DStringFree)(&buffer); > return 1; >} ># 356 "itcl/generic/itcl_class.c" >static void >ItclDestroyClass(cdata) > ClientData cdata; >{ > ItclClass *cdefnPtr = (ItclClass*)cdata; > cdefnPtr->accessCmd = ((void *)0); > > (tclIntStubsPtr->tcl_DeleteNamespace)(cdefnPtr->namesp); > Itcl_ReleaseData((ClientData)cdefnPtr); >} ># 380 "itcl/generic/itcl_class.c" >static void >ItclDestroyClassNamesp(cdata) > ClientData cdata; >{ > ItclClass *cdefnPtr = (ItclClass*)cdata; > ItclObject *contextObj; > Itcl_ListElem *elem, *belem; > ItclClass *cdPtr, *basePtr, *derivedPtr; > Tcl_HashEntry *entry; > Tcl_HashSearch place; ># 398 "itcl/generic/itcl_class.c" > elem = ((&cdefnPtr->derived)->head); > while (elem) { > cdPtr = (ItclClass*)((elem)->value); > elem = ((elem)->next); > > (tclIntStubsPtr->tcl_DeleteNamespace)(cdPtr->namesp); > } > > > > > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->info->objects, &place); > while (entry) { > contextObj = (ItclObject*)((entry)->clientData); > if (contextObj->classDefn == cdefnPtr) { > (tclStubsPtr->tcl_DeleteCommandFromToken)(cdefnPtr->interp, contextObj->accessCmd); > > > > > > > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->info->objects, &place); > continue; > } > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > > > > > > belem = ((&cdefnPtr->bases)->head); > while (belem) { > basePtr = (ItclClass*)((belem)->value); > > elem = ((&basePtr->derived)->head); > while (elem) { > derivedPtr = (ItclClass*)((elem)->value); > if (derivedPtr == cdefnPtr) { > Itcl_ReleaseData( ((elem)->value) ); > elem = Itcl_DeleteListElem(elem); > } else { > elem = ((elem)->next); > } > } > belem = ((belem)->next); > } > > > > > if (cdefnPtr->accessCmd) { > Command *cmdPtr = (Command*)cdefnPtr->accessCmd; > > cmdPtr->deleteProc = Itcl_ReleaseData; > (tclStubsPtr->tcl_DeleteCommandFromToken)(cdefnPtr->interp, cdefnPtr->accessCmd); > } > > > > > Itcl_ReleaseData((ClientData)cdefnPtr); >} ># 475 "itcl/generic/itcl_class.c" >static void >ItclFreeClass(cdata) > char *cdata; >{ > ItclClass *cdefnPtr = (ItclClass*)cdata; > > int newEntry; > Itcl_ListElem *elem; > Tcl_HashSearch place; > Tcl_HashEntry *entry, *hPtr; > ItclVarDefn *vdefn; > ItclVarLookup *vlookup; > Var *varPtr; > Tcl_HashTable varTable; > > > > > > > elem = ((&cdefnPtr->derived)->head); > while (elem) { > Itcl_ReleaseData( ((elem)->value) ); > elem = ((elem)->next); > } > Itcl_DeleteList(&cdefnPtr->derived); > > > > > > > (tclStubsPtr->tcl_InitHashTable)(&varTable, 0); > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->resolveVars, &place); > while (entry) { > vlookup = (ItclVarLookup*)((entry)->clientData); > if (--vlookup->usage == 0) { > > > > > > > if ( (vlookup->vdefn->member->flags & 0x040) != 0 && > vlookup->vdefn->member->classDefn == cdefnPtr ) { > varPtr = (Var*)vlookup->var.common; > if (--varPtr->refCount == 0) { > hPtr = (*((&varTable)->createProc))(&varTable, vlookup->vdefn->member->fullname, &newEntry); > > ((hPtr)->clientData = (ClientData) ((ClientData) varPtr)); > } > } > (tclStubsPtr->tcl_Free)((char*)vlookup); > } > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > > (tclIntStubsPtr->tclDeleteVars)((Interp*)cdefnPtr->interp, &varTable); > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->resolveVars); > > > > > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->resolveCmds); > > > > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->variables, &place); > while (entry) { > vdefn = (ItclVarDefn*)((entry)->clientData); > Itcl_DeleteVarDefn(vdefn); > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->variables); > > > > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->functions, &place); > while (entry) { > Itcl_ReleaseData( ((entry)->clientData) ); > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->functions); > > > > > elem = ((&cdefnPtr->bases)->head); > while (elem) { > Itcl_ReleaseData( ((elem)->value) ); > elem = ((elem)->next); > } > Itcl_DeleteList(&cdefnPtr->bases); > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->heritage); > > > > > if (cdefnPtr->initCode) { > if (--(cdefnPtr->initCode)->refCount <= 0) (tclStubsPtr->tclFreeObj)(cdefnPtr->initCode); > } > > Itcl_ReleaseData((ClientData)cdefnPtr->info); > > (tclStubsPtr->tcl_Free)(cdefnPtr->name); > (tclStubsPtr->tcl_Free)(cdefnPtr->fullname); > > (tclStubsPtr->tcl_Free)((char*)cdefnPtr); >} ># 597 "itcl/generic/itcl_class.c" >int >Itcl_IsClassNamespace(namesp) > Tcl_Namespace *namesp; >{ > Namespace *nsPtr = (Namespace*)namesp; > > if (nsPtr != ((void *)0)) { > return (nsPtr->deleteProc == ItclDestroyClassNamesp); > } > return 0; >} ># 618 "itcl/generic/itcl_class.c" >int >Itcl_IsClass(cmd) > Tcl_Command cmd; >{ > Command *cmdPtr = (Command*)cmd; > > if (cmdPtr->deleteProc == ItclDestroyClass) { > return 1; > } > > > > > > cmdPtr = (Command*)(tclIntStubsPtr->tclGetOriginalCommand)(cmd); > if (cmdPtr && cmdPtr->deleteProc == ItclDestroyClass) { > return 1; > } > return 0; >} ># 652 "itcl/generic/itcl_class.c" >ItclClass* >Itcl_FindClass(interp, path, autoload) > Tcl_Interp* interp; > char* path; >{ > Tcl_Namespace* classNs; > > > > > > classNs = Itcl_FindClassNamespace(interp, path); > > if (classNs && Itcl_IsClassNamespace(classNs)) { > return (ItclClass*)classNs->clientData; > } > > > > > > if (autoload) { > if ((tclStubsPtr->tcl_VarEval)(interp, "::auto_load ", path, (char*)((void *)0)) != 0) { > char msg[256]; > sprintf(msg, "\n (while attempting to autoload class \"%.200s\")", path); > (tclStubsPtr->tcl_AddErrorInfo)(interp, msg); > return ((void *)0); > } > (tclStubsPtr->tcl_ResetResult)(interp); > > classNs = Itcl_FindClassNamespace(interp, path); > if (classNs && Itcl_IsClassNamespace(classNs)) { > return (ItclClass*)classNs->clientData; > } > } > > (tclStubsPtr->tcl_AppendResult)(interp, "class \"", path, "\" not found in context \"", > (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp)->fullName, "\"", > (char*)((void *)0)); > > return ((void *)0); >} ># 717 "itcl/generic/itcl_class.c" >Tcl_Namespace* >Itcl_FindClassNamespace(interp, path) > Tcl_Interp* interp; > char* path; >{ > Tcl_Namespace* contextNs = (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp); > Tcl_Namespace* classNs; > Tcl_DString buffer; > > > > > > > classNs = (tclIntStubsPtr->tcl_FindNamespace)(interp, path, (Tcl_Namespace*)((void *)0), > 0); > > if ( !classNs && contextNs->parentPtr != ((void *)0) && > (*path != ':' || *(path+1) != ':') ) { > > if (__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (contextNs->name) && __builtin_constant_p (path) && (__s1_len = strlen (contextNs->name), __s2_len = strlen (path), (!((size_t)(const void *)((contextNs->name) + 1) - (size_t)(const void *)(contextNs->name) == 1) || __s1_len >= 4) && (!((size_t)(const void *)((path) + 1) - (size_t)(const void *)(path) == 1) || __s2_len >= 4)) ? memcmp ((__const char *) (contextNs->name), (__const char *) (path), (__s1_len < __s2_len ? __s1_len : __s2_len) + 1) : (__builtin_constant_p (contextNs->name) && ((size_t)(const void *)((contextNs->name) + 1) - (size_t)(const void *)(contextNs->name) == 1) && (__s1_len = strlen (contextNs->name), __s1_len < 4) ? (__builtin_constant_p (path) && ((size_t)(const void *)((path) + 1) - (size_t)(const void *)(path) == 1) ? (__extension__ ({ register int __result = (((__const unsigned char *) (__const char *) (contextNs->name))[0] - ((__const unsigned char *) (__const char *)(path))[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (contextNs->name))[1] - ((__const unsigned char *) (__const char *) (path))[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (contextNs->name))[2] - ((__const unsigned char *) (__const char *) (path))[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (contextNs->name))[3] - ((__const unsigned char *) (__const char *) (path))[3]); } } __result; })) : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) (path); register int __result = (((__const unsigned char *) (__const char *) (contextNs->name))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (contextNs->name))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (contextNs->name))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (contextNs->name))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p (path) && ((size_t)(const void *)((path) + 1) - (size_t)(const void *)(path) == 1) && (__s2_len = strlen (path), __s2_len < 4) ? (__builtin_constant_p (contextNs->name) && ((size_t)(const void *)((contextNs->name) + 1) - (size_t)(const void *)(contextNs->name) == 1) ? (__extension__ ({ register int __result = (((__const unsigned char *) (__const char *) (contextNs->name))[0] - ((__const unsigned char *) (__const char *)(path))[0]); if (__s2_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (contextNs->name))[1] - ((__const unsigned char *) (__const char *) (path))[1]); if (__s2_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (contextNs->name))[2] - ((__const unsigned char *) (__const char *) (path))[2]); if (__s2_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (contextNs->name))[3] - ((__const unsigned char *) (__const char *) (path))[3]); } } __result; })) : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (contextNs->name); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) (path))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) (path))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) (path))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) (path))[3]); } } __result; }))) : strcmp (contextNs->name, path)))); }) == 0) { > classNs = contextNs; > } > else { > (tclStubsPtr->tcl_DStringInit)(&buffer); > (tclStubsPtr->tcl_DStringAppend)(&buffer, "::", -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, path, -1); > > classNs = (tclIntStubsPtr->tcl_FindNamespace)(interp, ((&buffer)->string), > (Tcl_Namespace*)((void *)0), 0); > > (tclStubsPtr->tcl_DStringFree)(&buffer); > } > } > return classNs; >} ># 776 "itcl/generic/itcl_class.c" >int >Itcl_HandleClass(clientData, interp, objc, objv) > ClientData clientData; > Tcl_Interp *interp; > int objc; > Tcl_Obj *const objv[]; >{ > ItclClass *cdefnPtr = (ItclClass*)clientData; > int result = 0; > > char unique[256]; > Tcl_DString buffer; > char *token, *objName, tmp, *start, *pos, *match; > > ItclObject *newObj; > Tcl_CallFrame frame; ># 800 "itcl/generic/itcl_class.c" > if (objc == 1) { > return 0; > } ># 811 "itcl/generic/itcl_class.c" > token = (tclStubsPtr->tcl_GetStringFromObj)(objv[1], (int*)((void *)0)); > if ((*token == ':') && (__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (token) && __builtin_constant_p ("::") && (__s1_len = strlen (token), __s2_len = strlen ("::"), (!((size_t)(const void *)((token) + 1) - (size_t)(const void *)(token) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("::") + 1) - (size_t)(const void *)("::") == 1) || __s2_len >= 4)) ? memcmp ((__const char *) (token), (__const char *) ("::"), (__s1_len < __s2_len ? __s1_len : __s2_len) + 1) : (__builtin_constant_p (token) && ((size_t)(const void *)((token) + 1) - (size_t)(const void *)(token) == 1) && (__s1_len = strlen (token), __s1_len < 4) ? (__builtin_constant_p ("::") && ((size_t)(const void *)(("::") + 1) - (size_t)(const void *)("::") == 1) ? (__extension__ ({ register int __result = (((__const unsigned char *) (__const char *) (token))[0] - ((__const unsigned char *) (__const char *)("::"))[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (token))[1] - ((__const unsigned char *) (__const char *) ("::"))[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (token))[2] - ((__const unsigned char *) (__const char *) ("::"))[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (token))[3] - ((__const unsigned char *) (__const char *) ("::"))[3]); } } __result; })) : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("::"); register int __result = (((__const unsigned char *) (__const char *) (token))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (token))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (token))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (token))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("::") && ((size_t)(const void *)(("::") + 1) - (size_t)(const void *)("::") == 1) && (__s2_len = strlen ("::"), __s2_len < 4) ? (__builtin_constant_p (token) && ((size_t)(const void *)((token) + 1) - (size_t)(const void *)(token) == 1) ? (__extension__ ({ register int __result = (((__const unsigned char *) (__const char *) (token))[0] - ((__const unsigned char *) (__const char *)("::"))[0]); if (__s2_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (token))[1] - ((__const unsigned char *) (__const char *) ("::"))[1]); if (__s2_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (token))[2] - ((__const unsigned char *) (__const char *) ("::"))[2]); if (__s2_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (token))[3] - ((__const unsigned char *) (__const char *) ("::"))[3]); } } __result; })) : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (token); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("::"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("::"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("::"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("::"))[3]); } } __result; }))) : strcmp (token, "::")))); }) == 0) && (objc > 2)) { > if ((cdefnPtr->flags & 0x100) != 0) { > > result = (tclIntStubsPtr->tcl_PushCallFrame)(interp, &frame, > cdefnPtr->namesp, 0); > > if (result != 0) { > return result; > } > result = Itcl_EvalArgs(interp, objc-2, objv+2); > > (tclIntStubsPtr->tcl_PopCallFrame)(interp); > return result; > } > > > > > > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "syntax \"class :: proc\" is an anachronism\n", > "[incr Tcl] no longer supports this syntax.\n", > "Instead, remove the spaces from your procedure invocations:\n", > " ", > (tclStubsPtr->tcl_GetStringFromObj)(objv[0], (int*)((void *)0)), "::", > (tclStubsPtr->tcl_GetStringFromObj)(objv[2], (int*)((void *)0)), " ?args?", > (char*)((void *)0)); > return 1; > } > > > > > > > (tclStubsPtr->tcl_DStringInit)(&buffer); > objName = ((void *)0); > > match = "#auto"; > start = token; > for (pos=start; *pos != '\0'; pos++) { > if (*pos == *match) { > if (*(++match) == '\0') { > tmp = *start; > *start = '\0'; > > > > > > do { > Tcl_CmdInfo dummy; > > sprintf(unique,"%.200s%d", cdefnPtr->name, > cdefnPtr->unique++); > unique[0] = (__extension__ ({ int __res; if (sizeof (unique[0]) > 1) { if (__builtin_constant_p (unique[0])) { int __c = (unique[0]); __res = __c < -128 || __c > 255 ? __c : (*__ctype_tolower_loc ())[__c]; } else __res = tolower (unique[0]); } else __res = (*__ctype_tolower_loc ())[(int) (unique[0])]; __res; })); > > (tclStubsPtr->tcl_DStringSetLength)(&buffer, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer, token, -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, unique, -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, start+5, -1); > > objName = ((&buffer)->string); > > > > > > > if ((tclStubsPtr->tcl_GetCommandInfo) (interp, objName, &dummy) == 0) { > break; > } > } while (1); > > *start = tmp; > objName = ((&buffer)->string); > break; > } > } > else { > match = "#auto"; > pos = start++; > } > } > > > > > if (objName == ((void *)0)) { > objName = token; > } > > > > > > result = Itcl_CreateObject(interp, objName, cdefnPtr, > objc-2, objv+2, &newObj); > > if (result == 0) { > (tclStubsPtr->tcl_SetResult)(interp, objName, ((Tcl_FreeProc *) 1)); > } > > (tclStubsPtr->tcl_DStringFree)(&buffer); > return result; >} ># 934 "itcl/generic/itcl_class.c" >int >Itcl_ClassCmdResolver(interp, name, context, flags, rPtr) > Tcl_Interp *interp; > const char* name; > Tcl_Namespace *context; > int flags; > > Tcl_Command *rPtr; >{ > ItclClass *cdefn = (ItclClass*)context->clientData; > > Tcl_HashEntry *entry; > ItclMemberFunc *mfunc; > Command *cmdPtr; > int isCmdDeleted; > > > > > > entry = (*((&cdefn->resolveCmds)->findProc))(&cdefn->resolveCmds, name); > if (!entry) { > return 4; > } > > mfunc = (ItclMemberFunc*)((entry)->clientData); ># 970 "itcl/generic/itcl_class.c" > if (mfunc->member->protection != 1) { > context = Itcl_GetTrueNamespace(interp, cdefn->info); > > if (!Itcl_CanAccessFunc(mfunc, context)) { > > if ((flags & 0x200) != 0) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "can't access \"", name, "\": ", > Itcl_ProtectionStr(mfunc->member->protection), > " variable", > (char*)((void *)0)); > } > return 1; > } > } ># 994 "itcl/generic/itcl_class.c" > cmdPtr = (Command*)mfunc->accessCmd; ># 1012 "itcl/generic/itcl_class.c" > isCmdDeleted = (!cmdPtr || > (itclCompatFlags & 0x0001 ? > (cmdPtr->flags & 0x1) : > cmdPtr->flags)); > > > if (isCmdDeleted) { > mfunc->accessCmd = ((void *)0); > > if ((flags & 0x200) != 0) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "can't access \"", name, "\": deleted or redefined\n", > "(use the \"body\" command to redefine methods/procs)", > (char*)((void *)0)); > } > return 1; > } > > *rPtr = mfunc->accessCmd; > return 0; >} ># 1053 "itcl/generic/itcl_class.c" >int >Itcl_ClassVarResolver(interp, name, context, flags, rPtr) > Tcl_Interp *interp; > char* name; > Tcl_Namespace *context; > int flags; > > Tcl_Var *rPtr; >{ > Interp *iPtr = (Interp *) interp; > CallFrame *varFramePtr = iPtr->varFramePtr; > > ItclClass *cdefn = (ItclClass*)context->clientData; > ItclObject *contextObj; > Tcl_CallFrame *framePtr; > Tcl_HashEntry *entry; > ItclVarLookup *vlookup; > > (void)((Itcl_IsClassNamespace(context)) || (Itcl_Assert("Itcl_IsClassNamespace(context)", "itcl/generic/itcl_class.c", 1071), 0)); > > > > > > if (flags & 1) { > return 4; > } ># 1088 "itcl/generic/itcl_class.c" > if (varFramePtr && varFramePtr->isProcCallFrame > && strstr(name,"::") == ((void *)0)) { > > Proc *procPtr = varFramePtr->procPtr; > > > > > if (procPtr) { > int localCt = procPtr->numCompiledLocals; > CompiledLocal *localPtr = procPtr->firstLocalPtr; > Var *localVarPtr = varFramePtr->compiledLocals; > int nameLen = strlen(name); > int i; > > for (i=0; i < localCt; i++) { > if (!((localPtr)->flags & 0x200)) { > register char *localName = localVarPtr->name; > if ((name[0] == localName[0]) > && (nameLen == localPtr->nameLength) > && (__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (name) && __builtin_constant_p (localName) && (__s1_len = strlen (name), __s2_len = strlen (localName), (!((size_t)(const void *)((name) + 1) - (size_t)(const void *)(name) == 1) || __s1_len >= 4) && (!((size_t)(const void *)((localName) + 1) - (size_t)(const void *)(localName) == 1) || __s2_len >= 4)) ? memcmp ((__const char *) (name), (__const char *) (localName), (__s1_len < __s2_len ? __s1_len : __s2_len) + 1) : (__builtin_constant_p (name) && ((size_t)(const void *)((name) + 1) - (size_t)(const void *)(name) == 1) && (__s1_len = strlen (name), __s1_len < 4) ? (__builtin_constant_p (localName) && ((size_t)(const void *)((localName) + 1) - (size_t)(const void *)(localName) == 1) ? (__extension__ ({ register int __result = (((__const unsigned char *) (__const char *) (name))[0] - ((__const unsigned char *) (__const char *)(localName))[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (name))[1] - ((__const unsigned char *) (__const char *) (localName))[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (name))[2] - ((__const unsigned char *) (__const char *) (localName))[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (name))[3] - ((__const unsigned char *) (__const char *) (localName))[3]); } } __result; })) : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) (localName); register int __result = (((__const unsigned char *) (__const char *) (name))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (name))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (name))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (name))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p (localName) && ((size_t)(const void *)((localName) + 1) - (size_t)(const void *)(localName) == 1) && (__s2_len = strlen (localName), __s2_len < 4) ? (__builtin_constant_p (name) && ((size_t)(const void *)((name) + 1) - (size_t)(const void *)(name) == 1) ? (__extension__ ({ register int __result = (((__const unsigned char *) (__const char *) (name))[0] - ((__const unsigned char *) (__const char *)(localName))[0]); if (__s2_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (name))[1] - ((__const unsigned char *) (__const char *) (localName))[1]); if (__s2_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (name))[2] - ((__const unsigned char *) (__const char *) (localName))[2]); if (__s2_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (name))[3] - ((__const unsigned char *) (__const char *) (localName))[3]); } } __result; })) : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (name); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) (localName))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) (localName))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) (localName))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) (localName))[3]); } } __result; }))) : strcmp (name, localName)))); }) == 0)) { > *rPtr = (Tcl_Var)localVarPtr; > return 0; > } > } > localVarPtr++; > localPtr = localPtr->nextPtr; > } > } > > > > > > > if (varFramePtr->varTablePtr != ((void *)0)) { > entry = (*((varFramePtr->varTablePtr)->findProc))(varFramePtr->varTablePtr, name); > if (entry != ((void *)0)) { > *rPtr = (Tcl_Var)((entry)->clientData); > return 0; > } > } > } > > > > > entry = (*((&cdefn->resolveVars)->findProc))(&cdefn->resolveVars, name); > if (entry == ((void *)0)) { > return 4; > } > > vlookup = (ItclVarLookup*)((entry)->clientData); > if (!vlookup->accessible) { > return 4; > } > > > > > > if ((vlookup->vdefn->member->flags & 0x040) != 0) { > *rPtr = vlookup->var.common; > return 0; > } > > > > > > > framePtr = _Tcl_GetCallFrame(interp, 0); > > entry = (*((&cdefn->info->contextFrames)->findProc))(&cdefn->info->contextFrames, (char*)framePtr); > if (entry == ((void *)0)) { > return 4; > } > contextObj = (ItclObject*)((entry)->clientData); ># 1174 "itcl/generic/itcl_class.c" > if (contextObj->classDefn != vlookup->vdefn->member->classDefn) { > entry = (*((&contextObj->classDefn->resolveVars)->findProc))(&contextObj->classDefn->resolveVars, vlookup->vdefn->member->fullname); > > > if (entry) { > vlookup = (ItclVarLookup*)((entry)->clientData); > } > } > *rPtr = (Tcl_Var)contextObj->data[vlookup->var.index]; > return 0; >} ># 1206 "itcl/generic/itcl_class.c" >int >Itcl_ClassCompiledVarResolver(interp, name, length, context, rPtr) > Tcl_Interp *interp; > char* name; > int length; > Tcl_Namespace *context; > Tcl_ResolvedVarInfo **rPtr; > >{ > ItclClass *cdefn = (ItclClass*)context->clientData; > Tcl_HashEntry *entry; > ItclVarLookup *vlookup; > char *buffer, storage[64]; > > (void)((Itcl_IsClassNamespace(context)) || (Itcl_Assert("Itcl_IsClassNamespace(context)", "itcl/generic/itcl_class.c", 1220), 0)); > > > > > > if (length < sizeof(storage)) { > buffer = storage; > } else { > buffer = (char*)(tclStubsPtr->tcl_Alloc)((unsigned)(length+1)); > } > memcpy((void*)buffer, (void*)name, (size_t)length); > buffer[length] = '\0'; > > entry = (*((&cdefn->resolveVars)->findProc))(&cdefn->resolveVars, buffer); > > if (buffer != storage) { > (tclStubsPtr->tcl_Free)(buffer); > } > > > > > > if (entry == ((void *)0)) { > return 4; > } > > vlookup = (ItclVarLookup*)((entry)->clientData); > if (!vlookup->accessible) { > return 4; > } > > > > > > > > (*rPtr) = (Tcl_ResolvedVarInfo *) (tclStubsPtr->tcl_Alloc)(sizeof(ItclResolvedVarInfo)); > (*rPtr)->fetchProc = ItclClassRuntimeVarResolver; > (*rPtr)->deleteProc = ((void *)0); > ((ItclResolvedVarInfo*)(*rPtr))->vlookup = vlookup; > > return 0; >} ># 1278 "itcl/generic/itcl_class.c" >static Tcl_Var >ItclClassRuntimeVarResolver(interp, resVarInfo) > Tcl_Interp *interp; > Tcl_ResolvedVarInfo *resVarInfo; > >{ > ItclVarLookup *vlookup = ((ItclResolvedVarInfo*)resVarInfo)->vlookup; > > Tcl_CallFrame *framePtr; > ItclClass *cdefn; > ItclObject *contextObj; > Tcl_HashEntry *entry; > > > > > > if ((vlookup->vdefn->member->flags & 0x040) != 0) { > return vlookup->var.common; > } > cdefn = vlookup->vdefn->member->classDefn; ># 1307 "itcl/generic/itcl_class.c" > framePtr = _Tcl_GetCallFrame(interp, 0); > > entry = (*((&cdefn->info->contextFrames)->findProc))(&cdefn->info->contextFrames, (char*)framePtr); > if (entry) { > contextObj = (ItclObject*)((entry)->clientData); > > if (contextObj != ((void *)0)) { > if (contextObj->classDefn != vlookup->vdefn->member->classDefn) { > entry = (*((&contextObj->classDefn->resolveVars)->findProc))(&contextObj->classDefn->resolveVars, vlookup->vdefn->member->fullname); > > > if (entry) { > vlookup = (ItclVarLookup*)((entry)->clientData); > } > } > return (Tcl_Var)contextObj->data[vlookup->var.index]; > } > } > return ((void *)0); >} ># 1352 "itcl/generic/itcl_class.c" >void >Itcl_BuildVirtualTables(cdefnPtr) > ItclClass* cdefnPtr; >{ > Tcl_HashEntry *entry, *hPtr; > Tcl_HashSearch place; > ItclVarLookup *vlookup; > ItclVarDefn *vdefn; > ItclMemberFunc *mfunc; > ItclHierIter hier; > ItclClass *cdPtr; > Namespace* nsPtr; > Tcl_DString buffer, buffer2; > int newEntry; > > (tclStubsPtr->tcl_DStringInit)(&buffer); > (tclStubsPtr->tcl_DStringInit)(&buffer2); > > > > > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdefnPtr->resolveVars, &place); > while (entry) { > vlookup = (ItclVarLookup*)((entry)->clientData); > if (--vlookup->usage == 0) { > (tclStubsPtr->tcl_Free)((char*)vlookup); > } > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->resolveVars); > (tclStubsPtr->tcl_InitHashTable)(&cdefnPtr->resolveVars, 0); > cdefnPtr->numInstanceVars = 0; > > > > > > > cdefnPtr->numInstanceVars++; > > > > > > > Itcl_InitHierIter(&hier, cdefnPtr); > cdPtr = Itcl_AdvanceHierIter(&hier); > while (cdPtr != ((void *)0)) { > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdPtr->variables, &place); > while (entry) { > vdefn = (ItclVarDefn*)((entry)->clientData); > > vlookup = (ItclVarLookup*)(tclStubsPtr->tcl_Alloc)(sizeof(ItclVarLookup)); > vlookup->vdefn = vdefn; > vlookup->usage = 0; > vlookup->leastQualName = ((void *)0); > > > > > > vlookup->accessible = > ( vdefn->member->protection != 3 || > vdefn->member->classDefn == cdefnPtr ); > > > > > > > if ((vdefn->member->flags & 0x040) != 0) { > nsPtr = (Namespace*)cdPtr->namesp; > hPtr = (*((&nsPtr->varTable)->findProc))(&nsPtr->varTable, vdefn->member->name); > (void)((hPtr != ((void *)0)) || (Itcl_Assert("hPtr != NULL", "itcl/generic/itcl_class.c", 1425), 0)); > > vlookup->var.common = (Tcl_Var)((hPtr)->clientData); > } > else { > > > > > > if ((vdefn->member->flags & 0x200) != 0) { > vlookup->var.index = 0; > } > else { > vlookup->var.index = cdefnPtr->numInstanceVars++; > } > } ># 1452 "itcl/generic/itcl_class.c" > (tclStubsPtr->tcl_DStringSetLength)(&buffer, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer, vdefn->member->name, -1); > nsPtr = (Namespace*)cdPtr->namesp; > > while (1) { > entry = (*((&cdefnPtr->resolveVars)->createProc))(&cdefnPtr->resolveVars, ((&buffer)->string), &newEntry); > > > if (newEntry) { > ((entry)->clientData = (ClientData) ((ClientData)vlookup)); > vlookup->usage++; > > if (!vlookup->leastQualName) { > vlookup->leastQualName = > ((char *) (((&cdefnPtr->resolveVars)->keyType == 1 || (&cdefnPtr->resolveVars)->keyType == -1) ? (entry)->key.oneWordValue : (entry)->key.string)); > } > } > > if (nsPtr == ((void *)0)) { > break; > } > (tclStubsPtr->tcl_DStringSetLength)(&buffer2, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer2, ((&buffer)->string), -1); > (tclStubsPtr->tcl_DStringSetLength)(&buffer, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer, nsPtr->name, -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, "::", -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, ((&buffer2)->string), -1); > > nsPtr = nsPtr->parentPtr; > } > > > > > if (vlookup->usage == 0) { > (tclStubsPtr->tcl_Free)((char*)vlookup); > } > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > cdPtr = Itcl_AdvanceHierIter(&hier); > } > Itcl_DeleteHierIter(&hier); > > > > > (tclStubsPtr->tcl_DeleteHashTable)(&cdefnPtr->resolveCmds); > (tclStubsPtr->tcl_InitHashTable)(&cdefnPtr->resolveCmds, 0); > > > > > > > Itcl_InitHierIter(&hier, cdefnPtr); > cdPtr = Itcl_AdvanceHierIter(&hier); > while (cdPtr != ((void *)0)) { > entry = (tclStubsPtr->tcl_FirstHashEntry)(&cdPtr->functions, &place); > while (entry) { > mfunc = (ItclMemberFunc*)((entry)->clientData); ># 1522 "itcl/generic/itcl_class.c" > (tclStubsPtr->tcl_DStringSetLength)(&buffer, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer, mfunc->member->name, -1); > nsPtr = (Namespace*)cdPtr->namesp; > > while (1) { > entry = (*((&cdefnPtr->resolveCmds)->createProc))(&cdefnPtr->resolveCmds, ((&buffer)->string), &newEntry); > > > if (newEntry) { > ((entry)->clientData = (ClientData) ((ClientData)mfunc)); > } > > if (nsPtr == ((void *)0)) { > break; > } > (tclStubsPtr->tcl_DStringSetLength)(&buffer2, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer2, ((&buffer)->string), -1); > (tclStubsPtr->tcl_DStringSetLength)(&buffer, 0); > (tclStubsPtr->tcl_DStringAppend)(&buffer, nsPtr->name, -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, "::", -1); > (tclStubsPtr->tcl_DStringAppend)(&buffer, ((&buffer2)->string), -1); > > nsPtr = nsPtr->parentPtr; > } > entry = (tclStubsPtr->tcl_NextHashEntry)(&place); > } > cdPtr = Itcl_AdvanceHierIter(&hier); > } > Itcl_DeleteHierIter(&hier); > > (tclStubsPtr->tcl_DStringFree)(&buffer); > (tclStubsPtr->tcl_DStringFree)(&buffer2); >} ># 1571 "itcl/generic/itcl_class.c" >int >Itcl_CreateVarDefn(interp, cdefn, name, init, config, vdefnPtr) > Tcl_Interp *interp; > ItclClass* cdefn; > char* name; > char* init; > char* config; > ItclVarDefn** vdefnPtr; >{ > int newEntry; > ItclVarDefn *vdefn; > ItclMemberCode *mcode; > Tcl_HashEntry *entry; > > > > > > entry = (*((&cdefn->variables)->createProc))(&cdefn->variables, name, &newEntry); > if (!newEntry) { > (tclStubsPtr->tcl_AppendStringsToObj)((tclStubsPtr->tcl_GetObjResult)(interp), > "variable name \"", name, "\" already defined in class \"", > cdefn->fullname, "\"", > (char*)((void *)0)); > return 1; > } > > > > > > if (config) { > if (Itcl_CreateMemberCode(interp, cdefn, (char*)((void *)0), config, > &mcode) != 0) { > > (tclStubsPtr->tcl_DeleteHashEntry)(entry); > return 1; > } > Itcl_PreserveData((ClientData)mcode); > Itcl_EventuallyFree((ClientData)mcode, Itcl_DeleteMemberCode); > } > else { > mcode = ((void *)0); > } > > > > > > vdefn = (ItclVarDefn*)(tclStubsPtr->tcl_Alloc)(sizeof(ItclVarDefn)); > vdefn->member = Itcl_CreateMember(interp, cdefn, name); > vdefn->member->code = mcode; > > if (vdefn->member->protection == 4) { > vdefn->member->protection = 2; > } > > if (init) { > vdefn->init = (char*)(tclStubsPtr->tcl_Alloc)((unsigned)(strlen(init)+1)); > strcpy(vdefn->init, init); > } > else { > vdefn->init = ((void *)0); > } > > ((entry)->clientData = (ClientData) ((ClientData)vdefn)); > > *vdefnPtr = vdefn; > return 0; >} ># 1650 "itcl/generic/itcl_class.c" >void >Itcl_DeleteVarDefn(vdefn) > ItclVarDefn *vdefn; >{ > Itcl_DeleteMember(vdefn->member); > > if (vdefn->init) { > (tclStubsPtr->tcl_Free)(vdefn->init); > } > (tclStubsPtr->tcl_Free)((char*)vdefn); >} ># 1678 "itcl/generic/itcl_class.c" >char* >Itcl_GetCommonVar(interp, name, contextClass) > Tcl_Interp *interp; > char *name; > ItclClass *contextClass; >{ > char *val = ((void *)0); > int result; > Tcl_CallFrame frame; > > > > > > > result = (tclIntStubsPtr->tcl_PushCallFrame)(interp, &frame, > contextClass->namesp, 0); > > if (result == 0) { > val = (tclStubsPtr->tcl_GetVar2)(interp, name, (char*)((void *)0), 0); > (tclIntStubsPtr->tcl_PopCallFrame)(interp); > } > return val; >} ># 1713 "itcl/generic/itcl_class.c" >ItclMember* >Itcl_CreateMember(interp, cdefn, name) > Tcl_Interp* interp; > ItclClass *cdefn; > char* name; >{ > ItclMember *memPtr; > int fullsize; > > > > > memPtr = (ItclMember*)(tclStubsPtr->tcl_Alloc)(sizeof(ItclMember)); > memPtr->interp = interp; > memPtr->classDefn = cdefn; > memPtr->flags = 0; > memPtr->protection = Itcl_Protection(interp, 0); > memPtr->code = ((void *)0); > > fullsize = strlen(cdefn->fullname) + strlen(name) + 2; > memPtr->fullname = (char*)(tclStubsPtr->tcl_Alloc)((unsigned)(fullsize+1)); > strcpy(memPtr->fullname, cdefn->fullname); > strcat(memPtr->fullname, "::"); > strcat(memPtr->fullname, name); > > memPtr->name = (char*)(tclStubsPtr->tcl_Alloc)((unsigned)(strlen(name)+1)); > strcpy(memPtr->name, name); > > return memPtr; >} ># 1753 "itcl/generic/itcl_class.c" >void >Itcl_DeleteMember(memPtr) > ItclMember *memPtr; >{ > if (memPtr) { > (tclStubsPtr->tcl_Free)(memPtr->name); > (tclStubsPtr->tcl_Free)(memPtr->fullname); > > if (memPtr->code) { > Itcl_ReleaseData((ClientData)memPtr->code); > } > memPtr->code = ((void *)0); > > (tclStubsPtr->tcl_Free)((char*)memPtr); > } >} ># 1780 "itcl/generic/itcl_class.c" >void >Itcl_InitHierIter(iter,cdefn) > ItclHierIter *iter; > ItclClass *cdefn; >{ > Itcl_InitStack(&iter->stack); > Itcl_PushStack((ClientData)cdefn, &iter->stack); > iter->current = cdefn; >} ># 1798 "itcl/generic/itcl_class.c" >void >Itcl_DeleteHierIter(iter) > ItclHierIter *iter; >{ > Itcl_DeleteStack(&iter->stack); > iter->current = ((void *)0); >} ># 1815 "itcl/generic/itcl_class.c" >ItclClass* >Itcl_AdvanceHierIter(iter) > ItclHierIter *iter; >{ > register Itcl_ListElem *elem; > ItclClass *cdPtr; > > iter->current = (ItclClass*)Itcl_PopStack(&iter->stack); > > > > > > if (iter->current) { > cdPtr = (ItclClass*)iter->current; > elem = ((&cdPtr->bases)->tail); > while (elem) { > Itcl_PushStack(((elem)->value), &iter->stack); > elem = ((elem)->prev); > } > } > return iter->current; >}
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 43770
:
26875
| 27097 |
27138