diff --git a/opengl/Togl2.1-SnapPy/GL/glext.h b/opengl/Togl2.1-SnapPy/GL/glext.h deleted file mode 100644 index c0941aa80..000000000 --- a/opengl/Togl2.1-SnapPy/GL/glext.h +++ /dev/null @@ -1,8459 +0,0 @@ -#ifndef __glext_h_ -#define __glext_h_ - -#ifdef __cplusplus -extern "C" { -#endif - -/* -** Copyright (c) 2007 The Khronos Group Inc. -** -** Permission is hereby granted, free of charge, to any person obtaining a -** copy of this software and/or associated documentation files (the -** "Materials"), to deal in the Materials without restriction, including -** without limitation the rights to use, copy, modify, merge, publish, -** distribute, sublicense, and/or sell copies of the Materials, and to -** permit persons to whom the Materials are furnished to do so, subject to -** the following conditions: -** -** The above copyright notice and this permission notice shall be included -** in all copies or substantial portions of the Materials. -** -** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS. -*/ - -#if defined(_WIN32) && !defined(APIENTRY) && !defined(__CYGWIN__) && !defined(__SCITECH_SNAP__) -#define WIN32_LEAN_AND_MEAN 1 -#include -#endif - -#ifndef APIENTRY -#define APIENTRY -#endif -#ifndef APIENTRYP -#define APIENTRYP APIENTRY * -#endif -#ifndef GLAPI -#define GLAPI extern -#endif - -/*************************************************************/ - -/* Header file version number, required by OpenGL ABI for Linux */ -/* glext.h last updated 2008/11/14 */ -/* Current version at http://www.opengl.org/registry/ */ -#define GL_GLEXT_VERSION 44 - -#ifndef GL_VERSION_1_2 -#define GL_UNSIGNED_BYTE_3_3_2 0x8032 -#define GL_UNSIGNED_SHORT_4_4_4_4 0x8033 -#define GL_UNSIGNED_SHORT_5_5_5_1 0x8034 -#define GL_UNSIGNED_INT_8_8_8_8 0x8035 -#define GL_UNSIGNED_INT_10_10_10_2 0x8036 -#define GL_RESCALE_NORMAL 0x803A -#define GL_TEXTURE_BINDING_3D 0x806A -#define GL_PACK_SKIP_IMAGES 0x806B -#define GL_PACK_IMAGE_HEIGHT 0x806C -#define GL_UNPACK_SKIP_IMAGES 0x806D -#define GL_UNPACK_IMAGE_HEIGHT 0x806E -#define GL_TEXTURE_3D 0x806F -#define GL_PROXY_TEXTURE_3D 0x8070 -#define GL_TEXTURE_DEPTH 0x8071 -#define GL_TEXTURE_WRAP_R 0x8072 -#define GL_MAX_3D_TEXTURE_SIZE 0x8073 -#define GL_UNSIGNED_BYTE_2_3_3_REV 0x8362 -#define GL_UNSIGNED_SHORT_5_6_5 0x8363 -#define GL_UNSIGNED_SHORT_5_6_5_REV 0x8364 -#define GL_UNSIGNED_SHORT_4_4_4_4_REV 0x8365 -#define GL_UNSIGNED_SHORT_1_5_5_5_REV 0x8366 -#define GL_UNSIGNED_INT_8_8_8_8_REV 0x8367 -#define GL_UNSIGNED_INT_2_10_10_10_REV 0x8368 -#define GL_BGR 0x80E0 -#define GL_BGRA 0x80E1 -#define GL_MAX_ELEMENTS_VERTICES 0x80E8 -#define GL_MAX_ELEMENTS_INDICES 0x80E9 -#define GL_CLAMP_TO_EDGE 0x812F -#define GL_TEXTURE_MIN_LOD 0x813A -#define GL_TEXTURE_MAX_LOD 0x813B -#define GL_TEXTURE_BASE_LEVEL 0x813C -#define GL_TEXTURE_MAX_LEVEL 0x813D -#define GL_LIGHT_MODEL_COLOR_CONTROL 0x81F8 -#define GL_SINGLE_COLOR 0x81F9 -#define GL_SEPARATE_SPECULAR_COLOR 0x81FA -#define GL_SMOOTH_POINT_SIZE_RANGE 0x0B12 -#define GL_SMOOTH_POINT_SIZE_GRANULARITY 0x0B13 -#define GL_SMOOTH_LINE_WIDTH_RANGE 0x0B22 -#define GL_SMOOTH_LINE_WIDTH_GRANULARITY 0x0B23 -#define GL_ALIASED_POINT_SIZE_RANGE 0x846D -#define GL_ALIASED_LINE_WIDTH_RANGE 0x846E -#endif - -#ifndef GL_ARB_imaging -#define GL_CONSTANT_COLOR 0x8001 -#define GL_ONE_MINUS_CONSTANT_COLOR 0x8002 -#define GL_CONSTANT_ALPHA 0x8003 -#define GL_ONE_MINUS_CONSTANT_ALPHA 0x8004 -#define GL_BLEND_COLOR 0x8005 -#define GL_FUNC_ADD 0x8006 -#define GL_MIN 0x8007 -#define GL_MAX 0x8008 -#define GL_BLEND_EQUATION 0x8009 -#define GL_FUNC_SUBTRACT 0x800A -#define GL_FUNC_REVERSE_SUBTRACT 0x800B -#define GL_CONVOLUTION_1D 0x8010 -#define GL_CONVOLUTION_2D 0x8011 -#define GL_SEPARABLE_2D 0x8012 -#define GL_CONVOLUTION_BORDER_MODE 0x8013 -#define GL_CONVOLUTION_FILTER_SCALE 0x8014 -#define GL_CONVOLUTION_FILTER_BIAS 0x8015 -#define GL_REDUCE 0x8016 -#define GL_CONVOLUTION_FORMAT 0x8017 -#define GL_CONVOLUTION_WIDTH 0x8018 -#define GL_CONVOLUTION_HEIGHT 0x8019 -#define GL_MAX_CONVOLUTION_WIDTH 0x801A -#define GL_MAX_CONVOLUTION_HEIGHT 0x801B -#define GL_POST_CONVOLUTION_RED_SCALE 0x801C -#define GL_POST_CONVOLUTION_GREEN_SCALE 0x801D -#define GL_POST_CONVOLUTION_BLUE_SCALE 0x801E -#define GL_POST_CONVOLUTION_ALPHA_SCALE 0x801F -#define GL_POST_CONVOLUTION_RED_BIAS 0x8020 -#define GL_POST_CONVOLUTION_GREEN_BIAS 0x8021 -#define GL_POST_CONVOLUTION_BLUE_BIAS 0x8022 -#define GL_POST_CONVOLUTION_ALPHA_BIAS 0x8023 -#define GL_HISTOGRAM 0x8024 -#define GL_PROXY_HISTOGRAM 0x8025 -#define GL_HISTOGRAM_WIDTH 0x8026 -#define GL_HISTOGRAM_FORMAT 0x8027 -#define GL_HISTOGRAM_RED_SIZE 0x8028 -#define GL_HISTOGRAM_GREEN_SIZE 0x8029 -#define GL_HISTOGRAM_BLUE_SIZE 0x802A -#define GL_HISTOGRAM_ALPHA_SIZE 0x802B -#define GL_HISTOGRAM_LUMINANCE_SIZE 0x802C -#define GL_HISTOGRAM_SINK 0x802D -#define GL_MINMAX 0x802E -#define GL_MINMAX_FORMAT 0x802F -#define GL_MINMAX_SINK 0x8030 -#define GL_TABLE_TOO_LARGE 0x8031 -#define GL_COLOR_MATRIX 0x80B1 -#define GL_COLOR_MATRIX_STACK_DEPTH 0x80B2 -#define GL_MAX_COLOR_MATRIX_STACK_DEPTH 0x80B3 -#define GL_POST_COLOR_MATRIX_RED_SCALE 0x80B4 -#define GL_POST_COLOR_MATRIX_GREEN_SCALE 0x80B5 -#define GL_POST_COLOR_MATRIX_BLUE_SCALE 0x80B6 -#define GL_POST_COLOR_MATRIX_ALPHA_SCALE 0x80B7 -#define GL_POST_COLOR_MATRIX_RED_BIAS 0x80B8 -#define GL_POST_COLOR_MATRIX_GREEN_BIAS 0x80B9 -#define GL_POST_COLOR_MATRIX_BLUE_BIAS 0x80BA -#define GL_POST_COLOR_MATRIX_ALPHA_BIAS 0x80BB -#define GL_COLOR_TABLE 0x80D0 -#define GL_POST_CONVOLUTION_COLOR_TABLE 0x80D1 -#define GL_POST_COLOR_MATRIX_COLOR_TABLE 0x80D2 -#define GL_PROXY_COLOR_TABLE 0x80D3 -#define GL_PROXY_POST_CONVOLUTION_COLOR_TABLE 0x80D4 -#define GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE 0x80D5 -#define GL_COLOR_TABLE_SCALE 0x80D6 -#define GL_COLOR_TABLE_BIAS 0x80D7 -#define GL_COLOR_TABLE_FORMAT 0x80D8 -#define GL_COLOR_TABLE_WIDTH 0x80D9 -#define GL_COLOR_TABLE_RED_SIZE 0x80DA -#define GL_COLOR_TABLE_GREEN_SIZE 0x80DB -#define GL_COLOR_TABLE_BLUE_SIZE 0x80DC -#define GL_COLOR_TABLE_ALPHA_SIZE 0x80DD -#define GL_COLOR_TABLE_LUMINANCE_SIZE 0x80DE -#define GL_COLOR_TABLE_INTENSITY_SIZE 0x80DF -#define GL_CONSTANT_BORDER 0x8151 -#define GL_REPLICATE_BORDER 0x8153 -#define GL_CONVOLUTION_BORDER_COLOR 0x8154 -#endif - -#ifndef GL_VERSION_1_3 -#define GL_TEXTURE0 0x84C0 -#define GL_TEXTURE1 0x84C1 -#define GL_TEXTURE2 0x84C2 -#define GL_TEXTURE3 0x84C3 -#define GL_TEXTURE4 0x84C4 -#define GL_TEXTURE5 0x84C5 -#define GL_TEXTURE6 0x84C6 -#define GL_TEXTURE7 0x84C7 -#define GL_TEXTURE8 0x84C8 -#define GL_TEXTURE9 0x84C9 -#define GL_TEXTURE10 0x84CA -#define GL_TEXTURE11 0x84CB -#define GL_TEXTURE12 0x84CC -#define GL_TEXTURE13 0x84CD -#define GL_TEXTURE14 0x84CE -#define GL_TEXTURE15 0x84CF -#define GL_TEXTURE16 0x84D0 -#define GL_TEXTURE17 0x84D1 -#define GL_TEXTURE18 0x84D2 -#define GL_TEXTURE19 0x84D3 -#define GL_TEXTURE20 0x84D4 -#define GL_TEXTURE21 0x84D5 -#define GL_TEXTURE22 0x84D6 -#define GL_TEXTURE23 0x84D7 -#define GL_TEXTURE24 0x84D8 -#define GL_TEXTURE25 0x84D9 -#define GL_TEXTURE26 0x84DA -#define GL_TEXTURE27 0x84DB -#define GL_TEXTURE28 0x84DC -#define GL_TEXTURE29 0x84DD -#define GL_TEXTURE30 0x84DE -#define GL_TEXTURE31 0x84DF -#define GL_ACTIVE_TEXTURE 0x84E0 -#define GL_CLIENT_ACTIVE_TEXTURE 0x84E1 -#define GL_MAX_TEXTURE_UNITS 0x84E2 -#define GL_TRANSPOSE_MODELVIEW_MATRIX 0x84E3 -#define GL_TRANSPOSE_PROJECTION_MATRIX 0x84E4 -#define GL_TRANSPOSE_TEXTURE_MATRIX 0x84E5 -#define GL_TRANSPOSE_COLOR_MATRIX 0x84E6 -#define GL_MULTISAMPLE 0x809D -#define GL_SAMPLE_ALPHA_TO_COVERAGE 0x809E -#define GL_SAMPLE_ALPHA_TO_ONE 0x809F -#define GL_SAMPLE_COVERAGE 0x80A0 -#define GL_SAMPLE_BUFFERS 0x80A8 -#define GL_SAMPLES 0x80A9 -#define GL_SAMPLE_COVERAGE_VALUE 0x80AA -#define GL_SAMPLE_COVERAGE_INVERT 0x80AB -#define GL_MULTISAMPLE_BIT 0x20000000 -#define GL_NORMAL_MAP 0x8511 -#define GL_REFLECTION_MAP 0x8512 -#define GL_TEXTURE_CUBE_MAP 0x8513 -#define GL_TEXTURE_BINDING_CUBE_MAP 0x8514 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_X 0x8515 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_X 0x8516 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_Y 0x8517 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_Y 0x8518 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_Z 0x8519 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_Z 0x851A -#define GL_PROXY_TEXTURE_CUBE_MAP 0x851B -#define GL_MAX_CUBE_MAP_TEXTURE_SIZE 0x851C -#define GL_COMPRESSED_ALPHA 0x84E9 -#define GL_COMPRESSED_LUMINANCE 0x84EA -#define GL_COMPRESSED_LUMINANCE_ALPHA 0x84EB -#define GL_COMPRESSED_INTENSITY 0x84EC -#define GL_COMPRESSED_RGB 0x84ED -#define GL_COMPRESSED_RGBA 0x84EE -#define GL_TEXTURE_COMPRESSION_HINT 0x84EF -#define GL_TEXTURE_COMPRESSED_IMAGE_SIZE 0x86A0 -#define GL_TEXTURE_COMPRESSED 0x86A1 -#define GL_NUM_COMPRESSED_TEXTURE_FORMATS 0x86A2 -#define GL_COMPRESSED_TEXTURE_FORMATS 0x86A3 -#define GL_CLAMP_TO_BORDER 0x812D -#define GL_COMBINE 0x8570 -#define GL_COMBINE_RGB 0x8571 -#define GL_COMBINE_ALPHA 0x8572 -#define GL_SOURCE0_RGB 0x8580 -#define GL_SOURCE1_RGB 0x8581 -#define GL_SOURCE2_RGB 0x8582 -#define GL_SOURCE0_ALPHA 0x8588 -#define GL_SOURCE1_ALPHA 0x8589 -#define GL_SOURCE2_ALPHA 0x858A -#define GL_OPERAND0_RGB 0x8590 -#define GL_OPERAND1_RGB 0x8591 -#define GL_OPERAND2_RGB 0x8592 -#define GL_OPERAND0_ALPHA 0x8598 -#define GL_OPERAND1_ALPHA 0x8599 -#define GL_OPERAND2_ALPHA 0x859A -#define GL_RGB_SCALE 0x8573 -#define GL_ADD_SIGNED 0x8574 -#define GL_INTERPOLATE 0x8575 -#define GL_SUBTRACT 0x84E7 -#define GL_CONSTANT 0x8576 -#define GL_PRIMARY_COLOR 0x8577 -#define GL_PREVIOUS 0x8578 -#define GL_DOT3_RGB 0x86AE -#define GL_DOT3_RGBA 0x86AF -#endif - -#ifndef GL_VERSION_1_4 -#define GL_BLEND_DST_RGB 0x80C8 -#define GL_BLEND_SRC_RGB 0x80C9 -#define GL_BLEND_DST_ALPHA 0x80CA -#define GL_BLEND_SRC_ALPHA 0x80CB -#define GL_POINT_SIZE_MIN 0x8126 -#define GL_POINT_SIZE_MAX 0x8127 -#define GL_POINT_FADE_THRESHOLD_SIZE 0x8128 -#define GL_POINT_DISTANCE_ATTENUATION 0x8129 -#define GL_GENERATE_MIPMAP 0x8191 -#define GL_GENERATE_MIPMAP_HINT 0x8192 -#define GL_DEPTH_COMPONENT16 0x81A5 -#define GL_DEPTH_COMPONENT24 0x81A6 -#define GL_DEPTH_COMPONENT32 0x81A7 -#define GL_MIRRORED_REPEAT 0x8370 -#define GL_FOG_COORDINATE_SOURCE 0x8450 -#define GL_FOG_COORDINATE 0x8451 -#define GL_FRAGMENT_DEPTH 0x8452 -#define GL_CURRENT_FOG_COORDINATE 0x8453 -#define GL_FOG_COORDINATE_ARRAY_TYPE 0x8454 -#define GL_FOG_COORDINATE_ARRAY_STRIDE 0x8455 -#define GL_FOG_COORDINATE_ARRAY_POINTER 0x8456 -#define GL_FOG_COORDINATE_ARRAY 0x8457 -#define GL_COLOR_SUM 0x8458 -#define GL_CURRENT_SECONDARY_COLOR 0x8459 -#define GL_SECONDARY_COLOR_ARRAY_SIZE 0x845A -#define GL_SECONDARY_COLOR_ARRAY_TYPE 0x845B -#define GL_SECONDARY_COLOR_ARRAY_STRIDE 0x845C -#define GL_SECONDARY_COLOR_ARRAY_POINTER 0x845D -#define GL_SECONDARY_COLOR_ARRAY 0x845E -#define GL_MAX_TEXTURE_LOD_BIAS 0x84FD -#define GL_TEXTURE_FILTER_CONTROL 0x8500 -#define GL_TEXTURE_LOD_BIAS 0x8501 -#define GL_INCR_WRAP 0x8507 -#define GL_DECR_WRAP 0x8508 -#define GL_TEXTURE_DEPTH_SIZE 0x884A -#define GL_DEPTH_TEXTURE_MODE 0x884B -#define GL_TEXTURE_COMPARE_MODE 0x884C -#define GL_TEXTURE_COMPARE_FUNC 0x884D -#define GL_COMPARE_R_TO_TEXTURE 0x884E -#endif - -#ifndef GL_VERSION_1_5 -#define GL_BUFFER_SIZE 0x8764 -#define GL_BUFFER_USAGE 0x8765 -#define GL_QUERY_COUNTER_BITS 0x8864 -#define GL_CURRENT_QUERY 0x8865 -#define GL_QUERY_RESULT 0x8866 -#define GL_QUERY_RESULT_AVAILABLE 0x8867 -#define GL_ARRAY_BUFFER 0x8892 -#define GL_ELEMENT_ARRAY_BUFFER 0x8893 -#define GL_ARRAY_BUFFER_BINDING 0x8894 -#define GL_ELEMENT_ARRAY_BUFFER_BINDING 0x8895 -#define GL_VERTEX_ARRAY_BUFFER_BINDING 0x8896 -#define GL_NORMAL_ARRAY_BUFFER_BINDING 0x8897 -#define GL_COLOR_ARRAY_BUFFER_BINDING 0x8898 -#define GL_INDEX_ARRAY_BUFFER_BINDING 0x8899 -#define GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING 0x889A -#define GL_EDGE_FLAG_ARRAY_BUFFER_BINDING 0x889B -#define GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING 0x889C -#define GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING 0x889D -#define GL_WEIGHT_ARRAY_BUFFER_BINDING 0x889E -#define GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING 0x889F -#define GL_READ_ONLY 0x88B8 -#define GL_WRITE_ONLY 0x88B9 -#define GL_READ_WRITE 0x88BA -#define GL_BUFFER_ACCESS 0x88BB -#define GL_BUFFER_MAPPED 0x88BC -#define GL_BUFFER_MAP_POINTER 0x88BD -#define GL_STREAM_DRAW 0x88E0 -#define GL_STREAM_READ 0x88E1 -#define GL_STREAM_COPY 0x88E2 -#define GL_STATIC_DRAW 0x88E4 -#define GL_STATIC_READ 0x88E5 -#define GL_STATIC_COPY 0x88E6 -#define GL_DYNAMIC_DRAW 0x88E8 -#define GL_DYNAMIC_READ 0x88E9 -#define GL_DYNAMIC_COPY 0x88EA -#define GL_SAMPLES_PASSED 0x8914 -#define GL_FOG_COORD_SRC GL_FOG_COORDINATE_SOURCE -#define GL_FOG_COORD GL_FOG_COORDINATE -#define GL_CURRENT_FOG_COORD GL_CURRENT_FOG_COORDINATE -#define GL_FOG_COORD_ARRAY_TYPE GL_FOG_COORDINATE_ARRAY_TYPE -#define GL_FOG_COORD_ARRAY_STRIDE GL_FOG_COORDINATE_ARRAY_STRIDE -#define GL_FOG_COORD_ARRAY_POINTER GL_FOG_COORDINATE_ARRAY_POINTER -#define GL_FOG_COORD_ARRAY GL_FOG_COORDINATE_ARRAY -#define GL_FOG_COORD_ARRAY_BUFFER_BINDING GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING -#define GL_SRC0_RGB GL_SOURCE0_RGB -#define GL_SRC1_RGB GL_SOURCE1_RGB -#define GL_SRC2_RGB GL_SOURCE2_RGB -#define GL_SRC0_ALPHA GL_SOURCE0_ALPHA -#define GL_SRC1_ALPHA GL_SOURCE1_ALPHA -#define GL_SRC2_ALPHA GL_SOURCE2_ALPHA -#endif - -#ifndef GL_VERSION_2_0 -#define GL_BLEND_EQUATION_RGB GL_BLEND_EQUATION -#define GL_VERTEX_ATTRIB_ARRAY_ENABLED 0x8622 -#define GL_VERTEX_ATTRIB_ARRAY_SIZE 0x8623 -#define GL_VERTEX_ATTRIB_ARRAY_STRIDE 0x8624 -#define GL_VERTEX_ATTRIB_ARRAY_TYPE 0x8625 -#define GL_CURRENT_VERTEX_ATTRIB 0x8626 -#define GL_VERTEX_PROGRAM_POINT_SIZE 0x8642 -#define GL_VERTEX_PROGRAM_TWO_SIDE 0x8643 -#define GL_VERTEX_ATTRIB_ARRAY_POINTER 0x8645 -#define GL_STENCIL_BACK_FUNC 0x8800 -#define GL_STENCIL_BACK_FAIL 0x8801 -#define GL_STENCIL_BACK_PASS_DEPTH_FAIL 0x8802 -#define GL_STENCIL_BACK_PASS_DEPTH_PASS 0x8803 -#define GL_MAX_DRAW_BUFFERS 0x8824 -#define GL_DRAW_BUFFER0 0x8825 -#define GL_DRAW_BUFFER1 0x8826 -#define GL_DRAW_BUFFER2 0x8827 -#define GL_DRAW_BUFFER3 0x8828 -#define GL_DRAW_BUFFER4 0x8829 -#define GL_DRAW_BUFFER5 0x882A -#define GL_DRAW_BUFFER6 0x882B -#define GL_DRAW_BUFFER7 0x882C -#define GL_DRAW_BUFFER8 0x882D -#define GL_DRAW_BUFFER9 0x882E -#define GL_DRAW_BUFFER10 0x882F -#define GL_DRAW_BUFFER11 0x8830 -#define GL_DRAW_BUFFER12 0x8831 -#define GL_DRAW_BUFFER13 0x8832 -#define GL_DRAW_BUFFER14 0x8833 -#define GL_DRAW_BUFFER15 0x8834 -#define GL_BLEND_EQUATION_ALPHA 0x883D -#define GL_POINT_SPRITE 0x8861 -#define GL_COORD_REPLACE 0x8862 -#define GL_MAX_VERTEX_ATTRIBS 0x8869 -#define GL_VERTEX_ATTRIB_ARRAY_NORMALIZED 0x886A -#define GL_MAX_TEXTURE_COORDS 0x8871 -#define GL_MAX_TEXTURE_IMAGE_UNITS 0x8872 -#define GL_FRAGMENT_SHADER 0x8B30 -#define GL_VERTEX_SHADER 0x8B31 -#define GL_MAX_FRAGMENT_UNIFORM_COMPONENTS 0x8B49 -#define GL_MAX_VERTEX_UNIFORM_COMPONENTS 0x8B4A -#define GL_MAX_VARYING_FLOATS 0x8B4B -#define GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS 0x8B4C -#define GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS 0x8B4D -#define GL_SHADER_TYPE 0x8B4F -#define GL_FLOAT_VEC2 0x8B50 -#define GL_FLOAT_VEC3 0x8B51 -#define GL_FLOAT_VEC4 0x8B52 -#define GL_INT_VEC2 0x8B53 -#define GL_INT_VEC3 0x8B54 -#define GL_INT_VEC4 0x8B55 -#define GL_BOOL 0x8B56 -#define GL_BOOL_VEC2 0x8B57 -#define GL_BOOL_VEC3 0x8B58 -#define GL_BOOL_VEC4 0x8B59 -#define GL_FLOAT_MAT2 0x8B5A -#define GL_FLOAT_MAT3 0x8B5B -#define GL_FLOAT_MAT4 0x8B5C -#define GL_SAMPLER_1D 0x8B5D -#define GL_SAMPLER_2D 0x8B5E -#define GL_SAMPLER_3D 0x8B5F -#define GL_SAMPLER_CUBE 0x8B60 -#define GL_SAMPLER_1D_SHADOW 0x8B61 -#define GL_SAMPLER_2D_SHADOW 0x8B62 -#define GL_DELETE_STATUS 0x8B80 -#define GL_COMPILE_STATUS 0x8B81 -#define GL_LINK_STATUS 0x8B82 -#define GL_VALIDATE_STATUS 0x8B83 -#define GL_INFO_LOG_LENGTH 0x8B84 -#define GL_ATTACHED_SHADERS 0x8B85 -#define GL_ACTIVE_UNIFORMS 0x8B86 -#define GL_ACTIVE_UNIFORM_MAX_LENGTH 0x8B87 -#define GL_SHADER_SOURCE_LENGTH 0x8B88 -#define GL_ACTIVE_ATTRIBUTES 0x8B89 -#define GL_ACTIVE_ATTRIBUTE_MAX_LENGTH 0x8B8A -#define GL_FRAGMENT_SHADER_DERIVATIVE_HINT 0x8B8B -#define GL_SHADING_LANGUAGE_VERSION 0x8B8C -#define GL_CURRENT_PROGRAM 0x8B8D -#define GL_POINT_SPRITE_COORD_ORIGIN 0x8CA0 -#define GL_LOWER_LEFT 0x8CA1 -#define GL_UPPER_LEFT 0x8CA2 -#define GL_STENCIL_BACK_REF 0x8CA3 -#define GL_STENCIL_BACK_VALUE_MASK 0x8CA4 -#define GL_STENCIL_BACK_WRITEMASK 0x8CA5 -#endif - -#ifndef GL_VERSION_2_1 -#define GL_CURRENT_RASTER_SECONDARY_COLOR 0x845F -#define GL_PIXEL_PACK_BUFFER 0x88EB -#define GL_PIXEL_UNPACK_BUFFER 0x88EC -#define GL_PIXEL_PACK_BUFFER_BINDING 0x88ED -#define GL_PIXEL_UNPACK_BUFFER_BINDING 0x88EF -#define GL_FLOAT_MAT2x3 0x8B65 -#define GL_FLOAT_MAT2x4 0x8B66 -#define GL_FLOAT_MAT3x2 0x8B67 -#define GL_FLOAT_MAT3x4 0x8B68 -#define GL_FLOAT_MAT4x2 0x8B69 -#define GL_FLOAT_MAT4x3 0x8B6A -#define GL_SRGB 0x8C40 -#define GL_SRGB8 0x8C41 -#define GL_SRGB_ALPHA 0x8C42 -#define GL_SRGB8_ALPHA8 0x8C43 -#define GL_SLUMINANCE_ALPHA 0x8C44 -#define GL_SLUMINANCE8_ALPHA8 0x8C45 -#define GL_SLUMINANCE 0x8C46 -#define GL_SLUMINANCE8 0x8C47 -#define GL_COMPRESSED_SRGB 0x8C48 -#define GL_COMPRESSED_SRGB_ALPHA 0x8C49 -#define GL_COMPRESSED_SLUMINANCE 0x8C4A -#define GL_COMPRESSED_SLUMINANCE_ALPHA 0x8C4B -#endif - -#ifndef GL_VERSION_3_0 -#define GL_COMPARE_REF_TO_TEXTURE GL_COMPARE_R_TO_TEXTURE_ARB -#define GL_CLIP_DISTANCE0 GL_CLIP_PLANE0 -#define GL_CLIP_DISTANCE1 GL_CLIP_PLANE1 -#define GL_CLIP_DISTANCE2 GL_CLIP_PLANE2 -#define GL_CLIP_DISTANCE3 GL_CLIP_PLANE3 -#define GL_CLIP_DISTANCE4 GL_CLIP_PLANE4 -#define GL_CLIP_DISTANCE5 GL_CLIP_PLANE5 -#define GL_MAX_CLIP_DISTANCES GL_MAX_CLIP_PLANES -#define GL_MAJOR_VERSION 0x821B -#define GL_MINOR_VERSION 0x821C -#define GL_NUM_EXTENSIONS 0x821D -#define GL_CONTEXT_FLAGS 0x821E -#define GL_DEPTH_BUFFER 0x8223 -#define GL_STENCIL_BUFFER 0x8224 -#define GL_COMPRESSED_RED 0x8225 -#define GL_COMPRESSED_RG 0x8226 -#define GL_CONTEXT_FLAG_FORWARD_COMPATIBLE_BIT 0x0001 -#define GL_RGBA32F 0x8814 -#define GL_RGB32F 0x8815 -#define GL_RGBA16F 0x881A -#define GL_RGB16F 0x881B -#define GL_VERTEX_ATTRIB_ARRAY_INTEGER 0x88FD -#define GL_MAX_ARRAY_TEXTURE_LAYERS 0x88FF -#define GL_MIN_PROGRAM_TEXEL_OFFSET 0x8904 -#define GL_MAX_PROGRAM_TEXEL_OFFSET 0x8905 -#define GL_CLAMP_VERTEX_COLOR 0x891A -#define GL_CLAMP_FRAGMENT_COLOR 0x891B -#define GL_CLAMP_READ_COLOR 0x891C -#define GL_FIXED_ONLY 0x891D -#define GL_MAX_VARYING_COMPONENTS GL_MAX_VARYING_FLOATS -#define GL_TEXTURE_RED_TYPE 0x8C10 -#define GL_TEXTURE_GREEN_TYPE 0x8C11 -#define GL_TEXTURE_BLUE_TYPE 0x8C12 -#define GL_TEXTURE_ALPHA_TYPE 0x8C13 -#define GL_TEXTURE_LUMINANCE_TYPE 0x8C14 -#define GL_TEXTURE_INTENSITY_TYPE 0x8C15 -#define GL_TEXTURE_DEPTH_TYPE 0x8C16 -#define GL_UNSIGNED_NORMALIZED 0x8C17 -#define GL_TEXTURE_1D_ARRAY 0x8C18 -#define GL_PROXY_TEXTURE_1D_ARRAY 0x8C19 -#define GL_TEXTURE_2D_ARRAY 0x8C1A -#define GL_PROXY_TEXTURE_2D_ARRAY 0x8C1B -#define GL_TEXTURE_BINDING_1D_ARRAY 0x8C1C -#define GL_TEXTURE_BINDING_2D_ARRAY 0x8C1D -#define GL_R11F_G11F_B10F 0x8C3A -#define GL_UNSIGNED_INT_10F_11F_11F_REV 0x8C3B -#define GL_RGB9_E5 0x8C3D -#define GL_UNSIGNED_INT_5_9_9_9_REV 0x8C3E -#define GL_TEXTURE_SHARED_SIZE 0x8C3F -#define GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH 0x8C76 -#define GL_TRANSFORM_FEEDBACK_BUFFER_MODE 0x8C7F -#define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS 0x8C80 -#define GL_TRANSFORM_FEEDBACK_VARYINGS 0x8C83 -#define GL_TRANSFORM_FEEDBACK_BUFFER_START 0x8C84 -#define GL_TRANSFORM_FEEDBACK_BUFFER_SIZE 0x8C85 -#define GL_PRIMITIVES_GENERATED 0x8C87 -#define GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN 0x8C88 -#define GL_RASTERIZER_DISCARD 0x8C89 -#define GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS 0x8C8A -#define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS 0x8C8B -#define GL_INTERLEAVED_ATTRIBS 0x8C8C -#define GL_SEPARATE_ATTRIBS 0x8C8D -#define GL_TRANSFORM_FEEDBACK_BUFFER 0x8C8E -#define GL_TRANSFORM_FEEDBACK_BUFFER_BINDING 0x8C8F -#define GL_RGBA32UI 0x8D70 -#define GL_RGB32UI 0x8D71 -#define GL_RGBA16UI 0x8D76 -#define GL_RGB16UI 0x8D77 -#define GL_RGBA8UI 0x8D7C -#define GL_RGB8UI 0x8D7D -#define GL_RGBA32I 0x8D82 -#define GL_RGB32I 0x8D83 -#define GL_RGBA16I 0x8D88 -#define GL_RGB16I 0x8D89 -#define GL_RGBA8I 0x8D8E -#define GL_RGB8I 0x8D8F -#define GL_RED_INTEGER 0x8D94 -#define GL_GREEN_INTEGER 0x8D95 -#define GL_BLUE_INTEGER 0x8D96 -#define GL_ALPHA_INTEGER 0x8D97 -#define GL_RGB_INTEGER 0x8D98 -#define GL_RGBA_INTEGER 0x8D99 -#define GL_BGR_INTEGER 0x8D9A -#define GL_BGRA_INTEGER 0x8D9B -#define GL_SAMPLER_1D_ARRAY 0x8DC0 -#define GL_SAMPLER_2D_ARRAY 0x8DC1 -#define GL_SAMPLER_1D_ARRAY_SHADOW 0x8DC3 -#define GL_SAMPLER_2D_ARRAY_SHADOW 0x8DC4 -#define GL_SAMPLER_CUBE_SHADOW 0x8DC5 -#define GL_UNSIGNED_INT_VEC2 0x8DC6 -#define GL_UNSIGNED_INT_VEC3 0x8DC7 -#define GL_UNSIGNED_INT_VEC4 0x8DC8 -#define GL_INT_SAMPLER_1D 0x8DC9 -#define GL_INT_SAMPLER_2D 0x8DCA -#define GL_INT_SAMPLER_3D 0x8DCB -#define GL_INT_SAMPLER_CUBE 0x8DCC -#define GL_INT_SAMPLER_1D_ARRAY 0x8DCE -#define GL_INT_SAMPLER_2D_ARRAY 0x8DCF -#define GL_UNSIGNED_INT_SAMPLER_1D 0x8DD1 -#define GL_UNSIGNED_INT_SAMPLER_2D 0x8DD2 -#define GL_UNSIGNED_INT_SAMPLER_3D 0x8DD3 -#define GL_UNSIGNED_INT_SAMPLER_CUBE 0x8DD4 -#define GL_UNSIGNED_INT_SAMPLER_1D_ARRAY 0x8DD6 -#define GL_UNSIGNED_INT_SAMPLER_2D_ARRAY 0x8DD7 -#define GL_QUERY_WAIT 0x8E13 -#define GL_QUERY_NO_WAIT 0x8E14 -#define GL_QUERY_BY_REGION_WAIT 0x8E15 -#define GL_QUERY_BY_REGION_NO_WAIT 0x8E16 -/* Reuse tokens from ARB_depth_buffer_float */ -/* reuse GL_DEPTH_COMPONENT32F */ -/* reuse GL_DEPTH32F_STENCIL8 */ -/* reuse GL_FLOAT_32_UNSIGNED_INT_24_8_REV */ -/* Reuse tokens from ARB_framebuffer_object */ -/* reuse GL_INVALID_FRAMEBUFFER_OPERATION */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_RED_SIZE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_GREEN_SIZE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_BLUE_SIZE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE */ -/* reuse GL_FRAMEBUFFER_DEFAULT */ -/* reuse GL_FRAMEBUFFER_UNDEFINED */ -/* reuse GL_DEPTH_STENCIL_ATTACHMENT */ -/* reuse GL_INDEX */ -/* reuse GL_MAX_RENDERBUFFER_SIZE */ -/* reuse GL_DEPTH_STENCIL */ -/* reuse GL_UNSIGNED_INT_24_8 */ -/* reuse GL_DEPTH24_STENCIL8 */ -/* reuse GL_TEXTURE_STENCIL_SIZE */ -/* reuse GL_TEXTURE_RED_TYPE */ -/* reuse GL_TEXTURE_GREEN_TYPE */ -/* reuse GL_TEXTURE_BLUE_TYPE */ -/* reuse GL_TEXTURE_ALPHA_TYPE */ -/* reuse GL_TEXTURE_LUMINANCE_TYPE */ -/* reuse GL_TEXTURE_INTENSITY_TYPE */ -/* reuse GL_TEXTURE_DEPTH_TYPE */ -/* reuse GL_UNSIGNED_NORMALIZED */ -/* reuse GL_FRAMEBUFFER_BINDING */ -/* reuse GL_DRAW_FRAMEBUFFER_BINDING */ -/* reuse GL_RENDERBUFFER_BINDING */ -/* reuse GL_READ_FRAMEBUFFER */ -/* reuse GL_DRAW_FRAMEBUFFER */ -/* reuse GL_READ_FRAMEBUFFER_BINDING */ -/* reuse GL_RENDERBUFFER_SAMPLES */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER */ -/* reuse GL_FRAMEBUFFER_COMPLETE */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER */ -/* reuse GL_FRAMEBUFFER_UNSUPPORTED */ -/* reuse GL_MAX_COLOR_ATTACHMENTS */ -/* reuse GL_COLOR_ATTACHMENT0 */ -/* reuse GL_COLOR_ATTACHMENT1 */ -/* reuse GL_COLOR_ATTACHMENT2 */ -/* reuse GL_COLOR_ATTACHMENT3 */ -/* reuse GL_COLOR_ATTACHMENT4 */ -/* reuse GL_COLOR_ATTACHMENT5 */ -/* reuse GL_COLOR_ATTACHMENT6 */ -/* reuse GL_COLOR_ATTACHMENT7 */ -/* reuse GL_COLOR_ATTACHMENT8 */ -/* reuse GL_COLOR_ATTACHMENT9 */ -/* reuse GL_COLOR_ATTACHMENT10 */ -/* reuse GL_COLOR_ATTACHMENT11 */ -/* reuse GL_COLOR_ATTACHMENT12 */ -/* reuse GL_COLOR_ATTACHMENT13 */ -/* reuse GL_COLOR_ATTACHMENT14 */ -/* reuse GL_COLOR_ATTACHMENT15 */ -/* reuse GL_DEPTH_ATTACHMENT */ -/* reuse GL_STENCIL_ATTACHMENT */ -/* reuse GL_FRAMEBUFFER */ -/* reuse GL_RENDERBUFFER */ -/* reuse GL_RENDERBUFFER_WIDTH */ -/* reuse GL_RENDERBUFFER_HEIGHT */ -/* reuse GL_RENDERBUFFER_INTERNAL_FORMAT */ -/* reuse GL_STENCIL_INDEX1 */ -/* reuse GL_STENCIL_INDEX4 */ -/* reuse GL_STENCIL_INDEX8 */ -/* reuse GL_STENCIL_INDEX16 */ -/* reuse GL_RENDERBUFFER_RED_SIZE */ -/* reuse GL_RENDERBUFFER_GREEN_SIZE */ -/* reuse GL_RENDERBUFFER_BLUE_SIZE */ -/* reuse GL_RENDERBUFFER_ALPHA_SIZE */ -/* reuse GL_RENDERBUFFER_DEPTH_SIZE */ -/* reuse GL_RENDERBUFFER_STENCIL_SIZE */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE */ -/* reuse GL_MAX_SAMPLES */ -/* Reuse tokens from ARB_framebuffer_sRGB */ -/* reuse GL_FRAMEBUFFER_SRGB */ -/* Reuse tokens from ARB_half_float_vertex */ -/* reuse GL_HALF_FLOAT */ -/* Reuse tokens from ARB_map_buffer_range */ -/* reuse GL_MAP_READ_BIT */ -/* reuse GL_MAP_WRITE_BIT */ -/* reuse GL_MAP_INVALIDATE_RANGE_BIT */ -/* reuse GL_MAP_INVALIDATE_BUFFER_BIT */ -/* reuse GL_MAP_FLUSH_EXPLICIT_BIT */ -/* reuse GL_MAP_UNSYNCHRONIZED_BIT */ -/* Reuse tokens from ARB_texture_compression_rgtc */ -/* reuse GL_COMPRESSED_RED_RGTC1 */ -/* reuse GL_COMPRESSED_SIGNED_RED_RGTC1 */ -/* reuse GL_COMPRESSED_RG_RGTC2 */ -/* reuse GL_COMPRESSED_SIGNED_RG_RGTC2 */ -/* Reuse tokens from ARB_texture_rg */ -/* reuse GL_RG */ -/* reuse GL_RG_INTEGER */ -/* reuse GL_R8 */ -/* reuse GL_R16 */ -/* reuse GL_RG8 */ -/* reuse GL_RG16 */ -/* reuse GL_R16F */ -/* reuse GL_R32F */ -/* reuse GL_RG16F */ -/* reuse GL_RG32F */ -/* reuse GL_R8I */ -/* reuse GL_R8UI */ -/* reuse GL_R16I */ -/* reuse GL_R16UI */ -/* reuse GL_R32I */ -/* reuse GL_R32UI */ -/* reuse GL_RG8I */ -/* reuse GL_RG8UI */ -/* reuse GL_RG16I */ -/* reuse GL_RG16UI */ -/* reuse GL_RG32I */ -/* reuse GL_RG32UI */ -/* Reuse tokens from ARB_vertex_array_object */ -/* reuse GL_VERTEX_ARRAY_BINDING */ -#endif - -#ifndef GL_ARB_multitexture -#define GL_TEXTURE0_ARB 0x84C0 -#define GL_TEXTURE1_ARB 0x84C1 -#define GL_TEXTURE2_ARB 0x84C2 -#define GL_TEXTURE3_ARB 0x84C3 -#define GL_TEXTURE4_ARB 0x84C4 -#define GL_TEXTURE5_ARB 0x84C5 -#define GL_TEXTURE6_ARB 0x84C6 -#define GL_TEXTURE7_ARB 0x84C7 -#define GL_TEXTURE8_ARB 0x84C8 -#define GL_TEXTURE9_ARB 0x84C9 -#define GL_TEXTURE10_ARB 0x84CA -#define GL_TEXTURE11_ARB 0x84CB -#define GL_TEXTURE12_ARB 0x84CC -#define GL_TEXTURE13_ARB 0x84CD -#define GL_TEXTURE14_ARB 0x84CE -#define GL_TEXTURE15_ARB 0x84CF -#define GL_TEXTURE16_ARB 0x84D0 -#define GL_TEXTURE17_ARB 0x84D1 -#define GL_TEXTURE18_ARB 0x84D2 -#define GL_TEXTURE19_ARB 0x84D3 -#define GL_TEXTURE20_ARB 0x84D4 -#define GL_TEXTURE21_ARB 0x84D5 -#define GL_TEXTURE22_ARB 0x84D6 -#define GL_TEXTURE23_ARB 0x84D7 -#define GL_TEXTURE24_ARB 0x84D8 -#define GL_TEXTURE25_ARB 0x84D9 -#define GL_TEXTURE26_ARB 0x84DA -#define GL_TEXTURE27_ARB 0x84DB -#define GL_TEXTURE28_ARB 0x84DC -#define GL_TEXTURE29_ARB 0x84DD -#define GL_TEXTURE30_ARB 0x84DE -#define GL_TEXTURE31_ARB 0x84DF -#define GL_ACTIVE_TEXTURE_ARB 0x84E0 -#define GL_CLIENT_ACTIVE_TEXTURE_ARB 0x84E1 -#define GL_MAX_TEXTURE_UNITS_ARB 0x84E2 -#endif - -#ifndef GL_ARB_transpose_matrix -#define GL_TRANSPOSE_MODELVIEW_MATRIX_ARB 0x84E3 -#define GL_TRANSPOSE_PROJECTION_MATRIX_ARB 0x84E4 -#define GL_TRANSPOSE_TEXTURE_MATRIX_ARB 0x84E5 -#define GL_TRANSPOSE_COLOR_MATRIX_ARB 0x84E6 -#endif - -#ifndef GL_ARB_multisample -#define GL_MULTISAMPLE_ARB 0x809D -#define GL_SAMPLE_ALPHA_TO_COVERAGE_ARB 0x809E -#define GL_SAMPLE_ALPHA_TO_ONE_ARB 0x809F -#define GL_SAMPLE_COVERAGE_ARB 0x80A0 -#define GL_SAMPLE_BUFFERS_ARB 0x80A8 -#define GL_SAMPLES_ARB 0x80A9 -#define GL_SAMPLE_COVERAGE_VALUE_ARB 0x80AA -#define GL_SAMPLE_COVERAGE_INVERT_ARB 0x80AB -#define GL_MULTISAMPLE_BIT_ARB 0x20000000 -#endif - -#ifndef GL_ARB_texture_env_add -#endif - -#ifndef GL_ARB_texture_cube_map -#define GL_NORMAL_MAP_ARB 0x8511 -#define GL_REFLECTION_MAP_ARB 0x8512 -#define GL_TEXTURE_CUBE_MAP_ARB 0x8513 -#define GL_TEXTURE_BINDING_CUBE_MAP_ARB 0x8514 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB 0x8515 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB 0x8516 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB 0x8517 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB 0x8518 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB 0x8519 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB 0x851A -#define GL_PROXY_TEXTURE_CUBE_MAP_ARB 0x851B -#define GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB 0x851C -#endif - -#ifndef GL_ARB_texture_compression -#define GL_COMPRESSED_ALPHA_ARB 0x84E9 -#define GL_COMPRESSED_LUMINANCE_ARB 0x84EA -#define GL_COMPRESSED_LUMINANCE_ALPHA_ARB 0x84EB -#define GL_COMPRESSED_INTENSITY_ARB 0x84EC -#define GL_COMPRESSED_RGB_ARB 0x84ED -#define GL_COMPRESSED_RGBA_ARB 0x84EE -#define GL_TEXTURE_COMPRESSION_HINT_ARB 0x84EF -#define GL_TEXTURE_COMPRESSED_IMAGE_SIZE_ARB 0x86A0 -#define GL_TEXTURE_COMPRESSED_ARB 0x86A1 -#define GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB 0x86A2 -#define GL_COMPRESSED_TEXTURE_FORMATS_ARB 0x86A3 -#endif - -#ifndef GL_ARB_texture_border_clamp -#define GL_CLAMP_TO_BORDER_ARB 0x812D -#endif - -#ifndef GL_ARB_point_parameters -#define GL_POINT_SIZE_MIN_ARB 0x8126 -#define GL_POINT_SIZE_MAX_ARB 0x8127 -#define GL_POINT_FADE_THRESHOLD_SIZE_ARB 0x8128 -#define GL_POINT_DISTANCE_ATTENUATION_ARB 0x8129 -#endif - -#ifndef GL_ARB_vertex_blend -#define GL_MAX_VERTEX_UNITS_ARB 0x86A4 -#define GL_ACTIVE_VERTEX_UNITS_ARB 0x86A5 -#define GL_WEIGHT_SUM_UNITY_ARB 0x86A6 -#define GL_VERTEX_BLEND_ARB 0x86A7 -#define GL_CURRENT_WEIGHT_ARB 0x86A8 -#define GL_WEIGHT_ARRAY_TYPE_ARB 0x86A9 -#define GL_WEIGHT_ARRAY_STRIDE_ARB 0x86AA -#define GL_WEIGHT_ARRAY_SIZE_ARB 0x86AB -#define GL_WEIGHT_ARRAY_POINTER_ARB 0x86AC -#define GL_WEIGHT_ARRAY_ARB 0x86AD -#define GL_MODELVIEW0_ARB 0x1700 -#define GL_MODELVIEW1_ARB 0x850A -#define GL_MODELVIEW2_ARB 0x8722 -#define GL_MODELVIEW3_ARB 0x8723 -#define GL_MODELVIEW4_ARB 0x8724 -#define GL_MODELVIEW5_ARB 0x8725 -#define GL_MODELVIEW6_ARB 0x8726 -#define GL_MODELVIEW7_ARB 0x8727 -#define GL_MODELVIEW8_ARB 0x8728 -#define GL_MODELVIEW9_ARB 0x8729 -#define GL_MODELVIEW10_ARB 0x872A -#define GL_MODELVIEW11_ARB 0x872B -#define GL_MODELVIEW12_ARB 0x872C -#define GL_MODELVIEW13_ARB 0x872D -#define GL_MODELVIEW14_ARB 0x872E -#define GL_MODELVIEW15_ARB 0x872F -#define GL_MODELVIEW16_ARB 0x8730 -#define GL_MODELVIEW17_ARB 0x8731 -#define GL_MODELVIEW18_ARB 0x8732 -#define GL_MODELVIEW19_ARB 0x8733 -#define GL_MODELVIEW20_ARB 0x8734 -#define GL_MODELVIEW21_ARB 0x8735 -#define GL_MODELVIEW22_ARB 0x8736 -#define GL_MODELVIEW23_ARB 0x8737 -#define GL_MODELVIEW24_ARB 0x8738 -#define GL_MODELVIEW25_ARB 0x8739 -#define GL_MODELVIEW26_ARB 0x873A -#define GL_MODELVIEW27_ARB 0x873B -#define GL_MODELVIEW28_ARB 0x873C -#define GL_MODELVIEW29_ARB 0x873D -#define GL_MODELVIEW30_ARB 0x873E -#define GL_MODELVIEW31_ARB 0x873F -#endif - -#ifndef GL_ARB_matrix_palette -#define GL_MATRIX_PALETTE_ARB 0x8840 -#define GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB 0x8841 -#define GL_MAX_PALETTE_MATRICES_ARB 0x8842 -#define GL_CURRENT_PALETTE_MATRIX_ARB 0x8843 -#define GL_MATRIX_INDEX_ARRAY_ARB 0x8844 -#define GL_CURRENT_MATRIX_INDEX_ARB 0x8845 -#define GL_MATRIX_INDEX_ARRAY_SIZE_ARB 0x8846 -#define GL_MATRIX_INDEX_ARRAY_TYPE_ARB 0x8847 -#define GL_MATRIX_INDEX_ARRAY_STRIDE_ARB 0x8848 -#define GL_MATRIX_INDEX_ARRAY_POINTER_ARB 0x8849 -#endif - -#ifndef GL_ARB_texture_env_combine -#define GL_COMBINE_ARB 0x8570 -#define GL_COMBINE_RGB_ARB 0x8571 -#define GL_COMBINE_ALPHA_ARB 0x8572 -#define GL_SOURCE0_RGB_ARB 0x8580 -#define GL_SOURCE1_RGB_ARB 0x8581 -#define GL_SOURCE2_RGB_ARB 0x8582 -#define GL_SOURCE0_ALPHA_ARB 0x8588 -#define GL_SOURCE1_ALPHA_ARB 0x8589 -#define GL_SOURCE2_ALPHA_ARB 0x858A -#define GL_OPERAND0_RGB_ARB 0x8590 -#define GL_OPERAND1_RGB_ARB 0x8591 -#define GL_OPERAND2_RGB_ARB 0x8592 -#define GL_OPERAND0_ALPHA_ARB 0x8598 -#define GL_OPERAND1_ALPHA_ARB 0x8599 -#define GL_OPERAND2_ALPHA_ARB 0x859A -#define GL_RGB_SCALE_ARB 0x8573 -#define GL_ADD_SIGNED_ARB 0x8574 -#define GL_INTERPOLATE_ARB 0x8575 -#define GL_SUBTRACT_ARB 0x84E7 -#define GL_CONSTANT_ARB 0x8576 -#define GL_PRIMARY_COLOR_ARB 0x8577 -#define GL_PREVIOUS_ARB 0x8578 -#endif - -#ifndef GL_ARB_texture_env_crossbar -#endif - -#ifndef GL_ARB_texture_env_dot3 -#define GL_DOT3_RGB_ARB 0x86AE -#define GL_DOT3_RGBA_ARB 0x86AF -#endif - -#ifndef GL_ARB_texture_mirrored_repeat -#define GL_MIRRORED_REPEAT_ARB 0x8370 -#endif - -#ifndef GL_ARB_depth_texture -#define GL_DEPTH_COMPONENT16_ARB 0x81A5 -#define GL_DEPTH_COMPONENT24_ARB 0x81A6 -#define GL_DEPTH_COMPONENT32_ARB 0x81A7 -#define GL_TEXTURE_DEPTH_SIZE_ARB 0x884A -#define GL_DEPTH_TEXTURE_MODE_ARB 0x884B -#endif - -#ifndef GL_ARB_shadow -#define GL_TEXTURE_COMPARE_MODE_ARB 0x884C -#define GL_TEXTURE_COMPARE_FUNC_ARB 0x884D -#define GL_COMPARE_R_TO_TEXTURE_ARB 0x884E -#endif - -#ifndef GL_ARB_shadow_ambient -#define GL_TEXTURE_COMPARE_FAIL_VALUE_ARB 0x80BF -#endif - -#ifndef GL_ARB_window_pos -#endif - -#ifndef GL_ARB_vertex_program -#define GL_COLOR_SUM_ARB 0x8458 -#define GL_VERTEX_PROGRAM_ARB 0x8620 -#define GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB 0x8622 -#define GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB 0x8623 -#define GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB 0x8624 -#define GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB 0x8625 -#define GL_CURRENT_VERTEX_ATTRIB_ARB 0x8626 -#define GL_PROGRAM_LENGTH_ARB 0x8627 -#define GL_PROGRAM_STRING_ARB 0x8628 -#define GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB 0x862E -#define GL_MAX_PROGRAM_MATRICES_ARB 0x862F -#define GL_CURRENT_MATRIX_STACK_DEPTH_ARB 0x8640 -#define GL_CURRENT_MATRIX_ARB 0x8641 -#define GL_VERTEX_PROGRAM_POINT_SIZE_ARB 0x8642 -#define GL_VERTEX_PROGRAM_TWO_SIDE_ARB 0x8643 -#define GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB 0x8645 -#define GL_PROGRAM_ERROR_POSITION_ARB 0x864B -#define GL_PROGRAM_BINDING_ARB 0x8677 -#define GL_MAX_VERTEX_ATTRIBS_ARB 0x8869 -#define GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB 0x886A -#define GL_PROGRAM_ERROR_STRING_ARB 0x8874 -#define GL_PROGRAM_FORMAT_ASCII_ARB 0x8875 -#define GL_PROGRAM_FORMAT_ARB 0x8876 -#define GL_PROGRAM_INSTRUCTIONS_ARB 0x88A0 -#define GL_MAX_PROGRAM_INSTRUCTIONS_ARB 0x88A1 -#define GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB 0x88A2 -#define GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB 0x88A3 -#define GL_PROGRAM_TEMPORARIES_ARB 0x88A4 -#define GL_MAX_PROGRAM_TEMPORARIES_ARB 0x88A5 -#define GL_PROGRAM_NATIVE_TEMPORARIES_ARB 0x88A6 -#define GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB 0x88A7 -#define GL_PROGRAM_PARAMETERS_ARB 0x88A8 -#define GL_MAX_PROGRAM_PARAMETERS_ARB 0x88A9 -#define GL_PROGRAM_NATIVE_PARAMETERS_ARB 0x88AA -#define GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB 0x88AB -#define GL_PROGRAM_ATTRIBS_ARB 0x88AC -#define GL_MAX_PROGRAM_ATTRIBS_ARB 0x88AD -#define GL_PROGRAM_NATIVE_ATTRIBS_ARB 0x88AE -#define GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB 0x88AF -#define GL_PROGRAM_ADDRESS_REGISTERS_ARB 0x88B0 -#define GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB 0x88B1 -#define GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB 0x88B2 -#define GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB 0x88B3 -#define GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB 0x88B4 -#define GL_MAX_PROGRAM_ENV_PARAMETERS_ARB 0x88B5 -#define GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB 0x88B6 -#define GL_TRANSPOSE_CURRENT_MATRIX_ARB 0x88B7 -#define GL_MATRIX0_ARB 0x88C0 -#define GL_MATRIX1_ARB 0x88C1 -#define GL_MATRIX2_ARB 0x88C2 -#define GL_MATRIX3_ARB 0x88C3 -#define GL_MATRIX4_ARB 0x88C4 -#define GL_MATRIX5_ARB 0x88C5 -#define GL_MATRIX6_ARB 0x88C6 -#define GL_MATRIX7_ARB 0x88C7 -#define GL_MATRIX8_ARB 0x88C8 -#define GL_MATRIX9_ARB 0x88C9 -#define GL_MATRIX10_ARB 0x88CA -#define GL_MATRIX11_ARB 0x88CB -#define GL_MATRIX12_ARB 0x88CC -#define GL_MATRIX13_ARB 0x88CD -#define GL_MATRIX14_ARB 0x88CE -#define GL_MATRIX15_ARB 0x88CF -#define GL_MATRIX16_ARB 0x88D0 -#define GL_MATRIX17_ARB 0x88D1 -#define GL_MATRIX18_ARB 0x88D2 -#define GL_MATRIX19_ARB 0x88D3 -#define GL_MATRIX20_ARB 0x88D4 -#define GL_MATRIX21_ARB 0x88D5 -#define GL_MATRIX22_ARB 0x88D6 -#define GL_MATRIX23_ARB 0x88D7 -#define GL_MATRIX24_ARB 0x88D8 -#define GL_MATRIX25_ARB 0x88D9 -#define GL_MATRIX26_ARB 0x88DA -#define GL_MATRIX27_ARB 0x88DB -#define GL_MATRIX28_ARB 0x88DC -#define GL_MATRIX29_ARB 0x88DD -#define GL_MATRIX30_ARB 0x88DE -#define GL_MATRIX31_ARB 0x88DF -#endif - -#ifndef GL_ARB_fragment_program -#define GL_FRAGMENT_PROGRAM_ARB 0x8804 -#define GL_PROGRAM_ALU_INSTRUCTIONS_ARB 0x8805 -#define GL_PROGRAM_TEX_INSTRUCTIONS_ARB 0x8806 -#define GL_PROGRAM_TEX_INDIRECTIONS_ARB 0x8807 -#define GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB 0x8808 -#define GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB 0x8809 -#define GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB 0x880A -#define GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB 0x880B -#define GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB 0x880C -#define GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB 0x880D -#define GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB 0x880E -#define GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB 0x880F -#define GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB 0x8810 -#define GL_MAX_TEXTURE_COORDS_ARB 0x8871 -#define GL_MAX_TEXTURE_IMAGE_UNITS_ARB 0x8872 -#endif - -#ifndef GL_ARB_vertex_buffer_object -#define GL_BUFFER_SIZE_ARB 0x8764 -#define GL_BUFFER_USAGE_ARB 0x8765 -#define GL_ARRAY_BUFFER_ARB 0x8892 -#define GL_ELEMENT_ARRAY_BUFFER_ARB 0x8893 -#define GL_ARRAY_BUFFER_BINDING_ARB 0x8894 -#define GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB 0x8895 -#define GL_VERTEX_ARRAY_BUFFER_BINDING_ARB 0x8896 -#define GL_NORMAL_ARRAY_BUFFER_BINDING_ARB 0x8897 -#define GL_COLOR_ARRAY_BUFFER_BINDING_ARB 0x8898 -#define GL_INDEX_ARRAY_BUFFER_BINDING_ARB 0x8899 -#define GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB 0x889A -#define GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB 0x889B -#define GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB 0x889C -#define GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB 0x889D -#define GL_WEIGHT_ARRAY_BUFFER_BINDING_ARB 0x889E -#define GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ARB 0x889F -#define GL_READ_ONLY_ARB 0x88B8 -#define GL_WRITE_ONLY_ARB 0x88B9 -#define GL_READ_WRITE_ARB 0x88BA -#define GL_BUFFER_ACCESS_ARB 0x88BB -#define GL_BUFFER_MAPPED_ARB 0x88BC -#define GL_BUFFER_MAP_POINTER_ARB 0x88BD -#define GL_STREAM_DRAW_ARB 0x88E0 -#define GL_STREAM_READ_ARB 0x88E1 -#define GL_STREAM_COPY_ARB 0x88E2 -#define GL_STATIC_DRAW_ARB 0x88E4 -#define GL_STATIC_READ_ARB 0x88E5 -#define GL_STATIC_COPY_ARB 0x88E6 -#define GL_DYNAMIC_DRAW_ARB 0x88E8 -#define GL_DYNAMIC_READ_ARB 0x88E9 -#define GL_DYNAMIC_COPY_ARB 0x88EA -#endif - -#ifndef GL_ARB_occlusion_query -#define GL_QUERY_COUNTER_BITS_ARB 0x8864 -#define GL_CURRENT_QUERY_ARB 0x8865 -#define GL_QUERY_RESULT_ARB 0x8866 -#define GL_QUERY_RESULT_AVAILABLE_ARB 0x8867 -#define GL_SAMPLES_PASSED_ARB 0x8914 -#endif - -#ifndef GL_ARB_shader_objects -#define GL_PROGRAM_OBJECT_ARB 0x8B40 -#define GL_SHADER_OBJECT_ARB 0x8B48 -#define GL_OBJECT_TYPE_ARB 0x8B4E -#define GL_OBJECT_SUBTYPE_ARB 0x8B4F -#define GL_FLOAT_VEC2_ARB 0x8B50 -#define GL_FLOAT_VEC3_ARB 0x8B51 -#define GL_FLOAT_VEC4_ARB 0x8B52 -#define GL_INT_VEC2_ARB 0x8B53 -#define GL_INT_VEC3_ARB 0x8B54 -#define GL_INT_VEC4_ARB 0x8B55 -#define GL_BOOL_ARB 0x8B56 -#define GL_BOOL_VEC2_ARB 0x8B57 -#define GL_BOOL_VEC3_ARB 0x8B58 -#define GL_BOOL_VEC4_ARB 0x8B59 -#define GL_FLOAT_MAT2_ARB 0x8B5A -#define GL_FLOAT_MAT3_ARB 0x8B5B -#define GL_FLOAT_MAT4_ARB 0x8B5C -#define GL_SAMPLER_1D_ARB 0x8B5D -#define GL_SAMPLER_2D_ARB 0x8B5E -#define GL_SAMPLER_3D_ARB 0x8B5F -#define GL_SAMPLER_CUBE_ARB 0x8B60 -#define GL_SAMPLER_1D_SHADOW_ARB 0x8B61 -#define GL_SAMPLER_2D_SHADOW_ARB 0x8B62 -#define GL_SAMPLER_2D_RECT_ARB 0x8B63 -#define GL_SAMPLER_2D_RECT_SHADOW_ARB 0x8B64 -#define GL_OBJECT_DELETE_STATUS_ARB 0x8B80 -#define GL_OBJECT_COMPILE_STATUS_ARB 0x8B81 -#define GL_OBJECT_LINK_STATUS_ARB 0x8B82 -#define GL_OBJECT_VALIDATE_STATUS_ARB 0x8B83 -#define GL_OBJECT_INFO_LOG_LENGTH_ARB 0x8B84 -#define GL_OBJECT_ATTACHED_OBJECTS_ARB 0x8B85 -#define GL_OBJECT_ACTIVE_UNIFORMS_ARB 0x8B86 -#define GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB 0x8B87 -#define GL_OBJECT_SHADER_SOURCE_LENGTH_ARB 0x8B88 -#endif - -#ifndef GL_ARB_vertex_shader -#define GL_VERTEX_SHADER_ARB 0x8B31 -#define GL_MAX_VERTEX_UNIFORM_COMPONENTS_ARB 0x8B4A -#define GL_MAX_VARYING_FLOATS_ARB 0x8B4B -#define GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB 0x8B4C -#define GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS_ARB 0x8B4D -#define GL_OBJECT_ACTIVE_ATTRIBUTES_ARB 0x8B89 -#define GL_OBJECT_ACTIVE_ATTRIBUTE_MAX_LENGTH_ARB 0x8B8A -#endif - -#ifndef GL_ARB_fragment_shader -#define GL_FRAGMENT_SHADER_ARB 0x8B30 -#define GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB 0x8B49 -#define GL_FRAGMENT_SHADER_DERIVATIVE_HINT_ARB 0x8B8B -#endif - -#ifndef GL_ARB_shading_language_100 -#define GL_SHADING_LANGUAGE_VERSION_ARB 0x8B8C -#endif - -#ifndef GL_ARB_texture_non_power_of_two -#endif - -#ifndef GL_ARB_point_sprite -#define GL_POINT_SPRITE_ARB 0x8861 -#define GL_COORD_REPLACE_ARB 0x8862 -#endif - -#ifndef GL_ARB_fragment_program_shadow -#endif - -#ifndef GL_ARB_draw_buffers -#define GL_MAX_DRAW_BUFFERS_ARB 0x8824 -#define GL_DRAW_BUFFER0_ARB 0x8825 -#define GL_DRAW_BUFFER1_ARB 0x8826 -#define GL_DRAW_BUFFER2_ARB 0x8827 -#define GL_DRAW_BUFFER3_ARB 0x8828 -#define GL_DRAW_BUFFER4_ARB 0x8829 -#define GL_DRAW_BUFFER5_ARB 0x882A -#define GL_DRAW_BUFFER6_ARB 0x882B -#define GL_DRAW_BUFFER7_ARB 0x882C -#define GL_DRAW_BUFFER8_ARB 0x882D -#define GL_DRAW_BUFFER9_ARB 0x882E -#define GL_DRAW_BUFFER10_ARB 0x882F -#define GL_DRAW_BUFFER11_ARB 0x8830 -#define GL_DRAW_BUFFER12_ARB 0x8831 -#define GL_DRAW_BUFFER13_ARB 0x8832 -#define GL_DRAW_BUFFER14_ARB 0x8833 -#define GL_DRAW_BUFFER15_ARB 0x8834 -#endif - -#ifndef GL_ARB_texture_rectangle -#define GL_TEXTURE_RECTANGLE_ARB 0x84F5 -#define GL_TEXTURE_BINDING_RECTANGLE_ARB 0x84F6 -#define GL_PROXY_TEXTURE_RECTANGLE_ARB 0x84F7 -#define GL_MAX_RECTANGLE_TEXTURE_SIZE_ARB 0x84F8 -#endif - -#ifndef GL_ARB_color_buffer_float -#define GL_RGBA_FLOAT_MODE_ARB 0x8820 -#define GL_CLAMP_VERTEX_COLOR_ARB 0x891A -#define GL_CLAMP_FRAGMENT_COLOR_ARB 0x891B -#define GL_CLAMP_READ_COLOR_ARB 0x891C -#define GL_FIXED_ONLY_ARB 0x891D -#endif - -#ifndef GL_ARB_half_float_pixel -#define GL_HALF_FLOAT_ARB 0x140B -#endif - -#ifndef GL_ARB_texture_float -#define GL_TEXTURE_RED_TYPE_ARB 0x8C10 -#define GL_TEXTURE_GREEN_TYPE_ARB 0x8C11 -#define GL_TEXTURE_BLUE_TYPE_ARB 0x8C12 -#define GL_TEXTURE_ALPHA_TYPE_ARB 0x8C13 -#define GL_TEXTURE_LUMINANCE_TYPE_ARB 0x8C14 -#define GL_TEXTURE_INTENSITY_TYPE_ARB 0x8C15 -#define GL_TEXTURE_DEPTH_TYPE_ARB 0x8C16 -#define GL_UNSIGNED_NORMALIZED_ARB 0x8C17 -#define GL_RGBA32F_ARB 0x8814 -#define GL_RGB32F_ARB 0x8815 -#define GL_ALPHA32F_ARB 0x8816 -#define GL_INTENSITY32F_ARB 0x8817 -#define GL_LUMINANCE32F_ARB 0x8818 -#define GL_LUMINANCE_ALPHA32F_ARB 0x8819 -#define GL_RGBA16F_ARB 0x881A -#define GL_RGB16F_ARB 0x881B -#define GL_ALPHA16F_ARB 0x881C -#define GL_INTENSITY16F_ARB 0x881D -#define GL_LUMINANCE16F_ARB 0x881E -#define GL_LUMINANCE_ALPHA16F_ARB 0x881F -#endif - -#ifndef GL_ARB_pixel_buffer_object -#define GL_PIXEL_PACK_BUFFER_ARB 0x88EB -#define GL_PIXEL_UNPACK_BUFFER_ARB 0x88EC -#define GL_PIXEL_PACK_BUFFER_BINDING_ARB 0x88ED -#define GL_PIXEL_UNPACK_BUFFER_BINDING_ARB 0x88EF -#endif - -#ifndef GL_ARB_depth_buffer_float -#define GL_DEPTH_COMPONENT32F 0x8CAC -#define GL_DEPTH32F_STENCIL8 0x8CAD -#define GL_FLOAT_32_UNSIGNED_INT_24_8_REV 0x8DAD -#endif - -#ifndef GL_ARB_draw_instanced -#endif - -#ifndef GL_ARB_framebuffer_object -#define GL_INVALID_FRAMEBUFFER_OPERATION 0x0506 -#define GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING 0x8210 -#define GL_FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE 0x8211 -#define GL_FRAMEBUFFER_ATTACHMENT_RED_SIZE 0x8212 -#define GL_FRAMEBUFFER_ATTACHMENT_GREEN_SIZE 0x8213 -#define GL_FRAMEBUFFER_ATTACHMENT_BLUE_SIZE 0x8214 -#define GL_FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE 0x8215 -#define GL_FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE 0x8216 -#define GL_FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE 0x8217 -#define GL_FRAMEBUFFER_DEFAULT 0x8218 -#define GL_FRAMEBUFFER_UNDEFINED 0x8219 -#define GL_DEPTH_STENCIL_ATTACHMENT 0x821A -#define GL_INDEX 0x8222 -#define GL_MAX_RENDERBUFFER_SIZE 0x84E8 -#define GL_DEPTH_STENCIL 0x84F9 -#define GL_UNSIGNED_INT_24_8 0x84FA -#define GL_DEPTH24_STENCIL8 0x88F0 -#define GL_TEXTURE_STENCIL_SIZE 0x88F1 -#define GL_FRAMEBUFFER_BINDING 0x8CA6 -#define GL_DRAW_FRAMEBUFFER_BINDING GL_FRAMEBUFFER_BINDING -#define GL_RENDERBUFFER_BINDING 0x8CA7 -#define GL_READ_FRAMEBUFFER 0x8CA8 -#define GL_DRAW_FRAMEBUFFER 0x8CA9 -#define GL_READ_FRAMEBUFFER_BINDING 0x8CAA -#define GL_RENDERBUFFER_SAMPLES 0x8CAB -#define GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE 0x8CD0 -#define GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME 0x8CD1 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL 0x8CD2 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE 0x8CD3 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER 0x8CD4 -#define GL_FRAMEBUFFER_COMPLETE 0x8CD5 -#define GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT 0x8CD6 -#define GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT 0x8CD7 -#define GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER 0x8CDB -#define GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER 0x8CDC -#define GL_FRAMEBUFFER_UNSUPPORTED 0x8CDD -#define GL_MAX_COLOR_ATTACHMENTS 0x8CDF -#define GL_COLOR_ATTACHMENT0 0x8CE0 -#define GL_COLOR_ATTACHMENT1 0x8CE1 -#define GL_COLOR_ATTACHMENT2 0x8CE2 -#define GL_COLOR_ATTACHMENT3 0x8CE3 -#define GL_COLOR_ATTACHMENT4 0x8CE4 -#define GL_COLOR_ATTACHMENT5 0x8CE5 -#define GL_COLOR_ATTACHMENT6 0x8CE6 -#define GL_COLOR_ATTACHMENT7 0x8CE7 -#define GL_COLOR_ATTACHMENT8 0x8CE8 -#define GL_COLOR_ATTACHMENT9 0x8CE9 -#define GL_COLOR_ATTACHMENT10 0x8CEA -#define GL_COLOR_ATTACHMENT11 0x8CEB -#define GL_COLOR_ATTACHMENT12 0x8CEC -#define GL_COLOR_ATTACHMENT13 0x8CED -#define GL_COLOR_ATTACHMENT14 0x8CEE -#define GL_COLOR_ATTACHMENT15 0x8CEF -#define GL_DEPTH_ATTACHMENT 0x8D00 -#define GL_STENCIL_ATTACHMENT 0x8D20 -#define GL_FRAMEBUFFER 0x8D40 -#define GL_RENDERBUFFER 0x8D41 -#define GL_RENDERBUFFER_WIDTH 0x8D42 -#define GL_RENDERBUFFER_HEIGHT 0x8D43 -#define GL_RENDERBUFFER_INTERNAL_FORMAT 0x8D44 -#define GL_STENCIL_INDEX1 0x8D46 -#define GL_STENCIL_INDEX4 0x8D47 -#define GL_STENCIL_INDEX8 0x8D48 -#define GL_STENCIL_INDEX16 0x8D49 -#define GL_RENDERBUFFER_RED_SIZE 0x8D50 -#define GL_RENDERBUFFER_GREEN_SIZE 0x8D51 -#define GL_RENDERBUFFER_BLUE_SIZE 0x8D52 -#define GL_RENDERBUFFER_ALPHA_SIZE 0x8D53 -#define GL_RENDERBUFFER_DEPTH_SIZE 0x8D54 -#define GL_RENDERBUFFER_STENCIL_SIZE 0x8D55 -#define GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE 0x8D56 -#define GL_MAX_SAMPLES 0x8D57 -#endif - -#ifndef GL_ARB_framebuffer_sRGB -#define GL_FRAMEBUFFER_SRGB 0x8DB9 -#endif - -#ifndef GL_ARB_geometry_shader4 -#define GL_LINES_ADJACENCY_ARB 0x000A -#define GL_LINE_STRIP_ADJACENCY_ARB 0x000B -#define GL_TRIANGLES_ADJACENCY_ARB 0x000C -#define GL_TRIANGLE_STRIP_ADJACENCY_ARB 0x000D -#define GL_PROGRAM_POINT_SIZE_ARB 0x8642 -#define GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS_ARB 0x8C29 -#define GL_FRAMEBUFFER_ATTACHMENT_LAYERED_ARB 0x8DA7 -#define GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS_ARB 0x8DA8 -#define GL_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT_ARB 0x8DA9 -#define GL_GEOMETRY_SHADER_ARB 0x8DD9 -#define GL_GEOMETRY_VERTICES_OUT_ARB 0x8DDA -#define GL_GEOMETRY_INPUT_TYPE_ARB 0x8DDB -#define GL_GEOMETRY_OUTPUT_TYPE_ARB 0x8DDC -#define GL_MAX_GEOMETRY_VARYING_COMPONENTS_ARB 0x8DDD -#define GL_MAX_VERTEX_VARYING_COMPONENTS_ARB 0x8DDE -#define GL_MAX_GEOMETRY_UNIFORM_COMPONENTS_ARB 0x8DDF -#define GL_MAX_GEOMETRY_OUTPUT_VERTICES_ARB 0x8DE0 -#define GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS_ARB 0x8DE1 -/* reuse GL_MAX_VARYING_COMPONENTS */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER */ -#endif - -#ifndef GL_ARB_half_float_vertex -#define GL_HALF_FLOAT 0x140B -#endif - -#ifndef GL_ARB_instanced_arrays -#endif - -#ifndef GL_ARB_map_buffer_range -#define GL_MAP_READ_BIT 0x0001 -#define GL_MAP_WRITE_BIT 0x0002 -#define GL_MAP_INVALIDATE_RANGE_BIT 0x0004 -#define GL_MAP_INVALIDATE_BUFFER_BIT 0x0008 -#define GL_MAP_FLUSH_EXPLICIT_BIT 0x0010 -#define GL_MAP_UNSYNCHRONIZED_BIT 0x0020 -#endif - -#ifndef GL_ARB_texture_buffer_object -#define GL_TEXTURE_BUFFER_ARB 0x8C2A -#define GL_MAX_TEXTURE_BUFFER_SIZE_ARB 0x8C2B -#define GL_TEXTURE_BINDING_BUFFER_ARB 0x8C2C -#define GL_TEXTURE_BUFFER_DATA_STORE_BINDING_ARB 0x8C2D -#define GL_TEXTURE_BUFFER_FORMAT_ARB 0x8C2E -#endif - -#ifndef GL_ARB_texture_compression_rgtc -#define GL_COMPRESSED_RED_RGTC1 0x8DBB -#define GL_COMPRESSED_SIGNED_RED_RGTC1 0x8DBC -#define GL_COMPRESSED_RG_RGTC2 0x8DBD -#define GL_COMPRESSED_SIGNED_RG_RGTC2 0x8DBE -#endif - -#ifndef GL_ARB_texture_rg -#define GL_RG 0x8227 -#define GL_RG_INTEGER 0x8228 -#define GL_R8 0x8229 -#define GL_R16 0x822A -#define GL_RG8 0x822B -#define GL_RG16 0x822C -#define GL_R16F 0x822D -#define GL_R32F 0x822E -#define GL_RG16F 0x822F -#define GL_RG32F 0x8230 -#define GL_R8I 0x8231 -#define GL_R8UI 0x8232 -#define GL_R16I 0x8233 -#define GL_R16UI 0x8234 -#define GL_R32I 0x8235 -#define GL_R32UI 0x8236 -#define GL_RG8I 0x8237 -#define GL_RG8UI 0x8238 -#define GL_RG16I 0x8239 -#define GL_RG16UI 0x823A -#define GL_RG32I 0x823B -#define GL_RG32UI 0x823C -#endif - -#ifndef GL_ARB_vertex_array_object -#define GL_VERTEX_ARRAY_BINDING 0x85B5 -#endif - -#ifndef GL_EXT_abgr -#define GL_ABGR_EXT 0x8000 -#endif - -#ifndef GL_EXT_blend_color -#define GL_CONSTANT_COLOR_EXT 0x8001 -#define GL_ONE_MINUS_CONSTANT_COLOR_EXT 0x8002 -#define GL_CONSTANT_ALPHA_EXT 0x8003 -#define GL_ONE_MINUS_CONSTANT_ALPHA_EXT 0x8004 -#define GL_BLEND_COLOR_EXT 0x8005 -#endif - -#ifndef GL_EXT_polygon_offset -#define GL_POLYGON_OFFSET_EXT 0x8037 -#define GL_POLYGON_OFFSET_FACTOR_EXT 0x8038 -#define GL_POLYGON_OFFSET_BIAS_EXT 0x8039 -#endif - -#ifndef GL_EXT_texture -#define GL_ALPHA4_EXT 0x803B -#define GL_ALPHA8_EXT 0x803C -#define GL_ALPHA12_EXT 0x803D -#define GL_ALPHA16_EXT 0x803E -#define GL_LUMINANCE4_EXT 0x803F -#define GL_LUMINANCE8_EXT 0x8040 -#define GL_LUMINANCE12_EXT 0x8041 -#define GL_LUMINANCE16_EXT 0x8042 -#define GL_LUMINANCE4_ALPHA4_EXT 0x8043 -#define GL_LUMINANCE6_ALPHA2_EXT 0x8044 -#define GL_LUMINANCE8_ALPHA8_EXT 0x8045 -#define GL_LUMINANCE12_ALPHA4_EXT 0x8046 -#define GL_LUMINANCE12_ALPHA12_EXT 0x8047 -#define GL_LUMINANCE16_ALPHA16_EXT 0x8048 -#define GL_INTENSITY_EXT 0x8049 -#define GL_INTENSITY4_EXT 0x804A -#define GL_INTENSITY8_EXT 0x804B -#define GL_INTENSITY12_EXT 0x804C -#define GL_INTENSITY16_EXT 0x804D -#define GL_RGB2_EXT 0x804E -#define GL_RGB4_EXT 0x804F -#define GL_RGB5_EXT 0x8050 -#define GL_RGB8_EXT 0x8051 -#define GL_RGB10_EXT 0x8052 -#define GL_RGB12_EXT 0x8053 -#define GL_RGB16_EXT 0x8054 -#define GL_RGBA2_EXT 0x8055 -#define GL_RGBA4_EXT 0x8056 -#define GL_RGB5_A1_EXT 0x8057 -#define GL_RGBA8_EXT 0x8058 -#define GL_RGB10_A2_EXT 0x8059 -#define GL_RGBA12_EXT 0x805A -#define GL_RGBA16_EXT 0x805B -#define GL_TEXTURE_RED_SIZE_EXT 0x805C -#define GL_TEXTURE_GREEN_SIZE_EXT 0x805D -#define GL_TEXTURE_BLUE_SIZE_EXT 0x805E -#define GL_TEXTURE_ALPHA_SIZE_EXT 0x805F -#define GL_TEXTURE_LUMINANCE_SIZE_EXT 0x8060 -#define GL_TEXTURE_INTENSITY_SIZE_EXT 0x8061 -#define GL_REPLACE_EXT 0x8062 -#define GL_PROXY_TEXTURE_1D_EXT 0x8063 -#define GL_PROXY_TEXTURE_2D_EXT 0x8064 -#define GL_TEXTURE_TOO_LARGE_EXT 0x8065 -#endif - -#ifndef GL_EXT_texture3D -#define GL_PACK_SKIP_IMAGES_EXT 0x806B -#define GL_PACK_IMAGE_HEIGHT_EXT 0x806C -#define GL_UNPACK_SKIP_IMAGES_EXT 0x806D -#define GL_UNPACK_IMAGE_HEIGHT_EXT 0x806E -#define GL_TEXTURE_3D_EXT 0x806F -#define GL_PROXY_TEXTURE_3D_EXT 0x8070 -#define GL_TEXTURE_DEPTH_EXT 0x8071 -#define GL_TEXTURE_WRAP_R_EXT 0x8072 -#define GL_MAX_3D_TEXTURE_SIZE_EXT 0x8073 -#endif - -#ifndef GL_SGIS_texture_filter4 -#define GL_FILTER4_SGIS 0x8146 -#define GL_TEXTURE_FILTER4_SIZE_SGIS 0x8147 -#endif - -#ifndef GL_EXT_subtexture -#endif - -#ifndef GL_EXT_copy_texture -#endif - -#ifndef GL_EXT_histogram -#define GL_HISTOGRAM_EXT 0x8024 -#define GL_PROXY_HISTOGRAM_EXT 0x8025 -#define GL_HISTOGRAM_WIDTH_EXT 0x8026 -#define GL_HISTOGRAM_FORMAT_EXT 0x8027 -#define GL_HISTOGRAM_RED_SIZE_EXT 0x8028 -#define GL_HISTOGRAM_GREEN_SIZE_EXT 0x8029 -#define GL_HISTOGRAM_BLUE_SIZE_EXT 0x802A -#define GL_HISTOGRAM_ALPHA_SIZE_EXT 0x802B -#define GL_HISTOGRAM_LUMINANCE_SIZE_EXT 0x802C -#define GL_HISTOGRAM_SINK_EXT 0x802D -#define GL_MINMAX_EXT 0x802E -#define GL_MINMAX_FORMAT_EXT 0x802F -#define GL_MINMAX_SINK_EXT 0x8030 -#define GL_TABLE_TOO_LARGE_EXT 0x8031 -#endif - -#ifndef GL_EXT_convolution -#define GL_CONVOLUTION_1D_EXT 0x8010 -#define GL_CONVOLUTION_2D_EXT 0x8011 -#define GL_SEPARABLE_2D_EXT 0x8012 -#define GL_CONVOLUTION_BORDER_MODE_EXT 0x8013 -#define GL_CONVOLUTION_FILTER_SCALE_EXT 0x8014 -#define GL_CONVOLUTION_FILTER_BIAS_EXT 0x8015 -#define GL_REDUCE_EXT 0x8016 -#define GL_CONVOLUTION_FORMAT_EXT 0x8017 -#define GL_CONVOLUTION_WIDTH_EXT 0x8018 -#define GL_CONVOLUTION_HEIGHT_EXT 0x8019 -#define GL_MAX_CONVOLUTION_WIDTH_EXT 0x801A -#define GL_MAX_CONVOLUTION_HEIGHT_EXT 0x801B -#define GL_POST_CONVOLUTION_RED_SCALE_EXT 0x801C -#define GL_POST_CONVOLUTION_GREEN_SCALE_EXT 0x801D -#define GL_POST_CONVOLUTION_BLUE_SCALE_EXT 0x801E -#define GL_POST_CONVOLUTION_ALPHA_SCALE_EXT 0x801F -#define GL_POST_CONVOLUTION_RED_BIAS_EXT 0x8020 -#define GL_POST_CONVOLUTION_GREEN_BIAS_EXT 0x8021 -#define GL_POST_CONVOLUTION_BLUE_BIAS_EXT 0x8022 -#define GL_POST_CONVOLUTION_ALPHA_BIAS_EXT 0x8023 -#endif - -#ifndef GL_SGI_color_matrix -#define GL_COLOR_MATRIX_SGI 0x80B1 -#define GL_COLOR_MATRIX_STACK_DEPTH_SGI 0x80B2 -#define GL_MAX_COLOR_MATRIX_STACK_DEPTH_SGI 0x80B3 -#define GL_POST_COLOR_MATRIX_RED_SCALE_SGI 0x80B4 -#define GL_POST_COLOR_MATRIX_GREEN_SCALE_SGI 0x80B5 -#define GL_POST_COLOR_MATRIX_BLUE_SCALE_SGI 0x80B6 -#define GL_POST_COLOR_MATRIX_ALPHA_SCALE_SGI 0x80B7 -#define GL_POST_COLOR_MATRIX_RED_BIAS_SGI 0x80B8 -#define GL_POST_COLOR_MATRIX_GREEN_BIAS_SGI 0x80B9 -#define GL_POST_COLOR_MATRIX_BLUE_BIAS_SGI 0x80BA -#define GL_POST_COLOR_MATRIX_ALPHA_BIAS_SGI 0x80BB -#endif - -#ifndef GL_SGI_color_table -#define GL_COLOR_TABLE_SGI 0x80D0 -#define GL_POST_CONVOLUTION_COLOR_TABLE_SGI 0x80D1 -#define GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI 0x80D2 -#define GL_PROXY_COLOR_TABLE_SGI 0x80D3 -#define GL_PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI 0x80D4 -#define GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI 0x80D5 -#define GL_COLOR_TABLE_SCALE_SGI 0x80D6 -#define GL_COLOR_TABLE_BIAS_SGI 0x80D7 -#define GL_COLOR_TABLE_FORMAT_SGI 0x80D8 -#define GL_COLOR_TABLE_WIDTH_SGI 0x80D9 -#define GL_COLOR_TABLE_RED_SIZE_SGI 0x80DA -#define GL_COLOR_TABLE_GREEN_SIZE_SGI 0x80DB -#define GL_COLOR_TABLE_BLUE_SIZE_SGI 0x80DC -#define GL_COLOR_TABLE_ALPHA_SIZE_SGI 0x80DD -#define GL_COLOR_TABLE_LUMINANCE_SIZE_SGI 0x80DE -#define GL_COLOR_TABLE_INTENSITY_SIZE_SGI 0x80DF -#endif - -#ifndef GL_SGIS_pixel_texture -#define GL_PIXEL_TEXTURE_SGIS 0x8353 -#define GL_PIXEL_FRAGMENT_RGB_SOURCE_SGIS 0x8354 -#define GL_PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS 0x8355 -#define GL_PIXEL_GROUP_COLOR_SGIS 0x8356 -#endif - -#ifndef GL_SGIX_pixel_texture -#define GL_PIXEL_TEX_GEN_SGIX 0x8139 -#define GL_PIXEL_TEX_GEN_MODE_SGIX 0x832B -#endif - -#ifndef GL_SGIS_texture4D -#define GL_PACK_SKIP_VOLUMES_SGIS 0x8130 -#define GL_PACK_IMAGE_DEPTH_SGIS 0x8131 -#define GL_UNPACK_SKIP_VOLUMES_SGIS 0x8132 -#define GL_UNPACK_IMAGE_DEPTH_SGIS 0x8133 -#define GL_TEXTURE_4D_SGIS 0x8134 -#define GL_PROXY_TEXTURE_4D_SGIS 0x8135 -#define GL_TEXTURE_4DSIZE_SGIS 0x8136 -#define GL_TEXTURE_WRAP_Q_SGIS 0x8137 -#define GL_MAX_4D_TEXTURE_SIZE_SGIS 0x8138 -#define GL_TEXTURE_4D_BINDING_SGIS 0x814F -#endif - -#ifndef GL_SGI_texture_color_table -#define GL_TEXTURE_COLOR_TABLE_SGI 0x80BC -#define GL_PROXY_TEXTURE_COLOR_TABLE_SGI 0x80BD -#endif - -#ifndef GL_EXT_cmyka -#define GL_CMYK_EXT 0x800C -#define GL_CMYKA_EXT 0x800D -#define GL_PACK_CMYK_HINT_EXT 0x800E -#define GL_UNPACK_CMYK_HINT_EXT 0x800F -#endif - -#ifndef GL_EXT_texture_object -#define GL_TEXTURE_PRIORITY_EXT 0x8066 -#define GL_TEXTURE_RESIDENT_EXT 0x8067 -#define GL_TEXTURE_1D_BINDING_EXT 0x8068 -#define GL_TEXTURE_2D_BINDING_EXT 0x8069 -#define GL_TEXTURE_3D_BINDING_EXT 0x806A -#endif - -#ifndef GL_SGIS_detail_texture -#define GL_DETAIL_TEXTURE_2D_SGIS 0x8095 -#define GL_DETAIL_TEXTURE_2D_BINDING_SGIS 0x8096 -#define GL_LINEAR_DETAIL_SGIS 0x8097 -#define GL_LINEAR_DETAIL_ALPHA_SGIS 0x8098 -#define GL_LINEAR_DETAIL_COLOR_SGIS 0x8099 -#define GL_DETAIL_TEXTURE_LEVEL_SGIS 0x809A -#define GL_DETAIL_TEXTURE_MODE_SGIS 0x809B -#define GL_DETAIL_TEXTURE_FUNC_POINTS_SGIS 0x809C -#endif - -#ifndef GL_SGIS_sharpen_texture -#define GL_LINEAR_SHARPEN_SGIS 0x80AD -#define GL_LINEAR_SHARPEN_ALPHA_SGIS 0x80AE -#define GL_LINEAR_SHARPEN_COLOR_SGIS 0x80AF -#define GL_SHARPEN_TEXTURE_FUNC_POINTS_SGIS 0x80B0 -#endif - -#ifndef GL_EXT_packed_pixels -#define GL_UNSIGNED_BYTE_3_3_2_EXT 0x8032 -#define GL_UNSIGNED_SHORT_4_4_4_4_EXT 0x8033 -#define GL_UNSIGNED_SHORT_5_5_5_1_EXT 0x8034 -#define GL_UNSIGNED_INT_8_8_8_8_EXT 0x8035 -#define GL_UNSIGNED_INT_10_10_10_2_EXT 0x8036 -#endif - -#ifndef GL_SGIS_texture_lod -#define GL_TEXTURE_MIN_LOD_SGIS 0x813A -#define GL_TEXTURE_MAX_LOD_SGIS 0x813B -#define GL_TEXTURE_BASE_LEVEL_SGIS 0x813C -#define GL_TEXTURE_MAX_LEVEL_SGIS 0x813D -#endif - -#ifndef GL_SGIS_multisample -#define GL_MULTISAMPLE_SGIS 0x809D -#define GL_SAMPLE_ALPHA_TO_MASK_SGIS 0x809E -#define GL_SAMPLE_ALPHA_TO_ONE_SGIS 0x809F -#define GL_SAMPLE_MASK_SGIS 0x80A0 -#define GL_1PASS_SGIS 0x80A1 -#define GL_2PASS_0_SGIS 0x80A2 -#define GL_2PASS_1_SGIS 0x80A3 -#define GL_4PASS_0_SGIS 0x80A4 -#define GL_4PASS_1_SGIS 0x80A5 -#define GL_4PASS_2_SGIS 0x80A6 -#define GL_4PASS_3_SGIS 0x80A7 -#define GL_SAMPLE_BUFFERS_SGIS 0x80A8 -#define GL_SAMPLES_SGIS 0x80A9 -#define GL_SAMPLE_MASK_VALUE_SGIS 0x80AA -#define GL_SAMPLE_MASK_INVERT_SGIS 0x80AB -#define GL_SAMPLE_PATTERN_SGIS 0x80AC -#endif - -#ifndef GL_EXT_rescale_normal -#define GL_RESCALE_NORMAL_EXT 0x803A -#endif - -#ifndef GL_EXT_vertex_array -#define GL_VERTEX_ARRAY_EXT 0x8074 -#define GL_NORMAL_ARRAY_EXT 0x8075 -#define GL_COLOR_ARRAY_EXT 0x8076 -#define GL_INDEX_ARRAY_EXT 0x8077 -#define GL_TEXTURE_COORD_ARRAY_EXT 0x8078 -#define GL_EDGE_FLAG_ARRAY_EXT 0x8079 -#define GL_VERTEX_ARRAY_SIZE_EXT 0x807A -#define GL_VERTEX_ARRAY_TYPE_EXT 0x807B -#define GL_VERTEX_ARRAY_STRIDE_EXT 0x807C -#define GL_VERTEX_ARRAY_COUNT_EXT 0x807D -#define GL_NORMAL_ARRAY_TYPE_EXT 0x807E -#define GL_NORMAL_ARRAY_STRIDE_EXT 0x807F -#define GL_NORMAL_ARRAY_COUNT_EXT 0x8080 -#define GL_COLOR_ARRAY_SIZE_EXT 0x8081 -#define GL_COLOR_ARRAY_TYPE_EXT 0x8082 -#define GL_COLOR_ARRAY_STRIDE_EXT 0x8083 -#define GL_COLOR_ARRAY_COUNT_EXT 0x8084 -#define GL_INDEX_ARRAY_TYPE_EXT 0x8085 -#define GL_INDEX_ARRAY_STRIDE_EXT 0x8086 -#define GL_INDEX_ARRAY_COUNT_EXT 0x8087 -#define GL_TEXTURE_COORD_ARRAY_SIZE_EXT 0x8088 -#define GL_TEXTURE_COORD_ARRAY_TYPE_EXT 0x8089 -#define GL_TEXTURE_COORD_ARRAY_STRIDE_EXT 0x808A -#define GL_TEXTURE_COORD_ARRAY_COUNT_EXT 0x808B -#define GL_EDGE_FLAG_ARRAY_STRIDE_EXT 0x808C -#define GL_EDGE_FLAG_ARRAY_COUNT_EXT 0x808D -#define GL_VERTEX_ARRAY_POINTER_EXT 0x808E -#define GL_NORMAL_ARRAY_POINTER_EXT 0x808F -#define GL_COLOR_ARRAY_POINTER_EXT 0x8090 -#define GL_INDEX_ARRAY_POINTER_EXT 0x8091 -#define GL_TEXTURE_COORD_ARRAY_POINTER_EXT 0x8092 -#define GL_EDGE_FLAG_ARRAY_POINTER_EXT 0x8093 -#endif - -#ifndef GL_EXT_misc_attribute -#endif - -#ifndef GL_SGIS_generate_mipmap -#define GL_GENERATE_MIPMAP_SGIS 0x8191 -#define GL_GENERATE_MIPMAP_HINT_SGIS 0x8192 -#endif - -#ifndef GL_SGIX_clipmap -#define GL_LINEAR_CLIPMAP_LINEAR_SGIX 0x8170 -#define GL_TEXTURE_CLIPMAP_CENTER_SGIX 0x8171 -#define GL_TEXTURE_CLIPMAP_FRAME_SGIX 0x8172 -#define GL_TEXTURE_CLIPMAP_OFFSET_SGIX 0x8173 -#define GL_TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX 0x8174 -#define GL_TEXTURE_CLIPMAP_LOD_OFFSET_SGIX 0x8175 -#define GL_TEXTURE_CLIPMAP_DEPTH_SGIX 0x8176 -#define GL_MAX_CLIPMAP_DEPTH_SGIX 0x8177 -#define GL_MAX_CLIPMAP_VIRTUAL_DEPTH_SGIX 0x8178 -#define GL_NEAREST_CLIPMAP_NEAREST_SGIX 0x844D -#define GL_NEAREST_CLIPMAP_LINEAR_SGIX 0x844E -#define GL_LINEAR_CLIPMAP_NEAREST_SGIX 0x844F -#endif - -#ifndef GL_SGIX_shadow -#define GL_TEXTURE_COMPARE_SGIX 0x819A -#define GL_TEXTURE_COMPARE_OPERATOR_SGIX 0x819B -#define GL_TEXTURE_LEQUAL_R_SGIX 0x819C -#define GL_TEXTURE_GEQUAL_R_SGIX 0x819D -#endif - -#ifndef GL_SGIS_texture_edge_clamp -#define GL_CLAMP_TO_EDGE_SGIS 0x812F -#endif - -#ifndef GL_SGIS_texture_border_clamp -#define GL_CLAMP_TO_BORDER_SGIS 0x812D -#endif - -#ifndef GL_EXT_blend_minmax -#define GL_FUNC_ADD_EXT 0x8006 -#define GL_MIN_EXT 0x8007 -#define GL_MAX_EXT 0x8008 -#define GL_BLEND_EQUATION_EXT 0x8009 -#endif - -#ifndef GL_EXT_blend_subtract -#define GL_FUNC_SUBTRACT_EXT 0x800A -#define GL_FUNC_REVERSE_SUBTRACT_EXT 0x800B -#endif - -#ifndef GL_EXT_blend_logic_op -#endif - -#ifndef GL_SGIX_interlace -#define GL_INTERLACE_SGIX 0x8094 -#endif - -#ifndef GL_SGIX_pixel_tiles -#define GL_PIXEL_TILE_BEST_ALIGNMENT_SGIX 0x813E -#define GL_PIXEL_TILE_CACHE_INCREMENT_SGIX 0x813F -#define GL_PIXEL_TILE_WIDTH_SGIX 0x8140 -#define GL_PIXEL_TILE_HEIGHT_SGIX 0x8141 -#define GL_PIXEL_TILE_GRID_WIDTH_SGIX 0x8142 -#define GL_PIXEL_TILE_GRID_HEIGHT_SGIX 0x8143 -#define GL_PIXEL_TILE_GRID_DEPTH_SGIX 0x8144 -#define GL_PIXEL_TILE_CACHE_SIZE_SGIX 0x8145 -#endif - -#ifndef GL_SGIS_texture_select -#define GL_DUAL_ALPHA4_SGIS 0x8110 -#define GL_DUAL_ALPHA8_SGIS 0x8111 -#define GL_DUAL_ALPHA12_SGIS 0x8112 -#define GL_DUAL_ALPHA16_SGIS 0x8113 -#define GL_DUAL_LUMINANCE4_SGIS 0x8114 -#define GL_DUAL_LUMINANCE8_SGIS 0x8115 -#define GL_DUAL_LUMINANCE12_SGIS 0x8116 -#define GL_DUAL_LUMINANCE16_SGIS 0x8117 -#define GL_DUAL_INTENSITY4_SGIS 0x8118 -#define GL_DUAL_INTENSITY8_SGIS 0x8119 -#define GL_DUAL_INTENSITY12_SGIS 0x811A -#define GL_DUAL_INTENSITY16_SGIS 0x811B -#define GL_DUAL_LUMINANCE_ALPHA4_SGIS 0x811C -#define GL_DUAL_LUMINANCE_ALPHA8_SGIS 0x811D -#define GL_QUAD_ALPHA4_SGIS 0x811E -#define GL_QUAD_ALPHA8_SGIS 0x811F -#define GL_QUAD_LUMINANCE4_SGIS 0x8120 -#define GL_QUAD_LUMINANCE8_SGIS 0x8121 -#define GL_QUAD_INTENSITY4_SGIS 0x8122 -#define GL_QUAD_INTENSITY8_SGIS 0x8123 -#define GL_DUAL_TEXTURE_SELECT_SGIS 0x8124 -#define GL_QUAD_TEXTURE_SELECT_SGIS 0x8125 -#endif - -#ifndef GL_SGIX_sprite -#define GL_SPRITE_SGIX 0x8148 -#define GL_SPRITE_MODE_SGIX 0x8149 -#define GL_SPRITE_AXIS_SGIX 0x814A -#define GL_SPRITE_TRANSLATION_SGIX 0x814B -#define GL_SPRITE_AXIAL_SGIX 0x814C -#define GL_SPRITE_OBJECT_ALIGNED_SGIX 0x814D -#define GL_SPRITE_EYE_ALIGNED_SGIX 0x814E -#endif - -#ifndef GL_SGIX_texture_multi_buffer -#define GL_TEXTURE_MULTI_BUFFER_HINT_SGIX 0x812E -#endif - -#ifndef GL_EXT_point_parameters -#define GL_POINT_SIZE_MIN_EXT 0x8126 -#define GL_POINT_SIZE_MAX_EXT 0x8127 -#define GL_POINT_FADE_THRESHOLD_SIZE_EXT 0x8128 -#define GL_DISTANCE_ATTENUATION_EXT 0x8129 -#endif - -#ifndef GL_SGIS_point_parameters -#define GL_POINT_SIZE_MIN_SGIS 0x8126 -#define GL_POINT_SIZE_MAX_SGIS 0x8127 -#define GL_POINT_FADE_THRESHOLD_SIZE_SGIS 0x8128 -#define GL_DISTANCE_ATTENUATION_SGIS 0x8129 -#endif - -#ifndef GL_SGIX_instruments -#define GL_INSTRUMENT_BUFFER_POINTER_SGIX 0x8180 -#define GL_INSTRUMENT_MEASUREMENTS_SGIX 0x8181 -#endif - -#ifndef GL_SGIX_texture_scale_bias -#define GL_POST_TEXTURE_FILTER_BIAS_SGIX 0x8179 -#define GL_POST_TEXTURE_FILTER_SCALE_SGIX 0x817A -#define GL_POST_TEXTURE_FILTER_BIAS_RANGE_SGIX 0x817B -#define GL_POST_TEXTURE_FILTER_SCALE_RANGE_SGIX 0x817C -#endif - -#ifndef GL_SGIX_framezoom -#define GL_FRAMEZOOM_SGIX 0x818B -#define GL_FRAMEZOOM_FACTOR_SGIX 0x818C -#define GL_MAX_FRAMEZOOM_FACTOR_SGIX 0x818D -#endif - -#ifndef GL_SGIX_tag_sample_buffer -#endif - -#ifndef GL_FfdMaskSGIX -#define GL_TEXTURE_DEFORMATION_BIT_SGIX 0x00000001 -#define GL_GEOMETRY_DEFORMATION_BIT_SGIX 0x00000002 -#endif - -#ifndef GL_SGIX_polynomial_ffd -#define GL_GEOMETRY_DEFORMATION_SGIX 0x8194 -#define GL_TEXTURE_DEFORMATION_SGIX 0x8195 -#define GL_DEFORMATIONS_MASK_SGIX 0x8196 -#define GL_MAX_DEFORMATION_ORDER_SGIX 0x8197 -#endif - -#ifndef GL_SGIX_reference_plane -#define GL_REFERENCE_PLANE_SGIX 0x817D -#define GL_REFERENCE_PLANE_EQUATION_SGIX 0x817E -#endif - -#ifndef GL_SGIX_flush_raster -#endif - -#ifndef GL_SGIX_depth_texture -#define GL_DEPTH_COMPONENT16_SGIX 0x81A5 -#define GL_DEPTH_COMPONENT24_SGIX 0x81A6 -#define GL_DEPTH_COMPONENT32_SGIX 0x81A7 -#endif - -#ifndef GL_SGIS_fog_function -#define GL_FOG_FUNC_SGIS 0x812A -#define GL_FOG_FUNC_POINTS_SGIS 0x812B -#define GL_MAX_FOG_FUNC_POINTS_SGIS 0x812C -#endif - -#ifndef GL_SGIX_fog_offset -#define GL_FOG_OFFSET_SGIX 0x8198 -#define GL_FOG_OFFSET_VALUE_SGIX 0x8199 -#endif - -#ifndef GL_HP_image_transform -#define GL_IMAGE_SCALE_X_HP 0x8155 -#define GL_IMAGE_SCALE_Y_HP 0x8156 -#define GL_IMAGE_TRANSLATE_X_HP 0x8157 -#define GL_IMAGE_TRANSLATE_Y_HP 0x8158 -#define GL_IMAGE_ROTATE_ANGLE_HP 0x8159 -#define GL_IMAGE_ROTATE_ORIGIN_X_HP 0x815A -#define GL_IMAGE_ROTATE_ORIGIN_Y_HP 0x815B -#define GL_IMAGE_MAG_FILTER_HP 0x815C -#define GL_IMAGE_MIN_FILTER_HP 0x815D -#define GL_IMAGE_CUBIC_WEIGHT_HP 0x815E -#define GL_CUBIC_HP 0x815F -#define GL_AVERAGE_HP 0x8160 -#define GL_IMAGE_TRANSFORM_2D_HP 0x8161 -#define GL_POST_IMAGE_TRANSFORM_COLOR_TABLE_HP 0x8162 -#define GL_PROXY_POST_IMAGE_TRANSFORM_COLOR_TABLE_HP 0x8163 -#endif - -#ifndef GL_HP_convolution_border_modes -#define GL_IGNORE_BORDER_HP 0x8150 -#define GL_CONSTANT_BORDER_HP 0x8151 -#define GL_REPLICATE_BORDER_HP 0x8153 -#define GL_CONVOLUTION_BORDER_COLOR_HP 0x8154 -#endif - -#ifndef GL_INGR_palette_buffer -#endif - -#ifndef GL_SGIX_texture_add_env -#define GL_TEXTURE_ENV_BIAS_SGIX 0x80BE -#endif - -#ifndef GL_EXT_color_subtable -#endif - -#ifndef GL_PGI_vertex_hints -#define GL_VERTEX_DATA_HINT_PGI 0x1A22A -#define GL_VERTEX_CONSISTENT_HINT_PGI 0x1A22B -#define GL_MATERIAL_SIDE_HINT_PGI 0x1A22C -#define GL_MAX_VERTEX_HINT_PGI 0x1A22D -#define GL_COLOR3_BIT_PGI 0x00010000 -#define GL_COLOR4_BIT_PGI 0x00020000 -#define GL_EDGEFLAG_BIT_PGI 0x00040000 -#define GL_INDEX_BIT_PGI 0x00080000 -#define GL_MAT_AMBIENT_BIT_PGI 0x00100000 -#define GL_MAT_AMBIENT_AND_DIFFUSE_BIT_PGI 0x00200000 -#define GL_MAT_DIFFUSE_BIT_PGI 0x00400000 -#define GL_MAT_EMISSION_BIT_PGI 0x00800000 -#define GL_MAT_COLOR_INDEXES_BIT_PGI 0x01000000 -#define GL_MAT_SHININESS_BIT_PGI 0x02000000 -#define GL_MAT_SPECULAR_BIT_PGI 0x04000000 -#define GL_NORMAL_BIT_PGI 0x08000000 -#define GL_TEXCOORD1_BIT_PGI 0x10000000 -#define GL_TEXCOORD2_BIT_PGI 0x20000000 -#define GL_TEXCOORD3_BIT_PGI 0x40000000 -#define GL_TEXCOORD4_BIT_PGI 0x80000000 -#define GL_VERTEX23_BIT_PGI 0x00000004 -#define GL_VERTEX4_BIT_PGI 0x00000008 -#endif - -#ifndef GL_PGI_misc_hints -#define GL_PREFER_DOUBLEBUFFER_HINT_PGI 0x1A1F8 -#define GL_CONSERVE_MEMORY_HINT_PGI 0x1A1FD -#define GL_RECLAIM_MEMORY_HINT_PGI 0x1A1FE -#define GL_NATIVE_GRAPHICS_HANDLE_PGI 0x1A202 -#define GL_NATIVE_GRAPHICS_BEGIN_HINT_PGI 0x1A203 -#define GL_NATIVE_GRAPHICS_END_HINT_PGI 0x1A204 -#define GL_ALWAYS_FAST_HINT_PGI 0x1A20C -#define GL_ALWAYS_SOFT_HINT_PGI 0x1A20D -#define GL_ALLOW_DRAW_OBJ_HINT_PGI 0x1A20E -#define GL_ALLOW_DRAW_WIN_HINT_PGI 0x1A20F -#define GL_ALLOW_DRAW_FRG_HINT_PGI 0x1A210 -#define GL_ALLOW_DRAW_MEM_HINT_PGI 0x1A211 -#define GL_STRICT_DEPTHFUNC_HINT_PGI 0x1A216 -#define GL_STRICT_LIGHTING_HINT_PGI 0x1A217 -#define GL_STRICT_SCISSOR_HINT_PGI 0x1A218 -#define GL_FULL_STIPPLE_HINT_PGI 0x1A219 -#define GL_CLIP_NEAR_HINT_PGI 0x1A220 -#define GL_CLIP_FAR_HINT_PGI 0x1A221 -#define GL_WIDE_LINE_HINT_PGI 0x1A222 -#define GL_BACK_NORMALS_HINT_PGI 0x1A223 -#endif - -#ifndef GL_EXT_paletted_texture -#define GL_COLOR_INDEX1_EXT 0x80E2 -#define GL_COLOR_INDEX2_EXT 0x80E3 -#define GL_COLOR_INDEX4_EXT 0x80E4 -#define GL_COLOR_INDEX8_EXT 0x80E5 -#define GL_COLOR_INDEX12_EXT 0x80E6 -#define GL_COLOR_INDEX16_EXT 0x80E7 -#define GL_TEXTURE_INDEX_SIZE_EXT 0x80ED -#endif - -#ifndef GL_EXT_clip_volume_hint -#define GL_CLIP_VOLUME_CLIPPING_HINT_EXT 0x80F0 -#endif - -#ifndef GL_SGIX_list_priority -#define GL_LIST_PRIORITY_SGIX 0x8182 -#endif - -#ifndef GL_SGIX_ir_instrument1 -#define GL_IR_INSTRUMENT1_SGIX 0x817F -#endif - -#ifndef GL_SGIX_calligraphic_fragment -#define GL_CALLIGRAPHIC_FRAGMENT_SGIX 0x8183 -#endif - -#ifndef GL_SGIX_texture_lod_bias -#define GL_TEXTURE_LOD_BIAS_S_SGIX 0x818E -#define GL_TEXTURE_LOD_BIAS_T_SGIX 0x818F -#define GL_TEXTURE_LOD_BIAS_R_SGIX 0x8190 -#endif - -#ifndef GL_SGIX_shadow_ambient -#define GL_SHADOW_AMBIENT_SGIX 0x80BF -#endif - -#ifndef GL_EXT_index_texture -#endif - -#ifndef GL_EXT_index_material -#define GL_INDEX_MATERIAL_EXT 0x81B8 -#define GL_INDEX_MATERIAL_PARAMETER_EXT 0x81B9 -#define GL_INDEX_MATERIAL_FACE_EXT 0x81BA -#endif - -#ifndef GL_EXT_index_func -#define GL_INDEX_TEST_EXT 0x81B5 -#define GL_INDEX_TEST_FUNC_EXT 0x81B6 -#define GL_INDEX_TEST_REF_EXT 0x81B7 -#endif - -#ifndef GL_EXT_index_array_formats -#define GL_IUI_V2F_EXT 0x81AD -#define GL_IUI_V3F_EXT 0x81AE -#define GL_IUI_N3F_V2F_EXT 0x81AF -#define GL_IUI_N3F_V3F_EXT 0x81B0 -#define GL_T2F_IUI_V2F_EXT 0x81B1 -#define GL_T2F_IUI_V3F_EXT 0x81B2 -#define GL_T2F_IUI_N3F_V2F_EXT 0x81B3 -#define GL_T2F_IUI_N3F_V3F_EXT 0x81B4 -#endif - -#ifndef GL_EXT_compiled_vertex_array -#define GL_ARRAY_ELEMENT_LOCK_FIRST_EXT 0x81A8 -#define GL_ARRAY_ELEMENT_LOCK_COUNT_EXT 0x81A9 -#endif - -#ifndef GL_EXT_cull_vertex -#define GL_CULL_VERTEX_EXT 0x81AA -#define GL_CULL_VERTEX_EYE_POSITION_EXT 0x81AB -#define GL_CULL_VERTEX_OBJECT_POSITION_EXT 0x81AC -#endif - -#ifndef GL_SGIX_ycrcb -#define GL_YCRCB_422_SGIX 0x81BB -#define GL_YCRCB_444_SGIX 0x81BC -#endif - -#ifndef GL_SGIX_fragment_lighting -#define GL_FRAGMENT_LIGHTING_SGIX 0x8400 -#define GL_FRAGMENT_COLOR_MATERIAL_SGIX 0x8401 -#define GL_FRAGMENT_COLOR_MATERIAL_FACE_SGIX 0x8402 -#define GL_FRAGMENT_COLOR_MATERIAL_PARAMETER_SGIX 0x8403 -#define GL_MAX_FRAGMENT_LIGHTS_SGIX 0x8404 -#define GL_MAX_ACTIVE_LIGHTS_SGIX 0x8405 -#define GL_CURRENT_RASTER_NORMAL_SGIX 0x8406 -#define GL_LIGHT_ENV_MODE_SGIX 0x8407 -#define GL_FRAGMENT_LIGHT_MODEL_LOCAL_VIEWER_SGIX 0x8408 -#define GL_FRAGMENT_LIGHT_MODEL_TWO_SIDE_SGIX 0x8409 -#define GL_FRAGMENT_LIGHT_MODEL_AMBIENT_SGIX 0x840A -#define GL_FRAGMENT_LIGHT_MODEL_NORMAL_INTERPOLATION_SGIX 0x840B -#define GL_FRAGMENT_LIGHT0_SGIX 0x840C -#define GL_FRAGMENT_LIGHT1_SGIX 0x840D -#define GL_FRAGMENT_LIGHT2_SGIX 0x840E -#define GL_FRAGMENT_LIGHT3_SGIX 0x840F -#define GL_FRAGMENT_LIGHT4_SGIX 0x8410 -#define GL_FRAGMENT_LIGHT5_SGIX 0x8411 -#define GL_FRAGMENT_LIGHT6_SGIX 0x8412 -#define GL_FRAGMENT_LIGHT7_SGIX 0x8413 -#endif - -#ifndef GL_IBM_rasterpos_clip -#define GL_RASTER_POSITION_UNCLIPPED_IBM 0x19262 -#endif - -#ifndef GL_HP_texture_lighting -#define GL_TEXTURE_LIGHTING_MODE_HP 0x8167 -#define GL_TEXTURE_POST_SPECULAR_HP 0x8168 -#define GL_TEXTURE_PRE_SPECULAR_HP 0x8169 -#endif - -#ifndef GL_EXT_draw_range_elements -#define GL_MAX_ELEMENTS_VERTICES_EXT 0x80E8 -#define GL_MAX_ELEMENTS_INDICES_EXT 0x80E9 -#endif - -#ifndef GL_WIN_phong_shading -#define GL_PHONG_WIN 0x80EA -#define GL_PHONG_HINT_WIN 0x80EB -#endif - -#ifndef GL_WIN_specular_fog -#define GL_FOG_SPECULAR_TEXTURE_WIN 0x80EC -#endif - -#ifndef GL_EXT_light_texture -#define GL_FRAGMENT_MATERIAL_EXT 0x8349 -#define GL_FRAGMENT_NORMAL_EXT 0x834A -#define GL_FRAGMENT_COLOR_EXT 0x834C -#define GL_ATTENUATION_EXT 0x834D -#define GL_SHADOW_ATTENUATION_EXT 0x834E -#define GL_TEXTURE_APPLICATION_MODE_EXT 0x834F -#define GL_TEXTURE_LIGHT_EXT 0x8350 -#define GL_TEXTURE_MATERIAL_FACE_EXT 0x8351 -#define GL_TEXTURE_MATERIAL_PARAMETER_EXT 0x8352 -/* reuse GL_FRAGMENT_DEPTH_EXT */ -#endif - -#ifndef GL_SGIX_blend_alpha_minmax -#define GL_ALPHA_MIN_SGIX 0x8320 -#define GL_ALPHA_MAX_SGIX 0x8321 -#endif - -#ifndef GL_SGIX_impact_pixel_texture -#define GL_PIXEL_TEX_GEN_Q_CEILING_SGIX 0x8184 -#define GL_PIXEL_TEX_GEN_Q_ROUND_SGIX 0x8185 -#define GL_PIXEL_TEX_GEN_Q_FLOOR_SGIX 0x8186 -#define GL_PIXEL_TEX_GEN_ALPHA_REPLACE_SGIX 0x8187 -#define GL_PIXEL_TEX_GEN_ALPHA_NO_REPLACE_SGIX 0x8188 -#define GL_PIXEL_TEX_GEN_ALPHA_LS_SGIX 0x8189 -#define GL_PIXEL_TEX_GEN_ALPHA_MS_SGIX 0x818A -#endif - -#ifndef GL_EXT_bgra -#define GL_BGR_EXT 0x80E0 -#define GL_BGRA_EXT 0x80E1 -#endif - -#ifndef GL_SGIX_async -#define GL_ASYNC_MARKER_SGIX 0x8329 -#endif - -#ifndef GL_SGIX_async_pixel -#define GL_ASYNC_TEX_IMAGE_SGIX 0x835C -#define GL_ASYNC_DRAW_PIXELS_SGIX 0x835D -#define GL_ASYNC_READ_PIXELS_SGIX 0x835E -#define GL_MAX_ASYNC_TEX_IMAGE_SGIX 0x835F -#define GL_MAX_ASYNC_DRAW_PIXELS_SGIX 0x8360 -#define GL_MAX_ASYNC_READ_PIXELS_SGIX 0x8361 -#endif - -#ifndef GL_SGIX_async_histogram -#define GL_ASYNC_HISTOGRAM_SGIX 0x832C -#define GL_MAX_ASYNC_HISTOGRAM_SGIX 0x832D -#endif - -#ifndef GL_INTEL_texture_scissor -#endif - -#ifndef GL_INTEL_parallel_arrays -#define GL_PARALLEL_ARRAYS_INTEL 0x83F4 -#define GL_VERTEX_ARRAY_PARALLEL_POINTERS_INTEL 0x83F5 -#define GL_NORMAL_ARRAY_PARALLEL_POINTERS_INTEL 0x83F6 -#define GL_COLOR_ARRAY_PARALLEL_POINTERS_INTEL 0x83F7 -#define GL_TEXTURE_COORD_ARRAY_PARALLEL_POINTERS_INTEL 0x83F8 -#endif - -#ifndef GL_HP_occlusion_test -#define GL_OCCLUSION_TEST_HP 0x8165 -#define GL_OCCLUSION_TEST_RESULT_HP 0x8166 -#endif - -#ifndef GL_EXT_pixel_transform -#define GL_PIXEL_TRANSFORM_2D_EXT 0x8330 -#define GL_PIXEL_MAG_FILTER_EXT 0x8331 -#define GL_PIXEL_MIN_FILTER_EXT 0x8332 -#define GL_PIXEL_CUBIC_WEIGHT_EXT 0x8333 -#define GL_CUBIC_EXT 0x8334 -#define GL_AVERAGE_EXT 0x8335 -#define GL_PIXEL_TRANSFORM_2D_STACK_DEPTH_EXT 0x8336 -#define GL_MAX_PIXEL_TRANSFORM_2D_STACK_DEPTH_EXT 0x8337 -#define GL_PIXEL_TRANSFORM_2D_MATRIX_EXT 0x8338 -#endif - -#ifndef GL_EXT_pixel_transform_color_table -#endif - -#ifndef GL_EXT_shared_texture_palette -#define GL_SHARED_TEXTURE_PALETTE_EXT 0x81FB -#endif - -#ifndef GL_EXT_separate_specular_color -#define GL_LIGHT_MODEL_COLOR_CONTROL_EXT 0x81F8 -#define GL_SINGLE_COLOR_EXT 0x81F9 -#define GL_SEPARATE_SPECULAR_COLOR_EXT 0x81FA -#endif - -#ifndef GL_EXT_secondary_color -#define GL_COLOR_SUM_EXT 0x8458 -#define GL_CURRENT_SECONDARY_COLOR_EXT 0x8459 -#define GL_SECONDARY_COLOR_ARRAY_SIZE_EXT 0x845A -#define GL_SECONDARY_COLOR_ARRAY_TYPE_EXT 0x845B -#define GL_SECONDARY_COLOR_ARRAY_STRIDE_EXT 0x845C -#define GL_SECONDARY_COLOR_ARRAY_POINTER_EXT 0x845D -#define GL_SECONDARY_COLOR_ARRAY_EXT 0x845E -#endif - -#ifndef GL_EXT_texture_perturb_normal -#define GL_PERTURB_EXT 0x85AE -#define GL_TEXTURE_NORMAL_EXT 0x85AF -#endif - -#ifndef GL_EXT_multi_draw_arrays -#endif - -#ifndef GL_EXT_fog_coord -#define GL_FOG_COORDINATE_SOURCE_EXT 0x8450 -#define GL_FOG_COORDINATE_EXT 0x8451 -#define GL_FRAGMENT_DEPTH_EXT 0x8452 -#define GL_CURRENT_FOG_COORDINATE_EXT 0x8453 -#define GL_FOG_COORDINATE_ARRAY_TYPE_EXT 0x8454 -#define GL_FOG_COORDINATE_ARRAY_STRIDE_EXT 0x8455 -#define GL_FOG_COORDINATE_ARRAY_POINTER_EXT 0x8456 -#define GL_FOG_COORDINATE_ARRAY_EXT 0x8457 -#endif - -#ifndef GL_REND_screen_coordinates -#define GL_SCREEN_COORDINATES_REND 0x8490 -#define GL_INVERTED_SCREEN_W_REND 0x8491 -#endif - -#ifndef GL_EXT_coordinate_frame -#define GL_TANGENT_ARRAY_EXT 0x8439 -#define GL_BINORMAL_ARRAY_EXT 0x843A -#define GL_CURRENT_TANGENT_EXT 0x843B -#define GL_CURRENT_BINORMAL_EXT 0x843C -#define GL_TANGENT_ARRAY_TYPE_EXT 0x843E -#define GL_TANGENT_ARRAY_STRIDE_EXT 0x843F -#define GL_BINORMAL_ARRAY_TYPE_EXT 0x8440 -#define GL_BINORMAL_ARRAY_STRIDE_EXT 0x8441 -#define GL_TANGENT_ARRAY_POINTER_EXT 0x8442 -#define GL_BINORMAL_ARRAY_POINTER_EXT 0x8443 -#define GL_MAP1_TANGENT_EXT 0x8444 -#define GL_MAP2_TANGENT_EXT 0x8445 -#define GL_MAP1_BINORMAL_EXT 0x8446 -#define GL_MAP2_BINORMAL_EXT 0x8447 -#endif - -#ifndef GL_EXT_texture_env_combine -#define GL_COMBINE_EXT 0x8570 -#define GL_COMBINE_RGB_EXT 0x8571 -#define GL_COMBINE_ALPHA_EXT 0x8572 -#define GL_RGB_SCALE_EXT 0x8573 -#define GL_ADD_SIGNED_EXT 0x8574 -#define GL_INTERPOLATE_EXT 0x8575 -#define GL_CONSTANT_EXT 0x8576 -#define GL_PRIMARY_COLOR_EXT 0x8577 -#define GL_PREVIOUS_EXT 0x8578 -#define GL_SOURCE0_RGB_EXT 0x8580 -#define GL_SOURCE1_RGB_EXT 0x8581 -#define GL_SOURCE2_RGB_EXT 0x8582 -#define GL_SOURCE0_ALPHA_EXT 0x8588 -#define GL_SOURCE1_ALPHA_EXT 0x8589 -#define GL_SOURCE2_ALPHA_EXT 0x858A -#define GL_OPERAND0_RGB_EXT 0x8590 -#define GL_OPERAND1_RGB_EXT 0x8591 -#define GL_OPERAND2_RGB_EXT 0x8592 -#define GL_OPERAND0_ALPHA_EXT 0x8598 -#define GL_OPERAND1_ALPHA_EXT 0x8599 -#define GL_OPERAND2_ALPHA_EXT 0x859A -#endif - -#ifndef GL_APPLE_specular_vector -#define GL_LIGHT_MODEL_SPECULAR_VECTOR_APPLE 0x85B0 -#endif - -#ifndef GL_APPLE_transform_hint -#define GL_TRANSFORM_HINT_APPLE 0x85B1 -#endif - -#ifndef GL_SGIX_fog_scale -#define GL_FOG_SCALE_SGIX 0x81FC -#define GL_FOG_SCALE_VALUE_SGIX 0x81FD -#endif - -#ifndef GL_SUNX_constant_data -#define GL_UNPACK_CONSTANT_DATA_SUNX 0x81D5 -#define GL_TEXTURE_CONSTANT_DATA_SUNX 0x81D6 -#endif - -#ifndef GL_SUN_global_alpha -#define GL_GLOBAL_ALPHA_SUN 0x81D9 -#define GL_GLOBAL_ALPHA_FACTOR_SUN 0x81DA -#endif - -#ifndef GL_SUN_triangle_list -#define GL_RESTART_SUN 0x0001 -#define GL_REPLACE_MIDDLE_SUN 0x0002 -#define GL_REPLACE_OLDEST_SUN 0x0003 -#define GL_TRIANGLE_LIST_SUN 0x81D7 -#define GL_REPLACEMENT_CODE_SUN 0x81D8 -#define GL_REPLACEMENT_CODE_ARRAY_SUN 0x85C0 -#define GL_REPLACEMENT_CODE_ARRAY_TYPE_SUN 0x85C1 -#define GL_REPLACEMENT_CODE_ARRAY_STRIDE_SUN 0x85C2 -#define GL_REPLACEMENT_CODE_ARRAY_POINTER_SUN 0x85C3 -#define GL_R1UI_V3F_SUN 0x85C4 -#define GL_R1UI_C4UB_V3F_SUN 0x85C5 -#define GL_R1UI_C3F_V3F_SUN 0x85C6 -#define GL_R1UI_N3F_V3F_SUN 0x85C7 -#define GL_R1UI_C4F_N3F_V3F_SUN 0x85C8 -#define GL_R1UI_T2F_V3F_SUN 0x85C9 -#define GL_R1UI_T2F_N3F_V3F_SUN 0x85CA -#define GL_R1UI_T2F_C4F_N3F_V3F_SUN 0x85CB -#endif - -#ifndef GL_SUN_vertex -#endif - -#ifndef GL_EXT_blend_func_separate -#define GL_BLEND_DST_RGB_EXT 0x80C8 -#define GL_BLEND_SRC_RGB_EXT 0x80C9 -#define GL_BLEND_DST_ALPHA_EXT 0x80CA -#define GL_BLEND_SRC_ALPHA_EXT 0x80CB -#endif - -#ifndef GL_INGR_color_clamp -#define GL_RED_MIN_CLAMP_INGR 0x8560 -#define GL_GREEN_MIN_CLAMP_INGR 0x8561 -#define GL_BLUE_MIN_CLAMP_INGR 0x8562 -#define GL_ALPHA_MIN_CLAMP_INGR 0x8563 -#define GL_RED_MAX_CLAMP_INGR 0x8564 -#define GL_GREEN_MAX_CLAMP_INGR 0x8565 -#define GL_BLUE_MAX_CLAMP_INGR 0x8566 -#define GL_ALPHA_MAX_CLAMP_INGR 0x8567 -#endif - -#ifndef GL_INGR_interlace_read -#define GL_INTERLACE_READ_INGR 0x8568 -#endif - -#ifndef GL_EXT_stencil_wrap -#define GL_INCR_WRAP_EXT 0x8507 -#define GL_DECR_WRAP_EXT 0x8508 -#endif - -#ifndef GL_EXT_422_pixels -#define GL_422_EXT 0x80CC -#define GL_422_REV_EXT 0x80CD -#define GL_422_AVERAGE_EXT 0x80CE -#define GL_422_REV_AVERAGE_EXT 0x80CF -#endif - -#ifndef GL_NV_texgen_reflection -#define GL_NORMAL_MAP_NV 0x8511 -#define GL_REFLECTION_MAP_NV 0x8512 -#endif - -#ifndef GL_EXT_texture_cube_map -#define GL_NORMAL_MAP_EXT 0x8511 -#define GL_REFLECTION_MAP_EXT 0x8512 -#define GL_TEXTURE_CUBE_MAP_EXT 0x8513 -#define GL_TEXTURE_BINDING_CUBE_MAP_EXT 0x8514 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_X_EXT 0x8515 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_X_EXT 0x8516 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_Y_EXT 0x8517 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_EXT 0x8518 -#define GL_TEXTURE_CUBE_MAP_POSITIVE_Z_EXT 0x8519 -#define GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_EXT 0x851A -#define GL_PROXY_TEXTURE_CUBE_MAP_EXT 0x851B -#define GL_MAX_CUBE_MAP_TEXTURE_SIZE_EXT 0x851C -#endif - -#ifndef GL_SUN_convolution_border_modes -#define GL_WRAP_BORDER_SUN 0x81D4 -#endif - -#ifndef GL_EXT_texture_env_add -#endif - -#ifndef GL_EXT_texture_lod_bias -#define GL_MAX_TEXTURE_LOD_BIAS_EXT 0x84FD -#define GL_TEXTURE_FILTER_CONTROL_EXT 0x8500 -#define GL_TEXTURE_LOD_BIAS_EXT 0x8501 -#endif - -#ifndef GL_EXT_texture_filter_anisotropic -#define GL_TEXTURE_MAX_ANISOTROPY_EXT 0x84FE -#define GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT 0x84FF -#endif - -#ifndef GL_EXT_vertex_weighting -#define GL_MODELVIEW0_STACK_DEPTH_EXT GL_MODELVIEW_STACK_DEPTH -#define GL_MODELVIEW1_STACK_DEPTH_EXT 0x8502 -#define GL_MODELVIEW0_MATRIX_EXT GL_MODELVIEW_MATRIX -#define GL_MODELVIEW1_MATRIX_EXT 0x8506 -#define GL_VERTEX_WEIGHTING_EXT 0x8509 -#define GL_MODELVIEW0_EXT GL_MODELVIEW -#define GL_MODELVIEW1_EXT 0x850A -#define GL_CURRENT_VERTEX_WEIGHT_EXT 0x850B -#define GL_VERTEX_WEIGHT_ARRAY_EXT 0x850C -#define GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT 0x850D -#define GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT 0x850E -#define GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT 0x850F -#define GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT 0x8510 -#endif - -#ifndef GL_NV_light_max_exponent -#define GL_MAX_SHININESS_NV 0x8504 -#define GL_MAX_SPOT_EXPONENT_NV 0x8505 -#endif - -#ifndef GL_NV_vertex_array_range -#define GL_VERTEX_ARRAY_RANGE_NV 0x851D -#define GL_VERTEX_ARRAY_RANGE_LENGTH_NV 0x851E -#define GL_VERTEX_ARRAY_RANGE_VALID_NV 0x851F -#define GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_NV 0x8520 -#define GL_VERTEX_ARRAY_RANGE_POINTER_NV 0x8521 -#endif - -#ifndef GL_NV_register_combiners -#define GL_REGISTER_COMBINERS_NV 0x8522 -#define GL_VARIABLE_A_NV 0x8523 -#define GL_VARIABLE_B_NV 0x8524 -#define GL_VARIABLE_C_NV 0x8525 -#define GL_VARIABLE_D_NV 0x8526 -#define GL_VARIABLE_E_NV 0x8527 -#define GL_VARIABLE_F_NV 0x8528 -#define GL_VARIABLE_G_NV 0x8529 -#define GL_CONSTANT_COLOR0_NV 0x852A -#define GL_CONSTANT_COLOR1_NV 0x852B -#define GL_PRIMARY_COLOR_NV 0x852C -#define GL_SECONDARY_COLOR_NV 0x852D -#define GL_SPARE0_NV 0x852E -#define GL_SPARE1_NV 0x852F -#define GL_DISCARD_NV 0x8530 -#define GL_E_TIMES_F_NV 0x8531 -#define GL_SPARE0_PLUS_SECONDARY_COLOR_NV 0x8532 -#define GL_UNSIGNED_IDENTITY_NV 0x8536 -#define GL_UNSIGNED_INVERT_NV 0x8537 -#define GL_EXPAND_NORMAL_NV 0x8538 -#define GL_EXPAND_NEGATE_NV 0x8539 -#define GL_HALF_BIAS_NORMAL_NV 0x853A -#define GL_HALF_BIAS_NEGATE_NV 0x853B -#define GL_SIGNED_IDENTITY_NV 0x853C -#define GL_SIGNED_NEGATE_NV 0x853D -#define GL_SCALE_BY_TWO_NV 0x853E -#define GL_SCALE_BY_FOUR_NV 0x853F -#define GL_SCALE_BY_ONE_HALF_NV 0x8540 -#define GL_BIAS_BY_NEGATIVE_ONE_HALF_NV 0x8541 -#define GL_COMBINER_INPUT_NV 0x8542 -#define GL_COMBINER_MAPPING_NV 0x8543 -#define GL_COMBINER_COMPONENT_USAGE_NV 0x8544 -#define GL_COMBINER_AB_DOT_PRODUCT_NV 0x8545 -#define GL_COMBINER_CD_DOT_PRODUCT_NV 0x8546 -#define GL_COMBINER_MUX_SUM_NV 0x8547 -#define GL_COMBINER_SCALE_NV 0x8548 -#define GL_COMBINER_BIAS_NV 0x8549 -#define GL_COMBINER_AB_OUTPUT_NV 0x854A -#define GL_COMBINER_CD_OUTPUT_NV 0x854B -#define GL_COMBINER_SUM_OUTPUT_NV 0x854C -#define GL_MAX_GENERAL_COMBINERS_NV 0x854D -#define GL_NUM_GENERAL_COMBINERS_NV 0x854E -#define GL_COLOR_SUM_CLAMP_NV 0x854F -#define GL_COMBINER0_NV 0x8550 -#define GL_COMBINER1_NV 0x8551 -#define GL_COMBINER2_NV 0x8552 -#define GL_COMBINER3_NV 0x8553 -#define GL_COMBINER4_NV 0x8554 -#define GL_COMBINER5_NV 0x8555 -#define GL_COMBINER6_NV 0x8556 -#define GL_COMBINER7_NV 0x8557 -/* reuse GL_TEXTURE0_ARB */ -/* reuse GL_TEXTURE1_ARB */ -/* reuse GL_ZERO */ -/* reuse GL_NONE */ -/* reuse GL_FOG */ -#endif - -#ifndef GL_NV_fog_distance -#define GL_FOG_DISTANCE_MODE_NV 0x855A -#define GL_EYE_RADIAL_NV 0x855B -#define GL_EYE_PLANE_ABSOLUTE_NV 0x855C -/* reuse GL_EYE_PLANE */ -#endif - -#ifndef GL_NV_texgen_emboss -#define GL_EMBOSS_LIGHT_NV 0x855D -#define GL_EMBOSS_CONSTANT_NV 0x855E -#define GL_EMBOSS_MAP_NV 0x855F -#endif - -#ifndef GL_NV_blend_square -#endif - -#ifndef GL_NV_texture_env_combine4 -#define GL_COMBINE4_NV 0x8503 -#define GL_SOURCE3_RGB_NV 0x8583 -#define GL_SOURCE3_ALPHA_NV 0x858B -#define GL_OPERAND3_RGB_NV 0x8593 -#define GL_OPERAND3_ALPHA_NV 0x859B -#endif - -#ifndef GL_MESA_resize_buffers -#endif - -#ifndef GL_MESA_window_pos -#endif - -#ifndef GL_EXT_texture_compression_s3tc -#define GL_COMPRESSED_RGB_S3TC_DXT1_EXT 0x83F0 -#define GL_COMPRESSED_RGBA_S3TC_DXT1_EXT 0x83F1 -#define GL_COMPRESSED_RGBA_S3TC_DXT3_EXT 0x83F2 -#define GL_COMPRESSED_RGBA_S3TC_DXT5_EXT 0x83F3 -#endif - -#ifndef GL_IBM_cull_vertex -#define GL_CULL_VERTEX_IBM 103050 -#endif - -#ifndef GL_IBM_multimode_draw_arrays -#endif - -#ifndef GL_IBM_vertex_array_lists -#define GL_VERTEX_ARRAY_LIST_IBM 103070 -#define GL_NORMAL_ARRAY_LIST_IBM 103071 -#define GL_COLOR_ARRAY_LIST_IBM 103072 -#define GL_INDEX_ARRAY_LIST_IBM 103073 -#define GL_TEXTURE_COORD_ARRAY_LIST_IBM 103074 -#define GL_EDGE_FLAG_ARRAY_LIST_IBM 103075 -#define GL_FOG_COORDINATE_ARRAY_LIST_IBM 103076 -#define GL_SECONDARY_COLOR_ARRAY_LIST_IBM 103077 -#define GL_VERTEX_ARRAY_LIST_STRIDE_IBM 103080 -#define GL_NORMAL_ARRAY_LIST_STRIDE_IBM 103081 -#define GL_COLOR_ARRAY_LIST_STRIDE_IBM 103082 -#define GL_INDEX_ARRAY_LIST_STRIDE_IBM 103083 -#define GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM 103084 -#define GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM 103085 -#define GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM 103086 -#define GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM 103087 -#endif - -#ifndef GL_SGIX_subsample -#define GL_PACK_SUBSAMPLE_RATE_SGIX 0x85A0 -#define GL_UNPACK_SUBSAMPLE_RATE_SGIX 0x85A1 -#define GL_PIXEL_SUBSAMPLE_4444_SGIX 0x85A2 -#define GL_PIXEL_SUBSAMPLE_2424_SGIX 0x85A3 -#define GL_PIXEL_SUBSAMPLE_4242_SGIX 0x85A4 -#endif - -#ifndef GL_SGIX_ycrcb_subsample -#endif - -#ifndef GL_SGIX_ycrcba -#define GL_YCRCB_SGIX 0x8318 -#define GL_YCRCBA_SGIX 0x8319 -#endif - -#ifndef GL_SGI_depth_pass_instrument -#define GL_DEPTH_PASS_INSTRUMENT_SGIX 0x8310 -#define GL_DEPTH_PASS_INSTRUMENT_COUNTERS_SGIX 0x8311 -#define GL_DEPTH_PASS_INSTRUMENT_MAX_SGIX 0x8312 -#endif - -#ifndef GL_3DFX_texture_compression_FXT1 -#define GL_COMPRESSED_RGB_FXT1_3DFX 0x86B0 -#define GL_COMPRESSED_RGBA_FXT1_3DFX 0x86B1 -#endif - -#ifndef GL_3DFX_multisample -#define GL_MULTISAMPLE_3DFX 0x86B2 -#define GL_SAMPLE_BUFFERS_3DFX 0x86B3 -#define GL_SAMPLES_3DFX 0x86B4 -#define GL_MULTISAMPLE_BIT_3DFX 0x20000000 -#endif - -#ifndef GL_3DFX_tbuffer -#endif - -#ifndef GL_EXT_multisample -#define GL_MULTISAMPLE_EXT 0x809D -#define GL_SAMPLE_ALPHA_TO_MASK_EXT 0x809E -#define GL_SAMPLE_ALPHA_TO_ONE_EXT 0x809F -#define GL_SAMPLE_MASK_EXT 0x80A0 -#define GL_1PASS_EXT 0x80A1 -#define GL_2PASS_0_EXT 0x80A2 -#define GL_2PASS_1_EXT 0x80A3 -#define GL_4PASS_0_EXT 0x80A4 -#define GL_4PASS_1_EXT 0x80A5 -#define GL_4PASS_2_EXT 0x80A6 -#define GL_4PASS_3_EXT 0x80A7 -#define GL_SAMPLE_BUFFERS_EXT 0x80A8 -#define GL_SAMPLES_EXT 0x80A9 -#define GL_SAMPLE_MASK_VALUE_EXT 0x80AA -#define GL_SAMPLE_MASK_INVERT_EXT 0x80AB -#define GL_SAMPLE_PATTERN_EXT 0x80AC -#define GL_MULTISAMPLE_BIT_EXT 0x20000000 -#endif - -#ifndef GL_SGIX_vertex_preclip -#define GL_VERTEX_PRECLIP_SGIX 0x83EE -#define GL_VERTEX_PRECLIP_HINT_SGIX 0x83EF -#endif - -#ifndef GL_SGIX_convolution_accuracy -#define GL_CONVOLUTION_HINT_SGIX 0x8316 -#endif - -#ifndef GL_SGIX_resample -#define GL_PACK_RESAMPLE_SGIX 0x842C -#define GL_UNPACK_RESAMPLE_SGIX 0x842D -#define GL_RESAMPLE_REPLICATE_SGIX 0x842E -#define GL_RESAMPLE_ZERO_FILL_SGIX 0x842F -#define GL_RESAMPLE_DECIMATE_SGIX 0x8430 -#endif - -#ifndef GL_SGIS_point_line_texgen -#define GL_EYE_DISTANCE_TO_POINT_SGIS 0x81F0 -#define GL_OBJECT_DISTANCE_TO_POINT_SGIS 0x81F1 -#define GL_EYE_DISTANCE_TO_LINE_SGIS 0x81F2 -#define GL_OBJECT_DISTANCE_TO_LINE_SGIS 0x81F3 -#define GL_EYE_POINT_SGIS 0x81F4 -#define GL_OBJECT_POINT_SGIS 0x81F5 -#define GL_EYE_LINE_SGIS 0x81F6 -#define GL_OBJECT_LINE_SGIS 0x81F7 -#endif - -#ifndef GL_SGIS_texture_color_mask -#define GL_TEXTURE_COLOR_WRITEMASK_SGIS 0x81EF -#endif - -#ifndef GL_EXT_texture_env_dot3 -#define GL_DOT3_RGB_EXT 0x8740 -#define GL_DOT3_RGBA_EXT 0x8741 -#endif - -#ifndef GL_ATI_texture_mirror_once -#define GL_MIRROR_CLAMP_ATI 0x8742 -#define GL_MIRROR_CLAMP_TO_EDGE_ATI 0x8743 -#endif - -#ifndef GL_NV_fence -#define GL_ALL_COMPLETED_NV 0x84F2 -#define GL_FENCE_STATUS_NV 0x84F3 -#define GL_FENCE_CONDITION_NV 0x84F4 -#endif - -#ifndef GL_IBM_texture_mirrored_repeat -#define GL_MIRRORED_REPEAT_IBM 0x8370 -#endif - -#ifndef GL_NV_evaluators -#define GL_EVAL_2D_NV 0x86C0 -#define GL_EVAL_TRIANGULAR_2D_NV 0x86C1 -#define GL_MAP_TESSELLATION_NV 0x86C2 -#define GL_MAP_ATTRIB_U_ORDER_NV 0x86C3 -#define GL_MAP_ATTRIB_V_ORDER_NV 0x86C4 -#define GL_EVAL_FRACTIONAL_TESSELLATION_NV 0x86C5 -#define GL_EVAL_VERTEX_ATTRIB0_NV 0x86C6 -#define GL_EVAL_VERTEX_ATTRIB1_NV 0x86C7 -#define GL_EVAL_VERTEX_ATTRIB2_NV 0x86C8 -#define GL_EVAL_VERTEX_ATTRIB3_NV 0x86C9 -#define GL_EVAL_VERTEX_ATTRIB4_NV 0x86CA -#define GL_EVAL_VERTEX_ATTRIB5_NV 0x86CB -#define GL_EVAL_VERTEX_ATTRIB6_NV 0x86CC -#define GL_EVAL_VERTEX_ATTRIB7_NV 0x86CD -#define GL_EVAL_VERTEX_ATTRIB8_NV 0x86CE -#define GL_EVAL_VERTEX_ATTRIB9_NV 0x86CF -#define GL_EVAL_VERTEX_ATTRIB10_NV 0x86D0 -#define GL_EVAL_VERTEX_ATTRIB11_NV 0x86D1 -#define GL_EVAL_VERTEX_ATTRIB12_NV 0x86D2 -#define GL_EVAL_VERTEX_ATTRIB13_NV 0x86D3 -#define GL_EVAL_VERTEX_ATTRIB14_NV 0x86D4 -#define GL_EVAL_VERTEX_ATTRIB15_NV 0x86D5 -#define GL_MAX_MAP_TESSELLATION_NV 0x86D6 -#define GL_MAX_RATIONAL_EVAL_ORDER_NV 0x86D7 -#endif - -#ifndef GL_NV_packed_depth_stencil -#define GL_DEPTH_STENCIL_NV 0x84F9 -#define GL_UNSIGNED_INT_24_8_NV 0x84FA -#endif - -#ifndef GL_NV_register_combiners2 -#define GL_PER_STAGE_CONSTANTS_NV 0x8535 -#endif - -#ifndef GL_NV_texture_compression_vtc -#endif - -#ifndef GL_NV_texture_rectangle -#define GL_TEXTURE_RECTANGLE_NV 0x84F5 -#define GL_TEXTURE_BINDING_RECTANGLE_NV 0x84F6 -#define GL_PROXY_TEXTURE_RECTANGLE_NV 0x84F7 -#define GL_MAX_RECTANGLE_TEXTURE_SIZE_NV 0x84F8 -#endif - -#ifndef GL_NV_texture_shader -#define GL_OFFSET_TEXTURE_RECTANGLE_NV 0x864C -#define GL_OFFSET_TEXTURE_RECTANGLE_SCALE_NV 0x864D -#define GL_DOT_PRODUCT_TEXTURE_RECTANGLE_NV 0x864E -#define GL_RGBA_UNSIGNED_DOT_PRODUCT_MAPPING_NV 0x86D9 -#define GL_UNSIGNED_INT_S8_S8_8_8_NV 0x86DA -#define GL_UNSIGNED_INT_8_8_S8_S8_REV_NV 0x86DB -#define GL_DSDT_MAG_INTENSITY_NV 0x86DC -#define GL_SHADER_CONSISTENT_NV 0x86DD -#define GL_TEXTURE_SHADER_NV 0x86DE -#define GL_SHADER_OPERATION_NV 0x86DF -#define GL_CULL_MODES_NV 0x86E0 -#define GL_OFFSET_TEXTURE_MATRIX_NV 0x86E1 -#define GL_OFFSET_TEXTURE_SCALE_NV 0x86E2 -#define GL_OFFSET_TEXTURE_BIAS_NV 0x86E3 -#define GL_OFFSET_TEXTURE_2D_MATRIX_NV GL_OFFSET_TEXTURE_MATRIX_NV -#define GL_OFFSET_TEXTURE_2D_SCALE_NV GL_OFFSET_TEXTURE_SCALE_NV -#define GL_OFFSET_TEXTURE_2D_BIAS_NV GL_OFFSET_TEXTURE_BIAS_NV -#define GL_PREVIOUS_TEXTURE_INPUT_NV 0x86E4 -#define GL_CONST_EYE_NV 0x86E5 -#define GL_PASS_THROUGH_NV 0x86E6 -#define GL_CULL_FRAGMENT_NV 0x86E7 -#define GL_OFFSET_TEXTURE_2D_NV 0x86E8 -#define GL_DEPENDENT_AR_TEXTURE_2D_NV 0x86E9 -#define GL_DEPENDENT_GB_TEXTURE_2D_NV 0x86EA -#define GL_DOT_PRODUCT_NV 0x86EC -#define GL_DOT_PRODUCT_DEPTH_REPLACE_NV 0x86ED -#define GL_DOT_PRODUCT_TEXTURE_2D_NV 0x86EE -#define GL_DOT_PRODUCT_TEXTURE_CUBE_MAP_NV 0x86F0 -#define GL_DOT_PRODUCT_DIFFUSE_CUBE_MAP_NV 0x86F1 -#define GL_DOT_PRODUCT_REFLECT_CUBE_MAP_NV 0x86F2 -#define GL_DOT_PRODUCT_CONST_EYE_REFLECT_CUBE_MAP_NV 0x86F3 -#define GL_HILO_NV 0x86F4 -#define GL_DSDT_NV 0x86F5 -#define GL_DSDT_MAG_NV 0x86F6 -#define GL_DSDT_MAG_VIB_NV 0x86F7 -#define GL_HILO16_NV 0x86F8 -#define GL_SIGNED_HILO_NV 0x86F9 -#define GL_SIGNED_HILO16_NV 0x86FA -#define GL_SIGNED_RGBA_NV 0x86FB -#define GL_SIGNED_RGBA8_NV 0x86FC -#define GL_SIGNED_RGB_NV 0x86FE -#define GL_SIGNED_RGB8_NV 0x86FF -#define GL_SIGNED_LUMINANCE_NV 0x8701 -#define GL_SIGNED_LUMINANCE8_NV 0x8702 -#define GL_SIGNED_LUMINANCE_ALPHA_NV 0x8703 -#define GL_SIGNED_LUMINANCE8_ALPHA8_NV 0x8704 -#define GL_SIGNED_ALPHA_NV 0x8705 -#define GL_SIGNED_ALPHA8_NV 0x8706 -#define GL_SIGNED_INTENSITY_NV 0x8707 -#define GL_SIGNED_INTENSITY8_NV 0x8708 -#define GL_DSDT8_NV 0x8709 -#define GL_DSDT8_MAG8_NV 0x870A -#define GL_DSDT8_MAG8_INTENSITY8_NV 0x870B -#define GL_SIGNED_RGB_UNSIGNED_ALPHA_NV 0x870C -#define GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV 0x870D -#define GL_HI_SCALE_NV 0x870E -#define GL_LO_SCALE_NV 0x870F -#define GL_DS_SCALE_NV 0x8710 -#define GL_DT_SCALE_NV 0x8711 -#define GL_MAGNITUDE_SCALE_NV 0x8712 -#define GL_VIBRANCE_SCALE_NV 0x8713 -#define GL_HI_BIAS_NV 0x8714 -#define GL_LO_BIAS_NV 0x8715 -#define GL_DS_BIAS_NV 0x8716 -#define GL_DT_BIAS_NV 0x8717 -#define GL_MAGNITUDE_BIAS_NV 0x8718 -#define GL_VIBRANCE_BIAS_NV 0x8719 -#define GL_TEXTURE_BORDER_VALUES_NV 0x871A -#define GL_TEXTURE_HI_SIZE_NV 0x871B -#define GL_TEXTURE_LO_SIZE_NV 0x871C -#define GL_TEXTURE_DS_SIZE_NV 0x871D -#define GL_TEXTURE_DT_SIZE_NV 0x871E -#define GL_TEXTURE_MAG_SIZE_NV 0x871F -#endif - -#ifndef GL_NV_texture_shader2 -#define GL_DOT_PRODUCT_TEXTURE_3D_NV 0x86EF -#endif - -#ifndef GL_NV_vertex_array_range2 -#define GL_VERTEX_ARRAY_RANGE_WITHOUT_FLUSH_NV 0x8533 -#endif - -#ifndef GL_NV_vertex_program -#define GL_VERTEX_PROGRAM_NV 0x8620 -#define GL_VERTEX_STATE_PROGRAM_NV 0x8621 -#define GL_ATTRIB_ARRAY_SIZE_NV 0x8623 -#define GL_ATTRIB_ARRAY_STRIDE_NV 0x8624 -#define GL_ATTRIB_ARRAY_TYPE_NV 0x8625 -#define GL_CURRENT_ATTRIB_NV 0x8626 -#define GL_PROGRAM_LENGTH_NV 0x8627 -#define GL_PROGRAM_STRING_NV 0x8628 -#define GL_MODELVIEW_PROJECTION_NV 0x8629 -#define GL_IDENTITY_NV 0x862A -#define GL_INVERSE_NV 0x862B -#define GL_TRANSPOSE_NV 0x862C -#define GL_INVERSE_TRANSPOSE_NV 0x862D -#define GL_MAX_TRACK_MATRIX_STACK_DEPTH_NV 0x862E -#define GL_MAX_TRACK_MATRICES_NV 0x862F -#define GL_MATRIX0_NV 0x8630 -#define GL_MATRIX1_NV 0x8631 -#define GL_MATRIX2_NV 0x8632 -#define GL_MATRIX3_NV 0x8633 -#define GL_MATRIX4_NV 0x8634 -#define GL_MATRIX5_NV 0x8635 -#define GL_MATRIX6_NV 0x8636 -#define GL_MATRIX7_NV 0x8637 -#define GL_CURRENT_MATRIX_STACK_DEPTH_NV 0x8640 -#define GL_CURRENT_MATRIX_NV 0x8641 -#define GL_VERTEX_PROGRAM_POINT_SIZE_NV 0x8642 -#define GL_VERTEX_PROGRAM_TWO_SIDE_NV 0x8643 -#define GL_PROGRAM_PARAMETER_NV 0x8644 -#define GL_ATTRIB_ARRAY_POINTER_NV 0x8645 -#define GL_PROGRAM_TARGET_NV 0x8646 -#define GL_PROGRAM_RESIDENT_NV 0x8647 -#define GL_TRACK_MATRIX_NV 0x8648 -#define GL_TRACK_MATRIX_TRANSFORM_NV 0x8649 -#define GL_VERTEX_PROGRAM_BINDING_NV 0x864A -#define GL_PROGRAM_ERROR_POSITION_NV 0x864B -#define GL_VERTEX_ATTRIB_ARRAY0_NV 0x8650 -#define GL_VERTEX_ATTRIB_ARRAY1_NV 0x8651 -#define GL_VERTEX_ATTRIB_ARRAY2_NV 0x8652 -#define GL_VERTEX_ATTRIB_ARRAY3_NV 0x8653 -#define GL_VERTEX_ATTRIB_ARRAY4_NV 0x8654 -#define GL_VERTEX_ATTRIB_ARRAY5_NV 0x8655 -#define GL_VERTEX_ATTRIB_ARRAY6_NV 0x8656 -#define GL_VERTEX_ATTRIB_ARRAY7_NV 0x8657 -#define GL_VERTEX_ATTRIB_ARRAY8_NV 0x8658 -#define GL_VERTEX_ATTRIB_ARRAY9_NV 0x8659 -#define GL_VERTEX_ATTRIB_ARRAY10_NV 0x865A -#define GL_VERTEX_ATTRIB_ARRAY11_NV 0x865B -#define GL_VERTEX_ATTRIB_ARRAY12_NV 0x865C -#define GL_VERTEX_ATTRIB_ARRAY13_NV 0x865D -#define GL_VERTEX_ATTRIB_ARRAY14_NV 0x865E -#define GL_VERTEX_ATTRIB_ARRAY15_NV 0x865F -#define GL_MAP1_VERTEX_ATTRIB0_4_NV 0x8660 -#define GL_MAP1_VERTEX_ATTRIB1_4_NV 0x8661 -#define GL_MAP1_VERTEX_ATTRIB2_4_NV 0x8662 -#define GL_MAP1_VERTEX_ATTRIB3_4_NV 0x8663 -#define GL_MAP1_VERTEX_ATTRIB4_4_NV 0x8664 -#define GL_MAP1_VERTEX_ATTRIB5_4_NV 0x8665 -#define GL_MAP1_VERTEX_ATTRIB6_4_NV 0x8666 -#define GL_MAP1_VERTEX_ATTRIB7_4_NV 0x8667 -#define GL_MAP1_VERTEX_ATTRIB8_4_NV 0x8668 -#define GL_MAP1_VERTEX_ATTRIB9_4_NV 0x8669 -#define GL_MAP1_VERTEX_ATTRIB10_4_NV 0x866A -#define GL_MAP1_VERTEX_ATTRIB11_4_NV 0x866B -#define GL_MAP1_VERTEX_ATTRIB12_4_NV 0x866C -#define GL_MAP1_VERTEX_ATTRIB13_4_NV 0x866D -#define GL_MAP1_VERTEX_ATTRIB14_4_NV 0x866E -#define GL_MAP1_VERTEX_ATTRIB15_4_NV 0x866F -#define GL_MAP2_VERTEX_ATTRIB0_4_NV 0x8670 -#define GL_MAP2_VERTEX_ATTRIB1_4_NV 0x8671 -#define GL_MAP2_VERTEX_ATTRIB2_4_NV 0x8672 -#define GL_MAP2_VERTEX_ATTRIB3_4_NV 0x8673 -#define GL_MAP2_VERTEX_ATTRIB4_4_NV 0x8674 -#define GL_MAP2_VERTEX_ATTRIB5_4_NV 0x8675 -#define GL_MAP2_VERTEX_ATTRIB6_4_NV 0x8676 -#define GL_MAP2_VERTEX_ATTRIB7_4_NV 0x8677 -#define GL_MAP2_VERTEX_ATTRIB8_4_NV 0x8678 -#define GL_MAP2_VERTEX_ATTRIB9_4_NV 0x8679 -#define GL_MAP2_VERTEX_ATTRIB10_4_NV 0x867A -#define GL_MAP2_VERTEX_ATTRIB11_4_NV 0x867B -#define GL_MAP2_VERTEX_ATTRIB12_4_NV 0x867C -#define GL_MAP2_VERTEX_ATTRIB13_4_NV 0x867D -#define GL_MAP2_VERTEX_ATTRIB14_4_NV 0x867E -#define GL_MAP2_VERTEX_ATTRIB15_4_NV 0x867F -#endif - -#ifndef GL_SGIX_texture_coordinate_clamp -#define GL_TEXTURE_MAX_CLAMP_S_SGIX 0x8369 -#define GL_TEXTURE_MAX_CLAMP_T_SGIX 0x836A -#define GL_TEXTURE_MAX_CLAMP_R_SGIX 0x836B -#endif - -#ifndef GL_SGIX_scalebias_hint -#define GL_SCALEBIAS_HINT_SGIX 0x8322 -#endif - -#ifndef GL_OML_interlace -#define GL_INTERLACE_OML 0x8980 -#define GL_INTERLACE_READ_OML 0x8981 -#endif - -#ifndef GL_OML_subsample -#define GL_FORMAT_SUBSAMPLE_24_24_OML 0x8982 -#define GL_FORMAT_SUBSAMPLE_244_244_OML 0x8983 -#endif - -#ifndef GL_OML_resample -#define GL_PACK_RESAMPLE_OML 0x8984 -#define GL_UNPACK_RESAMPLE_OML 0x8985 -#define GL_RESAMPLE_REPLICATE_OML 0x8986 -#define GL_RESAMPLE_ZERO_FILL_OML 0x8987 -#define GL_RESAMPLE_AVERAGE_OML 0x8988 -#define GL_RESAMPLE_DECIMATE_OML 0x8989 -#endif - -#ifndef GL_NV_copy_depth_to_color -#define GL_DEPTH_STENCIL_TO_RGBA_NV 0x886E -#define GL_DEPTH_STENCIL_TO_BGRA_NV 0x886F -#endif - -#ifndef GL_ATI_envmap_bumpmap -#define GL_BUMP_ROT_MATRIX_ATI 0x8775 -#define GL_BUMP_ROT_MATRIX_SIZE_ATI 0x8776 -#define GL_BUMP_NUM_TEX_UNITS_ATI 0x8777 -#define GL_BUMP_TEX_UNITS_ATI 0x8778 -#define GL_DUDV_ATI 0x8779 -#define GL_DU8DV8_ATI 0x877A -#define GL_BUMP_ENVMAP_ATI 0x877B -#define GL_BUMP_TARGET_ATI 0x877C -#endif - -#ifndef GL_ATI_fragment_shader -#define GL_FRAGMENT_SHADER_ATI 0x8920 -#define GL_REG_0_ATI 0x8921 -#define GL_REG_1_ATI 0x8922 -#define GL_REG_2_ATI 0x8923 -#define GL_REG_3_ATI 0x8924 -#define GL_REG_4_ATI 0x8925 -#define GL_REG_5_ATI 0x8926 -#define GL_REG_6_ATI 0x8927 -#define GL_REG_7_ATI 0x8928 -#define GL_REG_8_ATI 0x8929 -#define GL_REG_9_ATI 0x892A -#define GL_REG_10_ATI 0x892B -#define GL_REG_11_ATI 0x892C -#define GL_REG_12_ATI 0x892D -#define GL_REG_13_ATI 0x892E -#define GL_REG_14_ATI 0x892F -#define GL_REG_15_ATI 0x8930 -#define GL_REG_16_ATI 0x8931 -#define GL_REG_17_ATI 0x8932 -#define GL_REG_18_ATI 0x8933 -#define GL_REG_19_ATI 0x8934 -#define GL_REG_20_ATI 0x8935 -#define GL_REG_21_ATI 0x8936 -#define GL_REG_22_ATI 0x8937 -#define GL_REG_23_ATI 0x8938 -#define GL_REG_24_ATI 0x8939 -#define GL_REG_25_ATI 0x893A -#define GL_REG_26_ATI 0x893B -#define GL_REG_27_ATI 0x893C -#define GL_REG_28_ATI 0x893D -#define GL_REG_29_ATI 0x893E -#define GL_REG_30_ATI 0x893F -#define GL_REG_31_ATI 0x8940 -#define GL_CON_0_ATI 0x8941 -#define GL_CON_1_ATI 0x8942 -#define GL_CON_2_ATI 0x8943 -#define GL_CON_3_ATI 0x8944 -#define GL_CON_4_ATI 0x8945 -#define GL_CON_5_ATI 0x8946 -#define GL_CON_6_ATI 0x8947 -#define GL_CON_7_ATI 0x8948 -#define GL_CON_8_ATI 0x8949 -#define GL_CON_9_ATI 0x894A -#define GL_CON_10_ATI 0x894B -#define GL_CON_11_ATI 0x894C -#define GL_CON_12_ATI 0x894D -#define GL_CON_13_ATI 0x894E -#define GL_CON_14_ATI 0x894F -#define GL_CON_15_ATI 0x8950 -#define GL_CON_16_ATI 0x8951 -#define GL_CON_17_ATI 0x8952 -#define GL_CON_18_ATI 0x8953 -#define GL_CON_19_ATI 0x8954 -#define GL_CON_20_ATI 0x8955 -#define GL_CON_21_ATI 0x8956 -#define GL_CON_22_ATI 0x8957 -#define GL_CON_23_ATI 0x8958 -#define GL_CON_24_ATI 0x8959 -#define GL_CON_25_ATI 0x895A -#define GL_CON_26_ATI 0x895B -#define GL_CON_27_ATI 0x895C -#define GL_CON_28_ATI 0x895D -#define GL_CON_29_ATI 0x895E -#define GL_CON_30_ATI 0x895F -#define GL_CON_31_ATI 0x8960 -#define GL_MOV_ATI 0x8961 -#define GL_ADD_ATI 0x8963 -#define GL_MUL_ATI 0x8964 -#define GL_SUB_ATI 0x8965 -#define GL_DOT3_ATI 0x8966 -#define GL_DOT4_ATI 0x8967 -#define GL_MAD_ATI 0x8968 -#define GL_LERP_ATI 0x8969 -#define GL_CND_ATI 0x896A -#define GL_CND0_ATI 0x896B -#define GL_DOT2_ADD_ATI 0x896C -#define GL_SECONDARY_INTERPOLATOR_ATI 0x896D -#define GL_NUM_FRAGMENT_REGISTERS_ATI 0x896E -#define GL_NUM_FRAGMENT_CONSTANTS_ATI 0x896F -#define GL_NUM_PASSES_ATI 0x8970 -#define GL_NUM_INSTRUCTIONS_PER_PASS_ATI 0x8971 -#define GL_NUM_INSTRUCTIONS_TOTAL_ATI 0x8972 -#define GL_NUM_INPUT_INTERPOLATOR_COMPONENTS_ATI 0x8973 -#define GL_NUM_LOOPBACK_COMPONENTS_ATI 0x8974 -#define GL_COLOR_ALPHA_PAIRING_ATI 0x8975 -#define GL_SWIZZLE_STR_ATI 0x8976 -#define GL_SWIZZLE_STQ_ATI 0x8977 -#define GL_SWIZZLE_STR_DR_ATI 0x8978 -#define GL_SWIZZLE_STQ_DQ_ATI 0x8979 -#define GL_SWIZZLE_STRQ_ATI 0x897A -#define GL_SWIZZLE_STRQ_DQ_ATI 0x897B -#define GL_RED_BIT_ATI 0x00000001 -#define GL_GREEN_BIT_ATI 0x00000002 -#define GL_BLUE_BIT_ATI 0x00000004 -#define GL_2X_BIT_ATI 0x00000001 -#define GL_4X_BIT_ATI 0x00000002 -#define GL_8X_BIT_ATI 0x00000004 -#define GL_HALF_BIT_ATI 0x00000008 -#define GL_QUARTER_BIT_ATI 0x00000010 -#define GL_EIGHTH_BIT_ATI 0x00000020 -#define GL_SATURATE_BIT_ATI 0x00000040 -#define GL_COMP_BIT_ATI 0x00000002 -#define GL_NEGATE_BIT_ATI 0x00000004 -#define GL_BIAS_BIT_ATI 0x00000008 -#endif - -#ifndef GL_ATI_pn_triangles -#define GL_PN_TRIANGLES_ATI 0x87F0 -#define GL_MAX_PN_TRIANGLES_TESSELATION_LEVEL_ATI 0x87F1 -#define GL_PN_TRIANGLES_POINT_MODE_ATI 0x87F2 -#define GL_PN_TRIANGLES_NORMAL_MODE_ATI 0x87F3 -#define GL_PN_TRIANGLES_TESSELATION_LEVEL_ATI 0x87F4 -#define GL_PN_TRIANGLES_POINT_MODE_LINEAR_ATI 0x87F5 -#define GL_PN_TRIANGLES_POINT_MODE_CUBIC_ATI 0x87F6 -#define GL_PN_TRIANGLES_NORMAL_MODE_LINEAR_ATI 0x87F7 -#define GL_PN_TRIANGLES_NORMAL_MODE_QUADRATIC_ATI 0x87F8 -#endif - -#ifndef GL_ATI_vertex_array_object -#define GL_STATIC_ATI 0x8760 -#define GL_DYNAMIC_ATI 0x8761 -#define GL_PRESERVE_ATI 0x8762 -#define GL_DISCARD_ATI 0x8763 -#define GL_OBJECT_BUFFER_SIZE_ATI 0x8764 -#define GL_OBJECT_BUFFER_USAGE_ATI 0x8765 -#define GL_ARRAY_OBJECT_BUFFER_ATI 0x8766 -#define GL_ARRAY_OBJECT_OFFSET_ATI 0x8767 -#endif - -#ifndef GL_EXT_vertex_shader -#define GL_VERTEX_SHADER_EXT 0x8780 -#define GL_VERTEX_SHADER_BINDING_EXT 0x8781 -#define GL_OP_INDEX_EXT 0x8782 -#define GL_OP_NEGATE_EXT 0x8783 -#define GL_OP_DOT3_EXT 0x8784 -#define GL_OP_DOT4_EXT 0x8785 -#define GL_OP_MUL_EXT 0x8786 -#define GL_OP_ADD_EXT 0x8787 -#define GL_OP_MADD_EXT 0x8788 -#define GL_OP_FRAC_EXT 0x8789 -#define GL_OP_MAX_EXT 0x878A -#define GL_OP_MIN_EXT 0x878B -#define GL_OP_SET_GE_EXT 0x878C -#define GL_OP_SET_LT_EXT 0x878D -#define GL_OP_CLAMP_EXT 0x878E -#define GL_OP_FLOOR_EXT 0x878F -#define GL_OP_ROUND_EXT 0x8790 -#define GL_OP_EXP_BASE_2_EXT 0x8791 -#define GL_OP_LOG_BASE_2_EXT 0x8792 -#define GL_OP_POWER_EXT 0x8793 -#define GL_OP_RECIP_EXT 0x8794 -#define GL_OP_RECIP_SQRT_EXT 0x8795 -#define GL_OP_SUB_EXT 0x8796 -#define GL_OP_CROSS_PRODUCT_EXT 0x8797 -#define GL_OP_MULTIPLY_MATRIX_EXT 0x8798 -#define GL_OP_MOV_EXT 0x8799 -#define GL_OUTPUT_VERTEX_EXT 0x879A -#define GL_OUTPUT_COLOR0_EXT 0x879B -#define GL_OUTPUT_COLOR1_EXT 0x879C -#define GL_OUTPUT_TEXTURE_COORD0_EXT 0x879D -#define GL_OUTPUT_TEXTURE_COORD1_EXT 0x879E -#define GL_OUTPUT_TEXTURE_COORD2_EXT 0x879F -#define GL_OUTPUT_TEXTURE_COORD3_EXT 0x87A0 -#define GL_OUTPUT_TEXTURE_COORD4_EXT 0x87A1 -#define GL_OUTPUT_TEXTURE_COORD5_EXT 0x87A2 -#define GL_OUTPUT_TEXTURE_COORD6_EXT 0x87A3 -#define GL_OUTPUT_TEXTURE_COORD7_EXT 0x87A4 -#define GL_OUTPUT_TEXTURE_COORD8_EXT 0x87A5 -#define GL_OUTPUT_TEXTURE_COORD9_EXT 0x87A6 -#define GL_OUTPUT_TEXTURE_COORD10_EXT 0x87A7 -#define GL_OUTPUT_TEXTURE_COORD11_EXT 0x87A8 -#define GL_OUTPUT_TEXTURE_COORD12_EXT 0x87A9 -#define GL_OUTPUT_TEXTURE_COORD13_EXT 0x87AA -#define GL_OUTPUT_TEXTURE_COORD14_EXT 0x87AB -#define GL_OUTPUT_TEXTURE_COORD15_EXT 0x87AC -#define GL_OUTPUT_TEXTURE_COORD16_EXT 0x87AD -#define GL_OUTPUT_TEXTURE_COORD17_EXT 0x87AE -#define GL_OUTPUT_TEXTURE_COORD18_EXT 0x87AF -#define GL_OUTPUT_TEXTURE_COORD19_EXT 0x87B0 -#define GL_OUTPUT_TEXTURE_COORD20_EXT 0x87B1 -#define GL_OUTPUT_TEXTURE_COORD21_EXT 0x87B2 -#define GL_OUTPUT_TEXTURE_COORD22_EXT 0x87B3 -#define GL_OUTPUT_TEXTURE_COORD23_EXT 0x87B4 -#define GL_OUTPUT_TEXTURE_COORD24_EXT 0x87B5 -#define GL_OUTPUT_TEXTURE_COORD25_EXT 0x87B6 -#define GL_OUTPUT_TEXTURE_COORD26_EXT 0x87B7 -#define GL_OUTPUT_TEXTURE_COORD27_EXT 0x87B8 -#define GL_OUTPUT_TEXTURE_COORD28_EXT 0x87B9 -#define GL_OUTPUT_TEXTURE_COORD29_EXT 0x87BA -#define GL_OUTPUT_TEXTURE_COORD30_EXT 0x87BB -#define GL_OUTPUT_TEXTURE_COORD31_EXT 0x87BC -#define GL_OUTPUT_FOG_EXT 0x87BD -#define GL_SCALAR_EXT 0x87BE -#define GL_VECTOR_EXT 0x87BF -#define GL_MATRIX_EXT 0x87C0 -#define GL_VARIANT_EXT 0x87C1 -#define GL_INVARIANT_EXT 0x87C2 -#define GL_LOCAL_CONSTANT_EXT 0x87C3 -#define GL_LOCAL_EXT 0x87C4 -#define GL_MAX_VERTEX_SHADER_INSTRUCTIONS_EXT 0x87C5 -#define GL_MAX_VERTEX_SHADER_VARIANTS_EXT 0x87C6 -#define GL_MAX_VERTEX_SHADER_INVARIANTS_EXT 0x87C7 -#define GL_MAX_VERTEX_SHADER_LOCAL_CONSTANTS_EXT 0x87C8 -#define GL_MAX_VERTEX_SHADER_LOCALS_EXT 0x87C9 -#define GL_MAX_OPTIMIZED_VERTEX_SHADER_INSTRUCTIONS_EXT 0x87CA -#define GL_MAX_OPTIMIZED_VERTEX_SHADER_VARIANTS_EXT 0x87CB -#define GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCAL_CONSTANTS_EXT 0x87CC -#define GL_MAX_OPTIMIZED_VERTEX_SHADER_INVARIANTS_EXT 0x87CD -#define GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCALS_EXT 0x87CE -#define GL_VERTEX_SHADER_INSTRUCTIONS_EXT 0x87CF -#define GL_VERTEX_SHADER_VARIANTS_EXT 0x87D0 -#define GL_VERTEX_SHADER_INVARIANTS_EXT 0x87D1 -#define GL_VERTEX_SHADER_LOCAL_CONSTANTS_EXT 0x87D2 -#define GL_VERTEX_SHADER_LOCALS_EXT 0x87D3 -#define GL_VERTEX_SHADER_OPTIMIZED_EXT 0x87D4 -#define GL_X_EXT 0x87D5 -#define GL_Y_EXT 0x87D6 -#define GL_Z_EXT 0x87D7 -#define GL_W_EXT 0x87D8 -#define GL_NEGATIVE_X_EXT 0x87D9 -#define GL_NEGATIVE_Y_EXT 0x87DA -#define GL_NEGATIVE_Z_EXT 0x87DB -#define GL_NEGATIVE_W_EXT 0x87DC -#define GL_ZERO_EXT 0x87DD -#define GL_ONE_EXT 0x87DE -#define GL_NEGATIVE_ONE_EXT 0x87DF -#define GL_NORMALIZED_RANGE_EXT 0x87E0 -#define GL_FULL_RANGE_EXT 0x87E1 -#define GL_CURRENT_VERTEX_EXT 0x87E2 -#define GL_MVP_MATRIX_EXT 0x87E3 -#define GL_VARIANT_VALUE_EXT 0x87E4 -#define GL_VARIANT_DATATYPE_EXT 0x87E5 -#define GL_VARIANT_ARRAY_STRIDE_EXT 0x87E6 -#define GL_VARIANT_ARRAY_TYPE_EXT 0x87E7 -#define GL_VARIANT_ARRAY_EXT 0x87E8 -#define GL_VARIANT_ARRAY_POINTER_EXT 0x87E9 -#define GL_INVARIANT_VALUE_EXT 0x87EA -#define GL_INVARIANT_DATATYPE_EXT 0x87EB -#define GL_LOCAL_CONSTANT_VALUE_EXT 0x87EC -#define GL_LOCAL_CONSTANT_DATATYPE_EXT 0x87ED -#endif - -#ifndef GL_ATI_vertex_streams -#define GL_MAX_VERTEX_STREAMS_ATI 0x876B -#define GL_VERTEX_STREAM0_ATI 0x876C -#define GL_VERTEX_STREAM1_ATI 0x876D -#define GL_VERTEX_STREAM2_ATI 0x876E -#define GL_VERTEX_STREAM3_ATI 0x876F -#define GL_VERTEX_STREAM4_ATI 0x8770 -#define GL_VERTEX_STREAM5_ATI 0x8771 -#define GL_VERTEX_STREAM6_ATI 0x8772 -#define GL_VERTEX_STREAM7_ATI 0x8773 -#define GL_VERTEX_SOURCE_ATI 0x8774 -#endif - -#ifndef GL_ATI_element_array -#define GL_ELEMENT_ARRAY_ATI 0x8768 -#define GL_ELEMENT_ARRAY_TYPE_ATI 0x8769 -#define GL_ELEMENT_ARRAY_POINTER_ATI 0x876A -#endif - -#ifndef GL_SUN_mesh_array -#define GL_QUAD_MESH_SUN 0x8614 -#define GL_TRIANGLE_MESH_SUN 0x8615 -#endif - -#ifndef GL_SUN_slice_accum -#define GL_SLICE_ACCUM_SUN 0x85CC -#endif - -#ifndef GL_NV_multisample_filter_hint -#define GL_MULTISAMPLE_FILTER_HINT_NV 0x8534 -#endif - -#ifndef GL_NV_depth_clamp -#define GL_DEPTH_CLAMP_NV 0x864F -#endif - -#ifndef GL_NV_occlusion_query -#define GL_PIXEL_COUNTER_BITS_NV 0x8864 -#define GL_CURRENT_OCCLUSION_QUERY_ID_NV 0x8865 -#define GL_PIXEL_COUNT_NV 0x8866 -#define GL_PIXEL_COUNT_AVAILABLE_NV 0x8867 -#endif - -#ifndef GL_NV_point_sprite -#define GL_POINT_SPRITE_NV 0x8861 -#define GL_COORD_REPLACE_NV 0x8862 -#define GL_POINT_SPRITE_R_MODE_NV 0x8863 -#endif - -#ifndef GL_NV_texture_shader3 -#define GL_OFFSET_PROJECTIVE_TEXTURE_2D_NV 0x8850 -#define GL_OFFSET_PROJECTIVE_TEXTURE_2D_SCALE_NV 0x8851 -#define GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_NV 0x8852 -#define GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_SCALE_NV 0x8853 -#define GL_OFFSET_HILO_TEXTURE_2D_NV 0x8854 -#define GL_OFFSET_HILO_TEXTURE_RECTANGLE_NV 0x8855 -#define GL_OFFSET_HILO_PROJECTIVE_TEXTURE_2D_NV 0x8856 -#define GL_OFFSET_HILO_PROJECTIVE_TEXTURE_RECTANGLE_NV 0x8857 -#define GL_DEPENDENT_HILO_TEXTURE_2D_NV 0x8858 -#define GL_DEPENDENT_RGB_TEXTURE_3D_NV 0x8859 -#define GL_DEPENDENT_RGB_TEXTURE_CUBE_MAP_NV 0x885A -#define GL_DOT_PRODUCT_PASS_THROUGH_NV 0x885B -#define GL_DOT_PRODUCT_TEXTURE_1D_NV 0x885C -#define GL_DOT_PRODUCT_AFFINE_DEPTH_REPLACE_NV 0x885D -#define GL_HILO8_NV 0x885E -#define GL_SIGNED_HILO8_NV 0x885F -#define GL_FORCE_BLUE_TO_ONE_NV 0x8860 -#endif - -#ifndef GL_NV_vertex_program1_1 -#endif - -#ifndef GL_EXT_shadow_funcs -#endif - -#ifndef GL_EXT_stencil_two_side -#define GL_STENCIL_TEST_TWO_SIDE_EXT 0x8910 -#define GL_ACTIVE_STENCIL_FACE_EXT 0x8911 -#endif - -#ifndef GL_ATI_text_fragment_shader -#define GL_TEXT_FRAGMENT_SHADER_ATI 0x8200 -#endif - -#ifndef GL_APPLE_client_storage -#define GL_UNPACK_CLIENT_STORAGE_APPLE 0x85B2 -#endif - -#ifndef GL_APPLE_element_array -#define GL_ELEMENT_ARRAY_APPLE 0x8768 -#define GL_ELEMENT_ARRAY_TYPE_APPLE 0x8769 -#define GL_ELEMENT_ARRAY_POINTER_APPLE 0x876A -#endif - -#ifndef GL_APPLE_fence -#define GL_DRAW_PIXELS_APPLE 0x8A0A -#define GL_FENCE_APPLE 0x8A0B -#endif - -#ifndef GL_APPLE_vertex_array_object -#define GL_VERTEX_ARRAY_BINDING_APPLE 0x85B5 -#endif - -#ifndef GL_APPLE_vertex_array_range -#define GL_VERTEX_ARRAY_RANGE_APPLE 0x851D -#define GL_VERTEX_ARRAY_RANGE_LENGTH_APPLE 0x851E -#define GL_VERTEX_ARRAY_STORAGE_HINT_APPLE 0x851F -#define GL_VERTEX_ARRAY_RANGE_POINTER_APPLE 0x8521 -#define GL_STORAGE_CACHED_APPLE 0x85BE -#define GL_STORAGE_SHARED_APPLE 0x85BF -#endif - -#ifndef GL_APPLE_ycbcr_422 -#define GL_YCBCR_422_APPLE 0x85B9 -#define GL_UNSIGNED_SHORT_8_8_APPLE 0x85BA -#define GL_UNSIGNED_SHORT_8_8_REV_APPLE 0x85BB -#endif - -#ifndef GL_S3_s3tc -#define GL_RGB_S3TC 0x83A0 -#define GL_RGB4_S3TC 0x83A1 -#define GL_RGBA_S3TC 0x83A2 -#define GL_RGBA4_S3TC 0x83A3 -#endif - -#ifndef GL_ATI_draw_buffers -#define GL_MAX_DRAW_BUFFERS_ATI 0x8824 -#define GL_DRAW_BUFFER0_ATI 0x8825 -#define GL_DRAW_BUFFER1_ATI 0x8826 -#define GL_DRAW_BUFFER2_ATI 0x8827 -#define GL_DRAW_BUFFER3_ATI 0x8828 -#define GL_DRAW_BUFFER4_ATI 0x8829 -#define GL_DRAW_BUFFER5_ATI 0x882A -#define GL_DRAW_BUFFER6_ATI 0x882B -#define GL_DRAW_BUFFER7_ATI 0x882C -#define GL_DRAW_BUFFER8_ATI 0x882D -#define GL_DRAW_BUFFER9_ATI 0x882E -#define GL_DRAW_BUFFER10_ATI 0x882F -#define GL_DRAW_BUFFER11_ATI 0x8830 -#define GL_DRAW_BUFFER12_ATI 0x8831 -#define GL_DRAW_BUFFER13_ATI 0x8832 -#define GL_DRAW_BUFFER14_ATI 0x8833 -#define GL_DRAW_BUFFER15_ATI 0x8834 -#endif - -#ifndef GL_ATI_pixel_format_float -#define GL_TYPE_RGBA_FLOAT_ATI 0x8820 -#define GL_COLOR_CLEAR_UNCLAMPED_VALUE_ATI 0x8835 -#endif - -#ifndef GL_ATI_texture_env_combine3 -#define GL_MODULATE_ADD_ATI 0x8744 -#define GL_MODULATE_SIGNED_ADD_ATI 0x8745 -#define GL_MODULATE_SUBTRACT_ATI 0x8746 -#endif - -#ifndef GL_ATI_texture_float -#define GL_RGBA_FLOAT32_ATI 0x8814 -#define GL_RGB_FLOAT32_ATI 0x8815 -#define GL_ALPHA_FLOAT32_ATI 0x8816 -#define GL_INTENSITY_FLOAT32_ATI 0x8817 -#define GL_LUMINANCE_FLOAT32_ATI 0x8818 -#define GL_LUMINANCE_ALPHA_FLOAT32_ATI 0x8819 -#define GL_RGBA_FLOAT16_ATI 0x881A -#define GL_RGB_FLOAT16_ATI 0x881B -#define GL_ALPHA_FLOAT16_ATI 0x881C -#define GL_INTENSITY_FLOAT16_ATI 0x881D -#define GL_LUMINANCE_FLOAT16_ATI 0x881E -#define GL_LUMINANCE_ALPHA_FLOAT16_ATI 0x881F -#endif - -#ifndef GL_NV_float_buffer -#define GL_FLOAT_R_NV 0x8880 -#define GL_FLOAT_RG_NV 0x8881 -#define GL_FLOAT_RGB_NV 0x8882 -#define GL_FLOAT_RGBA_NV 0x8883 -#define GL_FLOAT_R16_NV 0x8884 -#define GL_FLOAT_R32_NV 0x8885 -#define GL_FLOAT_RG16_NV 0x8886 -#define GL_FLOAT_RG32_NV 0x8887 -#define GL_FLOAT_RGB16_NV 0x8888 -#define GL_FLOAT_RGB32_NV 0x8889 -#define GL_FLOAT_RGBA16_NV 0x888A -#define GL_FLOAT_RGBA32_NV 0x888B -#define GL_TEXTURE_FLOAT_COMPONENTS_NV 0x888C -#define GL_FLOAT_CLEAR_COLOR_VALUE_NV 0x888D -#define GL_FLOAT_RGBA_MODE_NV 0x888E -#endif - -#ifndef GL_NV_fragment_program -#define GL_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMETERS_NV 0x8868 -#define GL_FRAGMENT_PROGRAM_NV 0x8870 -#define GL_MAX_TEXTURE_COORDS_NV 0x8871 -#define GL_MAX_TEXTURE_IMAGE_UNITS_NV 0x8872 -#define GL_FRAGMENT_PROGRAM_BINDING_NV 0x8873 -#define GL_PROGRAM_ERROR_STRING_NV 0x8874 -#endif - -#ifndef GL_NV_half_float -#define GL_HALF_FLOAT_NV 0x140B -#endif - -#ifndef GL_NV_pixel_data_range -#define GL_WRITE_PIXEL_DATA_RANGE_NV 0x8878 -#define GL_READ_PIXEL_DATA_RANGE_NV 0x8879 -#define GL_WRITE_PIXEL_DATA_RANGE_LENGTH_NV 0x887A -#define GL_READ_PIXEL_DATA_RANGE_LENGTH_NV 0x887B -#define GL_WRITE_PIXEL_DATA_RANGE_POINTER_NV 0x887C -#define GL_READ_PIXEL_DATA_RANGE_POINTER_NV 0x887D -#endif - -#ifndef GL_NV_primitive_restart -#define GL_PRIMITIVE_RESTART_NV 0x8558 -#define GL_PRIMITIVE_RESTART_INDEX_NV 0x8559 -#endif - -#ifndef GL_NV_texture_expand_normal -#define GL_TEXTURE_UNSIGNED_REMAP_MODE_NV 0x888F -#endif - -#ifndef GL_NV_vertex_program2 -#endif - -#ifndef GL_ATI_map_object_buffer -#endif - -#ifndef GL_ATI_separate_stencil -#define GL_STENCIL_BACK_FUNC_ATI 0x8800 -#define GL_STENCIL_BACK_FAIL_ATI 0x8801 -#define GL_STENCIL_BACK_PASS_DEPTH_FAIL_ATI 0x8802 -#define GL_STENCIL_BACK_PASS_DEPTH_PASS_ATI 0x8803 -#endif - -#ifndef GL_ATI_vertex_attrib_array_object -#endif - -#ifndef GL_OES_read_format -#define GL_IMPLEMENTATION_COLOR_READ_TYPE_OES 0x8B9A -#define GL_IMPLEMENTATION_COLOR_READ_FORMAT_OES 0x8B9B -#endif - -#ifndef GL_EXT_depth_bounds_test -#define GL_DEPTH_BOUNDS_TEST_EXT 0x8890 -#define GL_DEPTH_BOUNDS_EXT 0x8891 -#endif - -#ifndef GL_EXT_texture_mirror_clamp -#define GL_MIRROR_CLAMP_EXT 0x8742 -#define GL_MIRROR_CLAMP_TO_EDGE_EXT 0x8743 -#define GL_MIRROR_CLAMP_TO_BORDER_EXT 0x8912 -#endif - -#ifndef GL_EXT_blend_equation_separate -#define GL_BLEND_EQUATION_RGB_EXT GL_BLEND_EQUATION -#define GL_BLEND_EQUATION_ALPHA_EXT 0x883D -#endif - -#ifndef GL_MESA_pack_invert -#define GL_PACK_INVERT_MESA 0x8758 -#endif - -#ifndef GL_MESA_ycbcr_texture -#define GL_UNSIGNED_SHORT_8_8_MESA 0x85BA -#define GL_UNSIGNED_SHORT_8_8_REV_MESA 0x85BB -#define GL_YCBCR_MESA 0x8757 -#endif - -#ifndef GL_EXT_pixel_buffer_object -#define GL_PIXEL_PACK_BUFFER_EXT 0x88EB -#define GL_PIXEL_UNPACK_BUFFER_EXT 0x88EC -#define GL_PIXEL_PACK_BUFFER_BINDING_EXT 0x88ED -#define GL_PIXEL_UNPACK_BUFFER_BINDING_EXT 0x88EF -#endif - -#ifndef GL_NV_fragment_program_option -#endif - -#ifndef GL_NV_fragment_program2 -#define GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV 0x88F4 -#define GL_MAX_PROGRAM_CALL_DEPTH_NV 0x88F5 -#define GL_MAX_PROGRAM_IF_DEPTH_NV 0x88F6 -#define GL_MAX_PROGRAM_LOOP_DEPTH_NV 0x88F7 -#define GL_MAX_PROGRAM_LOOP_COUNT_NV 0x88F8 -#endif - -#ifndef GL_NV_vertex_program2_option -/* reuse GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV */ -/* reuse GL_MAX_PROGRAM_CALL_DEPTH_NV */ -#endif - -#ifndef GL_NV_vertex_program3 -/* reuse GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB */ -#endif - -#ifndef GL_EXT_framebuffer_object -#define GL_INVALID_FRAMEBUFFER_OPERATION_EXT 0x0506 -#define GL_MAX_RENDERBUFFER_SIZE_EXT 0x84E8 -#define GL_FRAMEBUFFER_BINDING_EXT 0x8CA6 -#define GL_RENDERBUFFER_BINDING_EXT 0x8CA7 -#define GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT 0x8CD0 -#define GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT 0x8CD1 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT 0x8CD2 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT 0x8CD3 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT 0x8CD4 -#define GL_FRAMEBUFFER_COMPLETE_EXT 0x8CD5 -#define GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT 0x8CD6 -#define GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT 0x8CD7 -#define GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT 0x8CD9 -#define GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT 0x8CDA -#define GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT 0x8CDB -#define GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT 0x8CDC -#define GL_FRAMEBUFFER_UNSUPPORTED_EXT 0x8CDD -#define GL_MAX_COLOR_ATTACHMENTS_EXT 0x8CDF -#define GL_COLOR_ATTACHMENT0_EXT 0x8CE0 -#define GL_COLOR_ATTACHMENT1_EXT 0x8CE1 -#define GL_COLOR_ATTACHMENT2_EXT 0x8CE2 -#define GL_COLOR_ATTACHMENT3_EXT 0x8CE3 -#define GL_COLOR_ATTACHMENT4_EXT 0x8CE4 -#define GL_COLOR_ATTACHMENT5_EXT 0x8CE5 -#define GL_COLOR_ATTACHMENT6_EXT 0x8CE6 -#define GL_COLOR_ATTACHMENT7_EXT 0x8CE7 -#define GL_COLOR_ATTACHMENT8_EXT 0x8CE8 -#define GL_COLOR_ATTACHMENT9_EXT 0x8CE9 -#define GL_COLOR_ATTACHMENT10_EXT 0x8CEA -#define GL_COLOR_ATTACHMENT11_EXT 0x8CEB -#define GL_COLOR_ATTACHMENT12_EXT 0x8CEC -#define GL_COLOR_ATTACHMENT13_EXT 0x8CED -#define GL_COLOR_ATTACHMENT14_EXT 0x8CEE -#define GL_COLOR_ATTACHMENT15_EXT 0x8CEF -#define GL_DEPTH_ATTACHMENT_EXT 0x8D00 -#define GL_STENCIL_ATTACHMENT_EXT 0x8D20 -#define GL_FRAMEBUFFER_EXT 0x8D40 -#define GL_RENDERBUFFER_EXT 0x8D41 -#define GL_RENDERBUFFER_WIDTH_EXT 0x8D42 -#define GL_RENDERBUFFER_HEIGHT_EXT 0x8D43 -#define GL_RENDERBUFFER_INTERNAL_FORMAT_EXT 0x8D44 -#define GL_STENCIL_INDEX1_EXT 0x8D46 -#define GL_STENCIL_INDEX4_EXT 0x8D47 -#define GL_STENCIL_INDEX8_EXT 0x8D48 -#define GL_STENCIL_INDEX16_EXT 0x8D49 -#define GL_RENDERBUFFER_RED_SIZE_EXT 0x8D50 -#define GL_RENDERBUFFER_GREEN_SIZE_EXT 0x8D51 -#define GL_RENDERBUFFER_BLUE_SIZE_EXT 0x8D52 -#define GL_RENDERBUFFER_ALPHA_SIZE_EXT 0x8D53 -#define GL_RENDERBUFFER_DEPTH_SIZE_EXT 0x8D54 -#define GL_RENDERBUFFER_STENCIL_SIZE_EXT 0x8D55 -#endif - -#ifndef GL_GREMEDY_string_marker -#endif - -#ifndef GL_EXT_packed_depth_stencil -#define GL_DEPTH_STENCIL_EXT 0x84F9 -#define GL_UNSIGNED_INT_24_8_EXT 0x84FA -#define GL_DEPTH24_STENCIL8_EXT 0x88F0 -#define GL_TEXTURE_STENCIL_SIZE_EXT 0x88F1 -#endif - -#ifndef GL_EXT_stencil_clear_tag -#define GL_STENCIL_TAG_BITS_EXT 0x88F2 -#define GL_STENCIL_CLEAR_TAG_VALUE_EXT 0x88F3 -#endif - -#ifndef GL_EXT_texture_sRGB -#define GL_SRGB_EXT 0x8C40 -#define GL_SRGB8_EXT 0x8C41 -#define GL_SRGB_ALPHA_EXT 0x8C42 -#define GL_SRGB8_ALPHA8_EXT 0x8C43 -#define GL_SLUMINANCE_ALPHA_EXT 0x8C44 -#define GL_SLUMINANCE8_ALPHA8_EXT 0x8C45 -#define GL_SLUMINANCE_EXT 0x8C46 -#define GL_SLUMINANCE8_EXT 0x8C47 -#define GL_COMPRESSED_SRGB_EXT 0x8C48 -#define GL_COMPRESSED_SRGB_ALPHA_EXT 0x8C49 -#define GL_COMPRESSED_SLUMINANCE_EXT 0x8C4A -#define GL_COMPRESSED_SLUMINANCE_ALPHA_EXT 0x8C4B -#define GL_COMPRESSED_SRGB_S3TC_DXT1_EXT 0x8C4C -#define GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT1_EXT 0x8C4D -#define GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT3_EXT 0x8C4E -#define GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT5_EXT 0x8C4F -#endif - -#ifndef GL_EXT_framebuffer_blit -#define GL_READ_FRAMEBUFFER_EXT 0x8CA8 -#define GL_DRAW_FRAMEBUFFER_EXT 0x8CA9 -#define GL_DRAW_FRAMEBUFFER_BINDING_EXT GL_FRAMEBUFFER_BINDING_EXT -#define GL_READ_FRAMEBUFFER_BINDING_EXT 0x8CAA -#endif - -#ifndef GL_EXT_framebuffer_multisample -#define GL_RENDERBUFFER_SAMPLES_EXT 0x8CAB -#define GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE_EXT 0x8D56 -#define GL_MAX_SAMPLES_EXT 0x8D57 -#endif - -#ifndef GL_MESAX_texture_stack -#define GL_TEXTURE_1D_STACK_MESAX 0x8759 -#define GL_TEXTURE_2D_STACK_MESAX 0x875A -#define GL_PROXY_TEXTURE_1D_STACK_MESAX 0x875B -#define GL_PROXY_TEXTURE_2D_STACK_MESAX 0x875C -#define GL_TEXTURE_1D_STACK_BINDING_MESAX 0x875D -#define GL_TEXTURE_2D_STACK_BINDING_MESAX 0x875E -#endif - -#ifndef GL_EXT_timer_query -#define GL_TIME_ELAPSED_EXT 0x88BF -#endif - -#ifndef GL_EXT_gpu_program_parameters -#endif - -#ifndef GL_APPLE_flush_buffer_range -#define GL_BUFFER_SERIALIZED_MODIFY_APPLE 0x8A12 -#define GL_BUFFER_FLUSHING_UNMAP_APPLE 0x8A13 -#endif - -#ifndef GL_NV_gpu_program4 -#define GL_MIN_PROGRAM_TEXEL_OFFSET_NV 0x8904 -#define GL_MAX_PROGRAM_TEXEL_OFFSET_NV 0x8905 -#define GL_PROGRAM_ATTRIB_COMPONENTS_NV 0x8906 -#define GL_PROGRAM_RESULT_COMPONENTS_NV 0x8907 -#define GL_MAX_PROGRAM_ATTRIB_COMPONENTS_NV 0x8908 -#define GL_MAX_PROGRAM_RESULT_COMPONENTS_NV 0x8909 -#define GL_MAX_PROGRAM_GENERIC_ATTRIBS_NV 0x8DA5 -#define GL_MAX_PROGRAM_GENERIC_RESULTS_NV 0x8DA6 -#endif - -#ifndef GL_NV_geometry_program4 -#define GL_LINES_ADJACENCY_EXT 0x000A -#define GL_LINE_STRIP_ADJACENCY_EXT 0x000B -#define GL_TRIANGLES_ADJACENCY_EXT 0x000C -#define GL_TRIANGLE_STRIP_ADJACENCY_EXT 0x000D -#define GL_GEOMETRY_PROGRAM_NV 0x8C26 -#define GL_MAX_PROGRAM_OUTPUT_VERTICES_NV 0x8C27 -#define GL_MAX_PROGRAM_TOTAL_OUTPUT_COMPONENTS_NV 0x8C28 -#define GL_GEOMETRY_VERTICES_OUT_EXT 0x8DDA -#define GL_GEOMETRY_INPUT_TYPE_EXT 0x8DDB -#define GL_GEOMETRY_OUTPUT_TYPE_EXT 0x8DDC -#define GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS_EXT 0x8C29 -#define GL_FRAMEBUFFER_ATTACHMENT_LAYERED_EXT 0x8DA7 -#define GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS_EXT 0x8DA8 -#define GL_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT_EXT 0x8DA9 -#define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT 0x8CD4 -#define GL_PROGRAM_POINT_SIZE_EXT 0x8642 -#endif - -#ifndef GL_EXT_geometry_shader4 -#define GL_GEOMETRY_SHADER_EXT 0x8DD9 -/* reuse GL_GEOMETRY_VERTICES_OUT_EXT */ -/* reuse GL_GEOMETRY_INPUT_TYPE_EXT */ -/* reuse GL_GEOMETRY_OUTPUT_TYPE_EXT */ -/* reuse GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS_EXT */ -#define GL_MAX_GEOMETRY_VARYING_COMPONENTS_EXT 0x8DDD -#define GL_MAX_VERTEX_VARYING_COMPONENTS_EXT 0x8DDE -#define GL_MAX_VARYING_COMPONENTS_EXT 0x8B4B -#define GL_MAX_GEOMETRY_UNIFORM_COMPONENTS_EXT 0x8DDF -#define GL_MAX_GEOMETRY_OUTPUT_VERTICES_EXT 0x8DE0 -#define GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS_EXT 0x8DE1 -/* reuse GL_LINES_ADJACENCY_EXT */ -/* reuse GL_LINE_STRIP_ADJACENCY_EXT */ -/* reuse GL_TRIANGLES_ADJACENCY_EXT */ -/* reuse GL_TRIANGLE_STRIP_ADJACENCY_EXT */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS_EXT */ -/* reuse GL_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT_EXT */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_LAYERED_EXT */ -/* reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT */ -/* reuse GL_PROGRAM_POINT_SIZE_EXT */ -#endif - -#ifndef GL_NV_vertex_program4 -#define GL_VERTEX_ATTRIB_ARRAY_INTEGER_NV 0x88FD -#endif - -#ifndef GL_EXT_gpu_shader4 -#define GL_SAMPLER_1D_ARRAY_EXT 0x8DC0 -#define GL_SAMPLER_2D_ARRAY_EXT 0x8DC1 -#define GL_SAMPLER_BUFFER_EXT 0x8DC2 -#define GL_SAMPLER_1D_ARRAY_SHADOW_EXT 0x8DC3 -#define GL_SAMPLER_2D_ARRAY_SHADOW_EXT 0x8DC4 -#define GL_SAMPLER_CUBE_SHADOW_EXT 0x8DC5 -#define GL_UNSIGNED_INT_VEC2_EXT 0x8DC6 -#define GL_UNSIGNED_INT_VEC3_EXT 0x8DC7 -#define GL_UNSIGNED_INT_VEC4_EXT 0x8DC8 -#define GL_INT_SAMPLER_1D_EXT 0x8DC9 -#define GL_INT_SAMPLER_2D_EXT 0x8DCA -#define GL_INT_SAMPLER_3D_EXT 0x8DCB -#define GL_INT_SAMPLER_CUBE_EXT 0x8DCC -#define GL_INT_SAMPLER_2D_RECT_EXT 0x8DCD -#define GL_INT_SAMPLER_1D_ARRAY_EXT 0x8DCE -#define GL_INT_SAMPLER_2D_ARRAY_EXT 0x8DCF -#define GL_INT_SAMPLER_BUFFER_EXT 0x8DD0 -#define GL_UNSIGNED_INT_SAMPLER_1D_EXT 0x8DD1 -#define GL_UNSIGNED_INT_SAMPLER_2D_EXT 0x8DD2 -#define GL_UNSIGNED_INT_SAMPLER_3D_EXT 0x8DD3 -#define GL_UNSIGNED_INT_SAMPLER_CUBE_EXT 0x8DD4 -#define GL_UNSIGNED_INT_SAMPLER_2D_RECT_EXT 0x8DD5 -#define GL_UNSIGNED_INT_SAMPLER_1D_ARRAY_EXT 0x8DD6 -#define GL_UNSIGNED_INT_SAMPLER_2D_ARRAY_EXT 0x8DD7 -#define GL_UNSIGNED_INT_SAMPLER_BUFFER_EXT 0x8DD8 -#endif - -#ifndef GL_EXT_draw_instanced -#endif - -#ifndef GL_EXT_packed_float -#define GL_R11F_G11F_B10F_EXT 0x8C3A -#define GL_UNSIGNED_INT_10F_11F_11F_REV_EXT 0x8C3B -#define GL_RGBA_SIGNED_COMPONENTS_EXT 0x8C3C -#endif - -#ifndef GL_EXT_texture_array -#define GL_TEXTURE_1D_ARRAY_EXT 0x8C18 -#define GL_PROXY_TEXTURE_1D_ARRAY_EXT 0x8C19 -#define GL_TEXTURE_2D_ARRAY_EXT 0x8C1A -#define GL_PROXY_TEXTURE_2D_ARRAY_EXT 0x8C1B -#define GL_TEXTURE_BINDING_1D_ARRAY_EXT 0x8C1C -#define GL_TEXTURE_BINDING_2D_ARRAY_EXT 0x8C1D -#define GL_MAX_ARRAY_TEXTURE_LAYERS_EXT 0x88FF -#define GL_COMPARE_REF_DEPTH_TO_TEXTURE_EXT 0x884E -/* reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT */ -#endif - -#ifndef GL_EXT_texture_buffer_object -#define GL_TEXTURE_BUFFER_EXT 0x8C2A -#define GL_MAX_TEXTURE_BUFFER_SIZE_EXT 0x8C2B -#define GL_TEXTURE_BINDING_BUFFER_EXT 0x8C2C -#define GL_TEXTURE_BUFFER_DATA_STORE_BINDING_EXT 0x8C2D -#define GL_TEXTURE_BUFFER_FORMAT_EXT 0x8C2E -#endif - -#ifndef GL_EXT_texture_compression_latc -#define GL_COMPRESSED_LUMINANCE_LATC1_EXT 0x8C70 -#define GL_COMPRESSED_SIGNED_LUMINANCE_LATC1_EXT 0x8C71 -#define GL_COMPRESSED_LUMINANCE_ALPHA_LATC2_EXT 0x8C72 -#define GL_COMPRESSED_SIGNED_LUMINANCE_ALPHA_LATC2_EXT 0x8C73 -#endif - -#ifndef GL_EXT_texture_compression_rgtc -#define GL_COMPRESSED_RED_RGTC1_EXT 0x8DBB -#define GL_COMPRESSED_SIGNED_RED_RGTC1_EXT 0x8DBC -#define GL_COMPRESSED_RED_GREEN_RGTC2_EXT 0x8DBD -#define GL_COMPRESSED_SIGNED_RED_GREEN_RGTC2_EXT 0x8DBE -#endif - -#ifndef GL_EXT_texture_shared_exponent -#define GL_RGB9_E5_EXT 0x8C3D -#define GL_UNSIGNED_INT_5_9_9_9_REV_EXT 0x8C3E -#define GL_TEXTURE_SHARED_SIZE_EXT 0x8C3F -#endif - -#ifndef GL_NV_depth_buffer_float -#define GL_DEPTH_COMPONENT32F_NV 0x8DAB -#define GL_DEPTH32F_STENCIL8_NV 0x8DAC -#define GL_FLOAT_32_UNSIGNED_INT_24_8_REV_NV 0x8DAD -#define GL_DEPTH_BUFFER_FLOAT_MODE_NV 0x8DAF -#endif - -#ifndef GL_NV_fragment_program4 -#endif - -#ifndef GL_NV_framebuffer_multisample_coverage -#define GL_RENDERBUFFER_COVERAGE_SAMPLES_NV 0x8CAB -#define GL_RENDERBUFFER_COLOR_SAMPLES_NV 0x8E10 -#define GL_MAX_MULTISAMPLE_COVERAGE_MODES_NV 0x8E11 -#define GL_MULTISAMPLE_COVERAGE_MODES_NV 0x8E12 -#endif - -#ifndef GL_EXT_framebuffer_sRGB -#define GL_FRAMEBUFFER_SRGB_EXT 0x8DB9 -#define GL_FRAMEBUFFER_SRGB_CAPABLE_EXT 0x8DBA -#endif - -#ifndef GL_NV_geometry_shader4 -#endif - -#ifndef GL_NV_parameter_buffer_object -#define GL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV 0x8DA0 -#define GL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV 0x8DA1 -#define GL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV 0x8DA2 -#define GL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV 0x8DA3 -#define GL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV 0x8DA4 -#endif - -#ifndef GL_EXT_draw_buffers2 -#endif - -#ifndef GL_NV_transform_feedback -#define GL_BACK_PRIMARY_COLOR_NV 0x8C77 -#define GL_BACK_SECONDARY_COLOR_NV 0x8C78 -#define GL_TEXTURE_COORD_NV 0x8C79 -#define GL_CLIP_DISTANCE_NV 0x8C7A -#define GL_VERTEX_ID_NV 0x8C7B -#define GL_PRIMITIVE_ID_NV 0x8C7C -#define GL_GENERIC_ATTRIB_NV 0x8C7D -#define GL_TRANSFORM_FEEDBACK_ATTRIBS_NV 0x8C7E -#define GL_TRANSFORM_FEEDBACK_BUFFER_MODE_NV 0x8C7F -#define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS_NV 0x8C80 -#define GL_ACTIVE_VARYINGS_NV 0x8C81 -#define GL_ACTIVE_VARYING_MAX_LENGTH_NV 0x8C82 -#define GL_TRANSFORM_FEEDBACK_VARYINGS_NV 0x8C83 -#define GL_TRANSFORM_FEEDBACK_BUFFER_START_NV 0x8C84 -#define GL_TRANSFORM_FEEDBACK_BUFFER_SIZE_NV 0x8C85 -#define GL_TRANSFORM_FEEDBACK_RECORD_NV 0x8C86 -#define GL_PRIMITIVES_GENERATED_NV 0x8C87 -#define GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN_NV 0x8C88 -#define GL_RASTERIZER_DISCARD_NV 0x8C89 -#define GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_ATTRIBS_NV 0x8C8A -#define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS_NV 0x8C8B -#define GL_INTERLEAVED_ATTRIBS_NV 0x8C8C -#define GL_SEPARATE_ATTRIBS_NV 0x8C8D -#define GL_TRANSFORM_FEEDBACK_BUFFER_NV 0x8C8E -#define GL_TRANSFORM_FEEDBACK_BUFFER_BINDING_NV 0x8C8F -#endif - -#ifndef GL_EXT_bindable_uniform -#define GL_MAX_VERTEX_BINDABLE_UNIFORMS_EXT 0x8DE2 -#define GL_MAX_FRAGMENT_BINDABLE_UNIFORMS_EXT 0x8DE3 -#define GL_MAX_GEOMETRY_BINDABLE_UNIFORMS_EXT 0x8DE4 -#define GL_MAX_BINDABLE_UNIFORM_SIZE_EXT 0x8DED -#define GL_UNIFORM_BUFFER_EXT 0x8DEE -#define GL_UNIFORM_BUFFER_BINDING_EXT 0x8DEF -#endif - -#ifndef GL_EXT_texture_integer -#define GL_RGBA32UI_EXT 0x8D70 -#define GL_RGB32UI_EXT 0x8D71 -#define GL_ALPHA32UI_EXT 0x8D72 -#define GL_INTENSITY32UI_EXT 0x8D73 -#define GL_LUMINANCE32UI_EXT 0x8D74 -#define GL_LUMINANCE_ALPHA32UI_EXT 0x8D75 -#define GL_RGBA16UI_EXT 0x8D76 -#define GL_RGB16UI_EXT 0x8D77 -#define GL_ALPHA16UI_EXT 0x8D78 -#define GL_INTENSITY16UI_EXT 0x8D79 -#define GL_LUMINANCE16UI_EXT 0x8D7A -#define GL_LUMINANCE_ALPHA16UI_EXT 0x8D7B -#define GL_RGBA8UI_EXT 0x8D7C -#define GL_RGB8UI_EXT 0x8D7D -#define GL_ALPHA8UI_EXT 0x8D7E -#define GL_INTENSITY8UI_EXT 0x8D7F -#define GL_LUMINANCE8UI_EXT 0x8D80 -#define GL_LUMINANCE_ALPHA8UI_EXT 0x8D81 -#define GL_RGBA32I_EXT 0x8D82 -#define GL_RGB32I_EXT 0x8D83 -#define GL_ALPHA32I_EXT 0x8D84 -#define GL_INTENSITY32I_EXT 0x8D85 -#define GL_LUMINANCE32I_EXT 0x8D86 -#define GL_LUMINANCE_ALPHA32I_EXT 0x8D87 -#define GL_RGBA16I_EXT 0x8D88 -#define GL_RGB16I_EXT 0x8D89 -#define GL_ALPHA16I_EXT 0x8D8A -#define GL_INTENSITY16I_EXT 0x8D8B -#define GL_LUMINANCE16I_EXT 0x8D8C -#define GL_LUMINANCE_ALPHA16I_EXT 0x8D8D -#define GL_RGBA8I_EXT 0x8D8E -#define GL_RGB8I_EXT 0x8D8F -#define GL_ALPHA8I_EXT 0x8D90 -#define GL_INTENSITY8I_EXT 0x8D91 -#define GL_LUMINANCE8I_EXT 0x8D92 -#define GL_LUMINANCE_ALPHA8I_EXT 0x8D93 -#define GL_RED_INTEGER_EXT 0x8D94 -#define GL_GREEN_INTEGER_EXT 0x8D95 -#define GL_BLUE_INTEGER_EXT 0x8D96 -#define GL_ALPHA_INTEGER_EXT 0x8D97 -#define GL_RGB_INTEGER_EXT 0x8D98 -#define GL_RGBA_INTEGER_EXT 0x8D99 -#define GL_BGR_INTEGER_EXT 0x8D9A -#define GL_BGRA_INTEGER_EXT 0x8D9B -#define GL_LUMINANCE_INTEGER_EXT 0x8D9C -#define GL_LUMINANCE_ALPHA_INTEGER_EXT 0x8D9D -#define GL_RGBA_INTEGER_MODE_EXT 0x8D9E -#endif - -#ifndef GL_GREMEDY_frame_terminator -#endif - -#ifndef GL_NV_conditional_render -#define GL_QUERY_WAIT_NV 0x8E13 -#define GL_QUERY_NO_WAIT_NV 0x8E14 -#define GL_QUERY_BY_REGION_WAIT_NV 0x8E15 -#define GL_QUERY_BY_REGION_NO_WAIT_NV 0x8E16 -#endif - -#ifndef GL_NV_present_video -#define GL_FRAME_NV 0x8E26 -#define GL_FIELDS_NV 0x8E27 -#define GL_CURRENT_TIME_NV 0x8E28 -#define GL_NUM_FILL_STREAMS_NV 0x8E29 -#define GL_PRESENT_TIME_NV 0x8E2A -#define GL_PRESENT_DURATION_NV 0x8E2B -#endif - -#ifndef GL_EXT_transform_feedback -#define GL_TRANSFORM_FEEDBACK_BUFFER_EXT 0x8C8E -#define GL_TRANSFORM_FEEDBACK_BUFFER_START_EXT 0x8C84 -#define GL_TRANSFORM_FEEDBACK_BUFFER_SIZE_EXT 0x8C85 -#define GL_TRANSFORM_FEEDBACK_BUFFER_BINDING_EXT 0x8C8F -#define GL_INTERLEAVED_ATTRIBS_EXT 0x8C8C -#define GL_SEPARATE_ATTRIBS_EXT 0x8C8D -#define GL_PRIMITIVES_GENERATED_EXT 0x8C87 -#define GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN_EXT 0x8C88 -#define GL_RASTERIZER_DISCARD_EXT 0x8C89 -#define GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS_EXT 0x8C8A -#define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS_EXT 0x8C8B -#define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS_EXT 0x8C80 -#define GL_TRANSFORM_FEEDBACK_VARYINGS_EXT 0x8C83 -#define GL_TRANSFORM_FEEDBACK_BUFFER_MODE_EXT 0x8C7F -#define GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH_EXT 0x8C76 -#endif - -#ifndef GL_EXT_direct_state_access -#define GL_PROGRAM_MATRIX_EXT 0x8E2D -#define GL_TRANSPOSE_PROGRAM_MATRIX_EXT 0x8E2E -#define GL_PROGRAM_MATRIX_STACK_DEPTH_EXT 0x8E2F -#endif - -#ifndef GL_EXT_vertex_array_bgra -/* reuse GL_BGRA */ -#endif - -#ifndef GL_EXT_texture_swizzle -#define GL_TEXTURE_SWIZZLE_R_EXT 0x8E42 -#define GL_TEXTURE_SWIZZLE_G_EXT 0x8E43 -#define GL_TEXTURE_SWIZZLE_B_EXT 0x8E44 -#define GL_TEXTURE_SWIZZLE_A_EXT 0x8E45 -#define GL_TEXTURE_SWIZZLE_RGBA_EXT 0x8E46 -#endif - -#ifndef GL_NV_explicit_multisample -#define GL_SAMPLE_POSITION_NV 0x8E50 -#define GL_SAMPLE_MASK_NV 0x8E51 -#define GL_SAMPLE_MASK_VALUE_NV 0x8E52 -#define GL_TEXTURE_BINDING_RENDERBUFFER_NV 0x8E53 -#define GL_TEXTURE_RENDERBUFFER_DATA_STORE_BINDING_NV 0x8E54 -#define GL_MAX_SAMPLE_MASK_WORDS_NV 0x8E59 -#define GL_TEXTURE_RENDERBUFFER_NV 0x8E55 -#define GL_SAMPLER_RENDERBUFFER_NV 0x8E56 -#define GL_INT_SAMPLER_RENDERBUFFER_NV 0x8E57 -#define GL_UNSIGNED_INT_SAMPLER_RENDERBUFFER_NV 0x8E58 -#endif - -#ifndef GL_NV_transform_feedback2 -#define GL_TRANSFORM_FEEDBACK_NV 0x8E22 -#define GL_TRANSFORM_FEEDBACK_BUFFER_PAUSED_NV 0x8E23 -#define GL_TRANSFORM_FEEDBACK_BUFFER_ACTIVE_NV 0x8E24 -#define GL_TRANSFORM_FEEDBACK_BINDING_NV 0x8E25 -#endif - - -/*************************************************************/ - -#include -#ifndef GL_VERSION_2_0 -/* GL type for program/shader text */ -typedef char GLchar; /* native character */ -#endif - -#ifndef GL_VERSION_1_5 -/* GL types for handling large vertex buffer objects */ -typedef ptrdiff_t GLintptr; -typedef ptrdiff_t GLsizeiptr; -#endif - -#ifndef GL_ARB_vertex_buffer_object -/* GL types for handling large vertex buffer objects */ -typedef ptrdiff_t GLintptrARB; -typedef ptrdiff_t GLsizeiptrARB; -#endif - -#ifndef GL_ARB_shader_objects -/* GL types for handling shader object handles and program/shader text */ -typedef char GLcharARB; /* native character */ -typedef unsigned int GLhandleARB; /* shader object handle */ -#endif - -/* GL types for "half" precision (s10e5) float data in host memory */ -#ifndef GL_ARB_half_float_pixel -typedef unsigned short GLhalfARB; -#endif - -#ifndef GL_NV_half_float -typedef unsigned short GLhalfNV; -#endif - -#ifndef GLEXT_64_TYPES_DEFINED -/* This code block is duplicated in glxext.h, so must be protected */ -#define GLEXT_64_TYPES_DEFINED -/* Define int32_t, int64_t, and uint64_t types for UST/MSC */ -/* (as used in the GL_EXT_timer_query extension). */ -#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L -#include -#elif defined(__sun__) || defined(__digital__) -#include -#if defined(__STDC__) -#if defined(__arch64__) || defined(_LP64) -typedef long int int64_t; -typedef unsigned long int uint64_t; -#else -typedef long long int int64_t; -typedef unsigned long long int uint64_t; -#endif /* __arch64__ */ -#endif /* __STDC__ */ -#elif defined( __VMS ) || defined(__sgi) -#include -#elif defined(__SCO__) || defined(__USLC__) -#include -#elif defined(__UNIXOS2__) || defined(__SOL64__) -typedef long int int32_t; -typedef long long int int64_t; -typedef unsigned long long int uint64_t; -#elif defined(_WIN32) && defined(__GNUC__) -#include -#elif defined(_WIN32) -typedef __int32 int32_t; -typedef __int64 int64_t; -typedef unsigned __int64 uint64_t; -#else -#include /* Fallback option */ -#endif -#endif - -#ifndef GL_EXT_timer_query -typedef int64_t GLint64EXT; -typedef uint64_t GLuint64EXT; -#endif - -#ifndef GL_VERSION_1_2 -#define GL_VERSION_1_2 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendColor (GLclampf, GLclampf, GLclampf, GLclampf); -GLAPI void APIENTRY glBlendEquation (GLenum); -GLAPI void APIENTRY glDrawRangeElements (GLenum, GLuint, GLuint, GLsizei, GLenum, const GLvoid *); -GLAPI void APIENTRY glColorTable (GLenum, GLenum, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glColorTableParameterfv (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glColorTableParameteriv (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glCopyColorTable (GLenum, GLenum, GLint, GLint, GLsizei); -GLAPI void APIENTRY glGetColorTable (GLenum, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetColorTableParameterfv (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetColorTableParameteriv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glColorSubTable (GLenum, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyColorSubTable (GLenum, GLsizei, GLint, GLint, GLsizei); -GLAPI void APIENTRY glConvolutionFilter1D (GLenum, GLenum, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glConvolutionFilter2D (GLenum, GLenum, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glConvolutionParameterf (GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glConvolutionParameterfv (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glConvolutionParameteri (GLenum, GLenum, GLint); -GLAPI void APIENTRY glConvolutionParameteriv (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glCopyConvolutionFilter1D (GLenum, GLenum, GLint, GLint, GLsizei); -GLAPI void APIENTRY glCopyConvolutionFilter2D (GLenum, GLenum, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glGetConvolutionFilter (GLenum, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetConvolutionParameterfv (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetConvolutionParameteriv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetSeparableFilter (GLenum, GLenum, GLenum, GLvoid *, GLvoid *, GLvoid *); -GLAPI void APIENTRY glSeparableFilter2D (GLenum, GLenum, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *, const GLvoid *); -GLAPI void APIENTRY glGetHistogram (GLenum, GLboolean, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetHistogramParameterfv (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetHistogramParameteriv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetMinmax (GLenum, GLboolean, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetMinmaxParameterfv (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMinmaxParameteriv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glHistogram (GLenum, GLsizei, GLenum, GLboolean); -GLAPI void APIENTRY glMinmax (GLenum, GLenum, GLboolean); -GLAPI void APIENTRY glResetHistogram (GLenum); -GLAPI void APIENTRY glResetMinmax (GLenum); -GLAPI void APIENTRY glTexImage3D (GLenum, GLint, GLint, GLsizei, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTexSubImage3D (GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyTexSubImage3D (GLenum, GLint, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDCOLORPROC) (GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha); -typedef void (APIENTRYP PFNGLBLENDEQUATIONPROC) (GLenum mode); -typedef void (APIENTRYP PFNGLDRAWRANGEELEMENTSPROC) (GLenum mode, GLuint start, GLuint end, GLsizei count, GLenum type, const GLvoid *indices); -typedef void (APIENTRYP PFNGLCOLORTABLEPROC) (GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *table); -typedef void (APIENTRYP PFNGLCOLORTABLEPARAMETERFVPROC) (GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLCOLORTABLEPARAMETERIVPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLCOPYCOLORTABLEPROC) (GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPROC) (GLenum target, GLenum format, GLenum type, GLvoid *table); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPARAMETERFVPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPARAMETERIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLCOLORSUBTABLEPROC) (GLenum target, GLsizei start, GLsizei count, GLenum format, GLenum type, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOPYCOLORSUBTABLEPROC) (GLenum target, GLsizei start, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLCONVOLUTIONFILTER1DPROC) (GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *image); -typedef void (APIENTRYP PFNGLCONVOLUTIONFILTER2DPROC) (GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *image); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERFPROC) (GLenum target, GLenum pname, GLfloat params); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERFVPROC) (GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERIPROC) (GLenum target, GLenum pname, GLint params); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERIVPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLCOPYCONVOLUTIONFILTER1DPROC) (GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLCOPYCONVOLUTIONFILTER2DPROC) (GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETCONVOLUTIONFILTERPROC) (GLenum target, GLenum format, GLenum type, GLvoid *image); -typedef void (APIENTRYP PFNGLGETCONVOLUTIONPARAMETERFVPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETCONVOLUTIONPARAMETERIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETSEPARABLEFILTERPROC) (GLenum target, GLenum format, GLenum type, GLvoid *row, GLvoid *column, GLvoid *span); -typedef void (APIENTRYP PFNGLSEPARABLEFILTER2DPROC) (GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *row, const GLvoid *column); -typedef void (APIENTRYP PFNGLGETHISTOGRAMPROC) (GLenum target, GLboolean reset, GLenum format, GLenum type, GLvoid *values); -typedef void (APIENTRYP PFNGLGETHISTOGRAMPARAMETERFVPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETHISTOGRAMPARAMETERIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMINMAXPROC) (GLenum target, GLboolean reset, GLenum format, GLenum type, GLvoid *values); -typedef void (APIENTRYP PFNGLGETMINMAXPARAMETERFVPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMINMAXPARAMETERIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLHISTOGRAMPROC) (GLenum target, GLsizei width, GLenum internalformat, GLboolean sink); -typedef void (APIENTRYP PFNGLMINMAXPROC) (GLenum target, GLenum internalformat, GLboolean sink); -typedef void (APIENTRYP PFNGLRESETHISTOGRAMPROC) (GLenum target); -typedef void (APIENTRYP PFNGLRESETMINMAXPROC) (GLenum target); -typedef void (APIENTRYP PFNGLTEXIMAGE3DPROC) (GLenum target, GLint level, GLint internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXSUBIMAGE3DPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLCOPYTEXSUBIMAGE3DPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height); -#endif - -#ifndef GL_VERSION_1_3 -#define GL_VERSION_1_3 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glActiveTexture (GLenum); -GLAPI void APIENTRY glClientActiveTexture (GLenum); -GLAPI void APIENTRY glMultiTexCoord1d (GLenum, GLdouble); -GLAPI void APIENTRY glMultiTexCoord1dv (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord1f (GLenum, GLfloat); -GLAPI void APIENTRY glMultiTexCoord1fv (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord1i (GLenum, GLint); -GLAPI void APIENTRY glMultiTexCoord1iv (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord1s (GLenum, GLshort); -GLAPI void APIENTRY glMultiTexCoord1sv (GLenum, const GLshort *); -GLAPI void APIENTRY glMultiTexCoord2d (GLenum, GLdouble, GLdouble); -GLAPI void APIENTRY glMultiTexCoord2dv (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord2f (GLenum, GLfloat, GLfloat); -GLAPI void APIENTRY glMultiTexCoord2fv (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord2i (GLenum, GLint, GLint); -GLAPI void APIENTRY glMultiTexCoord2iv (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord2s (GLenum, GLshort, GLshort); -GLAPI void APIENTRY glMultiTexCoord2sv (GLenum, const GLshort *); -GLAPI void APIENTRY glMultiTexCoord3d (GLenum, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMultiTexCoord3dv (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord3f (GLenum, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMultiTexCoord3fv (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord3i (GLenum, GLint, GLint, GLint); -GLAPI void APIENTRY glMultiTexCoord3iv (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord3s (GLenum, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glMultiTexCoord3sv (GLenum, const GLshort *); -GLAPI void APIENTRY glMultiTexCoord4d (GLenum, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMultiTexCoord4dv (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord4f (GLenum, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMultiTexCoord4fv (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord4i (GLenum, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glMultiTexCoord4iv (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord4s (GLenum, GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glMultiTexCoord4sv (GLenum, const GLshort *); -GLAPI void APIENTRY glLoadTransposeMatrixf (const GLfloat *); -GLAPI void APIENTRY glLoadTransposeMatrixd (const GLdouble *); -GLAPI void APIENTRY glMultTransposeMatrixf (const GLfloat *); -GLAPI void APIENTRY glMultTransposeMatrixd (const GLdouble *); -GLAPI void APIENTRY glSampleCoverage (GLclampf, GLboolean); -GLAPI void APIENTRY glCompressedTexImage3D (GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexImage2D (GLenum, GLint, GLenum, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexImage1D (GLenum, GLint, GLenum, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexSubImage3D (GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexSubImage2D (GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexSubImage1D (GLenum, GLint, GLint, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glGetCompressedTexImage (GLenum, GLint, GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLACTIVETEXTUREPROC) (GLenum texture); -typedef void (APIENTRYP PFNGLCLIENTACTIVETEXTUREPROC) (GLenum texture); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1DPROC) (GLenum target, GLdouble s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1DVPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1FPROC) (GLenum target, GLfloat s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1FVPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1IPROC) (GLenum target, GLint s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1IVPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1SPROC) (GLenum target, GLshort s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1SVPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2DPROC) (GLenum target, GLdouble s, GLdouble t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2DVPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2FPROC) (GLenum target, GLfloat s, GLfloat t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2FVPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2IPROC) (GLenum target, GLint s, GLint t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2IVPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2SPROC) (GLenum target, GLshort s, GLshort t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2SVPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3DPROC) (GLenum target, GLdouble s, GLdouble t, GLdouble r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3DVPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3FPROC) (GLenum target, GLfloat s, GLfloat t, GLfloat r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3FVPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3IPROC) (GLenum target, GLint s, GLint t, GLint r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3IVPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3SPROC) (GLenum target, GLshort s, GLshort t, GLshort r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3SVPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4DPROC) (GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4DVPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4FPROC) (GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4FVPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4IPROC) (GLenum target, GLint s, GLint t, GLint r, GLint q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4IVPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4SPROC) (GLenum target, GLshort s, GLshort t, GLshort r, GLshort q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4SVPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLLOADTRANSPOSEMATRIXFPROC) (const GLfloat *m); -typedef void (APIENTRYP PFNGLLOADTRANSPOSEMATRIXDPROC) (const GLdouble *m); -typedef void (APIENTRYP PFNGLMULTTRANSPOSEMATRIXFPROC) (const GLfloat *m); -typedef void (APIENTRYP PFNGLMULTTRANSPOSEMATRIXDPROC) (const GLdouble *m); -typedef void (APIENTRYP PFNGLSAMPLECOVERAGEPROC) (GLclampf value, GLboolean invert); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXIMAGE3DPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXIMAGE2DPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXIMAGE1DPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXSUBIMAGE3DPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXSUBIMAGE2DPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXSUBIMAGE1DPROC) (GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLGETCOMPRESSEDTEXIMAGEPROC) (GLenum target, GLint level, GLvoid *img); -#endif - -#ifndef GL_VERSION_1_4 -#define GL_VERSION_1_4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendFuncSeparate (GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glFogCoordf (GLfloat); -GLAPI void APIENTRY glFogCoordfv (const GLfloat *); -GLAPI void APIENTRY glFogCoordd (GLdouble); -GLAPI void APIENTRY glFogCoorddv (const GLdouble *); -GLAPI void APIENTRY glFogCoordPointer (GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glMultiDrawArrays (GLenum, GLint *, GLsizei *, GLsizei); -GLAPI void APIENTRY glMultiDrawElements (GLenum, const GLsizei *, GLenum, const GLvoid* *, GLsizei); -GLAPI void APIENTRY glPointParameterf (GLenum, GLfloat); -GLAPI void APIENTRY glPointParameterfv (GLenum, const GLfloat *); -GLAPI void APIENTRY glPointParameteri (GLenum, GLint); -GLAPI void APIENTRY glPointParameteriv (GLenum, const GLint *); -GLAPI void APIENTRY glSecondaryColor3b (GLbyte, GLbyte, GLbyte); -GLAPI void APIENTRY glSecondaryColor3bv (const GLbyte *); -GLAPI void APIENTRY glSecondaryColor3d (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glSecondaryColor3dv (const GLdouble *); -GLAPI void APIENTRY glSecondaryColor3f (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glSecondaryColor3fv (const GLfloat *); -GLAPI void APIENTRY glSecondaryColor3i (GLint, GLint, GLint); -GLAPI void APIENTRY glSecondaryColor3iv (const GLint *); -GLAPI void APIENTRY glSecondaryColor3s (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glSecondaryColor3sv (const GLshort *); -GLAPI void APIENTRY glSecondaryColor3ub (GLubyte, GLubyte, GLubyte); -GLAPI void APIENTRY glSecondaryColor3ubv (const GLubyte *); -GLAPI void APIENTRY glSecondaryColor3ui (GLuint, GLuint, GLuint); -GLAPI void APIENTRY glSecondaryColor3uiv (const GLuint *); -GLAPI void APIENTRY glSecondaryColor3us (GLushort, GLushort, GLushort); -GLAPI void APIENTRY glSecondaryColor3usv (const GLushort *); -GLAPI void APIENTRY glSecondaryColorPointer (GLint, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glWindowPos2d (GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos2dv (const GLdouble *); -GLAPI void APIENTRY glWindowPos2f (GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos2fv (const GLfloat *); -GLAPI void APIENTRY glWindowPos2i (GLint, GLint); -GLAPI void APIENTRY glWindowPos2iv (const GLint *); -GLAPI void APIENTRY glWindowPos2s (GLshort, GLshort); -GLAPI void APIENTRY glWindowPos2sv (const GLshort *); -GLAPI void APIENTRY glWindowPos3d (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos3dv (const GLdouble *); -GLAPI void APIENTRY glWindowPos3f (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos3fv (const GLfloat *); -GLAPI void APIENTRY glWindowPos3i (GLint, GLint, GLint); -GLAPI void APIENTRY glWindowPos3iv (const GLint *); -GLAPI void APIENTRY glWindowPos3s (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glWindowPos3sv (const GLshort *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha); -typedef void (APIENTRYP PFNGLFOGCOORDFPROC) (GLfloat coord); -typedef void (APIENTRYP PFNGLFOGCOORDFVPROC) (const GLfloat *coord); -typedef void (APIENTRYP PFNGLFOGCOORDDPROC) (GLdouble coord); -typedef void (APIENTRYP PFNGLFOGCOORDDVPROC) (const GLdouble *coord); -typedef void (APIENTRYP PFNGLFOGCOORDPOINTERPROC) (GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLMULTIDRAWARRAYSPROC) (GLenum mode, GLint *first, GLsizei *count, GLsizei primcount); -typedef void (APIENTRYP PFNGLMULTIDRAWELEMENTSPROC) (GLenum mode, const GLsizei *count, GLenum type, const GLvoid* *indices, GLsizei primcount); -typedef void (APIENTRYP PFNGLPOINTPARAMETERFPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLPOINTPARAMETERFVPROC) (GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLPOINTPARAMETERIPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLPOINTPARAMETERIVPROC) (GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3BPROC) (GLbyte red, GLbyte green, GLbyte blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3BVPROC) (const GLbyte *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3DPROC) (GLdouble red, GLdouble green, GLdouble blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3DVPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3FPROC) (GLfloat red, GLfloat green, GLfloat blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3FVPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3IPROC) (GLint red, GLint green, GLint blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3IVPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3SPROC) (GLshort red, GLshort green, GLshort blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3SVPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UBPROC) (GLubyte red, GLubyte green, GLubyte blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UBVPROC) (const GLubyte *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UIPROC) (GLuint red, GLuint green, GLuint blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UIVPROC) (const GLuint *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3USPROC) (GLushort red, GLushort green, GLushort blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3USVPROC) (const GLushort *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLORPOINTERPROC) (GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLWINDOWPOS2DPROC) (GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLWINDOWPOS2DVPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2FPROC) (GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLWINDOWPOS2FVPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2IPROC) (GLint x, GLint y); -typedef void (APIENTRYP PFNGLWINDOWPOS2IVPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2SPROC) (GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLWINDOWPOS2SVPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3DPROC) (GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLWINDOWPOS3DVPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3FPROC) (GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLWINDOWPOS3FVPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3IPROC) (GLint x, GLint y, GLint z); -typedef void (APIENTRYP PFNGLWINDOWPOS3IVPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3SPROC) (GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLWINDOWPOS3SVPROC) (const GLshort *v); -#endif - -#ifndef GL_VERSION_1_5 -#define GL_VERSION_1_5 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGenQueries (GLsizei, GLuint *); -GLAPI void APIENTRY glDeleteQueries (GLsizei, const GLuint *); -GLAPI GLboolean APIENTRY glIsQuery (GLuint); -GLAPI void APIENTRY glBeginQuery (GLenum, GLuint); -GLAPI void APIENTRY glEndQuery (GLenum); -GLAPI void APIENTRY glGetQueryiv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetQueryObjectiv (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetQueryObjectuiv (GLuint, GLenum, GLuint *); -GLAPI void APIENTRY glBindBuffer (GLenum, GLuint); -GLAPI void APIENTRY glDeleteBuffers (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenBuffers (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsBuffer (GLuint); -GLAPI void APIENTRY glBufferData (GLenum, GLsizeiptr, const GLvoid *, GLenum); -GLAPI void APIENTRY glBufferSubData (GLenum, GLintptr, GLsizeiptr, const GLvoid *); -GLAPI void APIENTRY glGetBufferSubData (GLenum, GLintptr, GLsizeiptr, GLvoid *); -GLAPI GLvoid* APIENTRY glMapBuffer (GLenum, GLenum); -GLAPI GLboolean APIENTRY glUnmapBuffer (GLenum); -GLAPI void APIENTRY glGetBufferParameteriv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetBufferPointerv (GLenum, GLenum, GLvoid* *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGENQUERIESPROC) (GLsizei n, GLuint *ids); -typedef void (APIENTRYP PFNGLDELETEQUERIESPROC) (GLsizei n, const GLuint *ids); -typedef GLboolean (APIENTRYP PFNGLISQUERYPROC) (GLuint id); -typedef void (APIENTRYP PFNGLBEGINQUERYPROC) (GLenum target, GLuint id); -typedef void (APIENTRYP PFNGLENDQUERYPROC) (GLenum target); -typedef void (APIENTRYP PFNGLGETQUERYIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETQUERYOBJECTIVPROC) (GLuint id, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETQUERYOBJECTUIVPROC) (GLuint id, GLenum pname, GLuint *params); -typedef void (APIENTRYP PFNGLBINDBUFFERPROC) (GLenum target, GLuint buffer); -typedef void (APIENTRYP PFNGLDELETEBUFFERSPROC) (GLsizei n, const GLuint *buffers); -typedef void (APIENTRYP PFNGLGENBUFFERSPROC) (GLsizei n, GLuint *buffers); -typedef GLboolean (APIENTRYP PFNGLISBUFFERPROC) (GLuint buffer); -typedef void (APIENTRYP PFNGLBUFFERDATAPROC) (GLenum target, GLsizeiptr size, const GLvoid *data, GLenum usage); -typedef void (APIENTRYP PFNGLBUFFERSUBDATAPROC) (GLenum target, GLintptr offset, GLsizeiptr size, const GLvoid *data); -typedef void (APIENTRYP PFNGLGETBUFFERSUBDATAPROC) (GLenum target, GLintptr offset, GLsizeiptr size, GLvoid *data); -typedef GLvoid* (APIENTRYP PFNGLMAPBUFFERPROC) (GLenum target, GLenum access); -typedef GLboolean (APIENTRYP PFNGLUNMAPBUFFERPROC) (GLenum target); -typedef void (APIENTRYP PFNGLGETBUFFERPARAMETERIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETBUFFERPOINTERVPROC) (GLenum target, GLenum pname, GLvoid* *params); -#endif - -#ifndef GL_VERSION_2_0 -#define GL_VERSION_2_0 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendEquationSeparate (GLenum, GLenum); -GLAPI void APIENTRY glDrawBuffers (GLsizei, const GLenum *); -GLAPI void APIENTRY glStencilOpSeparate (GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glStencilFuncSeparate (GLenum, GLenum, GLint, GLuint); -GLAPI void APIENTRY glStencilMaskSeparate (GLenum, GLuint); -GLAPI void APIENTRY glAttachShader (GLuint, GLuint); -GLAPI void APIENTRY glBindAttribLocation (GLuint, GLuint, const GLchar *); -GLAPI void APIENTRY glCompileShader (GLuint); -GLAPI GLuint APIENTRY glCreateProgram (void); -GLAPI GLuint APIENTRY glCreateShader (GLenum); -GLAPI void APIENTRY glDeleteProgram (GLuint); -GLAPI void APIENTRY glDeleteShader (GLuint); -GLAPI void APIENTRY glDetachShader (GLuint, GLuint); -GLAPI void APIENTRY glDisableVertexAttribArray (GLuint); -GLAPI void APIENTRY glEnableVertexAttribArray (GLuint); -GLAPI void APIENTRY glGetActiveAttrib (GLuint, GLuint, GLsizei, GLsizei *, GLint *, GLenum *, GLchar *); -GLAPI void APIENTRY glGetActiveUniform (GLuint, GLuint, GLsizei, GLsizei *, GLint *, GLenum *, GLchar *); -GLAPI void APIENTRY glGetAttachedShaders (GLuint, GLsizei, GLsizei *, GLuint *); -GLAPI GLint APIENTRY glGetAttribLocation (GLuint, const GLchar *); -GLAPI void APIENTRY glGetProgramiv (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetProgramInfoLog (GLuint, GLsizei, GLsizei *, GLchar *); -GLAPI void APIENTRY glGetShaderiv (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetShaderInfoLog (GLuint, GLsizei, GLsizei *, GLchar *); -GLAPI void APIENTRY glGetShaderSource (GLuint, GLsizei, GLsizei *, GLchar *); -GLAPI GLint APIENTRY glGetUniformLocation (GLuint, const GLchar *); -GLAPI void APIENTRY glGetUniformfv (GLuint, GLint, GLfloat *); -GLAPI void APIENTRY glGetUniformiv (GLuint, GLint, GLint *); -GLAPI void APIENTRY glGetVertexAttribdv (GLuint, GLenum, GLdouble *); -GLAPI void APIENTRY glGetVertexAttribfv (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetVertexAttribiv (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVertexAttribPointerv (GLuint, GLenum, GLvoid* *); -GLAPI GLboolean APIENTRY glIsProgram (GLuint); -GLAPI GLboolean APIENTRY glIsShader (GLuint); -GLAPI void APIENTRY glLinkProgram (GLuint); -GLAPI void APIENTRY glShaderSource (GLuint, GLsizei, const GLchar* *, const GLint *); -GLAPI void APIENTRY glUseProgram (GLuint); -GLAPI void APIENTRY glUniform1f (GLint, GLfloat); -GLAPI void APIENTRY glUniform2f (GLint, GLfloat, GLfloat); -GLAPI void APIENTRY glUniform3f (GLint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glUniform4f (GLint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glUniform1i (GLint, GLint); -GLAPI void APIENTRY glUniform2i (GLint, GLint, GLint); -GLAPI void APIENTRY glUniform3i (GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glUniform4i (GLint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glUniform1fv (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform2fv (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform3fv (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform4fv (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform1iv (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniform2iv (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniform3iv (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniform4iv (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniformMatrix2fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix3fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix4fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glValidateProgram (GLuint); -GLAPI void APIENTRY glVertexAttrib1d (GLuint, GLdouble); -GLAPI void APIENTRY glVertexAttrib1dv (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib1f (GLuint, GLfloat); -GLAPI void APIENTRY glVertexAttrib1fv (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib1s (GLuint, GLshort); -GLAPI void APIENTRY glVertexAttrib1sv (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib2d (GLuint, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib2dv (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib2f (GLuint, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib2fv (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib2s (GLuint, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib2sv (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib3d (GLuint, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib3dv (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib3f (GLuint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib3fv (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib3s (GLuint, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib3sv (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4Nbv (GLuint, const GLbyte *); -GLAPI void APIENTRY glVertexAttrib4Niv (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttrib4Nsv (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4Nub (GLuint, GLubyte, GLubyte, GLubyte, GLubyte); -GLAPI void APIENTRY glVertexAttrib4Nubv (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttrib4Nuiv (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttrib4Nusv (GLuint, const GLushort *); -GLAPI void APIENTRY glVertexAttrib4bv (GLuint, const GLbyte *); -GLAPI void APIENTRY glVertexAttrib4d (GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib4dv (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib4f (GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib4fv (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib4iv (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttrib4s (GLuint, GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib4sv (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4ubv (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttrib4uiv (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttrib4usv (GLuint, const GLushort *); -GLAPI void APIENTRY glVertexAttribPointer (GLuint, GLint, GLenum, GLboolean, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDEQUATIONSEPARATEPROC) (GLenum modeRGB, GLenum modeAlpha); -typedef void (APIENTRYP PFNGLDRAWBUFFERSPROC) (GLsizei n, const GLenum *bufs); -typedef void (APIENTRYP PFNGLSTENCILOPSEPARATEPROC) (GLenum face, GLenum sfail, GLenum dpfail, GLenum dppass); -typedef void (APIENTRYP PFNGLSTENCILFUNCSEPARATEPROC) (GLenum frontfunc, GLenum backfunc, GLint ref, GLuint mask); -typedef void (APIENTRYP PFNGLSTENCILMASKSEPARATEPROC) (GLenum face, GLuint mask); -typedef void (APIENTRYP PFNGLATTACHSHADERPROC) (GLuint program, GLuint shader); -typedef void (APIENTRYP PFNGLBINDATTRIBLOCATIONPROC) (GLuint program, GLuint index, const GLchar *name); -typedef void (APIENTRYP PFNGLCOMPILESHADERPROC) (GLuint shader); -typedef GLuint (APIENTRYP PFNGLCREATEPROGRAMPROC) (void); -typedef GLuint (APIENTRYP PFNGLCREATESHADERPROC) (GLenum type); -typedef void (APIENTRYP PFNGLDELETEPROGRAMPROC) (GLuint program); -typedef void (APIENTRYP PFNGLDELETESHADERPROC) (GLuint shader); -typedef void (APIENTRYP PFNGLDETACHSHADERPROC) (GLuint program, GLuint shader); -typedef void (APIENTRYP PFNGLDISABLEVERTEXATTRIBARRAYPROC) (GLuint index); -typedef void (APIENTRYP PFNGLENABLEVERTEXATTRIBARRAYPROC) (GLuint index); -typedef void (APIENTRYP PFNGLGETACTIVEATTRIBPROC) (GLuint program, GLuint index, GLsizei bufSize, GLsizei *length, GLint *size, GLenum *type, GLchar *name); -typedef void (APIENTRYP PFNGLGETACTIVEUNIFORMPROC) (GLuint program, GLuint index, GLsizei bufSize, GLsizei *length, GLint *size, GLenum *type, GLchar *name); -typedef void (APIENTRYP PFNGLGETATTACHEDSHADERSPROC) (GLuint program, GLsizei maxCount, GLsizei *count, GLuint *obj); -typedef GLint (APIENTRYP PFNGLGETATTRIBLOCATIONPROC) (GLuint program, const GLchar *name); -typedef void (APIENTRYP PFNGLGETPROGRAMIVPROC) (GLuint program, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMINFOLOGPROC) (GLuint program, GLsizei bufSize, GLsizei *length, GLchar *infoLog); -typedef void (APIENTRYP PFNGLGETSHADERIVPROC) (GLuint shader, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETSHADERINFOLOGPROC) (GLuint shader, GLsizei bufSize, GLsizei *length, GLchar *infoLog); -typedef void (APIENTRYP PFNGLGETSHADERSOURCEPROC) (GLuint shader, GLsizei bufSize, GLsizei *length, GLchar *source); -typedef GLint (APIENTRYP PFNGLGETUNIFORMLOCATIONPROC) (GLuint program, const GLchar *name); -typedef void (APIENTRYP PFNGLGETUNIFORMFVPROC) (GLuint program, GLint location, GLfloat *params); -typedef void (APIENTRYP PFNGLGETUNIFORMIVPROC) (GLuint program, GLint location, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBDVPROC) (GLuint index, GLenum pname, GLdouble *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBFVPROC) (GLuint index, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIVPROC) (GLuint index, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBPOINTERVPROC) (GLuint index, GLenum pname, GLvoid* *pointer); -typedef GLboolean (APIENTRYP PFNGLISPROGRAMPROC) (GLuint program); -typedef GLboolean (APIENTRYP PFNGLISSHADERPROC) (GLuint shader); -typedef void (APIENTRYP PFNGLLINKPROGRAMPROC) (GLuint program); -typedef void (APIENTRYP PFNGLSHADERSOURCEPROC) (GLuint shader, GLsizei count, const GLchar* *string, const GLint *length); -typedef void (APIENTRYP PFNGLUSEPROGRAMPROC) (GLuint program); -typedef void (APIENTRYP PFNGLUNIFORM1FPROC) (GLint location, GLfloat v0); -typedef void (APIENTRYP PFNGLUNIFORM2FPROC) (GLint location, GLfloat v0, GLfloat v1); -typedef void (APIENTRYP PFNGLUNIFORM3FPROC) (GLint location, GLfloat v0, GLfloat v1, GLfloat v2); -typedef void (APIENTRYP PFNGLUNIFORM4FPROC) (GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3); -typedef void (APIENTRYP PFNGLUNIFORM1IPROC) (GLint location, GLint v0); -typedef void (APIENTRYP PFNGLUNIFORM2IPROC) (GLint location, GLint v0, GLint v1); -typedef void (APIENTRYP PFNGLUNIFORM3IPROC) (GLint location, GLint v0, GLint v1, GLint v2); -typedef void (APIENTRYP PFNGLUNIFORM4IPROC) (GLint location, GLint v0, GLint v1, GLint v2, GLint v3); -typedef void (APIENTRYP PFNGLUNIFORM1FVPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM2FVPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM3FVPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM4FVPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM1IVPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORM2IVPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORM3IVPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORM4IVPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX2FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX3FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX4FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLVALIDATEPROGRAMPROC) (GLuint program); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1DPROC) (GLuint index, GLdouble x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1DVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1FPROC) (GLuint index, GLfloat x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1FVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1SPROC) (GLuint index, GLshort x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1SVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2DPROC) (GLuint index, GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2DVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2FPROC) (GLuint index, GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2FVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2SPROC) (GLuint index, GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2SVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3DPROC) (GLuint index, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3DVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3FPROC) (GLuint index, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3FVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3SPROC) (GLuint index, GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3SVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NBVPROC) (GLuint index, const GLbyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NIVPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NSVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUBPROC) (GLuint index, GLubyte x, GLubyte y, GLubyte z, GLubyte w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUBVPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUIVPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUSVPROC) (GLuint index, const GLushort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4BVPROC) (GLuint index, const GLbyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4DPROC) (GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4DVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4FPROC) (GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4FVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4IVPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4SPROC) (GLuint index, GLshort x, GLshort y, GLshort z, GLshort w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4SVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4UBVPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4UIVPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4USVPROC) (GLuint index, const GLushort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBPOINTERPROC) (GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, const GLvoid *pointer); -#endif - -#ifndef GL_VERSION_2_1 -#define GL_VERSION_2_1 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glUniformMatrix2x3fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix3x2fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix2x4fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix4x2fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix3x4fv (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix4x3fv (GLint, GLsizei, GLboolean, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLUNIFORMMATRIX2X3FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX3X2FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX2X4FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX4X2FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX3X4FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX4X3FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -#endif - -#ifndef GL_VERSION_3_0 -#define GL_VERSION_3_0 1 -/* OpenGL 3.0 also reuses entry points from these extensions: */ -/* ARB_framebuffer_object */ -/* ARB_map_buffer_range */ -/* ARB_vertex_array_object */ -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColorMaski (GLuint, GLboolean, GLboolean, GLboolean, GLboolean); -GLAPI void APIENTRY glGetBooleani_v (GLenum, GLuint, GLboolean *); -GLAPI void APIENTRY glGetIntegeri_v (GLenum, GLuint, GLint *); -GLAPI void APIENTRY glEnablei (GLenum, GLuint); -GLAPI void APIENTRY glDisablei (GLenum, GLuint); -GLAPI GLboolean APIENTRY glIsEnabledi (GLenum, GLuint); -GLAPI void APIENTRY glBeginTransformFeedback (GLenum); -GLAPI void APIENTRY glEndTransformFeedback (void); -GLAPI void APIENTRY glBindBufferRange (GLenum, GLuint, GLuint, GLintptr, GLsizeiptr); -GLAPI void APIENTRY glBindBufferBase (GLenum, GLuint, GLuint); -GLAPI void APIENTRY glTransformFeedbackVaryings (GLuint, GLsizei, const GLint *, GLenum); -GLAPI void APIENTRY glGetTransformFeedbackVarying (GLuint, GLuint, GLint *); -GLAPI void APIENTRY glClampColor (GLenum, GLenum); -GLAPI void APIENTRY glBeginConditionalRender (GLuint, GLenum); -GLAPI void APIENTRY glEndConditionalRender (void); -GLAPI void APIENTRY glVertexAttribI1i (GLuint, GLint); -GLAPI void APIENTRY glVertexAttribI2i (GLuint, GLint, GLint); -GLAPI void APIENTRY glVertexAttribI3i (GLuint, GLint, GLint, GLint); -GLAPI void APIENTRY glVertexAttribI4i (GLuint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glVertexAttribI1ui (GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI2ui (GLuint, GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI3ui (GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI4ui (GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI1iv (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI2iv (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI3iv (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI4iv (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI1uiv (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI2uiv (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI3uiv (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI4uiv (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI4bv (GLuint, const GLbyte *); -GLAPI void APIENTRY glVertexAttribI4sv (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttribI4ubv (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttribI4usv (GLuint, const GLushort *); -GLAPI void APIENTRY glVertexAttribIPointer (GLuint, GLint, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glGetVertexAttribIiv (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVertexAttribIuiv (GLuint, GLenum, GLuint *); -GLAPI void APIENTRY glGetUniformuiv (GLuint, GLint, GLuint *); -GLAPI void APIENTRY glBindFragDataLocation (GLuint, GLuint, const GLchar *); -GLAPI GLint APIENTRY glGetFragDataLocation (GLuint, const GLchar *); -GLAPI void APIENTRY glUniform1ui (GLint, GLuint); -GLAPI void APIENTRY glUniform2ui (GLint, GLuint, GLuint); -GLAPI void APIENTRY glUniform3ui (GLint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glUniform4ui (GLint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glUniform1uiv (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glUniform2uiv (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glUniform3uiv (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glUniform4uiv (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glTexParameterIiv (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glTexParameterIuiv (GLenum, GLenum, const GLuint *); -GLAPI void APIENTRY glGetTexParameterIiv (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetTexParameterIuiv (GLenum, GLenum, GLuint *); -GLAPI void APIENTRY glClearBufferiv (GLenum, GLint, const GLint *); -GLAPI void APIENTRY glClearBufferuiv (GLenum, GLint, const GLuint *); -GLAPI void APIENTRY glClearBufferfv (GLenum, GLint, const GLfloat *); -GLAPI void APIENTRY glClearBufferfi (GLenum, GLint, GLfloat, GLint); -GLAPI const GLubyte * APIENTRY glGetStringi (GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLORMASKIPROC) (GLuint index, GLboolean r, GLboolean g, GLboolean b, GLboolean a); -typedef void (APIENTRYP PFNGLGETBOOLEANI_VPROC) (GLenum target, GLuint index, GLboolean *data); -typedef void (APIENTRYP PFNGLGETINTEGERI_VPROC) (GLenum target, GLuint index, GLint *data); -typedef void (APIENTRYP PFNGLENABLEIPROC) (GLenum target, GLuint index); -typedef void (APIENTRYP PFNGLDISABLEIPROC) (GLenum target, GLuint index); -typedef GLboolean (APIENTRYP PFNGLISENABLEDIPROC) (GLenum target, GLuint index); -typedef void (APIENTRYP PFNGLBEGINTRANSFORMFEEDBACKPROC) (GLenum primitiveMode); -typedef void (APIENTRYP PFNGLENDTRANSFORMFEEDBACKPROC) (void); -typedef void (APIENTRYP PFNGLBINDBUFFERRANGEPROC) (GLenum target, GLuint index, GLuint buffer, GLintptr offset, GLsizeiptr size); -typedef void (APIENTRYP PFNGLBINDBUFFERBASEPROC) (GLenum target, GLuint index, GLuint buffer); -typedef void (APIENTRYP PFNGLTRANSFORMFEEDBACKVARYINGSPROC) (GLuint program, GLsizei count, const GLint *locations, GLenum bufferMode); -typedef void (APIENTRYP PFNGLGETTRANSFORMFEEDBACKVARYINGPROC) (GLuint program, GLuint index, GLint *location); -typedef void (APIENTRYP PFNGLCLAMPCOLORPROC) (GLenum target, GLenum clamp); -typedef void (APIENTRYP PFNGLBEGINCONDITIONALRENDERPROC) (GLuint id, GLenum mode); -typedef void (APIENTRYP PFNGLENDCONDITIONALRENDERPROC) (void); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1IPROC) (GLuint index, GLint x); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2IPROC) (GLuint index, GLint x, GLint y); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3IPROC) (GLuint index, GLint x, GLint y, GLint z); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4IPROC) (GLuint index, GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1UIPROC) (GLuint index, GLuint x); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2UIPROC) (GLuint index, GLuint x, GLuint y); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3UIPROC) (GLuint index, GLuint x, GLuint y, GLuint z); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4UIPROC) (GLuint index, GLuint x, GLuint y, GLuint z, GLuint w); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1IVPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2IVPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3IVPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4IVPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1UIVPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2UIVPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3UIVPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4UIVPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4BVPROC) (GLuint index, const GLbyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4SVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4UBVPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4USVPROC) (GLuint index, const GLushort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBIPOINTERPROC) (GLuint index, GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIIVPROC) (GLuint index, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIUIVPROC) (GLuint index, GLenum pname, GLuint *params); -typedef void (APIENTRYP PFNGLGETUNIFORMUIVPROC) (GLuint program, GLint location, GLuint *params); -typedef void (APIENTRYP PFNGLBINDFRAGDATALOCATIONPROC) (GLuint program, GLuint color, const GLchar *name); -typedef GLint (APIENTRYP PFNGLGETFRAGDATALOCATIONPROC) (GLuint program, const GLchar *name); -typedef void (APIENTRYP PFNGLUNIFORM1UIPROC) (GLint location, GLuint v0); -typedef void (APIENTRYP PFNGLUNIFORM2UIPROC) (GLint location, GLuint v0, GLuint v1); -typedef void (APIENTRYP PFNGLUNIFORM3UIPROC) (GLint location, GLuint v0, GLuint v1, GLuint v2); -typedef void (APIENTRYP PFNGLUNIFORM4UIPROC) (GLint location, GLuint v0, GLuint v1, GLuint v2, GLuint v3); -typedef void (APIENTRYP PFNGLUNIFORM1UIVPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLUNIFORM2UIVPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLUNIFORM3UIVPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLUNIFORM4UIVPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLTEXPARAMETERIIVPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLTEXPARAMETERIUIVPROC) (GLenum target, GLenum pname, const GLuint *params); -typedef void (APIENTRYP PFNGLGETTEXPARAMETERIIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETTEXPARAMETERIUIVPROC) (GLenum target, GLenum pname, GLuint *params); -typedef void (APIENTRYP PFNGLCLEARBUFFERIVPROC) (GLenum buffer, GLint drawbuffer, const GLint *value); -typedef void (APIENTRYP PFNGLCLEARBUFFERUIVPROC) (GLenum buffer, GLint drawbuffer, const GLuint *value); -typedef void (APIENTRYP PFNGLCLEARBUFFERFVPROC) (GLenum buffer, GLint drawbuffer, const GLfloat *value); -typedef void (APIENTRYP PFNGLCLEARBUFFERFIPROC) (GLenum buffer, GLint drawbuffer, GLfloat depth, GLint stencil); -typedef const GLubyte * (APIENTRYP PFNGLGETSTRINGIPROC) (GLenum name, GLuint index); -#endif - -#ifndef GL_ARB_multitexture -#define GL_ARB_multitexture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glActiveTextureARB (GLenum); -GLAPI void APIENTRY glClientActiveTextureARB (GLenum); -GLAPI void APIENTRY glMultiTexCoord1dARB (GLenum, GLdouble); -GLAPI void APIENTRY glMultiTexCoord1dvARB (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord1fARB (GLenum, GLfloat); -GLAPI void APIENTRY glMultiTexCoord1fvARB (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord1iARB (GLenum, GLint); -GLAPI void APIENTRY glMultiTexCoord1ivARB (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord1sARB (GLenum, GLshort); -GLAPI void APIENTRY glMultiTexCoord1svARB (GLenum, const GLshort *); -GLAPI void APIENTRY glMultiTexCoord2dARB (GLenum, GLdouble, GLdouble); -GLAPI void APIENTRY glMultiTexCoord2dvARB (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord2fARB (GLenum, GLfloat, GLfloat); -GLAPI void APIENTRY glMultiTexCoord2fvARB (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord2iARB (GLenum, GLint, GLint); -GLAPI void APIENTRY glMultiTexCoord2ivARB (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord2sARB (GLenum, GLshort, GLshort); -GLAPI void APIENTRY glMultiTexCoord2svARB (GLenum, const GLshort *); -GLAPI void APIENTRY glMultiTexCoord3dARB (GLenum, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMultiTexCoord3dvARB (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord3fARB (GLenum, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMultiTexCoord3fvARB (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord3iARB (GLenum, GLint, GLint, GLint); -GLAPI void APIENTRY glMultiTexCoord3ivARB (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord3sARB (GLenum, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glMultiTexCoord3svARB (GLenum, const GLshort *); -GLAPI void APIENTRY glMultiTexCoord4dARB (GLenum, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMultiTexCoord4dvARB (GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexCoord4fARB (GLenum, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMultiTexCoord4fvARB (GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexCoord4iARB (GLenum, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glMultiTexCoord4ivARB (GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexCoord4sARB (GLenum, GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glMultiTexCoord4svARB (GLenum, const GLshort *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLACTIVETEXTUREARBPROC) (GLenum texture); -typedef void (APIENTRYP PFNGLCLIENTACTIVETEXTUREARBPROC) (GLenum texture); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1DARBPROC) (GLenum target, GLdouble s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1DVARBPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1FARBPROC) (GLenum target, GLfloat s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1FVARBPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1IARBPROC) (GLenum target, GLint s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1IVARBPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1SARBPROC) (GLenum target, GLshort s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1SVARBPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2DARBPROC) (GLenum target, GLdouble s, GLdouble t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2DVARBPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2FARBPROC) (GLenum target, GLfloat s, GLfloat t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2FVARBPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2IARBPROC) (GLenum target, GLint s, GLint t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2IVARBPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2SARBPROC) (GLenum target, GLshort s, GLshort t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2SVARBPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3DARBPROC) (GLenum target, GLdouble s, GLdouble t, GLdouble r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3DVARBPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3FARBPROC) (GLenum target, GLfloat s, GLfloat t, GLfloat r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3FVARBPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3IARBPROC) (GLenum target, GLint s, GLint t, GLint r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3IVARBPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3SARBPROC) (GLenum target, GLshort s, GLshort t, GLshort r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3SVARBPROC) (GLenum target, const GLshort *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4DARBPROC) (GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4DVARBPROC) (GLenum target, const GLdouble *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4FARBPROC) (GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4FVARBPROC) (GLenum target, const GLfloat *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4IARBPROC) (GLenum target, GLint s, GLint t, GLint r, GLint q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4IVARBPROC) (GLenum target, const GLint *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4SARBPROC) (GLenum target, GLshort s, GLshort t, GLshort r, GLshort q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4SVARBPROC) (GLenum target, const GLshort *v); -#endif - -#ifndef GL_ARB_transpose_matrix -#define GL_ARB_transpose_matrix 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glLoadTransposeMatrixfARB (const GLfloat *); -GLAPI void APIENTRY glLoadTransposeMatrixdARB (const GLdouble *); -GLAPI void APIENTRY glMultTransposeMatrixfARB (const GLfloat *); -GLAPI void APIENTRY glMultTransposeMatrixdARB (const GLdouble *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLLOADTRANSPOSEMATRIXFARBPROC) (const GLfloat *m); -typedef void (APIENTRYP PFNGLLOADTRANSPOSEMATRIXDARBPROC) (const GLdouble *m); -typedef void (APIENTRYP PFNGLMULTTRANSPOSEMATRIXFARBPROC) (const GLfloat *m); -typedef void (APIENTRYP PFNGLMULTTRANSPOSEMATRIXDARBPROC) (const GLdouble *m); -#endif - -#ifndef GL_ARB_multisample -#define GL_ARB_multisample 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glSampleCoverageARB (GLclampf, GLboolean); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSAMPLECOVERAGEARBPROC) (GLclampf value, GLboolean invert); -#endif - -#ifndef GL_ARB_texture_env_add -#define GL_ARB_texture_env_add 1 -#endif - -#ifndef GL_ARB_texture_cube_map -#define GL_ARB_texture_cube_map 1 -#endif - -#ifndef GL_ARB_texture_compression -#define GL_ARB_texture_compression 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glCompressedTexImage3DARB (GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexImage2DARB (GLenum, GLint, GLenum, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexImage1DARB (GLenum, GLint, GLenum, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexSubImage3DARB (GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexSubImage2DARB (GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTexSubImage1DARB (GLenum, GLint, GLint, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glGetCompressedTexImageARB (GLenum, GLint, GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXIMAGE3DARBPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXIMAGE2DARBPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXIMAGE1DARBPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXSUBIMAGE3DARBPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXSUBIMAGE2DARBPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXSUBIMAGE1DARBPROC) (GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, const GLvoid *data); -typedef void (APIENTRYP PFNGLGETCOMPRESSEDTEXIMAGEARBPROC) (GLenum target, GLint level, GLvoid *img); -#endif - -#ifndef GL_ARB_texture_border_clamp -#define GL_ARB_texture_border_clamp 1 -#endif - -#ifndef GL_ARB_point_parameters -#define GL_ARB_point_parameters 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPointParameterfARB (GLenum, GLfloat); -GLAPI void APIENTRY glPointParameterfvARB (GLenum, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPOINTPARAMETERFARBPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLPOINTPARAMETERFVARBPROC) (GLenum pname, const GLfloat *params); -#endif - -#ifndef GL_ARB_vertex_blend -#define GL_ARB_vertex_blend 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glWeightbvARB (GLint, const GLbyte *); -GLAPI void APIENTRY glWeightsvARB (GLint, const GLshort *); -GLAPI void APIENTRY glWeightivARB (GLint, const GLint *); -GLAPI void APIENTRY glWeightfvARB (GLint, const GLfloat *); -GLAPI void APIENTRY glWeightdvARB (GLint, const GLdouble *); -GLAPI void APIENTRY glWeightubvARB (GLint, const GLubyte *); -GLAPI void APIENTRY glWeightusvARB (GLint, const GLushort *); -GLAPI void APIENTRY glWeightuivARB (GLint, const GLuint *); -GLAPI void APIENTRY glWeightPointerARB (GLint, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glVertexBlendARB (GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLWEIGHTBVARBPROC) (GLint size, const GLbyte *weights); -typedef void (APIENTRYP PFNGLWEIGHTSVARBPROC) (GLint size, const GLshort *weights); -typedef void (APIENTRYP PFNGLWEIGHTIVARBPROC) (GLint size, const GLint *weights); -typedef void (APIENTRYP PFNGLWEIGHTFVARBPROC) (GLint size, const GLfloat *weights); -typedef void (APIENTRYP PFNGLWEIGHTDVARBPROC) (GLint size, const GLdouble *weights); -typedef void (APIENTRYP PFNGLWEIGHTUBVARBPROC) (GLint size, const GLubyte *weights); -typedef void (APIENTRYP PFNGLWEIGHTUSVARBPROC) (GLint size, const GLushort *weights); -typedef void (APIENTRYP PFNGLWEIGHTUIVARBPROC) (GLint size, const GLuint *weights); -typedef void (APIENTRYP PFNGLWEIGHTPOINTERARBPROC) (GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLVERTEXBLENDARBPROC) (GLint count); -#endif - -#ifndef GL_ARB_matrix_palette -#define GL_ARB_matrix_palette 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glCurrentPaletteMatrixARB (GLint); -GLAPI void APIENTRY glMatrixIndexubvARB (GLint, const GLubyte *); -GLAPI void APIENTRY glMatrixIndexusvARB (GLint, const GLushort *); -GLAPI void APIENTRY glMatrixIndexuivARB (GLint, const GLuint *); -GLAPI void APIENTRY glMatrixIndexPointerARB (GLint, GLenum, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCURRENTPALETTEMATRIXARBPROC) (GLint index); -typedef void (APIENTRYP PFNGLMATRIXINDEXUBVARBPROC) (GLint size, const GLubyte *indices); -typedef void (APIENTRYP PFNGLMATRIXINDEXUSVARBPROC) (GLint size, const GLushort *indices); -typedef void (APIENTRYP PFNGLMATRIXINDEXUIVARBPROC) (GLint size, const GLuint *indices); -typedef void (APIENTRYP PFNGLMATRIXINDEXPOINTERARBPROC) (GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -#endif - -#ifndef GL_ARB_texture_env_combine -#define GL_ARB_texture_env_combine 1 -#endif - -#ifndef GL_ARB_texture_env_crossbar -#define GL_ARB_texture_env_crossbar 1 -#endif - -#ifndef GL_ARB_texture_env_dot3 -#define GL_ARB_texture_env_dot3 1 -#endif - -#ifndef GL_ARB_texture_mirrored_repeat -#define GL_ARB_texture_mirrored_repeat 1 -#endif - -#ifndef GL_ARB_depth_texture -#define GL_ARB_depth_texture 1 -#endif - -#ifndef GL_ARB_shadow -#define GL_ARB_shadow 1 -#endif - -#ifndef GL_ARB_shadow_ambient -#define GL_ARB_shadow_ambient 1 -#endif - -#ifndef GL_ARB_window_pos -#define GL_ARB_window_pos 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glWindowPos2dARB (GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos2dvARB (const GLdouble *); -GLAPI void APIENTRY glWindowPos2fARB (GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos2fvARB (const GLfloat *); -GLAPI void APIENTRY glWindowPos2iARB (GLint, GLint); -GLAPI void APIENTRY glWindowPos2ivARB (const GLint *); -GLAPI void APIENTRY glWindowPos2sARB (GLshort, GLshort); -GLAPI void APIENTRY glWindowPos2svARB (const GLshort *); -GLAPI void APIENTRY glWindowPos3dARB (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos3dvARB (const GLdouble *); -GLAPI void APIENTRY glWindowPos3fARB (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos3fvARB (const GLfloat *); -GLAPI void APIENTRY glWindowPos3iARB (GLint, GLint, GLint); -GLAPI void APIENTRY glWindowPos3ivARB (const GLint *); -GLAPI void APIENTRY glWindowPos3sARB (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glWindowPos3svARB (const GLshort *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLWINDOWPOS2DARBPROC) (GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLWINDOWPOS2DVARBPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2FARBPROC) (GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLWINDOWPOS2FVARBPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2IARBPROC) (GLint x, GLint y); -typedef void (APIENTRYP PFNGLWINDOWPOS2IVARBPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2SARBPROC) (GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLWINDOWPOS2SVARBPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3DARBPROC) (GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLWINDOWPOS3DVARBPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3FARBPROC) (GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLWINDOWPOS3FVARBPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3IARBPROC) (GLint x, GLint y, GLint z); -typedef void (APIENTRYP PFNGLWINDOWPOS3IVARBPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3SARBPROC) (GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLWINDOWPOS3SVARBPROC) (const GLshort *v); -#endif - -#ifndef GL_ARB_vertex_program -#define GL_ARB_vertex_program 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexAttrib1dARB (GLuint, GLdouble); -GLAPI void APIENTRY glVertexAttrib1dvARB (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib1fARB (GLuint, GLfloat); -GLAPI void APIENTRY glVertexAttrib1fvARB (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib1sARB (GLuint, GLshort); -GLAPI void APIENTRY glVertexAttrib1svARB (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib2dARB (GLuint, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib2dvARB (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib2fARB (GLuint, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib2fvARB (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib2sARB (GLuint, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib2svARB (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib3dARB (GLuint, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib3dvARB (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib3fARB (GLuint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib3fvARB (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib3sARB (GLuint, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib3svARB (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4NbvARB (GLuint, const GLbyte *); -GLAPI void APIENTRY glVertexAttrib4NivARB (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttrib4NsvARB (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4NubARB (GLuint, GLubyte, GLubyte, GLubyte, GLubyte); -GLAPI void APIENTRY glVertexAttrib4NubvARB (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttrib4NuivARB (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttrib4NusvARB (GLuint, const GLushort *); -GLAPI void APIENTRY glVertexAttrib4bvARB (GLuint, const GLbyte *); -GLAPI void APIENTRY glVertexAttrib4dARB (GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib4dvARB (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib4fARB (GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib4fvARB (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib4ivARB (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttrib4sARB (GLuint, GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib4svARB (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4ubvARB (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttrib4uivARB (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttrib4usvARB (GLuint, const GLushort *); -GLAPI void APIENTRY glVertexAttribPointerARB (GLuint, GLint, GLenum, GLboolean, GLsizei, const GLvoid *); -GLAPI void APIENTRY glEnableVertexAttribArrayARB (GLuint); -GLAPI void APIENTRY glDisableVertexAttribArrayARB (GLuint); -GLAPI void APIENTRY glProgramStringARB (GLenum, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glBindProgramARB (GLenum, GLuint); -GLAPI void APIENTRY glDeleteProgramsARB (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenProgramsARB (GLsizei, GLuint *); -GLAPI void APIENTRY glProgramEnvParameter4dARB (GLenum, GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glProgramEnvParameter4dvARB (GLenum, GLuint, const GLdouble *); -GLAPI void APIENTRY glProgramEnvParameter4fARB (GLenum, GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramEnvParameter4fvARB (GLenum, GLuint, const GLfloat *); -GLAPI void APIENTRY glProgramLocalParameter4dARB (GLenum, GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glProgramLocalParameter4dvARB (GLenum, GLuint, const GLdouble *); -GLAPI void APIENTRY glProgramLocalParameter4fARB (GLenum, GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramLocalParameter4fvARB (GLenum, GLuint, const GLfloat *); -GLAPI void APIENTRY glGetProgramEnvParameterdvARB (GLenum, GLuint, GLdouble *); -GLAPI void APIENTRY glGetProgramEnvParameterfvARB (GLenum, GLuint, GLfloat *); -GLAPI void APIENTRY glGetProgramLocalParameterdvARB (GLenum, GLuint, GLdouble *); -GLAPI void APIENTRY glGetProgramLocalParameterfvARB (GLenum, GLuint, GLfloat *); -GLAPI void APIENTRY glGetProgramivARB (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetProgramStringARB (GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetVertexAttribdvARB (GLuint, GLenum, GLdouble *); -GLAPI void APIENTRY glGetVertexAttribfvARB (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetVertexAttribivARB (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVertexAttribPointervARB (GLuint, GLenum, GLvoid* *); -GLAPI GLboolean APIENTRY glIsProgramARB (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXATTRIB1DARBPROC) (GLuint index, GLdouble x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1DVARBPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1FARBPROC) (GLuint index, GLfloat x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1FVARBPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1SARBPROC) (GLuint index, GLshort x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1SVARBPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2DARBPROC) (GLuint index, GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2DVARBPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2FARBPROC) (GLuint index, GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2FVARBPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2SARBPROC) (GLuint index, GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2SVARBPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3DARBPROC) (GLuint index, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3DVARBPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3FARBPROC) (GLuint index, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3FVARBPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3SARBPROC) (GLuint index, GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3SVARBPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NBVARBPROC) (GLuint index, const GLbyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NIVARBPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NSVARBPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUBARBPROC) (GLuint index, GLubyte x, GLubyte y, GLubyte z, GLubyte w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUBVARBPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUIVARBPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4NUSVARBPROC) (GLuint index, const GLushort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4BVARBPROC) (GLuint index, const GLbyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4DARBPROC) (GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4DVARBPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4FARBPROC) (GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4FVARBPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4IVARBPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4SARBPROC) (GLuint index, GLshort x, GLshort y, GLshort z, GLshort w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4SVARBPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4UBVARBPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4UIVARBPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4USVARBPROC) (GLuint index, const GLushort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBPOINTERARBPROC) (GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLENABLEVERTEXATTRIBARRAYARBPROC) (GLuint index); -typedef void (APIENTRYP PFNGLDISABLEVERTEXATTRIBARRAYARBPROC) (GLuint index); -typedef void (APIENTRYP PFNGLPROGRAMSTRINGARBPROC) (GLenum target, GLenum format, GLsizei len, const GLvoid *string); -typedef void (APIENTRYP PFNGLBINDPROGRAMARBPROC) (GLenum target, GLuint program); -typedef void (APIENTRYP PFNGLDELETEPROGRAMSARBPROC) (GLsizei n, const GLuint *programs); -typedef void (APIENTRYP PFNGLGENPROGRAMSARBPROC) (GLsizei n, GLuint *programs); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETER4DARBPROC) (GLenum target, GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETER4DVARBPROC) (GLenum target, GLuint index, const GLdouble *params); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETER4FARBPROC) (GLenum target, GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETER4FVARBPROC) (GLenum target, GLuint index, const GLfloat *params); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETER4DARBPROC) (GLenum target, GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETER4DVARBPROC) (GLenum target, GLuint index, const GLdouble *params); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETER4FARBPROC) (GLenum target, GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETER4FVARBPROC) (GLenum target, GLuint index, const GLfloat *params); -typedef void (APIENTRYP PFNGLGETPROGRAMENVPARAMETERDVARBPROC) (GLenum target, GLuint index, GLdouble *params); -typedef void (APIENTRYP PFNGLGETPROGRAMENVPARAMETERFVARBPROC) (GLenum target, GLuint index, GLfloat *params); -typedef void (APIENTRYP PFNGLGETPROGRAMLOCALPARAMETERDVARBPROC) (GLenum target, GLuint index, GLdouble *params); -typedef void (APIENTRYP PFNGLGETPROGRAMLOCALPARAMETERFVARBPROC) (GLenum target, GLuint index, GLfloat *params); -typedef void (APIENTRYP PFNGLGETPROGRAMIVARBPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMSTRINGARBPROC) (GLenum target, GLenum pname, GLvoid *string); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBDVARBPROC) (GLuint index, GLenum pname, GLdouble *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBFVARBPROC) (GLuint index, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIVARBPROC) (GLuint index, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBPOINTERVARBPROC) (GLuint index, GLenum pname, GLvoid* *pointer); -typedef GLboolean (APIENTRYP PFNGLISPROGRAMARBPROC) (GLuint program); -#endif - -#ifndef GL_ARB_fragment_program -#define GL_ARB_fragment_program 1 -/* All ARB_fragment_program entry points are shared with ARB_vertex_program. */ -#endif - -#ifndef GL_ARB_vertex_buffer_object -#define GL_ARB_vertex_buffer_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBindBufferARB (GLenum, GLuint); -GLAPI void APIENTRY glDeleteBuffersARB (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenBuffersARB (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsBufferARB (GLuint); -GLAPI void APIENTRY glBufferDataARB (GLenum, GLsizeiptrARB, const GLvoid *, GLenum); -GLAPI void APIENTRY glBufferSubDataARB (GLenum, GLintptrARB, GLsizeiptrARB, const GLvoid *); -GLAPI void APIENTRY glGetBufferSubDataARB (GLenum, GLintptrARB, GLsizeiptrARB, GLvoid *); -GLAPI GLvoid* APIENTRY glMapBufferARB (GLenum, GLenum); -GLAPI GLboolean APIENTRY glUnmapBufferARB (GLenum); -GLAPI void APIENTRY glGetBufferParameterivARB (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetBufferPointervARB (GLenum, GLenum, GLvoid* *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBINDBUFFERARBPROC) (GLenum target, GLuint buffer); -typedef void (APIENTRYP PFNGLDELETEBUFFERSARBPROC) (GLsizei n, const GLuint *buffers); -typedef void (APIENTRYP PFNGLGENBUFFERSARBPROC) (GLsizei n, GLuint *buffers); -typedef GLboolean (APIENTRYP PFNGLISBUFFERARBPROC) (GLuint buffer); -typedef void (APIENTRYP PFNGLBUFFERDATAARBPROC) (GLenum target, GLsizeiptrARB size, const GLvoid *data, GLenum usage); -typedef void (APIENTRYP PFNGLBUFFERSUBDATAARBPROC) (GLenum target, GLintptrARB offset, GLsizeiptrARB size, const GLvoid *data); -typedef void (APIENTRYP PFNGLGETBUFFERSUBDATAARBPROC) (GLenum target, GLintptrARB offset, GLsizeiptrARB size, GLvoid *data); -typedef GLvoid* (APIENTRYP PFNGLMAPBUFFERARBPROC) (GLenum target, GLenum access); -typedef GLboolean (APIENTRYP PFNGLUNMAPBUFFERARBPROC) (GLenum target); -typedef void (APIENTRYP PFNGLGETBUFFERPARAMETERIVARBPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETBUFFERPOINTERVARBPROC) (GLenum target, GLenum pname, GLvoid* *params); -#endif - -#ifndef GL_ARB_occlusion_query -#define GL_ARB_occlusion_query 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGenQueriesARB (GLsizei, GLuint *); -GLAPI void APIENTRY glDeleteQueriesARB (GLsizei, const GLuint *); -GLAPI GLboolean APIENTRY glIsQueryARB (GLuint); -GLAPI void APIENTRY glBeginQueryARB (GLenum, GLuint); -GLAPI void APIENTRY glEndQueryARB (GLenum); -GLAPI void APIENTRY glGetQueryivARB (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetQueryObjectivARB (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetQueryObjectuivARB (GLuint, GLenum, GLuint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGENQUERIESARBPROC) (GLsizei n, GLuint *ids); -typedef void (APIENTRYP PFNGLDELETEQUERIESARBPROC) (GLsizei n, const GLuint *ids); -typedef GLboolean (APIENTRYP PFNGLISQUERYARBPROC) (GLuint id); -typedef void (APIENTRYP PFNGLBEGINQUERYARBPROC) (GLenum target, GLuint id); -typedef void (APIENTRYP PFNGLENDQUERYARBPROC) (GLenum target); -typedef void (APIENTRYP PFNGLGETQUERYIVARBPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETQUERYOBJECTIVARBPROC) (GLuint id, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETQUERYOBJECTUIVARBPROC) (GLuint id, GLenum pname, GLuint *params); -#endif - -#ifndef GL_ARB_shader_objects -#define GL_ARB_shader_objects 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDeleteObjectARB (GLhandleARB); -GLAPI GLhandleARB APIENTRY glGetHandleARB (GLenum); -GLAPI void APIENTRY glDetachObjectARB (GLhandleARB, GLhandleARB); -GLAPI GLhandleARB APIENTRY glCreateShaderObjectARB (GLenum); -GLAPI void APIENTRY glShaderSourceARB (GLhandleARB, GLsizei, const GLcharARB* *, const GLint *); -GLAPI void APIENTRY glCompileShaderARB (GLhandleARB); -GLAPI GLhandleARB APIENTRY glCreateProgramObjectARB (void); -GLAPI void APIENTRY glAttachObjectARB (GLhandleARB, GLhandleARB); -GLAPI void APIENTRY glLinkProgramARB (GLhandleARB); -GLAPI void APIENTRY glUseProgramObjectARB (GLhandleARB); -GLAPI void APIENTRY glValidateProgramARB (GLhandleARB); -GLAPI void APIENTRY glUniform1fARB (GLint, GLfloat); -GLAPI void APIENTRY glUniform2fARB (GLint, GLfloat, GLfloat); -GLAPI void APIENTRY glUniform3fARB (GLint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glUniform4fARB (GLint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glUniform1iARB (GLint, GLint); -GLAPI void APIENTRY glUniform2iARB (GLint, GLint, GLint); -GLAPI void APIENTRY glUniform3iARB (GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glUniform4iARB (GLint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glUniform1fvARB (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform2fvARB (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform3fvARB (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform4fvARB (GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glUniform1ivARB (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniform2ivARB (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniform3ivARB (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniform4ivARB (GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glUniformMatrix2fvARB (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix3fvARB (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glUniformMatrix4fvARB (GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glGetObjectParameterfvARB (GLhandleARB, GLenum, GLfloat *); -GLAPI void APIENTRY glGetObjectParameterivARB (GLhandleARB, GLenum, GLint *); -GLAPI void APIENTRY glGetInfoLogARB (GLhandleARB, GLsizei, GLsizei *, GLcharARB *); -GLAPI void APIENTRY glGetAttachedObjectsARB (GLhandleARB, GLsizei, GLsizei *, GLhandleARB *); -GLAPI GLint APIENTRY glGetUniformLocationARB (GLhandleARB, const GLcharARB *); -GLAPI void APIENTRY glGetActiveUniformARB (GLhandleARB, GLuint, GLsizei, GLsizei *, GLint *, GLenum *, GLcharARB *); -GLAPI void APIENTRY glGetUniformfvARB (GLhandleARB, GLint, GLfloat *); -GLAPI void APIENTRY glGetUniformivARB (GLhandleARB, GLint, GLint *); -GLAPI void APIENTRY glGetShaderSourceARB (GLhandleARB, GLsizei, GLsizei *, GLcharARB *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDELETEOBJECTARBPROC) (GLhandleARB obj); -typedef GLhandleARB (APIENTRYP PFNGLGETHANDLEARBPROC) (GLenum pname); -typedef void (APIENTRYP PFNGLDETACHOBJECTARBPROC) (GLhandleARB containerObj, GLhandleARB attachedObj); -typedef GLhandleARB (APIENTRYP PFNGLCREATESHADEROBJECTARBPROC) (GLenum shaderType); -typedef void (APIENTRYP PFNGLSHADERSOURCEARBPROC) (GLhandleARB shaderObj, GLsizei count, const GLcharARB* *string, const GLint *length); -typedef void (APIENTRYP PFNGLCOMPILESHADERARBPROC) (GLhandleARB shaderObj); -typedef GLhandleARB (APIENTRYP PFNGLCREATEPROGRAMOBJECTARBPROC) (void); -typedef void (APIENTRYP PFNGLATTACHOBJECTARBPROC) (GLhandleARB containerObj, GLhandleARB obj); -typedef void (APIENTRYP PFNGLLINKPROGRAMARBPROC) (GLhandleARB programObj); -typedef void (APIENTRYP PFNGLUSEPROGRAMOBJECTARBPROC) (GLhandleARB programObj); -typedef void (APIENTRYP PFNGLVALIDATEPROGRAMARBPROC) (GLhandleARB programObj); -typedef void (APIENTRYP PFNGLUNIFORM1FARBPROC) (GLint location, GLfloat v0); -typedef void (APIENTRYP PFNGLUNIFORM2FARBPROC) (GLint location, GLfloat v0, GLfloat v1); -typedef void (APIENTRYP PFNGLUNIFORM3FARBPROC) (GLint location, GLfloat v0, GLfloat v1, GLfloat v2); -typedef void (APIENTRYP PFNGLUNIFORM4FARBPROC) (GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3); -typedef void (APIENTRYP PFNGLUNIFORM1IARBPROC) (GLint location, GLint v0); -typedef void (APIENTRYP PFNGLUNIFORM2IARBPROC) (GLint location, GLint v0, GLint v1); -typedef void (APIENTRYP PFNGLUNIFORM3IARBPROC) (GLint location, GLint v0, GLint v1, GLint v2); -typedef void (APIENTRYP PFNGLUNIFORM4IARBPROC) (GLint location, GLint v0, GLint v1, GLint v2, GLint v3); -typedef void (APIENTRYP PFNGLUNIFORM1FVARBPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM2FVARBPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM3FVARBPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM4FVARBPROC) (GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORM1IVARBPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORM2IVARBPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORM3IVARBPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORM4IVARBPROC) (GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX2FVARBPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX3FVARBPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLUNIFORMMATRIX4FVARBPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLGETOBJECTPARAMETERFVARBPROC) (GLhandleARB obj, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETOBJECTPARAMETERIVARBPROC) (GLhandleARB obj, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETINFOLOGARBPROC) (GLhandleARB obj, GLsizei maxLength, GLsizei *length, GLcharARB *infoLog); -typedef void (APIENTRYP PFNGLGETATTACHEDOBJECTSARBPROC) (GLhandleARB containerObj, GLsizei maxCount, GLsizei *count, GLhandleARB *obj); -typedef GLint (APIENTRYP PFNGLGETUNIFORMLOCATIONARBPROC) (GLhandleARB programObj, const GLcharARB *name); -typedef void (APIENTRYP PFNGLGETACTIVEUNIFORMARBPROC) (GLhandleARB programObj, GLuint index, GLsizei maxLength, GLsizei *length, GLint *size, GLenum *type, GLcharARB *name); -typedef void (APIENTRYP PFNGLGETUNIFORMFVARBPROC) (GLhandleARB programObj, GLint location, GLfloat *params); -typedef void (APIENTRYP PFNGLGETUNIFORMIVARBPROC) (GLhandleARB programObj, GLint location, GLint *params); -typedef void (APIENTRYP PFNGLGETSHADERSOURCEARBPROC) (GLhandleARB obj, GLsizei maxLength, GLsizei *length, GLcharARB *source); -#endif - -#ifndef GL_ARB_vertex_shader -#define GL_ARB_vertex_shader 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBindAttribLocationARB (GLhandleARB, GLuint, const GLcharARB *); -GLAPI void APIENTRY glGetActiveAttribARB (GLhandleARB, GLuint, GLsizei, GLsizei *, GLint *, GLenum *, GLcharARB *); -GLAPI GLint APIENTRY glGetAttribLocationARB (GLhandleARB, const GLcharARB *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBINDATTRIBLOCATIONARBPROC) (GLhandleARB programObj, GLuint index, const GLcharARB *name); -typedef void (APIENTRYP PFNGLGETACTIVEATTRIBARBPROC) (GLhandleARB programObj, GLuint index, GLsizei maxLength, GLsizei *length, GLint *size, GLenum *type, GLcharARB *name); -typedef GLint (APIENTRYP PFNGLGETATTRIBLOCATIONARBPROC) (GLhandleARB programObj, const GLcharARB *name); -#endif - -#ifndef GL_ARB_fragment_shader -#define GL_ARB_fragment_shader 1 -#endif - -#ifndef GL_ARB_shading_language_100 -#define GL_ARB_shading_language_100 1 -#endif - -#ifndef GL_ARB_texture_non_power_of_two -#define GL_ARB_texture_non_power_of_two 1 -#endif - -#ifndef GL_ARB_point_sprite -#define GL_ARB_point_sprite 1 -#endif - -#ifndef GL_ARB_fragment_program_shadow -#define GL_ARB_fragment_program_shadow 1 -#endif - -#ifndef GL_ARB_draw_buffers -#define GL_ARB_draw_buffers 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDrawBuffersARB (GLsizei, const GLenum *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDRAWBUFFERSARBPROC) (GLsizei n, const GLenum *bufs); -#endif - -#ifndef GL_ARB_texture_rectangle -#define GL_ARB_texture_rectangle 1 -#endif - -#ifndef GL_ARB_color_buffer_float -#define GL_ARB_color_buffer_float 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glClampColorARB (GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCLAMPCOLORARBPROC) (GLenum target, GLenum clamp); -#endif - -#ifndef GL_ARB_half_float_pixel -#define GL_ARB_half_float_pixel 1 -#endif - -#ifndef GL_ARB_texture_float -#define GL_ARB_texture_float 1 -#endif - -#ifndef GL_ARB_pixel_buffer_object -#define GL_ARB_pixel_buffer_object 1 -#endif - -#ifndef GL_ARB_depth_buffer_float -#define GL_ARB_depth_buffer_float 1 -#endif - -#ifndef GL_ARB_draw_instanced -#define GL_ARB_draw_instanced 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDrawArraysInstancedARB (GLenum, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glDrawElementsInstancedARB (GLenum, GLsizei, GLenum, const GLvoid *, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDRAWARRAYSINSTANCEDARBPROC) (GLenum mode, GLint first, GLsizei count, GLsizei primcount); -typedef void (APIENTRYP PFNGLDRAWELEMENTSINSTANCEDARBPROC) (GLenum mode, GLsizei count, GLenum type, const GLvoid *indices, GLsizei primcount); -#endif - -#ifndef GL_ARB_framebuffer_object -#define GL_ARB_framebuffer_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLboolean APIENTRY glIsRenderbuffer (GLuint); -GLAPI void APIENTRY glBindRenderbuffer (GLenum, GLuint); -GLAPI void APIENTRY glDeleteRenderbuffers (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenRenderbuffers (GLsizei, GLuint *); -GLAPI void APIENTRY glRenderbufferStorage (GLenum, GLenum, GLsizei, GLsizei); -GLAPI void APIENTRY glGetRenderbufferParameteriv (GLenum, GLenum, GLint *); -GLAPI GLboolean APIENTRY glIsFramebuffer (GLuint); -GLAPI void APIENTRY glBindFramebuffer (GLenum, GLuint); -GLAPI void APIENTRY glDeleteFramebuffers (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenFramebuffers (GLsizei, GLuint *); -GLAPI GLenum APIENTRY glCheckFramebufferStatus (GLenum); -GLAPI void APIENTRY glFramebufferTexture1D (GLenum, GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glFramebufferTexture2D (GLenum, GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glFramebufferTexture3D (GLenum, GLenum, GLenum, GLuint, GLint, GLint); -GLAPI void APIENTRY glFramebufferRenderbuffer (GLenum, GLenum, GLenum, GLuint); -GLAPI void APIENTRY glGetFramebufferAttachmentParameteriv (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGenerateMipmap (GLenum); -GLAPI void APIENTRY glBlitFramebuffer (GLint, GLint, GLint, GLint, GLint, GLint, GLint, GLint, GLbitfield, GLenum); -GLAPI void APIENTRY glRenderbufferStorageMultisample (GLenum, GLsizei, GLenum, GLsizei, GLsizei); -GLAPI void APIENTRY glFramebufferTextureLayer (GLenum, GLenum, GLuint, GLint, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLboolean (APIENTRYP PFNGLISRENDERBUFFERPROC) (GLuint renderbuffer); -typedef void (APIENTRYP PFNGLBINDRENDERBUFFERPROC) (GLenum target, GLuint renderbuffer); -typedef void (APIENTRYP PFNGLDELETERENDERBUFFERSPROC) (GLsizei n, const GLuint *renderbuffers); -typedef void (APIENTRYP PFNGLGENRENDERBUFFERSPROC) (GLsizei n, GLuint *renderbuffers); -typedef void (APIENTRYP PFNGLRENDERBUFFERSTORAGEPROC) (GLenum target, GLenum internalformat, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETRENDERBUFFERPARAMETERIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef GLboolean (APIENTRYP PFNGLISFRAMEBUFFERPROC) (GLuint framebuffer); -typedef void (APIENTRYP PFNGLBINDFRAMEBUFFERPROC) (GLenum target, GLuint framebuffer); -typedef void (APIENTRYP PFNGLDELETEFRAMEBUFFERSPROC) (GLsizei n, const GLuint *framebuffers); -typedef void (APIENTRYP PFNGLGENFRAMEBUFFERSPROC) (GLsizei n, GLuint *framebuffers); -typedef GLenum (APIENTRYP PFNGLCHECKFRAMEBUFFERSTATUSPROC) (GLenum target); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURE1DPROC) (GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURE2DPROC) (GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURE3DPROC) (GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level, GLint zoffset); -typedef void (APIENTRYP PFNGLFRAMEBUFFERRENDERBUFFERPROC) (GLenum target, GLenum attachment, GLenum renderbuffertarget, GLuint renderbuffer); -typedef void (APIENTRYP PFNGLGETFRAMEBUFFERATTACHMENTPARAMETERIVPROC) (GLenum target, GLenum attachment, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGENERATEMIPMAPPROC) (GLenum target); -typedef void (APIENTRYP PFNGLBLITFRAMEBUFFERPROC) (GLint srcX0, GLint srcY0, GLint srcX1, GLint srcY1, GLint dstX0, GLint dstY0, GLint dstX1, GLint dstY1, GLbitfield mask, GLenum filter); -typedef void (APIENTRYP PFNGLRENDERBUFFERSTORAGEMULTISAMPLEPROC) (GLenum target, GLsizei samples, GLenum internalformat, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURELAYERPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level, GLint layer); -#endif - -#ifndef GL_ARB_framebuffer_sRGB -#define GL_ARB_framebuffer_sRGB 1 -#endif - -#ifndef GL_ARB_geometry_shader4 -#define GL_ARB_geometry_shader4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramParameteriARB (GLuint, GLenum, GLint); -GLAPI void APIENTRY glFramebufferTextureARB (GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glFramebufferTextureLayerARB (GLenum, GLenum, GLuint, GLint, GLint); -GLAPI void APIENTRY glFramebufferTextureFaceARB (GLenum, GLenum, GLuint, GLint, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMPARAMETERIARBPROC) (GLuint program, GLenum pname, GLint value); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTUREARBPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURELAYERARBPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level, GLint layer); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTUREFACEARBPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level, GLenum face); -#endif - -#ifndef GL_ARB_half_float_vertex -#define GL_ARB_half_float_vertex 1 -#endif - -#ifndef GL_ARB_instanced_arrays -#define GL_ARB_instanced_arrays 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexAttribDivisor (GLuint, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXATTRIBDIVISORPROC) (GLuint index, GLuint divisor); -#endif - -#ifndef GL_ARB_map_buffer_range -#define GL_ARB_map_buffer_range 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glMapBufferRange (GLenum, GLintptr, GLsizeiptr, GLbitfield); -GLAPI void APIENTRY glFlushMappedBufferRange (GLenum, GLintptr, GLsizeiptr); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLMAPBUFFERRANGEPROC) (GLenum target, GLintptr offset, GLsizeiptr length, GLbitfield access); -typedef void (APIENTRYP PFNGLFLUSHMAPPEDBUFFERRANGEPROC) (GLenum target, GLintptr offset, GLsizeiptr length); -#endif - -#ifndef GL_ARB_texture_buffer_object -#define GL_ARB_texture_buffer_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexBufferARB (GLenum, GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXBUFFERARBPROC) (GLenum target, GLenum internalformat, GLuint buffer); -#endif - -#ifndef GL_ARB_texture_compression_rgtc -#define GL_ARB_texture_compression_rgtc 1 -#endif - -#ifndef GL_ARB_texture_rg -#define GL_ARB_texture_rg 1 -#endif - -#ifndef GL_ARB_vertex_array_object -#define GL_ARB_vertex_array_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBindVertexArray (GLuint); -GLAPI void APIENTRY glDeleteVertexArrays (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenVertexArrays (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsVertexArray (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBINDVERTEXARRAYPROC) (GLuint array); -typedef void (APIENTRYP PFNGLDELETEVERTEXARRAYSPROC) (GLsizei n, const GLuint *arrays); -typedef void (APIENTRYP PFNGLGENVERTEXARRAYSPROC) (GLsizei n, GLuint *arrays); -typedef GLboolean (APIENTRYP PFNGLISVERTEXARRAYPROC) (GLuint array); -#endif - -#ifndef GL_EXT_abgr -#define GL_EXT_abgr 1 -#endif - -#ifndef GL_EXT_blend_color -#define GL_EXT_blend_color 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendColorEXT (GLclampf, GLclampf, GLclampf, GLclampf); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDCOLOREXTPROC) (GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha); -#endif - -#ifndef GL_EXT_polygon_offset -#define GL_EXT_polygon_offset 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPolygonOffsetEXT (GLfloat, GLfloat); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPOLYGONOFFSETEXTPROC) (GLfloat factor, GLfloat bias); -#endif - -#ifndef GL_EXT_texture -#define GL_EXT_texture 1 -#endif - -#ifndef GL_EXT_texture3D -#define GL_EXT_texture3D 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexImage3DEXT (GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTexSubImage3DEXT (GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXIMAGE3DEXTPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXSUBIMAGE3DEXTPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const GLvoid *pixels); -#endif - -#ifndef GL_SGIS_texture_filter4 -#define GL_SGIS_texture_filter4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGetTexFilterFuncSGIS (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glTexFilterFuncSGIS (GLenum, GLenum, GLsizei, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGETTEXFILTERFUNCSGISPROC) (GLenum target, GLenum filter, GLfloat *weights); -typedef void (APIENTRYP PFNGLTEXFILTERFUNCSGISPROC) (GLenum target, GLenum filter, GLsizei n, const GLfloat *weights); -#endif - -#ifndef GL_EXT_subtexture -#define GL_EXT_subtexture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexSubImage1DEXT (GLenum, GLint, GLint, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTexSubImage2DEXT (GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXSUBIMAGE1DEXTPROC) (GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXSUBIMAGE2DEXTPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels); -#endif - -#ifndef GL_EXT_copy_texture -#define GL_EXT_copy_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glCopyTexImage1DEXT (GLenum, GLint, GLenum, GLint, GLint, GLsizei, GLint); -GLAPI void APIENTRY glCopyTexImage2DEXT (GLenum, GLint, GLenum, GLint, GLint, GLsizei, GLsizei, GLint); -GLAPI void APIENTRY glCopyTexSubImage1DEXT (GLenum, GLint, GLint, GLint, GLint, GLsizei); -GLAPI void APIENTRY glCopyTexSubImage2DEXT (GLenum, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glCopyTexSubImage3DEXT (GLenum, GLint, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOPYTEXIMAGE1DEXTPROC) (GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLint border); -typedef void (APIENTRYP PFNGLCOPYTEXIMAGE2DEXTPROC) (GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height, GLint border); -typedef void (APIENTRYP PFNGLCOPYTEXSUBIMAGE1DEXTPROC) (GLenum target, GLint level, GLint xoffset, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLCOPYTEXSUBIMAGE2DEXTPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLCOPYTEXSUBIMAGE3DEXTPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height); -#endif - -#ifndef GL_EXT_histogram -#define GL_EXT_histogram 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGetHistogramEXT (GLenum, GLboolean, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetHistogramParameterfvEXT (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetHistogramParameterivEXT (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetMinmaxEXT (GLenum, GLboolean, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetMinmaxParameterfvEXT (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMinmaxParameterivEXT (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glHistogramEXT (GLenum, GLsizei, GLenum, GLboolean); -GLAPI void APIENTRY glMinmaxEXT (GLenum, GLenum, GLboolean); -GLAPI void APIENTRY glResetHistogramEXT (GLenum); -GLAPI void APIENTRY glResetMinmaxEXT (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGETHISTOGRAMEXTPROC) (GLenum target, GLboolean reset, GLenum format, GLenum type, GLvoid *values); -typedef void (APIENTRYP PFNGLGETHISTOGRAMPARAMETERFVEXTPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETHISTOGRAMPARAMETERIVEXTPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMINMAXEXTPROC) (GLenum target, GLboolean reset, GLenum format, GLenum type, GLvoid *values); -typedef void (APIENTRYP PFNGLGETMINMAXPARAMETERFVEXTPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMINMAXPARAMETERIVEXTPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLHISTOGRAMEXTPROC) (GLenum target, GLsizei width, GLenum internalformat, GLboolean sink); -typedef void (APIENTRYP PFNGLMINMAXEXTPROC) (GLenum target, GLenum internalformat, GLboolean sink); -typedef void (APIENTRYP PFNGLRESETHISTOGRAMEXTPROC) (GLenum target); -typedef void (APIENTRYP PFNGLRESETMINMAXEXTPROC) (GLenum target); -#endif - -#ifndef GL_EXT_convolution -#define GL_EXT_convolution 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glConvolutionFilter1DEXT (GLenum, GLenum, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glConvolutionFilter2DEXT (GLenum, GLenum, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glConvolutionParameterfEXT (GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glConvolutionParameterfvEXT (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glConvolutionParameteriEXT (GLenum, GLenum, GLint); -GLAPI void APIENTRY glConvolutionParameterivEXT (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glCopyConvolutionFilter1DEXT (GLenum, GLenum, GLint, GLint, GLsizei); -GLAPI void APIENTRY glCopyConvolutionFilter2DEXT (GLenum, GLenum, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glGetConvolutionFilterEXT (GLenum, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetConvolutionParameterfvEXT (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetConvolutionParameterivEXT (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetSeparableFilterEXT (GLenum, GLenum, GLenum, GLvoid *, GLvoid *, GLvoid *); -GLAPI void APIENTRY glSeparableFilter2DEXT (GLenum, GLenum, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCONVOLUTIONFILTER1DEXTPROC) (GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *image); -typedef void (APIENTRYP PFNGLCONVOLUTIONFILTER2DEXTPROC) (GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *image); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERFEXTPROC) (GLenum target, GLenum pname, GLfloat params); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERFVEXTPROC) (GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERIEXTPROC) (GLenum target, GLenum pname, GLint params); -typedef void (APIENTRYP PFNGLCONVOLUTIONPARAMETERIVEXTPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLCOPYCONVOLUTIONFILTER1DEXTPROC) (GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLCOPYCONVOLUTIONFILTER2DEXTPROC) (GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETCONVOLUTIONFILTEREXTPROC) (GLenum target, GLenum format, GLenum type, GLvoid *image); -typedef void (APIENTRYP PFNGLGETCONVOLUTIONPARAMETERFVEXTPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETCONVOLUTIONPARAMETERIVEXTPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETSEPARABLEFILTEREXTPROC) (GLenum target, GLenum format, GLenum type, GLvoid *row, GLvoid *column, GLvoid *span); -typedef void (APIENTRYP PFNGLSEPARABLEFILTER2DEXTPROC) (GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *row, const GLvoid *column); -#endif - -#ifndef GL_SGI_color_matrix -#define GL_SGI_color_matrix 1 -#endif - -#ifndef GL_SGI_color_table -#define GL_SGI_color_table 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColorTableSGI (GLenum, GLenum, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glColorTableParameterfvSGI (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glColorTableParameterivSGI (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glCopyColorTableSGI (GLenum, GLenum, GLint, GLint, GLsizei); -GLAPI void APIENTRY glGetColorTableSGI (GLenum, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetColorTableParameterfvSGI (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetColorTableParameterivSGI (GLenum, GLenum, GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLORTABLESGIPROC) (GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *table); -typedef void (APIENTRYP PFNGLCOLORTABLEPARAMETERFVSGIPROC) (GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLCOLORTABLEPARAMETERIVSGIPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLCOPYCOLORTABLESGIPROC) (GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLGETCOLORTABLESGIPROC) (GLenum target, GLenum format, GLenum type, GLvoid *table); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPARAMETERFVSGIPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPARAMETERIVSGIPROC) (GLenum target, GLenum pname, GLint *params); -#endif - -#ifndef GL_SGIX_pixel_texture -#define GL_SGIX_pixel_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPixelTexGenSGIX (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPIXELTEXGENSGIXPROC) (GLenum mode); -#endif - -#ifndef GL_SGIS_pixel_texture -#define GL_SGIS_pixel_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPixelTexGenParameteriSGIS (GLenum, GLint); -GLAPI void APIENTRY glPixelTexGenParameterivSGIS (GLenum, const GLint *); -GLAPI void APIENTRY glPixelTexGenParameterfSGIS (GLenum, GLfloat); -GLAPI void APIENTRY glPixelTexGenParameterfvSGIS (GLenum, const GLfloat *); -GLAPI void APIENTRY glGetPixelTexGenParameterivSGIS (GLenum, GLint *); -GLAPI void APIENTRY glGetPixelTexGenParameterfvSGIS (GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPIXELTEXGENPARAMETERISGISPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLPIXELTEXGENPARAMETERIVSGISPROC) (GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLPIXELTEXGENPARAMETERFSGISPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLPIXELTEXGENPARAMETERFVSGISPROC) (GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLGETPIXELTEXGENPARAMETERIVSGISPROC) (GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETPIXELTEXGENPARAMETERFVSGISPROC) (GLenum pname, GLfloat *params); -#endif - -#ifndef GL_SGIS_texture4D -#define GL_SGIS_texture4D 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexImage4DSGIS (GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTexSubImage4DSGIS (GLenum, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXIMAGE4DSGISPROC) (GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLsizei size4d, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXSUBIMAGE4DSGISPROC) (GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint woffset, GLsizei width, GLsizei height, GLsizei depth, GLsizei size4d, GLenum format, GLenum type, const GLvoid *pixels); -#endif - -#ifndef GL_SGI_texture_color_table -#define GL_SGI_texture_color_table 1 -#endif - -#ifndef GL_EXT_cmyka -#define GL_EXT_cmyka 1 -#endif - -#ifndef GL_EXT_texture_object -#define GL_EXT_texture_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLboolean APIENTRY glAreTexturesResidentEXT (GLsizei, const GLuint *, GLboolean *); -GLAPI void APIENTRY glBindTextureEXT (GLenum, GLuint); -GLAPI void APIENTRY glDeleteTexturesEXT (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenTexturesEXT (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsTextureEXT (GLuint); -GLAPI void APIENTRY glPrioritizeTexturesEXT (GLsizei, const GLuint *, const GLclampf *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLboolean (APIENTRYP PFNGLARETEXTURESRESIDENTEXTPROC) (GLsizei n, const GLuint *textures, GLboolean *residences); -typedef void (APIENTRYP PFNGLBINDTEXTUREEXTPROC) (GLenum target, GLuint texture); -typedef void (APIENTRYP PFNGLDELETETEXTURESEXTPROC) (GLsizei n, const GLuint *textures); -typedef void (APIENTRYP PFNGLGENTEXTURESEXTPROC) (GLsizei n, GLuint *textures); -typedef GLboolean (APIENTRYP PFNGLISTEXTUREEXTPROC) (GLuint texture); -typedef void (APIENTRYP PFNGLPRIORITIZETEXTURESEXTPROC) (GLsizei n, const GLuint *textures, const GLclampf *priorities); -#endif - -#ifndef GL_SGIS_detail_texture -#define GL_SGIS_detail_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDetailTexFuncSGIS (GLenum, GLsizei, const GLfloat *); -GLAPI void APIENTRY glGetDetailTexFuncSGIS (GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDETAILTEXFUNCSGISPROC) (GLenum target, GLsizei n, const GLfloat *points); -typedef void (APIENTRYP PFNGLGETDETAILTEXFUNCSGISPROC) (GLenum target, GLfloat *points); -#endif - -#ifndef GL_SGIS_sharpen_texture -#define GL_SGIS_sharpen_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glSharpenTexFuncSGIS (GLenum, GLsizei, const GLfloat *); -GLAPI void APIENTRY glGetSharpenTexFuncSGIS (GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSHARPENTEXFUNCSGISPROC) (GLenum target, GLsizei n, const GLfloat *points); -typedef void (APIENTRYP PFNGLGETSHARPENTEXFUNCSGISPROC) (GLenum target, GLfloat *points); -#endif - -#ifndef GL_EXT_packed_pixels -#define GL_EXT_packed_pixels 1 -#endif - -#ifndef GL_SGIS_texture_lod -#define GL_SGIS_texture_lod 1 -#endif - -#ifndef GL_SGIS_multisample -#define GL_SGIS_multisample 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glSampleMaskSGIS (GLclampf, GLboolean); -GLAPI void APIENTRY glSamplePatternSGIS (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSAMPLEMASKSGISPROC) (GLclampf value, GLboolean invert); -typedef void (APIENTRYP PFNGLSAMPLEPATTERNSGISPROC) (GLenum pattern); -#endif - -#ifndef GL_EXT_rescale_normal -#define GL_EXT_rescale_normal 1 -#endif - -#ifndef GL_EXT_vertex_array -#define GL_EXT_vertex_array 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glArrayElementEXT (GLint); -GLAPI void APIENTRY glColorPointerEXT (GLint, GLenum, GLsizei, GLsizei, const GLvoid *); -GLAPI void APIENTRY glDrawArraysEXT (GLenum, GLint, GLsizei); -GLAPI void APIENTRY glEdgeFlagPointerEXT (GLsizei, GLsizei, const GLboolean *); -GLAPI void APIENTRY glGetPointervEXT (GLenum, GLvoid* *); -GLAPI void APIENTRY glIndexPointerEXT (GLenum, GLsizei, GLsizei, const GLvoid *); -GLAPI void APIENTRY glNormalPointerEXT (GLenum, GLsizei, GLsizei, const GLvoid *); -GLAPI void APIENTRY glTexCoordPointerEXT (GLint, GLenum, GLsizei, GLsizei, const GLvoid *); -GLAPI void APIENTRY glVertexPointerEXT (GLint, GLenum, GLsizei, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLARRAYELEMENTEXTPROC) (GLint i); -typedef void (APIENTRYP PFNGLCOLORPOINTEREXTPROC) (GLint size, GLenum type, GLsizei stride, GLsizei count, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLDRAWARRAYSEXTPROC) (GLenum mode, GLint first, GLsizei count); -typedef void (APIENTRYP PFNGLEDGEFLAGPOINTEREXTPROC) (GLsizei stride, GLsizei count, const GLboolean *pointer); -typedef void (APIENTRYP PFNGLGETPOINTERVEXTPROC) (GLenum pname, GLvoid* *params); -typedef void (APIENTRYP PFNGLINDEXPOINTEREXTPROC) (GLenum type, GLsizei stride, GLsizei count, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLNORMALPOINTEREXTPROC) (GLenum type, GLsizei stride, GLsizei count, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLTEXCOORDPOINTEREXTPROC) (GLint size, GLenum type, GLsizei stride, GLsizei count, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLVERTEXPOINTEREXTPROC) (GLint size, GLenum type, GLsizei stride, GLsizei count, const GLvoid *pointer); -#endif - -#ifndef GL_EXT_misc_attribute -#define GL_EXT_misc_attribute 1 -#endif - -#ifndef GL_SGIS_generate_mipmap -#define GL_SGIS_generate_mipmap 1 -#endif - -#ifndef GL_SGIX_clipmap -#define GL_SGIX_clipmap 1 -#endif - -#ifndef GL_SGIX_shadow -#define GL_SGIX_shadow 1 -#endif - -#ifndef GL_SGIS_texture_edge_clamp -#define GL_SGIS_texture_edge_clamp 1 -#endif - -#ifndef GL_SGIS_texture_border_clamp -#define GL_SGIS_texture_border_clamp 1 -#endif - -#ifndef GL_EXT_blend_minmax -#define GL_EXT_blend_minmax 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendEquationEXT (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDEQUATIONEXTPROC) (GLenum mode); -#endif - -#ifndef GL_EXT_blend_subtract -#define GL_EXT_blend_subtract 1 -#endif - -#ifndef GL_EXT_blend_logic_op -#define GL_EXT_blend_logic_op 1 -#endif - -#ifndef GL_SGIX_interlace -#define GL_SGIX_interlace 1 -#endif - -#ifndef GL_SGIX_pixel_tiles -#define GL_SGIX_pixel_tiles 1 -#endif - -#ifndef GL_SGIX_texture_select -#define GL_SGIX_texture_select 1 -#endif - -#ifndef GL_SGIX_sprite -#define GL_SGIX_sprite 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glSpriteParameterfSGIX (GLenum, GLfloat); -GLAPI void APIENTRY glSpriteParameterfvSGIX (GLenum, const GLfloat *); -GLAPI void APIENTRY glSpriteParameteriSGIX (GLenum, GLint); -GLAPI void APIENTRY glSpriteParameterivSGIX (GLenum, const GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSPRITEPARAMETERFSGIXPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLSPRITEPARAMETERFVSGIXPROC) (GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLSPRITEPARAMETERISGIXPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLSPRITEPARAMETERIVSGIXPROC) (GLenum pname, const GLint *params); -#endif - -#ifndef GL_SGIX_texture_multi_buffer -#define GL_SGIX_texture_multi_buffer 1 -#endif - -#ifndef GL_EXT_point_parameters -#define GL_EXT_point_parameters 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPointParameterfEXT (GLenum, GLfloat); -GLAPI void APIENTRY glPointParameterfvEXT (GLenum, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPOINTPARAMETERFEXTPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLPOINTPARAMETERFVEXTPROC) (GLenum pname, const GLfloat *params); -#endif - -#ifndef GL_SGIS_point_parameters -#define GL_SGIS_point_parameters 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPointParameterfSGIS (GLenum, GLfloat); -GLAPI void APIENTRY glPointParameterfvSGIS (GLenum, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPOINTPARAMETERFSGISPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLPOINTPARAMETERFVSGISPROC) (GLenum pname, const GLfloat *params); -#endif - -#ifndef GL_SGIX_instruments -#define GL_SGIX_instruments 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLint APIENTRY glGetInstrumentsSGIX (void); -GLAPI void APIENTRY glInstrumentsBufferSGIX (GLsizei, GLint *); -GLAPI GLint APIENTRY glPollInstrumentsSGIX (GLint *); -GLAPI void APIENTRY glReadInstrumentsSGIX (GLint); -GLAPI void APIENTRY glStartInstrumentsSGIX (void); -GLAPI void APIENTRY glStopInstrumentsSGIX (GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLint (APIENTRYP PFNGLGETINSTRUMENTSSGIXPROC) (void); -typedef void (APIENTRYP PFNGLINSTRUMENTSBUFFERSGIXPROC) (GLsizei size, GLint *buffer); -typedef GLint (APIENTRYP PFNGLPOLLINSTRUMENTSSGIXPROC) (GLint *marker_p); -typedef void (APIENTRYP PFNGLREADINSTRUMENTSSGIXPROC) (GLint marker); -typedef void (APIENTRYP PFNGLSTARTINSTRUMENTSSGIXPROC) (void); -typedef void (APIENTRYP PFNGLSTOPINSTRUMENTSSGIXPROC) (GLint marker); -#endif - -#ifndef GL_SGIX_texture_scale_bias -#define GL_SGIX_texture_scale_bias 1 -#endif - -#ifndef GL_SGIX_framezoom -#define GL_SGIX_framezoom 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFrameZoomSGIX (GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFRAMEZOOMSGIXPROC) (GLint factor); -#endif - -#ifndef GL_SGIX_tag_sample_buffer -#define GL_SGIX_tag_sample_buffer 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTagSampleBufferSGIX (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTAGSAMPLEBUFFERSGIXPROC) (void); -#endif - -#ifndef GL_SGIX_polynomial_ffd -#define GL_SGIX_polynomial_ffd 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDeformationMap3dSGIX (GLenum, GLdouble, GLdouble, GLint, GLint, GLdouble, GLdouble, GLint, GLint, GLdouble, GLdouble, GLint, GLint, const GLdouble *); -GLAPI void APIENTRY glDeformationMap3fSGIX (GLenum, GLfloat, GLfloat, GLint, GLint, GLfloat, GLfloat, GLint, GLint, GLfloat, GLfloat, GLint, GLint, const GLfloat *); -GLAPI void APIENTRY glDeformSGIX (GLbitfield); -GLAPI void APIENTRY glLoadIdentityDeformationMapSGIX (GLbitfield); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDEFORMATIONMAP3DSGIXPROC) (GLenum target, GLdouble u1, GLdouble u2, GLint ustride, GLint uorder, GLdouble v1, GLdouble v2, GLint vstride, GLint vorder, GLdouble w1, GLdouble w2, GLint wstride, GLint worder, const GLdouble *points); -typedef void (APIENTRYP PFNGLDEFORMATIONMAP3FSGIXPROC) (GLenum target, GLfloat u1, GLfloat u2, GLint ustride, GLint uorder, GLfloat v1, GLfloat v2, GLint vstride, GLint vorder, GLfloat w1, GLfloat w2, GLint wstride, GLint worder, const GLfloat *points); -typedef void (APIENTRYP PFNGLDEFORMSGIXPROC) (GLbitfield mask); -typedef void (APIENTRYP PFNGLLOADIDENTITYDEFORMATIONMAPSGIXPROC) (GLbitfield mask); -#endif - -#ifndef GL_SGIX_reference_plane -#define GL_SGIX_reference_plane 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glReferencePlaneSGIX (const GLdouble *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLREFERENCEPLANESGIXPROC) (const GLdouble *equation); -#endif - -#ifndef GL_SGIX_flush_raster -#define GL_SGIX_flush_raster 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFlushRasterSGIX (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFLUSHRASTERSGIXPROC) (void); -#endif - -#ifndef GL_SGIX_depth_texture -#define GL_SGIX_depth_texture 1 -#endif - -#ifndef GL_SGIS_fog_function -#define GL_SGIS_fog_function 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFogFuncSGIS (GLsizei, const GLfloat *); -GLAPI void APIENTRY glGetFogFuncSGIS (GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFOGFUNCSGISPROC) (GLsizei n, const GLfloat *points); -typedef void (APIENTRYP PFNGLGETFOGFUNCSGISPROC) (GLfloat *points); -#endif - -#ifndef GL_SGIX_fog_offset -#define GL_SGIX_fog_offset 1 -#endif - -#ifndef GL_HP_image_transform -#define GL_HP_image_transform 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glImageTransformParameteriHP (GLenum, GLenum, GLint); -GLAPI void APIENTRY glImageTransformParameterfHP (GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glImageTransformParameterivHP (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glImageTransformParameterfvHP (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glGetImageTransformParameterivHP (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetImageTransformParameterfvHP (GLenum, GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLIMAGETRANSFORMPARAMETERIHPPROC) (GLenum target, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLIMAGETRANSFORMPARAMETERFHPPROC) (GLenum target, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLIMAGETRANSFORMPARAMETERIVHPPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLIMAGETRANSFORMPARAMETERFVHPPROC) (GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLGETIMAGETRANSFORMPARAMETERIVHPPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETIMAGETRANSFORMPARAMETERFVHPPROC) (GLenum target, GLenum pname, GLfloat *params); -#endif - -#ifndef GL_HP_convolution_border_modes -#define GL_HP_convolution_border_modes 1 -#endif - -#ifndef GL_SGIX_texture_add_env -#define GL_SGIX_texture_add_env 1 -#endif - -#ifndef GL_EXT_color_subtable -#define GL_EXT_color_subtable 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColorSubTableEXT (GLenum, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyColorSubTableEXT (GLenum, GLsizei, GLint, GLint, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLORSUBTABLEEXTPROC) (GLenum target, GLsizei start, GLsizei count, GLenum format, GLenum type, const GLvoid *data); -typedef void (APIENTRYP PFNGLCOPYCOLORSUBTABLEEXTPROC) (GLenum target, GLsizei start, GLint x, GLint y, GLsizei width); -#endif - -#ifndef GL_PGI_vertex_hints -#define GL_PGI_vertex_hints 1 -#endif - -#ifndef GL_PGI_misc_hints -#define GL_PGI_misc_hints 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glHintPGI (GLenum, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLHINTPGIPROC) (GLenum target, GLint mode); -#endif - -#ifndef GL_EXT_paletted_texture -#define GL_EXT_paletted_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColorTableEXT (GLenum, GLenum, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glGetColorTableEXT (GLenum, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetColorTableParameterivEXT (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetColorTableParameterfvEXT (GLenum, GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLORTABLEEXTPROC) (GLenum target, GLenum internalFormat, GLsizei width, GLenum format, GLenum type, const GLvoid *table); -typedef void (APIENTRYP PFNGLGETCOLORTABLEEXTPROC) (GLenum target, GLenum format, GLenum type, GLvoid *data); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPARAMETERIVEXTPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETCOLORTABLEPARAMETERFVEXTPROC) (GLenum target, GLenum pname, GLfloat *params); -#endif - -#ifndef GL_EXT_clip_volume_hint -#define GL_EXT_clip_volume_hint 1 -#endif - -#ifndef GL_SGIX_list_priority -#define GL_SGIX_list_priority 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGetListParameterfvSGIX (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetListParameterivSGIX (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glListParameterfSGIX (GLuint, GLenum, GLfloat); -GLAPI void APIENTRY glListParameterfvSGIX (GLuint, GLenum, const GLfloat *); -GLAPI void APIENTRY glListParameteriSGIX (GLuint, GLenum, GLint); -GLAPI void APIENTRY glListParameterivSGIX (GLuint, GLenum, const GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGETLISTPARAMETERFVSGIXPROC) (GLuint list, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETLISTPARAMETERIVSGIXPROC) (GLuint list, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLLISTPARAMETERFSGIXPROC) (GLuint list, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLLISTPARAMETERFVSGIXPROC) (GLuint list, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLLISTPARAMETERISGIXPROC) (GLuint list, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLLISTPARAMETERIVSGIXPROC) (GLuint list, GLenum pname, const GLint *params); -#endif - -#ifndef GL_SGIX_ir_instrument1 -#define GL_SGIX_ir_instrument1 1 -#endif - -#ifndef GL_SGIX_calligraphic_fragment -#define GL_SGIX_calligraphic_fragment 1 -#endif - -#ifndef GL_SGIX_texture_lod_bias -#define GL_SGIX_texture_lod_bias 1 -#endif - -#ifndef GL_SGIX_shadow_ambient -#define GL_SGIX_shadow_ambient 1 -#endif - -#ifndef GL_EXT_index_texture -#define GL_EXT_index_texture 1 -#endif - -#ifndef GL_EXT_index_material -#define GL_EXT_index_material 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glIndexMaterialEXT (GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLINDEXMATERIALEXTPROC) (GLenum face, GLenum mode); -#endif - -#ifndef GL_EXT_index_func -#define GL_EXT_index_func 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glIndexFuncEXT (GLenum, GLclampf); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLINDEXFUNCEXTPROC) (GLenum func, GLclampf ref); -#endif - -#ifndef GL_EXT_index_array_formats -#define GL_EXT_index_array_formats 1 -#endif - -#ifndef GL_EXT_compiled_vertex_array -#define GL_EXT_compiled_vertex_array 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glLockArraysEXT (GLint, GLsizei); -GLAPI void APIENTRY glUnlockArraysEXT (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLLOCKARRAYSEXTPROC) (GLint first, GLsizei count); -typedef void (APIENTRYP PFNGLUNLOCKARRAYSEXTPROC) (void); -#endif - -#ifndef GL_EXT_cull_vertex -#define GL_EXT_cull_vertex 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glCullParameterdvEXT (GLenum, GLdouble *); -GLAPI void APIENTRY glCullParameterfvEXT (GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCULLPARAMETERDVEXTPROC) (GLenum pname, GLdouble *params); -typedef void (APIENTRYP PFNGLCULLPARAMETERFVEXTPROC) (GLenum pname, GLfloat *params); -#endif - -#ifndef GL_SGIX_ycrcb -#define GL_SGIX_ycrcb 1 -#endif - -#ifndef GL_SGIX_fragment_lighting -#define GL_SGIX_fragment_lighting 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFragmentColorMaterialSGIX (GLenum, GLenum); -GLAPI void APIENTRY glFragmentLightfSGIX (GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glFragmentLightfvSGIX (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glFragmentLightiSGIX (GLenum, GLenum, GLint); -GLAPI void APIENTRY glFragmentLightivSGIX (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glFragmentLightModelfSGIX (GLenum, GLfloat); -GLAPI void APIENTRY glFragmentLightModelfvSGIX (GLenum, const GLfloat *); -GLAPI void APIENTRY glFragmentLightModeliSGIX (GLenum, GLint); -GLAPI void APIENTRY glFragmentLightModelivSGIX (GLenum, const GLint *); -GLAPI void APIENTRY glFragmentMaterialfSGIX (GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glFragmentMaterialfvSGIX (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glFragmentMaterialiSGIX (GLenum, GLenum, GLint); -GLAPI void APIENTRY glFragmentMaterialivSGIX (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glGetFragmentLightfvSGIX (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetFragmentLightivSGIX (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetFragmentMaterialfvSGIX (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetFragmentMaterialivSGIX (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glLightEnviSGIX (GLenum, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFRAGMENTCOLORMATERIALSGIXPROC) (GLenum face, GLenum mode); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTFSGIXPROC) (GLenum light, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTFVSGIXPROC) (GLenum light, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTISGIXPROC) (GLenum light, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTIVSGIXPROC) (GLenum light, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTMODELFSGIXPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTMODELFVSGIXPROC) (GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTMODELISGIXPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLFRAGMENTLIGHTMODELIVSGIXPROC) (GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLFRAGMENTMATERIALFSGIXPROC) (GLenum face, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLFRAGMENTMATERIALFVSGIXPROC) (GLenum face, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLFRAGMENTMATERIALISGIXPROC) (GLenum face, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLFRAGMENTMATERIALIVSGIXPROC) (GLenum face, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLGETFRAGMENTLIGHTFVSGIXPROC) (GLenum light, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETFRAGMENTLIGHTIVSGIXPROC) (GLenum light, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETFRAGMENTMATERIALFVSGIXPROC) (GLenum face, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETFRAGMENTMATERIALIVSGIXPROC) (GLenum face, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLLIGHTENVISGIXPROC) (GLenum pname, GLint param); -#endif - -#ifndef GL_IBM_rasterpos_clip -#define GL_IBM_rasterpos_clip 1 -#endif - -#ifndef GL_HP_texture_lighting -#define GL_HP_texture_lighting 1 -#endif - -#ifndef GL_EXT_draw_range_elements -#define GL_EXT_draw_range_elements 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDrawRangeElementsEXT (GLenum, GLuint, GLuint, GLsizei, GLenum, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDRAWRANGEELEMENTSEXTPROC) (GLenum mode, GLuint start, GLuint end, GLsizei count, GLenum type, const GLvoid *indices); -#endif - -#ifndef GL_WIN_phong_shading -#define GL_WIN_phong_shading 1 -#endif - -#ifndef GL_WIN_specular_fog -#define GL_WIN_specular_fog 1 -#endif - -#ifndef GL_EXT_light_texture -#define GL_EXT_light_texture 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glApplyTextureEXT (GLenum); -GLAPI void APIENTRY glTextureLightEXT (GLenum); -GLAPI void APIENTRY glTextureMaterialEXT (GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLAPPLYTEXTUREEXTPROC) (GLenum mode); -typedef void (APIENTRYP PFNGLTEXTURELIGHTEXTPROC) (GLenum pname); -typedef void (APIENTRYP PFNGLTEXTUREMATERIALEXTPROC) (GLenum face, GLenum mode); -#endif - -#ifndef GL_SGIX_blend_alpha_minmax -#define GL_SGIX_blend_alpha_minmax 1 -#endif - -#ifndef GL_EXT_bgra -#define GL_EXT_bgra 1 -#endif - -#ifndef GL_SGIX_async -#define GL_SGIX_async 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glAsyncMarkerSGIX (GLuint); -GLAPI GLint APIENTRY glFinishAsyncSGIX (GLuint *); -GLAPI GLint APIENTRY glPollAsyncSGIX (GLuint *); -GLAPI GLuint APIENTRY glGenAsyncMarkersSGIX (GLsizei); -GLAPI void APIENTRY glDeleteAsyncMarkersSGIX (GLuint, GLsizei); -GLAPI GLboolean APIENTRY glIsAsyncMarkerSGIX (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLASYNCMARKERSGIXPROC) (GLuint marker); -typedef GLint (APIENTRYP PFNGLFINISHASYNCSGIXPROC) (GLuint *markerp); -typedef GLint (APIENTRYP PFNGLPOLLASYNCSGIXPROC) (GLuint *markerp); -typedef GLuint (APIENTRYP PFNGLGENASYNCMARKERSSGIXPROC) (GLsizei range); -typedef void (APIENTRYP PFNGLDELETEASYNCMARKERSSGIXPROC) (GLuint marker, GLsizei range); -typedef GLboolean (APIENTRYP PFNGLISASYNCMARKERSGIXPROC) (GLuint marker); -#endif - -#ifndef GL_SGIX_async_pixel -#define GL_SGIX_async_pixel 1 -#endif - -#ifndef GL_SGIX_async_histogram -#define GL_SGIX_async_histogram 1 -#endif - -#ifndef GL_INTEL_parallel_arrays -#define GL_INTEL_parallel_arrays 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexPointervINTEL (GLint, GLenum, const GLvoid* *); -GLAPI void APIENTRY glNormalPointervINTEL (GLenum, const GLvoid* *); -GLAPI void APIENTRY glColorPointervINTEL (GLint, GLenum, const GLvoid* *); -GLAPI void APIENTRY glTexCoordPointervINTEL (GLint, GLenum, const GLvoid* *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXPOINTERVINTELPROC) (GLint size, GLenum type, const GLvoid* *pointer); -typedef void (APIENTRYP PFNGLNORMALPOINTERVINTELPROC) (GLenum type, const GLvoid* *pointer); -typedef void (APIENTRYP PFNGLCOLORPOINTERVINTELPROC) (GLint size, GLenum type, const GLvoid* *pointer); -typedef void (APIENTRYP PFNGLTEXCOORDPOINTERVINTELPROC) (GLint size, GLenum type, const GLvoid* *pointer); -#endif - -#ifndef GL_HP_occlusion_test -#define GL_HP_occlusion_test 1 -#endif - -#ifndef GL_EXT_pixel_transform -#define GL_EXT_pixel_transform 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPixelTransformParameteriEXT (GLenum, GLenum, GLint); -GLAPI void APIENTRY glPixelTransformParameterfEXT (GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glPixelTransformParameterivEXT (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glPixelTransformParameterfvEXT (GLenum, GLenum, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPIXELTRANSFORMPARAMETERIEXTPROC) (GLenum target, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLPIXELTRANSFORMPARAMETERFEXTPROC) (GLenum target, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLPIXELTRANSFORMPARAMETERIVEXTPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLPIXELTRANSFORMPARAMETERFVEXTPROC) (GLenum target, GLenum pname, const GLfloat *params); -#endif - -#ifndef GL_EXT_pixel_transform_color_table -#define GL_EXT_pixel_transform_color_table 1 -#endif - -#ifndef GL_EXT_shared_texture_palette -#define GL_EXT_shared_texture_palette 1 -#endif - -#ifndef GL_EXT_separate_specular_color -#define GL_EXT_separate_specular_color 1 -#endif - -#ifndef GL_EXT_secondary_color -#define GL_EXT_secondary_color 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glSecondaryColor3bEXT (GLbyte, GLbyte, GLbyte); -GLAPI void APIENTRY glSecondaryColor3bvEXT (const GLbyte *); -GLAPI void APIENTRY glSecondaryColor3dEXT (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glSecondaryColor3dvEXT (const GLdouble *); -GLAPI void APIENTRY glSecondaryColor3fEXT (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glSecondaryColor3fvEXT (const GLfloat *); -GLAPI void APIENTRY glSecondaryColor3iEXT (GLint, GLint, GLint); -GLAPI void APIENTRY glSecondaryColor3ivEXT (const GLint *); -GLAPI void APIENTRY glSecondaryColor3sEXT (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glSecondaryColor3svEXT (const GLshort *); -GLAPI void APIENTRY glSecondaryColor3ubEXT (GLubyte, GLubyte, GLubyte); -GLAPI void APIENTRY glSecondaryColor3ubvEXT (const GLubyte *); -GLAPI void APIENTRY glSecondaryColor3uiEXT (GLuint, GLuint, GLuint); -GLAPI void APIENTRY glSecondaryColor3uivEXT (const GLuint *); -GLAPI void APIENTRY glSecondaryColor3usEXT (GLushort, GLushort, GLushort); -GLAPI void APIENTRY glSecondaryColor3usvEXT (const GLushort *); -GLAPI void APIENTRY glSecondaryColorPointerEXT (GLint, GLenum, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3BEXTPROC) (GLbyte red, GLbyte green, GLbyte blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3BVEXTPROC) (const GLbyte *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3DEXTPROC) (GLdouble red, GLdouble green, GLdouble blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3DVEXTPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3FEXTPROC) (GLfloat red, GLfloat green, GLfloat blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3FVEXTPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3IEXTPROC) (GLint red, GLint green, GLint blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3IVEXTPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3SEXTPROC) (GLshort red, GLshort green, GLshort blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3SVEXTPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UBEXTPROC) (GLubyte red, GLubyte green, GLubyte blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UBVEXTPROC) (const GLubyte *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UIEXTPROC) (GLuint red, GLuint green, GLuint blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3UIVEXTPROC) (const GLuint *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3USEXTPROC) (GLushort red, GLushort green, GLushort blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3USVEXTPROC) (const GLushort *v); -typedef void (APIENTRYP PFNGLSECONDARYCOLORPOINTEREXTPROC) (GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -#endif - -#ifndef GL_EXT_texture_perturb_normal -#define GL_EXT_texture_perturb_normal 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTextureNormalEXT (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXTURENORMALEXTPROC) (GLenum mode); -#endif - -#ifndef GL_EXT_multi_draw_arrays -#define GL_EXT_multi_draw_arrays 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glMultiDrawArraysEXT (GLenum, GLint *, GLsizei *, GLsizei); -GLAPI void APIENTRY glMultiDrawElementsEXT (GLenum, const GLsizei *, GLenum, const GLvoid* *, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLMULTIDRAWARRAYSEXTPROC) (GLenum mode, GLint *first, GLsizei *count, GLsizei primcount); -typedef void (APIENTRYP PFNGLMULTIDRAWELEMENTSEXTPROC) (GLenum mode, const GLsizei *count, GLenum type, const GLvoid* *indices, GLsizei primcount); -#endif - -#ifndef GL_EXT_fog_coord -#define GL_EXT_fog_coord 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFogCoordfEXT (GLfloat); -GLAPI void APIENTRY glFogCoordfvEXT (const GLfloat *); -GLAPI void APIENTRY glFogCoorddEXT (GLdouble); -GLAPI void APIENTRY glFogCoorddvEXT (const GLdouble *); -GLAPI void APIENTRY glFogCoordPointerEXT (GLenum, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFOGCOORDFEXTPROC) (GLfloat coord); -typedef void (APIENTRYP PFNGLFOGCOORDFVEXTPROC) (const GLfloat *coord); -typedef void (APIENTRYP PFNGLFOGCOORDDEXTPROC) (GLdouble coord); -typedef void (APIENTRYP PFNGLFOGCOORDDVEXTPROC) (const GLdouble *coord); -typedef void (APIENTRYP PFNGLFOGCOORDPOINTEREXTPROC) (GLenum type, GLsizei stride, const GLvoid *pointer); -#endif - -#ifndef GL_REND_screen_coordinates -#define GL_REND_screen_coordinates 1 -#endif - -#ifndef GL_EXT_coordinate_frame -#define GL_EXT_coordinate_frame 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTangent3bEXT (GLbyte, GLbyte, GLbyte); -GLAPI void APIENTRY glTangent3bvEXT (const GLbyte *); -GLAPI void APIENTRY glTangent3dEXT (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glTangent3dvEXT (const GLdouble *); -GLAPI void APIENTRY glTangent3fEXT (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTangent3fvEXT (const GLfloat *); -GLAPI void APIENTRY glTangent3iEXT (GLint, GLint, GLint); -GLAPI void APIENTRY glTangent3ivEXT (const GLint *); -GLAPI void APIENTRY glTangent3sEXT (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glTangent3svEXT (const GLshort *); -GLAPI void APIENTRY glBinormal3bEXT (GLbyte, GLbyte, GLbyte); -GLAPI void APIENTRY glBinormal3bvEXT (const GLbyte *); -GLAPI void APIENTRY glBinormal3dEXT (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glBinormal3dvEXT (const GLdouble *); -GLAPI void APIENTRY glBinormal3fEXT (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glBinormal3fvEXT (const GLfloat *); -GLAPI void APIENTRY glBinormal3iEXT (GLint, GLint, GLint); -GLAPI void APIENTRY glBinormal3ivEXT (const GLint *); -GLAPI void APIENTRY glBinormal3sEXT (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glBinormal3svEXT (const GLshort *); -GLAPI void APIENTRY glTangentPointerEXT (GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glBinormalPointerEXT (GLenum, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTANGENT3BEXTPROC) (GLbyte tx, GLbyte ty, GLbyte tz); -typedef void (APIENTRYP PFNGLTANGENT3BVEXTPROC) (const GLbyte *v); -typedef void (APIENTRYP PFNGLTANGENT3DEXTPROC) (GLdouble tx, GLdouble ty, GLdouble tz); -typedef void (APIENTRYP PFNGLTANGENT3DVEXTPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLTANGENT3FEXTPROC) (GLfloat tx, GLfloat ty, GLfloat tz); -typedef void (APIENTRYP PFNGLTANGENT3FVEXTPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLTANGENT3IEXTPROC) (GLint tx, GLint ty, GLint tz); -typedef void (APIENTRYP PFNGLTANGENT3IVEXTPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLTANGENT3SEXTPROC) (GLshort tx, GLshort ty, GLshort tz); -typedef void (APIENTRYP PFNGLTANGENT3SVEXTPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLBINORMAL3BEXTPROC) (GLbyte bx, GLbyte by, GLbyte bz); -typedef void (APIENTRYP PFNGLBINORMAL3BVEXTPROC) (const GLbyte *v); -typedef void (APIENTRYP PFNGLBINORMAL3DEXTPROC) (GLdouble bx, GLdouble by, GLdouble bz); -typedef void (APIENTRYP PFNGLBINORMAL3DVEXTPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLBINORMAL3FEXTPROC) (GLfloat bx, GLfloat by, GLfloat bz); -typedef void (APIENTRYP PFNGLBINORMAL3FVEXTPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLBINORMAL3IEXTPROC) (GLint bx, GLint by, GLint bz); -typedef void (APIENTRYP PFNGLBINORMAL3IVEXTPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLBINORMAL3SEXTPROC) (GLshort bx, GLshort by, GLshort bz); -typedef void (APIENTRYP PFNGLBINORMAL3SVEXTPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLTANGENTPOINTEREXTPROC) (GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLBINORMALPOINTEREXTPROC) (GLenum type, GLsizei stride, const GLvoid *pointer); -#endif - -#ifndef GL_EXT_texture_env_combine -#define GL_EXT_texture_env_combine 1 -#endif - -#ifndef GL_APPLE_specular_vector -#define GL_APPLE_specular_vector 1 -#endif - -#ifndef GL_APPLE_transform_hint -#define GL_APPLE_transform_hint 1 -#endif - -#ifndef GL_SGIX_fog_scale -#define GL_SGIX_fog_scale 1 -#endif - -#ifndef GL_SUNX_constant_data -#define GL_SUNX_constant_data 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFinishTextureSUNX (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFINISHTEXTURESUNXPROC) (void); -#endif - -#ifndef GL_SUN_global_alpha -#define GL_SUN_global_alpha 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGlobalAlphaFactorbSUN (GLbyte); -GLAPI void APIENTRY glGlobalAlphaFactorsSUN (GLshort); -GLAPI void APIENTRY glGlobalAlphaFactoriSUN (GLint); -GLAPI void APIENTRY glGlobalAlphaFactorfSUN (GLfloat); -GLAPI void APIENTRY glGlobalAlphaFactordSUN (GLdouble); -GLAPI void APIENTRY glGlobalAlphaFactorubSUN (GLubyte); -GLAPI void APIENTRY glGlobalAlphaFactorusSUN (GLushort); -GLAPI void APIENTRY glGlobalAlphaFactoruiSUN (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORBSUNPROC) (GLbyte factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORSSUNPROC) (GLshort factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORISUNPROC) (GLint factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORFSUNPROC) (GLfloat factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORDSUNPROC) (GLdouble factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORUBSUNPROC) (GLubyte factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORUSSUNPROC) (GLushort factor); -typedef void (APIENTRYP PFNGLGLOBALALPHAFACTORUISUNPROC) (GLuint factor); -#endif - -#ifndef GL_SUN_triangle_list -#define GL_SUN_triangle_list 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glReplacementCodeuiSUN (GLuint); -GLAPI void APIENTRY glReplacementCodeusSUN (GLushort); -GLAPI void APIENTRY glReplacementCodeubSUN (GLubyte); -GLAPI void APIENTRY glReplacementCodeuivSUN (const GLuint *); -GLAPI void APIENTRY glReplacementCodeusvSUN (const GLushort *); -GLAPI void APIENTRY glReplacementCodeubvSUN (const GLubyte *); -GLAPI void APIENTRY glReplacementCodePointerSUN (GLenum, GLsizei, const GLvoid* *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUISUNPROC) (GLuint code); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUSSUNPROC) (GLushort code); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUBSUNPROC) (GLubyte code); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUIVSUNPROC) (const GLuint *code); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUSVSUNPROC) (const GLushort *code); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUBVSUNPROC) (const GLubyte *code); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEPOINTERSUNPROC) (GLenum type, GLsizei stride, const GLvoid* *pointer); -#endif - -#ifndef GL_SUN_vertex -#define GL_SUN_vertex 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColor4ubVertex2fSUN (GLubyte, GLubyte, GLubyte, GLubyte, GLfloat, GLfloat); -GLAPI void APIENTRY glColor4ubVertex2fvSUN (const GLubyte *, const GLfloat *); -GLAPI void APIENTRY glColor4ubVertex3fSUN (GLubyte, GLubyte, GLubyte, GLubyte, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glColor4ubVertex3fvSUN (const GLubyte *, const GLfloat *); -GLAPI void APIENTRY glColor3fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glColor3fVertex3fvSUN (const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glNormal3fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glNormal3fVertex3fvSUN (const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glColor4fNormal3fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glColor4fNormal3fVertex3fvSUN (const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glTexCoord2fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord2fVertex3fvSUN (const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glTexCoord4fVertex4fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord4fVertex4fvSUN (const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glTexCoord2fColor4ubVertex3fSUN (GLfloat, GLfloat, GLubyte, GLubyte, GLubyte, GLubyte, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord2fColor4ubVertex3fvSUN (const GLfloat *, const GLubyte *, const GLfloat *); -GLAPI void APIENTRY glTexCoord2fColor3fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord2fColor3fVertex3fvSUN (const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glTexCoord2fNormal3fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord2fNormal3fVertex3fvSUN (const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glTexCoord2fColor4fNormal3fVertex3fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord2fColor4fNormal3fVertex3fvSUN (const GLfloat *, const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glTexCoord4fColor4fNormal3fVertex4fSUN (GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glTexCoord4fColor4fNormal3fVertex4fvSUN (const GLfloat *, const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiVertex3fvSUN (const GLuint *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiColor4ubVertex3fSUN (GLuint, GLubyte, GLubyte, GLubyte, GLubyte, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiColor4ubVertex3fvSUN (const GLuint *, const GLubyte *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiColor3fVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiColor3fVertex3fvSUN (const GLuint *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiNormal3fVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiNormal3fVertex3fvSUN (const GLuint *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiColor4fNormal3fVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiColor4fNormal3fVertex3fvSUN (const GLuint *, const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiTexCoord2fVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiTexCoord2fVertex3fvSUN (const GLuint *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN (const GLuint *, const GLfloat *, const GLfloat *, const GLfloat *); -GLAPI void APIENTRY glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN (GLuint, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN (const GLuint *, const GLfloat *, const GLfloat *, const GLfloat *, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLOR4UBVERTEX2FSUNPROC) (GLubyte r, GLubyte g, GLubyte b, GLubyte a, GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLCOLOR4UBVERTEX2FVSUNPROC) (const GLubyte *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLCOLOR4UBVERTEX3FSUNPROC) (GLubyte r, GLubyte g, GLubyte b, GLubyte a, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLCOLOR4UBVERTEX3FVSUNPROC) (const GLubyte *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLCOLOR3FVERTEX3FSUNPROC) (GLfloat r, GLfloat g, GLfloat b, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLCOLOR3FVERTEX3FVSUNPROC) (const GLfloat *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLNORMAL3FVERTEX3FSUNPROC) (GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLNORMAL3FVERTEX3FVSUNPROC) (const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLCOLOR4FNORMAL3FVERTEX3FSUNPROC) (GLfloat r, GLfloat g, GLfloat b, GLfloat a, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLCOLOR4FNORMAL3FVERTEX3FVSUNPROC) (const GLfloat *c, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD2FVERTEX3FSUNPROC) (GLfloat s, GLfloat t, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLTEXCOORD2FVERTEX3FVSUNPROC) (const GLfloat *tc, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD4FVERTEX4FSUNPROC) (GLfloat s, GLfloat t, GLfloat p, GLfloat q, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLTEXCOORD4FVERTEX4FVSUNPROC) (const GLfloat *tc, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD2FCOLOR4UBVERTEX3FSUNPROC) (GLfloat s, GLfloat t, GLubyte r, GLubyte g, GLubyte b, GLubyte a, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLTEXCOORD2FCOLOR4UBVERTEX3FVSUNPROC) (const GLfloat *tc, const GLubyte *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD2FCOLOR3FVERTEX3FSUNPROC) (GLfloat s, GLfloat t, GLfloat r, GLfloat g, GLfloat b, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLTEXCOORD2FCOLOR3FVERTEX3FVSUNPROC) (const GLfloat *tc, const GLfloat *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD2FNORMAL3FVERTEX3FSUNPROC) (GLfloat s, GLfloat t, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLTEXCOORD2FNORMAL3FVERTEX3FVSUNPROC) (const GLfloat *tc, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD2FCOLOR4FNORMAL3FVERTEX3FSUNPROC) (GLfloat s, GLfloat t, GLfloat r, GLfloat g, GLfloat b, GLfloat a, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLTEXCOORD2FCOLOR4FNORMAL3FVERTEX3FVSUNPROC) (const GLfloat *tc, const GLfloat *c, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLTEXCOORD4FCOLOR4FNORMAL3FVERTEX4FSUNPROC) (GLfloat s, GLfloat t, GLfloat p, GLfloat q, GLfloat r, GLfloat g, GLfloat b, GLfloat a, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLTEXCOORD4FCOLOR4FNORMAL3FVERTEX4FVSUNPROC) (const GLfloat *tc, const GLfloat *c, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUIVERTEX3FSUNPROC) (GLuint rc, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUIVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUICOLOR4UBVERTEX3FSUNPROC) (GLuint rc, GLubyte r, GLubyte g, GLubyte b, GLubyte a, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUICOLOR4UBVERTEX3FVSUNPROC) (const GLuint *rc, const GLubyte *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUICOLOR3FVERTEX3FSUNPROC) (GLuint rc, GLfloat r, GLfloat g, GLfloat b, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUICOLOR3FVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *c, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUINORMAL3FVERTEX3FSUNPROC) (GLuint rc, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUINORMAL3FVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUICOLOR4FNORMAL3FVERTEX3FSUNPROC) (GLuint rc, GLfloat r, GLfloat g, GLfloat b, GLfloat a, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUICOLOR4FNORMAL3FVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *c, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUITEXCOORD2FVERTEX3FSUNPROC) (GLuint rc, GLfloat s, GLfloat t, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUITEXCOORD2FVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *tc, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUITEXCOORD2FNORMAL3FVERTEX3FSUNPROC) (GLuint rc, GLfloat s, GLfloat t, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUITEXCOORD2FNORMAL3FVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *tc, const GLfloat *n, const GLfloat *v); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUITEXCOORD2FCOLOR4FNORMAL3FVERTEX3FSUNPROC) (GLuint rc, GLfloat s, GLfloat t, GLfloat r, GLfloat g, GLfloat b, GLfloat a, GLfloat nx, GLfloat ny, GLfloat nz, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLREPLACEMENTCODEUITEXCOORD2FCOLOR4FNORMAL3FVERTEX3FVSUNPROC) (const GLuint *rc, const GLfloat *tc, const GLfloat *c, const GLfloat *n, const GLfloat *v); -#endif - -#ifndef GL_EXT_blend_func_separate -#define GL_EXT_blend_func_separate 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendFuncSeparateEXT (GLenum, GLenum, GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEEXTPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha); -#endif - -#ifndef GL_INGR_blend_func_separate -#define GL_INGR_blend_func_separate 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendFuncSeparateINGR (GLenum, GLenum, GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEINGRPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha); -#endif - -#ifndef GL_INGR_color_clamp -#define GL_INGR_color_clamp 1 -#endif - -#ifndef GL_INGR_interlace_read -#define GL_INGR_interlace_read 1 -#endif - -#ifndef GL_EXT_stencil_wrap -#define GL_EXT_stencil_wrap 1 -#endif - -#ifndef GL_EXT_422_pixels -#define GL_EXT_422_pixels 1 -#endif - -#ifndef GL_NV_texgen_reflection -#define GL_NV_texgen_reflection 1 -#endif - -#ifndef GL_SUN_convolution_border_modes -#define GL_SUN_convolution_border_modes 1 -#endif - -#ifndef GL_EXT_texture_env_add -#define GL_EXT_texture_env_add 1 -#endif - -#ifndef GL_EXT_texture_lod_bias -#define GL_EXT_texture_lod_bias 1 -#endif - -#ifndef GL_EXT_texture_filter_anisotropic -#define GL_EXT_texture_filter_anisotropic 1 -#endif - -#ifndef GL_EXT_vertex_weighting -#define GL_EXT_vertex_weighting 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexWeightfEXT (GLfloat); -GLAPI void APIENTRY glVertexWeightfvEXT (const GLfloat *); -GLAPI void APIENTRY glVertexWeightPointerEXT (GLsizei, GLenum, GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXWEIGHTFEXTPROC) (GLfloat weight); -typedef void (APIENTRYP PFNGLVERTEXWEIGHTFVEXTPROC) (const GLfloat *weight); -typedef void (APIENTRYP PFNGLVERTEXWEIGHTPOINTEREXTPROC) (GLsizei size, GLenum type, GLsizei stride, const GLvoid *pointer); -#endif - -#ifndef GL_NV_light_max_exponent -#define GL_NV_light_max_exponent 1 -#endif - -#ifndef GL_NV_vertex_array_range -#define GL_NV_vertex_array_range 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFlushVertexArrayRangeNV (void); -GLAPI void APIENTRY glVertexArrayRangeNV (GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFLUSHVERTEXARRAYRANGENVPROC) (void); -typedef void (APIENTRYP PFNGLVERTEXARRAYRANGENVPROC) (GLsizei length, const GLvoid *pointer); -#endif - -#ifndef GL_NV_register_combiners -#define GL_NV_register_combiners 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glCombinerParameterfvNV (GLenum, const GLfloat *); -GLAPI void APIENTRY glCombinerParameterfNV (GLenum, GLfloat); -GLAPI void APIENTRY glCombinerParameterivNV (GLenum, const GLint *); -GLAPI void APIENTRY glCombinerParameteriNV (GLenum, GLint); -GLAPI void APIENTRY glCombinerInputNV (GLenum, GLenum, GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glCombinerOutputNV (GLenum, GLenum, GLenum, GLenum, GLenum, GLenum, GLenum, GLboolean, GLboolean, GLboolean); -GLAPI void APIENTRY glFinalCombinerInputNV (GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glGetCombinerInputParameterfvNV (GLenum, GLenum, GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetCombinerInputParameterivNV (GLenum, GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetCombinerOutputParameterfvNV (GLenum, GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetCombinerOutputParameterivNV (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetFinalCombinerInputParameterfvNV (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetFinalCombinerInputParameterivNV (GLenum, GLenum, GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOMBINERPARAMETERFVNVPROC) (GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLCOMBINERPARAMETERFNVPROC) (GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLCOMBINERPARAMETERIVNVPROC) (GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLCOMBINERPARAMETERINVPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLCOMBINERINPUTNVPROC) (GLenum stage, GLenum portion, GLenum variable, GLenum input, GLenum mapping, GLenum componentUsage); -typedef void (APIENTRYP PFNGLCOMBINEROUTPUTNVPROC) (GLenum stage, GLenum portion, GLenum abOutput, GLenum cdOutput, GLenum sumOutput, GLenum scale, GLenum bias, GLboolean abDotProduct, GLboolean cdDotProduct, GLboolean muxSum); -typedef void (APIENTRYP PFNGLFINALCOMBINERINPUTNVPROC) (GLenum variable, GLenum input, GLenum mapping, GLenum componentUsage); -typedef void (APIENTRYP PFNGLGETCOMBINERINPUTPARAMETERFVNVPROC) (GLenum stage, GLenum portion, GLenum variable, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETCOMBINERINPUTPARAMETERIVNVPROC) (GLenum stage, GLenum portion, GLenum variable, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETCOMBINEROUTPUTPARAMETERFVNVPROC) (GLenum stage, GLenum portion, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETCOMBINEROUTPUTPARAMETERIVNVPROC) (GLenum stage, GLenum portion, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETFINALCOMBINERINPUTPARAMETERFVNVPROC) (GLenum variable, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETFINALCOMBINERINPUTPARAMETERIVNVPROC) (GLenum variable, GLenum pname, GLint *params); -#endif - -#ifndef GL_NV_fog_distance -#define GL_NV_fog_distance 1 -#endif - -#ifndef GL_NV_texgen_emboss -#define GL_NV_texgen_emboss 1 -#endif - -#ifndef GL_NV_blend_square -#define GL_NV_blend_square 1 -#endif - -#ifndef GL_NV_texture_env_combine4 -#define GL_NV_texture_env_combine4 1 -#endif - -#ifndef GL_MESA_resize_buffers -#define GL_MESA_resize_buffers 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glResizeBuffersMESA (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLRESIZEBUFFERSMESAPROC) (void); -#endif - -#ifndef GL_MESA_window_pos -#define GL_MESA_window_pos 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glWindowPos2dMESA (GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos2dvMESA (const GLdouble *); -GLAPI void APIENTRY glWindowPos2fMESA (GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos2fvMESA (const GLfloat *); -GLAPI void APIENTRY glWindowPos2iMESA (GLint, GLint); -GLAPI void APIENTRY glWindowPos2ivMESA (const GLint *); -GLAPI void APIENTRY glWindowPos2sMESA (GLshort, GLshort); -GLAPI void APIENTRY glWindowPos2svMESA (const GLshort *); -GLAPI void APIENTRY glWindowPos3dMESA (GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos3dvMESA (const GLdouble *); -GLAPI void APIENTRY glWindowPos3fMESA (GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos3fvMESA (const GLfloat *); -GLAPI void APIENTRY glWindowPos3iMESA (GLint, GLint, GLint); -GLAPI void APIENTRY glWindowPos3ivMESA (const GLint *); -GLAPI void APIENTRY glWindowPos3sMESA (GLshort, GLshort, GLshort); -GLAPI void APIENTRY glWindowPos3svMESA (const GLshort *); -GLAPI void APIENTRY glWindowPos4dMESA (GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glWindowPos4dvMESA (const GLdouble *); -GLAPI void APIENTRY glWindowPos4fMESA (GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glWindowPos4fvMESA (const GLfloat *); -GLAPI void APIENTRY glWindowPos4iMESA (GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glWindowPos4ivMESA (const GLint *); -GLAPI void APIENTRY glWindowPos4sMESA (GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glWindowPos4svMESA (const GLshort *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLWINDOWPOS2DMESAPROC) (GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLWINDOWPOS2DVMESAPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2FMESAPROC) (GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLWINDOWPOS2FVMESAPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2IMESAPROC) (GLint x, GLint y); -typedef void (APIENTRYP PFNGLWINDOWPOS2IVMESAPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS2SMESAPROC) (GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLWINDOWPOS2SVMESAPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3DMESAPROC) (GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLWINDOWPOS3DVMESAPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3FMESAPROC) (GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLWINDOWPOS3FVMESAPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3IMESAPROC) (GLint x, GLint y, GLint z); -typedef void (APIENTRYP PFNGLWINDOWPOS3IVMESAPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS3SMESAPROC) (GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLWINDOWPOS3SVMESAPROC) (const GLshort *v); -typedef void (APIENTRYP PFNGLWINDOWPOS4DMESAPROC) (GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLWINDOWPOS4DVMESAPROC) (const GLdouble *v); -typedef void (APIENTRYP PFNGLWINDOWPOS4FMESAPROC) (GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLWINDOWPOS4FVMESAPROC) (const GLfloat *v); -typedef void (APIENTRYP PFNGLWINDOWPOS4IMESAPROC) (GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLWINDOWPOS4IVMESAPROC) (const GLint *v); -typedef void (APIENTRYP PFNGLWINDOWPOS4SMESAPROC) (GLshort x, GLshort y, GLshort z, GLshort w); -typedef void (APIENTRYP PFNGLWINDOWPOS4SVMESAPROC) (const GLshort *v); -#endif - -#ifndef GL_IBM_cull_vertex -#define GL_IBM_cull_vertex 1 -#endif - -#ifndef GL_IBM_multimode_draw_arrays -#define GL_IBM_multimode_draw_arrays 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glMultiModeDrawArraysIBM (const GLenum *, const GLint *, const GLsizei *, GLsizei, GLint); -GLAPI void APIENTRY glMultiModeDrawElementsIBM (const GLenum *, const GLsizei *, GLenum, const GLvoid* const *, GLsizei, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLMULTIMODEDRAWARRAYSIBMPROC) (const GLenum *mode, const GLint *first, const GLsizei *count, GLsizei primcount, GLint modestride); -typedef void (APIENTRYP PFNGLMULTIMODEDRAWELEMENTSIBMPROC) (const GLenum *mode, const GLsizei *count, GLenum type, const GLvoid* const *indices, GLsizei primcount, GLint modestride); -#endif - -#ifndef GL_IBM_vertex_array_lists -#define GL_IBM_vertex_array_lists 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColorPointerListIBM (GLint, GLenum, GLint, const GLvoid* *, GLint); -GLAPI void APIENTRY glSecondaryColorPointerListIBM (GLint, GLenum, GLint, const GLvoid* *, GLint); -GLAPI void APIENTRY glEdgeFlagPointerListIBM (GLint, const GLboolean* *, GLint); -GLAPI void APIENTRY glFogCoordPointerListIBM (GLenum, GLint, const GLvoid* *, GLint); -GLAPI void APIENTRY glIndexPointerListIBM (GLenum, GLint, const GLvoid* *, GLint); -GLAPI void APIENTRY glNormalPointerListIBM (GLenum, GLint, const GLvoid* *, GLint); -GLAPI void APIENTRY glTexCoordPointerListIBM (GLint, GLenum, GLint, const GLvoid* *, GLint); -GLAPI void APIENTRY glVertexPointerListIBM (GLint, GLenum, GLint, const GLvoid* *, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLORPOINTERLISTIBMPROC) (GLint size, GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLSECONDARYCOLORPOINTERLISTIBMPROC) (GLint size, GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLEDGEFLAGPOINTERLISTIBMPROC) (GLint stride, const GLboolean* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLFOGCOORDPOINTERLISTIBMPROC) (GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLINDEXPOINTERLISTIBMPROC) (GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLNORMALPOINTERLISTIBMPROC) (GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLTEXCOORDPOINTERLISTIBMPROC) (GLint size, GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -typedef void (APIENTRYP PFNGLVERTEXPOINTERLISTIBMPROC) (GLint size, GLenum type, GLint stride, const GLvoid* *pointer, GLint ptrstride); -#endif - -#ifndef GL_SGIX_subsample -#define GL_SGIX_subsample 1 -#endif - -#ifndef GL_SGIX_ycrcba -#define GL_SGIX_ycrcba 1 -#endif - -#ifndef GL_SGIX_ycrcb_subsample -#define GL_SGIX_ycrcb_subsample 1 -#endif - -#ifndef GL_SGIX_depth_pass_instrument -#define GL_SGIX_depth_pass_instrument 1 -#endif - -#ifndef GL_3DFX_texture_compression_FXT1 -#define GL_3DFX_texture_compression_FXT1 1 -#endif - -#ifndef GL_3DFX_multisample -#define GL_3DFX_multisample 1 -#endif - -#ifndef GL_3DFX_tbuffer -#define GL_3DFX_tbuffer 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTbufferMask3DFX (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTBUFFERMASK3DFXPROC) (GLuint mask); -#endif - -#ifndef GL_EXT_multisample -#define GL_EXT_multisample 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glSampleMaskEXT (GLclampf, GLboolean); -GLAPI void APIENTRY glSamplePatternEXT (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSAMPLEMASKEXTPROC) (GLclampf value, GLboolean invert); -typedef void (APIENTRYP PFNGLSAMPLEPATTERNEXTPROC) (GLenum pattern); -#endif - -#ifndef GL_SGIX_vertex_preclip -#define GL_SGIX_vertex_preclip 1 -#endif - -#ifndef GL_SGIX_convolution_accuracy -#define GL_SGIX_convolution_accuracy 1 -#endif - -#ifndef GL_SGIX_resample -#define GL_SGIX_resample 1 -#endif - -#ifndef GL_SGIS_point_line_texgen -#define GL_SGIS_point_line_texgen 1 -#endif - -#ifndef GL_SGIS_texture_color_mask -#define GL_SGIS_texture_color_mask 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTextureColorMaskSGIS (GLboolean, GLboolean, GLboolean, GLboolean); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXTURECOLORMASKSGISPROC) (GLboolean red, GLboolean green, GLboolean blue, GLboolean alpha); -#endif - -#ifndef GL_SGIX_igloo_interface -#define GL_SGIX_igloo_interface 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glIglooInterfaceSGIX (GLenum, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLIGLOOINTERFACESGIXPROC) (GLenum pname, const GLvoid *params); -#endif - -#ifndef GL_EXT_texture_env_dot3 -#define GL_EXT_texture_env_dot3 1 -#endif - -#ifndef GL_ATI_texture_mirror_once -#define GL_ATI_texture_mirror_once 1 -#endif - -#ifndef GL_NV_fence -#define GL_NV_fence 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDeleteFencesNV (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenFencesNV (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsFenceNV (GLuint); -GLAPI GLboolean APIENTRY glTestFenceNV (GLuint); -GLAPI void APIENTRY glGetFenceivNV (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glFinishFenceNV (GLuint); -GLAPI void APIENTRY glSetFenceNV (GLuint, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDELETEFENCESNVPROC) (GLsizei n, const GLuint *fences); -typedef void (APIENTRYP PFNGLGENFENCESNVPROC) (GLsizei n, GLuint *fences); -typedef GLboolean (APIENTRYP PFNGLISFENCENVPROC) (GLuint fence); -typedef GLboolean (APIENTRYP PFNGLTESTFENCENVPROC) (GLuint fence); -typedef void (APIENTRYP PFNGLGETFENCEIVNVPROC) (GLuint fence, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLFINISHFENCENVPROC) (GLuint fence); -typedef void (APIENTRYP PFNGLSETFENCENVPROC) (GLuint fence, GLenum condition); -#endif - -#ifndef GL_NV_evaluators -#define GL_NV_evaluators 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glMapControlPointsNV (GLenum, GLuint, GLenum, GLsizei, GLsizei, GLint, GLint, GLboolean, const GLvoid *); -GLAPI void APIENTRY glMapParameterivNV (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glMapParameterfvNV (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glGetMapControlPointsNV (GLenum, GLuint, GLenum, GLsizei, GLsizei, GLboolean, GLvoid *); -GLAPI void APIENTRY glGetMapParameterivNV (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetMapParameterfvNV (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMapAttribParameterivNV (GLenum, GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetMapAttribParameterfvNV (GLenum, GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glEvalMapsNV (GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLMAPCONTROLPOINTSNVPROC) (GLenum target, GLuint index, GLenum type, GLsizei ustride, GLsizei vstride, GLint uorder, GLint vorder, GLboolean packed, const GLvoid *points); -typedef void (APIENTRYP PFNGLMAPPARAMETERIVNVPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLMAPPARAMETERFVNVPROC) (GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLGETMAPCONTROLPOINTSNVPROC) (GLenum target, GLuint index, GLenum type, GLsizei ustride, GLsizei vstride, GLboolean packed, GLvoid *points); -typedef void (APIENTRYP PFNGLGETMAPPARAMETERIVNVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMAPPARAMETERFVNVPROC) (GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMAPATTRIBPARAMETERIVNVPROC) (GLenum target, GLuint index, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMAPATTRIBPARAMETERFVNVPROC) (GLenum target, GLuint index, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLEVALMAPSNVPROC) (GLenum target, GLenum mode); -#endif - -#ifndef GL_NV_packed_depth_stencil -#define GL_NV_packed_depth_stencil 1 -#endif - -#ifndef GL_NV_register_combiners2 -#define GL_NV_register_combiners2 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glCombinerStageParameterfvNV (GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glGetCombinerStageParameterfvNV (GLenum, GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOMBINERSTAGEPARAMETERFVNVPROC) (GLenum stage, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLGETCOMBINERSTAGEPARAMETERFVNVPROC) (GLenum stage, GLenum pname, GLfloat *params); -#endif - -#ifndef GL_NV_texture_compression_vtc -#define GL_NV_texture_compression_vtc 1 -#endif - -#ifndef GL_NV_texture_rectangle -#define GL_NV_texture_rectangle 1 -#endif - -#ifndef GL_NV_texture_shader -#define GL_NV_texture_shader 1 -#endif - -#ifndef GL_NV_texture_shader2 -#define GL_NV_texture_shader2 1 -#endif - -#ifndef GL_NV_vertex_array_range2 -#define GL_NV_vertex_array_range2 1 -#endif - -#ifndef GL_NV_vertex_program -#define GL_NV_vertex_program 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLboolean APIENTRY glAreProgramsResidentNV (GLsizei, const GLuint *, GLboolean *); -GLAPI void APIENTRY glBindProgramNV (GLenum, GLuint); -GLAPI void APIENTRY glDeleteProgramsNV (GLsizei, const GLuint *); -GLAPI void APIENTRY glExecuteProgramNV (GLenum, GLuint, const GLfloat *); -GLAPI void APIENTRY glGenProgramsNV (GLsizei, GLuint *); -GLAPI void APIENTRY glGetProgramParameterdvNV (GLenum, GLuint, GLenum, GLdouble *); -GLAPI void APIENTRY glGetProgramParameterfvNV (GLenum, GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetProgramivNV (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetProgramStringNV (GLuint, GLenum, GLubyte *); -GLAPI void APIENTRY glGetTrackMatrixivNV (GLenum, GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVertexAttribdvNV (GLuint, GLenum, GLdouble *); -GLAPI void APIENTRY glGetVertexAttribfvNV (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetVertexAttribivNV (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVertexAttribPointervNV (GLuint, GLenum, GLvoid* *); -GLAPI GLboolean APIENTRY glIsProgramNV (GLuint); -GLAPI void APIENTRY glLoadProgramNV (GLenum, GLuint, GLsizei, const GLubyte *); -GLAPI void APIENTRY glProgramParameter4dNV (GLenum, GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glProgramParameter4dvNV (GLenum, GLuint, const GLdouble *); -GLAPI void APIENTRY glProgramParameter4fNV (GLenum, GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramParameter4fvNV (GLenum, GLuint, const GLfloat *); -GLAPI void APIENTRY glProgramParameters4dvNV (GLenum, GLuint, GLuint, const GLdouble *); -GLAPI void APIENTRY glProgramParameters4fvNV (GLenum, GLuint, GLuint, const GLfloat *); -GLAPI void APIENTRY glRequestResidentProgramsNV (GLsizei, const GLuint *); -GLAPI void APIENTRY glTrackMatrixNV (GLenum, GLuint, GLenum, GLenum); -GLAPI void APIENTRY glVertexAttribPointerNV (GLuint, GLint, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glVertexAttrib1dNV (GLuint, GLdouble); -GLAPI void APIENTRY glVertexAttrib1dvNV (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib1fNV (GLuint, GLfloat); -GLAPI void APIENTRY glVertexAttrib1fvNV (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib1sNV (GLuint, GLshort); -GLAPI void APIENTRY glVertexAttrib1svNV (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib2dNV (GLuint, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib2dvNV (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib2fNV (GLuint, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib2fvNV (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib2sNV (GLuint, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib2svNV (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib3dNV (GLuint, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib3dvNV (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib3fNV (GLuint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib3fvNV (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib3sNV (GLuint, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib3svNV (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4dNV (GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexAttrib4dvNV (GLuint, const GLdouble *); -GLAPI void APIENTRY glVertexAttrib4fNV (GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexAttrib4fvNV (GLuint, const GLfloat *); -GLAPI void APIENTRY glVertexAttrib4sNV (GLuint, GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexAttrib4svNV (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttrib4ubNV (GLuint, GLubyte, GLubyte, GLubyte, GLubyte); -GLAPI void APIENTRY glVertexAttrib4ubvNV (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttribs1dvNV (GLuint, GLsizei, const GLdouble *); -GLAPI void APIENTRY glVertexAttribs1fvNV (GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glVertexAttribs1svNV (GLuint, GLsizei, const GLshort *); -GLAPI void APIENTRY glVertexAttribs2dvNV (GLuint, GLsizei, const GLdouble *); -GLAPI void APIENTRY glVertexAttribs2fvNV (GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glVertexAttribs2svNV (GLuint, GLsizei, const GLshort *); -GLAPI void APIENTRY glVertexAttribs3dvNV (GLuint, GLsizei, const GLdouble *); -GLAPI void APIENTRY glVertexAttribs3fvNV (GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glVertexAttribs3svNV (GLuint, GLsizei, const GLshort *); -GLAPI void APIENTRY glVertexAttribs4dvNV (GLuint, GLsizei, const GLdouble *); -GLAPI void APIENTRY glVertexAttribs4fvNV (GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glVertexAttribs4svNV (GLuint, GLsizei, const GLshort *); -GLAPI void APIENTRY glVertexAttribs4ubvNV (GLuint, GLsizei, const GLubyte *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLboolean (APIENTRYP PFNGLAREPROGRAMSRESIDENTNVPROC) (GLsizei n, const GLuint *programs, GLboolean *residences); -typedef void (APIENTRYP PFNGLBINDPROGRAMNVPROC) (GLenum target, GLuint id); -typedef void (APIENTRYP PFNGLDELETEPROGRAMSNVPROC) (GLsizei n, const GLuint *programs); -typedef void (APIENTRYP PFNGLEXECUTEPROGRAMNVPROC) (GLenum target, GLuint id, const GLfloat *params); -typedef void (APIENTRYP PFNGLGENPROGRAMSNVPROC) (GLsizei n, GLuint *programs); -typedef void (APIENTRYP PFNGLGETPROGRAMPARAMETERDVNVPROC) (GLenum target, GLuint index, GLenum pname, GLdouble *params); -typedef void (APIENTRYP PFNGLGETPROGRAMPARAMETERFVNVPROC) (GLenum target, GLuint index, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETPROGRAMIVNVPROC) (GLuint id, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMSTRINGNVPROC) (GLuint id, GLenum pname, GLubyte *program); -typedef void (APIENTRYP PFNGLGETTRACKMATRIXIVNVPROC) (GLenum target, GLuint address, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBDVNVPROC) (GLuint index, GLenum pname, GLdouble *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBFVNVPROC) (GLuint index, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIVNVPROC) (GLuint index, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBPOINTERVNVPROC) (GLuint index, GLenum pname, GLvoid* *pointer); -typedef GLboolean (APIENTRYP PFNGLISPROGRAMNVPROC) (GLuint id); -typedef void (APIENTRYP PFNGLLOADPROGRAMNVPROC) (GLenum target, GLuint id, GLsizei len, const GLubyte *program); -typedef void (APIENTRYP PFNGLPROGRAMPARAMETER4DNVPROC) (GLenum target, GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLPROGRAMPARAMETER4DVNVPROC) (GLenum target, GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLPROGRAMPARAMETER4FNVPROC) (GLenum target, GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLPROGRAMPARAMETER4FVNVPROC) (GLenum target, GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLPROGRAMPARAMETERS4DVNVPROC) (GLenum target, GLuint index, GLuint count, const GLdouble *v); -typedef void (APIENTRYP PFNGLPROGRAMPARAMETERS4FVNVPROC) (GLenum target, GLuint index, GLuint count, const GLfloat *v); -typedef void (APIENTRYP PFNGLREQUESTRESIDENTPROGRAMSNVPROC) (GLsizei n, const GLuint *programs); -typedef void (APIENTRYP PFNGLTRACKMATRIXNVPROC) (GLenum target, GLuint address, GLenum matrix, GLenum transform); -typedef void (APIENTRYP PFNGLVERTEXATTRIBPOINTERNVPROC) (GLuint index, GLint fsize, GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1DNVPROC) (GLuint index, GLdouble x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1DVNVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1FNVPROC) (GLuint index, GLfloat x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1FVNVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1SNVPROC) (GLuint index, GLshort x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1SVNVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2DNVPROC) (GLuint index, GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2DVNVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2FNVPROC) (GLuint index, GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2FVNVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2SNVPROC) (GLuint index, GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2SVNVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3DNVPROC) (GLuint index, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3DVNVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3FNVPROC) (GLuint index, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3FVNVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3SNVPROC) (GLuint index, GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3SVNVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4DNVPROC) (GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4DVNVPROC) (GLuint index, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4FNVPROC) (GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4FVNVPROC) (GLuint index, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4SNVPROC) (GLuint index, GLshort x, GLshort y, GLshort z, GLshort w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4SVNVPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4UBNVPROC) (GLuint index, GLubyte x, GLubyte y, GLubyte z, GLubyte w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4UBVNVPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS1DVNVPROC) (GLuint index, GLsizei count, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS1FVNVPROC) (GLuint index, GLsizei count, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS1SVNVPROC) (GLuint index, GLsizei count, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS2DVNVPROC) (GLuint index, GLsizei count, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS2FVNVPROC) (GLuint index, GLsizei count, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS2SVNVPROC) (GLuint index, GLsizei count, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS3DVNVPROC) (GLuint index, GLsizei count, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS3FVNVPROC) (GLuint index, GLsizei count, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS3SVNVPROC) (GLuint index, GLsizei count, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS4DVNVPROC) (GLuint index, GLsizei count, const GLdouble *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS4FVNVPROC) (GLuint index, GLsizei count, const GLfloat *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS4SVNVPROC) (GLuint index, GLsizei count, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS4UBVNVPROC) (GLuint index, GLsizei count, const GLubyte *v); -#endif - -#ifndef GL_SGIX_texture_coordinate_clamp -#define GL_SGIX_texture_coordinate_clamp 1 -#endif - -#ifndef GL_SGIX_scalebias_hint -#define GL_SGIX_scalebias_hint 1 -#endif - -#ifndef GL_OML_interlace -#define GL_OML_interlace 1 -#endif - -#ifndef GL_OML_subsample -#define GL_OML_subsample 1 -#endif - -#ifndef GL_OML_resample -#define GL_OML_resample 1 -#endif - -#ifndef GL_NV_copy_depth_to_color -#define GL_NV_copy_depth_to_color 1 -#endif - -#ifndef GL_ATI_envmap_bumpmap -#define GL_ATI_envmap_bumpmap 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexBumpParameterivATI (GLenum, const GLint *); -GLAPI void APIENTRY glTexBumpParameterfvATI (GLenum, const GLfloat *); -GLAPI void APIENTRY glGetTexBumpParameterivATI (GLenum, GLint *); -GLAPI void APIENTRY glGetTexBumpParameterfvATI (GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXBUMPPARAMETERIVATIPROC) (GLenum pname, const GLint *param); -typedef void (APIENTRYP PFNGLTEXBUMPPARAMETERFVATIPROC) (GLenum pname, const GLfloat *param); -typedef void (APIENTRYP PFNGLGETTEXBUMPPARAMETERIVATIPROC) (GLenum pname, GLint *param); -typedef void (APIENTRYP PFNGLGETTEXBUMPPARAMETERFVATIPROC) (GLenum pname, GLfloat *param); -#endif - -#ifndef GL_ATI_fragment_shader -#define GL_ATI_fragment_shader 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLuint APIENTRY glGenFragmentShadersATI (GLuint); -GLAPI void APIENTRY glBindFragmentShaderATI (GLuint); -GLAPI void APIENTRY glDeleteFragmentShaderATI (GLuint); -GLAPI void APIENTRY glBeginFragmentShaderATI (void); -GLAPI void APIENTRY glEndFragmentShaderATI (void); -GLAPI void APIENTRY glPassTexCoordATI (GLuint, GLuint, GLenum); -GLAPI void APIENTRY glSampleMapATI (GLuint, GLuint, GLenum); -GLAPI void APIENTRY glColorFragmentOp1ATI (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glColorFragmentOp2ATI (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glColorFragmentOp3ATI (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glAlphaFragmentOp1ATI (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glAlphaFragmentOp2ATI (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glAlphaFragmentOp3ATI (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glSetFragmentShaderConstantATI (GLuint, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLuint (APIENTRYP PFNGLGENFRAGMENTSHADERSATIPROC) (GLuint range); -typedef void (APIENTRYP PFNGLBINDFRAGMENTSHADERATIPROC) (GLuint id); -typedef void (APIENTRYP PFNGLDELETEFRAGMENTSHADERATIPROC) (GLuint id); -typedef void (APIENTRYP PFNGLBEGINFRAGMENTSHADERATIPROC) (void); -typedef void (APIENTRYP PFNGLENDFRAGMENTSHADERATIPROC) (void); -typedef void (APIENTRYP PFNGLPASSTEXCOORDATIPROC) (GLuint dst, GLuint coord, GLenum swizzle); -typedef void (APIENTRYP PFNGLSAMPLEMAPATIPROC) (GLuint dst, GLuint interp, GLenum swizzle); -typedef void (APIENTRYP PFNGLCOLORFRAGMENTOP1ATIPROC) (GLenum op, GLuint dst, GLuint dstMask, GLuint dstMod, GLuint arg1, GLuint arg1Rep, GLuint arg1Mod); -typedef void (APIENTRYP PFNGLCOLORFRAGMENTOP2ATIPROC) (GLenum op, GLuint dst, GLuint dstMask, GLuint dstMod, GLuint arg1, GLuint arg1Rep, GLuint arg1Mod, GLuint arg2, GLuint arg2Rep, GLuint arg2Mod); -typedef void (APIENTRYP PFNGLCOLORFRAGMENTOP3ATIPROC) (GLenum op, GLuint dst, GLuint dstMask, GLuint dstMod, GLuint arg1, GLuint arg1Rep, GLuint arg1Mod, GLuint arg2, GLuint arg2Rep, GLuint arg2Mod, GLuint arg3, GLuint arg3Rep, GLuint arg3Mod); -typedef void (APIENTRYP PFNGLALPHAFRAGMENTOP1ATIPROC) (GLenum op, GLuint dst, GLuint dstMod, GLuint arg1, GLuint arg1Rep, GLuint arg1Mod); -typedef void (APIENTRYP PFNGLALPHAFRAGMENTOP2ATIPROC) (GLenum op, GLuint dst, GLuint dstMod, GLuint arg1, GLuint arg1Rep, GLuint arg1Mod, GLuint arg2, GLuint arg2Rep, GLuint arg2Mod); -typedef void (APIENTRYP PFNGLALPHAFRAGMENTOP3ATIPROC) (GLenum op, GLuint dst, GLuint dstMod, GLuint arg1, GLuint arg1Rep, GLuint arg1Mod, GLuint arg2, GLuint arg2Rep, GLuint arg2Mod, GLuint arg3, GLuint arg3Rep, GLuint arg3Mod); -typedef void (APIENTRYP PFNGLSETFRAGMENTSHADERCONSTANTATIPROC) (GLuint dst, const GLfloat *value); -#endif - -#ifndef GL_ATI_pn_triangles -#define GL_ATI_pn_triangles 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPNTrianglesiATI (GLenum, GLint); -GLAPI void APIENTRY glPNTrianglesfATI (GLenum, GLfloat); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPNTRIANGLESIATIPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLPNTRIANGLESFATIPROC) (GLenum pname, GLfloat param); -#endif - -#ifndef GL_ATI_vertex_array_object -#define GL_ATI_vertex_array_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLuint APIENTRY glNewObjectBufferATI (GLsizei, const GLvoid *, GLenum); -GLAPI GLboolean APIENTRY glIsObjectBufferATI (GLuint); -GLAPI void APIENTRY glUpdateObjectBufferATI (GLuint, GLuint, GLsizei, const GLvoid *, GLenum); -GLAPI void APIENTRY glGetObjectBufferfvATI (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetObjectBufferivATI (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glFreeObjectBufferATI (GLuint); -GLAPI void APIENTRY glArrayObjectATI (GLenum, GLint, GLenum, GLsizei, GLuint, GLuint); -GLAPI void APIENTRY glGetArrayObjectfvATI (GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetArrayObjectivATI (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glVariantArrayObjectATI (GLuint, GLenum, GLsizei, GLuint, GLuint); -GLAPI void APIENTRY glGetVariantArrayObjectfvATI (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetVariantArrayObjectivATI (GLuint, GLenum, GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLuint (APIENTRYP PFNGLNEWOBJECTBUFFERATIPROC) (GLsizei size, const GLvoid *pointer, GLenum usage); -typedef GLboolean (APIENTRYP PFNGLISOBJECTBUFFERATIPROC) (GLuint buffer); -typedef void (APIENTRYP PFNGLUPDATEOBJECTBUFFERATIPROC) (GLuint buffer, GLuint offset, GLsizei size, const GLvoid *pointer, GLenum preserve); -typedef void (APIENTRYP PFNGLGETOBJECTBUFFERFVATIPROC) (GLuint buffer, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETOBJECTBUFFERIVATIPROC) (GLuint buffer, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLFREEOBJECTBUFFERATIPROC) (GLuint buffer); -typedef void (APIENTRYP PFNGLARRAYOBJECTATIPROC) (GLenum array, GLint size, GLenum type, GLsizei stride, GLuint buffer, GLuint offset); -typedef void (APIENTRYP PFNGLGETARRAYOBJECTFVATIPROC) (GLenum array, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETARRAYOBJECTIVATIPROC) (GLenum array, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLVARIANTARRAYOBJECTATIPROC) (GLuint id, GLenum type, GLsizei stride, GLuint buffer, GLuint offset); -typedef void (APIENTRYP PFNGLGETVARIANTARRAYOBJECTFVATIPROC) (GLuint id, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETVARIANTARRAYOBJECTIVATIPROC) (GLuint id, GLenum pname, GLint *params); -#endif - -#ifndef GL_EXT_vertex_shader -#define GL_EXT_vertex_shader 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBeginVertexShaderEXT (void); -GLAPI void APIENTRY glEndVertexShaderEXT (void); -GLAPI void APIENTRY glBindVertexShaderEXT (GLuint); -GLAPI GLuint APIENTRY glGenVertexShadersEXT (GLuint); -GLAPI void APIENTRY glDeleteVertexShaderEXT (GLuint); -GLAPI void APIENTRY glShaderOp1EXT (GLenum, GLuint, GLuint); -GLAPI void APIENTRY glShaderOp2EXT (GLenum, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glShaderOp3EXT (GLenum, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glSwizzleEXT (GLuint, GLuint, GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glWriteMaskEXT (GLuint, GLuint, GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glInsertComponentEXT (GLuint, GLuint, GLuint); -GLAPI void APIENTRY glExtractComponentEXT (GLuint, GLuint, GLuint); -GLAPI GLuint APIENTRY glGenSymbolsEXT (GLenum, GLenum, GLenum, GLuint); -GLAPI void APIENTRY glSetInvariantEXT (GLuint, GLenum, const GLvoid *); -GLAPI void APIENTRY glSetLocalConstantEXT (GLuint, GLenum, const GLvoid *); -GLAPI void APIENTRY glVariantbvEXT (GLuint, const GLbyte *); -GLAPI void APIENTRY glVariantsvEXT (GLuint, const GLshort *); -GLAPI void APIENTRY glVariantivEXT (GLuint, const GLint *); -GLAPI void APIENTRY glVariantfvEXT (GLuint, const GLfloat *); -GLAPI void APIENTRY glVariantdvEXT (GLuint, const GLdouble *); -GLAPI void APIENTRY glVariantubvEXT (GLuint, const GLubyte *); -GLAPI void APIENTRY glVariantusvEXT (GLuint, const GLushort *); -GLAPI void APIENTRY glVariantuivEXT (GLuint, const GLuint *); -GLAPI void APIENTRY glVariantPointerEXT (GLuint, GLenum, GLuint, const GLvoid *); -GLAPI void APIENTRY glEnableVariantClientStateEXT (GLuint); -GLAPI void APIENTRY glDisableVariantClientStateEXT (GLuint); -GLAPI GLuint APIENTRY glBindLightParameterEXT (GLenum, GLenum); -GLAPI GLuint APIENTRY glBindMaterialParameterEXT (GLenum, GLenum); -GLAPI GLuint APIENTRY glBindTexGenParameterEXT (GLenum, GLenum, GLenum); -GLAPI GLuint APIENTRY glBindTextureUnitParameterEXT (GLenum, GLenum); -GLAPI GLuint APIENTRY glBindParameterEXT (GLenum); -GLAPI GLboolean APIENTRY glIsVariantEnabledEXT (GLuint, GLenum); -GLAPI void APIENTRY glGetVariantBooleanvEXT (GLuint, GLenum, GLboolean *); -GLAPI void APIENTRY glGetVariantIntegervEXT (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVariantFloatvEXT (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetVariantPointervEXT (GLuint, GLenum, GLvoid* *); -GLAPI void APIENTRY glGetInvariantBooleanvEXT (GLuint, GLenum, GLboolean *); -GLAPI void APIENTRY glGetInvariantIntegervEXT (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetInvariantFloatvEXT (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetLocalConstantBooleanvEXT (GLuint, GLenum, GLboolean *); -GLAPI void APIENTRY glGetLocalConstantIntegervEXT (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetLocalConstantFloatvEXT (GLuint, GLenum, GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBEGINVERTEXSHADEREXTPROC) (void); -typedef void (APIENTRYP PFNGLENDVERTEXSHADEREXTPROC) (void); -typedef void (APIENTRYP PFNGLBINDVERTEXSHADEREXTPROC) (GLuint id); -typedef GLuint (APIENTRYP PFNGLGENVERTEXSHADERSEXTPROC) (GLuint range); -typedef void (APIENTRYP PFNGLDELETEVERTEXSHADEREXTPROC) (GLuint id); -typedef void (APIENTRYP PFNGLSHADEROP1EXTPROC) (GLenum op, GLuint res, GLuint arg1); -typedef void (APIENTRYP PFNGLSHADEROP2EXTPROC) (GLenum op, GLuint res, GLuint arg1, GLuint arg2); -typedef void (APIENTRYP PFNGLSHADEROP3EXTPROC) (GLenum op, GLuint res, GLuint arg1, GLuint arg2, GLuint arg3); -typedef void (APIENTRYP PFNGLSWIZZLEEXTPROC) (GLuint res, GLuint in, GLenum outX, GLenum outY, GLenum outZ, GLenum outW); -typedef void (APIENTRYP PFNGLWRITEMASKEXTPROC) (GLuint res, GLuint in, GLenum outX, GLenum outY, GLenum outZ, GLenum outW); -typedef void (APIENTRYP PFNGLINSERTCOMPONENTEXTPROC) (GLuint res, GLuint src, GLuint num); -typedef void (APIENTRYP PFNGLEXTRACTCOMPONENTEXTPROC) (GLuint res, GLuint src, GLuint num); -typedef GLuint (APIENTRYP PFNGLGENSYMBOLSEXTPROC) (GLenum datatype, GLenum storagetype, GLenum range, GLuint components); -typedef void (APIENTRYP PFNGLSETINVARIANTEXTPROC) (GLuint id, GLenum type, const GLvoid *addr); -typedef void (APIENTRYP PFNGLSETLOCALCONSTANTEXTPROC) (GLuint id, GLenum type, const GLvoid *addr); -typedef void (APIENTRYP PFNGLVARIANTBVEXTPROC) (GLuint id, const GLbyte *addr); -typedef void (APIENTRYP PFNGLVARIANTSVEXTPROC) (GLuint id, const GLshort *addr); -typedef void (APIENTRYP PFNGLVARIANTIVEXTPROC) (GLuint id, const GLint *addr); -typedef void (APIENTRYP PFNGLVARIANTFVEXTPROC) (GLuint id, const GLfloat *addr); -typedef void (APIENTRYP PFNGLVARIANTDVEXTPROC) (GLuint id, const GLdouble *addr); -typedef void (APIENTRYP PFNGLVARIANTUBVEXTPROC) (GLuint id, const GLubyte *addr); -typedef void (APIENTRYP PFNGLVARIANTUSVEXTPROC) (GLuint id, const GLushort *addr); -typedef void (APIENTRYP PFNGLVARIANTUIVEXTPROC) (GLuint id, const GLuint *addr); -typedef void (APIENTRYP PFNGLVARIANTPOINTEREXTPROC) (GLuint id, GLenum type, GLuint stride, const GLvoid *addr); -typedef void (APIENTRYP PFNGLENABLEVARIANTCLIENTSTATEEXTPROC) (GLuint id); -typedef void (APIENTRYP PFNGLDISABLEVARIANTCLIENTSTATEEXTPROC) (GLuint id); -typedef GLuint (APIENTRYP PFNGLBINDLIGHTPARAMETEREXTPROC) (GLenum light, GLenum value); -typedef GLuint (APIENTRYP PFNGLBINDMATERIALPARAMETEREXTPROC) (GLenum face, GLenum value); -typedef GLuint (APIENTRYP PFNGLBINDTEXGENPARAMETEREXTPROC) (GLenum unit, GLenum coord, GLenum value); -typedef GLuint (APIENTRYP PFNGLBINDTEXTUREUNITPARAMETEREXTPROC) (GLenum unit, GLenum value); -typedef GLuint (APIENTRYP PFNGLBINDPARAMETEREXTPROC) (GLenum value); -typedef GLboolean (APIENTRYP PFNGLISVARIANTENABLEDEXTPROC) (GLuint id, GLenum cap); -typedef void (APIENTRYP PFNGLGETVARIANTBOOLEANVEXTPROC) (GLuint id, GLenum value, GLboolean *data); -typedef void (APIENTRYP PFNGLGETVARIANTINTEGERVEXTPROC) (GLuint id, GLenum value, GLint *data); -typedef void (APIENTRYP PFNGLGETVARIANTFLOATVEXTPROC) (GLuint id, GLenum value, GLfloat *data); -typedef void (APIENTRYP PFNGLGETVARIANTPOINTERVEXTPROC) (GLuint id, GLenum value, GLvoid* *data); -typedef void (APIENTRYP PFNGLGETINVARIANTBOOLEANVEXTPROC) (GLuint id, GLenum value, GLboolean *data); -typedef void (APIENTRYP PFNGLGETINVARIANTINTEGERVEXTPROC) (GLuint id, GLenum value, GLint *data); -typedef void (APIENTRYP PFNGLGETINVARIANTFLOATVEXTPROC) (GLuint id, GLenum value, GLfloat *data); -typedef void (APIENTRYP PFNGLGETLOCALCONSTANTBOOLEANVEXTPROC) (GLuint id, GLenum value, GLboolean *data); -typedef void (APIENTRYP PFNGLGETLOCALCONSTANTINTEGERVEXTPROC) (GLuint id, GLenum value, GLint *data); -typedef void (APIENTRYP PFNGLGETLOCALCONSTANTFLOATVEXTPROC) (GLuint id, GLenum value, GLfloat *data); -#endif - -#ifndef GL_ATI_vertex_streams -#define GL_ATI_vertex_streams 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexStream1sATI (GLenum, GLshort); -GLAPI void APIENTRY glVertexStream1svATI (GLenum, const GLshort *); -GLAPI void APIENTRY glVertexStream1iATI (GLenum, GLint); -GLAPI void APIENTRY glVertexStream1ivATI (GLenum, const GLint *); -GLAPI void APIENTRY glVertexStream1fATI (GLenum, GLfloat); -GLAPI void APIENTRY glVertexStream1fvATI (GLenum, const GLfloat *); -GLAPI void APIENTRY glVertexStream1dATI (GLenum, GLdouble); -GLAPI void APIENTRY glVertexStream1dvATI (GLenum, const GLdouble *); -GLAPI void APIENTRY glVertexStream2sATI (GLenum, GLshort, GLshort); -GLAPI void APIENTRY glVertexStream2svATI (GLenum, const GLshort *); -GLAPI void APIENTRY glVertexStream2iATI (GLenum, GLint, GLint); -GLAPI void APIENTRY glVertexStream2ivATI (GLenum, const GLint *); -GLAPI void APIENTRY glVertexStream2fATI (GLenum, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexStream2fvATI (GLenum, const GLfloat *); -GLAPI void APIENTRY glVertexStream2dATI (GLenum, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexStream2dvATI (GLenum, const GLdouble *); -GLAPI void APIENTRY glVertexStream3sATI (GLenum, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexStream3svATI (GLenum, const GLshort *); -GLAPI void APIENTRY glVertexStream3iATI (GLenum, GLint, GLint, GLint); -GLAPI void APIENTRY glVertexStream3ivATI (GLenum, const GLint *); -GLAPI void APIENTRY glVertexStream3fATI (GLenum, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexStream3fvATI (GLenum, const GLfloat *); -GLAPI void APIENTRY glVertexStream3dATI (GLenum, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexStream3dvATI (GLenum, const GLdouble *); -GLAPI void APIENTRY glVertexStream4sATI (GLenum, GLshort, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glVertexStream4svATI (GLenum, const GLshort *); -GLAPI void APIENTRY glVertexStream4iATI (GLenum, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glVertexStream4ivATI (GLenum, const GLint *); -GLAPI void APIENTRY glVertexStream4fATI (GLenum, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glVertexStream4fvATI (GLenum, const GLfloat *); -GLAPI void APIENTRY glVertexStream4dATI (GLenum, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glVertexStream4dvATI (GLenum, const GLdouble *); -GLAPI void APIENTRY glNormalStream3bATI (GLenum, GLbyte, GLbyte, GLbyte); -GLAPI void APIENTRY glNormalStream3bvATI (GLenum, const GLbyte *); -GLAPI void APIENTRY glNormalStream3sATI (GLenum, GLshort, GLshort, GLshort); -GLAPI void APIENTRY glNormalStream3svATI (GLenum, const GLshort *); -GLAPI void APIENTRY glNormalStream3iATI (GLenum, GLint, GLint, GLint); -GLAPI void APIENTRY glNormalStream3ivATI (GLenum, const GLint *); -GLAPI void APIENTRY glNormalStream3fATI (GLenum, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glNormalStream3fvATI (GLenum, const GLfloat *); -GLAPI void APIENTRY glNormalStream3dATI (GLenum, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glNormalStream3dvATI (GLenum, const GLdouble *); -GLAPI void APIENTRY glClientActiveVertexStreamATI (GLenum); -GLAPI void APIENTRY glVertexBlendEnviATI (GLenum, GLint); -GLAPI void APIENTRY glVertexBlendEnvfATI (GLenum, GLfloat); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXSTREAM1SATIPROC) (GLenum stream, GLshort x); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1SVATIPROC) (GLenum stream, const GLshort *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1IATIPROC) (GLenum stream, GLint x); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1IVATIPROC) (GLenum stream, const GLint *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1FATIPROC) (GLenum stream, GLfloat x); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1FVATIPROC) (GLenum stream, const GLfloat *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1DATIPROC) (GLenum stream, GLdouble x); -typedef void (APIENTRYP PFNGLVERTEXSTREAM1DVATIPROC) (GLenum stream, const GLdouble *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2SATIPROC) (GLenum stream, GLshort x, GLshort y); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2SVATIPROC) (GLenum stream, const GLshort *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2IATIPROC) (GLenum stream, GLint x, GLint y); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2IVATIPROC) (GLenum stream, const GLint *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2FATIPROC) (GLenum stream, GLfloat x, GLfloat y); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2FVATIPROC) (GLenum stream, const GLfloat *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2DATIPROC) (GLenum stream, GLdouble x, GLdouble y); -typedef void (APIENTRYP PFNGLVERTEXSTREAM2DVATIPROC) (GLenum stream, const GLdouble *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3SATIPROC) (GLenum stream, GLshort x, GLshort y, GLshort z); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3SVATIPROC) (GLenum stream, const GLshort *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3IATIPROC) (GLenum stream, GLint x, GLint y, GLint z); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3IVATIPROC) (GLenum stream, const GLint *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3FATIPROC) (GLenum stream, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3FVATIPROC) (GLenum stream, const GLfloat *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3DATIPROC) (GLenum stream, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLVERTEXSTREAM3DVATIPROC) (GLenum stream, const GLdouble *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4SATIPROC) (GLenum stream, GLshort x, GLshort y, GLshort z, GLshort w); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4SVATIPROC) (GLenum stream, const GLshort *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4IATIPROC) (GLenum stream, GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4IVATIPROC) (GLenum stream, const GLint *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4FATIPROC) (GLenum stream, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4FVATIPROC) (GLenum stream, const GLfloat *coords); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4DATIPROC) (GLenum stream, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLVERTEXSTREAM4DVATIPROC) (GLenum stream, const GLdouble *coords); -typedef void (APIENTRYP PFNGLNORMALSTREAM3BATIPROC) (GLenum stream, GLbyte nx, GLbyte ny, GLbyte nz); -typedef void (APIENTRYP PFNGLNORMALSTREAM3BVATIPROC) (GLenum stream, const GLbyte *coords); -typedef void (APIENTRYP PFNGLNORMALSTREAM3SATIPROC) (GLenum stream, GLshort nx, GLshort ny, GLshort nz); -typedef void (APIENTRYP PFNGLNORMALSTREAM3SVATIPROC) (GLenum stream, const GLshort *coords); -typedef void (APIENTRYP PFNGLNORMALSTREAM3IATIPROC) (GLenum stream, GLint nx, GLint ny, GLint nz); -typedef void (APIENTRYP PFNGLNORMALSTREAM3IVATIPROC) (GLenum stream, const GLint *coords); -typedef void (APIENTRYP PFNGLNORMALSTREAM3FATIPROC) (GLenum stream, GLfloat nx, GLfloat ny, GLfloat nz); -typedef void (APIENTRYP PFNGLNORMALSTREAM3FVATIPROC) (GLenum stream, const GLfloat *coords); -typedef void (APIENTRYP PFNGLNORMALSTREAM3DATIPROC) (GLenum stream, GLdouble nx, GLdouble ny, GLdouble nz); -typedef void (APIENTRYP PFNGLNORMALSTREAM3DVATIPROC) (GLenum stream, const GLdouble *coords); -typedef void (APIENTRYP PFNGLCLIENTACTIVEVERTEXSTREAMATIPROC) (GLenum stream); -typedef void (APIENTRYP PFNGLVERTEXBLENDENVIATIPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLVERTEXBLENDENVFATIPROC) (GLenum pname, GLfloat param); -#endif - -#ifndef GL_ATI_element_array -#define GL_ATI_element_array 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glElementPointerATI (GLenum, const GLvoid *); -GLAPI void APIENTRY glDrawElementArrayATI (GLenum, GLsizei); -GLAPI void APIENTRY glDrawRangeElementArrayATI (GLenum, GLuint, GLuint, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLELEMENTPOINTERATIPROC) (GLenum type, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLDRAWELEMENTARRAYATIPROC) (GLenum mode, GLsizei count); -typedef void (APIENTRYP PFNGLDRAWRANGEELEMENTARRAYATIPROC) (GLenum mode, GLuint start, GLuint end, GLsizei count); -#endif - -#ifndef GL_SUN_mesh_array -#define GL_SUN_mesh_array 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDrawMeshArraysSUN (GLenum, GLint, GLsizei, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDRAWMESHARRAYSSUNPROC) (GLenum mode, GLint first, GLsizei count, GLsizei width); -#endif - -#ifndef GL_SUN_slice_accum -#define GL_SUN_slice_accum 1 -#endif - -#ifndef GL_NV_multisample_filter_hint -#define GL_NV_multisample_filter_hint 1 -#endif - -#ifndef GL_NV_depth_clamp -#define GL_NV_depth_clamp 1 -#endif - -#ifndef GL_NV_occlusion_query -#define GL_NV_occlusion_query 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGenOcclusionQueriesNV (GLsizei, GLuint *); -GLAPI void APIENTRY glDeleteOcclusionQueriesNV (GLsizei, const GLuint *); -GLAPI GLboolean APIENTRY glIsOcclusionQueryNV (GLuint); -GLAPI void APIENTRY glBeginOcclusionQueryNV (GLuint); -GLAPI void APIENTRY glEndOcclusionQueryNV (void); -GLAPI void APIENTRY glGetOcclusionQueryivNV (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetOcclusionQueryuivNV (GLuint, GLenum, GLuint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGENOCCLUSIONQUERIESNVPROC) (GLsizei n, GLuint *ids); -typedef void (APIENTRYP PFNGLDELETEOCCLUSIONQUERIESNVPROC) (GLsizei n, const GLuint *ids); -typedef GLboolean (APIENTRYP PFNGLISOCCLUSIONQUERYNVPROC) (GLuint id); -typedef void (APIENTRYP PFNGLBEGINOCCLUSIONQUERYNVPROC) (GLuint id); -typedef void (APIENTRYP PFNGLENDOCCLUSIONQUERYNVPROC) (void); -typedef void (APIENTRYP PFNGLGETOCCLUSIONQUERYIVNVPROC) (GLuint id, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETOCCLUSIONQUERYUIVNVPROC) (GLuint id, GLenum pname, GLuint *params); -#endif - -#ifndef GL_NV_point_sprite -#define GL_NV_point_sprite 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPointParameteriNV (GLenum, GLint); -GLAPI void APIENTRY glPointParameterivNV (GLenum, const GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPOINTPARAMETERINVPROC) (GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLPOINTPARAMETERIVNVPROC) (GLenum pname, const GLint *params); -#endif - -#ifndef GL_NV_texture_shader3 -#define GL_NV_texture_shader3 1 -#endif - -#ifndef GL_NV_vertex_program1_1 -#define GL_NV_vertex_program1_1 1 -#endif - -#ifndef GL_EXT_shadow_funcs -#define GL_EXT_shadow_funcs 1 -#endif - -#ifndef GL_EXT_stencil_two_side -#define GL_EXT_stencil_two_side 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glActiveStencilFaceEXT (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLACTIVESTENCILFACEEXTPROC) (GLenum face); -#endif - -#ifndef GL_ATI_text_fragment_shader -#define GL_ATI_text_fragment_shader 1 -#endif - -#ifndef GL_APPLE_client_storage -#define GL_APPLE_client_storage 1 -#endif - -#ifndef GL_APPLE_element_array -#define GL_APPLE_element_array 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glElementPointerAPPLE (GLenum, const GLvoid *); -GLAPI void APIENTRY glDrawElementArrayAPPLE (GLenum, GLint, GLsizei); -GLAPI void APIENTRY glDrawRangeElementArrayAPPLE (GLenum, GLuint, GLuint, GLint, GLsizei); -GLAPI void APIENTRY glMultiDrawElementArrayAPPLE (GLenum, const GLint *, const GLsizei *, GLsizei); -GLAPI void APIENTRY glMultiDrawRangeElementArrayAPPLE (GLenum, GLuint, GLuint, const GLint *, const GLsizei *, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLELEMENTPOINTERAPPLEPROC) (GLenum type, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLDRAWELEMENTARRAYAPPLEPROC) (GLenum mode, GLint first, GLsizei count); -typedef void (APIENTRYP PFNGLDRAWRANGEELEMENTARRAYAPPLEPROC) (GLenum mode, GLuint start, GLuint end, GLint first, GLsizei count); -typedef void (APIENTRYP PFNGLMULTIDRAWELEMENTARRAYAPPLEPROC) (GLenum mode, const GLint *first, const GLsizei *count, GLsizei primcount); -typedef void (APIENTRYP PFNGLMULTIDRAWRANGEELEMENTARRAYAPPLEPROC) (GLenum mode, GLuint start, GLuint end, const GLint *first, const GLsizei *count, GLsizei primcount); -#endif - -#ifndef GL_APPLE_fence -#define GL_APPLE_fence 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGenFencesAPPLE (GLsizei, GLuint *); -GLAPI void APIENTRY glDeleteFencesAPPLE (GLsizei, const GLuint *); -GLAPI void APIENTRY glSetFenceAPPLE (GLuint); -GLAPI GLboolean APIENTRY glIsFenceAPPLE (GLuint); -GLAPI GLboolean APIENTRY glTestFenceAPPLE (GLuint); -GLAPI void APIENTRY glFinishFenceAPPLE (GLuint); -GLAPI GLboolean APIENTRY glTestObjectAPPLE (GLenum, GLuint); -GLAPI void APIENTRY glFinishObjectAPPLE (GLenum, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGENFENCESAPPLEPROC) (GLsizei n, GLuint *fences); -typedef void (APIENTRYP PFNGLDELETEFENCESAPPLEPROC) (GLsizei n, const GLuint *fences); -typedef void (APIENTRYP PFNGLSETFENCEAPPLEPROC) (GLuint fence); -typedef GLboolean (APIENTRYP PFNGLISFENCEAPPLEPROC) (GLuint fence); -typedef GLboolean (APIENTRYP PFNGLTESTFENCEAPPLEPROC) (GLuint fence); -typedef void (APIENTRYP PFNGLFINISHFENCEAPPLEPROC) (GLuint fence); -typedef GLboolean (APIENTRYP PFNGLTESTOBJECTAPPLEPROC) (GLenum object, GLuint name); -typedef void (APIENTRYP PFNGLFINISHOBJECTAPPLEPROC) (GLenum object, GLint name); -#endif - -#ifndef GL_APPLE_vertex_array_object -#define GL_APPLE_vertex_array_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBindVertexArrayAPPLE (GLuint); -GLAPI void APIENTRY glDeleteVertexArraysAPPLE (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenVertexArraysAPPLE (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsVertexArrayAPPLE (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBINDVERTEXARRAYAPPLEPROC) (GLuint array); -typedef void (APIENTRYP PFNGLDELETEVERTEXARRAYSAPPLEPROC) (GLsizei n, const GLuint *arrays); -typedef void (APIENTRYP PFNGLGENVERTEXARRAYSAPPLEPROC) (GLsizei n, GLuint *arrays); -typedef GLboolean (APIENTRYP PFNGLISVERTEXARRAYAPPLEPROC) (GLuint array); -#endif - -#ifndef GL_APPLE_vertex_array_range -#define GL_APPLE_vertex_array_range 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexArrayRangeAPPLE (GLsizei, GLvoid *); -GLAPI void APIENTRY glFlushVertexArrayRangeAPPLE (GLsizei, GLvoid *); -GLAPI void APIENTRY glVertexArrayParameteriAPPLE (GLenum, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXARRAYRANGEAPPLEPROC) (GLsizei length, GLvoid *pointer); -typedef void (APIENTRYP PFNGLFLUSHVERTEXARRAYRANGEAPPLEPROC) (GLsizei length, GLvoid *pointer); -typedef void (APIENTRYP PFNGLVERTEXARRAYPARAMETERIAPPLEPROC) (GLenum pname, GLint param); -#endif - -#ifndef GL_APPLE_ycbcr_422 -#define GL_APPLE_ycbcr_422 1 -#endif - -#ifndef GL_S3_s3tc -#define GL_S3_s3tc 1 -#endif - -#ifndef GL_ATI_draw_buffers -#define GL_ATI_draw_buffers 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDrawBuffersATI (GLsizei, const GLenum *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDRAWBUFFERSATIPROC) (GLsizei n, const GLenum *bufs); -#endif - -#ifndef GL_ATI_pixel_format_float -#define GL_ATI_pixel_format_float 1 -/* This is really a WGL extension, but defines some associated GL enums. - * ATI does not export "GL_ATI_pixel_format_float" in the GL_EXTENSIONS string. - */ -#endif - -#ifndef GL_ATI_texture_env_combine3 -#define GL_ATI_texture_env_combine3 1 -#endif - -#ifndef GL_ATI_texture_float -#define GL_ATI_texture_float 1 -#endif - -#ifndef GL_NV_float_buffer -#define GL_NV_float_buffer 1 -#endif - -#ifndef GL_NV_fragment_program -#define GL_NV_fragment_program 1 -/* Some NV_fragment_program entry points are shared with ARB_vertex_program. */ -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramNamedParameter4fNV (GLuint, GLsizei, const GLubyte *, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramNamedParameter4dNV (GLuint, GLsizei, const GLubyte *, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glProgramNamedParameter4fvNV (GLuint, GLsizei, const GLubyte *, const GLfloat *); -GLAPI void APIENTRY glProgramNamedParameter4dvNV (GLuint, GLsizei, const GLubyte *, const GLdouble *); -GLAPI void APIENTRY glGetProgramNamedParameterfvNV (GLuint, GLsizei, const GLubyte *, GLfloat *); -GLAPI void APIENTRY glGetProgramNamedParameterdvNV (GLuint, GLsizei, const GLubyte *, GLdouble *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMNAMEDPARAMETER4FNVPROC) (GLuint id, GLsizei len, const GLubyte *name, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLPROGRAMNAMEDPARAMETER4DNVPROC) (GLuint id, GLsizei len, const GLubyte *name, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLPROGRAMNAMEDPARAMETER4FVNVPROC) (GLuint id, GLsizei len, const GLubyte *name, const GLfloat *v); -typedef void (APIENTRYP PFNGLPROGRAMNAMEDPARAMETER4DVNVPROC) (GLuint id, GLsizei len, const GLubyte *name, const GLdouble *v); -typedef void (APIENTRYP PFNGLGETPROGRAMNAMEDPARAMETERFVNVPROC) (GLuint id, GLsizei len, const GLubyte *name, GLfloat *params); -typedef void (APIENTRYP PFNGLGETPROGRAMNAMEDPARAMETERDVNVPROC) (GLuint id, GLsizei len, const GLubyte *name, GLdouble *params); -#endif - -#ifndef GL_NV_half_float -#define GL_NV_half_float 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertex2hNV (GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glVertex2hvNV (const GLhalfNV *); -GLAPI void APIENTRY glVertex3hNV (GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glVertex3hvNV (const GLhalfNV *); -GLAPI void APIENTRY glVertex4hNV (GLhalfNV, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glVertex4hvNV (const GLhalfNV *); -GLAPI void APIENTRY glNormal3hNV (GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glNormal3hvNV (const GLhalfNV *); -GLAPI void APIENTRY glColor3hNV (GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glColor3hvNV (const GLhalfNV *); -GLAPI void APIENTRY glColor4hNV (GLhalfNV, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glColor4hvNV (const GLhalfNV *); -GLAPI void APIENTRY glTexCoord1hNV (GLhalfNV); -GLAPI void APIENTRY glTexCoord1hvNV (const GLhalfNV *); -GLAPI void APIENTRY glTexCoord2hNV (GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glTexCoord2hvNV (const GLhalfNV *); -GLAPI void APIENTRY glTexCoord3hNV (GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glTexCoord3hvNV (const GLhalfNV *); -GLAPI void APIENTRY glTexCoord4hNV (GLhalfNV, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glTexCoord4hvNV (const GLhalfNV *); -GLAPI void APIENTRY glMultiTexCoord1hNV (GLenum, GLhalfNV); -GLAPI void APIENTRY glMultiTexCoord1hvNV (GLenum, const GLhalfNV *); -GLAPI void APIENTRY glMultiTexCoord2hNV (GLenum, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glMultiTexCoord2hvNV (GLenum, const GLhalfNV *); -GLAPI void APIENTRY glMultiTexCoord3hNV (GLenum, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glMultiTexCoord3hvNV (GLenum, const GLhalfNV *); -GLAPI void APIENTRY glMultiTexCoord4hNV (GLenum, GLhalfNV, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glMultiTexCoord4hvNV (GLenum, const GLhalfNV *); -GLAPI void APIENTRY glFogCoordhNV (GLhalfNV); -GLAPI void APIENTRY glFogCoordhvNV (const GLhalfNV *); -GLAPI void APIENTRY glSecondaryColor3hNV (GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glSecondaryColor3hvNV (const GLhalfNV *); -GLAPI void APIENTRY glVertexWeighthNV (GLhalfNV); -GLAPI void APIENTRY glVertexWeighthvNV (const GLhalfNV *); -GLAPI void APIENTRY glVertexAttrib1hNV (GLuint, GLhalfNV); -GLAPI void APIENTRY glVertexAttrib1hvNV (GLuint, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttrib2hNV (GLuint, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glVertexAttrib2hvNV (GLuint, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttrib3hNV (GLuint, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glVertexAttrib3hvNV (GLuint, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttrib4hNV (GLuint, GLhalfNV, GLhalfNV, GLhalfNV, GLhalfNV); -GLAPI void APIENTRY glVertexAttrib4hvNV (GLuint, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttribs1hvNV (GLuint, GLsizei, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttribs2hvNV (GLuint, GLsizei, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttribs3hvNV (GLuint, GLsizei, const GLhalfNV *); -GLAPI void APIENTRY glVertexAttribs4hvNV (GLuint, GLsizei, const GLhalfNV *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEX2HNVPROC) (GLhalfNV x, GLhalfNV y); -typedef void (APIENTRYP PFNGLVERTEX2HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEX3HNVPROC) (GLhalfNV x, GLhalfNV y, GLhalfNV z); -typedef void (APIENTRYP PFNGLVERTEX3HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEX4HNVPROC) (GLhalfNV x, GLhalfNV y, GLhalfNV z, GLhalfNV w); -typedef void (APIENTRYP PFNGLVERTEX4HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLNORMAL3HNVPROC) (GLhalfNV nx, GLhalfNV ny, GLhalfNV nz); -typedef void (APIENTRYP PFNGLNORMAL3HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLCOLOR3HNVPROC) (GLhalfNV red, GLhalfNV green, GLhalfNV blue); -typedef void (APIENTRYP PFNGLCOLOR3HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLCOLOR4HNVPROC) (GLhalfNV red, GLhalfNV green, GLhalfNV blue, GLhalfNV alpha); -typedef void (APIENTRYP PFNGLCOLOR4HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLTEXCOORD1HNVPROC) (GLhalfNV s); -typedef void (APIENTRYP PFNGLTEXCOORD1HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLTEXCOORD2HNVPROC) (GLhalfNV s, GLhalfNV t); -typedef void (APIENTRYP PFNGLTEXCOORD2HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLTEXCOORD3HNVPROC) (GLhalfNV s, GLhalfNV t, GLhalfNV r); -typedef void (APIENTRYP PFNGLTEXCOORD3HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLTEXCOORD4HNVPROC) (GLhalfNV s, GLhalfNV t, GLhalfNV r, GLhalfNV q); -typedef void (APIENTRYP PFNGLTEXCOORD4HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1HNVPROC) (GLenum target, GLhalfNV s); -typedef void (APIENTRYP PFNGLMULTITEXCOORD1HVNVPROC) (GLenum target, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2HNVPROC) (GLenum target, GLhalfNV s, GLhalfNV t); -typedef void (APIENTRYP PFNGLMULTITEXCOORD2HVNVPROC) (GLenum target, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3HNVPROC) (GLenum target, GLhalfNV s, GLhalfNV t, GLhalfNV r); -typedef void (APIENTRYP PFNGLMULTITEXCOORD3HVNVPROC) (GLenum target, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4HNVPROC) (GLenum target, GLhalfNV s, GLhalfNV t, GLhalfNV r, GLhalfNV q); -typedef void (APIENTRYP PFNGLMULTITEXCOORD4HVNVPROC) (GLenum target, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLFOGCOORDHNVPROC) (GLhalfNV fog); -typedef void (APIENTRYP PFNGLFOGCOORDHVNVPROC) (const GLhalfNV *fog); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3HNVPROC) (GLhalfNV red, GLhalfNV green, GLhalfNV blue); -typedef void (APIENTRYP PFNGLSECONDARYCOLOR3HVNVPROC) (const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXWEIGHTHNVPROC) (GLhalfNV weight); -typedef void (APIENTRYP PFNGLVERTEXWEIGHTHVNVPROC) (const GLhalfNV *weight); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1HNVPROC) (GLuint index, GLhalfNV x); -typedef void (APIENTRYP PFNGLVERTEXATTRIB1HVNVPROC) (GLuint index, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2HNVPROC) (GLuint index, GLhalfNV x, GLhalfNV y); -typedef void (APIENTRYP PFNGLVERTEXATTRIB2HVNVPROC) (GLuint index, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3HNVPROC) (GLuint index, GLhalfNV x, GLhalfNV y, GLhalfNV z); -typedef void (APIENTRYP PFNGLVERTEXATTRIB3HVNVPROC) (GLuint index, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4HNVPROC) (GLuint index, GLhalfNV x, GLhalfNV y, GLhalfNV z, GLhalfNV w); -typedef void (APIENTRYP PFNGLVERTEXATTRIB4HVNVPROC) (GLuint index, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS1HVNVPROC) (GLuint index, GLsizei n, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS2HVNVPROC) (GLuint index, GLsizei n, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS3HVNVPROC) (GLuint index, GLsizei n, const GLhalfNV *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBS4HVNVPROC) (GLuint index, GLsizei n, const GLhalfNV *v); -#endif - -#ifndef GL_NV_pixel_data_range -#define GL_NV_pixel_data_range 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPixelDataRangeNV (GLenum, GLsizei, GLvoid *); -GLAPI void APIENTRY glFlushPixelDataRangeNV (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPIXELDATARANGENVPROC) (GLenum target, GLsizei length, GLvoid *pointer); -typedef void (APIENTRYP PFNGLFLUSHPIXELDATARANGENVPROC) (GLenum target); -#endif - -#ifndef GL_NV_primitive_restart -#define GL_NV_primitive_restart 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glPrimitiveRestartNV (void); -GLAPI void APIENTRY glPrimitiveRestartIndexNV (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPRIMITIVERESTARTNVPROC) (void); -typedef void (APIENTRYP PFNGLPRIMITIVERESTARTINDEXNVPROC) (GLuint index); -#endif - -#ifndef GL_NV_texture_expand_normal -#define GL_NV_texture_expand_normal 1 -#endif - -#ifndef GL_NV_vertex_program2 -#define GL_NV_vertex_program2 1 -#endif - -#ifndef GL_ATI_map_object_buffer -#define GL_ATI_map_object_buffer 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLvoid* APIENTRY glMapObjectBufferATI (GLuint); -GLAPI void APIENTRY glUnmapObjectBufferATI (GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLvoid* (APIENTRYP PFNGLMAPOBJECTBUFFERATIPROC) (GLuint buffer); -typedef void (APIENTRYP PFNGLUNMAPOBJECTBUFFERATIPROC) (GLuint buffer); -#endif - -#ifndef GL_ATI_separate_stencil -#define GL_ATI_separate_stencil 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glStencilOpSeparateATI (GLenum, GLenum, GLenum, GLenum); -GLAPI void APIENTRY glStencilFuncSeparateATI (GLenum, GLenum, GLint, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSTENCILOPSEPARATEATIPROC) (GLenum face, GLenum sfail, GLenum dpfail, GLenum dppass); -typedef void (APIENTRYP PFNGLSTENCILFUNCSEPARATEATIPROC) (GLenum frontfunc, GLenum backfunc, GLint ref, GLuint mask); -#endif - -#ifndef GL_ATI_vertex_attrib_array_object -#define GL_ATI_vertex_attrib_array_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexAttribArrayObjectATI (GLuint, GLint, GLenum, GLboolean, GLsizei, GLuint, GLuint); -GLAPI void APIENTRY glGetVertexAttribArrayObjectfvATI (GLuint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetVertexAttribArrayObjectivATI (GLuint, GLenum, GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXATTRIBARRAYOBJECTATIPROC) (GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, GLuint buffer, GLuint offset); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBARRAYOBJECTFVATIPROC) (GLuint index, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBARRAYOBJECTIVATIPROC) (GLuint index, GLenum pname, GLint *params); -#endif - -#ifndef GL_OES_read_format -#define GL_OES_read_format 1 -#endif - -#ifndef GL_EXT_depth_bounds_test -#define GL_EXT_depth_bounds_test 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDepthBoundsEXT (GLclampd, GLclampd); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDEPTHBOUNDSEXTPROC) (GLclampd zmin, GLclampd zmax); -#endif - -#ifndef GL_EXT_texture_mirror_clamp -#define GL_EXT_texture_mirror_clamp 1 -#endif - -#ifndef GL_EXT_blend_equation_separate -#define GL_EXT_blend_equation_separate 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlendEquationSeparateEXT (GLenum, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLENDEQUATIONSEPARATEEXTPROC) (GLenum modeRGB, GLenum modeAlpha); -#endif - -#ifndef GL_MESA_pack_invert -#define GL_MESA_pack_invert 1 -#endif - -#ifndef GL_MESA_ycbcr_texture -#define GL_MESA_ycbcr_texture 1 -#endif - -#ifndef GL_EXT_pixel_buffer_object -#define GL_EXT_pixel_buffer_object 1 -#endif - -#ifndef GL_NV_fragment_program_option -#define GL_NV_fragment_program_option 1 -#endif - -#ifndef GL_NV_fragment_program2 -#define GL_NV_fragment_program2 1 -#endif - -#ifndef GL_NV_vertex_program2_option -#define GL_NV_vertex_program2_option 1 -#endif - -#ifndef GL_NV_vertex_program3 -#define GL_NV_vertex_program3 1 -#endif - -#ifndef GL_EXT_framebuffer_object -#define GL_EXT_framebuffer_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI GLboolean APIENTRY glIsRenderbufferEXT (GLuint); -GLAPI void APIENTRY glBindRenderbufferEXT (GLenum, GLuint); -GLAPI void APIENTRY glDeleteRenderbuffersEXT (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenRenderbuffersEXT (GLsizei, GLuint *); -GLAPI void APIENTRY glRenderbufferStorageEXT (GLenum, GLenum, GLsizei, GLsizei); -GLAPI void APIENTRY glGetRenderbufferParameterivEXT (GLenum, GLenum, GLint *); -GLAPI GLboolean APIENTRY glIsFramebufferEXT (GLuint); -GLAPI void APIENTRY glBindFramebufferEXT (GLenum, GLuint); -GLAPI void APIENTRY glDeleteFramebuffersEXT (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenFramebuffersEXT (GLsizei, GLuint *); -GLAPI GLenum APIENTRY glCheckFramebufferStatusEXT (GLenum); -GLAPI void APIENTRY glFramebufferTexture1DEXT (GLenum, GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glFramebufferTexture2DEXT (GLenum, GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glFramebufferTexture3DEXT (GLenum, GLenum, GLenum, GLuint, GLint, GLint); -GLAPI void APIENTRY glFramebufferRenderbufferEXT (GLenum, GLenum, GLenum, GLuint); -GLAPI void APIENTRY glGetFramebufferAttachmentParameterivEXT (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGenerateMipmapEXT (GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef GLboolean (APIENTRYP PFNGLISRENDERBUFFEREXTPROC) (GLuint renderbuffer); -typedef void (APIENTRYP PFNGLBINDRENDERBUFFEREXTPROC) (GLenum target, GLuint renderbuffer); -typedef void (APIENTRYP PFNGLDELETERENDERBUFFERSEXTPROC) (GLsizei n, const GLuint *renderbuffers); -typedef void (APIENTRYP PFNGLGENRENDERBUFFERSEXTPROC) (GLsizei n, GLuint *renderbuffers); -typedef void (APIENTRYP PFNGLRENDERBUFFERSTORAGEEXTPROC) (GLenum target, GLenum internalformat, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETRENDERBUFFERPARAMETERIVEXTPROC) (GLenum target, GLenum pname, GLint *params); -typedef GLboolean (APIENTRYP PFNGLISFRAMEBUFFEREXTPROC) (GLuint framebuffer); -typedef void (APIENTRYP PFNGLBINDFRAMEBUFFEREXTPROC) (GLenum target, GLuint framebuffer); -typedef void (APIENTRYP PFNGLDELETEFRAMEBUFFERSEXTPROC) (GLsizei n, const GLuint *framebuffers); -typedef void (APIENTRYP PFNGLGENFRAMEBUFFERSEXTPROC) (GLsizei n, GLuint *framebuffers); -typedef GLenum (APIENTRYP PFNGLCHECKFRAMEBUFFERSTATUSEXTPROC) (GLenum target); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURE1DEXTPROC) (GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURE2DEXTPROC) (GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURE3DEXTPROC) (GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level, GLint zoffset); -typedef void (APIENTRYP PFNGLFRAMEBUFFERRENDERBUFFEREXTPROC) (GLenum target, GLenum attachment, GLenum renderbuffertarget, GLuint renderbuffer); -typedef void (APIENTRYP PFNGLGETFRAMEBUFFERATTACHMENTPARAMETERIVEXTPROC) (GLenum target, GLenum attachment, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGENERATEMIPMAPEXTPROC) (GLenum target); -#endif - -#ifndef GL_GREMEDY_string_marker -#define GL_GREMEDY_string_marker 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glStringMarkerGREMEDY (GLsizei, const GLvoid *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSTRINGMARKERGREMEDYPROC) (GLsizei len, const GLvoid *string); -#endif - -#ifndef GL_EXT_packed_depth_stencil -#define GL_EXT_packed_depth_stencil 1 -#endif - -#ifndef GL_EXT_stencil_clear_tag -#define GL_EXT_stencil_clear_tag 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glStencilClearTagEXT (GLsizei, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLSTENCILCLEARTAGEXTPROC) (GLsizei stencilTagBits, GLuint stencilClearTag); -#endif - -#ifndef GL_EXT_texture_sRGB -#define GL_EXT_texture_sRGB 1 -#endif - -#ifndef GL_EXT_framebuffer_blit -#define GL_EXT_framebuffer_blit 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBlitFramebufferEXT (GLint, GLint, GLint, GLint, GLint, GLint, GLint, GLint, GLbitfield, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBLITFRAMEBUFFEREXTPROC) (GLint srcX0, GLint srcY0, GLint srcX1, GLint srcY1, GLint dstX0, GLint dstY0, GLint dstX1, GLint dstY1, GLbitfield mask, GLenum filter); -#endif - -#ifndef GL_EXT_framebuffer_multisample -#define GL_EXT_framebuffer_multisample 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glRenderbufferStorageMultisampleEXT (GLenum, GLsizei, GLenum, GLsizei, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLRENDERBUFFERSTORAGEMULTISAMPLEEXTPROC) (GLenum target, GLsizei samples, GLenum internalformat, GLsizei width, GLsizei height); -#endif - -#ifndef GL_MESAX_texture_stack -#define GL_MESAX_texture_stack 1 -#endif - -#ifndef GL_EXT_timer_query -#define GL_EXT_timer_query 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGetQueryObjecti64vEXT (GLuint, GLenum, GLint64EXT *); -GLAPI void APIENTRY glGetQueryObjectui64vEXT (GLuint, GLenum, GLuint64EXT *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGETQUERYOBJECTI64VEXTPROC) (GLuint id, GLenum pname, GLint64EXT *params); -typedef void (APIENTRYP PFNGLGETQUERYOBJECTUI64VEXTPROC) (GLuint id, GLenum pname, GLuint64EXT *params); -#endif - -#ifndef GL_EXT_gpu_program_parameters -#define GL_EXT_gpu_program_parameters 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramEnvParameters4fvEXT (GLenum, GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glProgramLocalParameters4fvEXT (GLenum, GLuint, GLsizei, const GLfloat *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERS4FVEXTPROC) (GLenum target, GLuint index, GLsizei count, const GLfloat *params); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERS4FVEXTPROC) (GLenum target, GLuint index, GLsizei count, const GLfloat *params); -#endif - -#ifndef GL_APPLE_flush_buffer_range -#define GL_APPLE_flush_buffer_range 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBufferParameteriAPPLE (GLenum, GLenum, GLint); -GLAPI void APIENTRY glFlushMappedBufferRangeAPPLE (GLenum, GLintptr, GLsizeiptr); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBUFFERPARAMETERIAPPLEPROC) (GLenum target, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLFLUSHMAPPEDBUFFERRANGEAPPLEPROC) (GLenum target, GLintptr offset, GLsizeiptr size); -#endif - -#ifndef GL_NV_gpu_program4 -#define GL_NV_gpu_program4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramLocalParameterI4iNV (GLenum, GLuint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glProgramLocalParameterI4ivNV (GLenum, GLuint, const GLint *); -GLAPI void APIENTRY glProgramLocalParametersI4ivNV (GLenum, GLuint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramLocalParameterI4uiNV (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glProgramLocalParameterI4uivNV (GLenum, GLuint, const GLuint *); -GLAPI void APIENTRY glProgramLocalParametersI4uivNV (GLenum, GLuint, GLsizei, const GLuint *); -GLAPI void APIENTRY glProgramEnvParameterI4iNV (GLenum, GLuint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glProgramEnvParameterI4ivNV (GLenum, GLuint, const GLint *); -GLAPI void APIENTRY glProgramEnvParametersI4ivNV (GLenum, GLuint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramEnvParameterI4uiNV (GLenum, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glProgramEnvParameterI4uivNV (GLenum, GLuint, const GLuint *); -GLAPI void APIENTRY glProgramEnvParametersI4uivNV (GLenum, GLuint, GLsizei, const GLuint *); -GLAPI void APIENTRY glGetProgramLocalParameterIivNV (GLenum, GLuint, GLint *); -GLAPI void APIENTRY glGetProgramLocalParameterIuivNV (GLenum, GLuint, GLuint *); -GLAPI void APIENTRY glGetProgramEnvParameterIivNV (GLenum, GLuint, GLint *); -GLAPI void APIENTRY glGetProgramEnvParameterIuivNV (GLenum, GLuint, GLuint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERI4INVPROC) (GLenum target, GLuint index, GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERI4IVNVPROC) (GLenum target, GLuint index, const GLint *params); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERSI4IVNVPROC) (GLenum target, GLuint index, GLsizei count, const GLint *params); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERI4UINVPROC) (GLenum target, GLuint index, GLuint x, GLuint y, GLuint z, GLuint w); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERI4UIVNVPROC) (GLenum target, GLuint index, const GLuint *params); -typedef void (APIENTRYP PFNGLPROGRAMLOCALPARAMETERSI4UIVNVPROC) (GLenum target, GLuint index, GLsizei count, const GLuint *params); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERI4INVPROC) (GLenum target, GLuint index, GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERI4IVNVPROC) (GLenum target, GLuint index, const GLint *params); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERSI4IVNVPROC) (GLenum target, GLuint index, GLsizei count, const GLint *params); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERI4UINVPROC) (GLenum target, GLuint index, GLuint x, GLuint y, GLuint z, GLuint w); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERI4UIVNVPROC) (GLenum target, GLuint index, const GLuint *params); -typedef void (APIENTRYP PFNGLPROGRAMENVPARAMETERSI4UIVNVPROC) (GLenum target, GLuint index, GLsizei count, const GLuint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMLOCALPARAMETERIIVNVPROC) (GLenum target, GLuint index, GLint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMLOCALPARAMETERIUIVNVPROC) (GLenum target, GLuint index, GLuint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMENVPARAMETERIIVNVPROC) (GLenum target, GLuint index, GLint *params); -typedef void (APIENTRYP PFNGLGETPROGRAMENVPARAMETERIUIVNVPROC) (GLenum target, GLuint index, GLuint *params); -#endif - -#ifndef GL_NV_geometry_program4 -#define GL_NV_geometry_program4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramVertexLimitNV (GLenum, GLint); -GLAPI void APIENTRY glFramebufferTextureEXT (GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glFramebufferTextureLayerEXT (GLenum, GLenum, GLuint, GLint, GLint); -GLAPI void APIENTRY glFramebufferTextureFaceEXT (GLenum, GLenum, GLuint, GLint, GLenum); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMVERTEXLIMITNVPROC) (GLenum target, GLint limit); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTUREEXTPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTURELAYEREXTPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level, GLint layer); -typedef void (APIENTRYP PFNGLFRAMEBUFFERTEXTUREFACEEXTPROC) (GLenum target, GLenum attachment, GLuint texture, GLint level, GLenum face); -#endif - -#ifndef GL_EXT_geometry_shader4 -#define GL_EXT_geometry_shader4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramParameteriEXT (GLuint, GLenum, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMPARAMETERIEXTPROC) (GLuint program, GLenum pname, GLint value); -#endif - -#ifndef GL_NV_vertex_program4 -#define GL_NV_vertex_program4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glVertexAttribI1iEXT (GLuint, GLint); -GLAPI void APIENTRY glVertexAttribI2iEXT (GLuint, GLint, GLint); -GLAPI void APIENTRY glVertexAttribI3iEXT (GLuint, GLint, GLint, GLint); -GLAPI void APIENTRY glVertexAttribI4iEXT (GLuint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glVertexAttribI1uiEXT (GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI2uiEXT (GLuint, GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI3uiEXT (GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI4uiEXT (GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glVertexAttribI1ivEXT (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI2ivEXT (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI3ivEXT (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI4ivEXT (GLuint, const GLint *); -GLAPI void APIENTRY glVertexAttribI1uivEXT (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI2uivEXT (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI3uivEXT (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI4uivEXT (GLuint, const GLuint *); -GLAPI void APIENTRY glVertexAttribI4bvEXT (GLuint, const GLbyte *); -GLAPI void APIENTRY glVertexAttribI4svEXT (GLuint, const GLshort *); -GLAPI void APIENTRY glVertexAttribI4ubvEXT (GLuint, const GLubyte *); -GLAPI void APIENTRY glVertexAttribI4usvEXT (GLuint, const GLushort *); -GLAPI void APIENTRY glVertexAttribIPointerEXT (GLuint, GLint, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glGetVertexAttribIivEXT (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetVertexAttribIuivEXT (GLuint, GLenum, GLuint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1IEXTPROC) (GLuint index, GLint x); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2IEXTPROC) (GLuint index, GLint x, GLint y); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3IEXTPROC) (GLuint index, GLint x, GLint y, GLint z); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4IEXTPROC) (GLuint index, GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1UIEXTPROC) (GLuint index, GLuint x); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2UIEXTPROC) (GLuint index, GLuint x, GLuint y); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3UIEXTPROC) (GLuint index, GLuint x, GLuint y, GLuint z); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4UIEXTPROC) (GLuint index, GLuint x, GLuint y, GLuint z, GLuint w); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1IVEXTPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2IVEXTPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3IVEXTPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4IVEXTPROC) (GLuint index, const GLint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI1UIVEXTPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI2UIVEXTPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI3UIVEXTPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4UIVEXTPROC) (GLuint index, const GLuint *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4BVEXTPROC) (GLuint index, const GLbyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4SVEXTPROC) (GLuint index, const GLshort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4UBVEXTPROC) (GLuint index, const GLubyte *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBI4USVEXTPROC) (GLuint index, const GLushort *v); -typedef void (APIENTRYP PFNGLVERTEXATTRIBIPOINTEREXTPROC) (GLuint index, GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIIVEXTPROC) (GLuint index, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETVERTEXATTRIBIUIVEXTPROC) (GLuint index, GLenum pname, GLuint *params); -#endif - -#ifndef GL_EXT_gpu_shader4 -#define GL_EXT_gpu_shader4 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGetUniformuivEXT (GLuint, GLint, GLuint *); -GLAPI void APIENTRY glBindFragDataLocationEXT (GLuint, GLuint, const GLchar *); -GLAPI GLint APIENTRY glGetFragDataLocationEXT (GLuint, const GLchar *); -GLAPI void APIENTRY glUniform1uiEXT (GLint, GLuint); -GLAPI void APIENTRY glUniform2uiEXT (GLint, GLuint, GLuint); -GLAPI void APIENTRY glUniform3uiEXT (GLint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glUniform4uiEXT (GLint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glUniform1uivEXT (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glUniform2uivEXT (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glUniform3uivEXT (GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glUniform4uivEXT (GLint, GLsizei, const GLuint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGETUNIFORMUIVEXTPROC) (GLuint program, GLint location, GLuint *params); -typedef void (APIENTRYP PFNGLBINDFRAGDATALOCATIONEXTPROC) (GLuint program, GLuint color, const GLchar *name); -typedef GLint (APIENTRYP PFNGLGETFRAGDATALOCATIONEXTPROC) (GLuint program, const GLchar *name); -typedef void (APIENTRYP PFNGLUNIFORM1UIEXTPROC) (GLint location, GLuint v0); -typedef void (APIENTRYP PFNGLUNIFORM2UIEXTPROC) (GLint location, GLuint v0, GLuint v1); -typedef void (APIENTRYP PFNGLUNIFORM3UIEXTPROC) (GLint location, GLuint v0, GLuint v1, GLuint v2); -typedef void (APIENTRYP PFNGLUNIFORM4UIEXTPROC) (GLint location, GLuint v0, GLuint v1, GLuint v2, GLuint v3); -typedef void (APIENTRYP PFNGLUNIFORM1UIVEXTPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLUNIFORM2UIVEXTPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLUNIFORM3UIVEXTPROC) (GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLUNIFORM4UIVEXTPROC) (GLint location, GLsizei count, const GLuint *value); -#endif - -#ifndef GL_EXT_draw_instanced -#define GL_EXT_draw_instanced 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDrawArraysInstancedEXT (GLenum, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glDrawElementsInstancedEXT (GLenum, GLsizei, GLenum, const GLvoid *, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDRAWARRAYSINSTANCEDEXTPROC) (GLenum mode, GLint start, GLsizei count, GLsizei primcount); -typedef void (APIENTRYP PFNGLDRAWELEMENTSINSTANCEDEXTPROC) (GLenum mode, GLsizei count, GLenum type, const GLvoid *indices, GLsizei primcount); -#endif - -#ifndef GL_EXT_packed_float -#define GL_EXT_packed_float 1 -#endif - -#ifndef GL_EXT_texture_array -#define GL_EXT_texture_array 1 -#endif - -#ifndef GL_EXT_texture_buffer_object -#define GL_EXT_texture_buffer_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexBufferEXT (GLenum, GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXBUFFEREXTPROC) (GLenum target, GLenum internalformat, GLuint buffer); -#endif - -#ifndef GL_EXT_texture_compression_latc -#define GL_EXT_texture_compression_latc 1 -#endif - -#ifndef GL_EXT_texture_compression_rgtc -#define GL_EXT_texture_compression_rgtc 1 -#endif - -#ifndef GL_EXT_texture_shared_exponent -#define GL_EXT_texture_shared_exponent 1 -#endif - -#ifndef GL_NV_depth_buffer_float -#define GL_NV_depth_buffer_float 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glDepthRangedNV (GLdouble, GLdouble); -GLAPI void APIENTRY glClearDepthdNV (GLdouble); -GLAPI void APIENTRY glDepthBoundsdNV (GLdouble, GLdouble); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLDEPTHRANGEDNVPROC) (GLdouble zNear, GLdouble zFar); -typedef void (APIENTRYP PFNGLCLEARDEPTHDNVPROC) (GLdouble depth); -typedef void (APIENTRYP PFNGLDEPTHBOUNDSDNVPROC) (GLdouble zmin, GLdouble zmax); -#endif - -#ifndef GL_NV_fragment_program4 -#define GL_NV_fragment_program4 1 -#endif - -#ifndef GL_NV_framebuffer_multisample_coverage -#define GL_NV_framebuffer_multisample_coverage 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glRenderbufferStorageMultisampleCoverageNV (GLenum, GLsizei, GLsizei, GLenum, GLsizei, GLsizei); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLRENDERBUFFERSTORAGEMULTISAMPLECOVERAGENVPROC) (GLenum target, GLsizei coverageSamples, GLsizei colorSamples, GLenum internalformat, GLsizei width, GLsizei height); -#endif - -#ifndef GL_EXT_framebuffer_sRGB -#define GL_EXT_framebuffer_sRGB 1 -#endif - -#ifndef GL_NV_geometry_shader4 -#define GL_NV_geometry_shader4 1 -#endif - -#ifndef GL_NV_parameter_buffer_object -#define GL_NV_parameter_buffer_object 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glProgramBufferParametersfvNV (GLenum, GLuint, GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glProgramBufferParametersIivNV (GLenum, GLuint, GLuint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramBufferParametersIuivNV (GLenum, GLuint, GLuint, GLsizei, const GLuint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLPROGRAMBUFFERPARAMETERSFVNVPROC) (GLenum target, GLuint buffer, GLuint index, GLsizei count, const GLfloat *params); -typedef void (APIENTRYP PFNGLPROGRAMBUFFERPARAMETERSIIVNVPROC) (GLenum target, GLuint buffer, GLuint index, GLsizei count, const GLint *params); -typedef void (APIENTRYP PFNGLPROGRAMBUFFERPARAMETERSIUIVNVPROC) (GLenum target, GLuint buffer, GLuint index, GLsizei count, const GLuint *params); -#endif - -#ifndef GL_EXT_draw_buffers2 -#define GL_EXT_draw_buffers2 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glColorMaskIndexedEXT (GLuint, GLboolean, GLboolean, GLboolean, GLboolean); -GLAPI void APIENTRY glGetBooleanIndexedvEXT (GLenum, GLuint, GLboolean *); -GLAPI void APIENTRY glGetIntegerIndexedvEXT (GLenum, GLuint, GLint *); -GLAPI void APIENTRY glEnableIndexedEXT (GLenum, GLuint); -GLAPI void APIENTRY glDisableIndexedEXT (GLenum, GLuint); -GLAPI GLboolean APIENTRY glIsEnabledIndexedEXT (GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCOLORMASKINDEXEDEXTPROC) (GLuint index, GLboolean r, GLboolean g, GLboolean b, GLboolean a); -typedef void (APIENTRYP PFNGLGETBOOLEANINDEXEDVEXTPROC) (GLenum target, GLuint index, GLboolean *data); -typedef void (APIENTRYP PFNGLGETINTEGERINDEXEDVEXTPROC) (GLenum target, GLuint index, GLint *data); -typedef void (APIENTRYP PFNGLENABLEINDEXEDEXTPROC) (GLenum target, GLuint index); -typedef void (APIENTRYP PFNGLDISABLEINDEXEDEXTPROC) (GLenum target, GLuint index); -typedef GLboolean (APIENTRYP PFNGLISENABLEDINDEXEDEXTPROC) (GLenum target, GLuint index); -#endif - -#ifndef GL_NV_transform_feedback -#define GL_NV_transform_feedback 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBeginTransformFeedbackNV (GLenum); -GLAPI void APIENTRY glEndTransformFeedbackNV (void); -GLAPI void APIENTRY glTransformFeedbackAttribsNV (GLuint, const GLint *, GLenum); -GLAPI void APIENTRY glBindBufferRangeNV (GLenum, GLuint, GLuint, GLintptr, GLsizeiptr); -GLAPI void APIENTRY glBindBufferOffsetNV (GLenum, GLuint, GLuint, GLintptr); -GLAPI void APIENTRY glBindBufferBaseNV (GLenum, GLuint, GLuint); -GLAPI void APIENTRY glTransformFeedbackVaryingsNV (GLuint, GLsizei, const GLint *, GLenum); -GLAPI void APIENTRY glActiveVaryingNV (GLuint, const GLchar *); -GLAPI GLint APIENTRY glGetVaryingLocationNV (GLuint, const GLchar *); -GLAPI void APIENTRY glGetActiveVaryingNV (GLuint, GLuint, GLsizei, GLsizei *, GLsizei *, GLenum *, GLchar *); -GLAPI void APIENTRY glGetTransformFeedbackVaryingNV (GLuint, GLuint, GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBEGINTRANSFORMFEEDBACKNVPROC) (GLenum primitiveMode); -typedef void (APIENTRYP PFNGLENDTRANSFORMFEEDBACKNVPROC) (void); -typedef void (APIENTRYP PFNGLTRANSFORMFEEDBACKATTRIBSNVPROC) (GLuint count, const GLint *attribs, GLenum bufferMode); -typedef void (APIENTRYP PFNGLBINDBUFFERRANGENVPROC) (GLenum target, GLuint index, GLuint buffer, GLintptr offset, GLsizeiptr size); -typedef void (APIENTRYP PFNGLBINDBUFFEROFFSETNVPROC) (GLenum target, GLuint index, GLuint buffer, GLintptr offset); -typedef void (APIENTRYP PFNGLBINDBUFFERBASENVPROC) (GLenum target, GLuint index, GLuint buffer); -typedef void (APIENTRYP PFNGLTRANSFORMFEEDBACKVARYINGSNVPROC) (GLuint program, GLsizei count, const GLint *locations, GLenum bufferMode); -typedef void (APIENTRYP PFNGLACTIVEVARYINGNVPROC) (GLuint program, const GLchar *name); -typedef GLint (APIENTRYP PFNGLGETVARYINGLOCATIONNVPROC) (GLuint program, const GLchar *name); -typedef void (APIENTRYP PFNGLGETACTIVEVARYINGNVPROC) (GLuint program, GLuint index, GLsizei bufSize, GLsizei *length, GLsizei *size, GLenum *type, GLchar *name); -typedef void (APIENTRYP PFNGLGETTRANSFORMFEEDBACKVARYINGNVPROC) (GLuint program, GLuint index, GLint *location); -#endif - -#ifndef GL_EXT_bindable_uniform -#define GL_EXT_bindable_uniform 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glUniformBufferEXT (GLuint, GLint, GLuint); -GLAPI GLint APIENTRY glGetUniformBufferSizeEXT (GLuint, GLint); -GLAPI GLintptr APIENTRY glGetUniformOffsetEXT (GLuint, GLint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLUNIFORMBUFFEREXTPROC) (GLuint program, GLint location, GLuint buffer); -typedef GLint (APIENTRYP PFNGLGETUNIFORMBUFFERSIZEEXTPROC) (GLuint program, GLint location); -typedef GLintptr (APIENTRYP PFNGLGETUNIFORMOFFSETEXTPROC) (GLuint program, GLint location); -#endif - -#ifndef GL_EXT_texture_integer -#define GL_EXT_texture_integer 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glTexParameterIivEXT (GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glTexParameterIuivEXT (GLenum, GLenum, const GLuint *); -GLAPI void APIENTRY glGetTexParameterIivEXT (GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetTexParameterIuivEXT (GLenum, GLenum, GLuint *); -GLAPI void APIENTRY glClearColorIiEXT (GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glClearColorIuiEXT (GLuint, GLuint, GLuint, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLTEXPARAMETERIIVEXTPROC) (GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLTEXPARAMETERIUIVEXTPROC) (GLenum target, GLenum pname, const GLuint *params); -typedef void (APIENTRYP PFNGLGETTEXPARAMETERIIVEXTPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETTEXPARAMETERIUIVEXTPROC) (GLenum target, GLenum pname, GLuint *params); -typedef void (APIENTRYP PFNGLCLEARCOLORIIEXTPROC) (GLint red, GLint green, GLint blue, GLint alpha); -typedef void (APIENTRYP PFNGLCLEARCOLORIUIEXTPROC) (GLuint red, GLuint green, GLuint blue, GLuint alpha); -#endif - -#ifndef GL_GREMEDY_frame_terminator -#define GL_GREMEDY_frame_terminator 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glFrameTerminatorGREMEDY (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLFRAMETERMINATORGREMEDYPROC) (void); -#endif - -#ifndef GL_NV_conditional_render -#define GL_NV_conditional_render 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBeginConditionalRenderNV (GLuint, GLenum); -GLAPI void APIENTRY glEndConditionalRenderNV (void); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBEGINCONDITIONALRENDERNVPROC) (GLuint id, GLenum mode); -typedef void (APIENTRYP PFNGLENDCONDITIONALRENDERNVPROC) (void); -#endif - -#ifndef GL_NV_present_video -#define GL_NV_present_video 1 -#endif - -#ifndef GL_EXT_transform_feedback -#define GL_EXT_transform_feedback 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBeginTransformFeedbackEXT (GLenum); -GLAPI void APIENTRY glEndTransformFeedbackEXT (void); -GLAPI void APIENTRY glBindBufferRangeEXT (GLenum, GLuint, GLuint, GLintptr, GLsizeiptr); -GLAPI void APIENTRY glBindBufferOffsetEXT (GLenum, GLuint, GLuint, GLintptr); -GLAPI void APIENTRY glBindBufferBaseEXT (GLenum, GLuint, GLuint); -GLAPI void APIENTRY glTransformFeedbackVaryingsEXT (GLuint, GLsizei, const GLint *, GLenum); -GLAPI void APIENTRY glGetTransformFeedbackVaryingEXT (GLuint, GLuint, GLint *); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBEGINTRANSFORMFEEDBACKEXTPROC) (GLenum primitiveMode); -typedef void (APIENTRYP PFNGLENDTRANSFORMFEEDBACKEXTPROC) (void); -typedef void (APIENTRYP PFNGLBINDBUFFERRANGEEXTPROC) (GLenum target, GLuint index, GLuint buffer, GLintptr offset, GLsizeiptr size); -typedef void (APIENTRYP PFNGLBINDBUFFEROFFSETEXTPROC) (GLenum target, GLuint index, GLuint buffer, GLintptr offset); -typedef void (APIENTRYP PFNGLBINDBUFFERBASEEXTPROC) (GLenum target, GLuint index, GLuint buffer); -typedef void (APIENTRYP PFNGLTRANSFORMFEEDBACKVARYINGSEXTPROC) (GLuint program, GLsizei count, const GLint *locations, GLenum bufferMode); -typedef void (APIENTRYP PFNGLGETTRANSFORMFEEDBACKVARYINGEXTPROC) (GLuint program, GLuint index, GLint *location); -#endif - -#ifndef GL_EXT_direct_state_access -#define GL_EXT_direct_state_access 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glClientAttribDefaultEXT (GLbitfield); -GLAPI void APIENTRY glPushClientAttribDefaultEXT (GLbitfield); -GLAPI void APIENTRY glMatrixLoadfEXT (GLenum, const GLfloat *); -GLAPI void APIENTRY glMatrixLoaddEXT (GLenum, const GLdouble *); -GLAPI void APIENTRY glMatrixMultfEXT (GLenum, const GLfloat *); -GLAPI void APIENTRY glMatrixMultdEXT (GLenum, const GLdouble *); -GLAPI void APIENTRY glMatrixLoadIdentityEXT (GLenum); -GLAPI void APIENTRY glMatrixRotatefEXT (GLenum, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMatrixRotatedEXT (GLenum, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMatrixScalefEXT (GLenum, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMatrixScaledEXT (GLenum, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMatrixTranslatefEXT (GLenum, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glMatrixTranslatedEXT (GLenum, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMatrixFrustumEXT (GLenum, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMatrixOrthoEXT (GLenum, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glMatrixPopEXT (GLenum); -GLAPI void APIENTRY glMatrixPushEXT (GLenum); -GLAPI void APIENTRY glMatrixLoadTransposefEXT (GLenum, const GLfloat *); -GLAPI void APIENTRY glMatrixLoadTransposedEXT (GLenum, const GLdouble *); -GLAPI void APIENTRY glMatrixMultTransposefEXT (GLenum, const GLfloat *); -GLAPI void APIENTRY glMatrixMultTransposedEXT (GLenum, const GLdouble *); -GLAPI void APIENTRY glTextureParameterfEXT (GLuint, GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glTextureParameterfvEXT (GLuint, GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glTextureParameteriEXT (GLuint, GLenum, GLenum, GLint); -GLAPI void APIENTRY glTextureParameterivEXT (GLuint, GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glTextureImage1DEXT (GLuint, GLenum, GLint, GLenum, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTextureImage2DEXT (GLuint, GLenum, GLint, GLenum, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTextureSubImage1DEXT (GLuint, GLenum, GLint, GLint, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTextureSubImage2DEXT (GLuint, GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyTextureImage1DEXT (GLuint, GLenum, GLint, GLenum, GLint, GLint, GLsizei, GLint); -GLAPI void APIENTRY glCopyTextureImage2DEXT (GLuint, GLenum, GLint, GLenum, GLint, GLint, GLsizei, GLsizei, GLint); -GLAPI void APIENTRY glCopyTextureSubImage1DEXT (GLuint, GLenum, GLint, GLint, GLint, GLint, GLsizei); -GLAPI void APIENTRY glCopyTextureSubImage2DEXT (GLuint, GLenum, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glGetTextureImageEXT (GLuint, GLenum, GLint, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetTextureParameterfvEXT (GLuint, GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetTextureParameterivEXT (GLuint, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetTextureLevelParameterfvEXT (GLuint, GLenum, GLint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetTextureLevelParameterivEXT (GLuint, GLenum, GLint, GLenum, GLint *); -GLAPI void APIENTRY glTextureImage3DEXT (GLuint, GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glTextureSubImage3DEXT (GLuint, GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyTextureSubImage3DEXT (GLuint, GLenum, GLint, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glMultiTexParameterfEXT (GLenum, GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glMultiTexParameterfvEXT (GLenum, GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexParameteriEXT (GLenum, GLenum, GLenum, GLint); -GLAPI void APIENTRY glMultiTexParameterivEXT (GLenum, GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexImage1DEXT (GLenum, GLenum, GLint, GLenum, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glMultiTexImage2DEXT (GLenum, GLenum, GLint, GLenum, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glMultiTexSubImage1DEXT (GLenum, GLenum, GLint, GLint, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glMultiTexSubImage2DEXT (GLenum, GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyMultiTexImage1DEXT (GLenum, GLenum, GLint, GLenum, GLint, GLint, GLsizei, GLint); -GLAPI void APIENTRY glCopyMultiTexImage2DEXT (GLenum, GLenum, GLint, GLenum, GLint, GLint, GLsizei, GLsizei, GLint); -GLAPI void APIENTRY glCopyMultiTexSubImage1DEXT (GLenum, GLenum, GLint, GLint, GLint, GLint, GLsizei); -GLAPI void APIENTRY glCopyMultiTexSubImage2DEXT (GLenum, GLenum, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glGetMultiTexImageEXT (GLenum, GLenum, GLint, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glGetMultiTexParameterfvEXT (GLenum, GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMultiTexParameterivEXT (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetMultiTexLevelParameterfvEXT (GLenum, GLenum, GLint, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMultiTexLevelParameterivEXT (GLenum, GLenum, GLint, GLenum, GLint *); -GLAPI void APIENTRY glMultiTexImage3DEXT (GLenum, GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glMultiTexSubImage3DEXT (GLenum, GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLenum, const GLvoid *); -GLAPI void APIENTRY glCopyMultiTexSubImage3DEXT (GLenum, GLenum, GLint, GLint, GLint, GLint, GLint, GLint, GLsizei, GLsizei); -GLAPI void APIENTRY glBindMultiTextureEXT (GLenum, GLenum, GLuint); -GLAPI void APIENTRY glEnableClientStateIndexedEXT (GLenum, GLuint); -GLAPI void APIENTRY glDisableClientStateIndexedEXT (GLenum, GLuint); -GLAPI void APIENTRY glMultiTexCoordPointerEXT (GLenum, GLint, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glMultiTexEnvfEXT (GLenum, GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glMultiTexEnvfvEXT (GLenum, GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexEnviEXT (GLenum, GLenum, GLenum, GLint); -GLAPI void APIENTRY glMultiTexEnvivEXT (GLenum, GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexGendEXT (GLenum, GLenum, GLenum, GLdouble); -GLAPI void APIENTRY glMultiTexGendvEXT (GLenum, GLenum, GLenum, const GLdouble *); -GLAPI void APIENTRY glMultiTexGenfEXT (GLenum, GLenum, GLenum, GLfloat); -GLAPI void APIENTRY glMultiTexGenfvEXT (GLenum, GLenum, GLenum, const GLfloat *); -GLAPI void APIENTRY glMultiTexGeniEXT (GLenum, GLenum, GLenum, GLint); -GLAPI void APIENTRY glMultiTexGenivEXT (GLenum, GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glGetMultiTexEnvfvEXT (GLenum, GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMultiTexEnvivEXT (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetMultiTexGendvEXT (GLenum, GLenum, GLenum, GLdouble *); -GLAPI void APIENTRY glGetMultiTexGenfvEXT (GLenum, GLenum, GLenum, GLfloat *); -GLAPI void APIENTRY glGetMultiTexGenivEXT (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetFloatIndexedvEXT (GLenum, GLuint, GLfloat *); -GLAPI void APIENTRY glGetDoubleIndexedvEXT (GLenum, GLuint, GLdouble *); -GLAPI void APIENTRY glGetPointerIndexedvEXT (GLenum, GLuint, GLvoid* *); -GLAPI void APIENTRY glCompressedTextureImage3DEXT (GLuint, GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTextureImage2DEXT (GLuint, GLenum, GLint, GLenum, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTextureImage1DEXT (GLuint, GLenum, GLint, GLenum, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTextureSubImage3DEXT (GLuint, GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTextureSubImage2DEXT (GLuint, GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedTextureSubImage1DEXT (GLuint, GLenum, GLint, GLint, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glGetCompressedTextureImageEXT (GLuint, GLenum, GLint, GLvoid *); -GLAPI void APIENTRY glCompressedMultiTexImage3DEXT (GLenum, GLenum, GLint, GLenum, GLsizei, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedMultiTexImage2DEXT (GLenum, GLenum, GLint, GLenum, GLsizei, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedMultiTexImage1DEXT (GLenum, GLenum, GLint, GLenum, GLsizei, GLint, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedMultiTexSubImage3DEXT (GLenum, GLenum, GLint, GLint, GLint, GLint, GLsizei, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedMultiTexSubImage2DEXT (GLenum, GLenum, GLint, GLint, GLint, GLsizei, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glCompressedMultiTexSubImage1DEXT (GLenum, GLenum, GLint, GLint, GLsizei, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glGetCompressedMultiTexImageEXT (GLenum, GLenum, GLint, GLvoid *); -GLAPI void APIENTRY glNamedProgramStringEXT (GLuint, GLenum, GLenum, GLsizei, const GLvoid *); -GLAPI void APIENTRY glNamedProgramLocalParameter4dEXT (GLuint, GLenum, GLuint, GLdouble, GLdouble, GLdouble, GLdouble); -GLAPI void APIENTRY glNamedProgramLocalParameter4dvEXT (GLuint, GLenum, GLuint, const GLdouble *); -GLAPI void APIENTRY glNamedProgramLocalParameter4fEXT (GLuint, GLenum, GLuint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glNamedProgramLocalParameter4fvEXT (GLuint, GLenum, GLuint, const GLfloat *); -GLAPI void APIENTRY glGetNamedProgramLocalParameterdvEXT (GLuint, GLenum, GLuint, GLdouble *); -GLAPI void APIENTRY glGetNamedProgramLocalParameterfvEXT (GLuint, GLenum, GLuint, GLfloat *); -GLAPI void APIENTRY glGetNamedProgramivEXT (GLuint, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetNamedProgramStringEXT (GLuint, GLenum, GLenum, GLvoid *); -GLAPI void APIENTRY glNamedProgramLocalParameters4fvEXT (GLuint, GLenum, GLuint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glNamedProgramLocalParameterI4iEXT (GLuint, GLenum, GLuint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glNamedProgramLocalParameterI4ivEXT (GLuint, GLenum, GLuint, const GLint *); -GLAPI void APIENTRY glNamedProgramLocalParametersI4ivEXT (GLuint, GLenum, GLuint, GLsizei, const GLint *); -GLAPI void APIENTRY glNamedProgramLocalParameterI4uiEXT (GLuint, GLenum, GLuint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glNamedProgramLocalParameterI4uivEXT (GLuint, GLenum, GLuint, const GLuint *); -GLAPI void APIENTRY glNamedProgramLocalParametersI4uivEXT (GLuint, GLenum, GLuint, GLsizei, const GLuint *); -GLAPI void APIENTRY glGetNamedProgramLocalParameterIivEXT (GLuint, GLenum, GLuint, GLint *); -GLAPI void APIENTRY glGetNamedProgramLocalParameterIuivEXT (GLuint, GLenum, GLuint, GLuint *); -GLAPI void APIENTRY glTextureParameterIivEXT (GLuint, GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glTextureParameterIuivEXT (GLuint, GLenum, GLenum, const GLuint *); -GLAPI void APIENTRY glGetTextureParameterIivEXT (GLuint, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetTextureParameterIuivEXT (GLuint, GLenum, GLenum, GLuint *); -GLAPI void APIENTRY glMultiTexParameterIivEXT (GLenum, GLenum, GLenum, const GLint *); -GLAPI void APIENTRY glMultiTexParameterIuivEXT (GLenum, GLenum, GLenum, const GLuint *); -GLAPI void APIENTRY glGetMultiTexParameterIivEXT (GLenum, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGetMultiTexParameterIuivEXT (GLenum, GLenum, GLenum, GLuint *); -GLAPI void APIENTRY glProgramUniform1fEXT (GLuint, GLint, GLfloat); -GLAPI void APIENTRY glProgramUniform2fEXT (GLuint, GLint, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramUniform3fEXT (GLuint, GLint, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramUniform4fEXT (GLuint, GLint, GLfloat, GLfloat, GLfloat, GLfloat); -GLAPI void APIENTRY glProgramUniform1iEXT (GLuint, GLint, GLint); -GLAPI void APIENTRY glProgramUniform2iEXT (GLuint, GLint, GLint, GLint); -GLAPI void APIENTRY glProgramUniform3iEXT (GLuint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glProgramUniform4iEXT (GLuint, GLint, GLint, GLint, GLint, GLint); -GLAPI void APIENTRY glProgramUniform1fvEXT (GLuint, GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glProgramUniform2fvEXT (GLuint, GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glProgramUniform3fvEXT (GLuint, GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glProgramUniform4fvEXT (GLuint, GLint, GLsizei, const GLfloat *); -GLAPI void APIENTRY glProgramUniform1ivEXT (GLuint, GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramUniform2ivEXT (GLuint, GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramUniform3ivEXT (GLuint, GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramUniform4ivEXT (GLuint, GLint, GLsizei, const GLint *); -GLAPI void APIENTRY glProgramUniformMatrix2fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix3fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix4fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix2x3fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix3x2fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix2x4fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix4x2fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix3x4fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniformMatrix4x3fvEXT (GLuint, GLint, GLsizei, GLboolean, const GLfloat *); -GLAPI void APIENTRY glProgramUniform1uiEXT (GLuint, GLint, GLuint); -GLAPI void APIENTRY glProgramUniform2uiEXT (GLuint, GLint, GLuint, GLuint); -GLAPI void APIENTRY glProgramUniform3uiEXT (GLuint, GLint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glProgramUniform4uiEXT (GLuint, GLint, GLuint, GLuint, GLuint, GLuint); -GLAPI void APIENTRY glProgramUniform1uivEXT (GLuint, GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glProgramUniform2uivEXT (GLuint, GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glProgramUniform3uivEXT (GLuint, GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glProgramUniform4uivEXT (GLuint, GLint, GLsizei, const GLuint *); -GLAPI void APIENTRY glNamedBufferDataEXT (GLuint, GLsizeiptr, const GLvoid *, GLenum); -GLAPI void APIENTRY glNamedBufferSubDataEXT (GLuint, GLintptr, GLsizeiptr, const GLvoid *); -GLAPI GLvoid* APIENTRY glMapNamedBufferEXT (GLuint, GLenum); -GLAPI GLboolean APIENTRY glUnmapNamedBufferEXT (GLuint); -GLAPI void APIENTRY glGetNamedBufferParameterivEXT (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glGetNamedBufferPointervEXT (GLuint, GLenum, GLvoid* *); -GLAPI void APIENTRY glGetNamedBufferSubDataEXT (GLuint, GLintptr, GLsizeiptr, GLvoid *); -GLAPI void APIENTRY glTextureBufferEXT (GLuint, GLenum, GLenum, GLuint); -GLAPI void APIENTRY glMultiTexBufferEXT (GLenum, GLenum, GLenum, GLuint); -GLAPI void APIENTRY glNamedRenderbufferStorageEXT (GLuint, GLenum, GLsizei, GLsizei); -GLAPI void APIENTRY glGetNamedRenderbufferParameterivEXT (GLuint, GLenum, GLint *); -GLAPI GLenum APIENTRY glCheckNamedFramebufferStatusEXT (GLuint, GLenum); -GLAPI void APIENTRY glNamedFramebufferTexture1DEXT (GLuint, GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glNamedFramebufferTexture2DEXT (GLuint, GLenum, GLenum, GLuint, GLint); -GLAPI void APIENTRY glNamedFramebufferTexture3DEXT (GLuint, GLenum, GLenum, GLuint, GLint, GLint); -GLAPI void APIENTRY glNamedFramebufferRenderbufferEXT (GLuint, GLenum, GLenum, GLuint); -GLAPI void APIENTRY glGetNamedFramebufferAttachmentParameterivEXT (GLuint, GLenum, GLenum, GLint *); -GLAPI void APIENTRY glGenerateTextureMipmapEXT (GLuint, GLenum); -GLAPI void APIENTRY glGenerateMultiTexMipmapEXT (GLenum, GLenum); -GLAPI void APIENTRY glFramebufferDrawBufferEXT (GLuint, GLenum); -GLAPI void APIENTRY glFramebufferDrawBuffersEXT (GLuint, GLsizei, const GLenum *); -GLAPI void APIENTRY glFramebufferReadBufferEXT (GLuint, GLenum); -GLAPI void APIENTRY glGetFramebufferParameterivEXT (GLuint, GLenum, GLint *); -GLAPI void APIENTRY glNamedRenderbufferStorageMultisampleEXT (GLuint, GLsizei, GLenum, GLsizei, GLsizei); -GLAPI void APIENTRY glNamedRenderbufferStorageMultisampleCoverageEXT (GLuint, GLsizei, GLsizei, GLenum, GLsizei, GLsizei); -GLAPI void APIENTRY glNamedFramebufferTextureEXT (GLuint, GLenum, GLuint, GLint); -GLAPI void APIENTRY glNamedFramebufferTextureLayerEXT (GLuint, GLenum, GLuint, GLint, GLint); -GLAPI void APIENTRY glNamedFramebufferTextureFaceEXT (GLuint, GLenum, GLuint, GLint, GLenum); -GLAPI void APIENTRY glTextureRenderbufferEXT (GLuint, GLenum, GLuint); -GLAPI void APIENTRY glMultiTexRenderbufferEXT (GLenum, GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLCLIENTATTRIBDEFAULTEXTPROC) (GLbitfield mask); -typedef void (APIENTRYP PFNGLPUSHCLIENTATTRIBDEFAULTEXTPROC) (GLbitfield mask); -typedef void (APIENTRYP PFNGLMATRIXLOADFEXTPROC) (GLenum mode, const GLfloat *m); -typedef void (APIENTRYP PFNGLMATRIXLOADDEXTPROC) (GLenum mode, const GLdouble *m); -typedef void (APIENTRYP PFNGLMATRIXMULTFEXTPROC) (GLenum mode, const GLfloat *m); -typedef void (APIENTRYP PFNGLMATRIXMULTDEXTPROC) (GLenum mode, const GLdouble *m); -typedef void (APIENTRYP PFNGLMATRIXLOADIDENTITYEXTPROC) (GLenum mode); -typedef void (APIENTRYP PFNGLMATRIXROTATEFEXTPROC) (GLenum mode, GLfloat angle, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLMATRIXROTATEDEXTPROC) (GLenum mode, GLdouble angle, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLMATRIXSCALEFEXTPROC) (GLenum mode, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLMATRIXSCALEDEXTPROC) (GLenum mode, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLMATRIXTRANSLATEFEXTPROC) (GLenum mode, GLfloat x, GLfloat y, GLfloat z); -typedef void (APIENTRYP PFNGLMATRIXTRANSLATEDEXTPROC) (GLenum mode, GLdouble x, GLdouble y, GLdouble z); -typedef void (APIENTRYP PFNGLMATRIXFRUSTUMEXTPROC) (GLenum mode, GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble zNear, GLdouble zFar); -typedef void (APIENTRYP PFNGLMATRIXORTHOEXTPROC) (GLenum mode, GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble zNear, GLdouble zFar); -typedef void (APIENTRYP PFNGLMATRIXPOPEXTPROC) (GLenum mode); -typedef void (APIENTRYP PFNGLMATRIXPUSHEXTPROC) (GLenum mode); -typedef void (APIENTRYP PFNGLMATRIXLOADTRANSPOSEFEXTPROC) (GLenum mode, const GLfloat *m); -typedef void (APIENTRYP PFNGLMATRIXLOADTRANSPOSEDEXTPROC) (GLenum mode, const GLdouble *m); -typedef void (APIENTRYP PFNGLMATRIXMULTTRANSPOSEFEXTPROC) (GLenum mode, const GLfloat *m); -typedef void (APIENTRYP PFNGLMATRIXMULTTRANSPOSEDEXTPROC) (GLenum mode, const GLdouble *m); -typedef void (APIENTRYP PFNGLTEXTUREPARAMETERFEXTPROC) (GLuint texture, GLenum target, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLTEXTUREPARAMETERFVEXTPROC) (GLuint texture, GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLTEXTUREPARAMETERIEXTPROC) (GLuint texture, GLenum target, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLTEXTUREPARAMETERIVEXTPROC) (GLuint texture, GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLTEXTUREIMAGE1DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXTUREIMAGE2DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXTURESUBIMAGE1DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXTURESUBIMAGE2DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLCOPYTEXTUREIMAGE1DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLint border); -typedef void (APIENTRYP PFNGLCOPYTEXTUREIMAGE2DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height, GLint border); -typedef void (APIENTRYP PFNGLCOPYTEXTURESUBIMAGE1DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLCOPYTEXTURESUBIMAGE2DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETTEXTUREIMAGEEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum format, GLenum type, GLvoid *pixels); -typedef void (APIENTRYP PFNGLGETTEXTUREPARAMETERFVEXTPROC) (GLuint texture, GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETTEXTUREPARAMETERIVEXTPROC) (GLuint texture, GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETTEXTURELEVELPARAMETERFVEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETTEXTURELEVELPARAMETERIVEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLTEXTUREIMAGE3DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLTEXTURESUBIMAGE3DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLCOPYTEXTURESUBIMAGE3DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLMULTITEXPARAMETERFEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLMULTITEXPARAMETERFVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLMULTITEXPARAMETERIEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLMULTITEXPARAMETERIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLMULTITEXIMAGE1DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLMULTITEXIMAGE2DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLMULTITEXSUBIMAGE1DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLMULTITEXSUBIMAGE2DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLCOPYMULTITEXIMAGE1DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLint border); -typedef void (APIENTRYP PFNGLCOPYMULTITEXIMAGE2DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height, GLint border); -typedef void (APIENTRYP PFNGLCOPYMULTITEXSUBIMAGE1DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint x, GLint y, GLsizei width); -typedef void (APIENTRYP PFNGLCOPYMULTITEXSUBIMAGE2DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETMULTITEXIMAGEEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum format, GLenum type, GLvoid *pixels); -typedef void (APIENTRYP PFNGLGETMULTITEXPARAMETERFVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMULTITEXPARAMETERIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMULTITEXLEVELPARAMETERFVEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMULTITEXLEVELPARAMETERIVEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLMULTITEXIMAGE3DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLMULTITEXSUBIMAGE3DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const GLvoid *pixels); -typedef void (APIENTRYP PFNGLCOPYMULTITEXSUBIMAGE3DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLBINDMULTITEXTUREEXTPROC) (GLenum texunit, GLenum target, GLuint texture); -typedef void (APIENTRYP PFNGLENABLECLIENTSTATEINDEXEDEXTPROC) (GLenum array, GLuint index); -typedef void (APIENTRYP PFNGLDISABLECLIENTSTATEINDEXEDEXTPROC) (GLenum array, GLuint index); -typedef void (APIENTRYP PFNGLMULTITEXCOORDPOINTEREXTPROC) (GLenum texunit, GLint size, GLenum type, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRYP PFNGLMULTITEXENVFEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLMULTITEXENVFVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLMULTITEXENVIEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLMULTITEXENVIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLMULTITEXGENDEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, GLdouble param); -typedef void (APIENTRYP PFNGLMULTITEXGENDVEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, const GLdouble *params); -typedef void (APIENTRYP PFNGLMULTITEXGENFEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, GLfloat param); -typedef void (APIENTRYP PFNGLMULTITEXGENFVEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, const GLfloat *params); -typedef void (APIENTRYP PFNGLMULTITEXGENIEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, GLint param); -typedef void (APIENTRYP PFNGLMULTITEXGENIVEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLGETMULTITEXENVFVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMULTITEXENVIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMULTITEXGENDVEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, GLdouble *params); -typedef void (APIENTRYP PFNGLGETMULTITEXGENFVEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, GLfloat *params); -typedef void (APIENTRYP PFNGLGETMULTITEXGENIVEXTPROC) (GLenum texunit, GLenum coord, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETFLOATINDEXEDVEXTPROC) (GLenum target, GLuint index, GLfloat *data); -typedef void (APIENTRYP PFNGLGETDOUBLEINDEXEDVEXTPROC) (GLenum target, GLuint index, GLdouble *data); -typedef void (APIENTRYP PFNGLGETPOINTERINDEXEDVEXTPROC) (GLenum target, GLuint index, GLvoid* *data); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXTUREIMAGE3DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXTUREIMAGE2DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXTUREIMAGE1DEXTPROC) (GLuint texture, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXTURESUBIMAGE3DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXTURESUBIMAGE2DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDTEXTURESUBIMAGE1DEXTPROC) (GLuint texture, GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLGETCOMPRESSEDTEXTUREIMAGEEXTPROC) (GLuint texture, GLenum target, GLint lod, GLvoid *img); -typedef void (APIENTRYP PFNGLCOMPRESSEDMULTITEXIMAGE3DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDMULTITEXIMAGE2DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDMULTITEXIMAGE1DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDMULTITEXSUBIMAGE3DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDMULTITEXSUBIMAGE2DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLCOMPRESSEDMULTITEXSUBIMAGE1DEXTPROC) (GLenum texunit, GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, const GLvoid *bits); -typedef void (APIENTRYP PFNGLGETCOMPRESSEDMULTITEXIMAGEEXTPROC) (GLenum texunit, GLenum target, GLint lod, GLvoid *img); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMSTRINGEXTPROC) (GLuint program, GLenum target, GLenum format, GLsizei len, const GLvoid *string); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETER4DEXTPROC) (GLuint program, GLenum target, GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETER4DVEXTPROC) (GLuint program, GLenum target, GLuint index, const GLdouble *params); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETER4FEXTPROC) (GLuint program, GLenum target, GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETER4FVEXTPROC) (GLuint program, GLenum target, GLuint index, const GLfloat *params); -typedef void (APIENTRYP PFNGLGETNAMEDPROGRAMLOCALPARAMETERDVEXTPROC) (GLuint program, GLenum target, GLuint index, GLdouble *params); -typedef void (APIENTRYP PFNGLGETNAMEDPROGRAMLOCALPARAMETERFVEXTPROC) (GLuint program, GLenum target, GLuint index, GLfloat *params); -typedef void (APIENTRYP PFNGLGETNAMEDPROGRAMIVEXTPROC) (GLuint program, GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETNAMEDPROGRAMSTRINGEXTPROC) (GLuint program, GLenum target, GLenum pname, GLvoid *string); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERS4FVEXTPROC) (GLuint program, GLenum target, GLuint index, GLsizei count, const GLfloat *params); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERI4IEXTPROC) (GLuint program, GLenum target, GLuint index, GLint x, GLint y, GLint z, GLint w); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERI4IVEXTPROC) (GLuint program, GLenum target, GLuint index, const GLint *params); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERSI4IVEXTPROC) (GLuint program, GLenum target, GLuint index, GLsizei count, const GLint *params); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERI4UIEXTPROC) (GLuint program, GLenum target, GLuint index, GLuint x, GLuint y, GLuint z, GLuint w); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERI4UIVEXTPROC) (GLuint program, GLenum target, GLuint index, const GLuint *params); -typedef void (APIENTRYP PFNGLNAMEDPROGRAMLOCALPARAMETERSI4UIVEXTPROC) (GLuint program, GLenum target, GLuint index, GLsizei count, const GLuint *params); -typedef void (APIENTRYP PFNGLGETNAMEDPROGRAMLOCALPARAMETERIIVEXTPROC) (GLuint program, GLenum target, GLuint index, GLint *params); -typedef void (APIENTRYP PFNGLGETNAMEDPROGRAMLOCALPARAMETERIUIVEXTPROC) (GLuint program, GLenum target, GLuint index, GLuint *params); -typedef void (APIENTRYP PFNGLTEXTUREPARAMETERIIVEXTPROC) (GLuint texture, GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLTEXTUREPARAMETERIUIVEXTPROC) (GLuint texture, GLenum target, GLenum pname, const GLuint *params); -typedef void (APIENTRYP PFNGLGETTEXTUREPARAMETERIIVEXTPROC) (GLuint texture, GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETTEXTUREPARAMETERIUIVEXTPROC) (GLuint texture, GLenum target, GLenum pname, GLuint *params); -typedef void (APIENTRYP PFNGLMULTITEXPARAMETERIIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, const GLint *params); -typedef void (APIENTRYP PFNGLMULTITEXPARAMETERIUIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, const GLuint *params); -typedef void (APIENTRYP PFNGLGETMULTITEXPARAMETERIIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETMULTITEXPARAMETERIUIVEXTPROC) (GLenum texunit, GLenum target, GLenum pname, GLuint *params); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM1FEXTPROC) (GLuint program, GLint location, GLfloat v0); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM2FEXTPROC) (GLuint program, GLint location, GLfloat v0, GLfloat v1); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM3FEXTPROC) (GLuint program, GLint location, GLfloat v0, GLfloat v1, GLfloat v2); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM4FEXTPROC) (GLuint program, GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM1IEXTPROC) (GLuint program, GLint location, GLint v0); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM2IEXTPROC) (GLuint program, GLint location, GLint v0, GLint v1); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM3IEXTPROC) (GLuint program, GLint location, GLint v0, GLint v1, GLint v2); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM4IEXTPROC) (GLuint program, GLint location, GLint v0, GLint v1, GLint v2, GLint v3); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM1FVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM2FVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM3FVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM4FVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM1IVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM2IVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM3IVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM4IVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX2FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX3FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX4FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX2X3FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX3X2FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX2X4FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX4X2FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX3X4FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORMMATRIX4X3FVEXTPROC) (GLuint program, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM1UIEXTPROC) (GLuint program, GLint location, GLuint v0); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM2UIEXTPROC) (GLuint program, GLint location, GLuint v0, GLuint v1); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM3UIEXTPROC) (GLuint program, GLint location, GLuint v0, GLuint v1, GLuint v2); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM4UIEXTPROC) (GLuint program, GLint location, GLuint v0, GLuint v1, GLuint v2, GLuint v3); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM1UIVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM2UIVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM3UIVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLPROGRAMUNIFORM4UIVEXTPROC) (GLuint program, GLint location, GLsizei count, const GLuint *value); -typedef void (APIENTRYP PFNGLNAMEDBUFFERDATAEXTPROC) (GLuint buffer, GLsizeiptr size, const GLvoid *data, GLenum usage); -typedef void (APIENTRYP PFNGLNAMEDBUFFERSUBDATAEXTPROC) (GLuint buffer, GLintptr offset, GLsizeiptr size, const GLvoid *data); -typedef GLvoid* (APIENTRYP PFNGLMAPNAMEDBUFFEREXTPROC) (GLuint buffer, GLenum access); -typedef GLboolean (APIENTRYP PFNGLUNMAPNAMEDBUFFEREXTPROC) (GLuint buffer); -typedef void (APIENTRYP PFNGLGETNAMEDBUFFERPARAMETERIVEXTPROC) (GLuint buffer, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGETNAMEDBUFFERPOINTERVEXTPROC) (GLuint buffer, GLenum pname, GLvoid* *params); -typedef void (APIENTRYP PFNGLGETNAMEDBUFFERSUBDATAEXTPROC) (GLuint buffer, GLintptr offset, GLsizeiptr size, GLvoid *data); -typedef void (APIENTRYP PFNGLTEXTUREBUFFEREXTPROC) (GLuint texture, GLenum target, GLenum internalformat, GLuint buffer); -typedef void (APIENTRYP PFNGLMULTITEXBUFFEREXTPROC) (GLenum texunit, GLenum target, GLenum internalformat, GLuint buffer); -typedef void (APIENTRYP PFNGLNAMEDRENDERBUFFERSTORAGEEXTPROC) (GLuint renderbuffer, GLenum internalformat, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLGETNAMEDRENDERBUFFERPARAMETERIVEXTPROC) (GLuint renderbuffer, GLenum pname, GLint *params); -typedef GLenum (APIENTRYP PFNGLCHECKNAMEDFRAMEBUFFERSTATUSEXTPROC) (GLuint framebuffer, GLenum target); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERTEXTURE1DEXTPROC) (GLuint framebuffer, GLenum attachment, GLenum textarget, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERTEXTURE2DEXTPROC) (GLuint framebuffer, GLenum attachment, GLenum textarget, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERTEXTURE3DEXTPROC) (GLuint framebuffer, GLenum attachment, GLenum textarget, GLuint texture, GLint level, GLint zoffset); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERRENDERBUFFEREXTPROC) (GLuint framebuffer, GLenum attachment, GLenum renderbuffertarget, GLuint renderbuffer); -typedef void (APIENTRYP PFNGLGETNAMEDFRAMEBUFFERATTACHMENTPARAMETERIVEXTPROC) (GLuint framebuffer, GLenum attachment, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLGENERATETEXTUREMIPMAPEXTPROC) (GLuint texture, GLenum target); -typedef void (APIENTRYP PFNGLGENERATEMULTITEXMIPMAPEXTPROC) (GLenum texunit, GLenum target); -typedef void (APIENTRYP PFNGLFRAMEBUFFERDRAWBUFFEREXTPROC) (GLuint framebuffer, GLenum mode); -typedef void (APIENTRYP PFNGLFRAMEBUFFERDRAWBUFFERSEXTPROC) (GLuint framebuffer, GLsizei n, const GLenum *bufs); -typedef void (APIENTRYP PFNGLFRAMEBUFFERREADBUFFEREXTPROC) (GLuint framebuffer, GLenum mode); -typedef void (APIENTRYP PFNGLGETFRAMEBUFFERPARAMETERIVEXTPROC) (GLuint framebuffer, GLenum pname, GLint *params); -typedef void (APIENTRYP PFNGLNAMEDRENDERBUFFERSTORAGEMULTISAMPLEEXTPROC) (GLuint renderbuffer, GLsizei samples, GLenum internalformat, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLNAMEDRENDERBUFFERSTORAGEMULTISAMPLECOVERAGEEXTPROC) (GLuint renderbuffer, GLsizei coverageSamples, GLsizei colorSamples, GLenum internalformat, GLsizei width, GLsizei height); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERTEXTUREEXTPROC) (GLuint framebuffer, GLenum attachment, GLuint texture, GLint level); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERTEXTURELAYEREXTPROC) (GLuint framebuffer, GLenum attachment, GLuint texture, GLint level, GLint layer); -typedef void (APIENTRYP PFNGLNAMEDFRAMEBUFFERTEXTUREFACEEXTPROC) (GLuint framebuffer, GLenum attachment, GLuint texture, GLint level, GLenum face); -typedef void (APIENTRYP PFNGLTEXTURERENDERBUFFEREXTPROC) (GLuint texture, GLenum target, GLuint renderbuffer); -typedef void (APIENTRYP PFNGLMULTITEXRENDERBUFFEREXTPROC) (GLenum texunit, GLenum target, GLuint renderbuffer); -#endif - -#ifndef GL_EXT_vertex_array_bgra -#define GL_EXT_vertex_array_bgra 1 -#endif - -#ifndef GL_EXT_texture_swizzle -#define GL_EXT_texture_swizzle 1 -#endif - -#ifndef GL_NV_explicit_multisample -#define GL_NV_explicit_multisample 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glGetMultisamplefvNV (GLenum, GLuint, GLfloat *); -GLAPI void APIENTRY glSampleMaskIndexedNV (GLuint, GLbitfield); -GLAPI void APIENTRY glTexRenderbufferNV (GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLGETMULTISAMPLEFVNVPROC) (GLenum pname, GLuint index, GLfloat *val); -typedef void (APIENTRYP PFNGLSAMPLEMASKINDEXEDNVPROC) (GLuint index, GLbitfield mask); -typedef void (APIENTRYP PFNGLTEXRENDERBUFFERNVPROC) (GLenum target, GLuint renderbuffer); -#endif - -#ifndef GL_NV_transform_feedback2 -#define GL_NV_transform_feedback2 1 -#ifdef GL_GLEXT_PROTOTYPES -GLAPI void APIENTRY glBindTransformFeedbackNV (GLenum, GLuint); -GLAPI void APIENTRY glDeleteTransformFeedbacksNV (GLsizei, const GLuint *); -GLAPI void APIENTRY glGenTransformFeedbacksNV (GLsizei, GLuint *); -GLAPI GLboolean APIENTRY glIsTransformFeedbackNV (GLuint); -GLAPI void APIENTRY glPauseTransformFeedbackNV (void); -GLAPI void APIENTRY glResumeTransformFeedbackNV (void); -GLAPI void APIENTRY glDrawTransformFeedbackNV (GLenum, GLuint); -#endif /* GL_GLEXT_PROTOTYPES */ -typedef void (APIENTRYP PFNGLBINDTRANSFORMFEEDBACKNVPROC) (GLenum target, GLuint id); -typedef void (APIENTRYP PFNGLDELETETRANSFORMFEEDBACKSNVPROC) (GLsizei n, const GLuint *ids); -typedef void (APIENTRYP PFNGLGENTRANSFORMFEEDBACKSNVPROC) (GLsizei n, GLuint *ids); -typedef GLboolean (APIENTRYP PFNGLISTRANSFORMFEEDBACKNVPROC) (GLuint id); -typedef void (APIENTRYP PFNGLPAUSETRANSFORMFEEDBACKNVPROC) (void); -typedef void (APIENTRYP PFNGLRESUMETRANSFORMFEEDBACKNVPROC) (void); -typedef void (APIENTRYP PFNGLDRAWTRANSFORMFEEDBACKNVPROC) (GLenum mode, GLuint id); -#endif - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/GL/glxext.h b/opengl/Togl2.1-SnapPy/GL/glxext.h deleted file mode 100644 index ba2fad889..000000000 --- a/opengl/Togl2.1-SnapPy/GL/glxext.h +++ /dev/null @@ -1,828 +0,0 @@ -#ifndef __glxext_h_ -#define __glxext_h_ - -#ifdef __cplusplus -extern "C" { -#endif - -/* -** Copyright (c) 2007 The Khronos Group Inc. -** -** Permission is hereby granted, free of charge, to any person obtaining a -** copy of this software and/or associated documentation files (the -** "Materials"), to deal in the Materials without restriction, including -** without limitation the rights to use, copy, modify, merge, publish, -** distribute, sublicense, and/or sell copies of the Materials, and to -** permit persons to whom the Materials are furnished to do so, subject to -** the following conditions: -** -** The above copyright notice and this permission notice shall be included -** in all copies or substantial portions of the Materials. -** -** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS. -*/ - -#if defined(_WIN32) && !defined(APIENTRY) && !defined(__CYGWIN__) && !defined(__SCITECH_SNAP__) -#define WIN32_LEAN_AND_MEAN 1 -#include -#endif - -#ifndef APIENTRY -#define APIENTRY -#endif -#ifndef APIENTRYP -#define APIENTRYP APIENTRY * -#endif -#ifndef GLAPI -#define GLAPI extern -#endif - -/*************************************************************/ - -/* Header file version number, required by OpenGL ABI for Linux */ -/* glxext.h last updated 2008/10/22 */ -/* Current version at http://www.opengl.org/registry/ */ -#define GLX_GLXEXT_VERSION 21 - -#ifndef GLX_VERSION_1_3 -#define GLX_WINDOW_BIT 0x00000001 -#define GLX_PIXMAP_BIT 0x00000002 -#define GLX_PBUFFER_BIT 0x00000004 -#define GLX_RGBA_BIT 0x00000001 -#define GLX_COLOR_INDEX_BIT 0x00000002 -#define GLX_PBUFFER_CLOBBER_MASK 0x08000000 -#define GLX_FRONT_LEFT_BUFFER_BIT 0x00000001 -#define GLX_FRONT_RIGHT_BUFFER_BIT 0x00000002 -#define GLX_BACK_LEFT_BUFFER_BIT 0x00000004 -#define GLX_BACK_RIGHT_BUFFER_BIT 0x00000008 -#define GLX_AUX_BUFFERS_BIT 0x00000010 -#define GLX_DEPTH_BUFFER_BIT 0x00000020 -#define GLX_STENCIL_BUFFER_BIT 0x00000040 -#define GLX_ACCUM_BUFFER_BIT 0x00000080 -#define GLX_CONFIG_CAVEAT 0x20 -#define GLX_X_VISUAL_TYPE 0x22 -#define GLX_TRANSPARENT_TYPE 0x23 -#define GLX_TRANSPARENT_INDEX_VALUE 0x24 -#define GLX_TRANSPARENT_RED_VALUE 0x25 -#define GLX_TRANSPARENT_GREEN_VALUE 0x26 -#define GLX_TRANSPARENT_BLUE_VALUE 0x27 -#define GLX_TRANSPARENT_ALPHA_VALUE 0x28 -#define GLX_DONT_CARE 0xFFFFFFFF -#define GLX_NONE 0x8000 -#define GLX_SLOW_CONFIG 0x8001 -#define GLX_TRUE_COLOR 0x8002 -#define GLX_DIRECT_COLOR 0x8003 -#define GLX_PSEUDO_COLOR 0x8004 -#define GLX_STATIC_COLOR 0x8005 -#define GLX_GRAY_SCALE 0x8006 -#define GLX_STATIC_GRAY 0x8007 -#define GLX_TRANSPARENT_RGB 0x8008 -#define GLX_TRANSPARENT_INDEX 0x8009 -#define GLX_VISUAL_ID 0x800B -#define GLX_SCREEN 0x800C -#define GLX_NON_CONFORMANT_CONFIG 0x800D -#define GLX_DRAWABLE_TYPE 0x8010 -#define GLX_RENDER_TYPE 0x8011 -#define GLX_X_RENDERABLE 0x8012 -#define GLX_FBCONFIG_ID 0x8013 -#define GLX_RGBA_TYPE 0x8014 -#define GLX_COLOR_INDEX_TYPE 0x8015 -#define GLX_MAX_PBUFFER_WIDTH 0x8016 -#define GLX_MAX_PBUFFER_HEIGHT 0x8017 -#define GLX_MAX_PBUFFER_PIXELS 0x8018 -#define GLX_PRESERVED_CONTENTS 0x801B -#define GLX_LARGEST_PBUFFER 0x801C -#define GLX_WIDTH 0x801D -#define GLX_HEIGHT 0x801E -#define GLX_EVENT_MASK 0x801F -#define GLX_DAMAGED 0x8020 -#define GLX_SAVED 0x8021 -#define GLX_WINDOW 0x8022 -#define GLX_PBUFFER 0x8023 -#define GLX_PBUFFER_HEIGHT 0x8040 -#define GLX_PBUFFER_WIDTH 0x8041 -#endif - -#ifndef GLX_ARB_get_proc_address -#endif - -#ifndef GLX_ARB_multisample -#define GLX_SAMPLE_BUFFERS_ARB 100000 -#define GLX_SAMPLES_ARB 100001 -#endif - -#ifndef GLX_ARB_fbconfig_float -#define GLX_RGBA_FLOAT_TYPE_ARB 0x20B9 -#define GLX_RGBA_FLOAT_BIT_ARB 0x00000004 -#endif - -#ifndef GLX_ARB_create_context -#define GLX_CONTEXT_DEBUG_BIT_ARB 0x00000001 -#define GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x00000002 -#define GLX_CONTEXT_MAJOR_VERSION_ARB 0x2091 -#define GLX_CONTEXT_MINOR_VERSION_ARB 0x2092 -#define GLX_CONTEXT_FLAGS_ARB 0x2094 -#endif - -#ifndef GLX_SGIS_multisample -#define GLX_SAMPLE_BUFFERS_SGIS 100000 -#define GLX_SAMPLES_SGIS 100001 -#endif - -#ifndef GLX_EXT_visual_info -#define GLX_X_VISUAL_TYPE_EXT 0x22 -#define GLX_TRANSPARENT_TYPE_EXT 0x23 -#define GLX_TRANSPARENT_INDEX_VALUE_EXT 0x24 -#define GLX_TRANSPARENT_RED_VALUE_EXT 0x25 -#define GLX_TRANSPARENT_GREEN_VALUE_EXT 0x26 -#define GLX_TRANSPARENT_BLUE_VALUE_EXT 0x27 -#define GLX_TRANSPARENT_ALPHA_VALUE_EXT 0x28 -#define GLX_NONE_EXT 0x8000 -#define GLX_TRUE_COLOR_EXT 0x8002 -#define GLX_DIRECT_COLOR_EXT 0x8003 -#define GLX_PSEUDO_COLOR_EXT 0x8004 -#define GLX_STATIC_COLOR_EXT 0x8005 -#define GLX_GRAY_SCALE_EXT 0x8006 -#define GLX_STATIC_GRAY_EXT 0x8007 -#define GLX_TRANSPARENT_RGB_EXT 0x8008 -#define GLX_TRANSPARENT_INDEX_EXT 0x8009 -#endif - -#ifndef GLX_SGI_swap_control -#endif - -#ifndef GLX_SGI_video_sync -#endif - -#ifndef GLX_SGI_make_current_read -#endif - -#ifndef GLX_SGIX_video_source -#endif - -#ifndef GLX_EXT_visual_rating -#define GLX_VISUAL_CAVEAT_EXT 0x20 -#define GLX_SLOW_VISUAL_EXT 0x8001 -#define GLX_NON_CONFORMANT_VISUAL_EXT 0x800D -/* reuse GLX_NONE_EXT */ -#endif - -#ifndef GLX_EXT_import_context -#define GLX_SHARE_CONTEXT_EXT 0x800A -#define GLX_VISUAL_ID_EXT 0x800B -#define GLX_SCREEN_EXT 0x800C -#endif - -#ifndef GLX_SGIX_fbconfig -#define GLX_WINDOW_BIT_SGIX 0x00000001 -#define GLX_PIXMAP_BIT_SGIX 0x00000002 -#define GLX_RGBA_BIT_SGIX 0x00000001 -#define GLX_COLOR_INDEX_BIT_SGIX 0x00000002 -#define GLX_DRAWABLE_TYPE_SGIX 0x8010 -#define GLX_RENDER_TYPE_SGIX 0x8011 -#define GLX_X_RENDERABLE_SGIX 0x8012 -#define GLX_FBCONFIG_ID_SGIX 0x8013 -#define GLX_RGBA_TYPE_SGIX 0x8014 -#define GLX_COLOR_INDEX_TYPE_SGIX 0x8015 -/* reuse GLX_SCREEN_EXT */ -#endif - -#ifndef GLX_SGIX_pbuffer -#define GLX_PBUFFER_BIT_SGIX 0x00000004 -#define GLX_BUFFER_CLOBBER_MASK_SGIX 0x08000000 -#define GLX_FRONT_LEFT_BUFFER_BIT_SGIX 0x00000001 -#define GLX_FRONT_RIGHT_BUFFER_BIT_SGIX 0x00000002 -#define GLX_BACK_LEFT_BUFFER_BIT_SGIX 0x00000004 -#define GLX_BACK_RIGHT_BUFFER_BIT_SGIX 0x00000008 -#define GLX_AUX_BUFFERS_BIT_SGIX 0x00000010 -#define GLX_DEPTH_BUFFER_BIT_SGIX 0x00000020 -#define GLX_STENCIL_BUFFER_BIT_SGIX 0x00000040 -#define GLX_ACCUM_BUFFER_BIT_SGIX 0x00000080 -#define GLX_SAMPLE_BUFFERS_BIT_SGIX 0x00000100 -#define GLX_MAX_PBUFFER_WIDTH_SGIX 0x8016 -#define GLX_MAX_PBUFFER_HEIGHT_SGIX 0x8017 -#define GLX_MAX_PBUFFER_PIXELS_SGIX 0x8018 -#define GLX_OPTIMAL_PBUFFER_WIDTH_SGIX 0x8019 -#define GLX_OPTIMAL_PBUFFER_HEIGHT_SGIX 0x801A -#define GLX_PRESERVED_CONTENTS_SGIX 0x801B -#define GLX_LARGEST_PBUFFER_SGIX 0x801C -#define GLX_WIDTH_SGIX 0x801D -#define GLX_HEIGHT_SGIX 0x801E -#define GLX_EVENT_MASK_SGIX 0x801F -#define GLX_DAMAGED_SGIX 0x8020 -#define GLX_SAVED_SGIX 0x8021 -#define GLX_WINDOW_SGIX 0x8022 -#define GLX_PBUFFER_SGIX 0x8023 -#endif - -#ifndef GLX_SGI_cushion -#endif - -#ifndef GLX_SGIX_video_resize -#define GLX_SYNC_FRAME_SGIX 0x00000000 -#define GLX_SYNC_SWAP_SGIX 0x00000001 -#endif - -#ifndef GLX_SGIX_dmbuffer -#define GLX_DIGITAL_MEDIA_PBUFFER_SGIX 0x8024 -#endif - -#ifndef GLX_SGIX_swap_group -#endif - -#ifndef GLX_SGIX_swap_barrier -#endif - -#ifndef GLX_SGIS_blended_overlay -#define GLX_BLENDED_RGBA_SGIS 0x8025 -#endif - -#ifndef GLX_SGIS_shared_multisample -#define GLX_MULTISAMPLE_SUB_RECT_WIDTH_SGIS 0x8026 -#define GLX_MULTISAMPLE_SUB_RECT_HEIGHT_SGIS 0x8027 -#endif - -#ifndef GLX_SUN_get_transparent_index -#endif - -#ifndef GLX_3DFX_multisample -#define GLX_SAMPLE_BUFFERS_3DFX 0x8050 -#define GLX_SAMPLES_3DFX 0x8051 -#endif - -#ifndef GLX_MESA_copy_sub_buffer -#endif - -#ifndef GLX_MESA_pixmap_colormap -#endif - -#ifndef GLX_MESA_release_buffers -#endif - -#ifndef GLX_MESA_set_3dfx_mode -#define GLX_3DFX_WINDOW_MODE_MESA 0x1 -#define GLX_3DFX_FULLSCREEN_MODE_MESA 0x2 -#endif - -#ifndef GLX_SGIX_visual_select_group -#define GLX_VISUAL_SELECT_GROUP_SGIX 0x8028 -#endif - -#ifndef GLX_OML_swap_method -#define GLX_SWAP_METHOD_OML 0x8060 -#define GLX_SWAP_EXCHANGE_OML 0x8061 -#define GLX_SWAP_COPY_OML 0x8062 -#define GLX_SWAP_UNDEFINED_OML 0x8063 -#endif - -#ifndef GLX_OML_sync_control -#endif - -#ifndef GLX_NV_float_buffer -#define GLX_FLOAT_COMPONENTS_NV 0x20B0 -#endif - -#ifndef GLX_SGIX_hyperpipe -#define GLX_HYPERPIPE_PIPE_NAME_LENGTH_SGIX 80 -#define GLX_BAD_HYPERPIPE_CONFIG_SGIX 91 -#define GLX_BAD_HYPERPIPE_SGIX 92 -#define GLX_HYPERPIPE_DISPLAY_PIPE_SGIX 0x00000001 -#define GLX_HYPERPIPE_RENDER_PIPE_SGIX 0x00000002 -#define GLX_PIPE_RECT_SGIX 0x00000001 -#define GLX_PIPE_RECT_LIMITS_SGIX 0x00000002 -#define GLX_HYPERPIPE_STEREO_SGIX 0x00000003 -#define GLX_HYPERPIPE_PIXEL_AVERAGE_SGIX 0x00000004 -#define GLX_HYPERPIPE_ID_SGIX 0x8030 -#endif - -#ifndef GLX_MESA_agp_offset -#endif - -#ifndef GLX_EXT_fbconfig_packed_float -#define GLX_RGBA_UNSIGNED_FLOAT_TYPE_EXT 0x20B1 -#define GLX_RGBA_UNSIGNED_FLOAT_BIT_EXT 0x00000008 -#endif - -#ifndef GLX_EXT_framebuffer_sRGB -#define GLX_FRAMEBUFFER_SRGB_CAPABLE_EXT 0x20B2 -#endif - -#ifndef GLX_EXT_texture_from_pixmap -#define GLX_TEXTURE_1D_BIT_EXT 0x00000001 -#define GLX_TEXTURE_2D_BIT_EXT 0x00000002 -#define GLX_TEXTURE_RECTANGLE_BIT_EXT 0x00000004 -#define GLX_BIND_TO_TEXTURE_RGB_EXT 0x20D0 -#define GLX_BIND_TO_TEXTURE_RGBA_EXT 0x20D1 -#define GLX_BIND_TO_MIPMAP_TEXTURE_EXT 0x20D2 -#define GLX_BIND_TO_TEXTURE_TARGETS_EXT 0x20D3 -#define GLX_Y_INVERTED_EXT 0x20D4 -#define GLX_TEXTURE_FORMAT_EXT 0x20D5 -#define GLX_TEXTURE_TARGET_EXT 0x20D6 -#define GLX_MIPMAP_TEXTURE_EXT 0x20D7 -#define GLX_TEXTURE_FORMAT_NONE_EXT 0x20D8 -#define GLX_TEXTURE_FORMAT_RGB_EXT 0x20D9 -#define GLX_TEXTURE_FORMAT_RGBA_EXT 0x20DA -#define GLX_TEXTURE_1D_EXT 0x20DB -#define GLX_TEXTURE_2D_EXT 0x20DC -#define GLX_TEXTURE_RECTANGLE_EXT 0x20DD -#define GLX_FRONT_LEFT_EXT 0x20DE -#define GLX_FRONT_RIGHT_EXT 0x20DF -#define GLX_BACK_LEFT_EXT 0x20E0 -#define GLX_BACK_RIGHT_EXT 0x20E1 -#define GLX_FRONT_EXT GLX_FRONT_LEFT_EXT -#define GLX_BACK_EXT GLX_BACK_LEFT_EXT -#define GLX_AUX0_EXT 0x20E2 -#define GLX_AUX1_EXT 0x20E3 -#define GLX_AUX2_EXT 0x20E4 -#define GLX_AUX3_EXT 0x20E5 -#define GLX_AUX4_EXT 0x20E6 -#define GLX_AUX5_EXT 0x20E7 -#define GLX_AUX6_EXT 0x20E8 -#define GLX_AUX7_EXT 0x20E9 -#define GLX_AUX8_EXT 0x20EA -#define GLX_AUX9_EXT 0x20EB -#endif - -#ifndef GLX_NV_present_video -#define GLX_NUM_VIDEO_SLOTS_NV 0x20F0 -#endif - -#ifndef GLX_NV_video_out -#define GLX_VIDEO_OUT_COLOR_NV 0x20C3 -#define GLX_VIDEO_OUT_ALPHA_NV 0x20C4 -#define GLX_VIDEO_OUT_DEPTH_NV 0x20C5 -#define GLX_VIDEO_OUT_COLOR_AND_ALPHA_NV 0x20C6 -#define GLX_VIDEO_OUT_COLOR_AND_DEPTH_NV 0x20C7 -#define GLX_VIDEO_OUT_FRAME_NV 0x20C8 -#define GLX_VIDEO_OUT_FIELD_1_NV 0x20C9 -#define GLX_VIDEO_OUT_FIELD_2_NV 0x20CA -#define GLX_VIDEO_OUT_STACKED_FIELDS_1_2_NV 0x20CB -#define GLX_VIDEO_OUT_STACKED_FIELDS_2_1_NV 0x20CC -#endif - -#ifndef GLX_NV_swap_group -#endif - - -/*************************************************************/ - -#ifndef GLX_ARB_get_proc_address -typedef void (*__GLXextFuncPtr)(void); -#endif - -#ifndef GLX_SGIX_video_source -typedef XID GLXVideoSourceSGIX; -#endif - -#ifndef GLX_SGIX_fbconfig -typedef XID GLXFBConfigIDSGIX; -typedef struct __GLXFBConfigRec *GLXFBConfigSGIX; -#endif - -#ifndef GLX_SGIX_pbuffer -typedef XID GLXPbufferSGIX; -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came for SendEvent request */ - Display *display; /* display the event was read from */ - GLXDrawable drawable; /* i.d. of Drawable */ - int event_type; /* GLX_DAMAGED_SGIX or GLX_SAVED_SGIX */ - int draw_type; /* GLX_WINDOW_SGIX or GLX_PBUFFER_SGIX */ - unsigned int mask; /* mask indicating which buffers are affected*/ - int x, y; - int width, height; - int count; /* if nonzero, at least this many more */ -} GLXBufferClobberEventSGIX; -#endif - -#ifndef GLEXT_64_TYPES_DEFINED -/* This code block is duplicated in glext.h, so must be protected */ -#define GLEXT_64_TYPES_DEFINED -/* Define int32_t, int64_t, and uint64_t types for UST/MSC */ -/* (as used in the GLX_OML_sync_control extension). */ -#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L -#include -#elif defined(__sun__) || defined(__digital__) -#include -#if defined(__STDC__) -#if defined(__arch64__) || defined(_LP64) -typedef long int int64_t; -typedef unsigned long int uint64_t; -#else -typedef long long int int64_t; -typedef unsigned long long int uint64_t; -#endif /* __arch64__ */ -#endif /* __STDC__ */ -#elif defined( __VMS ) || defined(__sgi) -#include -#elif defined(__SCO__) || defined(__USLC__) -#include -#elif defined(__UNIXOS2__) || defined(__SOL64__) -typedef long int int32_t; -typedef long long int int64_t; -typedef unsigned long long int uint64_t; -#elif defined(_WIN32) && defined(__GNUC__) -#include -#elif defined(_WIN32) -typedef __int32 int32_t; -typedef __int64 int64_t; -typedef unsigned __int64 uint64_t; -#else -#include /* Fallback option */ -#endif -#endif - -#ifndef GLX_VERSION_1_3 -#define GLX_VERSION_1_3 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern GLXFBConfig * glXGetFBConfigs (Display *, int, int *); -extern GLXFBConfig * glXChooseFBConfig (Display *, int, const int *, int *); -extern int glXGetFBConfigAttrib (Display *, GLXFBConfig, int, int *); -extern XVisualInfo * glXGetVisualFromFBConfig (Display *, GLXFBConfig); -extern GLXWindow glXCreateWindow (Display *, GLXFBConfig, Window, const int *); -extern void glXDestroyWindow (Display *, GLXWindow); -extern GLXPixmap glXCreatePixmap (Display *, GLXFBConfig, Pixmap, const int *); -extern void glXDestroyPixmap (Display *, GLXPixmap); -extern GLXPbuffer glXCreatePbuffer (Display *, GLXFBConfig, const int *); -extern void glXDestroyPbuffer (Display *, GLXPbuffer); -extern void glXQueryDrawable (Display *, GLXDrawable, int, unsigned int *); -extern GLXContext glXCreateNewContext (Display *, GLXFBConfig, int, GLXContext, Bool); -extern Bool glXMakeContextCurrent (Display *, GLXDrawable, GLXDrawable, GLXContext); -extern GLXDrawable glXGetCurrentReadDrawable (void); -extern Display * glXGetCurrentDisplay (void); -extern int glXQueryContext (Display *, GLXContext, int, int *); -extern void glXSelectEvent (Display *, GLXDrawable, unsigned long); -extern void glXGetSelectedEvent (Display *, GLXDrawable, unsigned long *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef GLXFBConfig * ( * PFNGLXGETFBCONFIGSPROC) (Display *dpy, int screen, int *nelements); -typedef GLXFBConfig * ( * PFNGLXCHOOSEFBCONFIGPROC) (Display *dpy, int screen, const int *attrib_list, int *nelements); -typedef int ( * PFNGLXGETFBCONFIGATTRIBPROC) (Display *dpy, GLXFBConfig config, int attribute, int *value); -typedef XVisualInfo * ( * PFNGLXGETVISUALFROMFBCONFIGPROC) (Display *dpy, GLXFBConfig config); -typedef GLXWindow ( * PFNGLXCREATEWINDOWPROC) (Display *dpy, GLXFBConfig config, Window win, const int *attrib_list); -typedef void ( * PFNGLXDESTROYWINDOWPROC) (Display *dpy, GLXWindow win); -typedef GLXPixmap ( * PFNGLXCREATEPIXMAPPROC) (Display *dpy, GLXFBConfig config, Pixmap pixmap, const int *attrib_list); -typedef void ( * PFNGLXDESTROYPIXMAPPROC) (Display *dpy, GLXPixmap pixmap); -typedef GLXPbuffer ( * PFNGLXCREATEPBUFFERPROC) (Display *dpy, GLXFBConfig config, const int *attrib_list); -typedef void ( * PFNGLXDESTROYPBUFFERPROC) (Display *dpy, GLXPbuffer pbuf); -typedef void ( * PFNGLXQUERYDRAWABLEPROC) (Display *dpy, GLXDrawable draw, int attribute, unsigned int *value); -typedef GLXContext ( * PFNGLXCREATENEWCONTEXTPROC) (Display *dpy, GLXFBConfig config, int render_type, GLXContext share_list, Bool direct); -typedef Bool ( * PFNGLXMAKECONTEXTCURRENTPROC) (Display *dpy, GLXDrawable draw, GLXDrawable read, GLXContext ctx); -typedef GLXDrawable ( * PFNGLXGETCURRENTREADDRAWABLEPROC) (void); -typedef Display * ( * PFNGLXGETCURRENTDISPLAYPROC) (void); -typedef int ( * PFNGLXQUERYCONTEXTPROC) (Display *dpy, GLXContext ctx, int attribute, int *value); -typedef void ( * PFNGLXSELECTEVENTPROC) (Display *dpy, GLXDrawable draw, unsigned long event_mask); -typedef void ( * PFNGLXGETSELECTEDEVENTPROC) (Display *dpy, GLXDrawable draw, unsigned long *event_mask); -#endif - -#ifndef GLX_VERSION_1_4 -#define GLX_VERSION_1_4 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern __GLXextFuncPtr glXGetProcAddress (const GLubyte *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef __GLXextFuncPtr ( * PFNGLXGETPROCADDRESSPROC) (const GLubyte *procName); -#endif - -#ifndef GLX_ARB_get_proc_address -#define GLX_ARB_get_proc_address 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern __GLXextFuncPtr glXGetProcAddressARB (const GLubyte *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef __GLXextFuncPtr ( * PFNGLXGETPROCADDRESSARBPROC) (const GLubyte *procName); -#endif - -#ifndef GLX_ARB_multisample -#define GLX_ARB_multisample 1 -#endif - -#ifndef GLX_ARB_fbconfig_float -#define GLX_ARB_fbconfig_float 1 -#endif - -#ifndef GLX_ARB_create_context -#define GLX_ARB_create_context 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern GLXContext glXCreateContextAttribsARB (Display *, GLXFBConfig, GLXContext, Bool, const int *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef GLXContext ( * PFNGLXCREATECONTEXTATTRIBSARBPROC) (Display *dpy, GLXFBConfig config, GLXContext share_context, Bool direct, const int *attrib_list); -#endif - -#ifndef GLX_SGIS_multisample -#define GLX_SGIS_multisample 1 -#endif - -#ifndef GLX_EXT_visual_info -#define GLX_EXT_visual_info 1 -#endif - -#ifndef GLX_SGI_swap_control -#define GLX_SGI_swap_control 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern int glXSwapIntervalSGI (int); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef int ( * PFNGLXSWAPINTERVALSGIPROC) (int interval); -#endif - -#ifndef GLX_SGI_video_sync -#define GLX_SGI_video_sync 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern int glXGetVideoSyncSGI (unsigned int *); -extern int glXWaitVideoSyncSGI (int, int, unsigned int *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef int ( * PFNGLXGETVIDEOSYNCSGIPROC) (unsigned int *count); -typedef int ( * PFNGLXWAITVIDEOSYNCSGIPROC) (int divisor, int remainder, unsigned int *count); -#endif - -#ifndef GLX_SGI_make_current_read -#define GLX_SGI_make_current_read 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern Bool glXMakeCurrentReadSGI (Display *, GLXDrawable, GLXDrawable, GLXContext); -extern GLXDrawable glXGetCurrentReadDrawableSGI (void); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Bool ( * PFNGLXMAKECURRENTREADSGIPROC) (Display *dpy, GLXDrawable draw, GLXDrawable read, GLXContext ctx); -typedef GLXDrawable ( * PFNGLXGETCURRENTREADDRAWABLESGIPROC) (void); -#endif - -#ifndef GLX_SGIX_video_source -#define GLX_SGIX_video_source 1 -#ifdef _VL_H -#ifdef GLX_GLXEXT_PROTOTYPES -extern GLXVideoSourceSGIX glXCreateGLXVideoSourceSGIX (Display *, int, VLServer, VLPath, int, VLNode); -extern void glXDestroyGLXVideoSourceSGIX (Display *, GLXVideoSourceSGIX); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef GLXVideoSourceSGIX ( * PFNGLXCREATEGLXVIDEOSOURCESGIXPROC) (Display *display, int screen, VLServer server, VLPath path, int nodeClass, VLNode drainNode); -typedef void ( * PFNGLXDESTROYGLXVIDEOSOURCESGIXPROC) (Display *dpy, GLXVideoSourceSGIX glxvideosource); -#endif /* _VL_H */ -#endif - -#ifndef GLX_EXT_visual_rating -#define GLX_EXT_visual_rating 1 -#endif - -#ifndef GLX_EXT_import_context -#define GLX_EXT_import_context 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern Display * glXGetCurrentDisplayEXT (void); -extern int glXQueryContextInfoEXT (Display *, GLXContext, int, int *); -extern GLXContextID glXGetContextIDEXT (const GLXContext); -extern GLXContext glXImportContextEXT (Display *, GLXContextID); -extern void glXFreeContextEXT (Display *, GLXContext); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Display * ( * PFNGLXGETCURRENTDISPLAYEXTPROC) (void); -typedef int ( * PFNGLXQUERYCONTEXTINFOEXTPROC) (Display *dpy, GLXContext context, int attribute, int *value); -typedef GLXContextID ( * PFNGLXGETCONTEXTIDEXTPROC) (const GLXContext context); -typedef GLXContext ( * PFNGLXIMPORTCONTEXTEXTPROC) (Display *dpy, GLXContextID contextID); -typedef void ( * PFNGLXFREECONTEXTEXTPROC) (Display *dpy, GLXContext context); -#endif - -#ifndef GLX_SGIX_fbconfig -#define GLX_SGIX_fbconfig 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern int glXGetFBConfigAttribSGIX (Display *, GLXFBConfigSGIX, int, int *); -extern GLXFBConfigSGIX * glXChooseFBConfigSGIX (Display *, int, int *, int *); -extern GLXPixmap glXCreateGLXPixmapWithConfigSGIX (Display *, GLXFBConfigSGIX, Pixmap); -extern GLXContext glXCreateContextWithConfigSGIX (Display *, GLXFBConfigSGIX, int, GLXContext, Bool); -extern XVisualInfo * glXGetVisualFromFBConfigSGIX (Display *, GLXFBConfigSGIX); -extern GLXFBConfigSGIX glXGetFBConfigFromVisualSGIX (Display *, XVisualInfo *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef int ( * PFNGLXGETFBCONFIGATTRIBSGIXPROC) (Display *dpy, GLXFBConfigSGIX config, int attribute, int *value); -typedef GLXFBConfigSGIX * ( * PFNGLXCHOOSEFBCONFIGSGIXPROC) (Display *dpy, int screen, int *attrib_list, int *nelements); -typedef GLXPixmap ( * PFNGLXCREATEGLXPIXMAPWITHCONFIGSGIXPROC) (Display *dpy, GLXFBConfigSGIX config, Pixmap pixmap); -typedef GLXContext ( * PFNGLXCREATECONTEXTWITHCONFIGSGIXPROC) (Display *dpy, GLXFBConfigSGIX config, int render_type, GLXContext share_list, Bool direct); -typedef XVisualInfo * ( * PFNGLXGETVISUALFROMFBCONFIGSGIXPROC) (Display *dpy, GLXFBConfigSGIX config); -typedef GLXFBConfigSGIX ( * PFNGLXGETFBCONFIGFROMVISUALSGIXPROC) (Display *dpy, XVisualInfo *vis); -#endif - -#ifndef GLX_SGIX_pbuffer -#define GLX_SGIX_pbuffer 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern GLXPbufferSGIX glXCreateGLXPbufferSGIX (Display *, GLXFBConfigSGIX, unsigned int, unsigned int, int *); -extern void glXDestroyGLXPbufferSGIX (Display *, GLXPbufferSGIX); -extern int glXQueryGLXPbufferSGIX (Display *, GLXPbufferSGIX, int, unsigned int *); -extern void glXSelectEventSGIX (Display *, GLXDrawable, unsigned long); -extern void glXGetSelectedEventSGIX (Display *, GLXDrawable, unsigned long *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef GLXPbufferSGIX ( * PFNGLXCREATEGLXPBUFFERSGIXPROC) (Display *dpy, GLXFBConfigSGIX config, unsigned int width, unsigned int height, int *attrib_list); -typedef void ( * PFNGLXDESTROYGLXPBUFFERSGIXPROC) (Display *dpy, GLXPbufferSGIX pbuf); -typedef int ( * PFNGLXQUERYGLXPBUFFERSGIXPROC) (Display *dpy, GLXPbufferSGIX pbuf, int attribute, unsigned int *value); -typedef void ( * PFNGLXSELECTEVENTSGIXPROC) (Display *dpy, GLXDrawable drawable, unsigned long mask); -typedef void ( * PFNGLXGETSELECTEDEVENTSGIXPROC) (Display *dpy, GLXDrawable drawable, unsigned long *mask); -#endif - -#ifndef GLX_SGI_cushion -#define GLX_SGI_cushion 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern void glXCushionSGI (Display *, Window, float); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef void ( * PFNGLXCUSHIONSGIPROC) (Display *dpy, Window window, float cushion); -#endif - -#ifndef GLX_SGIX_video_resize -#define GLX_SGIX_video_resize 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern int glXBindChannelToWindowSGIX (Display *, int, int, Window); -extern int glXChannelRectSGIX (Display *, int, int, int, int, int, int); -extern int glXQueryChannelRectSGIX (Display *, int, int, int *, int *, int *, int *); -extern int glXQueryChannelDeltasSGIX (Display *, int, int, int *, int *, int *, int *); -extern int glXChannelRectSyncSGIX (Display *, int, int, GLenum); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef int ( * PFNGLXBINDCHANNELTOWINDOWSGIXPROC) (Display *display, int screen, int channel, Window window); -typedef int ( * PFNGLXCHANNELRECTSGIXPROC) (Display *display, int screen, int channel, int x, int y, int w, int h); -typedef int ( * PFNGLXQUERYCHANNELRECTSGIXPROC) (Display *display, int screen, int channel, int *dx, int *dy, int *dw, int *dh); -typedef int ( * PFNGLXQUERYCHANNELDELTASSGIXPROC) (Display *display, int screen, int channel, int *x, int *y, int *w, int *h); -typedef int ( * PFNGLXCHANNELRECTSYNCSGIXPROC) (Display *display, int screen, int channel, GLenum synctype); -#endif - -#ifndef GLX_SGIX_dmbuffer -#define GLX_SGIX_dmbuffer 1 -#ifdef _DM_BUFFER_H_ -#ifdef GLX_GLXEXT_PROTOTYPES -extern Bool glXAssociateDMPbufferSGIX (Display *, GLXPbufferSGIX, DMparams *, DMbuffer); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Bool ( * PFNGLXASSOCIATEDMPBUFFERSGIXPROC) (Display *dpy, GLXPbufferSGIX pbuffer, DMparams *params, DMbuffer dmbuffer); -#endif /* _DM_BUFFER_H_ */ -#endif - -#ifndef GLX_SGIX_swap_group -#define GLX_SGIX_swap_group 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern void glXJoinSwapGroupSGIX (Display *, GLXDrawable, GLXDrawable); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef void ( * PFNGLXJOINSWAPGROUPSGIXPROC) (Display *dpy, GLXDrawable drawable, GLXDrawable member); -#endif - -#ifndef GLX_SGIX_swap_barrier -#define GLX_SGIX_swap_barrier 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern void glXBindSwapBarrierSGIX (Display *, GLXDrawable, int); -extern Bool glXQueryMaxSwapBarriersSGIX (Display *, int, int *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef void ( * PFNGLXBINDSWAPBARRIERSGIXPROC) (Display *dpy, GLXDrawable drawable, int barrier); -typedef Bool ( * PFNGLXQUERYMAXSWAPBARRIERSSGIXPROC) (Display *dpy, int screen, int *max); -#endif - -#ifndef GLX_SUN_get_transparent_index -#define GLX_SUN_get_transparent_index 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern Status glXGetTransparentIndexSUN (Display *, Window, Window, long *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Status ( * PFNGLXGETTRANSPARENTINDEXSUNPROC) (Display *dpy, Window overlay, Window underlay, long *pTransparentIndex); -#endif - -#ifndef GLX_MESA_copy_sub_buffer -#define GLX_MESA_copy_sub_buffer 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern void glXCopySubBufferMESA (Display *, GLXDrawable, int, int, int, int); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef void ( * PFNGLXCOPYSUBBUFFERMESAPROC) (Display *dpy, GLXDrawable drawable, int x, int y, int width, int height); -#endif - -#ifndef GLX_MESA_pixmap_colormap -#define GLX_MESA_pixmap_colormap 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern GLXPixmap glXCreateGLXPixmapMESA (Display *, XVisualInfo *, Pixmap, Colormap); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef GLXPixmap ( * PFNGLXCREATEGLXPIXMAPMESAPROC) (Display *dpy, XVisualInfo *visual, Pixmap pixmap, Colormap cmap); -#endif - -#ifndef GLX_MESA_release_buffers -#define GLX_MESA_release_buffers 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern Bool glXReleaseBuffersMESA (Display *, GLXDrawable); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Bool ( * PFNGLXRELEASEBUFFERSMESAPROC) (Display *dpy, GLXDrawable drawable); -#endif - -#ifndef GLX_MESA_set_3dfx_mode -#define GLX_MESA_set_3dfx_mode 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern Bool glXSet3DfxModeMESA (int); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Bool ( * PFNGLXSET3DFXMODEMESAPROC) (int mode); -#endif - -#ifndef GLX_SGIX_visual_select_group -#define GLX_SGIX_visual_select_group 1 -#endif - -#ifndef GLX_OML_swap_method -#define GLX_OML_swap_method 1 -#endif - -#ifndef GLX_OML_sync_control -#define GLX_OML_sync_control 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern Bool glXGetSyncValuesOML (Display *, GLXDrawable, int64_t *, int64_t *, int64_t *); -extern Bool glXGetMscRateOML (Display *, GLXDrawable, int32_t *, int32_t *); -extern int64_t glXSwapBuffersMscOML (Display *, GLXDrawable, int64_t, int64_t, int64_t); -extern Bool glXWaitForMscOML (Display *, GLXDrawable, int64_t, int64_t, int64_t, int64_t *, int64_t *, int64_t *); -extern Bool glXWaitForSbcOML (Display *, GLXDrawable, int64_t, int64_t *, int64_t *, int64_t *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef Bool ( * PFNGLXGETSYNCVALUESOMLPROC) (Display *dpy, GLXDrawable drawable, int64_t *ust, int64_t *msc, int64_t *sbc); -typedef Bool ( * PFNGLXGETMSCRATEOMLPROC) (Display *dpy, GLXDrawable drawable, int32_t *numerator, int32_t *denominator); -typedef int64_t ( * PFNGLXSWAPBUFFERSMSCOMLPROC) (Display *dpy, GLXDrawable drawable, int64_t target_msc, int64_t divisor, int64_t remainder); -typedef Bool ( * PFNGLXWAITFORMSCOMLPROC) (Display *dpy, GLXDrawable drawable, int64_t target_msc, int64_t divisor, int64_t remainder, int64_t *ust, int64_t *msc, int64_t *sbc); -typedef Bool ( * PFNGLXWAITFORSBCOMLPROC) (Display *dpy, GLXDrawable drawable, int64_t target_sbc, int64_t *ust, int64_t *msc, int64_t *sbc); -#endif - -#ifndef GLX_NV_float_buffer -#define GLX_NV_float_buffer 1 -#endif - -#ifndef GLX_SGIX_hyperpipe -#define GLX_SGIX_hyperpipe 1 - -typedef struct { - char pipeName[GLX_HYPERPIPE_PIPE_NAME_LENGTH_SGIX]; - int networkId; -} GLXHyperpipeNetworkSGIX; - -typedef struct { - char pipeName[GLX_HYPERPIPE_PIPE_NAME_LENGTH_SGIX]; - int channel; - unsigned int - participationType; - int timeSlice; -} GLXHyperpipeConfigSGIX; - -typedef struct { - char pipeName[GLX_HYPERPIPE_PIPE_NAME_LENGTH_SGIX]; - int srcXOrigin, srcYOrigin, srcWidth, srcHeight; - int destXOrigin, destYOrigin, destWidth, destHeight; -} GLXPipeRect; - -typedef struct { - char pipeName[GLX_HYPERPIPE_PIPE_NAME_LENGTH_SGIX]; - int XOrigin, YOrigin, maxHeight, maxWidth; -} GLXPipeRectLimits; - -#ifdef GLX_GLXEXT_PROTOTYPES -extern GLXHyperpipeNetworkSGIX * glXQueryHyperpipeNetworkSGIX (Display *, int *); -extern int glXHyperpipeConfigSGIX (Display *, int, int, GLXHyperpipeConfigSGIX *, int *); -extern GLXHyperpipeConfigSGIX * glXQueryHyperpipeConfigSGIX (Display *, int, int *); -extern int glXDestroyHyperpipeConfigSGIX (Display *, int); -extern int glXBindHyperpipeSGIX (Display *, int); -extern int glXQueryHyperpipeBestAttribSGIX (Display *, int, int, int, void *, void *); -extern int glXHyperpipeAttribSGIX (Display *, int, int, int, void *); -extern int glXQueryHyperpipeAttribSGIX (Display *, int, int, int, void *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef GLXHyperpipeNetworkSGIX * ( * PFNGLXQUERYHYPERPIPENETWORKSGIXPROC) (Display *dpy, int *npipes); -typedef int ( * PFNGLXHYPERPIPECONFIGSGIXPROC) (Display *dpy, int networkId, int npipes, GLXHyperpipeConfigSGIX *cfg, int *hpId); -typedef GLXHyperpipeConfigSGIX * ( * PFNGLXQUERYHYPERPIPECONFIGSGIXPROC) (Display *dpy, int hpId, int *npipes); -typedef int ( * PFNGLXDESTROYHYPERPIPECONFIGSGIXPROC) (Display *dpy, int hpId); -typedef int ( * PFNGLXBINDHYPERPIPESGIXPROC) (Display *dpy, int hpId); -typedef int ( * PFNGLXQUERYHYPERPIPEBESTATTRIBSGIXPROC) (Display *dpy, int timeSlice, int attrib, int size, void *attribList, void *returnAttribList); -typedef int ( * PFNGLXHYPERPIPEATTRIBSGIXPROC) (Display *dpy, int timeSlice, int attrib, int size, void *attribList); -typedef int ( * PFNGLXQUERYHYPERPIPEATTRIBSGIXPROC) (Display *dpy, int timeSlice, int attrib, int size, void *returnAttribList); -#endif - -#ifndef GLX_MESA_agp_offset -#define GLX_MESA_agp_offset 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern unsigned int glXGetAGPOffsetMESA (const void *); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef unsigned int ( * PFNGLXGETAGPOFFSETMESAPROC) (const void *pointer); -#endif - -#ifndef GLX_EXT_fbconfig_packed_float -#define GLX_EXT_fbconfig_packed_float 1 -#endif - -#ifndef GLX_EXT_framebuffer_sRGB -#define GLX_EXT_framebuffer_sRGB 1 -#endif - -#ifndef GLX_EXT_texture_from_pixmap -#define GLX_EXT_texture_from_pixmap 1 -#ifdef GLX_GLXEXT_PROTOTYPES -extern void glXBindTexImageEXT (Display *, GLXDrawable, int, const int *); -extern void glXReleaseTexImageEXT (Display *, GLXDrawable, int); -#endif /* GLX_GLXEXT_PROTOTYPES */ -typedef void ( * PFNGLXBINDTEXIMAGEEXTPROC) (Display *dpy, GLXDrawable drawable, int buffer, const int *attrib_list); -typedef void ( * PFNGLXRELEASETEXIMAGEEXTPROC) (Display *dpy, GLXDrawable drawable, int buffer); -#endif - -#ifndef GLX_NV_present_video -#define GLX_NV_present_video 1 -#endif - -#ifndef GLX_NV_video_out -#define GLX_NV_video_out 1 -#endif - -#ifndef GLX_NV_swap_group -#define GLX_NV_swap_group 1 -#endif - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/GL/wglext.h b/opengl/Togl2.1-SnapPy/GL/wglext.h deleted file mode 100644 index 0286a913c..000000000 --- a/opengl/Togl2.1-SnapPy/GL/wglext.h +++ /dev/null @@ -1,776 +0,0 @@ -#ifndef __wglext_h_ -#define __wglext_h_ - -#ifdef __cplusplus -extern "C" { -#endif - -/* -** Copyright (c) 2007 The Khronos Group Inc. -** -** Permission is hereby granted, free of charge, to any person obtaining a -** copy of this software and/or associated documentation files (the -** "Materials"), to deal in the Materials without restriction, including -** without limitation the rights to use, copy, modify, merge, publish, -** distribute, sublicense, and/or sell copies of the Materials, and to -** permit persons to whom the Materials are furnished to do so, subject to -** the following conditions: -** -** The above copyright notice and this permission notice shall be included -** in all copies or substantial portions of the Materials. -** -** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS. -*/ - -#if defined(_WIN32) && !defined(APIENTRY) && !defined(__CYGWIN__) && !defined(__SCITECH_SNAP__) -#define WIN32_LEAN_AND_MEAN 1 -#include -#endif - -#ifndef APIENTRY -#define APIENTRY -#endif -#ifndef APIENTRYP -#define APIENTRYP APIENTRY * -#endif -#ifndef GLAPI -#define GLAPI extern -#endif - -/*************************************************************/ - -/* Header file version number */ -/* wglext.h last updated 2008/10/07 */ -/* Current version at http://www.opengl.org/registry/ */ -#define WGL_WGLEXT_VERSION 11 - -#ifndef WGL_ARB_buffer_region -#define WGL_FRONT_COLOR_BUFFER_BIT_ARB 0x00000001 -#define WGL_BACK_COLOR_BUFFER_BIT_ARB 0x00000002 -#define WGL_DEPTH_BUFFER_BIT_ARB 0x00000004 -#define WGL_STENCIL_BUFFER_BIT_ARB 0x00000008 -#endif - -#ifndef WGL_ARB_multisample -#define WGL_SAMPLE_BUFFERS_ARB 0x2041 -#define WGL_SAMPLES_ARB 0x2042 -#endif - -#ifndef WGL_ARB_extensions_string -#endif - -#ifndef WGL_ARB_pixel_format -#define WGL_NUMBER_PIXEL_FORMATS_ARB 0x2000 -#define WGL_DRAW_TO_WINDOW_ARB 0x2001 -#define WGL_DRAW_TO_BITMAP_ARB 0x2002 -#define WGL_ACCELERATION_ARB 0x2003 -#define WGL_NEED_PALETTE_ARB 0x2004 -#define WGL_NEED_SYSTEM_PALETTE_ARB 0x2005 -#define WGL_SWAP_LAYER_BUFFERS_ARB 0x2006 -#define WGL_SWAP_METHOD_ARB 0x2007 -#define WGL_NUMBER_OVERLAYS_ARB 0x2008 -#define WGL_NUMBER_UNDERLAYS_ARB 0x2009 -#define WGL_TRANSPARENT_ARB 0x200A -#define WGL_TRANSPARENT_RED_VALUE_ARB 0x2037 -#define WGL_TRANSPARENT_GREEN_VALUE_ARB 0x2038 -#define WGL_TRANSPARENT_BLUE_VALUE_ARB 0x2039 -#define WGL_TRANSPARENT_ALPHA_VALUE_ARB 0x203A -#define WGL_TRANSPARENT_INDEX_VALUE_ARB 0x203B -#define WGL_SHARE_DEPTH_ARB 0x200C -#define WGL_SHARE_STENCIL_ARB 0x200D -#define WGL_SHARE_ACCUM_ARB 0x200E -#define WGL_SUPPORT_GDI_ARB 0x200F -#define WGL_SUPPORT_OPENGL_ARB 0x2010 -#define WGL_DOUBLE_BUFFER_ARB 0x2011 -#define WGL_STEREO_ARB 0x2012 -#define WGL_PIXEL_TYPE_ARB 0x2013 -#define WGL_COLOR_BITS_ARB 0x2014 -#define WGL_RED_BITS_ARB 0x2015 -#define WGL_RED_SHIFT_ARB 0x2016 -#define WGL_GREEN_BITS_ARB 0x2017 -#define WGL_GREEN_SHIFT_ARB 0x2018 -#define WGL_BLUE_BITS_ARB 0x2019 -#define WGL_BLUE_SHIFT_ARB 0x201A -#define WGL_ALPHA_BITS_ARB 0x201B -#define WGL_ALPHA_SHIFT_ARB 0x201C -#define WGL_ACCUM_BITS_ARB 0x201D -#define WGL_ACCUM_RED_BITS_ARB 0x201E -#define WGL_ACCUM_GREEN_BITS_ARB 0x201F -#define WGL_ACCUM_BLUE_BITS_ARB 0x2020 -#define WGL_ACCUM_ALPHA_BITS_ARB 0x2021 -#define WGL_DEPTH_BITS_ARB 0x2022 -#define WGL_STENCIL_BITS_ARB 0x2023 -#define WGL_AUX_BUFFERS_ARB 0x2024 -#define WGL_NO_ACCELERATION_ARB 0x2025 -#define WGL_GENERIC_ACCELERATION_ARB 0x2026 -#define WGL_FULL_ACCELERATION_ARB 0x2027 -#define WGL_SWAP_EXCHANGE_ARB 0x2028 -#define WGL_SWAP_COPY_ARB 0x2029 -#define WGL_SWAP_UNDEFINED_ARB 0x202A -#define WGL_TYPE_RGBA_ARB 0x202B -#define WGL_TYPE_COLORINDEX_ARB 0x202C -#endif - -#ifndef WGL_ARB_make_current_read -#define ERROR_INVALID_PIXEL_TYPE_ARB 0x2043 -#define ERROR_INCOMPATIBLE_DEVICE_CONTEXTS_ARB 0x2054 -#endif - -#ifndef WGL_ARB_pbuffer -#define WGL_DRAW_TO_PBUFFER_ARB 0x202D -#define WGL_MAX_PBUFFER_PIXELS_ARB 0x202E -#define WGL_MAX_PBUFFER_WIDTH_ARB 0x202F -#define WGL_MAX_PBUFFER_HEIGHT_ARB 0x2030 -#define WGL_PBUFFER_LARGEST_ARB 0x2033 -#define WGL_PBUFFER_WIDTH_ARB 0x2034 -#define WGL_PBUFFER_HEIGHT_ARB 0x2035 -#define WGL_PBUFFER_LOST_ARB 0x2036 -#endif - -#ifndef WGL_ARB_render_texture -#define WGL_BIND_TO_TEXTURE_RGB_ARB 0x2070 -#define WGL_BIND_TO_TEXTURE_RGBA_ARB 0x2071 -#define WGL_TEXTURE_FORMAT_ARB 0x2072 -#define WGL_TEXTURE_TARGET_ARB 0x2073 -#define WGL_MIPMAP_TEXTURE_ARB 0x2074 -#define WGL_TEXTURE_RGB_ARB 0x2075 -#define WGL_TEXTURE_RGBA_ARB 0x2076 -#define WGL_NO_TEXTURE_ARB 0x2077 -#define WGL_TEXTURE_CUBE_MAP_ARB 0x2078 -#define WGL_TEXTURE_1D_ARB 0x2079 -#define WGL_TEXTURE_2D_ARB 0x207A -#define WGL_MIPMAP_LEVEL_ARB 0x207B -#define WGL_CUBE_MAP_FACE_ARB 0x207C -#define WGL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB 0x207D -#define WGL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB 0x207E -#define WGL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB 0x207F -#define WGL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB 0x2080 -#define WGL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB 0x2081 -#define WGL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB 0x2082 -#define WGL_FRONT_LEFT_ARB 0x2083 -#define WGL_FRONT_RIGHT_ARB 0x2084 -#define WGL_BACK_LEFT_ARB 0x2085 -#define WGL_BACK_RIGHT_ARB 0x2086 -#define WGL_AUX0_ARB 0x2087 -#define WGL_AUX1_ARB 0x2088 -#define WGL_AUX2_ARB 0x2089 -#define WGL_AUX3_ARB 0x208A -#define WGL_AUX4_ARB 0x208B -#define WGL_AUX5_ARB 0x208C -#define WGL_AUX6_ARB 0x208D -#define WGL_AUX7_ARB 0x208E -#define WGL_AUX8_ARB 0x208F -#define WGL_AUX9_ARB 0x2090 -#endif - -#ifndef WGL_ARB_pixel_format_float -#define WGL_TYPE_RGBA_FLOAT_ARB 0x21A0 -#endif - -#ifndef WGL_ARB_create_context -#define WGL_CONTEXT_DEBUG_BIT_ARB 0x0001 -#define WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x0002 -#define WGL_CONTEXT_MAJOR_VERSION_ARB 0x2091 -#define WGL_CONTEXT_MINOR_VERSION_ARB 0x2092 -#define WGL_CONTEXT_LAYER_PLANE_ARB 0x2093 -#define WGL_CONTEXT_FLAGS_ARB 0x2094 -#define ERROR_INVALID_VERSION_ARB 0x2095 -#endif - -#ifndef WGL_EXT_make_current_read -#define ERROR_INVALID_PIXEL_TYPE_EXT 0x2043 -#endif - -#ifndef WGL_EXT_pixel_format -#define WGL_NUMBER_PIXEL_FORMATS_EXT 0x2000 -#define WGL_DRAW_TO_WINDOW_EXT 0x2001 -#define WGL_DRAW_TO_BITMAP_EXT 0x2002 -#define WGL_ACCELERATION_EXT 0x2003 -#define WGL_NEED_PALETTE_EXT 0x2004 -#define WGL_NEED_SYSTEM_PALETTE_EXT 0x2005 -#define WGL_SWAP_LAYER_BUFFERS_EXT 0x2006 -#define WGL_SWAP_METHOD_EXT 0x2007 -#define WGL_NUMBER_OVERLAYS_EXT 0x2008 -#define WGL_NUMBER_UNDERLAYS_EXT 0x2009 -#define WGL_TRANSPARENT_EXT 0x200A -#define WGL_TRANSPARENT_VALUE_EXT 0x200B -#define WGL_SHARE_DEPTH_EXT 0x200C -#define WGL_SHARE_STENCIL_EXT 0x200D -#define WGL_SHARE_ACCUM_EXT 0x200E -#define WGL_SUPPORT_GDI_EXT 0x200F -#define WGL_SUPPORT_OPENGL_EXT 0x2010 -#define WGL_DOUBLE_BUFFER_EXT 0x2011 -#define WGL_STEREO_EXT 0x2012 -#define WGL_PIXEL_TYPE_EXT 0x2013 -#define WGL_COLOR_BITS_EXT 0x2014 -#define WGL_RED_BITS_EXT 0x2015 -#define WGL_RED_SHIFT_EXT 0x2016 -#define WGL_GREEN_BITS_EXT 0x2017 -#define WGL_GREEN_SHIFT_EXT 0x2018 -#define WGL_BLUE_BITS_EXT 0x2019 -#define WGL_BLUE_SHIFT_EXT 0x201A -#define WGL_ALPHA_BITS_EXT 0x201B -#define WGL_ALPHA_SHIFT_EXT 0x201C -#define WGL_ACCUM_BITS_EXT 0x201D -#define WGL_ACCUM_RED_BITS_EXT 0x201E -#define WGL_ACCUM_GREEN_BITS_EXT 0x201F -#define WGL_ACCUM_BLUE_BITS_EXT 0x2020 -#define WGL_ACCUM_ALPHA_BITS_EXT 0x2021 -#define WGL_DEPTH_BITS_EXT 0x2022 -#define WGL_STENCIL_BITS_EXT 0x2023 -#define WGL_AUX_BUFFERS_EXT 0x2024 -#define WGL_NO_ACCELERATION_EXT 0x2025 -#define WGL_GENERIC_ACCELERATION_EXT 0x2026 -#define WGL_FULL_ACCELERATION_EXT 0x2027 -#define WGL_SWAP_EXCHANGE_EXT 0x2028 -#define WGL_SWAP_COPY_EXT 0x2029 -#define WGL_SWAP_UNDEFINED_EXT 0x202A -#define WGL_TYPE_RGBA_EXT 0x202B -#define WGL_TYPE_COLORINDEX_EXT 0x202C -#endif - -#ifndef WGL_EXT_pbuffer -#define WGL_DRAW_TO_PBUFFER_EXT 0x202D -#define WGL_MAX_PBUFFER_PIXELS_EXT 0x202E -#define WGL_MAX_PBUFFER_WIDTH_EXT 0x202F -#define WGL_MAX_PBUFFER_HEIGHT_EXT 0x2030 -#define WGL_OPTIMAL_PBUFFER_WIDTH_EXT 0x2031 -#define WGL_OPTIMAL_PBUFFER_HEIGHT_EXT 0x2032 -#define WGL_PBUFFER_LARGEST_EXT 0x2033 -#define WGL_PBUFFER_WIDTH_EXT 0x2034 -#define WGL_PBUFFER_HEIGHT_EXT 0x2035 -#endif - -#ifndef WGL_EXT_depth_float -#define WGL_DEPTH_FLOAT_EXT 0x2040 -#endif - -#ifndef WGL_3DFX_multisample -#define WGL_SAMPLE_BUFFERS_3DFX 0x2060 -#define WGL_SAMPLES_3DFX 0x2061 -#endif - -#ifndef WGL_EXT_multisample -#define WGL_SAMPLE_BUFFERS_EXT 0x2041 -#define WGL_SAMPLES_EXT 0x2042 -#endif - -#ifndef WGL_I3D_digital_video_control -#define WGL_DIGITAL_VIDEO_CURSOR_ALPHA_FRAMEBUFFER_I3D 0x2050 -#define WGL_DIGITAL_VIDEO_CURSOR_ALPHA_VALUE_I3D 0x2051 -#define WGL_DIGITAL_VIDEO_CURSOR_INCLUDED_I3D 0x2052 -#define WGL_DIGITAL_VIDEO_GAMMA_CORRECTED_I3D 0x2053 -#endif - -#ifndef WGL_I3D_gamma -#define WGL_GAMMA_TABLE_SIZE_I3D 0x204E -#define WGL_GAMMA_EXCLUDE_DESKTOP_I3D 0x204F -#endif - -#ifndef WGL_I3D_genlock -#define WGL_GENLOCK_SOURCE_MULTIVIEW_I3D 0x2044 -#define WGL_GENLOCK_SOURCE_EXTENAL_SYNC_I3D 0x2045 -#define WGL_GENLOCK_SOURCE_EXTENAL_FIELD_I3D 0x2046 -#define WGL_GENLOCK_SOURCE_EXTENAL_TTL_I3D 0x2047 -#define WGL_GENLOCK_SOURCE_DIGITAL_SYNC_I3D 0x2048 -#define WGL_GENLOCK_SOURCE_DIGITAL_FIELD_I3D 0x2049 -#define WGL_GENLOCK_SOURCE_EDGE_FALLING_I3D 0x204A -#define WGL_GENLOCK_SOURCE_EDGE_RISING_I3D 0x204B -#define WGL_GENLOCK_SOURCE_EDGE_BOTH_I3D 0x204C -#endif - -#ifndef WGL_I3D_image_buffer -#define WGL_IMAGE_BUFFER_MIN_ACCESS_I3D 0x00000001 -#define WGL_IMAGE_BUFFER_LOCK_I3D 0x00000002 -#endif - -#ifndef WGL_I3D_swap_frame_lock -#endif - -#ifndef WGL_NV_render_depth_texture -#define WGL_BIND_TO_TEXTURE_DEPTH_NV 0x20A3 -#define WGL_BIND_TO_TEXTURE_RECTANGLE_DEPTH_NV 0x20A4 -#define WGL_DEPTH_TEXTURE_FORMAT_NV 0x20A5 -#define WGL_TEXTURE_DEPTH_COMPONENT_NV 0x20A6 -#define WGL_DEPTH_COMPONENT_NV 0x20A7 -#endif - -#ifndef WGL_NV_render_texture_rectangle -#define WGL_BIND_TO_TEXTURE_RECTANGLE_RGB_NV 0x20A0 -#define WGL_BIND_TO_TEXTURE_RECTANGLE_RGBA_NV 0x20A1 -#define WGL_TEXTURE_RECTANGLE_NV 0x20A2 -#endif - -#ifndef WGL_ATI_pixel_format_float -#define WGL_TYPE_RGBA_FLOAT_ATI 0x21A0 -#endif - -#ifndef WGL_NV_float_buffer -#define WGL_FLOAT_COMPONENTS_NV 0x20B0 -#define WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_R_NV 0x20B1 -#define WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RG_NV 0x20B2 -#define WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGB_NV 0x20B3 -#define WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGBA_NV 0x20B4 -#define WGL_TEXTURE_FLOAT_R_NV 0x20B5 -#define WGL_TEXTURE_FLOAT_RG_NV 0x20B6 -#define WGL_TEXTURE_FLOAT_RGB_NV 0x20B7 -#define WGL_TEXTURE_FLOAT_RGBA_NV 0x20B8 -#endif - -#ifndef WGL_3DL_stereo_control -#define WGL_STEREO_EMITTER_ENABLE_3DL 0x2055 -#define WGL_STEREO_EMITTER_DISABLE_3DL 0x2056 -#define WGL_STEREO_POLARITY_NORMAL_3DL 0x2057 -#define WGL_STEREO_POLARITY_INVERT_3DL 0x2058 -#endif - -#ifndef WGL_EXT_pixel_format_packed_float -#define WGL_TYPE_RGBA_UNSIGNED_FLOAT_EXT 0x20A8 -#endif - -#ifndef WGL_EXT_framebuffer_sRGB -#define WGL_FRAMEBUFFER_SRGB_CAPABLE_EXT 0x20A9 -#endif - -#ifndef WGL_NV_present_video -#define WGL_NUM_VIDEO_SLOTS_NV 0x20F0 -#endif - -#ifndef WGL_NV_video_out -#define WGL_BIND_TO_VIDEO_RGB_NV 0x20C0 -#define WGL_BIND_TO_VIDEO_RGBA_NV 0x20C1 -#define WGL_BIND_TO_VIDEO_RGB_AND_DEPTH_NV 0x20C2 -#define WGL_VIDEO_OUT_COLOR_NV 0x20C3 -#define WGL_VIDEO_OUT_ALPHA_NV 0x20C4 -#define WGL_VIDEO_OUT_DEPTH_NV 0x20C5 -#define WGL_VIDEO_OUT_COLOR_AND_ALPHA_NV 0x20C6 -#define WGL_VIDEO_OUT_COLOR_AND_DEPTH_NV 0x20C7 -#define WGL_VIDEO_OUT_FRAME 0x20C8 -#define WGL_VIDEO_OUT_FIELD_1 0x20C9 -#define WGL_VIDEO_OUT_FIELD_2 0x20CA -#define WGL_VIDEO_OUT_STACKED_FIELDS_1_2 0x20CB -#define WGL_VIDEO_OUT_STACKED_FIELDS_2_1 0x20CC -#endif - -#ifndef WGL_NV_swap_group -#endif - -#ifndef WGL_NV_gpu_affinity -#define WGL_ERROR_INCOMPATIBLE_AFFINITY_MASKS_NV 0x20D0 -#define WGL_ERROR_MISSING_AFFINITY_MASK_NV 0x20D1 -#endif - - -/*************************************************************/ - -#ifndef WGL_ARB_pbuffer -DECLARE_HANDLE(HPBUFFERARB); -#endif -#ifndef WGL_EXT_pbuffer -DECLARE_HANDLE(HPBUFFEREXT); -#endif -#ifndef WGL_NV_present_video -DECLARE_HANDLE(HVIDEOOUTPUTDEVICENV); -#endif -#ifndef WGL_NV_video_out -DECLARE_HANDLE(HPVIDEODEV); -#endif -#ifndef WGL_NV_gpu_affinity -DECLARE_HANDLE(HPGPUNV); -DECLARE_HANDLE(HGPUNV); - -typedef struct _GPU_DEVICE { - DWORD cb; - CHAR DeviceName[32]; - CHAR DeviceString[128]; - DWORD Flags; - RECT rcVirtualScreen; -} GPU_DEVICE, *PGPU_DEVICE; -#endif - -#ifndef WGL_ARB_buffer_region -#define WGL_ARB_buffer_region 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern HANDLE WINAPI wglCreateBufferRegionARB (HDC, int, UINT); -extern VOID WINAPI wglDeleteBufferRegionARB (HANDLE); -extern BOOL WINAPI wglSaveBufferRegionARB (HANDLE, int, int, int, int); -extern BOOL WINAPI wglRestoreBufferRegionARB (HANDLE, int, int, int, int, int, int); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef HANDLE (WINAPI * PFNWGLCREATEBUFFERREGIONARBPROC) (HDC hDC, int iLayerPlane, UINT uType); -typedef VOID (WINAPI * PFNWGLDELETEBUFFERREGIONARBPROC) (HANDLE hRegion); -typedef BOOL (WINAPI * PFNWGLSAVEBUFFERREGIONARBPROC) (HANDLE hRegion, int x, int y, int width, int height); -typedef BOOL (WINAPI * PFNWGLRESTOREBUFFERREGIONARBPROC) (HANDLE hRegion, int x, int y, int width, int height, int xSrc, int ySrc); -#endif - -#ifndef WGL_ARB_multisample -#define WGL_ARB_multisample 1 -#endif - -#ifndef WGL_ARB_extensions_string -#define WGL_ARB_extensions_string 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern const char * WINAPI wglGetExtensionsStringARB (HDC); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef const char * (WINAPI * PFNWGLGETEXTENSIONSSTRINGARBPROC) (HDC hdc); -#endif - -#ifndef WGL_ARB_pixel_format -#define WGL_ARB_pixel_format 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetPixelFormatAttribivARB (HDC, int, int, UINT, const int *, int *); -extern BOOL WINAPI wglGetPixelFormatAttribfvARB (HDC, int, int, UINT, const int *, FLOAT *); -extern BOOL WINAPI wglChoosePixelFormatARB (HDC, const int *, const FLOAT *, UINT, int *, UINT *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETPIXELFORMATATTRIBIVARBPROC) (HDC hdc, int iPixelFormat, int iLayerPlane, UINT nAttributes, const int *piAttributes, int *piValues); -typedef BOOL (WINAPI * PFNWGLGETPIXELFORMATATTRIBFVARBPROC) (HDC hdc, int iPixelFormat, int iLayerPlane, UINT nAttributes, const int *piAttributes, FLOAT *pfValues); -typedef BOOL (WINAPI * PFNWGLCHOOSEPIXELFORMATARBPROC) (HDC hdc, const int *piAttribIList, const FLOAT *pfAttribFList, UINT nMaxFormats, int *piFormats, UINT *nNumFormats); -#endif - -#ifndef WGL_ARB_make_current_read -#define WGL_ARB_make_current_read 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglMakeContextCurrentARB (HDC, HDC, HGLRC); -extern HDC WINAPI wglGetCurrentReadDCARB (void); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLMAKECONTEXTCURRENTARBPROC) (HDC hDrawDC, HDC hReadDC, HGLRC hglrc); -typedef HDC (WINAPI * PFNWGLGETCURRENTREADDCARBPROC) (void); -#endif - -#ifndef WGL_ARB_pbuffer -#define WGL_ARB_pbuffer 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern HPBUFFERARB WINAPI wglCreatePbufferARB (HDC, int, int, int, const int *); -extern HDC WINAPI wglGetPbufferDCARB (HPBUFFERARB); -extern int WINAPI wglReleasePbufferDCARB (HPBUFFERARB, HDC); -extern BOOL WINAPI wglDestroyPbufferARB (HPBUFFERARB); -extern BOOL WINAPI wglQueryPbufferARB (HPBUFFERARB, int, int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef HPBUFFERARB (WINAPI * PFNWGLCREATEPBUFFERARBPROC) (HDC hDC, int iPixelFormat, int iWidth, int iHeight, const int *piAttribList); -typedef HDC (WINAPI * PFNWGLGETPBUFFERDCARBPROC) (HPBUFFERARB hPbuffer); -typedef int (WINAPI * PFNWGLRELEASEPBUFFERDCARBPROC) (HPBUFFERARB hPbuffer, HDC hDC); -typedef BOOL (WINAPI * PFNWGLDESTROYPBUFFERARBPROC) (HPBUFFERARB hPbuffer); -typedef BOOL (WINAPI * PFNWGLQUERYPBUFFERARBPROC) (HPBUFFERARB hPbuffer, int iAttribute, int *piValue); -#endif - -#ifndef WGL_ARB_render_texture -#define WGL_ARB_render_texture 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglBindTexImageARB (HPBUFFERARB, int); -extern BOOL WINAPI wglReleaseTexImageARB (HPBUFFERARB, int); -extern BOOL WINAPI wglSetPbufferAttribARB (HPBUFFERARB, const int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLBINDTEXIMAGEARBPROC) (HPBUFFERARB hPbuffer, int iBuffer); -typedef BOOL (WINAPI * PFNWGLRELEASETEXIMAGEARBPROC) (HPBUFFERARB hPbuffer, int iBuffer); -typedef BOOL (WINAPI * PFNWGLSETPBUFFERATTRIBARBPROC) (HPBUFFERARB hPbuffer, const int *piAttribList); -#endif - -#ifndef WGL_ARB_pixel_format_float -#define WGL_ARB_pixel_format_float 1 -#endif - -#ifndef WGL_ARB_create_context -#define WGL_ARB_create_context 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern HGLRC WINAPI wglCreateContextAttribsARB (HDC, HGLRC, const int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef HGLRC (WINAPI * PFNWGLCREATECONTEXTATTRIBSARBPROC) (HDC hDC, HGLRC hShareContext, const int *attribList); -#endif - -#ifndef WGL_EXT_display_color_table -#define WGL_EXT_display_color_table 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern GLboolean WINAPI wglCreateDisplayColorTableEXT (GLushort); -extern GLboolean WINAPI wglLoadDisplayColorTableEXT (const GLushort *, GLuint); -extern GLboolean WINAPI wglBindDisplayColorTableEXT (GLushort); -extern VOID WINAPI wglDestroyDisplayColorTableEXT (GLushort); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef GLboolean (WINAPI * PFNWGLCREATEDISPLAYCOLORTABLEEXTPROC) (GLushort id); -typedef GLboolean (WINAPI * PFNWGLLOADDISPLAYCOLORTABLEEXTPROC) (const GLushort *table, GLuint length); -typedef GLboolean (WINAPI * PFNWGLBINDDISPLAYCOLORTABLEEXTPROC) (GLushort id); -typedef VOID (WINAPI * PFNWGLDESTROYDISPLAYCOLORTABLEEXTPROC) (GLushort id); -#endif - -#ifndef WGL_EXT_extensions_string -#define WGL_EXT_extensions_string 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern const char * WINAPI wglGetExtensionsStringEXT (void); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef const char * (WINAPI * PFNWGLGETEXTENSIONSSTRINGEXTPROC) (void); -#endif - -#ifndef WGL_EXT_make_current_read -#define WGL_EXT_make_current_read 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglMakeContextCurrentEXT (HDC, HDC, HGLRC); -extern HDC WINAPI wglGetCurrentReadDCEXT (void); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLMAKECONTEXTCURRENTEXTPROC) (HDC hDrawDC, HDC hReadDC, HGLRC hglrc); -typedef HDC (WINAPI * PFNWGLGETCURRENTREADDCEXTPROC) (void); -#endif - -#ifndef WGL_EXT_pbuffer -#define WGL_EXT_pbuffer 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern HPBUFFEREXT WINAPI wglCreatePbufferEXT (HDC, int, int, int, const int *); -extern HDC WINAPI wglGetPbufferDCEXT (HPBUFFEREXT); -extern int WINAPI wglReleasePbufferDCEXT (HPBUFFEREXT, HDC); -extern BOOL WINAPI wglDestroyPbufferEXT (HPBUFFEREXT); -extern BOOL WINAPI wglQueryPbufferEXT (HPBUFFEREXT, int, int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef HPBUFFEREXT (WINAPI * PFNWGLCREATEPBUFFEREXTPROC) (HDC hDC, int iPixelFormat, int iWidth, int iHeight, const int *piAttribList); -typedef HDC (WINAPI * PFNWGLGETPBUFFERDCEXTPROC) (HPBUFFEREXT hPbuffer); -typedef int (WINAPI * PFNWGLRELEASEPBUFFERDCEXTPROC) (HPBUFFEREXT hPbuffer, HDC hDC); -typedef BOOL (WINAPI * PFNWGLDESTROYPBUFFEREXTPROC) (HPBUFFEREXT hPbuffer); -typedef BOOL (WINAPI * PFNWGLQUERYPBUFFEREXTPROC) (HPBUFFEREXT hPbuffer, int iAttribute, int *piValue); -#endif - -#ifndef WGL_EXT_pixel_format -#define WGL_EXT_pixel_format 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetPixelFormatAttribivEXT (HDC, int, int, UINT, int *, int *); -extern BOOL WINAPI wglGetPixelFormatAttribfvEXT (HDC, int, int, UINT, int *, FLOAT *); -extern BOOL WINAPI wglChoosePixelFormatEXT (HDC, const int *, const FLOAT *, UINT, int *, UINT *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETPIXELFORMATATTRIBIVEXTPROC) (HDC hdc, int iPixelFormat, int iLayerPlane, UINT nAttributes, int *piAttributes, int *piValues); -typedef BOOL (WINAPI * PFNWGLGETPIXELFORMATATTRIBFVEXTPROC) (HDC hdc, int iPixelFormat, int iLayerPlane, UINT nAttributes, int *piAttributes, FLOAT *pfValues); -typedef BOOL (WINAPI * PFNWGLCHOOSEPIXELFORMATEXTPROC) (HDC hdc, const int *piAttribIList, const FLOAT *pfAttribFList, UINT nMaxFormats, int *piFormats, UINT *nNumFormats); -#endif - -#ifndef WGL_EXT_swap_control -#define WGL_EXT_swap_control 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglSwapIntervalEXT (int); -extern int WINAPI wglGetSwapIntervalEXT (void); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLSWAPINTERVALEXTPROC) (int interval); -typedef int (WINAPI * PFNWGLGETSWAPINTERVALEXTPROC) (void); -#endif - -#ifndef WGL_EXT_depth_float -#define WGL_EXT_depth_float 1 -#endif - -#ifndef WGL_NV_vertex_array_range -#define WGL_NV_vertex_array_range 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern void* WINAPI wglAllocateMemoryNV (GLsizei, GLfloat, GLfloat, GLfloat); -extern void WINAPI wglFreeMemoryNV (void *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef void* (WINAPI * PFNWGLALLOCATEMEMORYNVPROC) (GLsizei size, GLfloat readfreq, GLfloat writefreq, GLfloat priority); -typedef void (WINAPI * PFNWGLFREEMEMORYNVPROC) (void *pointer); -#endif - -#ifndef WGL_3DFX_multisample -#define WGL_3DFX_multisample 1 -#endif - -#ifndef WGL_EXT_multisample -#define WGL_EXT_multisample 1 -#endif - -#ifndef WGL_OML_sync_control -#define WGL_OML_sync_control 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetSyncValuesOML (HDC, INT64 *, INT64 *, INT64 *); -extern BOOL WINAPI wglGetMscRateOML (HDC, INT32 *, INT32 *); -extern INT64 WINAPI wglSwapBuffersMscOML (HDC, INT64, INT64, INT64); -extern INT64 WINAPI wglSwapLayerBuffersMscOML (HDC, int, INT64, INT64, INT64); -extern BOOL WINAPI wglWaitForMscOML (HDC, INT64, INT64, INT64, INT64 *, INT64 *, INT64 *); -extern BOOL WINAPI wglWaitForSbcOML (HDC, INT64, INT64 *, INT64 *, INT64 *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETSYNCVALUESOMLPROC) (HDC hdc, INT64 *ust, INT64 *msc, INT64 *sbc); -typedef BOOL (WINAPI * PFNWGLGETMSCRATEOMLPROC) (HDC hdc, INT32 *numerator, INT32 *denominator); -typedef INT64 (WINAPI * PFNWGLSWAPBUFFERSMSCOMLPROC) (HDC hdc, INT64 target_msc, INT64 divisor, INT64 remainder); -typedef INT64 (WINAPI * PFNWGLSWAPLAYERBUFFERSMSCOMLPROC) (HDC hdc, int fuPlanes, INT64 target_msc, INT64 divisor, INT64 remainder); -typedef BOOL (WINAPI * PFNWGLWAITFORMSCOMLPROC) (HDC hdc, INT64 target_msc, INT64 divisor, INT64 remainder, INT64 *ust, INT64 *msc, INT64 *sbc); -typedef BOOL (WINAPI * PFNWGLWAITFORSBCOMLPROC) (HDC hdc, INT64 target_sbc, INT64 *ust, INT64 *msc, INT64 *sbc); -#endif - -#ifndef WGL_I3D_digital_video_control -#define WGL_I3D_digital_video_control 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetDigitalVideoParametersI3D (HDC, int, int *); -extern BOOL WINAPI wglSetDigitalVideoParametersI3D (HDC, int, const int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETDIGITALVIDEOPARAMETERSI3DPROC) (HDC hDC, int iAttribute, int *piValue); -typedef BOOL (WINAPI * PFNWGLSETDIGITALVIDEOPARAMETERSI3DPROC) (HDC hDC, int iAttribute, const int *piValue); -#endif - -#ifndef WGL_I3D_gamma -#define WGL_I3D_gamma 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetGammaTableParametersI3D (HDC, int, int *); -extern BOOL WINAPI wglSetGammaTableParametersI3D (HDC, int, const int *); -extern BOOL WINAPI wglGetGammaTableI3D (HDC, int, USHORT *, USHORT *, USHORT *); -extern BOOL WINAPI wglSetGammaTableI3D (HDC, int, const USHORT *, const USHORT *, const USHORT *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETGAMMATABLEPARAMETERSI3DPROC) (HDC hDC, int iAttribute, int *piValue); -typedef BOOL (WINAPI * PFNWGLSETGAMMATABLEPARAMETERSI3DPROC) (HDC hDC, int iAttribute, const int *piValue); -typedef BOOL (WINAPI * PFNWGLGETGAMMATABLEI3DPROC) (HDC hDC, int iEntries, USHORT *puRed, USHORT *puGreen, USHORT *puBlue); -typedef BOOL (WINAPI * PFNWGLSETGAMMATABLEI3DPROC) (HDC hDC, int iEntries, const USHORT *puRed, const USHORT *puGreen, const USHORT *puBlue); -#endif - -#ifndef WGL_I3D_genlock -#define WGL_I3D_genlock 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglEnableGenlockI3D (HDC); -extern BOOL WINAPI wglDisableGenlockI3D (HDC); -extern BOOL WINAPI wglIsEnabledGenlockI3D (HDC, BOOL *); -extern BOOL WINAPI wglGenlockSourceI3D (HDC, UINT); -extern BOOL WINAPI wglGetGenlockSourceI3D (HDC, UINT *); -extern BOOL WINAPI wglGenlockSourceEdgeI3D (HDC, UINT); -extern BOOL WINAPI wglGetGenlockSourceEdgeI3D (HDC, UINT *); -extern BOOL WINAPI wglGenlockSampleRateI3D (HDC, UINT); -extern BOOL WINAPI wglGetGenlockSampleRateI3D (HDC, UINT *); -extern BOOL WINAPI wglGenlockSourceDelayI3D (HDC, UINT); -extern BOOL WINAPI wglGetGenlockSourceDelayI3D (HDC, UINT *); -extern BOOL WINAPI wglQueryGenlockMaxSourceDelayI3D (HDC, UINT *, UINT *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLENABLEGENLOCKI3DPROC) (HDC hDC); -typedef BOOL (WINAPI * PFNWGLDISABLEGENLOCKI3DPROC) (HDC hDC); -typedef BOOL (WINAPI * PFNWGLISENABLEDGENLOCKI3DPROC) (HDC hDC, BOOL *pFlag); -typedef BOOL (WINAPI * PFNWGLGENLOCKSOURCEI3DPROC) (HDC hDC, UINT uSource); -typedef BOOL (WINAPI * PFNWGLGETGENLOCKSOURCEI3DPROC) (HDC hDC, UINT *uSource); -typedef BOOL (WINAPI * PFNWGLGENLOCKSOURCEEDGEI3DPROC) (HDC hDC, UINT uEdge); -typedef BOOL (WINAPI * PFNWGLGETGENLOCKSOURCEEDGEI3DPROC) (HDC hDC, UINT *uEdge); -typedef BOOL (WINAPI * PFNWGLGENLOCKSAMPLERATEI3DPROC) (HDC hDC, UINT uRate); -typedef BOOL (WINAPI * PFNWGLGETGENLOCKSAMPLERATEI3DPROC) (HDC hDC, UINT *uRate); -typedef BOOL (WINAPI * PFNWGLGENLOCKSOURCEDELAYI3DPROC) (HDC hDC, UINT uDelay); -typedef BOOL (WINAPI * PFNWGLGETGENLOCKSOURCEDELAYI3DPROC) (HDC hDC, UINT *uDelay); -typedef BOOL (WINAPI * PFNWGLQUERYGENLOCKMAXSOURCEDELAYI3DPROC) (HDC hDC, UINT *uMaxLineDelay, UINT *uMaxPixelDelay); -#endif - -#ifndef WGL_I3D_image_buffer -#define WGL_I3D_image_buffer 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern LPVOID WINAPI wglCreateImageBufferI3D (HDC, DWORD, UINT); -extern BOOL WINAPI wglDestroyImageBufferI3D (HDC, LPVOID); -extern BOOL WINAPI wglAssociateImageBufferEventsI3D (HDC, const HANDLE *, const LPVOID *, const DWORD *, UINT); -extern BOOL WINAPI wglReleaseImageBufferEventsI3D (HDC, const LPVOID *, UINT); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef LPVOID (WINAPI * PFNWGLCREATEIMAGEBUFFERI3DPROC) (HDC hDC, DWORD dwSize, UINT uFlags); -typedef BOOL (WINAPI * PFNWGLDESTROYIMAGEBUFFERI3DPROC) (HDC hDC, LPVOID pAddress); -typedef BOOL (WINAPI * PFNWGLASSOCIATEIMAGEBUFFEREVENTSI3DPROC) (HDC hDC, const HANDLE *pEvent, const LPVOID *pAddress, const DWORD *pSize, UINT count); -typedef BOOL (WINAPI * PFNWGLRELEASEIMAGEBUFFEREVENTSI3DPROC) (HDC hDC, const LPVOID *pAddress, UINT count); -#endif - -#ifndef WGL_I3D_swap_frame_lock -#define WGL_I3D_swap_frame_lock 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglEnableFrameLockI3D (void); -extern BOOL WINAPI wglDisableFrameLockI3D (void); -extern BOOL WINAPI wglIsEnabledFrameLockI3D (BOOL *); -extern BOOL WINAPI wglQueryFrameLockMasterI3D (BOOL *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLENABLEFRAMELOCKI3DPROC) (void); -typedef BOOL (WINAPI * PFNWGLDISABLEFRAMELOCKI3DPROC) (void); -typedef BOOL (WINAPI * PFNWGLISENABLEDFRAMELOCKI3DPROC) (BOOL *pFlag); -typedef BOOL (WINAPI * PFNWGLQUERYFRAMELOCKMASTERI3DPROC) (BOOL *pFlag); -#endif - -#ifndef WGL_I3D_swap_frame_usage -#define WGL_I3D_swap_frame_usage 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetFrameUsageI3D (float *); -extern BOOL WINAPI wglBeginFrameTrackingI3D (void); -extern BOOL WINAPI wglEndFrameTrackingI3D (void); -extern BOOL WINAPI wglQueryFrameTrackingI3D (DWORD *, DWORD *, float *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETFRAMEUSAGEI3DPROC) (float *pUsage); -typedef BOOL (WINAPI * PFNWGLBEGINFRAMETRACKINGI3DPROC) (void); -typedef BOOL (WINAPI * PFNWGLENDFRAMETRACKINGI3DPROC) (void); -typedef BOOL (WINAPI * PFNWGLQUERYFRAMETRACKINGI3DPROC) (DWORD *pFrameCount, DWORD *pMissedFrames, float *pLastMissedUsage); -#endif - -#ifndef WGL_ATI_pixel_format_float -#define WGL_ATI_pixel_format_float 1 -#endif - -#ifndef WGL_NV_float_buffer -#define WGL_NV_float_buffer 1 -#endif - -#ifndef WGL_EXT_pixel_format_packed_float -#define WGL_EXT_pixel_format_packed_float 1 -#endif - -#ifndef WGL_EXT_framebuffer_sRGB -#define WGL_EXT_framebuffer_sRGB 1 -#endif - -#ifndef WGL_NV_present_video -#define WGL_NV_present_video 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern int WINAPI wglEnumerateVideoDevicesNV (HDC, HVIDEOOUTPUTDEVICENV *); -extern BOOL WINAPI wglBindVideoDeviceNV (HDC, unsigned int, HVIDEOOUTPUTDEVICENV, const int *); -extern BOOL WINAPI wglQueryCurrentContextNV (int, int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef int (WINAPI * PFNWGLENUMERATEVIDEODEVICESNVPROC) (HDC hDC, HVIDEOOUTPUTDEVICENV *phDeviceList); -typedef BOOL (WINAPI * PFNWGLBINDVIDEODEVICENVPROC) (HDC hDC, unsigned int uVideoSlot, HVIDEOOUTPUTDEVICENV hVideoDevice, const int *piAttribList); -typedef BOOL (WINAPI * PFNWGLQUERYCURRENTCONTEXTNVPROC) (int iAttribute, int *piValue); -#endif - -#ifndef WGL_NV_video_out -#define WGL_NV_video_out 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglGetVideoDeviceNV (HDC, int, HPVIDEODEV *); -extern BOOL WINAPI wglReleaseVideoDeviceNV (HPVIDEODEV); -extern BOOL WINAPI wglBindVideoImageNV (HPVIDEODEV, HPBUFFERARB, int); -extern BOOL WINAPI wglReleaseVideoImageNV (HPBUFFERARB, int); -extern BOOL WINAPI wglSendPbufferToVideoNV (HPBUFFERARB, int, unsigned long *, BOOL); -extern BOOL WINAPI wglGetVideoInfoNV (HPVIDEODEV, unsigned long *, unsigned long *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLGETVIDEODEVICENVPROC) (HDC hDC, int numDevices, HPVIDEODEV *hVideoDevice); -typedef BOOL (WINAPI * PFNWGLRELEASEVIDEODEVICENVPROC) (HPVIDEODEV hVideoDevice); -typedef BOOL (WINAPI * PFNWGLBINDVIDEOIMAGENVPROC) (HPVIDEODEV hVideoDevice, HPBUFFERARB hPbuffer, int iVideoBuffer); -typedef BOOL (WINAPI * PFNWGLRELEASEVIDEOIMAGENVPROC) (HPBUFFERARB hPbuffer, int iVideoBuffer); -typedef BOOL (WINAPI * PFNWGLSENDPBUFFERTOVIDEONVPROC) (HPBUFFERARB hPbuffer, int iBufferType, unsigned long *pulCounterPbuffer, BOOL bBlock); -typedef BOOL (WINAPI * PFNWGLGETVIDEOINFONVPROC) (HPVIDEODEV hpVideoDevice, unsigned long *pulCounterOutputPbuffer, unsigned long *pulCounterOutputVideo); -#endif - -#ifndef WGL_NV_swap_group -#define WGL_NV_swap_group 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglJoinSwapGroupNV (HDC, GLuint); -extern BOOL WINAPI wglBindSwapBarrierNV (GLuint, GLuint); -extern BOOL WINAPI wglQuerySwapGroupNV (HDC, GLuint *, GLuint *); -extern BOOL WINAPI wglQueryMaxSwapGroupsNV (HDC, GLuint *, GLuint *); -extern BOOL WINAPI wglQueryFrameCountNV (HDC, GLuint *); -extern BOOL WINAPI wglResetFrameCountNV (HDC); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLJOINSWAPGROUPNVPROC) (HDC hDC, GLuint group); -typedef BOOL (WINAPI * PFNWGLBINDSWAPBARRIERNVPROC) (GLuint group, GLuint barrier); -typedef BOOL (WINAPI * PFNWGLQUERYSWAPGROUPNVPROC) (HDC hDC, GLuint *group, GLuint *barrier); -typedef BOOL (WINAPI * PFNWGLQUERYMAXSWAPGROUPSNVPROC) (HDC hDC, GLuint *maxGroups, GLuint *maxBarriers); -typedef BOOL (WINAPI * PFNWGLQUERYFRAMECOUNTNVPROC) (HDC hDC, GLuint *count); -typedef BOOL (WINAPI * PFNWGLRESETFRAMECOUNTNVPROC) (HDC hDC); -#endif - -#ifndef WGL_NV_gpu_affinity -#define WGL_NV_gpu_affinity 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern BOOL WINAPI wglEnumGpusNV (UINT, HGPUNV *); -extern BOOL WINAPI wglEnumGpuDevicesNV (HGPUNV, UINT, PGPU_DEVICE); -extern HDC WINAPI wglCreateAffinityDCNV (const HGPUNV *); -extern BOOL WINAPI wglEnumGpusFromAffinityDCNV (HDC, UINT, HGPUNV *); -extern BOOL WINAPI wglDeleteDCNV (HDC); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef BOOL (WINAPI * PFNWGLENUMGPUSNVPROC) (UINT iGpuIndex, HGPUNV *phGpu); -typedef BOOL (WINAPI * PFNWGLENUMGPUDEVICESNVPROC) (HGPUNV hGpu, UINT iDeviceIndex, PGPU_DEVICE lpGpuDevice); -typedef HDC (WINAPI * PFNWGLCREATEAFFINITYDCNVPROC) (const HGPUNV *phGpuList); -typedef BOOL (WINAPI * PFNWGLENUMGPUSFROMAFFINITYDCNVPROC) (HDC hAffinityDC, UINT iGpuIndex, HGPUNV *hGpu); -typedef BOOL (WINAPI * PFNWGLDELETEDCNVPROC) (HDC hdc); -#endif - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/LICENSE b/opengl/Togl2.1-SnapPy/LICENSE deleted file mode 100644 index a40bd5cd3..000000000 --- a/opengl/Togl2.1-SnapPy/LICENSE +++ /dev/null @@ -1,28 +0,0 @@ -This software is copyrighted by Brian Paul (brian@mesa3d.org), -Benjamin Bederson (bederson@cs.umd.edu), and Greg Couch -(gregcouch@users.sourceforge.net). The following terms apply to all -files associated with the software unless explicitly disclaimed in -individual files. - -The authors hereby grant permission to use, copy, modify, distribute, -and license this software and its documentation for any purpose, provided -that existing copyright notices are retained in all copies and that this -notice is included verbatim in any distributions. No written agreement, -license, or royalty fee is required for any of the authorized uses. -Modifications to this software may be copyrighted by their authors -and need not follow the licensing terms described here, provided that -the new terms are clearly indicated on the first page of each file where -they apply. - -IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY -FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES -ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY -DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE -POSSIBILITY OF SUCH DAMAGE. - -THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, -INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE -IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE -NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR -MODIFICATIONS. diff --git a/opengl/Togl2.1-SnapPy/Makefile.in b/opengl/Togl2.1-SnapPy/Makefile.in deleted file mode 100644 index 716b8303a..000000000 --- a/opengl/Togl2.1-SnapPy/Makefile.in +++ /dev/null @@ -1,572 +0,0 @@ -# Makefile.in -- -# -# This file is a Makefile for Sample TEA Extension. If it has the name -# "Makefile.in" then it is a template for a Makefile; to generate the -# actual Makefile, run "./configure", which is a configuration script -# generated by the "autoconf" program (constructs like "@foo@" will get -# replaced in the actual Makefile. -# -# Copyright (c) 1999 Scriptics Corporation. -# Copyright (c) 2002-2005 ActiveState Corporation. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: Makefile.in,v 1.26 2009/12/23 21:46:16 gregcouch Exp $ - -#======================================================================== -# Add additional lines to handle any additional AC_SUBST cases that -# have been added in a customized configure script. -#======================================================================== - -#SAMPLE_NEW_VAR = @SAMPLE_NEW_VAR@ -SHLIB_SUFFIX = @SHLIB_SUFFIX@ -MATH_LIBS = @MATH_LIBS@ -LIBGLU = @LIBGLU@ - -EXAMPLE_SRCS = double.c gears.c index.c overlay.c stereo.c texture.c pbuffer.c -EXAMPLE_OBJS = $(EXAMPLE_SRCS:.c=.$(OBJEXT)) -EXAMPLE_SHLIBS = $(EXAMPLE_SRCS:.c=$(SHLIB_SUFFIX)) - -#======================================================================== -# Nothing of the variables below this line should need to be changed. -# Please check the TARGETS section below to make sure the make targets -# are correct. -#======================================================================== - -#======================================================================== -# The names of the source files is defined in the configure script. -# The object files are used for linking into the final library. -# This will be used when a dist target is added to the Makefile. -# It is not important to specify the directory, as long as it is the -# $(srcdir) or in the generic, win or unix subdirectory. -#======================================================================== - -PKG_SOURCES = @PKG_SOURCES@ -PKG_OBJECTS = @PKG_OBJECTS@ - -PKG_STUB_SOURCES = @PKG_STUB_SOURCES@ -PKG_STUB_OBJECTS = @PKG_STUB_OBJECTS@ - -#======================================================================== -# PKG_TCL_SOURCES identifies Tcl runtime files that are associated with -# this package that need to be installed, if any. -#======================================================================== - -PKG_TCL_SOURCES = @PKG_TCL_SOURCES@ - -#======================================================================== -# This is a list of public header files to be installed, if any. -#======================================================================== - -PKG_HEADERS = @PKG_HEADERS@ togl_ws.h - -#======================================================================== -# "PKG_LIB_FILE" refers to the library (dynamic or static as per -# configuration options) composed of the named objects. -#======================================================================== - -PKG_LIB_FILE = @PKG_LIB_FILE@ -PKG_STUB_LIB_FILE = @PKG_STUB_LIB_FILE@ - -pkglib_BINARIES = $(PKG_LIB_FILE) -lib_BINARIES = $(PKG_STUB_LIB_FILE) -BINARIES = $(pkglib_BINARIES) $(lib_BINARIES) - -SHELL = @SHELL@ - -srcdir = @srcdir@ -prefix = @prefix@ -exec_prefix = @exec_prefix@ - -bindir = @bindir@ -libdir = @libdir@ -includedir = @includedir@ -datarootdir = @datarootdir@ -datadir = @datadir@ -mandir = @mandir@ - -DESTDIR = - -PKG_DIR = $(PACKAGE_NAME)$(PACKAGE_VERSION) -pkgdatadir = $(datadir)/$(PKG_DIR) -pkglibdir = $(libdir)/$(PKG_DIR) -pkgincludedir = $(includedir)/$(PKG_DIR) - -top_builddir = . - -INSTALL = @INSTALL@ -INSTALL_PROGRAM = @INSTALL_PROGRAM@ -INSTALL_DATA = @INSTALL_DATA@ -INSTALL_SCRIPT = @INSTALL_SCRIPT@ - -PACKAGE_NAME = @PACKAGE_NAME@ -PACKAGE_VERSION = @PACKAGE_VERSION@ -CC = @CC@ -CFLAGS_DEFAULT = @CFLAGS_DEFAULT@ -CFLAGS_WARNING = @CFLAGS_WARNING@ -EXEEXT = @EXEEXT@ -LDFLAGS_DEFAULT = @LDFLAGS_DEFAULT@ -MAKE_LIB = @MAKE_LIB@ -MAKE_SHARED_LIB = @MAKE_SHARED_LIB@ -MAKE_STATIC_LIB = @MAKE_STATIC_LIB@ -MAKE_STUB_LIB = @MAKE_STUB_LIB@ -OBJEXT = @OBJEXT@ -RANLIB = @RANLIB@ -RANLIB_STUB = @RANLIB_STUB@ -SHLIB_CFLAGS = @SHLIB_CFLAGS@ -SHLIB_LD = @SHLIB_LD@ -SHLIB_LD_LIBS = @SHLIB_LD_LIBS@ -STLIB_LD = @STLIB_LD@ -#TCL_DEFS = @TCL_DEFS@ -TCL_BIN_DIR = @TCL_BIN_DIR@ -TCL_SRC_DIR = @TCL_SRC_DIR@ -#TK_BIN_DIR = @TK_BIN_DIR@ -#TK_SRC_DIR = @TK_SRC_DIR@ - -# Not used, but retained for reference of what libs Tcl required -#TCL_LIBS = @TCL_LIBS@ - -#======================================================================== -# TCLLIBPATH seeds the auto_path in Tcl's init.tcl so we can test our -# package without installing. The other environment variables allow us -# to test against an uninstalled Tcl. Add special env vars that you -# require for testing here (like TCLX_LIBRARY). -#======================================================================== - -#EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR) -EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR) -TCLLIBPATH = $(top_builddir) -TCLSH_ENV = TCL_LIBRARY=`@CYGPATH@ $(TCL_SRC_DIR)/library` \ - @LD_LIBRARY_PATH_VAR@="$(EXTRA_PATH):$(@LD_LIBRARY_PATH_VAR@)" \ - PATH="$(EXTRA_PATH):$(PATH)" \ - TCLLIBPATH="$(TCLLIBPATH)" -# TK_LIBRARY=`@CYGPATH@ $(TK_SRC_DIR)/library` - -TCLSH_PROG = @TCLSH_PROG@ -TCLSH = $(TCLSH_ENV) $(TCLSH_PROG) - -WISH_PROG = @WISH_PROG@ -WISH = $(TCLSH_ENV) $(WISH_PROG) - - -SHARED_BUILD = @SHARED_BUILD@ - -INCLUDES = -I. @PKG_INCLUDES@ @TCL_INCLUDES@ @TK_INCLUDES@ @TK_XINCLUDES@ - -PKG_CFLAGS = @PKG_CFLAGS@ - -# TCL_DEFS is not strictly need here, but if you remove it, then you -# must make sure that configure.in checks for the necessary components -# that your library may use. TCL_DEFS can actually be a problem if -# you do not compile with a similar machine setup as the Tcl core was -# compiled with. -#DEFS = $(TCL_DEFS) @DEFS@ $(PKG_CFLAGS) -DEFS = @DEFS@ -DAUTOSTEREOD=\"@AUTOSTEREOD@\" $(PKG_CFLAGS) -DUNICODE -D_UNICODE - -CONFIG_CLEAN_FILES = Makefile pkgIndex.tcl togl_ws.h -CLEANFILES = @CLEANFILES@ $(EXAMPLE_OBJS) $(EXAMPLE_SHLIBS) - -CPPFLAGS = @CPPFLAGS@ -LIBS = @PKG_LIBS@ @LIBS@ -AR = @AR@ -CFLAGS = @CFLAGS@ -COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) - -#======================================================================== -# Start of user-definable TARGETS section -#======================================================================== - -#======================================================================== -# TEA TARGETS. Please note that the "libraries:" target refers to platform -# independent files, and the "binaries:" target includes executable programs and -# platform-dependent libraries. Modify these targets so that they install -# the various pieces of your package. The make and install rules -# for the BINARIES that you specified above have already been done. -#======================================================================== - -all: binaries libraries doc - -#======================================================================== -# The binaries target builds executable programs, Windows .dll's, unix -# shared/static libraries, and any other platform-dependent files. -# The list of targets to build for "binaries:" is specified at the top -# of the Makefile, in the "BINARIES" variable. -#======================================================================== - -binaries: $(BINARIES) - -libraries: - -#======================================================================== -# Example section. These are examples because we don't want to install them. -# And they're not tests because we currently have no automatic way to see -# if they work. -#======================================================================== - -examples: $(EXAMPLE_SHLIBS) - -double$(SHLIB_SUFFIX): double.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="double.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -gears$(SHLIB_SUFFIX): gears.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="gears.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -index$(SHLIB_SUFFIX): index.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="index.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -overlay$(SHLIB_SUFFIX): overlay.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="overlay.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -stereo$(SHLIB_SUFFIX): stereo.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="stereo.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -texture$(SHLIB_SUFFIX): texture.$(OBJEXT) image.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="texture.$(OBJEXT) image.$(OBJEXT) $(PKG_STUB_LIB_FILE) $(LIBGLU)" $@ ; \ - fi - -pbuffer$(SHLIB_SUFFIX): pbuffer.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="pbuffer.$(OBJEXT) $(PKG_STUB_LIB_FILE) $(LIBGLU)" $@ ; \ - fi - -#======================================================================== -# Stub section. -#======================================================================== - -toglDecls.h toglStubInit.c: togl.decls - $(TCLSH) `@CYGPATH@ $(TCL_SRC_DIR)/tools/genStubs.tcl` . togl.decls - -#======================================================================== -# Your doc target should differentiate from doc builds (by the developer) -# and doc installs (see install-doc), which just install the docs on the -# end user machine when building from source. -#======================================================================== - -doc: -# @echo "If you have documentation to create, place the commands to" -# @echo "build the docs in the 'doc:' target. For example:" -# @echo " xml2nroff sample.xml > sample.n" -# @echo " xml2html sample.xml > sample.html" - -install: all install-binaries install-libraries install-doc - -install-binaries: binaries install-lib-binaries install-bin-binaries - -#======================================================================== -# This rule installs platform-independent files, such as header files. -# The list=...; for p in $$list handles the empty list case x-platform. -#======================================================================== - -install-libraries: libraries - @mkdir -p $(DESTDIR)$(includedir) - @echo "Installing header files in $(DESTDIR)$(includedir)" - @list='$(PKG_HEADERS)'; for i in $$list; do \ - echo "Installing $(srcdir)/$$i" ; \ - $(INSTALL_DATA) $(srcdir)/$$i $(DESTDIR)$(includedir) ; \ - done - -#======================================================================== -# Install documentation. Unix manpages should go in the $(mandir) -# directory. -#======================================================================== - -install-doc: doc -# @mkdir -p $(DESTDIR)$(mandir)/mann -# @echo "Installing documentation in $(DESTDIR)$(mandir)" -# @list='$(srcdir)/doc/*.n'; for i in $$list; do \ -# echo "Installing $$i"; \ -# rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \ -# $(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \ -# done - -test: binaries libraries - $(TCLSH) `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS) - -shell: binaries libraries - @$(TCLSH) $(SCRIPT) - -gdb: - $(TCLSH_ENV) gdb $(TCLSH_PROG) $(SCRIPT) - -depend: - -#======================================================================== -# $(PKG_LIB_FILE) should be listed as part of the BINARIES variable -# mentioned above. That will ensure that this target is built when you -# run "make binaries". -# -# The $(PKG_OBJECTS) objects are created and linked into the final -# library. In most cases these object files will correspond to the -# source files above. -#======================================================================== - -$(PKG_LIB_FILE): $(PKG_OBJECTS) - -rm -f $(PKG_LIB_FILE) - ${MAKE_LIB} - $(RANLIB) $(PKG_LIB_FILE) - -$(PKG_STUB_LIB_FILE): $(PKG_STUB_OBJECTS) - -rm -f $(PKG_STUB_LIB_FILE) - ${MAKE_STUB_LIB} - $(RANLIB_STUB) $(PKG_STUB_LIB_FILE) - -#======================================================================== -# We need to enumerate the list of .c to .o lines here. -# -# In the following lines, $(srcdir) refers to the toplevel directory -# containing your extension. If your sources are in a subdirectory, -# you will have to modify the paths to reflect this: -# -# sample.$(OBJEXT): $(srcdir)/generic/sample.c -# $(COMPILE) -c `@CYGPATH@ $(srcdir)/generic/sample.c` -o $@ -# -# Setting the VPATH variable to a list of paths will cause the makefile -# to look into these paths when resolving .c to .obj dependencies. -# As necessary, add $(srcdir):$(srcdir)/compat:.... -#======================================================================== - -VPATH = $(srcdir):Xmu - -.c.@OBJEXT@: - $(COMPILE) -c `@CYGPATH@ $<` -o $@ - -#======================================================================== -# Distribution creation -# You may need to tweak this target to make it work correctly. -#======================================================================== - -COMPRESS = tar zcvf $(PKG_DIR)-src.tar.gz $(PKG_DIR) -DIST_ROOT = /tmp/togl-dist -DIST_DIR = $(DIST_ROOT)/$(PKG_DIR) -BINPKG_DIR = $(PKG_DIR)-@TCL_VERSION@-$(subst Darwin,MacOSX,$(subst CYGWIN,Windows,$(shell uname -s | sed -e 's/[-_].*//'))) -BINDIST_DIR = $(DIST_ROOT)/$(BINPKG_DIR) - -dist-clean: - rm -rf $(DIST_DIR) $(DIST_ROOT)/$(PKG_DIR)* - -dist: dist-clean - mkdir -p $(DIST_DIR) - cp -p $(srcdir)/README* $(srcdir)/LICENSE* $(srcdir)/togl.decls \ - $(srcdir)/*.py $(srcdir)/*.tcl \ - $(srcdir)/aclocal.m4 $(srcdir)/configure $(srcdir)/*.in \ - ben.rgb tree2.rgba \ - $(DIST_DIR)/ - chmod 664 $(DIST_DIR)/* - chmod 775 $(DIST_DIR)/configure $(DIST_DIR)/configure.in - - for i in $(srcdir)/*.[ch]; do \ - if [ -f $$i ]; then \ - cp -p $$i $(DIST_DIR)/ ; \ - fi; \ - done - cd $(DIST_DIR); rm -f $(CONFIG_CLEAN_FILES) - - mkdir $(DIST_DIR)/tclconfig - cp $(srcdir)/tclconfig/install-sh $(srcdir)/tclconfig/tcl.m4 \ - $(DIST_DIR)/tclconfig/ - chmod 664 $(DIST_DIR)/tclconfig/tcl.m4 - chmod +x $(DIST_DIR)/tclconfig/install-sh - - list='examples doc tests Xmu GL'; \ - for p in $$list; do \ - if test -d $(srcdir)/$$p ; then \ - mkdir $(DIST_DIR)/$$p; \ - cp -p $(srcdir)/$$p/*.* $(DIST_DIR)/$$p/; \ - fi; \ - done - - (cd $(DIST_ROOT); $(COMPRESS);) - -bindist-clean: - rm -rf $(BINDIST_DIR) $(DIST_ROOT)/$(PKG_DIR)* - -bindist: all bindist-clean - mkdir -p $(BINDIST_DIR) - $(MAKE) prefix=$(BINDIST_DIR) exec_prefix=$(BINDIST_DIR) install - $(INSTALL_DATA) README.bin $(BINDIST_DIR)/README.txt - mkdir -p $(BINDIST_DIR)/doc - @list='doc/*.html doc/*.js'; for i in $$list; do \ - echo "Installing $$i"; \ - rm -f $(BINDIST_DIR)/doc/`basename $$i`; \ - $(INSTALL_DATA) $$i $(BINDIST_DIR)/doc ; \ - done - if [ @TOGL_WINDOWINGSYSTEM@ == TOGL_WGL ]; then \ - (cd $(DIST_ROOT); zip -rDX9 $(BINPKG_DIR).zip $(BINPKG_DIR)); \ - else \ - (cd $(DIST_ROOT); tar zcvf $(BINPKG_DIR).tar.gz $(BINPKG_DIR)); \ - fi - -#======================================================================== -# End of user-definable section -#======================================================================== - -#======================================================================== -# Don't modify the file to clean here. Instead, set the "CLEANFILES" -# variable in configure.in -#======================================================================== - -clean: - -test -z "$(BINARIES)" || rm -f $(BINARIES) - -rm -f *.$(OBJEXT) core *.core - -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) - -distclean: clean - -rm -f *.tab.c - -rm -f $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log config.status - -#======================================================================== -# Install binary object libraries. On Windows this includes both .dll and -# .lib files. Because the .lib files are not explicitly listed anywhere, -# we need to deduce their existence from the .dll file of the same name. -# Library files go into the lib directory. -# In addition, this will generate the pkgIndex.tcl -# file in the install location (assuming it can find a usable tclsh shell) -# -# You should not have to modify this target. -#======================================================================== - -install-lib-binaries: binaries - @mkdir -p $(DESTDIR)$(libdir) - @list='$(lib_BINARIES)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(libdir)/$$p"; \ - $(INSTALL_PROGRAM) $$p $(DESTDIR)$(libdir)/$$p; \ - stub=`echo $$p|sed -e "s/.*\(stub\).*/\1/"`; \ - if test "x$$stub" = "xstub"; then \ - echo " $(RANLIB_STUB) $(DESTDIR)$(libdir)/$$p"; \ - $(RANLIB_STUB) $(DESTDIR)$(libdir)/$$p; \ - else \ - echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \ - $(RANLIB) $(DESTDIR)$(libdir)/$$p; \ - fi; \ - ext=`echo $$p|sed -e "s/.*\.//"`; \ - if test "x$$ext" = "xdll"; then \ - lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \ - if test -f $$lib; then \ - echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(libdir)/$$lib"; \ - $(INSTALL_DATA) $$lib $(DESTDIR)$(libdir)/$$lib; \ - fi; \ - fi; \ - fi; \ - done - @mkdir -p $(DESTDIR)$(pkglibdir) - @list='$(pkglib_BINARIES)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(pkglibdir)/$$p"; \ - $(INSTALL_PROGRAM) $$p $(DESTDIR)$(pkglibdir)/$$p; \ - stub=`echo $$p|sed -e "s/.*\(stub\).*/\1/"`; \ - if test "x$$stub" = "xstub"; then \ - echo " $(RANLIB_STUB) $(DESTDIR)$(pkglibdir)/$$p"; \ - $(RANLIB_STUB) $(DESTDIR)$(pkglibdir)/$$p; \ - else \ - echo " $(RANLIB) $(DESTDIR)$(pkglibdir)/$$p"; \ - $(RANLIB) $(DESTDIR)$(pkglibdir)/$$p; \ - fi; \ - ext=`echo $$p|sed -e "s/.*\.//"`; \ - if test "x$$ext" = "xdll"; then \ - lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \ - if test -f $$lib; then \ - echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib"; \ - $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib; \ - fi; \ - fi; \ - fi; \ - done - @list='$(PKG_TCL_SOURCES)'; for p in $$list; do \ - if test -f $(srcdir)/$$p; then \ - destp=`basename $$p`; \ - echo " Install $$destp $(DESTDIR)$(pkglibdir)/$$destp"; \ - $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkglibdir)/$$destp; \ - fi; \ - done - @if test "x$(SHARED_BUILD)" = "x1"; then \ - echo " Install pkgIndex.tcl $(DESTDIR)$(pkglibdir)"; \ - $(INSTALL_DATA) pkgIndex.tcl $(DESTDIR)$(pkglibdir); \ - echo " Install LICENSE $(DESTDIR)$(pkglibdir)"; \ - $(INSTALL_DATA) LICENSE $(DESTDIR)$(pkglibdir); \ - else \ - echo " Install LICENSE.togl $(DESTDIR)$(libdir)"; \ - $(INSTALL_DATA) LICENSE $(DESTDIR)$(libdir)/LICENSE.togl; \ - fi - -#======================================================================== -# Install binary executables (e.g. .exe files and dependent .dll files) -# This is for files that must go in the bin directory (located next to -# wish and tclsh), like dependent .dll files on Windows. -# -# You should not have to modify this target, except to define bin_BINARIES -# above if necessary. -#======================================================================== - -install-bin-binaries: binaries - @mkdir -p $(DESTDIR)$(bindir) - @list='$(bin_BINARIES)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p"; \ - $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p; \ - fi; \ - done - -.SUFFIXES: .c .$(OBJEXT) - -Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status - cd $(top_builddir) \ - && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status - -uninstall-binaries: - list='$(pkglib_BINARIES)'; for p in $$list; do \ - rm -f $(DESTDIR)$(pkglibdir)/$$p; \ - done - list='$(lib_BINARIES)'; for p in $$list; do \ - rm -f $(DESTDIR)$(libdir)/$$p; \ - done - list='$(PKG_TCL_SOURCES)'; for p in $$list; do \ - p=`basename $$p`; \ - rm -f $(DESTDIR)$(pkglibdir)/$$p; \ - done - list='$(bin_BINARIES)'; for p in $$list; do \ - rm -f $(DESTDIR)$(bindir)/$$p; \ - done - -.PHONY: all binaries clean depend distclean doc install libraries test - -# Tell versions [3.59,3.63) of GNU make to not export all variables. -# Otherwise a system limit (for SysV at least) may be exceeded. -.NOEXPORT: - -# Additional dependencies -togl.$(OBJEXT): toglFont.c toglAGL.c toglGLX.c toglWGL.c diff --git a/opengl/Togl2.1-SnapPy/Makefile.macOS-SnapPy b/opengl/Togl2.1-SnapPy/Makefile.macOS-SnapPy deleted file mode 100644 index 9d318d3dd..000000000 --- a/opengl/Togl2.1-SnapPy/Makefile.macOS-SnapPy +++ /dev/null @@ -1,590 +0,0 @@ -# This Makefile has been modified for use in building SnapPy. -# We build fat libraries for i386 and x86_64 with a deployment -# target of OS X 10.6. -# Set the Tk version in the following variable: -TKVERSION = 8.7 - -DEPLOY = -mmacosx-version-min=10.9 -CFLAGS_DEFAULT = -Os -arch arm64 -arch x86_64 $(DEPLOY) -prefix = '.' -execprefix = '.' -libdir = 'darwin-tk$(TKVERSION)' - -SnapPy: install-binaries - @echo "*******************************************************" - @echo "* Now move darwin-tk$(TKVERSION) into SnapPy *" - @echo "*******************************************************" - -SnapPy-clean: clean - rm -rf darwin-tk8.5 darwin-tk8.6 darwin-tk8.7 - -# Makefile.in -- -# -# This file is a Makefile for Sample TEA Extension. If it has the name -# "Makefile.in" then it is a template for a Makefile; to generate the -# actual Makefile, run "./configure", which is a configuration script -# generated by the "autoconf" program (constructs like "@foo@" will get -# replaced in the actual Makefile. -# -# Copyright (c) 1999 Scriptics Corporation. -# Copyright (c) 2002-2005 ActiveState Corporation. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# - -#======================================================================== -# Add additional lines to handle any additional AC_SUBST cases that -# have been added in a customized configure script. -#======================================================================== - -#SAMPLE_NEW_VAR = @SAMPLE_NEW_VAR@ -SHLIB_SUFFIX = .dylib -MATH_LIBS = -LIBGLU = - -EXAMPLE_SRCS = double.c gears.c index.c overlay.c stereo.c texture.c pbuffer.c -EXAMPLE_OBJS = $(EXAMPLE_SRCS:.c=.$(OBJEXT)) -EXAMPLE_SHLIBS = $(EXAMPLE_SRCS:.c=$(SHLIB_SUFFIX)) - -#======================================================================== -# Nothing of the variables below this line should need to be changed. -# Please check the TARGETS section below to make sure the make targets -# are correct. -#======================================================================== - -#======================================================================== -# The names of the source files is defined in the configure script. -# The object files are used for linking into the final library. -# This will be used when a dist target is added to the Makefile. -# It is not important to specify the directory, as long as it is the -# $(srcdir) or in the generic, win or unix subdirectory. -#======================================================================== - -PKG_SOURCES = togl.c toglProcAddr.c toglStubInit.c -PKG_OBJECTS = togl.o toglProcAddr.o toglStubInit.o - -PKG_STUB_SOURCES = toglStubLib.c -PKG_STUB_OBJECTS = toglStubLib.o - -#======================================================================== -# PKG_TCL_SOURCES identifies Tcl runtime files that are associated with -# this package that need to be installed, if any. -#======================================================================== - -PKG_TCL_SOURCES = - -#======================================================================== -# This is a list of public header files to be installed, if any. -#======================================================================== - -PKG_HEADERS = togl.h toglDecls.h togl_ws.h - -#======================================================================== -# "PKG_LIB_FILE" refers to the library (dynamic or static as per -# configuration options) composed of the named objects. -#======================================================================== - -PKG_LIB_FILE = libTogl2.1.dylib -PKG_STUB_LIB_FILE = libToglstub2.1.a - -pkglib_BINARIES = $(PKG_LIB_FILE) -lib_BINARIES = $(PKG_STUB_LIB_FILE) -BINARIES = $(pkglib_BINARIES) $(lib_BINARIES) - -SHELL = /bin/sh - -srcdir = . -#prefix = /Library/Tcl -#exec_prefix = /Library/Tcl - -bindir = ${exec_prefix}/bin -#libdir = ${exec_prefix}/lib -includedir = ${prefix}/include -datarootdir = ${prefix}/share -datadir = ${datarootdir} -mandir = ${datarootdir}/man - -DESTDIR = - -PKG_DIR = $(PACKAGE_NAME)$(PACKAGE_VERSION) -pkgdatadir = $(datadir)/$(PKG_DIR) -pkglibdir = $(libdir)/$(PKG_DIR) -pkgincludedir = $(includedir)/$(PKG_DIR) - -top_builddir = . - -INSTALL = /usr/bin/install -c -INSTALL_PROGRAM = ${INSTALL} -INSTALL_DATA = ${INSTALL} -m 644 -INSTALL_SCRIPT = ${INSTALL} - -PACKAGE_NAME = Togl -PACKAGE_VERSION = 2.1 -CC = gcc -#CFLAGS_DEFAULT = -Os -CFLAGS_WARNING = -Wall -Wno-implicit-int -EXEEXT = -LDFLAGS_DEFAULT = -headerpad_max_install_names -Wl,-search_paths_first -MAKE_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS} -MAKE_SHARED_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS} -MAKE_STATIC_LIB = ${STLIB_LD} $@ $(PKG_OBJECTS) -MAKE_STUB_LIB = ${STLIB_LD} $@ $(PKG_STUB_OBJECTS) -OBJEXT = o -RANLIB = : -RANLIB_STUB = ranlib -SHLIB_CFLAGS = -fno-common -SHLIB_LD = ${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT} -Wl,-single_module -current_version 2.1 -compatibility_version 2.1 -SHLIB_LD_LIBS = ${LIBS} -L/Library/Frameworks/Tcl.framework -ltclstub$(TKVERSION) -L/Library/Frameworks/Tk.framework -ltkstub$(TKVERSION) -STLIB_LD = ${AR} cr -TCL_BIN_DIR = /Library/Frameworks/Tcl.framework -TCL_SRC_DIR = -#TK_BIN_DIR = /Library/Frameworks/Tk.framework -#TK_SRC_DIR = - -# Not used, but retained for reference of what libs Tcl required -#TCL_LIBS = ${DL_LIBS} ${LIBS} ${MATH_LIBS} - -#======================================================================== -# TCLLIBPATH seeds the auto_path in Tcl's init.tcl so we can test our -# package without installing. The other environment variables allow us -# to test against an uninstalled Tcl. Add special env vars that you -# require for testing here (like TCLX_LIBRARY). -#======================================================================== - -#EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR) -EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR) -TCLLIBPATH = $(top_builddir) -TCLSH_ENV = TCL_LIBRARY=`echo $(TCL_SRC_DIR)/library` \ - DYLD_LIBRARY_PATH="$(EXTRA_PATH):$(DYLD_LIBRARY_PATH)" \ - PATH="$(EXTRA_PATH):$(PATH)" \ - TCLLIBPATH="$(TCLLIBPATH)" -# TK_LIBRARY=`echo $(TK_SRC_DIR)/library` - -TCLSH_PROG = tclsh$(TKVERSION) -TCLSH = $(TCLSH_ENV) $(TCLSH_PROG) - -WISH_PROG = @WISH_PROG@ -WISH = $(TCLSH_ENV) $(WISH_PROG) - - -SHARED_BUILD = 1 - -INCLUDES = -I. -I"/Library/Frameworks/Tcl.framework/Headers" -I"/Library/Frameworks/Tcl.framework/PrivateHeaders" -I"/Library/Frameworks/Tk.framework/Headers" -I"/Library/Frameworks/Tk.framework/PrivateHeaders" - -PKG_CFLAGS = - -# TCL_DEFS is not strictly need here, but if you remove it, then you -# must make sure that configure.in checks for the necessary components -# that your library may use. TCL_DEFS can actually be a problem if -# you do not compile with a similar machine setup as the Tcl core was -# compiled with. -#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Togl\" -DPACKAGE_TARNAME=\"togl\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Togl\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DPACKAGE_URL=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DTCL_WIDE_INT_IS_LONG=1 -DUSE_TCL_STUBS=1 -DUSE_TK_STUBS=1 $(PKG_CFLAGS) -DEFS = -DPACKAGE_NAME=\"Togl\" -DPACKAGE_TARNAME=\"togl\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Togl\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DPACKAGE_URL=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DTCL_WIDE_INT_IS_LONG=1 -DUSE_TCL_STUBS=1 -DUSE_TK_STUBS=1 -DAUTOSTEREOD=\"\" $(PKG_CFLAGS) -DUNICODE -D_UNICODE - -CONFIG_CLEAN_FILES = Makefile pkgIndex.tcl togl_ws.h -CLEANFILES = so_locations $(EXAMPLE_OBJS) $(EXAMPLE_SHLIBS) - -CPPFLAGS = -LIBS = -framework OpenGL -framework AppKit -framework ApplicationServices -AR = ar -CFLAGS = -ObjC ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS} -COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) - -#======================================================================== -# Start of user-definable TARGETS section -#======================================================================== - -#======================================================================== -# TEA TARGETS. Please note that the "libraries:" target refers to platform -# independent files, and the "binaries:" target includes executable programs and -# platform-dependent libraries. Modify these targets so that they install -# the various pieces of your package. The make and install rules -# for the BINARIES that you specified above have already been done. -#======================================================================== - -all: binaries libraries doc - -#======================================================================== -# The binaries target builds executable programs, Windows .dll's, unix -# shared/static libraries, and any other platform-dependent files. -# The list of targets to build for "binaries:" is specified at the top -# of the Makefile, in the "BINARIES" variable. -#======================================================================== - -binaries: $(BINARIES) - -libraries: - -#======================================================================== -# Example section. These are examples because we don't want to install them. -# And they're not tests because we currently have no automatic way to see -# if they work. -#======================================================================== - -examples: $(EXAMPLE_SHLIBS) - -double$(SHLIB_SUFFIX): double.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="double.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -gears$(SHLIB_SUFFIX): gears.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="gears.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -index$(SHLIB_SUFFIX): index.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="index.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -overlay$(SHLIB_SUFFIX): overlay.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="overlay.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -stereo$(SHLIB_SUFFIX): stereo.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="stereo.$(OBJEXT) $(PKG_STUB_LIB_FILE)" $@ ; \ - fi - -texture$(SHLIB_SUFFIX): texture.$(OBJEXT) image.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="texture.$(OBJEXT) image.$(OBJEXT) $(PKG_STUB_LIB_FILE) $(LIBGLU)" $@ ; \ - fi - -pbuffer$(SHLIB_SUFFIX): pbuffer.$(OBJEXT) $(PKG_STUB_LIB_FILE) - -match=`expr 'x$(PKG_OBJECTS)' : '.*togl.*'`; \ - if [ $$match -eq 0 ]; then \ - $(MAKE_SHARED_LIB) ; \ - else \ - $(MAKE) PKG_OBJECTS="pbuffer.$(OBJEXT) $(PKG_STUB_LIB_FILE) $(LIBGLU)" $@ ; \ - fi - -#======================================================================== -# Stub section. -#======================================================================== - -toglDecls.h toglStubInit.c: togl.decls - $(TCLSH) `echo $(TCL_SRC_DIR)/tools/genStubs.tcl` . togl.decls - -#======================================================================== -# Your doc target should differentiate from doc builds (by the developer) -# and doc installs (see install-doc), which just install the docs on the -# end user machine when building from source. -#======================================================================== - -doc: -# @echo "If you have documentation to create, place the commands to" -# @echo "build the docs in the 'doc:' target. For example:" -# @echo " xml2nroff sample.xml > sample.n" -# @echo " xml2html sample.xml > sample.html" - -install: all install-binaries install-libraries install-doc - -install-binaries: binaries install-lib-binaries install-bin-binaries - -#======================================================================== -# This rule installs platform-independent files, such as header files. -# The list=...; for p in $$list handles the empty list case x-platform. -#======================================================================== - -install-libraries: libraries - @mkdir -p $(DESTDIR)$(includedir) - @echo "Installing header files in $(DESTDIR)$(includedir)" - @list='$(PKG_HEADERS)'; for i in $$list; do \ - echo "Installing $(srcdir)/$$i" ; \ - $(INSTALL_DATA) $(srcdir)/$$i $(DESTDIR)$(includedir) ; \ - done - -#======================================================================== -# Install documentation. Unix manpages should go in the $(mandir) -# directory. -#======================================================================== - -install-doc: doc -# @mkdir -p $(DESTDIR)$(mandir)/mann -# @echo "Installing documentation in $(DESTDIR)$(mandir)" -# @list='$(srcdir)/doc/*.n'; for i in $$list; do \ -# echo "Installing $$i"; \ -# rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \ -# $(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \ -# done - -test: binaries libraries - $(TCLSH) `echo $(srcdir)/tests/all.tcl` $(TESTFLAGS) - -shell: binaries libraries - @$(TCLSH) $(SCRIPT) - -gdb: - $(TCLSH_ENV) gdb $(TCLSH_PROG) $(SCRIPT) - -depend: - -#======================================================================== -# $(PKG_LIB_FILE) should be listed as part of the BINARIES variable -# mentioned above. That will ensure that this target is built when you -# run "make binaries". -# -# The $(PKG_OBJECTS) objects are created and linked into the final -# library. In most cases these object files will correspond to the -# source files above. -#======================================================================== - -$(PKG_LIB_FILE): $(PKG_OBJECTS) - -rm -f $(PKG_LIB_FILE) - ${MAKE_LIB} - $(RANLIB) $(PKG_LIB_FILE) - -$(PKG_STUB_LIB_FILE): $(PKG_STUB_OBJECTS) - -rm -f $(PKG_STUB_LIB_FILE) - ${MAKE_STUB_LIB} - $(RANLIB_STUB) $(PKG_STUB_LIB_FILE) - -#======================================================================== -# We need to enumerate the list of .c to .o lines here. -# -# In the following lines, $(srcdir) refers to the toplevel directory -# containing your extension. If your sources are in a subdirectory, -# you will have to modify the paths to reflect this: -# -# sample.$(OBJEXT): $(srcdir)/generic/sample.c -# $(COMPILE) -c `echo $(srcdir)/generic/sample.c` -o $@ -# -# Setting the VPATH variable to a list of paths will cause the makefile -# to look into these paths when resolving .c to .obj dependencies. -# As necessary, add $(srcdir):$(srcdir)/compat:.... -#======================================================================== - -VPATH = Xmu - -.c.o: - $(COMPILE) -c `echo $<` -o $@ - -#======================================================================== -# Distribution creation -# You may need to tweak this target to make it work correctly. -#======================================================================== - -COMPRESS = tar zcvf $(PKG_DIR)-src.tar.gz $(PKG_DIR) -DIST_ROOT = /tmp/togl-dist -DIST_DIR = $(DIST_ROOT)/$(PKG_DIR) -BINPKG_DIR = $(PKG_DIR)-$(TKVERSION)-$(subst Darwin,MacOSX,$(subst CYGWIN,Windows,$(shell uname -s | sed -e 's/[-_].*//'))) -BINDIST_DIR = $(DIST_ROOT)/$(BINPKG_DIR) - -dist-clean: - rm -rf $(DIST_DIR) $(DIST_ROOT)/$(PKG_DIR)* - -dist: dist-clean - mkdir -p $(DIST_DIR) - cp -p $(srcdir)/README* $(srcdir)/LICENSE* $(srcdir)/togl.decls \ - $(srcdir)/*.py $(srcdir)/*.tcl \ - $(srcdir)/aclocal.m4 $(srcdir)/configure $(srcdir)/*.in \ - ben.rgb tree2.rgba \ - $(DIST_DIR)/ - chmod 664 $(DIST_DIR)/* - chmod 775 $(DIST_DIR)/configure $(DIST_DIR)/configure.in - - for i in $(srcdir)/*.[ch]; do \ - if [ -f $$i ]; then \ - cp -p $$i $(DIST_DIR)/ ; \ - fi; \ - done - cd $(DIST_DIR); rm -f $(CONFIG_CLEAN_FILES) - - mkdir $(DIST_DIR)/tclconfig - cp $(srcdir)/tclconfig/install-sh $(srcdir)/tclconfig/tcl.m4 \ - $(DIST_DIR)/tclconfig/ - chmod 664 $(DIST_DIR)/tclconfig/tcl.m4 - chmod +x $(DIST_DIR)/tclconfig/install-sh - - list='examples doc tests Xmu GL'; \ - for p in $$list; do \ - if test -d $(srcdir)/$$p ; then \ - mkdir $(DIST_DIR)/$$p; \ - cp -p $(srcdir)/$$p/*.* $(DIST_DIR)/$$p/; \ - fi; \ - done - - (cd $(DIST_ROOT); $(COMPRESS);) - -bindist-clean: - rm -rf $(BINDIST_DIR) $(DIST_ROOT)/$(PKG_DIR)* - -bindist: all bindist-clean - mkdir -p $(BINDIST_DIR) - $(MAKE) prefix=$(BINDIST_DIR) exec_prefix=$(BINDIST_DIR) install - $(INSTALL_DATA) README.bin $(BINDIST_DIR)/README.txt - mkdir -p $(BINDIST_DIR)/doc - @list='doc/*.html doc/*.js'; for i in $$list; do \ - echo "Installing $$i"; \ - rm -f $(BINDIST_DIR)/doc/`basename $$i`; \ - $(INSTALL_DATA) $$i $(BINDIST_DIR)/doc ; \ - done - if [ TOGL_NSOPENGL == TOGL_WGL ]; then \ - (cd $(DIST_ROOT); zip -rDX9 $(BINPKG_DIR).zip $(BINPKG_DIR)); \ - else \ - (cd $(DIST_ROOT); tar zcvf $(BINPKG_DIR).tar.gz $(BINPKG_DIR)); \ - fi - -#======================================================================== -# End of user-definable section -#======================================================================== - -#======================================================================== -# Don't modify the file to clean here. Instead, set the "CLEANFILES" -# variable in configure.in -#======================================================================== - -clean: - -test -z "$(BINARIES)" || rm -f $(BINARIES) - -rm -f *.$(OBJEXT) core *.core - -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) - -distclean: clean - -rm -f *.tab.c - -rm -f $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log config.status - -#======================================================================== -# Install binary object libraries. On Windows this includes both .dll and -# .lib files. Because the .lib files are not explicitly listed anywhere, -# we need to deduce their existence from the .dll file of the same name. -# Library files go into the lib directory. -# In addition, this will generate the pkgIndex.tcl -# file in the install location (assuming it can find a usable tclsh shell) -# -# You should not have to modify this target. -#======================================================================== - -install-lib-binaries: binaries - @mkdir -p $(DESTDIR)$(libdir) - @list='$(lib_BINARIES)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(libdir)/$$p"; \ - $(INSTALL_PROGRAM) $$p $(DESTDIR)$(libdir)/$$p; \ - stub=`echo $$p|sed -e "s/.*\(stub\).*/\1/"`; \ - if test "x$$stub" = "xstub"; then \ - echo " $(RANLIB_STUB) $(DESTDIR)$(libdir)/$$p"; \ - $(RANLIB_STUB) $(DESTDIR)$(libdir)/$$p; \ - else \ - echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \ - $(RANLIB) $(DESTDIR)$(libdir)/$$p; \ - fi; \ - ext=`echo $$p|sed -e "s/.*\.//"`; \ - if test "x$$ext" = "xdll"; then \ - lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \ - if test -f $$lib; then \ - echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(libdir)/$$lib"; \ - $(INSTALL_DATA) $$lib $(DESTDIR)$(libdir)/$$lib; \ - fi; \ - fi; \ - fi; \ - done - @mkdir -p $(DESTDIR)$(pkglibdir) - @list='$(pkglib_BINARIES)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(pkglibdir)/$$p"; \ - $(INSTALL_PROGRAM) $$p $(DESTDIR)$(pkglibdir)/$$p; \ - stub=`echo $$p|sed -e "s/.*\(stub\).*/\1/"`; \ - if test "x$$stub" = "xstub"; then \ - echo " $(RANLIB_STUB) $(DESTDIR)$(pkglibdir)/$$p"; \ - $(RANLIB_STUB) $(DESTDIR)$(pkglibdir)/$$p; \ - else \ - echo " $(RANLIB) $(DESTDIR)$(pkglibdir)/$$p"; \ - $(RANLIB) $(DESTDIR)$(pkglibdir)/$$p; \ - fi; \ - ext=`echo $$p|sed -e "s/.*\.//"`; \ - if test "x$$ext" = "xdll"; then \ - lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \ - if test -f $$lib; then \ - echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib"; \ - $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib; \ - fi; \ - fi; \ - fi; \ - done - @list='$(PKG_TCL_SOURCES)'; for p in $$list; do \ - if test -f $(srcdir)/$$p; then \ - destp=`basename $$p`; \ - echo " Install $$destp $(DESTDIR)$(pkglibdir)/$$destp"; \ - $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkglibdir)/$$destp; \ - fi; \ - done - @if test "x$(SHARED_BUILD)" = "x1"; then \ - echo " Install pkgIndex.tcl $(DESTDIR)$(pkglibdir)"; \ - $(INSTALL_DATA) pkgIndex.tcl $(DESTDIR)$(pkglibdir); \ - echo " Install LICENSE $(DESTDIR)$(pkglibdir)"; \ - $(INSTALL_DATA) LICENSE $(DESTDIR)$(pkglibdir); \ - else \ - echo " Install LICENSE.togl $(DESTDIR)$(libdir)"; \ - $(INSTALL_DATA) LICENSE $(DESTDIR)$(libdir)/LICENSE.togl; \ - fi - -#======================================================================== -# Install binary executables (e.g. .exe files and dependent .dll files) -# This is for files that must go in the bin directory (located next to -# wish and tclsh), like dependent .dll files on Windows. -# -# You should not have to modify this target, except to define bin_BINARIES -# above if necessary. -#======================================================================== - -install-bin-binaries: binaries - @mkdir -p $(DESTDIR)$(bindir) - @list='$(bin_BINARIES)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p"; \ - $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p; \ - fi; \ - done - -.SUFFIXES: .c .$(OBJEXT) - -Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status - cd $(top_builddir) \ - && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status - -uninstall-binaries: - list='$(pkglib_BINARIES)'; for p in $$list; do \ - rm -f $(DESTDIR)$(pkglibdir)/$$p; \ - done - list='$(lib_BINARIES)'; for p in $$list; do \ - rm -f $(DESTDIR)$(libdir)/$$p; \ - done - list='$(PKG_TCL_SOURCES)'; for p in $$list; do \ - p=`basename $$p`; \ - rm -f $(DESTDIR)$(pkglibdir)/$$p; \ - done - list='$(bin_BINARIES)'; for p in $$list; do \ - rm -f $(DESTDIR)$(bindir)/$$p; \ - done - -.PHONY: all binaries clean depend distclean doc install libraries test - -# Tell versions [3.59,3.63) of GNU make to not export all variables. -# Otherwise a system limit (for SysV at least) may be exceeded. -.NOEXPORT: - -# Additional dependencies -togl.$(OBJEXT): toglFont.c toglAGL.c toglGLX.c toglWGL.c diff --git a/opengl/Togl2.1-SnapPy/README.bin b/opengl/Togl2.1-SnapPy/README.bin deleted file mode 100644 index 0cb0412b9..000000000 --- a/opengl/Togl2.1-SnapPy/README.bin +++ /dev/null @@ -1,73 +0,0 @@ -README.txt: Togl - - This is a Togl 2.X binary distribution for both users and developers. - It is specific to a particular operating system (e.g., Windows, Mac - OS X, Linux, etc.). Since the C ABI should be same for all compilers - on the same system, using Togl via the Tcl interface should work - regardless of which compiler Tcl was compiled with. - - The files are named: - - ToglTOGL_VERSION-TCL_VERSION-OS.SUFFIX - - For example, TOGL_VERSION=2.0, TCL_VERSION=8.4, OS=Linux, - and SUFFIX=.tar.gz gives: - - Togl2.0-8.4-Linux.tar.gz - - Togl is also available at: - http://sourceforge.net/projects/togl/ - - You can get any release of Togl from the file distributions - link at the above URL. - - A copy of the online documentation is in the doc directory. - -For users: - - Only the lib/Togl2.X directory (and its contents) need to be installed - in your Tcl library. Execute the following Tcl script to find the - directories Tcl looks for packages in: - - puts $tcl_libPath - - and then copy the lib/Togl2.X directory into one of those directories. - -For developers: - - The lib/Togl2.X directory (and its contents) is all that needs to be - redistributed in your application distribution. - - If you wish to link with Togl, then you will need the include files - and a link library for your compiler. The compilers used are (OS- - WINDOWING_SYSTEM): - - MacOSX: gcc 4.0.1, Mac OS X 10.4, ppc/i386 - Linux: gcc 3.3.6, Red Hat 7.1, i386 - Linux64: gcc 4.2.3 -Wl,--hash-style=both, Red Hat Server 5.1, x86_64 - Windows: Microsoft Visual Studio .NET 2003, Windows XP SP2, i386 - -File hierarchy: - - README.txt this file - bin/ unused (empty) - lib/ - Togl2.X/ Tcl package (place on Tcl's autopath) - LICENSE redistribution license - pkgIndex.tcl Tcl package index - Togl2X.dll Windows Tcl package binary - Toglstub2X.a Windows gcc/mingw link library - Toglstub2X.lib Windows Visual Studio link library - libToglstub2X.a UNIX (Linux, IRIX, etc.) link library - include/ - togl.h Main header file, includes others - toglDecls.h API function declarations - togl_ws.h Which windowing system togl was compiled with - doc/ Documentation - *.html Start with index.html - -The contents of the include and lib directories can be placed verbatim -in the Tcl installataion hierachy. - -Documentation is in the doc directory. Start with doc/index.html in -your web browser. diff --git a/opengl/Togl2.1-SnapPy/README.stubs b/opengl/Togl2.1-SnapPy/README.stubs deleted file mode 100644 index 2950a9810..000000000 --- a/opengl/Togl2.1-SnapPy/README.stubs +++ /dev/null @@ -1,21 +0,0 @@ -This version of Togl is entirely free from -dependencies on Tcl/Tk's internal functions. It uses the public stubs -interface, witch means that the same binary works with any stubs-aware -wish (i.e. version >= 8.1) - -It has been tested on Windows NT/2000 and Linux for several Tcl/Tk versions up -to 8.4a3. I haven't been able to test the Mac port, it propably needs mending -but I can't see why it shouldn't work in principle. - -Implementation wise, what differs from Togl 1.5 is that Togl_MakeWindowExist() -is replaced by Togl_CreateWindow(), a function that gets registered in Tk as a callback for window creation. In Tk/Tk 8.4a3, there is a new public API call -Tk_SetClassProcs() to register this callback, but for earlier versions of Tk -one needs to do this using some pointer magic. -There is a run-time check to determine which method to use, hence the -same binary runs on all versions of Wish from 8.1 and up. For this to -work you need to compile against the headers from Tcl/Tk 8.4a3 or later, or -the binary will only work for Tcl/Tk 8.1-8.4a2. -The tk8.4a3 public headers (tk8.4a3.h + tkDecls.h) are included for -conveniance, and they are used if the flag -DUSE_LOCAL_TK_H is specified. - -Jonas Beskow, December 2001 \ No newline at end of file diff --git a/opengl/Togl2.1-SnapPy/Togl.py b/opengl/Togl2.1-SnapPy/Togl.py deleted file mode 100644 index ec2a19cfa..000000000 --- a/opengl/Togl2.1-SnapPy/Togl.py +++ /dev/null @@ -1,129 +0,0 @@ - -""" -Tkinter support for the Togl 2.X Tk OpenGL widget. - -Copyright (C) 2006-2007 Greg Couch -See the LICENSE file for copyright details. -""" -__all__ = ['Togl', 'NORMAL', 'OVERLAY'] - -import Tkinter -import weakref, atexit - -# Overlay constants -NORMAL = 1 -OVERLAY = 2 - -class Togl(Tkinter.Widget): - """Tk OpenGL Widget""" - _instances = weakref.WeakKeyDictionary() - - def __init__(self, master=None, cnf={}, **kw): - """Return new Togl widget""" - if master is None: - master = Tkinter._default_root - master.tk.call('package', 'require', 'Togl', '2.0') - try: - Tkinter.Widget.__init__(self, master, "togl", cnf, kw) - except: - Tkinter.Widget.destroy(self) - raise - Togl._instances[self] = True - - def _cbsubst(self, *args): - """callback command argument substitution""" - if len(args) != 1: - return args - return (self._nametowidget(args[0]),) - - def _options(self, cnf, kw = None): - """Internal function.""" - if kw: - cnf = Tkinter._cnfmerge((cnf, kw)) - else: - cnf = Tkinter._cnfmerge(cnf) - res = () - for k, v in cnf.items(): - if v is not None: - if k[-1] == '_': k = k[:-1] - if callable(v): - if k.endswith('command'): - v = self._register(v, self._cbsubst) - else: - v = self._register(v) - res = res + ('-'+k, v) - return res - - # cget, configure are inherited - - def extensions(self): - """Return list of supported OpenGL extensions""" - return self.tk.call(self._w, 'extensions') - - def postredisplay(self): - """Cause the displaycommand callback to be called - the next time the event loop is idle.""" - self.tk.call(self._w, 'postredisplay') - - def render(self): - """Call the displaycommand callback immediately.""" - self.tk.call(self._w, 'render') - - def swapbuffers(self): - """If single-buffred, just flush OpenGL command buffer. If - double-buffered, swap front and back buffers. (So this is - appropriate to call after every frame is drawn.)""" - self.tk.call(self._w, 'swapbuffers') - - def makecurrent(self): - """Make widget the current OpenGL context""" - self.tk.call(self._w, 'makecurrent') - - def takephoto(self, imageName): - """Copy current contents of widget into the given photo image - """ - self.tk.call(self._w, 'takephoto', imageName) - - def loadbitmapfont(self, name): - return self.tk.call(self._w, 'loadbitmapfont', name) - - def unloadbitmapfont(self, fontbase): - self.tk.call(self._w, 'unloadbitmapfont', fontbase) - - def uselayer(self, layer): - self.tk.call(self._w, 'uselayer', layer) - - def showoverlay(self): - self.tk.call(self._w, 'showoverlay') - - def hideoverlay(self): - self.tk.call(self._w, 'hideoverlay') - - def postredisplayoverlay(self): - self.tk.call(self._w, 'postredisplayoverlay') - - def renderoverlay(self): - self.tk.call(self._w, 'renderoverlay') - - def existsoverlay(self): - return self.tk.call(self._w, 'existsoverlay') - - def ismappedoverlay(self): - return self.tk.call(self._w, 'ismappedoverlay') - - def getoverlaytransparentvalue(self): - return self.tk.call(self._w, 'getoverlaytransparentvalue') - - def destroy(self): - del Togl._instances[self] - Tkinter.Widget.destroy(self) - -def _cleanup(): - # destroy OpenGL contexts early, so destroycommand's don't - # try to make any OpenGL calls during exit. - for t in Togl._instances.keys(): - try: - t.destroy() - except Tkinter.TclError: - pass -atexit.register(_cleanup) diff --git a/opengl/Togl2.1-SnapPy/X11/Xmu/StdCmap.h b/opengl/Togl2.1-SnapPy/X11/Xmu/StdCmap.h deleted file mode 120000 index 68c4ff77d..000000000 --- a/opengl/Togl2.1-SnapPy/X11/Xmu/StdCmap.h +++ /dev/null @@ -1 +0,0 @@ -../../Xmu/StdCmap.h \ No newline at end of file diff --git a/opengl/Togl2.1-SnapPy/Xmu/CmapAlloc.c b/opengl/Togl2.1-SnapPy/Xmu/CmapAlloc.c deleted file mode 100644 index 9da1d7c95..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/CmapAlloc.c +++ /dev/null @@ -1,335 +0,0 @@ -/* $XConsortium: CmapAlloc.c,v 1.9 94/04/17 20:15:52 rws Exp $ */ - -/* - -Copyright (c) 1989, 1994 X Consortium - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of the X Consortium shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from the X Consortium. - -*/ - -/* - * Author: Donna Converse, MIT X Consortium - */ - -#include -#include -#include -#include - -#define lowbit(x) ((x) & (~(x) + 1)) - -static int default_allocation(); -static void best_allocation(); -static void gray_allocation(); -static int icbrt(); -static int icbrt_with_bits(); -static int icbrt_with_guess(); - -/* To determine the best allocation of reds, greens, and blues in a - * standard colormap, use XmuGetColormapAllocation. - * vinfo specifies visual information for a chosen visual - * property specifies one of the standard colormap property names - * red_max returns maximum red value - * green_max returns maximum green value - * blue_max returns maximum blue value - * - * XmuGetColormapAllocation returns 0 on failure, non-zero on success. - * It is assumed that the visual is appropriate for the colormap property. - */ - -Status XmuGetColormapAllocation(vinfo, property, red_max, green_max, blue_max) - XVisualInfo *vinfo; - Atom property; - unsigned long *red_max, *green_max, *blue_max; -{ - Status status = 1; - - if (vinfo->colormap_size <= 2) - return 0; - - switch (property) - { - case XA_RGB_DEFAULT_MAP: - status = default_allocation(vinfo, red_max, green_max, blue_max); - break; - case XA_RGB_BEST_MAP: - best_allocation(vinfo, red_max, green_max, blue_max); - break; - case XA_RGB_GRAY_MAP: - gray_allocation(vinfo->colormap_size, red_max, green_max, blue_max); - break; - case XA_RGB_RED_MAP: - *red_max = vinfo->colormap_size - 1; - *green_max = *blue_max = 0; - break; - case XA_RGB_GREEN_MAP: - *green_max = vinfo->colormap_size - 1; - *red_max = *blue_max = 0; - break; - case XA_RGB_BLUE_MAP: - *blue_max = vinfo->colormap_size - 1; - *red_max = *green_max = 0; - break; - default: - status = 0; - } - return status; -} - -/****************************************************************************/ -/* Determine the appropriate color allocations of a gray scale. - * - * Keith Packard, MIT X Consortium - */ - -static void gray_allocation(n, red_max, green_max, blue_max) - int n; /* the number of cells of the gray scale */ - unsigned long *red_max, *green_max, *blue_max; -{ - *red_max = (n * 30) / 100; - *green_max = (n * 59) / 100; - *blue_max = (n * 11) / 100; - *green_max += ((n - 1) - (*red_max + *green_max + *blue_max)); -} - -/****************************************************************************/ -/* Determine an appropriate color allocation for the RGB_DEFAULT_MAP. - * If a map has less than a minimum number of definable entries, we do not - * produce an allocation for an RGB_DEFAULT_MAP. - * - * For 16 planes, the default colormap will have 27 each RGB; for 12 planes, - * 12 each. For 8 planes, let n = the number of colormap entries, which may - * be 256 or 254. Then, maximum red value = floor(cube_root(n - 125)) - 1. - * Maximum green and maximum blue values are identical to maximum red. - * This leaves at least 125 cells which clients can allocate. - * - * Return 0 if an allocation has been determined, non-zero otherwise. - */ - -static int default_allocation(vinfo, red, green, blue) - XVisualInfo *vinfo; - unsigned long *red, *green, *blue; -{ - int ngrays; /* number of gray cells */ - - switch (vinfo->class) { - case PseudoColor: - - if (vinfo->colormap_size > 65000) - /* intended for displays with 16 planes */ - *red = *green = *blue = (unsigned long) 27; - else if (vinfo->colormap_size > 4000) - /* intended for displays with 12 planes */ - *red = *green = *blue = (unsigned long) 12; - else if (vinfo->colormap_size < 250) - return 0; - else - /* intended for displays with 8 planes */ - *red = *green = *blue = (unsigned long) - (icbrt(vinfo->colormap_size - 125) - 1); - break; - - case DirectColor: - - if (vinfo->colormap_size < 10) - return 0; - *red = *green = *blue = vinfo->colormap_size / 2 - 1; - break; - - case TrueColor: - - *red = vinfo->red_mask / lowbit(vinfo->red_mask); - *green = vinfo->green_mask / lowbit(vinfo->green_mask); - *blue = vinfo->blue_mask / lowbit(vinfo->blue_mask); - break; - - case GrayScale: - - if (vinfo->colormap_size > 65000) - ngrays = 4096; - else if (vinfo->colormap_size > 4000) - ngrays = 512; - else if (vinfo->colormap_size < 250) - return 0; - else - ngrays = 12; - gray_allocation(ngrays, red, green, blue); - break; - - default: - return 0; - } - return 1; -} - -/****************************************************************************/ -/* Determine an appropriate color allocation for the RGB_BEST_MAP. - * - * For a DirectColor or TrueColor visual, the allocation is determined - * by the red_mask, green_mask, and blue_mask members of the visual info. - * - * Otherwise, if the colormap size is an integral power of 2, determine - * the allocation according to the number of bits given to each color, - * with green getting more than red, and red more than blue, if there - * are to be inequities in the distribution. If the colormap size is - * not an integral power of 2, let n = the number of colormap entries. - * Then maximum red value = floor(cube_root(n)) - 1; - * maximum blue value = floor(cube_root(n)) - 1; - * maximum green value = n / ((# red values) * (# blue values)) - 1; - * Which, on a GPX, allows for 252 entries in the best map, out of 254 - * defineable colormap entries. - */ - -static void best_allocation(vinfo, red, green, blue) - XVisualInfo *vinfo; - unsigned long *red, *green, *blue; -{ - - if (vinfo->class == DirectColor || vinfo->class == TrueColor) - { - *red = vinfo->red_mask; - while ((*red & 01) == 0) - *red >>= 1; - *green = vinfo->green_mask; - while ((*green & 01) == 0) - *green >>=1; - *blue = vinfo->blue_mask; - while ((*blue & 01) == 0) - *blue >>= 1; - } - else - { - register int bits, n; - - /* Determine n such that n is the least integral power of 2 which is - * greater than or equal to the number of entries in the colormap. - */ - n = 1; - bits = 0; - while (vinfo->colormap_size > n) - { - n = n << 1; - bits++; - } - - /* If the number of entries in the colormap is a power of 2, determine - * the allocation by "dealing" the bits, first to green, then red, then - * blue. If not, find the maximum integral red, green, and blue values - * which, when multiplied together, do not exceed the number of - - * colormap entries. - */ - if (n == vinfo->colormap_size) - { - register int r, g, b; - b = bits / 3; - g = b + ((bits % 3) ? 1 : 0); - r = b + (((bits % 3) == 2) ? 1 : 0); - *red = 1 << r; - *green = 1 << g; - *blue = 1 << b; - } - else - { - *red = icbrt_with_bits(vinfo->colormap_size, bits); - *blue = *red; - *green = (vinfo->colormap_size / ((*red) * (*blue))); - } - (*red)--; - (*green)--; - (*blue)--; - } - return; -} - -/* - * integer cube roots by Newton's method - * - * Stephen Gildea, MIT X Consortium, July 1991 - */ - -static int icbrt(a) /* integer cube root */ - int a; -{ - register int bits = 0; - register unsigned n = a; - - while (n) - { - bits++; - n >>= 1; - } - return icbrt_with_bits(a, bits); -} - - -static int icbrt_with_bits(a, bits) - int a; - int bits; /* log 2 of a */ -{ - return icbrt_with_guess(a, a>>2*bits/3); -} - -#ifdef _X_ROOT_STATS -int icbrt_loopcount; -#endif - -/* Newton's Method: x_n+1 = x_n - ( f(x_n) / f'(x_n) ) */ - -/* for cube roots, x^3 - a = 0, x_new = x - 1/3 (x - a/x^2) */ - -/* - * Quick and dirty cube roots. Nothing fancy here, just Newton's method. - * Only works for positive integers (since that's all we need). - * We actually return floor(cbrt(a)) because that's what we need here, too. - */ - -static int icbrt_with_guess(a, guess) - int a, guess; -{ - register int delta; - -#ifdef _X_ROOT_STATS - icbrt_loopcount = 0; -#endif - if (a <= 0) - return 0; - if (guess < 1) - guess = 1; - - do { -#ifdef _X_ROOT_STATS - icbrt_loopcount++; -#endif - delta = (guess - a/(guess*guess))/3; -#ifdef DEBUG - printf("pass %d: guess=%d, delta=%d\n", icbrt_loopcount, guess, delta); -#endif - guess -= delta; - } while (delta != 0); - - if (guess*guess*guess > a) - guess--; - - return guess; -} diff --git a/opengl/Togl2.1-SnapPy/Xmu/CrCmap.c b/opengl/Togl2.1-SnapPy/Xmu/CrCmap.c deleted file mode 100644 index 71ad24135..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/CrCmap.c +++ /dev/null @@ -1,523 +0,0 @@ -/* $XConsortium: CrCmap.c,v 1.6 94/04/17 20:15:53 rws Exp $ */ - -/* - -Copyright (c) 1989 X Consortium - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of the X Consortium shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from the X Consortium. - -*/ - -/* - * Author: Donna Converse, MIT X Consortium - */ - -/* - * CreateCmap.c - given a standard colormap description, make the map. - */ - -#include -#include -#include -#include - -static int ROmap(); /* allocate entire map Read Only */ -static Status ROorRWcell(); /* allocate a cell, prefer Read Only */ -static Status RWcell(); /* allocate a cell Read Write */ -static int compare(); /* for quicksort */ -static Status contiguous(); /* find contiguous sequence of cells */ -static void free_cells(); /* frees resources before quitting */ -static Status readonly_map(); /* create a map in a RO visual type */ -static Status readwrite_map(); /* create a map in a RW visual type */ - -#define lowbit(x) ((x) & (~(x) + 1)) -#define TRUEMATCH(mult,max,mask) \ - (colormap->max * colormap->mult <= vinfo->mask && \ - lowbit(vinfo->mask) == colormap->mult) - -/* - * To create any one colormap which is described by an XStandardColormap - * structure, use XmuCreateColormap(). - * - * Return 0 on failure, non-zero on success. - * Resources created by this function are not made permanent. - * No argument error checking is provided. Use at your own risk. - * - * All colormaps are created with read only allocations, with the exception - * of read only allocations of colors in the default map or otherwise - * which fail to return the expected pixel value, and these are individually - * defined as read/write allocations. This is done so that all the cells - * defined in the default map are contiguous, for use in image processing. - * This typically happens with White and Black in the default map. - * - * Colormaps of static visuals are considered to be successfully created if - * the map of the static visual matches the definition given in the - * standard colormap structure. - */ - -Status XmuCreateColormap(dpy, colormap) - Display *dpy; /* specifies the connection under - * which the map is created */ - XStandardColormap *colormap; /* specifies the map to be created, - * and returns, particularly if the - * map is created as a subset of the - * default colormap of the screen, - * the base_pixel of the map. - */ -{ - XVisualInfo vinfo_template; /* template visual information */ - XVisualInfo *vinfo; /* matching visual information */ - XVisualInfo *vpointer; /* for freeing the entire list */ - long vinfo_mask; /* specifies the visual mask value */ - int n; /* number of matching visuals */ - int status; - - vinfo_template.visualid = colormap->visualid; - vinfo_mask = VisualIDMask; - if ((vinfo = XGetVisualInfo(dpy, vinfo_mask, &vinfo_template, &n)) == NULL) - return 0; - - /* A visual id may be valid on multiple screens. Also, there may - * be multiple visuals with identical visual ids at different depths. - * If the colormap is the Default Colormap, use the Default Visual. - * Otherwise, arbitrarily, use the deepest visual. - */ - vpointer = vinfo; - if (n > 1) - { - register int i; - register int screen_number; - Bool def_cmap; - - def_cmap = False; - for (screen_number = ScreenCount(dpy); --screen_number >= 0; ) - if (colormap->colormap == DefaultColormap(dpy, screen_number)) { - def_cmap = True; - break; - } - - if (def_cmap) { - for (i=0; i < n; i++, vinfo++) { - if (vinfo->visual == DefaultVisual(dpy, screen_number)) - break; - } - } else { - unsigned int maxdepth = 0; - XVisualInfo *v = NULL; - - for (i=0; i < n; i++, vinfo++) - if (vinfo->depth > maxdepth) { - maxdepth = vinfo->depth; - v = vinfo; - } - vinfo = v; - } - } - - if (vinfo->class == PseudoColor || vinfo->class == DirectColor || - vinfo->class == GrayScale) - status = readwrite_map(dpy, vinfo, colormap); - else if (vinfo->class == TrueColor) - status = TRUEMATCH(red_mult, red_max, red_mask) && - TRUEMATCH(green_mult, green_max, green_mask) && - TRUEMATCH(blue_mult, blue_max, blue_mask); - else - status = readonly_map(dpy, vinfo, colormap); - - XFree((char *) vpointer); - return status; -} - -/****************************************************************************/ -static Status readwrite_map(dpy, vinfo, colormap) - Display *dpy; - XVisualInfo *vinfo; - XStandardColormap *colormap; -{ - register unsigned long i, n; /* index counters */ - int ncolors; /* number of colors to be defined */ - int npixels; /* number of pixels allocated R/W */ - int first_index; /* first index of pixels to use */ - int remainder; /* first index of remainder */ - XColor color; /* the definition of a color */ - unsigned long *pixels; /* array of colormap pixels */ - unsigned long delta; - - - /* Determine ncolors, the number of colors to be defined. - * Insure that 1 < ncolors <= the colormap size. - */ - if (vinfo->class == DirectColor) { - ncolors = colormap->red_max; - if (colormap->green_max > ncolors) - ncolors = colormap->green_max; - if (colormap->blue_max > ncolors) - ncolors = colormap->blue_max; - ncolors++; - delta = lowbit(vinfo->red_mask) + - lowbit(vinfo->green_mask) + - lowbit(vinfo->blue_mask); - } else { - ncolors = colormap->red_max * colormap->red_mult + - colormap->green_max * colormap->green_mult + - colormap->blue_max * colormap->blue_mult + 1; - delta = 1; - } - if (ncolors <= 1 || ncolors > vinfo->colormap_size) return 0; - - /* Allocate Read/Write as much of the colormap as we can possibly get. - * Then insure that the pixels we were allocated are given in - * monotonically increasing order, using a quicksort. Next, insure - * that our allocation includes a subset of contiguous pixels at least - * as long as the number of colors to be defined. Now we know that - * these conditions are met: - * 1) There are no free cells in the colormap. - * 2) We have a contiguous sequence of pixels, monotonically - * increasing, of length >= the number of colors requested. - * - * One cell at a time, we will free, compute the next color value, - * then allocate read only. This takes a long time. - * This is done to insure that cells are allocated read only in the - * contiguous order which we prefer. If the server has a choice of - * cells to grant to an allocation request, the server may give us any - * cell, so that is why we do these slow gymnastics. - */ - - if ((pixels = (unsigned long *) calloc((unsigned) vinfo->colormap_size, - sizeof(unsigned long))) == NULL) - return 0; - - if ((npixels = ROmap(dpy, colormap->colormap, pixels, - vinfo->colormap_size, ncolors)) == 0) { - free((char *) pixels); - return 0; - } - - qsort((char *) pixels, npixels, sizeof(unsigned long), compare); - - if (!contiguous(pixels, npixels, ncolors, delta, &first_index, &remainder)) - { - /* can't find enough contiguous cells, give up */ - XFreeColors(dpy, colormap->colormap, pixels, npixels, - (unsigned long) 0); - free((char *) pixels); - return 0; - } - colormap->base_pixel = pixels[first_index]; - - /* construct a gray map */ - if (colormap->red_mult == 1 && colormap->green_mult == 1 && - colormap->blue_mult == 1) - for (n=colormap->base_pixel, i=0; i < ncolors; i++, n += delta) - { - color.pixel = n; - color.blue = color.green = color.red = - (unsigned short) ((i * 65535) / (colormap->red_max + - colormap->green_max + - colormap->blue_max)); - - if (! ROorRWcell(dpy, colormap->colormap, pixels, npixels, &color, - first_index + i)) - return 0; - } - - /* construct a red ramp map */ - else if (colormap->green_max == 0 && colormap->blue_max == 0) - for (n=colormap->base_pixel, i=0; i < ncolors; i++, n += delta) - { - color.pixel = n; - color.red = (unsigned short) ((i * 65535) / colormap->red_max); - color.green = color.blue = 0; - - if (! ROorRWcell(dpy, colormap->colormap, pixels, npixels, &color, - first_index + i)) - return 0; - } - - /* construct a green ramp map */ - else if (colormap->red_max == 0 && colormap->blue_max == 0) - for (n=colormap->base_pixel, i=0; i < ncolors; i++, n += delta) - { - color.pixel = n; - color.green = (unsigned short) ((i * 65535) / colormap->green_max); - color.red = color.blue = 0; - - if (! ROorRWcell(dpy, colormap->colormap, pixels, npixels, &color, - first_index + i)) - return 0; - } - - /* construct a blue ramp map */ - else if (colormap->red_max == 0 && colormap->green_max == 0) - for (n=colormap->base_pixel, i=0; i < ncolors; i++, n += delta) - { - color.pixel = n; - color.blue = (unsigned short) ((i * 65535) / colormap->blue_max); - color.red = color.green = 0; - - if (! ROorRWcell(dpy, colormap->colormap, pixels, npixels, &color, - first_index + i)) - return 0; - } - - /* construct a standard red green blue cube map */ - else - { -#define calc(max,mult) (((n / colormap->mult) % \ - (colormap->max + 1)) * 65535) / colormap->max - - for (n=0, i=0; i < ncolors; i++, n += delta) - { - color.pixel = n + colormap->base_pixel; - color.red = calc(red_max, red_mult); - color.green = calc(green_max, green_mult); - color.blue = calc(blue_max, blue_mult); - if (! ROorRWcell(dpy, colormap->colormap, pixels, npixels, &color, - first_index + i)) - return 0; - } -#undef calc - } - /* We have a read-only map defined. Now free unused cells, - * first those occuring before the contiguous sequence begins, - * then any following the contiguous sequence. - */ - - if (first_index) - XFreeColors(dpy, colormap->colormap, pixels, first_index, - (unsigned long) 0); - if (remainder) - XFreeColors(dpy, colormap->colormap, - &(pixels[first_index + ncolors]), remainder, - (unsigned long) 0); - - free((char *) pixels); - return 1; -} - - -/****************************************************************************/ -static int ROmap(dpy, cmap, pixels, m, n) - Display *dpy; /* the X server connection */ - Colormap cmap; /* specifies colormap ID */ - unsigned long pixels[]; /* returns pixel allocations */ - int m; /* specifies colormap size */ - int n; /* specifies number of colors */ -{ - register int p; - - /* first try to allocate the entire colormap */ - if (XAllocColorCells(dpy, cmap, 1, (unsigned long *) NULL, - (unsigned) 0, pixels, (unsigned) m)) - return m; - - /* Allocate all available cells in the colormap, using a binary - * algorithm to discover how many cells we can allocate in the colormap. - */ - m--; - while (n <= m) { - p = n + ((m - n + 1) / 2); - if (XAllocColorCells(dpy, cmap, 1, (unsigned long *) NULL, - (unsigned) 0, pixels, (unsigned) p)) { - if (p == m) - return p; - else { - XFreeColors(dpy, cmap, pixels, p, (unsigned long) 0); - n = p; - } - } - else - m = p - 1; - } - return 0; -} - - -/****************************************************************************/ -static Status contiguous(pixels, npixels, ncolors, delta, first, rem) - unsigned long pixels[]; /* specifies allocated pixels */ - int npixels; /* specifies count of alloc'd pixels */ - int ncolors; /* specifies needed sequence length */ - unsigned long delta; /* between pixels */ - int *first; /* returns first index of sequence */ - int *rem; /* returns first index after sequence, - * or 0, if none follow */ -{ - register int i = 1; /* walking index into the pixel array */ - register int count = 1; /* length of sequence discovered so far */ - - *first = 0; - if (npixels == ncolors) { - *rem = 0; - return 1; - } - *rem = npixels - 1; - while (count < ncolors && ncolors - count <= *rem) - { - if (pixels[i-1] + delta == pixels[i]) - count++; - else { - count = 1; - *first = i; - } - i++; - (*rem)--; - } - if (count != ncolors) - return 0; - return 1; -} - - -/****************************************************************************/ -static Status ROorRWcell(dpy, cmap, pixels, npixels, color, p) - Display *dpy; - Colormap cmap; - unsigned long pixels[]; - int npixels; - XColor *color; - unsigned long p; -{ - unsigned long pixel; - XColor request; - - /* Free the read/write allocation of one cell in the colormap. - * Request a read only allocation of one cell in the colormap. - * If the read only allocation cannot be granted, give up, because - * there must be no free cells in the colormap. - * If the read only allocation is granted, but gives us a cell which - * is not the one that we just freed, it is probably the case that - * we are trying allocate White or Black or some other color which - * already has a read-only allocation in the map. So we try to - * allocate the previously freed cell with a read/write allocation, - * because we want contiguous cells for image processing algorithms. - */ - - pixel = color->pixel; - request.red = color->red; - request.green = color->green; - request.blue = color->blue; - - XFreeColors(dpy, cmap, &pixel, 1, (unsigned long) 0); - if (! XAllocColor(dpy, cmap, color) - || (color->pixel != pixel && - (!RWcell(dpy, cmap, color, &request, &pixel)))) - { - free_cells(dpy, cmap, pixels, npixels, (int)p); - return 0; - } - return 1; -} - - -/****************************************************************************/ -static void free_cells(dpy, cmap, pixels, npixels, p) - Display *dpy; - Colormap cmap; - unsigned long pixels[]; /* to be freed */ - int npixels; /* original number allocated */ - int p; -{ - /* One of the npixels allocated has already been freed. - * p is the index of the freed pixel. - * First free the pixels preceeding p, and there are p of them; - * then free the pixels following p, there are npixels - p - 1 of them. - */ - XFreeColors(dpy, cmap, pixels, p, (unsigned long) 0); - XFreeColors(dpy, cmap, &(pixels[p+1]), npixels - p - 1, (unsigned long) 0); - free((char *) pixels); -} - - -/****************************************************************************/ -static Status RWcell(dpy, cmap, color, request, pixel) - Display *dpy; - Colormap cmap; - XColor *color; - XColor *request; - unsigned long *pixel; -{ - unsigned long n = *pixel; - - XFreeColors(dpy, cmap, &(color->pixel), 1, (unsigned long)0); - if (! XAllocColorCells(dpy, cmap, (Bool) 0, (unsigned long *) NULL, - (unsigned) 0, pixel, (unsigned) 1)) - return 0; - if (*pixel != n) - { - XFreeColors(dpy, cmap, pixel, 1, (unsigned long) 0); - return 0; - } - color->pixel = *pixel; - color->flags = DoRed | DoGreen | DoBlue; - color->red = request->red; - color->green = request->green; - color->blue = request->blue; - XStoreColors(dpy, cmap, color, 1); - return 1; -} - - -/****************************************************************************/ -static int compare(e1, e2) - unsigned long *e1, *e2; -{ - if (*e1 < *e2) return -1; - if (*e1 > *e2) return 1; - return 0; -} - - -/****************************************************************************/ -static Status readonly_map(dpy, vinfo, colormap) - Display *dpy; - XVisualInfo *vinfo; - XStandardColormap *colormap; -{ - int i, last_pixel; - XColor color; - - last_pixel = (colormap->red_max + 1) * (colormap->green_max + 1) * - (colormap->blue_max + 1) + colormap->base_pixel - 1; - - for(i=colormap->base_pixel; i <= last_pixel; i++) { - - color.pixel = (unsigned long) i; - color.red = (unsigned short) - (((i/colormap->red_mult) * 65535) / colormap->red_max); - - if (vinfo->class == StaticColor) { - color.green = (unsigned short) - ((((i/colormap->green_mult) % (colormap->green_max + 1)) * - 65535) / colormap->green_max); - color.blue = (unsigned short) - (((i%colormap->green_mult) * 65535) / colormap->blue_max); - } - else /* vinfo->class == GrayScale, old style allocation XXX */ - color.green = color.blue = color.red; - - XAllocColor(dpy, colormap->colormap, &color); - if (color.pixel != (unsigned long) i) - return 0; - } - return 1; -} diff --git a/opengl/Togl2.1-SnapPy/Xmu/DelCmap.c b/opengl/Togl2.1-SnapPy/Xmu/DelCmap.c deleted file mode 100644 index b02e3b803..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/DelCmap.c +++ /dev/null @@ -1,67 +0,0 @@ -/* $XConsortium: DelCmap.c,v 1.2 94/04/17 20:15:58 converse Exp $ */ - -/* - -Copyright (c) 1989 X Consortium - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of the X Consortium shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from the X Consortium. - -*/ - -/* - * Author: Donna Converse, MIT X Consortium - */ - -#include -#include - -/* To remove any standard colormap property, use XmuDeleteStandardColormap(). - * XmuDeleteStandardColormap() will remove the specified property from the - * specified screen, releasing any resources used by the colormap(s) of the - * property if possible. - */ - -void XmuDeleteStandardColormap(dpy, screen, property) - Display *dpy; /* specifies the X server to connect to */ - int screen; /* specifies the screen of the display */ - Atom property; /* specifies the standard colormap property */ -{ - XStandardColormap *stdcmaps, *s; - int count = 0; - - if (XGetRGBColormaps(dpy, RootWindow(dpy, screen), &stdcmaps, &count, - property)) - { - for (s=stdcmaps; count > 0; count--, s++) { - if ((s->killid == ReleaseByFreeingColormap) && - (s->colormap != None) && - (s->colormap != DefaultColormap(dpy, screen))) - XFreeColormap(dpy, s->colormap); - else if (s->killid != None) - XKillClient(dpy, s->killid); - } - XDeleteProperty(dpy, RootWindow(dpy, screen), property); - XFree((char *) stdcmaps); - XSync(dpy, False); - } -} - diff --git a/opengl/Togl2.1-SnapPy/Xmu/LookupCmap.c b/opengl/Togl2.1-SnapPy/Xmu/LookupCmap.c deleted file mode 100644 index 02033d8e0..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/LookupCmap.c +++ /dev/null @@ -1,311 +0,0 @@ -/* $XConsortium: LookupCmap.c,v 1.10 94/04/17 20:16:11 rws Exp $ */ - -/* - -Copyright (c) 1989 X Consortium - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of the X Consortium shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from the X Consortium. - -*/ - -/* - * Author: Donna Converse, MIT X Consortium - */ - -#include -#include -#include -#include -#include -#include - -static Status lookup(); - -/* - * To create a standard colormap if one does not currently exist, or - * replace the currently existing standard colormap, use - * XmuLookupStandardColormap(). - * - * Given a screen, a visual, and a property, XmuLookupStandardColormap() - * will determine the best allocation for the property under the specified - * visual, and determine the whether to create a new colormap or to use - * the default colormap of the screen. It will call XmuStandardColormap() - * to create the standard colormap. - * - * If replace is true, any previous definition of the property will be - * replaced. If retain is true, the property and the colormap will be - * made permanent for the duration of the server session. However, - * pre-existing property definitions which are not replaced cannot be made - * permanent by a call to XmuLookupStandardColormap(); a request to retain - * resources pertains to newly created resources. - * - * Returns 0 on failure, non-zero on success. A request to create a - * standard colormap upon a visual which cannot support such a map is - * considered a failure. An example of this would be requesting any - * standard colormap property on a monochrome visual, or, requesting an - * RGB_BEST_MAP on a display whose colormap size is 16. - */ - -Status XmuLookupStandardColormap(dpy, screen, visualid, depth, property, - replace, retain) - Display *dpy; /* specifies X server connection */ - int screen; /* specifies screen of display */ - VisualID visualid; /* specifies the visual type */ - unsigned int depth; /* specifies the visual type */ - Atom property; /* a standard colormap property */ - Bool replace; /* specifies whether to replace */ - Bool retain; /* specifies whether to retain */ -{ - Display *odpy; /* original display connection */ - XStandardColormap *colormap; - XVisualInfo vinfo_template, *vinfo; /* visual */ - long vinfo_mask; - unsigned long r_max, g_max, b_max; /* allocation */ - int count; - Colormap cmap; /* colormap ID */ - Status status = 0; - - - /* Match the requested visual */ - - vinfo_template.visualid = visualid; - vinfo_template.screen = screen; - vinfo_template.depth = depth; - vinfo_mask = VisualIDMask | VisualScreenMask | VisualDepthMask; - if ((vinfo = XGetVisualInfo(dpy, vinfo_mask, &vinfo_template, &count)) == - NULL) - return 0; - - /* Monochrome visuals have no standard maps */ - - if (vinfo->colormap_size <= 2) { - XFree((char *) vinfo); - return 0; - } - - /* If the requested property already exists on this screen, and, - * if the replace flag has not been set to true, return success. - * lookup() will remove a pre-existing map if replace is true. - */ - - if (lookup(dpy, screen, visualid, property, (XStandardColormap *) NULL, - replace) && !replace) { - XFree((char *) vinfo); - return 1; - } - - /* Determine the best allocation for this property under the requested - * visualid and depth, and determine whether or not to use the default - * colormap of the screen. - */ - - if (!XmuGetColormapAllocation(vinfo, property, &r_max, &g_max, &b_max)) { - XFree((char *) vinfo); - return 0; - } - - cmap = (property == XA_RGB_DEFAULT_MAP && - visualid == XVisualIDFromVisual(DefaultVisual(dpy, screen))) - ? DefaultColormap(dpy, screen) : None; - - /* If retaining resources, open a new connection to the same server */ - - if (retain) { - odpy = dpy; - if ((dpy = XOpenDisplay(XDisplayString(odpy))) == NULL) { - XFree((char *) vinfo); - return 0; - } - } - - /* Create the standard colormap */ - - colormap = XmuStandardColormap(dpy, screen, visualid, depth, property, - cmap, r_max, g_max, b_max); - - /* Set the standard colormap property */ - - if (colormap) { - XGrabServer(dpy); - - if (lookup(dpy, screen, visualid, property, colormap, replace) && - !replace) { - /* Someone has defined the property since we last looked. - * Since we will not replace it, release our own resources. - * If this is the default map, our allocations will be freed - * when this connection closes. - */ - if (colormap->killid == ReleaseByFreeingColormap) - XFreeColormap(dpy, colormap->colormap); - } - else if (retain) { - XSetCloseDownMode(dpy, RetainPermanent); - } - XUngrabServer(dpy); - XFree((char *) colormap); - status = 1; - } - - if (retain) - XCloseDisplay(dpy); - XFree((char *) vinfo); - return status; -} - -/***************************************************************************/ - -/* Lookup a standard colormap property. If the property is RGB_DEFAULT_MAP, - * the visualid is used to determine whether the indicated standard colormap - * exists. If the map exists and replace is true, delete the resources used - * by the map and remove the property. Return true if the map exists, - * or did exist and was deleted; return false if the map was not found. - * - * Note that this is not the way that a Status return is normally used. - * - * If new is not NULL, new points to an XStandardColormap structure which - * describes a standard colormap of the specified property. It will be made - * a standard colormap of the screen if none already exists, or if replace - * is true. - */ - -static Status lookup(dpy, screen, visualid, property, new, replace) - Display *dpy; /* specifies display connection */ - int screen; /* specifies screen number */ - VisualID visualid; /* specifies visualid for std map */ - Atom property; /* specifies colormap property name */ - XStandardColormap *new; /* specifies a standard colormap */ - Bool replace; /* specifies whether to replace */ -{ - register int i; - int count; - XStandardColormap *stdcmaps, *s; - Window win = RootWindow(dpy, screen); - - /* The property does not already exist */ - - if (! XGetRGBColormaps(dpy, win, &stdcmaps, &count, property)) { - if (new) - XSetRGBColormaps(dpy, win, new, 1, property); - return 0; - } - - /* The property exists and is not describing the RGB_DEFAULT_MAP */ - - if (property != XA_RGB_DEFAULT_MAP) { - if (replace) { - XmuDeleteStandardColormap(dpy, screen, property); - if (new) - XSetRGBColormaps(dpy, win, new, 1, property); - } - XFree((char *)stdcmaps); - return 1; - } - - /* The property exists and is RGB_DEFAULT_MAP */ - - for (i=0, s=stdcmaps; (i < count) && (s->visualid != visualid); i++, s++) - ; - - /* No RGB_DEFAULT_MAP property matches the given visualid */ - - if (i == count) { - if (new) { - XStandardColormap *m, *maps; - - s = (XStandardColormap *) malloc((unsigned) ((count+1) * sizeof - (XStandardColormap))); - - for (i = 0, m = s, maps = stdcmaps; i < count; i++, m++, maps++) { - m->colormap = maps->colormap; - m->red_max = maps->red_max; - m->red_mult = maps->red_mult; - m->green_max = maps->green_max; - m->green_mult = maps->green_mult; - m->blue_max = maps->blue_max; - m->blue_mult = maps->blue_mult; - m->base_pixel = maps->base_pixel; - m->visualid = maps->visualid; - m->killid = maps->killid; - } - m->colormap = new->colormap; - m->red_max = new->red_max; - m->red_mult = new->red_mult; - m->green_max = new->green_max; - m->green_mult = new->green_mult; - m->blue_max = new->blue_max; - m->blue_mult = new->blue_mult; - m->base_pixel = new->base_pixel; - m->visualid = new->visualid; - m->killid = new->killid; - - XSetRGBColormaps(dpy, win, s, ++count, property); - free((char *) s); - } - XFree((char *) stdcmaps); - return 0; - } - - /* Found an RGB_DEFAULT_MAP property with a matching visualid */ - - if (replace) { - /* Free old resources first - we may need them, particularly in - * the default colormap of the screen. However, because of this, - * it is possible that we will destroy the old resource and fail - * to create a new one if XmuStandardColormap() fails. - */ - - if (count == 1) { - XmuDeleteStandardColormap(dpy, screen, property); - if (new) - XSetRGBColormaps(dpy, win, new, 1, property); - } - else { - XStandardColormap *map; - - /* s still points to the matching standard colormap */ - - if (s->killid == ReleaseByFreeingColormap) { - if ((s->colormap != None) && - (s->colormap != DefaultColormap(dpy, screen))) - XFreeColormap(dpy, s->colormap); - } - else if (s->killid != None) - XKillClient(dpy, s->killid); - - map = (new) ? new : stdcmaps + --count; - - s->colormap = map->colormap; - s->red_max = map->red_max; - s->red_mult = map->red_mult; - s->green_max = map->green_max; - s->green_mult = map->green_mult; - s->blue_max = map->blue_max; - s->blue_mult = map->blue_mult; - s->visualid = map->visualid; - s->killid = map->killid; - - XSetRGBColormaps(dpy, win, stdcmaps, count, property); - } - } - XFree((char *) stdcmaps); - return 1; -} diff --git a/opengl/Togl2.1-SnapPy/Xmu/README.togl b/opengl/Togl2.1-SnapPy/Xmu/README.togl deleted file mode 100644 index 5cff11514..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/README.togl +++ /dev/null @@ -1,3 +0,0 @@ -The source code in this directory is a subset of the Jun 12, 1995 X11R6 Xmu -library that is needed for the Togl widget. The Xmu library is no longer -installed by default on many Linux systems. diff --git a/opengl/Togl2.1-SnapPy/Xmu/StdCmap.c b/opengl/Togl2.1-SnapPy/Xmu/StdCmap.c deleted file mode 100644 index 62c0a942f..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/StdCmap.c +++ /dev/null @@ -1,219 +0,0 @@ -/* $XConsortium: StdCmap.c,v 1.14 94/04/17 20:16:14 rws Exp $ */ - -/* - -Copyright (c) 1989 X Consortium - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of the X Consortium shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from the X Consortium. - -*/ - -/* - * Author: Donna Converse, MIT X Consortium - */ - -#include -#include -#include -#include -#include - -#define lowbit(x) ((x) & (~(x) + 1)) - -static Status valid_args(); /* argument restrictions */ - -/* - * To create any one standard colormap, use XmuStandardColormap(). - * - * Create a standard colormap for the given screen, visualid, and visual - * depth, with the given red, green, and blue maximum values, with the - * given standard property name. Return a pointer to an XStandardColormap - * structure which describes the newly created colormap, upon success. - * Upon failure, return NULL. - * - * XmuStandardColormap() calls XmuCreateColormap() to create the map. - * - * Resources created by this function are not made permanent; that is the - * caller's responsibility. - */ - -XStandardColormap *XmuStandardColormap(dpy, screen, visualid, depth, property, - cmap, red_max, green_max, blue_max) - Display *dpy; /* specifies X server connection */ - int screen; /* specifies display screen */ - VisualID visualid; /* identifies the visual type */ - unsigned int depth; /* identifies the visual type */ - Atom property; /* a standard colormap property */ - Colormap cmap; /* specifies colormap ID or None */ - unsigned long red_max, green_max, blue_max; /* allocations */ -{ - XStandardColormap *stdcmap; - Status status; - XVisualInfo vinfo_template, *vinfo; - long vinfo_mask; - int n; - - /* Match the required visual information to an actual visual */ - vinfo_template.visualid = visualid; - vinfo_template.screen = screen; - vinfo_template.depth = depth; - vinfo_mask = VisualIDMask | VisualScreenMask | VisualDepthMask; - if ((vinfo = XGetVisualInfo(dpy, vinfo_mask, &vinfo_template, &n)) == NULL) - return 0; - - /* Check the validity of the combination of visual characteristics, - * allocation, and colormap property. Create an XStandardColormap - * structure. - */ - - if (! valid_args(vinfo, red_max, green_max, blue_max, property) - || ((stdcmap = XAllocStandardColormap()) == NULL)) { - XFree((char *) vinfo); - return 0; - } - - /* Fill in the XStandardColormap structure */ - - if (cmap == DefaultColormap(dpy, screen)) { - /* Allocating out of the default map, cannot use XFreeColormap() */ - Window win = XCreateWindow(dpy, RootWindow(dpy, screen), 1, 1, 1, 1, - 0, 0, InputOnly, vinfo->visual, - (unsigned long) 0, - (XSetWindowAttributes *)NULL); - stdcmap->killid = (XID) XCreatePixmap(dpy, win, 1, 1, depth); - XDestroyWindow(dpy, win); - stdcmap->colormap = cmap; - } else { - stdcmap->killid = ReleaseByFreeingColormap; - stdcmap->colormap = XCreateColormap(dpy, RootWindow(dpy, screen), - vinfo->visual, AllocNone); - } - stdcmap->red_max = red_max; - stdcmap->green_max = green_max; - stdcmap->blue_max = blue_max; - if (property == XA_RGB_GRAY_MAP) - stdcmap->red_mult = stdcmap->green_mult = stdcmap->blue_mult = 1; - else if (vinfo->class == TrueColor || vinfo->class == DirectColor) { - stdcmap->red_mult = lowbit(vinfo->red_mask); - stdcmap->green_mult = lowbit(vinfo->green_mask); - stdcmap->blue_mult = lowbit(vinfo->blue_mask); - } else { - stdcmap->red_mult = (red_max > 0) - ? (green_max + 1) * (blue_max + 1) : 0; - stdcmap->green_mult = (green_max > 0) ? blue_max + 1 : 0; - stdcmap->blue_mult = (blue_max > 0) ? 1 : 0; - } - stdcmap->base_pixel = 0; /* base pixel may change */ - stdcmap->visualid = vinfo->visualid; - - /* Make the colormap */ - - status = XmuCreateColormap(dpy, stdcmap); - - /* Clean up */ - - XFree((char *) vinfo); - if (!status) { - - /* Free the colormap or the pixmap, if we created one */ - if (stdcmap->killid == ReleaseByFreeingColormap) - XFreeColormap(dpy, stdcmap->colormap); - else if (stdcmap->killid != None) - XFreePixmap(dpy, stdcmap->killid); - - XFree((char *) stdcmap); - return (XStandardColormap *) NULL; - } - return stdcmap; -} - -/****************************************************************************/ -static Status valid_args(vinfo, red_max, green_max, blue_max, property) - XVisualInfo *vinfo; /* specifies visual */ - unsigned long red_max, green_max, blue_max; /* specifies alloc */ - Atom property; /* specifies property name */ -{ - unsigned long ncolors; /* number of colors requested */ - - /* Determine that the number of colors requested is <= map size */ - - if ((vinfo->class == DirectColor) || (vinfo->class == TrueColor)) { - unsigned long mask; - - mask = vinfo->red_mask; - while (!(mask & 1)) - mask >>= 1; - if (red_max > mask) - return 0; - mask = vinfo->green_mask; - while (!(mask & 1)) - mask >>= 1; - if (green_max > mask) - return 0; - mask = vinfo->blue_mask; - while (!(mask & 1)) - mask >>= 1; - if (blue_max > mask) - return 0; - } else if (property == XA_RGB_GRAY_MAP) { - ncolors = red_max + green_max + blue_max + 1; - if (ncolors > vinfo->colormap_size) - return 0; - } else { - ncolors = (red_max + 1) * (green_max + 1) * (blue_max + 1); - if (ncolors > vinfo->colormap_size) - return 0; - } - - /* Determine that the allocation and visual make sense for the property */ - - switch (property) - { - case XA_RGB_DEFAULT_MAP: - if (red_max == 0 || green_max == 0 || blue_max == 0) - return 0; - break; - case XA_RGB_RED_MAP: - if (red_max == 0) - return 0; - break; - case XA_RGB_GREEN_MAP: - if (green_max == 0) - return 0; - break; - case XA_RGB_BLUE_MAP: - if (blue_max == 0) - return 0; - break; - case XA_RGB_BEST_MAP: - if (red_max == 0 || green_max == 0 || blue_max == 0) - return 0; - break; - case XA_RGB_GRAY_MAP: - if (red_max == 0 || blue_max == 0 || green_max == 0) - return 0; - break; - default: - return 0; - } - return 1; -} diff --git a/opengl/Togl2.1-SnapPy/Xmu/StdCmap.h b/opengl/Togl2.1-SnapPy/Xmu/StdCmap.h deleted file mode 100644 index a1cdd2e72..000000000 --- a/opengl/Togl2.1-SnapPy/Xmu/StdCmap.h +++ /dev/null @@ -1,112 +0,0 @@ -/* $XConsortium: StdCmap.h,v 1.4 94/04/17 20:16:15 converse Exp $ */ - -/* - -Copyright (c) 1988 X Consortium - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of the X Consortium shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from the X Consortium. - -*/ - -/* - * The interfaces described by this header file are for miscellaneous utilities - * and are not part of the Xlib standard. - */ - -#ifndef _XMU_STDCMAP_H_ -#define _XMU_STDCMAP_H_ - -#include - -_XFUNCPROTOBEGIN - -Status XmuAllStandardColormaps( -#if NeedFunctionPrototypes - Display* /* dpy */ -#endif -); - -Status XmuCreateColormap( -#if NeedFunctionPrototypes - Display* /* dpy */, - XStandardColormap* /* colormap */ -#endif -); - -void XmuDeleteStandardColormap( -#if NeedFunctionPrototypes - Display* /* dpy */, - int /* screen */, - Atom /* property */ -#endif -); - -Status XmuGetColormapAllocation( -#if NeedFunctionPrototypes - XVisualInfo* /* vinfo */, - Atom /* property */, - unsigned long* /* red_max_return */, - unsigned long* /* green_max_return */, - unsigned long* /* blue_max_return */ -#endif -); - -Status XmuLookupStandardColormap( -#if NeedFunctionPrototypes - Display* /* dpy */, - int /* screen */, - VisualID /* visualid */, - unsigned int /* depth */, - Atom /* property */, - Bool /* replace */, - Bool /* retain */ -#endif -); - -XStandardColormap *XmuStandardColormap( -#if NeedFunctionPrototypes - Display* /* dpy */, - int /* screen */, - VisualID /* visualid */, - unsigned int /* depth */, - Atom /* property */, - Colormap /* cmap */, - unsigned long /* red_max */, - unsigned long /* green_max */, - unsigned long /* blue_max */ -#endif -); - -Status XmuVisualStandardColormaps( -#if NeedFunctionPrototypes - Display* /* dpy */, - int /* screen */, - VisualID /* visualid */, - unsigned int /* depth */, - Bool /* replace */, - Bool /* retain */ -#endif -); - -_XFUNCPROTOEND - -#endif /* _XMU_STDCMAP_H_ */ diff --git a/opengl/Togl2.1-SnapPy/aclocal.m4 b/opengl/Togl2.1-SnapPy/aclocal.m4 deleted file mode 100644 index a4f25fc64..000000000 --- a/opengl/Togl2.1-SnapPy/aclocal.m4 +++ /dev/null @@ -1,80 +0,0 @@ -# -# Include the TEA standard macro set -# - -builtin(include,tclconfig/tcl.m4) - -# -# Add here whatever m4 macros you want to define for your package -# - -#------------------------------------------------------------------------ -# TOGL_ENABLE_STUBS -- -# -# Specifiy if stubs should be used. -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --enable-stubs -# -#------------------------------------------------------------------------ - -AC_DEFUN(TOGL_ENABLE_STUBS, [ - AC_MSG_CHECKING([whether to link with stubs library]) - AC_ARG_ENABLE(stubs, - [ --enable-stubs build and link with stub libraries (--enable-stubs)], - [tcl_ok=$enableval], [tcl_ok=yes]) - - if test "${enable_stubs+set}" = set; then - enableval="$enable_stubs" - tcl_ok=$enableval - else - tcl_ok=yes - fi - - if test "$tcl_ok" = "yes" ; then - AC_MSG_RESULT([stubs]) - USE_STUBS=1 - else - AC_MSG_RESULT([no stubs]) - USE_STUBS=0 - fi -]) - -#------------------------------------------------------------------------ -# TOGL_UNDEF_GET_PROC_ADDRESS -- -# -# Does defining GLX_GLXEXT_LEGACY interfer with including GL/glxext.h? -# -# Arguments: -# none -# -# Results: -# -# defines TOGL_UNDEF_GET_PROC_ADDRESS -# -#------------------------------------------------------------------------ -AC_DEFUN(TOGL_UNDEF_GET_PROC_ADDRESS, [ - AC_MSG_CHECKING([if GLX_GLXEXT_LEGACY interfers with including GL/glxext.h]) - AC_LANG_PUSH(C) - ac_save_CFLAGS=$CFLAGS - CFLAGS=$TK_XINCLUDES - AC_COMPILE_IFELSE( - [AC_LANG_SOURCE([[ -#define GLX_GLXEXT_LEGACY -#include -#undef GLX_VERSION_1_3 -#undef GLX_VERSION_1_4 -#include -int main() { return 0; } -]])], - [AC_MSG_RESULT([no])], - [AC_MSG_RESULT([yes]) - AC_DEFINE(UNDEF_GET_PROC_ADDRESS, 1)]) - CFLAGS=$ac_save_CFLAGS - AC_LANG_POP() -]) diff --git a/opengl/Togl2.1-SnapPy/ben.rgb b/opengl/Togl2.1-SnapPy/ben.rgb deleted file mode 100644 index 4eb067a23..000000000 Binary files a/opengl/Togl2.1-SnapPy/ben.rgb and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/configure b/opengl/Togl2.1-SnapPy/configure deleted file mode 100755 index 9f4cdf30c..000000000 --- a/opengl/Togl2.1-SnapPy/configure +++ /dev/null @@ -1,10187 +0,0 @@ -#! /bin/sh -# Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.65 for Togl 2.1. -# -# -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, -# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, -# Inc. -# -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## - -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi - - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' -else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } -fi - - -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : - -else - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - # We cannot yet assume a decent shell, so we have to provide a - # neutralization value for shells without unset; and this also - # works around shells that cannot unset nonexistent variables. - BASH_ENV=/dev/null - ENV=/dev/null - (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} -fi - - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." - else - $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, -$0: including any error possibly output before this -$0: message. Then install a modern shell, or manually run -$0: the script under such a shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -# as_fn_error ERROR [LINENO LOG_FD] -# --------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with status $?, using 1 if that was 0. -as_fn_error () -{ - as_status=$?; test $as_status -eq 0 && as_status=1 - if test "$3"; then - as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3 - fi - $as_echo "$as_me: error: $1" >&2 - as_fn_exit $as_status -} # as_fn_error - -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - -as_me=`$as_basename -- "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - - - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | - sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno - N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ - t loop - s/-\n.*// - ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" - # Exit status is that of the last command. - exit -} - -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; -esac - -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file -else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null -fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else - as_ln_s='cp -p' - fi -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null - -if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -test -n "$DJDIR" || exec 7<&0 &1 - -# Name of the host. -# hostname on some systems (SVR3.2, Linux) returns a bogus exit status, -# so uname gets run too. -ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` - -# -# Initializations. -# -ac_default_prefix=/usr/local -ac_clean_files= -ac_config_libobj_dir=. -LIBOBJS= -cross_compiling=no -subdirs= -MFLAGS= -MAKEFLAGS= - -# Identity of this package. -PACKAGE_NAME='Togl' -PACKAGE_TARNAME='togl' -PACKAGE_VERSION='2.1' -PACKAGE_STRING='Togl 2.1' -PACKAGE_BUGREPORT='' -PACKAGE_URL='' - -# Factoring default headers for most tests. -ac_includes_default="\ -#include -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_STAT_H -# include -#endif -#ifdef STDC_HEADERS -# include -# include -#else -# ifdef HAVE_STDLIB_H -# include -# endif -#endif -#ifdef HAVE_STRING_H -# if !defined STDC_HEADERS && defined HAVE_MEMORY_H -# include -# endif -# include -#endif -#ifdef HAVE_STRINGS_H -# include -#endif -#ifdef HAVE_INTTYPES_H -# include -#endif -#ifdef HAVE_STDINT_H -# include -#endif -#ifdef HAVE_UNISTD_H -# include -#endif" - -ac_subst_vars='LTLIBOBJS -TCLSH_PROG -RANLIB_STUB -MAKE_STUB_LIB -MAKE_STATIC_LIB -MAKE_SHARED_LIB -MAKE_LIB -TCL_DBGX -LDFLAGS_DEFAULT -CFLAGS_DEFAULT -SHLIB_SUFFIX -LD_LIBRARY_PATH_VAR -SHLIB_CFLAGS -SHLIB_LD_LIBS -SHLIB_LD -STLIB_LD -CFLAGS_WARNING -CFLAGS_OPTIMIZE -CFLAGS_DEBUG -DL_LIBS -LIBOBJS -CELIB_DIR -AR -SHARED_BUILD -TCL_THREADS -TEA_WINDOWINGSYSTEM -LIBGLU -TOGL_WINDOWINGSYSTEM -AUTOSTEREOD -XMKMF -TK_XLIB_DIR_NATIVE -TK_TOP_DIR_NATIVE -TK_INCLUDES -TCL_TOP_DIR_NATIVE -TCL_INCLUDES -CLEANFILES -PKG_OBJECTS -PKG_SOURCES -MATH_LIBS -EGREP -GREP -RANLIB -SET_MAKE -INSTALL_DATA -INSTALL_SCRIPT -INSTALL_PROGRAM -CPP -OBJEXT -ac_ct_CC -CPPFLAGS -LDFLAGS -CFLAGS -CC -TK_XINCLUDES -TK_LIBS -TK_STUB_LIB_SPEC -TK_STUB_LIB_FLAG -TK_STUB_LIB_FILE -TK_LIB_SPEC -TK_LIB_FLAG -TK_LIB_FILE -TK_SRC_DIR -TK_BIN_DIR -TK_VERSION -TCL_SHLIB_LD_LIBS -TCL_LD_FLAGS -TCL_EXTRA_CFLAGS -TCL_DEFS -TCL_LIBS -TCL_STUB_LIB_SPEC -TCL_STUB_LIB_FLAG -TCL_STUB_LIB_FILE -TCL_LIB_SPEC -TCL_LIB_FLAG -TCL_LIB_FILE -TCL_SRC_DIR -TCL_BIN_DIR -TCL_VERSION -PKG_CFLAGS -PKG_LIBS -PKG_INCLUDES -PKG_HEADERS -PKG_TCL_SOURCES -PKG_STUB_OBJECTS -PKG_STUB_SOURCES -PKG_STUB_LIB_FILE -PKG_LIB_FILE -EXEEXT -CYGPATH -target_alias -host_alias -build_alias -LIBS -ECHO_T -ECHO_N -ECHO_C -DEFS -mandir -localedir -libdir -psdir -pdfdir -dvidir -htmldir -infodir -docdir -oldincludedir -includedir -localstatedir -sharedstatedir -sysconfdir -datadir -datarootdir -libexecdir -sbindir -bindir -program_transform_name -prefix -exec_prefix -PACKAGE_URL -PACKAGE_BUGREPORT -PACKAGE_STRING -PACKAGE_VERSION -PACKAGE_TARNAME -PACKAGE_NAME -PATH_SEPARATOR -SHELL' -ac_subst_files='' -ac_user_opts=' -enable_option_checking -with_tcl -with_tk -enable_stubs -with_tclinclude -with_tkinclude -with_x -with_autostereo -with_autostereod -with_Xmu -enable_threads -enable_shared -enable_64bit -enable_64bit_vis -enable_rpath -enable_wince -with_celib -enable_load -enable_symbols -' - ac_precious_vars='build_alias -host_alias -target_alias -CC -CFLAGS -LDFLAGS -LIBS -CPPFLAGS -CPP -XMKMF -AUTOSTEREOD' - - -# Initialize some variables set by options. -ac_init_help= -ac_init_version=false -ac_unrecognized_opts= -ac_unrecognized_sep= -# The variables have the same names as the options, with -# dashes changed to underlines. -cache_file=/dev/null -exec_prefix=NONE -no_create= -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -verbose= -x_includes=NONE -x_libraries=NONE - -# Installation directory options. -# These are left unexpanded so users can "make install exec_prefix=/foo" -# and all the variables that are supposed to be based on exec_prefix -# by default will actually change. -# Use braces instead of parens because sh, perl, etc. also accept them. -# (The list follows the same order as the GNU Coding Standards.) -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datarootdir='${prefix}/share' -datadir='${datarootdir}' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -includedir='${prefix}/include' -oldincludedir='/usr/include' -docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' -infodir='${datarootdir}/info' -htmldir='${docdir}' -dvidir='${docdir}' -pdfdir='${docdir}' -psdir='${docdir}' -libdir='${exec_prefix}/lib' -localedir='${datarootdir}/locale' -mandir='${datarootdir}/man' - -ac_prev= -ac_dashdash= -for ac_option -do - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval $ac_prev=\$ac_option - ac_prev= - continue - fi - - case $ac_option in - *=*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; - *) ac_optarg=yes ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case $ac_dashdash$ac_option in - --) - ac_dashdash=yes ;; - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir=$ac_optarg ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build_alias ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build_alias=$ac_optarg ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file=$ac_optarg ;; - - --config-cache | -C) - cache_file=config.cache ;; - - -datadir | --datadir | --datadi | --datad) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=*) - datadir=$ac_optarg ;; - - -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ - | --dataroo | --dataro | --datar) - ac_prev=datarootdir ;; - -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ - | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) - datarootdir=$ac_optarg ;; - - -disable-* | --disable-*) - ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error "invalid feature name: $ac_useropt" - ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"enable_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval enable_$ac_useropt=no ;; - - -docdir | --docdir | --docdi | --doc | --do) - ac_prev=docdir ;; - -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) - docdir=$ac_optarg ;; - - -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) - ac_prev=dvidir ;; - -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) - dvidir=$ac_optarg ;; - - -enable-* | --enable-*) - ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error "invalid feature name: $ac_useropt" - ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"enable_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval enable_$ac_useropt=\$ac_optarg ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix=$ac_optarg ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he | -h) - ac_init_help=long ;; - -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) - ac_init_help=recursive ;; - -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) - ac_init_help=short ;; - - -host | --host | --hos | --ho) - ac_prev=host_alias ;; - -host=* | --host=* | --hos=* | --ho=*) - host_alias=$ac_optarg ;; - - -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) - ac_prev=htmldir ;; - -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ - | --ht=*) - htmldir=$ac_optarg ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir=$ac_optarg ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir=$ac_optarg ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir=$ac_optarg ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir=$ac_optarg ;; - - -localedir | --localedir | --localedi | --localed | --locale) - ac_prev=localedir ;; - -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) - localedir=$ac_optarg ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst | --locals) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) - localstatedir=$ac_optarg ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir=$ac_optarg ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c | -n) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir=$ac_optarg ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix=$ac_optarg ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix=$ac_optarg ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix=$ac_optarg ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name=$ac_optarg ;; - - -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) - ac_prev=pdfdir ;; - -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) - pdfdir=$ac_optarg ;; - - -psdir | --psdir | --psdi | --psd | --ps) - ac_prev=psdir ;; - -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) - psdir=$ac_optarg ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir=$ac_optarg ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir=$ac_optarg ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site=$ac_optarg ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir=$ac_optarg ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir=$ac_optarg ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target_alias ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target_alias=$ac_optarg ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers | -V) - ac_init_version=: ;; - - -with-* | --with-*) - ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error "invalid package name: $ac_useropt" - ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"with_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval with_$ac_useropt=\$ac_optarg ;; - - -without-* | --without-*) - ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error "invalid package name: $ac_useropt" - ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"with_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval with_$ac_useropt=no ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes=$ac_optarg ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries=$ac_optarg ;; - - -*) as_fn_error "unrecognized option: \`$ac_option' -Try \`$0 --help' for more information." - ;; - - *=*) - ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $ac_envvar in #( - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error "invalid variable name: \`$ac_envvar'" ;; - esac - eval $ac_envvar=\$ac_optarg - export $ac_envvar ;; - - *) - # FIXME: should be removed in autoconf 3.0. - $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 - expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && - $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 - : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} - ;; - - esac -done - -if test -n "$ac_prev"; then - ac_option=--`echo $ac_prev | sed 's/_/-/g'` - as_fn_error "missing argument to $ac_option" -fi - -if test -n "$ac_unrecognized_opts"; then - case $enable_option_checking in - no) ;; - fatal) as_fn_error "unrecognized options: $ac_unrecognized_opts" ;; - *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; - esac -fi - -# Check all directory arguments for consistency. -for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ - datadir sysconfdir sharedstatedir localstatedir includedir \ - oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ - libdir localedir mandir -do - eval ac_val=\$$ac_var - # Remove trailing slashes. - case $ac_val in - */ ) - ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` - eval $ac_var=\$ac_val;; - esac - # Be sure to have absolute directory names. - case $ac_val in - [\\/$]* | ?:[\\/]* ) continue;; - NONE | '' ) case $ac_var in *prefix ) continue;; esac;; - esac - as_fn_error "expected an absolute directory name for --$ac_var: $ac_val" -done - -# There might be people who depend on the old broken behavior: `$host' -# used to hold the argument of --host etc. -# FIXME: To remove some day. -build=$build_alias -host=$host_alias -target=$target_alias - -# FIXME: To remove some day. -if test "x$host_alias" != x; then - if test "x$build_alias" = x; then - cross_compiling=maybe - $as_echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. - If a cross compiler is detected then cross compile mode will be used." >&2 - elif test "x$build_alias" != "x$host_alias"; then - cross_compiling=yes - fi -fi - -ac_tool_prefix= -test -n "$host_alias" && ac_tool_prefix=$host_alias- - -test "$silent" = yes && exec 6>/dev/null - - -ac_pwd=`pwd` && test -n "$ac_pwd" && -ac_ls_di=`ls -di .` && -ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || - as_fn_error "working directory cannot be determined" -test "X$ac_ls_di" = "X$ac_pwd_ls_di" || - as_fn_error "pwd does not report name of working directory" - - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then the parent directory. - ac_confdir=`$as_dirname -- "$as_myself" || -$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_myself" : 'X\(//\)[^/]' \| \ - X"$as_myself" : 'X\(//\)$' \| \ - X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_myself" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - srcdir=$ac_confdir - if test ! -r "$srcdir/$ac_unique_file"; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r "$srcdir/$ac_unique_file"; then - test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." - as_fn_error "cannot find sources ($ac_unique_file) in $srcdir" -fi -ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" -ac_abs_confdir=`( - cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error "$ac_msg" - pwd)` -# When building in place, set srcdir=. -if test "$ac_abs_confdir" = "$ac_pwd"; then - srcdir=. -fi -# Remove unnecessary trailing slashes from srcdir. -# Double slashes in file names in object file debugging info -# mess up M-x gdb in Emacs. -case $srcdir in -*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; -esac -for ac_var in $ac_precious_vars; do - eval ac_env_${ac_var}_set=\${${ac_var}+set} - eval ac_env_${ac_var}_value=\$${ac_var} - eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} - eval ac_cv_env_${ac_var}_value=\$${ac_var} -done - -# -# Report the --help message. -# -if test "$ac_init_help" = "long"; then - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat <<_ACEOF -\`configure' configures Togl 2.1 to adapt to many kinds of systems. - -Usage: $0 [OPTION]... [VAR=VALUE]... - -To assign environment variables (e.g., CC, CFLAGS...), specify them as -VAR=VALUE. See below for descriptions of some of the useful variables. - -Defaults for the options are specified in brackets. - -Configuration: - -h, --help display this help and exit - --help=short display options specific to this package - --help=recursive display the short help of all the included packages - -V, --version display version information and exit - -q, --quiet, --silent do not print \`checking...' messages - --cache-file=FILE cache test results in FILE [disabled] - -C, --config-cache alias for \`--cache-file=config.cache' - -n, --no-create do not create output files - --srcdir=DIR find the sources in DIR [configure dir or \`..'] - -Installation directories: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [PREFIX] - -By default, \`make install' will install all the files in -\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify -an installation prefix other than \`$ac_default_prefix' using \`--prefix', -for instance \`--prefix=\$HOME'. - -For better control, use the options below. - -Fine tuning of the installation directories: - --bindir=DIR user executables [EPREFIX/bin] - --sbindir=DIR system admin executables [EPREFIX/sbin] - --libexecdir=DIR program executables [EPREFIX/libexec] - --sysconfdir=DIR read-only single-machine data [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] - --localstatedir=DIR modifiable single-machine data [PREFIX/var] - --libdir=DIR object code libraries [EPREFIX/lib] - --includedir=DIR C header files [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc [/usr/include] - --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] - --datadir=DIR read-only architecture-independent data [DATAROOTDIR] - --infodir=DIR info documentation [DATAROOTDIR/info] - --localedir=DIR locale-dependent data [DATAROOTDIR/locale] - --mandir=DIR man documentation [DATAROOTDIR/man] - --docdir=DIR documentation root [DATAROOTDIR/doc/togl] - --htmldir=DIR html documentation [DOCDIR] - --dvidir=DIR dvi documentation [DOCDIR] - --pdfdir=DIR pdf documentation [DOCDIR] - --psdir=DIR ps documentation [DOCDIR] -_ACEOF - - cat <<\_ACEOF - -X features: - --x-includes=DIR X include files are in DIR - --x-libraries=DIR X library files are in DIR -_ACEOF -fi - -if test -n "$ac_init_help"; then - case $ac_init_help in - short | recursive ) echo "Configuration of Togl 2.1:";; - esac - cat <<\_ACEOF - -Optional Features: - --disable-option-checking ignore unrecognized --enable/--with options - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --enable-stubs build and link with stub libraries (--enable-stubs) - --enable-threads build with threads - --enable-shared build and link with shared libraries (default: on) - --enable-64bit enable 64bit support (default: off) - --enable-64bit-vis enable 64bit Sparc VIS support (default: off) - --disable-rpath disable rpath support (default: on) - --enable-wince enable Win/CE support (where applicable) - --enable-load allow dynamic loading and "load" command (default: - on) - --enable-symbols build with debugging symbols (default: off) - -Optional Packages: - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --with-tcl directory containing tcl configuration - (tclConfig.sh) - --with-tk directory containing tk configuration (tkConfig.sh) - --with-tclinclude directory containing the public Tcl header files - --with-tkinclude directory containing the public Tk header files - --with-x use the X Window System - --with-autostereo directory with autostereo source (for SGI) - --with-autostereod path to autostereod daemon (for SGI) - --with-Xmu use system's shared Xmu library - --with-celib=DIR use Windows/CE support library from DIR - -Some influential environment variables: - CC C compiler command - CFLAGS C compiler flags - LDFLAGS linker flags, e.g. -L if you have libraries in a - nonstandard directory - LIBS libraries to pass to the linker, e.g. -l - CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if - you have headers in a nonstandard directory - CPP C preprocessor - XMKMF Path to xmkmf, Makefile generator for X Window System - AUTOSTEREOD Path to autostereod for SGI IRIX computers - -Use these variables to override the choices made by `configure' or to help -it to find libraries and programs with nonstandard names/locations. - -Report bugs to the package provider. -_ACEOF -ac_status=$? -fi - -if test "$ac_init_help" = "recursive"; then - # If there are subdirs, report their specific --help. - for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue - test -d "$ac_dir" || - { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || - continue - ac_builddir=. - -case "$ac_dir" in -.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; -*) - ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` - # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` - case $ac_top_builddir_sub in - "") ac_top_builddir_sub=. ac_top_build_prefix= ;; - *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; - esac ;; -esac -ac_abs_top_builddir=$ac_pwd -ac_abs_builddir=$ac_pwd$ac_dir_suffix -# for backward compatibility: -ac_top_builddir=$ac_top_build_prefix - -case $srcdir in - .) # We are building in place. - ac_srcdir=. - ac_top_srcdir=$ac_top_builddir_sub - ac_abs_top_srcdir=$ac_pwd ;; - [\\/]* | ?:[\\/]* ) # Absolute name. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir - ac_abs_top_srcdir=$srcdir ;; - *) # Relative name. - ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_build_prefix$srcdir - ac_abs_top_srcdir=$ac_pwd/$srcdir ;; -esac -ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix - - cd "$ac_dir" || { ac_status=$?; continue; } - # Check for guested configure. - if test -f "$ac_srcdir/configure.gnu"; then - echo && - $SHELL "$ac_srcdir/configure.gnu" --help=recursive - elif test -f "$ac_srcdir/configure"; then - echo && - $SHELL "$ac_srcdir/configure" --help=recursive - else - $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 - fi || ac_status=$? - cd "$ac_pwd" || { ac_status=$?; break; } - done -fi - -test -n "$ac_init_help" && exit $ac_status -if $ac_init_version; then - cat <<\_ACEOF -Togl configure 2.1 -generated by GNU Autoconf 2.65 - -Copyright (C) 2009 Free Software Foundation, Inc. -This configure script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it. -_ACEOF - exit -fi - -## ------------------------ ## -## Autoconf initialization. ## -## ------------------------ ## - -# ac_fn_c_try_compile LINENO -# -------------------------- -# Try to compile conftest.$ac_ext, and return whether this succeeded. -ac_fn_c_try_compile () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext - if { { ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_compile") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then : - ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - as_fn_set_status $ac_retval - -} # ac_fn_c_try_compile - -# ac_fn_c_try_cpp LINENO -# ---------------------- -# Try to preprocess conftest.$ac_ext, and return whether this succeeded. -ac_fn_c_try_cpp () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if { { ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then : - ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - as_fn_set_status $ac_retval - -} # ac_fn_c_try_cpp - -# ac_fn_c_try_run LINENO -# ---------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes -# that executables *can* be run. -ac_fn_c_try_run () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' - { { case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; }; then : - ac_retval=0 -else - $as_echo "$as_me: program exited with status $ac_status" >&5 - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=$ac_status -fi - rm -rf conftest.dSYM conftest_ipa8_conftest.oo - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - as_fn_set_status $ac_retval - -} # ac_fn_c_try_run - -# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES -# ------------------------------------------------------- -# Tests whether HEADER exists and can be compiled using the include files in -# INCLUDES, setting the cache variable VAR accordingly. -ac_fn_c_check_header_compile () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -#include <$2> -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - eval "$3=yes" -else - eval "$3=no" -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - -} # ac_fn_c_check_header_compile - -# ac_fn_c_try_link LINENO -# ----------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. -ac_fn_c_try_link () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext conftest$ac_exeext - if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest$ac_exeext && { - test "$cross_compiling" = yes || - $as_test_x conftest$ac_exeext - }; then : - ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information - # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would - # interfere with the next link command; also delete a directory that is - # left behind by Apple's compiler. We do this before executing the actions. - rm -rf conftest.dSYM conftest_ipa8_conftest.oo - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - as_fn_set_status $ac_retval - -} # ac_fn_c_try_link - -# ac_fn_c_check_func LINENO FUNC VAR -# ---------------------------------- -# Tests whether FUNC exists, setting the cache variable VAR accordingly -ac_fn_c_check_func () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -/* Define $2 to an innocuous variant, in case declares $2. - For example, HP-UX 11i declares gettimeofday. */ -#define $2 innocuous_$2 - -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $2 (); below. - Prefer to if __STDC__ is defined, since - exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include -#else -# include -#endif - -#undef $2 - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char $2 (); -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined __stub_$2 || defined __stub___$2 -choke me -#endif - -int -main () -{ -return $2 (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - eval "$3=yes" -else - eval "$3=no" -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - -} # ac_fn_c_check_func - -# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES -# ------------------------------------------------------- -# Tests whether HEADER exists, giving a warning if it cannot be compiled using -# the include files in INCLUDES and setting the cache variable VAR -# accordingly. -ac_fn_c_check_header_mongrel () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : - $as_echo_n "(cached) " >&6 -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -else - # Is the header compilable? -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 -$as_echo_n "checking $2 usability... " >&6; } -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -#include <$2> -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_header_compiler=yes -else - ac_header_compiler=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 -$as_echo "$ac_header_compiler" >&6; } - -# Is the header present? -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 -$as_echo_n "checking $2 presence... " >&6; } -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include <$2> -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - ac_header_preproc=yes -else - ac_header_preproc=no -fi -rm -f conftest.err conftest.$ac_ext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 -$as_echo "$ac_header_preproc" >&6; } - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( - yes:no: ) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 -$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 -$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} - ;; - no:yes:* ) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 -$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 -$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 -$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 -$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 -$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} - ;; -esac - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : - $as_echo_n "(cached) " >&6 -else - eval "$3=\$ac_header_compiler" -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -fi - eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} - -} # ac_fn_c_check_header_mongrel -cat >config.log <<_ACEOF -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. - -It was created by Togl $as_me 2.1, which was -generated by GNU Autoconf 2.65. Invocation command line was - - $ $0 $@ - -_ACEOF -exec 5>>config.log -{ -cat <<_ASUNAME -## --------- ## -## Platform. ## -## --------- ## - -hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` - -/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` -/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` -/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` - -_ASUNAME - -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" - done -IFS=$as_save_IFS - -} >&5 - -cat >&5 <<_ACEOF - - -## ----------- ## -## Core tests. ## -## ----------- ## - -_ACEOF - - -# Keep a trace of the command line. -# Strip out --no-create and --no-recursion so they do not pile up. -# Strip out --silent because we don't want to record it for future runs. -# Also quote any args containing shell meta-characters. -# Make two passes to allow for proper duplicate-argument suppression. -ac_configure_args= -ac_configure_args0= -ac_configure_args1= -ac_must_keep_next=false -for ac_pass in 1 2 -do - for ac_arg - do - case $ac_arg in - -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - continue ;; - *\'*) - ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - case $ac_pass in - 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; - 2) - as_fn_append ac_configure_args1 " '$ac_arg'" - if test $ac_must_keep_next = true; then - ac_must_keep_next=false # Got value, back to normal. - else - case $ac_arg in - *=* | --config-cache | -C | -disable-* | --disable-* \ - | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ - | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ - | -with-* | --with-* | -without-* | --without-* | --x) - case "$ac_configure_args0 " in - "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; - esac - ;; - -* ) ac_must_keep_next=true ;; - esac - fi - as_fn_append ac_configure_args " '$ac_arg'" - ;; - esac - done -done -{ ac_configure_args0=; unset ac_configure_args0;} -{ ac_configure_args1=; unset ac_configure_args1;} - -# When interrupted or exit'd, cleanup temporary files, and complete -# config.log. We remove comments because anyway the quotes in there -# would cause problems or look ugly. -# WARNING: Use '\'' to represent an apostrophe within the trap. -# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. -trap 'exit_status=$? - # Save into config.log some information that might help in debugging. - { - echo - - cat <<\_ASBOX -## ---------------- ## -## Cache variables. ## -## ---------------- ## -_ASBOX - echo - # The following way of writing the cache mishandles newlines in values, -( - for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do - eval ac_val=\$$ac_var - case $ac_val in #( - *${as_nl}*) - case $ac_var in #( - *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 -$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; - esac - case $ac_var in #( - _ | IFS | as_nl) ;; #( - BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( - *) { eval $ac_var=; unset $ac_var;} ;; - esac ;; - esac - done - (set) 2>&1 | - case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( - *${as_nl}ac_space=\ *) - sed -n \ - "s/'\''/'\''\\\\'\'''\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" - ;; #( - *) - sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" - ;; - esac | - sort -) - echo - - cat <<\_ASBOX -## ----------------- ## -## Output variables. ## -## ----------------- ## -_ASBOX - echo - for ac_var in $ac_subst_vars - do - eval ac_val=\$$ac_var - case $ac_val in - *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; - esac - $as_echo "$ac_var='\''$ac_val'\''" - done | sort - echo - - if test -n "$ac_subst_files"; then - cat <<\_ASBOX -## ------------------- ## -## File substitutions. ## -## ------------------- ## -_ASBOX - echo - for ac_var in $ac_subst_files - do - eval ac_val=\$$ac_var - case $ac_val in - *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; - esac - $as_echo "$ac_var='\''$ac_val'\''" - done | sort - echo - fi - - if test -s confdefs.h; then - cat <<\_ASBOX -## ----------- ## -## confdefs.h. ## -## ----------- ## -_ASBOX - echo - cat confdefs.h - echo - fi - test "$ac_signal" != 0 && - $as_echo "$as_me: caught signal $ac_signal" - $as_echo "$as_me: exit $exit_status" - } >&5 - rm -f core *.core core.conftest.* && - rm -f -r conftest* confdefs* conf$$* $ac_clean_files && - exit $exit_status -' 0 -for ac_signal in 1 2 13 15; do - trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal -done -ac_signal=0 - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -f -r conftest* confdefs.h - -$as_echo "/* confdefs.h */" > confdefs.h - -# Predefined preprocessor variables. - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_NAME "$PACKAGE_NAME" -_ACEOF - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_TARNAME "$PACKAGE_TARNAME" -_ACEOF - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_VERSION "$PACKAGE_VERSION" -_ACEOF - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_STRING "$PACKAGE_STRING" -_ACEOF - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" -_ACEOF - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_URL "$PACKAGE_URL" -_ACEOF - - -# Let the site file select an alternate cache file if it wants to. -# Prefer an explicitly selected file to automatically selected ones. -ac_site_file1=NONE -ac_site_file2=NONE -if test -n "$CONFIG_SITE"; then - ac_site_file1=$CONFIG_SITE -elif test "x$prefix" != xNONE; then - ac_site_file1=$prefix/share/config.site - ac_site_file2=$prefix/etc/config.site -else - ac_site_file1=$ac_default_prefix/share/config.site - ac_site_file2=$ac_default_prefix/etc/config.site -fi -for ac_site_file in "$ac_site_file1" "$ac_site_file2" -do - test "x$ac_site_file" = xNONE && continue - if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 -$as_echo "$as_me: loading site script $ac_site_file" >&6;} - sed 's/^/| /' "$ac_site_file" >&5 - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - # Some versions of bash will fail to source /dev/null (special files - # actually), so we avoid doing that. DJGPP emulates it as a regular file. - if test /dev/null != "$cache_file" && test -f "$cache_file"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 -$as_echo "$as_me: loading cache $cache_file" >&6;} - case $cache_file in - [\\/]* | ?:[\\/]* ) . "$cache_file";; - *) . "./$cache_file";; - esac - fi -else - { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 -$as_echo "$as_me: creating cache $cache_file" >&6;} - >$cache_file -fi - -# Check that the precious variables saved in the cache have kept the same -# value. -ac_cache_corrupted=false -for ac_var in $ac_precious_vars; do - eval ac_old_set=\$ac_cv_env_${ac_var}_set - eval ac_new_set=\$ac_env_${ac_var}_set - eval ac_old_val=\$ac_cv_env_${ac_var}_value - eval ac_new_val=\$ac_env_${ac_var}_value - case $ac_old_set,$ac_new_set in - set,) - { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 -$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,set) - { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 -$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,);; - *) - if test "x$ac_old_val" != "x$ac_new_val"; then - # differences in whitespace do not lead to failure. - ac_old_val_w=`echo x $ac_old_val` - ac_new_val_w=`echo x $ac_new_val` - if test "$ac_old_val_w" != "$ac_new_val_w"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 -$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} - ac_cache_corrupted=: - else - { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 -$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} - eval $ac_var=\$ac_old_val - fi - { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 -$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 -$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} - fi;; - esac - # Pass precious variables to config.status. - if test "$ac_new_set" = set; then - case $ac_new_val in - *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; - *) ac_arg=$ac_var=$ac_new_val ;; - esac - case " $ac_configure_args " in - *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. - *) as_fn_append ac_configure_args " '$ac_arg'" ;; - esac - fi -done -if $ac_cache_corrupted; then - { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 -$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} - as_fn_error "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 -fi -## -------------------- ## -## Main body of script. ## -## -------------------- ## - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - -#-------------------------------------------------------------------- -# Call TEA_INIT as the first TEA_ macro to set up initial vars. -# This will define a ${TEA_PLATFORM} variable == "unix" or "windows" -# as well as PKG_LIB_FILE and PKG_STUB_LIB_FILE. -#-------------------------------------------------------------------- - - - # TEA extensions pass this us the version of TEA they think they - # are compatible with. - TEA_VERSION="3.7" - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for correct TEA configuration" >&5 -$as_echo_n "checking for correct TEA configuration... " >&6; } - if test x"${PACKAGE_NAME}" = x ; then - as_fn_error " -The PACKAGE_NAME variable must be defined by your TEA configure.in" "$LINENO" 5 - fi - if test x"3.7" = x ; then - as_fn_error " -TEA version not specified." "$LINENO" 5 - elif test "3.7" != "${TEA_VERSION}" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: warning: requested TEA version \"3.7\", have \"${TEA_VERSION}\"" >&5 -$as_echo "warning: requested TEA version \"3.7\", have \"${TEA_VERSION}\"" >&6; } - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok (TEA ${TEA_VERSION})" >&5 -$as_echo "ok (TEA ${TEA_VERSION})" >&6; } - fi - case "`uname -s`" in - *win32*|*WIN32*|*CYGWIN_NT*|*CYGWIN_9*|*CYGWIN_ME*|*MINGW32_*) - # Extract the first word of "cygpath", so it can be a program name with args. -set dummy cygpath; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_CYGPATH+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CYGPATH"; then - ac_cv_prog_CYGPATH="$CYGPATH" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CYGPATH="cygpath -w" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - - test -z "$ac_cv_prog_CYGPATH" && ac_cv_prog_CYGPATH="echo" -fi -fi -CYGPATH=$ac_cv_prog_CYGPATH -if test -n "$CYGPATH"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CYGPATH" >&5 -$as_echo "$CYGPATH" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - EXEEXT=".exe" - TEA_PLATFORM="windows" - ;; - *) - CYGPATH=echo - EXEEXT="" - TEA_PLATFORM="unix" - ;; - esac - - # Check if exec_prefix is set. If not use fall back to prefix. - # Note when adjusted, so that TEA_PREFIX can correct for this. - # This is needed for recursive configures, since autoconf propagates - # $prefix, but not $exec_prefix (doh!). - if test x$exec_prefix = xNONE ; then - exec_prefix_default=yes - exec_prefix=$prefix - fi - - - - - # This package name must be replaced statically for AC_SUBST to work - - # Substitute STUB_LIB_FILE in case package creates a stub library too. - - - # We AC_SUBST these here to ensure they are subst'ed, - # in case the user doesn't call TEA_ADD_... - - - - - - - - - -ac_aux_dir= -for ac_dir in tclconfig "$srcdir"/tclconfig; do - for ac_t in install-sh install.sh shtool; do - if test -f "$ac_dir/$ac_t"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/$ac_t -c" - break 2 - fi - done -done -if test -z "$ac_aux_dir"; then - as_fn_error "cannot find install-sh, install.sh, or shtool in tclconfig \"$srcdir\"/tclconfig" "$LINENO" 5 -fi - -# These three variables are undocumented and unsupported, -# and are intended to be withdrawn in a future Autoconf release. -# They can cause serious problems if a builder's source tree is in a directory -# whose full name contains unusual characters. -ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. -ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. -ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. - - - -#-------------------------------------------------------------------- -# Load the tclConfig.sh file -#-------------------------------------------------------------------- - - - - # - # Ok, lets find the tcl configuration - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-tcl - # - - if test x"${no_tcl}" = x ; then - # we reset no_tcl in case something fails here - no_tcl=true - -# Check whether --with-tcl was given. -if test "${with_tcl+set}" = set; then : - withval=$with_tcl; with_tclconfig=${withval} -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl configuration" >&5 -$as_echo_n "checking for Tcl configuration... " >&6; } - if test "${ac_cv_c_tclconfig+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - - # First check to see if --with-tcl was specified. - if test x"${with_tclconfig}" != x ; then - case ${with_tclconfig} in - */tclConfig.sh ) - if test -f ${with_tclconfig}; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: --with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself" >&5 -$as_echo "$as_me: WARNING: --with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself" >&2;} - with_tclconfig=`echo ${with_tclconfig} | sed 's!/tclConfig\.sh$!!'` - fi ;; - esac - if test -f "${with_tclconfig}/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd ${with_tclconfig}; pwd)` - else - as_fn_error "${with_tclconfig} directory doesn't contain tclConfig.sh" "$LINENO" 5 - fi - fi - - # then check for a private Tcl installation - if test x"${ac_cv_c_tclconfig}" = x ; then - for i in \ - ../tcl \ - `ls -dr ../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ../tcl[8-9].[0-9] 2>/dev/null` \ - `ls -dr ../tcl[8-9].[0-9]* 2>/dev/null` \ - ../../tcl \ - `ls -dr ../../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ../../tcl[8-9].[0-9] 2>/dev/null` \ - `ls -dr ../../tcl[8-9].[0-9]* 2>/dev/null` \ - ../../../tcl \ - `ls -dr ../../../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ../../../tcl[8-9].[0-9] 2>/dev/null` \ - `ls -dr ../../../tcl[8-9].[0-9]* 2>/dev/null` ; do - if test -f "$i/unix/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - - # on Darwin, check in Framework installation locations - if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then - for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ - `ls -d /Library/Frameworks 2>/dev/null` \ - `ls -d /Network/Library/Frameworks 2>/dev/null` \ - `ls -d /System/Library/Frameworks 2>/dev/null` \ - ; do - if test -f "$i/Tcl.framework/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i/Tcl.framework; pwd)` - break - fi - done - fi - - # TEA specific: on Windows, check in common installation locations - if test "${TEA_PLATFORM}" = "windows" \ - -a x"${ac_cv_c_tclconfig}" = x ; then - for i in `ls -d C:/Tcl/lib 2>/dev/null` \ - `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ - ; do - if test -f "$i/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i; pwd)` - break - fi - done - fi - - # check in a few common install locations - if test x"${ac_cv_c_tclconfig}" = x ; then - for i in `ls -d ${libdir} 2>/dev/null` \ - `ls -d ${exec_prefix}/lib 2>/dev/null` \ - `ls -d ${prefix}/lib 2>/dev/null` \ - `ls -d /usr/local/lib 2>/dev/null` \ - `ls -d /usr/contrib/lib 2>/dev/null` \ - `ls -d /usr/lib 2>/dev/null` \ - ; do - if test -f "$i/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i; pwd)` - break - fi - done - fi - - # check in a few other private locations - if test x"${ac_cv_c_tclconfig}" = x ; then - for i in \ - ${srcdir}/../tcl \ - `ls -dr ${srcdir}/../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ${srcdir}/../tcl[8-9].[0-9] 2>/dev/null` \ - `ls -dr ${srcdir}/../tcl[8-9].[0-9]* 2>/dev/null` ; do - if test -f "$i/unix/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - -fi - - - if test x"${ac_cv_c_tclconfig}" = x ; then - TCL_BIN_DIR="# no Tcl configs found" - as_fn_error "Can't find Tcl configuration definitions" "$LINENO" 5 - else - no_tcl= - TCL_BIN_DIR=${ac_cv_c_tclconfig} - { $as_echo "$as_me:${as_lineno-$LINENO}: result: found ${TCL_BIN_DIR}/tclConfig.sh" >&5 -$as_echo "found ${TCL_BIN_DIR}/tclConfig.sh" >&6; } - fi - fi - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for existence of ${TCL_BIN_DIR}/tclConfig.sh" >&5 -$as_echo_n "checking for existence of ${TCL_BIN_DIR}/tclConfig.sh... " >&6; } - - if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: loading" >&5 -$as_echo "loading" >&6; } - . "${TCL_BIN_DIR}/tclConfig.sh" - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find ${TCL_BIN_DIR}/tclConfig.sh" >&5 -$as_echo "could not find ${TCL_BIN_DIR}/tclConfig.sh" >&6; } - fi - - # eval is required to do the TCL_DBGX substitution - eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\"" - eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\"" - - # If the TCL_BIN_DIR is the build directory (not the install directory), - # then set the common variable name to the value of the build variables. - # For example, the variable TCL_LIB_SPEC will be set to the value - # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC - # instead of TCL_BUILD_LIB_SPEC since it will work with both an - # installed and uninstalled version of Tcl. - if test -f "${TCL_BIN_DIR}/Makefile" ; then - TCL_LIB_SPEC=${TCL_BUILD_LIB_SPEC} - TCL_STUB_LIB_SPEC=${TCL_BUILD_STUB_LIB_SPEC} - TCL_STUB_LIB_PATH=${TCL_BUILD_STUB_LIB_PATH} - elif test "`uname -s`" = "Darwin"; then - # If Tcl was built as a framework, attempt to use the libraries - # from the framework at the given location so that linking works - # against Tcl.framework installed in an arbitary location. - case ${TCL_DEFS} in - *TCL_FRAMEWORK*) - if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then - for i in "`cd ${TCL_BIN_DIR}; pwd`" \ - "`cd ${TCL_BIN_DIR}/../..; pwd`"; do - if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then - TCL_LIB_SPEC="-F`dirname "$i"` -framework ${TCL_LIB_FILE}" - break - fi - done - fi - if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then - TCL_STUB_LIB_SPEC="-L${TCL_BIN_DIR} ${TCL_STUB_LIB_FLAG}" - TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}" - fi - ;; - esac - fi - - # eval is required to do the TCL_DBGX substitution - eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\"" - eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\"" - eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\"" - eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\"" - - - - - - - - - - - - - - # TEA specific: - - - - - - - -#-------------------------------------------------------------------- -# Load the tkConfig.sh file if necessary (Tk extension) -#-------------------------------------------------------------------- - - - # - # Ok, lets find the tk configuration - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-tk - # - - if test x"${no_tk}" = x ; then - # we reset no_tk in case something fails here - no_tk=true - -# Check whether --with-tk was given. -if test "${with_tk+set}" = set; then : - withval=$with_tk; with_tkconfig=${withval} -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tk configuration" >&5 -$as_echo_n "checking for Tk configuration... " >&6; } - if test "${ac_cv_c_tkconfig+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - - # First check to see if --with-tkconfig was specified. - if test x"${with_tkconfig}" != x ; then - case ${with_tkconfig} in - */tkConfig.sh ) - if test -f ${with_tkconfig}; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: --with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself" >&5 -$as_echo "$as_me: WARNING: --with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself" >&2;} - with_tkconfig=`echo ${with_tkconfig} | sed 's!/tkConfig\.sh$!!'` - fi ;; - esac - if test -f "${with_tkconfig}/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd ${with_tkconfig}; pwd)` - else - as_fn_error "${with_tkconfig} directory doesn't contain tkConfig.sh" "$LINENO" 5 - fi - fi - - # then check for a private Tk library - if test x"${ac_cv_c_tkconfig}" = x ; then - for i in \ - ../tk \ - `ls -dr ../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ../tk[8-9].[0-9] 2>/dev/null` \ - `ls -dr ../tk[8-9].[0-9]* 2>/dev/null` \ - ../../tk \ - `ls -dr ../../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ../../tk[8-9].[0-9] 2>/dev/null` \ - `ls -dr ../../tk[8-9].[0-9]* 2>/dev/null` \ - ../../../tk \ - `ls -dr ../../../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ../../../tk[8-9].[0-9] 2>/dev/null` \ - `ls -dr ../../../tk[8-9].[0-9]* 2>/dev/null` ; do - if test -f "$i/unix/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - - # on Darwin, check in Framework installation locations - if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then - for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ - `ls -d /Library/Frameworks 2>/dev/null` \ - `ls -d /Network/Library/Frameworks 2>/dev/null` \ - `ls -d /System/Library/Frameworks 2>/dev/null` \ - ; do - if test -f "$i/Tk.framework/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i/Tk.framework; pwd)` - break - fi - done - fi - - # check in a few common install locations - if test x"${ac_cv_c_tkconfig}" = x ; then - for i in `ls -d ${libdir} 2>/dev/null` \ - `ls -d ${exec_prefix}/lib 2>/dev/null` \ - `ls -d ${prefix}/lib 2>/dev/null` \ - `ls -d /usr/local/lib 2>/dev/null` \ - `ls -d /usr/contrib/lib 2>/dev/null` \ - `ls -d /usr/lib 2>/dev/null` \ - ; do - if test -f "$i/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i; pwd)` - break - fi - done - fi - - # TEA specific: on Windows, check in common installation locations - if test "${TEA_PLATFORM}" = "windows" \ - -a x"${ac_cv_c_tkconfig}" = x ; then - for i in `ls -d C:/Tcl/lib 2>/dev/null` \ - `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ - ; do - if test -f "$i/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i; pwd)` - break - fi - done - fi - - # check in a few other private locations - if test x"${ac_cv_c_tkconfig}" = x ; then - for i in \ - ${srcdir}/../tk \ - `ls -dr ${srcdir}/../tk[8-9].[0-9].[0-9]* 2>/dev/null` \ - `ls -dr ${srcdir}/../tk[8-9].[0-9] 2>/dev/null` \ - `ls -dr ${srcdir}/../tk[8-9].[0-9]* 2>/dev/null` ; do - if test -f "$i/unix/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - -fi - - - if test x"${ac_cv_c_tkconfig}" = x ; then - TK_BIN_DIR="# no Tk configs found" - as_fn_error "Can't find Tk configuration definitions" "$LINENO" 5 - else - no_tk= - TK_BIN_DIR=${ac_cv_c_tkconfig} - { $as_echo "$as_me:${as_lineno-$LINENO}: result: found ${TK_BIN_DIR}/tkConfig.sh" >&5 -$as_echo "found ${TK_BIN_DIR}/tkConfig.sh" >&6; } - fi - fi - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for existence of ${TK_BIN_DIR}/tkConfig.sh" >&5 -$as_echo_n "checking for existence of ${TK_BIN_DIR}/tkConfig.sh... " >&6; } - - if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: loading" >&5 -$as_echo "loading" >&6; } - . "${TK_BIN_DIR}/tkConfig.sh" - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find ${TK_BIN_DIR}/tkConfig.sh" >&5 -$as_echo "could not find ${TK_BIN_DIR}/tkConfig.sh" >&6; } - fi - - # eval is required to do the TK_DBGX substitution - eval "TK_LIB_FILE=\"${TK_LIB_FILE}\"" - eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\"" - - # If the TK_BIN_DIR is the build directory (not the install directory), - # then set the common variable name to the value of the build variables. - # For example, the variable TK_LIB_SPEC will be set to the value - # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC - # instead of TK_BUILD_LIB_SPEC since it will work with both an - # installed and uninstalled version of Tcl. - if test -f "${TK_BIN_DIR}/Makefile" ; then - TK_LIB_SPEC=${TK_BUILD_LIB_SPEC} - TK_STUB_LIB_SPEC=${TK_BUILD_STUB_LIB_SPEC} - TK_STUB_LIB_PATH=${TK_BUILD_STUB_LIB_PATH} - elif test "`uname -s`" = "Darwin"; then - # If Tk was built as a framework, attempt to use the libraries - # from the framework at the given location so that linking works - # against Tk.framework installed in an arbitary location. - case ${TK_DEFS} in - *TK_FRAMEWORK*) - if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then - for i in "`cd ${TK_BIN_DIR}; pwd`" \ - "`cd ${TK_BIN_DIR}/../..; pwd`"; do - if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then - TK_LIB_SPEC="-F`dirname "$i"` -framework ${TK_LIB_FILE}" - break - fi - done - fi - if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then - TK_STUB_LIB_SPEC="-L${TK_BIN_DIR} ${TK_STUB_LIB_FLAG}" - TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}" - fi - ;; - esac - fi - - # eval is required to do the TK_DBGX substitution - eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\"" - eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\"" - eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\"" - eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\"" - - # TEA specific: Ensure windowingsystem is defined - if test "${TEA_PLATFORM}" = "unix" ; then - case ${TK_DEFS} in - *MAC_OSX_TK*) - -$as_echo "#define MAC_OSX_TK 1" >>confdefs.h - - TEA_WINDOWINGSYSTEM="aqua" - ;; - *) - TEA_WINDOWINGSYSTEM="x11" - ;; - esac - elif test "${TEA_PLATFORM}" = "windows" ; then - TEA_WINDOWINGSYSTEM="win32" - fi - - - - - - - - - - - - - - # TEA specific: - - - - -#----------------------------------------------------------------------- -# Handle the --prefix=... option by defaulting to what Tcl gave. -# Must be called after TEA_LOAD_TCLCONFIG and before TEA_SETUP_COMPILER. -#----------------------------------------------------------------------- - - - if test "${prefix}" = "NONE"; then - prefix_default=yes - if test x"${TCL_PREFIX}" != x; then - { $as_echo "$as_me:${as_lineno-$LINENO}: --prefix defaulting to TCL_PREFIX ${TCL_PREFIX}" >&5 -$as_echo "$as_me: --prefix defaulting to TCL_PREFIX ${TCL_PREFIX}" >&6;} - prefix=${TCL_PREFIX} - else - { $as_echo "$as_me:${as_lineno-$LINENO}: --prefix defaulting to /usr/local" >&5 -$as_echo "$as_me: --prefix defaulting to /usr/local" >&6;} - prefix=/usr/local - fi - fi - if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \ - -o x"${exec_prefix_default}" = x"yes" ; then - if test x"${TCL_EXEC_PREFIX}" != x; then - { $as_echo "$as_me:${as_lineno-$LINENO}: --exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}" >&5 -$as_echo "$as_me: --exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}" >&6;} - exec_prefix=${TCL_EXEC_PREFIX} - else - { $as_echo "$as_me:${as_lineno-$LINENO}: --exec-prefix defaulting to ${prefix}" >&5 -$as_echo "$as_me: --exec-prefix defaulting to ${prefix}" >&6;} - exec_prefix=$prefix - fi - fi - - -#----------------------------------------------------------------------- -# Standard compiler checks. -# This sets up CC by using the CC env var, or looks for gcc otherwise. -# This also calls AC_PROG_CC, AC_PROG_INSTALL and a few others to create -# the basic setup necessary to compile executables. -#----------------------------------------------------------------------- - -# Find a good install program. We prefer a C program (faster), -# so one script is as good as another. But avoid the broken or -# incompatible versions: -# SysV /etc/install, /usr/sbin/install -# SunOS /usr/etc/install -# IRIX /sbin/install -# AIX /bin/install -# AmigaOS /C/install, which installs bootblocks on floppy discs -# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag -# AFS /usr/afsws/bin/install, which mishandles nonexistent args -# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" -# OS/2's system install, which has a completely different semantic -# ./install, which can be erroneously created by make from ./install.sh. -# Reject install programs that cannot install multiple files. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 -$as_echo_n "checking for a BSD-compatible install... " >&6; } -if test -z "$INSTALL"; then -if test "${ac_cv_path_install+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - # Account for people who put trailing slashes in PATH elements. -case $as_dir/ in #(( - ./ | .// | /[cC]/* | \ - /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ - ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ - /usr/ucb/* ) ;; - *) - # OSF1 and SCO ODT 3.0 have their own names for install. - # Don't use installbsd from OSF since it installs stuff as root - # by default. - for ac_prog in ginstall scoinst install; do - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; }; then - if test $ac_prog = install && - grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then - # AIX install. It has an incompatible calling convention. - : - elif test $ac_prog = install && - grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then - # program-specific install script used by HP pwplus--don't use. - : - else - rm -rf conftest.one conftest.two conftest.dir - echo one > conftest.one - echo two > conftest.two - mkdir conftest.dir - if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && - test -s conftest.one && test -s conftest.two && - test -s conftest.dir/conftest.one && - test -s conftest.dir/conftest.two - then - ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" - break 3 - fi - fi - fi - done - done - ;; -esac - - done -IFS=$as_save_IFS - -rm -rf conftest.one conftest.two conftest.dir - -fi - if test "${ac_cv_path_install+set}" = set; then - INSTALL=$ac_cv_path_install - else - # As a last resort, use the slow shell script. Don't cache a - # value for INSTALL within a source directory, because that will - # break other packages using the cache if that directory is - # removed, or if the value is a relative name. - INSTALL=$ac_install_sh - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 -$as_echo "$INSTALL" >&6; } - -# Use test -z because SunOS4 sh mishandles braces in ${var-val}. -# It thinks the first close brace ends the variable substitution. -test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' - -test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' - -test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' - - - # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE) - # in this macro, they need to go into TEA_SETUP_COMPILER instead. - - # If the user did not set CFLAGS, set it now to keep - # the AC_PROG_CC macro from adding "-g -O2". - if test "${CFLAGS+set}" != "set" ; then - CFLAGS="" - fi - - ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. -set dummy ${ac_tool_prefix}gcc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_CC+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CC="${ac_tool_prefix}gcc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_ac_ct_CC="gcc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -else - CC="$ac_cv_prog_CC" -fi - -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. -set dummy ${ac_tool_prefix}cc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_CC+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CC="${ac_tool_prefix}cc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - fi -fi -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_CC+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - ac_prog_rejected=no -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# != 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" - fi -fi -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - for ac_prog in cl.exe - do - # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. -set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_CC+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$CC" && break - done -fi -if test -z "$CC"; then - ac_ct_CC=$CC - for ac_prog in cl.exe -do - # Extract the first word of "$ac_prog", so it can be a program name with args. -set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_ac_ct_CC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$ac_ct_CC" && break -done - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -fi - -fi - - -test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error "no acceptable C compiler found in \$PATH -See \`config.log' for more details." "$LINENO" 5; } - -# Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 -set X $ac_compile -ac_compiler=$2 -for ac_option in --version -v -V -qversion; do - { { ac_try="$ac_compiler $ac_option >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_compiler $ac_option >&5") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - sed '10a\ -... rest of stderr output deleted ... - 10q' conftest.err >conftest.er1 - cat conftest.er1 >&5 - fi - rm -f conftest.er1 conftest.err - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -done - -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" -# Try to create an executable without -o first, disregard a.out. -# It will help us diagnose broken compilers, and finding out an intuition -# of exeext. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 -$as_echo_n "checking whether the C compiler works... " >&6; } -ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` - -# The possible output files: -ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" - -ac_rmfiles= -for ac_file in $ac_files -do - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; - * ) ac_rmfiles="$ac_rmfiles $ac_file";; - esac -done -rm -f $ac_rmfiles - -if { { ac_try="$ac_link_default" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link_default") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : - # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. -# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' -# in a Makefile. We should not override ac_cv_exeext if it was cached, -# so that the user can short-circuit this test for compilers unknown to -# Autoconf. -for ac_file in $ac_files '' -do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) - ;; - [ab].out ) - # We found the default executable, but exeext='' is most - # certainly right. - break;; - *.* ) - if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; - then :; else - ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - fi - # We set ac_cv_exeext here because the later test for it is not - # safe: cross compilers may not add the suffix if given an `-o' - # argument, so we may need to know it at that point already. - # Even if this section looks crufty: it has the advantage of - # actually working. - break;; - * ) - break;; - esac -done -test "$ac_cv_exeext" = no && ac_cv_exeext= - -else - ac_file='' -fi -if test -z "$ac_file"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -$as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -{ as_fn_set_status 77 -as_fn_error "C compiler cannot create executables -See \`config.log' for more details." "$LINENO" 5; }; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 -$as_echo_n "checking for C compiler default output file name... " >&6; } -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 -$as_echo "$ac_file" >&6; } -ac_exeext=$ac_cv_exeext - -rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out -ac_clean_files=$ac_clean_files_save -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 -$as_echo_n "checking for suffix of executables... " >&6; } -if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : - # If both `conftest.exe' and `conftest' are `present' (well, observable) -# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will -# work properly (i.e., refer to `conftest.exe'), while it won't with -# `rm'. -for ac_file in conftest.exe conftest conftest.*; do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; - *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - break;; - * ) break;; - esac -done -else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error "cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." "$LINENO" 5; } -fi -rm -f conftest conftest$ac_cv_exeext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 -$as_echo "$ac_cv_exeext" >&6; } - -rm -f conftest.$ac_ext -EXEEXT=$ac_cv_exeext -ac_exeext=$EXEEXT -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -FILE *f = fopen ("conftest.out", "w"); - return ferror (f) || fclose (f) != 0; - - ; - return 0; -} -_ACEOF -ac_clean_files="$ac_clean_files conftest.out" -# Check that the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 -$as_echo_n "checking whether we are cross compiling... " >&6; } -if test "$cross_compiling" != yes; then - { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - if { ac_try='./conftest$ac_cv_exeext' - { { case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; }; then - cross_compiling=no - else - if test "$cross_compiling" = maybe; then - cross_compiling=yes - else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error "cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details." "$LINENO" 5; } - fi - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 -$as_echo "$cross_compiling" >&6; } - -rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out -ac_clean_files=$ac_clean_files_save -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 -$as_echo_n "checking for suffix of object files... " >&6; } -if test "${ac_cv_objext+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.o conftest.obj -if { { ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_compile") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : - for ac_file in conftest.o conftest.obj conftest.*; do - test -f "$ac_file" || continue; - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; - *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` - break;; - esac -done -else - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error "cannot compute suffix of object files: cannot compile -See \`config.log' for more details." "$LINENO" 5; } -fi -rm -f conftest.$ac_cv_objext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 -$as_echo "$ac_cv_objext" >&6; } -OBJEXT=$ac_cv_objext -ac_objext=$OBJEXT -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 -$as_echo_n "checking whether we are using the GNU C compiler... " >&6; } -if test "${ac_cv_c_compiler_gnu+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -#ifndef __GNUC__ - choke me -#endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_compiler_gnu=yes -else - ac_compiler_gnu=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -ac_cv_c_compiler_gnu=$ac_compiler_gnu - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 -$as_echo "$ac_cv_c_compiler_gnu" >&6; } -if test $ac_compiler_gnu = yes; then - GCC=yes -else - GCC= -fi -ac_test_CFLAGS=${CFLAGS+set} -ac_save_CFLAGS=$CFLAGS -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 -$as_echo_n "checking whether $CC accepts -g... " >&6; } -if test "${ac_cv_prog_cc_g+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_save_c_werror_flag=$ac_c_werror_flag - ac_c_werror_flag=yes - ac_cv_prog_cc_g=no - CFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_g=yes -else - CFLAGS="" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - -else - ac_c_werror_flag=$ac_save_c_werror_flag - CFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_g=yes -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - ac_c_werror_flag=$ac_save_c_werror_flag -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 -$as_echo "$ac_cv_prog_cc_g" >&6; } -if test "$ac_test_CFLAGS" = set; then - CFLAGS=$ac_save_CFLAGS -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 -$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } -if test "${ac_cv_prog_cc_c89+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_prog_cc_c89=no -ac_save_CC=$CC -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#include -#include -/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ -struct buf { int x; }; -FILE * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not '\xHH' hex character constants. - These don't provoke an error unfortunately, instead are silently treated - as 'x'. The following induces an error, until -std is added to get - proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an - array size at least. It's necessary to write '\x00'==0 to get something - that's true only with -std. */ -int osf4_cc_array ['\x00' == 0 ? 1 : -1]; - -/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters - inside strings and character constants. */ -#define FOO(x) 'x' -int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; - -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); -int argc; -char **argv; -int -main () -{ -return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; - ; - return 0; -} -_ACEOF -for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ - -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" -do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_c89=$ac_arg -fi -rm -f core conftest.err conftest.$ac_objext - test "x$ac_cv_prog_cc_c89" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC - -fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c89" in - x) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; - xno) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c89" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 -$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_c89" != xno; then : - -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 -$as_echo_n "checking how to run the C preprocessor... " >&6; } -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then - if test "${ac_cv_prog_CPP+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - # Double quotes because CPP needs to be expanded - for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" - do - ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer to if __STDC__ is defined, since - # exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#ifdef __STDC__ -# include -#else -# include -#endif - Syntax error -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - -else - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - # Broken: success on invalid input. -continue -else - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then : - break -fi - - done - ac_cv_prog_CPP=$CPP - -fi - CPP=$ac_cv_prog_CPP -else - ac_cv_prog_CPP=$CPP -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 -$as_echo "$CPP" >&6; } -ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer to if __STDC__ is defined, since - # exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#ifdef __STDC__ -# include -#else -# include -#endif - Syntax error -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - -else - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - # Broken: success on invalid input. -continue -else - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then : - -else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error "C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." "$LINENO" 5; } -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - - - #-------------------------------------------------------------------- - # Checks to see if the make program sets the $MAKE variable. - #-------------------------------------------------------------------- - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 -$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } -set x ${MAKE-make} -ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` -if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then : - $as_echo_n "(cached) " >&6 -else - cat >conftest.make <<\_ACEOF -SHELL = /bin/sh -all: - @echo '@@@%%%=$(MAKE)=@@@%%%' -_ACEOF -# GNU make sometimes prints "make[1]: Entering...", which would confuse us. -case `${MAKE-make} -f conftest.make 2>/dev/null` in - *@@@%%%=?*=@@@%%%*) - eval ac_cv_prog_make_${ac_make}_set=yes;; - *) - eval ac_cv_prog_make_${ac_make}_set=no;; -esac -rm -f conftest.make -fi -if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } - SET_MAKE= -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } - SET_MAKE="MAKE=${MAKE-make}" -fi - - - #-------------------------------------------------------------------- - # Find ranlib - #-------------------------------------------------------------------- - - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. -set dummy ${ac_tool_prefix}ranlib; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_RANLIB+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$RANLIB"; then - ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -RANLIB=$ac_cv_prog_RANLIB -if test -n "$RANLIB"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 -$as_echo "$RANLIB" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_RANLIB"; then - ac_ct_RANLIB=$RANLIB - # Extract the first word of "ranlib", so it can be a program name with args. -set dummy ranlib; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$ac_ct_RANLIB"; then - ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_ac_ct_RANLIB="ranlib" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB -if test -n "$ac_ct_RANLIB"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 -$as_echo "$ac_ct_RANLIB" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - if test "x$ac_ct_RANLIB" = x; then - RANLIB=":" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - RANLIB=$ac_ct_RANLIB - fi -else - RANLIB="$ac_cv_prog_RANLIB" -fi - - - #-------------------------------------------------------------------- - # Determines the correct binary file extension (.o, .obj, .exe etc.) - #-------------------------------------------------------------------- - - - - - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 -$as_echo_n "checking for grep that handles long lines and -e... " >&6; } -if test "${ac_cv_path_GREP+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -z "$GREP"; then - ac_path_GREP_found=false - # Loop through the user's path and test for each of PROGNAME-LIST - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_prog in grep ggrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" - { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue -# Check for GNU ac_path_GREP and select it if it is found. - # Check for GNU $ac_path_GREP -case `"$ac_path_GREP" --version 2>&1` in -*GNU*) - ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; -*) - ac_count=0 - $as_echo_n 0123456789 >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - $as_echo 'GREP' >> "conftest.nl" - "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - as_fn_arith $ac_count + 1 && ac_count=$as_val - if test $ac_count -gt ${ac_path_GREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_GREP="$ac_path_GREP" - ac_path_GREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - $ac_path_GREP_found && break 3 - done - done - done -IFS=$as_save_IFS - if test -z "$ac_cv_path_GREP"; then - as_fn_error "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 - fi -else - ac_cv_path_GREP=$GREP -fi - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 -$as_echo "$ac_cv_path_GREP" >&6; } - GREP="$ac_cv_path_GREP" - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 -$as_echo_n "checking for egrep... " >&6; } -if test "${ac_cv_path_EGREP+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 - then ac_cv_path_EGREP="$GREP -E" - else - if test -z "$EGREP"; then - ac_path_EGREP_found=false - # Loop through the user's path and test for each of PROGNAME-LIST - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_prog in egrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" - { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue -# Check for GNU ac_path_EGREP and select it if it is found. - # Check for GNU $ac_path_EGREP -case `"$ac_path_EGREP" --version 2>&1` in -*GNU*) - ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; -*) - ac_count=0 - $as_echo_n 0123456789 >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - $as_echo 'EGREP' >> "conftest.nl" - "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - as_fn_arith $ac_count + 1 && ac_count=$as_val - if test $ac_count -gt ${ac_path_EGREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_EGREP="$ac_path_EGREP" - ac_path_EGREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - $ac_path_EGREP_found && break 3 - done - done - done -IFS=$as_save_IFS - if test -z "$ac_cv_path_EGREP"; then - as_fn_error "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 - fi -else - ac_cv_path_EGREP=$EGREP -fi - - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 -$as_echo "$ac_cv_path_EGREP" >&6; } - EGREP="$ac_cv_path_EGREP" - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 -$as_echo_n "checking for ANSI C header files... " >&6; } -if test "${ac_cv_header_stdc+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#include -#include - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_header_stdc=yes -else - ac_cv_header_stdc=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then : - -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then : - -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then : - : -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#if ((' ' & 0x0FF) == 0x020) -# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#else -# define ISLOWER(c) \ - (('a' <= (c) && (c) <= 'i') \ - || ('j' <= (c) && (c) <= 'r') \ - || ('s' <= (c) && (c) <= 'z')) -# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) -#endif - -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int -main () -{ - int i; - for (i = 0; i < 256; i++) - if (XOR (islower (i), ISLOWER (i)) - || toupper (i) != TOUPPER (i)) - return 2; - return 0; -} -_ACEOF -if ac_fn_c_try_run "$LINENO"; then : - -else - ac_cv_header_stdc=no -fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ - conftest.$ac_objext conftest.beam conftest.$ac_ext -fi - -fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 -$as_echo "$ac_cv_header_stdc" >&6; } -if test $ac_cv_header_stdc = yes; then - -$as_echo "#define STDC_HEADERS 1" >>confdefs.h - -fi - -# On IRIX 5.3, sys/types and inttypes.h are conflicting. -for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ - inttypes.h stdint.h unistd.h -do : - as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` -ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default -" -eval as_val=\$$as_ac_Header - if test "x$as_val" = x""yes; then : - cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - -fi - -done - - - - # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here. - - - #------------------------------------------------------------------------ - # If we're using GCC, see if the compiler understands -pipe. If so, use it. - # It makes compiling go faster. (This is only a performance feature.) - #------------------------------------------------------------------------ - - if test -z "$no_pipe" -a -n "$GCC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the compiler understands -pipe" >&5 -$as_echo_n "checking if the compiler understands -pipe... " >&6; } -if test "${tcl_cv_cc_pipe+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_cc_pipe=yes -else - tcl_cv_cc_pipe=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - CFLAGS=$hold_cflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_pipe" >&5 -$as_echo "$tcl_cv_cc_pipe" >&6; } - if test $tcl_cv_cc_pipe = yes; then - CFLAGS="$CFLAGS -pipe" - fi - fi - - #-------------------------------------------------------------------- - # Common compiler flag setup - #-------------------------------------------------------------------- - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5 -$as_echo_n "checking whether byte ordering is bigendian... " >&6; } -if test "${ac_cv_c_bigendian+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_c_bigendian=unknown - # See if we're dealing with a universal compiler. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#ifndef __APPLE_CC__ - not a universal capable compiler - #endif - typedef int dummy; - -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - - # Check for potential -arch flags. It is not universal unless - # there are at least two -arch flags with different values. - ac_arch= - ac_prev= - for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do - if test -n "$ac_prev"; then - case $ac_word in - i?86 | x86_64 | ppc | ppc64) - if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then - ac_arch=$ac_word - else - ac_cv_c_bigendian=universal - break - fi - ;; - esac - ac_prev= - elif test "x$ac_word" = "x-arch"; then - ac_prev=arch - fi - done -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - if test $ac_cv_c_bigendian = unknown; then - # See if sys/param.h defines the BYTE_ORDER macro. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - #include - -int -main () -{ -#if ! (defined BYTE_ORDER && defined BIG_ENDIAN \ - && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \ - && LITTLE_ENDIAN) - bogus endian macros - #endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - # It does; now see whether it defined to BIG_ENDIAN or not. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - #include - -int -main () -{ -#if BYTE_ORDER != BIG_ENDIAN - not big endian - #endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_c_bigendian=yes -else - ac_cv_c_bigendian=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - fi - if test $ac_cv_c_bigendian = unknown; then - # See if defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris). - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -int -main () -{ -#if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN) - bogus endian macros - #endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - # It does; now see whether it defined to _BIG_ENDIAN or not. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -int -main () -{ -#ifndef _BIG_ENDIAN - not big endian - #endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_c_bigendian=yes -else - ac_cv_c_bigendian=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - fi - if test $ac_cv_c_bigendian = unknown; then - # Compile a test program. - if test "$cross_compiling" = yes; then : - # Try to guess by grepping values from an object file. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -short int ascii_mm[] = - { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 }; - short int ascii_ii[] = - { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 }; - int use_ascii (int i) { - return ascii_mm[i] + ascii_ii[i]; - } - short int ebcdic_ii[] = - { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 }; - short int ebcdic_mm[] = - { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 }; - int use_ebcdic (int i) { - return ebcdic_mm[i] + ebcdic_ii[i]; - } - extern int foo; - -int -main () -{ -return use_ascii (foo) == use_ebcdic (foo); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then - ac_cv_c_bigendian=yes - fi - if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then - if test "$ac_cv_c_bigendian" = unknown; then - ac_cv_c_bigendian=no - else - # finding both strings is unlikely to happen, but who knows? - ac_cv_c_bigendian=unknown - fi - fi -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ - - /* Are we little or big endian? From Harbison&Steele. */ - union - { - long int l; - char c[sizeof (long int)]; - } u; - u.l = 1; - return u.c[sizeof (long int) - 1] == 1; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_run "$LINENO"; then : - ac_cv_c_bigendian=no -else - ac_cv_c_bigendian=yes -fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ - conftest.$ac_objext conftest.beam conftest.$ac_ext -fi - - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5 -$as_echo "$ac_cv_c_bigendian" >&6; } - case $ac_cv_c_bigendian in #( - yes) - $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h -;; #( - no) - ;; #( - universal) - -$as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h - - ;; #( - *) - as_fn_error "unknown endianness - presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;; - esac - - if test "${TEA_PLATFORM}" = "unix" ; then - - #-------------------------------------------------------------------- - # On a few very rare systems, all of the libm.a stuff is - # already in libc.a. Set compiler flags accordingly. - # Also, Linux requires the "ieee" library for math to work - # right (and it must appear before "-lm"). - #-------------------------------------------------------------------- - - ac_fn_c_check_func "$LINENO" "sin" "ac_cv_func_sin" -if test "x$ac_cv_func_sin" = x""yes; then : - MATH_LIBS="" -else - MATH_LIBS="-lm" -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for main in -lieee" >&5 -$as_echo_n "checking for main in -lieee... " >&6; } -if test "${ac_cv_lib_ieee_main+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lieee $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - - -int -main () -{ -return main (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_ieee_main=yes -else - ac_cv_lib_ieee_main=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ieee_main" >&5 -$as_echo "$ac_cv_lib_ieee_main" >&6; } -if test "x$ac_cv_lib_ieee_main" = x""yes; then : - MATH_LIBS="-lieee $MATH_LIBS" -fi - - - #-------------------------------------------------------------------- - # Interactive UNIX requires -linet instead of -lsocket, plus it - # needs net/errno.h to define the socket-related error codes. - #-------------------------------------------------------------------- - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for main in -linet" >&5 -$as_echo_n "checking for main in -linet... " >&6; } -if test "${ac_cv_lib_inet_main+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-linet $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - - -int -main () -{ -return main (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_inet_main=yes -else - ac_cv_lib_inet_main=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_inet_main" >&5 -$as_echo "$ac_cv_lib_inet_main" >&6; } -if test "x$ac_cv_lib_inet_main" = x""yes; then : - LIBS="$LIBS -linet" -fi - - ac_fn_c_check_header_mongrel "$LINENO" "net/errno.h" "ac_cv_header_net_errno_h" "$ac_includes_default" -if test "x$ac_cv_header_net_errno_h" = x""yes; then : - - -$as_echo "#define HAVE_NET_ERRNO_H 1" >>confdefs.h - -fi - - - - #-------------------------------------------------------------------- - # Check for the existence of the -lsocket and -lnsl libraries. - # The order here is important, so that they end up in the right - # order in the command line generated by make. Here are some - # special considerations: - # 1. Use "connect" and "accept" to check for -lsocket, and - # "gethostbyname" to check for -lnsl. - # 2. Use each function name only once: can't redo a check because - # autoconf caches the results of the last check and won't redo it. - # 3. Use -lnsl and -lsocket only if they supply procedures that - # aren't already present in the normal libraries. This is because - # IRIX 5.2 has libraries, but they aren't needed and they're - # bogus: they goof up name resolution if used. - # 4. On some SVR4 systems, can't use -lsocket without -lnsl too. - # To get around this problem, check for both libraries together - # if -lsocket doesn't work by itself. - #-------------------------------------------------------------------- - - tcl_checkBoth=0 - ac_fn_c_check_func "$LINENO" "connect" "ac_cv_func_connect" -if test "x$ac_cv_func_connect" = x""yes; then : - tcl_checkSocket=0 -else - tcl_checkSocket=1 -fi - - if test "$tcl_checkSocket" = 1; then - ac_fn_c_check_func "$LINENO" "setsockopt" "ac_cv_func_setsockopt" -if test "x$ac_cv_func_setsockopt" = x""yes; then : - -else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for setsockopt in -lsocket" >&5 -$as_echo_n "checking for setsockopt in -lsocket... " >&6; } -if test "${ac_cv_lib_socket_setsockopt+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lsocket $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char setsockopt (); -int -main () -{ -return setsockopt (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_socket_setsockopt=yes -else - ac_cv_lib_socket_setsockopt=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_socket_setsockopt" >&5 -$as_echo "$ac_cv_lib_socket_setsockopt" >&6; } -if test "x$ac_cv_lib_socket_setsockopt" = x""yes; then : - LIBS="$LIBS -lsocket" -else - tcl_checkBoth=1 -fi - -fi - - fi - if test "$tcl_checkBoth" = 1; then - tk_oldLibs=$LIBS - LIBS="$LIBS -lsocket -lnsl" - ac_fn_c_check_func "$LINENO" "accept" "ac_cv_func_accept" -if test "x$ac_cv_func_accept" = x""yes; then : - tcl_checkNsl=0 -else - LIBS=$tk_oldLibs -fi - - fi - ac_fn_c_check_func "$LINENO" "gethostbyname" "ac_cv_func_gethostbyname" -if test "x$ac_cv_func_gethostbyname" = x""yes; then : - -else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gethostbyname in -lnsl" >&5 -$as_echo_n "checking for gethostbyname in -lnsl... " >&6; } -if test "${ac_cv_lib_nsl_gethostbyname+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lnsl $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char gethostbyname (); -int -main () -{ -return gethostbyname (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_nsl_gethostbyname=yes -else - ac_cv_lib_nsl_gethostbyname=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_nsl_gethostbyname" >&5 -$as_echo "$ac_cv_lib_nsl_gethostbyname" >&6; } -if test "x$ac_cv_lib_nsl_gethostbyname" = x""yes; then : - LIBS="$LIBS -lnsl" -fi - -fi - - - # TEA specific: Don't perform the eval of the libraries here because - # DL_LIBS won't be set until we call TEA_CONFIG_CFLAGS - - TCL_LIBS='${DL_LIBS} ${LIBS} ${MATH_LIBS}' - - - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking dirent.h" >&5 -$as_echo_n "checking dirent.h... " >&6; } -if test "${tcl_cv_dirent_h+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -int -main () -{ - -#ifndef _POSIX_SOURCE -# ifdef __Lynx__ - /* - * Generate compilation error to make the test fail: Lynx headers - * are only valid if really in the POSIX environment. - */ - - missing_procedure(); -# endif -#endif -DIR *d; -struct dirent *entryPtr; -char *p; -d = opendir("foobar"); -entryPtr = readdir(d); -p = entryPtr->d_name; -closedir(d); - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_dirent_h=yes -else - tcl_cv_dirent_h=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_dirent_h" >&5 -$as_echo "$tcl_cv_dirent_h" >&6; } - - if test $tcl_cv_dirent_h = no; then - -$as_echo "#define NO_DIRENT_H 1" >>confdefs.h - - fi - - # TEA specific: - ac_fn_c_check_header_mongrel "$LINENO" "errno.h" "ac_cv_header_errno_h" "$ac_includes_default" -if test "x$ac_cv_header_errno_h" = x""yes; then : - -else - -$as_echo "#define NO_ERRNO_H 1" >>confdefs.h - -fi - - - ac_fn_c_check_header_mongrel "$LINENO" "float.h" "ac_cv_header_float_h" "$ac_includes_default" -if test "x$ac_cv_header_float_h" = x""yes; then : - -else - -$as_echo "#define NO_FLOAT_H 1" >>confdefs.h - -fi - - - ac_fn_c_check_header_mongrel "$LINENO" "values.h" "ac_cv_header_values_h" "$ac_includes_default" -if test "x$ac_cv_header_values_h" = x""yes; then : - -else - -$as_echo "#define NO_VALUES_H 1" >>confdefs.h - -fi - - - ac_fn_c_check_header_mongrel "$LINENO" "limits.h" "ac_cv_header_limits_h" "$ac_includes_default" -if test "x$ac_cv_header_limits_h" = x""yes; then : - -$as_echo "#define HAVE_LIMITS_H 1" >>confdefs.h - -else - -$as_echo "#define NO_LIMITS_H 1" >>confdefs.h - -fi - - - ac_fn_c_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default" -if test "x$ac_cv_header_stdlib_h" = x""yes; then : - tcl_ok=1 -else - tcl_ok=0 -fi - - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "strtol" >/dev/null 2>&1; then : - -else - tcl_ok=0 -fi -rm -f conftest* - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "strtoul" >/dev/null 2>&1; then : - -else - tcl_ok=0 -fi -rm -f conftest* - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "strtod" >/dev/null 2>&1; then : - -else - tcl_ok=0 -fi -rm -f conftest* - - if test $tcl_ok = 0; then - -$as_echo "#define NO_STDLIB_H 1" >>confdefs.h - - fi - ac_fn_c_check_header_mongrel "$LINENO" "string.h" "ac_cv_header_string_h" "$ac_includes_default" -if test "x$ac_cv_header_string_h" = x""yes; then : - tcl_ok=1 -else - tcl_ok=0 -fi - - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "strstr" >/dev/null 2>&1; then : - -else - tcl_ok=0 -fi -rm -f conftest* - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "strerror" >/dev/null 2>&1; then : - -else - tcl_ok=0 -fi -rm -f conftest* - - - # See also memmove check below for a place where NO_STRING_H can be - # set and why. - - if test $tcl_ok = 0; then - -$as_echo "#define NO_STRING_H 1" >>confdefs.h - - fi - - ac_fn_c_check_header_mongrel "$LINENO" "sys/wait.h" "ac_cv_header_sys_wait_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_wait_h" = x""yes; then : - -else - -$as_echo "#define NO_SYS_WAIT_H 1" >>confdefs.h - -fi - - - ac_fn_c_check_header_mongrel "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default" -if test "x$ac_cv_header_dlfcn_h" = x""yes; then : - -else - -$as_echo "#define NO_DLFCN_H 1" >>confdefs.h - -fi - - - - # OS/390 lacks sys/param.h (and doesn't need it, by chance). - for ac_header in sys/param.h -do : - ac_fn_c_check_header_mongrel "$LINENO" "sys/param.h" "ac_cv_header_sys_param_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_param_h" = x""yes; then : - cat >>confdefs.h <<_ACEOF -#define HAVE_SYS_PARAM_H 1 -_ACEOF - -fi - -done - - - # Let the user call this, because if it triggers, they will - # need a compat/strtod.c that is correct. Users can also - # use Tcl_GetDouble(FromObj) instead. - #TEA_BUGGY_STRTOD - fi - - -#----------------------------------------------------------------------- -# __CHANGE__ -# Specify the C source files to compile in TEA_ADD_SOURCES, -# public headers that need to be installed in TEA_ADD_HEADERS, -# stub library C source files to compile in TEA_ADD_STUB_SOURCES, -# and runtime Tcl library files in TEA_ADD_TCL_SOURCES. -# This defines PKG(_STUB)_SOURCES, PKG(_STUB)_OBJECTS, PKG_HEADERS -# and PKG_TCL_SOURCES. -#----------------------------------------------------------------------- - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to link with stubs library" >&5 -$as_echo_n "checking whether to link with stubs library... " >&6; } - # Check whether --enable-stubs was given. -if test "${enable_stubs+set}" = set; then : - enableval=$enable_stubs; tcl_ok=$enableval -else - tcl_ok=yes -fi - - - if test "${enable_stubs+set}" = set; then - enableval="$enable_stubs" - tcl_ok=$enableval - else - tcl_ok=yes - fi - - if test "$tcl_ok" = "yes" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: stubs" >&5 -$as_echo "stubs" >&6; } - USE_STUBS=1 - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no stubs" >&5 -$as_echo "no stubs" >&6; } - USE_STUBS=0 - fi - - - - vars="togl.c toglProcAddr.c toglStubInit.c" - for i in $vars; do - case $i in - \$*) - # allow $-var names - PKG_SOURCES="$PKG_SOURCES $i" - PKG_OBJECTS="$PKG_OBJECTS $i" - ;; - *) - # check for existence - allows for generic/win/unix VPATH - # To add more dirs here (like 'src'), you have to update VPATH - # in Makefile.in as well - if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ - -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ - ; then - as_fn_error "could not find source file '$i'" "$LINENO" 5 - fi - PKG_SOURCES="$PKG_SOURCES $i" - # this assumes it is in a VPATH dir - i=`basename $i` - # handle user calling this before or after TEA_SETUP_COMPILER - if test x"${OBJEXT}" != x ; then - j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}" - else - j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}" - fi - PKG_OBJECTS="$PKG_OBJECTS $j" - ;; - esac - done - - - -# togl_ws.h is added in Makefile.in because it is generated - - vars="togl.h toglDecls.h" - for i in $vars; do - # check for existence, be strict because it is installed - if test ! -f "${srcdir}/$i" ; then - as_fn_error "could not find header file '${srcdir}/$i'" "$LINENO" 5 - fi - PKG_HEADERS="$PKG_HEADERS $i" - done - - - - vars="" - for i in $vars; do - PKG_INCLUDES="$PKG_INCLUDES $i" - done - - - - vars="" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - - PKG_CFLAGS="$PKG_CFLAGS " - - -if test "${USE_STUBS}" = "1" ; then - - vars="toglStubLib.c" - for i in $vars; do - # check for existence - allows for generic/win/unix VPATH - if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ - -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ - ; then - as_fn_error "could not find stub source file '$i'" "$LINENO" 5 - fi - PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i" - # this assumes it is in a VPATH dir - i=`basename $i` - # handle user calling this before or after TEA_SETUP_COMPILER - if test x"${OBJEXT}" != x ; then - j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}" - else - j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}" - fi - PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j" - done - - - -fi - - vars="" - for i in $vars; do - # check for existence, be strict because it is installed - if test ! -f "${srcdir}/$i" ; then - as_fn_error "could not find tcl source file '${srcdir}/$i'" "$LINENO" 5 - fi - PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i" - done - - - -#-------------------------------------------------------------------- -# __CHANGE__ -# A few miscellaneous platform-specific items: -# -# Define a special symbol for Windows (BUILD_sample in this case) so -# that we create the export library with the dll. -# -# Windows creates a few extra files that need to be cleaned up. -# You can add more files to clean if your extension creates any extra -# files. -# -# TEA_ADD_* any platform specific compiler/build info here. -#-------------------------------------------------------------------- - -# Add pkgIndex.tcl if it is generated in the Makefile instead of ./configure -# and change Makefile.in to move it from CONFIG_CLEAN_FILES to BINARIES var. -#CLEANFILES="pkgIndex.tcl" -if test "${TEA_PLATFORM}" = "windows" ; then - -$as_echo "#define BUILD_togl 1" >>confdefs.h - - CLEANFILES="$CLEANFILES *.lib *.dll *.exp *.ilk *.pdb vc*.pch *.manifest" - #TEA_ADD_SOURCES([win/winFile.c]) - #TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"]) -else - # Ensure no empty else clauses - : - CLEANFILES="so_locations" - #TEA_ADD_SOURCES([unix/unixFile.c]) - #TEA_ADD_LIBS([-lsuperfly]) -fi - - -#-------------------------------------------------------------------- -# __CHANGE__ -# Choose which headers you need. Extension authors should try very -# hard to only rely on the Tcl public header files. Internal headers -# contain private data structures and are subject to change without -# notice. -# This MUST be called after TEA_LOAD_TCLCONFIG / TEA_LOAD_TKCONFIG -#-------------------------------------------------------------------- - -# find Tcl, Tk, and X11 headers -#TEA_PUBLIC_TCL_HEADERS - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl public headers" >&5 -$as_echo_n "checking for Tcl public headers... " >&6; } - - -# Check whether --with-tclinclude was given. -if test "${with_tclinclude+set}" = set; then : - withval=$with_tclinclude; with_tclinclude=${withval} -fi - - - if test "${ac_cv_c_tclh+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - # Use the value from --with-tclinclude, if it was given - - if test x"${with_tclinclude}" != x ; then - if test -f "${with_tclinclude}/tcl.h" ; then - ac_cv_c_tclh=${with_tclinclude} - else - as_fn_error "${with_tclinclude} directory does not contain tcl.h" "$LINENO" 5 - fi - else - if test "`uname -s`" = "Darwin"; then - # If Tcl was built as a framework, attempt to use - # the framework's Headers directory - case ${TCL_DEFS} in - *TCL_FRAMEWORK*) - list="`ls -d ${TCL_BIN_DIR}/Headers 2>/dev/null`" - ;; - esac - fi - - # Look in the source dir only if Tcl is not installed, - # and in that situation, look there before installed locations. - if test -f "${TCL_BIN_DIR}/Makefile" ; then - list="$list `ls -d ${TCL_SRC_DIR}/generic 2>/dev/null`" - fi - - # Check order: pkg --prefix location, Tcl's --prefix location, - # relative to directory of tclConfig.sh. - - eval "temp_includedir=${includedir}" - list="$list \ - `ls -d ${temp_includedir} 2>/dev/null` \ - `ls -d ${TCL_PREFIX}/include 2>/dev/null` \ - `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`" - if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then - list="$list /usr/local/include /usr/include" - if test x"${TCL_INCLUDE_SPEC}" != x ; then - d=`echo "${TCL_INCLUDE_SPEC}" | sed -e 's/^-I//'` - list="$list `ls -d ${d} 2>/dev/null`" - fi - fi - for i in $list ; do - if test -f "$i/tcl.h" ; then - ac_cv_c_tclh=$i - break - fi - done - fi - -fi - - - # Print a message based on how we determined the include path - - if test x"${ac_cv_c_tclh}" = x ; then - as_fn_error "tcl.h not found. Please specify its location with --with-tclinclude" "$LINENO" 5 - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${ac_cv_c_tclh}" >&5 -$as_echo "${ac_cv_c_tclh}" >&6; } - fi - - # Convert to a native path and substitute into the output files. - - INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tclh}` - - TCL_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" - - - - - # Allow for --with-tclinclude to take effect and define ${ac_cv_c_tclh} - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl private include files" >&5 -$as_echo_n "checking for Tcl private include files... " >&6; } - - TCL_SRC_DIR_NATIVE=`${CYGPATH} ${TCL_SRC_DIR}` - TCL_TOP_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}\" - - # Check to see if tclPort.h isn't already with the public headers - # Don't look for tclInt.h because that resides with tcl.h in the core - # sources, but the Port headers are in a different directory - if test "${TEA_PLATFORM}" = "windows" -a \ - -f "${ac_cv_c_tclh}/tclWinPort.h"; then - result="private headers found with public headers" - elif test "${TEA_PLATFORM}" = "unix" -a \ - -f "${ac_cv_c_tclh}/tclUnixPort.h"; then - result="private headers found with public headers" - else - TCL_GENERIC_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/generic\" - if test "${TEA_PLATFORM}" = "windows"; then - TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/win\" - else - TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/unix\" - fi - # Overwrite the previous TCL_INCLUDES as this should capture both - # public and private headers in the same set. - # We want to ensure these are substituted so as not to require - # any *_NATIVE vars be defined in the Makefile - TCL_INCLUDES="-I${TCL_GENERIC_DIR_NATIVE} -I${TCL_PLATFORM_DIR_NATIVE}" - if test "`uname -s`" = "Darwin"; then - # If Tcl was built as a framework, attempt to use - # the framework's Headers and PrivateHeaders directories - case ${TCL_DEFS} in - *TCL_FRAMEWORK*) - if test -d "${TCL_BIN_DIR}/Headers" -a \ - -d "${TCL_BIN_DIR}/PrivateHeaders"; then - TCL_INCLUDES="-I\"${TCL_BIN_DIR}/Headers\" -I\"${TCL_BIN_DIR}/PrivateHeaders\" ${TCL_INCLUDES}" - else - TCL_INCLUDES="${TCL_INCLUDES} ${TCL_INCLUDE_SPEC} `echo "${TCL_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`" - fi - ;; - esac - result="Using ${TCL_INCLUDES}" - else - if test ! -f "${TCL_SRC_DIR}/generic/tclInt.h" ; then - as_fn_error "Cannot find private header tclInt.h in ${TCL_SRC_DIR}" "$LINENO" 5 - fi - result="Using srcdir found in tclConfig.sh: ${TCL_SRC_DIR}" - fi - fi - - - - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${result}" >&5 -$as_echo "${result}" >&6; } - - -#TEA_PUBLIC_TK_HEADERS - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tk public headers" >&5 -$as_echo_n "checking for Tk public headers... " >&6; } - - -# Check whether --with-tkinclude was given. -if test "${with_tkinclude+set}" = set; then : - withval=$with_tkinclude; with_tkinclude=${withval} -fi - - - if test "${ac_cv_c_tkh+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - # Use the value from --with-tkinclude, if it was given - - if test x"${with_tkinclude}" != x ; then - if test -f "${with_tkinclude}/tk.h" ; then - ac_cv_c_tkh=${with_tkinclude} - else - as_fn_error "${with_tkinclude} directory does not contain tk.h" "$LINENO" 5 - fi - else - if test "`uname -s`" = "Darwin"; then - # If Tk was built as a framework, attempt to use - # the framework's Headers directory. - case ${TK_DEFS} in - *TK_FRAMEWORK*) - list="`ls -d ${TK_BIN_DIR}/Headers 2>/dev/null`" - ;; - esac - fi - - # Look in the source dir only if Tk is not installed, - # and in that situation, look there before installed locations. - if test -f "${TK_BIN_DIR}/Makefile" ; then - list="$list `ls -d ${TK_SRC_DIR}/generic 2>/dev/null`" - fi - - # Check order: pkg --prefix location, Tk's --prefix location, - # relative to directory of tkConfig.sh, Tcl's --prefix location, - # relative to directory of tclConfig.sh. - - eval "temp_includedir=${includedir}" - list="$list \ - `ls -d ${temp_includedir} 2>/dev/null` \ - `ls -d ${TK_PREFIX}/include 2>/dev/null` \ - `ls -d ${TK_BIN_DIR}/../include 2>/dev/null` \ - `ls -d ${TCL_PREFIX}/include 2>/dev/null` \ - `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`" - if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then - list="$list /usr/local/include /usr/include" - fi - for i in $list ; do - if test -f "$i/tk.h" ; then - ac_cv_c_tkh=$i - break - fi - done - fi - -fi - - - # Print a message based on how we determined the include path - - if test x"${ac_cv_c_tkh}" = x ; then - as_fn_error "tk.h not found. Please specify its location with --with-tkinclude" "$LINENO" 5 - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${ac_cv_c_tkh}" >&5 -$as_echo "${ac_cv_c_tkh}" >&6; } - fi - - # Convert to a native path and substitute into the output files. - - INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tkh}` - - TK_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" - - - - if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then - # On Windows and Aqua, we need the X compat headers - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for X11 header files" >&5 -$as_echo_n "checking for X11 header files... " >&6; } - if test ! -r "${INCLUDE_DIR_NATIVE}/X11/Xlib.h"; then - INCLUDE_DIR_NATIVE="`${CYGPATH} ${TK_SRC_DIR}/xlib`" - TK_XINCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" - - fi - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${INCLUDE_DIR_NATIVE}" >&5 -$as_echo "${INCLUDE_DIR_NATIVE}" >&6; } - fi - - - # Allow for --with-tkinclude to take effect and define ${ac_cv_c_tkh} - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tk private include files" >&5 -$as_echo_n "checking for Tk private include files... " >&6; } - - TK_SRC_DIR_NATIVE=`${CYGPATH} ${TK_SRC_DIR}` - TK_TOP_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}\" - - # Check to see if tkPort.h isn't already with the public headers - # Don't look for tkInt.h because that resides with tk.h in the core - # sources, but the Port headers are in a different directory - if test "${TEA_PLATFORM}" = "windows" -a \ - -f "${ac_cv_c_tkh}/tkWinPort.h"; then - result="private headers found with public headers" - elif test "${TEA_PLATFORM}" = "unix" -a \ - -f "${ac_cv_c_tkh}/tkUnixPort.h"; then - result="private headers found with public headers" - else - TK_GENERIC_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/generic\" - TK_XLIB_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/xlib\" - if test "${TEA_PLATFORM}" = "windows"; then - TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/win\" - else - TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/unix\" - fi - # Overwrite the previous TK_INCLUDES as this should capture both - # public and private headers in the same set. - # We want to ensure these are substituted so as not to require - # any *_NATIVE vars be defined in the Makefile - TK_INCLUDES="-I${TK_GENERIC_DIR_NATIVE} -I${TK_PLATFORM_DIR_NATIVE}" - # Detect and add ttk subdir - if test -d "${TK_SRC_DIR}/generic/ttk"; then - TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/generic/ttk\"" - fi - if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then - TK_INCLUDES="${TK_INCLUDES} -I${TK_XLIB_DIR_NATIVE}" - fi - if test "${TEA_WINDOWINGSYSTEM}" = "aqua"; then - TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/macosx\"" - fi - if test "`uname -s`" = "Darwin"; then - # If Tk was built as a framework, attempt to use - # the framework's Headers and PrivateHeaders directories - case ${TK_DEFS} in - *TK_FRAMEWORK*) - if test -d "${TK_BIN_DIR}/Headers" -a \ - -d "${TK_BIN_DIR}/PrivateHeaders"; then - TK_INCLUDES="-I\"${TK_BIN_DIR}/Headers\" -I\"${TK_BIN_DIR}/PrivateHeaders\" ${TK_INCLUDES}" - else - TK_INCLUDES="${TK_INCLUDES} ${TK_INCLUDE_SPEC} `echo "${TK_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`" - fi - ;; - esac - result="Using ${TK_INCLUDES}" - else - if test ! -f "${TK_SRC_DIR}/generic/tkInt.h" ; then - as_fn_error "Cannot find private header tkInt.h in ${TK_SRC_DIR}" "$LINENO" 5 - fi - result="Using srcdir found in tkConfig.sh: ${TK_SRC_DIR}" - fi - fi - - - - - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${result}" >&5 -$as_echo "${result}" >&6; } - - - if test "${TEA_WINDOWINGSYSTEM}" = "x11" ; then - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for X" >&5 -$as_echo_n "checking for X... " >&6; } - - -# Check whether --with-x was given. -if test "${with_x+set}" = set; then : - withval=$with_x; -fi - -# $have_x is `yes', `no', `disabled', or empty when we do not yet know. -if test "x$with_x" = xno; then - # The user explicitly disabled X. - have_x=disabled -else - case $x_includes,$x_libraries in #( - *\'*) as_fn_error "cannot use X directory names containing '" "$LINENO" 5;; #( - *,NONE | NONE,*) if test "${ac_cv_have_x+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - # One or both of the vars are not set, and there is no cached value. -ac_x_includes=no ac_x_libraries=no -rm -f -r conftest.dir -if mkdir conftest.dir; then - cd conftest.dir - cat >Imakefile <<'_ACEOF' -incroot: - @echo incroot='${INCROOT}' -usrlibdir: - @echo usrlibdir='${USRLIBDIR}' -libdir: - @echo libdir='${LIBDIR}' -_ACEOF - if (export CC; ${XMKMF-xmkmf}) >/dev/null 2>/dev/null && test -f Makefile; then - # GNU make sometimes prints "make[1]: Entering...", which would confuse us. - for ac_var in incroot usrlibdir libdir; do - eval "ac_im_$ac_var=\`\${MAKE-make} $ac_var 2>/dev/null | sed -n 's/^$ac_var=//p'\`" - done - # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR. - for ac_extension in a so sl dylib la dll; do - if test ! -f "$ac_im_usrlibdir/libX11.$ac_extension" && - test -f "$ac_im_libdir/libX11.$ac_extension"; then - ac_im_usrlibdir=$ac_im_libdir; break - fi - done - # Screen out bogus values from the imake configuration. They are - # bogus both because they are the default anyway, and because - # using them would break gcc on systems where it needs fixed includes. - case $ac_im_incroot in - /usr/include) ac_x_includes= ;; - *) test -f "$ac_im_incroot/X11/Xos.h" && ac_x_includes=$ac_im_incroot;; - esac - case $ac_im_usrlibdir in - /usr/lib | /usr/lib64 | /lib | /lib64) ;; - *) test -d "$ac_im_usrlibdir" && ac_x_libraries=$ac_im_usrlibdir ;; - esac - fi - cd .. - rm -f -r conftest.dir -fi - -# Standard set of common directories for X headers. -# Check X11 before X11Rn because it is often a symlink to the current release. -ac_x_header_dirs=' -/usr/X11/include -/usr/X11R7/include -/usr/X11R6/include -/usr/X11R5/include -/usr/X11R4/include - -/usr/include/X11 -/usr/include/X11R7 -/usr/include/X11R6 -/usr/include/X11R5 -/usr/include/X11R4 - -/usr/local/X11/include -/usr/local/X11R7/include -/usr/local/X11R6/include -/usr/local/X11R5/include -/usr/local/X11R4/include - -/usr/local/include/X11 -/usr/local/include/X11R7 -/usr/local/include/X11R6 -/usr/local/include/X11R5 -/usr/local/include/X11R4 - -/usr/X386/include -/usr/x386/include -/usr/XFree86/include/X11 - -/usr/include -/usr/local/include -/usr/unsupported/include -/usr/athena/include -/usr/local/x11r5/include -/usr/lpp/Xamples/include - -/usr/openwin/include -/usr/openwin/share/include' - -if test "$ac_x_includes" = no; then - # Guess where to find include files, by looking for Xlib.h. - # First, try using that file with no special directory specified. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - # We can compile using X headers with no special include directory. -ac_x_includes= -else - for ac_dir in $ac_x_header_dirs; do - if test -r "$ac_dir/X11/Xlib.h"; then - ac_x_includes=$ac_dir - break - fi -done -fi -rm -f conftest.err conftest.$ac_ext -fi # $ac_x_includes = no - -if test "$ac_x_libraries" = no; then - # Check for the libraries. - # See if we find them without any special options. - # Don't add to $LIBS permanently. - ac_save_LIBS=$LIBS - LIBS="-lX11 $LIBS" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -XrmInitialize () - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - LIBS=$ac_save_LIBS -# We can link X programs with no special library path. -ac_x_libraries= -else - LIBS=$ac_save_LIBS -for ac_dir in `$as_echo "$ac_x_includes $ac_x_header_dirs" | sed s/include/lib/g` -do - # Don't even attempt the hair of trying to link an X program! - for ac_extension in a so sl dylib la dll; do - if test -r "$ac_dir/libX11.$ac_extension"; then - ac_x_libraries=$ac_dir - break 2 - fi - done -done -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi # $ac_x_libraries = no - -case $ac_x_includes,$ac_x_libraries in #( - no,* | *,no | *\'*) - # Didn't find X, or a directory has "'" in its name. - ac_cv_have_x="have_x=no";; #( - *) - # Record where we found X for the cache. - ac_cv_have_x="have_x=yes\ - ac_x_includes='$ac_x_includes'\ - ac_x_libraries='$ac_x_libraries'" -esac -fi -;; #( - *) have_x=yes;; - esac - eval "$ac_cv_have_x" -fi # $with_x != no - -if test "$have_x" != yes; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $have_x" >&5 -$as_echo "$have_x" >&6; } - no_x=yes -else - # If each of the values was on the command line, it overrides each guess. - test "x$x_includes" = xNONE && x_includes=$ac_x_includes - test "x$x_libraries" = xNONE && x_libraries=$ac_x_libraries - # Update the cache value to reflect the command line values. - ac_cv_have_x="have_x=yes\ - ac_x_includes='$x_includes'\ - ac_x_libraries='$x_libraries'" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: libraries $x_libraries, headers $x_includes" >&5 -$as_echo "libraries $x_libraries, headers $x_includes" >&6; } -fi - - not_really_there="" - if test "$no_x" = ""; then - if test "$x_includes" = ""; then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - -else - not_really_there="yes" -fi -rm -f conftest.err conftest.$ac_ext - else - if test ! -r $x_includes/X11/Intrinsic.h; then - not_really_there="yes" - fi - fi - fi - if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for X11 header files" >&5 -$as_echo_n "checking for X11 header files... " >&6; } - found_xincludes="no" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - found_xincludes="yes" -else - found_xincludes="no" -fi -rm -f conftest.err conftest.$ac_ext - if test "$found_xincludes" = "no"; then - dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/X11R6/include /usr/X11R5/include /usr/include/X11R5 /usr/include/X11R4 /usr/openwin/include /usr/X11/include /usr/sww/include" - for i in $dirs ; do - if test -r $i/X11/Intrinsic.h; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $i" >&5 -$as_echo "$i" >&6; } - XINCLUDES=" -I$i" - found_xincludes="yes" - break - fi - done - fi - else - if test "$x_includes" != ""; then - XINCLUDES="-I$x_includes" - found_xincludes="yes" - fi - fi - if test found_xincludes = "no"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: couldn't find any!" >&5 -$as_echo "couldn't find any!" >&6; } - fi - - if test "$no_x" = yes; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for X11 libraries" >&5 -$as_echo_n "checking for X11 libraries... " >&6; } - XLIBSW=nope - dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/X11R6/lib /usr/X11R5/lib /usr/lib/X11R5 /usr/lib/X11R4 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib" - for i in $dirs ; do - if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl -o -r $i/libX11.dylib; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $i" >&5 -$as_echo "$i" >&6; } - XLIBSW="-L$i -lX11" - x_libraries="$i" - break - fi - done - else - if test "$x_libraries" = ""; then - XLIBSW=-lX11 - else - XLIBSW="-L$x_libraries -lX11" - fi - fi - if test "$XLIBSW" = nope ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XCreateWindow in -lXwindow" >&5 -$as_echo_n "checking for XCreateWindow in -lXwindow... " >&6; } -if test "${ac_cv_lib_Xwindow_XCreateWindow+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lXwindow $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char XCreateWindow (); -int -main () -{ -return XCreateWindow (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_Xwindow_XCreateWindow=yes -else - ac_cv_lib_Xwindow_XCreateWindow=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xwindow_XCreateWindow" >&5 -$as_echo "$ac_cv_lib_Xwindow_XCreateWindow" >&6; } -if test "x$ac_cv_lib_Xwindow_XCreateWindow" = x""yes; then : - XLIBSW=-lXwindow -fi - - fi - if test "$XLIBSW" = nope ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find any! Using -lX11." >&5 -$as_echo "could not find any! Using -lX11." >&6; } - XLIBSW=-lX11 - fi - # TEA specific: - if test x"${XLIBSW}" != x ; then - PKG_LIBS="${PKG_LIBS} ${XLIBSW}" - fi - - fi - - -# find autostereo header, lib, and daemon - -# Check whether --with-autostereo was given. -if test "${with_autostereo+set}" = set; then : - withval=$with_autostereo; with_autostereo=${withval} -fi - - -# Check whether --with-autostereod was given. -if test "${with_autostereod+set}" = set; then : - withval=$with_autostereod; with_autostereod=${withval} -fi - - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for autostereo directory" >&5 -$as_echo_n "checking for autostereo directory... " >&6; } -if test x"${with_autostereo}" != x ; then - if test -f "${with_autostereo}/lib/autostereo.h" ; then - with_autostereo=`(cd ${with_autostereo}; pwd)` - - vars="-I${with_autostereo}/lib" - for i in $vars; do - PKG_INCLUDES="$PKG_INCLUDES $i" - done - - - - vars="-L${with_autostereo}/lib -lautostereo" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - -cat >>confdefs.h <<_ACEOF -#define HAVE_AUTOSTEREO 1 -_ACEOF - - else - as_fn_error "${with_autostereo} directory doesn't contain lib/autostereo.h" "$LINENO" 5 - fi -fi - -# Extract the first word of "autostereod", so it can be a program name with args. -set dummy autostereod; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_path_AUTOSTEREOD+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - case $AUTOSTEREOD in - [\\/]* | ?:[\\/]*) - ac_cv_path_AUTOSTEREOD="$AUTOSTEREOD" # Let the user override the test with a path. - ;; - *) - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_dummy="`eval \"echo $sbindir\"`:$PATH:/sbin:/usr/sbin" -for as_dir in $as_dummy -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_path_AUTOSTEREOD="$as_dir/$ac_word$ac_exec_ext" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - - ;; -esac -fi -AUTOSTEREOD=$ac_cv_path_AUTOSTEREOD -if test -n "$AUTOSTEREOD"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AUTOSTEREOD" >&5 -$as_echo "$AUTOSTEREOD" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - - -# Choose OpenGL platform -case "${TEA_WINDOWINGSYSTEM}" in - aqua) - TOGL_WINDOWINGSYSTEM=TOGL_NSOPENGL - CFLAGS="-ObjC" - - -# vars="-framework AGL -framework OpenGL -framework ApplicationServices" - vars="-framework OpenGL -framework AppKit -framework ApplicationServices" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - # libGLU is implicit in OpenGL framework - LIBGLU= - ;; - - x11) - TOGL_WINDOWINGSYSTEM=TOGL_X11 - - -# Check whether --with-Xmu was given. -if test "${with_Xmu+set}" = set; then : - withval=$with_Xmu; -else - with_Xmu=no -fi - - if test "x$with_Xmu" != xno; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XmuLookupStandardColormap in -lXmu" >&5 -$as_echo_n "checking for XmuLookupStandardColormap in -lXmu... " >&6; } -if test "${ac_cv_lib_Xmu_XmuLookupStandardColormap+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lXmu -lXt -lX11 - $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char XmuLookupStandardColormap (); -int -main () -{ -return XmuLookupStandardColormap (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_Xmu_XmuLookupStandardColormap=yes -else - ac_cv_lib_Xmu_XmuLookupStandardColormap=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xmu_XmuLookupStandardColormap" >&5 -$as_echo "$ac_cv_lib_Xmu_XmuLookupStandardColormap" >&6; } -if test "x$ac_cv_lib_Xmu_XmuLookupStandardColormap" = x""yes; then : - - vars="-lXmu" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - -$as_echo "#define USE_SYSTEM_LIBXMU 1" >>confdefs.h - - -else - with_Xmu=no -fi - -fi - if test "x$with_Xmu" = xno; then : - - vars="Xmu/CmapAlloc.c Xmu/CrCmap.c Xmu/DelCmap.c Xmu/LookupCmap.c Xmu/StdCmap.c" - for i in $vars; do - case $i in - \$*) - # allow $-var names - PKG_SOURCES="$PKG_SOURCES $i" - PKG_OBJECTS="$PKG_OBJECTS $i" - ;; - *) - # check for existence - allows for generic/win/unix VPATH - # To add more dirs here (like 'src'), you have to update VPATH - # in Makefile.in as well - if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ - -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ - ; then - as_fn_error "could not find source file '$i'" "$LINENO" 5 - fi - PKG_SOURCES="$PKG_SOURCES $i" - # this assumes it is in a VPATH dir - i=`basename $i` - # handle user calling this before or after TEA_SETUP_COMPILER - if test x"${OBJEXT}" != x ; then - j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}" - else - j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}" - fi - PKG_OBJECTS="$PKG_OBJECTS $j" - ;; - esac - done - - - -fi - - vars="-lGL" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - LIBGLU=-lGLU - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if GLX_GLXEXT_LEGACY interfers with including GL/glxext.h" >&5 -$as_echo_n "checking if GLX_GLXEXT_LEGACY interfers with including GL/glxext.h... " >&6; } - ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - ac_save_CFLAGS=$CFLAGS - CFLAGS=$TK_XINCLUDES - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#define GLX_GLXEXT_LEGACY -#include -#undef GLX_VERSION_1_3 -#undef GLX_VERSION_1_4 -#include -int main() { return 0; } - -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } - $as_echo "#define UNDEF_GET_PROC_ADDRESS 1" >>confdefs.h - -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - CFLAGS=$ac_save_CFLAGS - ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - ;; - win32) - TOGL_WINDOWINGSYSTEM=TOGL_WGL - - - vars="opengl32.lib user32.lib gdi32.lib" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - if test "$GCC" = "yes" ; then - LIBGLU=-lglu32 - else - # assume Microsoft compiler - LIBGLU=glu32.lib - fi - ;; - *) - as_fn_error "Unsupported windowing system: ${TEA_WINDOWINGSYSTEM}" "$LINENO" 5 - ;; -esac - - - -#-------------------------------------------------------------------- -# Check whether --enable-threads or --disable-threads was given. -# This auto-enables if Tcl was compiled threaded. -#-------------------------------------------------------------------- - - - # Check whether --enable-threads was given. -if test "${enable_threads+set}" = set; then : - enableval=$enable_threads; tcl_ok=$enableval -else - tcl_ok=yes -fi - - - if test "${enable_threads+set}" = set; then - enableval="$enable_threads" - tcl_ok=$enableval - else - tcl_ok=yes - fi - - if test "$tcl_ok" = "yes" -o "${TCL_THREADS}" = 1; then - TCL_THREADS=1 - - if test "${TEA_PLATFORM}" != "windows" ; then - # We are always OK on Windows, so check what this platform wants: - - # USE_THREAD_ALLOC tells us to try the special thread-based - # allocator that significantly reduces lock contention - -$as_echo "#define USE_THREAD_ALLOC 1" >>confdefs.h - - -$as_echo "#define _REENTRANT 1" >>confdefs.h - - if test "`uname -s`" = "SunOS" ; then - -$as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h - - fi - -$as_echo "#define _THREAD_SAFE 1" >>confdefs.h - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_mutex_init in -lpthread" >&5 -$as_echo_n "checking for pthread_mutex_init in -lpthread... " >&6; } -if test "${ac_cv_lib_pthread_pthread_mutex_init+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lpthread $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char pthread_mutex_init (); -int -main () -{ -return pthread_mutex_init (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_pthread_pthread_mutex_init=yes -else - ac_cv_lib_pthread_pthread_mutex_init=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_mutex_init" >&5 -$as_echo "$ac_cv_lib_pthread_pthread_mutex_init" >&6; } -if test "x$ac_cv_lib_pthread_pthread_mutex_init" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - if test "$tcl_ok" = "no"; then - # Check a little harder for __pthread_mutex_init in the same - # library, as some systems hide it there until pthread.h is - # defined. We could alternatively do an AC_TRY_COMPILE with - # pthread.h, but that will work with libpthread really doesn't - # exist, like AIX 4.2. [Bug: 4359] - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for __pthread_mutex_init in -lpthread" >&5 -$as_echo_n "checking for __pthread_mutex_init in -lpthread... " >&6; } -if test "${ac_cv_lib_pthread___pthread_mutex_init+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lpthread $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char __pthread_mutex_init (); -int -main () -{ -return __pthread_mutex_init (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_pthread___pthread_mutex_init=yes -else - ac_cv_lib_pthread___pthread_mutex_init=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread___pthread_mutex_init" >&5 -$as_echo "$ac_cv_lib_pthread___pthread_mutex_init" >&6; } -if test "x$ac_cv_lib_pthread___pthread_mutex_init" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - fi - - if test "$tcl_ok" = "yes"; then - # The space is needed - THREADS_LIBS=" -lpthread" - else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_mutex_init in -lpthreads" >&5 -$as_echo_n "checking for pthread_mutex_init in -lpthreads... " >&6; } -if test "${ac_cv_lib_pthreads_pthread_mutex_init+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lpthreads $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char pthread_mutex_init (); -int -main () -{ -return pthread_mutex_init (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_pthreads_pthread_mutex_init=yes -else - ac_cv_lib_pthreads_pthread_mutex_init=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthreads_pthread_mutex_init" >&5 -$as_echo "$ac_cv_lib_pthreads_pthread_mutex_init" >&6; } -if test "x$ac_cv_lib_pthreads_pthread_mutex_init" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - if test "$tcl_ok" = "yes"; then - # The space is needed - THREADS_LIBS=" -lpthreads" - else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_mutex_init in -lc" >&5 -$as_echo_n "checking for pthread_mutex_init in -lc... " >&6; } -if test "${ac_cv_lib_c_pthread_mutex_init+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lc $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char pthread_mutex_init (); -int -main () -{ -return pthread_mutex_init (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_c_pthread_mutex_init=yes -else - ac_cv_lib_c_pthread_mutex_init=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_pthread_mutex_init" >&5 -$as_echo "$ac_cv_lib_c_pthread_mutex_init" >&6; } -if test "x$ac_cv_lib_c_pthread_mutex_init" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - if test "$tcl_ok" = "no"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_mutex_init in -lc_r" >&5 -$as_echo_n "checking for pthread_mutex_init in -lc_r... " >&6; } -if test "${ac_cv_lib_c_r_pthread_mutex_init+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lc_r $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char pthread_mutex_init (); -int -main () -{ -return pthread_mutex_init (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_c_r_pthread_mutex_init=yes -else - ac_cv_lib_c_r_pthread_mutex_init=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_r_pthread_mutex_init" >&5 -$as_echo "$ac_cv_lib_c_r_pthread_mutex_init" >&6; } -if test "x$ac_cv_lib_c_r_pthread_mutex_init" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - if test "$tcl_ok" = "yes"; then - # The space is needed - THREADS_LIBS=" -pthread" - else - TCL_THREADS=0 - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Do not know how to find pthread lib on your system - thread support disabled" >&5 -$as_echo "$as_me: WARNING: Do not know how to find pthread lib on your system - thread support disabled" >&2;} - fi - fi - fi - fi - fi - else - TCL_THREADS=0 - fi - # Do checking message here to not mess up interleaved configure output - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for building with threads" >&5 -$as_echo_n "checking for building with threads... " >&6; } - if test "${TCL_THREADS}" = 1; then - -$as_echo "#define TCL_THREADS 1" >>confdefs.h - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes (default)" >&5 -$as_echo "yes (default)" >&6; } - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } - fi - # TCL_THREADS sanity checking. See if our request for building with - # threads is the same as the way Tcl was built. If not, warn the user. - case ${TCL_DEFS} in - *THREADS=1*) - if test "${TCL_THREADS}" = "0"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: - Building ${PACKAGE_NAME} without threads enabled, but building against Tcl - that IS thread-enabled. It is recommended to use --enable-threads." >&5 -$as_echo "$as_me: WARNING: - Building ${PACKAGE_NAME} without threads enabled, but building against Tcl - that IS thread-enabled. It is recommended to use --enable-threads." >&2;} - fi - ;; - *) - if test "${TCL_THREADS}" = "1"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: - --enable-threads requested, but building against a Tcl that is NOT - thread-enabled. This is an OK configuration that will also run in - a thread-enabled core." >&5 -$as_echo "$as_me: WARNING: - --enable-threads requested, but building against a Tcl that is NOT - thread-enabled. This is an OK configuration that will also run in - a thread-enabled core." >&2;} - fi - ;; - esac - - - -#-------------------------------------------------------------------- -# The statement below defines a collection of symbols related to -# building as a shared library instead of a static library. -#-------------------------------------------------------------------- - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to build libraries" >&5 -$as_echo_n "checking how to build libraries... " >&6; } - # Check whether --enable-shared was given. -if test "${enable_shared+set}" = set; then : - enableval=$enable_shared; tcl_ok=$enableval -else - tcl_ok=yes -fi - - - if test "${enable_shared+set}" = set; then - enableval="$enable_shared" - tcl_ok=$enableval - else - tcl_ok=yes - fi - - if test "$tcl_ok" = "yes" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: shared" >&5 -$as_echo "shared" >&6; } - SHARED_BUILD=1 - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: static" >&5 -$as_echo "static" >&6; } - SHARED_BUILD=0 - -$as_echo "#define STATIC_BUILD 1" >>confdefs.h - - fi - - - -#-------------------------------------------------------------------- -# This macro figures out what flags to use with the compiler/linker -# when building shared/static debug/optimized objects. This information -# can be taken from the tclConfig.sh file, but this figures it all out. -#-------------------------------------------------------------------- - - - - - # Step 0.a: Enable 64 bit support? - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if 64bit support is requested" >&5 -$as_echo_n "checking if 64bit support is requested... " >&6; } - # Check whether --enable-64bit was given. -if test "${enable_64bit+set}" = set; then : - enableval=$enable_64bit; do64bit=$enableval -else - do64bit=no -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $do64bit" >&5 -$as_echo "$do64bit" >&6; } - - # Step 0.b: Enable Solaris 64 bit VIS support? - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if 64bit Sparc VIS support is requested" >&5 -$as_echo_n "checking if 64bit Sparc VIS support is requested... " >&6; } - # Check whether --enable-64bit-vis was given. -if test "${enable_64bit_vis+set}" = set; then : - enableval=$enable_64bit_vis; do64bitVIS=$enableval -else - do64bitVIS=no -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $do64bitVIS" >&5 -$as_echo "$do64bitVIS" >&6; } - # Force 64bit on with VIS - if test "$do64bitVIS" = "yes"; then : - do64bit=yes -fi - - # Step 0.c: Check if visibility support is available. Do this here so - # that platform specific alternatives can be used below if this fails. - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if compiler supports visibility \"hidden\"" >&5 -$as_echo_n "checking if compiler supports visibility \"hidden\"... " >&6; } -if test "${tcl_cv_cc_visibility_hidden+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -Werror" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - - extern __attribute__((__visibility__("hidden"))) void f(void); - void f(void) {} -int -main () -{ -f(); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_cc_visibility_hidden=yes -else - tcl_cv_cc_visibility_hidden=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - CFLAGS=$hold_cflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_visibility_hidden" >&5 -$as_echo "$tcl_cv_cc_visibility_hidden" >&6; } - if test $tcl_cv_cc_visibility_hidden = yes; then : - - -$as_echo "#define MODULE_SCOPE extern __attribute__((__visibility__(\"hidden\")))" >>confdefs.h - - -fi - - # Step 0.d: Disable -rpath support? - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if rpath support is requested" >&5 -$as_echo_n "checking if rpath support is requested... " >&6; } - # Check whether --enable-rpath was given. -if test "${enable_rpath+set}" = set; then : - enableval=$enable_rpath; doRpath=$enableval -else - doRpath=yes -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $doRpath" >&5 -$as_echo "$doRpath" >&6; } - - # TEA specific: Cross-compiling options for Windows/CE builds? - - if test "${TEA_PLATFORM}" = windows; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if Windows/CE build is requested" >&5 -$as_echo_n "checking if Windows/CE build is requested... " >&6; } - # Check whether --enable-wince was given. -if test "${enable_wince+set}" = set; then : - enableval=$enable_wince; doWince=$enableval -else - doWince=no -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $doWince" >&5 -$as_echo "$doWince" >&6; } - -fi - - # Step 1: set the variable "system" to hold the name and version number - # for the system. - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking system version" >&5 -$as_echo_n "checking system version... " >&6; } -if test "${tcl_cv_sys_version+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - # TEA specific: - if test "${TEA_PLATFORM}" = "windows" ; then - tcl_cv_sys_version=windows - elif test -f /usr/lib/NextStep/software_version; then - tcl_cv_sys_version=NEXTSTEP-`awk '/3/,/3/' /usr/lib/NextStep/software_version` - else - tcl_cv_sys_version=`uname -s`-`uname -r` - if test "$?" -ne 0 ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: can't find uname command" >&5 -$as_echo "$as_me: WARNING: can't find uname command" >&2;} - tcl_cv_sys_version=unknown - else - # Special check for weird MP-RAS system (uname returns weird - # results, and the version is kept in special file). - - if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then - tcl_cv_sys_version=MP-RAS-`awk '{print $3}' /etc/.relid` - fi - if test "`uname -s`" = "AIX" ; then - tcl_cv_sys_version=AIX-`uname -v`.`uname -r` - fi - fi - fi - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_sys_version" >&5 -$as_echo "$tcl_cv_sys_version" >&6; } - system=$tcl_cv_sys_version - - - # Step 2: check for existence of -ldl library. This is needed because - # Linux can use either -ldl or -ldld for dynamic loading. - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 -$as_echo_n "checking for dlopen in -ldl... " >&6; } -if test "${ac_cv_lib_dl_dlopen+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-ldl $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char dlopen (); -int -main () -{ -return dlopen (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_dl_dlopen=yes -else - ac_cv_lib_dl_dlopen=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 -$as_echo "$ac_cv_lib_dl_dlopen" >&6; } -if test "x$ac_cv_lib_dl_dlopen" = x""yes; then : - have_dl=yes -else - have_dl=no -fi - - - # Require ranlib early so we can override it in special cases below. - - - - # Step 3: set configuration options based on system name and version. - # This is similar to Tcl's unix/tcl.m4 except that we've added a - # "windows" case. - - do64bit_ok=no - LDFLAGS_ORIG="$LDFLAGS" - # When ld needs options to work in 64-bit mode, put them in - # LDFLAGS_ARCH so they eventually end up in LDFLAGS even if [load] - # is disabled by the user. [Bug 1016796] - LDFLAGS_ARCH="" - TCL_EXPORT_FILE_SUFFIX="" - UNSHARED_LIB_SUFFIX="" - # TEA specific: use PACKAGE_VERSION instead of VERSION - TCL_TRIM_DOTS='`echo ${PACKAGE_VERSION} | tr -d .`' - ECHO_VERSION='`echo ${PACKAGE_VERSION}`' - TCL_LIB_VERSIONS_OK=ok - CFLAGS_DEBUG=-g - CFLAGS_OPTIMIZE=-O - if test "$GCC" = yes; then : - - # TEA specific: - CFLAGS_OPTIMIZE=-O2 - CFLAGS_WARNING="-Wall -Wno-implicit-int" - -else - CFLAGS_WARNING="" -fi - TCL_NEEDS_EXP_FILE=0 - TCL_BUILD_EXP_FILE="" - TCL_EXP_FILE="" - # Extract the first word of "ar", so it can be a program name with args. -set dummy ar; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if test "${ac_cv_prog_AR+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$AR"; then - ac_cv_prog_AR="$AR" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_AR="ar" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -AR=$ac_cv_prog_AR -if test -n "$AR"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 -$as_echo "$AR" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - STLIB_LD='${AR} cr' - LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH" - case $system in - # TEA specific: - windows) - # This is a 2-stage check to make sure we have the 64-bit SDK - # We have to know where the SDK is installed. - # This magic is based on MS Platform SDK for Win2003 SP1 - hobbs - # MACHINE is IX86 for LINK, but this is used by the manifest, - # which requires x86|amd64|ia64. - MACHINE="X86" - if test "$do64bit" != "no" ; then - if test "x${MSSDK}x" = "xx" ; then - MSSDK="C:/Progra~1/Microsoft Platform SDK" - fi - MSSDK=`echo "$MSSDK" | sed -e 's!\\\!/!g'` - PATH64="" - case "$do64bit" in - amd64|x64|yes) - MACHINE="AMD64" ; # default to AMD64 64-bit build - PATH64="${MSSDK}/Bin/Win64/x86/AMD64" - ;; - ia64) - MACHINE="IA64" - PATH64="${MSSDK}/Bin/Win64" - ;; - esac - if test ! -d "${PATH64}" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Could not find 64-bit $MACHINE SDK to enable 64bit mode" >&5 -$as_echo "$as_me: WARNING: Could not find 64-bit $MACHINE SDK to enable 64bit mode" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Ensure latest Platform SDK is installed" >&5 -$as_echo "$as_me: WARNING: Ensure latest Platform SDK is installed" >&2;} - do64bit="no" - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: Using 64-bit $MACHINE mode" >&5 -$as_echo " Using 64-bit $MACHINE mode" >&6; } - do64bit_ok="yes" - fi - fi - - if test "$doWince" != "no" ; then - if test "$do64bit" != "no" ; then - as_fn_error "Windows/CE and 64-bit builds incompatible" "$LINENO" 5 - fi - if test "$GCC" = "yes" ; then - as_fn_error "Windows/CE and GCC builds incompatible" "$LINENO" 5 - fi - - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-celib - - if test x"${no_celib}" = x ; then - # we reset no_celib in case something fails here - no_celib=true - -# Check whether --with-celib was given. -if test "${with_celib+set}" = set; then : - withval=$with_celib; with_celibconfig=${withval} -fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Windows/CE celib directory" >&5 -$as_echo_n "checking for Windows/CE celib directory... " >&6; } - if test "${ac_cv_c_celibconfig+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - # First check to see if --with-celibconfig was specified. - if test x"${with_celibconfig}" != x ; then - if test -d "${with_celibconfig}/inc" ; then - ac_cv_c_celibconfig=`(cd ${with_celibconfig}; pwd)` - else - as_fn_error "${with_celibconfig} directory doesn't contain inc directory" "$LINENO" 5 - fi - fi - - # then check for a celib library - if test x"${ac_cv_c_celibconfig}" = x ; then - for i in \ - ../celib-palm-3.0 \ - ../celib \ - ../../celib-palm-3.0 \ - ../../celib \ - `ls -dr ../celib-*3.[0-9]* 2>/dev/null` \ - ${srcdir}/../celib-palm-3.0 \ - ${srcdir}/../celib \ - `ls -dr ${srcdir}/../celib-*3.[0-9]* 2>/dev/null` \ - ; do - if test -d "$i/inc" ; then - ac_cv_c_celibconfig=`(cd $i; pwd)` - break - fi - done - fi - -fi - - if test x"${ac_cv_c_celibconfig}" = x ; then - as_fn_error "Cannot find celib support library directory" "$LINENO" 5 - else - no_celib= - CELIB_DIR=${ac_cv_c_celibconfig} - CELIB_DIR=`echo "$CELIB_DIR" | sed -e 's!\\\!/!g'` - { $as_echo "$as_me:${as_lineno-$LINENO}: result: found $CELIB_DIR" >&5 -$as_echo "found $CELIB_DIR" >&6; } - fi - fi - - # Set defaults for common evc4/PPC2003 setup - # Currently Tcl requires 300+, possibly 420+ for sockets - CEVERSION=420; # could be 211 300 301 400 420 ... - TARGETCPU=ARMV4; # could be ARMV4 ARM MIPS SH3 X86 ... - ARCH=ARM; # could be ARM MIPS X86EM ... - PLATFORM="Pocket PC 2003"; # or "Pocket PC 2002" - if test "$doWince" != "yes"; then - # If !yes then the user specified something - # Reset ARCH to allow user to skip specifying it - ARCH= - eval `echo $doWince | awk -F, '{ \ - if (length($1)) { printf "CEVERSION=\"%s\"\n", $1; \ - if ($1 < 400) { printf "PLATFORM=\"Pocket PC 2002\"\n" } }; \ - if (length($2)) { printf "TARGETCPU=\"%s\"\n", toupper($2) }; \ - if (length($3)) { printf "ARCH=\"%s\"\n", toupper($3) }; \ - if (length($4)) { printf "PLATFORM=\"%s\"\n", $4 }; \ - }'` - if test "x${ARCH}" = "x" ; then - ARCH=$TARGETCPU; - fi - fi - OSVERSION=WCE$CEVERSION; - if test "x${WCEROOT}" = "x" ; then - WCEROOT="C:/Program Files/Microsoft eMbedded C++ 4.0" - if test ! -d "${WCEROOT}" ; then - WCEROOT="C:/Program Files/Microsoft eMbedded Tools" - fi - fi - if test "x${SDKROOT}" = "x" ; then - SDKROOT="C:/Program Files/Windows CE Tools" - if test ! -d "${SDKROOT}" ; then - SDKROOT="C:/Windows CE Tools" - fi - fi - WCEROOT=`echo "$WCEROOT" | sed -e 's!\\\!/!g'` - SDKROOT=`echo "$SDKROOT" | sed -e 's!\\\!/!g'` - if test ! -d "${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" \ - -o ! -d "${WCEROOT}/EVC/${OSVERSION}/bin"; then - as_fn_error "could not find PocketPC SDK or target compiler to enable WinCE mode $CEVERSION,$TARGETCPU,$ARCH,$PLATFORM" "$LINENO" 5 - doWince="no" - else - # We could PATH_NOSPACE these, but that's not important, - # as long as we quote them when used. - CEINCLUDE="${SDKROOT}/${OSVERSION}/${PLATFORM}/include" - if test -d "${CEINCLUDE}/${TARGETCPU}" ; then - CEINCLUDE="${CEINCLUDE}/${TARGETCPU}" - fi - CELIBPATH="${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" - fi - fi - - if test "$GCC" != "yes" ; then - if test "${SHARED_BUILD}" = "0" ; then - runtime=-MT - else - runtime=-MD - fi - - if test "$do64bit" != "no" ; then - # All this magic is necessary for the Win64 SDK RC1 - hobbs - CC="\"${PATH64}/cl.exe\"" - CFLAGS="${CFLAGS} -I\"${MSSDK}/Include\" -I\"${MSSDK}/Include/crt\" -I\"${MSSDK}/Include/crt/sys\"" - RC="\"${MSSDK}/bin/rc.exe\"" - lflags="-nologo -MACHINE:${MACHINE} -LIBPATH:\"${MSSDK}/Lib/${MACHINE}\"" - LINKBIN="\"${PATH64}/link.exe\"" - CFLAGS_DEBUG="-nologo -Zi -Od -W3 ${runtime}d" - CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}" - # Avoid 'unresolved external symbol __security_cookie' - # errors, c.f. http://support.microsoft.com/?id=894573 - - vars="bufferoverflowU.lib" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - - - elif test "$doWince" != "no" ; then - CEBINROOT="${WCEROOT}/EVC/${OSVERSION}/bin" - if test "${TARGETCPU}" = "X86"; then - CC="\"${CEBINROOT}/cl.exe\"" - else - CC="\"${CEBINROOT}/cl${ARCH}.exe\"" - fi - CFLAGS="$CFLAGS -I\"${CELIB_DIR}/inc\" -I\"${CEINCLUDE}\"" - RC="\"${WCEROOT}/Common/EVC/bin/rc.exe\"" - arch=`echo ${ARCH} | awk '{print tolower($0)}'` - defs="${ARCH} _${ARCH}_ ${arch} PALM_SIZE _MT _WINDOWS" - if test "${SHARED_BUILD}" = "1" ; then - # Static CE builds require static celib as well - defs="${defs} _DLL" - fi - for i in $defs ; do - -cat >>confdefs.h <<_ACEOF -#define $i 1 -_ACEOF - - done - -cat >>confdefs.h <<_ACEOF -#define _WIN32_WCE $CEVERSION -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define UNDER_CE $CEVERSION -_ACEOF - - CFLAGS_DEBUG="-nologo -Zi -Od" - CFLAGS_OPTIMIZE="-nologo -Ox" - lversion=`echo ${CEVERSION} | sed -e 's/\(.\)\(..\)/\1\.\2/'` - lflags="-MACHINE:${ARCH} -LIBPATH:\"${CELIBPATH}\" -subsystem:windowsce,${lversion} -nologo" - LINKBIN="\"${CEBINROOT}/link.exe\"" - - else - RC="rc" - lflags="-nologo" - LINKBIN="link" - CFLAGS_DEBUG="-nologo -Z7 -Od -W3 -WX ${runtime}d" - CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}" - fi - fi - - if test "$GCC" = "yes"; then - # mingw gcc mode - RC="windres" - CFLAGS_DEBUG="-g" - CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer" - SHLIB_LD="$CC -shared" - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - LDFLAGS_CONSOLE="-wl,--subsystem,console ${lflags}" - LDFLAGS_WINDOW="-wl,--subsystem,windows ${lflags}" - else - SHLIB_LD="${LINKBIN} -dll ${lflags}" - # link -lib only works when -lib is the first arg - STLIB_LD="${LINKBIN} -lib ${lflags}" - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.lib' - PATHTYPE=-w - # For information on what debugtype is most useful, see: - # http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp - # and also - # http://msdn2.microsoft.com/en-us/library/y0zzbyt4%28VS.80%29.aspx - # This essentially turns it all on. - LDFLAGS_DEBUG="-debug -debugtype:cv" - LDFLAGS_OPTIMIZE="-release" - if test "$doWince" != "no" ; then - LDFLAGS_CONSOLE="-link ${lflags}" - LDFLAGS_WINDOW=${LDFLAGS_CONSOLE} - else - LDFLAGS_CONSOLE="-link -subsystem:console ${lflags}" - LDFLAGS_WINDOW="-link -subsystem:windows ${lflags}" - fi - fi - - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".dll" - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.dll' - - TCL_LIB_VERSIONS_OK=nodots - # Bogus to avoid getting this turned off - DL_OBJS="tclLoadNone.obj" - ;; - AIX-*) - if test "${TCL_THREADS}" = "1" -a "$GCC" != "yes"; then : - - # AIX requires the _r compiler when gcc isn't being used - case "${CC}" in - *_r) - # ok ... - ;; - *) - CC=${CC}_r - ;; - esac - { $as_echo "$as_me:${as_lineno-$LINENO}: result: Using $CC for compiling with threads" >&5 -$as_echo "Using $CC for compiling with threads" >&6; } - -fi - LIBS="$LIBS -lc" - SHLIB_CFLAGS="" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - - DL_OBJS="tclLoadDl.o" - LD_LIBRARY_PATH_VAR="LIBPATH" - - # Check to enable 64-bit flags for compiler/linker on AIX 4+ - if test "$do64bit" = yes -a "`uname -v`" -gt 3; then : - - if test "$GCC" = yes; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit mode not supported with GCC on $system" >&5 -$as_echo "$as_me: WARNING: 64bit mode not supported with GCC on $system" >&2;} - -else - - do64bit_ok=yes - CFLAGS="$CFLAGS -q64" - LDFLAGS_ARCH="-q64" - RANLIB="${RANLIB} -X64" - AR="${AR} -X64" - SHLIB_LD_FLAGS="-b64" - -fi - -fi - - if test "`uname -m`" = ia64; then : - - # AIX-5 uses ELF style dynamic libraries on IA-64, but not PPC - SHLIB_LD="/usr/ccs/bin/ld -G -z text" - # AIX-5 has dl* in libc.so - DL_LIBS="" - if test "$GCC" = yes; then : - - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - -else - - CC_SEARCH_FLAGS='-R${LIB_RUNTIME_DIR}' - -fi - LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' - -else - - if test "$GCC" = yes; then : - SHLIB_LD='${CC} -shared' -else - - SHLIB_LD="/bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry" - -fi - SHLIB_LD="${TCL_SRC_DIR}/unix/ldAix ${SHLIB_LD} ${SHLIB_LD_FLAGS}" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - TCL_NEEDS_EXP_FILE=1 - # TEA specific: use PACKAGE_VERSION instead of VERSION - TCL_EXPORT_FILE_SUFFIX='${PACKAGE_VERSION}.exp' - -fi - - # AIX v<=4.1 has some different flags than 4.2+ - if test "$system" = "AIX-4.1" -o "`uname -v`" -lt 4; then : - - case " $LIBOBJS " in - *" tclLoadAix.$ac_objext "* ) ;; - *) LIBOBJS="$LIBOBJS tclLoadAix.$ac_objext" - ;; -esac - - DL_LIBS="-lld" - -fi - - # On AIX <=v4 systems, libbsd.a has to be linked in to support - # non-blocking file IO. This library has to be linked in after - # the MATH_LIBS or it breaks the pow() function. The way to - # insure proper sequencing, is to add it to the tail of MATH_LIBS. - # This library also supplies gettimeofday. - # - # AIX does not have a timezone field in struct tm. When the AIX - # bsd library is used, the timezone global and the gettimeofday - # methods are to be avoided for timezone deduction instead, we - # deduce the timezone by comparing the localtime result on a - # known GMT value. - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gettimeofday in -lbsd" >&5 -$as_echo_n "checking for gettimeofday in -lbsd... " >&6; } -if test "${ac_cv_lib_bsd_gettimeofday+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lbsd $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char gettimeofday (); -int -main () -{ -return gettimeofday (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_bsd_gettimeofday=yes -else - ac_cv_lib_bsd_gettimeofday=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_bsd_gettimeofday" >&5 -$as_echo "$ac_cv_lib_bsd_gettimeofday" >&6; } -if test "x$ac_cv_lib_bsd_gettimeofday" = x""yes; then : - libbsd=yes -else - libbsd=no -fi - - if test $libbsd = yes; then : - - MATH_LIBS="$MATH_LIBS -lbsd" - -$as_echo "#define USE_DELTA_FOR_TZ 1" >>confdefs.h - - -fi - ;; - BeOS*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD='${CC} -nostart' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - - #----------------------------------------------------------- - # Check for inet_ntoa in -lbind, for BeOS (which also needs - # -lsocket, even if the network functions are in -lnet which - # is always linked to, for compatibility. - #----------------------------------------------------------- - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for inet_ntoa in -lbind" >&5 -$as_echo_n "checking for inet_ntoa in -lbind... " >&6; } -if test "${ac_cv_lib_bind_inet_ntoa+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lbind $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char inet_ntoa (); -int -main () -{ -return inet_ntoa (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_bind_inet_ntoa=yes -else - ac_cv_lib_bind_inet_ntoa=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_bind_inet_ntoa" >&5 -$as_echo "$ac_cv_lib_bind_inet_ntoa" >&6; } -if test "x$ac_cv_lib_bind_inet_ntoa" = x""yes; then : - LIBS="$LIBS -lbind -lsocket" -fi - - ;; - BSD/OS-2.1*|BSD/OS-3*) - SHLIB_CFLAGS="" - SHLIB_LD="shlicc -r" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - BSD/OS-4.*) - SHLIB_CFLAGS="-export-dynamic -fPIC" - SHLIB_LD='${CC} -shared' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -export-dynamic" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - dgux*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - HP-UX-*.11.*) - # Use updated header definitions where possible - -$as_echo "#define _XOPEN_SOURCE_EXTENDED 1" >>confdefs.h - - # TEA specific: Needed by Tcl, but not most extensions - #AC_DEFINE(_XOPEN_SOURCE, 1, [Do we want to use the XOPEN network library?]) - #LIBS="$LIBS -lxnet" # Use the XOPEN network library - - if test "`uname -m`" = ia64; then : - - SHLIB_SUFFIX=".so" - # Use newer C++ library for C++ extensions - #if test "$GCC" != "yes" ; then - # CPPFLAGS="-AA" - #fi - -else - - SHLIB_SUFFIX=".sl" - -fi - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 -$as_echo_n "checking for shl_load in -ldld... " >&6; } -if test "${ac_cv_lib_dld_shl_load+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-ldld $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char shl_load (); -int -main () -{ -return shl_load (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_dld_shl_load=yes -else - ac_cv_lib_dld_shl_load=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 -$as_echo "$ac_cv_lib_dld_shl_load" >&6; } -if test "x$ac_cv_lib_dld_shl_load" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - if test "$tcl_ok" = yes; then : - - SHLIB_CFLAGS="+z" - SHLIB_LD="ld -b" - SHLIB_LD_LIBS='${LIBS}' - DL_OBJS="tclLoadShl.o" - DL_LIBS="-ldld" - LDFLAGS="$LDFLAGS -Wl,-E" - CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.' - LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.' - LD_LIBRARY_PATH_VAR="SHLIB_PATH" - -fi - if test "$GCC" = yes; then : - - SHLIB_LD='${CC} -shared' - SHLIB_LD_LIBS='${LIBS}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - -fi - - # Users may want PA-RISC 1.1/2.0 portable code - needs HP cc - #CFLAGS="$CFLAGS +DAportable" - - # Check to enable 64-bit flags for compiler/linker - if test "$do64bit" = "yes"; then : - - if test "$GCC" = yes; then : - - case `${CC} -dumpmachine` in - hppa64*) - # 64-bit gcc in use. Fix flags for GNU ld. - do64bit_ok=yes - SHLIB_LD='${CC} -shared' - SHLIB_LD_LIBS='${LIBS}' - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' -fi - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - ;; - *) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit mode not supported with GCC on $system" >&5 -$as_echo "$as_me: WARNING: 64bit mode not supported with GCC on $system" >&2;} - ;; - esac - -else - - do64bit_ok=yes - CFLAGS="$CFLAGS +DD64" - LDFLAGS_ARCH="+DD64" - -fi - -fi ;; - HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*) - SHLIB_SUFFIX=".sl" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 -$as_echo_n "checking for shl_load in -ldld... " >&6; } -if test "${ac_cv_lib_dld_shl_load+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-ldld $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char shl_load (); -int -main () -{ -return shl_load (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_dld_shl_load=yes -else - ac_cv_lib_dld_shl_load=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 -$as_echo "$ac_cv_lib_dld_shl_load" >&6; } -if test "x$ac_cv_lib_dld_shl_load" = x""yes; then : - tcl_ok=yes -else - tcl_ok=no -fi - - if test "$tcl_ok" = yes; then : - - SHLIB_CFLAGS="+z" - SHLIB_LD="ld -b" - SHLIB_LD_LIBS="" - DL_OBJS="tclLoadShl.o" - DL_LIBS="-ldld" - LDFLAGS="$LDFLAGS -Wl,-E" - CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.' - LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.' - LD_LIBRARY_PATH_VAR="SHLIB_PATH" - -fi ;; - IRIX-5.*) - SHLIB_CFLAGS="" - SHLIB_LD="ld -shared -rdata_shared" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}' -fi - ;; - IRIX-6.*) - SHLIB_CFLAGS="" - SHLIB_LD="ld -n32 -shared -rdata_shared" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}' -fi - if test "$GCC" = yes; then : - - CFLAGS="$CFLAGS -mabi=n32" - LDFLAGS="$LDFLAGS -mabi=n32" - -else - - case $system in - IRIX-6.3) - # Use to build 6.2 compatible binaries on 6.3. - CFLAGS="$CFLAGS -n32 -D_OLD_TERMIOS" - ;; - *) - CFLAGS="$CFLAGS -n32" - ;; - esac - LDFLAGS="$LDFLAGS -n32" - -fi - ;; - IRIX64-6.*) - SHLIB_CFLAGS="" - SHLIB_LD="ld -n32 -shared -rdata_shared" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}' -fi - - # Check to enable 64-bit flags for compiler/linker - - if test "$do64bit" = yes; then : - - if test "$GCC" = yes; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit mode not supported by gcc" >&5 -$as_echo "$as_me: WARNING: 64bit mode not supported by gcc" >&2;} - -else - - do64bit_ok=yes - SHLIB_LD="ld -64 -shared -rdata_shared" - CFLAGS="$CFLAGS -64" - LDFLAGS_ARCH="-64" - -fi - -fi - ;; - Linux*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - - # TEA specific: - CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer" - # egcs-2.91.66 on Redhat Linux 6.0 generates lots of warnings - # when you inline the string and math operations. Turn this off to - # get rid of the warnings. - #CFLAGS_OPTIMIZE="${CFLAGS_OPTIMIZE} -D__NO_STRING_INLINES -D__NO_MATH_INLINES" - - # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS - SHLIB_LD='${CC} -shared ${CFLAGS} ${LDFLAGS_DEFAULT}' - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -Wl,--export-dynamic" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' -fi - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - if test "`uname -m`" = "alpha"; then : - CFLAGS="$CFLAGS -mieee" -fi - if test $do64bit = yes; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if compiler accepts -m64 flag" >&5 -$as_echo_n "checking if compiler accepts -m64 flag... " >&6; } -if test "${tcl_cv_cc_m64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_cflags=$CFLAGS - CFLAGS="$CFLAGS -m64" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_cc_m64=yes -else - tcl_cv_cc_m64=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - CFLAGS=$hold_cflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_m64" >&5 -$as_echo "$tcl_cv_cc_m64" >&6; } - if test $tcl_cv_cc_m64 = yes; then : - - CFLAGS="$CFLAGS -m64" - do64bit_ok=yes - -fi - -fi - - # The combo of gcc + glibc has a bug related to inlining of - # functions like strtod(). The -fno-builtin flag should address - # this problem but it does not work. The -fno-inline flag is kind - # of overkill but it works. Disable inlining only when one of the - # files in compat/*.c is being linked in. - - if test x"${USE_COMPAT}" != x; then : - CFLAGS="$CFLAGS -fno-inline" -fi - - ;; - GNU*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - - SHLIB_LD='${CC} -shared' - DL_OBJS="" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -Wl,--export-dynamic" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - if test "`uname -m`" = "alpha"; then : - CFLAGS="$CFLAGS -mieee" -fi - ;; - Lynx*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - CFLAGS_OPTIMIZE=-02 - SHLIB_LD='${CC} -shared' - DL_OBJS="tclLoadDl.o" - DL_LIBS="-mshared -ldl" - LD_FLAGS="-Wl,--export-dynamic" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' -fi - ;; - MP-RAS-02*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - MP-RAS-*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -Wl,-Bexport" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - NetBSD-1.*|FreeBSD-[1-2].*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD="ld -Bshareable -x" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}' -fi - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ELF" >&5 -$as_echo_n "checking for ELF... " >&6; } -if test "${tcl_cv_ld_elf+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#ifdef __ELF__ - yes -#endif - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "yes" >/dev/null 2>&1; then : - tcl_cv_ld_elf=yes -else - tcl_cv_ld_elf=no -fi -rm -f conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_ld_elf" >&5 -$as_echo "$tcl_cv_ld_elf" >&6; } - if test $tcl_cv_ld_elf = yes; then : - - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so' - -else - - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so.1.0' - -fi - - # Ancient FreeBSD doesn't handle version numbers with dots. - - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - TCL_LIB_VERSIONS_OK=nodots - ;; - OpenBSD-*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD='${CC} -shared ${SHLIB_CFLAGS}' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' -fi - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so.1.0' - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ELF" >&5 -$as_echo_n "checking for ELF... " >&6; } -if test "${tcl_cv_ld_elf+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#ifdef __ELF__ - yes -#endif - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "yes" >/dev/null 2>&1; then : - tcl_cv_ld_elf=yes -else - tcl_cv_ld_elf=no -fi -rm -f conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_ld_elf" >&5 -$as_echo "$tcl_cv_ld_elf" >&6; } - if test $tcl_cv_ld_elf = yes; then : - - LDFLAGS=-Wl,-export-dynamic - -else - LDFLAGS="" -fi - - # OpenBSD doesn't do version numbers with dots. - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - TCL_LIB_VERSIONS_OK=nodots - ;; - NetBSD-*|FreeBSD-*) - # FreeBSD 3.* and greater have ELF. - # NetBSD 2.* has ELF and can use 'cc -shared' to build shared libs - SHLIB_CFLAGS="-fPIC" - SHLIB_LD='${CC} -shared ${SHLIB_CFLAGS}' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - LDFLAGS="$LDFLAGS -export-dynamic" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' -fi - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - if test "${TCL_THREADS}" = "1"; then : - - # The -pthread needs to go in the CFLAGS, not LIBS - LIBS=`echo $LIBS | sed s/-pthread//` - CFLAGS="$CFLAGS -pthread" - LDFLAGS="$LDFLAGS -pthread" - -fi - case $system in - FreeBSD-3.*) - # FreeBSD-3 doesn't handle version numbers with dots. - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so' - TCL_LIB_VERSIONS_OK=nodots - ;; - esac - ;; - Darwin-*) - CFLAGS_OPTIMIZE="-Os" - SHLIB_CFLAGS="-fno-common" - # To avoid discrepancies between what headers configure sees during - # preprocessing tests and compiling tests, move any -isysroot and - # -mmacosx-version-min flags from CFLAGS to CPPFLAGS: - CPPFLAGS="${CPPFLAGS} `echo " ${CFLAGS}" | \ - awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \ - if ($i~/^(isysroot|mmacosx-version-min)/) print "-"$i}'`" - CFLAGS="`echo " ${CFLAGS}" | \ - awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \ - if (!($i~/^(isysroot|mmacosx-version-min)/)) print "-"$i}'`" - if test $do64bit = yes; then : - - case `arch` in - ppc) - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if compiler accepts -arch ppc64 flag" >&5 -$as_echo_n "checking if compiler accepts -arch ppc64 flag... " >&6; } -if test "${tcl_cv_cc_arch_ppc64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_cflags=$CFLAGS - CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_cc_arch_ppc64=yes -else - tcl_cv_cc_arch_ppc64=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - CFLAGS=$hold_cflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_arch_ppc64" >&5 -$as_echo "$tcl_cv_cc_arch_ppc64" >&6; } - if test $tcl_cv_cc_arch_ppc64 = yes; then : - - CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5" - do64bit_ok=yes - -fi;; - i386) - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if compiler accepts -arch x86_64 flag" >&5 -$as_echo_n "checking if compiler accepts -arch x86_64 flag... " >&6; } -if test "${tcl_cv_cc_arch_x86_64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_cflags=$CFLAGS - CFLAGS="$CFLAGS -arch x86_64" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_cc_arch_x86_64=yes -else - tcl_cv_cc_arch_x86_64=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - CFLAGS=$hold_cflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_arch_x86_64" >&5 -$as_echo "$tcl_cv_cc_arch_x86_64" >&6; } - if test $tcl_cv_cc_arch_x86_64 = yes; then : - - CFLAGS="$CFLAGS -arch x86_64" - do64bit_ok=yes - -fi;; - *) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Don't know how enable 64-bit on architecture \`arch\`" >&5 -$as_echo "$as_me: WARNING: Don't know how enable 64-bit on architecture \`arch\`" >&2;};; - esac - -else - - # Check for combined 32-bit and 64-bit fat build - if echo "$CFLAGS " |grep -E -q -- '-arch (ppc64|x86_64) ' \ - && echo "$CFLAGS " |grep -E -q -- '-arch (ppc|i386) '; then : - - fat_32_64=yes -fi - -fi - # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS - SHLIB_LD='${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT}' - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if ld accepts -single_module flag" >&5 -$as_echo_n "checking if ld accepts -single_module flag... " >&6; } -if test "${tcl_cv_ld_single_module+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_ldflags=$LDFLAGS - LDFLAGS="$LDFLAGS -dynamiclib -Wl,-single_module" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -int i; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_ld_single_module=yes -else - tcl_cv_ld_single_module=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - LDFLAGS=$hold_ldflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_ld_single_module" >&5 -$as_echo "$tcl_cv_ld_single_module" >&6; } - if test $tcl_cv_ld_single_module = yes; then : - - SHLIB_LD="${SHLIB_LD} -Wl,-single_module" - -fi - # TEA specific: link shlib with current and compatiblity version flags - vers=`echo ${PACKAGE_VERSION} | sed -e 's/^\([0-9]\{1,5\}\)\(\(\.[0-9]\{1,3\}\)\{0,2\}\).*$/\1\2/p' -e d` - SHLIB_LD="${SHLIB_LD} -current_version ${vers:-0} -compatibility_version ${vers:-0}" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".dylib" - DL_OBJS="tclLoadDyld.o" - DL_LIBS="" - # Don't use -prebind when building for Mac OS X 10.4 or later only: - if test "`echo "${MACOSX_DEPLOYMENT_TARGET}" | awk -F '10\\.' '{print int($2)}'`" -lt 4 -a \ - "`echo "${CPPFLAGS}" | awk -F '-mmacosx-version-min=10\\.' '{print int($2)}'`" -lt 4; then : - - LDFLAGS="$LDFLAGS -prebind" -fi - LDFLAGS="$LDFLAGS -headerpad_max_install_names" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking if ld accepts -search_paths_first flag" >&5 -$as_echo_n "checking if ld accepts -search_paths_first flag... " >&6; } -if test "${tcl_cv_ld_search_paths_first+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_ldflags=$LDFLAGS - LDFLAGS="$LDFLAGS -Wl,-search_paths_first" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -int i; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_ld_search_paths_first=yes -else - tcl_cv_ld_search_paths_first=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - LDFLAGS=$hold_ldflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_ld_search_paths_first" >&5 -$as_echo "$tcl_cv_ld_search_paths_first" >&6; } - if test $tcl_cv_ld_search_paths_first = yes; then : - - LDFLAGS="$LDFLAGS -Wl,-search_paths_first" - -fi - if test "$tcl_cv_cc_visibility_hidden" != yes; then : - - -$as_echo "#define MODULE_SCOPE __private_extern__" >>confdefs.h - - -fi - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - LD_LIBRARY_PATH_VAR="DYLD_LIBRARY_PATH" - # TEA specific: for combined 32 & 64 bit fat builds of Tk - # extensions, verify that 64-bit build is possible. - if test "$fat_32_64" = yes && test -n "${TK_BIN_DIR}"; then : - - if test "${TEA_WINDOWINGSYSTEM}" = x11; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for 64-bit X11" >&5 -$as_echo_n "checking for 64-bit X11... " >&6; } -if test "${tcl_cv_lib_x11_64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - for v in CFLAGS CPPFLAGS LDFLAGS; do - eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"' - done - CPPFLAGS="$CPPFLAGS -I/usr/X11R6/include" - LDFLAGS="$LDFLAGS -L/usr/X11R6/lib -lX11" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -XrmInitialize(); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_lib_x11_64=yes -else - tcl_cv_lib_x11_64=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - for v in CFLAGS CPPFLAGS LDFLAGS; do - eval $v'="$hold_'$v'"' - done -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_lib_x11_64" >&5 -$as_echo "$tcl_cv_lib_x11_64" >&6; } - -fi - # remove 64-bit arch flags from CFLAGS et al. if configuration - # does not support 64-bit. - if test "${TEA_WINDOWINGSYSTEM}" = aqua -o "$tcl_cv_lib_x11_64" = no; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: Removing 64-bit architectures from compiler & linker flags" >&5 -$as_echo "$as_me: Removing 64-bit architectures from compiler & linker flags" >&6;} - for v in CFLAGS CPPFLAGS LDFLAGS; do - eval $v'="`echo "$'$v' "|sed -e "s/-arch ppc64 / /g" -e "s/-arch x86_64 / /g"`"' - done -fi - -fi - ;; - NEXTSTEP-*) - SHLIB_CFLAGS="" - SHLIB_LD='${CC} -nostdlib -r' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadNext.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - OS/390-*) - CFLAGS_OPTIMIZE="" # Optimizer is buggy - -$as_echo "#define _OE_SOCKETS 1" >>confdefs.h - - ;; - OSF1-1.0|OSF1-1.1|OSF1-1.2) - # OSF/1 1.[012] from OSF, and derivatives, including Paragon OSF/1 - SHLIB_CFLAGS="" - # Hack: make package name same as library name - SHLIB_LD='ld -R -export :' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadOSF.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - OSF1-1.*) - # OSF/1 1.3 from OSF using ELF, and derivatives, including AD2 - SHLIB_CFLAGS="-fPIC" - if test "$SHARED_BUILD" = 1; then : - SHLIB_LD="ld -shared" -else - - SHLIB_LD="ld -non_shared" - -fi - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - OSF1-V*) - # Digital OSF/1 - SHLIB_CFLAGS="" - if test "$SHARED_BUILD" = 1; then : - - SHLIB_LD='${CC} -shared' - -else - - SHLIB_LD='${CC} -non_shared' - -fi - SHLIB_LD_LIBS="${LIBS}" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - if test $doRpath = yes; then : - - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}' -fi - if test "$GCC" = yes; then : - CFLAGS="$CFLAGS -mieee" -else - - CFLAGS="$CFLAGS -DHAVE_TZSET -std1 -ieee" -fi - # see pthread_intro(3) for pthread support on osf1, k.furukawa - if test "${TCL_THREADS}" = 1; then : - - CFLAGS="$CFLAGS -DHAVE_PTHREAD_ATTR_SETSTACKSIZE" - CFLAGS="$CFLAGS -DTCL_THREAD_STACK_MIN=PTHREAD_STACK_MIN*64" - LIBS=`echo $LIBS | sed s/-lpthreads//` - if test "$GCC" = yes; then : - - LIBS="$LIBS -lpthread -lmach -lexc" - -else - - CFLAGS="$CFLAGS -pthread" - LDFLAGS="$LDFLAGS -pthread" - -fi - -fi - ;; - QNX-6*) - # QNX RTP - # This may work for all QNX, but it was only reported for v6. - SHLIB_CFLAGS="-fPIC" - SHLIB_LD="ld -Bshareable -x" - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - # dlopen is in -lc on QNX - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - SCO_SV-3.2*) - # Note, dlopen is available only on SCO 3.2.5 and greater. However, - # this test works, since "uname -s" was non-standard in 3.2.4 and - # below. - if test "$GCC" = yes; then : - - SHLIB_CFLAGS="-fPIC -melf" - LDFLAGS="$LDFLAGS -melf -Wl,-Bexport" - -else - - SHLIB_CFLAGS="-Kpic -belf" - LDFLAGS="$LDFLAGS -belf -Wl,-Bexport" - -fi - SHLIB_LD="ld -G" - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - SINIX*5.4*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - SunOS-4*) - SHLIB_CFLAGS="-PIC" - SHLIB_LD="ld" - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - - # SunOS can't handle version numbers with dots in them in library - # specs, like -ltcl7.5, so use -ltcl75 instead. Also, it - # requires an extra version number at the end of .so file names. - # So, the library has to have a name like libtcl75.so.1.0 - - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so.1.0' - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - TCL_LIB_VERSIONS_OK=nodots - ;; - SunOS-5.[0-6]) - # Careful to not let 5.10+ fall into this case - - # Note: If _REENTRANT isn't defined, then Solaris - # won't define thread-safe library routines. - - -$as_echo "#define _REENTRANT 1" >>confdefs.h - - -$as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h - - - SHLIB_CFLAGS="-KPIC" - - # Note: need the LIBS below, otherwise Tk won't find Tcl's - # symbols when dynamically loaded into tclsh. - - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - if test "$GCC" = yes; then : - - SHLIB_LD='${CC} -shared' - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - -else - - SHLIB_LD="/usr/ccs/bin/ld -G -z text" - CC_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - -fi - ;; - SunOS-5*) - # Note: If _REENTRANT isn't defined, then Solaris - # won't define thread-safe library routines. - - -$as_echo "#define _REENTRANT 1" >>confdefs.h - - -$as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h - - - SHLIB_CFLAGS="-KPIC" - - # Check to enable 64-bit flags for compiler/linker - if test "$do64bit" = yes; then : - - arch=`isainfo` - if test "$arch" = "sparcv9 sparc"; then : - - if test "$GCC" = yes; then : - - if test "`${CC} -dumpversion | awk -F. '{print $1}'`" -lt 3; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit mode not supported with GCC < 3.2 on $system" >&5 -$as_echo "$as_me: WARNING: 64bit mode not supported with GCC < 3.2 on $system" >&2;} - -else - - do64bit_ok=yes - CFLAGS="$CFLAGS -m64 -mcpu=v9" - LDFLAGS="$LDFLAGS -m64 -mcpu=v9" - SHLIB_CFLAGS="-fPIC" - -fi - -else - - do64bit_ok=yes - if test "$do64bitVIS" = yes; then : - - CFLAGS="$CFLAGS -xarch=v9a" - LDFLAGS_ARCH="-xarch=v9a" - -else - - CFLAGS="$CFLAGS -xarch=v9" - LDFLAGS_ARCH="-xarch=v9" - -fi - # Solaris 64 uses this as well - #LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH_64" - -fi - -else - if test "$arch" = "amd64 i386"; then : - - if test "$GCC" = yes; then : - - case $system in - SunOS-5.1[1-9]*|SunOS-5.[2-9][0-9]*) - do64bit_ok=yes - CFLAGS="$CFLAGS -m64" - LDFLAGS="$LDFLAGS -m64";; - *) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit mode not supported with GCC on $system" >&5 -$as_echo "$as_me: WARNING: 64bit mode not supported with GCC on $system" >&2;};; - esac - -else - - do64bit_ok=yes - case $system in - SunOS-5.1[1-9]*|SunOS-5.[2-9][0-9]*) - CFLAGS="$CFLAGS -m64" - LDFLAGS="$LDFLAGS -m64";; - *) - CFLAGS="$CFLAGS -xarch=amd64" - LDFLAGS="$LDFLAGS -xarch=amd64";; - esac - -fi - -else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit mode not supported for $arch" >&5 -$as_echo "$as_me: WARNING: 64bit mode not supported for $arch" >&2;} -fi -fi - -fi - - # Note: need the LIBS below, otherwise Tk won't find Tcl's - # symbols when dynamically loaded into tclsh. - - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - if test "$GCC" = yes; then : - - SHLIB_LD='${CC} -shared' - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - if test "$do64bit_ok" = yes; then : - - if test "$arch" = "sparcv9 sparc"; then : - - # We need to specify -static-libgcc or we need to - # add the path to the sparv9 libgcc. - # JH: static-libgcc is necessary for core Tcl, but may - # not be necessary for extensions. - SHLIB_LD="$SHLIB_LD -m64 -mcpu=v9 -static-libgcc" - # for finding sparcv9 libgcc, get the regular libgcc - # path, remove so name and append 'sparcv9' - #v9gcclibdir="`gcc -print-file-name=libgcc_s.so` | ..." - #CC_SEARCH_FLAGS="${CC_SEARCH_FLAGS},-R,$v9gcclibdir" - -else - if test "$arch" = "amd64 i386"; then : - - # JH: static-libgcc is necessary for core Tcl, but may - # not be necessary for extensions. - SHLIB_LD="$SHLIB_LD -m64 -static-libgcc" - -fi -fi - -fi - -else - - case $system in - SunOS-5.[1-9][0-9]*) - SHLIB_LD='${CC} -G -z text ${LDFLAGS}';; - *) - SHLIB_LD='/usr/ccs/bin/ld -G -z text';; - esac - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' - -fi - ;; - UNIX_SV* | UnixWare-5*) - SHLIB_CFLAGS="-KPIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - # Some UNIX_SV* systems (unixware 1.1.2 for example) have linkers - # that don't grok the -Bexport option. Test that it does. - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld accepts -Bexport flag" >&5 -$as_echo_n "checking for ld accepts -Bexport flag... " >&6; } -if test "${tcl_cv_ld_Bexport+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - hold_ldflags=$LDFLAGS - LDFLAGS="$LDFLAGS -Wl,-Bexport" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -int i; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - tcl_cv_ld_Bexport=yes -else - tcl_cv_ld_Bexport=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - LDFLAGS=$hold_ldflags -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_ld_Bexport" >&5 -$as_echo "$tcl_cv_ld_Bexport" >&6; } - if test $tcl_cv_ld_Bexport = yes; then : - - LDFLAGS="$LDFLAGS -Wl,-Bexport" - -fi - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - esac - - if test "$do64bit" = yes -a "$do64bit_ok" = no; then : - - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 64bit support being disabled -- don't know magic for this platform" >&5 -$as_echo "$as_me: WARNING: 64bit support being disabled -- don't know magic for this platform" >&2;} - -fi - - - - # Step 4: disable dynamic loading if requested via a command-line switch. - - # Check whether --enable-load was given. -if test "${enable_load+set}" = set; then : - enableval=$enable_load; tcl_ok=$enableval -else - tcl_ok=yes -fi - - if test "$tcl_ok" = no; then : - DL_OBJS="" -fi - - if test "x$DL_OBJS" != x; then : - BUILD_DLTEST="\$(DLTEST_TARGETS)" -else - - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Can't figure out how to do dynamic loading or shared libraries on this system." >&5 -$as_echo "$as_me: WARNING: Can't figure out how to do dynamic loading or shared libraries on this system." >&2;} - SHLIB_CFLAGS="" - SHLIB_LD="" - SHLIB_SUFFIX="" - DL_OBJS="tclLoadNone.o" - DL_LIBS="" - LDFLAGS="$LDFLAGS_ORIG" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - BUILD_DLTEST="" - -fi - LDFLAGS="$LDFLAGS $LDFLAGS_ARCH" - - # If we're running gcc, then change the C flags for compiling shared - # libraries to the right flags for gcc, instead of those for the - # standard manufacturer compiler. - - if test "$DL_OBJS" != "tclLoadNone.o" -a "$GCC" = yes; then : - - case $system in - AIX-*) ;; - BSD/OS*) ;; - IRIX*) ;; - NetBSD-*|FreeBSD-*) ;; - Darwin-*) ;; - SCO_SV-3.2*) ;; - *) SHLIB_CFLAGS="-fPIC" ;; - esac -fi - - if test "$SHARED_LIB_SUFFIX" = ""; then : - - # TEA specific: use PACKAGE_VERSION instead of VERSION - SHARED_LIB_SUFFIX='${PACKAGE_VERSION}${SHLIB_SUFFIX}' -fi - if test "$UNSHARED_LIB_SUFFIX" = ""; then : - - # TEA specific: use PACKAGE_VERSION instead of VERSION - UNSHARED_LIB_SUFFIX='${PACKAGE_VERSION}.a' -fi - - - - - - - - - - - - - - - - # These must be called after we do the basic CFLAGS checks and - # verify any possible 64-bit or similar switches are necessary - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for required early compiler flags" >&5 -$as_echo_n "checking for required early compiler flags... " >&6; } - tcl_flags="" - - if test "${tcl_cv_flag__isoc99_source+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -char *p = (char *)strtoll; char *q = (char *)strtoull; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_flag__isoc99_source=no -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#define _ISOC99_SOURCE 1 -#include -int -main () -{ -char *p = (char *)strtoll; char *q = (char *)strtoull; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_flag__isoc99_source=yes -else - tcl_cv_flag__isoc99_source=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - - if test "x${tcl_cv_flag__isoc99_source}" = "xyes" ; then - -$as_echo "#define _ISOC99_SOURCE 1" >>confdefs.h - - tcl_flags="$tcl_flags _ISOC99_SOURCE" - fi - - - if test "${tcl_cv_flag__largefile64_source+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -struct stat64 buf; int i = stat64("/", &buf); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_flag__largefile64_source=no -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#define _LARGEFILE64_SOURCE 1 -#include -int -main () -{ -struct stat64 buf; int i = stat64("/", &buf); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_flag__largefile64_source=yes -else - tcl_cv_flag__largefile64_source=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - - if test "x${tcl_cv_flag__largefile64_source}" = "xyes" ; then - -$as_echo "#define _LARGEFILE64_SOURCE 1" >>confdefs.h - - tcl_flags="$tcl_flags _LARGEFILE64_SOURCE" - fi - - - if test "${tcl_cv_flag__largefile_source64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -char *p = (char *)open64; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_flag__largefile_source64=no -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#define _LARGEFILE_SOURCE64 1 -#include -int -main () -{ -char *p = (char *)open64; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_flag__largefile_source64=yes -else - tcl_cv_flag__largefile_source64=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - - if test "x${tcl_cv_flag__largefile_source64}" = "xyes" ; then - -$as_echo "#define _LARGEFILE_SOURCE64 1" >>confdefs.h - - tcl_flags="$tcl_flags _LARGEFILE_SOURCE64" - fi - - if test "x${tcl_flags}" = "x" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 -$as_echo "none" >&6; } - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${tcl_flags}" >&5 -$as_echo "${tcl_flags}" >&6; } - fi - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for 64-bit integer type" >&5 -$as_echo_n "checking for 64-bit integer type... " >&6; } - if test "${tcl_cv_type_64bit+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - tcl_cv_type_64bit=none - # See if the compiler knows natively about __int64 - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -__int64 value = (__int64) 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_type_64bit=__int64 -else - tcl_type_64bit="long long" -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - # See if we should use long anyway Note that we substitute in the - # type that is our current guess for a 64-bit type inside this check - # program, so it should be modified only carefully... - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -switch (0) { - case 1: case (sizeof(${tcl_type_64bit})==sizeof(long)): ; - } - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_type_64bit=${tcl_type_64bit} -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - - if test "${tcl_cv_type_64bit}" = none ; then - -$as_echo "#define TCL_WIDE_INT_IS_LONG 1" >>confdefs.h - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: using long" >&5 -$as_echo "using long" >&6; } - elif test "${tcl_cv_type_64bit}" = "__int64" \ - -a "${TEA_PLATFORM}" = "windows" ; then - # TEA specific: We actually want to use the default tcl.h checks in - # this case to handle both TCL_WIDE_INT_TYPE and TCL_LL_MODIFIER* - { $as_echo "$as_me:${as_lineno-$LINENO}: result: using Tcl header defaults" >&5 -$as_echo "using Tcl header defaults" >&6; } - else - -cat >>confdefs.h <<_ACEOF -#define TCL_WIDE_INT_TYPE ${tcl_cv_type_64bit} -_ACEOF - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${tcl_cv_type_64bit}" >&5 -$as_echo "${tcl_cv_type_64bit}" >&6; } - - # Now check for auxiliary declarations - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct dirent64" >&5 -$as_echo_n "checking for struct dirent64... " >&6; } -if test "${tcl_cv_struct_dirent64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -int -main () -{ -struct dirent64 p; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_struct_dirent64=yes -else - tcl_cv_struct_dirent64=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_struct_dirent64" >&5 -$as_echo "$tcl_cv_struct_dirent64" >&6; } - if test "x${tcl_cv_struct_dirent64}" = "xyes" ; then - -$as_echo "#define HAVE_STRUCT_DIRENT64 1" >>confdefs.h - - fi - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct stat64" >&5 -$as_echo_n "checking for struct stat64... " >&6; } -if test "${tcl_cv_struct_stat64+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -struct stat64 p; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_struct_stat64=yes -else - tcl_cv_struct_stat64=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_struct_stat64" >&5 -$as_echo "$tcl_cv_struct_stat64" >&6; } - if test "x${tcl_cv_struct_stat64}" = "xyes" ; then - -$as_echo "#define HAVE_STRUCT_STAT64 1" >>confdefs.h - - fi - - for ac_func in open64 lseek64 -do : - as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` -ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" -eval as_val=\$$as_ac_var - if test "x$as_val" = x""yes; then : - cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 -_ACEOF - -fi -done - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for off64_t" >&5 -$as_echo_n "checking for off64_t... " >&6; } - if test "${tcl_cv_type_off64_t+set}" = set; then : - $as_echo_n "(cached) " >&6 -else - - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -off64_t offset; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - tcl_cv_type_off64_t=yes -else - tcl_cv_type_off64_t=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - - if test "x${tcl_cv_type_off64_t}" = "xyes" && \ - test "x${ac_cv_func_lseek64}" = "xyes" && \ - test "x${ac_cv_func_open64}" = "xyes" ; then - -$as_echo "#define HAVE_TYPE_OFF64_T 1" >>confdefs.h - - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } - fi - fi - - -# should be part of TEA_CONFIG_CFLAGS, but more visible modification here - - -#-------------------------------------------------------------------- -# Set the default compiler switches based on the --enable-symbols option. -#-------------------------------------------------------------------- - - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for build with symbols" >&5 -$as_echo_n "checking for build with symbols... " >&6; } - # Check whether --enable-symbols was given. -if test "${enable_symbols+set}" = set; then : - enableval=$enable_symbols; tcl_ok=$enableval -else - tcl_ok=no -fi - - DBGX="" - if test "$tcl_ok" = "no"; then - CFLAGS_DEFAULT="${CFLAGS_OPTIMIZE}" - LDFLAGS_DEFAULT="${LDFLAGS_OPTIMIZE}" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } - else - CFLAGS_DEFAULT="${CFLAGS_DEBUG}" - LDFLAGS_DEFAULT="${LDFLAGS_DEBUG}" - if test "$tcl_ok" = "yes"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes (standard debugging)" >&5 -$as_echo "yes (standard debugging)" >&6; } - fi - fi - # TEA specific: - if test "${TEA_PLATFORM}" != "windows" ; then - LDFLAGS_DEFAULT="${LDFLAGS}" - fi - - - - - if test "$tcl_ok" = "mem" -o "$tcl_ok" = "all"; then - -$as_echo "#define TCL_MEM_DEBUG 1" >>confdefs.h - - fi - - if test "$tcl_ok" != "yes" -a "$tcl_ok" != "no"; then - if test "$tcl_ok" = "all"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: enabled symbols mem debugging" >&5 -$as_echo "enabled symbols mem debugging" >&6; } - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: enabled $tcl_ok debugging" >&5 -$as_echo "enabled $tcl_ok debugging" >&6; } - fi - fi - - -#-------------------------------------------------------------------- -# Everyone should be linking against the Tcl stub library. If you -# can't for some reason, remove this definition. If you aren't using -# stubs, you also need to modify the SHLIB_LD_LIBS setting below to -# link against the non-stubbed Tcl library. Add Tk too if necessary. -#-------------------------------------------------------------------- - -if test "${USE_STUBS}" = "1" ; then - -$as_echo "#define USE_TCL_STUBS 1" >>confdefs.h - - -$as_echo "#define USE_TK_STUBS 1" >>confdefs.h - -fi - -#-------------------------------------------------------------------- -# This macro generates a line to use when building a library. It -# depends on values set by the TEA_ENABLE_SHARED, TEA_ENABLE_SYMBOLS, -# and TEA_LOAD_TCLCONFIG macros above. -#-------------------------------------------------------------------- - - - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes"; then - MAKE_STATIC_LIB="\${STLIB_LD} -out:\$@ \$(PKG_OBJECTS)" - MAKE_SHARED_LIB="\${SHLIB_LD} \${SHLIB_LD_LIBS} \${LDFLAGS_DEFAULT} -out:\$@ \$(PKG_OBJECTS)" - MAKE_STUB_LIB="\${STLIB_LD} -out:\$@ \$(PKG_STUB_OBJECTS)" - else - MAKE_STATIC_LIB="\${STLIB_LD} \$@ \$(PKG_OBJECTS)" - MAKE_SHARED_LIB="\${SHLIB_LD} -o \$@ \$(PKG_OBJECTS) \${SHLIB_LD_LIBS}" - MAKE_STUB_LIB="\${STLIB_LD} \$@ \$(PKG_STUB_OBJECTS)" - fi - - if test "${SHARED_BUILD}" = "1" ; then - MAKE_LIB="${MAKE_SHARED_LIB} " - else - MAKE_LIB="${MAKE_STATIC_LIB} " - fi - - #-------------------------------------------------------------------- - # Shared libraries and static libraries have different names. - # Use the double eval to make sure any variables in the suffix is - # substituted. (@@@ Might not be necessary anymore) - #-------------------------------------------------------------------- - - if test "${TEA_PLATFORM}" = "windows" ; then - if test "${SHARED_BUILD}" = "1" ; then - # We force the unresolved linking of symbols that are really in - # the private libraries of Tcl and Tk. - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}`\"" - if test x"${TK_BIN_DIR}" != x ; then - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TK_BIN_DIR}/${TK_STUB_LIB_FILE}`\"" - fi - eval eval "PKG_LIB_FILE=${PACKAGE_NAME}${SHARED_LIB_SUFFIX}" - else - eval eval "PKG_LIB_FILE=${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}" - fi - # Some packages build their own stubs libraries - eval eval "PKG_STUB_LIB_FILE=${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}" - if test "$GCC" = "yes"; then - PKG_STUB_LIB_FILE=lib${PKG_STUB_LIB_FILE} - fi - # These aren't needed on Windows (either MSVC or gcc) - RANLIB=: - RANLIB_STUB=: - else - RANLIB_STUB="${RANLIB}" - if test "${SHARED_BUILD}" = "1" ; then - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TCL_STUB_LIB_SPEC}" - if test x"${TK_BIN_DIR}" != x ; then - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TK_STUB_LIB_SPEC}" - fi - eval eval "PKG_LIB_FILE=lib${PACKAGE_NAME}${SHARED_LIB_SUFFIX}" - RANLIB=: - else - eval eval "PKG_LIB_FILE=lib${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}" - fi - # Some packages build their own stubs libraries - eval eval "PKG_STUB_LIB_FILE=lib${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}" - fi - - # These are escaped so that only CFLAGS is picked up at configure time. - # The other values will be substituted at make time. - CFLAGS="${CFLAGS} \${CFLAGS_DEFAULT} \${CFLAGS_WARNING}" - if test "${SHARED_BUILD}" = "1" ; then - CFLAGS="${CFLAGS} \${SHLIB_CFLAGS}" - fi - - - - - - - - -if test "${USE_STUBS}" = "0" ; then - SHLIB_LD_LIBS=`echo "$SHLIB_LD_LIBS" | sed -e 's!stub!!g'` -fi - -#-------------------------------------------------------------------- -# Determine the name of the tclsh and/or wish executables in the -# Tcl and Tk build directories or the location they were installed -# into. These paths are used to support running test cases only, -# the Makefile should not be making use of these paths to generate -# a pkgIndex.tcl file or anything else at extension build time. -#-------------------------------------------------------------------- - - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tclsh" >&5 -$as_echo_n "checking for tclsh... " >&6; } - if test -f "${TCL_BIN_DIR}/Makefile" ; then - # tclConfig.sh is in Tcl build directory - if test "${TEA_PLATFORM}" = "windows"; then - TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" - else - TCLSH_PROG="${TCL_BIN_DIR}/tclsh" - fi - else - # tclConfig.sh is in install location - if test "${TEA_PLATFORM}" = "windows"; then - TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" - else - TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION}${TCL_DBGX}" - fi - list="`ls -d ${TCL_BIN_DIR}/../bin 2>/dev/null` \ - `ls -d ${TCL_BIN_DIR}/.. 2>/dev/null` \ - `ls -d ${TCL_PREFIX}/bin 2>/dev/null`" - for i in $list ; do - if test -f "$i/${TCLSH_PROG}" ; then - REAL_TCL_BIN_DIR="`cd "$i"; pwd`/" - break - fi - done - TCLSH_PROG="${REAL_TCL_BIN_DIR}${TCLSH_PROG}" - fi - { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${TCLSH_PROG}" >&5 -$as_echo "${TCLSH_PROG}" >&6; } - - -#TEA_PROG_WISH - -#-------------------------------------------------------------------- -# Finally, substitute all of the various values into the Makefile. -# You may alternatively have a special pkgIndex.tcl.in or other files -# which require substituting th AC variables in. Include these here. -#-------------------------------------------------------------------- - -ac_config_files="$ac_config_files Makefile pkgIndex.tcl togl_ws.h" - -cat >confcache <<\_ACEOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs, see configure's option --config-cache. -# It is not useful on other systems. If it contains results you don't -# want to keep, you may remove or edit it. -# -# config.status only pays attention to the cache file if you give it -# the --recheck option to rerun configure. -# -# `ac_cv_env_foo' variables (set or unset) will be overridden when -# loading this file, other *unset* `ac_cv_foo' will be assigned the -# following values. - -_ACEOF - -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, we kill variables containing newlines. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -( - for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do - eval ac_val=\$$ac_var - case $ac_val in #( - *${as_nl}*) - case $ac_var in #( - *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 -$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; - esac - case $ac_var in #( - _ | IFS | as_nl) ;; #( - BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( - *) { eval $ac_var=; unset $ac_var;} ;; - esac ;; - esac - done - - (set) 2>&1 | - case $as_nl`(ac_space=' '; set) 2>&1` in #( - *${as_nl}ac_space=\ *) - # `set' does not quote correctly, so add quotes: double-quote - # substitution turns \\\\ into \\, and sed turns \\ into \. - sed -n \ - "s/'/'\\\\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" - ;; #( - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" - ;; - esac | - sort -) | - sed ' - /^ac_cv_env_/b end - t clear - :clear - s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ - t end - s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ - :end' >>confcache -if diff "$cache_file" confcache >/dev/null 2>&1; then :; else - if test -w "$cache_file"; then - test "x$cache_file" != "x/dev/null" && - { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 -$as_echo "$as_me: updating cache $cache_file" >&6;} - cat confcache >$cache_file - else - { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 -$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} - fi -fi -rm -f confcache - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# Transform confdefs.h into DEFS. -# Protect against shell expansion while executing Makefile rules. -# Protect against Makefile macro expansion. -# -# If the first sed substitution is executed (which looks for macros that -# take arguments), then branch to the quote section. Otherwise, -# look for a macro that doesn't take arguments. -ac_script=' -:mline -/\\$/{ - N - s,\\\n,, - b mline -} -t clear -:clear -s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g -t quote -s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g -t quote -b any -:quote -s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g -s/\[/\\&/g -s/\]/\\&/g -s/\$/$$/g -H -:any -${ - g - s/^\n// - s/\n/ /g - p -} -' -DEFS=`sed -n "$ac_script" confdefs.h` - - -ac_libobjs= -ac_ltlibobjs= -for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue - # 1. Remove the extension, and $U if already installed. - ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' - ac_i=`$as_echo "$ac_i" | sed "$ac_script"` - # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR - # will be set to the directory where LIBOBJS objects are built. - as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" - as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' -done -LIBOBJS=$ac_libobjs - -LTLIBOBJS=$ac_ltlibobjs - - - -CFLAGS="${CFLAGS} ${CPPFLAGS}"; CPPFLAGS="" - -: ${CONFIG_STATUS=./config.status} -ac_write_fail=0 -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files $CONFIG_STATUS" -{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 -$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} -as_write_fail=0 -cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 -#! $SHELL -# Generated by $as_me. -# Run this file to recreate the current configuration. -# Compiler output produced by configure, useful for debugging -# configure, is in config.log if it exists. - -debug=false -ac_cs_recheck=false -ac_cs_silent=false - -SHELL=\${CONFIG_SHELL-$SHELL} -export SHELL -_ASEOF -cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## - -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi - - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' -else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } -fi - - -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - - -# as_fn_error ERROR [LINENO LOG_FD] -# --------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with status $?, using 1 if that was 0. -as_fn_error () -{ - as_status=$?; test $as_status -eq 0 && as_status=1 - if test "$3"; then - as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3 - fi - $as_echo "$as_me: error: $1" >&2 - as_fn_exit $as_status -} # as_fn_error - - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - -as_me=`$as_basename -- "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; -esac - -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file -else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null -fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else - as_ln_s='cp -p' - fi -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null - - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -exec 6>&1 -## ----------------------------------- ## -## Main body of $CONFIG_STATUS script. ## -## ----------------------------------- ## -_ASEOF -test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -# Save the log message, to keep $0 and so on meaningful, and to -# report actual input values of CONFIG_FILES etc. instead of their -# values after options handling. -ac_log=" -This file was extended by Togl $as_me 2.1, which was -generated by GNU Autoconf 2.65. Invocation command line was - - CONFIG_FILES = $CONFIG_FILES - CONFIG_HEADERS = $CONFIG_HEADERS - CONFIG_LINKS = $CONFIG_LINKS - CONFIG_COMMANDS = $CONFIG_COMMANDS - $ $0 $@ - -on `(hostname || uname -n) 2>/dev/null | sed 1q` -" - -_ACEOF - -case $ac_config_files in *" -"*) set x $ac_config_files; shift; ac_config_files=$*;; -esac - - - -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -# Files that config.status was made for. -config_files="$ac_config_files" - -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -ac_cs_usage="\ -\`$as_me' instantiates files and other configuration actions -from templates according to the current configuration. Unless the files -and actions are specified as TAGs, all are instantiated by default. - -Usage: $0 [OPTION]... [TAG]... - - -h, --help print this help, then exit - -V, --version print version number and configuration settings, then exit - --config print configuration, then exit - -q, --quiet, --silent - do not print progress messages - -d, --debug don't remove temporary files - --recheck update $as_me by reconfiguring in the same conditions - --file=FILE[:TEMPLATE] - instantiate the configuration file FILE - -Configuration files: -$config_files - -Report bugs to the package provider." - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" -ac_cs_version="\\ -Togl config.status 2.1 -configured by $0, generated by GNU Autoconf 2.65, - with options \\"\$ac_cs_config\\" - -Copyright (C) 2009 Free Software Foundation, Inc. -This config.status script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it." - -ac_pwd='$ac_pwd' -srcdir='$srcdir' -INSTALL='$INSTALL' -test -n "\$AWK" || AWK=awk -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -# The default lists apply if the user does not specify any file. -ac_need_defaults=: -while test $# != 0 -do - case $1 in - --*=*) - ac_option=`expr "X$1" : 'X\([^=]*\)='` - ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` - ac_shift=: - ;; - *) - ac_option=$1 - ac_optarg=$2 - ac_shift=shift - ;; - esac - - case $ac_option in - # Handling of the options. - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - ac_cs_recheck=: ;; - --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) - $as_echo "$ac_cs_version"; exit ;; - --config | --confi | --conf | --con | --co | --c ) - $as_echo "$ac_cs_config"; exit ;; - --debug | --debu | --deb | --de | --d | -d ) - debug=: ;; - --file | --fil | --fi | --f ) - $ac_shift - case $ac_optarg in - *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - as_fn_append CONFIG_FILES " '$ac_optarg'" - ac_need_defaults=false;; - --he | --h | --help | --hel | -h ) - $as_echo "$ac_cs_usage"; exit ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil | --si | --s) - ac_cs_silent=: ;; - - # This is an error. - -*) as_fn_error "unrecognized option: \`$1' -Try \`$0 --help' for more information." ;; - - *) as_fn_append ac_config_targets " $1" - ac_need_defaults=false ;; - - esac - shift -done - -ac_configure_extra_args= - -if $ac_cs_silent; then - exec 6>/dev/null - ac_configure_extra_args="$ac_configure_extra_args --silent" -fi - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -if \$ac_cs_recheck; then - set X '$SHELL' '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion - shift - \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 - CONFIG_SHELL='$SHELL' - export CONFIG_SHELL - exec "\$@" -fi - -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -exec 5>>config.log -{ - echo - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## Running $as_me. ## -_ASBOX - $as_echo "$ac_log" -} >&5 - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 - -# Handling of arguments. -for ac_config_target in $ac_config_targets -do - case $ac_config_target in - "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; - "pkgIndex.tcl") CONFIG_FILES="$CONFIG_FILES pkgIndex.tcl" ;; - "togl_ws.h") CONFIG_FILES="$CONFIG_FILES togl_ws.h" ;; - - *) as_fn_error "invalid argument: \`$ac_config_target'" "$LINENO" 5;; - esac -done - - -# If the user did not use the arguments to specify the items to instantiate, -# then the envvar interface is used. Set only those that are not. -# We use the long form for the default assignment because of an extremely -# bizarre bug on SunOS 4.1.3. -if $ac_need_defaults; then - test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files -fi - -# Have a temporary directory for convenience. Make it in the build tree -# simply because there is no reason against having it here, and in addition, -# creating and moving files from /tmp can sometimes cause problems. -# Hook for its removal unless debugging. -# Note that there is a small window in which the directory will not be cleaned: -# after its creation but before its name has been assigned to `$tmp'. -$debug || -{ - tmp= - trap 'exit_status=$? - { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status -' 0 - trap 'as_fn_exit 1' 1 2 13 15 -} -# Create a (secure) tmp directory for tmp files. - -{ - tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && - test -n "$tmp" && test -d "$tmp" -} || -{ - tmp=./conf$$-$RANDOM - (umask 077 && mkdir "$tmp") -} || as_fn_error "cannot create a temporary directory in ." "$LINENO" 5 - -# Set up the scripts for CONFIG_FILES section. -# No need to generate them if there are no CONFIG_FILES. -# This happens for instance with `./config.status config.h'. -if test -n "$CONFIG_FILES"; then - - -ac_cr=`echo X | tr X '\015'` -# On cygwin, bash can eat \r inside `` if the user requested igncr. -# But we know of no other shell where ac_cr would be empty at this -# point, so we can use a bashism as a fallback. -if test "x$ac_cr" = x; then - eval ac_cr=\$\'\\r\' -fi -ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` -if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then - ac_cs_awk_cr='\r' -else - ac_cs_awk_cr=$ac_cr -fi - -echo 'BEGIN {' >"$tmp/subs1.awk" && -_ACEOF - - -{ - echo "cat >conf$$subs.awk <<_ACEOF" && - echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && - echo "_ACEOF" -} >conf$$subs.sh || - as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 -ac_delim_num=`echo "$ac_subst_vars" | grep -c '$'` -ac_delim='%!_!# ' -for ac_last_try in false false false false false :; do - . ./conf$$subs.sh || - as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 - - ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` - if test $ac_delim_n = $ac_delim_num; then - break - elif $ac_last_try; then - as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 - else - ac_delim="$ac_delim!$ac_delim _$ac_delim!! " - fi -done -rm -f conf$$subs.sh - -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -cat >>"\$tmp/subs1.awk" <<\\_ACAWK && -_ACEOF -sed -n ' -h -s/^/S["/; s/!.*/"]=/ -p -g -s/^[^!]*!// -:repl -t repl -s/'"$ac_delim"'$// -t delim -:nl -h -s/\(.\{148\}\)..*/\1/ -t more1 -s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ -p -n -b repl -:more1 -s/["\\]/\\&/g; s/^/"/; s/$/"\\/ -p -g -s/.\{148\}// -t nl -:delim -h -s/\(.\{148\}\)..*/\1/ -t more2 -s/["\\]/\\&/g; s/^/"/; s/$/"/ -p -b -:more2 -s/["\\]/\\&/g; s/^/"/; s/$/"\\/ -p -g -s/.\{148\}// -t delim -' >$CONFIG_STATUS || ac_write_fail=1 -rm -f conf$$subs.awk -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -_ACAWK -cat >>"\$tmp/subs1.awk" <<_ACAWK && - for (key in S) S_is_set[key] = 1 - FS = "" - -} -{ - line = $ 0 - nfields = split(line, field, "@") - substed = 0 - len = length(field[1]) - for (i = 2; i < nfields; i++) { - key = field[i] - keylen = length(key) - if (S_is_set[key]) { - value = S[key] - line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) - len += length(value) + length(field[++i]) - substed = 1 - } else - len += 1 + keylen - } - - print line -} - -_ACAWK -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then - sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" -else - cat -fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \ - || as_fn_error "could not setup config files machinery" "$LINENO" 5 -_ACEOF - -# VPATH may cause trouble with some makes, so we remove $(srcdir), -# ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and -# trailing colons and then remove the whole line if VPATH becomes empty -# (actually we leave an empty line to preserve line numbers). -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=/{ -s/:*\$(srcdir):*/:/ -s/:*\${srcdir}:*/:/ -s/:*@srcdir@:*/:/ -s/^\([^=]*=[ ]*\):*/\1/ -s/:*$// -s/^[^=]*=[ ]*$// -}' -fi - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -fi # test -n "$CONFIG_FILES" - - -eval set X " :F $CONFIG_FILES " -shift -for ac_tag -do - case $ac_tag in - :[FHLC]) ac_mode=$ac_tag; continue;; - esac - case $ac_mode$ac_tag in - :[FHL]*:*);; - :L* | :C*:*) as_fn_error "invalid tag \`$ac_tag'" "$LINENO" 5;; - :[FH]-) ac_tag=-:-;; - :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; - esac - ac_save_IFS=$IFS - IFS=: - set x $ac_tag - IFS=$ac_save_IFS - shift - ac_file=$1 - shift - - case $ac_mode in - :L) ac_source=$1;; - :[FH]) - ac_file_inputs= - for ac_f - do - case $ac_f in - -) ac_f="$tmp/stdin";; - *) # Look for the file first in the build tree, then in the source tree - # (if the path is not absolute). The absolute path cannot be DOS-style, - # because $ac_f cannot contain `:'. - test -f "$ac_f" || - case $ac_f in - [\\/$]*) false;; - *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; - esac || - as_fn_error "cannot find input file: \`$ac_f'" "$LINENO" 5;; - esac - case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac - as_fn_append ac_file_inputs " '$ac_f'" - done - - # Let's still pretend it is `configure' which instantiates (i.e., don't - # use $as_me), people would be surprised to read: - # /* config.h. Generated by config.status. */ - configure_input='Generated from '` - $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' - `' by configure.' - if test x"$ac_file" != x-; then - configure_input="$ac_file. $configure_input" - { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 -$as_echo "$as_me: creating $ac_file" >&6;} - fi - # Neutralize special characters interpreted by sed in replacement strings. - case $configure_input in #( - *\&* | *\|* | *\\* ) - ac_sed_conf_input=`$as_echo "$configure_input" | - sed 's/[\\\\&|]/\\\\&/g'`;; #( - *) ac_sed_conf_input=$configure_input;; - esac - - case $ac_tag in - *:-:* | *:-) cat >"$tmp/stdin" \ - || as_fn_error "could not create $ac_file" "$LINENO" 5 ;; - esac - ;; - esac - - ac_dir=`$as_dirname -- "$ac_file" || -$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$ac_file" : 'X\(//\)[^/]' \| \ - X"$ac_file" : 'X\(//\)$' \| \ - X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$ac_file" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - as_dir="$ac_dir"; as_fn_mkdir_p - ac_builddir=. - -case "$ac_dir" in -.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; -*) - ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` - # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` - case $ac_top_builddir_sub in - "") ac_top_builddir_sub=. ac_top_build_prefix= ;; - *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; - esac ;; -esac -ac_abs_top_builddir=$ac_pwd -ac_abs_builddir=$ac_pwd$ac_dir_suffix -# for backward compatibility: -ac_top_builddir=$ac_top_build_prefix - -case $srcdir in - .) # We are building in place. - ac_srcdir=. - ac_top_srcdir=$ac_top_builddir_sub - ac_abs_top_srcdir=$ac_pwd ;; - [\\/]* | ?:[\\/]* ) # Absolute name. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir - ac_abs_top_srcdir=$srcdir ;; - *) # Relative name. - ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_build_prefix$srcdir - ac_abs_top_srcdir=$ac_pwd/$srcdir ;; -esac -ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix - - - case $ac_mode in - :F) - # - # CONFIG_FILE - # - - case $INSTALL in - [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; - *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; - esac -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -# If the template does not know about datarootdir, expand it. -# FIXME: This hack should be removed a few years after 2.60. -ac_datarootdir_hack=; ac_datarootdir_seen= -ac_sed_dataroot=' -/datarootdir/ { - p - q -} -/@datadir@/p -/@docdir@/p -/@infodir@/p -/@localedir@/p -/@mandir@/p' -case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in -*datarootdir*) ac_datarootdir_seen=yes;; -*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 -$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 - ac_datarootdir_hack=' - s&@datadir@&$datadir&g - s&@docdir@&$docdir&g - s&@infodir@&$infodir&g - s&@localedir@&$localedir&g - s&@mandir@&$mandir&g - s&\\\${datarootdir}&$datarootdir&g' ;; -esac -_ACEOF - -# Neutralize VPATH when `$srcdir' = `.'. -# Shell code in configure.ac might set extrasub. -# FIXME: do we really want to maintain this feature? -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -ac_sed_extra="$ac_vpsub -$extrasub -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -:t -/@[a-zA-Z_][a-zA-Z_0-9]*@/!b -s|@configure_input@|$ac_sed_conf_input|;t t -s&@top_builddir@&$ac_top_builddir_sub&;t t -s&@top_build_prefix@&$ac_top_build_prefix&;t t -s&@srcdir@&$ac_srcdir&;t t -s&@abs_srcdir@&$ac_abs_srcdir&;t t -s&@top_srcdir@&$ac_top_srcdir&;t t -s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t -s&@builddir@&$ac_builddir&;t t -s&@abs_builddir@&$ac_abs_builddir&;t t -s&@abs_top_builddir@&$ac_abs_top_builddir&;t t -s&@INSTALL@&$ac_INSTALL&;t t -$ac_datarootdir_hack -" -eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \ - || as_fn_error "could not create $ac_file" "$LINENO" 5 - -test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && - { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } && - { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } && - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' -which seems to be undefined. Please make sure it is defined." >&5 -$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' -which seems to be undefined. Please make sure it is defined." >&2;} - - rm -f "$tmp/stdin" - case $ac_file in - -) cat "$tmp/out" && rm -f "$tmp/out";; - *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";; - esac \ - || as_fn_error "could not create $ac_file" "$LINENO" 5 - ;; - - - - esac - -done # for ac_tag - - -as_fn_exit 0 -_ACEOF -ac_clean_files=$ac_clean_files_save - -test $ac_write_fail = 0 || - as_fn_error "write failure creating $CONFIG_STATUS" "$LINENO" 5 - - -# configure is writing to config.log, and then calls config.status. -# config.status does its own redirection, appending to config.log. -# Unfortunately, on DOS this fails, as config.log is still kept open -# by configure, so config.status won't be able to write to it; its -# output is simply discarded. So we exec the FD to /dev/null, -# effectively closing config.log, so it can be properly (re)opened and -# appended to by config.status. When coming back to configure, we -# need to make the FD available again. -if test "$no_create" != yes; then - ac_cs_success=: - ac_config_status_args= - test "$silent" = yes && - ac_config_status_args="$ac_config_status_args --quiet" - exec 5>/dev/null - $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false - exec 5>>config.log - # Use ||, not &&, to avoid exiting from the if with $? = 1, which - # would make configure fail if this is the last instruction. - $ac_cs_success || as_fn_exit $? -fi -if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 -$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} -fi - diff --git a/opengl/Togl2.1-SnapPy/configure.in b/opengl/Togl2.1-SnapPy/configure.in deleted file mode 100755 index 836073c48..000000000 --- a/opengl/Togl2.1-SnapPy/configure.in +++ /dev/null @@ -1,281 +0,0 @@ -#!/bin/bash -norc -dnl This file is an input file used by the GNU "autoconf" program to -dnl generate the file "configure", which is run during Tcl installation -dnl to configure the system for the local environment. -# -# RCS: @(#) $Id: configure.in,v 1.17 2009/03/03 21:49:56 gregcouch Exp $ - -#----------------------------------------------------------------------- -# Sample configure.in for Tcl Extensions. The only places you should -# need to modify this file are marked by the string __CHANGE__ -#----------------------------------------------------------------------- - -#----------------------------------------------------------------------- -# __CHANGE__ -# Set your package name and version numbers here. -# -# This initializes the environment with PACKAGE_NAME and PACKAGE_VERSION -# set as provided. These will also be added as -D defs in your Makefile -# so you can encode the package version directly into the source files. -#----------------------------------------------------------------------- - -AC_INIT([Togl], [2.1]) - -#-------------------------------------------------------------------- -# Call TEA_INIT as the first TEA_ macro to set up initial vars. -# This will define a ${TEA_PLATFORM} variable == "unix" or "windows" -# as well as PKG_LIB_FILE and PKG_STUB_LIB_FILE. -#-------------------------------------------------------------------- - -TEA_INIT([3.7]) - -AC_CONFIG_AUX_DIR(tclconfig) - -#-------------------------------------------------------------------- -# Load the tclConfig.sh file -#-------------------------------------------------------------------- - -TEA_PATH_TCLCONFIG -TEA_LOAD_TCLCONFIG - -#-------------------------------------------------------------------- -# Load the tkConfig.sh file if necessary (Tk extension) -#-------------------------------------------------------------------- - -TEA_PATH_TKCONFIG -TEA_LOAD_TKCONFIG - -#----------------------------------------------------------------------- -# Handle the --prefix=... option by defaulting to what Tcl gave. -# Must be called after TEA_LOAD_TCLCONFIG and before TEA_SETUP_COMPILER. -#----------------------------------------------------------------------- - -TEA_PREFIX - -#----------------------------------------------------------------------- -# Standard compiler checks. -# This sets up CC by using the CC env var, or looks for gcc otherwise. -# This also calls AC_PROG_CC, AC_PROG_INSTALL and a few others to create -# the basic setup necessary to compile executables. -#----------------------------------------------------------------------- - -TEA_SETUP_COMPILER - -#----------------------------------------------------------------------- -# __CHANGE__ -# Specify the C source files to compile in TEA_ADD_SOURCES, -# public headers that need to be installed in TEA_ADD_HEADERS, -# stub library C source files to compile in TEA_ADD_STUB_SOURCES, -# and runtime Tcl library files in TEA_ADD_TCL_SOURCES. -# This defines PKG(_STUB)_SOURCES, PKG(_STUB)_OBJECTS, PKG_HEADERS -# and PKG_TCL_SOURCES. -#----------------------------------------------------------------------- - -TOGL_ENABLE_STUBS - -TEA_ADD_SOURCES([togl.c toglProcAddr.c toglStubInit.c]) -# togl_ws.h is added in Makefile.in because it is generated -TEA_ADD_HEADERS([togl.h toglDecls.h]) -TEA_ADD_INCLUDES([]) -TEA_ADD_LIBS([]) -TEA_ADD_CFLAGS([]) -if test "${USE_STUBS}" = "1" ; then - TEA_ADD_STUB_SOURCES([toglStubLib.c]) -fi -TEA_ADD_TCL_SOURCES([]) - -#-------------------------------------------------------------------- -# __CHANGE__ -# A few miscellaneous platform-specific items: -# -# Define a special symbol for Windows (BUILD_sample in this case) so -# that we create the export library with the dll. -# -# Windows creates a few extra files that need to be cleaned up. -# You can add more files to clean if your extension creates any extra -# files. -# -# TEA_ADD_* any platform specific compiler/build info here. -#-------------------------------------------------------------------- - -# Add pkgIndex.tcl if it is generated in the Makefile instead of ./configure -# and change Makefile.in to move it from CONFIG_CLEAN_FILES to BINARIES var. -#CLEANFILES="pkgIndex.tcl" -if test "${TEA_PLATFORM}" = "windows" ; then - AC_DEFINE(BUILD_togl, 1, [Build windows export dll]) - CLEANFILES="$CLEANFILES *.lib *.dll *.exp *.ilk *.pdb vc*.pch *.manifest" - #TEA_ADD_SOURCES([win/winFile.c]) - #TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"]) -else - # Ensure no empty else clauses - : - CLEANFILES="so_locations" - #TEA_ADD_SOURCES([unix/unixFile.c]) - #TEA_ADD_LIBS([-lsuperfly]) -fi -AC_SUBST(CLEANFILES) - -#-------------------------------------------------------------------- -# __CHANGE__ -# Choose which headers you need. Extension authors should try very -# hard to only rely on the Tcl public header files. Internal headers -# contain private data structures and are subject to change without -# notice. -# This MUST be called after TEA_LOAD_TCLCONFIG / TEA_LOAD_TKCONFIG -#-------------------------------------------------------------------- - -# find Tcl, Tk, and X11 headers -#TEA_PUBLIC_TCL_HEADERS -TEA_PRIVATE_TCL_HEADERS - -#TEA_PUBLIC_TK_HEADERS -TEA_PRIVATE_TK_HEADERS -TEA_PATH_X - -# find autostereo header, lib, and daemon -AC_ARG_WITH([autostereo], - [AS_HELP_STRING([--with-autostereo], - [directory with autostereo source (for SGI)])], - [with_autostereo=${withval}]) -AC_ARG_WITH([autostereod], - [AS_HELP_STRING([--with-autostereod], - [path to autostereod daemon (for SGI)])], - [with_autostereod=${withval}]) -AC_ARG_VAR([AUTOSTEREOD], [Path to autostereod for SGI IRIX computers]) - -AC_MSG_CHECKING([for autostereo directory]) -if test x"${with_autostereo}" != x ; then - if test -f "${with_autostereo}/lib/autostereo.h" ; then - with_autostereo=`(cd ${with_autostereo}; pwd)` - TEA_ADD_INCLUDES([-I${with_autostereo}/lib]) - TEA_ADD_LIBS([-L${with_autostereo}/lib -lautostereo]) - AC_DEFINE_UNQUOTED(HAVE_AUTOSTEREO, 1, - [Define this if you have the autostereo header]) - else - AC_MSG_ERROR([${with_autostereo} directory doesn't contain lib/autostereo.h]) - fi -fi - -AC_PATH_PROG([AUTOSTEREOD], [autostereod], [], - [`eval \"echo $sbindir\"`:$PATH:/sbin:/usr/sbin]) - - -# Choose OpenGL platform -case "${TEA_WINDOWINGSYSTEM}" in - aqua) - AC_SUBST(TOGL_WINDOWINGSYSTEM,TOGL_AGL) - TEA_ADD_LIBS([-framework AGL -framework OpenGL -framework ApplicationServices]) - # libGLU is implicit in OpenGL framework - LIBGLU= - ;; - x11) - AC_SUBST(TOGL_WINDOWINGSYSTEM,TOGL_X11) - AC_ARG_WITH([Xmu], - [AS_HELP_STRING([--with-Xmu], - [use system's shared Xmu library])], - [], - [with_Xmu=no]) - AS_IF([test "x$with_Xmu" != xno], - [AC_CHECK_LIB([Xmu], [XmuLookupStandardColormap], - [TEA_ADD_LIBS([-lXmu]) - AC_DEFINE(USE_SYSTEM_LIBXMU, 1, - [Define to use system Xmu library]) - ], - [with_Xmu=no], - [-lXt -lX11] - )]) - AS_IF([test "x$with_Xmu" = xno], - [TEA_ADD_SOURCES([Xmu/CmapAlloc.c Xmu/CrCmap.c Xmu/DelCmap.c Xmu/LookupCmap.c Xmu/StdCmap.c])]) - TEA_ADD_LIBS([-lGL]) - LIBGLU=-lGLU - TOGL_UNDEF_GET_PROC_ADDRESS - ;; - win32) - AC_SUBST(TOGL_WINDOWINGSYSTEM,TOGL_WGL) - TEA_ADD_LIBS([opengl32.lib user32.lib gdi32.lib]) - if test "$GCC" = "yes" ; then - LIBGLU=-lglu32 - else - # assume Microsoft compiler - LIBGLU=glu32.lib - fi - ;; - *) - AC_MSG_ERROR([Unsupported windowing system: ${TEA_WINDOWINGSYSTEM}]) - ;; -esac -AC_SUBST(LIBGLU) -AC_SUBST(TEA_WINDOWINGSYSTEM) - -#-------------------------------------------------------------------- -# Check whether --enable-threads or --disable-threads was given. -# This auto-enables if Tcl was compiled threaded. -#-------------------------------------------------------------------- - -TEA_ENABLE_THREADS - -#-------------------------------------------------------------------- -# The statement below defines a collection of symbols related to -# building as a shared library instead of a static library. -#-------------------------------------------------------------------- - -TEA_ENABLE_SHARED - -#-------------------------------------------------------------------- -# This macro figures out what flags to use with the compiler/linker -# when building shared/static debug/optimized objects. This information -# can be taken from the tclConfig.sh file, but this figures it all out. -#-------------------------------------------------------------------- - -TEA_CONFIG_CFLAGS -# should be part of TEA_CONFIG_CFLAGS, but more visible modification here -AC_SUBST(SHLIB_SUFFIX) - -#-------------------------------------------------------------------- -# Set the default compiler switches based on the --enable-symbols option. -#-------------------------------------------------------------------- - -TEA_ENABLE_SYMBOLS - -#-------------------------------------------------------------------- -# Everyone should be linking against the Tcl stub library. If you -# can't for some reason, remove this definition. If you aren't using -# stubs, you also need to modify the SHLIB_LD_LIBS setting below to -# link against the non-stubbed Tcl library. Add Tk too if necessary. -#-------------------------------------------------------------------- - -if test "${USE_STUBS}" = "1" ; then - AC_DEFINE(USE_TCL_STUBS, 1, [Use Tcl stubs]) - AC_DEFINE(USE_TK_STUBS, 1, [Use Tk stubs]) -fi - -#-------------------------------------------------------------------- -# This macro generates a line to use when building a library. It -# depends on values set by the TEA_ENABLE_SHARED, TEA_ENABLE_SYMBOLS, -# and TEA_LOAD_TCLCONFIG macros above. -#-------------------------------------------------------------------- - -TEA_MAKE_LIB - -if test "${USE_STUBS}" = "0" ; then - SHLIB_LD_LIBS=`echo "$SHLIB_LD_LIBS" | sed -e 's!stub!!g'` -fi - -#-------------------------------------------------------------------- -# Determine the name of the tclsh and/or wish executables in the -# Tcl and Tk build directories or the location they were installed -# into. These paths are used to support running test cases only, -# the Makefile should not be making use of these paths to generate -# a pkgIndex.tcl file or anything else at extension build time. -#-------------------------------------------------------------------- - -TEA_PROG_TCLSH -#TEA_PROG_WISH - -#-------------------------------------------------------------------- -# Finally, substitute all of the various values into the Makefile. -# You may alternatively have a special pkgIndex.tcl.in or other files -# which require substituting th AC variables in. Include these here. -#-------------------------------------------------------------------- - -AC_OUTPUT([Makefile pkgIndex.tcl togl_ws.h]) diff --git a/opengl/Togl2.1-SnapPy/doc/README.txt b/opengl/Togl2.1-SnapPy/doc/README.txt deleted file mode 100644 index 07f6577b6..000000000 --- a/opengl/Togl2.1-SnapPy/doc/README.txt +++ /dev/null @@ -1,2 +0,0 @@ -This directory contains the documentation of Togl, the Tk OpenGL widget. -The documentation also doubles as the contents of the Togl home page. diff --git a/opengl/Togl2.1-SnapPy/doc/capi.html b/opengl/Togl2.1-SnapPy/doc/capi.html deleted file mode 100644 index b86c4a421..000000000 --- a/opengl/Togl2.1-SnapPy/doc/capi.html +++ /dev/null @@ -1,652 +0,0 @@ - - - - - - - - Togl C API - - - - - - -

Togl C API

- -

Contents

-
    -
  • Compiling and linking C Togl Functions -
  • Setup and Initialization Functions -
      -
    • Togl_Init, - Togl_InitStubs -
    -
  • Drawing-related Commands -
      -
    • Togl_PostRedisplay, - Togl_SwapBuffers, - Togl_MakeCurrent, - Togl_SwapInterval - Togl_CopyContext -
    -
  • Query Functions -
      -
    • Togl_Ident, - Togl_Width, - Togl_Height, - Togl_Interp, - Togl_TkWin, - Togl_GetProcAddr, - Togl_ContextTag - Togl_UpdatePending - Togl_HasRGBA - Togl_IsDoubleBuffered - Togl_HasDepthBuffer - Togl_HasAccumulationBuffer - Togl_HasDestinationAlpha - Togl_HasStencilBuffer - Togl_StereoMode - Togl_HasMultisample -
    -
  • Color Index Mode Functions -
      -
    • Togl_AllocColor, - Togl_FreeColor, - Togl_SetColor -
    -
  • Font Functions -
      -
    • Togl_LoadBitmapFont, - Togl_UnloadBitmapFont, - Togl_WriteObj, - Togl_WriteChars -
    -
  • Client Data Functions -
      -
    • Togl_SetClientData, - Togl_GetClientData -
    -
  • Overlay Functions -
      -
    • Togl_UseLayer, - Togl_ShowOverlay, - Togl_HideOverlay, - Togl_PostOveralyRedisplay, - Togl_ExistsOverlay, - Togl_GetOverlayTransparentValue, - Togl_IsMappedOverlay, - Togl_AllocColorOverlay, - Togl_FreeColorOverlay -
    -
  • Stereo Functions -
      -
    • Togl_Drawbuffer, -
    • Togl_Clear -
    • Togl_Frustum -
    • Togl_Ortho -
    • Togl_NumEyes -
    -
  • Image Functions -
      -
    • Togl_TakePhoto -
    -
  • Conversion Functions -
      -
    • Togl_GetToglFromObj, -
    • Togl_GetToglFromName -
    -
- -
- -

Compiling and linking C Togl Functions

- -

- All Togl functions are found in the Togl header file. - -

- - #include "togl.h" - -
- -

- For portability, you should include the togl.h header - before any other OpenGL headers - so it will compile on Microsoft Windows. - -

- Before calling any Togl functions, you need to initialize it. - Regardless if you're using stubs (by defining USE_TOGL_STUBS) - or not, the following code will properly initialize togl: - - 

-if (Tcl_InitStubs(interp, "8.1", 0) == NULL
-|| Togl_InitStubs(interp, "2.0", 0) == NULL) {
-    /* fail */
-}
-
- -

- If you are using a prebuilt binary distribution, - you should be sure to define USE_TOGL_STUBS beforehand. - -

- See the source for the demo programs in the Togl source distribution - for working examples. - -

Linking

- -

- If you are using a prebuilt binary, - be sure to link against the stub library. - On Microsoft Windows, - link against Toglstub21.lib opengl32.lib user32.lib gdi32.lib, - on Mac OS X, - link against -lToglstub2.1 -framework OpenGL, - on other platforms, - link against -lToglstub2.1 -lGLU -lGL -lm. - -

- If building your own Togl package, - you can use the stubs interface or link in the Tcl and Tk libraries as well. - If using the stubs interface, link as shown above. - Otherwise: - on Microsoft Windows, - link against Togl21.lib tk84.lib tcl84.lib opengl32.lib user32.lib gdi32.lib, - on Mac OS X, - link against -lTogl2.1 -framework Tk -framework Tcl -framework OpenGL, - on other platforms, - link against -lTogl2.1 -ltk8.4 -ltcl8.4 -lGLU -lGL -lm. - -

Setup and Initialization Functions

- -
-
int Togl_Init(Tcl_Interp *interp) -
- Initializes the Togl module. This is typically called from the - Tk_Main() function - or other Tcl package initialization function that is directly linked - to the Togl (shared) library. - It is also indirectly called via - Tcl's package require Togl command. - If successful, the return value is TCL_OK. -
- -
-
- const char *Togl_InitStubs(Tcl_Interp *interp, const char *version, int exact) -
- Loads the Togl package into the given interpreter - and initializes it. - version should be "2.0" or higher. - This is typically called from C/C++ code that accesses Togl's C API - and has installed Togl into the standard TCL hierarchy. - See the Tcl InitStubs(3) or the Tk TkInitStubs(3) manual pages for - more information. -
- -

Drawing-related Commands

- -
-
void Togl_PostRedisplay(Togl *togl) -
- Signals that the widget should be redrawn. When Tk is next idle, - the displaycommand callback will be invoked. -
- -
-
void Togl_SwapBuffers(const Togl *togl) -
- Swaps the front and back color buffers for a double-buffered widget. - - glFlush is executed if the window is single-buffered. So this call - works for both single- and double-buffered contexts. This is - typically called in the displaycommand callback function. -
- -
-
void Togl_MakeCurrent(const Togl *togl) -
- Sets the current rendering context to the given widget. This is done - automatically before any Togl callback functions is called. So the - call is only needed if you have multiple widgets with separate OpenGL - contexts. If the argument is NULL, then the rendering context is cleared - and subsequent OpenGL commands will fail. -
- -
-
Bool Togl_SwapInterval(const Togl *togl, int interval) -
- Returns True if successful. - Attempts to change the maximum refresh rate - by setting the minimum number of cycles between successive swap buffers. - For benchmarking purposes, you should set the swap interval to 0. -
- -
-
int Togl_CopyContext(const Togl *from, const Togl *to, unsigned int mask) -
- Copy a subset of the OpenGL context state from from one context - to another using the mask parameter who values are the same as - - glPushAttrib. - The return value is TCL_OK if the context was copied. -
- -

Query Functions

- -
-
char *Togl_Ident(const Togl *togl) -
- Returns a pointer to the identification string associated with a Togl - widget or NULL if there's no identifier string. -
- -
-
int Togl_Width(const Togl *togl) -
- Returns the width of the given Togl widget. Typically called in the - reshapecommand callback function. -
- -
-
int Togl_Height(const Togl *togl) -
- Returns the height of the given Togl widget. Typically called in the - reshapecommand callback function. -
- -
-
Tcl_Interp *Togl_Interp(const Togl *togl) -
- Returns the Tcl interpreter associated with the given Togl widget. -
-
-
- Tk_Window Togl_TkWin(const Togl *togl) -
- Returns the Tk window associated with the given Togl widget. -
- -
-
Togl_FuncPtr Togl_GetProcAddr(const char *funcname) -
- Platform-independent way to get OpenGL function pointers from a - function name. - Note that in Microsoft Windows (WGL) versions that - "the extension function addresses are unique for each pixel format. - All rendering contexts of a given pixel format - share the same extension function addresses." - And on *nix (GLX/X11) platforms, - "the function pointers returned are context independent" - (Linux ABI documentation). - The Mac OS X (AGL) platform acts like a *nix platform. -
- -
-
int Togl_ContextTag(const Togl *t) -
- Returns an integer that represents the context tag. - All Togl widgets with the same context tag share display lists. -
- -
-
Bool Togl_UpdatePending(const Togl *t) -
- Returns True if the window should be redrawn. See Togl_PostRedisplay. -
- -
-
Bool Togl_HasRGBA(const Togl *t) -
- Return True if Togl widget has a RBGA color buffer. - False means that the widget is using a color index buffer. -
- -
-
Bool Togl_IsDoubleBuffered(const Togl *t) -
- Return True if Togl widget is double buffered. -
- -
-
Bool Togl_HasDepthBuffer(const Togl *t) -
- Return True if Togl widget is has a depth buffer. -
- -
-
Bool Togl_HasAccumulationBuffer(const Togl *t) -
- Return True if Togl widget has an accumulation buffer. -
- -
-
Bool Togl_HasDestinationAlpha(const Togl *t) -
- Return True if Togl widget has a destination alpha buffer. -
- -
-
Bool Togl_HasStencilBuffer(const Togl *t) -
- Return True if Togl widget has a stencil buffer. -
- -
-
int Togl_StereoMode(const Togl *t) -
- Return current stereo mode. See ?? -
- -
-
Bool Togl_HasMultisample(const Togl *t) -
- Return True if Togl widget has a multisample buffer. -
- -

Color Index Mode Functions

- -

- These functions are only used for color index mode. - -

-
unsigned long Togl_AllocColor(Togl *togl, float red, float green, float blue) -
- Allocate a color from a read-only colormap. Given a color specified - by red, green, and blue return a colormap index (aka pixel value) - whose entry most closely matches the red, green, blue color. Red, - green, and blue are values in [0,1]. This function is only used in - color index mode when the -privatecmap option is false. -
- -
-
void Togl_FreeColor(Togl *togl, unsigned long index) -
- Free a color in a read-only colormap. Index is a value which was - returned by the Togl_AllocColor() function. This function is only - used in color index mode when the -privatecmap option - is false. -
- -
-
void Togl_SetColor(Togl *togl, - int index, float red, float green, float blue) -
- Load the colormap entry specified by index with the given red, green - and blue values. Red, green, and blue are values in [0,1]. This - function is only used in color index mode when the - -privatecmap option is true. -
- - -

Font Functions

- -

- These functions provide an interface to the simple bitmap font capabilities - that every OpenGL implementation provides. - Better font support is found in other C APIs, e.g., - QuesoGLC - or FTGL. - -

-
Tcl_Obj *Togl_LoadBitmapFont(Togl *togl, - const char *fontname) -
- Load the named font as a set of - - glBitmap display lists. - fontname may be any of the font description styles - accepted by the Tk font command. - For maximum portability, one of the standard Tk fonts, - Courier, Times, and Helvetica, should be used. - Unicode fonts are treated as if they have only have an 8-bit index - (so poorly). - If successful, a Togl BitmapFont object is returned. - NULL is returned on failure. -
- -
-
int Togl_UnloadBitmapFont(Togl *togl, Tcl_Obj *toglfont) - -
- Destroys the bitmap display lists created by by Togl_LoadBitmapFont(). - If successful, the return value is TCL_OK. -
- -
-
int Togl_WriteChars(const Togl *togl, const Tcl_Obj *toglfont, const char *string, int length) - - Draw the given string. - If the given length is zero, then it is computed using strlen. - Returns the length of the drawn string. -
-
- -
-
int Togl_WriteObj(const Togl *togl, const Tcl_Obj *toglfont, Tcl_Obj *obj) - -
- Tcl_Obj interface to Tcl_WriteChars. -
- -

Client Data Functions

- -

- Each Togl structure has a pointer to an arbitrary client data structure. - -

-
void Togl_SetClientData(Togl *togl, ClientData clientData) -
- Set the Togl widget's client data pointer to clientData. -
- -
-
ClientData Togl_GetClientData(const Togl *togl) -
- Return the Togl widget's client data pointer. -
- - -

Overlay Functions

- -

- These functions are modeled after GLUT's overlay sub-API. - -

-
void Togl_UseLayer(Togl *togl, int layer) -
- Select the layer into which subsequent OpenGL rendering will be - directed. layer may be either TOGL_OVERLAY or - TOGL_NORMAL. -
- -
-
void Togl_ShowOverlay(Togl *togl) -
- Display the overlay planes, if any. -
- -
-
void Togl_HideOverlay(Togl *togl) -
- Hide the overlay planes, if any. -
- -
-
void Togl_PostOverlayRedisplay(Togl *togl) -
- Signal that the overlay planes should be redraw. - When Tk is next idle, - the overlaydisplaycommand callback will be invoked. -
- -
-
int Togl_ExistsOverlay(Togl *togl) -
- Returns 1 if overlay planes exist, 0 otherwise. -
- -
-
int Togl_GetOverlayTransparentValue(const Togl *togl) -
- Returns the color index of the overlay's transparent pixel value. -
- -
-
int Togl_IsMappedOverlay(const Togl *togl) -
- Returns 1 if the overlay planes are currently displayed, 0 otherwise. -
- -
-
unsigned long Togl_AllocColorOverlay(const Togl *togl, - float red, float green, float blue) -
- Allocate a color in the overlay planes. Red, green, and blue are - values in [0,1]. Return the color index or -1 if the allocation - fails. -
- -
-
void Togl_FreeColorOverlay(const Togl *togl, unsigned long index) -
- Free a color which was allocated with Togl_AllocColorOverlay(). -
- -

Stereo Functions

- -

- Togl abstracts part of the stereo drawing process to seamlessly - support quad-buffered stereo as well as various alternative stereo - formats. The stereo viewing parameters, eyeseparation - and convergence need to be set with the Togl's - stereo options. - -

-
void Togl_DrawBuffer(Togl *togl, GLenum mode) -
- Switch to OpenGL draw buffer. - Should be one of GL_BACK_LEFT, GL_BACK_RIGHT, GL_FRONT_LEFT, or - GL_FRONT_RIGHT. - It is not possible to draw in the left and right buffers at the same - time in the alternate stereo modes. -
- -
-
void Togl_Clear(const Togl *togl, GLbitfield mask) -
- Replacement for OpenGL's - - glClear that takes into account the alternate stereo mode. -
- -
-
void Togl_Frustum(const Togl *togl, GLfloat left, GLfloat right, GLfloat bottom, GLfloat top, GLfloat near, GLfloat far) -
- Replacement for OpenGL's - - glFrustum that takes into account the alternate stereo mode. -
- -
-
void Togl_Ortho(const Togl *togl, GLfloat left, GLfloat right, GLfloat bottom, GLfloat top, GLfloat near, GLfloat far) -
- Replacement for OpenGL's - - glOrtho that takes into account the alternate stereo mode. -
- -
-
int Togl_NumEyes(const Togl *togl) -
-
- -

Stereo Example

- -

- This code works for quad-buffered stereo, - as well as the other stereo modes. - - 

-if (Togl_NumEyes(togl) == 1) {
-    Togl_DrawBuffer(togl, GL_BACK);
-    Togl_Clear(togl);
-    glMatrixMode(GL_PROJECTION);
-    glLoadIdentity();
-    Togl_Frustum(togl, left, right, bottom, top, near, far);
-    glMatrixMode(GL_MODELVIEW);
-    draw image
-} else {
-    Togl_DrawBuffer(togl, GL_BACK_LEFT);
-    Togl_Clear(togl);
-    glMatrixMode(GL_PROJECTION);
-    glLoadIdentity();
-    Togl_Frustum(togl, left, right, bottom, top, near, far);
-    glMatrixMode(GL_MODELVIEW);
-    draw left-eye image
-    Togl_DrawBuffer(togl, GL_BACK_RIGHT);
-    Togl_Clear(togl);
-    glMatrixMode(GL_PROJECTION);
-    glLoadIdentity();
-    Togl_Frustum(togl, left, right, bottom, top, near, far);
-    glMatrixMode(GL_MODELVIEW);
-    draw right-eye image
-}
-Togl_SwapBuffers(togl);
-
- -

Image Functions

- -

- - -

-
int Togl_TakePhoto(Togl *togl, Tk_PhotoHandle photo) -
- Take a photo image of the current Togl window and place it in the - given photo object. - If the window is partially obscured, - either by other windows or by the edges of the display, - the results are undefined in the obscured region. - If successful, the return value is TCL_OK. -
- -

Conversion Functions

- -

- These functions aid the programmer when writing Togl callback functions. - -

-
int Togl_GetToglFromObj(Tcl_Interp *interp, Tcl_Obj *obj, Togl **toglPtr) -
- Attempt to return a Togl structure "toglPtr" from the Tcl object "obj". - If successful, the return value is TCL_OK. -
- -
-
int Togl_GetToglFromName(Tcl_Interp *interp, const char *cmdName, Togl **toglPtr) -
- Attempt to return a Togl structure "toglPtr" from the Tcl command name "cmdName". - If successful, the return value is TCL_OK. -
- -
- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/download.html b/opengl/Togl2.1-SnapPy/doc/download.html deleted file mode 100644 index 72b7c7b26..000000000 --- a/opengl/Togl2.1-SnapPy/doc/download.html +++ /dev/null @@ -1,340 +0,0 @@ - - - - - - - - Downloading and Installing Togl - - - - - - -

Downloading and Installing Togl

- -

Contents

- - -
- -

Prerequisites

- -

- You should have - Tcl and Tk - installed on your computer. - Togl works with Tcl/Tk version 8.1 and up - (all recent testing has been with version 8.4). - The Mac OS X version requires version 8.4 - (note: versions 8.4.12 and 8.4.13 have a bug when unmapping Togl widgets). - -

- You must also have - OpenGL or - Mesa - (a free alternative to OpenGL with the same API) - installed on your computer. - -

- And one should be familiar with Tcl, Tk, OpenGL, - and C programming to use Togl effectively. - -
-

Downloading Togl

- -

- Togl can be downloaded from the - - SourceForge Files page. - -

- Several prebuilt binary distributions are available - as well as a source distribution. - -

Installing Togl

- -

Installing prebuild binaries

- -

- Prebuilt binaries provide a Togl2.1 directory, - the togl.h, togl_ws.h and toglDecls.h include files, - and the togl stub library - (libToglstub2.1.a or Toglstub20.lib, etc). - The Togl2.1 directory needs to copied - into one of the directories on Tcl's package path - (type puts $auto_path in the Tcl interpreter to see - the list of directories). - If you have C code that needs to access Togl's subroutines directly, - place the include file in the same place as Tcl's include file and - the stub library in the same place as Tcl's stub library. - -

Installing from source

- -

- Togl uses the Tcl Extension Architecture to be able to build on the - same platforms Tcl can be built on. - In addition to the Togl source, - you will need to have the Tcl and Tk source distributions - because not all installations have the needed Tcl and Tk internal header files. - -

- How you link with Togl depends on how you're planning to use it. - There are basically three ways of using Togl with your application: -

    -
  • - Install the Togl shared library and pkgIndex.tcl file - (using make install) - and link to the Togl stubs library with your executable or shared library. - In this case you must call Togl_InitStubs() (and probably Tcl_InitStubs() - — Tk_InitStubs is only needed if you call Tk functions). - This is the way the included Togl examples are built. - -
  • - Link to the Togl shared library - or "compile in" the Togl object files - with your executable or shared library. - In this case you must call Togl_Init() from your C code - to initialize Togl. - -
  • - Install the Togl shared library and pkgIndex.tcl file - (using make install) - and then load it using Tcl commands or Tcl_PkgRequire(). - Then use Tcl commands to create and manipulate the Togl widget. -
- - Since Togl is compiled into a shared library using the Tcl/Tk stubs-interface, - the same binary can be used with any version of Tck/Tk from 8.1 and up. - See README.stubs for more info. - -

- Specific platform notes follow: - -

Unix/X11 usage

- -

- Unix/X systems only need the public Tcl/Tk include files. - Just configure, make, - and optionally make install. - -

Microsoft Windows usage

- -

- Microsoft Windows platforms need tkWinInt.h - and other internal Tk header files. So you need a Tcl/Tk - source distribution in addition to the Togl distribution - (or copy over the various include files). -

- Here's the minimal way to build Togl with Tcl/Tk - using the gcc that is distributed - as part of the cygwin tools - (Microsoft's compilers work too): - 


-VER=8.4.12
-SRCDIR=`pwd`
-
-cd $SRCDIR/tcl$VER/win
-env 'CC=gcc -mno-cygwin' ./configure --enable-threads
-make libtclstub84.a
-
-cd $SRCDIR/tk$VER/win
-env 'CC=gcc -mno-cygwin' ./configure --enable-threads
-make libtkstub84.a
-
-cd $SRCDIR/Togl2.1
-env 'CC=gcc -mno-cygwin' ./configure --with-tcl=../tcl$VER/win --with-tk=../tk$VER/win
-
-make
-
- The resulting Togl21.dll and pkgIndex.tcl - should be installed into your Tcl installation just like any other package. - -

- If you change all of the above make's - to make install instead, - then the Togl package is installed correctly. - -

Mac OS X usage

- -

- These special instructions are for building the Aqua version of Togl. - Mac OS X needs tkMacOSXInt.h - and other internal Tk header files. - Unfortunately, the Tcl and Tk frameworks that Apple distributes - are missing the internal headers. - So you need a Tcl/Tk source distribution in addition to the Togl - distribution (or copy over the various include files). - You would probably want a newer version of Tcl and Tk anyway - because each minor revision of 8.4 has many Aqua bug fixes. -

- Here's one way to build Tcl, Tk, and Togl on Mac OS X - (assuming they are all in the same directory) - to install in your home directory: - 


-VER=8.4.12
-
-mkdir -p ~/bin
-make -C tcl$VER/macosx install PREFIX="${HOME}" INSTALL_PATH="${HOME}/Library/Frameworks"
-make -C tk$VER/macosx install PREFIX="${HOME}" INSTALL_PATH="${HOME}/Library/Frameworks" APPLICATION_INSTALL_PATH="${HOME}/Applications"
-
-cd Togl2.1
-./configure --prefix="${HOME}"
-make install
-
- -
-

Version History

- -

Version 1.0 — March, 1996

-
    -
  • Initial version -
- -

Version 1.1 (never officially released)

-
    -
  • Added Togl_LoadBitmapFont function -
  • Fixed a few bugs -
- -

Version 1.2 — November, 1996

-
    -
  • added swapbuffers and makecurrent Tcl commands -
  • more bug fixes -
  • upgraded to suport Tcl 7.6 and Tk 4.2 -
  • added stereo and overlay plane support -
  • added Togl_Get/SetClientData() functions -
  • added Togl_DestroyFunc() -
- -

Version 1.3 — May 2, 1997

-
    -
  • fixed a bug in Togl_Configure() -
  • fixed a compilation problem in using Tcl_PkgProvide() with Tcl < 7.4 -
  • new overlay functions: Togl_ExistsOverlay, Togl_GetOverlayTransparentValue, - Togl_IsMappedOverlay, Togl_AllocColorOverlay, Togl_FreeColorOverlay -
  • added X11 functions: Togl_Display, Togl_Screen, Togl_ScreenNumber, - Togl_Colormap -
  • added Togl_DumpToEpsFile function -
  • fixed a C++ compilation problem -
  • more robust overlay code -
  • added timers (Togl_TimerFunc) from Peter Dern and Elmar Gerwalin -
- -

Version 1.4 — September 17, 1997

-
    -
  • ported to Microsoft Windows NT (Robert Casto) -
  • updated for Tcl/Tk 8.0 -
  • added many config flags (-redsize, -depthsize, etc) (Matthias Ott) -
  • added Togl_Set*Func() functions to reassign callback functions (Matthias Ott) -
  • added Togl_ResetDefaultCallbacks() and Togl_ClientData() functions (Greg Couch) -
- -

Version 1.5 — September 18, 1998

-
    -
  • fixed a few Unix and Microsoft Windows compilation bugs -
  • added Ben Evan's SGI stereo functions -
  • multiple expose events now reduced to one redraw -
  • destroying Togl widgets caused problems, patched by Adrian J. Chung -
  • added Togl_TkWin() function -
  • updated for Tcl/Tk 8.0p2 -
  • added gears demo from Philip Quaife -
  • added -sharelist and -sharecontext config flags -
  • fixed a few overlay update bugs -
  • added -indirect config flag -
- -

Version 1.6 — May 7, 2003

-
    -
  • added Togl_SetTimerFunc function -
  • updated for Tcl/Tk 8.0.5 and 8.1 -
  • context sharing added for Microsoft Windows -
  • Macintosh support (by Paul Thiessen) -
  • Tcl/Tk stubs support — see README.tcl (by Jonas Beskow) -
- -

Version 1.7 — January 6, 2006

-
    -
  • added Mac OS X support -
  • enabled asking for quad-buffered stereo pixel formats on all platforms - (use -oldstereo on SGIs for splitscreen stereo — C API changed too) -
  • configuring the cursor is no longer slow -
  • added -pixelformat config flag -
  • added setgrid support (unfortunately many window managers can't cope with 1x1 pixel grid) -
  • only free context when last reference is gone -
  • switched to TEA-based configure (instead of editting make files) -
- -

Version 2.0 — April 22, 2008

-
    -
  • stubified C API -
  • replaced EPS support with TK photo image support -
  • simplified C API by requiring callback command options -
  • Added command arguments for create, destroy, etc. callbacks, - so there is a -createcommand option to the togl command (etc.). - (and removed Togl_*Func from the C API) -
  • added togl instance commands that call C API — - see documentation -
  • use Tcl objects internally -
  • use Tcl object interface for callbacks -
  • vertical sync control -
  • fix thread safety in anticipation that OpenGL drivers may someday be thread safe -
  • added simple stereo rendering interface -
  • revised font C API -
  • updated font support for Tk 8.4 on all platforms -
  • updated documentation -
  • prebuilt binaries -
- -

Version 2.1 — December 2009

-
    -
  • incorporate the part of the X11R6 Xmu library that Togl uses - so it will work on (Linux) systems that don't have the Xmu shared library -
  • Mac OS X Aqua delete context bug fix -
  • multisampling support -
  • pbuffer support (Unix/X11, Microsoft Windows, Mac OS X) -
  • Ability to copy context state -
  • row interleaved stereo support -
- -
-

Future plans

- Patches for the following are especially welcome: -
    -
  • Tk 8.5 fonts -
  • Aqua Cocoa support (Tk 8.6b2) -
  • OpenGL 3 contexts -
  • EGL support -
  • RGB overlays -
  • Tcl access to colormap manipulation -
  • NVidia consumer stereo support -
- -
- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/faq.html b/opengl/Togl2.1-SnapPy/doc/faq.html deleted file mode 100644 index 81018051c..000000000 --- a/opengl/Togl2.1-SnapPy/doc/faq.html +++ /dev/null @@ -1,112 +0,0 @@ - - - - - - - - Togl Frequently Asked Questions - - - - - - -

Togl Frequently Asked Questions

- -

Contents

- -

Frequently Asked Questions (and Problems)

- -
- -

- If you have something to add to this section please let us know. - -

-
- Bad Match X errors on Sun systems -
- There is(was?) a bug in Sun's XmuLookupStandardColormap - X library function. - If you compile togl.c with the SOLARIS_BUG symbol defined (-DSOLARIS_BUG) - this function call will be omitted. - -

-

- Is stereo rendering supported? -
- Several different stereo modes are supported. - -

-

- Is fullscreen stereo rendering supported? -
- Before Tk 8.5, - Tk does not support true fullscreen windows. - Consequenly the full-screen stereo, - that gaming graphics cards support (ATI Radeon, NVidia GeForce), - won't be added until sometime after Tk 8.5 is available. - Fullscreen stereo on workstation graphics cards - (ATI FireGL, NVidia Quadro, Matrix Parhelia, 3Dlabs Wildcat) - does work. -

-

- How do I get the Microsoft Windows device context? -
- First call Togl_MakeCurrent to make sure you have the - right OpenGL context and device context set, - then call wglGetCurrentDC. - -

-

- How do I use Togl from Python? -
- The Togl source distribution comes with a Togl.py file - that provides a Tkinter-style Togl widget. - And for Togl callbacks that are C functions, - there is a toglpy.h file that provides a function - that converts a Python object into its corresponding Togl widget: -
- Togl *getToglFromWidget(PyObject *widget) -
- -

-

- Is Togl compatible with Tile and Tk 8.5? -
- Yes, Togl works as is (except for the bitmap font support for X11 and Aqua). - From Joe English: -
- Complex "owner-draw" widgets like tkZinc, - or the text and canvas widgets, - really don't benefit much from themability, - so there's no reason to rewrite them. - (http://wiki.tcl.tk/13373) -
-
- -
- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/header.js b/opengl/Togl2.1-SnapPy/doc/header.js deleted file mode 100644 index 5e87cd508..000000000 --- a/opengl/Togl2.1-SnapPy/doc/header.js +++ /dev/null @@ -1,20 +0,0 @@ -function displayHeader(pageTitle) -{ - document.write("

" + pageTitle + "

"); -} - -function NavigationBar() -{ - document.write(""); - document.write(" "); - document.write(" "); - document.write(" "); - document.write(" "); - document.write(" "); - document.write(" "); - document.write(" "); - document.write(" "); - document.write(" "); - document.write("
IndexIntroDownload/InstallUsing ToglTcl APIC APIFAQ
"); - document.write("
"); -} diff --git a/opengl/Togl2.1-SnapPy/doc/index.html b/opengl/Togl2.1-SnapPy/doc/index.html deleted file mode 100644 index 222099e9f..000000000 --- a/opengl/Togl2.1-SnapPy/doc/index.html +++ /dev/null @@ -1,150 +0,0 @@ - - - - - - - - Togl, a Tk OpenGL widget - - - - - -

Togl — a Tk OpenGL widget

-

Copyright © 1996-2009 Brian Paul, Ben Bederson, and Greg Couch

- -

Index

- - - -
- -

Introduction

- - Togl is a Tk widget for - OpenGL rendering. - Togl was originally based on OGLTK, written by Benjamin Bederson at - the University of New Mexico. - - Togl's main features are: - -
    -
  • unifies Microsoft Windows, X11 (Linux/IRIX/...), and Mac OS X Aqua support -
  • support for requesting stencil, accumulation, alpha buffers, etc. -
  • multiple OpenGL drawing windows -
  • simple stereo rendering support -
  • simple, portable font support -
  • color-index mode support including color allocation functions -
  • overlay plane support -
  • OpenGL extension testing from Tcl -
  • Tcl Extension Architecture (TEA) 3 compliant -
- -

- Togl does almost no OpenGL drawing itself, - instead it manages OpenGL drawing by calling various Tcl commands - (a.k.a., callback functions). - Those commands can be C functions that call OpenGL (in)directly - or another Tcl package - (e.g., Tcl3D). - -

- Togl is copyrighted by - Brian Paul - (brian_e_paulATyahooDOTcom), - Benjamin Bederson - (bedersonATcsDOTumdDOTedu), and - Greg Couch - (gregcouchATusersDOTsourceforgeDOTnet). - See the LICENSE file for details. - -

- The - Togl project and - home page are - hosted by SourceForge. - -
-

Mailing list

- -

- See the - Togl project at SourceForge for mailing list information. - -
-

Reporting Bugs

- -

- There is a bug database on the - Togl Project Page. - You may also discuss bugs on the mailing list. -

- It may be worth upgrading your graphics driver and retesting - before reporting a bug, - as, historically, - many Togl "bugs" have been fixed by a graphics driver upgrade, - especially on Microsoft Windows. -

- When reporting bugs please provide as much information as possible. - Such as the version of Togl, which operating system - (e,g., Microsoft Windows, Red Hat Linux, Mac OS X, etc.), - the version of the operating system, - and the version of the graphics driver. - Also, it's very helpful to us if you can provide an example program - which demonstrates the problem. - -
-

Contributors

- -

- Several people have contributed new features to Togl. Among them are: - -

    -
  • Ramon Ramsan — overlay plane support -
  • Miguel A. De Riera Pasenau — more overlay functions, X11 functions - and EPS output -
  • Peter Dern and Elmar Gerwalin — Togl_TimerFunc and related code -
  • Robert Casto — Microsoft Windows NT port -
  • Geza Groma — Microsoft Windows 95/NT patches -
  • Ben Evans — SGI stereo support -
  • Paul Thiessen — Macintosh support -
  • Jonas Beskow — Tcl/Tk stubs support -
  • Paul Kienzle — TEA debugging and patches -
  • Greg Couch — version 1.7, 2.0, 2.1 -
- - Many others have contributed bug fixes. Thanks for your contributions! - -
-
- Last edited on 4 February 2009 by Greg Couch. - -
- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/stereo.html b/opengl/Togl2.1-SnapPy/doc/stereo.html deleted file mode 100644 index 72d4ec8de..000000000 --- a/opengl/Togl2.1-SnapPy/doc/stereo.html +++ /dev/null @@ -1,171 +0,0 @@ - - - - - - - - Togl Stereo Modes - - - - - - -

Togl Stereo Modes

- -

Contents

- - -
- -

- There are lots of stereo modes in Togl because there are many ways to - draw stereo with different tradeoffs. - All of the stereo modes are choosen with the - - -stereo configuration option. - All of the non-native stereo techniques - are software-only and can be changed at anytime. -

- When using a non-native stereo mode, the OpenGL - glDrawBuffer, glClear, - glFrustum, and glOrtho calls - should be replaced with the Togl - Tcl or - C versions - for seemless stereo rendering. -

- The various stereo modes are: -

-
- none or "" or any false boolean value -
- Turn off stereo. -
native or any true boolean value -
- Use native OpenGL hardware accelerated stereo - (single- or double-buffered for both the left and the right eyes). - Each eye is drawn at full window resolution - which gives the best stereo image. - This mode requires support from the graphics driver and is - typically only supported on workstation-class graphics cards, e.g., - NVidia Quadro, - ATI FireGL, - Matrix Parhelia, - 3DLabs Wildcat - graphics cards - and SGI workstations. - The video refresh rate is changed automatically by the windowing system - except on SGI workstations. - Developers for SGI workstations can either switch the video manually with - /usr/gfx/setmon or /usr/bin/X11/xsetmon, or use the - - autostereo package. -

- Currently, there is a limitation that a togl widget can not be - reconfigured in or out of the native stereo mode. - And if/when it is supported, - some graphics drivers might not allow it. -

- anaglyph -
- Draw the left eye in the red part of the color buffer - and the right eye in the blue and green parts. - Designed to be viewed with inexpensive red-blue or red-cyan glasses. - Works best with gray scale and non-saturated color images. -
- cross-eye -
- Draw right eye image on the left half of screen, - and draw left eye image on the right half of screen. - So each eye is drawn at less than half of the window resolution. -
- wall-eye -
- Draw left eye image on the left half of the screen, - and draw right eye image on the right half of the screen. - So each eye is drawn at less than half of the window resolution. -
- dti -
- Designed for DTI displays. - If you look at the window unassisted, - you'll see horizonally squished images - with the left eye image on the left, - and right eye image on the right. - So each eye is drawn at half of the window resolution. -
- row interleaved -
- Designed for - VRex, - Zalman, and - Hyundai displays. - Where the right eye is on the even scanlines - and the left is on the odd ones. - Requires that there be a stencil buffer - and uses the most significant stencil bit. - Changes to the stencil state should be placed within - - glPushAttrib(GL_STENCIL_BUFFER_BIT) and glPopAttrib() calls. -
- left eye -
- Only draw left eye view at full resolution. -
- right eye -
- Only draw right eye view at full resolution. -
- sgioldstyle -
- Support older-style SGI stereo where you lose half of the vertical resolution. - This uses the SGIStereo X extension, - that is only available on SGI workstations, - to tell the X server to duplicate non-stereo windows into both eyes. - This option only works when the monitor has been changed to the one - of the str_top, str_bot, or str_rect video output modes. - -
- -
- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/tclapi.html b/opengl/Togl2.1-SnapPy/doc/tclapi.html deleted file mode 100644 index 6d6c9a970..000000000 --- a/opengl/Togl2.1-SnapPy/doc/tclapi.html +++ /dev/null @@ -1,774 +0,0 @@ - - - - - - - - Togl Tcl API - - - - - - -

Togl Tcl API

- -

Contents

- - -
- -

Togl Tcl command

- -

- The togl command creates a new Tk widget, a Tcl command, - whose name is pathName. - This command may be used to invoke various operations on the widget. -

- togl pathName [options] -
- If no options are given, a 400 by 400 pixel RGB window is created. - This command may be used to invoke various operations on the widget. - -

Togl widget commands

- - The following commands are possible for an existing togl widget: - -

Configuration commands

- -
-
pathName cget -option -
- Return current value of given configuration option. -
- -
-
- pathName configure
- pathName configure -option -
- If no option is given, - then return information about - all configuration options. - Otherwise, - return configuration information for given option. - All configuration information consists of five values: - the configuration option name, - the option database name, - the option database class, - the default value, - and the current value. -
- -
-
pathName configure -option value -
- Reconfigure a Togl widget. - option may be any one of the options listed below. -
- -
-
pathName contexttag -
- Returns an integer that represents the context tag. - All Togl widgets with the same context tag share display lists. -
- -

Extensions command

- -
-
pathName extensions -
- Returns a list of OpenGL extensions available. For example: - 

-if {[lsearch [pathName extensions] GL_EXT_bgra] != -1]} {
-    ....
-}
-
- would check if the GL_EXT_bgra extension were supported. -
- -

Rendering commands

- -
-
pathName postredisplay -
- Cause the displaycommand callback to be called - the next time the event loop is idle. -
- -
-
pathName render -
- Causes the displaycommand callback to be called for pathName. -
- -
-
pathName swapbuffers -
- Causes front/back buffers to be swapped if in double buffer mode. - And flushs the OpenGL command buffer if in single buffer mode. - (So this is appropriate to call after every frame is drawn.) -
- -
-
pathName makecurrent -
- Make the widget specified by pathName and its OpenGL context - the current ones. - This is implicitly called before any callback command is invoked. -
- -
-
pathName copycontextto toPathName mask -
- Copy a subset of the OpenGL context state from pathName to - toPathName according the given mask. - The mask is an integer corresponding to the same values as - - glPushAttrib. -
- -

Image commands

- -
-
pathName takephoto imagename -
- Copy the contents of the togl window into the given Tk photo image. - Transparency values are copied and should be fully opaque for windows - without alpha bitplanes. -
- -

Font commands

- -

- These functions provide an interface to the simple bitmap font capabilities - that every OpenGL implementation provides. - Better font support is found in other packages, e.g., - Tcl3D - or with different C APIs. - -

-
pathName loadbitmapfont font -
- font can be any of font descriptions listed in the Tk - font command. - It returns a togl font object. -
- -
-
pathName unloadbitmapfont toglfont -
- Releases the OpenGL resources needed by the toglfont. -
- -
-
pathName write toglfont [-pos xyzw] [-color rgba] string -
- Write the given string in the given toglfont, - optionally at a particular position, xyzw - and color, rgba. - xyzw is either a 2, 3, or 4 element list of numbers. - rgba is either a 3 or 4 element list of numbers. -
- -

Overlay Commands

- -
-
pathName uselayer layer -
- This is a variation on the makecurrent command - that makes the overlay OpenGL context current - if layer is 2 - and makes the normal OpenGL context current - if layer is 1. -
- -
-
pathName showoverlay -
- Turn on drawing in the overlay planes. -
- -
-
pathName hideoverlay -
- Turn off drawing in the overlay planes. -
- -
-
pathName postredisplayoverlay -
- Cause the overlay OpenGL context to be redrawn the next time - the Tcl event loop is idle. -
- -
-
pathName renderoverlay -
- Causes the overlaydisplaycommand callback to be called for pathName. -
- -
-
pathName existsoverlay -
- Return true if togl widget has overlay planes. -
- -
-
pathName ismappedoverlay -
- Return true if overlay planes are shown. -
- -
-
pathName getoverlaytransparentvalue -
- Return overlay plane's transparent pixel value. -
- -

OpenGL (Stereo) Commands

- These commands exist to support stereo rendering. - Just replace select OpenGL calls with the Togl versions - and stereo rendering will magically work. And don't forget - to update the stereo options. - -
-
pathName drawbuffer mode -
- Replaces calls to - - glDrawBuffer. - The mode is an integer. -
- -
-
pathName clear mask -
- Replaces calls to - - glClear. - The mask is an integer. -
- -
-
pathName frustum left right bottom top near far -
- Replaces calls to - - glFrustum. -
- -
-
pathName ortho left right bottom top near far -
- Replaces calls to - - glOrtho. -
- -
-
pathName numeyes -
- Returns numbers of eyes — basically, - 2 for stereo views and 1 for all others, - except some stereo views only need one eye from OpenGL. -
- -

Togl configuration options

- - Togl's configuration options can be separated into several categories: - geometry, pixel format, and other. - The pixel format related options can only be set at widget creation time. - The other options can be changed dynamically - by the pathName configure command (see above). - -

Drawing callbacks

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
OptionDefaultComments
-createcommand{} - Can be abbreviated -create. -
-displaycommand{} - Can be abbreviated -display. -
-reshapecommand{} - Can be abbreviated -reshape. -
-destroycommand{} - Can be abbreviated -destroy. -
-overlaydisplaycommand{} - Can be abbreviated -overlaydisplay. -
- -

Geometry Options

- - - - - - - - - - - - - - - - - - - - - - - - - - -
OptionDefaultComments
-width400 - Set width of widget in pixels. - It may have any of the forms accepted by Tk_GetPixels. -
-height400 - Set height of widget in pixels. - It may have any of the forms accepted by Tk_GetPixels(3). -
-setgrid0 - Turn on gridded geometry management for togl widget's toplevel - window and specify the geometry of the grid. - See the manual pages for Tk's wm(n) and Tk_SetGrid(3) - for more information. - Unlike the text widget, - the same value is used for both width and height increments. -
- -

Timer Options

- - - - - - - - - - - - - - - - - - - - - -
OptionDefaultComments
-time1 - Specifies the interval, in milliseconds, for - calling the timer callback function which - was registered with -timercommand.
-timercommand{} - Can be abbreviated -timer. -
- -

Stereo Options

- - - - - - - - - - - - - - - - - - - - - - -
OptionDefaultComments
-eyeseparation2.0 - Set the distance between the eyes in viewing coordinates. -
-convergence30.0 - Set the distance to the screen from the eye in viewing coordinates - (the distance at which the eyes converge). -
- -
- You'd think these values would be given in physical units, - but there's no single right way to convert to viewing coordinates - from physical units. - So if you're willing to use Tk's idea of the horizontal size of a - window in millimeters (not always correct), - you could convert the average eye separation of 63 mm - to your viewing coordinates, and use that value as the eye separation. -
- -

Miscellaneous Options

- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
OptionDefaultComments
-cursor"" - Set the cursor in the widget window. -
-swapinterval1 - Set the minimum swap interval measure in video frame periods. - The default is 1 for for non-tearing artifacts - when swapping buffers. - Use a value of 0 when benchmarking frame rates. -
-ident"" - A user identification string. This is used match widgets - for the -sharecontext - and the -sharelist options (see below). - This is also useful in your callback functions - to determine which Togl widget is the caller. -
- -

Pixel Format Options

- - The following options can only be given when the togl widget is created - — that is, unlike other options, - the togl widget can not be reconfigured with different values - for the following options after it is created. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
OptionDefaultComments
-rgbatrueIf true, use RGB(A) mode, otherwise use Color Index mode.
-redsize1Minimum number of bits in red component.
-greensize1Minimum number of bits in green component.
-bluesize1Minimum number of bits in blue component.
-alpha1 - If true and -rgba is true, request an alpha channel. -
-alphasize1Minimum number of bits in alpha component.
 
-doublefalse - If true, request a double-buffered window, otherwise - request a single-buffered window. -
 
-depthfalseIf true, request a depth buffer.
-depthsize1Minimum number of bits in depth buffer.
 
-accumfalseIf true, request an accumulation buffer.
-accumredsize1Minimum number of bits in accumulation buffer red component.
-accumgreensize1 - Minimum number of bits in accumulation buffer green component. -
-accumbluesize1Minimum number of bits in accumulation buffer blue component.
-accumalphasize1 - Minimum number of bits in accumulation buffer alpha component. -
 
-stencilfalseIf true, request a stencil buffer.
-stencilsize1Minimum number of bits in stencil component.
 
-auxbuffers0Desired number of auxiliary buffers.
 
-privatecmapfalse - Only applicable in color index mode. - If false, use a shared read-only colormap. - If true, use a private read/write colormap. -
 
-overlayfalseIf true, request overlay planes.
 
-stereomode - See the stereo information - for details about the various modes. - Stereo parameters are changed with the - stereo options. -

- When using a non-native stereo mode, the OpenGL - - glDrawBuffer, - - glClear, - - glFrustum, and - - glOrtho calls - must be replaced with the Togl - Tcl or - C versions. -

 
-pbufferfalse - If true, request off-screen framebuffer memory for the graphics. - The resulting togl widget should not be managed. -
-largestpbufferfalse - If true, when asking for a pbuffer of a given size - and there isn't enough framebuffer memory available, - fallback to the largest size available. -
 
-multisamplefalse - If true, request an multisampled rendering context. -
-indirectfalse - If present, request an indirect rendering context. - A direct rendering context is normally requested. - Only significant on Unix/X11. -
-sharelist"" - Togl identification string or window path name - of an existing Togl widget with which to share display lists. - If it is not possible to share display lists - between the two togl widgets - (depends on the graphics driver and the particular formats), - it fails. -
-sharecontext"" - Togl identification string or window path name - of an existing Togl widget with which to share the OpenGL context. - Note: all other pixel format options are ignored. -
-pixelformat0 - Set the pixel format to the (platform-dependent) given value. - This is a backdoor into choosing a particular pixel format - that was determined by other means. -
- -
- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/upgrading.html b/opengl/Togl2.1-SnapPy/doc/upgrading.html deleted file mode 100644 index 790cc7321..000000000 --- a/opengl/Togl2.1-SnapPy/doc/upgrading.html +++ /dev/null @@ -1,109 +0,0 @@ - - - - - - - - Upgrading to Version 2 - - - - - - -

Upgrading to Version 2

- -

Contents

- - -
- -

- Internally, Togl version 2 isn't very different from version 1, - and much of the C interface is the same. - The main difference is that the focus of the Togl API has changed - from being a C API to being a Tcl API. - Which means that the full power of Togl is accessible from Tcl - (the few exceptions are considered bugs). - -

Widget callback changes

- - The biggest change is how the various callback are initialized. - In version 1, - the C API Togl_Set*Func functions had to be used - to setup the callback functions before creating the Togl widget. - And once the callbacks were set for a particular Togl widget, - they could not be changed. - If more than once Togl widget was needed, - the callback functions would need to be reset before each widget creation. - In version 2, - the callbacks are configuration arguments to the widget - and can be updated like any other standard widget configuration option. - See the Tcl API for details. - -

Widget subcommand changes

- - Version 1 also allowed new subcommands to be added - to the togl widget command via the C API. - This was dropped for a variety of reasons: - there is no exact Tcl equivalent, - there is no standard object-oriented technique - currently in the Tcl core (8.4.13), - it is unclear how to make the API thread safe, - and the internal Tcl C API doesn't support - dynamicly changing sets of subcommands. - That said, this functionality might come back, especially when - TIP #257 is implemented. - Instead, in version 2, - create a Tcl function that takes the Togl widget as an argument. - Functions written in C can get the underlying Togl structure handle - with either the Togl_GetToglFromObj - or the Togl_GetToglFromName function, - as appropriate. - This means that there are no special Togl commands, only Tcl commands. - See the C API for details. - -

Stereo changes

- - The stereo support has been totally revamped. - Some form of stereo is available all of the time. - -

Font changes

- - Tcl support for writing strings has been added. -

- - The font C API has been revised - so that Togl_LoadBitmapFont returns a font object instead an integer - (likewise for Togl_UnloadBitmapFont). - So instead of calling glListBase and glCallLists directly, - use Togl_WriteObj or Togl_WriteChars. -

- The TOGL_BITMAP_* constants remain for limited backwards - source compatibility and are deprecated. - The acceptable font names are now the same as Tk_GetFont - and the Tk font command on all platforms. - -

- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/doc/using.html b/opengl/Togl2.1-SnapPy/doc/using.html deleted file mode 100644 index 0e847d1fc..000000000 --- a/opengl/Togl2.1-SnapPy/doc/using.html +++ /dev/null @@ -1,180 +0,0 @@ - - - - - - - - Using the Togl Widget - - - - - - -

Using the Togl Widget

- -

Contents

- - -
- -

Using Togl With Your Application

- -

- First, double check that you have all of the - prerequisites - and that you have - compiled and installed Togl. -

- Then, Togl acts like any other extension package — - to load it, you use the Tcl package command: -

- package require Togl 2.0 -
- After that, you can create a Togl widget just like any other Tk widget. - -

Examples

- -

- There are eight working examples: - -

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
double.tcl— compares single vs double buffering with two Togl widgets
texture.tcl— lets you play with texture mapping options
index.tcl— example of using color index mode
overlay.tcl— example of using overlay planes (requires overlay hardware)
stereo.tcl— stereo example
gears.tcl— spinning gears example
multisample.tcl— multisampling example
pbuffer.tcl— pbuffer (off-screen rendering) example
-
- -

- Each example consists of two files: a Tcl script for the user interface, - and a Tcl C package that does the OpenGL drawing. - To compile the examples, type make examples - in the Togl source directory. - The C packages are compiled into shared libraries - that are loaded into the Tcl interpreter as Tcl/Tk-extensions. - The examples are started by running the corrsponding Tcl script: - just type ./double.tcl - (or ./texture.tcl etc.) - or run under one of the Tcl interpreters, i.e., - tclsh or wish. - For example: -

- tclsh84 double.tcl -
- -

- Other examples that use Tcl for OpenGL drawing can be found in the - Tcl3D demos. - -

Togl callbacks

-

- All of the examples have similar structure. - First they create the user interface with one or more Togl widgets. - Each Togl widget is configured with the desired pixel format - and several callback commands (not all are needed): - - - - - - - - - - - - - - - - - - - - - - - - - -
-createcommand - Called when Togl widget is mapped — - when it is safe to initialize the OpenGL context. -
-reshapecommand - Called when the Togl widget is resized — - when the OpenGL context's viewport needs to be changed. -
-displaycommand - Called when the contents of the Togl widget needs to be redrawn. - Redraws are normally delayed to be when the Tcl event loop is idle - (see the togl widget's postredisplay command), - or as the result of an explict call to the togl's widgets - render command. -
-destroycommand - Called when the Togl widget is destroyed. - While OpenGL frees display lists and other resources, - sometimes there's some associated state that is no longer needed. -
-timercommand - Called every n milliseconds - as given by the -time option. -
-overlaydisplaycommand - Called when the overlay planes needs to be redrawn. - The overlay planes are created and reshaped - at the same time as the main OpenGL context. -
- - Typically, only -createcommand, -reshapecommand - and -displaycommand are used. - -

- - Get Togl at SourceForge.net. Fast, secure and Free Open Source software downloads - - - Valid HTML 4.01 Transitional - - - diff --git a/opengl/Togl2.1-SnapPy/double.c b/opengl/Togl2.1-SnapPy/double.c deleted file mode 100644 index be6f5a38f..000000000 --- a/opengl/Togl2.1-SnapPy/double.c +++ /dev/null @@ -1,279 +0,0 @@ -/* $Id: double.c,v 1.22 2009/03/12 23:59:35 gregcouch Exp $ */ - -/* - * Togl - a Tk OpenGL widget - * Copyright (C) 1996-1997 Brian Paul and Ben Bederson - * Copyright (C) 2006-2007 Greg Couch - * See the LICENSE file for copyright details. - */ - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include -#include - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - -static Tcl_Obj *toglFont; -static double xAngle = 0, yAngle = 0, zAngle = 0; -static GLdouble CornerX, CornerY, CornerZ; /* where to print strings */ - - -/* - * Togl widget create callback. This is called by Tcl/Tk when the widget has - * been realized. Here's where one may do some one-time context setup or - * initializations. - */ -static int -create_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (!toglFont) - toglFont = Togl_LoadBitmapFont(togl, "Helvetica"); - if (!toglFont) { - static int shown; - - if (!shown) { - fprintf(stderr, "Couldn't load font!\n"); - shown = 1; - } - } - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width; - int height; - double aspect; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - aspect = (double) width / (double) height; - - glViewport(0, 0, width, height); - - /* Set up projection transform */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glFrustum(-aspect, aspect, -1, 1, 1, 10); - - CornerX = -aspect; - CornerY = -1; - CornerZ = -1.1; - - /* Change back to model view transform for rendering */ - glMatrixMode(GL_MODELVIEW); - - return TCL_OK; -} - - - -static void -print_string(Togl *togl, const char *s) -{ - if (toglFont) - Togl_WriteChars(togl, toglFont, s, 0); -} - - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static GLuint cubeList = 0; - const char *ident; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) - return TCL_ERROR; - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - glLoadIdentity(); /* Reset modelview matrix to the identity - * matrix */ - glTranslatef(0, 0, -3); /* Move the camera back three units */ - glRotated(xAngle, 1, 0, 0); /* Rotate by X, Y, and Z angles */ - glRotated(yAngle, 0, 1, 0); - glRotated(zAngle, 0, 0, 1); - - glEnable(GL_DEPTH_TEST); - - if (!cubeList) { - cubeList = glGenLists(1); - glNewList(cubeList, GL_COMPILE); - - /* Front face */ - glBegin(GL_QUADS); - glColor3f(0, 0.7f, 0.1f); /* Green */ - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, -1, 1); - glVertex3f(-1, -1, 1); - /* Back face */ - glColor3f(0.9f, 1, 0); /* Yellow */ - glVertex3f(-1, 1, -1); - glVertex3f(1, 1, -1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - /* Top side face */ - glColor3f(0.2f, 0.2f, 1); /* Blue */ - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, 1, -1); - glVertex3f(-1, 1, -1); - /* Bottom side face */ - glColor3f(0.7f, 0, 0.1f); /* Red */ - glVertex3f(-1, -1, 1); - glVertex3f(1, -1, 1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - glEnd(); - - glEndList(); - - } - glCallList(cubeList); - - glDisable(GL_DEPTH_TEST); - glLoadIdentity(); - glColor3f(1, 1, 1); - glRasterPos3d(CornerX, CornerY, CornerZ); - ident = Togl_Ident(togl); - if (ident) - print_string(togl, ident); - Togl_SwapBuffers(togl); - return TCL_OK; -} - - - - -static int -setXrot_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "angle"); - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[1], &xAngle) != TCL_OK) { - return TCL_ERROR; - } - - /* printf( "before %f ", xAngle ); */ - - xAngle = fmod(xAngle, 360.0); - if (xAngle < 0) - xAngle += 360.0; - - /* printf( "after %f \n", xAngle ); */ - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[1]); - return TCL_OK; -} - - -static int -setYrot_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName angle"); - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[1], &yAngle) != TCL_OK) { - return TCL_ERROR; - } - - yAngle = fmod(yAngle, 360.0); - if (yAngle < 0) - yAngle += 360.0; - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[1]); - return TCL_OK; -} - -/* - * Called by Tcl to let me initialize the modules (Togl) I will need. - */ -EXTERN int -Double_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "double::create_cb", create_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "double::display_cb", display_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "double::reshape_cb", reshape_cb, NULL, NULL); - - /* - * Make a new Togl widget command so the Tcl code can set a C variable. - */ - - Tcl_CreateObjCommand(interp, "double::setXrot", setXrot_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "double::setYrot", setYrot_cb, NULL, NULL); - - /* - * Call Tcl_CreateCommand for application-specific commands, if - * they weren't already created by the init procedures called above. - */ - - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/double.tcl b/opengl/Togl2.1-SnapPy/double.tcl deleted file mode 100755 index ed749430f..000000000 --- a/opengl/Togl2.1-SnapPy/double.tcl +++ /dev/null @@ -1,96 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: double.tcl,v 1.11 2009/03/12 23:59:35 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# An Tk/OpenGL widget demo with two windows, one single buffered and the -# other double buffered. - -package provide double 1.0 - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/double[info sharedlibextension] - -# create ::double namespace -namespace eval ::double { -} - -proc double::setup {} { - wm title . "Single vs Double Buffering" - - # create first Togl widget - togl .o1 -width 200 -height 200 -rgba true -double false -depth true -ident "Single Buffered" -create double::create_cb -display double::display_cb -reshape double::reshape_cb - - # create second Togl widget, share display lists with first widget - togl .o2 -width 200 -height 200 -rgba true -double true -depth true -ident "Double Buffered" -sharelist "Single Buffered" -create double::create_cb -display double::display_cb -reshape double::reshape_cb - - scale .sx -label {X Axis} -from 0 -to 360 -command {::double::setAngle x} -orient horizontal - scale .sy -label {Y Axis} -from 0 -to 360 -command {::double::setAngle y} -orient horizontal - button .btn -text Quit -command exit - - bind .o1 { - ::double::motion_event [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] \ - %x %y - } - - bind .o2 { - ::double::motion_event [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] \ - %x %y - } - - grid rowconfigure . 0 -weight 1 - grid columnconfigure . 0 -weight 1 -uniform same - grid columnconfigure . 1 -weight 1 -uniform same - grid .o1 -row 0 -column 0 -sticky nesw -padx 3 -pady 3 - grid .o2 -row 0 -column 1 -sticky nesw -padx 3 -pady 3 - #grid .l1 -row 1 -column 0 -sticky ew -padx 3 -pady 3 - #grid .l2 -row 1 -column 1 -sticky ew -padx 3 -pady 3 - grid .sx -row 2 -column 0 -columnspan 2 -sticky ew - grid .sy -row 3 -column 0 -columnspan 2 -sticky ew - grid .btn -row 4 -column 0 -columnspan 2 -sticky ew -} - - - -# This is called when mouse button 1 is pressed and moved in either of -# the OpenGL windows. -proc double::motion_event { width height x y } { - .sx set [double::setXrot [expr 360.0 * $y / $height]] - .sy set [double::setYrot [expr 360.0 * ($width - $x) / $width]] - - .o1 postredisplay - .o2 postredisplay -} - -# This is called when a slider is changed. -proc double::setAngle {axis value} { - global xAngle yAngle zAngle - - switch -exact $axis { - x {double::setXrot $value - double::setXrot $value} - y {double::setYrot $value - double::setYrot $value} - } - - .o1 postredisplay - .o2 postredisplay -} - -# Execution starts here! -if { [info script] == $argv0 } { - ::double::setup -} diff --git a/opengl/Togl2.1-SnapPy/gears.c b/opengl/Togl2.1-SnapPy/gears.c deleted file mode 100644 index 8e557dc33..000000000 --- a/opengl/Togl2.1-SnapPy/gears.c +++ /dev/null @@ -1,491 +0,0 @@ -/* gears.c */ - -/* - * 3-D gear wheels. This program is in the public domain. - * - * Brian Paul - * - * - * Modified to work under Togl as a widget for TK 1997 - * - * Philip Quaife - * - */ - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include -#include - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - -#ifndef M_PI -# define M_PI 3.14159265 -#endif -#define FM_PI ((float) M_PI) - -#ifdef _MSC_VER -__inline float -sinf(double a) -{ - return (float) sin(a); -} -__inline float -cosf(double a) -{ - return (float) cos(a); -} -__inline float -sqrtf(double a) -{ - return (float) sqrt(a); -} - -# define sin sinf -# define cos cosf -# define sqrt sqrtf -#endif - -struct WHIRLYGIZMO -{ - int Gear1, Gear2, Gear3; - double Rotx, Roty, Rotz; - double Angle; - int Height, Width; -}; - -typedef struct WHIRLYGIZMO WHIRLYGIZMO; - -/* - * Draw a gear wheel. You'll probably want to call this function when - * building a display list since we do a lot of trig here. - * - * Input: inner_radius - radius of hole at center - * outer_radius - radius at center of teeth - * width - width of gear - * teeth - number of teeth - * tooth_depth - depth of tooth - */ -static void -gear(GLfloat inner_radius, GLfloat outer_radius, GLfloat width, - GLint teeth, GLfloat tooth_depth) -{ - GLint i; - GLfloat r0, r1, r2; - GLfloat angle, da; - GLfloat u, v, len; - - r0 = inner_radius; - r1 = outer_radius - tooth_depth / 2; - r2 = outer_radius + tooth_depth / 2; - - da = 2 * FM_PI / teeth / 4; - - glShadeModel(GL_FLAT); - - glNormal3f(0, 0, 1); - - /* draw front face */ - glBegin(GL_QUAD_STRIP); - for (i = 0; i <= teeth; i++) { - angle = i * 2 * FM_PI / teeth; - glVertex3f(r0 * cos(angle), r0 * sin(angle), width * 0.5f); - glVertex3f(r1 * cos(angle), r1 * sin(angle), width * 0.5f); - glVertex3f(r0 * cos(angle), r0 * sin(angle), width * 0.5f); - glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), - width * 0.5f); - } - glEnd(); - - /* draw front sides of teeth */ - glBegin(GL_QUADS); - da = 2 * FM_PI / teeth / 4; - for (i = 0; i < teeth; i++) { - angle = i * 2 * FM_PI / teeth; - - glVertex3f(r1 * cos(angle), r1 * sin(angle), width * 0.5f); - glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), width * 0.5f); - glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), - width * 0.5f); - glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), - width * 0.5f); - } - glEnd(); - - - glNormal3f(0, 0, -1); - - /* draw back face */ - glBegin(GL_QUAD_STRIP); - for (i = 0; i <= teeth; i++) { - angle = i * 2 * FM_PI / teeth; - glVertex3f(r1 * cos(angle), r1 * sin(angle), -width * 0.5f); - glVertex3f(r0 * cos(angle), r0 * sin(angle), -width * 0.5f); - glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), - -width * 0.5f); - glVertex3f(r0 * cos(angle), r0 * sin(angle), -width * 0.5f); - } - glEnd(); - - /* draw back sides of teeth */ - glBegin(GL_QUADS); - da = 2 * FM_PI / teeth / 4; - for (i = 0; i < teeth; i++) { - angle = i * 2 * FM_PI / teeth; - - glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), - -width * 0.5f); - glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), - -width * 0.5f); - glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), -width * 0.5f); - glVertex3f(r1 * cos(angle), r1 * sin(angle), -width * 0.5f); - } - glEnd(); - - - /* draw outward faces of teeth */ - glBegin(GL_QUAD_STRIP); - for (i = 0; i < teeth; i++) { - angle = i * 2 * FM_PI / teeth; - - glVertex3f(r1 * cos(angle), r1 * sin(angle), width * 0.5f); - glVertex3f(r1 * cos(angle), r1 * sin(angle), -width * 0.5f); - u = r2 * cos(angle + da) - r1 * cos(angle); - v = r2 * sin(angle + da) - r1 * sin(angle); - len = sqrt(u * u + v * v); - u /= len; - v /= len; - glNormal3f(v, -u, 0); - glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), width * 0.5f); - glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), -width * 0.5f); - glNormal3f(cos(angle), sin(angle), 0); - glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), - width * 0.5f); - glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), - -width * 0.5f); - u = r1 * cos(angle + 3 * da) - r2 * cos(angle + 2 * da); - v = r1 * sin(angle + 3 * da) - r2 * sin(angle + 2 * da); - glNormal3f(v, -u, 0); - glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), - width * 0.5f); - glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), - -width * 0.5f); - glNormal3f(cos(angle), sin(angle), 0); - } - - glVertex3f(r1 /* * cos(0) */ , /* r1 * sin(0) */ 0, width * 0.5f); - glVertex3f(r1 /* * cos(0) */ , /* r1 * sin(0) */ 0, -width * 0.5f); - - glEnd(); - - - glShadeModel(GL_SMOOTH); - - /* draw inside radius cylinder */ - glBegin(GL_QUAD_STRIP); - for (i = 0; i <= teeth; i++) { - angle = i * 2 * FM_PI / teeth; - glNormal3f(-cos(angle), -sin(angle), 0); - glVertex3f(r0 * cos(angle), r0 * sin(angle), -width * 0.5f); - glVertex3f(r0 * cos(angle), r0 * sin(angle), width * 0.5f); - } - glEnd(); - -} - -/* - * static GLfloat view_rotx=20, view_roty=30, view_rotz=0; static GLint - * gear1, gear2, gear3; static GLfloat angle = 0; */ -static GLuint limit; -static GLuint count = 1; - -static GLubyte polycolor[4] = { 255, 255, 255, 255 }; - -static int -draw(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) -{ - WHIRLYGIZMO *Wg; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - Wg = (WHIRLYGIZMO *) Togl_GetClientData(togl); - glDisable(GL_TEXTURE_2D); - glPushMatrix(); - glRotatef((float) Wg->Rotx, 1, 0, 0); - glRotatef((float) Wg->Roty, 0, 1, 0); - glRotatef((float) Wg->Rotz, 0, 0, 1); - - glPushMatrix(); - glTranslatef(-3, -2, 0); - glRotatef((float) Wg->Angle, 0, 0, 1); - glEnable(GL_DEPTH_TEST); - glCallList(Wg->Gear1); - glEnable(GL_DEPTH_TEST); - glPopMatrix(); - - glPushMatrix(); - glTranslatef(3.1f, -2, 0); - glRotatef(-2 * (float) Wg->Angle - 9, 0, 0, 1); - glCallList(Wg->Gear2); - glPopMatrix(); - - glPushMatrix(); - glTranslatef(-3.1f, 4.2f, 0); - glRotatef(-2 * (float) Wg->Angle - 25, 0, 0, 1); - glCallList(Wg->Gear3); - glPopMatrix(); - - glPopMatrix(); - - Togl_SwapBuffers(togl); - - return TCL_OK; -} - - -static int -zap(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) -{ - WHIRLYGIZMO *Wg; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - Wg = (WHIRLYGIZMO *) Togl_GetClientData(togl); - free(Wg); - - return TCL_OK; -} - - -static int -idle(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) -{ - WHIRLYGIZMO *Wg; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - Wg = (WHIRLYGIZMO *) Togl_GetClientData(togl); - Wg->Angle += 2; - Togl_PostRedisplay(togl); - - return TCL_OK; -} - - -/* change view angle, exit upon ESC */ -/* - * static GLenum key(int k, GLenum mask) { switch (k) { case TK_UP: view_rotx - * += 5; return GL_TRUE; case TK_DOWN: view_rotx -= 5; return GL_TRUE; case - * TK_LEFT: view_roty += 5; return GL_TRUE; case TK_RIGHT: view_roty -= 5; - * return GL_TRUE; case TK_z: view_rotz += 5; return GL_TRUE; case TK_Z: - * view_rotz -= 5; return GL_TRUE; } return GL_FALSE; } */ - -/* new window size or exposure */ -static int -reshape(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width, height; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - glViewport(0, 0, (GLint) width, (GLint) height); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - if (width > height) { - GLfloat w = (GLfloat) width / (GLfloat) height; - - glFrustum(-w, w, -1, 1, 5, 60); - } else { - GLfloat h = (GLfloat) height / (GLfloat) width; - - glFrustum(-1, 1, -h, h, 5, 60); - } - - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - glTranslatef(0, 0, -40); - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - return TCL_OK; -} - - -static int -init(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) -{ - WHIRLYGIZMO *Wg; - static GLfloat red[4] = { 0.8f, 0.1f, 0, 1 }; - static GLfloat green[4] = { 0, 0.8f, 0.2f, 1 }; - static GLfloat blue[4] = { 0.2f, 0.2f, 1, 1 }; - static GLfloat pos[4] = { 5, 5, 10, 0 }; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - glLightfv(GL_LIGHT0, GL_POSITION, pos); - glEnable(GL_CULL_FACE); - glEnable(GL_LIGHTING); - glEnable(GL_LIGHT0); - glEnable(GL_DEPTH_TEST); - /* make the gears */ - Wg = (WHIRLYGIZMO *) malloc(sizeof (WHIRLYGIZMO)); - if (!Wg) { - Tcl_SetResult(Togl_Interp(togl), - "\"Cannot allocate client data for widget\"", TCL_STATIC); - } - Wg->Gear1 = glGenLists(1); - glNewList(Wg->Gear1, GL_COMPILE); - glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, red); - gear(1, 4, 1, 20, 0.7f); - glEndList(); - - Wg->Gear2 = glGenLists(1); - glNewList(Wg->Gear2, GL_COMPILE); - glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, green); - gear(0.5f, 2, 2, 10, 0.7f); - glEndList(); - - Wg->Gear3 = glGenLists(1); - glNewList(Wg->Gear3, GL_COMPILE); - glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, blue); - gear(1.3f, 2, 0.5f, 10, 0.7f); - glEndList(); - - glEnable(GL_NORMALIZE); - Wg->Height = Togl_Height(togl); - Wg->Width = Togl_Width(togl); - Wg->Angle = 0; - Wg->Rotx = 0; - Wg->Roty = 0; - Wg->Rotz = 0; - Togl_SetClientData(togl, (ClientData) Wg); - - return TCL_OK; -} - -static int -position(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - WHIRLYGIZMO *Wg; - char Result[100]; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - Wg = (WHIRLYGIZMO *) Togl_GetClientData(togl); - - /* Let result string equal value */ - sprintf(Result, "%g %g", Wg->Roty, Wg->Rotx); - - Tcl_SetResult(interp, Result, TCL_VOLATILE); - return TCL_OK; -} - -static int -rotate(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - WHIRLYGIZMO *Wg; - Togl *togl; - - if (objc != 4) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName yrot xrot"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - Wg = (WHIRLYGIZMO *) Togl_GetClientData(togl); - - if (Tcl_GetDoubleFromObj(interp, objv[2], &Wg->Roty) != TCL_OK) { - return TCL_ERROR; - } - if (Tcl_GetDoubleFromObj(interp, objv[3], &Wg->Rotx) != TCL_OK) { - return TCL_ERROR; - } - Togl_PostRedisplay(togl); - - return TCL_OK; -} - -EXTERN int -Gears_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "init", init, NULL, NULL); - Tcl_CreateObjCommand(interp, "zap", zap, NULL, NULL); - Tcl_CreateObjCommand(interp, "draw", draw, NULL, NULL); - Tcl_CreateObjCommand(interp, "reshape", reshape, NULL, NULL); - Tcl_CreateObjCommand(interp, "idle", idle, NULL, NULL); - Tcl_CreateObjCommand(interp, "rotate", rotate, NULL, NULL); - Tcl_CreateObjCommand(interp, "position", position, NULL, NULL); - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/gears.tcl b/opengl/Togl2.1-SnapPy/gears.tcl deleted file mode 100755 index 42a773140..000000000 --- a/opengl/Togl2.1-SnapPy/gears.tcl +++ /dev/null @@ -1,90 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996-1997 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# -# Test Togl using GL Gears Demo -# -# Copyright (C) 1997 Philip Quaife -# - -package provide gears 1.0 - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/gears[info sharedlibextension] - -# create ::gears namespace -namespace eval ::gears { -} - -proc ::gears::setup {} { - global startx starty xangle0 yangle0 xangle yangle RotCnt - global vTime - set RotCnt 1 - set xangle 0.0 - set yangle 0.0 - set vTime 100 - wm title . "Rotating Gear Widget Test" - - label .t -text "Click and drag to rotate image" - pack .t -side top -padx 2 -pady 10 - frame .f - pack .f -side top - button .f.n1 -text " Add " -command ::gears::AutoRot - button .f.r1 -text "Remove" -command ::gears::DelRot - button .f.b1 -text " Quit " -command exit - entry .f.t -width 4 -textvariable vTime - pack .f.n1 .f.t .f.r1 .f.b1 -side left -anchor w -padx 5 - newRot .w0 10 - -} -proc ::gears::AutoRot {} { - global RotCnt vTime - newRot .w$RotCnt $vTime - set RotCnt [expr $RotCnt + 1] -} - -proc ::gears::DelRot {} { - global RotCnt vTime - if { $RotCnt != 0 } { - set RotCnt [expr $RotCnt - 1] - destroy .w$RotCnt - } -} - -proc ::gears::newRot {win {tick 100} } { - togl $win -width 200 -height 200 -rgba true -double true -depth true -privatecmap false -time $tick -create init -destroy zap -display draw -reshape reshape -timer idle - bind $win {::gears::RotStart %x %y %W} - bind $win {::gears::RotMove %x %y %W} - pack $win -expand true -fill both -} - -proc ::gears::RotStart {x y W} { - global startx starty xangle0 yangle0 xangle yangle - set startx $x - set starty $y - set vPos [position $W] - set xangle0 [lindex $vPos 0] - set yangle0 [lindex $vPos 1] -} - -proc ::gears::RotMove {x y W} { - global startx starty xangle0 yangle0 xangle yangle - set xangle [expr $xangle0 + ($x - $startx)] - set yangle [expr $yangle0 + ($y - $starty)] - rotate $W $xangle $yangle -} - -if { [info script] == $argv0 } { - ::gears::setup -} diff --git a/opengl/Togl2.1-SnapPy/image.c b/opengl/Togl2.1-SnapPy/image.c deleted file mode 100644 index 33e6a6a39..000000000 --- a/opengl/Togl2.1-SnapPy/image.c +++ /dev/null @@ -1,249 +0,0 @@ -/* - * SGI rgb file reader borrowed from gltk library - */ - -#include "togl.h" /* added by GG to include windows.h */ -#include -#include -#include -#include "image.h" - -#ifndef SEEK_SET -# define SEEK_SET 0 -#endif - - -static void -tkQuit(void) -{ - exit(0); -} - - -/******************************************************************************/ - -typedef struct _rawImageRec -{ - unsigned short imagic; - unsigned short type; - unsigned short dim; - unsigned short sizeX, sizeY, sizeZ; - unsigned long min, max; - unsigned long wasteBytes; - char name[80]; - unsigned long colorMap; - FILE *file; - unsigned char *tmp, *tmpR, *tmpG, *tmpB, *tmpA; - unsigned long rleEnd; - GLuint *rowStart; - GLint *rowSize; -} rawImageRec; - - -/******************************************************************************/ - -static void -ConvertShort(unsigned short *array, long length) -{ - unsigned long b1, b2; - unsigned char *ptr; - - ptr = (unsigned char *) array; - while (length--) { - b1 = *ptr++; - b2 = *ptr++; - *array++ = (unsigned short) ((b1 << 8) | b2); - } -} - -static void -ConvertLong(GLuint *array, long length) -{ - unsigned long b1, b2, b3, b4; - unsigned char *ptr; - - ptr = (unsigned char *) array; - while (length--) { - b1 = *ptr++; - b2 = *ptr++; - b3 = *ptr++; - b4 = *ptr++; - *array++ = (b1 << 24) | (b2 << 16) | (b3 << 8) | (b4); - } -} - -static rawImageRec * -RawImageOpen(const char *fileName) -{ - union - { - int testWord; - char testByte[4]; - } endianTest; - rawImageRec *raw; - GLenum swapFlag; - int x; - - endianTest.testWord = 1; - if (endianTest.testByte[0] == 1) { - swapFlag = GL_TRUE; - } else { - swapFlag = GL_FALSE; - } - - raw = (rawImageRec *) malloc(sizeof (rawImageRec)); - if (raw == NULL) { - fprintf(stderr, "Out of memory!\n"); - tkQuit(); - } - if ((raw->file = fopen(fileName, "rb")) == NULL) { - perror(fileName); - tkQuit(); - } - - fread(raw, 1, 12, raw->file); - - if (swapFlag) { - ConvertShort(&raw->imagic, 6); - } - - raw->tmp = (unsigned char *) malloc(raw->sizeX * 256); - raw->tmpR = (unsigned char *) malloc(raw->sizeX * 256); - raw->tmpG = (unsigned char *) malloc(raw->sizeX * 256); - raw->tmpB = (unsigned char *) malloc(raw->sizeX * 256); - raw->tmpA = (unsigned char *) malloc(raw->sizeX * 256); - if (raw->tmp == NULL || raw->tmpR == NULL || raw->tmpG == NULL || - raw->tmpB == NULL || raw->tmpA == NULL) { - fprintf(stderr, "Out of memory!\n"); - tkQuit(); - } - - if ((raw->type & 0xFF00) == 0x0100) { - x = raw->sizeY * raw->sizeZ * sizeof (GLuint); - raw->rowStart = (GLuint *) malloc(x); - raw->rowSize = (GLint *) malloc(x); - if (raw->rowStart == NULL || raw->rowSize == NULL) { - fprintf(stderr, "Out of memory!\n"); - tkQuit(); - } - raw->rleEnd = 512 + (2 * x); - fseek(raw->file, 512, SEEK_SET); - fread(raw->rowStart, 1, x, raw->file); - fread(raw->rowSize, 1, x, raw->file); - if (swapFlag) { - ConvertLong(raw->rowStart, x / sizeof (GLuint)); - ConvertLong((GLuint *) raw->rowSize, x / sizeof (GLint)); - } - } - return raw; -} - -static void -RawImageClose(rawImageRec * raw) -{ - - fclose(raw->file); - free(raw->tmp); - free(raw->tmpR); - free(raw->tmpG); - free(raw->tmpB); - free(raw->tmpA); - free(raw); -} - -static void -RawImageGetRow(rawImageRec * raw, unsigned char *buf, int y, int z) -{ - unsigned char *iPtr, *oPtr, pixel; - int count; - - if ((raw->type & 0xFF00) == 0x0100) { - fseek(raw->file, raw->rowStart[y + z * raw->sizeY], SEEK_SET); - fread(raw->tmp, 1, (unsigned int) raw->rowSize[y + z * raw->sizeY], - raw->file); - - iPtr = raw->tmp; - oPtr = buf; - while (1) { - pixel = *iPtr++; - count = (int) (pixel & 0x7F); - if (!count) { - return; - } - if (pixel & 0x80) { - while (count--) { - *oPtr++ = *iPtr++; - } - } else { - pixel = *iPtr++; - while (count--) { - *oPtr++ = pixel; - } - } - } - } else { - fseek(raw->file, 512 + (y * raw->sizeX) + (z * raw->sizeX * raw->sizeY), - SEEK_SET); - fread(buf, 1, raw->sizeX, raw->file); - } -} - -static void -RawImageGetData(rawImageRec * raw, TK_RGBImageRec * final) -{ - unsigned char *ptr; - int i, j; - - final->data = - (unsigned char *) malloc((raw->sizeX + 1) * (raw->sizeY + 1) * 4); - if (final->data == NULL) { - fprintf(stderr, "Out of memory!\n"); - tkQuit(); - } - - ptr = final->data; - for (i = 0; i < (int) (raw->sizeY); i++) { - RawImageGetRow(raw, raw->tmpR, i, 0); - RawImageGetRow(raw, raw->tmpG, i, 1); - RawImageGetRow(raw, raw->tmpB, i, 2); - if (raw->sizeZ == 4) { - /* 4 components */ - RawImageGetRow(raw, raw->tmpA, i, 3); - for (j = 0; j < (int) (raw->sizeX); j++) { - *ptr++ = *(raw->tmpR + j); - *ptr++ = *(raw->tmpG + j); - *ptr++ = *(raw->tmpB + j); - *ptr++ = *(raw->tmpA + j); - } - } else { - /* 3 components */ - for (j = 0; j < (int) (raw->sizeX); j++) { - *ptr++ = *(raw->tmpR + j); - *ptr++ = *(raw->tmpG + j); - *ptr++ = *(raw->tmpB + j); - } - } - } -} - -TK_RGBImageRec * -tkRGBImageLoad(const char *fileName) -{ - rawImageRec *raw; - TK_RGBImageRec *final; - - raw = RawImageOpen(fileName); - final = (TK_RGBImageRec *) malloc(sizeof (TK_RGBImageRec)); - if (final == NULL) { - fprintf(stderr, "Out of memory!\n"); - tkQuit(); - } - final->sizeX = raw->sizeX; - final->sizeY = raw->sizeY; - final->sizeZ = raw->sizeZ; - RawImageGetData(raw, final); - RawImageClose(raw); - return final; -} - -/******************************************************************************/ diff --git a/opengl/Togl2.1-SnapPy/image.h b/opengl/Togl2.1-SnapPy/image.h deleted file mode 100644 index 30b537bc6..000000000 --- a/opengl/Togl2.1-SnapPy/image.h +++ /dev/null @@ -1,14 +0,0 @@ -/* image.h */ - -#ifndef IMAGE_H -# define IMAGE_H - -typedef struct _TK_RGBImageRec -{ - int sizeX, sizeY, sizeZ; - unsigned char *data; -} TK_RGBImageRec; - -extern TK_RGBImageRec *tkRGBImageLoad(const char *fileName); - -#endif diff --git a/opengl/Togl2.1-SnapPy/index.c b/opengl/Togl2.1-SnapPy/index.c deleted file mode 100644 index 7bbffccc5..000000000 --- a/opengl/Togl2.1-SnapPy/index.c +++ /dev/null @@ -1,227 +0,0 @@ -/* $Id: index.c,v 1.13 2007/08/03 16:48:50 gregcouch Exp $ */ - -/* - * Togl - a Tk OpenGL widget - * Copyright (C) 1996-1997 Brian Paul and Ben Bederson - * Copyright (C) 2006-2007 Greg Couch - * See the LICENSE file for copyright details. - */ - - -/* - * An example Togl program using color-index mode. - */ - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - - -/* Our color indexes: */ -static unsigned long black, red, green, blue; - -/* Rotation angle */ -static float Angle = 0; - - -/* - * Togl widget create callback. This is called by Tcl/Tk when the widget has - * been realized. Here's where one may do some one-time context setup or - * initializations. - */ -static int -create_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - /* allocate color indexes */ - black = Togl_AllocColor(togl, 0, 0, 0); - red = Togl_AllocColor(togl, 1, 0, 0); - green = Togl_AllocColor(togl, 0, 1, 0); - blue = Togl_AllocColor(togl, 0, 0, 1); - - /* If we were using a private read/write colormap we'd setup our color - * table with something like this: */ - /* - * black = 1; Togl_SetColor( togl, black, 0, 0, 0 ); red = 2; - * Togl_SetColor( togl, red, 1, 0, 0 ); green = 3; Togl_SetColor( - * togl, green, 0, 1, 0 ); blue = 4; Togl_SetColor( togl, blue, 0, - * 0, 1 ); */ - - glShadeModel(GL_FLAT); - glDisable(GL_DITHER); - - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width; - int height; - float aspect; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - aspect = (float) width / (float) height; - glViewport(0, 0, width, height); - - /* Set up projection transform */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glOrtho(-aspect, aspect, -1, 1, -1, 1); - - /* Change back to model view transform for rendering */ - glMatrixMode(GL_MODELVIEW); - - return TCL_OK; -} - - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - glClearIndex((float) black); - glClear(GL_COLOR_BUFFER_BIT); - - glPushMatrix(); - glTranslatef(0.3f, -0.3f, 0); - glRotatef(Angle, 0, 0, 1); - glIndexi(red); - glBegin(GL_TRIANGLES); - glVertex2f(-0.5f, -0.3f); - glVertex2f(0.5f, -0.3f); - glVertex2f(0, 0.6f); - glEnd(); - glPopMatrix(); - - glPushMatrix(); - glRotatef(Angle, 0, 0, 1); - glIndexi(green); - glBegin(GL_TRIANGLES); - glVertex2f(-0.5f, -0.3f); - glVertex2f(0.5f, -0.3f); - glVertex2f(0, 0.6f); - glEnd(); - glPopMatrix(); - - glPushMatrix(); - glTranslatef(-0.3f, 0.3f, 0); - glRotatef(Angle, 0, 0, 1); - glIndexi(blue); - glBegin(GL_TRIANGLES); - glVertex2f(-0.5f, -0.3f); - glVertex2f(0.5f, -0.3f); - glVertex2f(0, 0.6f); - glEnd(); - glPopMatrix(); - - glFlush(); - Togl_SwapBuffers(togl); - - return TCL_OK; -} - - -static int -timer_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - Angle += 5.0; - Togl_PostRedisplay(togl); - - return TCL_OK; -} - - -EXTERN int -Index_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "::index::create_cb", create_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "::index::display_cb", display_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "::index::reshape_cb", reshape_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "::index::timer_cb", timer_cb, NULL, NULL); - - /* - * Make a new Togl widget command so the Tcl code can set a C variable. - */ - /* NONE */ - - /* - * Call Tcl_CreateCommand for application-specific commands, if - * they weren't already created by the init procedures called above. - */ - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/index.tcl b/opengl/Togl2.1-SnapPy/index.tcl deleted file mode 100755 index ab2d49a8d..000000000 --- a/opengl/Togl2.1-SnapPy/index.tcl +++ /dev/null @@ -1,50 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: index.tcl,v 1.8 2007/08/03 16:48:50 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# A Tk/OpenGL widget demo using color-index mode. - -package provide index 1.0 - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/index[info sharedlibextension] - -# create ::index namespace -namespace eval ::index { -} - -proc ::index::setup {} { - wm title . "Color index demo" - - togl .win -width 200 -height 200 -rgba false -double true -privatecmap false -time 10 -timer ::index::timer_cb -create ::index::create_cb -reshape ::index::reshape_cb -display ::index::display_cb - button .photo -text "Take Photo" -command ::index::take_photo - button .btn -text Quit -command exit - - pack .win -expand true -fill both - pack .photo -expand true -fill both - pack .btn -expand true -fill both -} - -proc ::index::take_photo {} { - image create photo img - .win takephoto img - img write image.ppm -format ppm -} - - -# Execution starts here! -if { [info script] == $argv0 } { - ::index::setup -} diff --git a/opengl/Togl2.1-SnapPy/multisample.tcl b/opengl/Togl2.1-SnapPy/multisample.tcl deleted file mode 100755 index bdbcd1007..000000000 --- a/opengl/Togl2.1-SnapPy/multisample.tcl +++ /dev/null @@ -1,96 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: multisample.tcl,v 1.3 2009/03/12 23:59:35 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# An Tk/OpenGL widget demo with two windows, one aliased and the -# other multisampled. Reuse C code from double buffering demo. - -package provide multisample 1.0 - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/double[info sharedlibextension] - -# create ::multisample namespace -namespace eval ::multisample { -} - -proc multisample::setup {} { - wm title . "Multisample vs Aliased" - - # create first Togl widget - togl .o1 -width 200 -height 200 -rgba true -double true -depth true -create double::create_cb -display double::display_cb -reshape double::reshape_cb -multisample false -ident Aliased - - # create second Togl widget, share display lists with first widget - togl .o2 -width 200 -height 200 -rgba true -double true -depth true -create double::create_cb -display double::display_cb -reshape double::reshape_cb -multisample true -ident Multisampled -sharelist Aliased - - scale .sx -label {X Axis} -from 0 -to 360 -command {::multisample::setAngle x} -orient horizontal - scale .sy -label {Y Axis} -from 0 -to 360 -command {::multisample::setAngle y} -orient horizontal - button .btn -text Quit -command exit - - bind .o1 { - ::multisample::motion_event [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] \ - %x %y - } - - bind .o2 { - ::multisample::motion_event [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] \ - %x %y - } - - grid rowconfigure . 0 -weight 1 - grid columnconfigure . 0 -weight 1 -uniform same - grid columnconfigure . 1 -weight 1 -uniform same - grid .o1 -row 0 -column 0 -sticky nesw -padx 3 -pady 3 - grid .o2 -row 0 -column 1 -sticky nesw -padx 3 -pady 3 - #grid .l1 -row 1 -column 0 -sticky ew -padx 3 -pady 3 - #grid .l2 -row 1 -column 1 -sticky ew -padx 3 -pady 3 - grid .sx -row 2 -column 0 -columnspan 2 -sticky ew - grid .sy -row 3 -column 0 -columnspan 2 -sticky ew - grid .btn -row 4 -column 0 -columnspan 2 -sticky ew -} - - - -# This is called when mouse button 1 is pressed and moved in either of -# the OpenGL windows. -proc multisample::motion_event { width height x y } { - .sx set [double::setXrot [expr 360.0 * $y / $height]] - .sy set [double::setYrot [expr 360.0 * ($width - $x) / $width]] - - .o1 postredisplay - .o2 postredisplay -} - -# This is called when a slider is changed. -proc multisample::setAngle {axis value} { - global xAngle yAngle zAngle - - switch -exact $axis { - x {double::setXrot $value - double::setXrot $value} - y {double::setYrot $value - double::setYrot $value} - } - - .o1 postredisplay - .o2 postredisplay -} - -# Execution starts here! -if { [info script] == $argv0 } { - ::multisample::setup -} diff --git a/opengl/Togl2.1-SnapPy/overlay.c b/opengl/Togl2.1-SnapPy/overlay.c deleted file mode 100644 index 630179ca2..000000000 --- a/opengl/Togl2.1-SnapPy/overlay.c +++ /dev/null @@ -1,214 +0,0 @@ -/* $Id: overlay.c,v 1.10 2007/08/03 16:48:50 gregcouch Exp $ */ - -/* - * Togl - a Tk OpenGL widget - * Copyright (C) 1996-1997 Brian Paul and Ben Bederson - * Copyright (C) 2006-2007 Greg Couch - * See the LICENSE file for copyright details. - */ - - -/* - * An example Togl program using an overlay. - */ - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - - -/* Overlay color indexes: */ -static unsigned long Red, Green; - - -/* - * Togl widget create callback. This is called by Tcl/Tk when the widget has - * been realized. Here's where one may do some one-time context setup or - * initializations. - */ -static int -create_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - /* allocate overlay color indexes */ - Red = Togl_AllocColorOverlay(togl, 1, 0, 0); - Green = Togl_AllocColorOverlay(togl, 0, 1, 0); - - /* in this demo we always show the overlay */ - if (Togl_ExistsOverlay(togl)) { - Togl_ShowOverlay(togl); - printf("Red and green lines are in the overlay\n"); - } else { - printf("Sorry, this display doesn't support overlays\n"); - } - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width; - int height; - float aspect; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - aspect = (float) width / (float) height; - - /* Set up viewing for normal plane's context */ - glViewport(0, 0, width, height); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glOrtho(-aspect, aspect, -1, 1, -1, 1); - glMatrixMode(GL_MODELVIEW); - - /* Set up viewing for overlay plane's context */ - if (Togl_ExistsOverlay(togl)) { - Togl_UseLayer(togl, TOGL_OVERLAY); - glViewport(0, 0, width, height); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glOrtho(-1, 1, -1, 1, -1, 1); - glMatrixMode(GL_MODELVIEW); - Togl_UseLayer(togl, TOGL_NORMAL); - } - return TCL_OK; -} - - -/* - * Togl widget overlay display callback. This is called by Tcl/Tk when the - * overlay has to be redrawn. - */ -static int -overlay_display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - glClear(GL_COLOR_BUFFER_BIT); - - glIndexi(Red); - glBegin(GL_LINES); - glVertex2f(-1, -1); - glVertex2f(1, 1); - glVertex2f(-1, 1); - glVertex2f(1, -1); - glEnd(); - - glIndexi(Green); - glBegin(GL_LINE_LOOP); - glVertex2f(-0.5f, -0.5f); - glVertex2f(0.5f, -0.5f); - glVertex2f(0.5f, 0.5f); - glVertex2f(-0.5f, 0.5f); - glEnd(); - glFlush(); - return TCL_OK; -} - - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - glClear(GL_COLOR_BUFFER_BIT); - - glLoadIdentity(); - - glBegin(GL_TRIANGLES); - - glColor3f(1, 0, 1); - glVertex2f(-0.5f, -0.3f); - glVertex2f(0.5f, -0.3f); - glVertex2f(0, 0.6f); - - glColor3f(1, 1, 0); - glVertex2f(-0.5f + 0.2f, -0.3f - 0.2f); - glVertex2f(0.5f + 0.2f, -0.3f - 0.2f); - glVertex2f(0 + 0.2f, 0.6f - 0.2f); - - glColor3f(0, 1, 1); - glVertex2f(-0.5f + 0.4f, -0.3f - 0.4f); - glVertex2f(0.5f + 0.4f, -0.3f - 0.4f); - glVertex2f(0 + 0.4f, 0.6f - 0.4f); - - glEnd(); - - glFlush(); - return TCL_OK; -} - - -/* - * Called by Tcl to let me initialize the modules (Togl) I will need. - */ -EXTERN int -Overlay_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "create_cb", create_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "display_cb", display_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "reshape_cb", reshape_cb, NULL, NULL); - - Tcl_CreateObjCommand(interp, "overlay_display_cb", overlay_display_cb, NULL, - NULL); - - /* - * Make a new Togl widget command so the Tcl code can set a C variable. - */ - /* NONE */ - - /* - * Call Tcl_CreateCommand for application-specific commands, if - * they weren't already created by the init procedures called above. - */ - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/overlay.tcl b/opengl/Togl2.1-SnapPy/overlay.tcl deleted file mode 100755 index 9a1d83d66..000000000 --- a/opengl/Togl2.1-SnapPy/overlay.tcl +++ /dev/null @@ -1,37 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: overlay.tcl,v 1.7 2007/08/03 16:48:50 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# A Tk/OpenGL widget demo using an overlay. - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/overlay[info sharedlibextension] - -proc setup {} { - wm title . "Overlay demo" - - togl .win -width 200 -height 200 -rgba true -double false -overlay true -create create_cb -reshape reshape_cb -display display_cb -overlaydisplay overlay_display_cb - button .btn -text Quit -command exit - - pack .win -expand true -fill both - pack .btn -expand true -fill both -} - - -# Execution starts here! -# Execution starts here! -if { [info script] == $argv0 } { - setup -} diff --git a/opengl/Togl2.1-SnapPy/pbuffer.c b/opengl/Togl2.1-SnapPy/pbuffer.c deleted file mode 100644 index a032d03cf..000000000 --- a/opengl/Togl2.1-SnapPy/pbuffer.c +++ /dev/null @@ -1,489 +0,0 @@ -/* $Id: pbuffer.c,v 1.2 2009/02/05 06:57:10 gregcouch Exp $ */ - -/* - * Togl - a Tk OpenGL widget - * Copyright (C) 1996-1997 Brian Paul and Ben Bederson - * Copyright (C) 2006-2007 Greg Couch - * See the LICENSE file for copyright details. - */ - -#undef PBUFFER_DEBUG - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include -#include -#if defined(TOGL_AGL) -# include -# include -#elif defined(TOGL_NSOPENGL) -# include -# include -#else -# include -#endif -#include /* OpenGL 1.4 GL_GENERATE_MIPMAP */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - -static double xAngle = 0, yAngle = 0, zAngle = 0; -static GLdouble CornerX, CornerY, CornerZ; /* where to print strings */ -static GLuint texture; -static Togl *output; - -/* - * Togl widget create callback. This is called by Tcl/Tk when the widget has - * been realized. Here's where one may do some one-time context setup or - * initializations. - */ -static int -create_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - double version; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - version = atof((const char *) glGetString(GL_VERSION)); - if (version < 1.4) { - Tcl_SetResult(interp, "need OpenGL 1.4 or later", TCL_STATIC); - return TCL_ERROR; - } - - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width; - int height; - double aspect; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - aspect = (double) width / (double) height; - - glViewport(0, 0, width, height); - - /* Set up projection transform */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glFrustum(-aspect, aspect, -1, 1, 1, 10); - - CornerX = -aspect; - CornerY = -1; - CornerZ = -1.1; - - /* Change back to model view transform for rendering */ - glMatrixMode(GL_MODELVIEW); - - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape2_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width; - int height; - double aspect; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - aspect = (double) width / (double) height; - - glViewport(0, 0, width, height); - - /* Set up projection transform */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glOrtho(-aspect, aspect, -1, 1, -1, 1); - - /* Change back to model view transform for rendering */ - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - - return TCL_OK; -} - - -static void -draw_object() -{ - static GLuint cubeList = 0; - - glLoadIdentity(); /* Reset modelview matrix to the identity - * matrix */ - glTranslatef(0, 0, -3); /* Move the camera back three units */ - glRotated(xAngle, 1, 0, 0); /* Rotate by X, Y, and Z angles */ - glRotated(yAngle, 0, 1, 0); - glRotated(zAngle, 0, 0, 1); - - glEnable(GL_DEPTH_TEST); - - if (!cubeList) { - cubeList = glGenLists(1); - glNewList(cubeList, GL_COMPILE); - - /* Front face */ - glBegin(GL_QUADS); - glColor3f(0, 0.7f, 0.1f); /* Green */ - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, -1, 1); - glVertex3f(-1, -1, 1); - /* Back face */ - glColor3f(0.9f, 1, 0); /* Yellow */ - glVertex3f(-1, 1, -1); - glVertex3f(1, 1, -1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - /* Top side face */ - glColor3f(0.2f, 0.2f, 1); /* Blue */ - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, 1, -1); - glVertex3f(-1, 1, -1); - /* Bottom side face */ - glColor3f(0.7f, 0, 0.1f); /* Red */ - glVertex3f(-1, -1, 1); - glVertex3f(1, -1, 1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - glEnd(); - - glEndList(); - - } - glCallList(cubeList); -} - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) - return TCL_ERROR; - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - draw_object(); - -#ifdef PBUFFER_DEBUG - { - Tk_PhotoHandle photo; - - /* first tcl: image create photo test */ - photo = Tk_FindPhoto(interp, "test2"); - if (photo == NULL) { - fprintf(stderr, "missing tk photo object test2\n"); - } else { - Togl_TakePhoto(togl, photo); - Tcl_Eval(interp, "test2 write test2.ppm -format ppm"); - } - } -#endif - Togl_SwapBuffers(togl); - return TCL_OK; -} - - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display2_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) - return TCL_ERROR; - - glClear(GL_COLOR_BUFFER_BIT); - - if (texture) { - glEnable(GL_TEXTURE_2D); - glBindTexture(GL_TEXTURE_2D, texture); - glBegin(GL_QUADS); - glTexCoord2i(0, 0); - glVertex2i(-1, -1); - glTexCoord2i(1, 0); - glVertex2i(1, -1); - glTexCoord2i(1, 1); - glVertex2i(1, 1); - glTexCoord2i(0, 1); - glVertex2i(-1, 1); - glEnd(); - glBindTexture(GL_TEXTURE_2D, 0); - } - - Togl_SwapBuffers(togl); - return TCL_OK; -} - - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -pbuffer_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - int width; - int height; - GLenum error; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) - return TCL_ERROR; - - width = Togl_Width(togl); - height = Togl_Height(togl); - - if (texture == 0) { - glGenTextures(1, &texture); - glBindTexture(GL_TEXTURE_2D, texture); - glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); -#if !defined(TOGL_AGL) && !defined(TOGL_NSOPENGL) - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, - GL_LINEAR_MIPMAP_LINEAR); -#else - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); -#endif - glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, width, height, 0, GL_RGB, - GL_BYTE, NULL); - glTexParameteri(GL_TEXTURE_2D, GL_GENERATE_MIPMAP, GL_TRUE); - glBindTexture(GL_TEXTURE_2D, 0); - error = glGetError(); - if (error != GL_NO_ERROR) { - fprintf(stderr, "texture init: %s\n", gluErrorString(error)); - } -#if 0 && defined(TOGL_AGL) - AGLContext ctx = aglGetCurrentContext(); - AGLPbuffer pbuf; - GLint face, level, screen; - GLenum err; - - aglGetPBuffer(ctx, &pbuf, &face, &level, &screen); - err = aglGetError(); - if (err != AGL_NO_ERROR) - fprintf(stderr, "getPBuffer: %s\n", aglErrorString(err)); - aglTexImagePBuffer(ctx, pbuf, GL_FRONT); - err = aglGetError(); - if (err != AGL_NO_ERROR) - fprintf(stderr, "teximagepbuffer: %s\n", aglErrorString(err)); -#endif - } - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - draw_object(); - -#if 1 || !defined(TOGL_AGL) - glBindTexture(GL_TEXTURE_2D, texture); - glCopyTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, 0, 0, width, height); - glBindTexture(GL_TEXTURE_2D, 0); - error = glGetError(); - if (error != GL_NO_ERROR) { - fprintf(stderr, "after tex copy: %s\n", gluErrorString(error)); - } -#endif -#ifdef PBUFFER_DEBUG - { - Tk_PhotoHandle photo; - - /* first tcl: image create photo test */ - photo = Tk_FindPhoto(interp, "test"); - Togl_TakePhoto(togl, photo); - Tcl_Eval(interp, "test write test.ppm -format ppm"); - } -#endif - Togl_SwapBuffers(togl); - if (output) - Togl_PostRedisplay(output); - - return TCL_OK; -} - - -static int -setXrot_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "angle"); - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[1], &xAngle) != TCL_OK) { - return TCL_ERROR; - } - - /* printf( "before %f ", xAngle ); */ - - xAngle = fmod(xAngle, 360.0); - if (xAngle < 0.0) - xAngle += 360.0; - - /* printf( "after %f \n", xAngle ); */ - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[1]); - return TCL_OK; -} - - -static int -setYrot_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "angle"); - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[1], &yAngle) != TCL_OK) { - return TCL_ERROR; - } - - yAngle = fmod(yAngle, 360.0); - if (yAngle < 0.0) - yAngle += 360.0; - - /* Let result equal value */ - Tcl_SetObjResult(interp, objv[1]); - return TCL_OK; -} - -static int -setOutput_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &output) != TCL_OK) - return TCL_ERROR; - - return TCL_OK; -} - -/* - * Called by Tcl to let me initialize the modules (Togl) I will need. - */ -EXTERN int -Pbuffer_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL -#ifdef PBUFFER_DEBUG - || Tk_InitStubs(interp, "8.1", 0) == NULL -#endif - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "create_cb", create_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "display_cb", display_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "display2_cb", display2_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "pbuffer_cb", pbuffer_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "reshape_cb", reshape_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "reshape2_cb", reshape2_cb, NULL, NULL); - - /* - * Make a new Togl widget command so the Tcl code can set a C variable. - */ - - Tcl_CreateObjCommand(interp, "setXrot", setXrot_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "setYrot", setYrot_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "setOutput", setOutput_cb, NULL, NULL); - - /* - * Call Tcl_CreateCommand for application-specific commands, if - * they weren't already created by the init procedures called above. - */ - - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/pbuffer.tcl b/opengl/Togl2.1-SnapPy/pbuffer.tcl deleted file mode 100755 index 8ffbfa797..000000000 --- a/opengl/Togl2.1-SnapPy/pbuffer.tcl +++ /dev/null @@ -1,115 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: pbuffer.tcl,v 1.1 2009/01/29 22:45:46 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# An Tk/OpenGL widget demo with two double-buffered OpenGL windows. -# The first shows the aliased object, the second show the results of -# rendering the same object in a higher resolution Pbuffer and using -# texture mapping to antialias it. - -package provide pbuffer 1.0 - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/pbuffer[info sharedlibextension] - -# create ::pbuffer namespace -namespace eval ::pbuffer { -} - -proc pbuffer::setup {} { - wm title . "Pbuffer test" - -#debug - image create photo test - image create photo test2 -#end debug - - # create first Togl widget - togl .o1 -width 300 -height 300 -rgba true -double true -depth true -ident main -create create_cb -reshape reshape_cb -display display_cb - label .l1 -text "RGB, Z, double" - - # create second Togl widget, share display lists with first widget, no depth - togl .o2 -width 300 -height 300 -rgba true -double true -sharelist main -reshape reshape2_cb -display display2_cb -ident second - setOutput .o2 - label .l2 -text "RGB from pbuffer texture" - - # create off-screen pbuffer, share display lists with other widgets - # must power of 2 squared in size - togl .pbuf -width 2048 -height 2048 -rgba true -depth true -sharelist main -pbuffer 1 -reshape reshape_cb -display pbuffer_cb -ident pbuffer - - scale .sx -label {X Axis} -from 0 -to 360 -command {::pbuffer::setAngle x} -orient horizontal - scale .sy -label {Y Axis} -from 0 -to 360 -command {::pbuffer::setAngle y} -orient horizontal - button .btn -text Quit -command exit - - bind .o1 { - ::pbuffer::motion_event [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] \ - %x %y - } - - bind .o2 { - ::pbuffer::motion_event [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] \ - %x %y - } - - grid rowconfigure . 0 -weight 1 - grid columnconfigure . 0 -weight 1 -uniform same - grid columnconfigure . 1 -weight 1 -uniform same - grid .o1 -row 0 -column 0 -sticky nesw -padx 3 -pady 3 - grid .o2 -row 0 -column 1 -sticky nesw -padx 3 -pady 3 - grid .l1 -row 1 -column 0 -sticky ew -padx 3 -pady 3 - grid .l2 -row 1 -column 1 -sticky ew -padx 3 -pady 3 - grid .sx -row 2 -column 0 -columnspan 2 -sticky ew - grid .sy -row 3 -column 0 -columnspan 2 -sticky ew - grid .btn -row 4 -column 0 -columnspan 2 -sticky ew -} - - -proc pbuffer::display { } { - pbuffer_cb .pbuf - .o2 postredisplay -} - - -# This is called when mouse button 1 is pressed and moved in either of -# the OpenGL windows. -proc pbuffer::motion_event { width height x y } { - .sx set [setXrot [expr 360.0 * $y / $height]] - .sy set [setYrot [expr 360.0 * ($width - $x) / $width]] - - .o1 postredisplay - .pbuf postredisplay -} - -# This is called when a slider is changed. -proc pbuffer::setAngle {axis value} { - global xAngle yAngle zAngle - - switch -exact $axis { - x {setXrot $value - setXrot $value} - y {setYrot $value - setYrot $value} - } - - .o1 postredisplay - .pbuf postredisplay -} - -# Execution starts here! -if { [info script] == $argv0 } { - ::pbuffer::setup -} diff --git a/opengl/Togl2.1-SnapPy/pkgIndex.tcl.in b/opengl/Togl2.1-SnapPy/pkgIndex.tcl.in deleted file mode 100644 index af071e362..000000000 --- a/opengl/Togl2.1-SnapPy/pkgIndex.tcl.in +++ /dev/null @@ -1,5 +0,0 @@ -# -# Tcl package index file -# -package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ \ - [list load [file join $dir @PKG_LIB_FILE@]] diff --git a/opengl/Togl2.1-SnapPy/stereo.c b/opengl/Togl2.1-SnapPy/stereo.c deleted file mode 100644 index 99bd22f25..000000000 --- a/opengl/Togl2.1-SnapPy/stereo.c +++ /dev/null @@ -1,343 +0,0 @@ -/* $Id: stereo.c,v 1.14 2009/02/07 07:04:50 gregcouch Exp $ */ - -/* - * Togl - a Tk OpenGL widget - * Copyright (C) 1996-1997 Brian Paul and Ben Bederson - * Copyright (C) 2006-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - - -static Tcl_Obj *toglFont; -static double xAngle = 0, yAngle = 0, zAngle = 0; -static GLfloat CornerX, CornerY, CornerZ; /* where to print strings */ -static double coord_scale = 1; - - - -/* - * Togl widget create callback. This is called by Tcl/Tk when the widget has - * been realized. Here's where one may do some one-time context setup or - * initializations. - */ -static int -create_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - int width; - int height; - float aspect; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - aspect = (float) width / (float) height; - - glViewport(0, 0, width, height); - - /* Set up projection transform */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glFrustum(-aspect, aspect, -1, 1, 1, 10); - - CornerX = -aspect; - CornerY = -1; - CornerZ = -1.1f; - - /* Change back to model view transform for rendering */ - glMatrixMode(GL_MODELVIEW); - return TCL_OK; -} - - -static void -draw_eye(Togl *togl) -{ - static GLuint cubeList = 0; - - Togl_Clear(togl, GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - Togl_Frustum(togl, -1, 1, -1, 1, 1, 10); - glMatrixMode(GL_MODELVIEW); - - if (!cubeList) { - cubeList = glGenLists(1); - glNewList(cubeList, GL_COMPILE); - - /* Front face */ - glBegin(GL_QUADS); - glColor3f(0.4f, 0.8f, 0.4f); /* Green-ish */ - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, -1, 1); - glVertex3f(-1, -1, 1); - /* Back face */ - glColor3f(0.8f, 0.8f, 0.4f); /* Yellow-ish */ - glVertex3f(-1, 1, -1); - glVertex3f(1, 1, -1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - /* Top side face */ - glColor3f(0.4f, 0.4f, 0.8f); /* Blue-ish */ - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, 1, -1); - glVertex3f(-1, 1, -1); - /* Bottom side face */ - glColor3f(0.8f, 0.4f, 0.4f); /* Red-ish */ - glVertex3f(-1, -1, 1); - glVertex3f(1, -1, 1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - glEnd(); - - glEndList(); - } - glCallList(cubeList); -} - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - /* setup modelview matrix */ - glLoadIdentity(); /* Reset modelview matrix to the identity - * matrix */ - glTranslatef(0, 0, -3.0); /* Move the camera back three units */ - glScaled(coord_scale, coord_scale, coord_scale); /* Zoom in and out */ - glRotated(xAngle, 1, 0, 0); /* Rotate by X, Y, and Z angles */ - glRotated(yAngle, 0, 1, 0); - glRotated(zAngle, 0, 0, 1); - - glEnable(GL_DEPTH_TEST); - - if (Togl_NumEyes(togl) == 1) { - /* single eye */ - Togl_DrawBuffer(togl, GL_BACK); - draw_eye(togl); - } else { - /* stereo left eye */ - Togl_DrawBuffer(togl, GL_BACK_LEFT); - draw_eye(togl); - - /* stereo right eye */ - Togl_DrawBuffer(togl, GL_BACK_RIGHT); - draw_eye(togl); - } - - glDisable(GL_DEPTH_TEST); - glLoadIdentity(); - glColor3f(1, 1, 1); - glRasterPos3f(CornerX, CornerY, CornerZ); - Togl_SwapBuffers(togl); - return TCL_OK; -} - - -static int -setXrot_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName angle"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &xAngle) != TCL_OK) { - return TCL_ERROR; - } - - /* printf( "before %f ", xAngle ); */ - - if (xAngle < 0) { - xAngle += 360; - } else if (xAngle > 360) { - xAngle -= 360; - } - - /* printf( "after %f \n", xAngle ); */ - - Togl_PostRedisplay(togl); - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -static int -setYrot_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName angle"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &yAngle) != TCL_OK) { - return TCL_ERROR; - } - - if (yAngle < 0) { - yAngle += 360; - } else if (yAngle > 360) { - yAngle -= 360; - } - - Togl_PostRedisplay(togl); - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -int -getXrot_cb(ClientData clientData, Tcl_Interp *interp, - int argc, CONST84 char *argv[]) -{ - Tcl_SetObjResult(interp, Tcl_NewDoubleObj(xAngle)); - return TCL_OK; -} - - -int -getYrot_cb(ClientData clientData, Tcl_Interp *interp, - int argc, CONST84 char *argv[]) -{ - Tcl_SetObjResult(interp, Tcl_NewDoubleObj(yAngle)); - return TCL_OK; -} - - -static int -coord_scale_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName value"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &coord_scale) != TCL_OK) { - return TCL_ERROR; - } - - Togl_PostRedisplay(togl); - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -EXTERN int -Stereo_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "create_cb", create_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "display_cb", display_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "reshape_cb", reshape_cb, NULL, NULL); - - Tcl_CreateObjCommand(interp, "setXrot", setXrot_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "setYrot", setYrot_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "coord_scale", coord_scale_cb, NULL, NULL); - - /* - * Call Tcl_CreateCommand for application-specific commands, if - * they weren't already created by the init procedures called above. - */ - - Tcl_CreateCommand(interp, "getXrot", getXrot_cb, NULL, NULL); - Tcl_CreateCommand(interp, "getYrot", getYrot_cb, NULL, NULL); - - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/stereo.tcl b/opengl/Togl2.1-SnapPy/stereo.tcl deleted file mode 100755 index 905df5a26..000000000 --- a/opengl/Togl2.1-SnapPy/stereo.tcl +++ /dev/null @@ -1,106 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: stereo.tcl,v 1.13 2009/03/31 23:21:13 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2009 Greg Couch -# See the LICENSE file for copyright details. - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/stereo[info sharedlibextension] - -# create ::stereo namespace -namespace eval ::stereo { -} - -variable stereo::mode none -proc stereo::setup {} { - grid rowconfigure . 0 -weight 1 -minsize 200p - grid columnconfigure . 1 -weight 1 -minsize 200p - labelframe .c -text "Stereo mode:" - grid .c -padx 2 -pady 2 -ipadx 2 -ipady 1 - foreach {b} {none native sgioldstyle anaglyph cross-eye wall-eye DTI "row interleaved" "left eye" "right eye" } { - set name [string map {- _ " " _} $b] - radiobutton .c.b$name -text "$b" -command "::stereo::makeGraphics {$b}" -variable stereo::mode -value "$b" - pack .c.b$name -padx 2 -pady 1 -anchor w - } - scale .sx -label {X Axis} -from 0 -to 360 -command {::stereo::setAngle x} -orient horizontal - grid .sx -columnspan 2 -sticky ew - scale .sy -label {Y Axis} -from 0 -to 360 -command {::stereo::setAngle y} -orient horizontal - grid .sy -columnspan 2 -sticky ew - if {[string first IRIX $::tcl_platform(os)] != -1} { - label .irix -justify left -wraplength 250p -text "Use /usr/gfx/setmon or /usr/bin/X11/xsetmon to change video mode for native stereo (eg., 1024x768_120s) or sgioldstyle stereo (eg., str_bot) and back." - grid .irix -sticky new -columnspan 2 - } - button .quit -text Close -command exit - grid .quit -sticky se -columnspan 2 -padx 2 -pady 2 - frame .f -relief groove -borderwidth 2 -bg black - grid .f -row 0 -column 1 -sticky news - bind . {exit} - label .f.error -wraplength 100p -bg black -fg white - ::stereo::makeGraphics $stereo::mode -} - -set stereo::count 0 -set stereo::gwidget "" -proc stereo::makeGraphics {mode} { - incr stereo::count - set name .f.gr$stereo::count - set width 200 - set height 200 - if { [catch { togl $name -width $width -height $height -rgba true -stereo "$mode" -double true -depth true -sharelist main -create create_cb -display display_cb -reshape reshape_cb -eyeseparation 0.05 -convergence 2.0 -stencil true } error] } { - pack forget $stereo::gwidget - .f.error configure -text "$error\n\nMake another choice from the stereo modes on the left." - pack .f.error -expand 1 -fill both - } else { - pack forget .f.error - $name configure -ident main - if { "$stereo::gwidget" != "" } { - destroy $stereo::gwidget - } - set stereo::gwidget $name - pack $name -expand 1 -fill both - bind $name { - ::stereo::motion_event %W \ - [lindex [%W config -width] 4] \ - [lindex [%W config -height] 4] %x %y - } - } -} - -# This is called when mouse button 1 is pressed and moved -proc stereo::motion_event { widget width height x y } { - setXrot $widget [expr 360.0 * $y / $height] - setYrot $widget [expr 360.0 * ($width - $x) / $width] - -# .sx set [expr 360.0 * $y / $height] -# .sy set [expr 360.0 * ($width - $x) / $width] - - .sx set [getXrot] - .sy set [getYrot] -} - -# This is called when a slider is changed. -proc stereo::setAngle {axis value} { - # catch because .f.gr might be a label instead of a Togl widget - catch { - switch -exact $axis { - x {setXrot $stereo::gwidget $value} - y {setYrot $stereo::gwidget $value} - } - } -} - -if { [info script] == $argv0 } { - if { $argc == 1 } { - set stereo::mode [lindex $argv 0] - } - ::stereo::setup -} diff --git a/opengl/Togl2.1-SnapPy/tclconfig/install-sh b/opengl/Togl2.1-SnapPy/tclconfig/install-sh deleted file mode 100755 index 0ff4b6a08..000000000 --- a/opengl/Togl2.1-SnapPy/tclconfig/install-sh +++ /dev/null @@ -1,119 +0,0 @@ -#!/bin/sh - -# -# install - install a program, script, or datafile -# This comes from X11R5; it is not part of GNU. -# -# $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $ -# -# This script is compatible with the BSD install script, but was written -# from scratch. -# - - -# set DOITPROG to echo to test this script - -# Don't use :- since 4.3BSD and earlier shells don't like it. -doit="${DOITPROG-}" - - -# put in absolute paths if you don't have them in your path; or use env. vars. - -mvprog="${MVPROG-mv}" -cpprog="${CPPROG-cp}" -chmodprog="${CHMODPROG-chmod}" -chownprog="${CHOWNPROG-chown}" -chgrpprog="${CHGRPPROG-chgrp}" -stripprog="${STRIPPROG-strip}" -rmprog="${RMPROG-rm}" - -instcmd="$mvprog" -chmodcmd="" -chowncmd="" -chgrpcmd="" -stripcmd="" -rmcmd="$rmprog -f" -mvcmd="$mvprog" -src="" -dst="" - -while [ x"$1" != x ]; do - case $1 in - -c) instcmd="$cpprog" - shift - continue;; - - -m) chmodcmd="$chmodprog $2" - shift - shift - continue;; - - -o) chowncmd="$chownprog $2" - shift - shift - continue;; - - -g) chgrpcmd="$chgrpprog $2" - shift - shift - continue;; - - -s) stripcmd="$stripprog" - shift - continue;; - - *) if [ x"$src" = x ] - then - src=$1 - else - dst=$1 - fi - shift - continue;; - esac -done - -if [ x"$src" = x ] -then - echo "install: no input file specified" - exit 1 -fi - -if [ x"$dst" = x ] -then - echo "install: no destination specified" - exit 1 -fi - - -# If destination is a directory, append the input filename; if your system -# does not like double slashes in filenames, you may need to add some logic - -if [ -d $dst ] -then - dst="$dst"/`basename $src` -fi - -# Make a temp file name in the proper directory. - -dstdir=`dirname $dst` -dsttmp=$dstdir/#inst.$$# - -# Move or copy the file name to the temp name - -$doit $instcmd $src $dsttmp - -# and set any options; do chmod last to preserve setuid bits - -if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi -if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi -if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi -if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi - -# Now rename the file to the real destination. - -$doit $rmcmd $dst -$doit $mvcmd $dsttmp $dst - - -exit 0 diff --git a/opengl/Togl2.1-SnapPy/tclconfig/tcl.m4 b/opengl/Togl2.1-SnapPy/tclconfig/tcl.m4 deleted file mode 100644 index ab07457bd..000000000 --- a/opengl/Togl2.1-SnapPy/tclconfig/tcl.m4 +++ /dev/null @@ -1,4105 +0,0 @@ -# tcl.m4 -- -# -# This file provides a set of autoconf macros to help TEA-enable -# a Tcl extension. -# -# Copyright (c) 1999-2000 Ajuba Solutions. -# Copyright (c) 2002-2005 ActiveState Corporation. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: tcl.m4,v 1.12 2009/01/08 04:40:39 gregcouch Exp $ - -AC_PREREQ(2.57) - -dnl TEA extensions pass us the version of TEA they think they -dnl are compatible with (must be set in TEA_INIT below) -dnl TEA_VERSION="3.7" - -# Possible values for key variables defined: -# -# TEA_WINDOWINGSYSTEM - win32 aqua x11 (mirrors 'tk windowingsystem') -# TEA_PLATFORM - windows unix -# - -#------------------------------------------------------------------------ -# TEA_PATH_TCLCONFIG -- -# -# Locate the tclConfig.sh file and perform a sanity check on -# the Tcl compile flags -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --with-tcl=... -# -# Defines the following vars: -# TCL_BIN_DIR Full path to the directory containing -# the tclConfig.sh file -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PATH_TCLCONFIG], [ - dnl TEA specific: Make sure we are initialized - AC_REQUIRE([TEA_INIT]) - # - # Ok, lets find the tcl configuration - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-tcl - # - - if test x"${no_tcl}" = x ; then - # we reset no_tcl in case something fails here - no_tcl=true - AC_ARG_WITH(tcl, - AC_HELP_STRING([--with-tcl], - [directory containing tcl configuration (tclConfig.sh)]), - with_tclconfig=${withval}) - AC_MSG_CHECKING([for Tcl configuration]) - AC_CACHE_VAL(ac_cv_c_tclconfig,[ - - # First check to see if --with-tcl was specified. - if test x"${with_tclconfig}" != x ; then - case ${with_tclconfig} in - */tclConfig.sh ) - if test -f ${with_tclconfig}; then - AC_MSG_WARN([--with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself]) - with_tclconfig=`echo ${with_tclconfig} | sed 's!/tclConfig\.sh$!!'` - fi ;; - esac - if test -f "${with_tclconfig}/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd ${with_tclconfig}; pwd)` - else - AC_MSG_ERROR([${with_tclconfig} directory doesn't contain tclConfig.sh]) - fi - fi - - # then check for a private Tcl installation - if test x"${ac_cv_c_tclconfig}" = x ; then - for i in \ - ../tcl \ - `ls -dr ../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ../tcl[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../tcl[[8-9]].[[0-9]]* 2>/dev/null` \ - ../../tcl \ - `ls -dr ../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ../../tcl[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../../tcl[[8-9]].[[0-9]]* 2>/dev/null` \ - ../../../tcl \ - `ls -dr ../../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ../../../tcl[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../../../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do - if test -f "$i/unix/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - - # on Darwin, check in Framework installation locations - if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then - for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ - `ls -d /Library/Frameworks 2>/dev/null` \ - `ls -d /Network/Library/Frameworks 2>/dev/null` \ - `ls -d /System/Library/Frameworks 2>/dev/null` \ - ; do - if test -f "$i/Tcl.framework/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i/Tcl.framework; pwd)` - break - fi - done - fi - - # TEA specific: on Windows, check in common installation locations - if test "${TEA_PLATFORM}" = "windows" \ - -a x"${ac_cv_c_tclconfig}" = x ; then - for i in `ls -d C:/Tcl/lib 2>/dev/null` \ - `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ - ; do - if test -f "$i/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i; pwd)` - break - fi - done - fi - - # check in a few common install locations - if test x"${ac_cv_c_tclconfig}" = x ; then - for i in `ls -d ${libdir} 2>/dev/null` \ - `ls -d ${exec_prefix}/lib 2>/dev/null` \ - `ls -d ${prefix}/lib 2>/dev/null` \ - `ls -d /usr/local/lib 2>/dev/null` \ - `ls -d /usr/contrib/lib 2>/dev/null` \ - `ls -d /usr/lib 2>/dev/null` \ - ; do - if test -f "$i/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i; pwd)` - break - fi - done - fi - - # check in a few other private locations - if test x"${ac_cv_c_tclconfig}" = x ; then - for i in \ - ${srcdir}/../tcl \ - `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do - if test -f "$i/unix/tclConfig.sh" ; then - ac_cv_c_tclconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - ]) - - if test x"${ac_cv_c_tclconfig}" = x ; then - TCL_BIN_DIR="# no Tcl configs found" - AC_MSG_ERROR([Can't find Tcl configuration definitions]) - else - no_tcl= - TCL_BIN_DIR=${ac_cv_c_tclconfig} - AC_MSG_RESULT([found ${TCL_BIN_DIR}/tclConfig.sh]) - fi - fi -]) - -#------------------------------------------------------------------------ -# TEA_PATH_TKCONFIG -- -# -# Locate the tkConfig.sh file -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --with-tk=... -# -# Defines the following vars: -# TK_BIN_DIR Full path to the directory containing -# the tkConfig.sh file -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PATH_TKCONFIG], [ - # - # Ok, lets find the tk configuration - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-tk - # - - if test x"${no_tk}" = x ; then - # we reset no_tk in case something fails here - no_tk=true - AC_ARG_WITH(tk, - AC_HELP_STRING([--with-tk], - [directory containing tk configuration (tkConfig.sh)]), - with_tkconfig=${withval}) - AC_MSG_CHECKING([for Tk configuration]) - AC_CACHE_VAL(ac_cv_c_tkconfig,[ - - # First check to see if --with-tkconfig was specified. - if test x"${with_tkconfig}" != x ; then - case ${with_tkconfig} in - */tkConfig.sh ) - if test -f ${with_tkconfig}; then - AC_MSG_WARN([--with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself]) - with_tkconfig=`echo ${with_tkconfig} | sed 's!/tkConfig\.sh$!!'` - fi ;; - esac - if test -f "${with_tkconfig}/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd ${with_tkconfig}; pwd)` - else - AC_MSG_ERROR([${with_tkconfig} directory doesn't contain tkConfig.sh]) - fi - fi - - # then check for a private Tk library - if test x"${ac_cv_c_tkconfig}" = x ; then - for i in \ - ../tk \ - `ls -dr ../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ../tk[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../tk[[8-9]].[[0-9]]* 2>/dev/null` \ - ../../tk \ - `ls -dr ../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ../../tk[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../../tk[[8-9]].[[0-9]]* 2>/dev/null` \ - ../../../tk \ - `ls -dr ../../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ../../../tk[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../../../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do - if test -f "$i/unix/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - - # on Darwin, check in Framework installation locations - if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then - for i in `ls -d ~/Library/Frameworks 2>/dev/null` \ - `ls -d /Library/Frameworks 2>/dev/null` \ - `ls -d /Network/Library/Frameworks 2>/dev/null` \ - `ls -d /System/Library/Frameworks 2>/dev/null` \ - ; do - if test -f "$i/Tk.framework/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i/Tk.framework; pwd)` - break - fi - done - fi - - # check in a few common install locations - if test x"${ac_cv_c_tkconfig}" = x ; then - for i in `ls -d ${libdir} 2>/dev/null` \ - `ls -d ${exec_prefix}/lib 2>/dev/null` \ - `ls -d ${prefix}/lib 2>/dev/null` \ - `ls -d /usr/local/lib 2>/dev/null` \ - `ls -d /usr/contrib/lib 2>/dev/null` \ - `ls -d /usr/lib 2>/dev/null` \ - ; do - if test -f "$i/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i; pwd)` - break - fi - done - fi - - # TEA specific: on Windows, check in common installation locations - if test "${TEA_PLATFORM}" = "windows" \ - -a x"${ac_cv_c_tkconfig}" = x ; then - for i in `ls -d C:/Tcl/lib 2>/dev/null` \ - `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \ - ; do - if test -f "$i/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i; pwd)` - break - fi - done - fi - - # check in a few other private locations - if test x"${ac_cv_c_tkconfig}" = x ; then - for i in \ - ${srcdir}/../tk \ - `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \ - `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do - if test -f "$i/unix/tkConfig.sh" ; then - ac_cv_c_tkconfig=`(cd $i/unix; pwd)` - break - fi - done - fi - ]) - - if test x"${ac_cv_c_tkconfig}" = x ; then - TK_BIN_DIR="# no Tk configs found" - AC_MSG_ERROR([Can't find Tk configuration definitions]) - else - no_tk= - TK_BIN_DIR=${ac_cv_c_tkconfig} - AC_MSG_RESULT([found ${TK_BIN_DIR}/tkConfig.sh]) - fi - fi -]) - -#------------------------------------------------------------------------ -# TEA_LOAD_TCLCONFIG -- -# -# Load the tclConfig.sh file -# -# Arguments: -# -# Requires the following vars to be set: -# TCL_BIN_DIR -# -# Results: -# -# Subst the following vars: -# TCL_BIN_DIR -# TCL_SRC_DIR -# TCL_LIB_FILE -# -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_LOAD_TCLCONFIG], [ - AC_MSG_CHECKING([for existence of ${TCL_BIN_DIR}/tclConfig.sh]) - - if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then - AC_MSG_RESULT([loading]) - . "${TCL_BIN_DIR}/tclConfig.sh" - else - AC_MSG_RESULT([could not find ${TCL_BIN_DIR}/tclConfig.sh]) - fi - - # eval is required to do the TCL_DBGX substitution - eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\"" - eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\"" - - # If the TCL_BIN_DIR is the build directory (not the install directory), - # then set the common variable name to the value of the build variables. - # For example, the variable TCL_LIB_SPEC will be set to the value - # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC - # instead of TCL_BUILD_LIB_SPEC since it will work with both an - # installed and uninstalled version of Tcl. - if test -f "${TCL_BIN_DIR}/Makefile" ; then - TCL_LIB_SPEC=${TCL_BUILD_LIB_SPEC} - TCL_STUB_LIB_SPEC=${TCL_BUILD_STUB_LIB_SPEC} - TCL_STUB_LIB_PATH=${TCL_BUILD_STUB_LIB_PATH} - elif test "`uname -s`" = "Darwin"; then - # If Tcl was built as a framework, attempt to use the libraries - # from the framework at the given location so that linking works - # against Tcl.framework installed in an arbitary location. - case ${TCL_DEFS} in - *TCL_FRAMEWORK*) - if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then - for i in "`cd ${TCL_BIN_DIR}; pwd`" \ - "`cd ${TCL_BIN_DIR}/../..; pwd`"; do - if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then - TCL_LIB_SPEC="-F`dirname "$i"` -framework ${TCL_LIB_FILE}" - break - fi - done - fi - if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then - TCL_STUB_LIB_SPEC="-L${TCL_BIN_DIR} ${TCL_STUB_LIB_FLAG}" - TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}" - fi - ;; - esac - fi - - # eval is required to do the TCL_DBGX substitution - eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\"" - eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\"" - eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\"" - eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\"" - - AC_SUBST(TCL_VERSION) - AC_SUBST(TCL_BIN_DIR) - AC_SUBST(TCL_SRC_DIR) - - AC_SUBST(TCL_LIB_FILE) - AC_SUBST(TCL_LIB_FLAG) - AC_SUBST(TCL_LIB_SPEC) - - AC_SUBST(TCL_STUB_LIB_FILE) - AC_SUBST(TCL_STUB_LIB_FLAG) - AC_SUBST(TCL_STUB_LIB_SPEC) - - # TEA specific: - AC_SUBST(TCL_LIBS) - AC_SUBST(TCL_DEFS) - AC_SUBST(TCL_EXTRA_CFLAGS) - AC_SUBST(TCL_LD_FLAGS) - AC_SUBST(TCL_SHLIB_LD_LIBS) -]) - -#------------------------------------------------------------------------ -# TEA_LOAD_TKCONFIG -- -# -# Load the tkConfig.sh file -# -# Arguments: -# -# Requires the following vars to be set: -# TK_BIN_DIR -# -# Results: -# -# Sets the following vars that should be in tkConfig.sh: -# TK_BIN_DIR -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_LOAD_TKCONFIG], [ - AC_MSG_CHECKING([for existence of ${TK_BIN_DIR}/tkConfig.sh]) - - if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then - AC_MSG_RESULT([loading]) - . "${TK_BIN_DIR}/tkConfig.sh" - else - AC_MSG_RESULT([could not find ${TK_BIN_DIR}/tkConfig.sh]) - fi - - # eval is required to do the TK_DBGX substitution - eval "TK_LIB_FILE=\"${TK_LIB_FILE}\"" - eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\"" - - # If the TK_BIN_DIR is the build directory (not the install directory), - # then set the common variable name to the value of the build variables. - # For example, the variable TK_LIB_SPEC will be set to the value - # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC - # instead of TK_BUILD_LIB_SPEC since it will work with both an - # installed and uninstalled version of Tcl. - if test -f "${TK_BIN_DIR}/Makefile" ; then - TK_LIB_SPEC=${TK_BUILD_LIB_SPEC} - TK_STUB_LIB_SPEC=${TK_BUILD_STUB_LIB_SPEC} - TK_STUB_LIB_PATH=${TK_BUILD_STUB_LIB_PATH} - elif test "`uname -s`" = "Darwin"; then - # If Tk was built as a framework, attempt to use the libraries - # from the framework at the given location so that linking works - # against Tk.framework installed in an arbitary location. - case ${TK_DEFS} in - *TK_FRAMEWORK*) - if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then - for i in "`cd ${TK_BIN_DIR}; pwd`" \ - "`cd ${TK_BIN_DIR}/../..; pwd`"; do - if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then - TK_LIB_SPEC="-F`dirname "$i"` -framework ${TK_LIB_FILE}" - break - fi - done - fi - if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then - TK_STUB_LIB_SPEC="-L${TK_BIN_DIR} ${TK_STUB_LIB_FLAG}" - TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}" - fi - ;; - esac - fi - - # eval is required to do the TK_DBGX substitution - eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\"" - eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\"" - eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\"" - eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\"" - - # TEA specific: Ensure windowingsystem is defined - if test "${TEA_PLATFORM}" = "unix" ; then - case ${TK_DEFS} in - *MAC_OSX_TK*) - AC_DEFINE(MAC_OSX_TK, 1, [Are we building against Mac OS X TkAqua?]) - TEA_WINDOWINGSYSTEM="aqua" - ;; - *) - TEA_WINDOWINGSYSTEM="x11" - ;; - esac - elif test "${TEA_PLATFORM}" = "windows" ; then - TEA_WINDOWINGSYSTEM="win32" - fi - - AC_SUBST(TK_VERSION) - AC_SUBST(TK_BIN_DIR) - AC_SUBST(TK_SRC_DIR) - - AC_SUBST(TK_LIB_FILE) - AC_SUBST(TK_LIB_FLAG) - AC_SUBST(TK_LIB_SPEC) - - AC_SUBST(TK_STUB_LIB_FILE) - AC_SUBST(TK_STUB_LIB_FLAG) - AC_SUBST(TK_STUB_LIB_SPEC) - - # TEA specific: - AC_SUBST(TK_LIBS) - AC_SUBST(TK_XINCLUDES) -]) - -#------------------------------------------------------------------------ -# TEA_PROG_TCLSH -# Determine the fully qualified path name of the tclsh executable -# in the Tcl build directory or the tclsh installed in a bin -# directory. This macro will correctly determine the name -# of the tclsh executable even if tclsh has not yet been -# built in the build directory. The tclsh found is always -# associated with a tclConfig.sh file. This tclsh should be used -# only for running extension test cases. It should never be -# or generation of files (like pkgIndex.tcl) at build time. -# -# Arguments -# none -# -# Results -# Subst's the following values: -# TCLSH_PROG -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PROG_TCLSH], [ - AC_MSG_CHECKING([for tclsh]) - if test -f "${TCL_BIN_DIR}/Makefile" ; then - # tclConfig.sh is in Tcl build directory - if test "${TEA_PLATFORM}" = "windows"; then - TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" - else - TCLSH_PROG="${TCL_BIN_DIR}/tclsh" - fi - else - # tclConfig.sh is in install location - if test "${TEA_PLATFORM}" = "windows"; then - TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" - else - TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION}${TCL_DBGX}" - fi - list="`ls -d ${TCL_BIN_DIR}/../bin 2>/dev/null` \ - `ls -d ${TCL_BIN_DIR}/.. 2>/dev/null` \ - `ls -d ${TCL_PREFIX}/bin 2>/dev/null`" - for i in $list ; do - if test -f "$i/${TCLSH_PROG}" ; then - REAL_TCL_BIN_DIR="`cd "$i"; pwd`/" - break - fi - done - TCLSH_PROG="${REAL_TCL_BIN_DIR}${TCLSH_PROG}" - fi - AC_MSG_RESULT([${TCLSH_PROG}]) - AC_SUBST(TCLSH_PROG) -]) - -#------------------------------------------------------------------------ -# TEA_PROG_WISH -# Determine the fully qualified path name of the wish executable -# in the Tk build directory or the wish installed in a bin -# directory. This macro will correctly determine the name -# of the wish executable even if wish has not yet been -# built in the build directory. The wish found is always -# associated with a tkConfig.sh file. This wish should be used -# only for running extension test cases. It should never be -# or generation of files (like pkgIndex.tcl) at build time. -# -# Arguments -# none -# -# Results -# Subst's the following values: -# WISH_PROG -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PROG_WISH], [ - AC_MSG_CHECKING([for wish]) - if test -f "${TK_BIN_DIR}/Makefile" ; then - # tkConfig.sh is in Tk build directory - if test "${TEA_PLATFORM}" = "windows"; then - WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" - else - WISH_PROG="${TK_BIN_DIR}/wish" - fi - else - # tkConfig.sh is in install location - if test "${TEA_PLATFORM}" = "windows"; then - WISH_PROG="wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" - else - WISH_PROG="wish${TK_MAJOR_VERSION}.${TK_MINOR_VERSION}${TK_DBGX}" - fi - list="`ls -d ${TK_BIN_DIR}/../bin 2>/dev/null` \ - `ls -d ${TK_BIN_DIR}/.. 2>/dev/null` \ - `ls -d ${TK_PREFIX}/bin 2>/dev/null`" - for i in $list ; do - if test -f "$i/${WISH_PROG}" ; then - REAL_TK_BIN_DIR="`cd "$i"; pwd`/" - break - fi - done - WISH_PROG="${REAL_TK_BIN_DIR}${WISH_PROG}" - fi - AC_MSG_RESULT([${WISH_PROG}]) - AC_SUBST(WISH_PROG) -]) - -#------------------------------------------------------------------------ -# TEA_ENABLE_SHARED -- -# -# Allows the building of shared libraries -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --enable-shared=yes|no -# -# Defines the following vars: -# STATIC_BUILD Used for building import/export libraries -# on Windows. -# -# Sets the following vars: -# SHARED_BUILD Value of 1 or 0 -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_ENABLE_SHARED], [ - AC_MSG_CHECKING([how to build libraries]) - AC_ARG_ENABLE(shared, - AC_HELP_STRING([--enable-shared], - [build and link with shared libraries (default: on)]), - [tcl_ok=$enableval], [tcl_ok=yes]) - - if test "${enable_shared+set}" = set; then - enableval="$enable_shared" - tcl_ok=$enableval - else - tcl_ok=yes - fi - - if test "$tcl_ok" = "yes" ; then - AC_MSG_RESULT([shared]) - SHARED_BUILD=1 - else - AC_MSG_RESULT([static]) - SHARED_BUILD=0 - AC_DEFINE(STATIC_BUILD, 1, [Is this a static build?]) - fi - AC_SUBST(SHARED_BUILD) -]) - -#------------------------------------------------------------------------ -# TEA_ENABLE_THREADS -- -# -# Specify if thread support should be enabled. If "yes" is specified -# as an arg (optional), threads are enabled by default, "no" means -# threads are disabled. "yes" is the default. -# -# TCL_THREADS is checked so that if you are compiling an extension -# against a threaded core, your extension must be compiled threaded -# as well. -# -# Note that it is legal to have a thread enabled extension run in a -# threaded or non-threaded Tcl core, but a non-threaded extension may -# only run in a non-threaded Tcl core. -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --enable-threads -# -# Sets the following vars: -# THREADS_LIBS Thread library(s) -# -# Defines the following vars: -# TCL_THREADS -# _REENTRANT -# _THREAD_SAFE -# -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_ENABLE_THREADS], [ - AC_ARG_ENABLE(threads, - AC_HELP_STRING([--enable-threads], - [build with threads]), - [tcl_ok=$enableval], [tcl_ok=yes]) - - if test "${enable_threads+set}" = set; then - enableval="$enable_threads" - tcl_ok=$enableval - else - tcl_ok=yes - fi - - if test "$tcl_ok" = "yes" -o "${TCL_THREADS}" = 1; then - TCL_THREADS=1 - - if test "${TEA_PLATFORM}" != "windows" ; then - # We are always OK on Windows, so check what this platform wants: - - # USE_THREAD_ALLOC tells us to try the special thread-based - # allocator that significantly reduces lock contention - AC_DEFINE(USE_THREAD_ALLOC, 1, - [Do we want to use the threaded memory allocator?]) - AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?]) - if test "`uname -s`" = "SunOS" ; then - AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1, - [Do we really want to follow the standard? Yes we do!]) - fi - AC_DEFINE(_THREAD_SAFE, 1, [Do we want the thread-safe OS API?]) - AC_CHECK_LIB(pthread,pthread_mutex_init,tcl_ok=yes,tcl_ok=no) - if test "$tcl_ok" = "no"; then - # Check a little harder for __pthread_mutex_init in the same - # library, as some systems hide it there until pthread.h is - # defined. We could alternatively do an AC_TRY_COMPILE with - # pthread.h, but that will work with libpthread really doesn't - # exist, like AIX 4.2. [Bug: 4359] - AC_CHECK_LIB(pthread, __pthread_mutex_init, - tcl_ok=yes, tcl_ok=no) - fi - - if test "$tcl_ok" = "yes"; then - # The space is needed - THREADS_LIBS=" -lpthread" - else - AC_CHECK_LIB(pthreads, pthread_mutex_init, - tcl_ok=yes, tcl_ok=no) - if test "$tcl_ok" = "yes"; then - # The space is needed - THREADS_LIBS=" -lpthreads" - else - AC_CHECK_LIB(c, pthread_mutex_init, - tcl_ok=yes, tcl_ok=no) - if test "$tcl_ok" = "no"; then - AC_CHECK_LIB(c_r, pthread_mutex_init, - tcl_ok=yes, tcl_ok=no) - if test "$tcl_ok" = "yes"; then - # The space is needed - THREADS_LIBS=" -pthread" - else - TCL_THREADS=0 - AC_MSG_WARN([Do not know how to find pthread lib on your system - thread support disabled]) - fi - fi - fi - fi - fi - else - TCL_THREADS=0 - fi - # Do checking message here to not mess up interleaved configure output - AC_MSG_CHECKING([for building with threads]) - if test "${TCL_THREADS}" = 1; then - AC_DEFINE(TCL_THREADS, 1, [Are we building with threads enabled?]) - AC_MSG_RESULT([yes (default)]) - else - AC_MSG_RESULT([no]) - fi - # TCL_THREADS sanity checking. See if our request for building with - # threads is the same as the way Tcl was built. If not, warn the user. - case ${TCL_DEFS} in - *THREADS=1*) - if test "${TCL_THREADS}" = "0"; then - AC_MSG_WARN([ - Building ${PACKAGE_NAME} without threads enabled, but building against Tcl - that IS thread-enabled. It is recommended to use --enable-threads.]) - fi - ;; - *) - if test "${TCL_THREADS}" = "1"; then - AC_MSG_WARN([ - --enable-threads requested, but building against a Tcl that is NOT - thread-enabled. This is an OK configuration that will also run in - a thread-enabled core.]) - fi - ;; - esac - AC_SUBST(TCL_THREADS) -]) - -#------------------------------------------------------------------------ -# TEA_ENABLE_SYMBOLS -- -# -# Specify if debugging symbols should be used. -# Memory (TCL_MEM_DEBUG) debugging can also be enabled. -# -# Arguments: -# none -# -# TEA varies from core Tcl in that C|LDFLAGS_DEFAULT receives -# the value of C|LDFLAGS_OPTIMIZE|DEBUG already substituted. -# Requires the following vars to be set in the Makefile: -# CFLAGS_DEFAULT -# LDFLAGS_DEFAULT -# -# Results: -# -# Adds the following arguments to configure: -# --enable-symbols -# -# Defines the following vars: -# CFLAGS_DEFAULT Sets to $(CFLAGS_DEBUG) if true -# Sets to $(CFLAGS_OPTIMIZE) if false -# LDFLAGS_DEFAULT Sets to $(LDFLAGS_DEBUG) if true -# Sets to $(LDFLAGS_OPTIMIZE) if false -# DBGX Formerly used as debug library extension; -# always blank now. -# -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_ENABLE_SYMBOLS], [ - dnl TEA specific: Make sure we are initialized - AC_REQUIRE([TEA_CONFIG_CFLAGS]) - AC_MSG_CHECKING([for build with symbols]) - AC_ARG_ENABLE(symbols, - AC_HELP_STRING([--enable-symbols], - [build with debugging symbols (default: off)]), - [tcl_ok=$enableval], [tcl_ok=no]) - DBGX="" - if test "$tcl_ok" = "no"; then - CFLAGS_DEFAULT="${CFLAGS_OPTIMIZE}" - LDFLAGS_DEFAULT="${LDFLAGS_OPTIMIZE}" - AC_MSG_RESULT([no]) - else - CFLAGS_DEFAULT="${CFLAGS_DEBUG}" - LDFLAGS_DEFAULT="${LDFLAGS_DEBUG}" - if test "$tcl_ok" = "yes"; then - AC_MSG_RESULT([yes (standard debugging)]) - fi - fi - # TEA specific: - if test "${TEA_PLATFORM}" != "windows" ; then - LDFLAGS_DEFAULT="${LDFLAGS}" - fi - AC_SUBST(CFLAGS_DEFAULT) - AC_SUBST(LDFLAGS_DEFAULT) - AC_SUBST(TCL_DBGX) - - if test "$tcl_ok" = "mem" -o "$tcl_ok" = "all"; then - AC_DEFINE(TCL_MEM_DEBUG, 1, [Is memory debugging enabled?]) - fi - - if test "$tcl_ok" != "yes" -a "$tcl_ok" != "no"; then - if test "$tcl_ok" = "all"; then - AC_MSG_RESULT([enabled symbols mem debugging]) - else - AC_MSG_RESULT([enabled $tcl_ok debugging]) - fi - fi -]) - -#------------------------------------------------------------------------ -# TEA_ENABLE_LANGINFO -- -# -# Allows use of modern nl_langinfo check for better l10n. -# This is only relevant for Unix. -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --enable-langinfo=yes|no (default is yes) -# -# Defines the following vars: -# HAVE_LANGINFO Triggers use of nl_langinfo if defined. -# -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_ENABLE_LANGINFO], [ - AC_ARG_ENABLE(langinfo, - AC_HELP_STRING([--enable-langinfo], - [use nl_langinfo if possible to determine encoding at startup, otherwise use old heuristic (default: on)]), - [langinfo_ok=$enableval], [langinfo_ok=yes]) - - HAVE_LANGINFO=0 - if test "$langinfo_ok" = "yes"; then - AC_CHECK_HEADER(langinfo.h,[langinfo_ok=yes],[langinfo_ok=no]) - fi - AC_MSG_CHECKING([whether to use nl_langinfo]) - if test "$langinfo_ok" = "yes"; then - AC_CACHE_VAL(tcl_cv_langinfo_h, [ - AC_TRY_COMPILE([#include ], [nl_langinfo(CODESET);], - [tcl_cv_langinfo_h=yes],[tcl_cv_langinfo_h=no])]) - AC_MSG_RESULT([$tcl_cv_langinfo_h]) - if test $tcl_cv_langinfo_h = yes; then - AC_DEFINE(HAVE_LANGINFO, 1, [Do we have nl_langinfo()?]) - fi - else - AC_MSG_RESULT([$langinfo_ok]) - fi -]) - -#-------------------------------------------------------------------- -# TEA_CONFIG_SYSTEM -# -# Determine what the system is (some things cannot be easily checked -# on a feature-driven basis, alas). This can usually be done via the -# "uname" command, but there are a few systems, like Next, where -# this doesn't work. -# -# Arguments: -# none -# -# Results: -# Defines the following var: -# -# system - System/platform/version identification code. -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_CONFIG_SYSTEM], [ - AC_CACHE_CHECK([system version], tcl_cv_sys_version, [ - # TEA specific: - if test "${TEA_PLATFORM}" = "windows" ; then - tcl_cv_sys_version=windows - elif test -f /usr/lib/NextStep/software_version; then - tcl_cv_sys_version=NEXTSTEP-`awk '/3/,/3/' /usr/lib/NextStep/software_version` - else - tcl_cv_sys_version=`uname -s`-`uname -r` - if test "$?" -ne 0 ; then - AC_MSG_WARN([can't find uname command]) - tcl_cv_sys_version=unknown - else - # Special check for weird MP-RAS system (uname returns weird - # results, and the version is kept in special file). - - if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then - tcl_cv_sys_version=MP-RAS-`awk '{print $[3]}' /etc/.relid` - fi - if test "`uname -s`" = "AIX" ; then - tcl_cv_sys_version=AIX-`uname -v`.`uname -r` - fi - fi - fi - ]) - system=$tcl_cv_sys_version -]) - -#-------------------------------------------------------------------- -# TEA_CONFIG_CFLAGS -# -# Try to determine the proper flags to pass to the compiler -# for building shared libraries and other such nonsense. -# -# Arguments: -# none -# -# Results: -# -# Defines and substitutes the following vars: -# -# DL_OBJS - Name of the object file that implements dynamic -# loading for Tcl on this system. -# DL_LIBS - Library file(s) to include in tclsh and other base -# applications in order for the "load" command to work. -# LDFLAGS - Flags to pass to the compiler when linking object -# files into an executable application binary such -# as tclsh. -# LD_SEARCH_FLAGS-Flags to pass to ld, such as "-R /usr/local/tcl/lib", -# that tell the run-time dynamic linker where to look -# for shared libraries such as libtcl.so. Depends on -# the variable LIB_RUNTIME_DIR in the Makefile. Could -# be the same as CC_SEARCH_FLAGS if ${CC} is used to link. -# CC_SEARCH_FLAGS-Flags to pass to ${CC}, such as "-Wl,-rpath,/usr/local/tcl/lib", -# that tell the run-time dynamic linker where to look -# for shared libraries such as libtcl.so. Depends on -# the variable LIB_RUNTIME_DIR in the Makefile. -# SHLIB_CFLAGS - Flags to pass to cc when compiling the components -# of a shared library (may request position-independent -# code, among other things). -# SHLIB_LD - Base command to use for combining object files -# into a shared library. -# SHLIB_LD_LIBS - Dependent libraries for the linker to scan when -# creating shared libraries. This symbol typically -# goes at the end of the "ld" commands that build -# shared libraries. The value of the symbol is -# "${LIBS}" if all of the dependent libraries should -# be specified when creating a shared library. If -# dependent libraries should not be specified (as on -# SunOS 4.x, where they cause the link to fail, or in -# general if Tcl and Tk aren't themselves shared -# libraries), then this symbol has an empty string -# as its value. -# SHLIB_SUFFIX - Suffix to use for the names of dynamically loadable -# extensions. An empty string means we don't know how -# to use shared libraries on this platform. -# LIB_SUFFIX - Specifies everything that comes after the "libfoo" -# in a static or shared library name, using the $VERSION variable -# to put the version in the right place. This is used -# by platforms that need non-standard library names. -# Examples: ${VERSION}.so.1.1 on NetBSD, since it needs -# to have a version after the .so, and ${VERSION}.a -# on AIX, since a shared library needs to have -# a .a extension whereas shared objects for loadable -# extensions have a .so extension. Defaults to -# ${VERSION}${SHLIB_SUFFIX}. -# TCL_NEEDS_EXP_FILE - -# 1 means that an export file is needed to link to a -# shared library. -# TCL_EXP_FILE - The name of the installed export / import file which -# should be used to link to the Tcl shared library. -# Empty if Tcl is unshared. -# TCL_BUILD_EXP_FILE - -# The name of the built export / import file which -# should be used to link to the Tcl shared library. -# Empty if Tcl is unshared. -# CFLAGS_DEBUG - -# Flags used when running the compiler in debug mode -# CFLAGS_OPTIMIZE - -# Flags used when running the compiler in optimize mode -# CFLAGS - Additional CFLAGS added as necessary (usually 64-bit) -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_CONFIG_CFLAGS], [ - dnl TEA specific: Make sure we are initialized - AC_REQUIRE([TEA_INIT]) - - # Step 0.a: Enable 64 bit support? - - AC_MSG_CHECKING([if 64bit support is requested]) - AC_ARG_ENABLE(64bit, - AC_HELP_STRING([--enable-64bit], - [enable 64bit support (default: off)]), - [do64bit=$enableval], [do64bit=no]) - AC_MSG_RESULT([$do64bit]) - - # Step 0.b: Enable Solaris 64 bit VIS support? - - AC_MSG_CHECKING([if 64bit Sparc VIS support is requested]) - AC_ARG_ENABLE(64bit-vis, - AC_HELP_STRING([--enable-64bit-vis], - [enable 64bit Sparc VIS support (default: off)]), - [do64bitVIS=$enableval], [do64bitVIS=no]) - AC_MSG_RESULT([$do64bitVIS]) - # Force 64bit on with VIS - AS_IF([test "$do64bitVIS" = "yes"], [do64bit=yes]) - - # Step 0.c: Check if visibility support is available. Do this here so - # that platform specific alternatives can be used below if this fails. - - AC_CACHE_CHECK([if compiler supports visibility "hidden"], - tcl_cv_cc_visibility_hidden, [ - hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -Werror" - AC_TRY_LINK([ - extern __attribute__((__visibility__("hidden"))) void f(void); - void f(void) {}], [f();], tcl_cv_cc_visibility_hidden=yes, - tcl_cv_cc_visibility_hidden=no) - CFLAGS=$hold_cflags]) - AS_IF([test $tcl_cv_cc_visibility_hidden = yes], [ - AC_DEFINE(MODULE_SCOPE, - [extern __attribute__((__visibility__("hidden")))], - [Compiler support for module scope symbols]) - ]) - - # Step 0.d: Disable -rpath support? - - AC_MSG_CHECKING([if rpath support is requested]) - AC_ARG_ENABLE(rpath, - AC_HELP_STRING([--disable-rpath], - [disable rpath support (default: on)]), - [doRpath=$enableval], [doRpath=yes]) - AC_MSG_RESULT([$doRpath]) - - # TEA specific: Cross-compiling options for Windows/CE builds? - - AS_IF([test "${TEA_PLATFORM}" = windows], [ - AC_MSG_CHECKING([if Windows/CE build is requested]) - AC_ARG_ENABLE(wince, - AC_HELP_STRING([--enable-wince], - [enable Win/CE support (where applicable)]), - [doWince=$enableval], [doWince=no]) - AC_MSG_RESULT([$doWince]) - ]) - - # Step 1: set the variable "system" to hold the name and version number - # for the system. - - TEA_CONFIG_SYSTEM - - # Step 2: check for existence of -ldl library. This is needed because - # Linux can use either -ldl or -ldld for dynamic loading. - - AC_CHECK_LIB(dl, dlopen, have_dl=yes, have_dl=no) - - # Require ranlib early so we can override it in special cases below. - - AC_REQUIRE([AC_PROG_RANLIB]) - - # Step 3: set configuration options based on system name and version. - # This is similar to Tcl's unix/tcl.m4 except that we've added a - # "windows" case. - - do64bit_ok=no - LDFLAGS_ORIG="$LDFLAGS" - # When ld needs options to work in 64-bit mode, put them in - # LDFLAGS_ARCH so they eventually end up in LDFLAGS even if [load] - # is disabled by the user. [Bug 1016796] - LDFLAGS_ARCH="" - TCL_EXPORT_FILE_SUFFIX="" - UNSHARED_LIB_SUFFIX="" - # TEA specific: use PACKAGE_VERSION instead of VERSION - TCL_TRIM_DOTS='`echo ${PACKAGE_VERSION} | tr -d .`' - ECHO_VERSION='`echo ${PACKAGE_VERSION}`' - TCL_LIB_VERSIONS_OK=ok - CFLAGS_DEBUG=-g - CFLAGS_OPTIMIZE=-O - AS_IF([test "$GCC" = yes], [ - # TEA specific: - CFLAGS_OPTIMIZE=-O2 - CFLAGS_WARNING="-Wall -Wno-implicit-int" - ], [CFLAGS_WARNING=""]) - TCL_NEEDS_EXP_FILE=0 - TCL_BUILD_EXP_FILE="" - TCL_EXP_FILE="" -dnl FIXME: Replace AC_CHECK_PROG with AC_CHECK_TOOL once cross compiling is fixed. -dnl AC_CHECK_TOOL(AR, ar) - AC_CHECK_PROG(AR, ar, ar) - STLIB_LD='${AR} cr' - LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH" - case $system in - # TEA specific: - windows) - # This is a 2-stage check to make sure we have the 64-bit SDK - # We have to know where the SDK is installed. - # This magic is based on MS Platform SDK for Win2003 SP1 - hobbs - # MACHINE is IX86 for LINK, but this is used by the manifest, - # which requires x86|amd64|ia64. - MACHINE="X86" - if test "$do64bit" != "no" ; then - if test "x${MSSDK}x" = "xx" ; then - MSSDK="C:/Progra~1/Microsoft Platform SDK" - fi - MSSDK=`echo "$MSSDK" | sed -e 's!\\\!/!g'` - PATH64="" - case "$do64bit" in - amd64|x64|yes) - MACHINE="AMD64" ; # default to AMD64 64-bit build - PATH64="${MSSDK}/Bin/Win64/x86/AMD64" - ;; - ia64) - MACHINE="IA64" - PATH64="${MSSDK}/Bin/Win64" - ;; - esac - if test ! -d "${PATH64}" ; then - AC_MSG_WARN([Could not find 64-bit $MACHINE SDK to enable 64bit mode]) - AC_MSG_WARN([Ensure latest Platform SDK is installed]) - do64bit="no" - else - AC_MSG_RESULT([ Using 64-bit $MACHINE mode]) - do64bit_ok="yes" - fi - fi - - if test "$doWince" != "no" ; then - if test "$do64bit" != "no" ; then - AC_MSG_ERROR([Windows/CE and 64-bit builds incompatible]) - fi - if test "$GCC" = "yes" ; then - AC_MSG_ERROR([Windows/CE and GCC builds incompatible]) - fi - TEA_PATH_CELIB - # Set defaults for common evc4/PPC2003 setup - # Currently Tcl requires 300+, possibly 420+ for sockets - CEVERSION=420; # could be 211 300 301 400 420 ... - TARGETCPU=ARMV4; # could be ARMV4 ARM MIPS SH3 X86 ... - ARCH=ARM; # could be ARM MIPS X86EM ... - PLATFORM="Pocket PC 2003"; # or "Pocket PC 2002" - if test "$doWince" != "yes"; then - # If !yes then the user specified something - # Reset ARCH to allow user to skip specifying it - ARCH= - eval `echo $doWince | awk -F, '{ \ - if (length([$]1)) { printf "CEVERSION=\"%s\"\n", [$]1; \ - if ([$]1 < 400) { printf "PLATFORM=\"Pocket PC 2002\"\n" } }; \ - if (length([$]2)) { printf "TARGETCPU=\"%s\"\n", toupper([$]2) }; \ - if (length([$]3)) { printf "ARCH=\"%s\"\n", toupper([$]3) }; \ - if (length([$]4)) { printf "PLATFORM=\"%s\"\n", [$]4 }; \ - }'` - if test "x${ARCH}" = "x" ; then - ARCH=$TARGETCPU; - fi - fi - OSVERSION=WCE$CEVERSION; - if test "x${WCEROOT}" = "x" ; then - WCEROOT="C:/Program Files/Microsoft eMbedded C++ 4.0" - if test ! -d "${WCEROOT}" ; then - WCEROOT="C:/Program Files/Microsoft eMbedded Tools" - fi - fi - if test "x${SDKROOT}" = "x" ; then - SDKROOT="C:/Program Files/Windows CE Tools" - if test ! -d "${SDKROOT}" ; then - SDKROOT="C:/Windows CE Tools" - fi - fi - WCEROOT=`echo "$WCEROOT" | sed -e 's!\\\!/!g'` - SDKROOT=`echo "$SDKROOT" | sed -e 's!\\\!/!g'` - if test ! -d "${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" \ - -o ! -d "${WCEROOT}/EVC/${OSVERSION}/bin"; then - AC_MSG_ERROR([could not find PocketPC SDK or target compiler to enable WinCE mode [$CEVERSION,$TARGETCPU,$ARCH,$PLATFORM]]) - doWince="no" - else - # We could PATH_NOSPACE these, but that's not important, - # as long as we quote them when used. - CEINCLUDE="${SDKROOT}/${OSVERSION}/${PLATFORM}/include" - if test -d "${CEINCLUDE}/${TARGETCPU}" ; then - CEINCLUDE="${CEINCLUDE}/${TARGETCPU}" - fi - CELIBPATH="${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" - fi - fi - - if test "$GCC" != "yes" ; then - if test "${SHARED_BUILD}" = "0" ; then - runtime=-MT - else - runtime=-MD - fi - - if test "$do64bit" != "no" ; then - # All this magic is necessary for the Win64 SDK RC1 - hobbs - CC="\"${PATH64}/cl.exe\"" - CFLAGS="${CFLAGS} -I\"${MSSDK}/Include\" -I\"${MSSDK}/Include/crt\" -I\"${MSSDK}/Include/crt/sys\"" - RC="\"${MSSDK}/bin/rc.exe\"" - lflags="-nologo -MACHINE:${MACHINE} -LIBPATH:\"${MSSDK}/Lib/${MACHINE}\"" - LINKBIN="\"${PATH64}/link.exe\"" - CFLAGS_DEBUG="-nologo -Zi -Od -W3 ${runtime}d" - CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}" - # Avoid 'unresolved external symbol __security_cookie' - # errors, c.f. http://support.microsoft.com/?id=894573 - TEA_ADD_LIBS([bufferoverflowU.lib]) - elif test "$doWince" != "no" ; then - CEBINROOT="${WCEROOT}/EVC/${OSVERSION}/bin" - if test "${TARGETCPU}" = "X86"; then - CC="\"${CEBINROOT}/cl.exe\"" - else - CC="\"${CEBINROOT}/cl${ARCH}.exe\"" - fi - CFLAGS="$CFLAGS -I\"${CELIB_DIR}/inc\" -I\"${CEINCLUDE}\"" - RC="\"${WCEROOT}/Common/EVC/bin/rc.exe\"" - arch=`echo ${ARCH} | awk '{print tolower([$]0)}'` - defs="${ARCH} _${ARCH}_ ${arch} PALM_SIZE _MT _WINDOWS" - if test "${SHARED_BUILD}" = "1" ; then - # Static CE builds require static celib as well - defs="${defs} _DLL" - fi - for i in $defs ; do - AC_DEFINE_UNQUOTED($i, 1, [WinCE def ]$i) - done - AC_DEFINE_UNQUOTED(_WIN32_WCE, $CEVERSION, [_WIN32_WCE version]) - AC_DEFINE_UNQUOTED(UNDER_CE, $CEVERSION, [UNDER_CE version]) - CFLAGS_DEBUG="-nologo -Zi -Od" - CFLAGS_OPTIMIZE="-nologo -Ox" - lversion=`echo ${CEVERSION} | sed -e 's/\(.\)\(..\)/\1\.\2/'` - lflags="-MACHINE:${ARCH} -LIBPATH:\"${CELIBPATH}\" -subsystem:windowsce,${lversion} -nologo" - LINKBIN="\"${CEBINROOT}/link.exe\"" - AC_SUBST(CELIB_DIR) - else - RC="rc" - lflags="-nologo" - LINKBIN="link" - CFLAGS_DEBUG="-nologo -Z7 -Od -W3 -WX ${runtime}d" - CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}" - fi - fi - - if test "$GCC" = "yes"; then - # mingw gcc mode - RC="windres" - CFLAGS_DEBUG="-g" - CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer" - SHLIB_LD="$CC -shared" - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - LDFLAGS_CONSOLE="-wl,--subsystem,console ${lflags}" - LDFLAGS_WINDOW="-wl,--subsystem,windows ${lflags}" - else - SHLIB_LD="${LINKBIN} -dll ${lflags}" - # link -lib only works when -lib is the first arg - STLIB_LD="${LINKBIN} -lib ${lflags}" - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.lib' - PATHTYPE=-w - # For information on what debugtype is most useful, see: - # http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp - # and also - # http://msdn2.microsoft.com/en-us/library/y0zzbyt4%28VS.80%29.aspx - # This essentially turns it all on. - LDFLAGS_DEBUG="-debug -debugtype:cv" - LDFLAGS_OPTIMIZE="-release" - if test "$doWince" != "no" ; then - LDFLAGS_CONSOLE="-link ${lflags}" - LDFLAGS_WINDOW=${LDFLAGS_CONSOLE} - else - LDFLAGS_CONSOLE="-link -subsystem:console ${lflags}" - LDFLAGS_WINDOW="-link -subsystem:windows ${lflags}" - fi - fi - - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".dll" - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.dll' - - TCL_LIB_VERSIONS_OK=nodots - # Bogus to avoid getting this turned off - DL_OBJS="tclLoadNone.obj" - ;; - AIX-*) - AS_IF([test "${TCL_THREADS}" = "1" -a "$GCC" != "yes"], [ - # AIX requires the _r compiler when gcc isn't being used - case "${CC}" in - *_r) - # ok ... - ;; - *) - CC=${CC}_r - ;; - esac - AC_MSG_RESULT([Using $CC for compiling with threads]) - ]) - LIBS="$LIBS -lc" - SHLIB_CFLAGS="" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - - DL_OBJS="tclLoadDl.o" - LD_LIBRARY_PATH_VAR="LIBPATH" - - # Check to enable 64-bit flags for compiler/linker on AIX 4+ - AS_IF([test "$do64bit" = yes -a "`uname -v`" -gt 3], [ - AS_IF([test "$GCC" = yes], [ - AC_MSG_WARN([64bit mode not supported with GCC on $system]) - ], [ - do64bit_ok=yes - CFLAGS="$CFLAGS -q64" - LDFLAGS_ARCH="-q64" - RANLIB="${RANLIB} -X64" - AR="${AR} -X64" - SHLIB_LD_FLAGS="-b64" - ]) - ]) - - AS_IF([test "`uname -m`" = ia64], [ - # AIX-5 uses ELF style dynamic libraries on IA-64, but not PPC - SHLIB_LD="/usr/ccs/bin/ld -G -z text" - # AIX-5 has dl* in libc.so - DL_LIBS="" - AS_IF([test "$GCC" = yes], [ - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - ], [ - CC_SEARCH_FLAGS='-R${LIB_RUNTIME_DIR}' - ]) - LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' - ], [ - AS_IF([test "$GCC" = yes], [SHLIB_LD='${CC} -shared'], [ - SHLIB_LD="/bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry" - ]) - SHLIB_LD="${TCL_SRC_DIR}/unix/ldAix ${SHLIB_LD} ${SHLIB_LD_FLAGS}" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - TCL_NEEDS_EXP_FILE=1 - # TEA specific: use PACKAGE_VERSION instead of VERSION - TCL_EXPORT_FILE_SUFFIX='${PACKAGE_VERSION}.exp' - ]) - - # AIX v<=4.1 has some different flags than 4.2+ - AS_IF([test "$system" = "AIX-4.1" -o "`uname -v`" -lt 4], [ - AC_LIBOBJ([tclLoadAix]) - DL_LIBS="-lld" - ]) - - # On AIX <=v4 systems, libbsd.a has to be linked in to support - # non-blocking file IO. This library has to be linked in after - # the MATH_LIBS or it breaks the pow() function. The way to - # insure proper sequencing, is to add it to the tail of MATH_LIBS. - # This library also supplies gettimeofday. - # - # AIX does not have a timezone field in struct tm. When the AIX - # bsd library is used, the timezone global and the gettimeofday - # methods are to be avoided for timezone deduction instead, we - # deduce the timezone by comparing the localtime result on a - # known GMT value. - - AC_CHECK_LIB(bsd, gettimeofday, libbsd=yes, libbsd=no) - AS_IF([test $libbsd = yes], [ - MATH_LIBS="$MATH_LIBS -lbsd" - AC_DEFINE(USE_DELTA_FOR_TZ, 1, [Do we need a special AIX hack for timezones?]) - ]) - ;; - BeOS*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD='${CC} -nostart' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - - #----------------------------------------------------------- - # Check for inet_ntoa in -lbind, for BeOS (which also needs - # -lsocket, even if the network functions are in -lnet which - # is always linked to, for compatibility. - #----------------------------------------------------------- - AC_CHECK_LIB(bind, inet_ntoa, [LIBS="$LIBS -lbind -lsocket"]) - ;; - BSD/OS-2.1*|BSD/OS-3*) - SHLIB_CFLAGS="" - SHLIB_LD="shlicc -r" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - BSD/OS-4.*) - SHLIB_CFLAGS="-export-dynamic -fPIC" - SHLIB_LD='${CC} -shared' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -export-dynamic" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - dgux*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - HP-UX-*.11.*) - # Use updated header definitions where possible - AC_DEFINE(_XOPEN_SOURCE_EXTENDED, 1, [Do we want to use the XOPEN network library?]) - # TEA specific: Needed by Tcl, but not most extensions - #AC_DEFINE(_XOPEN_SOURCE, 1, [Do we want to use the XOPEN network library?]) - #LIBS="$LIBS -lxnet" # Use the XOPEN network library - - AS_IF([test "`uname -m`" = ia64], [ - SHLIB_SUFFIX=".so" - # Use newer C++ library for C++ extensions - #if test "$GCC" != "yes" ; then - # CPPFLAGS="-AA" - #fi - ], [ - SHLIB_SUFFIX=".sl" - ]) - AC_CHECK_LIB(dld, shl_load, tcl_ok=yes, tcl_ok=no) - AS_IF([test "$tcl_ok" = yes], [ - SHLIB_CFLAGS="+z" - SHLIB_LD="ld -b" - SHLIB_LD_LIBS='${LIBS}' - DL_OBJS="tclLoadShl.o" - DL_LIBS="-ldld" - LDFLAGS="$LDFLAGS -Wl,-E" - CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.' - LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.' - LD_LIBRARY_PATH_VAR="SHLIB_PATH" - ]) - AS_IF([test "$GCC" = yes], [ - SHLIB_LD='${CC} -shared' - SHLIB_LD_LIBS='${LIBS}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - ]) - - # Users may want PA-RISC 1.1/2.0 portable code - needs HP cc - #CFLAGS="$CFLAGS +DAportable" - - # Check to enable 64-bit flags for compiler/linker - AS_IF([test "$do64bit" = "yes"], [ - AS_IF([test "$GCC" = yes], [ - case `${CC} -dumpmachine` in - hppa64*) - # 64-bit gcc in use. Fix flags for GNU ld. - do64bit_ok=yes - SHLIB_LD='${CC} -shared' - SHLIB_LD_LIBS='${LIBS}' - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - ;; - *) - AC_MSG_WARN([64bit mode not supported with GCC on $system]) - ;; - esac - ], [ - do64bit_ok=yes - CFLAGS="$CFLAGS +DD64" - LDFLAGS_ARCH="+DD64" - ]) - ]) ;; - HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*) - SHLIB_SUFFIX=".sl" - AC_CHECK_LIB(dld, shl_load, tcl_ok=yes, tcl_ok=no) - AS_IF([test "$tcl_ok" = yes], [ - SHLIB_CFLAGS="+z" - SHLIB_LD="ld -b" - SHLIB_LD_LIBS="" - DL_OBJS="tclLoadShl.o" - DL_LIBS="-ldld" - LDFLAGS="$LDFLAGS -Wl,-E" - CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.' - LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.' - LD_LIBRARY_PATH_VAR="SHLIB_PATH" - ]) ;; - IRIX-5.*) - SHLIB_CFLAGS="" - SHLIB_LD="ld -shared -rdata_shared" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) - ;; - IRIX-6.*) - SHLIB_CFLAGS="" - SHLIB_LD="ld -n32 -shared -rdata_shared" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) - AS_IF([test "$GCC" = yes], [ - CFLAGS="$CFLAGS -mabi=n32" - LDFLAGS="$LDFLAGS -mabi=n32" - ], [ - case $system in - IRIX-6.3) - # Use to build 6.2 compatible binaries on 6.3. - CFLAGS="$CFLAGS -n32 -D_OLD_TERMIOS" - ;; - *) - CFLAGS="$CFLAGS -n32" - ;; - esac - LDFLAGS="$LDFLAGS -n32" - ]) - ;; - IRIX64-6.*) - SHLIB_CFLAGS="" - SHLIB_LD="ld -n32 -shared -rdata_shared" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) - - # Check to enable 64-bit flags for compiler/linker - - AS_IF([test "$do64bit" = yes], [ - AS_IF([test "$GCC" = yes], [ - AC_MSG_WARN([64bit mode not supported by gcc]) - ], [ - do64bit_ok=yes - SHLIB_LD="ld -64 -shared -rdata_shared" - CFLAGS="$CFLAGS -64" - LDFLAGS_ARCH="-64" - ]) - ]) - ;; - Linux*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - - # TEA specific: - CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer" - # egcs-2.91.66 on Redhat Linux 6.0 generates lots of warnings - # when you inline the string and math operations. Turn this off to - # get rid of the warnings. - #CFLAGS_OPTIMIZE="${CFLAGS_OPTIMIZE} -D__NO_STRING_INLINES -D__NO_MATH_INLINES" - - # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS - SHLIB_LD='${CC} -shared ${CFLAGS} ${LDFLAGS_DEFAULT}' - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -Wl,--export-dynamic" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - AS_IF([test "`uname -m`" = "alpha"], [CFLAGS="$CFLAGS -mieee"]) - AS_IF([test $do64bit = yes], [ - AC_CACHE_CHECK([if compiler accepts -m64 flag], tcl_cv_cc_m64, [ - hold_cflags=$CFLAGS - CFLAGS="$CFLAGS -m64" - AC_TRY_LINK(,, tcl_cv_cc_m64=yes, tcl_cv_cc_m64=no) - CFLAGS=$hold_cflags]) - AS_IF([test $tcl_cv_cc_m64 = yes], [ - CFLAGS="$CFLAGS -m64" - do64bit_ok=yes - ]) - ]) - - # The combo of gcc + glibc has a bug related to inlining of - # functions like strtod(). The -fno-builtin flag should address - # this problem but it does not work. The -fno-inline flag is kind - # of overkill but it works. Disable inlining only when one of the - # files in compat/*.c is being linked in. - - AS_IF([test x"${USE_COMPAT}" != x],[CFLAGS="$CFLAGS -fno-inline"]) - - ;; - GNU*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - - SHLIB_LD='${CC} -shared' - DL_OBJS="" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -Wl,--export-dynamic" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - AS_IF([test "`uname -m`" = "alpha"], [CFLAGS="$CFLAGS -mieee"]) - ;; - Lynx*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - CFLAGS_OPTIMIZE=-02 - SHLIB_LD='${CC} -shared' - DL_OBJS="tclLoadDl.o" - DL_LIBS="-mshared -ldl" - LD_FLAGS="-Wl,--export-dynamic" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) - ;; - MP-RAS-02*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - MP-RAS-*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - LDFLAGS="$LDFLAGS -Wl,-Bexport" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - NetBSD-1.*|FreeBSD-[[1-2]].*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD="ld -Bshareable -x" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) - AC_CACHE_CHECK([for ELF], tcl_cv_ld_elf, [ - AC_EGREP_CPP(yes, [ -#ifdef __ELF__ - yes -#endif - ], tcl_cv_ld_elf=yes, tcl_cv_ld_elf=no)]) - AS_IF([test $tcl_cv_ld_elf = yes], [ - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so' - ], [ - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so.1.0' - ]) - - # Ancient FreeBSD doesn't handle version numbers with dots. - - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - TCL_LIB_VERSIONS_OK=nodots - ;; - OpenBSD-*) - SHLIB_CFLAGS="-fPIC" - SHLIB_LD='${CC} -shared ${SHLIB_CFLAGS}' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so.1.0' - AC_CACHE_CHECK([for ELF], tcl_cv_ld_elf, [ - AC_EGREP_CPP(yes, [ -#ifdef __ELF__ - yes -#endif - ], tcl_cv_ld_elf=yes, tcl_cv_ld_elf=no)]) - AS_IF([test $tcl_cv_ld_elf = yes], [ - LDFLAGS=-Wl,-export-dynamic - ], [LDFLAGS=""]) - - # OpenBSD doesn't do version numbers with dots. - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - TCL_LIB_VERSIONS_OK=nodots - ;; - NetBSD-*|FreeBSD-*) - # FreeBSD 3.* and greater have ELF. - # NetBSD 2.* has ELF and can use 'cc -shared' to build shared libs - SHLIB_CFLAGS="-fPIC" - SHLIB_LD='${CC} -shared ${SHLIB_CFLAGS}' - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - LDFLAGS="$LDFLAGS -export-dynamic" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}']) - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - AS_IF([test "${TCL_THREADS}" = "1"], [ - # The -pthread needs to go in the CFLAGS, not LIBS - LIBS=`echo $LIBS | sed s/-pthread//` - CFLAGS="$CFLAGS -pthread" - LDFLAGS="$LDFLAGS -pthread" - ]) - case $system in - FreeBSD-3.*) - # FreeBSD-3 doesn't handle version numbers with dots. - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so' - TCL_LIB_VERSIONS_OK=nodots - ;; - esac - ;; - Darwin-*) - CFLAGS_OPTIMIZE="-Os" - SHLIB_CFLAGS="-fno-common" - # To avoid discrepancies between what headers configure sees during - # preprocessing tests and compiling tests, move any -isysroot and - # -mmacosx-version-min flags from CFLAGS to CPPFLAGS: - CPPFLAGS="${CPPFLAGS} `echo " ${CFLAGS}" | \ - awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \ - if ([$]i~/^(isysroot|mmacosx-version-min)/) print "-"[$]i}'`" - CFLAGS="`echo " ${CFLAGS}" | \ - awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \ - if (!([$]i~/^(isysroot|mmacosx-version-min)/)) print "-"[$]i}'`" - AS_IF([test $do64bit = yes], [ - case `arch` in - ppc) - AC_CACHE_CHECK([if compiler accepts -arch ppc64 flag], - tcl_cv_cc_arch_ppc64, [ - hold_cflags=$CFLAGS - CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5" - AC_TRY_LINK(,, tcl_cv_cc_arch_ppc64=yes, - tcl_cv_cc_arch_ppc64=no) - CFLAGS=$hold_cflags]) - AS_IF([test $tcl_cv_cc_arch_ppc64 = yes], [ - CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5" - do64bit_ok=yes - ]);; - i386) - AC_CACHE_CHECK([if compiler accepts -arch x86_64 flag], - tcl_cv_cc_arch_x86_64, [ - hold_cflags=$CFLAGS - CFLAGS="$CFLAGS -arch x86_64" - AC_TRY_LINK(,, tcl_cv_cc_arch_x86_64=yes, - tcl_cv_cc_arch_x86_64=no) - CFLAGS=$hold_cflags]) - AS_IF([test $tcl_cv_cc_arch_x86_64 = yes], [ - CFLAGS="$CFLAGS -arch x86_64" - do64bit_ok=yes - ]);; - *) - AC_MSG_WARN([Don't know how enable 64-bit on architecture `arch`]);; - esac - ], [ - # Check for combined 32-bit and 64-bit fat build - AS_IF([echo "$CFLAGS " |grep -E -q -- '-arch (ppc64|x86_64) ' \ - && echo "$CFLAGS " |grep -E -q -- '-arch (ppc|i386) '], [ - fat_32_64=yes]) - ]) - # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS - SHLIB_LD='${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT}' - AC_CACHE_CHECK([if ld accepts -single_module flag], tcl_cv_ld_single_module, [ - hold_ldflags=$LDFLAGS - LDFLAGS="$LDFLAGS -dynamiclib -Wl,-single_module" - AC_TRY_LINK(, [int i;], tcl_cv_ld_single_module=yes, tcl_cv_ld_single_module=no) - LDFLAGS=$hold_ldflags]) - AS_IF([test $tcl_cv_ld_single_module = yes], [ - SHLIB_LD="${SHLIB_LD} -Wl,-single_module" - ]) - # TEA specific: link shlib with current and compatiblity version flags - vers=`echo ${PACKAGE_VERSION} | sed -e 's/^\([[0-9]]\{1,5\}\)\(\(\.[[0-9]]\{1,3\}\)\{0,2\}\).*$/\1\2/p' -e d` - SHLIB_LD="${SHLIB_LD} -current_version ${vers:-0} -compatibility_version ${vers:-0}" - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".dylib" - DL_OBJS="tclLoadDyld.o" - DL_LIBS="" - # Don't use -prebind when building for Mac OS X 10.4 or later only: - AS_IF([test "`echo "${MACOSX_DEPLOYMENT_TARGET}" | awk -F '10\\.' '{print int([$]2)}'`" -lt 4 -a \ - "`echo "${CPPFLAGS}" | awk -F '-mmacosx-version-min=10\\.' '{print int([$]2)}'`" -lt 4], [ - LDFLAGS="$LDFLAGS -prebind"]) - LDFLAGS="$LDFLAGS -headerpad_max_install_names" - AC_CACHE_CHECK([if ld accepts -search_paths_first flag], - tcl_cv_ld_search_paths_first, [ - hold_ldflags=$LDFLAGS - LDFLAGS="$LDFLAGS -Wl,-search_paths_first" - AC_TRY_LINK(, [int i;], tcl_cv_ld_search_paths_first=yes, - tcl_cv_ld_search_paths_first=no) - LDFLAGS=$hold_ldflags]) - AS_IF([test $tcl_cv_ld_search_paths_first = yes], [ - LDFLAGS="$LDFLAGS -Wl,-search_paths_first" - ]) - AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [ - AC_DEFINE(MODULE_SCOPE, [__private_extern__], - [Compiler support for module scope symbols]) - ]) - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - LD_LIBRARY_PATH_VAR="DYLD_LIBRARY_PATH" - # TEA specific: for combined 32 & 64 bit fat builds of Tk - # extensions, verify that 64-bit build is possible. - AS_IF([test "$fat_32_64" = yes && test -n "${TK_BIN_DIR}"], [ - AS_IF([test "${TEA_WINDOWINGSYSTEM}" = x11], [ - AC_CACHE_CHECK([for 64-bit X11], tcl_cv_lib_x11_64, [ - for v in CFLAGS CPPFLAGS LDFLAGS; do - eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"' - done - CPPFLAGS="$CPPFLAGS -I/usr/X11R6/include" - LDFLAGS="$LDFLAGS -L/usr/X11R6/lib -lX11" - AC_TRY_LINK([#include ], [XrmInitialize();], - tcl_cv_lib_x11_64=yes, tcl_cv_lib_x11_64=no) - for v in CFLAGS CPPFLAGS LDFLAGS; do - eval $v'="$hold_'$v'"' - done]) - ]) - # remove 64-bit arch flags from CFLAGS et al. if configuration - # does not support 64-bit. - AS_IF([test "${TEA_WINDOWINGSYSTEM}" = aqua -o "$tcl_cv_lib_x11_64" = no], [ - AC_MSG_NOTICE([Removing 64-bit architectures from compiler & linker flags]) - for v in CFLAGS CPPFLAGS LDFLAGS; do - eval $v'="`echo "$'$v' "|sed -e "s/-arch ppc64 / /g" -e "s/-arch x86_64 / /g"`"' - done]) - ]) - ;; - NEXTSTEP-*) - SHLIB_CFLAGS="" - SHLIB_LD='${CC} -nostdlib -r' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadNext.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - OS/390-*) - CFLAGS_OPTIMIZE="" # Optimizer is buggy - AC_DEFINE(_OE_SOCKETS, 1, # needed in sys/socket.h - [Should OS/390 do the right thing with sockets?]) - ;; - OSF1-1.0|OSF1-1.1|OSF1-1.2) - # OSF/1 1.[012] from OSF, and derivatives, including Paragon OSF/1 - SHLIB_CFLAGS="" - # Hack: make package name same as library name - SHLIB_LD='ld -R -export $@:' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadOSF.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - OSF1-1.*) - # OSF/1 1.3 from OSF using ELF, and derivatives, including AD2 - SHLIB_CFLAGS="-fPIC" - AS_IF([test "$SHARED_BUILD" = 1], [SHLIB_LD="ld -shared"], [ - SHLIB_LD="ld -non_shared" - ]) - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - OSF1-V*) - # Digital OSF/1 - SHLIB_CFLAGS="" - AS_IF([test "$SHARED_BUILD" = 1], [ - SHLIB_LD='${CC} -shared' - ], [ - SHLIB_LD='${CC} -non_shared' - ]) - SHLIB_LD_LIBS="${LIBS}" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - AS_IF([test $doRpath = yes], [ - CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}']) - AS_IF([test "$GCC" = yes], [CFLAGS="$CFLAGS -mieee"], [ - CFLAGS="$CFLAGS -DHAVE_TZSET -std1 -ieee"]) - # see pthread_intro(3) for pthread support on osf1, k.furukawa - AS_IF([test "${TCL_THREADS}" = 1], [ - CFLAGS="$CFLAGS -DHAVE_PTHREAD_ATTR_SETSTACKSIZE" - CFLAGS="$CFLAGS -DTCL_THREAD_STACK_MIN=PTHREAD_STACK_MIN*64" - LIBS=`echo $LIBS | sed s/-lpthreads//` - AS_IF([test "$GCC" = yes], [ - LIBS="$LIBS -lpthread -lmach -lexc" - ], [ - CFLAGS="$CFLAGS -pthread" - LDFLAGS="$LDFLAGS -pthread" - ]) - ]) - ;; - QNX-6*) - # QNX RTP - # This may work for all QNX, but it was only reported for v6. - SHLIB_CFLAGS="-fPIC" - SHLIB_LD="ld -Bshareable -x" - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - # dlopen is in -lc on QNX - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - SCO_SV-3.2*) - # Note, dlopen is available only on SCO 3.2.5 and greater. However, - # this test works, since "uname -s" was non-standard in 3.2.4 and - # below. - AS_IF([test "$GCC" = yes], [ - SHLIB_CFLAGS="-fPIC -melf" - LDFLAGS="$LDFLAGS -melf -Wl,-Bexport" - ], [ - SHLIB_CFLAGS="-Kpic -belf" - LDFLAGS="$LDFLAGS -belf -Wl,-Bexport" - ]) - SHLIB_LD="ld -G" - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - SINIX*5.4*) - SHLIB_CFLAGS="-K PIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - SunOS-4*) - SHLIB_CFLAGS="-PIC" - SHLIB_LD="ld" - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - - # SunOS can't handle version numbers with dots in them in library - # specs, like -ltcl7.5, so use -ltcl75 instead. Also, it - # requires an extra version number at the end of .so file names. - # So, the library has to have a name like libtcl75.so.1.0 - - SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so.1.0' - UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a' - TCL_LIB_VERSIONS_OK=nodots - ;; - SunOS-5.[[0-6]]) - # Careful to not let 5.10+ fall into this case - - # Note: If _REENTRANT isn't defined, then Solaris - # won't define thread-safe library routines. - - AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?]) - AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1, - [Do we really want to follow the standard? Yes we do!]) - - SHLIB_CFLAGS="-KPIC" - - # Note: need the LIBS below, otherwise Tk won't find Tcl's - # symbols when dynamically loaded into tclsh. - - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - AS_IF([test "$GCC" = yes], [ - SHLIB_LD='${CC} -shared' - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - ], [ - SHLIB_LD="/usr/ccs/bin/ld -G -z text" - CC_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - ]) - ;; - SunOS-5*) - # Note: If _REENTRANT isn't defined, then Solaris - # won't define thread-safe library routines. - - AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?]) - AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1, - [Do we really want to follow the standard? Yes we do!]) - - SHLIB_CFLAGS="-KPIC" - - # Check to enable 64-bit flags for compiler/linker - AS_IF([test "$do64bit" = yes], [ - arch=`isainfo` - AS_IF([test "$arch" = "sparcv9 sparc"], [ - AS_IF([test "$GCC" = yes], [ - AS_IF([test "`${CC} -dumpversion | awk -F. '{print [$]1}'`" -lt 3], [ - AC_MSG_WARN([64bit mode not supported with GCC < 3.2 on $system]) - ], [ - do64bit_ok=yes - CFLAGS="$CFLAGS -m64 -mcpu=v9" - LDFLAGS="$LDFLAGS -m64 -mcpu=v9" - SHLIB_CFLAGS="-fPIC" - ]) - ], [ - do64bit_ok=yes - AS_IF([test "$do64bitVIS" = yes], [ - CFLAGS="$CFLAGS -xarch=v9a" - LDFLAGS_ARCH="-xarch=v9a" - ], [ - CFLAGS="$CFLAGS -xarch=v9" - LDFLAGS_ARCH="-xarch=v9" - ]) - # Solaris 64 uses this as well - #LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH_64" - ]) - ], [AS_IF([test "$arch" = "amd64 i386"], [ - AS_IF([test "$GCC" = yes], [ - case $system in - SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*) - do64bit_ok=yes - CFLAGS="$CFLAGS -m64" - LDFLAGS="$LDFLAGS -m64";; - *) - AC_MSG_WARN([64bit mode not supported with GCC on $system]);; - esac - ], [ - do64bit_ok=yes - case $system in - SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*) - CFLAGS="$CFLAGS -m64" - LDFLAGS="$LDFLAGS -m64";; - *) - CFLAGS="$CFLAGS -xarch=amd64" - LDFLAGS="$LDFLAGS -xarch=amd64";; - esac - ]) - ], [AC_MSG_WARN([64bit mode not supported for $arch])])]) - ]) - - # Note: need the LIBS below, otherwise Tk won't find Tcl's - # symbols when dynamically loaded into tclsh. - - SHLIB_LD_LIBS='${LIBS}' - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - AS_IF([test "$GCC" = yes], [ - SHLIB_LD='${CC} -shared' - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS} - AS_IF([test "$do64bit_ok" = yes], [ - AS_IF([test "$arch" = "sparcv9 sparc"], [ - # We need to specify -static-libgcc or we need to - # add the path to the sparv9 libgcc. - # JH: static-libgcc is necessary for core Tcl, but may - # not be necessary for extensions. - SHLIB_LD="$SHLIB_LD -m64 -mcpu=v9 -static-libgcc" - # for finding sparcv9 libgcc, get the regular libgcc - # path, remove so name and append 'sparcv9' - #v9gcclibdir="`gcc -print-file-name=libgcc_s.so` | ..." - #CC_SEARCH_FLAGS="${CC_SEARCH_FLAGS},-R,$v9gcclibdir" - ], [AS_IF([test "$arch" = "amd64 i386"], [ - # JH: static-libgcc is necessary for core Tcl, but may - # not be necessary for extensions. - SHLIB_LD="$SHLIB_LD -m64 -static-libgcc" - ])]) - ]) - ], [ - case $system in - SunOS-5.[[1-9]][[0-9]]*) - SHLIB_LD='${CC} -G -z text ${LDFLAGS}';; - *) - SHLIB_LD='/usr/ccs/bin/ld -G -z text';; - esac - CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}' - LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}' - ]) - ;; - UNIX_SV* | UnixWare-5*) - SHLIB_CFLAGS="-KPIC" - SHLIB_LD='${CC} -G' - SHLIB_LD_LIBS="" - SHLIB_SUFFIX=".so" - DL_OBJS="tclLoadDl.o" - DL_LIBS="-ldl" - # Some UNIX_SV* systems (unixware 1.1.2 for example) have linkers - # that don't grok the -Bexport option. Test that it does. - AC_CACHE_CHECK([for ld accepts -Bexport flag], tcl_cv_ld_Bexport, [ - hold_ldflags=$LDFLAGS - LDFLAGS="$LDFLAGS -Wl,-Bexport" - AC_TRY_LINK(, [int i;], tcl_cv_ld_Bexport=yes, tcl_cv_ld_Bexport=no) - LDFLAGS=$hold_ldflags]) - AS_IF([test $tcl_cv_ld_Bexport = yes], [ - LDFLAGS="$LDFLAGS -Wl,-Bexport" - ]) - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - ;; - esac - - AS_IF([test "$do64bit" = yes -a "$do64bit_ok" = no], [ - AC_MSG_WARN([64bit support being disabled -- don't know magic for this platform]) - ]) - -dnl # Add any CPPFLAGS set in the environment to our CFLAGS, but delay doing so -dnl # until the end of configure, as configure's compile and link tests use -dnl # both CPPFLAGS and CFLAGS (unlike our compile and link) but configure's -dnl # preprocessing tests use only CPPFLAGS. - AC_CONFIG_COMMANDS_PRE([CFLAGS="${CFLAGS} ${CPPFLAGS}"; CPPFLAGS=""]) - - # Step 4: disable dynamic loading if requested via a command-line switch. - - AC_ARG_ENABLE(load, - AC_HELP_STRING([--enable-load], - [allow dynamic loading and "load" command (default: on)]), - [tcl_ok=$enableval], [tcl_ok=yes]) - AS_IF([test "$tcl_ok" = no], [DL_OBJS=""]) - - AS_IF([test "x$DL_OBJS" != x], [BUILD_DLTEST="\$(DLTEST_TARGETS)"], [ - AC_MSG_WARN([Can't figure out how to do dynamic loading or shared libraries on this system.]) - SHLIB_CFLAGS="" - SHLIB_LD="" - SHLIB_SUFFIX="" - DL_OBJS="tclLoadNone.o" - DL_LIBS="" - LDFLAGS="$LDFLAGS_ORIG" - CC_SEARCH_FLAGS="" - LD_SEARCH_FLAGS="" - BUILD_DLTEST="" - ]) - LDFLAGS="$LDFLAGS $LDFLAGS_ARCH" - - # If we're running gcc, then change the C flags for compiling shared - # libraries to the right flags for gcc, instead of those for the - # standard manufacturer compiler. - - AS_IF([test "$DL_OBJS" != "tclLoadNone.o" -a "$GCC" = yes], [ - case $system in - AIX-*) ;; - BSD/OS*) ;; - IRIX*) ;; - NetBSD-*|FreeBSD-*) ;; - Darwin-*) ;; - SCO_SV-3.2*) ;; - *) SHLIB_CFLAGS="-fPIC" ;; - esac]) - - AS_IF([test "$SHARED_LIB_SUFFIX" = ""], [ - # TEA specific: use PACKAGE_VERSION instead of VERSION - SHARED_LIB_SUFFIX='${PACKAGE_VERSION}${SHLIB_SUFFIX}']) - AS_IF([test "$UNSHARED_LIB_SUFFIX" = ""], [ - # TEA specific: use PACKAGE_VERSION instead of VERSION - UNSHARED_LIB_SUFFIX='${PACKAGE_VERSION}.a']) - - AC_SUBST(DL_LIBS) - - AC_SUBST(CFLAGS_DEBUG) - AC_SUBST(CFLAGS_OPTIMIZE) - AC_SUBST(CFLAGS_WARNING) - - AC_SUBST(STLIB_LD) - AC_SUBST(SHLIB_LD) - - AC_SUBST(SHLIB_LD_LIBS) - AC_SUBST(SHLIB_CFLAGS) - - AC_SUBST(LD_LIBRARY_PATH_VAR) - - # These must be called after we do the basic CFLAGS checks and - # verify any possible 64-bit or similar switches are necessary - TEA_TCL_EARLY_FLAGS - TEA_TCL_64BIT_FLAGS -]) - -#-------------------------------------------------------------------- -# TEA_SERIAL_PORT -# -# Determine which interface to use to talk to the serial port. -# Note that #include lines must begin in leftmost column for -# some compilers to recognize them as preprocessor directives, -# and some build environments have stdin not pointing at a -# pseudo-terminal (usually /dev/null instead.) -# -# Arguments: -# none -# -# Results: -# -# Defines only one of the following vars: -# HAVE_SYS_MODEM_H -# USE_TERMIOS -# USE_TERMIO -# USE_SGTTY -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_SERIAL_PORT], [ - AC_CHECK_HEADERS(sys/modem.h) - AC_CACHE_CHECK([termios vs. termio vs. sgtty], tcl_cv_api_serial, [ - AC_TRY_RUN([ -#include - -int main() { - struct termios t; - if (tcgetattr(0, &t) == 0) { - cfsetospeed(&t, 0); - t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB; - return 0; - } - return 1; -}], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no) - if test $tcl_cv_api_serial = no ; then - AC_TRY_RUN([ -#include - -int main() { - struct termio t; - if (ioctl(0, TCGETA, &t) == 0) { - t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB; - return 0; - } - return 1; -}], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no) - fi - if test $tcl_cv_api_serial = no ; then - AC_TRY_RUN([ -#include - -int main() { - struct sgttyb t; - if (ioctl(0, TIOCGETP, &t) == 0) { - t.sg_ospeed = 0; - t.sg_flags |= ODDP | EVENP | RAW; - return 0; - } - return 1; -}], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=no, tcl_cv_api_serial=no) - fi - if test $tcl_cv_api_serial = no ; then - AC_TRY_RUN([ -#include -#include - -int main() { - struct termios t; - if (tcgetattr(0, &t) == 0 - || errno == ENOTTY || errno == ENXIO || errno == EINVAL) { - cfsetospeed(&t, 0); - t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB; - return 0; - } - return 1; -}], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no) - fi - if test $tcl_cv_api_serial = no; then - AC_TRY_RUN([ -#include -#include - -int main() { - struct termio t; - if (ioctl(0, TCGETA, &t) == 0 - || errno == ENOTTY || errno == ENXIO || errno == EINVAL) { - t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB; - return 0; - } - return 1; - }], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no) - fi - if test $tcl_cv_api_serial = no; then - AC_TRY_RUN([ -#include -#include - -int main() { - struct sgttyb t; - if (ioctl(0, TIOCGETP, &t) == 0 - || errno == ENOTTY || errno == ENXIO || errno == EINVAL) { - t.sg_ospeed = 0; - t.sg_flags |= ODDP | EVENP | RAW; - return 0; - } - return 1; -}], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=none, tcl_cv_api_serial=none) - fi]) - case $tcl_cv_api_serial in - termios) AC_DEFINE(USE_TERMIOS, 1, [Use the termios API for serial lines]);; - termio) AC_DEFINE(USE_TERMIO, 1, [Use the termio API for serial lines]);; - sgtty) AC_DEFINE(USE_SGTTY, 1, [Use the sgtty API for serial lines]);; - esac -]) - -#-------------------------------------------------------------------- -# TEA_MISSING_POSIX_HEADERS -# -# Supply substitutes for missing POSIX header files. Special -# notes: -# - stdlib.h doesn't define strtol, strtoul, or -# strtod insome versions of SunOS -# - some versions of string.h don't declare procedures such -# as strstr -# -# Arguments: -# none -# -# Results: -# -# Defines some of the following vars: -# NO_DIRENT_H -# NO_ERRNO_H -# NO_VALUES_H -# HAVE_LIMITS_H or NO_LIMITS_H -# NO_STDLIB_H -# NO_STRING_H -# NO_SYS_WAIT_H -# NO_DLFCN_H -# HAVE_SYS_PARAM_H -# -# HAVE_STRING_H ? -# -# tkUnixPort.h checks for HAVE_LIMITS_H, so do both HAVE and -# CHECK on limits.h -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_MISSING_POSIX_HEADERS], [ - AC_CACHE_CHECK([dirent.h], tcl_cv_dirent_h, [ - AC_TRY_LINK([#include -#include ], [ -#ifndef _POSIX_SOURCE -# ifdef __Lynx__ - /* - * Generate compilation error to make the test fail: Lynx headers - * are only valid if really in the POSIX environment. - */ - - missing_procedure(); -# endif -#endif -DIR *d; -struct dirent *entryPtr; -char *p; -d = opendir("foobar"); -entryPtr = readdir(d); -p = entryPtr->d_name; -closedir(d); -], tcl_cv_dirent_h=yes, tcl_cv_dirent_h=no)]) - - if test $tcl_cv_dirent_h = no; then - AC_DEFINE(NO_DIRENT_H, 1, [Do we have ?]) - fi - - # TEA specific: - AC_CHECK_HEADER(errno.h, , [AC_DEFINE(NO_ERRNO_H, 1, [Do we have ?])]) - AC_CHECK_HEADER(float.h, , [AC_DEFINE(NO_FLOAT_H, 1, [Do we have ?])]) - AC_CHECK_HEADER(values.h, , [AC_DEFINE(NO_VALUES_H, 1, [Do we have ?])]) - AC_CHECK_HEADER(limits.h, - [AC_DEFINE(HAVE_LIMITS_H, 1, [Do we have ?])], - [AC_DEFINE(NO_LIMITS_H, 1, [Do we have ?])]) - AC_CHECK_HEADER(stdlib.h, tcl_ok=1, tcl_ok=0) - AC_EGREP_HEADER(strtol, stdlib.h, , tcl_ok=0) - AC_EGREP_HEADER(strtoul, stdlib.h, , tcl_ok=0) - AC_EGREP_HEADER(strtod, stdlib.h, , tcl_ok=0) - if test $tcl_ok = 0; then - AC_DEFINE(NO_STDLIB_H, 1, [Do we have ?]) - fi - AC_CHECK_HEADER(string.h, tcl_ok=1, tcl_ok=0) - AC_EGREP_HEADER(strstr, string.h, , tcl_ok=0) - AC_EGREP_HEADER(strerror, string.h, , tcl_ok=0) - - # See also memmove check below for a place where NO_STRING_H can be - # set and why. - - if test $tcl_ok = 0; then - AC_DEFINE(NO_STRING_H, 1, [Do we have ?]) - fi - - AC_CHECK_HEADER(sys/wait.h, , [AC_DEFINE(NO_SYS_WAIT_H, 1, [Do we have ?])]) - AC_CHECK_HEADER(dlfcn.h, , [AC_DEFINE(NO_DLFCN_H, 1, [Do we have ?])]) - - # OS/390 lacks sys/param.h (and doesn't need it, by chance). - AC_HAVE_HEADERS(sys/param.h) -]) - -#-------------------------------------------------------------------- -# TEA_PATH_X -# -# Locate the X11 header files and the X11 library archive. Try -# the ac_path_x macro first, but if it doesn't find the X stuff -# (e.g. because there's no xmkmf program) then check through -# a list of possible directories. Under some conditions the -# autoconf macro will return an include directory that contains -# no include files, so double-check its result just to be safe. -# -# This should be called after TEA_CONFIG_CFLAGS as setting the -# LIBS line can confuse some configure macro magic. -# -# Arguments: -# none -# -# Results: -# -# Sets the following vars: -# XINCLUDES -# XLIBSW -# PKG_LIBS (appends to) -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_PATH_X], [ - if test "${TEA_WINDOWINGSYSTEM}" = "x11" ; then - TEA_PATH_UNIX_X - fi -]) - -AC_DEFUN([TEA_PATH_UNIX_X], [ - AC_PATH_X - not_really_there="" - if test "$no_x" = ""; then - if test "$x_includes" = ""; then - AC_TRY_CPP([#include ], , not_really_there="yes") - else - if test ! -r $x_includes/X11/Intrinsic.h; then - not_really_there="yes" - fi - fi - fi - if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then - AC_MSG_CHECKING([for X11 header files]) - found_xincludes="no" - AC_TRY_CPP([#include ], found_xincludes="yes", found_xincludes="no") - if test "$found_xincludes" = "no"; then - dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/X11R6/include /usr/X11R5/include /usr/include/X11R5 /usr/include/X11R4 /usr/openwin/include /usr/X11/include /usr/sww/include" - for i in $dirs ; do - if test -r $i/X11/Intrinsic.h; then - AC_MSG_RESULT([$i]) - XINCLUDES=" -I$i" - found_xincludes="yes" - break - fi - done - fi - else - if test "$x_includes" != ""; then - XINCLUDES="-I$x_includes" - found_xincludes="yes" - fi - fi - if test found_xincludes = "no"; then - AC_MSG_RESULT([couldn't find any!]) - fi - - if test "$no_x" = yes; then - AC_MSG_CHECKING([for X11 libraries]) - XLIBSW=nope - dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/X11R6/lib /usr/X11R5/lib /usr/lib/X11R5 /usr/lib/X11R4 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib" - for i in $dirs ; do - if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl -o -r $i/libX11.dylib; then - AC_MSG_RESULT([$i]) - XLIBSW="-L$i -lX11" - x_libraries="$i" - break - fi - done - else - if test "$x_libraries" = ""; then - XLIBSW=-lX11 - else - XLIBSW="-L$x_libraries -lX11" - fi - fi - if test "$XLIBSW" = nope ; then - AC_CHECK_LIB(Xwindow, XCreateWindow, XLIBSW=-lXwindow) - fi - if test "$XLIBSW" = nope ; then - AC_MSG_RESULT([could not find any! Using -lX11.]) - XLIBSW=-lX11 - fi - # TEA specific: - if test x"${XLIBSW}" != x ; then - PKG_LIBS="${PKG_LIBS} ${XLIBSW}" - fi -]) - -#-------------------------------------------------------------------- -# TEA_BLOCKING_STYLE -# -# The statements below check for systems where POSIX-style -# non-blocking I/O (O_NONBLOCK) doesn't work or is unimplemented. -# On these systems (mostly older ones), use the old BSD-style -# FIONBIO approach instead. -# -# Arguments: -# none -# -# Results: -# -# Defines some of the following vars: -# HAVE_SYS_IOCTL_H -# HAVE_SYS_FILIO_H -# USE_FIONBIO -# O_NONBLOCK -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_BLOCKING_STYLE], [ - AC_CHECK_HEADERS(sys/ioctl.h) - AC_CHECK_HEADERS(sys/filio.h) - TEA_CONFIG_SYSTEM - AC_MSG_CHECKING([FIONBIO vs. O_NONBLOCK for nonblocking I/O]) - case $system in - # There used to be code here to use FIONBIO under AIX. However, it - # was reported that FIONBIO doesn't work under AIX 3.2.5. Since - # using O_NONBLOCK seems fine under AIX 4.*, I removed the FIONBIO - # code (JO, 5/31/97). - - OSF*) - AC_DEFINE(USE_FIONBIO, 1, [Should we use FIONBIO?]) - AC_MSG_RESULT([FIONBIO]) - ;; - SunOS-4*) - AC_DEFINE(USE_FIONBIO, 1, [Should we use FIONBIO?]) - AC_MSG_RESULT([FIONBIO]) - ;; - *) - AC_MSG_RESULT([O_NONBLOCK]) - ;; - esac -]) - -#-------------------------------------------------------------------- -# TEA_TIME_HANLDER -# -# Checks how the system deals with time.h, what time structures -# are used on the system, and what fields the structures have. -# -# Arguments: -# none -# -# Results: -# -# Defines some of the following vars: -# USE_DELTA_FOR_TZ -# HAVE_TM_GMTOFF -# HAVE_TM_TZADJ -# HAVE_TIMEZONE_VAR -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_TIME_HANDLER], [ - AC_CHECK_HEADERS(sys/time.h) - AC_HEADER_TIME - AC_STRUCT_TIMEZONE - - AC_CHECK_FUNCS(gmtime_r localtime_r) - - AC_CACHE_CHECK([tm_tzadj in struct tm], tcl_cv_member_tm_tzadj, [ - AC_TRY_COMPILE([#include ], [struct tm tm; tm.tm_tzadj;], - tcl_cv_member_tm_tzadj=yes, tcl_cv_member_tm_tzadj=no)]) - if test $tcl_cv_member_tm_tzadj = yes ; then - AC_DEFINE(HAVE_TM_TZADJ, 1, [Should we use the tm_tzadj field of struct tm?]) - fi - - AC_CACHE_CHECK([tm_gmtoff in struct tm], tcl_cv_member_tm_gmtoff, [ - AC_TRY_COMPILE([#include ], [struct tm tm; tm.tm_gmtoff;], - tcl_cv_member_tm_gmtoff=yes, tcl_cv_member_tm_gmtoff=no)]) - if test $tcl_cv_member_tm_gmtoff = yes ; then - AC_DEFINE(HAVE_TM_GMTOFF, 1, [Should we use the tm_gmtoff field of struct tm?]) - fi - - # - # Its important to include time.h in this check, as some systems - # (like convex) have timezone functions, etc. - # - AC_CACHE_CHECK([long timezone variable], tcl_cv_timezone_long, [ - AC_TRY_COMPILE([#include ], - [extern long timezone; - timezone += 1; - exit (0);], - tcl_cv_timezone_long=yes, tcl_cv_timezone_long=no)]) - if test $tcl_cv_timezone_long = yes ; then - AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?]) - else - # - # On some systems (eg IRIX 6.2), timezone is a time_t and not a long. - # - AC_CACHE_CHECK([time_t timezone variable], tcl_cv_timezone_time, [ - AC_TRY_COMPILE([#include ], - [extern time_t timezone; - timezone += 1; - exit (0);], - tcl_cv_timezone_time=yes, tcl_cv_timezone_time=no)]) - if test $tcl_cv_timezone_time = yes ; then - AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?]) - fi - fi -]) - -#-------------------------------------------------------------------- -# TEA_BUGGY_STRTOD -# -# Under Solaris 2.4, strtod returns the wrong value for the -# terminating character under some conditions. Check for this -# and if the problem exists use a substitute procedure -# "fixstrtod" (provided by Tcl) that corrects the error. -# Also, on Compaq's Tru64 Unix 5.0, -# strtod(" ") returns 0.0 instead of a failure to convert. -# -# Arguments: -# none -# -# Results: -# -# Might defines some of the following vars: -# strtod (=fixstrtod) -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_BUGGY_STRTOD], [ - AC_CHECK_FUNC(strtod, tcl_strtod=1, tcl_strtod=0) - if test "$tcl_strtod" = 1; then - AC_CACHE_CHECK([for Solaris2.4/Tru64 strtod bugs], tcl_cv_strtod_buggy,[ - AC_TRY_RUN([ - extern double strtod(); - int main() { - char *infString="Inf", *nanString="NaN", *spaceString=" "; - char *term; - double value; - value = strtod(infString, &term); - if ((term != infString) && (term[-1] == 0)) { - exit(1); - } - value = strtod(nanString, &term); - if ((term != nanString) && (term[-1] == 0)) { - exit(1); - } - value = strtod(spaceString, &term); - if (term == (spaceString+1)) { - exit(1); - } - exit(0); - }], tcl_cv_strtod_buggy=ok, tcl_cv_strtod_buggy=buggy, - tcl_cv_strtod_buggy=buggy)]) - if test "$tcl_cv_strtod_buggy" = buggy; then - AC_LIBOBJ([fixstrtod]) - USE_COMPAT=1 - AC_DEFINE(strtod, fixstrtod, [Do we want to use the strtod() in compat?]) - fi - fi -]) - -#-------------------------------------------------------------------- -# TEA_TCL_LINK_LIBS -# -# Search for the libraries needed to link the Tcl shell. -# Things like the math library (-lm) and socket stuff (-lsocket vs. -# -lnsl) are dealt with here. -# -# Arguments: -# Requires the following vars to be set in the Makefile: -# DL_LIBS -# LIBS -# MATH_LIBS -# -# Results: -# -# Subst's the following var: -# TCL_LIBS -# MATH_LIBS -# -# Might append to the following vars: -# LIBS -# -# Might define the following vars: -# HAVE_NET_ERRNO_H -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_TCL_LINK_LIBS], [ - #-------------------------------------------------------------------- - # On a few very rare systems, all of the libm.a stuff is - # already in libc.a. Set compiler flags accordingly. - # Also, Linux requires the "ieee" library for math to work - # right (and it must appear before "-lm"). - #-------------------------------------------------------------------- - - AC_CHECK_FUNC(sin, MATH_LIBS="", MATH_LIBS="-lm") - AC_CHECK_LIB(ieee, main, [MATH_LIBS="-lieee $MATH_LIBS"]) - - #-------------------------------------------------------------------- - # Interactive UNIX requires -linet instead of -lsocket, plus it - # needs net/errno.h to define the socket-related error codes. - #-------------------------------------------------------------------- - - AC_CHECK_LIB(inet, main, [LIBS="$LIBS -linet"]) - AC_CHECK_HEADER(net/errno.h, [ - AC_DEFINE(HAVE_NET_ERRNO_H, 1, [Do we have ?])]) - - #-------------------------------------------------------------------- - # Check for the existence of the -lsocket and -lnsl libraries. - # The order here is important, so that they end up in the right - # order in the command line generated by make. Here are some - # special considerations: - # 1. Use "connect" and "accept" to check for -lsocket, and - # "gethostbyname" to check for -lnsl. - # 2. Use each function name only once: can't redo a check because - # autoconf caches the results of the last check and won't redo it. - # 3. Use -lnsl and -lsocket only if they supply procedures that - # aren't already present in the normal libraries. This is because - # IRIX 5.2 has libraries, but they aren't needed and they're - # bogus: they goof up name resolution if used. - # 4. On some SVR4 systems, can't use -lsocket without -lnsl too. - # To get around this problem, check for both libraries together - # if -lsocket doesn't work by itself. - #-------------------------------------------------------------------- - - tcl_checkBoth=0 - AC_CHECK_FUNC(connect, tcl_checkSocket=0, tcl_checkSocket=1) - if test "$tcl_checkSocket" = 1; then - AC_CHECK_FUNC(setsockopt, , [AC_CHECK_LIB(socket, setsockopt, - LIBS="$LIBS -lsocket", tcl_checkBoth=1)]) - fi - if test "$tcl_checkBoth" = 1; then - tk_oldLibs=$LIBS - LIBS="$LIBS -lsocket -lnsl" - AC_CHECK_FUNC(accept, tcl_checkNsl=0, [LIBS=$tk_oldLibs]) - fi - AC_CHECK_FUNC(gethostbyname, , [AC_CHECK_LIB(nsl, gethostbyname, - [LIBS="$LIBS -lnsl"])]) - - # TEA specific: Don't perform the eval of the libraries here because - # DL_LIBS won't be set until we call TEA_CONFIG_CFLAGS - - TCL_LIBS='${DL_LIBS} ${LIBS} ${MATH_LIBS}' - AC_SUBST(TCL_LIBS) - AC_SUBST(MATH_LIBS) -]) - -#-------------------------------------------------------------------- -# TEA_TCL_EARLY_FLAGS -# -# Check for what flags are needed to be passed so the correct OS -# features are available. -# -# Arguments: -# None -# -# Results: -# -# Might define the following vars: -# _ISOC99_SOURCE -# _LARGEFILE64_SOURCE -# _LARGEFILE_SOURCE64 -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_TCL_EARLY_FLAG],[ - AC_CACHE_VAL([tcl_cv_flag_]translit($1,[A-Z],[a-z]), - AC_TRY_COMPILE([$2], $3, [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no, - AC_TRY_COMPILE([[#define ]$1[ 1 -]$2], $3, - [tcl_cv_flag_]translit($1,[A-Z],[a-z])=yes, - [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no))) - if test ["x${tcl_cv_flag_]translit($1,[A-Z],[a-z])[}" = "xyes"] ; then - AC_DEFINE($1, 1, [Add the ]$1[ flag when building]) - tcl_flags="$tcl_flags $1" - fi -]) - -AC_DEFUN([TEA_TCL_EARLY_FLAGS],[ - AC_MSG_CHECKING([for required early compiler flags]) - tcl_flags="" - TEA_TCL_EARLY_FLAG(_ISOC99_SOURCE,[#include ], - [char *p = (char *)strtoll; char *q = (char *)strtoull;]) - TEA_TCL_EARLY_FLAG(_LARGEFILE64_SOURCE,[#include ], - [struct stat64 buf; int i = stat64("/", &buf);]) - TEA_TCL_EARLY_FLAG(_LARGEFILE_SOURCE64,[#include ], - [char *p = (char *)open64;]) - if test "x${tcl_flags}" = "x" ; then - AC_MSG_RESULT([none]) - else - AC_MSG_RESULT([${tcl_flags}]) - fi -]) - -#-------------------------------------------------------------------- -# TEA_TCL_64BIT_FLAGS -# -# Check for what is defined in the way of 64-bit features. -# -# Arguments: -# None -# -# Results: -# -# Might define the following vars: -# TCL_WIDE_INT_IS_LONG -# TCL_WIDE_INT_TYPE -# HAVE_STRUCT_DIRENT64 -# HAVE_STRUCT_STAT64 -# HAVE_TYPE_OFF64_T -# -#-------------------------------------------------------------------- - -AC_DEFUN([TEA_TCL_64BIT_FLAGS], [ - AC_MSG_CHECKING([for 64-bit integer type]) - AC_CACHE_VAL(tcl_cv_type_64bit,[ - tcl_cv_type_64bit=none - # See if the compiler knows natively about __int64 - AC_TRY_COMPILE(,[__int64 value = (__int64) 0;], - tcl_type_64bit=__int64, tcl_type_64bit="long long") - # See if we should use long anyway Note that we substitute in the - # type that is our current guess for a 64-bit type inside this check - # program, so it should be modified only carefully... - AC_TRY_COMPILE(,[switch (0) { - case 1: case (sizeof(]${tcl_type_64bit}[)==sizeof(long)): ; - }],tcl_cv_type_64bit=${tcl_type_64bit})]) - if test "${tcl_cv_type_64bit}" = none ; then - AC_DEFINE(TCL_WIDE_INT_IS_LONG, 1, [Are wide integers to be implemented with C 'long's?]) - AC_MSG_RESULT([using long]) - elif test "${tcl_cv_type_64bit}" = "__int64" \ - -a "${TEA_PLATFORM}" = "windows" ; then - # TEA specific: We actually want to use the default tcl.h checks in - # this case to handle both TCL_WIDE_INT_TYPE and TCL_LL_MODIFIER* - AC_MSG_RESULT([using Tcl header defaults]) - else - AC_DEFINE_UNQUOTED(TCL_WIDE_INT_TYPE,${tcl_cv_type_64bit}, - [What type should be used to define wide integers?]) - AC_MSG_RESULT([${tcl_cv_type_64bit}]) - - # Now check for auxiliary declarations - AC_CACHE_CHECK([for struct dirent64], tcl_cv_struct_dirent64,[ - AC_TRY_COMPILE([#include -#include ],[struct dirent64 p;], - tcl_cv_struct_dirent64=yes,tcl_cv_struct_dirent64=no)]) - if test "x${tcl_cv_struct_dirent64}" = "xyes" ; then - AC_DEFINE(HAVE_STRUCT_DIRENT64, 1, [Is 'struct dirent64' in ?]) - fi - - AC_CACHE_CHECK([for struct stat64], tcl_cv_struct_stat64,[ - AC_TRY_COMPILE([#include ],[struct stat64 p; -], - tcl_cv_struct_stat64=yes,tcl_cv_struct_stat64=no)]) - if test "x${tcl_cv_struct_stat64}" = "xyes" ; then - AC_DEFINE(HAVE_STRUCT_STAT64, 1, [Is 'struct stat64' in ?]) - fi - - AC_CHECK_FUNCS(open64 lseek64) - AC_MSG_CHECKING([for off64_t]) - AC_CACHE_VAL(tcl_cv_type_off64_t,[ - AC_TRY_COMPILE([#include ],[off64_t offset; -], - tcl_cv_type_off64_t=yes,tcl_cv_type_off64_t=no)]) - dnl Define HAVE_TYPE_OFF64_T only when the off64_t type and the - dnl functions lseek64 and open64 are defined. - if test "x${tcl_cv_type_off64_t}" = "xyes" && \ - test "x${ac_cv_func_lseek64}" = "xyes" && \ - test "x${ac_cv_func_open64}" = "xyes" ; then - AC_DEFINE(HAVE_TYPE_OFF64_T, 1, [Is off64_t in ?]) - AC_MSG_RESULT([yes]) - else - AC_MSG_RESULT([no]) - fi - fi -]) - -## -## Here ends the standard Tcl configuration bits and starts the -## TEA specific functions -## - -#------------------------------------------------------------------------ -# TEA_INIT -- -# -# Init various Tcl Extension Architecture (TEA) variables. -# This should be the first called TEA_* macro. -# -# Arguments: -# none -# -# Results: -# -# Defines and substs the following vars: -# CYGPATH -# EXEEXT -# Defines only: -# TEA_VERSION -# TEA_INITED -# TEA_PLATFORM (windows or unix) -# -# "cygpath" is used on windows to generate native path names for include -# files. These variables should only be used with the compiler and linker -# since they generate native path names. -# -# EXEEXT -# Select the executable extension based on the host type. This -# is a lightweight replacement for AC_EXEEXT that doesn't require -# a compiler. -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_INIT], [ - # TEA extensions pass this us the version of TEA they think they - # are compatible with. - TEA_VERSION="3.7" - - AC_MSG_CHECKING([for correct TEA configuration]) - if test x"${PACKAGE_NAME}" = x ; then - AC_MSG_ERROR([ -The PACKAGE_NAME variable must be defined by your TEA configure.in]) - fi - if test x"$1" = x ; then - AC_MSG_ERROR([ -TEA version not specified.]) - elif test "$1" != "${TEA_VERSION}" ; then - AC_MSG_RESULT([warning: requested TEA version "$1", have "${TEA_VERSION}"]) - else - AC_MSG_RESULT([ok (TEA ${TEA_VERSION})]) - fi - case "`uname -s`" in - *win32*|*WIN32*|*CYGWIN_NT*|*CYGWIN_9*|*CYGWIN_ME*|*MINGW32_*) - AC_CHECK_PROG(CYGPATH, cygpath, cygpath -w, echo) - EXEEXT=".exe" - TEA_PLATFORM="windows" - ;; - *) - CYGPATH=echo - EXEEXT="" - TEA_PLATFORM="unix" - ;; - esac - - # Check if exec_prefix is set. If not use fall back to prefix. - # Note when adjusted, so that TEA_PREFIX can correct for this. - # This is needed for recursive configures, since autoconf propagates - # $prefix, but not $exec_prefix (doh!). - if test x$exec_prefix = xNONE ; then - exec_prefix_default=yes - exec_prefix=$prefix - fi - - AC_SUBST(EXEEXT) - AC_SUBST(CYGPATH) - - # This package name must be replaced statically for AC_SUBST to work - AC_SUBST(PKG_LIB_FILE) - # Substitute STUB_LIB_FILE in case package creates a stub library too. - AC_SUBST(PKG_STUB_LIB_FILE) - - # We AC_SUBST these here to ensure they are subst'ed, - # in case the user doesn't call TEA_ADD_... - AC_SUBST(PKG_STUB_SOURCES) - AC_SUBST(PKG_STUB_OBJECTS) - AC_SUBST(PKG_TCL_SOURCES) - AC_SUBST(PKG_HEADERS) - AC_SUBST(PKG_INCLUDES) - AC_SUBST(PKG_LIBS) - AC_SUBST(PKG_CFLAGS) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_SOURCES -- -# -# Specify one or more source files. Users should check for -# the right platform before adding to their list. -# It is not important to specify the directory, as long as it is -# in the generic, win or unix subdirectory of $(srcdir). -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_SOURCES -# PKG_OBJECTS -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_SOURCES], [ - vars="$@" - for i in $vars; do - case $i in - [\$]*) - # allow $-var names - PKG_SOURCES="$PKG_SOURCES $i" - PKG_OBJECTS="$PKG_OBJECTS $i" - ;; - *) - # check for existence - allows for generic/win/unix VPATH - # To add more dirs here (like 'src'), you have to update VPATH - # in Makefile.in as well - if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ - -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ - ; then - AC_MSG_ERROR([could not find source file '$i']) - fi - PKG_SOURCES="$PKG_SOURCES $i" - # this assumes it is in a VPATH dir - i=`basename $i` - # handle user calling this before or after TEA_SETUP_COMPILER - if test x"${OBJEXT}" != x ; then - j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}" - else - j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}" - fi - PKG_OBJECTS="$PKG_OBJECTS $j" - ;; - esac - done - AC_SUBST(PKG_SOURCES) - AC_SUBST(PKG_OBJECTS) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_STUB_SOURCES -- -# -# Specify one or more source files. Users should check for -# the right platform before adding to their list. -# It is not important to specify the directory, as long as it is -# in the generic, win or unix subdirectory of $(srcdir). -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_STUB_SOURCES -# PKG_STUB_OBJECTS -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_STUB_SOURCES], [ - vars="$@" - for i in $vars; do - # check for existence - allows for generic/win/unix VPATH - if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \ - -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \ - ; then - AC_MSG_ERROR([could not find stub source file '$i']) - fi - PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i" - # this assumes it is in a VPATH dir - i=`basename $i` - # handle user calling this before or after TEA_SETUP_COMPILER - if test x"${OBJEXT}" != x ; then - j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}" - else - j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}" - fi - PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j" - done - AC_SUBST(PKG_STUB_SOURCES) - AC_SUBST(PKG_STUB_OBJECTS) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_TCL_SOURCES -- -# -# Specify one or more Tcl source files. These should be platform -# independent runtime files. -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_TCL_SOURCES -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_TCL_SOURCES], [ - vars="$@" - for i in $vars; do - # check for existence, be strict because it is installed - if test ! -f "${srcdir}/$i" ; then - AC_MSG_ERROR([could not find tcl source file '${srcdir}/$i']) - fi - PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i" - done - AC_SUBST(PKG_TCL_SOURCES) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_HEADERS -- -# -# Specify one or more source headers. Users should check for -# the right platform before adding to their list. -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_HEADERS -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_HEADERS], [ - vars="$@" - for i in $vars; do - # check for existence, be strict because it is installed - if test ! -f "${srcdir}/$i" ; then - AC_MSG_ERROR([could not find header file '${srcdir}/$i']) - fi - PKG_HEADERS="$PKG_HEADERS $i" - done - AC_SUBST(PKG_HEADERS) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_INCLUDES -- -# -# Specify one or more include dirs. Users should check for -# the right platform before adding to their list. -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_INCLUDES -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_INCLUDES], [ - vars="$@" - for i in $vars; do - PKG_INCLUDES="$PKG_INCLUDES $i" - done - AC_SUBST(PKG_INCLUDES) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_LIBS -- -# -# Specify one or more libraries. Users should check for -# the right platform before adding to their list. For Windows, -# libraries provided in "foo.lib" format will be converted to -# "-lfoo" when using GCC (mingw). -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_LIBS -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_LIBS], [ - vars="$@" - for i in $vars; do - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then - # Convert foo.lib to -lfoo for GCC. No-op if not *.lib - i=`echo "$i" | sed -e 's/^\([[^-]].*\)\.lib[$]/-l\1/i'` - fi - PKG_LIBS="$PKG_LIBS $i" - done - AC_SUBST(PKG_LIBS) -]) - -#------------------------------------------------------------------------ -# TEA_ADD_CFLAGS -- -# -# Specify one or more CFLAGS. Users should check for -# the right platform before adding to their list. -# -# Arguments: -# one or more file names -# -# Results: -# -# Defines and substs the following vars: -# PKG_CFLAGS -#------------------------------------------------------------------------ -AC_DEFUN([TEA_ADD_CFLAGS], [ - PKG_CFLAGS="$PKG_CFLAGS $@" - AC_SUBST(PKG_CFLAGS) -]) - -#------------------------------------------------------------------------ -# TEA_PREFIX -- -# -# Handle the --prefix=... option by defaulting to what Tcl gave -# -# Arguments: -# none -# -# Results: -# -# If --prefix or --exec-prefix was not specified, $prefix and -# $exec_prefix will be set to the values given to Tcl when it was -# configured. -#------------------------------------------------------------------------ -AC_DEFUN([TEA_PREFIX], [ - if test "${prefix}" = "NONE"; then - prefix_default=yes - if test x"${TCL_PREFIX}" != x; then - AC_MSG_NOTICE([--prefix defaulting to TCL_PREFIX ${TCL_PREFIX}]) - prefix=${TCL_PREFIX} - else - AC_MSG_NOTICE([--prefix defaulting to /usr/local]) - prefix=/usr/local - fi - fi - if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \ - -o x"${exec_prefix_default}" = x"yes" ; then - if test x"${TCL_EXEC_PREFIX}" != x; then - AC_MSG_NOTICE([--exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}]) - exec_prefix=${TCL_EXEC_PREFIX} - else - AC_MSG_NOTICE([--exec-prefix defaulting to ${prefix}]) - exec_prefix=$prefix - fi - fi -]) - -#------------------------------------------------------------------------ -# TEA_SETUP_COMPILER_CC -- -# -# Do compiler checks the way we want. This is just a replacement -# for AC_PROG_CC in TEA configure.in files to make them cleaner. -# -# Arguments: -# none -# -# Results: -# -# Sets up CC var and other standard bits we need to make executables. -#------------------------------------------------------------------------ -AC_DEFUN([TEA_SETUP_COMPILER_CC], [ - # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE) - # in this macro, they need to go into TEA_SETUP_COMPILER instead. - - # If the user did not set CFLAGS, set it now to keep - # the AC_PROG_CC macro from adding "-g -O2". - if test "${CFLAGS+set}" != "set" ; then - CFLAGS="" - fi - - AC_PROG_CC - AC_PROG_CPP - - AC_PROG_INSTALL - - #-------------------------------------------------------------------- - # Checks to see if the make program sets the $MAKE variable. - #-------------------------------------------------------------------- - - AC_PROG_MAKE_SET - - #-------------------------------------------------------------------- - # Find ranlib - #-------------------------------------------------------------------- - - AC_PROG_RANLIB - - #-------------------------------------------------------------------- - # Determines the correct binary file extension (.o, .obj, .exe etc.) - #-------------------------------------------------------------------- - - AC_OBJEXT - AC_EXEEXT -]) - -#------------------------------------------------------------------------ -# TEA_SETUP_COMPILER -- -# -# Do compiler checks that use the compiler. This must go after -# TEA_SETUP_COMPILER_CC, which does the actual compiler check. -# -# Arguments: -# none -# -# Results: -# -# Sets up CC var and other standard bits we need to make executables. -#------------------------------------------------------------------------ -AC_DEFUN([TEA_SETUP_COMPILER], [ - # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here. - AC_REQUIRE([TEA_SETUP_COMPILER_CC]) - - #------------------------------------------------------------------------ - # If we're using GCC, see if the compiler understands -pipe. If so, use it. - # It makes compiling go faster. (This is only a performance feature.) - #------------------------------------------------------------------------ - - if test -z "$no_pipe" -a -n "$GCC"; then - AC_CACHE_CHECK([if the compiler understands -pipe], - tcl_cv_cc_pipe, [ - hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe" - AC_TRY_COMPILE(,, tcl_cv_cc_pipe=yes, tcl_cv_cc_pipe=no) - CFLAGS=$hold_cflags]) - if test $tcl_cv_cc_pipe = yes; then - CFLAGS="$CFLAGS -pipe" - fi - fi - - #-------------------------------------------------------------------- - # Common compiler flag setup - #-------------------------------------------------------------------- - - AC_C_BIGENDIAN - if test "${TEA_PLATFORM}" = "unix" ; then - TEA_TCL_LINK_LIBS - TEA_MISSING_POSIX_HEADERS - # Let the user call this, because if it triggers, they will - # need a compat/strtod.c that is correct. Users can also - # use Tcl_GetDouble(FromObj) instead. - #TEA_BUGGY_STRTOD - fi -]) - -#------------------------------------------------------------------------ -# TEA_MAKE_LIB -- -# -# Generate a line that can be used to build a shared/unshared library -# in a platform independent manner. -# -# Arguments: -# none -# -# Requires: -# -# Results: -# -# Defines the following vars: -# CFLAGS - Done late here to note disturb other AC macros -# MAKE_LIB - Command to execute to build the Tcl library; -# differs depending on whether or not Tcl is being -# compiled as a shared library. -# MAKE_SHARED_LIB Makefile rule for building a shared library -# MAKE_STATIC_LIB Makefile rule for building a static library -# MAKE_STUB_LIB Makefile rule for building a stub library -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_MAKE_LIB], [ - if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes"; then - MAKE_STATIC_LIB="\${STLIB_LD} -out:\[$]@ \$(PKG_OBJECTS)" - MAKE_SHARED_LIB="\${SHLIB_LD} \${SHLIB_LD_LIBS} \${LDFLAGS_DEFAULT} -out:\[$]@ \$(PKG_OBJECTS)" - MAKE_STUB_LIB="\${STLIB_LD} -out:\[$]@ \$(PKG_STUB_OBJECTS)" - else - MAKE_STATIC_LIB="\${STLIB_LD} \[$]@ \$(PKG_OBJECTS)" - MAKE_SHARED_LIB="\${SHLIB_LD} -o \[$]@ \$(PKG_OBJECTS) \${SHLIB_LD_LIBS}" - MAKE_STUB_LIB="\${STLIB_LD} \[$]@ \$(PKG_STUB_OBJECTS)" - fi - - if test "${SHARED_BUILD}" = "1" ; then - MAKE_LIB="${MAKE_SHARED_LIB} " - else - MAKE_LIB="${MAKE_STATIC_LIB} " - fi - - #-------------------------------------------------------------------- - # Shared libraries and static libraries have different names. - # Use the double eval to make sure any variables in the suffix is - # substituted. (@@@ Might not be necessary anymore) - #-------------------------------------------------------------------- - - if test "${TEA_PLATFORM}" = "windows" ; then - if test "${SHARED_BUILD}" = "1" ; then - # We force the unresolved linking of symbols that are really in - # the private libraries of Tcl and Tk. - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}`\"" - if test x"${TK_BIN_DIR}" != x ; then - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TK_BIN_DIR}/${TK_STUB_LIB_FILE}`\"" - fi - eval eval "PKG_LIB_FILE=${PACKAGE_NAME}${SHARED_LIB_SUFFIX}" - else - eval eval "PKG_LIB_FILE=${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}" - fi - # Some packages build their own stubs libraries - eval eval "PKG_STUB_LIB_FILE=${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}" - if test "$GCC" = "yes"; then - PKG_STUB_LIB_FILE=lib${PKG_STUB_LIB_FILE} - fi - # These aren't needed on Windows (either MSVC or gcc) - RANLIB=: - RANLIB_STUB=: - else - RANLIB_STUB="${RANLIB}" - if test "${SHARED_BUILD}" = "1" ; then - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TCL_STUB_LIB_SPEC}" - if test x"${TK_BIN_DIR}" != x ; then - SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TK_STUB_LIB_SPEC}" - fi - eval eval "PKG_LIB_FILE=lib${PACKAGE_NAME}${SHARED_LIB_SUFFIX}" - RANLIB=: - else - eval eval "PKG_LIB_FILE=lib${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}" - fi - # Some packages build their own stubs libraries - eval eval "PKG_STUB_LIB_FILE=lib${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}" - fi - - # These are escaped so that only CFLAGS is picked up at configure time. - # The other values will be substituted at make time. - CFLAGS="${CFLAGS} \${CFLAGS_DEFAULT} \${CFLAGS_WARNING}" - if test "${SHARED_BUILD}" = "1" ; then - CFLAGS="${CFLAGS} \${SHLIB_CFLAGS}" - fi - - AC_SUBST(MAKE_LIB) - AC_SUBST(MAKE_SHARED_LIB) - AC_SUBST(MAKE_STATIC_LIB) - AC_SUBST(MAKE_STUB_LIB) - AC_SUBST(RANLIB_STUB) -]) - -#------------------------------------------------------------------------ -# TEA_LIB_SPEC -- -# -# Compute the name of an existing object library located in libdir -# from the given base name and produce the appropriate linker flags. -# -# Arguments: -# basename The base name of the library without version -# numbers, extensions, or "lib" prefixes. -# extra_dir Extra directory in which to search for the -# library. This location is used first, then -# $prefix/$exec-prefix, then some defaults. -# -# Requires: -# TEA_INIT and TEA_PREFIX must be called first. -# -# Results: -# -# Defines the following vars: -# ${basename}_LIB_NAME The computed library name. -# ${basename}_LIB_SPEC The computed linker flags. -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_LIB_SPEC], [ - AC_MSG_CHECKING([for $1 library]) - - # Look in exec-prefix for the library (defined by TEA_PREFIX). - - tea_lib_name_dir="${exec_prefix}/lib" - - # Or in a user-specified location. - - if test x"$2" != x ; then - tea_extra_lib_dir=$2 - else - tea_extra_lib_dir=NONE - fi - - for i in \ - `ls -dr ${tea_extra_lib_dir}/$1[[0-9]]*.lib 2>/dev/null ` \ - `ls -dr ${tea_extra_lib_dir}/lib$1[[0-9]]* 2>/dev/null ` \ - `ls -dr ${tea_lib_name_dir}/$1[[0-9]]*.lib 2>/dev/null ` \ - `ls -dr ${tea_lib_name_dir}/lib$1[[0-9]]* 2>/dev/null ` \ - `ls -dr /usr/lib/$1[[0-9]]*.lib 2>/dev/null ` \ - `ls -dr /usr/lib/lib$1[[0-9]]* 2>/dev/null ` \ - `ls -dr /usr/local/lib/$1[[0-9]]*.lib 2>/dev/null ` \ - `ls -dr /usr/local/lib/lib$1[[0-9]]* 2>/dev/null ` ; do - if test -f "$i" ; then - tea_lib_name_dir=`dirname $i` - $1_LIB_NAME=`basename $i` - $1_LIB_PATH_NAME=$i - break - fi - done - - if test "${TEA_PLATFORM}" = "windows"; then - $1_LIB_SPEC=\"`${CYGPATH} ${$1_LIB_PATH_NAME} 2>/dev/null`\" - else - # Strip off the leading "lib" and trailing ".a" or ".so" - - tea_lib_name_lib=`echo ${$1_LIB_NAME}|sed -e 's/^lib//' -e 's/\.[[^.]]*$//' -e 's/\.so.*//'` - $1_LIB_SPEC="-L${tea_lib_name_dir} -l${tea_lib_name_lib}" - fi - - if test "x${$1_LIB_NAME}" = x ; then - AC_MSG_ERROR([not found]) - else - AC_MSG_RESULT([${$1_LIB_SPEC}]) - fi -]) - -#------------------------------------------------------------------------ -# TEA_PRIVATE_TCL_HEADERS -- -# -# Locate the private Tcl include files -# -# Arguments: -# -# Requires: -# TCL_SRC_DIR Assumes that TEA_LOAD_TCLCONFIG has -# already been called. -# -# Results: -# -# Substs the following vars: -# TCL_TOP_DIR_NATIVE -# TCL_INCLUDES -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PRIVATE_TCL_HEADERS], [ - # Allow for --with-tclinclude to take effect and define ${ac_cv_c_tclh} - AC_REQUIRE([TEA_PUBLIC_TCL_HEADERS]) - AC_MSG_CHECKING([for Tcl private include files]) - - TCL_SRC_DIR_NATIVE=`${CYGPATH} ${TCL_SRC_DIR}` - TCL_TOP_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}\" - - # Check to see if tclPort.h isn't already with the public headers - # Don't look for tclInt.h because that resides with tcl.h in the core - # sources, but the Port headers are in a different directory - if test "${TEA_PLATFORM}" = "windows" -a \ - -f "${ac_cv_c_tclh}/tclWinPort.h"; then - result="private headers found with public headers" - elif test "${TEA_PLATFORM}" = "unix" -a \ - -f "${ac_cv_c_tclh}/tclUnixPort.h"; then - result="private headers found with public headers" - else - TCL_GENERIC_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/generic\" - if test "${TEA_PLATFORM}" = "windows"; then - TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/win\" - else - TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/unix\" - fi - # Overwrite the previous TCL_INCLUDES as this should capture both - # public and private headers in the same set. - # We want to ensure these are substituted so as not to require - # any *_NATIVE vars be defined in the Makefile - TCL_INCLUDES="-I${TCL_GENERIC_DIR_NATIVE} -I${TCL_PLATFORM_DIR_NATIVE}" - if test "`uname -s`" = "Darwin"; then - # If Tcl was built as a framework, attempt to use - # the framework's Headers and PrivateHeaders directories - case ${TCL_DEFS} in - *TCL_FRAMEWORK*) - if test -d "${TCL_BIN_DIR}/Headers" -a \ - -d "${TCL_BIN_DIR}/PrivateHeaders"; then - TCL_INCLUDES="-I\"${TCL_BIN_DIR}/Headers\" -I\"${TCL_BIN_DIR}/PrivateHeaders\" ${TCL_INCLUDES}" - else - TCL_INCLUDES="${TCL_INCLUDES} ${TCL_INCLUDE_SPEC} `echo "${TCL_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`" - fi - ;; - esac - result="Using ${TCL_INCLUDES}" - else - if test ! -f "${TCL_SRC_DIR}/generic/tclInt.h" ; then - AC_MSG_ERROR([Cannot find private header tclInt.h in ${TCL_SRC_DIR}]) - fi - result="Using srcdir found in tclConfig.sh: ${TCL_SRC_DIR}" - fi - fi - - AC_SUBST(TCL_TOP_DIR_NATIVE) - - AC_SUBST(TCL_INCLUDES) - AC_MSG_RESULT([${result}]) -]) - -#------------------------------------------------------------------------ -# TEA_PUBLIC_TCL_HEADERS -- -# -# Locate the installed public Tcl header files -# -# Arguments: -# None. -# -# Requires: -# CYGPATH must be set -# -# Results: -# -# Adds a --with-tclinclude switch to configure. -# Result is cached. -# -# Substs the following vars: -# TCL_INCLUDES -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PUBLIC_TCL_HEADERS], [ - AC_MSG_CHECKING([for Tcl public headers]) - - AC_ARG_WITH(tclinclude, [ --with-tclinclude directory containing the public Tcl header files], with_tclinclude=${withval}) - - AC_CACHE_VAL(ac_cv_c_tclh, [ - # Use the value from --with-tclinclude, if it was given - - if test x"${with_tclinclude}" != x ; then - if test -f "${with_tclinclude}/tcl.h" ; then - ac_cv_c_tclh=${with_tclinclude} - else - AC_MSG_ERROR([${with_tclinclude} directory does not contain tcl.h]) - fi - else - if test "`uname -s`" = "Darwin"; then - # If Tcl was built as a framework, attempt to use - # the framework's Headers directory - case ${TCL_DEFS} in - *TCL_FRAMEWORK*) - list="`ls -d ${TCL_BIN_DIR}/Headers 2>/dev/null`" - ;; - esac - fi - - # Look in the source dir only if Tcl is not installed, - # and in that situation, look there before installed locations. - if test -f "${TCL_BIN_DIR}/Makefile" ; then - list="$list `ls -d ${TCL_SRC_DIR}/generic 2>/dev/null`" - fi - - # Check order: pkg --prefix location, Tcl's --prefix location, - # relative to directory of tclConfig.sh. - - eval "temp_includedir=${includedir}" - list="$list \ - `ls -d ${temp_includedir} 2>/dev/null` \ - `ls -d ${TCL_PREFIX}/include 2>/dev/null` \ - `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`" - if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then - list="$list /usr/local/include /usr/include" - if test x"${TCL_INCLUDE_SPEC}" != x ; then - d=`echo "${TCL_INCLUDE_SPEC}" | sed -e 's/^-I//'` - list="$list `ls -d ${d} 2>/dev/null`" - fi - fi - for i in $list ; do - if test -f "$i/tcl.h" ; then - ac_cv_c_tclh=$i - break - fi - done - fi - ]) - - # Print a message based on how we determined the include path - - if test x"${ac_cv_c_tclh}" = x ; then - AC_MSG_ERROR([tcl.h not found. Please specify its location with --with-tclinclude]) - else - AC_MSG_RESULT([${ac_cv_c_tclh}]) - fi - - # Convert to a native path and substitute into the output files. - - INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tclh}` - - TCL_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" - - AC_SUBST(TCL_INCLUDES) -]) - -#------------------------------------------------------------------------ -# TEA_PRIVATE_TK_HEADERS -- -# -# Locate the private Tk include files -# -# Arguments: -# -# Requires: -# TK_SRC_DIR Assumes that TEA_LOAD_TKCONFIG has -# already been called. -# -# Results: -# -# Substs the following vars: -# TK_INCLUDES -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PRIVATE_TK_HEADERS], [ - # Allow for --with-tkinclude to take effect and define ${ac_cv_c_tkh} - AC_REQUIRE([TEA_PUBLIC_TK_HEADERS]) - AC_MSG_CHECKING([for Tk private include files]) - - TK_SRC_DIR_NATIVE=`${CYGPATH} ${TK_SRC_DIR}` - TK_TOP_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}\" - - # Check to see if tkPort.h isn't already with the public headers - # Don't look for tkInt.h because that resides with tk.h in the core - # sources, but the Port headers are in a different directory - if test "${TEA_PLATFORM}" = "windows" -a \ - -f "${ac_cv_c_tkh}/tkWinPort.h"; then - result="private headers found with public headers" - elif test "${TEA_PLATFORM}" = "unix" -a \ - -f "${ac_cv_c_tkh}/tkUnixPort.h"; then - result="private headers found with public headers" - else - TK_GENERIC_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/generic\" - TK_XLIB_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/xlib\" - if test "${TEA_PLATFORM}" = "windows"; then - TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/win\" - else - TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/unix\" - fi - # Overwrite the previous TK_INCLUDES as this should capture both - # public and private headers in the same set. - # We want to ensure these are substituted so as not to require - # any *_NATIVE vars be defined in the Makefile - TK_INCLUDES="-I${TK_GENERIC_DIR_NATIVE} -I${TK_PLATFORM_DIR_NATIVE}" - # Detect and add ttk subdir - if test -d "${TK_SRC_DIR}/generic/ttk"; then - TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/generic/ttk\"" - fi - if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then - TK_INCLUDES="${TK_INCLUDES} -I${TK_XLIB_DIR_NATIVE}" - fi - if test "${TEA_WINDOWINGSYSTEM}" = "aqua"; then - TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/macosx\"" - fi - if test "`uname -s`" = "Darwin"; then - # If Tk was built as a framework, attempt to use - # the framework's Headers and PrivateHeaders directories - case ${TK_DEFS} in - *TK_FRAMEWORK*) - if test -d "${TK_BIN_DIR}/Headers" -a \ - -d "${TK_BIN_DIR}/PrivateHeaders"; then - TK_INCLUDES="-I\"${TK_BIN_DIR}/Headers\" -I\"${TK_BIN_DIR}/PrivateHeaders\" ${TK_INCLUDES}" - else - TK_INCLUDES="${TK_INCLUDES} ${TK_INCLUDE_SPEC} `echo "${TK_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`" - fi - ;; - esac - result="Using ${TK_INCLUDES}" - else - if test ! -f "${TK_SRC_DIR}/generic/tkInt.h" ; then - AC_MSG_ERROR([Cannot find private header tkInt.h in ${TK_SRC_DIR}]) - fi - result="Using srcdir found in tkConfig.sh: ${TK_SRC_DIR}" - fi - fi - - AC_SUBST(TK_TOP_DIR_NATIVE) - AC_SUBST(TK_XLIB_DIR_NATIVE) - - AC_SUBST(TK_INCLUDES) - AC_MSG_RESULT([${result}]) -]) - -#------------------------------------------------------------------------ -# TEA_PUBLIC_TK_HEADERS -- -# -# Locate the installed public Tk header files -# -# Arguments: -# None. -# -# Requires: -# CYGPATH must be set -# -# Results: -# -# Adds a --with-tkinclude switch to configure. -# Result is cached. -# -# Substs the following vars: -# TK_INCLUDES -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PUBLIC_TK_HEADERS], [ - AC_MSG_CHECKING([for Tk public headers]) - - AC_ARG_WITH(tkinclude, [ --with-tkinclude directory containing the public Tk header files], with_tkinclude=${withval}) - - AC_CACHE_VAL(ac_cv_c_tkh, [ - # Use the value from --with-tkinclude, if it was given - - if test x"${with_tkinclude}" != x ; then - if test -f "${with_tkinclude}/tk.h" ; then - ac_cv_c_tkh=${with_tkinclude} - else - AC_MSG_ERROR([${with_tkinclude} directory does not contain tk.h]) - fi - else - if test "`uname -s`" = "Darwin"; then - # If Tk was built as a framework, attempt to use - # the framework's Headers directory. - case ${TK_DEFS} in - *TK_FRAMEWORK*) - list="`ls -d ${TK_BIN_DIR}/Headers 2>/dev/null`" - ;; - esac - fi - - # Look in the source dir only if Tk is not installed, - # and in that situation, look there before installed locations. - if test -f "${TK_BIN_DIR}/Makefile" ; then - list="$list `ls -d ${TK_SRC_DIR}/generic 2>/dev/null`" - fi - - # Check order: pkg --prefix location, Tk's --prefix location, - # relative to directory of tkConfig.sh, Tcl's --prefix location, - # relative to directory of tclConfig.sh. - - eval "temp_includedir=${includedir}" - list="$list \ - `ls -d ${temp_includedir} 2>/dev/null` \ - `ls -d ${TK_PREFIX}/include 2>/dev/null` \ - `ls -d ${TK_BIN_DIR}/../include 2>/dev/null` \ - `ls -d ${TCL_PREFIX}/include 2>/dev/null` \ - `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`" - if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then - list="$list /usr/local/include /usr/include" - fi - for i in $list ; do - if test -f "$i/tk.h" ; then - ac_cv_c_tkh=$i - break - fi - done - fi - ]) - - # Print a message based on how we determined the include path - - if test x"${ac_cv_c_tkh}" = x ; then - AC_MSG_ERROR([tk.h not found. Please specify its location with --with-tkinclude]) - else - AC_MSG_RESULT([${ac_cv_c_tkh}]) - fi - - # Convert to a native path and substitute into the output files. - - INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tkh}` - - TK_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" - - AC_SUBST(TK_INCLUDES) - - if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then - # On Windows and Aqua, we need the X compat headers - AC_MSG_CHECKING([for X11 header files]) - if test ! -r "${INCLUDE_DIR_NATIVE}/X11/Xlib.h"; then - INCLUDE_DIR_NATIVE="`${CYGPATH} ${TK_SRC_DIR}/xlib`" - TK_XINCLUDES=-I\"${INCLUDE_DIR_NATIVE}\" - AC_SUBST(TK_XINCLUDES) - fi - AC_MSG_RESULT([${INCLUDE_DIR_NATIVE}]) - fi -]) - -#------------------------------------------------------------------------ -# TEA_PATH_CONFIG -- -# -# Locate the ${1}Config.sh file and perform a sanity check on -# the ${1} compile flags. These are used by packages like -# [incr Tk] that load *Config.sh files from more than Tcl and Tk. -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --with-$1=... -# -# Defines the following vars: -# $1_BIN_DIR Full path to the directory containing -# the $1Config.sh file -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PATH_CONFIG], [ - # - # Ok, lets find the $1 configuration - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-$1 - # - - if test x"${no_$1}" = x ; then - # we reset no_$1 in case something fails here - no_$1=true - AC_ARG_WITH($1, [ --with-$1 directory containing $1 configuration ($1Config.sh)], with_$1config=${withval}) - AC_MSG_CHECKING([for $1 configuration]) - AC_CACHE_VAL(ac_cv_c_$1config,[ - - # First check to see if --with-$1 was specified. - if test x"${with_$1config}" != x ; then - case ${with_$1config} in - */$1Config.sh ) - if test -f ${with_$1config}; then - AC_MSG_WARN([--with-$1 argument should refer to directory containing $1Config.sh, not to $1Config.sh itself]) - with_$1config=`echo ${with_$1config} | sed 's!/$1Config\.sh$!!'` - fi;; - esac - if test -f "${with_$1config}/$1Config.sh" ; then - ac_cv_c_$1config=`(cd ${with_$1config}; pwd)` - else - AC_MSG_ERROR([${with_$1config} directory doesn't contain $1Config.sh]) - fi - fi - - # then check for a private $1 installation - if test x"${ac_cv_c_$1config}" = x ; then - for i in \ - ../$1 \ - `ls -dr ../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ - `ls -dr ../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ - `ls -dr ../$1*[[0-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ - ../../$1 \ - `ls -dr ../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ - `ls -dr ../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ - `ls -dr ../../$1*[[0-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ - ../../../$1 \ - `ls -dr ../../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ - `ls -dr ../../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ - `ls -dr ../../../$1*[[0-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ../../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ - ${srcdir}/../$1 \ - `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \ - `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \ - `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]] 2>/dev/null` \ - `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]* 2>/dev/null` \ - ; do - if test -f "$i/$1Config.sh" ; then - ac_cv_c_$1config=`(cd $i; pwd)` - break - fi - if test -f "$i/unix/$1Config.sh" ; then - ac_cv_c_$1config=`(cd $i/unix; pwd)` - break - fi - done - fi - - # check in a few common install locations - if test x"${ac_cv_c_$1config}" = x ; then - for i in `ls -d ${libdir} 2>/dev/null` \ - `ls -d ${exec_prefix}/lib 2>/dev/null` \ - `ls -d ${prefix}/lib 2>/dev/null` \ - `ls -d /usr/local/lib 2>/dev/null` \ - `ls -d /usr/contrib/lib 2>/dev/null` \ - `ls -d /usr/lib 2>/dev/null` \ - ; do - if test -f "$i/$1Config.sh" ; then - ac_cv_c_$1config=`(cd $i; pwd)` - break - fi - done - fi - ]) - - if test x"${ac_cv_c_$1config}" = x ; then - $1_BIN_DIR="# no $1 configs found" - AC_MSG_WARN([Cannot find $1 configuration definitions]) - exit 0 - else - no_$1= - $1_BIN_DIR=${ac_cv_c_$1config} - AC_MSG_RESULT([found $$1_BIN_DIR/$1Config.sh]) - fi - fi -]) - -#------------------------------------------------------------------------ -# TEA_LOAD_CONFIG -- -# -# Load the $1Config.sh file -# -# Arguments: -# -# Requires the following vars to be set: -# $1_BIN_DIR -# -# Results: -# -# Subst the following vars: -# $1_SRC_DIR -# $1_LIB_FILE -# $1_LIB_SPEC -# -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_LOAD_CONFIG], [ - AC_MSG_CHECKING([for existence of ${$1_BIN_DIR}/$1Config.sh]) - - if test -f "${$1_BIN_DIR}/$1Config.sh" ; then - AC_MSG_RESULT([loading]) - . "${$1_BIN_DIR}/$1Config.sh" - else - AC_MSG_RESULT([file not found]) - fi - - # - # If the $1_BIN_DIR is the build directory (not the install directory), - # then set the common variable name to the value of the build variables. - # For example, the variable $1_LIB_SPEC will be set to the value - # of $1_BUILD_LIB_SPEC. An extension should make use of $1_LIB_SPEC - # instead of $1_BUILD_LIB_SPEC since it will work with both an - # installed and uninstalled version of Tcl. - # - - if test -f "${$1_BIN_DIR}/Makefile" ; then - AC_MSG_WARN([Found Makefile - using build library specs for $1]) - $1_LIB_SPEC=${$1_BUILD_LIB_SPEC} - $1_STUB_LIB_SPEC=${$1_BUILD_STUB_LIB_SPEC} - $1_STUB_LIB_PATH=${$1_BUILD_STUB_LIB_PATH} - fi - - AC_SUBST($1_VERSION) - AC_SUBST($1_BIN_DIR) - AC_SUBST($1_SRC_DIR) - - AC_SUBST($1_LIB_FILE) - AC_SUBST($1_LIB_SPEC) - - AC_SUBST($1_STUB_LIB_FILE) - AC_SUBST($1_STUB_LIB_SPEC) - AC_SUBST($1_STUB_LIB_PATH) -]) - -#------------------------------------------------------------------------ -# TEA_PATH_CELIB -- -# -# Locate Keuchel's celib emulation layer for targeting Win/CE -# -# Arguments: -# none -# -# Results: -# -# Adds the following arguments to configure: -# --with-celib=... -# -# Defines the following vars: -# CELIB_DIR Full path to the directory containing -# the include and platform lib files -#------------------------------------------------------------------------ - -AC_DEFUN([TEA_PATH_CELIB], [ - # First, look for one uninstalled. - # the alternative search directory is invoked by --with-celib - - if test x"${no_celib}" = x ; then - # we reset no_celib in case something fails here - no_celib=true - AC_ARG_WITH(celib,[ --with-celib=DIR use Windows/CE support library from DIR], with_celibconfig=${withval}) - AC_MSG_CHECKING([for Windows/CE celib directory]) - AC_CACHE_VAL(ac_cv_c_celibconfig,[ - # First check to see if --with-celibconfig was specified. - if test x"${with_celibconfig}" != x ; then - if test -d "${with_celibconfig}/inc" ; then - ac_cv_c_celibconfig=`(cd ${with_celibconfig}; pwd)` - else - AC_MSG_ERROR([${with_celibconfig} directory doesn't contain inc directory]) - fi - fi - - # then check for a celib library - if test x"${ac_cv_c_celibconfig}" = x ; then - for i in \ - ../celib-palm-3.0 \ - ../celib \ - ../../celib-palm-3.0 \ - ../../celib \ - `ls -dr ../celib-*3.[[0-9]]* 2>/dev/null` \ - ${srcdir}/../celib-palm-3.0 \ - ${srcdir}/../celib \ - `ls -dr ${srcdir}/../celib-*3.[[0-9]]* 2>/dev/null` \ - ; do - if test -d "$i/inc" ; then - ac_cv_c_celibconfig=`(cd $i; pwd)` - break - fi - done - fi - ]) - if test x"${ac_cv_c_celibconfig}" = x ; then - AC_MSG_ERROR([Cannot find celib support library directory]) - else - no_celib= - CELIB_DIR=${ac_cv_c_celibconfig} - CELIB_DIR=`echo "$CELIB_DIR" | sed -e 's!\\\!/!g'` - AC_MSG_RESULT([found $CELIB_DIR]) - fi - fi -]) - - -# Local Variables: -# mode: autoconf -# End: diff --git a/opengl/Togl2.1-SnapPy/texture.c b/opengl/Togl2.1-SnapPy/texture.c deleted file mode 100644 index 295f36669..000000000 --- a/opengl/Togl2.1-SnapPy/texture.c +++ /dev/null @@ -1,663 +0,0 @@ -/* $Id: texture.c,v 1.14 2007/08/03 16:48:50 gregcouch Exp $ */ - -/* - * Togl - a Tk OpenGL widget - * Copyright (C) 1996-1997 Brian Paul and Ben Bederson - * Copyright (C) 2006-2007 Greg Couch - * See the LICENSE file for copyright details. - */ - - -/* - * An example Togl program demonstrating texture mapping - */ - -#define USE_TOGL_STUBS - -#include "togl.h" -#include -#include -#if defined(TOGL_AGL) -# include -#else -# include -#endif -#include "image.h" - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - -#define CHECKER 0 -#define FACE 1 -#define TREE 2 - - -static GLenum minfilter = GL_NEAREST_MIPMAP_LINEAR; -static GLenum magfilter = GL_LINEAR; -static GLenum swrap = GL_REPEAT; -static GLenum twrap = GL_REPEAT; -static GLenum envmode = GL_MODULATE; -static GLubyte polycolor[4] = { 255, 255, 255, 255 }; -static int teximage = CHECKER; -static double coord_scale = 1; -static double xrot = 0; -static double yrot = 0; -static double texscale = 1; - -static GLint width, height; - -static GLboolean blend = GL_FALSE; - - -/* - * Load a texture image. n is one of CHECKER, FACE or TREE. - */ -static void -texture_image(int n) -{ - if (n == CHECKER) { -#define WIDTH 64 -#define HEIGHT 64 - GLubyte teximage[WIDTH * HEIGHT][4]; - int i, j; - - for (i = 0; i < HEIGHT; i++) { - for (j = 0; j < WIDTH; j++) { - GLubyte value; - - value = ((i / 4 + j / 4) % 2) ? 0xff : 0x00; - teximage[i * WIDTH + j][0] = value; - teximage[i * WIDTH + j][1] = value; - teximage[i * WIDTH + j][2] = value; - teximage[i * WIDTH + j][3] = value; - } - } - - glEnable(GL_TEXTURE_2D); - gluBuild2DMipmaps(GL_TEXTURE_2D, 4, WIDTH, HEIGHT, - GL_RGBA, GL_UNSIGNED_BYTE, teximage); - blend = GL_FALSE; - -#undef WIDTH -#undef HEIGHT - } else if (n == FACE) { - TK_RGBImageRec *img = tkRGBImageLoad("ben.rgb"); - - if (img) { - glEnable(GL_TEXTURE_2D); - glPixelStorei(GL_UNPACK_ALIGNMENT, 1); - gluBuild2DMipmaps(GL_TEXTURE_2D, img->sizeZ, img->sizeX, img->sizeY, - img->sizeZ == 3 ? GL_RGB : GL_RGBA, - GL_UNSIGNED_BYTE, img->data); - - blend = GL_TRUE; - } - } else if (n == TREE) { - TK_RGBImageRec *img = tkRGBImageLoad("tree2.rgba"); - - if (img) { - glEnable(GL_TEXTURE_2D); - glPixelStorei(GL_UNPACK_ALIGNMENT, 1); - gluBuild2DMipmaps(GL_TEXTURE_2D, img->sizeZ, img->sizeX, img->sizeY, - img->sizeZ == 3 ? GL_RGB : GL_RGBA, - GL_UNSIGNED_BYTE, img->data); - - blend = GL_TRUE; - } - } else { - abort(); - } -} - - -/* - * Togl widget create callback. This is called by Tcl/Tk when the widget has - * been realized. Here's where one may do some one-time context setup or - * initializations. - */ -static int -create_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - glEnable(GL_DEPTH_TEST); /* Enable depth buffering */ - - texture_image(CHECKER); - - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, magfilter); - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, minfilter); - - return TCL_OK; -} - - -/* - * Togl widget reshape callback. This is called by Tcl/Tk when the widget - * has been resized. Typically, we call glViewport and perhaps setup the - * projection matrix. - */ -static int -reshape_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - width = Togl_Width(togl); - height = Togl_Height(togl); - - glViewport(0, 0, width, height); - - return TCL_OK; -} - - -static void -check_error(char *where) -{ - GLenum error; - - while (1) { - error = glGetError(); - if (error == GL_NO_ERROR) { - break; - } - printf("OpenGL error near %s: %s\n", where, gluErrorString(error)); - } -} - - - -/* - * Togl widget display callback. This is called by Tcl/Tk when the widget's - * contents have to be redrawn. Typically, we clear the color and depth - * buffers, render our objects, then swap the front/back color buffers. - */ -static int -display_cb(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - float aspect = (float) width / (float) height; - Togl *togl; - - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - check_error("begin display\n"); - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - /* Draw background image */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - - glDisable(GL_TEXTURE_2D); - glDisable(GL_DEPTH_TEST); - glBegin(GL_POLYGON); - glColor3f(0, 0, 0.3f); - glVertex2f(-1, -1); - glColor3f(0, 0, 0.3f); - glVertex2f(1, -1); - glColor3f(0, 0, 0.9f); - glVertex2f(1, 1); - glColor3f(0, 0, 0.9f); - glVertex2f(-1, 1); - glEnd(); - - /* draw textured object */ - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glFrustum(-aspect, aspect, -1, 1, 2, 10); - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - glTranslatef(0, 0, -5); - glScaled(texscale, texscale, texscale); - glRotated(yrot, 0, 1, 0); - glRotated(xrot, 1, 0, 0); - - glEnable(GL_DEPTH_TEST); - glEnable(GL_TEXTURE_2D); - glColor4ubv(polycolor); - - if (blend) { - glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); - glEnable(GL_BLEND); - } - - glBegin(GL_POLYGON); - glTexCoord2f(0, 0); - glVertex2f(-1, -1); - glTexCoord2d(coord_scale, 0); - glVertex2f(1, -1); - glTexCoord2d(coord_scale, coord_scale); - glVertex2f(1, 1); - glTexCoord2d(0, coord_scale); - glVertex2f(-1, 1); - glEnd(); - - glDisable(GL_BLEND); - - Togl_SwapBuffers(togl); - - return TCL_OK; -} - - -/* - * Called when a magnification filter radio button is pressed. - */ -static int -magfilter_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static const char *names[] = { "GL_NEAREST", "GL_LINEAR", NULL }; - static const GLenum magfilters[] = { GL_NEAREST, GL_LINEAR }; - int result, index; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName magnification-filter-type"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - result = Tcl_GetIndexFromObj(interp, objv[2], names, - "magnification filter type", 0, &index); - if (result == TCL_OK) { - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, - magfilters[index]); - Togl_PostRedisplay(togl); - } - return result; -} - - -/* - * Called when a minification filter radio button is pressed. - */ -static int -minfilter_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static const char *names[] = { - "GL_NEAREST", "GL_LINEAR", - "GL_NEAREST_MIPMAP_NEAREST", "GL_LINEAR_MIPMAP_NEAREST", - "GL_NEAREST_MIPMAP_LINEAR", "GL_LINEAR_MIPMAP_LINEAR", NULL - }; - static const GLenum minfilters[] = { - GL_NEAREST, GL_LINEAR, - GL_NEAREST_MIPMAP_NEAREST, GL_LINEAR_MIPMAP_NEAREST, - GL_NEAREST_MIPMAP_LINEAR, GL_LINEAR_MIPMAP_LINEAR - }; - int result, index; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName minification-filter-type"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - result = Tcl_GetIndexFromObj(interp, objv[2], names, - "minification filter type", 0, &index); - if (result == TCL_OK) { - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, - minfilters[index]); - Togl_PostRedisplay(togl); - } - return result; -} - - -static int -xrot_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName angle"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &xrot) != TCL_OK) { - return TCL_ERROR; - } - - Togl_PostRedisplay(togl); - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -static int -yrot_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName angle"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &yrot) != TCL_OK) { - return TCL_ERROR; - } - - Togl_PostRedisplay(togl); - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -static int -texscale_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName value"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &texscale) != TCL_OK) { - return TCL_ERROR; - } - - Togl_PostRedisplay(togl); - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -/* - * Called when S texture coordinate wrapping is changed. - */ -static int -swrap_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static const char *names[] = { "GL_CLAMP", "GL_REPEAT", NULL }; - static const GLenum swraps[] = { GL_CLAMP, GL_REPEAT }; - int result, index; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName wrap-mode"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - result = Tcl_GetIndexFromObj(interp, objv[2], names, - "wrap mode", 0, &index); - if (result == TCL_OK) { - swrap = swraps[index]; - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, swrap); - Togl_PostRedisplay(togl); - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - } - return result; -} - - -/* - * Called when T texture coordinate wrapping is changed. - */ -static int -twrap_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static const char *names[] = { "GL_CLAMP", "GL_REPEAT", NULL }; - static const GLenum twraps[] = { GL_CLAMP, GL_REPEAT }; - int result, index; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName wrap-mode"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - result = Tcl_GetIndexFromObj(interp, objv[2], names, - "wrap mode", 0, &index); - if (result == TCL_OK) { - twrap = twraps[index]; - glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, twrap); - Togl_PostRedisplay(togl); - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - } - return result; -} - - -/* - * Called when the texture environment mode is changed. - */ -static int -envmode_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static const char *names[] = { - "GL_MODULATE", "GL_DECAL", "GL_BLEND", NULL - }; - static const GLenum envmodes[] = { GL_MODULATE, GL_DECAL, GL_BLEND }; - int result, index; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName texture-env-mode"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - result = Tcl_GetIndexFromObj(interp, objv[2], names, - "texture env mode", 0, &index); - if (result == TCL_OK) { - envmode = envmodes[index]; - glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, envmode); - Togl_PostRedisplay(togl); - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - } - return result; -} - - -/* - * Called when the polygon color is changed. - */ -static int -polycolor_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl; - int r, g, b; - - if (objc != 5) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName r g b"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetIntFromObj(interp, objv[2], &r) != TCL_OK - || Tcl_GetIntFromObj(interp, objv[3], &g) != TCL_OK - || Tcl_GetIntFromObj(interp, objv[4], &b) != TCL_OK) { - return TCL_ERROR; - } - polycolor[0] = r; - polycolor[1] = g; - polycolor[2] = b; - - Togl_PostRedisplay(togl); - - return TCL_OK; -} - - -/* - * Called when the texture image is to be changed - */ -static int -teximage_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - static const char *names[] = { - "CHECKER", "FACE", "TREE", NULL - }; - static const GLenum teximages[] = { - CHECKER, FACE, TREE - }; - int result, index; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName texture-image-name"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - result = Tcl_GetIndexFromObj(interp, objv[2], names, - "texture image name", 0, &index); - if (result == TCL_OK) { - teximage = teximages[index]; - texture_image(teximage); - Togl_PostRedisplay(togl); - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - } - return result; -} - - -/* - * Called when the texture coordinate scale is changed. - */ -static int -coord_scale_cmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - double s; - Togl *togl; - - if (objc != 3) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName scale"); - return TCL_ERROR; - } - - if (Togl_GetToglFromObj(interp, objv[1], &togl) != TCL_OK) { - return TCL_ERROR; - } - - if (Tcl_GetDoubleFromObj(interp, objv[2], &s) != TCL_OK) { - return TCL_ERROR; - } - if (s > 0 && s < 10) { - coord_scale = s; - Togl_PostRedisplay(togl); - } - - /* Let result string equal value */ - Tcl_SetObjResult(interp, objv[2]); - return TCL_OK; -} - - -EXTERN int -Texture_Init(Tcl_Interp *interp) -{ - /* - * Initialize Tcl and the Togl widget module. - */ - if (Tcl_InitStubs(interp, "8.1", 0) == NULL - || Togl_InitStubs(interp, "2.0", 0) == NULL) { - return TCL_ERROR; - } - - /* - * Specify the C callback functions for widget creation, display, - * and reshape. - */ - Tcl_CreateObjCommand(interp, "create_cb", create_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "display_cb", display_cb, NULL, NULL); - Tcl_CreateObjCommand(interp, "reshape_cb", reshape_cb, NULL, NULL); - - /* - * Make a new Togl widget command so the Tcl code can set a C variable. - */ - Tcl_CreateObjCommand(interp, "min_filter", minfilter_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "mag_filter", magfilter_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "xrot", xrot_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "yrot", yrot_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "texscale", texscale_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "swrap", swrap_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "twrap", twrap_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "envmode", envmode_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "polycolor", polycolor_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "teximage", teximage_cmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "coord_scale", coord_scale_cmd, NULL, NULL); - - /* - * Call Tcl_CreateCommand for application-specific commands, if - * they weren't already created by the init procedures called above. - */ - - return TCL_OK; -} diff --git a/opengl/Togl2.1-SnapPy/texture.tcl b/opengl/Togl2.1-SnapPy/texture.tcl deleted file mode 100755 index 85067ff24..000000000 --- a/opengl/Togl2.1-SnapPy/texture.tcl +++ /dev/null @@ -1,278 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" - -# $Id: texture.tcl,v 1.8 2007/08/03 16:48:50 gregcouch Exp $ - -# Togl - a Tk OpenGL widget -# Copyright (C) 1996 Brian Paul and Ben Bederson -# Copyright (C) 2006-2007 Greg Couch -# See the LICENSE file for copyright details. - - -# Togl texture map demo - -package provide texture 1.0 - -# add parent directory to path to find Togl's pkgIndex in current directory -if { [file exists pkgIndex.tcl] } { - set auto_path [linsert $auto_path 0 ..] -} -# following load also loads Tk and Togl packages -load [file dirname [info script]]/texture[info sharedlibextension] - -# create ::texture namespace -namespace eval ::texture { -} - -# Called magnification filter changes -proc ::texture::new_magfilter {} { - global magfilter - mag_filter .f1.view $magfilter -} - - -# Called minification filter changes -proc ::texture::new_minfilter {} { - global minfilter - min_filter .f1.view $minfilter -} - - -# Called when texture image radio button changes -proc ::texture::new_image {} { - global image - teximage .f1.view $image -} - - -# Called when texture S wrap button changes -proc ::texture::new_swrap {} { - global swrap - swrap .f1.view $swrap -} - - -# Called when texture T wrap button changes -proc ::texture::new_twrap {} { - global twrap - twrap .f1.view $twrap -} - - -# Called when texture environment radio button selected -proc ::texture::new_env {} { - global envmode - envmode .f1.view $envmode -} - - -# Called when polygon color sliders change -proc ::texture::new_color { foo } { - global poly_red poly_green poly_blue - polycolor .f1.view $poly_red $poly_green $poly_blue -} - - -proc ::texture::new_coord_scale { name element op } { - global coord_scale - coord_scale .f1.view $coord_scale -} - -proc ::texture::take_photo {} { - image create photo teximg - .f1.view takephoto teximg - teximg write image.ppm -format ppm -} - -# Make the widgets -proc ::texture::setup {} { - global magfilter - global minfilter - global image - global swrap - global twrap - global envmode - global poly_red - global poly_green - global poly_blue - global coord_scale - global startx starty # location of mouse when button pressed - global xangle yangle - global xangle0 yangle0 - global texscale texscale0 - - wm title . "Texture Map Options" - - ### Two frames: top half and bottom half - frame .f1 - frame .f2 - - ### The OpenGL window - togl .f1.view -width 250 -height 250 -rgba true -double true -depth true -create create_cb -reshape reshape_cb -display display_cb - - - ### Filter radio buttons - frame .f1.filter -relief ridge -borderwidth 3 - - frame .f1.filter.mag -relief ridge -borderwidth 2 - - label .f1.filter.mag.label -text "Magnification Filter" -anchor w - radiobutton .f1.filter.mag.nearest -text GL_NEAREST -anchor w -variable magfilter -value GL_NEAREST -command ::texture::new_magfilter - radiobutton .f1.filter.mag.linear -text GL_LINEAR -anchor w -variable magfilter -value GL_LINEAR -command ::texture::new_magfilter - - frame .f1.filter.min -relief ridge -borderwidth 2 - - label .f1.filter.min.label -text "Minification Filter" -anchor w - radiobutton .f1.filter.min.nearest -text GL_NEAREST -anchor w -variable minfilter -value GL_NEAREST -command ::texture::new_minfilter - radiobutton .f1.filter.min.linear -text GL_LINEAR -anchor w -variable minfilter -value GL_LINEAR -command ::texture::new_minfilter - radiobutton .f1.filter.min.nearest_mipmap_nearest -text GL_NEAREST_MIPMAP_NEAREST -anchor w -variable minfilter -value GL_NEAREST_MIPMAP_NEAREST -command ::texture::new_minfilter - radiobutton .f1.filter.min.linear_mipmap_nearest -text GL_LINEAR_MIPMAP_NEAREST -anchor w -variable minfilter -value GL_LINEAR_MIPMAP_NEAREST -command ::texture::new_minfilter - radiobutton .f1.filter.min.nearest_mipmap_linear -text GL_NEAREST_MIPMAP_LINEAR -anchor w -variable minfilter -value GL_NEAREST_MIPMAP_LINEAR -command ::texture::new_minfilter - radiobutton .f1.filter.min.linear_mipmap_linear -text GL_LINEAR_MIPMAP_LINEAR -anchor w -variable minfilter -value GL_LINEAR_MIPMAP_LINEAR -command ::texture::new_minfilter - - pack .f1.filter.mag -fill x - pack .f1.filter.mag.label -fill x - pack .f1.filter.mag.nearest -side top -fill x - pack .f1.filter.mag.linear -side top -fill x - - pack .f1.filter.min -fill both -expand true - pack .f1.filter.min.label -side top -fill x - pack .f1.filter.min.nearest -side top -fill x - pack .f1.filter.min.linear -side top -fill x - pack .f1.filter.min.nearest_mipmap_nearest -side top -fill x - pack .f1.filter.min.linear_mipmap_nearest -side top -fill x - pack .f1.filter.min.nearest_mipmap_linear -side top -fill x - pack .f1.filter.min.linear_mipmap_linear -side top -fill x - - - ### Texture coordinate scale and wrapping - frame .f2.coord -relief ridge -borderwidth 3 - frame .f2.coord.scale -relief ridge -borderwidth 2 - label .f2.coord.scale.label -text "Max Texture Coord" -anchor w - entry .f2.coord.scale.entry -textvariable coord_scale - trace variable coord_scale w ::texture::new_coord_scale - - frame .f2.coord.s -relief ridge -borderwidth 2 - label .f2.coord.s.label -text "GL_TEXTURE_WRAP_S" -anchor w - radiobutton .f2.coord.s.repeat -text "GL_REPEAT" -anchor w -variable swrap -value GL_REPEAT -command ::texture::new_swrap - radiobutton .f2.coord.s.clamp -text "GL_CLAMP" -anchor w -variable swrap -value GL_CLAMP -command ::texture::new_swrap - - frame .f2.coord.t -relief ridge -borderwidth 2 - label .f2.coord.t.label -text "GL_TEXTURE_WRAP_T" -anchor w - radiobutton .f2.coord.t.repeat -text "GL_REPEAT" -anchor w -variable twrap -value GL_REPEAT -command ::texture::new_twrap - radiobutton .f2.coord.t.clamp -text "GL_CLAMP" -anchor w -variable twrap -value GL_CLAMP -command ::texture::new_twrap - - pack .f2.coord.scale -fill both -expand true - pack .f2.coord.scale.label -side top -fill x - pack .f2.coord.scale.entry -side top -fill x - - pack .f2.coord.s -fill x - pack .f2.coord.s.label -side top -fill x - pack .f2.coord.s.repeat -side top -fill x - pack .f2.coord.s.clamp -side top -fill x - - pack .f2.coord.t -fill x - pack .f2.coord.t.label -side top -fill x - pack .f2.coord.t.repeat -side top -fill x - pack .f2.coord.t.clamp -side top -fill x - - - ### Texture image radio buttons (just happens to fit into the coord frame) - frame .f2.env -relief ridge -borderwidth 3 - frame .f2.env.image -relief ridge -borderwidth 2 - label .f2.env.image.label -text "Texture Image" -anchor w - radiobutton .f2.env.image.checker -text "Checker" -anchor w -variable image -value CHECKER -command ::texture::new_image - radiobutton .f2.env.image.tree -text "Tree" -anchor w -variable image -value TREE -command ::texture::new_image - radiobutton .f2.env.image.face -text "Face" -anchor w -variable image -value FACE -command ::texture::new_image - pack .f2.env.image -fill x - pack .f2.env.image.label -side top -fill x - pack .f2.env.image.checker -side top -fill x - pack .f2.env.image.tree -side top -fill x - pack .f2.env.image.face -side top -fill x - - - ### Texture Environment - label .f2.env.label -text "GL_TEXTURE_ENV_MODE" -anchor w - radiobutton .f2.env.modulate -text "GL_MODULATE" -anchor w -variable envmode -value GL_MODULATE -command ::texture::new_env - radiobutton .f2.env.decal -text "GL_DECAL" -anchor w -variable envmode -value GL_DECAL -command ::texture::new_env - radiobutton .f2.env.blend -text "GL_BLEND" -anchor w -variable envmode -value GL_BLEND -command ::texture::new_env - pack .f2.env.label -fill x - pack .f2.env.modulate -side top -fill x - pack .f2.env.decal -side top -fill x - pack .f2.env.blend -side top -fill x - - ### Polygon color - frame .f2.color -relief ridge -borderwidth 3 - label .f2.color.label -text "Polygon color" -anchor w - scale .f2.color.red -label Red -from 0 -to 255 -orient horizontal -variable poly_red -command ::texture::new_color - scale .f2.color.green -label Green -from 0 -to 255 -orient horizontal -variable poly_green -command ::texture::new_color - scale .f2.color.blue -label Blue -from 0 -to 255 -orient horizontal -variable poly_blue -command ::texture::new_color - pack .f2.color.label -fill x - pack .f2.color.red -side top -fill x - pack .f2.color.green -side top -fill x - pack .f2.color.blue -side top -fill x - - - ### Main widgets - pack .f1.view -side left -fill both -expand true - pack .f1.filter -side left -fill y - pack .f1 -side top -fill both -expand true - - pack .f2.coord .f2.env -side left -fill both - pack .f2.color -fill x - pack .f2 -side top -fill x - - button .photo -text "Take Photo" -command ::texture::take_photo - pack .photo -expand true -fill both - button .quit -text Quit -command exit - pack .quit -expand true -fill both - - bind .f1.view { - set startx %x - set starty %y - set xangle0 $xangle - set yangle0 $yangle - } - - bind .f1.view { - set xangle [expr $xangle0 + (%x - $startx) / 3.0 ] - set yangle [expr $yangle0 + (%y - $starty) / 3.0 ] - yrot .f1.view $xangle - xrot .f1.view $yangle - } - - bind .f1.view { - set startx %x - set starty %y - set texscale0 $texscale - } - - bind .f1.view { - set q [ expr ($starty - %y) / 400.0 ] - set texscale [expr $texscale0 * exp($q)] - texscale .f1.view $texscale - } - - # set default values: - set minfilter GL_NEAREST_MIPMAP_LINEAR - set magfilter GL_LINEAR - set swrap GL_REPEAT - set twrap GL_REPEAT - set envmode GL_MODULATE - set image CHECKER - set poly_red 255 - set poly_green 255 - set poly_blue 255 - set coord_scale 1.0 - - set xangle 0.0 - set yangle 0.0 - set texscale 1.0 -} - - -# Execution starts here! -if { [info script] == $argv0 } { - ::texture::setup -} diff --git a/opengl/Togl2.1-SnapPy/togl.c b/opengl/Togl2.1-SnapPy/togl.c deleted file mode 100644 index 4e307fa5e..000000000 --- a/opengl/Togl2.1-SnapPy/togl.c +++ /dev/null @@ -1,5113 +0,0 @@ -/* $Id: togl.c,v 1.142 2009/12/23 21:50:49 gregcouch Exp $ */ - -/* vi:set sw=4 expandtab: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -/* - * Currently we support X11, Win32 and Mac OS X only - */ - -#ifdef _MSC_VER -/* - *I don't know why VC++ complains about inconsistent dll linkage, - * but it does not seem to cause a problem. - */ -#pragma warning(disable: 4273) -#endif -#define USE_TOGL_STUB_PROCS -#define GL_SILENCE_DEPRECATION -#include "togl.h" -#if defined(TOGL_NSOPENGL) -# include -# include -#else -# include -#endif -#include -#include -#include - -#ifndef TOGL_USE_FONTS -# define TOGL_USE_FONTS 1 -#endif -#if (TK_MAJOR_VERSION > 8 || TK_MINOR_VERSION > 4) && !defined(TOGL_WGL) -/* X11 and Aqua font technology changed in 8.5 */ -# undef TOGL_USE_FONTS -#endif -#ifndef TOGL_USE_OVERLAY -# if defined(TOGL_X11) || defined(TOGL_WGL) -# define TOGL_USE_OVERLAY 1 -# endif -#endif - -/* Use WIDGREC to cast widgRec or recordPtr arguments */ -#define WIDGREC (char *) - -/*** Windows headers ***/ -#if defined(TOGL_WGL) -# define WIN32_LEAN_AND_MEAN -# include -# undef WIN32_LEAN_AND_MEAN -# include -# ifndef PFD_SUPPORT_COMPOSITION -// for Vista -- not strictly needed because we don't use PFD_SUPPORT_GDI/BITMAP -# define PFD_SUPPORT_COMPOSITION 0x00008000 -# endif -# include -# include -# ifdef _MSC_VER -# include -# else -# ifdef UNICODE -# define StringCchPrintf snwprintf -# else -# define StringCchPrintf snprintf -# endif -# endif - -/*** X Window System headers ***/ -#elif defined(TOGL_X11) -# include -# include -# include /* for XA_RGB_DEFAULT_MAP atom */ -# if !defined(USE_SYSTEM_XMU) -# include "Xmu/StdCmap.h" -# else -# if defined(__vms) -# include /* for XmuLookupStandardColormap */ -# else -# include /* for XmuLookupStandardColormap */ -# endif -# endif -# define GLX_GLXEXT_LEGACY /* include glxext.h separately */ -# include - /* we want the prototype typedefs from glxext.h */ -# undef GLX_VERSION_1_3 -# undef GLX_VERSION_1_4 -# ifdef UNDEF_GET_PROC_ADDRESS -# undef GLX_ARB_get_proc_address -# endif - - /* we want to use glXCreateContextAttribsARB */ -# define GLX_GLXEXT_PROTOTYPES -# include -# ifdef __sgi -# include -# endif -# ifdef HAVE_AUTOSTEREO -# include -# endif - -/*** Mac Carbon headers ***/ -#elif defined(TOGL_AGL) -/* avoid collision with the kernel panic function */ -# undef panic -# define Cursor QDCursor -# include -# undef Cursor -# include /* usa MacDrawable */ -# include -# define Togl_MacOSXGetDrawablePort(togl) TkMacOSXGetDrawablePort((Drawable) ((TkWindow *) togl->TkWin)->privatePtr) - -/*** Mac Cocoa headers ***/ -#elif defined(TOGL_NSOPENGL) -/* avoid collision with the kernel panic function */ -# undef panic -# include -# include /* Use NSOpenGLContext */ -# include /* Use NSView */ -# include /* Use NSRect */ -# include /* Use MacDrawable */ -# include -# define Togl_MacOSXGetDrawablePort(togl) TkMacOSXGetDrawablePort((Drawable) ((TkWindow *) togl->TkWin)->privatePtr) - -#else /* make sure only one platform defined */ -# error Unsupported platform, or confused platform defines... -#endif - -#define NC3D "NVidia Consumer 3D Stereo" - -#ifndef STEREO_BUFFER_NONE -/* From , but we use this constants elsewhere */ -# define STEREO_BUFFER_NONE 0 -# define STEREO_BUFFER_LEFT 1 -# define STEREO_BUFFER_RIGHT 2 -#endif - -/*** Standard C headers ***/ -#include -#include -#include - -#ifdef TOGL_WGL -# include -#endif - -#if TK_MAJOR_VERSION < 8 -# error Sorry Togl requires Tcl/Tk ver 8.0 or higher. -#endif - -#ifdef USE_TCL_STUBS -# if TK_MAJOR_VERSION < 8 || (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION < 1) -# error Sorry stub support requires Tcl/Tk ver 8.1 or higher. -# endif -#endif - -#if defined(TOGL_AGL) -# if TK_MAJOR_VERSION < 8 || (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION < 4) -# error Sorry Mac Aqua version requires Tcl/Tk ver 8.4.0 or higher. -# endif -#endif /* TOGL_AGL */ - -#if defined(TOGL_NSOPENGL) -# if TK_MAJOR_VERSION < 8 || (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION < 6) -# error Sorry Mac Cocoa version requires Tcl/Tk ver 8.6.0 or higher. -# endif -#endif /* TOGL_NSOPENGL */ - -#if defined(TOGL_WGL) && defined(_MSC_VER) -# define snprintf _snprintf -# pragma warning(disable:4995) -#endif - -/* Defaults */ -#define DEFAULT_WIDTH "400" -#define DEFAULT_HEIGHT "400" -#define DEFAULT_IDENT "" -#define DEFAULT_FONTNAME "Courier" -#define DEFAULT_TIME "1" - - -#ifdef TOGL_WGL -/* Maximum size of a logical palette corresponding to a colormap in color index - * mode. */ -# define MAX_CI_COLORMAP_SIZE 4096 -# define MAX_CI_COLORMAP_BITS 12 - -# if TOGL_USE_FONTS != 1 -/* - * copy of TkWinColormap from tkWinInt.h - */ - -typedef struct -{ - HPALETTE palette; /* Palette handle used when drawing. */ - UINT size; /* Number of entries in the palette. */ - int stale; /* 1 if palette needs to be realized, otherwise - * 0. If the palette is stale, then an idle - * handler is scheduled to realize the palette. - */ - Tcl_HashTable refCounts; /* Hash table of palette entry reference counts - * indexed by pixel value. */ -} TkWinColormap; -# else -# include -# endif - -static LRESULT(CALLBACK *tkWinChildProc) (HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam) = NULL; - -# ifndef TK_WIN_CHILD_CLASS_NAME -# define TK_WIN_CHILD_CLASS_NAME "TkChild" -# endif - -#endif /* TOGL_WGL */ - - -#define MAX(a,b) (((a)>(b))?(a):(b)) - -#define TCL_ERR(interp, string) \ - do { \ - Tcl_ResetResult(interp); \ - Tcl_AppendResult(interp, string, NULL); \ - return TCL_ERROR; \ - } while (0) - -#define ALL_EVENTS_MASK \ - (KeyPressMask \ - |KeyReleaseMask \ - |ButtonPressMask \ - |ButtonReleaseMask \ - |EnterWindowMask \ - |LeaveWindowMask \ - |PointerMotionMask \ - |ExposureMask \ - |VisibilityChangeMask \ - |FocusChangeMask \ - |PropertyChangeMask \ - |ColormapChangeMask) - -/* - * The following structure contains pointers to functions used for - * processing the custom "-stereo" option. Copied from tkPanedWindow.c. - */ -static int SetStereo(ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj **value, char *recordPtr, - int internalOffset, char *oldInternalPtr, int flags); -static Tcl_Obj *GetStereo(ClientData clientData, Tk_Window tkwin, - char *recordPtr, int internalOffset); -static void RestoreStereo(ClientData clientData, Tk_Window tkwin, - char *internalPtr, char *oldInternalPtr); - -static Tk_ObjCustomOption stereoOption = { - "stereo", /* name */ - SetStereo, /* setProc */ - GetStereo, /* getProc */ - RestoreStereo, /* restoreProc */ - NULL, /* freeProc */ - 0 -}; - -/* - * The following structure contains pointers to functions used for - * processing the custom "-pixelformat" option. Copied from tkPanedWindow.c. - */ -static int SetWideInt(ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj **value, char *recordPtr, - int internalOffset, char *oldInternalPtr, int flags); -static Tcl_Obj *GetWideInt(ClientData clientData, Tk_Window tkwin, - char *recordPtr, int internalOffset); -static void RestoreWideInt(ClientData clientData, Tk_Window tkwin, - char *internalPtr, char *oldInternalPtr); - -static Tk_ObjCustomOption wideIntOption = { - "wide int", /* name */ - SetWideInt, /* setProc */ - GetWideInt, /* getProc */ - RestoreWideInt, /* restoreProc */ - NULL, /* freeProc */ - 0 -}; - -/* - * The following table defines the legal values for the -profile - * option, which is only used in toglNSOpenGL.c. See togl.h for the - * enum (named profile) which is used for table indices. - */ - -static const char *const profileStrings[] = { - "legacy", "3_2", "4_1", NULL -}; - -/* - * Stuff we initialize on a per package (Togl_Init) basis. - * Since Tcl uses one interpreter per thread, any per-thread - * data goes here. - */ -struct Togl_PackageGlobals -{ - Tk_OptionTable optionTable; /* Used to parse options */ - Togl *toglHead; /* Head of linked list of all Togl widgets */ - int nextContextTag; /* Used to assign similar context tags */ -}; -typedef struct Togl_PackageGlobals Togl_PackageGlobals; - -extern ToglStubs toglStubs; /* should be only non-const global */ - -struct Togl -{ - Togl *Next; /* next in linked list */ - -#if defined(TOGL_WGL) - HGLRC Ctx; /* OpenGL rendering context to be made current */ - HDC tglGLHdc; /* Device context of device that OpenGL calls - * will be drawn on */ - int CiColormapSize; /* (Maximum) size of colormap in color index - * mode */ -#elif defined(TOGL_X11) - GLXContext Ctx; /* Normal planes GLX context */ -#elif defined(TOGL_AGL) - AGLContext Ctx; -#elif defined(TOGL_NSOPENGL) - NSOpenGLContext *Ctx; - NSView *nsview; -#endif - int contextTag; /* all contexts with same tag share display - * lists */ - - XVisualInfo *VisInfo; /* Visual info of the current */ - - Display *display; /* X's token for the window's display. */ - Tk_Window TkWin; /* Tk window structure */ - Tcl_Interp *Interp; /* Tcl interpreter */ - Tcl_Command widgetCmd; /* Token for togl's widget command */ - Togl_PackageGlobals *tpg; /* Used to access globals */ -#ifndef NO_TK_CURSOR - Tk_Cursor Cursor; /* The widget's cursor */ -#endif - int Width, Height; /* Dimensions of window */ - int SetGrid; /* positive is grid size for window manager */ - int TimerInterval; /* Time interval for timer in milliseconds */ - Tcl_TimerToken timerHandler; /* Token for togl's timer handler */ - Bool RgbaFlag; /* configuration flags (ala GLX parameters) */ - int RgbaRed; - int RgbaGreen; - int RgbaBlue; - Bool DoubleFlag; - Bool DepthFlag; - int DepthSize; - Bool AccumFlag; - int AccumRed; - int AccumGreen; - int AccumBlue; - int AccumAlpha; - Bool AlphaFlag; - int AlphaSize; - Bool StencilFlag; - int StencilSize; - Bool PrivateCmapFlag; - Bool OverlayFlag; - int Stereo; - double EyeSeparation; - double Convergence; - GLuint riStencilBit; /* row interleaved stencil bit */ - int AuxNumber; - Bool Indirect; - enum profile profile; -#if defined(TOGL_NSOPENGL) - NSOpenGLPixelFormat *PixelFormat; -#else - Tcl_WideInt PixelFormat; -#endif - int SwapInterval; - Bool MultisampleFlag; - Bool FullscreenFlag; - Bool PbufferFlag; - Bool LargestPbufferFlag; -#if defined(TOGL_X11) - GLXFBConfig fbcfg; /* cache FBConfig for pbuffer creation */ - GLXPbuffer pbuf; -#elif defined(TOGL_WGL) - HPBUFFERARB pbuf; - int pbufferLost; -#elif defined(TOGL_AGL) - AGLPbuffer pbuf; -#elif defined(TOGL_NSOPENGL) - NSOpenGLPixelBuffer *pbuf; -#endif - const char *ShareList; /* name (ident) of Togl to share dlists with */ - const char *ShareContext; /* name (ident) to share OpenGL context with */ - - const char *Ident; /* User's identification string */ - ClientData Client_Data; /* Pointer to user data */ - - Bool UpdatePending; /* Should normal planes be redrawn? */ - - Tcl_Obj *CreateProc; /* Callback when widget is realized */ - Tcl_Obj *DisplayProc; /* Callback when widget is redrawn */ - Tcl_Obj *ReshapeProc; /* Callback when window size changes */ - Tcl_Obj *DestroyProc; /* Callback when widget is destroyed */ - Tcl_Obj *TimerProc; /* Callback when widget is idle */ - - /* Overlay stuff */ -#if defined(TOGL_X11) - GLXContext OverlayCtx; /* Overlay planes OpenGL context */ -#elif defined(TOGL_WGL) - HGLRC tglGLOverlayHglrc; -#endif - - Window OverlayWindow; /* The overlay window, or 0 */ - Tcl_Obj *OverlayDisplayProc; /* Overlay redraw proc */ - Bool OverlayUpdatePending; /* Should overlay be redrawn? */ - Colormap OverlayCmap; /* colormap for overlay is created */ - int OverlayTransparentPixel; /* transparent pixel */ - Bool OverlayIsMapped; - - GLfloat *RedMap; /* Index2RGB Maps for Color index modes */ - GLfloat *GreenMap; - GLfloat *BlueMap; - GLint MapSize; /* = Number of indices in our Togl */ - int currentStereoBuffer; -#ifdef HAVE_AUTOSTEREO - int as_initialized; /* for autostereo package */ - ASHandle ash; /* for autostereo package */ -#endif - int badWindow; /* true when Togl_MakeWindow fails or should - * create a dummy window */ -}; - - -/* - * Prototypes for functions local to this file - */ -static int Togl_ObjCmd(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const *objv); -static void Togl_ObjCmdDelete(ClientData clientData); -static void Togl_EventProc(ClientData clientData, XEvent *eventPtr); -static void Togl_RedisplayProc(ClientData clientData, XEvent *eventPtr); -static Window Togl_MakeWindow(Tk_Window, Window, ClientData); -static void Togl_WorldChanged(ClientData); - -#ifdef MESA_COLOR_HACK -static int get_free_color_cells(Display *display, int screen, - Colormap colormap); -static void free_default_color_cells(Display *display, Colormap colormap); -#endif -static void ToglCmdDeletedProc(ClientData); - -#if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) -static void SetMacBufRect(Togl *togl); -#endif - -#if defined(TOGL_WGL) -# include "toglWGL.c" -#elif defined(TOGL_AGL) -# include "toglAGL.c" -#elif defined(TOGL_NSOPENGL) -# include "toglNSOpenGL.c" -#elif defined(TOGL_X11) -# include "toglGLX.c" -#endif - - -/* - * Setup Togl widget configuration options: - */ - -#define GEOMETRY_MASK 0x1 /* widget geometry */ -#define FORMAT_MASK 0x2 /* pixel format */ -#define CURSOR_MASK 0x4 -#define TIMER_MASK 0x8 -#define OVERLAY_MASK 0x10 -#define SWAP_MASK 0x20 -#define STEREO_MASK 0x40 -#define STEREO_FORMAT_MASK 0x80 - -static Tk_OptionSpec optionSpecs[] = { - {TK_OPTION_PIXELS, "-height", "height", "Height", - DEFAULT_HEIGHT, -1, Tk_Offset(Togl, Height), 0, NULL, - GEOMETRY_MASK}, - {TK_OPTION_PIXELS, "-width", "width", "Width", - DEFAULT_WIDTH, -1, Tk_Offset(Togl, Width), 0, NULL, - GEOMETRY_MASK}, - {TK_OPTION_BOOLEAN, "-rgba", "rgba", "Rgba", - "true", -1, Tk_Offset(Togl, RgbaFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-redsize", "redsize", "RedSize", - "1", -1, Tk_Offset(Togl, RgbaRed), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-greensize", "greensize", "GreenSize", - "1", -1, Tk_Offset(Togl, RgbaGreen), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-bluesize", "bluesize", "BlueSize", - "1", -1, Tk_Offset(Togl, RgbaBlue), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-double", "double", "Double", - "false", -1, Tk_Offset(Togl, DoubleFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-depth", "depth", "Depth", - "false", -1, Tk_Offset(Togl, DepthFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-depthsize", "depthsize", "DepthSize", - "1", -1, Tk_Offset(Togl, DepthSize), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-accum", "accum", "Accum", - "false", -1, Tk_Offset(Togl, AccumFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-accumredsize", "accumredsize", "AccumRedSize", - "1", -1, Tk_Offset(Togl, AccumRed), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-accumgreensize", "accumgreensize", - "AccumGreenSize", - "1", -1, Tk_Offset(Togl, AccumGreen), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-accumbluesize", "accumbluesize", - "AccumBlueSize", - "1", -1, Tk_Offset(Togl, AccumBlue), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-accumalphasize", "accumalphasize", - "AccumAlphaSize", - "1", -1, Tk_Offset(Togl, AccumAlpha), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-alpha", "alpha", "Alpha", - "false", -1, Tk_Offset(Togl, AlphaFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-alphasize", "alphasize", "AlphaSize", - "1", -1, Tk_Offset(Togl, AlphaSize), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-stencil", "stencil", "Stencil", - "false", -1, Tk_Offset(Togl, StencilFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-stencilsize", "stencilsize", "StencilSize", - "1", -1, Tk_Offset(Togl, StencilSize), 0, NULL, FORMAT_MASK}, - {TK_OPTION_INT, "-auxbuffers", "auxbuffers", "AuxBuffers", - "0", -1, Tk_Offset(Togl, AuxNumber), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-privatecmap", "privateCmap", "PrivateCmap", - "false", -1, Tk_Offset(Togl, PrivateCmapFlag), 0, NULL, - FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-overlay", "overlay", "Overlay", - "false", -1, Tk_Offset(Togl, OverlayFlag), 0, NULL, OVERLAY_MASK}, - {TK_OPTION_CUSTOM, "-stereo", "stereo", "Stereo", - "", -1, Tk_Offset(Togl, Stereo), 0, - (ClientData) &stereoOption, STEREO_FORMAT_MASK}, - {TK_OPTION_DOUBLE, "-eyeseparation", "eyeseparation", - "EyeSeparation", - "2.0", -1, Tk_Offset(Togl, EyeSeparation), 0, NULL, STEREO_MASK}, - {TK_OPTION_DOUBLE, "-convergence", "convergence", "Convergence", - "35.0", -1, Tk_Offset(Togl, Convergence), 0, NULL, STEREO_MASK}, -#ifndef NO_TK_CURSOR - {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor", - "", -1, Tk_Offset(Togl, Cursor), TK_OPTION_NULL_OK, NULL, - CURSOR_MASK}, -#endif - {TK_OPTION_INT, "-setgrid", "setGrid", "SetGrid", - "0", -1, Tk_Offset(Togl, SetGrid), 0, NULL, GEOMETRY_MASK}, - {TK_OPTION_INT, "-time", "time", "Time", - DEFAULT_TIME, -1, Tk_Offset(Togl, TimerInterval), 0, NULL, - TIMER_MASK}, - {TK_OPTION_STRING, "-sharelist", "sharelist", "ShareList", - NULL, -1, Tk_Offset(Togl, ShareList), 0, NULL, FORMAT_MASK}, - {TK_OPTION_STRING, "-sharecontext", "sharecontext", - "ShareContext", NULL, - -1, Tk_Offset(Togl, ShareContext), 0, NULL, FORMAT_MASK}, - {TK_OPTION_STRING, "-ident", "ident", "Ident", - DEFAULT_IDENT, -1, Tk_Offset(Togl, Ident), 0, NULL, 0}, - {TK_OPTION_BOOLEAN, "-indirect", "indirect", "Indirect", - "false", -1, Tk_Offset(Togl, Indirect), 0, NULL, FORMAT_MASK}, - {TK_OPTION_CUSTOM, "-pixelformat", "pixelFormat", "PixelFormat", - "0", -1, Tk_Offset(Togl, PixelFormat), 0, - (ClientData) &wideIntOption, FORMAT_MASK}, - {TK_OPTION_INT, "-swapinterval", "swapInterval", "SwapInterval", - "1", -1, Tk_Offset(Togl, SwapInterval), 0, NULL, SWAP_MASK}, -#if 0 - {TK_OPTION_BOOLEAN, "-fullscreen", "fullscreen", "Fullscreen", - "false", -1, Tk_Offset(Togl, FullscreenFlag), 0, NULL, - GEOMETRY_MASK|FORMAT_MASK}, -#endif - {TK_OPTION_BOOLEAN, "-multisample", "multisample", "Multisample", - "false", -1, Tk_Offset(Togl, MultisampleFlag), 0, NULL, - FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-pbuffer", "pbuffer", "Pbuffer", - "false", -1, Tk_Offset(Togl, PbufferFlag), 0, NULL, FORMAT_MASK}, - {TK_OPTION_BOOLEAN, "-largestpbuffer", "largestpbuffer", - "LargestPbuffer", - "false", -1, Tk_Offset(Togl, LargestPbufferFlag), 0, NULL, 0}, - {TK_OPTION_STRING, "-createcommand", "createCommand", - "CallbackCommand", NULL, - Tk_Offset(Togl, CreateProc), -1, TK_OPTION_NULL_OK, NULL, 0}, - {TK_OPTION_SYNONYM, "-create", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-createcommand", 0}, - {TK_OPTION_STRING, "-displaycommand", "displayCommand", - "CallbackCommand", NULL, - Tk_Offset(Togl, DisplayProc), -1, TK_OPTION_NULL_OK, NULL, 0}, - {TK_OPTION_SYNONYM, "-display", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-displaycommand", 0}, - {TK_OPTION_STRING, "-reshapecommand", "reshapeCommand", - "CallbackCommand", NULL, - Tk_Offset(Togl, ReshapeProc), -1, TK_OPTION_NULL_OK, NULL, 0}, - {TK_OPTION_SYNONYM, "-reshape", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-reshapecommand", 0}, - {TK_OPTION_STRING, "-destroycommand", "destroyCommand", - "CallbackCommand", NULL, - Tk_Offset(Togl, DestroyProc), -1, TK_OPTION_NULL_OK, NULL, 0}, - {TK_OPTION_SYNONYM, "-destroy", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-destroycommand", 0}, - {TK_OPTION_STRING, "-timercommand", "timerCommand", - "CallbackCommand", NULL, - Tk_Offset(Togl, TimerProc), -1, TK_OPTION_NULL_OK, NULL, 0}, - {TK_OPTION_SYNONYM, "-timer", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-timercommand", 0}, - {TK_OPTION_STRING, "-overlaydisplaycommand", - "overlaydisplayCommand", "CallbackCommand", NULL, - Tk_Offset(Togl, OverlayDisplayProc), -1, - TK_OPTION_NULL_OK, NULL, OVERLAY_MASK}, - {TK_OPTION_SYNONYM, "-overlaydisplay", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-overlaydisplaycommand", 0}, - {TK_OPTION_STRING_TABLE, "-profile", "profile", "Profile", - "legacy", -1, Tk_Offset(Togl, profile), 0, profileStrings, 0}, - /* Tcl3D backwards compatibility */ - {TK_OPTION_SYNONYM, "-createproc", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-createcommand", 0}, - {TK_OPTION_SYNONYM, "-displayproc", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-displaycommand", 0}, - {TK_OPTION_SYNONYM, "-reshapeproc", NULL, NULL, - NULL, -1, -1, 0, (ClientData) "-reshapecommand", 0}, - /* end Tcl3D compatibility */ - {TK_OPTION_END, NULL, NULL, NULL, NULL, -1, -1, 0, NULL, 0} -}; - -/* - * Add given togl widget to linked list. - */ -static void -AddToList(Togl *t) -{ - t->Next = t->tpg->toglHead; - t->tpg->toglHead = t; -} - -/* - * Remove given togl widget from linked list. - */ -static void -RemoveFromList(Togl *t) -{ - Togl *prev; - Togl *cur; - - for (cur = t->tpg->toglHead, prev = NULL; cur; prev = cur, cur = cur->Next) { - if (t != cur) - continue; - if (prev) { - prev->Next = cur->Next; - } else { - t->tpg->toglHead = cur->Next; - } - break; - } - if (cur) - cur->Next = NULL; -} - -/* - * Return pointer to togl widget given a user identifier string. - */ -static Togl * -FindTogl(Togl *togl, const char *ident) -{ - Togl *t; - - if (ident[0] != '.') { - for (t = togl->tpg->toglHead; t; t = t->Next) { - if (strcmp(t->Ident, ident) == 0) - break; - } - } else { - for (t = togl->tpg->toglHead; t; t = t->Next) { - const char *pathname = Tk_PathName(t->TkWin); - - if (strcmp(pathname, ident) == 0) - break; - } - } - return t; -} - - -/* - * Return pointer to another togl widget with same OpenGL context. - */ -static Togl * -FindToglWithSameContext(const Togl *togl) -{ - Togl *t; - - for (t = togl->tpg->toglHead; t != NULL; t = t->Next) { - if (t == togl) - continue; - if (t->Ctx == togl->Ctx) { - return t; - } - } - return NULL; -} - -#if TOGL_USE_OVERLAY -/* - * Return pointer to another togl widget with same OpenGL overlay context. - */ -static Togl * -FindToglWithSameOverlayContext(const Togl *togl) -{ - Togl *t; - - for (t = togl->tpg->toglHead; t != NULL; t = t->Next) { - if (t == togl) - continue; -# if defined(TOGL_X11) - if (t->OverlayCtx == togl->OverlayCtx) -# elif defined(TOGL_WGL) - if (t->tglGLOverlayHglrc == togl->tglGLOverlayHglrc) -# endif - { - return t; - } - } - return NULL; -} -#endif - -#if defined(TOGL_X11) -/* - * Return an X colormap to use for OpenGL RGB-mode rendering. - * Input: dpy - the X display - * scrnum - the X screen number - * visinfo - the XVisualInfo as returned by glXChooseVisual() - * Return: an X Colormap or 0 if there's a _serious_ error. - */ -static Colormap -get_rgb_colormap(Display *dpy, - int scrnum, const XVisualInfo *visinfo, Tk_Window tkwin) -{ - Atom hp_cr_maps; - Status status; - int numCmaps; - int i; - XStandardColormap *standardCmaps; - Window root = XRootWindow(dpy, scrnum); - Bool using_mesa; - - /* - * First check if visinfo's visual matches the default/root visual. - */ - if (visinfo->visual == Tk_Visual(tkwin)) { - /* use the default/root colormap */ - Colormap cmap; - - cmap = Tk_Colormap(tkwin); -# ifdef MESA_COLOR_HACK - (void) get_free_color_cells(dpy, scrnum, cmap); -# endif - return cmap; - } - - /* - * Check if we're using Mesa. - */ - if (strstr(glXQueryServerString(dpy, scrnum, GLX_VERSION), "Mesa")) { - using_mesa = True; - } else { - using_mesa = False; - } - - /* - * Next, if we're using Mesa and displaying on an HP with the "Color - * Recovery" feature and the visual is 8-bit TrueColor, search for a - * special colormap initialized for dithering. Mesa will know how to - * dither using this colormap. - */ - if (using_mesa) { - hp_cr_maps = XInternAtom(dpy, "_HP_RGB_SMOOTH_MAP_LIST", True); - if (hp_cr_maps -# ifdef __cplusplus - && visinfo->visual->c_class == TrueColor -# else - && visinfo->visual->class == TrueColor -# endif - && visinfo->depth == 8) { - status = XGetRGBColormaps(dpy, root, &standardCmaps, - &numCmaps, hp_cr_maps); - if (status) { - for (i = 0; i < numCmaps; i++) { - if (standardCmaps[i].visualid == visinfo->visual->visualid) { - Colormap cmap = standardCmaps[i].colormap; - - (void) XFree(standardCmaps); - return cmap; - } - } - (void) XFree(standardCmaps); - } - } - } - - /* - * Next, try to find a standard X colormap. - */ -# if !HP && !SUN -# ifndef SOLARIS_BUG - status = XmuLookupStandardColormap(dpy, visinfo->screen, - visinfo->visualid, visinfo->depth, XA_RGB_DEFAULT_MAP, - /* replace */ False, /* retain */ True); - if (status == 1) { - status = XGetRGBColormaps(dpy, root, &standardCmaps, - &numCmaps, XA_RGB_DEFAULT_MAP); - if (status == 1) { - for (i = 0; i < numCmaps; i++) { - if (standardCmaps[i].visualid == visinfo->visualid) { - Colormap cmap = standardCmaps[i].colormap; - - (void) XFree(standardCmaps); - return cmap; - } - } - (void) XFree(standardCmaps); - } - } -# endif -# endif - - /* - * If we get here, give up and just allocate a new colormap. - */ - return XCreateColormap(dpy, root, visinfo->visual, AllocNone); -} -#elif defined(TOGL_WGL) - -/* Code to create RGB palette is taken from the GENGL sample program of Win32 - * SDK */ - -static const unsigned char threeto8[8] = { - 0, 0111 >> 1, 0222 >> 1, 0333 >> 1, 0444 >> 1, 0555 >> 1, 0666 >> 1, 0377 -}; - -static const unsigned char twoto8[4] = { - 0, 0x55, 0xaa, 0xff -}; - -static const unsigned char oneto8[2] = { - 0, 255 -}; - -static const int defaultOverride[13] = { - 0, 3, 24, 27, 64, 67, 88, 173, 181, 236, 247, 164, 91 -}; - -static const PALETTEENTRY defaultPalEntry[20] = { - {0, 0, 0, 0}, - {0x80, 0, 0, 0}, - {0, 0x80, 0, 0}, - {0x80, 0x80, 0, 0}, - {0, 0, 0x80, 0}, - {0x80, 0, 0x80, 0}, - {0, 0x80, 0x80, 0}, - {0xC0, 0xC0, 0xC0, 0}, - - {192, 220, 192, 0}, - {166, 202, 240, 0}, - {255, 251, 240, 0}, - {160, 160, 164, 0}, - - {0x80, 0x80, 0x80, 0}, - {0xFF, 0, 0, 0}, - {0, 0xFF, 0, 0}, - {0xFF, 0xFF, 0, 0}, - {0, 0, 0xFF, 0}, - {0xFF, 0, 0xFF, 0}, - {0, 0xFF, 0xFF, 0}, - {0xFF, 0xFF, 0xFF, 0} -}; - -static unsigned char -ComponentFromIndex(int i, UINT nbits, UINT shift) -{ - unsigned char val; - - val = (unsigned char) (i >> shift); - switch (nbits) { - - case 1: - val &= 0x1; - return oneto8[val]; - - case 2: - val &= 0x3; - return twoto8[val]; - - case 3: - val &= 0x7; - return threeto8[val]; - - default: - return 0; - } -} - -static Colormap -Win32CreateRgbColormap(PIXELFORMATDESCRIPTOR pfd) -{ - TkWinColormap *cmap = (TkWinColormap *) ckalloc(sizeof (TkWinColormap)); - LOGPALETTE *pPal; - int n, i; - - n = 1 << pfd.cColorBits; - pPal = (PLOGPALETTE) LocalAlloc(LMEM_FIXED, sizeof (LOGPALETTE) - + n * sizeof (PALETTEENTRY)); - pPal->palVersion = 0x300; - pPal->palNumEntries = n; - for (i = 0; i < n; i++) { - pPal->palPalEntry[i].peRed = - ComponentFromIndex(i, pfd.cRedBits, pfd.cRedShift); - pPal->palPalEntry[i].peGreen = - ComponentFromIndex(i, pfd.cGreenBits, pfd.cGreenShift); - pPal->palPalEntry[i].peBlue = - ComponentFromIndex(i, pfd.cBlueBits, pfd.cBlueShift); - pPal->palPalEntry[i].peFlags = 0; - } - - /* fix up the palette to include the default GDI palette */ - if ((pfd.cColorBits == 8) - && (pfd.cRedBits == 3) && (pfd.cRedShift == 0) - && (pfd.cGreenBits == 3) && (pfd.cGreenShift == 3) - && (pfd.cBlueBits == 2) && (pfd.cBlueShift == 6)) { - for (i = 1; i <= 12; i++) - pPal->palPalEntry[defaultOverride[i]] = defaultPalEntry[i]; - } - - cmap->palette = CreatePalette(pPal); - LocalFree(pPal); - cmap->size = n; - cmap->stale = 0; - - /* Since this is a private colormap of a fix size, we do not need a valid - * hash table, but a dummy one */ - - Tcl_InitHashTable(&cmap->refCounts, TCL_ONE_WORD_KEYS); - return (Colormap) cmap; -} - -static Colormap -Win32CreateCiColormap(Togl *togl) -{ - /* Create a colormap with size of togl->CiColormapSize and set all entries - * to black */ - - LOGPALETTE logPalette; - TkWinColormap *cmap = (TkWinColormap *) ckalloc(sizeof (TkWinColormap)); - - logPalette.palVersion = 0x300; - logPalette.palNumEntries = 1; - logPalette.palPalEntry[0].peRed = 0; - logPalette.palPalEntry[0].peGreen = 0; - logPalette.palPalEntry[0].peBlue = 0; - logPalette.palPalEntry[0].peFlags = 0; - - cmap->palette = CreatePalette(&logPalette); - cmap->size = togl->CiColormapSize; - ResizePalette(cmap->palette, cmap->size); /* sets new entries to black */ - cmap->stale = 0; - - /* Since this is a private colormap of a fix size, we do not need a valid - * hash table, but a dummy one */ - - Tcl_InitHashTable(&cmap->refCounts, TCL_ONE_WORD_KEYS); - return (Colormap) cmap; -} - -/* ErrorExit is from */ -static void -ErrorExit(LPTSTR lpszFunction) -{ - /* Retrieve the system error message for the last-error code */ - LPTSTR lpMsgBuf; - LPTSTR lpDisplayBuf; - DWORD err = GetLastError(); - - if (err == 0) { - /* The function said it failed, but GetLastError says it didn't, so - * pretend it didn't. */ - return; - } - - FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER - | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, - NULL, err, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), - (LPTSTR) &lpMsgBuf, 0, NULL); - - /* Display the error message and exit the process */ - - lpDisplayBuf = (LPTSTR) LocalAlloc(LMEM_ZEROINIT, - (lstrlen(lpMsgBuf) + lstrlen(lpszFunction) + 40) * sizeof (TCHAR)); - StringCchPrintf(lpDisplayBuf, LocalSize(lpDisplayBuf), - TEXT("%s failed with error %ld: %s"), lpszFunction, err, lpMsgBuf); - MessageBox(NULL, lpDisplayBuf, TEXT("Error"), MB_OK); - - LocalFree(lpMsgBuf); - LocalFree(lpDisplayBuf); - ExitProcess(err); -} -#endif - -/* - * Togl_Init - * - * Called upon system startup to create togl command. - */ -int -Togl_Init(Tcl_Interp *interp) -{ - int major, minor, patchLevel, releaseType; - -#ifdef USE_TCL_STUBS - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { - return TCL_ERROR; - } -#endif -#ifdef USE_TK_STUBS - if (Tk_InitStubs(interp, "8.1", 0) == NULL) { - return TCL_ERROR; - } -#endif - - Tcl_GetVersion(&major, &minor, &patchLevel, &releaseType); - - if (Tcl_CreateObjCommand(interp, "togl", Togl_ObjCmd, NULL, - Togl_ObjCmdDelete) == NULL) { - return TCL_ERROR; - } - - if (Tcl_PkgProvideEx(interp, "Togl", TOGL_VERSION, &toglStubs) != TCL_OK) { - return TCL_ERROR; - } - - return TCL_OK; -} - - -/* - * Togl_CallCallback - * - * Call command with togl widget as only argument - */ - -int -Togl_CallCallback(Togl *togl, Tcl_Obj *cmd) -{ - int result; - Tcl_Obj *objv[3]; - - if (cmd == NULL || togl->widgetCmd == NULL) - return TCL_OK; - - objv[0] = cmd; - Tcl_IncrRefCount(objv[0]); - objv[1] = - Tcl_NewStringObj(Tcl_GetCommandName(togl->Interp, togl->widgetCmd), - -1); - Tcl_IncrRefCount(objv[1]); - objv[2] = NULL; - result = Tcl_EvalObjv(togl->Interp, 2, objv, TCL_EVAL_GLOBAL); - Tcl_DecrRefCount(objv[1]); - Tcl_DecrRefCount(objv[0]); - if (result != TCL_OK) - Tcl_BackgroundError(togl->Interp); - return result; -} - - -/* - * Togl_Timer - * - * Gets called from Tk_CreateTimerHandler. - */ -static void -Togl_Timer(ClientData clientData) -{ - Togl *togl = (Togl *) clientData; - - if (togl->TimerProc) { - if (Togl_CallCallback(togl, togl->TimerProc) != TCL_OK) { - togl->timerHandler = NULL; - return; - } - /* - * Re-register this callback since Tcl/Tk timers are "one-shot". - * That is, after the timer callback is called it not normally - * called again. That's not the behavior we want for Togl. - */ - togl->timerHandler = - Tcl_CreateTimerHandler(togl->TimerInterval, Togl_Timer, - (ClientData) togl); - } -} - - -/* - * Togl_MakeCurrent - * - * Bind the OpenGL rendering context to the specified - * Togl widget. If given a NULL argument, then the - * OpenGL context is released without assigning a new one. - */ - -void -Togl_MakeCurrent(const Togl *togl) -{ -#if defined(TOGL_WGL) - int res = TRUE; - - if (togl == NULL) { - HDC hdc = wglGetCurrentDC(); - - if (hdc != NULL) - res = wglMakeCurrent(hdc, NULL); - } else { - if (togl->pbufferLost) { - Bool keepContext = FindToglWithSameContext(togl) != NULL; - Togl *t = (Togl *) togl; /* conceptually const */ - - if (!keepContext) { - wglDeleteContext(t->Ctx); - } - togl_destroyPbuffer(t); - t->pbuf = togl_createPbuffer(t); - if (!keepContext) { - t->Ctx = wglCreateContext(t->tglGLHdc); - } - } - res = wglMakeCurrent(togl->tglGLHdc, togl->Ctx); - } - if (!res) { - ErrorExit(TEXT("wglMakeCurrent")); - } -#elif defined(TOGL_X11) - Display *display = togl ? togl->display : glXGetCurrentDisplay(); - - if (display) { - GLXDrawable drawable; - - if (!togl) - drawable = None; - else if (togl->PbufferFlag) - drawable = togl->pbuf; - else if (togl->TkWin) - drawable = Tk_WindowId(togl->TkWin); - else - drawable = None; - (void) glXMakeCurrent(display, drawable, drawable ? togl->Ctx : NULL); - } -#elif defined(TOGL_AGL) - if (togl == NULL || togl->Ctx == NULL) { - (void) aglSetCurrentContext(NULL); - } else { - (void) aglSetCurrentContext(togl->Ctx); - if (FindToglWithSameContext(togl) != NULL) { - if (!togl->PbufferFlag) { - AGLDrawable d = Togl_MacOSXGetDrawablePort(togl); - - aglSetDrawable(togl->Ctx, d); - } else { - GLint virtualScreen = aglGetVirtualScreen(togl->Ctx); - - aglSetPBuffer(togl->Ctx, togl->pbuf, 0, 0, virtualScreen); - } - } - } -#elif defined(TOGL_NSOPENGL) - if (togl != NULL && togl->Ctx != NULL) { - [togl->Ctx makeCurrentContext]; - if (FindToglWithSameContext(togl) != NULL) { - if (!togl->PbufferFlag) { - [togl->Ctx setView:togl->nsview]; - } else { - GLint virtualScreen = [togl->Ctx currentVirtualScreen]; - [togl->Ctx setPixelBuffer:togl->pbuf cubeMapFace:0 - mipMapLevel:0 currentVirtualScreen:virtualScreen]; - } - } - } -#endif -} - -/* - * Togl_TakePhoto - * - * Take a photo image of the current OpenGL window. May have problems - * if window is partially obscured, either by other windows or by the - * edges of the display. - */ - -int -Togl_TakePhoto(Togl *togl, Tk_PhotoHandle photo) -{ - GLubyte *buffer; - Tk_PhotoImageBlock photoBlock; - int y, midy; - unsigned char *cp; - int width = togl->Width, height = togl->Height; - - /* - * TIP #116 altered Tk_PhotoPutBlock API to add interp arg that 8.4 - * doesn't have. - * We need to remove that for compiling with 8.4. - */ -#if (TK_MAJOR_VERSION == 8) && (TK_MINOR_VERSION < 5) -# define TK_PHOTOPUTBLOCK(interp, hdl, blk, x, y, w, h, cr) \ - Tk_PhotoPutBlock(hdl, blk, x, y, w, h, cr) -#else -# define TK_PHOTOPUTBLOCK Tk_PhotoPutBlock -#endif - buffer = (GLubyte *) ckalloc(width * height * 4); - photoBlock.pixelPtr = buffer; - photoBlock.width = width; - photoBlock.height = height; - photoBlock.pitch = width * 4; - photoBlock.pixelSize = 4; - photoBlock.offset[0] = 0; - photoBlock.offset[1] = 1; - photoBlock.offset[2] = 2; - photoBlock.offset[3] = 3; - - if (!togl->RgbaFlag) { -#if defined(TOGL_WGL) - /* Due to the lack of a unique inverse mapping from the frame buffer to - * the logical palette we need a translation map from the complete - * logical palette. */ - int n, i; - TkWinColormap *cmap = (TkWinColormap *) Tk_Colormap(togl->TkWin); - LPPALETTEENTRY entry = (LPPALETTEENTRY) malloc(togl->MapSize * - sizeof (PALETTEENTRY)); - - n = GetPaletteEntries(cmap->palette, 0, togl->MapSize, entry); - for (i = 0; i < n; i++) { - togl->RedMap[i] = (GLfloat) (entry[i].peRed / 255.0); - togl->GreenMap[i] = (GLfloat) (entry[i].peGreen / 255.0); - togl->BlueMap[i] = (GLfloat) (entry[i].peBlue / 255.0); - } - free(entry); -#endif /* TOGL_WGL */ - - glPixelMapfv(GL_PIXEL_MAP_I_TO_R, togl->MapSize, togl->RedMap); - glPixelMapfv(GL_PIXEL_MAP_I_TO_G, togl->MapSize, togl->GreenMap); - glPixelMapfv(GL_PIXEL_MAP_I_TO_B, togl->MapSize, togl->BlueMap); - } - - glPushClientAttrib(GL_CLIENT_PIXEL_STORE_BIT); - glPixelStorei(GL_PACK_ALIGNMENT, 4); /* guarantee performance */ - glPixelStorei(GL_PACK_SWAP_BYTES, GL_FALSE); - glPixelStorei(GL_PACK_SKIP_PIXELS, 0); - -#if 1 - glPixelStorei(GL_PACK_ROW_LENGTH, 0); - glPixelStorei(GL_PACK_SKIP_ROWS, 0); - glReadPixels(0, 0, width, height, GL_RGBA, GL_UNSIGNED_BYTE, buffer); - /* Some OpenGL drivers are buggy and return zero for Alpha instead of one - * for RGB pixel formats. If that is happening to you, upgrade your - * graphics driver. */ - - /* OpenGL's origin is bottom-left, Tk Photo image's is top-left, so mirror - * the rows around the middle row. */ - midy = height / 2; - cp = buffer; - for (y = 0; y < midy; ++y) { - int m_y = height - 1 - y; /* mirror y */ - unsigned char *m_cp = buffer + m_y * photoBlock.pitch; - int x; - - for (x = 0; x < photoBlock.pitch; ++x) { - unsigned char c = *cp; - - *cp++ = *m_cp; - *m_cp++ = c; - } - } -#else - /* OpenGL's origin is bottom-left, Tk Photo image's is top-left, so save - * rows in reverse order. */ - glPixelStorei(GL_PACK_ROW_LENGTH, width); - glPixelStorei(GL_PACK_SKIP_ROWS, -1); - glReadPixels(0, 0, width, height, GL_RGBA, GL_UNSIGNED_BYTE, - buffer + width * (height - 1) * 4); -#endif - - TK_PHOTOPUTBLOCK(togl->Interp, photo, &photoBlock, 0, 0, width, height, - TK_PHOTO_COMPOSITE_SET); - - glPopClientAttrib(); /* restore PACK_ALIGNMENT */ - ckfree((char *) buffer); - return TCL_OK; -} - -Bool -Togl_SwapInterval(const Togl *togl, int interval) -{ -#ifdef TOGL_AGL - GLint swapInterval = interval; - - return aglSetInteger(togl->Ctx, AGL_SWAP_INTERVAL, &swapInterval); -#endif -#ifdef TOGL_NSOPENGL - GLint swapInterval = interval; - [togl->Ctx setValues:&swapInterval forParameter:NSOpenGLCPSwapInterval]; - return True; -#endif -#ifdef TOGL_WGL - typedef BOOL (WINAPI *BOOLFuncInt) (int); - typedef const char *(WINAPI *StrFuncHDC) (HDC); - static BOOLFuncInt swapInterval = NULL; - static BOOL initialized = False; - - if (!initialized) { - const char *extensions; - StrFuncHDC getExtensionsString; - - getExtensionsString = (StrFuncHDC) - wglGetProcAddress("wglGetExtensionsStringARB"); - if (getExtensionsString == NULL) - getExtensionsString = (StrFuncHDC) - wglGetProcAddress("wglGetExtensionsStringEXT"); - if (getExtensionsString) { - extensions = getExtensionsString(togl->tglGLHdc); - if (strstr(extensions, "WGL_EXT_swap_control") != NULL) { - swapInterval = - (BOOLFuncInt) wglGetProcAddress("wglSwapIntervalEXT"); - } - } - initialized = True; - } - if (swapInterval) - return swapInterval(interval); - return False; -#endif -#ifdef TOGL_X11 - typedef int (*IntFuncInt) (int); - static IntFuncInt swapInterval = NULL; - static int initialized = False; - - if (!initialized) { - const char *extensions = glXQueryExtensionsString(togl->display, - Tk_ScreenNumber(togl->TkWin)); - - if (strstr(extensions, "GLX_SGI_swap_control") != NULL) { - swapInterval = (IntFuncInt) Togl_GetProcAddr("glXSwapIntervalSGI"); - } else if (strstr(extensions, "GLX_MESA_swap_control") != NULL) { - swapInterval = (IntFuncInt) Togl_GetProcAddr("glXSwapIntervalMESA"); - } - initialized = True; - } - if (swapInterval) - return swapInterval(interval) == 0; - return False; -#endif -} - -#if defined(TOGL_AGL) -/* tell OpenGL which part of the Mac window to render to */ -static void -SetMacBufRect(Togl *togl) -{ - GLint wrect[4]; - Rect r; - MacDrawable *d = ((TkWindow *) togl->TkWin)->privatePtr; - - /* set wrect[0,1] to lower left corner of widget */ - wrect[2] = Tk_Width(togl->TkWin); - wrect[3] = Tk_Height(togl->TkWin); - wrect[0] = d->xOff; - - GetPortBounds(Togl_MacOSXGetDrawablePort(togl), &r); - - wrect[1] = r.bottom - wrect[3] - d->yOff; - - if (togl->FullscreenFlag) { - aglEnable(togl->Ctx, AGL_FS_CAPTURE_SINGLE); - aglSetFullScreen(togl->Ctx, 0, 0, 0, 0); - } else { - aglUpdateContext(togl->Ctx); - } - aglSetInteger(togl->Ctx, AGL_BUFFER_RECT, wrect); - aglEnable(togl->Ctx, AGL_BUFFER_RECT); -} - -static void -ReconfigureCB(CGDirectDisplayID display, CGDisplayChangeSummaryFlags flags, - void *closure) -{ - /* Display reconfiguration callback. Documented as needed by Apple QA1209. - * Updated for 10.3 (and later) to use - * CGDisplayRegisterReconfigurationCallback. */ - Togl *togl = (Togl *) closure; - - if (0 != (flags & kCGDisplayBeginConfigurationFlag)) - return; /* wait until display is reconfigured */ - - SetMacBufRect(togl); - Togl_MakeCurrent(togl); - if (togl->Ctx) { - if (togl->ReshapeProc) { - Togl_CallCallback(togl, togl->ReshapeProc); - } else { - glViewport(0, 0, togl->Width, togl->Height); - } - } -} -#endif - -#if defined(TOGL_NSOPENGL) -/* -TODO: It appears that Tk only makes an NSView for toplevel windows. -Also it looks like NSOpenGL does not have the equivalent of AGL_BUFFER_RECT -that allows opengl drawing to just part of an NSView. So we might need to -create our own NSView for controlling the opengl bounds. -Look at TkMacOSXMakeRealWindowExist() in tkMacOSXWm.c. -*/ - -/* tell OpenGL which part of the Mac window to render to */ -static void -SetMacBufRect(Togl *togl) -{ - Rect r, rt; - NSRect rect; - TkWindow *w = (TkWindow *) togl->TkWin; - TkWindow *t = w->privatePtr->toplevel->winPtr; - - TkMacOSXWinBounds(w, &r); - TkMacOSXWinBounds(t, &rt); - - rect.origin.x = r.left - rt.left; - rect.origin.y = rt.bottom - r.bottom; - rect.size.width = r.right - r.left; - rect.size.height = r.bottom - r.top; - - [togl->nsview setFrame:rect]; - [togl->Ctx update]; - - /* TODO: Support full screen. */ -} - -static void -ReconfigureCB(CGDirectDisplayID display, CGDisplayChangeSummaryFlags flags, - void *closure) -{ - /* Display reconfiguration callback. Documented as needed by Apple QA1209. - * Updated for 10.3 (and later) to use - * CGDisplayRegisterReconfigurationCallback. */ - Togl *togl = (Togl *) closure; - - if (0 != (flags & kCGDisplayBeginConfigurationFlag)) - return; /* wait until display is reconfigured */ - - SetMacBufRect(togl); - Togl_MakeCurrent(togl); - if (togl->Ctx) { - if (togl->ReshapeProc) { - Togl_CallCallback(togl, togl->ReshapeProc); - } else { - glViewport(0, 0, togl->Width, togl->Height); - } - } -} -#endif - -/* - * Called when the widget's contents must be redrawn. Basically, we - * just call the user's render callback function. - * - * Note that the parameter type is ClientData so this function can be - * passed to Tk_DoWhenIdle(). - */ -static void -Togl_Render(ClientData clientData) -{ - Togl *togl = (Togl *) clientData; - - if (togl->DisplayProc) { - Togl_MakeCurrent(togl); - Togl_CallCallback(togl, togl->DisplayProc); - } - togl->UpdatePending = False; -} - - -static void -Togl_RenderOverlay(ClientData clientData) -{ - Togl *togl = (Togl *) clientData; - - if (togl->OverlayFlag && togl->OverlayDisplayProc) { -#if defined(TOGL_WGL) - int res = wglMakeCurrent(togl->tglGLHdc, togl->tglGLOverlayHglrc); - - if (!res) { - ErrorExit(TEXT("wglMakeCurrent overlay")); - } -#elif defined(TOGL_X11) - (void) glXMakeCurrent(Tk_Display(togl->TkWin), - togl->OverlayWindow, togl->OverlayCtx); -#endif /* TOGL_WGL */ - - Togl_CallCallback(togl, togl->OverlayDisplayProc); - } - togl->OverlayUpdatePending = False; -} - - -static int -Togl_EnterStereo(Togl *togl) -{ - if (togl->Stereo == TOGL_STEREO_ROW_INTERLEAVED) { - GLint stencil_bits; - Tk_Window top; - - Togl_MakeCurrent(togl); - glGetIntegerv(GL_STENCIL_BITS, &stencil_bits); - if (stencil_bits == 0) { - Tcl_SetResult(togl->Interp, - "need stencil buffer for row interleaved stereo", - TCL_STATIC); - return False; - } - togl->riStencilBit = 1u << (stencil_bits - 1); - glEnable(GL_STENCIL_TEST); - - /* Need to redraw window when moved between odd and even scanlines, so - * bind to top level window so we're notified when that happens. */ - top = togl->TkWin; - while (!Tk_IsTopLevel(top)) { - top = Tk_Parent(top); - if (top == NULL) - break; - } - if (top) { - Tk_CreateEventHandler(top, StructureNotifyMask, Togl_RedisplayProc, - (ClientData) togl); - } - } - return True; -} - - -static void -Togl_LeaveStereo(Togl *togl, int oldStereo) -{ - switch (oldStereo) { - default: - break; -#ifdef HAVE_AUTOSTEREO - case TOGL_STEREO_NATIVE: - if (togl->ash != -1) { - ASClosedStereoWindow(togl->ash); - togl->ash = -1; - } - break; -#endif -#ifdef __sgi - case TOGL_STEREO_SGIOLDSTYLE: - togl->currentStereoBuffer = STEREO_BUFFER_NONE; - glXWaitGL(); /* sync with GL command stream before calling X - */ - XSGISetStereoBuffer(togl->display, Tk_WindowId(togl->TkWin), - togl->currentStereoBuffer); - glXWaitX(); /* sync with X command stream before calling GL - */ - break; -#endif - case TOGL_STEREO_ROW_INTERLEAVED: - if (togl->riStencilBit) { - Tk_Window top; - - glDisable(GL_STENCIL_TEST); - - /* need to remove previously added top level event handler */ - top = togl->TkWin; - while (!Tk_IsTopLevel(top)) { - top = Tk_Parent(top); - if (top == NULL) - break; - } - if (top) { - Tk_DeleteEventHandler(top, StructureNotifyMask, - Togl_RedisplayProc, (ClientData) togl); - } - } - break; - } -} - - -/* - * See domentation about what can't be changed - */ -static int -Togl_ObjConfigure(Tcl_Interp *interp, Togl *togl, - int objc, Tcl_Obj *const *objv) -{ - Tk_SavedOptions savedOptions; - int error, mask; - int undoMask = 0; - Tcl_Obj *errorResult = NULL; - int oldStereo = togl->Stereo; - int oldWidth = togl->Width; - int oldHeight = togl->Height; - - for (error = 0; error <= 1; ++error, mask = undoMask) { - if (error == 0) { - /* - * Tk_SetOptions parses the command arguments - * and looks for defaults in the resource database. - */ - if (Tk_SetOptions(interp, WIDGREC togl, togl->tpg->optionTable, - objc, objv, togl->TkWin, &savedOptions, &mask) - != TCL_OK) { - /* previous values are restored, so nothing to do */ - return TCL_ERROR; - } - } else { - /* - * Restore options from saved values - */ - errorResult = Tcl_GetObjResult(interp); - Tcl_IncrRefCount(errorResult); - Tk_RestoreSavedOptions(&savedOptions); - } - - if (togl->Ident && togl->Ident[0] == '.') { - Tcl_AppendResult(interp, "Can not set ident to a window path name", - NULL); - continue; - } - - if (togl->FullscreenFlag) { - /* override width and height */ - togl->Width = WidthOfScreen(Tk_Screen(togl->TkWin)); - togl->Height = HeightOfScreen(Tk_Screen(togl->TkWin)); - undoMask |= GEOMETRY_MASK; - } - - if (mask & GEOMETRY_MASK) { - if (!togl->PbufferFlag) { - Togl_WorldChanged((ClientData) togl); - /* Reset width and height so ConfigureNotify - * event will call reshape callback */ - togl->Width = oldWidth; - togl->Height = oldHeight; - undoMask |= GEOMETRY_MASK; - } - } - - if (mask & OVERLAY_MASK) { -#if !TOGL_USE_OVERLAY - if (togl->OverlayFlag) { - Tcl_AppendResult(interp, "Sorry, overlay was disabled", NULL); - continue; - } -#else -# if defined(TOGL_X11) - if (togl->OverlayCtx) -# elif defined(TOGL_WGL) - if (togl->tglGLOverlayHglrc) -# endif - { - /* - * Trying to change existing pixel format/graphics context - */ - Tcl_AppendResult(interp, - "Unable to change overlay pixel format", NULL); - continue; - } -#endif - } - - if (mask & SWAP_MASK) { - if (togl->Ctx) { - /* - * Change existing swap interval - */ - Togl_MakeCurrent(togl); /* TODO: needed? */ - Togl_SwapInterval(togl, togl->SwapInterval); - undoMask |= SWAP_MASK; - } - } - - if (error == 0 && (mask & STEREO_FORMAT_MASK) != 0) { - if (oldStereo == TOGL_STEREO_NATIVE - || togl->Stereo == TOGL_STEREO_NATIVE) { - /* only native stereo affects the visual format */ - mask |= FORMAT_MASK; - } - if (togl->Stereo == TOGL_STEREO_SGIOLDSTYLE) { -#ifndef __sgi - Tcl_AppendResult(interp, - "sgioldstyle: only available on SGI computers", NULL); - continue; -#else - int event, error; - - /* Make sure Display supports SGIStereo */ - if (XSGIStereoQueryExtension(Tk_Display(togl->TkWin), &event, - &error) == False) { - Tcl_AppendResult(interp, - "sgioldstyle: SGIStereo X extension is missing", - NULL); - continue; - } - /* Make sure Window (Screen) supports SGIStereo */ - if (XSGIQueryStereoMode(Tk_Display(togl->TkWin), - Tk_WindowId(Tk_Parent(togl->TkWin))) == - X_STEREO_UNSUPPORTED) { - Tcl_AppendResult(interp, - "sgioldstyle: unsupported by screen", NULL); - continue; - } -#endif - } - } - - if (mask & FORMAT_MASK) { - if (togl->Ctx) { - /* - * Trying to change existing pixel format/graphics context - * TODO: (re)create graphics context - * - * save old graphics context - * try to create new one and share display lists - * if failure, then restore old one - */ - Tcl_AppendResult(interp, "Unable to change pixel format", NULL); - continue; - } - if (togl->ShareContext && togl->ShareList) { - Tcl_AppendResult(interp, - "only one of -sharelist and -sharecontext allowed", - NULL); - continue; - } - if (togl->PbufferFlag && togl->Stereo) { - Tcl_AppendResult(interp, "pbuffer not supported with stereo", - NULL); - continue; - } - if (togl->PbufferFlag && togl->OverlayFlag) { - Tcl_AppendResult(interp, "pbuffer not supported with overlay", - NULL); - continue; - } - if (togl->FullscreenFlag) { -#if defined(TOGL_NSOPENGL) - Tcl_AppendResult(interp, - "Fullscreen not supported with Cocoa Tk", NULL); - continue; -#endif -#ifndef TOGL_AGL -# if TK_MAJOR_VERSION < 8 || (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION < 5) - Tcl_AppendResult(interp, - "Need Tk 8.5 or later for fullscreen support", NULL); - continue; -# endif -#endif - } - /* Whether or not the format is okay is figured out when togl tries - * to create the window. */ -#ifdef MESA_COLOR_HACK - free_default_color_cells(Tk_Display(togl->TkWin), - Tk_Colormap(togl->TkWin)); -#endif - undoMask |= FORMAT_MASK; - } - - if (togl->Ctx) { - if (oldStereo != togl->Stereo) { - /* leaving stereo */ - Togl_LeaveStereo(togl, oldStereo); - if (togl->Stereo && !Togl_EnterStereo(togl)) - continue; - } - } - - if (mask & TIMER_MASK) { - if (togl->timerHandler != NULL) { - Tcl_DeleteTimerHandler(togl->timerHandler); - } - if (togl->TimerProc) { - togl->timerHandler = - Tcl_CreateTimerHandler(togl->TimerInterval, Togl_Timer, - (ClientData) togl); - } - undoMask |= TIMER_MASK; - } - break; - } - - if (error == 0) { - Tk_FreeSavedOptions(&savedOptions); - return TCL_OK; - } else { - Tcl_SetObjResult(interp, errorResult); - Tcl_DecrRefCount(errorResult); - return TCL_ERROR; - } -} - - -static int -Togl_ObjWidget(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl *togl = (Togl *) clientData; - const char *commands[] = { - "cget", "configure", "extensions", - "postredisplay", "render", - "swapbuffers", "makecurrent", "takephoto", - "loadbitmapfont", "unloadbitmapfont", "write", - "uselayer", "showoverlay", "hideoverlay", - "postredisplayoverlay", "renderoverlay", - "existsoverlay", "ismappedoverlay", - "getoverlaytransparentvalue", - "drawbuffer", "clear", "frustum", "ortho", - "numeyes", "contexttag", "copycontextto", - NULL - }; - enum command - { - TOGL_CGET, TOGL_CONFIGURE, TOGL_EXTENSIONS, - TOGL_POSTREDISPLAY, TOGL_RENDER, - TOGL_SWAPBUFFERS, TOGL_MAKECURRENT, TOGL_TAKEPHOTO, - TOGL_LOADBITMAPFONT, TOGL_UNLOADBITMAPFONT, TOGL_WRITE, - TOGL_USELAYER, TOGL_SHOWOVERLAY, TOGL_HIDEOVERLAY, - TOGL_POSTREDISPLAYOVERLAY, TOGL_RENDEROVERLAY, - TOGL_EXISTSOVERLAY, TOGL_ISMAPPEDOVERLAY, - TOGL_GETOVERLAYTRANSPARENTVALUE, - TOGL_DRAWBUFFER, TOGL_CLEAR, TOGL_FRUSTUM, TOGL_ORTHO, - TOGL_NUMEYES, TOGL_CONTEXTTAG, TOGL_COPYCONTEXTTO - }; - int result = TCL_OK; - Tcl_Obj *objPtr; - int index; - - if (objc < 2) { - Tcl_WrongNumArgs(interp, 1, objv, "command ?arg arg ...?"); - return TCL_ERROR; - } - - Tk_Preserve((ClientData) togl); - - result = Tcl_GetIndexFromObj(interp, objv[1], commands, "option", 0, - &index); - - switch (index) { - case TOGL_CGET: - if (objc != 3) { - Tcl_WrongNumArgs(interp, 2, objv, "option"); - result = TCL_ERROR; - break; - } - objPtr = Tk_GetOptionValue(interp, WIDGREC togl, - togl->tpg->optionTable, (objc == 3) ? objv[2] : NULL, - togl->TkWin); - if (objPtr == NULL) { - result = TCL_ERROR; - break; - } - Tcl_SetObjResult(interp, objPtr); - break; - - case TOGL_CONFIGURE: - if (objc <= 3) { - /* - * Return one item if the option is given, - * or return all configuration information - */ - objPtr = Tk_GetOptionInfo(interp, WIDGREC togl, - togl->tpg->optionTable, (objc == 3) ? objv[2] : NULL, - togl->TkWin); - if (objPtr == NULL) { - result = TCL_ERROR; - } else { - Tcl_SetObjResult(interp, objPtr); - } - } else { - /* Execute a configuration change */ - result = Togl_ObjConfigure(interp, togl, objc - 2, objv + 2); - } - break; - - case TOGL_EXTENSIONS: - /* Return a list of OpenGL extensions available */ - /* TODO: -glu for glu extensions, -platform for glx/wgl extensions */ - if (objc == 2) { - const char *extensions; - Tcl_Obj *objPtr; - int length = -1; - - extensions = (const char *) glGetString(GL_EXTENSIONS); - objPtr = Tcl_NewStringObj(extensions, -1); - /* convert to list by asking for its length */ - (void) Tcl_ListObjLength(interp, objPtr, &length); - Tcl_SetObjResult(interp, objPtr); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_POSTREDISPLAY: - /* schedule the widget to be redrawn */ - if (objc == 2) { - Togl_PostRedisplay(togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_RENDER: - /* force the widget to be redrawn */ - if (objc == 2) { - Togl_Render((ClientData) togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_SWAPBUFFERS: - /* force the widget to be redrawn */ - if (objc == 2) { - Togl_SwapBuffers(togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_MAKECURRENT: - /* force the widget to be redrawn */ - if (objc == 2) { - Togl_MakeCurrent(togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_TAKEPHOTO: - { - /* force the widget to be redrawn */ - if (objc != 3) { - Tcl_WrongNumArgs(interp, 2, objv, "name"); - result = TCL_ERROR; - } else { - const char *name; - Tk_PhotoHandle photo; - - name = Tcl_GetStringFromObj(objv[2], NULL); - photo = Tk_FindPhoto(interp, name); - if (photo == NULL) { - Tcl_AppendResult(interp, "image \"", name, - "\" doesn't exist or is not a photo image", NULL); - result = TCL_ERROR; - break; - } - glPushAttrib(GL_PIXEL_MODE_BIT); - if (togl->DoubleFlag) { - glReadBuffer(GL_FRONT); - } - Togl_TakePhoto(togl, photo); - glPopAttrib(); /* restore glReadBuffer */ - } - break; - } - - case TOGL_LOADBITMAPFONT: -#if TOGL_USE_FONTS != 1 - Tcl_AppendResult(interp, "unsupported", NULL); - result = TCL_ERROR; -#else - if (objc >= 3) { - Tcl_Obj *font, *list; - - list = Tcl_NewListObj(objc - 2, objv + 2); - Tcl_IncrRefCount(list); - font = Togl_LoadBitmapFont(togl, Tcl_GetString(list)); - Tcl_DecrRefCount(list); - if (font) { - Tcl_SetObjResult(interp, font); - result = TCL_OK; - } else { - Tcl_AppendResult(interp, "Could not allocate font", NULL); - result = TCL_ERROR; - } - } else { - Tcl_WrongNumArgs(interp, 2, objv, "fontname"); - result = TCL_ERROR; - } -#endif - break; - - case TOGL_UNLOADBITMAPFONT: -#if TOGL_USE_FONTS != 1 - Tcl_AppendResult(interp, "unsupported", NULL); - result = TCL_ERROR; -#else - if (objc == 3) { - result = Togl_UnloadBitmapFont(togl, objv[2]); - } else { - Tcl_WrongNumArgs(interp, 2, objv, "toglfont"); - result = TCL_ERROR; - } -#endif - break; - - case TOGL_WRITE:{ -#if TOGL_USE_FONTS != 1 - Tcl_AppendResult(interp, "unsupported", NULL); - result = TCL_ERROR; -#else - /* Tcl_Obj *toglfont = objv[2]; */ - int wobjc = objc - 3; - Tcl_Obj *const *wobjv = objv + 3; - - while (wobjc > 1) { - const char *name = Tcl_GetStringFromObj(wobjv[0], NULL); - int oc, i; - Tcl_Obj **ov; - double args[4]; - - if (Tcl_ListObjGetElements(NULL, wobjv[1], &oc, &ov) != TCL_OK) { - oc = 0; - } else if (oc <= 4) { - for (i = 0; i < oc; ++i) { - if (Tcl_GetDoubleFromObj(NULL, ov[i], &args[i]) != TCL_OK) { - } - } - } - if (strcmp(name, "-color") == 0) { - if (oc == 4) - glColor4d(args[0], args[1], args[2], args[3]); - else if (oc == 3) - glColor3d(args[0], args[1], args[2]); - else - goto write_usage; - } else if (strcmp(name, "-pos") == 0) { - if (oc == 4) - glRasterPos4d(args[0], args[1], args[2], args[3]); - else if (oc == 3) - glRasterPos3d(args[0], args[1], args[2]); - else if (oc == 2) - glRasterPos2d(args[0], args[1]); - else - goto write_usage; - } else - goto write_usage; - wobjc -= 2; - wobjv += 2; - } - if (wobjc != 1) - goto write_usage; - result = Togl_WriteObj(togl, objv[2], wobjv[0]); - if (result != -1) - result = TCL_OK; - else { - Tcl_AppendResult(interp, "togl write failed", NULL); - result = TCL_ERROR; - } - break; - write_usage: - Tcl_WrongNumArgs(interp, 2, objv, "[-pos {x y [z [w]]}]" - " [-color {r g b [a]}" " string"); - result = TCL_ERROR; -#endif - break; - } - - case TOGL_USELAYER: - if (objc == 3) { - int layer; - - result = Tcl_GetIntFromObj(interp, objv[2], &layer); - if (result == TCL_OK) { - Togl_UseLayer(togl, layer); - } - } else { - Tcl_WrongNumArgs(interp, 2, objv, "layer"); - result = TCL_ERROR; - } - break; - - case TOGL_SHOWOVERLAY: - if (objc == 2) { - Togl_ShowOverlay(togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_HIDEOVERLAY: - if (objc == 2) { - Togl_HideOverlay(togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_POSTREDISPLAYOVERLAY: - if (objc == 2) { - Togl_PostOverlayRedisplay(togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_RENDEROVERLAY: - /* force the overlay to be redrawn */ - if (objc == 2) { - Togl_RenderOverlay((ClientData) togl); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_EXISTSOVERLAY: - if (objc == 2) { - Tcl_SetObjResult(interp, Tcl_NewIntObj(Togl_ExistsOverlay(togl))); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_ISMAPPEDOVERLAY: - if (objc == 2) { - Tcl_SetObjResult(interp, - Tcl_NewIntObj(Togl_IsMappedOverlay(togl))); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_GETOVERLAYTRANSPARENTVALUE: - if (objc == 2) { - Tcl_SetObjResult(interp, - Tcl_NewIntObj(Togl_GetOverlayTransparentValue(togl))); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_DRAWBUFFER: - if (objc != 3) { - Tcl_WrongNumArgs(interp, 2, objv, "mode"); - result = TCL_ERROR; - } else { - int mask; - - result = Tcl_GetIntFromObj(interp, objv[2], &mask); - if (result == TCL_ERROR) - break; - Togl_DrawBuffer(togl, (GLenum) mask); - } - break; - - case TOGL_CLEAR: - if (objc != 3) { - Tcl_WrongNumArgs(interp, 2, objv, "mask"); - result = TCL_ERROR; - } else { - int mask; - - result = Tcl_GetIntFromObj(interp, objv[2], &mask); - if (result == TCL_ERROR) - break; - Togl_Clear(togl, (GLbitfield) mask); - } - break; - - case TOGL_FRUSTUM: - if (objc != 8) { - Tcl_WrongNumArgs(interp, 2, objv, - "left right bottom top near far"); - result = TCL_ERROR; - } else { - double left, right, bottom, top, zNear, zFar; - - if (Tcl_GetDoubleFromObj(interp, objv[2], &left) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[3], - &right) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[4], - &bottom) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[5], - &top) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[6], - &zNear) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[7], - &zFar) == TCL_ERROR) { - result = TCL_ERROR; - break; - } - Togl_Frustum(togl, left, right, bottom, top, zNear, zFar); - } - break; - - case TOGL_ORTHO: - if (objc != 8) { - Tcl_WrongNumArgs(interp, 2, objv, - "left right bottom top near far"); - result = TCL_ERROR; - } else { - double left, right, bottom, top, zNear, zFar; - - if (Tcl_GetDoubleFromObj(interp, objv[2], &left) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[3], - &right) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[4], - &bottom) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[5], - &top) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[6], - &zNear) == TCL_ERROR - || Tcl_GetDoubleFromObj(interp, objv[7], - &zFar) == TCL_ERROR) { - result = TCL_ERROR; - break; - } - Togl_Ortho(togl, left, right, bottom, top, zNear, zFar); - } - break; - - case TOGL_NUMEYES: - if (objc == 2) { - Tcl_SetObjResult(interp, Tcl_NewIntObj(Togl_NumEyes(togl))); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_CONTEXTTAG: - if (objc == 2) { - Tcl_SetObjResult(interp, Tcl_NewIntObj(Togl_ContextTag(togl))); - } else { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } - break; - - case TOGL_COPYCONTEXTTO: - if (objc != 4) { - Tcl_WrongNumArgs(interp, 2, objv, NULL); - result = TCL_ERROR; - } else { - Togl *to; - unsigned int mask; - - if (Togl_GetToglFromObj(togl->Interp, objv[2], &to) == TCL_ERROR - || Tcl_GetIntFromObj(togl->Interp, objv[3], - (int *) &mask) == TCL_ERROR) { - result = TCL_ERROR; - break; - } - result = Togl_CopyContext(togl, to, mask); - } - } - - Tk_Release((ClientData) togl); - return result; -} - -/* - * Togl_ObjCmdDelete - * - * Called when togl command is removed from interpreter. - */ - -static void -Togl_ObjCmdDelete(ClientData clientData) -{ - if (clientData != NULL) { - Togl_PackageGlobals *tpg = (Togl_PackageGlobals *) clientData; - - Tk_DeleteOptionTable(tpg->optionTable); - ckfree((char *) clientData); - } -} - - -/* - * Togl_ObjCmd - * - * Called when Togl is executed - creation of a Togl widget. - * * Creates a new window - * * Creates an 'Togl' data structure - * * Creates an event handler for this window - * * Creates a command that handles this object - * * Configures this Togl for the given arguments - */ -int -Togl_ObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv) -{ - Togl_PackageGlobals *tpg; - Togl *togl; - Tk_Window tkwin; - Tcl_SavedResult saveError; - Tk_ClassProcs procs; - - if (objc <= 1) { - Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?"); - return TCL_ERROR; - } - tpg = (Togl_PackageGlobals *) clientData; - if (tpg == NULL) { - Tcl_CmdInfo info; - const char *name; - - /* - * Initialize the Togl_PackageGlobals for this widget the - * first time a Togl widget is created. The globals are - * saved as our client data. - */ - - tpg = (Togl_PackageGlobals *) ckalloc(sizeof (Togl_PackageGlobals)); - if (tpg == NULL) { - return TCL_ERROR; - } - tpg->nextContextTag = 0; - tpg->optionTable = Tk_CreateOptionTable(interp, optionSpecs); - tpg->toglHead = NULL; - - name = Tcl_GetString(objv[0]); - Tcl_GetCommandInfo(interp, name, &info); - info.objClientData = (ClientData) tpg; - Tcl_SetCommandInfo(interp, name, &info); - } - - /* Create the window. */ - tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp), - Tcl_GetString(objv[1]), NULL); - if (tkwin == NULL) { - return TCL_ERROR; - } - - Tk_SetClass(tkwin, "Togl"); - - /* Create Togl data structure */ - togl = (Togl *) ckalloc(sizeof (Togl)); - if (togl == NULL) { - return TCL_ERROR; - } - - /* initialize Togl data structures values */ - togl->Next = NULL; - togl->Ctx = NULL; -#if defined(TOGL_WGL) - togl->tglGLHdc = NULL; - togl->tglGLOverlayHglrc = NULL; -#elif defined(TOGL_X11) - togl->OverlayCtx = NULL; -#endif - togl->contextTag = 0; - togl->display = Tk_Display(tkwin); - togl->TkWin = tkwin; - togl->Interp = interp; - togl->VisInfo = NULL; - togl->OverlayWindow = None; - togl->OverlayCmap = None; - togl->OverlayTransparentPixel = 0; - togl->OverlayIsMapped = False; - - togl->UpdatePending = False; - togl->OverlayUpdatePending = False; - togl->tpg = tpg; - togl->Client_Data = NULL; - - /* for color index mode photos */ - togl->RedMap = togl->GreenMap = togl->BlueMap = NULL; - togl->MapSize = 0; - -#ifndef NO_TK_CURSOR - togl->Cursor = NULL; -#endif - togl->Width = 0; - togl->Height = 0; - togl->SetGrid = 0; - togl->TimerInterval = 0; - togl->RgbaFlag = True; - togl->RgbaRed = 1; - togl->RgbaGreen = 1; - togl->RgbaBlue = 1; - togl->DoubleFlag = False; - togl->DepthFlag = False; - togl->DepthSize = 1; - togl->AccumFlag = False; - togl->AccumRed = 1; - togl->AccumGreen = 1; - togl->AccumBlue = 1; - togl->AccumAlpha = 1; - togl->AlphaFlag = False; - togl->AlphaSize = 1; - togl->StencilFlag = False; - togl->StencilSize = 1; - togl->OverlayFlag = False; - togl->Stereo = TOGL_STEREO_NONE; - togl->EyeSeparation = 0; - togl->Convergence = 0; - togl->riStencilBit = 0; - togl->AuxNumber = 0; - togl->Indirect = False; - togl->PixelFormat = 0; - togl->SwapInterval = 1; - togl->MultisampleFlag = False; - togl->FullscreenFlag = False; - togl->PbufferFlag = False; - togl->LargestPbufferFlag = False; -#if defined(TOGL_X11) - togl->fbcfg = NULL; - togl->pbuf = NULL; -#elif defined(TOGL_WGL) - togl->pbuf = NULL; - togl->pbufferLost = 0; -#elif defined(TOGL_AGL) - togl->pbuf = NULL; -#elif defined(TOGL_NSOPENGL) - togl->pbuf = NULL; -#endif - - togl->CreateProc = NULL; - togl->DisplayProc = NULL; - togl->ReshapeProc = NULL; - togl->DestroyProc = NULL; - togl->TimerProc = NULL; - togl->timerHandler = NULL; - togl->OverlayDisplayProc = NULL; - togl->ShareList = NULL; - togl->ShareContext = NULL; - togl->Ident = NULL; - togl->PrivateCmapFlag = False; - togl->currentStereoBuffer = STEREO_BUFFER_NONE; -#ifdef HAVE_AUTOSTEREO - togl->as_initialized = False; - togl->ash = -1; -#endif - togl->badWindow = False; - - /* Create command event handler */ - togl->widgetCmd = Tcl_CreateObjCommand(interp, Tk_PathName(tkwin), - Togl_ObjWidget, (ClientData) togl, ToglCmdDeletedProc); - - /* - * Setup the Tk_ClassProcs callbacks to point at our own window creation - * function - */ - procs.size = sizeof(Tk_ClassProcs); - procs.worldChangedProc = Togl_WorldChanged; - procs.createProc = Togl_MakeWindow; - procs.modalProc = NULL; - Tk_SetClassProcs(togl->TkWin, &procs, (ClientData) togl); - - Tk_CreateEventHandler(tkwin, ExposureMask | StructureNotifyMask, - Togl_EventProc, (ClientData) togl); - - /* Configure Togl widget */ - if (Tk_InitOptions(interp, WIDGREC togl, tpg->optionTable, tkwin) != TCL_OK - || Togl_ObjConfigure(interp, togl, objc - 2, objv + 2) != TCL_OK) { - goto error; - } - - /* - * If OpenGL window wasn't already created by Togl_ObjConfigure() we - * create it now. We can tell by checking if the OpenGL context has - * been initialized. - */ - if (!togl->Ctx) { - Tk_MakeWindowExist(togl->TkWin); - if (togl->badWindow) { - goto error; - } - } - Togl_MakeCurrent(togl); - if (togl->contextTag == 0) - togl->contextTag = ++tpg->nextContextTag; - - (void) Togl_SwapInterval(togl, togl->SwapInterval); - - /* If defined, call create callback */ - if (togl->CreateProc) { - if (Togl_CallCallback(togl, togl->CreateProc) != TCL_OK) { - goto error; - } - } -#if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - if (!togl->PbufferFlag) - SetMacBufRect(togl); -#endif - /* If defined, call reshape proc */ - if (togl->ReshapeProc) { - if (Togl_CallCallback(togl, togl->ReshapeProc) != TCL_OK) { - goto error; - } - } else { - glViewport(0, 0, togl->Width, togl->Height); -#if defined(TOGL_X11) - if (togl->OverlayFlag) { - Togl_UseLayer(togl, TOGL_OVERLAY); - glViewport(0, 0, togl->Width, togl->Height); - Togl_UseLayer(togl, TOGL_NORMAL); - } -#endif - } - - if (togl->Stereo && !Togl_EnterStereo(togl)) - goto error; - - Tcl_AppendResult(interp, Tk_PathName(tkwin), NULL); - - /* Add to linked list */ - AddToList(togl); - - return TCL_OK; - - error: - Tcl_SaveResult(interp, &saveError); - togl->badWindow = True; - (void) Tcl_DeleteCommandFromToken(interp, togl->widgetCmd); - Tcl_RestoreResult(interp, &saveError); - Tcl_AppendResult(interp, "\nCouldn't configure togl widget", NULL); - return TCL_ERROR; -} - - -#if TOGL_USE_OVERLAY - -/* - * Do all the setup for overlay planes - * Return: TCL_OK or TCL_ERROR - */ -static int -SetupOverlay(Togl *togl) -{ -# if defined(TOGL_X11) - -# ifdef GLX_TRANSPARENT_TYPE_EXT - static int ovAttributeList[] = { - GLX_BUFFER_SIZE, 2, - GLX_LEVEL, 1, - GLX_TRANSPARENT_TYPE_EXT, GLX_TRANSPARENT_INDEX_EXT, - None - }; -# else - static int ovAttributeList[] = { - GLX_BUFFER_SIZE, 2, - GLX_LEVEL, 1, - None - }; -# endif - - XVisualInfo *visinfo, *oldvisinfo; - TkWindow *winPtr = (TkWindow *) togl->TkWin; - - XSetWindowAttributes swa; - Tcl_HashEntry *hPtr; - int new_flag; - - visinfo = - glXChooseVisual(togl->display, Tk_ScreenNumber(winPtr), - ovAttributeList); - if (!visinfo) { - Tcl_AppendResult(togl->Interp, Tk_PathName(winPtr), - ": No suitable overlay index visual available", NULL); - togl->OverlayCtx = NULL; - togl->OverlayWindow = 0; - togl->OverlayCmap = 0; - return TCL_ERROR; - } -# ifdef GLX_TRANSPARENT_INDEX_EXT - { - int fail = glXGetConfig(togl->display, visinfo, - GLX_TRANSPARENT_INDEX_VALUE_EXT, - &togl->OverlayTransparentPixel); - - if (fail) - togl->OverlayTransparentPixel = 0; /* maybe, maybe ... */ - } -# else - togl->OverlayTransparentPixel = 0; /* maybe, maybe ... */ -# endif - - /* share display lists with normal layer context */ - - oldvisinfo = togl->VisInfo; - togl->VisInfo = visinfo; - togl->OverlayCtx = togl_createGLXContext(togl, togl->Ctx, !togl->Indirect); - togl->VisInfo = oldvisinfo; - - swa.colormap = XCreateColormap(togl->display, - XRootWindow(togl->display, visinfo->screen), - visinfo->visual, AllocNone); - togl->OverlayCmap = swa.colormap; - - swa.border_pixel = 0; - swa.event_mask = ALL_EVENTS_MASK; - togl->OverlayWindow = XCreateWindow(togl->display, - Tk_WindowId(togl->TkWin), 0, 0, - togl->Width, togl->Height, 0, - visinfo->depth, InputOutput, - visinfo->visual, CWBorderPixel | CWColormap | CWEventMask, &swa); - - hPtr = Tcl_CreateHashEntry(&winPtr->dispPtr->winTable, - (const char *) togl->OverlayWindow, &new_flag); - Tcl_SetHashValue(hPtr, winPtr); - - /* XMapWindow(togl->display, togl->OverlayWindow); */ - togl->OverlayIsMapped = False; - - /* Make sure window manager installs our colormap */ - XSetWMColormapWindows(togl->display, togl->OverlayWindow, - &togl->OverlayWindow, 1); - - return TCL_OK; - -# elif defined(TOGL_WGL) || defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - /* not yet implemented on these */ - return TCL_ERROR; -# endif -} - -#endif /* TOGL_USE_OVERLAY */ - - - -#ifdef TOGL_WGL -# define TOGL_CLASS_NAME TEXT("Togl Class") -static Bool ToglClassInitialized = False; - -static LRESULT CALLBACK -Win32WinProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) -{ - LRESULT answer; - Togl *togl = (Togl *) GetWindowLongPtr(hwnd, 0); - - switch (message) { - - case WM_ERASEBKGND: - /* We clear our own window */ - return 1; - - case WM_WINDOWPOSCHANGED: - /* Should be processed by DefWindowProc, otherwise a double buffered - * context is not properly resized when the corresponding window is - * resized. */ - break; - - case WM_DESTROY: - if (togl && togl->TkWin != NULL) { - if (togl->SetGrid > 0) { - Tk_UnsetGrid(togl->TkWin); - } - (void) Tcl_DeleteCommandFromToken(togl->Interp, togl->widgetCmd); - } - break; - - case WM_DISPLAYCHANGE: - if (togl->PbufferFlag && hasARBPbuffer && !togl->pbufferLost) { - queryPbuffer(togl->pbuf, WGL_PBUFFER_LOST_ARB, - &togl->pbufferLost); - } - - default: - return TkWinChildProc(hwnd, message, wParam, lParam); - } - answer = DefWindowProc(hwnd, message, wParam, lParam); - Tcl_ServiceAll(); - return answer; -} - -static const int attributes_3_2[] = { - WGL_CONTEXT_MAJOR_VERSION_ARB, 3, - WGL_CONTEXT_MINOR_VERSION_ARB, 2, - 0 -}; - -static const int attributes_4_1[] = { - WGL_CONTEXT_MAJOR_VERSION_ARB, 4, - WGL_CONTEXT_MINOR_VERSION_ARB, 1, - 0 -}; - -#endif /* TOGL_WGL */ - -/* - * Togl_MakeWindow - * - * Window creation function, invoked as a callback from Tk_MakeWindowExist. - * This is called instead of TkpMakeWindow and must always succeed. - */ -static Window -Togl_MakeWindow(Tk_Window tkwin, Window parent, ClientData instanceData) -{ - Togl *togl = (Togl *) instanceData; - Display *dpy; - Colormap cmap; - int scrnum; - Window window = None; - -#if defined(TOGL_X11) - Bool directCtx = True; - XSetWindowAttributes swa; - int width, height; -#elif defined(TOGL_WGL) - HWND hwnd, parentWin; - DWORD style; - HINSTANCE hInstance; - PIXELFORMATDESCRIPTOR pfd; - int width, height; - Bool createdPbufferDC = False; -#elif defined(TOGL_AGL) -#endif - - if (togl->badWindow) { - TkWindow *winPtr = (TkWindow *) tkwin; - return TkpMakeWindow(winPtr, parent); - } - - /* for color index mode photos */ - if (togl->RedMap) - free(togl->RedMap); - if (togl->GreenMap) - free(togl->GreenMap); - if (togl->BlueMap) - free(togl->BlueMap); - togl->RedMap = togl->GreenMap = togl->BlueMap = NULL; - togl->MapSize = 0; - - dpy = Tk_Display(tkwin); - scrnum = Tk_ScreenNumber(tkwin); - - /* - * Windows and Mac OS X need the window created before OpenGL context - * is created. So do that now and set the window variable. - */ -#if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - { - TkWindow *winPtr = (TkWindow *) tkwin; - - window = TkpMakeWindow(winPtr, parent); - if (!togl->PbufferFlag) - (void) XMapWindow(dpy, window); - } -#elif defined(TOGL_WGL) - hInstance = Tk_GetHINSTANCE(); - if (!ToglClassInitialized) { - WNDCLASS ToglClass; - - ToglClassInitialized = True; - ToglClass.style = CS_HREDRAW | CS_VREDRAW; - ToglClass.cbClsExtra = 0; - ToglClass.cbWndExtra = sizeof (LONG_PTR); /* to save Togl* */ - ToglClass.hInstance = hInstance; - ToglClass.hbrBackground = NULL; - ToglClass.lpszMenuName = NULL; - ToglClass.lpszClassName = TOGL_CLASS_NAME; - ToglClass.lpfnWndProc = Win32WinProc; - ToglClass.hIcon = NULL; - ToglClass.hCursor = NULL; - if (!RegisterClass(&ToglClass)) { - Tcl_SetResult(togl->Interp, - "unable register Togl window class", TCL_STATIC); - goto error; - } - } - - /* duplicate tkpMakeWindow logic from tk8.[45]/win/tkWinWindow.c */ - if (parent != None) { - parentWin = Tk_GetHWND(parent); - style = WS_CHILD | WS_CLIPCHILDREN | WS_CLIPSIBLINGS; - } else { - parentWin = NULL; - style = WS_POPUP | WS_CLIPCHILDREN; - } - if (togl->PbufferFlag) { - width = height = 1; /* TODO: demo code mishaves when set to 1000 */ - } else { - width = togl->Width; - height = togl->Height; - } - hwnd = CreateWindowEx(WS_EX_NOPARENTNOTIFY, TOGL_CLASS_NAME, NULL, style, - 0, 0, width, height, parentWin, NULL, hInstance, NULL); - if (!hwnd) { - char *msg; - DWORD errorcode = GetLastError(); - FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER, - NULL, errorcode, 0, (LPSTR)&msg, 0, NULL); - } - SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, - SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE); - window = Tk_AttachHWND(tkwin, hwnd); - SetWindowLongPtr(hwnd, 0, (LONG_PTR) togl); - if (togl->PbufferFlag) { - ShowWindow(hwnd, SW_HIDE); /* make sure it's hidden */ - } -#endif - - /* - * Figure out which OpenGL context to use - */ -#ifdef TOGL_WGL - togl->tglGLHdc = GetDC(hwnd); -#endif - if (togl->PixelFormat) { -#if defined(TOGL_X11) - XVisualInfo template; - int count = 0; - - template.visualid = togl->PixelFormat; - togl->VisInfo = XGetVisualInfo(dpy, VisualIDMask, &template, &count); - if (togl->VisInfo == NULL) { - Tcl_SetResult(togl->Interp, - "missing visual information", TCL_STATIC); - goto error; - } -#endif - if (!togl_describePixelFormat(togl)) { - Tcl_SetResult(togl->Interp, - "couldn't choose pixel format", TCL_STATIC); - goto error; - } - } else { -#if defined(TOGL_X11) - togl->VisInfo = togl_pixelFormat(togl, scrnum); - if (togl->VisInfo == NULL) -#elif defined(TOGL_WGL) || defined(TOGL_AGL) || defined(TOGL_NSOPENGL) -# ifdef TOGL_WGL - togl->PixelFormat = togl_pixelFormat(togl, hwnd); -# elif defined(TOGL_NSOPENGL) - togl->PixelFormat = (void *)togl_pixelFormat(togl); -# else - togl->PixelFormat = (Tcl_WideInt)togl_pixelFormat(togl); -# endif - if (togl->PixelFormat == 0) -#endif - { - goto error; - } - } -#ifdef TOGL_WGL - if (togl->PbufferFlag) { - togl->pbuf = togl_createPbuffer(togl); - if (togl->pbuf == NULL) { - Tcl_SetResult(togl->Interp, - "couldn't create pbuffer", TCL_STATIC); - goto error; - } - ReleaseDC(hwnd, togl->tglGLHdc); - togl->tglGLHdc = getPbufferDC(togl->pbuf); - createdPbufferDC = True; - } else if (SetPixelFormat(togl->tglGLHdc, (int) togl->PixelFormat, - NULL) == FALSE) { - Tcl_SetResult(togl->Interp, "couldn't set pixel format", - TCL_STATIC); - goto error; - } -#endif -#if defined(TOGL_WGL) || defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - if (togl->VisInfo == NULL) { - /* - * Create a new OpenGL rendering context. And check to share lists. - */ - Visual *visual; - - /* Just for portability, define the simplest visinfo */ - visual = DefaultVisual(dpy, scrnum); - togl->VisInfo = (XVisualInfo *) calloc(1, sizeof (XVisualInfo)); - togl->VisInfo->screen = scrnum; - togl->VisInfo->visual = visual; - togl->VisInfo->visualid = visual->visualid; -# if defined(__cplusplus) || defined(c_plusplus) - togl->VisInfo->c_class = visual->c_class; -# else - togl->VisInfo->class = visual->class; -# endif - togl->VisInfo->depth = visual->bits_per_rgb; - } -#endif - -#if defined(TOGL_X11) - if (togl->Indirect) { - directCtx = False; - } -#endif - - /* - * Create a new OpenGL rendering context. - */ -#if defined(TOGL_X11) - if (togl->ShareList) { - /* share display lists with existing togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareList); - GLXContext shareCtx; - int error_code; - - if (shareWith) { - shareCtx = shareWith->Ctx; - togl->contextTag = shareWith->contextTag; - } else { - shareCtx = None; - } - if (shareCtx) { - togl_SetupXErrorHandler(); - } - togl->Ctx = togl_createGLXContext(togl, shareCtx, directCtx); - if (shareCtx && (error_code = togl_CheckForXError(togl))) { - char buf[256]; - - togl->Ctx = NULL; - XGetErrorText(dpy, error_code, buf, sizeof buf); - Tcl_AppendResult(togl->Interp, - "unable to share display lists: ", buf, NULL); - goto error; - } - } else { - if (togl->ShareContext && FindTogl(togl, togl->ShareContext)) { - /* share OpenGL context with existing Togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareContext); - - if (togl->VisInfo->visualid != shareWith->VisInfo->visualid) { - Tcl_SetResult(togl->Interp, - "unable to share OpenGL context", - TCL_STATIC); - goto error; - } - togl->Ctx = shareWith->Ctx; - } else { - /* don't share display lists */ - togl->ShareContext = False; - togl->Ctx = togl_createGLXContext(togl, None, directCtx); - } - } -#elif defined(TOGL_WGL) - if (togl->ShareContext && FindTogl(togl, togl->ShareContext)) { - /* share OpenGL context with existing Togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareContext); - - if (togl->PixelFormat != shareWith->PixelFormat) { - Tcl_SetResult(togl->Interp, - "unable to share OpenGL context", TCL_STATIC); - goto error; - } - togl->Ctx = shareWith->Ctx; - } else { - switch(togl->profile) { - case PROFILE_3_2: - if (createContextAttribs) { - togl->Ctx = createContextAttribs( - togl->tglGLHdc, 0, attributes_3_2); - } else { - fprintf(stderr, - "Unable to use wglCreateContextAttribsARB to create " - "OpenGL 3.2 context, falling back to " - "wglCreateContext."); - togl->Ctx = wglCreateContext(togl->tglGLHdc); - } - break; - case PROFILE_4_1: - if (createContextAttribs) { - togl->Ctx = createContextAttribs( - togl->tglGLHdc, 0, attributes_4_1); - } else { - fprintf(stderr, - "Unable to use wglCreateContextAttribsARB to create " - "OpenGL 4.1 context, falling back to " - "wglCreateContext."); - togl->Ctx = wglCreateContext(togl->tglGLHdc); - } - break; - default: - togl->Ctx = wglCreateContext(togl->tglGLHdc); - break; - } - } - - if (togl->ShareList) { - /* share display lists with existing togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareList); - - if (shareWith) { - if (!wglShareLists(shareWith->Ctx, togl->Ctx)) { -# if 0 - LPVOID lpMsgBuf; - DWORD err = GetLastError(); - - FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | - FORMAT_MESSAGE_FROM_SYSTEM, - NULL, err, - MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), - (LPTSTR) &lpMsgBuf, 0, NULL); - fprintf(stderr, "unable to share display lists: %d: %s\n", - err, lpMsgBuf); - LocalFree(lpMsgBuf); -# endif - Tcl_SetResult(togl->Interp, - "unable to share display lists", TCL_STATIC); - goto error; - } - togl->contextTag = shareWith->contextTag; - } - } -#elif defined(TOGL_AGL) - AGLContext shareCtx = NULL; - - if (togl->ShareList) { - /* share display lists with existing togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareList); - - if (shareWith) { - shareCtx = shareWith->Ctx; - togl->contextTag = shareWith->contextTag; - } - } - if (togl->ShareContext && FindTogl(togl, togl->ShareContext)) { - /* share OpenGL context with existing Togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareContext); - - if (togl->PixelFormat != shareWith->PixelFormat) { - Tcl_SetResult(togl->Interp, - "unable to share OpenGL context", TCL_STATIC); - goto error; - } - togl->Ctx = shareWith->Ctx; - } else if ((togl->Ctx = aglCreateContext((AGLPixelFormat) togl->PixelFormat, - shareCtx)) == NULL) { - GLenum err = aglGetError(); - - aglDestroyPixelFormat((AGLPixelFormat) togl->PixelFormat); - togl->PixelFormat = 0; - if (err == AGL_BAD_MATCH) - Tcl_SetResult(togl->Interp, - "unable to share display lists" - ": shared context doesn't match", TCL_STATIC); - else if (err == AGL_BAD_CONTEXT) - Tcl_SetResult(togl->Interp, - "unable to share display lists" - ": bad shared context", TCL_STATIC); - else if (err == AGL_BAD_PIXELFMT) - Tcl_SetResult(togl->Interp, - "could not create rendering context" - ": bad pixel format", TCL_STATIC); - else - Tcl_SetResult(togl->Interp, - "could not create rendering context" - ": unknown reason", TCL_STATIC); - goto error; - } - - if (!togl->PbufferFlag - && !aglSetDrawable(togl->Ctx, Togl_MacOSXGetDrawablePort(togl))) { - /* aglSetDrawable is deprecated in OS X 10.5 */ - aglDestroyContext(togl->Ctx); - togl->Ctx = NULL; - aglDestroyPixelFormat((AGLPixelFormat) togl->PixelFormat); - togl->PixelFormat = 0; - Tcl_SetResult(togl->Interp, - "couldn't set drawable", TCL_STATIC); - goto error; - } -#elif defined(TOGL_NSOPENGL) - NSOpenGLContext *shareCtx = NULL; - if (togl->ShareList) { - /* share display lists with existing togl widget */ - Togl *shareWith = FindTogl(togl, togl->ShareList); - - if (shareWith) { - shareCtx = shareWith->Ctx; - togl->contextTag = shareWith->contextTag; - } - } - if (togl->ShareContext && FindTogl(togl, togl->ShareContext)) { - /* share OpenGL context with existing Togl widget */ - Tcl_SetResult(togl->Interp, - "unable to share NSOpenGL context", TCL_STATIC); - goto error; - /* - Togl *shareWith = FindTogl(togl, togl->ShareContext); - - if (togl->PixelFormat != shareWith->PixelFormat) { - Tcl_SetResult(togl->Interp, - "unable to share OpenGL context", TCL_STATIC); - goto error; - } - togl->Ctx = [[NSOpenGLContext alloc] initWithCGLContextObj:shareWith->Ctx]; - */ - /* initWithCGLContextObj requires Mac OS 10.6 */ - } else { - togl->Ctx = [NSOpenGLContext alloc]; - if ([togl->Ctx initWithFormat:togl->PixelFormat shareContext:shareCtx] - == nil) - { - [togl->PixelFormat release]; - togl->PixelFormat = 0; - Tcl_SetResult(togl->Interp, - "Could not obtain OpenGL context", - TCL_STATIC); - goto error; - } - } - - if (!togl->PbufferFlag) { - togl->nsview = [[NSView alloc] initWithFrame:NSZeroRect]; - [togl->nsview setWantsBestResolutionOpenGLSurface:NO]; - MacDrawable *d = ((TkWindow *) togl->TkWin)->privatePtr; - NSView *topview = d->toplevel->view; - [topview addSubview:togl->nsview]; - /* TODO: Appears setView has to be deferred until window mapped. - * or it gives "invalid drawable" error. But MapNotify doesn't happen. - * I think toplevel is already mapped. Iconifying and uniconifying - * main window makes the graphics work. - */ - /* [togl->Ctx setView:togl->nsview];*/ - } -#endif - - if (togl->Ctx == NULL) { - Tcl_SetResult(togl->Interp, - "could not create rendering context", TCL_STATIC); - goto error; - } -#if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - CGDisplayRegisterReconfigurationCallback(ReconfigureCB, togl); -#endif - - if (togl->PbufferFlag) { - /* Don't need a colormap, nor overlay, nor be displayed */ -#if defined(TOGL_X11) || defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - togl->pbuf = togl_createPbuffer(togl); - if (!togl->pbuf) { - /* tcl result set in togl_createPbuffer */ -# ifdef TOGL_AGL - if (!togl->ShareContext) { - aglDestroyContext(togl->Ctx); - aglDestroyPixelFormat((AGLPixelFormat) togl->PixelFormat); - } - togl->Ctx = NULL; - togl->PixelFormat = 0; -# endif -# ifdef TOGL_NSOPENGL - if (!togl->ShareContext) { - [togl->Ctx release]; - [togl->PixelFormat release]; - } - togl->Ctx = NULL; - togl->PixelFormat = 0; -# endif - goto error; - } -# ifdef TOGL_X11 - window = TkpMakeWindow((TkWindow *) tkwin, parent); -# endif -#endif - return window; - } -#ifdef TOGL_WGL - DescribePixelFormat(togl->tglGLHdc, (int) togl->PixelFormat, sizeof (pfd), - &pfd); -#endif - - /* - * find a colormap - */ - if (togl->RgbaFlag) { - /* Colormap for RGB mode */ -#if defined(TOGL_X11) - cmap = get_rgb_colormap(dpy, scrnum, togl->VisInfo, tkwin); -#elif defined(TOGL_WGL) - if (pfd.dwFlags & PFD_NEED_PALETTE) { - cmap = Win32CreateRgbColormap(pfd); - } else { - cmap = DefaultColormap(dpy, scrnum); - } -#elif defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - cmap = DefaultColormap(dpy, scrnum); -#endif - } else { - /* Colormap for CI mode */ -#ifdef TOGL_WGL - /* this logic is to overcome a combination driver/compiler bug: (1) - * cColorBits may be unusally large (e.g., 32 instead of 8 or 12) and - * (2) 1 << 32 might be 1 instead of zero (gcc for ia32) */ - if (pfd.cColorBits >= MAX_CI_COLORMAP_BITS) { - togl->CiColormapSize = MAX_CI_COLORMAP_SIZE; - } else { - togl->CiColormapSize = 1 << pfd.cColorBits; - if (togl->CiColormapSize >= MAX_CI_COLORMAP_SIZE) - togl->CiColormapSize = MAX_CI_COLORMAP_SIZE; - } - -#endif - if (togl->PrivateCmapFlag) { - /* need read/write colormap so user can store own color entries */ -#if defined(TOGL_X11) - cmap = XCreateColormap(dpy, XRootWindow(dpy, togl->VisInfo->screen), - togl->VisInfo->visual, AllocAll); -#elif defined(TOGL_WGL) - cmap = Win32CreateCiColormap(togl); -#elif defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - /* need to figure out how to do this correctly on Mac... */ - cmap = DefaultColormap(dpy, scrnum); -#endif - } else { - if (togl->VisInfo->visual == DefaultVisual(dpy, scrnum)) { - /* share default/root colormap */ - cmap = Tk_Colormap(tkwin); - } else { - /* make a new read-only colormap */ - cmap = XCreateColormap(dpy, - XRootWindow(dpy, togl->VisInfo->screen), - togl->VisInfo->visual, AllocNone); - } - } - } - - /* Make sure Tk knows to switch to the new colormap when the cursor is over - * this window when running in color index mode. */ - (void) Tk_SetWindowVisual(tkwin, togl->VisInfo->visual, - togl->VisInfo->depth, cmap); - -#ifdef TOGL_WGL - /* Install the colormap */ - SelectPalette(togl->tglGLHdc, ((TkWinColormap *) cmap)->palette, TRUE); - RealizePalette(togl->tglGLHdc); -#endif - -#if defined(TOGL_X11) - swa.background_pixmap = None; - swa.border_pixel = 0; - swa.colormap = cmap; - swa.event_mask = ALL_EVENTS_MASK; - if (togl->PbufferFlag) { - width = height = 1; - } else { - width = togl->Width; - height = togl->Height; - } - window = XCreateWindow(dpy, parent, - 0, 0, width, height, - 0, togl->VisInfo->depth, InputOutput, togl->VisInfo->visual, - CWBackPixmap | CWBorderPixel | CWColormap | CWEventMask, &swa); - /* Make sure window manager installs our colormap */ - (void) XSetWMColormapWindows(dpy, window, &window, 1); - - if (!togl->DoubleFlag) { - int dbl_flag; - - /* See if we requested single buffering but had to accept a double - * buffered visual. If so, set the GL draw buffer to be the front - * buffer to simulate single buffering. */ - if (glXGetConfig(dpy, togl->VisInfo, GLX_DOUBLEBUFFER, &dbl_flag)) { - if (dbl_flag) { - glXMakeCurrent(dpy, window, togl->Ctx); - glDrawBuffer(GL_FRONT); - glReadBuffer(GL_FRONT); - } - } - } -#elif defined(TOGL_WGL) - if (!togl->DoubleFlag) { - /* See if we requested single buffering but had to accept a double - * buffered visual. If so, set the GL draw buffer to be the front - * buffer to simulate single buffering. */ - if (getPixelFormatAttribiv == NULL) { - /* pfd is already set */ - if ((pfd.dwFlags & PFD_DOUBLEBUFFER) != 0) { - wglMakeCurrent(togl->tglGLHdc, togl->Ctx); - glDrawBuffer(GL_FRONT); - glReadBuffer(GL_FRONT); - } - } else { - static int attribs[] = { - WGL_DOUBLE_BUFFER_ARB, - }; -# define NUM_ATTRIBS (sizeof attribs / sizeof attribs[0]) - int info[NUM_ATTRIBS]; - - getPixelFormatAttribiv(togl->tglGLHdc, (int) togl->PixelFormat, 0, - NUM_ATTRIBS, attribs, info); -# undef NUM_ATTRIBS - if (info[0]) { - wglMakeCurrent(togl->tglGLHdc, togl->Ctx); - glDrawBuffer(GL_FRONT); - glReadBuffer(GL_FRONT); - } - } - } -#endif - -#if TOGL_USE_OVERLAY - if (togl->OverlayFlag) { - if (SetupOverlay(togl) == TCL_ERROR) { - fprintf(stderr, "Warning: couldn't setup overlay.\n"); - togl->OverlayFlag = False; - } - } -#endif - -#if !defined(TOGL_AGL) - /* Request the X window to be displayed */ - (void) XMapWindow(dpy, window); -#endif - - if (!togl->RgbaFlag) { - int index_size; - -#if defined(TOGL_X11) || defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - GLint index_bits; - - glGetIntegerv(GL_INDEX_BITS, &index_bits); - index_size = 1 << index_bits; -#elif defined(TOGL_WGL) - index_size = togl->CiColormapSize; -#endif - if (togl->MapSize != index_size) { - if (togl->RedMap) - free(togl->RedMap); - if (togl->GreenMap) - free(togl->GreenMap); - if (togl->BlueMap) - free(togl->BlueMap); - togl->MapSize = index_size; - togl->RedMap = (GLfloat *) calloc(index_size, sizeof (GLfloat)); - togl->GreenMap = (GLfloat *) calloc(index_size, sizeof (GLfloat)); - togl->BlueMap = (GLfloat *) calloc(index_size, sizeof (GLfloat)); - } - } -#ifdef HAVE_AUTOSTEREO - if (togl->Stereo == TOGL_STEREO_NATIVE) { - if (!togl->as_initialized) { - const char *autostereod; - - togl->as_initialized = True; - if ((autostereod = getenv("AUTOSTEREOD")) == NULL) - autostereod = AUTOSTEREOD; - if (autostereod && *autostereod) { - if (ASInitialize(togl->display, autostereod) == Success) { - togl->ash = ASCreatedStereoWindow(dpy); - } - } - } else { - togl->ash = ASCreatedStereoWindow(dpy); - } - } -#endif - - return window; - - error: - - togl->badWindow = True; - -#if defined(TOGL_X11) - if (window == None) { - TkWindow *winPtr = (TkWindow *) tkwin; - - window = TkpMakeWindow(winPtr, parent); - } -#elif defined(TOGL_WGL) - if (togl->tglGLHdc) { - if (createdPbufferDC) - releasePbufferDC(togl->pbuf, togl->tglGLHdc); - else - ReleaseDC(hwnd, togl->tglGLHdc); - togl->tglGLHdc = NULL; - } -#endif - return window; -} - -/* - * Togl_WorldChanged - * - * Add support for setgrid option. - */ -static void -Togl_WorldChanged(ClientData instanceData) -{ - Togl *togl = (Togl *) instanceData; - int width; - int height; - - if (togl->PbufferFlag) - width = height = 1; - else { - width = togl->Width; - height = togl->Height; - } - Tk_GeometryRequest(togl->TkWin, width, height); - Tk_SetInternalBorder(togl->TkWin, 0); - if (togl->SetGrid > 0) { - Tk_SetGrid(togl->TkWin, width / togl->SetGrid, - height / togl->SetGrid, togl->SetGrid, togl->SetGrid); - } else { - Tk_UnsetGrid(togl->TkWin); - } -} - -/* - * ToglFree - * - * Wrap the ckfree macro. - */ -static void -ToglFree(char *clientData) -{ - ckfree(clientData); -} - -/* - * ToglCmdDeletedProc - * - * This procedure is invoked when a widget command is deleted. If - * the widget isn't already in the process of being destroyed, - * this command destroys it. - * - * Results: - * None. - * - * Side effects: - * The widget is destroyed. - * - *---------------------------------------------------------------------- - */ -static void -ToglCmdDeletedProc(ClientData clientData) -{ - Togl *togl = (Togl *) clientData; - Tk_Window tkwin = togl->TkWin; - - /* - * This procedure could be invoked either because the window was - * destroyed and the command was then deleted (in which case tkwin - * is NULL) or because the command was deleted, and then this procedure - * destroys the widget. - */ - - if (tkwin) { - Tk_DeleteEventHandler(tkwin, ExposureMask | StructureNotifyMask, - Togl_EventProc, (ClientData) togl); - } - - Tk_Preserve((ClientData) togl); - Tcl_EventuallyFree((ClientData) togl, ToglFree); - - Togl_LeaveStereo(togl, togl->Stereo); - - if (togl->DestroyProc) { - /* call user's cleanup code */ - Togl_CallCallback(togl, togl->DestroyProc); - } - - if (togl->TimerProc != NULL) { - Tcl_DeleteTimerHandler(togl->timerHandler); - togl->timerHandler = NULL; - } - if (togl->UpdatePending) { - Tcl_CancelIdleCall(Togl_Render, (ClientData) togl); - togl->UpdatePending = False; - } -#ifndef NO_TK_CURSOR - if (togl->Cursor != NULL) { - Tk_FreeCursor(togl->display, togl->Cursor); - togl->Cursor = NULL; - } -#endif - - /* remove from linked list */ - RemoveFromList(togl); - - togl->TkWin = NULL; - if (tkwin != NULL) { - - if (togl->Ctx) { - if (FindToglWithSameContext(togl) == NULL) { -#if defined(TOGL_X11) - glXDestroyContext(togl->display, togl->Ctx); -#elif defined(TOGL_WGL) - wglDeleteContext(togl->Ctx); -#elif defined(TOGL_AGL) - aglDestroyContext(togl->Ctx); - CGDisplayRemoveReconfigurationCallback(ReconfigureCB, togl); -#elif defined(TOGL_NSOPENGL) - [togl->Ctx release]; - togl->Ctx = nil; - [togl->nsview release]; - togl->nsview = nil; - CGDisplayRemoveReconfigurationCallback(ReconfigureCB, togl); -#endif -#if defined(TOGL_X11) - XFree(togl->VisInfo); -#else - free(togl->VisInfo); -#endif - } -#if defined(TOGL_WGL) - if (togl->tglGLHdc) { - if (togl->PbufferFlag) { - releasePbufferDC(togl->pbuf, togl->tglGLHdc); - } else { - HWND hwnd = Tk_GetHWND(Tk_WindowId(tkwin)); - - ReleaseDC(hwnd, togl->tglGLHdc); - } - togl->tglGLHdc = NULL; - } -#endif - if (togl->PbufferFlag && togl->pbuf) { - togl_destroyPbuffer(togl); - togl->pbuf = 0; - } - togl->Ctx = NULL; - togl->VisInfo = NULL; - } -#if defined(TOGL_X11) -# if TOGL_USE_OVERLAY - if (togl->OverlayCtx) { - Tcl_HashEntry *entryPtr; - TkWindow *winPtr = (TkWindow *) tkwin; - - if (winPtr) { - entryPtr = Tcl_FindHashEntry(&winPtr->dispPtr->winTable, - (const char *) togl->OverlayWindow); - Tcl_DeleteHashEntry(entryPtr); - } - if (FindToglWithSameOverlayContext(togl) == NULL) - glXDestroyContext(togl->display, togl->OverlayCtx); - togl->OverlayCtx = NULL; - } -# endif /* TOGL_USE_OVERLAY */ -#endif - - if (togl->SetGrid > 0) { - Tk_UnsetGrid(tkwin); - } - Tk_DestroyWindow(tkwin); - } - - Tk_Release((ClientData) togl); -} - - -/* - * This gets called to track top level position changes for - * row interleaved stereo. - */ -static void -Togl_RedisplayProc(ClientData clientData, XEvent *eventPtr) -{ - Togl *togl = (Togl *) clientData; - - switch (eventPtr->type) { - case ConfigureNotify: - Togl_PostRedisplay(togl); - break; - } -} - - -/* - * This gets called to handle Togl window configuration events - */ -static void -Togl_EventProc(ClientData clientData, XEvent *eventPtr) -{ - Togl *togl = (Togl *) clientData; - - switch (eventPtr->type) { - case Expose: -#if defined(TOGL_NSOPENGL) - if (!Tk_IsMapped(togl->TkWin)) - /* Tk Cocoa generates expose events for unmapped windows! */ - break; -#endif - if (eventPtr->xexpose.count == 0) { - if (!togl->UpdatePending - && eventPtr->xexpose.window == Tk_WindowId(togl->TkWin)) { - Togl_PostRedisplay(togl); - } -#if defined(TOGL_X11) - if (!togl->OverlayUpdatePending && togl->OverlayFlag - && togl->OverlayIsMapped - && eventPtr->xexpose.window == togl->OverlayWindow) { - Togl_PostOverlayRedisplay(togl); - } -#endif -#if defined(TOGL_NSOPENGL) - [togl->Ctx setView:togl->nsview]; - SetMacBufRect(togl); -#endif - } - break; - case ConfigureNotify: - if (togl->PbufferFlag) - break; - if (togl->Width == Tk_Width(togl->TkWin) - && togl->Height == Tk_Height(togl->TkWin)) { - -#if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - // Even though the size hasn't changed, - // it's position on the screen may have. - if (Tk_IsMapped(togl->TkWin)) - SetMacBufRect(togl); -#endif - break; - } - togl->Width = Tk_Width(togl->TkWin); - togl->Height = Tk_Height(togl->TkWin); - (void) XResizeWindow(Tk_Display(togl->TkWin), - Tk_WindowId(togl->TkWin), togl->Width, togl->Height); -#if defined(TOGL_X11) - if (togl->OverlayFlag) { - (void) XResizeWindow(Tk_Display(togl->TkWin), - togl->OverlayWindow, togl->Width, togl->Height); - (void) XRaiseWindow(Tk_Display(togl->TkWin), togl->OverlayWindow); - } -#endif - -#if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - SetMacBufRect(togl); -#endif - - Togl_MakeCurrent(togl); - if (togl->ReshapeProc) { - (void) Togl_CallCallback(togl, togl->ReshapeProc); - } else { - glViewport(0, 0, togl->Width, togl->Height); -#if defined(TOGL_X11) - if (togl->OverlayFlag) { - Togl_UseLayer(togl, TOGL_OVERLAY); - glViewport(0, 0, togl->Width, togl->Height); - Togl_UseLayer(togl, TOGL_NORMAL); - } -#endif - } - break; - case MapNotify: -#if defined(TOGL_AGL) - if (!togl->PbufferFlag) { - /* - * See comment for the UnmapNotify case below. - */ - AGLDrawable d = Togl_MacOSXGetDrawablePort(togl); - - /* aglSetDrawable is deprecated in OS X 10.5 */ - aglSetDrawable(togl->Ctx, d); - SetMacBufRect(togl); - } -#endif -#if defined(TOGL_NSOPENGL) - if (!togl->PbufferFlag) { - /* - * See comment for the UnmapNotify case below. - */ - [togl->nsview setHidden:NO]; - [togl->Ctx setView:togl->nsview]; - SetMacBufRect(togl); - } -#endif - break; - case UnmapNotify: -#if defined(TOGL_AGL) - if (!togl->PbufferFlag) { - /* - * For Mac OS X Aqua, Tk subwindows are not implemented as - * separate Aqua windows. They are just different regions of - * a single Aqua window. To unmap them they are just not drawn. - * Have to disconnect the AGL context otherwise they will continue - * to be displayed directly by Aqua. - */ - /* aglSetDrawable is deprecated in OS X 10.5 */ - aglSetDrawable(togl->Ctx, NULL); - } -#endif -#if defined(TOGL_NSOPENGL) - if (!togl->PbufferFlag) { - /* - * For Mac OS X Aqua, Tk subwindows are not implemented as - * separate Aqua windows. They are just different regions of - * a single Aqua window. To unmap them they are just not drawn. - * Have to disconnect the NSView otherwise they will continue - * to be displayed directly by Aqua. - */ - [togl->Ctx clearDrawable]; - [togl->nsview setHidden:YES]; /* Stolen from Chimera */ - } -#endif - break; - case DestroyNotify: - if (togl->TkWin != NULL) { -#ifdef TOGL_WGL - HWND hwnd = Tk_GetHWND(Tk_WindowId(togl->TkWin)); - - /* Prevent Win32WinProc from calling Tcl_DeleteCommandFromToken - * a second time */ - SetWindowLongPtr(hwnd, 0, (LONG_PTR) 0); -#endif - if (togl->SetGrid > 0) { - Tk_UnsetGrid(togl->TkWin); - } - (void) Tcl_DeleteCommandFromToken(togl->Interp, togl->widgetCmd); - } - break; - default: - /* nothing */ - ; - } -} - -void -Togl_PostRedisplay(Togl *togl) -{ - if (!togl->UpdatePending) { - togl->UpdatePending = True; - Tk_DoWhenIdle(Togl_Render, (ClientData) togl); - } -} - -Bool -Togl_UpdatePending(const Togl *togl) -{ - return togl->UpdatePending; -} - - -void -Togl_SwapBuffers(const Togl *togl) -{ - if (togl->DoubleFlag) { -#if defined(TOGL_WGL) - int res = SwapBuffers(togl->tglGLHdc); - - if (!res) { - ErrorExit(TEXT("SwapBuffers")); - } -#elif defined(TOGL_X11) - glXSwapBuffers(Tk_Display(togl->TkWin), Tk_WindowId(togl->TkWin)); -#elif defined(TOGL_AGL) - aglSwapBuffers(togl->Ctx); -#elif defined(TOGL_NSOPENGL) - [togl->Ctx flushBuffer]; -#endif - } else { - glFlush(); - } -} - -const char * -Togl_Ident(const Togl *togl) -{ - return togl->Ident; -} - -int -Togl_Width(const Togl *togl) -{ - return togl->Width; -} - -int -Togl_Height(const Togl *togl) -{ - return togl->Height; -} - -Tcl_Interp * -Togl_Interp(const Togl *togl) -{ - return togl->Interp; -} - -Tk_Window -Togl_TkWin(const Togl *togl) -{ - return togl->TkWin; -} - -const char * -Togl_CommandName(const Togl *togl) -{ - return Tcl_GetCommandName(togl->Interp, togl->widgetCmd); -} - -int -Togl_ContextTag(const Togl *togl) -{ - return togl->contextTag; -} - -Bool -Togl_HasRGBA(const Togl *togl) -{ - return togl->RgbaFlag; -} - -Bool -Togl_IsDoubleBuffered(const Togl *togl) -{ - return togl->DoubleFlag; -} - -Bool -Togl_HasDepthBuffer(const Togl *togl) -{ - return togl->DepthFlag; -} - -Bool -Togl_HasAccumulationBuffer(const Togl *togl) -{ - return togl->AccumFlag; -} - -Bool -Togl_HasDestinationAlpha(const Togl *togl) -{ - return togl->AlphaFlag; -} - -Bool -Togl_HasStencilBuffer(const Togl *togl) -{ - return togl->StencilFlag; -} - -int -Togl_StereoMode(const Togl *togl) -{ - return togl->Stereo; -} - -Bool -Togl_HasMultisample(const Togl *togl) -{ - return togl->MultisampleFlag; -} - -#if defined(TOGL_X11) -/* - * A replacement for XAllocColor. This function should never - * fail to allocate a color. When XAllocColor fails, we return - * the nearest matching color. If we have to allocate many colors - * this function isn't too efficient; the XQueryColors() could be - * done just once. - * Written by Michael Pichler, Brian Paul, Mark Kilgard - * Input: dpy - X display - * cmap - X colormap - * cmapSize - size of colormap - * In/Out: color - the XColor struct - * Output: exact - 1=exact color match, 0=closest match - */ -static void -noFaultXAllocColor(Display *dpy, Colormap cmap, int cmapSize, - XColor *color, int *exact) -{ - XColor *ctable, subColor; - int i, bestmatch; - double mindist; /* 3*2^16^2 exceeds long int precision. */ - - /* First try just using XAllocColor. */ - if (XAllocColor(dpy, cmap, color)) { - *exact = 1; - return; - } - - /* Retrieve color table entries. */ - /* XXX alloca candidate. */ - ctable = (XColor *) ckalloc(cmapSize * sizeof (XColor)); - for (i = 0; i < cmapSize; i++) { - ctable[i].pixel = i; - } - (void) XQueryColors(dpy, cmap, ctable, cmapSize); - - /* Find best match. */ - bestmatch = -1; - mindist = 0; - for (i = 0; i < cmapSize; i++) { - double dr = (double) color->red - (double) ctable[i].red; - double dg = (double) color->green - (double) ctable[i].green; - double db = (double) color->blue - (double) ctable[i].blue; - double dist = dr * dr + dg * dg + db * db; - - if (bestmatch < 0 || dist < mindist) { - bestmatch = i; - mindist = dist; - } - } - - /* Return result. */ - subColor.red = ctable[bestmatch].red; - subColor.green = ctable[bestmatch].green; - subColor.blue = ctable[bestmatch].blue; - ckfree((char *) ctable); - /* Try to allocate the closest match color. This should only fail if the - * cell is read/write. Otherwise, we're incrementing the cell's reference - * count. */ - if (!XAllocColor(dpy, cmap, &subColor)) { - /* do this to work around a problem reported by Frank Ortega */ - subColor.pixel = (unsigned long) bestmatch; - subColor.red = ctable[bestmatch].red; - subColor.green = ctable[bestmatch].green; - subColor.blue = ctable[bestmatch].blue; - subColor.flags = DoRed | DoGreen | DoBlue; - } - *color = subColor; -} - -#elif defined(TOGL_WGL) - -static UINT -Win32AllocColor(const Togl *togl, float red, float green, float blue) -{ - /* Modified version of XAllocColor emulation of Tk. - returns index, - * instead of color itself - allocates logical palette entry even for - * non-palette devices */ - - TkWinColormap *cmap = (TkWinColormap *) Tk_Colormap(togl->TkWin); - UINT index; - COLORREF newColor, closeColor; - PALETTEENTRY entry, closeEntry; - int isNew, refCount; - Tcl_HashEntry *entryPtr; - - entry.peRed = (unsigned char) (red * 255 + .5); - entry.peGreen = (unsigned char) (green * 255 + .5); - entry.peBlue = (unsigned char) (blue * 255 + .5); - entry.peFlags = 0; - - /* - * Find the nearest existing palette entry. - */ - - newColor = RGB(entry.peRed, entry.peGreen, entry.peBlue); - index = GetNearestPaletteIndex(cmap->palette, newColor); - GetPaletteEntries(cmap->palette, index, 1, &closeEntry); - closeColor = RGB(closeEntry.peRed, closeEntry.peGreen, closeEntry.peBlue); - - /* - * If this is not a duplicate and colormap is not full, allocate a new entry. - */ - - if (newColor != closeColor) { - if (cmap->size == (unsigned int) togl->CiColormapSize) { - entry = closeEntry; - } else { - cmap->size++; - ResizePalette(cmap->palette, cmap->size); - index = cmap->size - 1; - SetPaletteEntries(cmap->palette, index, 1, &entry); - SelectPalette(togl->tglGLHdc, cmap->palette, TRUE); - RealizePalette(togl->tglGLHdc); - } - } - newColor = PALETTERGB(entry.peRed, entry.peGreen, entry.peBlue); - entryPtr = Tcl_CreateHashEntry(&cmap->refCounts, - (CONST char *) newColor, &isNew); - if (isNew) { - refCount = 1; - } else { - refCount = ((int) Tcl_GetHashValue(entryPtr)) + 1; - } - Tcl_SetHashValue(entryPtr, (ClientData) refCount); - - /* for color index mode photos */ - togl->RedMap[index] = (GLfloat) (entry.peRed / 255.0); - togl->GreenMap[index] = (GLfloat) (entry.peGreen / 255.0); - togl->BlueMap[index] = (GLfloat) (entry.peBlue / 255.0); - return index; -} - -static void -Win32FreeColor(const Togl *togl, unsigned long index) -{ - TkWinColormap *cmap = (TkWinColormap *) Tk_Colormap(togl->TkWin); - COLORREF cref; - UINT count, refCount; - PALETTEENTRY entry, *entries; - Tcl_HashEntry *entryPtr; - - if (index >= cmap->size) { - panic("Tried to free a color that isn't allocated."); - } - GetPaletteEntries(cmap->palette, index, 1, &entry); - - cref = PALETTERGB(entry.peRed, entry.peGreen, entry.peBlue); - entryPtr = Tcl_FindHashEntry(&cmap->refCounts, (CONST char *) cref); - if (!entryPtr) { - panic("Tried to free a color that isn't allocated."); - } - refCount = (int) Tcl_GetHashValue(entryPtr) - 1; - if (refCount == 0) { - count = cmap->size - index; - entries = (PALETTEENTRY *) ckalloc(sizeof (PALETTEENTRY) * count); - GetPaletteEntries(cmap->palette, index + 1, count, entries); - SetPaletteEntries(cmap->palette, index, count, entries); - SelectPalette(togl->tglGLHdc, cmap->palette, TRUE); - RealizePalette(togl->tglGLHdc); - ckfree((char *) entries); - cmap->size--; - Tcl_DeleteHashEntry(entryPtr); - } else { - Tcl_SetHashValue(entryPtr, (ClientData) refCount); - } -} - -static void -Win32SetColor(const Togl *togl, - unsigned long index, float red, float green, float blue) -{ - TkWinColormap *cmap = (TkWinColormap *) Tk_Colormap(togl->TkWin); - PALETTEENTRY entry; - - entry.peRed = (unsigned char) (red * 255 + .5); - entry.peGreen = (unsigned char) (green * 255 + .5); - entry.peBlue = (unsigned char) (blue * 255 + .5); - entry.peFlags = 0; - SetPaletteEntries(cmap->palette, index, 1, &entry); - SelectPalette(togl->tglGLHdc, cmap->palette, TRUE); - RealizePalette(togl->tglGLHdc); - - /* for color index mode photos */ - togl->RedMap[index] = (GLfloat) (entry.peRed / 255.0); - togl->GreenMap[index] = (GLfloat) (entry.peGreen / 255.0); - togl->BlueMap[index] = (GLfloat) (entry.peBlue / 255.0); -} -#endif /* TOGL_X11 */ - - -unsigned long -Togl_AllocColor(const Togl *togl, float red, float green, float blue) -{ - if (togl->RgbaFlag) { - (void) fprintf(stderr, - "Error: Togl_AllocColor illegal in RGBA mode.\n"); - return 0; - } - /* TODO: maybe not... */ - if (togl->PrivateCmapFlag) { - (void) fprintf(stderr, - "Error: Togl_AllocColor illegal with private colormap\n"); - return 0; - } -#if defined(TOGL_X11) - { - XColor xcol; - int exact; - - xcol.red = (short) (red * 65535.0); - xcol.green = (short) (green * 65535.0); - xcol.blue = (short) (blue * 65535.0); - - noFaultXAllocColor(Tk_Display(togl->TkWin), Tk_Colormap(togl->TkWin), - Tk_Visual(togl->TkWin)->map_entries, &xcol, &exact); - /* for color index mode photos */ - togl->RedMap[xcol.pixel] = (float) xcol.red / 65535.0; - togl->GreenMap[xcol.pixel] = (float) xcol.green / 65535.0; - togl->BlueMap[xcol.pixel] = (float) xcol.blue / 65535.0; - - return xcol.pixel; - } - -#elif defined(TOGL_WGL) - return Win32AllocColor(togl, red, green, blue); - -#elif defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - /* still need to implement this on Mac... */ - return 0; - -#endif -} - - - -void -Togl_FreeColor(const Togl *togl, unsigned long pixel) -{ - if (togl->RgbaFlag) { - (void) fprintf(stderr, "Error: Togl_FreeColor illegal in RGBA mode.\n"); - return; - } - /* TODO: maybe not... */ - if (togl->PrivateCmapFlag) { - (void) fprintf(stderr, - "Error: Togl_FreeColor illegal with private colormap\n"); - return; - } -#if defined(TOGL_X11) - (void) XFreeColors(Tk_Display(togl->TkWin), Tk_Colormap(togl->TkWin), - &pixel, 1, 0); -#elif defined(TOGL_WGL) - Win32FreeColor(togl, pixel); -#endif -} - - - -void -Togl_SetColor(const Togl *togl, - unsigned long index, float red, float green, float blue) -{ - - if (togl->RgbaFlag) { - (void) fprintf(stderr, "Error: Togl_SetColor illegal in RGBA mode.\n"); - return; - } - if (!togl->PrivateCmapFlag) { - (void) fprintf(stderr, - "Error: Togl_SetColor requires a private colormap\n"); - return; - } -#if defined(TOGL_X11) - { - XColor xcol; - - xcol.pixel = index; - xcol.red = (short) (red * 65535.0); - xcol.green = (short) (green * 65535.0); - xcol.blue = (short) (blue * 65535.0); - xcol.flags = DoRed | DoGreen | DoBlue; - - (void) XStoreColor(Tk_Display(togl->TkWin), Tk_Colormap(togl->TkWin), - &xcol); - - /* for color index mode photos */ - togl->RedMap[xcol.pixel] = (float) xcol.red / 65535.0; - togl->GreenMap[xcol.pixel] = (float) xcol.green / 65535.0; - togl->BlueMap[xcol.pixel] = (float) xcol.blue / 65535.0; - } -#elif defined(TOGL_WGL) - Win32SetColor(togl, index, red, green, blue); -#endif -} - - -#if TOGL_USE_FONTS == 1 -# include "toglFont.c" -#else - -Tcl_Obj * -Togl_LoadBitmapFont(const Togl *togl, const char *fontname) -{ - return NULL; -} - -int -Togl_UnloadBitmapFont(const Togl *togl, Tcl_Obj *bitmapfont) -{ - return TCL_OK; -} - -int -Togl_WriteObj(const Togl *togl, const Tcl_Obj *toglfont, Tcl_Obj *obj) -{ - return -1; -} - -int -Togl_WriteChars(const Togl *togl, const Tcl_Obj *toglfont, const char *str, - int len) -{ - return -1; -} -#endif /* TOGL_USE_FONTS */ - - - -/* - * Overlay functions - */ - -void -Togl_UseLayer(Togl *togl, int layer) -{ - if (layer == TOGL_NORMAL) { -#if defined(TOGL_WGL) - int res = wglMakeCurrent(togl->tglGLHdc, togl->Ctx); - - if (!res) { - ErrorExit(TEXT("wglMakeCurrent")); - } -#elif defined(TOGL_X11) - (void) glXMakeCurrent(Tk_Display(togl->TkWin), - Tk_WindowId(togl->TkWin), togl->Ctx); -#elif defined(TOGL_AGL) - (void) aglSetCurrentContext(togl->Ctx); -#elif defined(TOGL_NSOPENGL) - [togl->Ctx makeCurrentContext]; -#endif - } else if (layer == TOGL_OVERLAY && togl->OverlayWindow) { -#if defined(TOGL_WGL) - int res = wglMakeCurrent(togl->tglGLHdc, togl->tglGLOverlayHglrc); - - if (!res) { - ErrorExit(TEXT("wglMakeCurrent overlay")); - } -#elif defined(TOGL_X11) - (void) glXMakeCurrent(Tk_Display(togl->TkWin), - togl->OverlayWindow, togl->OverlayCtx); -#elif defined(TOGL_AGL) || defined(TOGL_NSOPENGL) -#endif - } else { - /* error */ - } -} - -void -Togl_ShowOverlay(Togl *togl) -{ -#if defined(TOGL_X11) /* not yet implemented on Windows */ - if (togl->OverlayWindow) { - (void) XMapWindow(Tk_Display(togl->TkWin), togl->OverlayWindow); - (void) XInstallColormap(Tk_Display(togl->TkWin), togl->OverlayCmap); - togl->OverlayIsMapped = True; - } -#endif -} - -void -Togl_HideOverlay(Togl *togl) -{ - if (togl->OverlayWindow && togl->OverlayIsMapped) { - (void) XUnmapWindow(Tk_Display(togl->TkWin), togl->OverlayWindow); - togl->OverlayIsMapped = False; - } -} - -void -Togl_PostOverlayRedisplay(Togl *togl) -{ - if (!togl->OverlayUpdatePending - && togl->OverlayWindow && togl->OverlayDisplayProc) { - Tk_DoWhenIdle(Togl_RenderOverlay, (ClientData) togl); - togl->OverlayUpdatePending = True; - } -} - -int -Togl_ExistsOverlay(const Togl *togl) -{ - return togl->OverlayFlag; -} - -int -Togl_GetOverlayTransparentValue(const Togl *togl) -{ - return togl->OverlayTransparentPixel; -} - -int -Togl_IsMappedOverlay(const Togl *togl) -{ - return togl->OverlayFlag && togl->OverlayIsMapped; -} - -unsigned long -Togl_AllocColorOverlay(const Togl *togl, float red, float green, float blue) -{ -#if defined(TOGL_X11) /* not yet implemented on Windows */ - if (togl->OverlayFlag && togl->OverlayCmap) { - XColor xcol; - - xcol.red = (short) (red * 65535.0); - xcol.green = (short) (green * 65535.0); - xcol.blue = (short) (blue * 65535.0); - if (!XAllocColor(Tk_Display(togl->TkWin), togl->OverlayCmap, &xcol)) - return (unsigned long) -1; - return xcol.pixel; - } -#endif /* TOGL_X11 */ - return (unsigned long) -1; -} - -void -Togl_FreeColorOverlay(const Togl *togl, unsigned long pixel) -{ -#if defined(TOGL_X11) /* not yet implemented on Windows */ - if (togl->OverlayFlag && togl->OverlayCmap) { - (void) XFreeColors(Tk_Display(togl->TkWin), togl->OverlayCmap, &pixel, - 1, 0); - } -#endif /* TOGL_X11 */ -} - - -/* - * User client data - */ -ClientData -Togl_GetClientData(const Togl *togl) -{ - return togl->Client_Data; -} - -void -Togl_SetClientData(Togl *togl, ClientData clientData) -{ - togl->Client_Data = clientData; -} - -int -Togl_CopyContext(const Togl *from, const Togl *to, unsigned mask) -{ -#ifdef TOGL_X11 - int error_code; - int same = (glXGetCurrentContext() == to->Ctx); - - if (same) - (void) glXMakeCurrent(to->display, None, NULL); - togl_SetupXErrorHandler(); - glXCopyContext(from->display, from->Ctx, to->Ctx, mask); - error_code = togl_CheckForXError(from); - if (error_code) { - char buf[256]; - - XGetErrorText(from->display, error_code, buf, sizeof buf); - Tcl_AppendResult(from->Interp, "unable to copy context: ", buf, NULL); - return TCL_ERROR; - } -#elif defined(TOGL_WGL) - int same = (wglGetCurrentContext() == to->Ctx); - - if (same) - (void) wglMakeCurrent(to->tglGLHdc, NULL); - if (!wglCopyContext(from->Ctx, to->Ctx, mask)) { - char buf[256]; - - snprintf(buf, sizeof buf, "unable to copy context: %d", GetLastError()); - Tcl_AppendElement(from->Interp, buf); - return TCL_ERROR; - } -#elif defined(TOGL_AGL) - int same = (aglGetCurrentContext() == to->Ctx); - - if (same) - (void) aglSetCurrentContext(NULL); - if (!aglCopyContext(from->Ctx, to->Ctx, mask)) { - Tcl_AppendResult(from->Interp, "unable to copy context: ", - aglErrorString(aglGetError()), NULL); - return TCL_ERROR; - } -#elif defined(TOGL_NSOPENGL) - int same = (from->Ctx == to->Ctx); - - if (same) { - [NSOpenGLContext clearCurrentContext]; - } - [to->Ctx copyAttributesFromContext:from->Ctx withMask:mask]; -#endif - if (same) - Togl_MakeCurrent(to); - return TCL_OK; -} - - -#ifdef MESA_COLOR_HACK -/* - * Let's know how many free colors do we have - */ -# define RLEVELS 5 -# define GLEVELS 9 -# define BLEVELS 5 - -/* to free dithered_rgb_colormap pixels allocated by Mesa */ -static unsigned long *ToglMesaUsedPixelCells = NULL; -static int ToglMesaUsedFreeCells = 0; - -static int -get_free_color_cells(Display *display, int screen, Colormap colormap) -{ - if (!ToglMesaUsedPixelCells) { - XColor xcol; - int i; - int colorsfailed, ncolors = XDisplayCells(display, screen); - - long r, g, b; - - ToglMesaUsedPixelCells = - (unsigned long *) ckalloc(ncolors * sizeof (unsigned long)); - - /* Allocate X colors and initialize color_table[], red_table[], etc */ - /* de Mesa 2.1: xmesa1.c setup_dithered_(...) */ - i = colorsfailed = 0; - for (r = 0; r < RLEVELS; r++) - for (g = 0; g < GLEVELS; g++) - for (b = 0; b < BLEVELS; b++) { - int exact; - - xcol.red = (r * 65535) / (RLEVELS - 1); - xcol.green = (g * 65535) / (GLEVELS - 1); - xcol.blue = (b * 65535) / (BLEVELS - 1); - noFaultXAllocColor(display, colormap, ncolors, - &xcol, &exact); - ToglMesaUsedPixelCells[i++] = xcol.pixel; - if (!exact) { - colorsfailed++; - } - } - ToglMesaUsedFreeCells = i; - - XFreeColors(display, colormap, ToglMesaUsedPixelCells, - ToglMesaUsedFreeCells, 0x00000000); - } - return ToglMesaUsedFreeCells; -} - - -static void -free_default_color_cells(Display *display, Colormap colormap) -{ - if (ToglMesaUsedPixelCells) { - XFreeColors(display, colormap, ToglMesaUsedPixelCells, - ToglMesaUsedFreeCells, 0x00000000); - ckfree((char *) ToglMesaUsedPixelCells); - ToglMesaUsedPixelCells = NULL; - ToglMesaUsedFreeCells = 0; - } -} -#endif - -/* - * Original stereo code contributed by Ben Evans (Ben.Evans@anusf.anu.edu.au) - * and was based on SGI's /usr/share/src/OpenGL/teach/stereo/glwstereo.c, - * which is identical to the 1997/12/1 glwstereo.c code in the CrystalEyes - * Software Development Kit. - */ - -int -Togl_NumEyes(const Togl *togl) -{ - if (togl->Stereo > TOGL_STEREO_ONE_EYE_MAX) - return 2; - return 1; -} - -/* call instead of glDrawBuffer */ -void -Togl_DrawBuffer(Togl *togl, GLenum mode) -{ - if (togl->Stereo <= TOGL_STEREO_ONE_EYE_MAX) { - /* Only drawing a single eye */ - if (togl->currentStereoBuffer != STEREO_BUFFER_NONE) { - glViewport(0, 0, togl->Width, togl->Height); - glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); - togl->currentStereoBuffer = STEREO_BUFFER_NONE; - } - switch (mode) { - case GL_FRONT: - case GL_BACK: - case GL_FRONT_AND_BACK: - break; - case GL_LEFT: - case GL_FRONT_LEFT: - case GL_RIGHT: - case GL_FRONT_RIGHT: - mode = GL_FRONT; - break; - case GL_BACK_LEFT: - case GL_BACK_RIGHT: - mode = GL_BACK; - break; - default: - break; - } - glDrawBuffer(mode); - return; - } - /* called once for each eye */ - switch (mode) { - case GL_FRONT: - case GL_BACK: - case GL_FRONT_AND_BACK: - /* - ** Simultaneous drawing to both left and right buffers isn't - ** really possible if we don't have a stereo capable visual. - ** For now just fall through and use the left buffer. - */ - case GL_LEFT: - case GL_FRONT_LEFT: - case GL_BACK_LEFT: - togl->currentStereoBuffer = STEREO_BUFFER_LEFT; - break; - case GL_RIGHT: - case GL_FRONT_RIGHT: - case GL_BACK_RIGHT: - togl->currentStereoBuffer = STEREO_BUFFER_RIGHT; - break; - default: - break; - } - if (togl->Stereo != TOGL_STEREO_NATIVE) { - switch (mode) { - default: - mode = GL_FRONT; - break; - case GL_BACK: - case GL_BACK_LEFT: - case GL_BACK_RIGHT: - mode = GL_BACK; - break; - } - } - switch (togl->Stereo) { - default: - break; -#ifdef __sgi - case TOGL_STEREO_SGIOLDSTYLE: - glXWaitGL(); /* sync with GL command stream before calling X - */ - XSGISetStereoBuffer(togl->display, Tk_WindowId(togl->TkWin), - togl->currentStereoBuffer); - glXWaitX(); /* sync with X command stream before calling GL - */ - break; -#endif - case TOGL_STEREO_ANAGLYPH: - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) - glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE); - else - glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE); - glViewport(0, 0, togl->Width, togl->Height); - break; - case TOGL_STEREO_CROSS_EYE: - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) - glViewport(togl->Width / 2 + 1, 0, togl->Width / 2, togl->Height); - else - glViewport(0, 0, togl->Width / 2, togl->Height); - break; - case TOGL_STEREO_WALL_EYE: - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) - glViewport(0, 0, togl->Width / 2, togl->Height); - else - glViewport(togl->Width / 2 + 1, 0, togl->Width / 2, togl->Height); - break; - case TOGL_STEREO_DTI: - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) - glViewport(0, 0, togl->Width / 2, togl->Height); - else - glViewport(togl->Width / 2 + 1, 0, togl->Width / 2, togl->Height); - break; - case TOGL_STEREO_ROW_INTERLEAVED: - glViewport(0, 0, togl->Width, togl->Height); - break; - } - glDrawBuffer(mode); -} - -/* call instead of glClear */ -void -Togl_Clear(const Togl *togl, GLbitfield mask) -{ - GLint stencil_write_mask = 0; - GLint stencil_clear_value = 0; - - switch (togl->Stereo) { - default: - break; - case TOGL_STEREO_CROSS_EYE: - case TOGL_STEREO_WALL_EYE: - case TOGL_STEREO_DTI: - if (togl->currentStereoBuffer != STEREO_BUFFER_LEFT) { - /* Since glViewport does not affect what is cleared (unlike - * glScissor), only clear in left eye */ - return; - } - break; - case TOGL_STEREO_ROW_INTERLEAVED: - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) { - if ((mask & GL_STENCIL_BUFFER_BIT) == 0) { - mask |= GL_STENCIL_BUFFER_BIT; - glStencilMask(~0u); - glClearStencil(0); - } else { - glGetIntegerv(GL_STENCIL_WRITEMASK, &stencil_write_mask); - glGetIntegerv(GL_STENCIL_CLEAR_VALUE, &stencil_clear_value); - glStencilMask(stencil_write_mask | togl->riStencilBit); - glClearStencil(stencil_clear_value & ~togl->riStencilBit); - } - } else { - mask &= ~(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - } - break; - } -#if 0 - /* only needed if we wish to support multi-eye clears */ - if (togl->Stereo > TOGL_STEREO_ONE_EYE_MAX) { - GLenum drawBuffer = togl->currentDrawBuffer; - - switch (drawBuffer) { - case GL_FRONT: - Togl_DrawBuffer(togl, GL_FRONT_RIGHT); - glClear(mask); - Togl_DrawBuffer(togl, drawBuffer); - break; - case GL_BACK: - Togl_DrawBuffer(togl, GL_BACK_RIGHT); - glClear(mask); - Togl_DrawBuffer(togl, drawBuffer); - break; - case GL_FRONT_AND_BACK: - Togl_DrawBuffer(togl, GL_RIGHT); - glClear(mask); - Togl_DrawBuffer(togl, drawBuffer); - break; - case GL_LEFT: - case GL_FRONT_LEFT: - case GL_BACK_LEFT: - case GL_RIGHT: - case GL_FRONT_RIGHT: - case GL_BACK_RIGHT: - default: - break; - } - } -#endif - if (mask != 0) - glClear(mask); - if (togl->Stereo == TOGL_STEREO_ROW_INTERLEAVED) { - int x, y; - - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) { - int i; - - /* initialize stencil buffer mask */ - glPushAttrib(GL_COLOR_BUFFER_BIT | GL_ENABLE_BIT - | GL_LINE_BIT | GL_VIEWPORT_BIT); - // 2d projection - glViewport(0, 0, togl->Width, togl->Height); - glMatrixMode(GL_PROJECTION); - glPushMatrix(); - glLoadIdentity(); - glOrtho(0, togl->Width, 0, togl->Height, -1, 1); - glMatrixMode(GL_MODELVIEW); - glPushMatrix(); - glLoadIdentity(); - glTranslatef(0.375f, 0.375f, 0); - glDisable(GL_ALPHA_TEST); - glDisable(GL_COLOR_LOGIC_OP); - glDisable(GL_DEPTH_TEST); - glDisable(GL_DITHER); - glDisable(GL_INDEX_LOGIC_OP); - glDisable(GL_LIGHTING); - glDisable(GL_LINE_SMOOTH); - glDisable(GL_MULTISAMPLE); - glLineWidth(1); - glColorMask(GL_FALSE, GL_FALSE, GL_FALSE, GL_FALSE); - glStencilFunc(GL_ALWAYS, togl->riStencilBit, togl->riStencilBit); - glStencilOp(GL_KEEP, GL_REPLACE, GL_REPLACE); - glBegin(GL_LINES); - for (i = 0; i < togl->Height; i += 2) { - glVertex2i(0, i); - glVertex2i(togl->Width, i); - } - glEnd(); - glMatrixMode(GL_PROJECTION); - glPopMatrix(); - glMatrixMode(GL_MODELVIEW); - glPopMatrix(); - glPopAttrib(); - - if (stencil_write_mask) { - glStencilMask(stencil_write_mask & ~togl->riStencilBit); - } else { - glStencilMask(~togl->riStencilBit); - } - - Tk_GetRootCoords(togl->TkWin, &x, &y); - if ((y + togl->Height) % 2) { - glStencilFunc(GL_NOTEQUAL, togl->riStencilBit, - togl->riStencilBit); - } else { - glStencilFunc(GL_EQUAL, togl->riStencilBit, togl->riStencilBit); - } - } else { - Tk_GetRootCoords(togl->TkWin, &x, &y); - if ((y + togl->Height) % 2) { - glStencilFunc(GL_EQUAL, togl->riStencilBit, togl->riStencilBit); - } else { - glStencilFunc(GL_NOTEQUAL, togl->riStencilBit, - togl->riStencilBit); - } - } - } -} - -/* - * Togl_Frustum and Togl_Ortho: - * - * eyeOffset is the distance from the center line - * and is negative for the left eye and positive for right eye. - * eyeDist and eyeOffset need to be in the same units as your model space. - * In physical space, eyeDist might be 30 inches from the screen - * and eyeDist would be +/- 1.25 inch (for a total interocular distance - * of 2.5 inches). - */ -void -Togl_Frustum(const Togl *togl, GLdouble left, GLdouble right, - GLdouble bottom, GLdouble top, GLdouble zNear, GLdouble zFar) -{ - GLdouble eyeOffset = 0, eyeShift = 0; - - if (togl->Stereo == TOGL_STEREO_LEFT_EYE - || togl->currentStereoBuffer == STEREO_BUFFER_LEFT) - eyeOffset = -togl->EyeSeparation / 2; /* for left eye */ - else if (togl->Stereo == TOGL_STEREO_RIGHT_EYE - || togl->currentStereoBuffer == STEREO_BUFFER_RIGHT) - eyeOffset = togl->EyeSeparation / 2; /* for right eye */ - eyeShift = (togl->Convergence - zNear) * (eyeOffset / togl->Convergence); - - /* compenstate for altered viewports */ - switch (togl->Stereo) { - default: - break; - case TOGL_STEREO_SGIOLDSTYLE: - case TOGL_STEREO_DTI: - /* squished image is expanded, nothing needed */ - break; - case TOGL_STEREO_CROSS_EYE: - case TOGL_STEREO_WALL_EYE:{ - GLdouble delta = (top - bottom) / 2; - - top += delta; - bottom -= delta; - break; - } - } - - glFrustum(left + eyeShift, right + eyeShift, bottom, top, zNear, zFar); - glTranslated(-eyeShift, 0, 0); -} - -void -Togl_Ortho(const Togl *togl, GLdouble left, GLdouble right, - GLdouble bottom, GLdouble top, GLdouble zNear, GLdouble zFar) -{ - /* TODO: debug this */ - GLdouble eyeOffset = 0, eyeShift = 0; - - if (togl->currentStereoBuffer == STEREO_BUFFER_LEFT) - eyeOffset = -togl->EyeSeparation / 2; /* for left eye */ - else if (togl->currentStereoBuffer == STEREO_BUFFER_RIGHT) - eyeOffset = togl->EyeSeparation / 2; /* for right eye */ - eyeShift = (togl->Convergence - zNear) * (eyeOffset / togl->Convergence); - - /* compenstate for altered viewports */ - switch (togl->Stereo) { - default: - break; - case TOGL_STEREO_SGIOLDSTYLE: - case TOGL_STEREO_DTI: - /* squished image is expanded, nothing needed */ - break; - case TOGL_STEREO_CROSS_EYE: - case TOGL_STEREO_WALL_EYE:{ - GLdouble delta = (top - bottom) / 2; - - top += delta; - bottom -= delta; - break; - } - } - - glOrtho(left + eyeShift, right + eyeShift, bottom, top, zNear, zFar); - glTranslated(-eyeShift, 0, 0); -} - -int -Togl_GetToglFromObj(Tcl_Interp *interp, Tcl_Obj *obj, Togl **toglPtr) -{ - Tcl_Command toglCmd; - Tcl_CmdInfo info; - - toglCmd = Tcl_GetCommandFromObj(interp, obj); - if (Tcl_GetCommandInfoFromToken(toglCmd, &info) == 0 - || info.objProc != Togl_ObjWidget) { - Tcl_AppendResult(interp, "expected togl command argument", NULL); - return TCL_ERROR; - } - *toglPtr = (Togl *) info.objClientData; - return TCL_OK; -} - -int -Togl_GetToglFromName(Tcl_Interp *interp, const char *cmdName, Togl **toglPtr) -{ - Tcl_CmdInfo info; - - if (Tcl_GetCommandInfo(interp, cmdName, &info) == 0 - || info.objProc != Togl_ObjWidget) { - Tcl_AppendResult(interp, "expected togl command argument", NULL); - return TCL_ERROR; - } - *toglPtr = (Togl *) info.objClientData; - return TCL_OK; -} - -static int ObjectIsEmpty(Tcl_Obj *objPtr); - -/* - *---------------------------------------------------------------------- - * - * GetStereo - - * - * Converts an internal int into a a Tcl string obj. - * - * Results: - * Tcl_Obj containing the string representation of the stereo value. - * - * Side effects: - * Creates a new Tcl_Obj. - * - *---------------------------------------------------------------------- - */ - -static Tcl_Obj * -GetStereo(ClientData clientData, Tk_Window tkwin, char *recordPtr, - int internalOffset) - /* recordPtr is a pointer to widget record. */ - /* internalOffset is the offset within *recordPtr containing the stereo - * value. */ -{ - int stereo = *(int *) (recordPtr + internalOffset); - const char *name = "unknown"; - - switch (stereo) { - case TOGL_STEREO_NONE: - name = ""; - break; - case TOGL_STEREO_LEFT_EYE: - name = "left eye"; - break; - case TOGL_STEREO_RIGHT_EYE: - name = "right eye"; - break; - case TOGL_STEREO_NATIVE: - name = "native"; - break; - case TOGL_STEREO_SGIOLDSTYLE: - name = "sgioldstyle"; - break; - case TOGL_STEREO_ANAGLYPH: - name = "anaglyph"; - break; - case TOGL_STEREO_CROSS_EYE: - name = "cross-eye"; - break; - case TOGL_STEREO_WALL_EYE: - name = "wall-eye"; - break; - case TOGL_STEREO_DTI: - name = "dti"; - break; - case TOGL_STEREO_ROW_INTERLEAVED: - name = "row interleaved"; - break; - } - return Tcl_NewStringObj(name, -1); -} - -/* - *---------------------------------------------------------------------- - * - * SetStereo -- - * - * Converts a Tcl_Obj representing a widgets stereo into an - * integer value. - * - * Results: - * Standard Tcl result. - * - * Side effects: - * May store the integer value into the internal representation - * pointer. May change the pointer to the Tcl_Obj to NULL to indicate - * that the specified string was empty and that is acceptable. - * - *---------------------------------------------------------------------- - */ - -static int -SetStereo(ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj **value, char *recordPtr, int internalOffset, - char *oldInternalPtr, int flags) - /* interp is the current interp; may be used for errors. */ - /* tkwin is the Window for which option is being set. */ - /* value is a pointer to the pointer to the value object. We use a pointer - * to the pointer because we may need to return a value (NULL). */ - /* recordPtr is a pointer to storage for the widget record. */ - /* internalOffset is the offset within *recordPtr at which the internal - * value is to be stored. */ - /* oldInternalPtr is a pointer to storage for the old value. */ - /* flags are the flags for the option, set Tk_SetOptions. */ -{ - int stereo = 0; - char *string, *internalPtr; - - internalPtr = (internalOffset > 0) ? recordPtr + internalOffset : NULL; - - if ((flags & TK_OPTION_NULL_OK) && ObjectIsEmpty(*value)) { - *value = NULL; - } else { - /* - * Convert the stereo specifier into an integer value. - */ - - if (Tcl_GetBooleanFromObj(NULL, *value, &stereo) == TCL_OK) { - stereo = stereo ? TOGL_STEREO_NATIVE : TOGL_STEREO_NONE; - } else { - string = Tcl_GetString(*value); - - if (strcmp(string, "") == 0 || strcasecmp(string, "none") == 0) { - stereo = TOGL_STEREO_NONE; - } else if (strcasecmp(string, "native") == 0) { - stereo = TOGL_STEREO_NATIVE; - /* check if available when creating visual */ - } else if (strcasecmp(string, "left eye") == 0) { - stereo = TOGL_STEREO_LEFT_EYE; - } else if (strcasecmp(string, "right eye") == 0) { - stereo = TOGL_STEREO_RIGHT_EYE; - } else if (strcasecmp(string, "sgioldstyle") == 0) { - stereo = TOGL_STEREO_SGIOLDSTYLE; - } else if (strcasecmp(string, "anaglyph") == 0) { - stereo = TOGL_STEREO_ANAGLYPH; - } else if (strcasecmp(string, "cross-eye") == 0) { - stereo = TOGL_STEREO_CROSS_EYE; - } else if (strcasecmp(string, "wall-eye") == 0) { - stereo = TOGL_STEREO_WALL_EYE; - } else if (strcasecmp(string, "dti") == 0) { - stereo = TOGL_STEREO_DTI; - } else if (strcasecmp(string, "row interleaved") == 0) { - stereo = TOGL_STEREO_ROW_INTERLEAVED; - } else { - Tcl_ResetResult(interp); - Tcl_AppendResult(interp, "bad stereo value \"", - Tcl_GetString(*value), "\"", NULL); - return TCL_ERROR; - } - } - } - - if (internalPtr != NULL) { - *((int *) oldInternalPtr) = *((int *) internalPtr); - *((int *) internalPtr) = stereo; - } - return TCL_OK; -} - -/* - *---------------------------------------------------------------------- - * RestoreStereo -- - * - * Restore a stereo option value from a saved value. - * - * Results: - * None. - * - * Side effects: - * Restores the old value. - * - *---------------------------------------------------------------------- - */ - -static void -RestoreStereo(ClientData clientData, Tk_Window tkwin, char *internalPtr, - char *oldInternalPtr) -{ - *(int *) internalPtr = *(int *) oldInternalPtr; -} - -/* - *---------------------------------------------------------------------- - * - * GetWideInt - - * - * Converts an internal wide integer into a a Tcl WideInt obj. - * - * Results: - * Tcl_Obj containing the wide int value. - * - * Side effects: - * Creates a new Tcl_Obj. - * - *---------------------------------------------------------------------- - */ - -static Tcl_Obj * -GetWideInt(ClientData clientData, Tk_Window tkwin, char *recordPtr, - int internalOffset) - /* recordPtr is a pointer to widget record. */ - /* internalOffset is the offset within *recordPtr containing the wide int - * value. */ -{ - Tcl_WideInt wi = *(Tcl_WideInt *) (recordPtr + internalOffset); - - return Tcl_NewWideIntObj(wi); -} - -/* - *---------------------------------------------------------------------- - * - * SetWideInt -- - * - * Converts a Tcl_Obj representing a Tcl_WideInt. - * - * Results: - * Standard Tcl result. - * - * Side effects: - * May store the wide int value into the internal representation - * pointer. May change the pointer to the Tcl_Obj to NULL to indicate - * that the specified string was empty and that is acceptable. - * - *---------------------------------------------------------------------- - */ - -static int -SetWideInt(ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj **value, char *recordPtr, int internalOffset, - char *oldInternalPtr, int flags) - /* interp is the current interp; may be used for errors. */ - /* tkwin is the Window for which option is being set. */ - /* value is a pointer to the pointer to the value object. We use a pointer - * to the pointer because we may need to return a value (NULL). */ - /* recordPtr is a pointer to storage for the widget record. */ - /* internalOffset is the offset within *recordPtr at which the internal - * value is to be stored. */ - /* oldInternalPtr is a pointer to storage for the old value. */ - /* flags are the flags for the option, set Tk_SetOptions. */ -{ - char *internalPtr; - Tcl_WideInt w; - - internalPtr = (internalOffset > 0) ? recordPtr + internalOffset : NULL; - - if ((flags & TK_OPTION_NULL_OK) && ObjectIsEmpty(*value)) { - *value = NULL; - w = 0; - } else { - if (Tcl_GetWideIntFromObj(interp, *value, &w) != TCL_OK) { - return TCL_ERROR; - } - } - - if (internalPtr != NULL) { - *((Tcl_WideInt *) oldInternalPtr) = *((Tcl_WideInt *) internalPtr); - *((Tcl_WideInt *) internalPtr) = w; - } - return TCL_OK; -} - -/* - *---------------------------------------------------------------------- - * RestoreWideInt -- - * - * Restore a wide int option value from a saved value. - * - * Results: - * None. - * - * Side effects: - * Restores the old value. - * - *---------------------------------------------------------------------- - */ - -static void -RestoreWideInt(ClientData clientData, Tk_Window tkwin, char *internalPtr, - char *oldInternalPtr) -{ - *(Tcl_WideInt *) internalPtr = *(Tcl_WideInt *) oldInternalPtr; -} - -/* - *---------------------------------------------------------------------- - * - * ObjectIsEmpty -- - * - * This procedure tests whether the string value of an object is - * empty. - * - * Results: - * The return value is 1 if the string value of objPtr has length - * zero, and 0 otherwise. - * - * Side effects: - * None. - * - *---------------------------------------------------------------------- - */ - -static int -ObjectIsEmpty(Tcl_Obj *objPtr) -/* objPtr = Object to test. May be NULL. */ -{ - int length; - - if (objPtr == NULL) { - return 1; - } - if (objPtr->bytes != NULL) { - return (objPtr->length == 0); - } - Tcl_GetStringFromObj(objPtr, &length); - return (length == 0); -} diff --git a/opengl/Togl2.1-SnapPy/togl.decls b/opengl/Togl2.1-SnapPy/togl.decls deleted file mode 100644 index 80ea6dad4..000000000 --- a/opengl/Togl2.1-SnapPy/togl.decls +++ /dev/null @@ -1,190 +0,0 @@ -library togl -interface togl - -# Declare each of the functions in the public Togl interface. Note that -# the an index should never be reused for a different function in order -# to preserve backwards compatibility. - -# package initialization -declare 0 generic { - int Togl_Init(Tcl_Interp *interp) -} - -# Miscellaneous -declare 1 generic { - void Togl_MakeCurrent(const Togl *togl) -} -declare 2 generic { - void Togl_PostRedisplay(Togl *togl) -} -declare 3 generic { - void Togl_SwapBuffers(const Togl *togl) -} -declare 33 generic { - Bool Togl_SwapInterval(const Togl *togl, int interval) -} -declare 48 generic { - int Togl_CopyContext(const Togl *from, const Togl *to, unsigned int mask) -} - -# Query functions -declare 4 generic { - const char *Togl_Ident(const Togl *togl) -} -declare 5 generic { - int Togl_Width(const Togl *togl) -} -declare 6 generic { - int Togl_Height(const Togl *togl) -} -declare 7 generic { - Tcl_Interp *Togl_Interp(const Togl *togl) -} -declare 8 generic { - Tk_Window Togl_TkWin(const Togl *togl) -} -declare 9 generic { - const char *Togl_CommandName(const Togl *togl) -} -declare 36 generic { - int Togl_ContextTag(const Togl *togl) -} -declare 37 generic { - Bool Togl_UpdatePending(const Togl *togl) -} - -declare 40 generic { - Bool Togl_HasRGBA(const Togl *togl) -} - -declare 41 generic { - Bool Togl_IsDoubleBuffered(const Togl *togl) -} - -declare 42 generic { - Bool Togl_HasDepthBuffer(const Togl *togl) -} - -declare 43 generic { - Bool Togl_HasAccumulationBuffer(const Togl *togl) -} - -declare 44 generic { - Bool Togl_HasDestinationAlpha(const Togl *togl) -} - -declare 45 generic { - Bool Togl_HasStencilBuffer(const Togl *togl) -} - -declare 46 generic { - int Togl_StereoMode(const Togl *togl) -} - -declare 47 generic { - Bool Togl_HasMultisample(const Togl *togl) -} - -# Color Index mode -declare 10 generic { - unsigned long Togl_AllocColor(const Togl *togl, float red, - float green, float blue) -} -declare 11 generic { - void Togl_FreeColor(const Togl *togl, unsigned long index) -} -declare 12 generic { - void Togl_SetColor(const Togl *togl, unsigned long index, - float red, float green, float blue) -} - -# Bitmap fonts -declare 13 generic { - Tcl_Obj *Togl_LoadBitmapFont(const Togl *togl, const char *fontname) -} -declare 14 generic { - int Togl_UnloadBitmapFont(const Togl *togl, Tcl_Obj *toglfont) -} - -declare 38 generic { - int Togl_WriteObj(const Togl *togl, const Tcl_Obj *toglfont, Tcl_Obj *obj) -} - -declare 39 generic { - int Togl_WriteChars(const Togl *togl, const Tcl_Obj *toglfont, const char *str, int len) -} - -# Overlay functions -declare 15 generic { - void Togl_UseLayer(Togl *togl, int layer) -} -declare 16 generic { - void Togl_ShowOverlay(Togl *togl) -} -declare 17 generic { - void Togl_HideOverlay(Togl *togl) -} -declare 18 generic { - void Togl_PostOverlayRedisplay(Togl *togl) -} -declare 19 generic { - int Togl_ExistsOverlay(const Togl *togl) -} -declare 20 generic { - int Togl_GetOverlayTransparentValue(const Togl *togl) -} -declare 21 generic { - int Togl_IsMappedOverlay(const Togl *togl) -} -declare 22 generic { - unsigned long Togl_AllocColorOverlay(const Togl *togl, - float red, float green, float blue) -} -declare 23 generic { - void Togl_FreeColorOverlay(const Togl *togl, unsigned long index) -} - -# User client data -declare 24 generic { - ClientData Togl_GetClientData(const Togl *togl) -} -declare 25 generic { - void Togl_SetClientData(Togl *togl, ClientData clientData) -} - -# Stereo support -declare 26 generic { - void Togl_DrawBuffer(Togl *togl, GLenum mode) -} -declare 27 generic { - void Togl_Clear(const Togl *togl, GLbitfield mask) -} -declare 28 generic { - void Togl_Frustum(const Togl *togl, GLdouble left, GLdouble right, - GLdouble bottom, GLdouble top, GLdouble near, GLdouble far) -} -declare 34 generic { - void Togl_Ortho(const Togl *togl, GLdouble left, GLdouble right, - GLdouble bottom, GLdouble top, GLdouble near, GLdouble far) -} -declare 35 generic { - int Togl_NumEyes(const Togl *togl) -} - -# save current contents of OpenGL window into photo image -declare 30 generic { - int Togl_TakePhoto(Togl *togl, Tk_PhotoHandle photo) -} - -# platform-independent lookup of OpenGL functions -declare 31 generic { - Togl_FuncPtr Togl_GetProcAddr(const char *funcname) -} - -# Return the Togl data associated with pathName -declare 29 generic { - int Togl_GetToglFromObj(Tcl_Interp *interp, Tcl_Obj *obj, Togl **toglPtr) -} -declare 32 generic { - int Togl_GetToglFromName(Tcl_Interp *interp, const char *cmdName, Togl **toglPtr) -} diff --git a/opengl/Togl2.1-SnapPy/togl.h b/opengl/Togl2.1-SnapPy/togl.h deleted file mode 100644 index 59f8af384..000000000 --- a/opengl/Togl2.1-SnapPy/togl.h +++ /dev/null @@ -1,157 +0,0 @@ -/* $Id: togl.h,v 1.39 2009/03/31 23:21:13 gregcouch Exp $ */ - -/* vi:set sw=4: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - - -#ifndef TOGL_H -# define TOGL_H - -#ifdef _MSC_VER -# define TOGL_WGL -# define DllEntryPoint DllMain -#else -# include "togl_ws.h" -#endif - -# ifdef TOGL_WGL -# define WIN32_LEAN_AND_MEAN -# include -# undef WIN32_LEAN_AND_MEAN -# endif - -# if defined(TOGL_AGL) || defined(TOGL_NSOPENGL) -# ifndef MAC_OSX_TCL -# define MAC_OSX_TCL 1 -# endif -# ifndef MAC_OSX_TK -# define MAC_OSX_TK 1 -# endif -# endif - -# ifdef USE_TOGL_STUBS -# ifndef USE_TCL_STUBS -# define USE_TCL_STUBS -# endif -# ifndef USE_TK_STUBS -# define USE_TK_STUBS -# endif -# endif - -# include -# include -# if defined(TOGL_AGL) -# include -# elif defined(TOGL_NSOPENGL) -# include -# else -# include -# endif - -# ifdef BUILD_togl -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -# endif - -# ifndef CONST84 -# define CONST84 -# endif - -# ifndef NULL -# define NULL 0 -# endif - -# ifndef EXTERN -# ifdef _MSC_VER -# define EXTERN -# else -# define EXTERN extern -# endif -# endif - -# ifdef __cplusplus -/* *INDENT-OFF* */ -extern "C" { -/* *INDENT-ON* */ -# endif - -# define TOGL_VERSION "2.1" -# define TOGL_MAJOR_VERSION 2 -# define TOGL_MINOR_VERSION 1 - -/* - * "Standard" fonts which can be specified to Togl_LoadBitmapFont() - * Deprecated. Use the Tk font name or description instead. - */ -# define TOGL_BITMAP_8_BY_13 "8x13" -# define TOGL_BITMAP_9_BY_15 "9x15" -# define TOGL_BITMAP_TIMES_ROMAN_10 "Times 10" -# define TOGL_BITMAP_TIMES_ROMAN_24 "Times 24" -# define TOGL_BITMAP_HELVETICA_10 "Helvetica 10" -# define TOGL_BITMAP_HELVETICA_12 "Helvetica 12" -# define TOGL_BITMAP_HELVETICA_18 "Helvetica 18" - -/* - * Normal and overlay plane constants - */ -# define TOGL_NORMAL 1 -# define TOGL_OVERLAY 2 - -/* - * Stereo techniques: - * Only the native method uses OpenGL quad-buffered stereo. - * All need the eye offset and eye distance set properly. - */ -/* These versions need one eye drawn */ -# define TOGL_STEREO_NONE 0 -# define TOGL_STEREO_LEFT_EYE 1 /* just the left eye */ -# define TOGL_STEREO_RIGHT_EYE 2 /* just the right eye */ -# define TOGL_STEREO_ONE_EYE_MAX 127 -/* These versions need both eyes drawn */ -# define TOGL_STEREO_NATIVE 128 -# define TOGL_STEREO_SGIOLDSTYLE 129 /* interlaced, SGI API */ -# define TOGL_STEREO_ANAGLYPH 130 -# define TOGL_STEREO_CROSS_EYE 131 -# define TOGL_STEREO_WALL_EYE 132 -# define TOGL_STEREO_DTI 133 /* dti3d.com */ -# define TOGL_STEREO_ROW_INTERLEAVED 134 /* www.vrex.com/developer/interleave.htm */ - -/* - * Enum used for the -profile option. - */ - -enum profile { - PROFILE_LEGACY, PROFILE_3_2, PROFILE_4_1 -}; - -struct Togl; -typedef struct Togl Togl; -typedef void (*Togl_FuncPtr) (); - -const char *Togl_InitStubs (Tcl_Interp *interp, const char *version, int exact); - -# ifndef USE_TOGL_STUBS -# define Togl_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "Togl", version, exact) -# endif - -/* - * Platform independent exported functions - */ - -# include "toglDecls.h" - -# ifdef __cplusplus -/* *INDENT-OFF* */ -} -/* *INDENT-ON* */ -# endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/toglAGL.c b/opengl/Togl2.1-SnapPy/toglAGL.c deleted file mode 100644 index 51ba014c3..000000000 --- a/opengl/Togl2.1-SnapPy/toglAGL.c +++ /dev/null @@ -1,293 +0,0 @@ -/* $Id: toglAGL.c,v 1.7 2009/10/22 00:06:41 gregcouch Exp $ */ - -/* vi:set sw=4 expandtab: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -struct FBInfo -{ - GLint acceleration; - GLint colors; - GLint depth; - GLint samples; - AGLPixelFormat pix; -}; -typedef struct FBInfo FBInfo; - -static int -FBInfoCmp(const void *a, const void *b) -{ - /* - * 1. full acceleration is better - * 2. greater color bits is better - * 3. greater depth bits is better - * 4. more multisampling is better - */ - const FBInfo *x = (const FBInfo *) a; - const FBInfo *y = (const FBInfo *) b; - - if (x->acceleration != y->acceleration) - return y->acceleration - x->acceleration; - if (x->colors != y->colors) - return y->colors - x->colors; - if (x->depth != y->depth) - return y->depth - x->depth; - if (x->samples != y->samples) - return y->samples - x->samples; - return 0; -} - -static AGLPixelFormat -togl_pixelFormat(Togl *togl) -{ - GLint attribs[32]; - int na = 0; - AGLPixelFormat pix; - GDHandle display = NULL; - FBInfo *info = NULL; - int count; - -#if 0 - if (togl->MultisampleFlag && !hasMultisampling) { - Tcl_SetResult(togl->Interp, - "multisampling not supported", TCL_STATIC); - return NULL; - } -#endif - - if (togl->PbufferFlag && !togl->RgbaFlag) { - Tcl_SetResult(togl->Interp, - "puffer must be RGB[A]", TCL_STATIC); - return NULL; - } - - attribs[na++] = AGL_MINIMUM_POLICY; - /* ask for hardware-accelerated onscreen */ - attribs[na++] = AGL_ACCELERATED; - attribs[na++] = AGL_NO_RECOVERY; - if (togl->RgbaFlag) { - /* RGB[A] mode */ - attribs[na++] = AGL_RGBA; - attribs[na++] = AGL_RED_SIZE; - attribs[na++] = togl->RgbaRed; - attribs[na++] = AGL_GREEN_SIZE; - attribs[na++] = togl->RgbaGreen; - attribs[na++] = AGL_BLUE_SIZE; - attribs[na++] = togl->RgbaBlue; - if (togl->AlphaFlag) { - attribs[na++] = AGL_ALPHA_SIZE; - attribs[na++] = togl->AlphaSize; - } - } else { - /* Color index mode */ - attribs[na++] = AGL_BUFFER_SIZE; - attribs[na++] = 8; - } - if (togl->DepthFlag) { - attribs[na++] = AGL_DEPTH_SIZE; - attribs[na++] = togl->DepthSize; - } - if (togl->DoubleFlag) { - attribs[na++] = AGL_DOUBLEBUFFER; - } - if (togl->StencilFlag) { - attribs[na++] = AGL_STENCIL_SIZE; - attribs[na++] = togl->StencilSize; - } - if (togl->AccumFlag) { - attribs[na++] = AGL_ACCUM_RED_SIZE; - attribs[na++] = togl->AccumRed; - attribs[na++] = AGL_ACCUM_GREEN_SIZE; - attribs[na++] = togl->AccumGreen; - attribs[na++] = AGL_ACCUM_BLUE_SIZE; - attribs[na++] = togl->AccumBlue; - if (togl->AlphaFlag) { - attribs[na++] = AGL_ACCUM_ALPHA_SIZE; - attribs[na++] = togl->AccumAlpha; - } - } - if (togl->MultisampleFlag) { - attribs[na++] = AGL_MULTISAMPLE; -#ifdef AGL_SAMPLES_ARB - /* OS X 10.2 and later */ - attribs[na++] = AGL_SAMPLE_BUFFERS_ARB; - attribs[na++] = 1; - attribs[na++] = AGL_SAMPLES_ARB; - attribs[na++] = 2; -#endif - } - if (togl->AuxNumber != 0) { - attribs[na++] = AGL_AUX_BUFFERS; - attribs[na++] = togl->AuxNumber; - } - if (togl->Stereo == TOGL_STEREO_NATIVE) { - attribs[na++] = AGL_STEREO; - } - if (togl->FullscreenFlag) { - attribs[na++] = AGL_FULLSCREEN; - /* TODO: convert Tk screen to display device */ - display = GetMainDevice(); - } - attribs[na++] = AGL_NONE; - - if ((pix = aglChoosePixelFormat(&display, togl->FullscreenFlag ? 1 : 0, - attribs)) == NULL) { - Tcl_SetResult(togl->Interp, "couldn't choose pixel format", - TCL_STATIC); - return NULL; - } - - /* TODO: since we aglDestroyPixelFormat elsewhere, this code may leak - * memory if the pixel format choosen is not the original (because - * aglDestroyPixelFormat will give an error). */ - count = 0; - do { - info = (FBInfo *) realloc(info, (count + 1) * sizeof (FBInfo)); - info[count].pix = pix; - aglDescribePixelFormat(pix, AGL_ACCELERATED, &info[count].acceleration); - aglDescribePixelFormat(pix, AGL_BUFFER_SIZE, &info[count].colors); - aglDescribePixelFormat(pix, AGL_DEPTH_SIZE, &info[count].depth); -#ifdef AGL_SAMPLES_ARB - aglDescribePixelFormat(pix, AGL_SAMPLES_ARB, &info[count].samples); -#else - info[count].samples = 0; -#endif - ++count; - } while (pix = aglNextPixelFormat(pix)); - qsort(info, count, sizeof info[0], FBInfoCmp); - pix = info[0].pix; - free(info); - return pix; -} - -static int -togl_describePixelFormat(Togl *togl) -{ - AGLPixelFormat pixelformat; - - /* fill in RgbaFlag, DoubleFlag, and Stereo */ - pixelformat = (AGLPixelFormat) togl->PixelFormat; - GLint has_rgba, has_doublebuf, has_depth, has_accum, has_alpha, - has_stencil, has_stereo, has_multisample; - - if (aglDescribePixelFormat(pixelformat, AGL_RGBA, &has_rgba) - && aglDescribePixelFormat(pixelformat, AGL_DOUBLEBUFFER, - &has_doublebuf) - && aglDescribePixelFormat(pixelformat, AGL_DEPTH_SIZE, &has_depth) - && aglDescribePixelFormat(pixelformat, AGL_ACCUM_RED_SIZE, - &has_accum) - && aglDescribePixelFormat(pixelformat, AGL_ALPHA_SIZE, &has_alpha) - && aglDescribePixelFormat(pixelformat, AGL_STENCIL_SIZE, - &has_stencil) - && aglDescribePixelFormat(pixelformat, AGL_STEREO, &has_stereo) -#ifdef AGL_SAMPLES_ARB - && aglDescribePixelFormat(pixelformat, AGL_SAMPLES_ARB, - &has_multisample) -#endif - ) { - togl->RgbaFlag = (has_rgba != 0); - togl->DoubleFlag = (has_doublebuf != 0); - togl->DepthFlag = (has_depth != 0); - togl->AccumFlag = (has_accum != 0); - togl->AlphaFlag = (has_alpha != 0); - togl->StencilFlag = (has_stencil != 0); - togl->Stereo = (has_stereo ? TOGL_STEREO_NATIVE : TOGL_STEREO_NONE); -#ifdef AGL_SAMPLES_ARB - togl->MultisampleFlag = (has_multisample != 0); -#else - togl->MultisampleFlag = False; -#endif - return True; - } else { - Tcl_SetResult(togl->Interp, - "failed querying pixel format attributes", - TCL_STATIC); - return False; - } -} - -#define isPow2(x) (((x) & ((x) - 1)) == 0) - -static AGLPbuffer -togl_createPbuffer(Togl *togl) -{ - GLint min_size[2], max_size[2]; - Bool hasPbuffer; - const char *extensions; - GLboolean good; - GLint target; - GLint virtualScreen; - AGLPbuffer pbuf; - - extensions = (const char *) glGetString(GL_EXTENSIONS); - hasPbuffer = (strstr(extensions, "GL_APPLE_pixel_buffer") != NULL); - if (!hasPbuffer) { - Tcl_SetResult(togl->Interp, - "pbuffers are not supported", TCL_STATIC); - return NULL; - } - glGetIntegerv(GL_MIN_PBUFFER_VIEWPORT_DIMS_APPLE, min_size); - glGetIntegerv(GL_MAX_VIEWPORT_DIMS, max_size); - virtualScreen = aglGetVirtualScreen(togl->Ctx); - for (;;) { - /* make sure we don't exceed the maximum size because if we do, - * aglCreatePbuffer may succeed and later uses of the pbuffer fail */ - if (togl->Width < min_size[0]) - togl->Width = min_size[0]; - else if (togl->Width > max_size[0]) { - if (togl->LargestPbufferFlag) - togl->Width = max_size[0]; - else { - Tcl_SetResult(togl->Interp, - "pbuffer too large", TCL_STATIC); - return NULL; - } - } - if (togl->Height < min_size[1]) - togl->Height = min_size[1]; - else if (togl->Height > max_size[1]) { - if (togl->LargestPbufferFlag) - togl->Height = max_size[1]; - else { - Tcl_SetResult(togl->Interp, - "pbuffer too large", TCL_STATIC); - return NULL; - } - } - - if (isPow2(togl->Width) && isPow2(togl->Height)) - target = GL_TEXTURE_2D; - else - target = GL_TEXTURE_RECTANGLE_ARB; - - good = aglCreatePBuffer(togl->Width, togl->Height, target, - togl->AlphaFlag ? GL_RGBA : GL_RGB, 0, &pbuf); - if (good) { - /* aglSetPbuffer allocates the framebuffer space */ - if (aglSetPBuffer(togl->Ctx, pbuf, 0, 0, virtualScreen)) { - return pbuf; - } - } - if (!togl->LargestPbufferFlag - || togl->Width == min_size[0] || togl->Height == min_size[1]) { - Tcl_SetResult(togl->Interp, - "unable to create pbuffer", TCL_STATIC); - return NULL; - } - /* largest unavailable, try something smaller */ - togl->Width = togl->Width / 2 + togl->Width % 2; - togl->Height = togl->Width / 2 + togl->Height % 2; - } -} - -static void -togl_destroyPbuffer(Togl *togl) -{ - aglDestroyPBuffer(togl->pbuf); -} diff --git a/opengl/Togl2.1-SnapPy/toglDecls.h b/opengl/Togl2.1-SnapPy/toglDecls.h deleted file mode 100644 index 409c291c8..000000000 --- a/opengl/Togl2.1-SnapPy/toglDecls.h +++ /dev/null @@ -1,549 +0,0 @@ -#ifndef ToglDecls_H -# define ToglDecls_H - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ -#ifndef Togl_Init_TCL_DECLARED -#define Togl_Init_TCL_DECLARED -/* 0 */ -EXTERN int Togl_Init(Tcl_Interp *interp); -#endif -#ifndef Togl_MakeCurrent_TCL_DECLARED -#define Togl_MakeCurrent_TCL_DECLARED -/* 1 */ -EXTERN void Togl_MakeCurrent(const Togl *togl); -#endif -#ifndef Togl_PostRedisplay_TCL_DECLARED -#define Togl_PostRedisplay_TCL_DECLARED -/* 2 */ -EXTERN void Togl_PostRedisplay(Togl *togl); -#endif -#ifndef Togl_SwapBuffers_TCL_DECLARED -#define Togl_SwapBuffers_TCL_DECLARED -/* 3 */ -EXTERN void Togl_SwapBuffers(const Togl *togl); -#endif -#ifndef Togl_Ident_TCL_DECLARED -#define Togl_Ident_TCL_DECLARED -/* 4 */ -EXTERN const char * Togl_Ident(const Togl *togl); -#endif -#ifndef Togl_Width_TCL_DECLARED -#define Togl_Width_TCL_DECLARED -/* 5 */ -EXTERN int Togl_Width(const Togl *togl); -#endif -#ifndef Togl_Height_TCL_DECLARED -#define Togl_Height_TCL_DECLARED -/* 6 */ -EXTERN int Togl_Height(const Togl *togl); -#endif -#ifndef Togl_Interp_TCL_DECLARED -#define Togl_Interp_TCL_DECLARED -/* 7 */ -EXTERN Tcl_Interp * Togl_Interp(const Togl *togl); -#endif -#ifndef Togl_TkWin_TCL_DECLARED -#define Togl_TkWin_TCL_DECLARED -/* 8 */ -EXTERN Tk_Window Togl_TkWin(const Togl *togl); -#endif -#ifndef Togl_CommandName_TCL_DECLARED -#define Togl_CommandName_TCL_DECLARED -/* 9 */ -EXTERN const char * Togl_CommandName(const Togl *togl); -#endif -#ifndef Togl_AllocColor_TCL_DECLARED -#define Togl_AllocColor_TCL_DECLARED -/* 10 */ -EXTERN unsigned long Togl_AllocColor(const Togl *togl, float red, - float green, float blue); -#endif -#ifndef Togl_FreeColor_TCL_DECLARED -#define Togl_FreeColor_TCL_DECLARED -/* 11 */ -EXTERN void Togl_FreeColor(const Togl *togl, unsigned long index); -#endif -#ifndef Togl_SetColor_TCL_DECLARED -#define Togl_SetColor_TCL_DECLARED -/* 12 */ -EXTERN void Togl_SetColor(const Togl *togl, unsigned long index, - float red, float green, float blue); -#endif -#ifndef Togl_LoadBitmapFont_TCL_DECLARED -#define Togl_LoadBitmapFont_TCL_DECLARED -/* 13 */ -EXTERN Tcl_Obj * Togl_LoadBitmapFont(const Togl *togl, - const char *fontname); -#endif -#ifndef Togl_UnloadBitmapFont_TCL_DECLARED -#define Togl_UnloadBitmapFont_TCL_DECLARED -/* 14 */ -EXTERN int Togl_UnloadBitmapFont(const Togl *togl, - Tcl_Obj *toglfont); -#endif -#ifndef Togl_UseLayer_TCL_DECLARED -#define Togl_UseLayer_TCL_DECLARED -/* 15 */ -EXTERN void Togl_UseLayer(Togl *togl, int layer); -#endif -#ifndef Togl_ShowOverlay_TCL_DECLARED -#define Togl_ShowOverlay_TCL_DECLARED -/* 16 */ -EXTERN void Togl_ShowOverlay(Togl *togl); -#endif -#ifndef Togl_HideOverlay_TCL_DECLARED -#define Togl_HideOverlay_TCL_DECLARED -/* 17 */ -EXTERN void Togl_HideOverlay(Togl *togl); -#endif -#ifndef Togl_PostOverlayRedisplay_TCL_DECLARED -#define Togl_PostOverlayRedisplay_TCL_DECLARED -/* 18 */ -EXTERN void Togl_PostOverlayRedisplay(Togl *togl); -#endif -#ifndef Togl_ExistsOverlay_TCL_DECLARED -#define Togl_ExistsOverlay_TCL_DECLARED -/* 19 */ -EXTERN int Togl_ExistsOverlay(const Togl *togl); -#endif -#ifndef Togl_GetOverlayTransparentValue_TCL_DECLARED -#define Togl_GetOverlayTransparentValue_TCL_DECLARED -/* 20 */ -EXTERN int Togl_GetOverlayTransparentValue(const Togl *togl); -#endif -#ifndef Togl_IsMappedOverlay_TCL_DECLARED -#define Togl_IsMappedOverlay_TCL_DECLARED -/* 21 */ -EXTERN int Togl_IsMappedOverlay(const Togl *togl); -#endif -#ifndef Togl_AllocColorOverlay_TCL_DECLARED -#define Togl_AllocColorOverlay_TCL_DECLARED -/* 22 */ -EXTERN unsigned long Togl_AllocColorOverlay(const Togl *togl, float red, - float green, float blue); -#endif -#ifndef Togl_FreeColorOverlay_TCL_DECLARED -#define Togl_FreeColorOverlay_TCL_DECLARED -/* 23 */ -EXTERN void Togl_FreeColorOverlay(const Togl *togl, - unsigned long index); -#endif -#ifndef Togl_GetClientData_TCL_DECLARED -#define Togl_GetClientData_TCL_DECLARED -/* 24 */ -EXTERN ClientData Togl_GetClientData(const Togl *togl); -#endif -#ifndef Togl_SetClientData_TCL_DECLARED -#define Togl_SetClientData_TCL_DECLARED -/* 25 */ -EXTERN void Togl_SetClientData(Togl *togl, ClientData clientData); -#endif -#ifndef Togl_DrawBuffer_TCL_DECLARED -#define Togl_DrawBuffer_TCL_DECLARED -/* 26 */ -EXTERN void Togl_DrawBuffer(Togl *togl, GLenum mode); -#endif -#ifndef Togl_Clear_TCL_DECLARED -#define Togl_Clear_TCL_DECLARED -/* 27 */ -EXTERN void Togl_Clear(const Togl *togl, GLbitfield mask); -#endif -#ifndef Togl_Frustum_TCL_DECLARED -#define Togl_Frustum_TCL_DECLARED -/* 28 */ -EXTERN void Togl_Frustum(const Togl *togl, GLdouble left, - GLdouble right, GLdouble bottom, - GLdouble top, GLdouble near, GLdouble far); -#endif -#ifndef Togl_GetToglFromObj_TCL_DECLARED -#define Togl_GetToglFromObj_TCL_DECLARED -/* 29 */ -EXTERN int Togl_GetToglFromObj(Tcl_Interp *interp, Tcl_Obj *obj, - Togl **toglPtr); -#endif -#ifndef Togl_TakePhoto_TCL_DECLARED -#define Togl_TakePhoto_TCL_DECLARED -/* 30 */ -EXTERN int Togl_TakePhoto(Togl *togl, Tk_PhotoHandle photo); -#endif -#ifndef Togl_GetProcAddr_TCL_DECLARED -#define Togl_GetProcAddr_TCL_DECLARED -/* 31 */ -#ifdef TOGL_WGL - Togl_FuncPtr Togl_GetProcAddr(const char *funcname); -#else -EXTERN Togl_FuncPtr Togl_GetProcAddr(const char *funcname); -#endif -#endif -#ifndef Togl_GetToglFromName_TCL_DECLARED -#define Togl_GetToglFromName_TCL_DECLARED -/* 32 */ -EXTERN int Togl_GetToglFromName(Tcl_Interp *interp, - const char *cmdName, Togl **toglPtr); -#endif -#ifndef Togl_SwapInterval_TCL_DECLARED -#define Togl_SwapInterval_TCL_DECLARED -/* 33 */ -EXTERN Bool Togl_SwapInterval(const Togl *togl, int interval); -#endif -#ifndef Togl_Ortho_TCL_DECLARED -#define Togl_Ortho_TCL_DECLARED -/* 34 */ -EXTERN void Togl_Ortho(const Togl *togl, GLdouble left, - GLdouble right, GLdouble bottom, - GLdouble top, GLdouble near, GLdouble far); -#endif -#ifndef Togl_NumEyes_TCL_DECLARED -#define Togl_NumEyes_TCL_DECLARED -/* 35 */ -EXTERN int Togl_NumEyes(const Togl *togl); -#endif -#ifndef Togl_ContextTag_TCL_DECLARED -#define Togl_ContextTag_TCL_DECLARED -/* 36 */ -EXTERN int Togl_ContextTag(const Togl *togl); -#endif -#ifndef Togl_UpdatePending_TCL_DECLARED -#define Togl_UpdatePending_TCL_DECLARED -/* 37 */ -EXTERN Bool Togl_UpdatePending(const Togl *togl); -#endif -#ifndef Togl_WriteObj_TCL_DECLARED -#define Togl_WriteObj_TCL_DECLARED -/* 38 */ -EXTERN int Togl_WriteObj(const Togl *togl, - const Tcl_Obj *toglfont, Tcl_Obj *obj); -#endif -#ifndef Togl_WriteChars_TCL_DECLARED -#define Togl_WriteChars_TCL_DECLARED -/* 39 */ -EXTERN int Togl_WriteChars(const Togl *togl, - const Tcl_Obj *toglfont, const char *str, - int len); -#endif -#ifndef Togl_HasRGBA_TCL_DECLARED -#define Togl_HasRGBA_TCL_DECLARED -/* 40 */ -EXTERN Bool Togl_HasRGBA(const Togl *togl); -#endif -#ifndef Togl_IsDoubleBuffered_TCL_DECLARED -#define Togl_IsDoubleBuffered_TCL_DECLARED -/* 41 */ -EXTERN Bool Togl_IsDoubleBuffered(const Togl *togl); -#endif -#ifndef Togl_HasDepthBuffer_TCL_DECLARED -#define Togl_HasDepthBuffer_TCL_DECLARED -/* 42 */ -EXTERN Bool Togl_HasDepthBuffer(const Togl *togl); -#endif -#ifndef Togl_HasAccumulationBuffer_TCL_DECLARED -#define Togl_HasAccumulationBuffer_TCL_DECLARED -/* 43 */ -EXTERN Bool Togl_HasAccumulationBuffer(const Togl *togl); -#endif -#ifndef Togl_HasDestinationAlpha_TCL_DECLARED -#define Togl_HasDestinationAlpha_TCL_DECLARED -/* 44 */ -EXTERN Bool Togl_HasDestinationAlpha(const Togl *togl); -#endif -#ifndef Togl_HasStencilBuffer_TCL_DECLARED -#define Togl_HasStencilBuffer_TCL_DECLARED -/* 45 */ -EXTERN Bool Togl_HasStencilBuffer(const Togl *togl); -#endif -#ifndef Togl_StereoMode_TCL_DECLARED -#define Togl_StereoMode_TCL_DECLARED -/* 46 */ -EXTERN int Togl_StereoMode(const Togl *togl); -#endif -#ifndef Togl_HasMultisample_TCL_DECLARED -#define Togl_HasMultisample_TCL_DECLARED -/* 47 */ -EXTERN Bool Togl_HasMultisample(const Togl *togl); -#endif -#ifndef Togl_CopyContext_TCL_DECLARED -#define Togl_CopyContext_TCL_DECLARED -/* 48 */ -EXTERN int Togl_CopyContext(const Togl *from, const Togl *to, - unsigned int mask); -#endif - -typedef struct ToglStubs { - int magic; - const struct ToglStubHooks *hooks; - - int (*togl_Init) (Tcl_Interp *interp); /* 0 */ - void (*togl_MakeCurrent) (const Togl *togl); /* 1 */ - void (*togl_PostRedisplay) (Togl *togl); /* 2 */ - void (*togl_SwapBuffers) (const Togl *togl); /* 3 */ - const char * (*togl_Ident) (const Togl *togl); /* 4 */ - int (*togl_Width) (const Togl *togl); /* 5 */ - int (*togl_Height) (const Togl *togl); /* 6 */ - Tcl_Interp * (*togl_Interp) (const Togl *togl); /* 7 */ - Tk_Window (*togl_TkWin) (const Togl *togl); /* 8 */ - const char * (*togl_CommandName) (const Togl *togl); /* 9 */ - unsigned long (*togl_AllocColor) (const Togl *togl, float red, float green, float blue); /* 10 */ - void (*togl_FreeColor) (const Togl *togl, unsigned long index); /* 11 */ - void (*togl_SetColor) (const Togl *togl, unsigned long index, float red, float green, float blue); /* 12 */ - Tcl_Obj * (*togl_LoadBitmapFont) (const Togl *togl, const char *fontname); /* 13 */ - int (*togl_UnloadBitmapFont) (const Togl *togl, Tcl_Obj *toglfont); /* 14 */ - void (*togl_UseLayer) (Togl *togl, int layer); /* 15 */ - void (*togl_ShowOverlay) (Togl *togl); /* 16 */ - void (*togl_HideOverlay) (Togl *togl); /* 17 */ - void (*togl_PostOverlayRedisplay) (Togl *togl); /* 18 */ - int (*togl_ExistsOverlay) (const Togl *togl); /* 19 */ - int (*togl_GetOverlayTransparentValue) (const Togl *togl); /* 20 */ - int (*togl_IsMappedOverlay) (const Togl *togl); /* 21 */ - unsigned long (*togl_AllocColorOverlay) (const Togl *togl, float red, float green, float blue); /* 22 */ - void (*togl_FreeColorOverlay) (const Togl *togl, unsigned long index); /* 23 */ - ClientData (*togl_GetClientData) (const Togl *togl); /* 24 */ - void (*togl_SetClientData) (Togl *togl, ClientData clientData); /* 25 */ - void (*togl_DrawBuffer) (Togl *togl, GLenum mode); /* 26 */ - void (*togl_Clear) (const Togl *togl, GLbitfield mask); /* 27 */ - void (*togl_Frustum) (const Togl *togl, GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near, GLdouble far); /* 28 */ - int (*togl_GetToglFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, Togl **toglPtr); /* 29 */ - int (*togl_TakePhoto) (Togl *togl, Tk_PhotoHandle photo); /* 30 */ - Togl_FuncPtr (*togl_GetProcAddr) (const char *funcname); /* 31 */ - int (*togl_GetToglFromName) (Tcl_Interp *interp, const char *cmdName, Togl **toglPtr); /* 32 */ - Bool (*togl_SwapInterval) (const Togl *togl, int interval); /* 33 */ - void (*togl_Ortho) (const Togl *togl, GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near, GLdouble far); /* 34 */ - int (*togl_NumEyes) (const Togl *togl); /* 35 */ - int (*togl_ContextTag) (const Togl *togl); /* 36 */ - Bool (*togl_UpdatePending) (const Togl *togl); /* 37 */ - int (*togl_WriteObj) (const Togl *togl, const Tcl_Obj *toglfont, Tcl_Obj *obj); /* 38 */ - int (*togl_WriteChars) (const Togl *togl, const Tcl_Obj *toglfont, const char *str, int len); /* 39 */ - Bool (*togl_HasRGBA) (const Togl *togl); /* 40 */ - Bool (*togl_IsDoubleBuffered) (const Togl *togl); /* 41 */ - Bool (*togl_HasDepthBuffer) (const Togl *togl); /* 42 */ - Bool (*togl_HasAccumulationBuffer) (const Togl *togl); /* 43 */ - Bool (*togl_HasDestinationAlpha) (const Togl *togl); /* 44 */ - Bool (*togl_HasStencilBuffer) (const Togl *togl); /* 45 */ - int (*togl_StereoMode) (const Togl *togl); /* 46 */ - Bool (*togl_HasMultisample) (const Togl *togl); /* 47 */ - int (*togl_CopyContext) (const Togl *from, const Togl *to, unsigned int mask); /* 48 */ -} ToglStubs; - -#if defined(USE_TOGL_STUBS) && !defined(USE_TOGL_STUB_PROCS) -extern const ToglStubs *toglStubsPtr; -#endif /* defined(USE_TOGL_STUBS) && !defined(USE_TOGL_STUB_PROCS) */ - -#if defined(USE_TOGL_STUBS) && !defined(USE_TOGL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Togl_Init -#define Togl_Init \ - (toglStubsPtr->togl_Init) /* 0 */ -#endif -#ifndef Togl_MakeCurrent -#define Togl_MakeCurrent \ - (toglStubsPtr->togl_MakeCurrent) /* 1 */ -#endif -#ifndef Togl_PostRedisplay -#define Togl_PostRedisplay \ - (toglStubsPtr->togl_PostRedisplay) /* 2 */ -#endif -#ifndef Togl_SwapBuffers -#define Togl_SwapBuffers \ - (toglStubsPtr->togl_SwapBuffers) /* 3 */ -#endif -#ifndef Togl_Ident -#define Togl_Ident \ - (toglStubsPtr->togl_Ident) /* 4 */ -#endif -#ifndef Togl_Width -#define Togl_Width \ - (toglStubsPtr->togl_Width) /* 5 */ -#endif -#ifndef Togl_Height -#define Togl_Height \ - (toglStubsPtr->togl_Height) /* 6 */ -#endif -#ifndef Togl_Interp -#define Togl_Interp \ - (toglStubsPtr->togl_Interp) /* 7 */ -#endif -#ifndef Togl_TkWin -#define Togl_TkWin \ - (toglStubsPtr->togl_TkWin) /* 8 */ -#endif -#ifndef Togl_CommandName -#define Togl_CommandName \ - (toglStubsPtr->togl_CommandName) /* 9 */ -#endif -#ifndef Togl_AllocColor -#define Togl_AllocColor \ - (toglStubsPtr->togl_AllocColor) /* 10 */ -#endif -#ifndef Togl_FreeColor -#define Togl_FreeColor \ - (toglStubsPtr->togl_FreeColor) /* 11 */ -#endif -#ifndef Togl_SetColor -#define Togl_SetColor \ - (toglStubsPtr->togl_SetColor) /* 12 */ -#endif -#ifndef Togl_LoadBitmapFont -#define Togl_LoadBitmapFont \ - (toglStubsPtr->togl_LoadBitmapFont) /* 13 */ -#endif -#ifndef Togl_UnloadBitmapFont -#define Togl_UnloadBitmapFont \ - (toglStubsPtr->togl_UnloadBitmapFont) /* 14 */ -#endif -#ifndef Togl_UseLayer -#define Togl_UseLayer \ - (toglStubsPtr->togl_UseLayer) /* 15 */ -#endif -#ifndef Togl_ShowOverlay -#define Togl_ShowOverlay \ - (toglStubsPtr->togl_ShowOverlay) /* 16 */ -#endif -#ifndef Togl_HideOverlay -#define Togl_HideOverlay \ - (toglStubsPtr->togl_HideOverlay) /* 17 */ -#endif -#ifndef Togl_PostOverlayRedisplay -#define Togl_PostOverlayRedisplay \ - (toglStubsPtr->togl_PostOverlayRedisplay) /* 18 */ -#endif -#ifndef Togl_ExistsOverlay -#define Togl_ExistsOverlay \ - (toglStubsPtr->togl_ExistsOverlay) /* 19 */ -#endif -#ifndef Togl_GetOverlayTransparentValue -#define Togl_GetOverlayTransparentValue \ - (toglStubsPtr->togl_GetOverlayTransparentValue) /* 20 */ -#endif -#ifndef Togl_IsMappedOverlay -#define Togl_IsMappedOverlay \ - (toglStubsPtr->togl_IsMappedOverlay) /* 21 */ -#endif -#ifndef Togl_AllocColorOverlay -#define Togl_AllocColorOverlay \ - (toglStubsPtr->togl_AllocColorOverlay) /* 22 */ -#endif -#ifndef Togl_FreeColorOverlay -#define Togl_FreeColorOverlay \ - (toglStubsPtr->togl_FreeColorOverlay) /* 23 */ -#endif -#ifndef Togl_GetClientData -#define Togl_GetClientData \ - (toglStubsPtr->togl_GetClientData) /* 24 */ -#endif -#ifndef Togl_SetClientData -#define Togl_SetClientData \ - (toglStubsPtr->togl_SetClientData) /* 25 */ -#endif -#ifndef Togl_DrawBuffer -#define Togl_DrawBuffer \ - (toglStubsPtr->togl_DrawBuffer) /* 26 */ -#endif -#ifndef Togl_Clear -#define Togl_Clear \ - (toglStubsPtr->togl_Clear) /* 27 */ -#endif -#ifndef Togl_Frustum -#define Togl_Frustum \ - (toglStubsPtr->togl_Frustum) /* 28 */ -#endif -#ifndef Togl_GetToglFromObj -#define Togl_GetToglFromObj \ - (toglStubsPtr->togl_GetToglFromObj) /* 29 */ -#endif -#ifndef Togl_TakePhoto -#define Togl_TakePhoto \ - (toglStubsPtr->togl_TakePhoto) /* 30 */ -#endif -#ifndef Togl_GetProcAddr -#define Togl_GetProcAddr \ - (toglStubsPtr->togl_GetProcAddr) /* 31 */ -#endif -#ifndef Togl_GetToglFromName -#define Togl_GetToglFromName \ - (toglStubsPtr->togl_GetToglFromName) /* 32 */ -#endif -#ifndef Togl_SwapInterval -#define Togl_SwapInterval \ - (toglStubsPtr->togl_SwapInterval) /* 33 */ -#endif -#ifndef Togl_Ortho -#define Togl_Ortho \ - (toglStubsPtr->togl_Ortho) /* 34 */ -#endif -#ifndef Togl_NumEyes -#define Togl_NumEyes \ - (toglStubsPtr->togl_NumEyes) /* 35 */ -#endif -#ifndef Togl_ContextTag -#define Togl_ContextTag \ - (toglStubsPtr->togl_ContextTag) /* 36 */ -#endif -#ifndef Togl_UpdatePending -#define Togl_UpdatePending \ - (toglStubsPtr->togl_UpdatePending) /* 37 */ -#endif -#ifndef Togl_WriteObj -#define Togl_WriteObj \ - (toglStubsPtr->togl_WriteObj) /* 38 */ -#endif -#ifndef Togl_WriteChars -#define Togl_WriteChars \ - (toglStubsPtr->togl_WriteChars) /* 39 */ -#endif -#ifndef Togl_HasRGBA -#define Togl_HasRGBA \ - (toglStubsPtr->togl_HasRGBA) /* 40 */ -#endif -#ifndef Togl_IsDoubleBuffered -#define Togl_IsDoubleBuffered \ - (toglStubsPtr->togl_IsDoubleBuffered) /* 41 */ -#endif -#ifndef Togl_HasDepthBuffer -#define Togl_HasDepthBuffer \ - (toglStubsPtr->togl_HasDepthBuffer) /* 42 */ -#endif -#ifndef Togl_HasAccumulationBuffer -#define Togl_HasAccumulationBuffer \ - (toglStubsPtr->togl_HasAccumulationBuffer) /* 43 */ -#endif -#ifndef Togl_HasDestinationAlpha -#define Togl_HasDestinationAlpha \ - (toglStubsPtr->togl_HasDestinationAlpha) /* 44 */ -#endif -#ifndef Togl_HasStencilBuffer -#define Togl_HasStencilBuffer \ - (toglStubsPtr->togl_HasStencilBuffer) /* 45 */ -#endif -#ifndef Togl_StereoMode -#define Togl_StereoMode \ - (toglStubsPtr->togl_StereoMode) /* 46 */ -#endif -#ifndef Togl_HasMultisample -#define Togl_HasMultisample \ - (toglStubsPtr->togl_HasMultisample) /* 47 */ -#endif -#ifndef Togl_CopyContext -#define Togl_CopyContext \ - (toglStubsPtr->togl_CopyContext) /* 48 */ -#endif - -#endif /* defined(USE_TOGL_STUBS) && !defined(USE_TOGL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif diff --git a/opengl/Togl2.1-SnapPy/toglFont.c b/opengl/Togl2.1-SnapPy/toglFont.c deleted file mode 100644 index 337d28cc7..000000000 --- a/opengl/Togl2.1-SnapPy/toglFont.c +++ /dev/null @@ -1,447 +0,0 @@ -/* $Id: toglFont.c,v 1.8 2009/05/22 00:18:36 gregcouch Exp $ */ - -/* vi:set sw=4 expandtab: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2008 Greg Couch - * See the LICENSE file for copyright details. - */ - -/* - * Togl Bitmap Font support - * - * If bitmap font support is requested, then this file is included into - * togl.c. Parts of this file are based on , - * "Creating and Using Tcl Handles in C Extensions". - * - * Neither the Tk public nor the internal interface give enough information - * to reuse the font in OpenGL, so we copy the private structures here to - * access what we need. - * - * Globals needed by the font module are in togl.c - */ - -#include - -struct Togl_BitmapFontInfo -{ - GLuint base; - GLuint first; - GLuint last; - int contextTag; - /* TODO: keep original font and/or encoding */ -}; -typedef struct Togl_BitmapFontInfo Togl_BitmapFontInfo; - -#define BITMAP_FONT_INFO(obj) \ - ((Togl_BitmapFontInfo *) (obj)->internalRep.otherValuePtr) -#define SET_BITMAP_FONT_INFO(obj) \ - (obj)->internalRep.otherValuePtr - -static void Togl_FontFree(Tcl_Obj *obj); -static void Togl_FontDup(Tcl_Obj *src, Tcl_Obj *dup); -static void Togl_FontString(Tcl_Obj *obj); -static int Togl_FontSet(Tcl_Interp *interp, Tcl_Obj *obj); - -static Tcl_ObjType Togl_BitmapFontType = { - "Togl BitmapFont", /* name */ - Togl_FontFree, /* free internal rep */ - Togl_FontDup, /* dup internal rep */ - Togl_FontString, /* update string from internal rep */ - Togl_FontSet /* set internal rep from string */ -}; - -static int -Togl_FontSet(Tcl_Interp *interp, Tcl_Obj *obj) -{ - if (interp) - Tcl_AppendResult(interp, "cannot (re)build object of type \"", - Togl_BitmapFontType.name, "\"", NULL); - return TCL_ERROR; -} - -static void -Togl_FontFree(Tcl_Obj *obj) -{ - Togl_BitmapFontInfo *bfi = BITMAP_FONT_INFO(obj); - - ckfree((char *) bfi); -} - -static void -Togl_FontString(Tcl_Obj *obj) -{ - /* assert(obj->bytes == NULL) */ - static char buf[256]; - register unsigned len; - Togl_BitmapFontInfo *bfi = BITMAP_FONT_INFO(obj); - -#if !defined(TOGL_AGL) && !defined(TOGL_NSOPENGL) - snprintf(buf, sizeof buf - 1, "{{%s} %d %d %d}", - Togl_BitmapFontType.name, bfi->base, bfi->first, bfi->last); -#else - /* unlike every other platform, on Aqua, GLint is long */ - snprintf(buf, sizeof buf - 1, "{{%s} %ld %ld %ld}", - Togl_BitmapFontType.name, bfi->base, bfi->first, bfi->last); -#endif - buf[sizeof buf - 1] = '\0'; - len = strlen(buf); - obj->bytes = (char *) ckalloc(len + 1); - strcpy(obj->bytes, buf); - obj->length = len; -} - -static void -Togl_FontDup(Tcl_Obj *src, Tcl_Obj *dup) -{ - /* - * When duplicated, lose the font-ness and just be a string. - * So don't copy the internal representation and don't set - * dup->typePtr. - */ -} - -#if defined(TOGL_X11) -/* From tkUnixFont.c */ -/* - * The following structure encapsulates an individual screen font. A font - * object is made up of however many SubFonts are necessary to display a - * stream of multilingual characters. - */ - -typedef struct FontFamily FontFamily; - -typedef struct SubFont -{ - char **fontMap; /* Pointer to font map from the FontFamily, - * cached here to save a dereference. */ - XFontStruct *fontStructPtr; /* The specific screen font that will be used - * when displaying/measuring chars belonging to - * the FontFamily. */ - FontFamily *familyPtr; /* The FontFamily for this SubFont. */ -} SubFont; - -/* - * The following structure represents Unix's implementation of a font - * object. - */ - -# define SUBFONT_SPACE 3 -# define BASE_CHARS 256 - -typedef struct UnixFont -{ - TkFont font; /* Stuff used by generic font package. Must be - * first in structure. */ - SubFont staticSubFonts[SUBFONT_SPACE]; - /* Builtin space for a limited number of SubFonts. */ - int numSubFonts; /* Length of following array. */ - SubFont *subFontArray; /* Array of SubFonts that have been loaded in - * order to draw/measure all the characters - * encountered by this font so far. All fonts - * start off with one SubFont initialized by - * AllocFont() from the original set of font - * attributes. Usually points to - * staticSubFonts, but may point to malloced - * space if there are lots of SubFonts. */ - SubFont controlSubFont; /* Font to use to display control-character - * expansions. */ - -# if 0 - Display *display; /* Display that owns font. */ - int pixelSize; /* Original pixel size used when font was - * constructed. */ - TkXLFDAttributes xa; /* Additional attributes that specify the - * preferred foundry and encoding to use when - * constructing additional SubFonts. */ - int widths[BASE_CHARS]; /* Widths of first 256 chars in the base font, - * for handling common case. */ - int underlinePos; /* Offset from baseline to origin of underline - * bar (used when drawing underlined font) - * (pixels). */ - int barHeight; /* Height of underline or overstrike bar (used - * when drawing underlined or strikeout font) - * (pixels). */ -# endif -} UnixFont; - -#elif defined(TOGL_WGL) -# include -/* From tkWinFont.c */ - -typedef struct FontFamily FontFamily; - -/* - * The following structure encapsulates an individual screen font. A font - * object is made up of however many SubFonts are necessary to display a - * stream of multilingual characters. - */ - -typedef struct SubFont -{ - char **fontMap; /* Pointer to font map from the FontFamily, - * cached here to save a dereference. */ - HFONT hFont; /* The specific screen font that will be used - * when displaying/measuring chars belonging to - * the FontFamily. */ - FontFamily *familyPtr; /* The FontFamily for this SubFont. */ -} SubFont; - -/* - * The following structure represents Windows' implementation of a font - * object. - */ - -# define SUBFONT_SPACE 3 -# define BASE_CHARS 128 - -typedef struct WinFont -{ - TkFont font; /* Stuff used by generic font package. Must be - * first in structure. */ - SubFont staticSubFonts[SUBFONT_SPACE]; - /* Builtin space for a limited number of SubFonts. */ - int numSubFonts; /* Length of following array. */ - SubFont *subFontArray; /* Array of SubFonts that have been loaded in - * order to draw/measure all the characters - * encountered by this font so far. All fonts - * start off with one SubFont initialized by - * AllocFont() from the original set of font - * attributes. Usually points to - * staticSubFonts, but may point to malloced - * space if there are lots of SubFonts. */ - - HWND hwnd; /* Toplevel window of application that owns - * this font, used for getting HDC for - * offscreen measurements. */ - int pixelSize; /* Original pixel size used when font was - * constructed. */ - int widths[BASE_CHARS]; /* Widths of first 128 chars in the base font, - * for handling common case. The base font is - * always used to draw characters between - * 0x0000 and 0x007f. */ -} WinFont; - -#elif defined(TOGL_AGL) - -typedef struct FontFamily -{ - struct FontFamily *nextPtr; /* Next in list of all known font families. */ - int refCount; /* How many SubFonts are referring to this - * FontFamily. When the refCount drops to - * zero, this FontFamily may be freed. */ - /* - * Key. - */ - - FMFontFamily faceNum; /* Unique face number key for this FontFamily. */ - - /* - * Derived properties. - */ - - Tcl_Encoding encoding; /* Encoding for this font family. */ -# if 0 - int isSymbolFont; /* Non-zero if this is a symbol family. */ - int isMultiByteFont; /* Non-zero if this is a multi-byte family. */ - char typeTable[256]; /* Table that identfies all lead bytes for a - * multi-byte family, used when measuring - * chars. If a byte is a lead byte, the value - * at the corresponding position in the - * typeTable is 1, otherwise 0. If this is a - * single-byte font, all entries are 0. */ - char *fontMap[FONTMAP_PAGES]; - /* Two-level sparse table used to determine quickly if the specified - * character exists. As characters are encountered, more pages in this - * table are dynamically added. The contents of each page is a bitmask - * consisting of FONTMAP_BITSPERPAGE bits, representing whether this font - * can be used to display the given character at the corresponding bit - * position. The high bits of the character are used to pick which page of - * the table is used. */ -# endif -} FontFamily; - -/* - * The following structure encapsulates an individual screen font. A font - * object is made up of however many SubFonts are necessary to display a - * stream of multilingual characters. - */ - -typedef struct SubFont -{ - char **fontMap; /* Pointer to font map from the FontFamily, - * cached here to save a dereference. */ - FontFamily *familyPtr; /* The FontFamily for this SubFont. */ -} SubFont; - -/* - * The following structure represents Macintosh's implementation of a font - * object. - */ - -# define SUBFONT_SPACE 3 - -typedef struct MacFont -{ - TkFont font; /* Stuff used by generic font package. Must be - * first in structure. */ - SubFont staticSubFonts[SUBFONT_SPACE]; - /* Builtin space for a limited number of SubFonts. */ - int numSubFonts; /* Length of following array. */ - SubFont *subFontArray; /* Array of SubFonts that have been loaded in - * order to draw/measure all the characters - * encountered by this font so far. All fonts - * start off with one SubFont initialized by - * AllocFont() from the original set of font - * attributes. Usually points to - * staticSubFonts, but may point to malloced - * space if there are lots of SubFonts. */ - - short size; /* Font size in pixels, constructed from font - * attributes. */ - short style; /* Style bits, constructed from font - * attributes. */ -} MacFont; -#endif - -/* - * Load the named bitmap font as a sequence of bitmaps in a display list. - * fontname may be any font recognized by Tk_GetFont. - */ -Tcl_Obj * -Togl_LoadBitmapFont(const Togl *togl, const char *fontname) -{ - Tk_Font font; - Togl_BitmapFontInfo *bfi; - Tcl_Obj *obj; - -#if defined(TOGL_X11) - UnixFont *unixfont; - XFontStruct *fontinfo; -#elif defined(TOGL_WGL) - WinFont *winfont; - HFONT oldFont; - TEXTMETRIC tm; -#elif defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - MacFont *macfont; -#endif - int first, last, count; - GLuint fontbase; - - if (!fontname) { - fontname = DEFAULT_FONTNAME; - } - - font = Tk_GetFont(togl->Interp, togl->TkWin, fontname); - if (!font) { - return NULL; - } -#if defined(TOGL_X11) - unixfont = (UnixFont *) font; - fontinfo = unixfont->subFontArray->fontStructPtr; - first = fontinfo->min_char_or_byte2; - last = fontinfo->max_char_or_byte2; -#elif defined(TOGL_WGL) - winfont = (WinFont *) font; - oldFont = - (HFONT) SelectObject(togl->tglGLHdc, winfont->subFontArray->hFont); - GetTextMetrics(togl->tglGLHdc, &tm); - first = tm.tmFirstChar; - last = tm.tmLastChar; -#elif defined(TOGL_AGL) || defined(TOGL_NSOPENGL) - macfont = (MacFont *) font; - first = 10; /* don't know how to determine font range on - * Mac... */ - last = 255; -#endif - - if (last > 255) - last = 255; /* no unicode support */ - - count = last - first + 1; - fontbase = glGenLists((GLuint) (last + 1)); - if (fontbase == 0) { -#ifdef TOGL_WGL - SelectObject(togl->tglGLHdc, oldFont); -#endif - Tk_FreeFont(font); - return NULL; - } -#if defined(TOGL_WGL) - wglUseFontBitmaps(togl->tglGLHdc, first, count, fontbase + first); - SelectObject(togl->tglGLHdc, oldFont); -#elif defined(TOGL_X11) - glXUseXFont(fontinfo->fid, first, count, (int) fontbase + first); -#elif defined(TOGL_AGL) - /* deprecated in OS X 10.5 */ - aglUseFont(togl->Ctx, - macfont->subFontArray->familyPtr->faceNum, - macfont->style, macfont->size, first, count, fontbase + first); -#elif defined(TOGL_NSOPENGL) - /* No NSOpenGL equivalent to aglUseFont(). */ -#endif - Tk_FreeFont(font); - - bfi = (Togl_BitmapFontInfo *) ckalloc(sizeof (Togl_BitmapFontInfo)); - bfi->base = fontbase; - bfi->first = first; - bfi->last = last; - bfi->contextTag = togl->contextTag; - - obj = Tcl_NewObj(); - SET_BITMAP_FONT_INFO(obj) = bfi; - obj->typePtr = &Togl_BitmapFontType; - - return obj; -} - -/* - * Release the display lists which were generated by Togl_LoadBitmapFont(). - */ -int -Togl_UnloadBitmapFont(const Togl *togl, Tcl_Obj *toglfont) -{ - Togl_BitmapFontInfo *bfi; - - if (toglfont == NULL || toglfont->typePtr != &Togl_BitmapFontType) { - Tcl_Interp *interp = Togl_Interp(togl); - - Tcl_AppendResult(interp, "font not found", NULL); - return TCL_ERROR; - } - bfi = BITMAP_FONT_INFO(toglfont); - glDeleteLists(bfi->base, bfi->last + 1); /* match glGenLists */ - return TCL_OK; -} - -int -Togl_WriteObj(const Togl *togl, const Tcl_Obj *toglfont, Tcl_Obj *obj) -{ - const char *str; - int len; - - str = Tcl_GetStringFromObj(obj, &len); - return Togl_WriteChars(togl, toglfont, str, len); -} - -int -Togl_WriteChars(const Togl *togl, const Tcl_Obj *toglfont, const char *str, - int len) -{ - /* TODO: assume utf8 encoding and convert to font encoding */ - Togl_BitmapFontInfo *bfi; - - if (toglfont == NULL || toglfont->typePtr != &Togl_BitmapFontType) - return -1; - bfi = BITMAP_FONT_INFO(toglfont); - if (Togl_ContextTag(togl) != bfi->contextTag) - return -1; - if (len == 0) - len = strlen(str); - glListBase(bfi->base); - glCallLists(len, GL_UNSIGNED_BYTE, str); - return len; -} diff --git a/opengl/Togl2.1-SnapPy/toglGLX.c b/opengl/Togl2.1-SnapPy/toglGLX.c deleted file mode 100644 index c4f46c459..000000000 --- a/opengl/Togl2.1-SnapPy/toglGLX.c +++ /dev/null @@ -1,536 +0,0 @@ -/* $Id: toglGLX.c,v 1.12 2009/10/22 20:40:52 gregcouch Exp $ */ - -/* vi:set sw=4 expandtab: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -#include - -/* TODO: fullscreen support */ - -#undef DEBUG_GLX - -static PFNGLXCHOOSEFBCONFIGPROC chooseFBConfig = NULL; -static PFNGLXGETFBCONFIGATTRIBPROC getFBConfigAttrib = NULL; -static PFNGLXGETVISUALFROMFBCONFIGPROC getVisualFromFBConfig = NULL; -static PFNGLXCREATEPBUFFERPROC createPbuffer = NULL; -static PFNGLXCREATEGLXPBUFFERSGIXPROC createPbufferSGIX = NULL; -static PFNGLXDESTROYPBUFFERPROC destroyPbuffer = NULL; -static PFNGLXQUERYDRAWABLEPROC queryPbuffer = NULL; -static Bool hasMultisampling = False; -static Bool hasPbuffer = False; - -struct FBInfo -{ - int acceleration; - int samples; - int depth; - int colors; - GLXFBConfig fbcfg; - XVisualInfo *visInfo; -}; -typedef struct FBInfo FBInfo; - -static int -FBInfoCmp(const void *a, const void *b) -{ - /* - * 1. full acceleration is better - * 2. greater color bits is better - * 3. greater depth bits is better - * 4. more multisampling is better - */ - const FBInfo *x = (const FBInfo *) a; - const FBInfo *y = (const FBInfo *) b; - - if (x->acceleration != y->acceleration) - return y->acceleration - x->acceleration; - if (x->colors != y->colors) - return y->colors - x->colors; - if (x->depth != y->depth) - return y->depth - x->depth; - if (x->samples != y->samples) - return y->samples - x->samples; - return 0; -} - -#ifdef DEBUG_GLX -static int -fatal_error(Display *dpy, XErrorEvent * event) -{ - char buf[256]; - - XGetErrorText(dpy, event->error_code, buf, sizeof buf); - fprintf(stderr, "%s\n", buf); - abort(); -} -#endif - -static const int attributes_3_2[] = { - GLX_CONTEXT_MAJOR_VERSION_ARB, 3, - GLX_CONTEXT_MINOR_VERSION_ARB, 2, - None -}; - -static const int attributes_4_1[] = { - GLX_CONTEXT_MAJOR_VERSION_ARB, 4, - GLX_CONTEXT_MINOR_VERSION_ARB, 1, - None -}; - -static GLXContext togl_createGLXContext( - Togl *togl, - GLXContext shareCtx, - Bool direct) -{ - GLXContext context; - switch(togl->profile) { - case PROFILE_3_2: - context = glXCreateContextAttribsARB(togl->display, togl->fbcfg, - shareCtx, direct, attributes_3_2); - break; - case PROFILE_4_1: - context = glXCreateContextAttribsARB(togl->display, togl->fbcfg, - shareCtx, direct, attributes_4_1); - break; - default: - context = glXCreateContext(togl->display, togl->VisInfo, shareCtx, direct); - break; - } - return context; -} - -static XVisualInfo * -togl_pixelFormat(Togl *togl, int scrnum) -{ - int attribs[256]; - int na = 0; - int i; - XVisualInfo *visinfo; - FBInfo *info; - int dummy, major, minor; - const char *extensions; - - /* - * Make sure OpenGL's GLX extension is supported. - */ - - if (!glXQueryExtension(togl->display, &dummy, &dummy)) { - Tcl_SetResult(togl->Interp, - "X server is missing OpenGL GLX extension", - TCL_STATIC); - return NULL; - } - -#ifdef DEBUG_GLX - (void) XSetErrorHandler(fatal_error); -#endif - - glXQueryVersion(togl->display, &major, &minor); - extensions = glXQueryExtensionsString(togl->display, scrnum); - - if (major > 1 || (major == 1 && minor >= 4)) { - if (togl->profile != PROFILE_LEGACY) { - /* - * Togl_GetProcAddr returns NULL unless we #define - * GLX_VERSION_1_4. But if we do #define it we get a segfault - * as soon as chooseFBConfig is called. We don't seem to need - * it anyway, at least on Ubuntu 18.04, since we are linking - * against the shared library. - */ - chooseFBConfig = glXChooseFBConfig; - getFBConfigAttrib = glXGetFBConfigAttrib; - getVisualFromFBConfig = glXGetVisualFromFBConfig; - createPbuffer = glXCreatePbuffer; - destroyPbuffer = glXDestroyPbuffer; - queryPbuffer = glXQueryDrawable; - hasPbuffer = True; - } else { - chooseFBConfig = NULL; - createPbuffer = NULL; - destroyPbuffer = NULL; - queryPbuffer = NULL; - } - } - if (major == 1 && minor == 3) { - chooseFBConfig = (PFNGLXCHOOSEFBCONFIGPROC) - Togl_GetProcAddr("glXChooseFBConfig"); - getFBConfigAttrib = (PFNGLXGETFBCONFIGATTRIBPROC) - Togl_GetProcAddr("glXGetFBConfigAttrib"); - getVisualFromFBConfig = (PFNGLXGETVISUALFROMFBCONFIGPROC) - Togl_GetProcAddr("glXGetVisualFromFBConfig"); - createPbuffer = (PFNGLXCREATEPBUFFERPROC) - Togl_GetProcAddr("glXCreatePbuffer"); - destroyPbuffer = (PFNGLXDESTROYPBUFFERPROC) - Togl_GetProcAddr("glXDestroyPbuffer"); - queryPbuffer = (PFNGLXQUERYDRAWABLEPROC) - Togl_GetProcAddr("glXQueryDrawable"); - if (createPbuffer && destroyPbuffer && queryPbuffer) { - hasPbuffer = True; - } else { - createPbuffer = NULL; - destroyPbuffer = NULL; - queryPbuffer = NULL; - } - } - if (major == 1 && minor == 2) { - chooseFBConfig = (PFNGLXCHOOSEFBCONFIGPROC) - Togl_GetProcAddr("glXChooseFBConfigSGIX"); - getFBConfigAttrib = (PFNGLXGETFBCONFIGATTRIBPROC) - Togl_GetProcAddr("glXGetFBConfigAttribSGIX"); - getVisualFromFBConfig = (PFNGLXGETVISUALFROMFBCONFIGPROC) - Togl_GetProcAddr("glXGetVisualFromFBConfigSGIX"); - if (strstr(extensions, "GLX_SGIX_pbuffer") != NULL) { - createPbufferSGIX = (PFNGLXCREATEGLXPBUFFERSGIXPROC) - Togl_GetProcAddr("glXCreateGLXPbufferSGIX"); - destroyPbuffer = (PFNGLXDESTROYPBUFFERPROC) - Togl_GetProcAddr("glXDestroyGLXPbufferSGIX"); - queryPbuffer = (PFNGLXQUERYDRAWABLEPROC) - Togl_GetProcAddr("glXQueryGLXPbufferSGIX"); - if (createPbufferSGIX && destroyPbuffer && queryPbuffer) { - hasPbuffer = True; - } else { - createPbufferSGIX = NULL; - destroyPbuffer = NULL; - queryPbuffer = NULL; - } - } - } - if (chooseFBConfig) { - /* verify that chooseFBConfig works (workaround Mesa 6.5 bug) */ - int n = 0; - GLXFBConfig *cfgs; - - attribs[n++] = GLX_RENDER_TYPE; - attribs[n++] = GLX_RGBA_BIT; - attribs[n++] = None; - - cfgs = chooseFBConfig(togl->display, scrnum, attribs, &n); - if (cfgs == NULL || n == 0) { - chooseFBConfig = NULL; - } - XFree(cfgs); - } - if (chooseFBConfig == NULL - || getFBConfigAttrib == NULL || getVisualFromFBConfig == NULL) { - chooseFBConfig = NULL; - getFBConfigAttrib = NULL; - getVisualFromFBConfig = NULL; - } - if (hasPbuffer && !chooseFBConfig) { - hasPbuffer = False; - } - - if ((major > 1 || (major == 1 && minor >= 4)) - || strstr(extensions, "GLX_ARB_multisample") != NULL - || strstr(extensions, "GLX_SGIS_multisample") != NULL) { - /* Client GLX supports multisampling, but does the server? Well, we - * can always ask. */ - hasMultisampling = True; - } - - if (togl->MultisampleFlag && !hasMultisampling) { - Tcl_SetResult(togl->Interp, - "multisampling not supported", TCL_STATIC); - return NULL; - } - - if (togl->PbufferFlag && !hasPbuffer) { - Tcl_SetResult(togl->Interp, - "pbuffers are not supported", TCL_STATIC); - return NULL; - } - - /* - * Only use the newer glXGetFBConfig if there's an explicit need for it - * because it is buggy on many systems: - * (1) NVidia 96.43.07 on Linux, single-buffered windows don't work - * (2) Mesa 6.5.X and earlier fail - */ - if (chooseFBConfig) { - /* have new glXGetFBConfig! */ - int count; - GLXFBConfig *cfgs; - - attribs[na++] = GLX_RENDER_TYPE; - if (togl->RgbaFlag) { - /* RGB[A] mode */ - attribs[na++] = GLX_RGBA_BIT; - attribs[na++] = GLX_RED_SIZE; - attribs[na++] = togl->RgbaRed; - attribs[na++] = GLX_GREEN_SIZE; - attribs[na++] = togl->RgbaGreen; - attribs[na++] = GLX_BLUE_SIZE; - attribs[na++] = togl->RgbaBlue; - if (togl->AlphaFlag) { - attribs[na++] = GLX_ALPHA_SIZE; - attribs[na++] = togl->AlphaSize; - } - } else { - /* Color index mode */ - attribs[na++] = GLX_COLOR_INDEX_BIT; - attribs[na++] = GLX_BUFFER_SIZE; - attribs[na++] = 1; - } - if (togl->DepthFlag) { - attribs[na++] = GLX_DEPTH_SIZE; - attribs[na++] = togl->DepthSize; - } - if (togl->DoubleFlag) { - attribs[na++] = GLX_DOUBLEBUFFER; - attribs[na++] = True; - } - if (togl->StencilFlag) { - attribs[na++] = GLX_STENCIL_SIZE; - attribs[na++] = togl->StencilSize; - } - if (togl->AccumFlag) { - attribs[na++] = GLX_ACCUM_RED_SIZE; - attribs[na++] = togl->AccumRed; - attribs[na++] = GLX_ACCUM_GREEN_SIZE; - attribs[na++] = togl->AccumGreen; - attribs[na++] = GLX_ACCUM_BLUE_SIZE; - attribs[na++] = togl->AccumBlue; - if (togl->AlphaFlag) { - attribs[na++] = GLX_ACCUM_ALPHA_SIZE; - attribs[na++] = togl->AccumAlpha; - } - } - if (togl->Stereo == TOGL_STEREO_NATIVE) { - attribs[na++] = GLX_STEREO; - attribs[na++] = True; - } - if (togl->MultisampleFlag) { - attribs[na++] = GLX_SAMPLE_BUFFERS_ARB; - attribs[na++] = 1; - attribs[na++] = GLX_SAMPLES_ARB; - attribs[na++] = 2; - } - if (togl->PbufferFlag) { - attribs[na++] = GLX_DRAWABLE_TYPE; - attribs[na++] = GLX_WINDOW_BIT | GLX_PBUFFER_BIT; - } - if (togl->AuxNumber != 0) { - attribs[na++] = GLX_AUX_BUFFERS; - attribs[na++] = togl->AuxNumber; - } - attribs[na++] = None; - - cfgs = chooseFBConfig(togl->display, scrnum, attribs, &count); - if (cfgs == NULL || count == 0) { - Tcl_SetResult(togl->Interp, - "couldn't choose pixel format", TCL_STATIC); - return NULL; - } - /* - * Pick best format - */ - info = (FBInfo *) malloc(count * sizeof (FBInfo)); - for (i = 0; i != count; ++i) { - info[i].visInfo = getVisualFromFBConfig(togl->display, cfgs[i]); - info[i].fbcfg = cfgs[i]; - getFBConfigAttrib(togl->display, cfgs[i], GLX_CONFIG_CAVEAT, - &info[i].acceleration); - getFBConfigAttrib(togl->display, cfgs[i], GLX_BUFFER_SIZE, - &info[i].colors); - getFBConfigAttrib(togl->display, cfgs[i], GLX_DEPTH_SIZE, - &info[i].depth); - getFBConfigAttrib(togl->display, cfgs[i], GLX_SAMPLES, - &info[i].samples); - /* revise attributes so larger is better */ - info[i].acceleration = -(info[i].acceleration - GLX_NONE); - if (!togl->DepthFlag) - info[i].depth = -info[i].depth; - if (!togl->MultisampleFlag) - info[i].samples = -info[i].samples; - } - qsort(info, count, sizeof info[0], FBInfoCmp); - - togl->fbcfg = info[0].fbcfg; - visinfo = info[0].visInfo; - for (i = 1; i != count; ++i) - XFree(info[i].visInfo); - free(info); - XFree(cfgs); - return visinfo; - } - - /* use original glXChooseVisual */ - attribs[na++] = GLX_USE_GL; - if (togl->RgbaFlag) { - /* RGB[A] mode */ - attribs[na++] = GLX_RGBA; - attribs[na++] = GLX_RED_SIZE; - attribs[na++] = togl->RgbaRed; - attribs[na++] = GLX_GREEN_SIZE; - attribs[na++] = togl->RgbaGreen; - attribs[na++] = GLX_BLUE_SIZE; - attribs[na++] = togl->RgbaBlue; - if (togl->AlphaFlag) { - attribs[na++] = GLX_ALPHA_SIZE; - attribs[na++] = togl->AlphaSize; - } - } else { - /* Color index mode */ - attribs[na++] = GLX_BUFFER_SIZE; - attribs[na++] = 1; - } - if (togl->DepthFlag) { - attribs[na++] = GLX_DEPTH_SIZE; - attribs[na++] = togl->DepthSize; - } - if (togl->DoubleFlag) { - attribs[na++] = GLX_DOUBLEBUFFER; - } - if (togl->StencilFlag) { - attribs[na++] = GLX_STENCIL_SIZE; - attribs[na++] = togl->StencilSize; - } - if (togl->AccumFlag) { - attribs[na++] = GLX_ACCUM_RED_SIZE; - attribs[na++] = togl->AccumRed; - attribs[na++] = GLX_ACCUM_GREEN_SIZE; - attribs[na++] = togl->AccumGreen; - attribs[na++] = GLX_ACCUM_BLUE_SIZE; - attribs[na++] = togl->AccumBlue; - if (togl->AlphaFlag) { - attribs[na++] = GLX_ACCUM_ALPHA_SIZE; - attribs[na++] = togl->AccumAlpha; - } - } - if (togl->Stereo == TOGL_STEREO_NATIVE) { - attribs[na++] = GLX_STEREO; - } - if (togl->AuxNumber != 0) { - attribs[na++] = GLX_AUX_BUFFERS; - attribs[na++] = togl->AuxNumber; - } - attribs[na++] = None; - - visinfo = glXChooseVisual(togl->display, scrnum, attribs); - if (visinfo == NULL) { - Tcl_SetResult(togl->Interp, - "couldn't choose pixel format", TCL_STATIC); - return NULL; - } - return visinfo; -} - -static int -togl_describePixelFormat(Togl *togl) -{ - int tmp = 0; - - /* fill in flags normally passed in that affect behavior */ - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_RGBA, - &togl->RgbaFlag); - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_DOUBLEBUFFER, - &togl->DoubleFlag); - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_DEPTH_SIZE, &tmp); - togl->DepthFlag = (tmp != 0); - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_ACCUM_RED_SIZE, &tmp); - togl->AccumFlag = (tmp != 0); - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_ALPHA_SIZE, &tmp); - togl->AlphaFlag = (tmp != 0); - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_STENCIL_SIZE, &tmp); - togl->StencilFlag = (tmp != 0); - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_STEREO, &tmp); - togl->Stereo = tmp ? TOGL_STEREO_NATIVE : TOGL_STEREO_NONE; - if (hasMultisampling) { - (void) glXGetConfig(togl->display, togl->VisInfo, GLX_SAMPLES, &tmp); - togl->MultisampleFlag = (tmp != 0); - } - return True; -} - -static Tcl_ThreadDataKey togl_XError; -struct ErrorData -{ - int error_code; - XErrorHandler prevHandler; -}; -typedef struct ErrorData ErrorData; - -static int -togl_HandleXError(Display *dpy, XErrorEvent * event) -{ - ErrorData *data = Tcl_GetThreadData(&togl_XError, (int) sizeof (ErrorData)); - - data->error_code = event->error_code; - return 0; -} - -static void -togl_SetupXErrorHandler() -{ - ErrorData *data = Tcl_GetThreadData(&togl_XError, (int) sizeof (ErrorData)); - - data->error_code = Success; /* 0 */ - data->prevHandler = XSetErrorHandler(togl_HandleXError); -} - -static int -togl_CheckForXError(const Togl *togl) -{ - ErrorData *data = Tcl_GetThreadData(&togl_XError, (int) sizeof (ErrorData)); - - XSync(togl->display, False); - (void) XSetErrorHandler(data->prevHandler); - return data->error_code; -} - -static GLXPbuffer -togl_createPbuffer(Togl *togl) -{ - int attribs[32]; - int na = 0; - GLXPbuffer pbuf; - - togl_SetupXErrorHandler(); - if (togl->LargestPbufferFlag) { - attribs[na++] = GLX_LARGEST_PBUFFER; - attribs[na++] = True; - } - attribs[na++] = GLX_PRESERVED_CONTENTS; - attribs[na++] = True; - if (createPbuffer) { - attribs[na++] = GLX_PBUFFER_WIDTH; - attribs[na++] = togl->Width; - attribs[na++] = GLX_PBUFFER_HEIGHT; - attribs[na++] = togl->Width; - attribs[na++] = None; - pbuf = createPbuffer(togl->display, togl->fbcfg, attribs); - } else { - attribs[na++] = None; - pbuf = createPbufferSGIX(togl->display, togl->fbcfg, togl->Width, - togl->Height, attribs); - } - if (togl_CheckForXError(togl) || pbuf == None) { - Tcl_SetResult(togl->Interp, - "unable to allocate pbuffer", TCL_STATIC); - return None; - } - if (pbuf && togl->LargestPbufferFlag) { - unsigned int tmp; - - queryPbuffer(togl->display, pbuf, GLX_WIDTH, &tmp); - if (tmp != 0) - togl->Width = tmp; - queryPbuffer(togl->display, pbuf, GLX_HEIGHT, &tmp); - if (tmp != 0) - togl->Height = tmp; - } - return pbuf; -} - -static void -togl_destroyPbuffer(Togl *togl) -{ - destroyPbuffer(togl->display, togl->pbuf); -} diff --git a/opengl/Togl2.1-SnapPy/toglNSOpenGL.c b/opengl/Togl2.1-SnapPy/toglNSOpenGL.c deleted file mode 100644 index 2b99e1799..000000000 --- a/opengl/Togl2.1-SnapPy/toglNSOpenGL.c +++ /dev/null @@ -1,224 +0,0 @@ -/* $Id: toglNSOpenGL.c,v 1.7 2009/10/22 00:06:41 gregcouch Exp $ */ - -/* vi:set sw=4 expandtab: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -static NSOpenGLPixelFormat * -togl_pixelFormat(Togl *togl) -{ - NSOpenGLPixelFormatAttribute attribs[32]; - int na = 0; - NSOpenGLPixelFormat *pix; - -#if 0 - if (togl->MultisampleFlag && !hasMultisampling) { - Tcl_SetResult(togl->Interp, - "multisampling not supported", TCL_STATIC); - return NULL; - } -#endif - - if (togl->PbufferFlag && !togl->RgbaFlag) { - Tcl_SetResult(togl->Interp, - "puffer must be RGB[A]", TCL_STATIC); - return NULL; - } - - attribs[na++] = NSOpenGLPFAMinimumPolicy; - /* ask for hardware-accelerated onscreen */ - /* This is not needed, and can break virtual machines. - Accelerated rendering is always preferred. - attribs[na++] = NSOpenGLPFAAccelerated; - attribs[na++] = NSOpenGLPFANoRecovery; - */ - if (togl->RgbaFlag) { - /* RGB[A] mode */ - attribs[na++] = NSOpenGLPFAColorSize; - attribs[na++] = togl->RgbaRed + togl->RgbaGreen + togl->RgbaBlue; - /* NSOpenGL does not take separate red,green,blue sizes. */ - if (togl->AlphaFlag) { - attribs[na++] = NSOpenGLPFAAlphaSize; - attribs[na++] = togl->AlphaSize; - } - } else { - /* Color index mode */ - Tcl_SetResult(togl->Interp, - "Color index mode not supported", TCL_STATIC); - return NULL; - } - if (togl->DepthFlag) { - attribs[na++] = NSOpenGLPFADepthSize; - attribs[na++] = togl->DepthSize; - } - if (togl->DoubleFlag) { - attribs[na++] = NSOpenGLPFADoubleBuffer; - } - if (togl->StencilFlag) { - attribs[na++] = NSOpenGLPFAStencilSize; - attribs[na++] = togl->StencilSize; - } - if (togl->AccumFlag) { - attribs[na++] = NSOpenGLPFAAccumSize; - attribs[na++] = togl->AccumRed + togl->AccumGreen + togl->AccumBlue + (togl->AlphaFlag ? togl->AccumAlpha : 0); - } - if (togl->MultisampleFlag) { - attribs[na++] = NSOpenGLPFAMultisample; - attribs[na++] = NSOpenGLPFASampleBuffers; - attribs[na++] = 1; - attribs[na++] = NSOpenGLPFASamples; - attribs[na++] = 2; - } - if (togl->AuxNumber != 0) { - attribs[na++] = NSOpenGLPFAAuxBuffers; - attribs[na++] = togl->AuxNumber; - } - if (togl->Stereo == TOGL_STEREO_NATIVE) { - attribs[na++] = NSOpenGLPFAStereo; - } - if (togl->FullscreenFlag) { - Tcl_SetResult(togl->Interp, - "FullScreen mode not supported.", TCL_STATIC); - return NULL; - } - switch(togl->profile) { - case PROFILE_3_2: - attribs[na++] = NSOpenGLPFAOpenGLProfile; - attribs[na++] = NSOpenGLProfileVersion3_2Core; - break; - case PROFILE_4_1: - attribs[na++] = NSOpenGLPFAOpenGLProfile; - attribs[na++] = NSOpenGLProfileVersion4_1Core; - break; - default: - break; - } - attribs[na++] = 0; /* End of attributes. */ - - pix = [[NSOpenGLPixelFormat alloc] initWithAttributes:attribs]; - if (pix == nil) { - Tcl_SetResult(togl->Interp, "couldn't choose pixel format", - TCL_STATIC); - return NULL; - } - return pix; -} - -static int -togl_describePixelFormat(Togl *togl) -{ - NSOpenGLPixelFormat *pfmt = togl->PixelFormat; - - /* fill in RgbaFlag, DoubleFlag, and Stereo */ - GLint has_rgba, has_doublebuf, has_depth, has_accum, has_alpha, - has_stencil, has_stereo, has_multisample; - - GLint vscr = 0; - [pfmt getValues:&has_rgba forAttribute:NSOpenGLPFAColorSize forVirtualScreen:vscr]; - [pfmt getValues:&has_doublebuf forAttribute:NSOpenGLPFADoubleBuffer forVirtualScreen:vscr]; - [pfmt getValues:&has_depth forAttribute:NSOpenGLPFADepthSize forVirtualScreen:vscr]; - [pfmt getValues:&has_accum forAttribute:NSOpenGLPFAAccumSize forVirtualScreen:vscr]; - [pfmt getValues:&has_alpha forAttribute:NSOpenGLPFAAlphaSize forVirtualScreen:vscr]; - [pfmt getValues:&has_stencil forAttribute:NSOpenGLPFAStencilSize forVirtualScreen:vscr]; - [pfmt getValues:&has_stereo forAttribute:NSOpenGLPFAStereo forVirtualScreen:vscr]; - [pfmt getValues:&has_multisample forAttribute:NSOpenGLPFASampleBuffers forVirtualScreen:vscr]; - - togl->RgbaFlag = (has_rgba != 0); - togl->DoubleFlag = (has_doublebuf != 0); - togl->DepthFlag = (has_depth != 0); - togl->AccumFlag = (has_accum != 0); - togl->AlphaFlag = (has_alpha != 0); - togl->StencilFlag = (has_stencil != 0); - togl->Stereo = (has_stereo ? TOGL_STEREO_NATIVE : TOGL_STEREO_NONE); - togl->MultisampleFlag = (has_multisample != 0); - return True; -} - -#define isPow2(x) (((x) & ((x) - 1)) == 0) - -static NSOpenGLPixelBuffer * -togl_createPbuffer(Togl *togl) -{ - GLint min_size[2], max_size[2]; - Bool hasPbuffer; - const char *extensions; - GLint target; - GLint virtualScreen; - NSOpenGLPixelBuffer *pbuf; - - extensions = (const char *) glGetString(GL_EXTENSIONS); - hasPbuffer = (strstr(extensions, "GL_APPLE_pixel_buffer") != NULL); - if (!hasPbuffer) { - Tcl_SetResult(togl->Interp, - "pbuffers are not supported", TCL_STATIC); - return NULL; - } - glGetIntegerv(GL_MIN_PBUFFER_VIEWPORT_DIMS_APPLE, min_size); - glGetIntegerv(GL_MAX_VIEWPORT_DIMS, max_size); - virtualScreen = [togl->Ctx currentVirtualScreen]; - for (;;) { - /* make sure we don't exceed the maximum size because if we do, - * NSOpenGLPixelBuffer allocationmay succeed and later uses of - * the pbuffer fail - */ - if (togl->Width < min_size[0]) - togl->Width = min_size[0]; - else if (togl->Width > max_size[0]) { - if (togl->LargestPbufferFlag) - togl->Width = max_size[0]; - else { - Tcl_SetResult(togl->Interp, - "pbuffer too large", TCL_STATIC); - return NULL; - } - } - if (togl->Height < min_size[1]) - togl->Height = min_size[1]; - else if (togl->Height > max_size[1]) { - if (togl->LargestPbufferFlag) - togl->Height = max_size[1]; - else { - Tcl_SetResult(togl->Interp, - "pbuffer too large", TCL_STATIC); - return NULL; - } - } - - if (isPow2(togl->Width) && isPow2(togl->Height)) - target = GL_TEXTURE_2D; - else - target = GL_TEXTURE_RECTANGLE_ARB; - - pbuf = [[NSOpenGLPixelBuffer alloc] initWithTextureTarget:target - textureInternalFormat:(togl->AlphaFlag ? GL_RGBA : GL_RGB) - textureMaxMipMapLevel:0 - pixelsWide:togl->Width pixelsHigh:togl->Height]; - if (pbuf != nil) { - /* setPixelBuffer allocates the framebuffer space */ - [togl->Ctx setPixelBuffer:pbuf cubeMapFace:0 mipMapLevel:0 - currentVirtualScreen:virtualScreen]; - return pbuf; - } - if (!togl->LargestPbufferFlag - || togl->Width == min_size[0] || togl->Height == min_size[1]) { - Tcl_SetResult(togl->Interp, - "unable to create pbuffer", TCL_STATIC); - return NULL; - } - /* largest unavailable, try something smaller */ - togl->Width = togl->Width / 2 + togl->Width % 2; - togl->Height = togl->Width / 2 + togl->Height % 2; - } -} - -static void -togl_destroyPbuffer(Togl *togl) -{ - [togl->pbuf release]; -} diff --git a/opengl/Togl2.1-SnapPy/toglProcAddr.c b/opengl/Togl2.1-SnapPy/toglProcAddr.c deleted file mode 100644 index f1516b0b8..000000000 --- a/opengl/Togl2.1-SnapPy/toglProcAddr.c +++ /dev/null @@ -1,49 +0,0 @@ -/* $Id */ - -/* vi:set sw=4: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -#include "togl.h" - -#if defined(TOGL_OSMESA) || defined(TOGL_WGL) -/* nothing extra to include */ -#elif defined(__APPLE__) -# include -# include -#else -# if !defined(TOGL_X11) || !defined(GLX_VERSION_1_4) -# include -# endif -#endif - -Togl_FuncPtr -Togl_GetProcAddr(const char *funcname) -{ -#if defined(TOGL_OSMESA) - return (Togl_FuncPtr) OSMesaGetProcAddress(funcname); -#elif defined(TOGL_WGL) - return (Togl_FuncPtr) wglGetProcAddress(funcname); -#else -# if defined(TOGL_X11) && defined(GLX_VERSION_1_4) - /* Strictly speaking, we can only call glXGetProcAddress if glXQueryVersion - * says we're using version 1.4 or later. */ - return (Togl_FuncPtr) glXGetProcAddress(funcname); -# else - /* Linux, OS X, IRIX, OSF/1, ? */ - static void *dlHandle = NULL; - - if (dlHandle == NULL) - dlHandle = dlopen(NULL, RTLD_LAZY); - /* Strictly speaking, the following cast of a data pointer to a function - * pointer is not legal in ISO C, but we don't have any choice. */ - return (Togl_FuncPtr) dlsym(dlHandle, funcname); -# endif -#endif -} diff --git a/opengl/Togl2.1-SnapPy/toglStubInit.c b/opengl/Togl2.1-SnapPy/toglStubInit.c deleted file mode 100644 index 2f858596e..000000000 --- a/opengl/Togl2.1-SnapPy/toglStubInit.c +++ /dev/null @@ -1,69 +0,0 @@ -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -#include "togl.h" - -extern const ToglStubs toglStubs; - -/* !BEGIN!: Do not edit below this line. */ - -const ToglStubs toglStubs = { - TCL_STUB_MAGIC, - NULL, - Togl_Init, /* 0 */ - Togl_MakeCurrent, /* 1 */ - Togl_PostRedisplay, /* 2 */ - Togl_SwapBuffers, /* 3 */ - Togl_Ident, /* 4 */ - Togl_Width, /* 5 */ - Togl_Height, /* 6 */ - Togl_Interp, /* 7 */ - Togl_TkWin, /* 8 */ - Togl_CommandName, /* 9 */ - Togl_AllocColor, /* 10 */ - Togl_FreeColor, /* 11 */ - Togl_SetColor, /* 12 */ - Togl_LoadBitmapFont, /* 13 */ - Togl_UnloadBitmapFont, /* 14 */ - Togl_UseLayer, /* 15 */ - Togl_ShowOverlay, /* 16 */ - Togl_HideOverlay, /* 17 */ - Togl_PostOverlayRedisplay, /* 18 */ - Togl_ExistsOverlay, /* 19 */ - Togl_GetOverlayTransparentValue, /* 20 */ - Togl_IsMappedOverlay, /* 21 */ - Togl_AllocColorOverlay, /* 22 */ - Togl_FreeColorOverlay, /* 23 */ - Togl_GetClientData, /* 24 */ - Togl_SetClientData, /* 25 */ - Togl_DrawBuffer, /* 26 */ - Togl_Clear, /* 27 */ - Togl_Frustum, /* 28 */ - Togl_GetToglFromObj, /* 29 */ - Togl_TakePhoto, /* 30 */ - Togl_GetProcAddr, /* 31 */ - Togl_GetToglFromName, /* 32 */ - Togl_SwapInterval, /* 33 */ - Togl_Ortho, /* 34 */ - Togl_NumEyes, /* 35 */ - Togl_ContextTag, /* 36 */ - Togl_UpdatePending, /* 37 */ - Togl_WriteObj, /* 38 */ - Togl_WriteChars, /* 39 */ - Togl_HasRGBA, /* 40 */ - Togl_IsDoubleBuffered, /* 41 */ - Togl_HasDepthBuffer, /* 42 */ - Togl_HasAccumulationBuffer, /* 43 */ - Togl_HasDestinationAlpha, /* 44 */ - Togl_HasStencilBuffer, /* 45 */ - Togl_StereoMode, /* 46 */ - Togl_HasMultisample, /* 47 */ - Togl_CopyContext, /* 48 */ -}; - -/* !END!: Do not edit above this line. */ diff --git a/opengl/Togl2.1-SnapPy/toglStubLib.c b/opengl/Togl2.1-SnapPy/toglStubLib.c deleted file mode 100644 index da47cc59e..000000000 --- a/opengl/Togl2.1-SnapPy/toglStubLib.c +++ /dev/null @@ -1,59 +0,0 @@ -#ifndef USE_TCL_STUBS -# define USE_TCL_STUBS -#endif -#undef USE_TCL_STUB_PROCS -#ifndef USE_TK_STUBS -# define USE_TK_STUBS -#endif -#undef USE_TK_STUB_PROCS - -#include "togl.h" - -ToglStubs *toglStubsPtr; - -/* - ** Ensure that Togl_InitStubs is built as an exported symbol. The other stub - ** functions should be built as non-exported symbols. - */ -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - -/* - * Togl_InitStubs -- - * - * Checks that the correct version of Togl is loaded and that it - * supports stubs. It then initialises the stub table pointers. - * - * Results: - * The actual version of Togl that satisfies the request, or - * NULL to indicate that an error occurred. - * - * Side effects: - * sets the stub table pointer. - * - */ - -#ifdef Togl_InitStubs -# undef Togl_InitStubs -#endif - -const char * -Togl_InitStubs(Tcl_Interp *interp, const char *version, int exact) -{ - const char *actualVersion; - - actualVersion = Tcl_PkgRequireEx(interp, "Togl", version, exact, - (ClientData *) &toglStubsPtr); - if (!actualVersion) { - return NULL; - } - - if (!toglStubsPtr) { - Tcl_SetResult(interp, - "This implementation of Togl does not support stubs", - TCL_STATIC); - return NULL; - } - - return actualVersion; -} diff --git a/opengl/Togl2.1-SnapPy/toglWGL.c b/opengl/Togl2.1-SnapPy/toglWGL.c deleted file mode 100644 index cea3ea76d..000000000 --- a/opengl/Togl2.1-SnapPy/toglWGL.c +++ /dev/null @@ -1,600 +0,0 @@ -/* $Id: toglWGL.c,v 1.8 2009/12/23 21:50:49 gregcouch Exp $ */ - -/* vi:set sw=4 expandtab: */ - -/* - * Togl - a Tk OpenGL widget - * - * Copyright (C) 1996-2002 Brian Paul and Ben Bederson - * Copyright (C) 2005-2009 Greg Couch - * See the LICENSE file for copyright details. - */ - -/* TODO: fullscreen support */ - -#include -#include -#include -#include -#include -#include - -#ifndef PFD_SUPPORT_COMPOSITION -/* for Vista -- not needed because we don't use PFD_SUPPORT_GDI/BITMAP */ -# define PFD_SUPPORT_COMPOSITION 0x00008000 -#endif - -/* TODO: move these statics into global structure */ -static PFNWGLGETEXTENSIONSSTRINGARBPROC getExtensionsString = NULL; -static PFNWGLCHOOSEPIXELFORMATARBPROC choosePixelFormat; -static PFNWGLGETPIXELFORMATATTRIBIVARBPROC getPixelFormatAttribiv; -static PFNWGLCREATEPBUFFERARBPROC createPbuffer = NULL; -static PFNWGLDESTROYPBUFFERARBPROC destroyPbuffer = NULL; -static PFNWGLGETPBUFFERDCARBPROC getPbufferDC = NULL; -static PFNWGLRELEASEPBUFFERDCARBPROC releasePbufferDC = NULL; -static PFNWGLQUERYPBUFFERARBPROC queryPbuffer = NULL; -static PFNWGLCREATECONTEXTATTRIBSARBPROC createContextAttribs = NULL; -static int hasMultisampling = FALSE; -static int hasPbuffer = FALSE; -static int hasARBPbuffer = FALSE; - -static HWND -toglCreateTestWindow(HWND parent) -{ - static char ClassName[] = "ToglTestWindow"; - WNDCLASS wc; - HINSTANCE instance = GetModuleHandle(NULL); - HWND wnd; - HDC dc; - PIXELFORMATDESCRIPTOR pfd; - int pixelFormat; - - wc.style = CS_OWNDC; - wc.lpfnWndProc = DefWindowProc; - wc.cbClsExtra = 0; - wc.cbWndExtra = 0; - wc.hInstance = instance; - wc.hIcon = LoadIcon(NULL, IDI_WINLOGO); - wc.hCursor = LoadCursor(NULL, IDC_ARROW); - wc.hbrBackground = NULL; - wc.lpszMenuName = NULL; - wc.lpszClassName = ClassName; - if (!RegisterClass(&wc)) { - DWORD err = GetLastError(); - - if (err != ERROR_CLASS_ALREADY_EXISTS) { - fprintf(stderr, "Unable to register Togl Test Window class\n"); - return NULL; - } - } - - wnd = CreateWindow(ClassName, "test OpenGL capabilities", - WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS | WS_CLIPCHILDREN, - 0, 0, 1, 1, parent, NULL, instance, NULL); - if (wnd == NULL) { - fprintf(stderr, "Unable to create temporary OpenGL window\n"); - return NULL; - } - dc = GetDC(wnd); - - memset(&pfd, 0, sizeof pfd); - pfd.nSize = sizeof pfd; - pfd.nVersion = 1; - pfd.dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER; - pfd.iPixelType = PFD_TYPE_RGBA; - pfd.cColorBits = 3; - pfd.iLayerType = PFD_MAIN_PLANE; - pixelFormat = ChoosePixelFormat(dc, &pfd); - if (pixelFormat == 0) { - fprintf(stderr, "Unable to choose simple pixel format\n"); - ReleaseDC(wnd, dc); - return NULL; - } - if (!SetPixelFormat(dc, pixelFormat, &pfd)) { - fprintf(stderr, "Unable to set simple pixel format\n"); - ReleaseDC(wnd, dc); - return NULL; - } - - ShowWindow(wnd, SW_HIDE); // make sure it's hidden - ReleaseDC(wnd, dc); - return wnd; -} - -struct FBInfo -{ - int stereo; - int acceleration; - int colors; - int depth; - int samples; - int pixelFormat; -}; -typedef struct FBInfo FBInfo; -static int FBAttribs[] = { - /* must match order in FBInfo structure */ - WGL_STEREO_ARB, - WGL_ACCELERATION_ARB, - WGL_COLOR_BITS_ARB, - WGL_DEPTH_BITS_ARB, - WGL_SAMPLES_ARB, -}; - -#define NUM_FBAttribs (sizeof FBAttribs / sizeof FBAttribs[0]) - -static int -FBInfoCmp(const void *a, const void *b) -{ - /* - * 1. stereo is better - * 2. full acceleration is better - * 3. greater color bits is better - * 4. greater depth bits is better - * 5. more multisampling is better - */ - const FBInfo *x = (const FBInfo *) a; - const FBInfo *y = (const FBInfo *) b; - - if (x->stereo != y->stereo) - return y->stereo - x->stereo; - if (x->acceleration != y->acceleration) - return y->acceleration - x->acceleration; - if (x->colors != y->colors) - return y->colors - x->colors; - if (x->depth != y->depth) - return y->depth - x->depth; - if (x->samples != y->samples) - return y->samples - x->samples; - return 0; -} - - -static int -togl_pixelFormat(Togl *togl, HWND hwnd) -{ - /* return 0 when pixel format is unavailable. */ - int pixelformat = 0; - static int loadedOpenGL = FALSE; - int formats[256]; - UINT numFormats; - FBInfo *info; - UINT i; - int attribs[128]; - int na = 0; - - if (!loadedOpenGL) { - HWND test = NULL; - HDC dc; - HGLRC rc; - - if (wglGetCurrentContext() != NULL) { - dc = wglGetCurrentDC(); - } else { - /* HWND hwnd = Tk_GetHWND(Tk_WindowId(togl->TkWin)); */ - test = toglCreateTestWindow(hwnd); - if (test == NULL) { - Tcl_SetResult(togl->Interp, - "can't create dummy OpenGL window", - TCL_STATIC); - return 0; - } - - dc = GetDC(test); - rc = wglCreateContext(dc); - wglMakeCurrent(dc, rc); - } - loadedOpenGL = TRUE; - - /* - * Now that we have an OpenGL window, we can initialize all - * OpenGL information and figure out if multisampling is supported. - */ - - createContextAttribs = (PFNWGLCREATECONTEXTATTRIBSARBPROC) - wglGetProcAddress("wglCreateContextAttribsARB"); - - getExtensionsString = (PFNWGLGETEXTENSIONSSTRINGARBPROC) - wglGetProcAddress("wglGetExtensionsStringARB"); - if (getExtensionsString == NULL) - getExtensionsString = (PFNWGLGETEXTENSIONSSTRINGARBPROC) - wglGetProcAddress("wglGetExtensionsStringEXT"); - if (getExtensionsString) { - const char *extensions = getExtensionsString(dc); - - if (strstr(extensions, "WGL_ARB_multisample") != NULL - || strstr(extensions, "WGL_EXT_multisample") != NULL) - hasMultisampling = TRUE; - - if (strstr(extensions, "WGL_ARB_pixel_format") != NULL) { - choosePixelFormat = (PFNWGLCHOOSEPIXELFORMATARBPROC) - wglGetProcAddress("wglChoosePixelFormatARB"); - getPixelFormatAttribiv = (PFNWGLGETPIXELFORMATATTRIBIVARBPROC) - wglGetProcAddress("wglGetPixelFormatAttribivARB"); - if (choosePixelFormat == NULL || getPixelFormatAttribiv == NULL) { - choosePixelFormat = NULL; - getPixelFormatAttribiv = NULL; - } - } - if (choosePixelFormat == NULL - && strstr(extensions, "WGL_EXT_pixel_format") != NULL) { - choosePixelFormat = (PFNWGLCHOOSEPIXELFORMATARBPROC) - wglGetProcAddress("wglChoosePixelFormatEXT"); - getPixelFormatAttribiv = (PFNWGLGETPIXELFORMATATTRIBIVARBPROC) - wglGetProcAddress("wglGetPixelFormatAttribivEXT"); - if (choosePixelFormat == NULL || getPixelFormatAttribiv == NULL) { - choosePixelFormat = NULL; - getPixelFormatAttribiv = NULL; - } - } - if (createPbuffer == NULL - && strstr(extensions, "WGL_ARB_pbuffer") != NULL) { - createPbuffer = (PFNWGLCREATEPBUFFERARBPROC) - wglGetProcAddress("wglCreatePbufferARB"); - destroyPbuffer = (PFNWGLDESTROYPBUFFERARBPROC) - wglGetProcAddress("wglDestroyPbufferARB"); - getPbufferDC = (PFNWGLGETPBUFFERDCARBPROC) - wglGetProcAddress("wglGetPbufferDCARB"); - releasePbufferDC = (PFNWGLRELEASEPBUFFERDCARBPROC) - wglGetProcAddress("wglReleasePbufferDCARB"); - queryPbuffer = (PFNWGLQUERYPBUFFERARBPROC) - wglGetProcAddress("wglQueryPbufferARB"); - if (createPbuffer == NULL || destroyPbuffer == NULL - || getPbufferDC == NULL || releasePbufferDC == NULL - || queryPbuffer == NULL) { - createPbuffer = NULL; - destroyPbuffer = NULL; - getPbufferDC = NULL; - releasePbufferDC = NULL; - queryPbuffer = NULL; - } else { - hasPbuffer = TRUE; - hasARBPbuffer = TRUE; - } - } - if (createPbuffer == NULL - && strstr(extensions, "WGL_EXT_pbuffer") != NULL) { - createPbuffer = (PFNWGLCREATEPBUFFERARBPROC) - wglGetProcAddress("wglCreatePbufferEXT"); - destroyPbuffer = (PFNWGLDESTROYPBUFFERARBPROC) - wglGetProcAddress("wglDestroyPbufferEXT"); - getPbufferDC = (PFNWGLGETPBUFFERDCARBPROC) - wglGetProcAddress("wglGetPbufferDCEXT"); - releasePbufferDC = (PFNWGLRELEASEPBUFFERDCARBPROC) - wglGetProcAddress("wglReleasePbufferDCEXT"); - queryPbuffer = (PFNWGLQUERYPBUFFERARBPROC) - wglGetProcAddress("wglQueryPbufferEXT"); - if (createPbuffer == NULL || destroyPbuffer == NULL - || getPbufferDC == NULL || releasePbufferDC == NULL - || queryPbuffer == NULL) { - createPbuffer = NULL; - destroyPbuffer = NULL; - getPbufferDC = NULL; - releasePbufferDC = NULL; - queryPbuffer = NULL; - } else { - hasPbuffer = TRUE; - } - } - } - - /* No need to confirm multisampling is in glGetString(GL_EXTENSIONS) - * because OpenGL driver is local */ - - if (test != NULL) { - /* cleanup by removing temporary OpenGL window */ - wglMakeCurrent(NULL, NULL); - wglDeleteContext(rc); - ReleaseDC(test, dc); - DestroyWindow(test); - } - } - - if (togl->MultisampleFlag && !hasMultisampling) { - Tcl_SetResult(togl->Interp, - "multisampling not supported", TCL_STATIC); - return 0; - } - - if (togl->PbufferFlag && !hasPbuffer) { - Tcl_SetResult(togl->Interp, - "pbuffers are not supported", TCL_STATIC); - return 0; - } - - if (choosePixelFormat == NULL) { - PIXELFORMATDESCRIPTOR pfd; - - /* Don't have the great wglChoosePixelFormatARB() function, so do it - * the old way. */ - if (togl->MultisampleFlag) { - Tcl_SetResult(togl->Interp, - "multisampling not supported", TCL_STATIC); - return 0; - } - - memset(&pfd, 0, sizeof pfd); - pfd.nSize = sizeof pfd; - pfd.nVersion = 1; - pfd.dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL - | PFD_SUPPORT_COMPOSITION; - if (togl->DoubleFlag) { - pfd.dwFlags |= PFD_DOUBLEBUFFER; - } - if (togl->Stereo == TOGL_STEREO_NATIVE) { - pfd.dwFlags |= PFD_STEREO; - } - pfd.iPixelType = togl->RgbaFlag ? PFD_TYPE_RGBA : PFD_TYPE_COLORINDEX; - pfd.cColorBits = togl->RgbaRed + togl->RgbaGreen + togl->RgbaBlue; - /* Alpha bitplanes are not supported in the current generic OpenGL - * implementation, but may be supported by specific hardware devices. */ - pfd.cAlphaBits = togl->AlphaFlag ? togl->AlphaSize : 0; - pfd.cAccumBits = togl->AccumFlag ? (togl->AccumRed + togl->AccumGreen + - togl->AccumBlue + togl->AccumAlpha) : 0; - pfd.cDepthBits = togl->DepthFlag ? togl->DepthSize : 0; - pfd.cStencilBits = togl->StencilFlag ? togl->StencilSize : 0; - /* Auxiliary buffers are not supported in the current generic OpenGL - * implementation, but may be supported by specific hardware devices. */ - pfd.cAuxBuffers = togl->AuxNumber; - pfd.iLayerType = PFD_MAIN_PLANE; - - if ((pixelformat = ChoosePixelFormat(togl->tglGLHdc, &pfd)) == 0) { - Tcl_SetResult(togl->Interp, - "couldn't choose pixel format", TCL_STATIC); - return 0; - } - - /* double check that we got the stereo format we requested */ - if (togl->Stereo == TOGL_STEREO_NATIVE) { - DescribePixelFormat(togl->tglGLHdc, pixelformat, sizeof (pfd), - &pfd); - if ((pfd.dwFlags & PFD_STEREO) == 0) { - Tcl_SetResult(togl->Interp, - "couldn't choose stereo pixel format", - TCL_STATIC); - return 0; - } - } - return pixelformat; - } - // We have the new wglChoosePixelFormat!! - if (togl->MultisampleFlag && !hasMultisampling) { - Tcl_SetResult(togl->Interp, - "multisampling not supported", TCL_STATIC); - return 0; - } - - if (togl->PbufferFlag) - attribs[na++] = WGL_DRAW_TO_PBUFFER_ARB; - else - attribs[na++] = WGL_DRAW_TO_WINDOW_ARB; - attribs[na++] = GL_TRUE; - attribs[na++] = WGL_SUPPORT_OPENGL_ARB; - attribs[na++] = GL_TRUE; - attribs[na++] = WGL_PIXEL_TYPE_ARB; - if (!togl->RgbaFlag) { - attribs[na++] = WGL_TYPE_COLORINDEX_ARB; - } else { - attribs[na++] = WGL_TYPE_RGBA_ARB; - attribs[na++] = WGL_RED_BITS_ARB; - attribs[na++] = togl->RgbaRed; - attribs[na++] = WGL_GREEN_BITS_ARB; - attribs[na++] = togl->RgbaGreen; - attribs[na++] = WGL_BLUE_BITS_ARB; - attribs[na++] = togl->RgbaBlue; - if (togl->AlphaFlag) { - attribs[na++] = WGL_ALPHA_BITS_ARB; - attribs[na++] = togl->AlphaSize; - } - } - if (togl->DepthFlag) { - attribs[na++] = WGL_DEPTH_BITS_ARB; - attribs[na++] = togl->DepthSize; - } - if (togl->DoubleFlag) { - attribs[na++] = WGL_DOUBLE_BUFFER_ARB; - attribs[na++] = GL_TRUE; - } - if (togl->StencilFlag) { - attribs[na++] = WGL_STENCIL_BITS_ARB; - attribs[na++] = togl->StencilSize; - } - if (togl->AccumFlag) { - attribs[na++] = WGL_ACCUM_RED_BITS_ARB; - attribs[na++] = togl->AccumRed; - attribs[na++] = WGL_ACCUM_GREEN_BITS_ARB; - attribs[na++] = togl->AccumGreen; - attribs[na++] = WGL_ACCUM_BLUE_BITS_ARB; - attribs[na++] = togl->AccumBlue; - if (togl->AlphaFlag) { - attribs[na++] = WGL_ACCUM_ALPHA_BITS_ARB; - attribs[na++] = togl->AccumAlpha; - } - } - if (togl->Stereo == TOGL_STEREO_NATIVE) { - attribs[na++] = WGL_STEREO_ARB; - attribs[na++] = GL_TRUE; - } - if (togl->MultisampleFlag) { - attribs[na++] = WGL_SAMPLE_BUFFERS_ARB; - attribs[na++] = 1; - attribs[na++] = WGL_SAMPLES_ARB; - attribs[na++] = 2; - } - if (togl->AuxNumber) { - attribs[na++] = WGL_AUX_BUFFERS_ARB; - attribs[na++] = togl->AuxNumber; - } - attribs[na++] = 0; // must be last - - if (!choosePixelFormat(togl->tglGLHdc, &attribs[0], NULL, 256, formats, - &numFormats) || numFormats == 0) { - Tcl_SetResult(togl->Interp, - "couldn't choose pixel format", TCL_STATIC); - return 0; - } - - /* - * Pick best format - */ - info = (FBInfo *) malloc(numFormats * sizeof (FBInfo)); - for (i = 0; i != numFormats; ++i) { - info[i].pixelFormat = formats[i]; - getPixelFormatAttribiv(togl->tglGLHdc, formats[i], 0, - NUM_FBAttribs, FBAttribs, &info[i].stereo); - /* revise attributes so larger is better */ - if (!togl->DepthFlag) - info[i].depth = -info[i].depth; - if (!togl->MultisampleFlag) - info[i].samples = -info[i].samples; - if (togl->Stereo != TOGL_STEREO_NATIVE) - info[i].stereo = -info[i].stereo; - } - qsort(info, numFormats, sizeof info[0], FBInfoCmp); - pixelformat = info[0].pixelFormat; - /* double check that we got the stereo format we requested */ - if (togl->Stereo == TOGL_STEREO_NATIVE && !info[0].stereo) { - Tcl_SetResult(togl->Interp, - "couldn't choose stereo pixel format", TCL_STATIC); - free(info); - return 0; - } - free(info); - return pixelformat; -} - -static int -togl_describePixelFormat(Togl *togl) -{ - if (getPixelFormatAttribiv == NULL) { - PIXELFORMATDESCRIPTOR pfd; - - DescribePixelFormat(togl->tglGLHdc, (int) togl->PixelFormat, - sizeof (pfd), &pfd); - /* fill in flags normally passed in that affect behavior */ - togl->RgbaFlag = pfd.iPixelType == PFD_TYPE_RGBA; - togl->DoubleFlag = (pfd.dwFlags & PFD_DOUBLEBUFFER) != 0; - togl->DepthFlag = (pfd.cDepthBits != 0); - togl->AccumFlag = (pfd.cAccumBits != 0); - togl->AlphaFlag = (pfd.cAlphaBits != 0); - togl->StencilFlag = (pfd.cStencilBits != 0); - if ((pfd.dwFlags & PFD_STEREO) != 0) - togl->Stereo = TOGL_STEREO_NATIVE; - else - togl->Stereo = TOGL_STEREO_NONE; - } else { - static int attribs[] = { - WGL_PIXEL_TYPE_ARB, - WGL_DOUBLE_BUFFER_ARB, - WGL_DEPTH_BITS_ARB, - WGL_ACCUM_RED_BITS_ARB, - WGL_ALPHA_BITS_ARB, - WGL_STENCIL_BITS_ARB, - WGL_STEREO_ARB, - WGL_SAMPLES_ARB - }; -#define NUM_ATTRIBS (sizeof attribs / sizeof attribs[0]) - int info[NUM_ATTRIBS]; - - getPixelFormatAttribiv(togl->tglGLHdc, (int) togl->PixelFormat, 0, - NUM_ATTRIBS, attribs, info); -#undef NUM_ATTRIBS - togl->RgbaFlag = info[0]; - togl->DoubleFlag = info[1]; - togl->DepthFlag = (info[2] != 0); - togl->AccumFlag = (info[3] != 0); - togl->AlphaFlag = (info[4] != 0); - togl->StencilFlag = (info[5] != 0); - togl->Stereo = info[6] ? TOGL_STEREO_NATIVE : TOGL_STEREO_NONE; - togl->MultisampleFlag = (info[7] != 0); - } - return True; -} - -static HPBUFFERARB -togl_createPbuffer(Togl *togl) -{ - int attribs[32]; - int na = 0; - HPBUFFERARB pbuf; - - if (togl->LargestPbufferFlag) { - attribs[na++] = WGL_PBUFFER_LARGEST_ARB; - attribs[na++] = 1; - } - attribs[na] = 0; - pbuf = createPbuffer(togl->tglGLHdc, (int) togl->PixelFormat, togl->Width, - togl->Height, attribs); - if (pbuf && togl->LargestPbufferFlag) { - queryPbuffer(pbuf, WGL_PBUFFER_WIDTH_ARB, &togl->Width); - queryPbuffer(pbuf, WGL_PBUFFER_HEIGHT_ARB, &togl->Height); - } - return pbuf; -} - -static void -togl_destroyPbuffer(Togl *togl) -{ - destroyPbuffer(togl->pbuf); -} - -#if 0 -// From nvidia.com - -Multisampling requires WGL_ARB_extension_string and WGL_ARB_pixel_format -wglGetProcAddress("wglGetExtensionsStringARB") -// From msdn.microsoft.com, various ways to enumerate PixelFormats - void CPixForm::OnClickedLastPfd() -{ - COpenGL gl; - PIXELFORMATDESCRIPTOR pfd; - - // - // Get the hwnd of the view window. - // - HWND hwndview = GetViewHwnd(); - - // - // Get a DC associated with the view window. - // - HDC dc =::GetDC(hwndview); - int nID = (m_nNextID > 1) ? m_nNextID-- : 1; - - // - // Get a description of the pixel format. If it is valid, then go and - // update the controls in the dialog box, otherwise do nothing. - // - if (gl.DescribePixelFormat(dc, nID, sizeof (PIXELFORMATDESCRIPTOR), &pfd)) - UpdateDlg(&pfd); - // - // Release the DC. - // - ::ReleaseDC(hwndview, dc); -} - ----------------------- - // local variables -int iMax; -PIXELFORMATDESCRIPTOR pfd; -int iPixelFormat; - -// initialize a pixel format index variable -iPixelFormat = 1; - -// keep obtaining and examining pixel format data... -do { - // try to obtain some pixel format data - iMax = DescribePixelFormat(dc, iPixelFormat, sizeof (pfd), &pfd); - - // if there was some problem with that... - if (iMax == 0) - // return indicating failure - return (FALSE); - - // we have successfully obtained pixel format data - - // let's examine the pixel format data... - myPixelFormatExaminer(&pfd); -} -// ...until we've looked at all the device context's pixel formats -while (++iPixelFormat <= iMax); -#endif diff --git a/opengl/Togl2.1-SnapPy/togl_ws.h.in b/opengl/Togl2.1-SnapPy/togl_ws.h.in deleted file mode 100644 index 3a01a9c32..000000000 --- a/opengl/Togl2.1-SnapPy/togl_ws.h.in +++ /dev/null @@ -1,7 +0,0 @@ -#ifndef TOGL_WS_H -# define TOGL_WS_H - -/* define windowing system togl is compiled with */ -# define @TOGL_WINDOWINGSYSTEM@ - -#endif diff --git a/opengl/Togl2.1-SnapPy/toglpy.h b/opengl/Togl2.1-SnapPy/toglpy.h deleted file mode 100644 index 4b964c46e..000000000 --- a/opengl/Togl2.1-SnapPy/toglpy.h +++ /dev/null @@ -1,81 +0,0 @@ -/* - * getToglFromWidget: - * - * Given a Python widget, get the corresponding Togl pointer. - * and should be included before this. If included into a C file, - * there should be a static keyword just before the include. - * - * There should be one copy of getToglFromWidget per-shared libary so that - * the library's Tcl/Tk/Togl stub pointers are properly initialized. - * - * Copyright (C) 2006 Greg Couch - * See the LICENSE file for copyright details. - */ - -Togl * -getToglFromWidget(PyObject *widget) -{ - PyObject *cmdNameObj, *tk, *interpAddr; - const char *cmdName; - Tcl_Interp *interp; - Togl *curTogl; - -#ifdef USE_TOGL_STUBS - static int didOnce = 0; -#endif - - /* Python: cmdName = widget._w */ - /* Python: interpAddr = widget.tk.interpaddr() */ - cmdNameObj = PyObject_GetAttrString(widget, "_w"); - tk = PyObject_GetAttrString(widget, "tk"); - if (cmdNameObj == NULL || !PyString_Check(cmdNameObj) || tk == NULL) { - Py_XDECREF(cmdNameObj); - Py_XDECREF(tk); -#ifdef __cplusplus - throw std::invalid_argument("not a Tk widget"); -#else - return NULL; -#endif - } - - interpAddr = PyEval_CallMethod(tk, "interpaddr", "()"); - if (interpAddr == NULL || !PyInt_Check(interpAddr)) { - Py_DECREF(cmdNameObj); - Py_DECREF(tk); - Py_XDECREF(interpAddr); -#ifdef __cplusplus - throw std::invalid_argument("not a Tk widget"); -#else - return NULL; -#endif - } - - cmdName = PyString_AsString(cmdNameObj); - interp = (Tcl_Interp *) PyInt_AsLong(interpAddr); - -#ifdef USE_TOGL_STUBS - if (!didOnce) { - /* make sure stubs are initialized before calling a Togl function. */ - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL - || Tk_InitStubs(interp, TK_VERSION, 0) == NULL - || Togl_InitStubs(interp, TOGL_VERSION, 0) == NULL) -# ifdef __cplusplus - throw std::runtime_error("unable to initialize Togl"); -# else - return NULL; -# endif - didOnce = 1; - } -#endif - - if (Togl_GetToglFromName(interp, cmdName, &curTogl) != TCL_OK) - curTogl = NULL; - Py_DECREF(cmdNameObj); - Py_DECREF(tk); - Py_DECREF(interpAddr); -#ifdef __cplusplus - if (curTogl == NULL) - throw std::invalid_argument("not a Togl widget"); -#endif - return curTogl; -} diff --git a/opengl/Togl2.1-SnapPy/tree2.rgba b/opengl/Togl2.1-SnapPy/tree2.rgba deleted file mode 100644 index 67b02799c..000000000 Binary files a/opengl/Togl2.1-SnapPy/tree2.rgba and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/README.VC2015 b/opengl/Togl2.1-SnapPy/win-tk8.5/README.VC2015 deleted file mode 100644 index 39351a222..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/README.VC2015 +++ /dev/null @@ -1,27 +0,0 @@ -Here are the steps for building Togl for Tk8.5 using the VS2015 -Community Edition. - -VS 2015 provides several command prompts with preset environments -which we take advantage of when building Togl. Use "VS2015 x64 Native -Tools Command Prompt" for 64-bit builds and "VS2015 x86 Native Tools -Command Prompt" for 32-bit builds. - -The build command is simply: -> nmake -f makefile.vc - -All information needed for the build will be deduced from the preset -environment of the Command Prompt. - -To copy the Togl packages to the SnapPy source tree, use bash in your -msys2 system as follows: - -$ bash update_SnapPy.sh X86 -$ bash update_SnapPy.sh AMD64 - -To remove the build directories run: -> nmake if makefile.vc clean - -If you read the code, don't forget to enjoy the way that Microsoft -names things. The directory for 64 bit shared libraries on a Windows -system is System32 while the 32 bit shared libraries go in SysWOW64. -The 64 bit CPU is named X64 while the 32 bit CPU is named X86. \ No newline at end of file diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/README.txt b/opengl/Togl2.1-SnapPy/win-tk8.5/README.txt deleted file mode 100644 index d1d0bb805..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/README.txt +++ /dev/null @@ -1,22 +0,0 @@ -This directory allows building the Togl extension for Windows using -the "Visual C++ for Python" package, which can be downloaded for free -from Microsoft: - -http://www.microsoft.com/en-us/download/details.aspx?id=44266 - -The tcltk and tcltk64 subdirectories contain the needed headers and -libraries from the python.org distribution of Python 2.7.9. - -To build Togl 2.1: - * Open a "command prompt". (Press or run "cmd" in the Msys shell.) - * Change to this directory. (Running cmd in Msys preserves the cwd.) - * run: - >make-togl.bat - * The Togl 2.0 installation will be in win32VC-tk8.5 - * To build for 64-bit: - >make-togl.bat -arch x64 - * To remove intermediate files: - >make-togl.bat clean - * To remove all generated files: - >make-togl.bat distclean - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/make-togl.bat b/opengl/Togl2.1-SnapPy/win-tk8.5/make-togl.bat deleted file mode 100755 index 9cf81db17..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/make-togl.bat +++ /dev/null @@ -1,96 +0,0 @@ -@echo off - -@rem Process command line args -if "%1" =="-arch" ( - set arch=%2 - shift & shift - ) -if "%arch%"=="" set arch=x86 -if "%1"=="" (set target=Togl) else (set target=%1) - -@rem This is the standard install directory for VC for Python27 -@rem If you move it, change this. -set VCFORPYTHONLONG=C:\Program Files (x86)\Common Files\Microsoft\Visual C++ for Python\9.0 - -@rem Build the short path to the VC directory -set VCFORPYTHON= -for %%P in ("%VCFORPYTHONLONG%") do call :extendpath %%~sP -set VCFORPYTHONSDK=%VCFORPYTHON%\WinSDK - -@rem The 32-bit compiler -set cc32=%VCFORPYTHON%\VC\bin\cl.exe - -@rem The Resource Compiler -set RC=%VCFORPYTHONSDK%\Bin\RC - -@rem To avoid surprises we set a minimal path. -set PATH=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem; - -@rem Switch, depending on architecture. -if /i "%arch%"=="x86" goto :x86 -if /i "%arch%"=="x64" goto :x64 -goto :usage - -:x86 -echo Setting the environment for a 32 bit x86 build. -set CCDIR=%VCFORPYTHON%\VC\bin -if not exist "%CCDIR%"\cl.exe goto missing -@rem The vcbuild tool is a 64 bit application. So we add bin\amd64 to the path. -set PATH=%VCFORPYTHON%\VC\bin;%VCFORPYTHONSDK%\Bin;%VCFORPYTHON%\VC\bin\amd64;%PATH% -set INCLUDE=%VCFORPYTHON%\VC\include;%VCFORPYTHONSDK%\Include; -set LIB=%VCFORPYTHON%\VC\lib;%VCFORPYTHONSDK%\Lib; -set LIBPATH=%VCFORPYTHON%\VC\lib;%VCFORPYTHONSDK%\Lib; -set CC=%VCFORPYTHON%\VC\bin\cl.exe -set TCLDIR=tcltk -set MACHINE=IX86 -set TARGET_CPU=x86 -set CPUTAG= -goto :run -) - -:x64 -echo Setting the environment for a 64 bit build. -set CCDIR=%VCFORPYTHON%\VC\bin\amd64 -if not exist "%CCDIR%"\cl.exe goto missing -set PATH=%VCFORPYTHON%\VC\bin\amd64;%VCFORPYTHONSDK%\Bin\x64;%PATH% -set INCLUDE=%VCFORPYTHON%\VC\include;%VCFORPYTHONSDK%\Include; -set LIB=%VCFORPYTHON%\VC\lib\amd64;%VCFORPYTHONSDK%\Lib\x64; -set LIBPATH=%VCFORPYTHON%\VC\lib\amd64;%VCFORPYTHONSDK%\Lib\x64; -set CC=%VCFORPYTHON%\VC\bin\amd64\cl.exe -set TCLDIR=tcltk64 -set MACHINE=X64 -set TARGET_CPU=x86_64 -set CPUTAG=-x86_64 -goto :run -) - -:missing -echo The %1 compiler was not found in %CCDIR% -echo Check that the install path is correct in setup-env.bat. -goto :eof - -:usage -echo got %arch% %target% %arg% -echo usage: %~0 [-arch x86^|x64] [Togl^|clean^|veryclean^|distclean] -echo Both args are optional and can come in either order. -goto :eof - -:run -echo Current Environment: -path -echo == -echo INCLUDE=%INCLUDE% -echo == -echo LIB=%LIB% -echo == -echo VCFORPYTHON=%VCFORPYTHON% -echo == -echo CC=%CC% -nmake -f makefile.vc %target% -if /i "%target%"=="Togl" ( - nmake -f makefile.vc install TARGET_CPU=%TARGET_CPU% INSTALLDIR=win32VC%CPUTAG%-tk8.5 -) - -:extendpath -set VCFORPYTHON=%VCFORPYTHON%%1 -goto :eof diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/makefile.vc b/opengl/Togl2.1-SnapPy/win-tk8.5/makefile.vc deleted file mode 100644 index 0e9e18563..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/makefile.vc +++ /dev/null @@ -1,471 +0,0 @@ -# makefile.vc -- -*- Makefile -*- -# -# Microsoft Visual C++ makefile for use with nmake.exe v1.62+ (VC++ 5.0+) -# -# This makefile is based upon the Tcl 8.4 Makefile.vc and modified to -# make it suitable as a general package makefile. Look for the word EDIT -# which marks sections that may need modification. As a minumum you will -# need to change the PROJECT, DOTVERSION and DLLOBJS variables to values -# relevant to your package. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# Copyright (c) 1995-1996 Sun Microsystems, Inc. -# Copyright (c) 1998-2000 Ajuba Solutions. -# Copyright (c) 2001 ActiveState Corporation. -# Copyright (c) 2001-2002 David Gravereaux. -# Copyright (c) 2003-2006 Pat Thoyts -# - -# Check to see we are configured to build with MSVC (MSDEVDIR or MSVCDIR) -# or with the MS Platform SDK (MSSDK). Visual Studio .NET 2003 and 2005 define -# VCINSTALLDIR instead. The MSVC Toolkit release defines yet another. -!if !defined(MSVCDIR) -MSG = ^ -You need to run setup-env.batvcvars32.bat first to setup the environment.^ -Jump to this line to read the build instructions.^ -!error $(MSG) -!endif - -#------------------------------------------------------------------------------ -# HOW TO USE this makefile: -# -# 1) It is now necessary to have %MSVCDir% set in the environment. This is -# used as a check to see if vcvars32.bat had been run prior to running -# nmake or during the installation of Microsoft Visual C++, MSVCDir had -# been set globally and the PATH adjusted. Either way is valid. -# -# You'll need to run vcvars32.bat contained in the MsDev's vc(98)/bin -# directory to setup the proper environment, if needed, for your current -# setup. This is a needed bootstrap requirement and allows the swapping of -# different environments to be easier. -# -# 2) To use the Platform SDK (not expressly needed), run setenv.bat after -# vcvars32.bat according to the instructions for it. This can also turn on -# the 64-bit compiler, if your SDK has it. -# -# 3) Targets are: -# all -- Builds everything. -# -- Builds the project (eg: nmake sample) -# test -- Builds and runs the test suite. -# install -- Installs the built binaries and libraries to $(INSTALLDIR) -# in an appropriate subdirectory. -# clean/realclean/distclean -- varying levels of cleaning. -# -# 4) Macros usable on the commandline: -# INSTALLDIR= -# Sets where to install Tcl from the built binaries. -# The default is ./win32VC-tk8.5 -# -# OPTS=static,msvcrt,staticpkg,threads,symbols,profile,loimpact,none -# Sets special options for the core. The default is for none. -# Any combination of the above may be used (comma separated). -# 'none' will over-ride everything to nothing. -# -# static = Builds a static library of the core instead of a -# dll. The shell will be static (and large), as well. -# msvcrt = Effects the static option only to switch it from -# using libcmt(d) as the C runtime [by default] to -# msvcrt(d). This is useful for static embedding -# support. -# staticpkg = Effects the static option only to switch -# tclshXX.exe to have the dde and reg extension linked -# inside it. -# nothreads = Turns off multithreading support (not recommended) -# thrdalloc = Use the thread allocator (shared global free pool). -# symbols = Adds symbols for step debugging. -# profile = Adds profiling hooks. Map file is assumed. -# loimpact = Adds a flag for how NT treats the heap to keep memory -# in use, low. This is said to impact alloc performance. -# -# STATS=memdbg,compdbg,none -# Sets optional memory and bytecode compiler debugging code added -# to the core. The default is for none. Any combination of the -# above may be used (comma separated). 'none' will over-ride -# everything to nothing. -# -# memdbg = Enables the debugging memory allocator. -# compdbg = Enables byte compilation logging. -# -# MACHINE=(IX86|X64) -# Set the machine type used for the compiler, linker, and -# resource compiler. This hook is needed to tell the tools -# when alternate platforms are requested. IX86 is the default -# when not specified. If the CPU environment variable has been -# set (ie: recent Platform SDK) then MACHINE is set from CPU. -# -# TMP_DIR= -# OUT_DIR= -# Hooks to allow the intermediate and output directories to be -# changed. $(OUT_DIR) is assumed to be -# $(BINROOT)\(Release|Debug) based on if symbols are requested. -# $(TMP_DIR) will de $(OUT_DIR)\ by default. -# -# TESTPAT= -# Reads the tests requested to be run from this file. -# -# CFG_ENCODING=encoding -# name of encoding for configuration information. Defaults -# to cp1252 -# -# 5) Examples: -# -# Basic syntax of calling nmake looks like this: -# nmake [-nologo] -f makefile.vc [target|macrodef [target|macrodef] [...]] -# -# Standard (no frills) -# c:\tcl_src\win\>c:\progra~1\micros~1\vc98\bin\vcvars32.bat -# Setting environment for using Microsoft Visual C++ tools. -# c:\tcl_src\win\>nmake -f makefile.vc all -# c:\tcl_src\win\>nmake -f makefile.vc install INSTALLDIR=c:\progra~1\tcl -# -# Building for Win64 -# c:\tcl_src\win\>c:\progra~1\micros~1\vc98\bin\vcvars32.bat -# Setting environment for using Microsoft Visual C++ tools. -# c:\tcl_src\win\>c:\progra~1\platfo~1\setenv.bat /pre64 /RETAIL -# Targeting Windows pre64 RETAIL -# c:\tcl_src\win\>nmake -f makefile.vc MACHINE=X64 -# -#------------------------------------------------------------------------------ -#============================================================================== -############################################################################### -#------------------------------------------------------------------------------ - -!if !exist("makefile.vc") -MSG = ^ -You must run this makefile only from the directory it is in.^ -Please `cd` to its location first. -!error $(MSG) -!endif - -#------------------------------------------------------------------------- -# Project specific information (EDIT) -# -# You should edit this with the name and version of your project. This -# information is used to generate the name of the package library and -# it's install location. -# -# For example, the sample extension is going to build sample05.dll and -# would install it into $(INSTALLDIR)\lib\sample05 -# -# You need to specify the object files that need to be linked into your -# binary here. -# -#------------------------------------------------------------------------- -PROJECT = Togl - -# Uncomment the following line if this is a Tk extension. -PROJECT_REQUIRES_TK=1 -!include "rules.vc" - -DOTVERSION = 2.1 -VERSION = $(DOTVERSION:.=) -STUBPREFIX = $(PROJECT)stub - -DLLOBJS = \ - $(TMP_DIRFULL)\toglStubInit.obj \ - $(TMP_DIRFULL)\toglProcAddr.obj \ - $(TMP_DIRFULL)\togl.obj \ - -PRJSTUBOBJS = \ - $(TMP_DIRFULL)\toglStubLib.obj \ - -#!if !$(STATIC_BUILD) -# $(TMP_DIRFULL)\togl.res -#!endif - -#------------------------------------------------------------------------- -# Target names and paths ( shouldn't need changing ) -#------------------------------------------------------------------------- - -BINROOT = . -ROOT = .. - -PRJIMPLIB = $(OUT_DIR)\$(PROJECT)$(VERSION)$(SUFX).lib -PRJLIBNAME = $(PROJECT)$(VERSION)$(SUFX).$(EXT) -PRJLIB = $(OUT_DIR)\$(PRJLIBNAME) - -PRJSTUBLIBNAME = $(STUBPREFIX)$(VERSION).lib -PRJSTUBLIB = $(OUT_DIR)\$(PRJSTUBLIBNAME) - -### Make sure we use backslash only. -PRJ_INSTALL_DIR = $(_INSTALLDIR)\$(PROJECT)$(DOTVERSION) -LIB_INSTALL_DIR = $(PRJ_INSTALL_DIR) -BIN_INSTALL_DIR = $(PRJ_INSTALL_DIR) -DOC_INSTALL_DIR = $(PRJ_INSTALL_DIR) -SCRIPT_INSTALL_DIR = $(PRJ_INSTALL_DIR) -INCLUDE_INSTALL_DIR = $(_TCLDIR)\include - -### The following paths CANNOT have spaces in them. -WINDIR = $(ROOT)\win -LIBDIR = $(ROOT)\library -DOCDIR = $(ROOT)\doc - -#--------------------------------------------------------------------- -# Compile flags -#--------------------------------------------------------------------- - -!if !$(DEBUG) -!if $(OPTIMIZING) -### This cranks the optimization level to maximize speed -cdebug = $(OPTIMIZATIONS) -!else -cdebug = -!endif -!else if "$(MACHINE)" == "X64" || "$(MACHINE)" == "AMD64" -### Warnings are too many, can't support warnings into errors. -cdebug = -Zi -Od $(DEBUGFLAGS) -!else -cdebug = -Zi -WX $(DEBUGFLAGS) -!endif - -### Declarations common to all compiler options -cwarn = $(WARNINGS) -D _CRT_SECURE_NO_DEPRECATE -D _CRT_NONSTDC_NO_DEPRECATE -cflags = -nologo -c $(COMPILERFLAGS) -DSTDC_HEADERS -DBUILD_Togl $(cwarn) -Fo$(TMP_DIRFULL)^\ - -!if $(MSVCRT) -### We use -MT rather than -MD *no matter what*, in order to avoid depending -### on the redist package. -!if $(DEBUG) && !$(UNCHECKED) -crt = -MTd -!else -crt = -MT -!endif -!else -!if $(DEBUG) && !$(UNCHECKED) -crt = -MTd -!else -crt = -MT -!endif -!endif - -!if !$(STATIC_BUILD) -cflags = $(cflags) -DUSE_TCL_STUBS -!if defined(TKSTUBLIB) -cflags = $(cflags) -DUSE_TK_STUBS -!endif -!endif - -!if "$(MACHINE)" == "IX86" -cflags = $(cflags) -D _USE_32BIT_TIME_T -!endif - -INCLUDES = $(TCL_INCLUDES) -I"$(ROOT)" -BASE_CFLAGS = $(cflags) $(cdebug) $(crt) $(INCLUDES) -CON_CFLAGS = $(cflags) $(cdebug) $(crt) -DCONSOLE -TCL_CFLAGS = -DPACKAGE_NAME="\"$(PROJECT)\"" \ - -DPACKAGE_VERSION="\"$(DOTVERSION)\"" \ - -DBUILD_$(PROJECT) \ - $(BASE_CFLAGS) $(OPTDEFINES) - -#--------------------------------------------------------------------- -# Link flags -#--------------------------------------------------------------------- - -!if $(DEBUG) -ldebug = -debug:full -debugtype:cv -!if $(MSVCRT) -ldebug = $(ldebug) -nodefaultlib:msvcrt -!endif -!else -ldebug = -release -opt:ref -opt:icf,3 -!endif - -### Declarations common to all linker options -lflags = -nologo -machine:$(MACHINE) $(LINKERFLAGS) $(ldebug) - -!if $(PROFILE) -lflags = $(lflags) -profile -!endif - -!if $(LOIMPACT) -lflags = $(lflags) -ws:aggressive -!endif - -dlllflags = $(lflags) -dll -conlflags = $(lflags) -subsystem:console -guilflags = $(lflags) -subsystem:windows -!if !$(STATIC_BUILD) -baselibs = $(TCLSTUBLIB) -!if defined(TKSTUBLIB) -baselibs = $(baselibs) $(TKSTUBLIB) -!endif -!endif - -# Avoid 'unresolved external symbol __security_cookie' errors. -# c.f. http://support.microsoft.com/?id=894573 -!if "$(MACHINE)" == "X64" || "$(MACHINE)" == "AMD64" -!if $(VCVERSION) >= 1400 && $(VCVERSION) < 1500 -baselibs = $(baselibs) bufferoverflowU.lib -!endif -!endif - -baselibs = $(baselibs) user32.lib gdi32.lib opengl32.lib glu32.lib - -#--------------------------------------------------------------------- -# TclTest flags -#--------------------------------------------------------------------- - -!IF "$(TESTPAT)" != "" -TESTFLAGS = $(TESTFLAGS) -file $(TESTPAT) -!ENDIF - -#--------------------------------------------------------------------- -# Project specific targets (EDIT) -#--------------------------------------------------------------------- - -{$(ROOT)}.c{$(TMP_DIRFULL)}.obj: - $(CC) $(BASE_CFLAGS) $< - -all: setup $(PROJECT) -$(PROJECT): setup pkgIndex $(PRJSTUBLIB) $(PRJLIB) -install: install-binaries install-libraries -pkgIndex: $(OUT_DIR)\pkgIndex.tcl - -test: setup $(PROJECT) - @set TCL_LIBRARY=$(TCL_LIBRARY:\=/) - @set TCLLIBPATH=$(OUT_DIR_PATH:\=/) -!if $(TCLINSTALL) - @set PATH=$(_TCLDIR)\bin;$(PATH) -!else - @set PATH=$(_TCLDIR)\win\$(BUILDDIRTOP);$(PATH) -!endif -!if "$(OS)" == "Windows_NT" || "$(MSVCDIR)" == "IDE" - $(DEBUGGER) $(TCLSH) "$(ROOT)/tests/all.tcl" $(TESTFLAGS) -!else - @echo Please wait while the tests are collected... - $(DEBUGGER) $(TCLSH) "$(ROOT)/tests/all.tcl" $(TESTFLAGS) > tests.log - type tests.log | more -!endif - -shell: setup $(PROJECT) - @set VLERQ_LIBRARY=$(LIBDIR:\=/) - @set TCL_LIBRARY=$(TCL_LIBRARY:\=/) - @set TCLLIBPATH=$(OUT_DIR_PATH:\=/) -!if $(TCLINSTALL) - @set PATH=$(_TCLDIR)\bin;$(PATH) -!else - @set PATH=$(_TCLDIR)\win\$(BUILDDIRTOP);$(PATH) -!endif - $(DEBUGGER) $(TCLSH) $(SCRIPT) - -setup: - @if not exist $(OUT_DIR)\nul mkdir $(OUT_DIR) - @if not exist $(TMP_DIR)\nul mkdir $(TMP_DIR) - -# See /win/coffbase.txt for extension base addresses. -$(PRJLIB): $(DLLOBJS) -!if $(STATIC_BUILD) - $(lib32) -nologo -out:$@ @<< -$** -<< -!else - $(link32) $(dlllflags) -base:0x10000000 -out:$@ $(baselibs) @<< -$** -<< - $(_VC_MANIFEST_EMBED_DLL) - -@del $*.exp -!endif - -$(PRJSTUBLIB): $(PRJSTUBOBJS) - $(lib32) -nologo -out:$@ $(PRJSTUBOBJS) - -#--------------------------------------------------------------------- -# Implicit rules -#--------------------------------------------------------------------- - -{$(WINDIR)}.c{$(TMP_DIR)}.obj:: - $(cc32) $(TCL_CFLAGS) -DBUILD_$(PROJECT) -Fo$(TMP_DIR)\ @<< -$< -<< - -{$(GENERICDIR)}.c{$(TMP_DIR)}.obj:: - $(cc32) $(TCL_CFLAGS) -DBUILD_$(PROJECT) -Fo$(TMP_DIR)\ @<< -$< -<< - -{$(COMPATDIR)}.c{$(TMP_DIR)}.obj:: - $(cc32) $(TCL_CFLAGS) -DBUILD_$(PROJECT) -Fo$(TMP_DIR)\ @<< -$< -<< - -{$(WINDIR)}.rc{$(TMP_DIR)}.res: - $(rc32) -fo $@ -r -i "$(GENERICDIR)" -D__WIN32__ \ - -DCOMMAVERSION=$(DOTVERSION:.=,),0,0 \ - -DDOTVERSION=\"$(DOTVERSION)\" \ - -DVERSION=\"$(VERSION)$(SUFX)\" \ -!if $(DEBUG) - -d DEBUG \ -!endif -!if $(TCL_THREADS) - -d TCL_THREADS \ -!endif -!if $(STATIC_BUILD) - -d STATIC_BUILD \ -!endif - $< - -.SUFFIXES: -.SUFFIXES:.c .rc - -#------------------------------------------------------------------------- -# Explicit dependency rules -# -#------------------------------------------------------------------------- - -$(OUT_DIR)\pkgIndex.tcl: $(ROOT)\pkgIndex.tcl.in - @nmakehlp -s << $** > $@ -@PACKAGE_VERSION@ $(DOTVERSION) -@PACKAGE_NAME@ $(PROJECT) -@PKG_LIB_FILE@ $(PRJLIBNAME) -<< - @echo package ifneeded Togl $(DOTVERSION) \ - [list load [file join $$dir $(PRJLIBNAME)] Togl] >> $@ - -#--------------------------------------------------------------------- -# Installation. (EDIT) -# -# You may need to modify this section to reflect the final distribution -# of your files and possibly to generate documentation. -# -#--------------------------------------------------------------------- - -install-binaries: - @echo Installing binaries to '$(PRJ_INSTALL_DIR)' - @if not exist "$(PRJ_INSTALL_DIR)" mkdir "$(PRJ_INSTALL_DIR)" - @$(CPY) $(PRJLIB) "$(PRJ_INSTALL_DIR)" >NUL - @$(CPY) $(PRJIMPLIB) "$(PRJ_INSTALL_DIR)" >NUL - @echo Installing package index in '$(PRJ_INSTALL_DIR)' - @$(CPY) $(OUT_DIR)\pkgIndex.tcl $(PRJ_INSTALL_DIR) - @echo Copying LICENSE file to '$(PRJ_INSTALL_DIR)' - @$(CPY) $(WINDIR)\..\LICENSE $(PRJ_INSTALL_DIR) - -install-libraries: $(OUT_DIR)\pkgIndex.tcl - @echo Installing $(PRJSTUBLIB) to '$(_INSTALLDIR)' - @$(CPY) $(PRJSTUBLIB) "$(_INSTALLDIR)" - -install-docs: - @echo Installing documentation files to '$(DOC_INSTALL_DIR)' - @if exist $(DOCDIR) $(CPY) $(DOCDIR)\*.n "$(DOC_INSTALL_DIR)" - -#--------------------------------------------------------------------- -# Clean up -#--------------------------------------------------------------------- - -clean: - @echo Removing $(BUILDDIRTOP) - @if exist $(BUILDDIRTOP)\nul $(RMDIR) $(BUILDDIRTOP) - @echo Cleaning up $(WINDIR) - @if exist $(WINDIR)\version.vc del $(WINDIR)\version.vc - @if exist $(WINDIR)\vercl.i del $(WINDIR)\vercl.i - @if exist $(WINDIR)\vercl.x del $(WINDIR)\vercl.x - @if exist $(WINDIR)\_junk.pch del $(WINDIR)\_junk.pch - -realclean: clean - @if exist $(OUT_DIR)\nul $(RMDIR) $(OUT_DIR) - -distclean: realclean - @if exist $(WINDIR)\nmakehlp.exe del $(WINDIR)\nmakehlp.exe - @if exist $(WINDIR)\nmakehlp.obj del $(WINDIR)\nmakehlp.obj - @if exist $(_INSTALLDIR)\nul $(RMDIR) $(_INSTALLDIR) diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/nmakehlp.c b/opengl/Togl2.1-SnapPy/win-tk8.5/nmakehlp.c deleted file mode 100644 index 2ab259a2d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/nmakehlp.c +++ /dev/null @@ -1,767 +0,0 @@ -/* - * ---------------------------------------------------------------------------- - * nmakehlp.c -- - * - * This is used to fix limitations within nmake and the environment. - * - * Copyright (c) 2002 by David Gravereaux. - * Copyright (c) 2006 by Pat Thoyts - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * ---------------------------------------------------------------------------- - * RCS: @(#) $Id: nmakehlp.c,v 1.7 2008/06/18 11:01:42 patthoyts Exp $ - * ---------------------------------------------------------------------------- - */ - -#define _CRT_SECURE_NO_DEPRECATE -#include -#define NO_SHLWAPI_GDI -#define NO_SHLWAPI_STREAM -#define NO_SHLWAPI_REG -#include -#pragma comment (lib, "user32.lib") -#pragma comment (lib, "kernel32.lib") -#pragma comment (lib, "shlwapi.lib") -#include -#include - -/* - * This library is required for x64 builds with _some_ versions of MSVC - */ -#if defined(_M_IA64) || defined(_M_AMD64) -#if _MSC_VER >= 1400 && _MSC_VER < 1500 -#pragma comment(lib, "bufferoverflowU") -#endif -#endif - -/* ISO hack for dumb VC++ */ -#ifdef _MSC_VER -#define snprintf _snprintf -#endif - - - -/* protos */ - -int CheckForCompilerFeature(const char *option); -int CheckForLinkerFeature(const char *option); -int IsIn(const char *string, const char *substring); -int GrepForDefine(const char *file, const char *string); -int SubstituteFile(const char *substs, const char *filename); -int QualifyPath(const char *path); -const char * GetVersionFromFile(const char *filename, const char *match); -DWORD WINAPI ReadFromPipe(LPVOID args); - -/* globals */ - -#define CHUNK 25 -#define STATICBUFFERSIZE 1000 -typedef struct { - HANDLE pipe; - char buffer[STATICBUFFERSIZE]; -} pipeinfo; - -pipeinfo Out = {INVALID_HANDLE_VALUE, '\0'}; -pipeinfo Err = {INVALID_HANDLE_VALUE, '\0'}; - -/* - * exitcodes: 0 == no, 1 == yes, 2 == error - */ - -int -main( - int argc, - char *argv[]) -{ - char msg[300]; - DWORD dwWritten; - int chars; - - /* - * Make sure children (cl.exe and link.exe) are kept quiet. - */ - - SetErrorMode(SEM_FAILCRITICALERRORS | SEM_NOOPENFILEERRORBOX); - - /* - * Make sure the compiler and linker aren't effected by the outside world. - */ - - SetEnvironmentVariable("CL", ""); - SetEnvironmentVariable("LINK", ""); - - if (argc > 1 && *argv[1] == '-') { - switch (*(argv[1]+1)) { - case 'c': - if (argc != 3) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -c \n" - "Tests for whether cl.exe supports an option\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return CheckForCompilerFeature(argv[2]); - case 'l': - if (argc != 3) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -l \n" - "Tests for whether link.exe supports an option\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return CheckForLinkerFeature(argv[2]); - case 'f': - if (argc == 2) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -f \n" - "Find a substring within another\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } else if (argc == 3) { - /* - * If the string is blank, there is no match. - */ - - return 0; - } else { - return IsIn(argv[2], argv[3]); - } - case 'g': - if (argc == 2) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -g \n" - "grep for a #define\n" - "exitcodes: integer of the found string (no decimals)\n", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return GrepForDefine(argv[2], argv[3]); - case 's': - if (argc == 2) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -s \n" - "Perform a set of string map type substutitions on a file\n" - "exitcodes: 0\n", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return SubstituteFile(argv[2], argv[3]); - case 'V': - if (argc != 4) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -V filename matchstring\n" - "Extract a version from a file:\n" - "eg: pkgIndex.tcl \"package ifneeded http\"", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 0; - } - printf("%s\n", GetVersionFromFile(argv[2], argv[3])); - return 0; - case 'Q': - if (argc != 3) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -q path\n" - "Emit the fully qualified path\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return QualifyPath(argv[2]); - } - } - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -c|-l|-f|-g|-V|-s|-Q ...\n" - "This is a little helper app to equalize shell differences between WinNT and\n" - "Win9x and get nmake.exe to accomplish its job.\n", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, &dwWritten, NULL); - return 2; -} - -int -CheckForCompilerFeature( - const char *option) -{ - STARTUPINFO si; - PROCESS_INFORMATION pi; - SECURITY_ATTRIBUTES sa; - DWORD threadID; - char msg[300]; - BOOL ok; - HANDLE hProcess, h, pipeThreads[2]; - char cmdline[100]; - - hProcess = GetCurrentProcess(); - - ZeroMemory(&pi, sizeof(PROCESS_INFORMATION)); - ZeroMemory(&si, sizeof(STARTUPINFO)); - si.cb = sizeof(STARTUPINFO); - si.dwFlags = STARTF_USESTDHANDLES; - si.hStdInput = INVALID_HANDLE_VALUE; - - ZeroMemory(&sa, sizeof(SECURITY_ATTRIBUTES)); - sa.nLength = sizeof(SECURITY_ATTRIBUTES); - sa.lpSecurityDescriptor = NULL; - sa.bInheritHandle = FALSE; - - /* - * Create a non-inheritible pipe. - */ - - CreatePipe(&Out.pipe, &h, &sa, 0); - - /* - * Dupe the write side, make it inheritible, and close the original. - */ - - DuplicateHandle(hProcess, h, hProcess, &si.hStdOutput, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Same as above, but for the error side. - */ - - CreatePipe(&Err.pipe, &h, &sa, 0); - DuplicateHandle(hProcess, h, hProcess, &si.hStdError, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Base command line. - */ - - lstrcpy(cmdline, "cl.exe -nologo -c -TC -Zs -X -Fp.\\_junk.pch "); - - /* - * Append our option for testing - */ - - lstrcat(cmdline, option); - - /* - * Filename to compile, which exists, but is nothing and empty. - */ - - lstrcat(cmdline, " .\\nul"); - - ok = CreateProcess( - NULL, /* Module name. */ - cmdline, /* Command line. */ - NULL, /* Process handle not inheritable. */ - NULL, /* Thread handle not inheritable. */ - TRUE, /* yes, inherit handles. */ - DETACHED_PROCESS, /* No console for you. */ - NULL, /* Use parent's environment block. */ - NULL, /* Use parent's starting directory. */ - &si, /* Pointer to STARTUPINFO structure. */ - &pi); /* Pointer to PROCESS_INFORMATION structure. */ - - if (!ok) { - DWORD err = GetLastError(); - int chars = snprintf(msg, sizeof(msg) - 1, - "Tried to launch: \"%s\", but got error [%u]: ", cmdline, err); - - FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS| - FORMAT_MESSAGE_MAX_WIDTH_MASK, 0L, err, 0, (LPVOID)&msg[chars], - (300-chars), 0); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg,lstrlen(msg), &err,NULL); - return 2; - } - - /* - * Close our references to the write handles that have now been inherited. - */ - - CloseHandle(si.hStdOutput); - CloseHandle(si.hStdError); - - WaitForInputIdle(pi.hProcess, 5000); - CloseHandle(pi.hThread); - - /* - * Start the pipe reader threads. - */ - - pipeThreads[0] = CreateThread(NULL, 0, ReadFromPipe, &Out, 0, &threadID); - pipeThreads[1] = CreateThread(NULL, 0, ReadFromPipe, &Err, 0, &threadID); - - /* - * Block waiting for the process to end. - */ - - WaitForSingleObject(pi.hProcess, INFINITE); - CloseHandle(pi.hProcess); - - /* - * Wait for our pipe to get done reading, should it be a little slow. - */ - - WaitForMultipleObjects(2, pipeThreads, TRUE, 500); - CloseHandle(pipeThreads[0]); - CloseHandle(pipeThreads[1]); - - /* - * Look for the commandline warning code in both streams. - * - in MSVC 6 & 7 we get D4002, in MSVC 8 we get D9002. - */ - - return !(strstr(Out.buffer, "D4002") != NULL - || strstr(Err.buffer, "D4002") != NULL - || strstr(Out.buffer, "D9002") != NULL - || strstr(Err.buffer, "D9002") != NULL - || strstr(Out.buffer, "D2021") != NULL - || strstr(Err.buffer, "D2021") != NULL); -} - -int -CheckForLinkerFeature( - const char *option) -{ - STARTUPINFO si; - PROCESS_INFORMATION pi; - SECURITY_ATTRIBUTES sa; - DWORD threadID; - char msg[300]; - BOOL ok; - HANDLE hProcess, h, pipeThreads[2]; - char cmdline[100]; - - hProcess = GetCurrentProcess(); - - ZeroMemory(&pi, sizeof(PROCESS_INFORMATION)); - ZeroMemory(&si, sizeof(STARTUPINFO)); - si.cb = sizeof(STARTUPINFO); - si.dwFlags = STARTF_USESTDHANDLES; - si.hStdInput = INVALID_HANDLE_VALUE; - - ZeroMemory(&sa, sizeof(SECURITY_ATTRIBUTES)); - sa.nLength = sizeof(SECURITY_ATTRIBUTES); - sa.lpSecurityDescriptor = NULL; - sa.bInheritHandle = TRUE; - - /* - * Create a non-inheritible pipe. - */ - - CreatePipe(&Out.pipe, &h, &sa, 0); - - /* - * Dupe the write side, make it inheritible, and close the original. - */ - - DuplicateHandle(hProcess, h, hProcess, &si.hStdOutput, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Same as above, but for the error side. - */ - - CreatePipe(&Err.pipe, &h, &sa, 0); - DuplicateHandle(hProcess, h, hProcess, &si.hStdError, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Base command line. - */ - - lstrcpy(cmdline, "link.exe -nologo "); - - /* - * Append our option for testing. - */ - - lstrcat(cmdline, option); - - ok = CreateProcess( - NULL, /* Module name. */ - cmdline, /* Command line. */ - NULL, /* Process handle not inheritable. */ - NULL, /* Thread handle not inheritable. */ - TRUE, /* yes, inherit handles. */ - DETACHED_PROCESS, /* No console for you. */ - NULL, /* Use parent's environment block. */ - NULL, /* Use parent's starting directory. */ - &si, /* Pointer to STARTUPINFO structure. */ - &pi); /* Pointer to PROCESS_INFORMATION structure. */ - - if (!ok) { - DWORD err = GetLastError(); - int chars = snprintf(msg, sizeof(msg) - 1, - "Tried to launch: \"%s\", but got error [%u]: ", cmdline, err); - - FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS| - FORMAT_MESSAGE_MAX_WIDTH_MASK, 0L, err, 0, (LPVOID)&msg[chars], - (300-chars), 0); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg,lstrlen(msg), &err,NULL); - return 2; - } - - /* - * Close our references to the write handles that have now been inherited. - */ - - CloseHandle(si.hStdOutput); - CloseHandle(si.hStdError); - - WaitForInputIdle(pi.hProcess, 5000); - CloseHandle(pi.hThread); - - /* - * Start the pipe reader threads. - */ - - pipeThreads[0] = CreateThread(NULL, 0, ReadFromPipe, &Out, 0, &threadID); - pipeThreads[1] = CreateThread(NULL, 0, ReadFromPipe, &Err, 0, &threadID); - - /* - * Block waiting for the process to end. - */ - - WaitForSingleObject(pi.hProcess, INFINITE); - CloseHandle(pi.hProcess); - - /* - * Wait for our pipe to get done reading, should it be a little slow. - */ - - WaitForMultipleObjects(2, pipeThreads, TRUE, 500); - CloseHandle(pipeThreads[0]); - CloseHandle(pipeThreads[1]); - - /* - * Look for the commandline warning code in the stderr stream. - */ - - return !(strstr(Out.buffer, "LNK1117") != NULL || - strstr(Err.buffer, "LNK1117") != NULL || - strstr(Out.buffer, "LNK4044") != NULL || - strstr(Err.buffer, "LNK4044") != NULL); -} - -DWORD WINAPI -ReadFromPipe( - LPVOID args) -{ - pipeinfo *pi = (pipeinfo *) args; - char *lastBuf = pi->buffer; - DWORD dwRead; - BOOL ok; - - again: - if (lastBuf - pi->buffer + CHUNK > STATICBUFFERSIZE) { - CloseHandle(pi->pipe); - return (DWORD)-1; - } - ok = ReadFile(pi->pipe, lastBuf, CHUNK, &dwRead, 0L); - if (!ok || dwRead == 0) { - CloseHandle(pi->pipe); - return 0; - } - lastBuf += dwRead; - goto again; - - return 0; /* makes the compiler happy */ -} - -int -IsIn( - const char *string, - const char *substring) -{ - return (strstr(string, substring) != NULL); -} - -/* - * Find a specified #define by name. - * - * If the line is '#define TCL_VERSION "8.5"', it returns 85 as the result. - */ - -int -GrepForDefine( - const char *file, - const char *string) -{ - char s1[51], s2[51], s3[51]; - FILE *f = fopen(file, "rt"); - - if (f == NULL) { - return 0; - } - - do { - int r = fscanf(f, "%50s", s1); - - if (r == 1 && !strcmp(s1, "#define")) { - /* - * Get next two words. - */ - - r = fscanf(f, "%50s %50s", s2, s3); - if (r != 2) { - continue; - } - - /* - * Is the first word what we're looking for? - */ - - if (!strcmp(s2, string)) { - double d1; - - fclose(f); - - /* - * Add 1 past first double quote char. "8.5" - */ - - d1 = atof(s3 + 1); /* 8.5 */ - while (floor(d1) != d1) { - d1 *= 10.0; - } - return ((int) d1); /* 85 */ - } - } - } while (!feof(f)); - - fclose(f); - return 0; -} - -/* - * GetVersionFromFile -- - * Looks for a match string in a file and then returns the version - * following the match where a version is anything acceptable to - * package provide or package ifneeded. - */ - -const char * -GetVersionFromFile( - const char *filename, - const char *match) -{ - size_t cbBuffer = 100; - static char szBuffer[100]; - char *szResult = NULL; - FILE *fp = fopen(filename, "rt"); - - if (fp != NULL) { - /* - * Read data until we see our match string. - */ - - while (fgets(szBuffer, cbBuffer, fp) != NULL) { - LPSTR p, q; - - p = strstr(szBuffer, match); - if (p != NULL) { - /* - * Skip to first digit. - */ - - while (*p && !isdigit(*p)) { - ++p; - } - - /* - * Find ending whitespace. - */ - - q = p; - while (*q && (isalnum(*q) || *q == '.')) { - ++q; - } - - memcpy(szBuffer, p, q - p); - szBuffer[q-p] = 0; - szResult = szBuffer; - break; - } - } - fclose(fp); - } - return szResult; -} - -/* - * List helpers for the SubstituteFile function - */ - -typedef struct list_item_t { - struct list_item_t *nextPtr; - char * key; - char * value; -} list_item_t; - -/* insert a list item into the list (list may be null) */ -static list_item_t * -list_insert(list_item_t **listPtrPtr, const char *key, const char *value) -{ - list_item_t *itemPtr = malloc(sizeof(list_item_t)); - if (itemPtr) { - itemPtr->key = strdup(key); - itemPtr->value = strdup(value); - itemPtr->nextPtr = NULL; - - while(*listPtrPtr) { - listPtrPtr = &(*listPtrPtr)->nextPtr; - } - *listPtrPtr = itemPtr; - } - return itemPtr; -} - -static void -list_free(list_item_t **listPtrPtr) -{ - list_item_t *tmpPtr, *listPtr = *listPtrPtr; - while (listPtr) { - tmpPtr = listPtr; - listPtr = listPtr->nextPtr; - free(tmpPtr->key); - free(tmpPtr->value); - free(tmpPtr); - } -} - -/* - * SubstituteFile -- - * As windows doesn't provide anything useful like sed and it's unreliable - * to use the tclsh you are building against (consider x-platform builds - - * eg compiling AMD64 target from IX86) we provide a simple substitution - * option here to handle autoconf style substitutions. - * The substitution file is whitespace and line delimited. The file should - * consist of lines matching the regular expression: - * \s*\S+\s+\S*$ - * - * Usage is something like: - * nmakehlp -S << $** > $@ - * @PACKAGE_NAME@ $(PACKAGE_NAME) - * @PACKAGE_VERSION@ $(PACKAGE_VERSION) - * << - */ - -int -SubstituteFile( - const char *substitutions, - const char *filename) -{ - size_t cbBuffer = 1024; - static char szBuffer[1024], szCopy[1024]; - char *szResult = NULL; - list_item_t *substPtr = NULL; - FILE *fp, *sp; - - fp = fopen(filename, "rt"); - if (fp != NULL) { - - /* - * Build a list of substutitions from the first filename - */ - - sp = fopen(substitutions, "rt"); - if (sp != NULL) { - while (fgets(szBuffer, cbBuffer, sp) != NULL) { - char *ks, *ke, *vs, *ve; - ks = szBuffer; - while (ks && *ks && isspace(*ks)) ++ks; - ke = ks; - while (ke && *ke && !isspace(*ke)) ++ke; - vs = ke; - while (vs && *vs && isspace(*vs)) ++vs; - ve = vs; - while (ve && *ve && !(*ve == '\r' || *ve == '\n')) ++ve; - *ke = 0, *ve = 0; - list_insert(&substPtr, ks, vs); - } - fclose(sp); - } - - /* debug: dump the list */ -#ifdef _DEBUG - { - int n = 0; - list_item_t *p = NULL; - for (p = substPtr; p != NULL; p = p->nextPtr, ++n) { - fprintf(stderr, "% 3d '%s' => '%s'\n", n, p->key, p->value); - } - } -#endif - - /* - * Run the substitutions over each line of the input - */ - - while (fgets(szBuffer, cbBuffer, fp) != NULL) { - list_item_t *p = NULL; - for (p = substPtr; p != NULL; p = p->nextPtr) { - char *m = strstr(szBuffer, p->key); - if (m) { - char *cp, *op, *sp; - cp = szCopy; - op = szBuffer; - while (op != m) *cp++ = *op++; - sp = p->value; - while (sp && *sp) *cp++ = *sp++; - op += strlen(p->key); - while (*op) *cp++ = *op++; - *cp = 0; - memcpy(szBuffer, szCopy, sizeof(szCopy)); - } - } - printf(szBuffer); - } - - list_free(&substPtr); - } - fclose(fp); - return 0; -} - -/* - * QualifyPath -- - * - * This composes the current working directory with a provided path - * and returns the fully qualified and normalized path. - * Mostly needed to setup paths for testing. - */ - -int -QualifyPath( - const char *szPath) -{ - char szCwd[MAX_PATH + 1]; - char szTmp[MAX_PATH + 1]; - char *p; - GetCurrentDirectory(MAX_PATH, szCwd); - while ((p = strchr(szPath, '/')) && *p) - *p = '\\'; - PathCombine(szTmp, szCwd, szPath); - PathCanonicalize(szCwd, szTmp); - printf("%s\n", szCwd); - return 0; -} - -/* - * Local variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * indent-tabs-mode: t - * tab-width: 8 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/rules.vc b/opengl/Togl2.1-SnapPy/win-tk8.5/rules.vc deleted file mode 100644 index 9ea3e1c56..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/rules.vc +++ /dev/null @@ -1,624 +0,0 @@ -#------------------------------------------------------------- -*- Makefile -*- -# rules.vc -- -# -# Microsoft Visual C++ makefile include for decoding the commandline -# macros. This file does not need editing to build Tcl. -# -# This version is modified from the Tcl source version to support -# building extensions using nmake. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# Copyright (c) 2001-2002 David Gravereaux. -# Copyright (c) 2003-2008 Patrick Thoyts -# -#------------------------------------------------------------------------------ -# RCS: @(#) $Id: rules.vc,v 1.9 2009/05/04 23:47:55 patthoyts Exp $ -#------------------------------------------------------------------------------ - -!ifndef _RULES_VC -_RULES_VC = 1 - -cc32 = $(CC) # built-in default. -link32 = link -lib32 = lib -rc32 = $(RC) # built-in default. - -!ifndef INSTALLDIR -### Assume the normal default. -_INSTALLDIR = .\win32VC-tk8.6 -!else -### Fix the path separators. -_INSTALLDIR = $(INSTALLDIR:/=\) -!endif - -!ifndef MACHINE -!if "$(PLATFORM)" == "X64" -MACHINE = AMD64 -!else -MACHINE = X86 -!endif -!endif - -!ifndef TCLDIR -!if "$(PLATFORM)" == "X64" -TCLDIR = tcltk64 -!else -TCLDIR = tcltk -!endif -!endif - -!ifndef CFG_ENCODING -CFG_ENCODING = \"cp1252\" -!endif - -#---------------------------------------------------------- -# Set the proper copy method to avoid overwrite questions -# to the user when copying files and selecting the right -# "delete all" method. -#---------------------------------------------------------- - -!if "$(OS)" == "Windows_NT" -RMDIR = rmdir /S /Q -ERRNULL = 2>NUL -!if ![ver | find "4.0" > nul] -CPY = echo y | xcopy /i >NUL -COPY = copy >NUL -!else -CPY = xcopy /i /y >NUL -COPY = copy /y >NUL -!endif -!else # "$(OS)" != "Windows_NT" -CPY = xcopy /i >_JUNK.OUT # On Win98 NUL does not work here. -COPY = copy >_JUNK.OUT # On Win98 NUL does not work here. -RMDIR = deltree /Y -NULL = \NUL # Used in testing directory existence -ERRNULL = >NUL # Win9x shell cannot redirect stderr -!endif -MKDIR = mkdir - -!message =============================================================================== - -#---------------------------------------------------------- -# build the helper app we need to overcome nmake's limiting -# environment. -#---------------------------------------------------------- - -!if !exist(nmakehlp.exe) -!if [$(cc32) -nologo nmakehlp.c -link -subsystem:console > nul] -!endif -!endif - -#---------------------------------------------------------- -# Test for compiler features -#---------------------------------------------------------- - -### test for optimizations -!if [nmakehlp -c -Ot] -!message *** Compiler has 'Optimizations' -OPTIMIZING = 1 -!else -!message *** Compiler does not have 'Optimizations' -OPTIMIZING = 0 -!endif - -OPTIMIZATIONS = - -!if [nmakehlp -c -Ot] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Ot -!endif - -!if [nmakehlp -c -Oi] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Oi -!endif - -!if [nmakehlp -c -Op] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Op -!endif - -!if [nmakehlp -c -fp:strict] -OPTIMIZATIONS = $(OPTIMIZATIONS) -fp:strict -!endif - -!if [nmakehlp -c -Gs] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Gs -!endif - -!if [nmakehlp -c -GS] -OPTIMIZATIONS = $(OPTIMIZATIONS) -GS- -!endif - -!if [nmakehlp -c -GL] -OPTIMIZATIONS = $(OPTIMIZATIONS) -GL -!endif - -DEBUGFLAGS = - -!if [nmakehlp -c -RTC1] -DEBUGFLAGS = $(DEBUGFLAGS) -RTC1 -!elseif [nmakehlp -c -GZ] -DEBUGFLAGS = $(DEBUGFLAGS) -GZ -!endif - -COMPILERFLAGS =-W3 - -# In v13 -GL and -YX are incompatible. -!if [nmakehlp -c -YX] -!if ![nmakehlp -c -GL] -OPTIMIZATIONS = $(OPTIMIZATIONS) -YX -!endif -!endif - -!if "$(MACHINE)" == "X86" -### test for pentium errata -!if [nmakehlp -c -QI0f] -!message *** Compiler has 'Pentium 0x0f fix' -COMPILERFLAGS = $(COMPILERFLAGSS) -QI0f -!else -!message *** Compiler does not have 'Pentium 0x0f fix' -!endif -!endif - -!if "$(MACHINE)" == "IA64" -### test for Itanium errata -!if [nmakehlp -c -QIA64_Bx] -!message *** Compiler has 'B-stepping errata workarounds' -COMPILERFLAGS = $(COMPILERFLAGS) -QIA64_Bx -!else -!message *** Compiler does not have 'B-stepping errata workarounds' -!endif -!endif - -!if "$(MACHINE)" == "X86" -### test for -align:4096, when align:512 will do. -!if [nmakehlp -l -opt:nowin98] -!message *** Linker has 'Win98 alignment problem' -ALIGN98_HACK = 1 -!else -!message *** Linker does not have 'Win98 alignment problem' -ALIGN98_HACK = 0 -!endif -!else -ALIGN98_HACK = 0 -!endif - -LINKERFLAGS = - -!if [nmakehlp -l -ltcg] -LINKERFLAGS =-ltcg -!endif - -#---------------------------------------------------------- -# MSVC8 (ships with Visual Studio 2005) generates a manifest -# file that we should link into the binaries. This is how. -#---------------------------------------------------------- - -_VC_MANIFEST_EMBED_EXE= -_VC_MANIFEST_EMBED_DLL= -VCVER=0 -!if ![echo VCVERSION=_MSC_VER > vercl.x] \ - && ![cl -nologo -TC -P vercl.x $(ERRNULL)] -!include vercl.i -VCVER=$(VCVERSION) -!endif - -# Since MSVC8 we must deal with manifest resources. -!if $(VCVERSION) < 1600 -!if $(VCVERSION) >= 1400 -_VC_MANIFEST_EMBED_EXE=if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;1 -_VC_MANIFEST_EMBED_DLL=if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;2 -!endif -!endif - -#---------------------------------------------------------- -# Decode the options requested. -#---------------------------------------------------------- - -!if "$(OPTS)" == "" || [nmakehlp -f "$(OPTS)" "none"] -STATIC_BUILD = 0 -TCL_THREADS = 1 -DEBUG = 0 -PROFILE = 0 -MSVCRT = 0 -LOIMPACT = 0 -TCL_USE_STATIC_PACKAGES = 0 -USE_THREAD_ALLOC = 1 -USE_THREAD_STORAGE = 1 -UNCHECKED = 0 -!else -!if [nmakehlp -f $(OPTS) "static"] -!message *** Doing static -STATIC_BUILD = 1 -!else -STATIC_BUILD = 0 -!endif -!if [nmakehlp -f $(OPTS) "msvcrt"] -!message *** Doing msvcrt -MSVCRT = 1 -!else -MSVCRT = 0 -!endif -!if [nmakehlp -f $(OPTS) "staticpkg"] -!message *** Doing staticpkg -TCL_USE_STATIC_PACKAGES = 1 -!else -TCL_USE_STATIC_PACKAGES = 0 -!endif -!if [nmakehlp -f $(OPTS) "nothreads"] -!message *** Compile explicitly for non-threaded tcl -TCL_THREADS = 0 -!else -TCL_THREADS = 1 -!endif -!if [nmakehlp -f $(OPTS) "symbols"] -!message *** Doing symbols -DEBUG = 1 -!else -DEBUG = 0 -!endif -!if [nmakehlp -f $(OPTS) "profile"] -!message *** Doing profile -PROFILE = 1 -!else -PROFILE = 0 -!endif -!if [nmakehlp -f $(OPTS) "loimpact"] -!message *** Doing loimpact -LOIMPACT = 1 -!else -LOIMPACT = 0 -!endif -!if [nmakehlp -f $(OPTS) "thrdalloc"] -!message *** Doing thrdalloc -USE_THREAD_ALLOC = 1 -!else -USE_THREAD_ALLOC = 0 -!endif -!if [nmakehlp -f $(OPTS) "thrdstorage"] -!message *** Doing thrdstorage -USE_THREAD_STORAGE = 1 -!else -USE_THREAD_STORAGE = 0 -!endif -!if [nmakehlp -f $(OPTS) "unchecked"] -!message *** Doing unchecked -UNCHECKED = 1 -!else -UNCHECKED = 0 -!endif -!endif - - -!if !$(STATIC_BUILD) -# Make sure we don't build overly fat DLLs. -MSVCRT = 1 -# We shouldn't statically put the extensions inside the shell when dynamic. -TCL_USE_STATIC_PACKAGES = 0 -!endif - - -#---------------------------------------------------------- -# Figure-out how to name our intermediate and output directories. -# We wouldn't want different builds to use the same .obj files -# by accident. -#---------------------------------------------------------- - -#---------------------------------------- -# Naming convention: -# t = full thread support. -# s = static library (as opposed to an -# import library) -# g = linked to the debug enabled C -# run-time. -# x = special static build when it -# links to the dynamic C run-time. -#---------------------------------------- -SUFX = sgx - -!if $(DEBUG) -BUILDDIRTOP = Debug -!else -BUILDDIRTOP = Release -!endif - -!if $(VCVER) > 6 -BUILDDIRTOP =$(BUILDDIRTOP)_VC$(VCVER)_$(MACHINE) -!endif - -!if !$(DEBUG) || $(DEBUG) && $(UNCHECKED) -SUFX = $(SUFX:g=) -!endif - -TMP_DIRFULL = .\$(BUILDDIRTOP)\$(PROJECT)_ThreadedDynamicStaticZ -!if [echo TMP_DIRFULL is $(TMP_DIRFULL)] -!endif - -!if !$(STATIC_BUILD) -TMP_DIRFULL = $(TMP_DIRFULL:Static=) -SUFX = $(SUFX:s=) -EXT = dll -!if $(MSVCRT) -TMP_DIRFULL = $(TMP_DIRFULL:Z=) -SUFX = $(SUFX:x=) -!endif -!else -TMP_DIRFULL = $(TMP_DIRFULL:Dynamic=) -EXT = lib -!if !$(MSVCRT) -TMP_DIRFULL = $(TMP_DIRFULL:Z=) -SUFX = $(SUFX:x=) -!endif -!endif - -!if !$(TCL_THREADS) -TMP_DIRFULL = $(TMP_DIRFULL:Threaded=) -SUFX = $(SUFX:t=) -!endif - -!ifndef TMP_DIR -TMP_DIR = $(TMP_DIRFULL) -!ifndef OUT_DIR -#OUT_DIR = .\$(BUILDDIRTOP) -OUT_DIR = .\$(BUILDDIRTOP)\Togl -!endif -!else -!ifndef OUT_DIR -OUT_DIR = $(TMP_DIR)\..\Togl -!endif -!endif - - -#---------------------------------------------------------- -# Decode the statistics requested. -#---------------------------------------------------------- - -!if "$(STATS)" == "" || [nmakehlp -f "$(STATS)" "none"] -TCL_MEM_DEBUG = 0 -TCL_COMPILE_DEBUG = 0 -!else -!if [nmakehlp -f $(STATS) "memdbg"] -!message *** Doing memdbg -TCL_MEM_DEBUG = 1 -!else -TCL_MEM_DEBUG = 0 -!endif -!if [nmakehlp -f $(STATS) "compdbg"] -!message *** Doing compdbg -TCL_COMPILE_DEBUG = 1 -!else -TCL_COMPILE_DEBUG = 0 -!endif -!endif - - -#---------------------------------------------------------- -# Decode the checks requested. -#---------------------------------------------------------- - -!if "$(CHECKS)" == "" || [nmakehlp -f "$(CHECKS)" "none"] -TCL_NO_DEPRECATED = 0 -WARNINGS = -W3 -!else -!if [nmakehlp -f $(CHECKS) "nodep"] -!message *** Doing nodep check -TCL_NO_DEPRECATED = 1 -!else -TCL_NO_DEPRECATED = 0 -!endif -!if [nmakehlp -f $(CHECKS) "fullwarn"] -!message *** Doing full warnings check -WARNINGS = -W4 -!if [nmakehlp -l -warn:3] -LINKERFLAGS = $(LINKERFLAGS) -warn:3 -!endif -!else -WARNINGS = -W3 -!endif -!if [nmakehlp -f $(CHECKS) "64bit"] && [nmakehlp -c -Wp64] -!message *** Doing 64bit portability warnings -WARNINGS = $(WARNINGS) -Wp64 -!endif -!endif - -#---------------------------------------------------------- -# Set our defines now armed with our options. -#---------------------------------------------------------- - -OPTDEFINES = -DTCL_CFGVAL_ENCODING=$(CFG_ENCODING) -DSTDC_HEADERS - -!if $(TCL_MEM_DEBUG) -OPTDEFINES = $(OPTDEFINES) -DTCL_MEM_DEBUG -!endif -!if $(TCL_COMPILE_DEBUG) -OPTDEFINES = $(OPTDEFINES) -DTCL_COMPILE_DEBUG -DTCL_COMPILE_STATS -!endif -!if $(TCL_THREADS) -OPTDEFINES = $(OPTDEFINES) -DTCL_THREADS=1 -!if $(USE_THREAD_ALLOC) -OPTDEFINES = $(OPTDEFINES) -DUSE_THREAD_ALLOC=1 -!endif -!if $(USE_THREAD_STORAGE) -OPTDEFINES = $(OPTDEFINES) -DUSE_THREAD_STORAGE=1 -!endif -!endif -!if $(STATIC_BUILD) -OPTDEFINES = $(OPTDEFINES) -DSTATIC_BUILD -!endif -!if $(TCL_NO_DEPRECATED) -OPTDEFINES = $(OPTDEFINES) -DTCL_NO_DEPRECATED -!endif - -!if $(DEBUG) -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_DEBUG -!elseif $(OPTIMIZING) -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_OPTIMIZED -!endif -!if $(PROFILE) -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_PROFILED -!endif -!if "$(MACHINE)" == "IA64" || "$(MACHINE)" == "AMD64" -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_DO64BIT -!endif - - -#---------------------------------------------------------- -# Get common info used when building extensions. -#---------------------------------------------------------- - -!if "$(PROJECT)" != "tcl" - -# If INSTALLDIR set to tcl root dir then reset to the lib dir. -!if exist("$(_INSTALLDIR)\include\tcl.h") -_INSTALLDIR=$(_INSTALLDIR)\lib -!endif - -!if !defined(TCLDIR) -!if exist("$(_INSTALLDIR)\..\include\tcl.h") -TCLINSTALL = 1 -_TCLDIR = $(_INSTALLDIR)\.. -_TCL_H = $(_INSTALLDIR)\..\include\tcl.h -TCLDIR = $(_INSTALLDIR)\.. -!else -MSG=^ -Failed to find tcl.h. Set the TCLDIR macro. -!error $(MSG) -!endif -!else -_TCLDIR = $(TCLDIR:/=\) -!if exist("$(_TCLDIR)\include\tcl.h") -TCLINSTALL = 1 -_TCL_H = $(_TCLDIR)\include\tcl.h -!elseif exist("$(_TCLDIR)\generic\tcl.h") -TCLINSTALL = 0 -_TCL_H = $(_TCLDIR)\generic\tcl.h -!else -MSG =^ -Failed to find tcl.h in $(_TCLDIR) Fix the TCLDIR macro. -!error $(MSG) -!endif -!endif - -!if [echo REM = This file is generated from rules.vc > version.vc] -!endif -!if exist("$(_TCL_H)") -!if [echo TCL_DOTVERSION = \>> version.vc] \ - && [nmakehlp -V "$(_TCL_H)" TCL_VERSION >> version.vc] -!endif -!endif -!include version.vc -TCL_VERSION = $(TCL_DOTVERSION:.=) - -!if $(TCLINSTALL) -TCLSH = "$(_TCLDIR)\bin\tclsh$(TCL_VERSION)$(SUFX).exe" -!if !exist($(TCLSH)) && $(TCL_THREADS) -TCLSH = "$(_TCLDIR)\bin\tclsh$(TCL_VERSION)t$(SUFX).exe" -!endif -TCLSTUBLIB = "$(_TCLDIR)\lib\tclstub$(TCL_VERSION).lib" -TCLIMPLIB = "$(_TCLDIR)\lib\tcl$(TCL_VERSION)$(SUFX).lib" -TCL_LIBRARY = $(_TCLDIR)\lib -TCL_INCLUDES = -I"$(_TCLDIR)\include" -!else -TCLSH = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tclsh$(TCL_VERSION)$(SUFX).exe" -!if !exist($(TCLSH)) && $(TCL_THREADS) -TCLSH = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tclsh$(TCL_VERSION)t$(SUFX).exe" -!endif -TCLSTUBLIB = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tclstub$(TCL_VERSION).lib" -TCLIMPLIB = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tcl$(TCL_VERSION)$(SUFX).lib" -TCL_LIBRARY = $(_TCLDIR)\library -TCL_INCLUDES = -I"$(_TCLDIR)\generic" -I"$(_TCLDIR)\win" -!endif - -!endif - -#---------------------------------------------------------- -# Optionally check for Tk info for building extensions. -#---------------------------------------------------------- - -!ifdef PROJECT_REQUIRES_TK -!if "$(PROJECT)" != "tcl" && "$(PROJECT)" != "tk" - -!if !defined(TKDIR) -!if exist("$(_INSTALLDIR)\..\include\tk.h") -TKINSTALL = 1 -_TKDIR = $(_INSTALLDIR)\.. -_TK_H = $(_TKDIR)\include\tk.h -TKDIR = $(_TKDIR) -!elseif exist("$(_TCLDIR)\include\tk.h") -TKINSTALL = 1 -_TKDIR = $(_TCLDIR) -_TK_H = $(_TKDIR)\include\tk.h -TKDIR = $(_TKDIR) -!endif -!else -_TKDIR = $(TKDIR:/=\) -!if exist("$(_TKDIR)\include\tk.h") -TKINSTALL = 1 -_TK_H = $(_TKDIR)\include\tk.h -!elseif exist("$(_TKDIR)\generic\tk.h") -TKINSTALL = 0 -_TK_H = $(_TKDIR)\generic\tk.h -!else -MSG =^ -Failed to find tk.h. The TKDIR macro does not appear correct. -!error $(MSG) -!endif -!endif - -!if defined(TKDIR) -TK_DOTVERSION = 8.4 -!if exist("$(_TK_H)") -!if [echo TK_DOTVERSION = \>> version.vc] \ - && [nmakehlp -V "$(_TK_H)" TK_VERSION >> version.vc] -!endif -!endif -!include version.vc -TK_VERSION = $(TK_DOTVERSION:.=) - -!if $(TKINSTALL) -WISH = "$(_TKDIR)\bin\wish$(TK_VERSION)$(SUFX).exe" -!if !exist($(WISH)) && $(TCL_THREADS) -WISH = "$(_TKDIR)\bin\wish$(TK_VERSION)t$(SUFX).exe" -!endif -TKSTUBLIB = "$(_TKDIR)\lib\tkstub$(TK_VERSION).lib" -TKIMPLIB = "$(_TKDIR)\lib\tk$(TK_VERSION)$(SUFX).lib" -TK_INCLUDES = -I"$(_TKDIR)\include" -TK_LIBRARY = $(_TKDIR)\lib -!else -WISH = "$(_TKDIR)\win\$(BUILDDIRTOP)\wish$(TCL_VERSION)$(SUFX).exe" -!if !exist($(WISH)) && $(TCL_THREADS) -WISH = "$(_TKDIR)\win\$(BUILDDIRTOP)\wish$(TCL_VERSION)t$(SUFX).exe" -!endif -TKSTUBLIB = "$(_TKDIR)\win\$(BUILDDIRTOP)\tkstub$(TCL_VERSION).lib" -TKIMPLIB = "$(_TKDIR)\win\$(BUILDDIRTOP)\tk$(TCL_VERSION)$(SUFX).lib" -TK_INCLUDES = -I"$(_TKDIR)\generic" -I"$(_TKDIR)\win" -I"$(_TKDIR)\xlib" -TK_LIBRARY = $(_TKDIR)\library -!endif - -!endif -!endif -!endif - - -#---------------------------------------------------------- -# Setup the fully qualified OUT_DIR path as OUT_DIR_PATH -#---------------------------------------------------------- -!if [echo OUT_DIR_PATH = \>> version.vc] \ - && [nmakehlp -Q "$(OUT_DIR)" >> version.vc] -!endif -!include version.vc - - -#---------------------------------------------------------- -# Display stats being used. -#---------------------------------------------------------- - -!message *** Intermediate directory will be '$(TMP_DIR)' -!message *** Output directory will be '$(OUT_DIR)' -!message *** Suffix for binaries will be '$(SUFX)' -!message *** Optional defines are '$(OPTDEFINES)' -!message *** Compiler version $(VCVER). Target machine is $(MACHINE) -!message *** Compiler options '$(COMPILERFLAGS) $(OPTIMIZATIONS) $(DEBUGFLAGS) $(WARNINGS)' -!message *** Link options '$(LINKERFLAGS)' - -!endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/X.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/X.h deleted file mode 100644 index b43967e0d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/X.h +++ /dev/null @@ -1,686 +0,0 @@ -/* - * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ - */ - -/* Definitions for the X window system likely to be used by applications */ - -#ifndef X_H -#define X_H - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ -#define X_PROTOCOL 11 /* current protocol version */ -#define X_PROTOCOL_REVISION 0 /* current minor version */ - -#if defined(MAC_OSX_TK) -# define Cursor XCursor -# define Region XRegion -#endif - -/* Resources */ - -#ifdef _WIN64 -typedef __int64 XID; -#else -typedef unsigned long XID; -#endif - -typedef XID Window; -typedef XID Drawable; -typedef XID Font; -typedef XID Pixmap; -typedef XID Cursor; -typedef XID Colormap; -typedef XID GContext; -typedef XID KeySym; - -typedef unsigned long Mask; - -typedef unsigned long Atom; - -typedef unsigned long VisualID; - -typedef unsigned long Time; - -typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs - * to pack 3 bytes into the keyCode field in - * the XEvent. In the real X.h, a KeyCode is - * defined as a short, which wouldn't be big - * enough. */ - -/***************************************************************** - * RESERVED RESOURCE AND CONSTANT DEFINITIONS - *****************************************************************/ - -#ifndef _WIN32 -# define None 0L /* See bug [9e31fd9449] and below */ -#endif - -#define ParentRelative 1L /* background pixmap in CreateWindow - and ChangeWindowAttributes */ - -#define CopyFromParent 0L /* border pixmap in CreateWindow - and ChangeWindowAttributes - special VisualID and special window - class passed to CreateWindow */ - -#define PointerWindow 0L /* destination window in SendEvent */ -#define InputFocus 1L /* destination window in SendEvent */ - -#define PointerRoot 1L /* focus window in SetInputFocus */ - -#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ - -#define AnyKey 0L /* special Key Code, passed to GrabKey */ - -#define AnyButton 0L /* special Button Code, passed to GrabButton */ - -#define AllTemporary 0L /* special Resource ID passed to KillClient */ - -#define CurrentTime 0L /* special Time */ - -#define NoSymbol 0L /* special KeySym */ - -/***************************************************************** - * EVENT DEFINITIONS - *****************************************************************/ - -/* Input Event Masks. Used as event-mask window attribute and as arguments - to Grab requests. Not to be confused with event names. */ - -#define NoEventMask 0L -#define KeyPressMask (1L<<0) -#define KeyReleaseMask (1L<<1) -#define ButtonPressMask (1L<<2) -#define ButtonReleaseMask (1L<<3) -#define EnterWindowMask (1L<<4) -#define LeaveWindowMask (1L<<5) -#define PointerMotionMask (1L<<6) -#define PointerMotionHintMask (1L<<7) -#define Button1MotionMask (1L<<8) -#define Button2MotionMask (1L<<9) -#define Button3MotionMask (1L<<10) -#define Button4MotionMask (1L<<11) -#define Button5MotionMask (1L<<12) -#define ButtonMotionMask (1L<<13) -#define KeymapStateMask (1L<<14) -#define ExposureMask (1L<<15) -#define VisibilityChangeMask (1L<<16) -#define StructureNotifyMask (1L<<17) -#define ResizeRedirectMask (1L<<18) -#define SubstructureNotifyMask (1L<<19) -#define SubstructureRedirectMask (1L<<20) -#define FocusChangeMask (1L<<21) -#define PropertyChangeMask (1L<<22) -#define ColormapChangeMask (1L<<23) -#define OwnerGrabButtonMask (1L<<24) - -/* Event names. Used in "type" field in XEvent structures. Not to be -confused with event masks above. They start from 2 because 0 and 1 -are reserved in the protocol for errors and replies. */ - -#define KeyPress 2 -#define KeyRelease 3 -#define ButtonPress 4 -#define ButtonRelease 5 -#define MotionNotify 6 -#define EnterNotify 7 -#define LeaveNotify 8 -#define FocusIn 9 -#define FocusOut 10 -#define KeymapNotify 11 -#define Expose 12 -#define GraphicsExpose 13 -#define NoExpose 14 -#define VisibilityNotify 15 -#define CreateNotify 16 -#define DestroyNotify 17 -#define UnmapNotify 18 -#define MapNotify 19 -#define MapRequest 20 -#define ReparentNotify 21 -#define ConfigureNotify 22 -#define ConfigureRequest 23 -#define GravityNotify 24 -#define ResizeRequest 25 -#define CirculateNotify 26 -#define CirculateRequest 27 -#define PropertyNotify 28 -#define SelectionClear 29 -#define SelectionRequest 30 -#define SelectionNotify 31 -#define ColormapNotify 32 -#define ClientMessage 33 -#define MappingNotify 34 -#define LASTEvent 35 /* must be bigger than any event # */ - - -/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, - state in various key-, mouse-, and button-related events. */ - -#define ShiftMask (1<<0) -#define LockMask (1<<1) -#ifndef _WIN32 -# define ControlMask (1<<2) /* See bug [9e31fd9449] and below */ -#endif -#define Mod1Mask (1<<3) -#define Mod2Mask (1<<4) -#define Mod3Mask (1<<5) -#define Mod4Mask (1<<6) -#define Mod5Mask (1<<7) - -/* See bug [9e31fd9449], this way prevents conflicts with Win32 headers */ -#ifdef _WIN32 -enum _Bug9e31fd9449 { None = 0, ControlMask = (1<<2) }; -#endif - -/* modifier names. Used to build a SetModifierMapping request or - to read a GetModifierMapping request. These correspond to the - masks defined above. */ -#define ShiftMapIndex 0 -#define LockMapIndex 1 -#define ControlMapIndex 2 -#define Mod1MapIndex 3 -#define Mod2MapIndex 4 -#define Mod3MapIndex 5 -#define Mod4MapIndex 6 -#define Mod5MapIndex 7 - - -/* button masks. Used in same manner as Key masks above. Not to be confused - with button names below. */ - -#define Button1Mask (1<<8) -#define Button2Mask (1<<9) -#define Button3Mask (1<<10) -#define Button4Mask (1<<11) -#define Button5Mask (1<<12) - -#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ - - -/* button names. Used as arguments to GrabButton and as detail in ButtonPress - and ButtonRelease events. Not to be confused with button masks above. - Note that 0 is already defined above as "AnyButton". */ - -#define Button1 1 -#define Button2 2 -#define Button3 3 -#define Button4 4 -#define Button5 5 - -/* Notify modes */ - -#define NotifyNormal 0 -#define NotifyGrab 1 -#define NotifyUngrab 2 -#define NotifyWhileGrabbed 3 - -#define NotifyHint 1 /* for MotionNotify events */ - -/* Notify detail */ - -#define NotifyAncestor 0 -#define NotifyVirtual 1 -#define NotifyInferior 2 -#define NotifyNonlinear 3 -#define NotifyNonlinearVirtual 4 -#define NotifyPointer 5 -#define NotifyPointerRoot 6 -#define NotifyDetailNone 7 - -/* Visibility notify */ - -#define VisibilityUnobscured 0 -#define VisibilityPartiallyObscured 1 -#define VisibilityFullyObscured 2 - -/* Circulation request */ - -#define PlaceOnTop 0 -#define PlaceOnBottom 1 - -/* protocol families */ - -#define FamilyInternet 0 -#define FamilyDECnet 1 -#define FamilyChaos 2 - -/* Property notification */ - -#define PropertyNewValue 0 -#define PropertyDelete 1 - -/* Color Map notification */ - -#define ColormapUninstalled 0 -#define ColormapInstalled 1 - -/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ - -#define GrabModeSync 0 -#define GrabModeAsync 1 - -/* GrabPointer, GrabKeyboard reply status */ - -#define GrabSuccess 0 -#define AlreadyGrabbed 1 -#define GrabInvalidTime 2 -#define GrabNotViewable 3 -#define GrabFrozen 4 - -/* AllowEvents modes */ - -#define AsyncPointer 0 -#define SyncPointer 1 -#define ReplayPointer 2 -#define AsyncKeyboard 3 -#define SyncKeyboard 4 -#define ReplayKeyboard 5 -#define AsyncBoth 6 -#define SyncBoth 7 - -/* Used in SetInputFocus, GetInputFocus */ - -#define RevertToNone (int)None -#define RevertToPointerRoot (int)PointerRoot -#define RevertToParent 2 - -/***************************************************************** - * ERROR CODES - *****************************************************************/ - -#define Success 0 /* everything's okay */ -#define BadRequest 1 /* bad request code */ -#define BadValue 2 /* int parameter out of range */ -#define BadWindow 3 /* parameter not a Window */ -#define BadPixmap 4 /* parameter not a Pixmap */ -#define BadAtom 5 /* parameter not an Atom */ -#define BadCursor 6 /* parameter not a Cursor */ -#define BadFont 7 /* parameter not a Font */ -#define BadMatch 8 /* parameter mismatch */ -#define BadDrawable 9 /* parameter not a Pixmap or Window */ -#define BadAccess 10 /* depending on context: - - key/button already grabbed - - attempt to free an illegal - cmap entry - - attempt to store into a read-only - color map entry. - - attempt to modify the access control - list from other than the local host. - */ -#define BadAlloc 11 /* insufficient resources */ -#define BadColor 12 /* no such colormap */ -#define BadGC 13 /* parameter not a GC */ -#define BadIDChoice 14 /* choice not in range or already used */ -#define BadName 15 /* font or color name doesn't exist */ -#define BadLength 16 /* Request length incorrect */ -#define BadImplementation 17 /* server is defective */ - -#define FirstExtensionError 128 -#define LastExtensionError 255 - -/***************************************************************** - * WINDOW DEFINITIONS - *****************************************************************/ - -/* Window classes used by CreateWindow */ -/* Note that CopyFromParent is already defined as 0 above */ - -#define InputOutput 1 -#define InputOnly 2 - -/* Window attributes for CreateWindow and ChangeWindowAttributes */ - -#define CWBackPixmap (1L<<0) -#define CWBackPixel (1L<<1) -#define CWBorderPixmap (1L<<2) -#define CWBorderPixel (1L<<3) -#define CWBitGravity (1L<<4) -#define CWWinGravity (1L<<5) -#define CWBackingStore (1L<<6) -#define CWBackingPlanes (1L<<7) -#define CWBackingPixel (1L<<8) -#define CWOverrideRedirect (1L<<9) -#define CWSaveUnder (1L<<10) -#define CWEventMask (1L<<11) -#define CWDontPropagate (1L<<12) -#define CWColormap (1L<<13) -#define CWCursor (1L<<14) - -/* ConfigureWindow structure */ - -#define CWX (1<<0) -#define CWY (1<<1) -#define CWWidth (1<<2) -#define CWHeight (1<<3) -#define CWBorderWidth (1<<4) -#define CWSibling (1<<5) -#define CWStackMode (1<<6) - - -/* Bit Gravity */ - -#define ForgetGravity 0 -#define NorthWestGravity 1 -#define NorthGravity 2 -#define NorthEastGravity 3 -#define WestGravity 4 -#define CenterGravity 5 -#define EastGravity 6 -#define SouthWestGravity 7 -#define SouthGravity 8 -#define SouthEastGravity 9 -#define StaticGravity 10 - -/* Window gravity + bit gravity above */ - -#define UnmapGravity 0 - -/* Used in CreateWindow for backing-store hint */ - -#define NotUseful 0 -#define WhenMapped 1 -#define Always 2 - -/* Used in GetWindowAttributes reply */ - -#define IsUnmapped 0 -#define IsUnviewable 1 -#define IsViewable 2 - -/* Used in ChangeSaveSet */ - -#define SetModeInsert 0 -#define SetModeDelete 1 - -/* Used in ChangeCloseDownMode */ - -#define DestroyAll 0 -#define RetainPermanent 1 -#define RetainTemporary 2 - -/* Window stacking method (in configureWindow) */ - -#define Above 0 -#define Below 1 -#define TopIf 2 -#define BottomIf 3 -#define Opposite 4 - -/* Circulation direction */ - -#define RaiseLowest 0 -#define LowerHighest 1 - -/* Property modes */ - -#define PropModeReplace 0 -#define PropModePrepend 1 -#define PropModeAppend 2 - -/***************************************************************** - * GRAPHICS DEFINITIONS - *****************************************************************/ - -/* graphics functions, as in GC.alu */ - -#define GXclear 0x0 /* 0 */ -#define GXand 0x1 /* src AND dst */ -#define GXandReverse 0x2 /* src AND NOT dst */ -#define GXcopy 0x3 /* src */ -#define GXandInverted 0x4 /* NOT src AND dst */ -#define GXnoop 0x5 /* dst */ -#define GXxor 0x6 /* src XOR dst */ -#define GXor 0x7 /* src OR dst */ -#define GXnor 0x8 /* NOT src AND NOT dst */ -#define GXequiv 0x9 /* NOT src XOR dst */ -#define GXinvert 0xa /* NOT dst */ -#define GXorReverse 0xb /* src OR NOT dst */ -#define GXcopyInverted 0xc /* NOT src */ -#define GXorInverted 0xd /* NOT src OR dst */ -#define GXnand 0xe /* NOT src OR NOT dst */ -#define GXset 0xf /* 1 */ - -/* LineStyle */ - -#define LineSolid 0 -#define LineOnOffDash 1 -#define LineDoubleDash 2 - -/* capStyle */ - -#define CapNotLast 0 -#define CapButt 1 -#define CapRound 2 -#define CapProjecting 3 - -/* joinStyle */ - -#define JoinMiter 0 -#define JoinRound 1 -#define JoinBevel 2 - -/* fillStyle */ - -#define FillSolid 0 -#define FillTiled 1 -#define FillStippled 2 -#define FillOpaqueStippled 3 - -/* fillRule */ - -#define EvenOddRule 0 -#define WindingRule 1 - -/* subwindow mode */ - -#define ClipByChildren 0 -#define IncludeInferiors 1 - -/* SetClipRectangles ordering */ - -#define Unsorted 0 -#define YSorted 1 -#define YXSorted 2 -#define YXBanded 3 - -/* CoordinateMode for drawing routines */ - -#define CoordModeOrigin 0 /* relative to the origin */ -#define CoordModePrevious 1 /* relative to previous point */ - -/* Polygon shapes */ - -#define Complex 0 /* paths may intersect */ -#define Nonconvex 1 /* no paths intersect, but not convex */ -#define Convex 2 /* wholly convex */ - -/* Arc modes for PolyFillArc */ - -#define ArcChord 0 /* join endpoints of arc */ -#define ArcPieSlice 1 /* join endpoints to center of arc */ - -/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into - GC.stateChanges */ - -#define GCFunction (1L<<0) -#define GCPlaneMask (1L<<1) -#define GCForeground (1L<<2) -#define GCBackground (1L<<3) -#define GCLineWidth (1L<<4) -#define GCLineStyle (1L<<5) -#define GCCapStyle (1L<<6) -#define GCJoinStyle (1L<<7) -#define GCFillStyle (1L<<8) -#define GCFillRule (1L<<9) -#define GCTile (1L<<10) -#define GCStipple (1L<<11) -#define GCTileStipXOrigin (1L<<12) -#define GCTileStipYOrigin (1L<<13) -#define GCFont (1L<<14) -#define GCSubwindowMode (1L<<15) -#define GCGraphicsExposures (1L<<16) -#define GCClipXOrigin (1L<<17) -#define GCClipYOrigin (1L<<18) -#define GCClipMask (1L<<19) -#define GCDashOffset (1L<<20) -#define GCDashList (1L<<21) -#define GCArcMode (1L<<22) - -#define GCLastBit 22 -/***************************************************************** - * FONTS - *****************************************************************/ - -/* used in QueryFont -- draw direction */ - -#define FontLeftToRight 0 -#define FontRightToLeft 1 - -#define FontChange 255 - -/***************************************************************** - * IMAGING - *****************************************************************/ - -/* ImageFormat -- PutImage, GetImage */ - -#define XYBitmap 0 /* depth 1, XYFormat */ -#define XYPixmap 1 /* depth == drawable depth */ -#define ZPixmap 2 /* depth == drawable depth */ - -/***************************************************************** - * COLOR MAP STUFF - *****************************************************************/ - -/* For CreateColormap */ - -#define AllocNone 0 /* create map with no entries */ -#define AllocAll 1 /* allocate entire map writeable */ - - -/* Flags used in StoreNamedColor, StoreColors */ - -#define DoRed (1<<0) -#define DoGreen (1<<1) -#define DoBlue (1<<2) - -/***************************************************************** - * CURSOR STUFF - *****************************************************************/ - -/* QueryBestSize Class */ - -#define CursorShape 0 /* largest size that can be displayed */ -#define TileShape 1 /* size tiled fastest */ -#define StippleShape 2 /* size stippled fastest */ - -/***************************************************************** - * KEYBOARD/POINTER STUFF - *****************************************************************/ - -#define AutoRepeatModeOff 0 -#define AutoRepeatModeOn 1 -#define AutoRepeatModeDefault 2 - -#define LedModeOff 0 -#define LedModeOn 1 - -/* masks for ChangeKeyboardControl */ - -#define KBKeyClickPercent (1L<<0) -#define KBBellPercent (1L<<1) -#define KBBellPitch (1L<<2) -#define KBBellDuration (1L<<3) -#define KBLed (1L<<4) -#define KBLedMode (1L<<5) -#define KBKey (1L<<6) -#define KBAutoRepeatMode (1L<<7) - -#define MappingSuccess 0 -#define MappingBusy 1 -#define MappingFailed 2 - -#define MappingModifier 0 -#define MappingKeyboard 1 -#define MappingPointer 2 - -/***************************************************************** - * SCREEN SAVER STUFF - *****************************************************************/ - -#define DontPreferBlanking 0 -#define PreferBlanking 1 -#define DefaultBlanking 2 - -#define DisableScreenSaver 0 -#define DisableScreenInterval 0 - -#define DontAllowExposures 0 -#define AllowExposures 1 -#define DefaultExposures 2 - -/* for ForceScreenSaver */ - -#define ScreenSaverReset 0 -#define ScreenSaverActive 1 - -/***************************************************************** - * HOSTS AND CONNECTIONS - *****************************************************************/ - -/* for ChangeHosts */ - -#define HostInsert 0 -#define HostDelete 1 - -/* for ChangeAccessControl */ - -#define EnableAccess 1 -#define DisableAccess 0 - -/* Display classes used in opening the connection - * Note that the statically allocated ones are even numbered and the - * dynamically changeable ones are odd numbered */ - -#define StaticGray 0 -#define GrayScale 1 -#define StaticColor 2 -#define PseudoColor 3 -#define TrueColor 4 -#define DirectColor 5 - - -/* Byte order used in imageByteOrder and bitmapBitOrder */ - -#define LSBFirst 0 -#define MSBFirst 1 - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* X_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xatom.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xatom.h deleted file mode 100644 index 485a4236d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xatom.h +++ /dev/null @@ -1,79 +0,0 @@ -#ifndef XATOM_H -#define XATOM_H 1 - -/* THIS IS A GENERATED FILE - * - * Do not change! Changing this file implies a protocol change! - */ - -#define XA_PRIMARY ((Atom) 1) -#define XA_SECONDARY ((Atom) 2) -#define XA_ARC ((Atom) 3) -#define XA_ATOM ((Atom) 4) -#define XA_BITMAP ((Atom) 5) -#define XA_CARDINAL ((Atom) 6) -#define XA_COLORMAP ((Atom) 7) -#define XA_CURSOR ((Atom) 8) -#define XA_CUT_BUFFER0 ((Atom) 9) -#define XA_CUT_BUFFER1 ((Atom) 10) -#define XA_CUT_BUFFER2 ((Atom) 11) -#define XA_CUT_BUFFER3 ((Atom) 12) -#define XA_CUT_BUFFER4 ((Atom) 13) -#define XA_CUT_BUFFER5 ((Atom) 14) -#define XA_CUT_BUFFER6 ((Atom) 15) -#define XA_CUT_BUFFER7 ((Atom) 16) -#define XA_DRAWABLE ((Atom) 17) -#define XA_FONT ((Atom) 18) -#define XA_INTEGER ((Atom) 19) -#define XA_PIXMAP ((Atom) 20) -#define XA_POINT ((Atom) 21) -#define XA_RECTANGLE ((Atom) 22) -#define XA_RESOURCE_MANAGER ((Atom) 23) -#define XA_RGB_COLOR_MAP ((Atom) 24) -#define XA_RGB_BEST_MAP ((Atom) 25) -#define XA_RGB_BLUE_MAP ((Atom) 26) -#define XA_RGB_DEFAULT_MAP ((Atom) 27) -#define XA_RGB_GRAY_MAP ((Atom) 28) -#define XA_RGB_GREEN_MAP ((Atom) 29) -#define XA_RGB_RED_MAP ((Atom) 30) -#define XA_STRING ((Atom) 31) -#define XA_VISUALID ((Atom) 32) -#define XA_WINDOW ((Atom) 33) -#define XA_WM_COMMAND ((Atom) 34) -#define XA_WM_HINTS ((Atom) 35) -#define XA_WM_CLIENT_MACHINE ((Atom) 36) -#define XA_WM_ICON_NAME ((Atom) 37) -#define XA_WM_ICON_SIZE ((Atom) 38) -#define XA_WM_NAME ((Atom) 39) -#define XA_WM_NORMAL_HINTS ((Atom) 40) -#define XA_WM_SIZE_HINTS ((Atom) 41) -#define XA_WM_ZOOM_HINTS ((Atom) 42) -#define XA_MIN_SPACE ((Atom) 43) -#define XA_NORM_SPACE ((Atom) 44) -#define XA_MAX_SPACE ((Atom) 45) -#define XA_END_SPACE ((Atom) 46) -#define XA_SUPERSCRIPT_X ((Atom) 47) -#define XA_SUPERSCRIPT_Y ((Atom) 48) -#define XA_SUBSCRIPT_X ((Atom) 49) -#define XA_SUBSCRIPT_Y ((Atom) 50) -#define XA_UNDERLINE_POSITION ((Atom) 51) -#define XA_UNDERLINE_THICKNESS ((Atom) 52) -#define XA_STRIKEOUT_ASCENT ((Atom) 53) -#define XA_STRIKEOUT_DESCENT ((Atom) 54) -#define XA_ITALIC_ANGLE ((Atom) 55) -#define XA_X_HEIGHT ((Atom) 56) -#define XA_QUAD_WIDTH ((Atom) 57) -#define XA_WEIGHT ((Atom) 58) -#define XA_POINT_SIZE ((Atom) 59) -#define XA_RESOLUTION ((Atom) 60) -#define XA_COPYRIGHT ((Atom) 61) -#define XA_NOTICE ((Atom) 62) -#define XA_FONT_NAME ((Atom) 63) -#define XA_FAMILY_NAME ((Atom) 64) -#define XA_FULL_NAME ((Atom) 65) -#define XA_CAP_HEIGHT ((Atom) 66) -#define XA_WM_CLASS ((Atom) 67) -#define XA_WM_TRANSIENT_FOR ((Atom) 68) - -#define XA_LAST_PREDEFINED ((Atom) 68) -#endif /* XATOM_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xfuncproto.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xfuncproto.h deleted file mode 100644 index 6d63002ef..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xfuncproto.h +++ /dev/null @@ -1,60 +0,0 @@ -/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ -/* - * Copyright 1989, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - */ - -/* Definitions to make function prototypes manageable */ - -#ifndef _XFUNCPROTO_H_ -#define _XFUNCPROTO_H_ - -#ifndef NeedFunctionPrototypes -#define NeedFunctionPrototypes 1 -#endif /* NeedFunctionPrototypes */ - -#ifndef NeedVarargsPrototypes -#define NeedVarargsPrototypes 0 -#endif /* NeedVarargsPrototypes */ - -#if NeedFunctionPrototypes - -#ifndef NeedNestedPrototypes -#define NeedNestedPrototypes 1 -#endif /* NeedNestedPrototypes */ - -#ifndef _Xconst -#define _Xconst const -#endif /* _Xconst */ - -#ifndef NeedWidePrototypes -#ifdef NARROWPROTO -#define NeedWidePrototypes 0 -#else -#define NeedWidePrototypes 1 /* default to make interropt. easier */ -#endif -#endif /* NeedWidePrototypes */ - -#endif /* NeedFunctionPrototypes */ - -#ifdef __cplusplus -#define _XFUNCPROTOBEGIN extern "C" { -#define _XFUNCPROTOEND } -#endif - -#ifndef _XFUNCPROTOBEGIN -#define _XFUNCPROTOBEGIN -#define _XFUNCPROTOEND -#endif /* _XFUNCPROTOBEGIN */ - -#endif /* _XFUNCPROTO_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xlib.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xlib.h deleted file mode 100644 index d3d80d532..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xlib.h +++ /dev/null @@ -1,1205 +0,0 @@ -/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ -/* - * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - * X Window System is a Trademark of MIT. - * - */ - - -/* - * Xlib.h - Header definition and support file for the C subroutine - * interface library (Xlib) to the X Window System Protocol (V11). - * Structures and symbols starting with "_" are private to the library. - */ -#ifndef _XLIB_H_ -#define _XLIB_H_ - -#define XlibSpecificationRelease 5 - -#if !defined(MAC_OSX_TK) -# include -#endif -#ifdef MAC_OSX_TK -# include -# define Cursor XCursor -# define Region XRegion -#endif - -/* applications should not depend on these two headers being included! */ -#include - -#ifndef X_WCHAR -#ifdef X_NOT_STDC_ENV -#define X_WCHAR -#endif -#endif - -#ifndef X_WCHAR -#include -#else -/* replace this with #include or typedef appropriate for your system */ -typedef unsigned long wchar_t; -#endif - -typedef char *XPointer; - -#define Bool int -#if defined(MAC_OSX_TK) -/* Use define rather than typedef, since may need to undefine this later */ -#define Status int -#else -typedef int Status; -#endif -#define True 1 -#define False 0 - -#define QueuedAlready 0 -#define QueuedAfterReading 1 -#define QueuedAfterFlush 2 - -#define ConnectionNumber(dpy) ((dpy)->fd) -#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) -#define DefaultScreen(dpy) ((dpy)->default_screen) -#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) -#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) -#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) -#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) -#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) -#define AllPlanes ((unsigned long)~0L) -#define QLength(dpy) ((dpy)->qlen) -#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) -#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) -#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) -#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) -#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) -#define ScreenCount(dpy) ((dpy)->nscreens) -#define ServerVendor(dpy) ((dpy)->vendor) -#define ProtocolVersion(dpy) ((dpy)->proto_major_version) -#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) -#define VendorRelease(dpy) ((dpy)->release) -#define DisplayString(dpy) ((dpy)->display_name) -#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) -#define BitmapUnit(dpy) ((dpy)->bitmap_unit) -#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) -#define BitmapPad(dpy) ((dpy)->bitmap_pad) -#define ImageByteOrder(dpy) ((dpy)->byte_order) -#define NextRequest(dpy) ((dpy)->request + 1) -#define LastKnownRequestProcessed(dpy) ((dpy)->request) - -/* macros for screen oriented applications (toolkit) */ -#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) -#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) -#define DisplayOfScreen(s) ((s)->display) -#define RootWindowOfScreen(s) ((s)->root) -#define BlackPixelOfScreen(s) ((s)->black_pixel) -#define WhitePixelOfScreen(s) ((s)->white_pixel) -#define DefaultColormapOfScreen(s)((s)->cmap) -#define DefaultDepthOfScreen(s) ((s)->root_depth) -#define DefaultGCOfScreen(s) ((s)->default_gc) -#define DefaultVisualOfScreen(s)((s)->root_visual) -#define WidthOfScreen(s) ((s)->width) -#define HeightOfScreen(s) ((s)->height) -#define WidthMMOfScreen(s) ((s)->mwidth) -#define HeightMMOfScreen(s) ((s)->mheight) -#define PlanesOfScreen(s) ((s)->root_depth) -#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) -#define MinCmapsOfScreen(s) ((s)->min_maps) -#define MaxCmapsOfScreen(s) ((s)->max_maps) -#define DoesSaveUnders(s) ((s)->save_unders) -#define DoesBackingStore(s) ((s)->backing_store) -#define EventMaskOfScreen(s) ((s)->root_input_mask) - -/* - * Extensions need a way to hang private data on some structures. - */ -typedef struct _XExtData { - int number; /* number returned by XRegisterExtension */ - struct _XExtData *next; /* next item on list of data for structure */ - int (*free_private)(); /* called to free private storage */ - XPointer private_data; /* data private to this extension. */ -} XExtData; - -/* - * This file contains structures used by the extension mechanism. - */ -typedef struct { /* public to extension, cannot be changed */ - int extension; /* extension number */ - int major_opcode; /* major op-code assigned by server */ - int first_event; /* first event number for the extension */ - int first_error; /* first error number for the extension */ -} XExtCodes; - -/* - * Data structure for retrieving info about pixmap formats. - */ - -typedef struct { - int depth; - int bits_per_pixel; - int scanline_pad; -} XPixmapFormatValues; - - -/* - * Data structure for setting graphics context. - */ -typedef struct { - int function; /* logical operation */ - unsigned long plane_mask;/* plane mask */ - unsigned long foreground;/* foreground pixel */ - unsigned long background;/* background pixel */ - int line_width; /* line width */ - int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ - int cap_style; /* CapNotLast, CapButt, - CapRound, CapProjecting */ - int join_style; /* JoinMiter, JoinRound, JoinBevel */ - int fill_style; /* FillSolid, FillTiled, - FillStippled, FillOpaeueStippled */ - int fill_rule; /* EvenOddRule, WindingRule */ - int arc_mode; /* ArcChord, ArcPieSlice */ - Pixmap tile; /* tile pixmap for tiling operations */ - Pixmap stipple; /* stipple 1 plane pixmap for stipping */ - int ts_x_origin; /* offset for tile or stipple operations */ - int ts_y_origin; - Font font; /* default text font for text operations */ - int subwindow_mode; /* ClipByChildren, IncludeInferiors */ - Bool graphics_exposures;/* boolean, should exposures be generated */ - int clip_x_origin; /* origin for clipping */ - int clip_y_origin; - Pixmap clip_mask; /* bitmap clipping; other calls for rects */ - int dash_offset; /* patterned/dashed line information */ - char dashes; -} XGCValues; - -/* - * Graphics context. The contents of this structure are implementation - * dependent. A GC should be treated as opaque by application code. - */ - -typedef XGCValues *GC; - -/* - * Visual structure; contains information about colormapping possible. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - VisualID visualid; /* visual id of this visual */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ class of screen (monochrome, etc.) */ -#else - int class; /* class of screen (monochrome, etc.) */ -#endif - unsigned long red_mask, green_mask, blue_mask; /* mask values */ - int bits_per_rgb; /* log base 2 of distinct color values */ - int map_entries; /* color map entries */ -} Visual; - -/* - * Depth structure; contains information for each possible depth. - */ -typedef struct { - int depth; /* this depth (Z) of the depth */ - int nvisuals; /* number of Visual types at this depth */ - Visual *visuals; /* list of visuals possible at this depth */ -} Depth; - -/* - * Information about the screen. The contents of this structure are - * implementation dependent. A Screen should be treated as opaque - * by application code. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XDisplay *display;/* back pointer to display structure */ - Window root; /* Root window id. */ - int width, height; /* width and height of screen */ - int mwidth, mheight; /* width and height of in millimeters */ - int ndepths; /* number of depths possible */ - Depth *depths; /* list of allowable depths on the screen */ - int root_depth; /* bits per pixel */ - Visual *root_visual; /* root visual */ - GC default_gc; /* GC for the root root visual */ - Colormap cmap; /* default color map */ - unsigned long white_pixel; - unsigned long black_pixel; /* White and Black pixel values */ - int max_maps, min_maps; /* max and min color maps */ - int backing_store; /* Never, WhenMapped, Always */ - Bool save_unders; - long root_input_mask; /* initial root input mask */ -} Screen; - -/* - * Format structure; describes ZFormat data the screen will understand. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - int depth; /* depth of this image format */ - int bits_per_pixel; /* bits/pixel at this depth */ - int scanline_pad; /* scanline must padded to this multiple */ -} ScreenFormat; - -/* - * Data structure for setting window attributes. - */ -typedef struct { - Pixmap background_pixmap; /* background or None or ParentRelative */ - unsigned long background_pixel; /* background pixel */ - Pixmap border_pixmap; /* border of the window */ - unsigned long border_pixel; /* border pixel value */ - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preseved if possible */ - unsigned long backing_pixel;/* value to use in restoring planes */ - Bool save_under; /* should bits under be saved? (popups) */ - long event_mask; /* set of events that should be saved */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Colormap colormap; /* color map to be associated with window */ - Cursor cursor; /* cursor to be displayed (or None) */ -} XSetWindowAttributes; - -typedef struct { - int x, y; /* location of window */ - int width, height; /* width and height of window */ - int border_width; /* border width of window */ - int depth; /* depth of window */ - Visual *visual; /* the associated visual structure */ - Window root; /* root of screen containing window */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ InputOutput, InputOnly*/ -#else - int class; /* InputOutput, InputOnly*/ -#endif - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preserved if possible */ - unsigned long backing_pixel;/* value to be used when restoring planes */ - Bool save_under; /* boolean, should bits under be saved? */ - Colormap colormap; /* color map to be associated with window */ - Bool map_installed; /* boolean, is color map currently installed*/ - int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ - long all_event_masks; /* set of events all people have interest in*/ - long your_event_mask; /* my event mask */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Screen *screen; /* back pointer to correct screen */ -} XWindowAttributes; - -/* - * Data structure for host setting; getting routines. - * - */ - -typedef struct { - int family; /* for example FamilyInternet */ - int length; /* length of address, in bytes */ - char *address; /* pointer to where to find the bytes */ -} XHostAddress; - -/* - * Data structure for "image" data, used by image manipulation routines. - */ -typedef struct _XImage { - int width, height; /* size of image */ - int xoffset; /* number of pixels offset in X direction */ - int format; /* XYBitmap, XYPixmap, ZPixmap */ - char *data; /* pointer to image data */ - int byte_order; /* data byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* quant. of scanline 8, 16, 32 */ - int bitmap_bit_order; /* LSBFirst, MSBFirst */ - int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ - int depth; /* depth of image */ - int bytes_per_line; /* accelarator to next line */ - int bits_per_pixel; /* bits per pixel (ZPixmap) */ - unsigned long red_mask; /* bits in z arrangment */ - unsigned long green_mask; - unsigned long blue_mask; - XPointer obdata; /* hook for the object routines to hang on */ - struct funcs { /* image manipulation routines */ - struct _XImage *(*create_image)(); -#if NeedFunctionPrototypes - int (*destroy_image) (struct _XImage *); - unsigned long (*get_pixel) (struct _XImage *, int, int); - int (*put_pixel) (struct _XImage *, int, int, unsigned long); - struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); - int (*add_pixel) (struct _XImage *, long); -#else - int (*destroy_image)(); - unsigned long (*get_pixel)(); - int (*put_pixel)(); - struct _XImage *(*sub_image)(); - int (*add_pixel)(); -#endif - } f; -} XImage; - -/* - * Data structure for XReconfigureWindow - */ -typedef struct { - int x, y; - int width, height; - int border_width; - Window sibling; - int stack_mode; -} XWindowChanges; - -/* - * Data structure used by color operations - */ -typedef struct { - unsigned long pixel; - unsigned short red, green, blue; - char flags; /* do_red, do_green, do_blue */ - char pad; -} XColor; - -/* - * Data structures for graphics operations. On most machines, these are - * congruent with the wire protocol structures, so reformatting the data - * can be avoided on these architectures. - */ -typedef struct { - short x1, y1, x2, y2; -} XSegment; - -typedef struct { - short x, y; -} XPoint; - -typedef struct { - short x, y; - unsigned short width, height; -} XRectangle; - -typedef struct { - short x, y; - unsigned short width, height; - short angle1, angle2; -} XArc; - - -/* Data structure for XChangeKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - int bell_pitch; - int bell_duration; - int led; - int led_mode; - int key; - int auto_repeat_mode; /* On, Off, Default */ -} XKeyboardControl; - -/* Data structure for XGetKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - unsigned int bell_pitch, bell_duration; - unsigned long led_mask; - int global_auto_repeat; - char auto_repeats[32]; -} XKeyboardState; - -/* Data structure for XGetMotionEvents. */ - -typedef struct { - Time time; - short x, y; -} XTimeCoord; - -/* Data structure for X{Set,Get}ModifierMapping */ - -typedef struct { - int max_keypermod; /* The server's max # of keys per modifier */ - KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ -} XModifierKeymap; - - -/* - * Display datatype maintaining display specific data. - * The contents of this structure are implementation dependent. - * A Display should be treated as opaque by application code. - */ -typedef struct _XDisplay { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XFreeFuncs *free_funcs; /* internal free functions */ - int fd; /* Network socket. */ - int conn_checker; /* ugly thing used by _XEventsQueued */ - int proto_major_version;/* maj. version of server's X protocol */ - int proto_minor_version;/* minor version of servers X protocol */ - char *vendor; /* vendor of the server hardware */ - XID resource_base; /* resource ID base */ - XID resource_mask; /* resource ID mask bits */ - XID resource_id; /* allocator current ID */ - int resource_shift; /* allocator shift to correct bits */ - XID (*resource_alloc)(); /* allocator function */ - int byte_order; /* screen byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* padding and data requirements */ - int bitmap_pad; /* padding requirements on bitmaps */ - int bitmap_bit_order; /* LeastSignificant or MostSignificant */ - int nformats; /* number of pixmap formats in list */ - ScreenFormat *pixmap_format; /* pixmap format list */ - int vnumber; /* Xlib's X protocol version number. */ - int release; /* release of the server */ - struct _XSQEvent *head, *tail; /* Input event queue. */ - int qlen; /* Length of input event queue */ - unsigned long request; /* sequence number of last request. */ - char *last_req; /* beginning of last request, or dummy */ - char *buffer; /* Output buffer starting address. */ - char *bufptr; /* Output buffer index pointer. */ - char *bufmax; /* Output buffer maximum+1 address. */ - unsigned max_request_size; /* maximum number 32 bit words in request*/ - struct _XrmHashBucketRec *db; - int (*synchandler)(); /* Synchronization handler */ - char *display_name; /* "host:display" string used on this connect*/ - int default_screen; /* default screen for operations */ - int nscreens; /* number of screens on this server*/ - Screen *screens; /* pointer to list of screens */ - unsigned long motion_buffer; /* size of motion buffer */ - unsigned long flags; /* internal connection flags */ - int min_keycode; /* minimum defined keycode */ - int max_keycode; /* maximum defined keycode */ - KeySym *keysyms; /* This server's keysyms */ - XModifierKeymap *modifiermap; /* This server's modifier keymap */ - int keysyms_per_keycode;/* number of rows */ - char *xdefaults; /* contents of defaults from server */ - char *scratch_buffer; /* place to hang scratch buffer */ - unsigned long scratch_length; /* length of scratch buffer */ - int ext_number; /* extension number on this display */ - struct _XExten *ext_procs; /* extensions initialized on this display */ - /* - * the following can be fixed size, as the protocol defines how - * much address space is available. - * While this could be done using the extension vector, there - * may be MANY events processed, so a search through the extension - * list to find the right procedure for each event might be - * expensive if many extensions are being used. - */ - Bool (*event_vec[128])(); /* vector for wire to event */ - Status (*wire_vec[128])(); /* vector for event to wire */ - KeySym lock_meaning; /* for XLookupString */ - struct _XLockInfo *lock; /* multi-thread state, display lock */ - struct _XInternalAsync *async_handlers; /* for internal async */ - unsigned long bigreq_size; /* max size of big requests */ - struct _XLockPtrs *lock_fns; /* pointers to threads functions */ - /* things above this line should not move, for binary compatibility */ - struct _XKeytrans *key_bindings; /* for XLookupString */ - Font cursor_font; /* for XCreateFontCursor */ - struct _XDisplayAtoms *atoms; /* for XInternAtom */ - unsigned int mode_switch; /* keyboard group modifiers */ - struct _XContextDB *context_db; /* context database */ - Bool (**error_vec)(); /* vector for wire to error */ - /* - * Xcms information - */ - struct { - XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ - XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ - XPointer perVisualIntensityMaps; - /* linked list of XcmsIntensityMap */ - } cms; - struct _XIMFilter *im_filters; - struct _XSQEvent *qfree; /* unallocated event queue elements */ - unsigned long next_event_serial_num; /* inserted into next queue elt */ - int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ -} Display; - -#if NeedFunctionPrototypes /* prototypes require event type definitions */ -#undef _XEVENT_ -#endif -#ifndef _XEVENT_ - -#define XMaxTransChars 4 - -/* - * Definitions of specific events. - */ -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int keycode; /* detail */ - Bool same_screen; /* same screen flag */ - char trans_chars[XMaxTransChars]; - /* translated characters */ - int nbytes; -} XKeyEvent; -typedef XKeyEvent XKeyPressedEvent; -typedef XKeyEvent XKeyReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int button; /* detail */ - Bool same_screen; /* same screen flag */ -} XButtonEvent; -typedef XButtonEvent XButtonPressedEvent; -typedef XButtonEvent XButtonReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - char is_hint; /* detail */ - Bool same_screen; /* same screen flag */ -} XMotionEvent; -typedef XMotionEvent XPointerMovedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual - */ - Bool same_screen; /* same screen flag */ - Bool focus; /* boolean focus */ - unsigned int state; /* key or button mask */ -} XCrossingEvent; -typedef XCrossingEvent XEnterWindowEvent; -typedef XCrossingEvent XLeaveWindowEvent; - -typedef struct { - int type; /* FocusIn or FocusOut */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* window of event */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, - * NotifyPointerRoot, NotifyDetailNone - */ -} XFocusChangeEvent; -typedef XFocusChangeEvent XFocusInEvent; -typedef XFocusChangeEvent XFocusOutEvent; - -/* generated on EnterWindow and FocusIn when KeyMapState selected */ -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - char key_vector[32]; -} XKeymapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ -} XExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XGraphicsExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XNoExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int state; /* Visibility state */ -} XVisibilityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; /* parent of the window */ - Window window; /* window id of window created */ - int x, y; /* window location */ - int width, height; /* size of window */ - int border_width; /* border width */ - Bool override_redirect; /* creation should be overridden */ -} XCreateWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; -} XDestroyWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool from_configure; -} XUnmapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool override_redirect; /* boolean, is override set... */ -} XMapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; -} XMapRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Window parent; - int x, y; - Bool override_redirect; -} XReparentEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - Bool override_redirect; -} XConfigureEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; -} XGravityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int width, height; -} XResizeRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - int detail; /* Above, Below, TopIf, BottomIf, Opposite */ - unsigned long value_mask; -} XConfigureRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom atom; - Time time; - int state; /* NewValue, Deleted */ -} XPropertyEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom selection; - Time time; -} XSelectionClearEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window owner; - Window requestor; - Atom selection; - Atom target; - Atom property; - Time time; -} XSelectionRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window requestor; - Atom selection; - Atom target; - Atom property; /* ATOM or None */ - Time time; -} XSelectionEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Colormap colormap; /* COLORMAP or None */ -#if defined(__cplusplus) || defined(c_plusplus) - Bool c_new; /* C++ */ -#else - Bool new; -#endif - int state; /* ColormapInstalled, ColormapUninstalled */ -} XColormapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom message_type; - int format; - union { - char b[20]; - short s[10]; - long l[5]; - } data; -} XClientMessageEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* unused */ - int request; /* one of MappingModifier, MappingKeyboard, - MappingPointer */ - int first_keycode; /* first keycode */ - int count; /* defines range of change w. first_keycode*/ -} XMappingEvent; - -typedef struct { - int type; - Display *display; /* Display the event was read from */ - XID resourceid; /* resource id */ - unsigned long serial; /* serial number of failed request */ - unsigned char error_code; /* error code of failed request */ - unsigned char request_code; /* Major op-code of failed request */ - unsigned char minor_code; /* Minor op-code of failed request */ -} XErrorEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display;/* Display the event was read from */ - Window window; /* window on which event was requested in event mask */ -} XAnyEvent; - -/* - * this union is defined so Xlib can always use the same sized - * event structure internally, to avoid memory fragmentation. - */ -typedef union _XEvent { - int type; /* must not be changed; first element */ - XAnyEvent xany; - XKeyEvent xkey; - XButtonEvent xbutton; - XMotionEvent xmotion; - XCrossingEvent xcrossing; - XFocusChangeEvent xfocus; - XExposeEvent xexpose; - XGraphicsExposeEvent xgraphicsexpose; - XNoExposeEvent xnoexpose; - XVisibilityEvent xvisibility; - XCreateWindowEvent xcreatewindow; - XDestroyWindowEvent xdestroywindow; - XUnmapEvent xunmap; - XMapEvent xmap; - XMapRequestEvent xmaprequest; - XReparentEvent xreparent; - XConfigureEvent xconfigure; - XGravityEvent xgravity; - XResizeRequestEvent xresizerequest; - XConfigureRequestEvent xconfigurerequest; - XCirculateEvent xcirculate; - XCirculateRequestEvent xcirculaterequest; - XPropertyEvent xproperty; - XSelectionClearEvent xselectionclear; - XSelectionRequestEvent xselectionrequest; - XSelectionEvent xselection; - XColormapEvent xcolormap; - XClientMessageEvent xclient; - XMappingEvent xmapping; - XErrorEvent xerror; - XKeymapEvent xkeymap; - XID pad[24]; -} XEvent; -#endif - -#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) - -/* - * per character font metric information. - */ -typedef struct { - short lbearing; /* origin to left edge of raster */ - short rbearing; /* origin to right edge of raster */ - short width; /* advance to next char's origin */ - short ascent; /* baseline to top edge of raster */ - short descent; /* baseline to bottom edge of raster */ - unsigned short attributes; /* per char flags (not predefined) */ -} XCharStruct; - -/* - * To allow arbitrary information with fonts, there are additional properties - * returned. - */ -typedef struct { - Atom name; - unsigned long card32; -} XFontProp; - -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - Font fid; /* Font id for this font */ - unsigned direction; /* hint about direction the font is painted */ - unsigned min_char_or_byte2;/* first character */ - unsigned max_char_or_byte2;/* last character */ - unsigned min_byte1; /* first row that exists */ - unsigned max_byte1; /* last row that exists */ - Bool all_chars_exist;/* flag if all characters have non-zero size*/ - unsigned default_char; /* char to print for undefined character */ - int n_properties; /* how many properties there are */ - XFontProp *properties; /* pointer to array of additional properties*/ - XCharStruct min_bounds; /* minimum bounds over all existing char*/ - XCharStruct max_bounds; /* maximum bounds over all existing char*/ - XCharStruct *per_char; /* first_char to last_char information */ - int ascent; /* log. extent above baseline for spacing */ - int descent; /* log. descent below baseline for spacing */ -} XFontStruct; - -/* - * PolyText routines take these as arguments. - */ -typedef struct { - char *chars; /* pointer to string */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem; - -typedef struct { /* normal 16 bit characters are two bytes */ - unsigned char byte1; - unsigned char byte2; -} XChar2b; - -typedef struct { - XChar2b *chars; /* two byte characters */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem16; - - -typedef union { Display *display; - GC gc; - Visual *visual; - Screen *screen; - ScreenFormat *pixmap_format; - XFontStruct *font; } XEDataObject; - -typedef struct { - XRectangle max_ink_extent; - XRectangle max_logical_extent; -} XFontSetExtents; - -typedef struct _XFontSet *XFontSet; - -typedef struct { - char *chars; - int nchars; - int delta; - XFontSet font_set; -} XmbTextItem; - -typedef struct { - wchar_t *chars; - int nchars; - int delta; - XFontSet font_set; -} XwcTextItem; - -typedef void (*XIMProc)(); - -typedef struct _XIM *XIM; -typedef struct _XIC *XIC; - -typedef unsigned long XIMStyle; - -typedef struct { - unsigned short count_styles; - XIMStyle *supported_styles; -} XIMStyles; - -#define XIMPreeditArea 0x0001L -#define XIMPreeditCallbacks 0x0002L -#define XIMPreeditPosition 0x0004L -#define XIMPreeditNothing 0x0008L -#define XIMPreeditNone 0x0010L -#define XIMStatusArea 0x0100L -#define XIMStatusCallbacks 0x0200L -#define XIMStatusNothing 0x0400L -#define XIMStatusNone 0x0800L - -#define XNVaNestedList "XNVaNestedList" -#define XNClientWindow "clientWindow" -#define XNInputStyle "inputStyle" -#define XNFocusWindow "focusWindow" -#define XNResourceName "resourceName" -#define XNResourceClass "resourceClass" -#define XNGeometryCallback "geometryCallback" -#define XNFilterEvents "filterEvents" -#define XNPreeditStartCallback "preeditStartCallback" -#define XNPreeditDoneCallback "preeditDoneCallback" -#define XNPreeditDrawCallback "preeditDrawCallback" -#define XNPreeditCaretCallback "preeditCaretCallback" -#define XNPreeditAttributes "preeditAttributes" -#define XNStatusStartCallback "statusStartCallback" -#define XNStatusDoneCallback "statusDoneCallback" -#define XNStatusDrawCallback "statusDrawCallback" -#define XNStatusAttributes "statusAttributes" -#define XNArea "area" -#define XNAreaNeeded "areaNeeded" -#define XNSpotLocation "spotLocation" -#define XNColormap "colorMap" -#define XNStdColormap "stdColorMap" -#define XNForeground "foreground" -#define XNBackground "background" -#define XNBackgroundPixmap "backgroundPixmap" -#define XNFontSet "fontSet" -#define XNLineSpace "lineSpace" -#define XNCursor "cursor" - -#define XBufferOverflow -1 -#define XLookupNone 1 -#define XLookupChars 2 -#define XLookupKeySym 3 -#define XLookupBoth 4 - -#if NeedFunctionPrototypes -typedef void *XVaNestedList; -#else -typedef XPointer XVaNestedList; -#endif - -typedef struct { - XPointer client_data; - XIMProc callback; -} XIMCallback; - -typedef unsigned long XIMFeedback; - -#define XIMReverse 1 -#define XIMUnderline (1<<1) -#define XIMHighlight (1<<2) -#define XIMPrimary (1<<5) -#define XIMSecondary (1<<6) -#define XIMTertiary (1<<7) - -typedef struct _XIMText { - unsigned short length; - XIMFeedback *feedback; - Bool encoding_is_wchar; - union { - char *multi_byte; - wchar_t *wide_char; - } string; -} XIMText; - -typedef struct _XIMPreeditDrawCallbackStruct { - int caret; /* Cursor offset within pre-edit string */ - int chg_first; /* Starting change position */ - int chg_length; /* Length of the change in character count */ - XIMText *text; -} XIMPreeditDrawCallbackStruct; - -typedef enum { - XIMForwardChar, XIMBackwardChar, - XIMForwardWord, XIMBackwardWord, - XIMCaretUp, XIMCaretDown, - XIMNextLine, XIMPreviousLine, - XIMLineStart, XIMLineEnd, - XIMAbsolutePosition, - XIMDontChange -} XIMCaretDirection; - -typedef enum { - XIMIsInvisible, /* Disable caret feedback */ - XIMIsPrimary, /* UI defined caret feedback */ - XIMIsSecondary /* UI defined caret feedback */ -} XIMCaretStyle; - -typedef struct _XIMPreeditCaretCallbackStruct { - int position; /* Caret offset within pre-edit string */ - XIMCaretDirection direction; /* Caret moves direction */ - XIMCaretStyle style; /* Feedback of the caret */ -} XIMPreeditCaretCallbackStruct; - -typedef enum { - XIMTextType, - XIMBitmapType -} XIMStatusDataType; - -typedef struct _XIMStatusDrawCallbackStruct { - XIMStatusDataType type; - union { - XIMText *text; - Pixmap bitmap; - } data; -} XIMStatusDrawCallbackStruct; - -typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */, - XErrorEvent* /* error_event */ -#endif -); - -_XFUNCPROTOBEGIN - - - -#include "tkIntXlibDecls.h" - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* _XLIB_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xutil.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xutil.h deleted file mode 100644 index bf372fb0f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/Xutil.h +++ /dev/null @@ -1,855 +0,0 @@ -/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#ifndef _XUTIL_H_ -#define _XUTIL_H_ - -/* You must include before including this file */ - -#if defined(MAC_OSX_TK) -# define Region XRegion -#endif - -/* - * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding - * value (x, y, width, height) was found in the parsed string. - */ -#define NoValue 0x0000 -#define XValue 0x0001 -#define YValue 0x0002 -#define WidthValue 0x0004 -#define HeightValue 0x0008 -#define AllValues 0x000F -#define XNegative 0x0010 -#define YNegative 0x0020 - -/* - * new version containing base_width, base_height, and win_gravity fields; - * used with WM_NORMAL_HINTS. - */ -typedef struct { - long flags; /* marks which fields in this structure are defined */ - int x, y; /* obsolete for new window mgrs, but clients */ - int width, height; /* should set so old wm's don't mess up */ - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; - struct { - int x; /* numerator */ - int y; /* denominator */ - } min_aspect, max_aspect; - int base_width, base_height; /* added by ICCCM version 1 */ - int win_gravity; /* added by ICCCM version 1 */ -} XSizeHints; - -/* - * The next block of definitions are for window manager properties that - * clients and applications use for communication. - */ - -/* flags argument in size hints */ -#define USPosition (1L << 0) /* user specified x, y */ -#define USSize (1L << 1) /* user specified width, height */ - -#define PPosition (1L << 2) /* program specified position */ -#define PSize (1L << 3) /* program specified size */ -#define PMinSize (1L << 4) /* program specified minimum size */ -#define PMaxSize (1L << 5) /* program specified maximum size */ -#define PResizeInc (1L << 6) /* program specified resize increments */ -#define PAspect (1L << 7) /* program specified min and max aspect ratios */ -#define PBaseSize (1L << 8) /* program specified base for incrementing */ -#define PWinGravity (1L << 9) /* program specified window gravity */ - -/* obsolete */ -#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) - - - -typedef struct { - long flags; /* marks which fields in this structure are defined */ - Bool input; /* does this application rely on the window manager to - get keyboard input? */ - int initial_state; /* see below */ - Pixmap icon_pixmap; /* pixmap to be used as icon */ - Window icon_window; /* window to be used as icon */ - int icon_x, icon_y; /* initial position of icon */ - Pixmap icon_mask; /* icon mask bitmap */ - XID window_group; /* id of related window group */ - /* this structure may be extended in the future */ -} XWMHints; - -/* definition for flags of XWMHints */ - -#define InputHint (1L << 0) -#define StateHint (1L << 1) -#define IconPixmapHint (1L << 2) -#define IconWindowHint (1L << 3) -#define IconPositionHint (1L << 4) -#define IconMaskHint (1L << 5) -#define WindowGroupHint (1L << 6) -#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ -IconPositionHint|IconMaskHint|WindowGroupHint) - -/* definitions for initial window state */ -#define WithdrawnState 0 /* for windows that are not mapped */ -#define NormalState 1 /* most applications want to start this way */ -#define IconicState 3 /* application wants to start as an icon */ - -/* - * Obsolete states no longer defined by ICCCM - */ -#define DontCareState 0 /* don't know or care */ -#define ZoomState 2 /* application wants to start zoomed */ -#define InactiveState 4 /* application believes it is seldom used; */ - /* some wm's may put it on inactive menu */ - - -/* - * new structure for manipulating TEXT properties; used with WM_NAME, - * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. - */ -typedef struct { - unsigned char *value; /* same as Property routines */ - Atom encoding; /* prop type */ - int format; /* prop data format: 8, 16, or 32 */ - unsigned long nitems; /* number of data items in value */ -} XTextProperty; - -#define XNoMemory -1 -#define XLocaleNotSupported -2 -#define XConverterNotFound -3 - -typedef enum { - XStringStyle, /* STRING */ - XCompoundTextStyle, /* COMPOUND_TEXT */ - XTextStyle, /* text in owner's encoding (current locale)*/ - XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ -} XICCEncodingStyle; - -typedef struct { - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; -} XIconSize; - -typedef struct { - char *res_name; - char *res_class; -} XClassHint; - -/* - * These macros are used to give some sugar to the image routines so that - * naive people are more comfortable with them. - */ -#define XDestroyImage(ximage) \ - ((*((ximage)->f.destroy_image))((ximage))) -#define XGetPixel(ximage, x, y) \ - ((*((ximage)->f.get_pixel))((ximage), (x), (y))) -#define XPutPixel(ximage, x, y, pixel) \ - ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) -#define XSubImage(ximage, x, y, width, height) \ - ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) -#define XAddPixel(ximage, value) \ - ((*((ximage)->f.add_pixel))((ximage), (value))) - -/* - * Compose sequence status structure, used in calling XLookupString. - */ -typedef struct _XComposeStatus { - XPointer compose_ptr; /* state table pointer */ - int chars_matched; /* match state */ -} XComposeStatus; - -/* - * Keysym macros, used on Keysyms to test for classes of symbols - */ -#define IsKeypadKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) - -#define IsCursorKey(keysym) \ - (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) - -#define IsPFKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) - -#define IsFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) - -#define IsMiscFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) - -#define IsModifierKey(keysym) \ - ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ - || ((unsigned)(keysym) == XK_Mode_switch) \ - || ((unsigned)(keysym) == XK_Num_Lock)) -/* - * opaque reference to Region data type - */ -typedef struct _XRegion *Region; - -/* Return values from XRectInRegion() */ - -#define RectangleOut 0 -#define RectangleIn 1 -#define RectanglePart 2 - - -/* - * Information used by the visual utility routines to find desired visual - * type from the many visuals a display may support. - */ - -typedef struct { - Visual *visual; - VisualID visualid; - int screen; - int depth; -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ */ -#else - int class; -#endif - unsigned long red_mask; - unsigned long green_mask; - unsigned long blue_mask; - int colormap_size; - int bits_per_rgb; -} XVisualInfo; - -#define VisualNoMask 0x0 -#define VisualIDMask 0x1 -#define VisualScreenMask 0x2 -#define VisualDepthMask 0x4 -#define VisualClassMask 0x8 -#define VisualRedMaskMask 0x10 -#define VisualGreenMaskMask 0x20 -#define VisualBlueMaskMask 0x40 -#define VisualColormapSizeMask 0x80 -#define VisualBitsPerRGBMask 0x100 -#define VisualAllMask 0x1FF - -/* - * This defines a window manager property that clients may use to - * share standard color maps of type RGB_COLOR_MAP: - */ -typedef struct { - Colormap colormap; - unsigned long red_max; - unsigned long red_mult; - unsigned long green_max; - unsigned long green_mult; - unsigned long blue_max; - unsigned long blue_mult; - unsigned long base_pixel; - VisualID visualid; /* added by ICCCM version 1 */ - XID killid; /* added by ICCCM version 1 */ -} XStandardColormap; - -#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ - - -/* - * return codes for XReadBitmapFile and XWriteBitmapFile - */ -#define BitmapSuccess 0 -#define BitmapOpenFailed 1 -#define BitmapFileInvalid 2 -#define BitmapNoMemory 3 - -/**************************************************************** - * - * Context Management - * - ****************************************************************/ - - -/* Associative lookup table return codes */ - -#define XCSUCCESS 0 /* No error. */ -#define XCNOMEM 1 /* Out of memory */ -#define XCNOENT 2 /* No entry in table */ - -typedef int XContext; - -#define XUniqueContext() ((XContext) XrmUniqueQuark()) -#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) - -_XFUNCPROTOBEGIN - -/* The following declarations are alphabetized. */ - -extern XClassHint *XAllocClassHint ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XIconSize *XAllocIconSize ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XSizeHints *XAllocSizeHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XStandardColormap *XAllocStandardColormap ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XWMHints *XAllocWMHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern void XClipBox( -#if NeedFunctionPrototypes - Region /* r */, - XRectangle* /* rect_return */ -#endif -); - -extern Region XCreateRegion( -#if NeedFunctionPrototypes - void -#endif -); - -extern char *XDefaultString( -#if NeedFunctionPrototypes - void -#endif -); - -extern int XDeleteContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */ -#endif -); - -extern void XDestroyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEmptyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEqualRegion( -#if NeedFunctionPrototypes - Region /* r1 */, - Region /* r2 */ -#endif -); - -extern int XFindContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - XPointer* /* data_return */ -#endif -); - -extern Status XGetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints_return */ -#endif -); - -extern Status XGetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize** /* size_list_return */, - int* /* count_return */ -#endif -); - -extern Status XGetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */ -#endif -); - -extern Status XGetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap** /* stdcmap_return */, - int* /* count_return */, - Atom /* property */ -#endif -); - -extern Status XGetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - Atom /* property */ -#endif -); - -extern Status XGetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap_return */, - Atom /* property */ -#endif -); - -extern Status XGetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* window */, - XTextProperty* /* text_prop_return */, - Atom /* property */ -#endif -); - - -extern Status XGetWMClientMachine( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern XWMHints *XGetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern Status XGetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */ -#endif -); - -extern Status XGetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */, - Atom /* property */ -#endif -); - -extern Status XGetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints_return */ -#endif -); - -extern void XIntersectRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XLookupString( -#if NeedFunctionPrototypes - XKeyEvent* /* event_struct */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - XComposeStatus* /* status_in_out */ -#endif -); - -extern Status XMatchVisualInfo( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen */, - int /* depth */, - int /* class */, - XVisualInfo* /* vinfo_return */ -#endif -); - -extern int XOffsetRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern Bool XPointInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */ -#endif -); - -extern Region XPolygonRegion( -#if NeedFunctionPrototypes - XPoint* /* points */, - int /* n */, - int /* fill_rule */ -#endif -); - -extern int XRectInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern int XSaveContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - _Xconst char* /* data */ -#endif -); - -extern void XSetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize* /* size_list */, - int /* count */ -#endif -); - -extern void XSetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* stdcmaps */, - int /* count */, - Atom /* property */ -#endif -); - -extern void XSetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetStandardProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - Pixmap /* icon_pixmap */, - char** /* argv */, - int /* argc */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */, - Atom /* property */ -#endif -); - -extern void XSetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XWMHints* /* wm_hints */ -#endif -); - -extern void XSetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* window_name */, - XTextProperty* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XmbSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetRegion( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Region /* r */ -#endif -); - -extern void XSetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap */, - Atom /* property */ -#endif -); - -extern void XSetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints */ -#endif -); - -extern void XShrinkRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern void XSubtractRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XmbTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - char** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern int XwcTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - wchar_t** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern void XwcFreeStringList( -#if NeedFunctionPrototypes - wchar_t** /* list */ -#endif -); - -extern Status XTextPropertyToStringList( -#if NeedFunctionPrototypes - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XmbTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XwcTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - wchar_t*** /* list_return */, - int* /* count_return */ -#endif -); - -extern void XUnionRectWithRegion( -#if NeedFunctionPrototypes - XRectangle* /* rectangle */, - Region /* src_region */, - Region /* dest_region_return */ -#endif -); - -extern int XUnionRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XWMGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */, - _Xconst char* /* user_geometry */, - _Xconst char* /* default_geometry */, - unsigned int /* border_width */, - XSizeHints* /* hints */, - int* /* x_return */, - int* /* y_return */, - int* /* width_return */, - int* /* height_return */, - int* /* gravity_return */ -#endif -); - -extern void XXorRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Region -#endif - -#endif /* _XUTIL_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/cursorfont.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/cursorfont.h deleted file mode 100644 index 617274fa8..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/cursorfont.h +++ /dev/null @@ -1,79 +0,0 @@ -/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ -#define XC_num_glyphs 154 -#define XC_X_cursor 0 -#define XC_arrow 2 -#define XC_based_arrow_down 4 -#define XC_based_arrow_up 6 -#define XC_boat 8 -#define XC_bogosity 10 -#define XC_bottom_left_corner 12 -#define XC_bottom_right_corner 14 -#define XC_bottom_side 16 -#define XC_bottom_tee 18 -#define XC_box_spiral 20 -#define XC_center_ptr 22 -#define XC_circle 24 -#define XC_clock 26 -#define XC_coffee_mug 28 -#define XC_cross 30 -#define XC_cross_reverse 32 -#define XC_crosshair 34 -#define XC_diamond_cross 36 -#define XC_dot 38 -#define XC_dotbox 40 -#define XC_double_arrow 42 -#define XC_draft_large 44 -#define XC_draft_small 46 -#define XC_draped_box 48 -#define XC_exchange 50 -#define XC_fleur 52 -#define XC_gobbler 54 -#define XC_gumby 56 -#define XC_hand1 58 -#define XC_hand2 60 -#define XC_heart 62 -#define XC_icon 64 -#define XC_iron_cross 66 -#define XC_left_ptr 68 -#define XC_left_side 70 -#define XC_left_tee 72 -#define XC_leftbutton 74 -#define XC_ll_angle 76 -#define XC_lr_angle 78 -#define XC_man 80 -#define XC_middlebutton 82 -#define XC_mouse 84 -#define XC_pencil 86 -#define XC_pirate 88 -#define XC_plus 90 -#define XC_question_arrow 92 -#define XC_right_ptr 94 -#define XC_right_side 96 -#define XC_right_tee 98 -#define XC_rightbutton 100 -#define XC_rtl_logo 102 -#define XC_sailboat 104 -#define XC_sb_down_arrow 106 -#define XC_sb_h_double_arrow 108 -#define XC_sb_left_arrow 110 -#define XC_sb_right_arrow 112 -#define XC_sb_up_arrow 114 -#define XC_sb_v_double_arrow 116 -#define XC_shuttle 118 -#define XC_sizing 120 -#define XC_spider 122 -#define XC_spraycan 124 -#define XC_star 126 -#define XC_target 128 -#define XC_tcross 130 -#define XC_top_left_arrow 132 -#define XC_top_left_corner 134 -#define XC_top_right_corner 136 -#define XC_top_side 138 -#define XC_top_tee 140 -#define XC_trek 142 -#define XC_ul_angle 144 -#define XC_umbrella 146 -#define XC_ur_angle 148 -#define XC_watch 150 -#define XC_xterm 152 diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/keysym.h deleted file mode 100644 index 550b76dba..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/keysym.h +++ /dev/null @@ -1,35 +0,0 @@ -/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* default keysyms */ -#define XK_MISCELLANY -#define XK_LATIN1 -#define XK_LATIN2 -#define XK_LATIN3 -#define XK_LATIN4 -#define XK_GREEK - -#include diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/keysymdef.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/keysymdef.h deleted file mode 100644 index a7c654d1c..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/X11/keysymdef.h +++ /dev/null @@ -1,1181 +0,0 @@ -/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#define XK_VoidSymbol 0xFFFFFF /* void symbol */ - -#ifdef XK_MISCELLANY -/* - * TTY Functions, cleverly chosen to map to ascii, for convenience of - * programming, but could have been arbitrary (at the cost of lookup - * tables in client code. - */ - -#define XK_BackSpace 0xFF08 /* back space, back char */ -#define XK_Tab 0xFF09 -#define XK_Linefeed 0xFF0A /* Linefeed, LF */ -#define XK_Clear 0xFF0B -#define XK_Return 0xFF0D /* Return, enter */ -#define XK_Pause 0xFF13 /* Pause, hold */ -#define XK_Scroll_Lock 0xFF14 -#define XK_Sys_Req 0xFF15 -#define XK_Escape 0xFF1B -#define XK_Delete 0xFFFF /* Delete, rubout */ - - - -/* International & multi-key character composition */ - -#define XK_Multi_key 0xFF20 /* Multi-key character compose */ - -/* Japanese keyboard support */ - -#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ -#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ -#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ -#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ -#define XK_Romaji 0xFF24 /* to Romaji */ -#define XK_Hiragana 0xFF25 /* to Hiragana */ -#define XK_Katakana 0xFF26 /* to Katakana */ -#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ -#define XK_Zenkaku 0xFF28 /* to Zenkaku */ -#define XK_Hankaku 0xFF29 /* to Hankaku */ -#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ -#define XK_Touroku 0xFF2B /* Add to Dictionary */ -#define XK_Massyo 0xFF2C /* Delete from Dictionary */ -#define XK_Kana_Lock 0xFF2D /* Kana Lock */ -#define XK_Kana_Shift 0xFF2E /* Kana Shift */ -#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ -#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ - -/* Cursor control & motion */ - -#define XK_Home 0xFF50 -#define XK_Left 0xFF51 /* Move left, left arrow */ -#define XK_Up 0xFF52 /* Move up, up arrow */ -#define XK_Right 0xFF53 /* Move right, right arrow */ -#define XK_Down 0xFF54 /* Move down, down arrow */ -#define XK_Prior 0xFF55 /* Prior, previous */ -#define XK_Page_Up 0xFF55 -#define XK_Next 0xFF56 /* Next */ -#define XK_Page_Down 0xFF56 -#define XK_End 0xFF57 /* EOL */ -#define XK_Begin 0xFF58 /* BOL */ - -/* Special Windows keyboard keys */ - -#define XK_Win_L 0xFF5B /* Left-hand Windows */ -#define XK_Win_R 0xFF5C /* Right-hand Windows */ -#define XK_App 0xFF5D /* Menu key */ - -/* Misc Functions */ - -#define XK_Select 0xFF60 /* Select, mark */ -#define XK_Print 0xFF61 -#define XK_Execute 0xFF62 /* Execute, run, do */ -#define XK_Insert 0xFF63 /* Insert, insert here */ -#define XK_Undo 0xFF65 /* Undo, oops */ -#define XK_Redo 0xFF66 /* redo, again */ -#define XK_Menu 0xFF67 -#define XK_Find 0xFF68 /* Find, search */ -#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ -#define XK_Help 0xFF6A /* Help, ? */ -#define XK_Break 0xFF6B -#define XK_Mode_switch 0xFF7E /* Character set switch */ -#define XK_script_switch 0xFF7E /* Alias for mode_switch */ -#define XK_Num_Lock 0xFF7F - -/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ - -#define XK_KP_Space 0xFF80 /* space */ -#define XK_KP_Tab 0xFF89 -#define XK_KP_Enter 0xFF8D /* enter */ -#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ -#define XK_KP_F2 0xFF92 -#define XK_KP_F3 0xFF93 -#define XK_KP_F4 0xFF94 -#define XK_KP_Home 0xFF95 -#define XK_KP_Left 0xFF96 -#define XK_KP_Up 0xFF97 -#define XK_KP_Right 0xFF98 -#define XK_KP_Down 0xFF99 -#define XK_KP_Prior 0xFF9A -#define XK_KP_Page_Up 0xFF9A -#define XK_KP_Next 0xFF9B -#define XK_KP_Page_Down 0xFF9B -#define XK_KP_End 0xFF9C -#define XK_KP_Begin 0xFF9D -#define XK_KP_Insert 0xFF9E -#define XK_KP_Delete 0xFF9F -#define XK_KP_Equal 0xFFBD /* equals */ -#define XK_KP_Multiply 0xFFAA -#define XK_KP_Add 0xFFAB -#define XK_KP_Separator 0xFFAC /* separator, often comma */ -#define XK_KP_Subtract 0xFFAD -#define XK_KP_Decimal 0xFFAE -#define XK_KP_Divide 0xFFAF - -#define XK_KP_0 0xFFB0 -#define XK_KP_1 0xFFB1 -#define XK_KP_2 0xFFB2 -#define XK_KP_3 0xFFB3 -#define XK_KP_4 0xFFB4 -#define XK_KP_5 0xFFB5 -#define XK_KP_6 0xFFB6 -#define XK_KP_7 0xFFB7 -#define XK_KP_8 0xFFB8 -#define XK_KP_9 0xFFB9 - - - -/* - * Auxilliary Functions; note the duplicate definitions for left and right - * function keys; Sun keyboards and a few other manufactures have such - * function key groups on the left and/or right sides of the keyboard. - * We've not found a keyboard with more than 35 function keys total. - */ - -#define XK_F1 0xFFBE -#define XK_F2 0xFFBF -#define XK_F3 0xFFC0 -#define XK_F4 0xFFC1 -#define XK_F5 0xFFC2 -#define XK_F6 0xFFC3 -#define XK_F7 0xFFC4 -#define XK_F8 0xFFC5 -#define XK_F9 0xFFC6 -#define XK_F10 0xFFC7 -#define XK_F11 0xFFC8 -#define XK_L1 0xFFC8 -#define XK_F12 0xFFC9 -#define XK_L2 0xFFC9 -#define XK_F13 0xFFCA -#define XK_L3 0xFFCA -#define XK_F14 0xFFCB -#define XK_L4 0xFFCB -#define XK_F15 0xFFCC -#define XK_L5 0xFFCC -#define XK_F16 0xFFCD -#define XK_L6 0xFFCD -#define XK_F17 0xFFCE -#define XK_L7 0xFFCE -#define XK_F18 0xFFCF -#define XK_L8 0xFFCF -#define XK_F19 0xFFD0 -#define XK_L9 0xFFD0 -#define XK_F20 0xFFD1 -#define XK_L10 0xFFD1 -#define XK_F21 0xFFD2 -#define XK_R1 0xFFD2 -#define XK_F22 0xFFD3 -#define XK_R2 0xFFD3 -#define XK_F23 0xFFD4 -#define XK_R3 0xFFD4 -#define XK_F24 0xFFD5 -#define XK_R4 0xFFD5 -#define XK_F25 0xFFD6 -#define XK_R5 0xFFD6 -#define XK_F26 0xFFD7 -#define XK_R6 0xFFD7 -#define XK_F27 0xFFD8 -#define XK_R7 0xFFD8 -#define XK_F28 0xFFD9 -#define XK_R8 0xFFD9 -#define XK_F29 0xFFDA -#define XK_R9 0xFFDA -#define XK_F30 0xFFDB -#define XK_R10 0xFFDB -#define XK_F31 0xFFDC -#define XK_R11 0xFFDC -#define XK_F32 0xFFDD -#define XK_R12 0xFFDD -#define XK_F33 0xFFDE -#define XK_R13 0xFFDE -#define XK_F34 0xFFDF -#define XK_R14 0xFFDF -#define XK_F35 0xFFE0 -#define XK_R15 0xFFE0 - -/* Modifiers */ - -#define XK_Shift_L 0xFFE1 /* Left shift */ -#define XK_Shift_R 0xFFE2 /* Right shift */ -#define XK_Control_L 0xFFE3 /* Left control */ -#define XK_Control_R 0xFFE4 /* Right control */ -#define XK_Caps_Lock 0xFFE5 /* Caps lock */ -#define XK_Shift_Lock 0xFFE6 /* Shift lock */ - -#define XK_Meta_L 0xFFE7 /* Left meta */ -#define XK_Meta_R 0xFFE8 /* Right meta */ -#define XK_Alt_L 0xFFE9 /* Left alt */ -#define XK_Alt_R 0xFFEA /* Right alt */ -#define XK_Super_L 0xFFEB /* Left super */ -#define XK_Super_R 0xFFEC /* Right super */ -#define XK_Hyper_L 0xFFED /* Left hyper */ -#define XK_Hyper_R 0xFFEE /* Right hyper */ -#endif /* XK_MISCELLANY */ - -/* - * Latin 1 - * Byte 3 = 0 - */ -#ifdef XK_LATIN1 -#define XK_space 0x020 -#define XK_exclam 0x021 -#define XK_quotedbl 0x022 -#define XK_numbersign 0x023 -#define XK_dollar 0x024 -#define XK_percent 0x025 -#define XK_ampersand 0x026 -#define XK_apostrophe 0x027 -#define XK_quoteright 0x027 /* deprecated */ -#define XK_parenleft 0x028 -#define XK_parenright 0x029 -#define XK_asterisk 0x02a -#define XK_plus 0x02b -#define XK_comma 0x02c -#define XK_minus 0x02d -#define XK_period 0x02e -#define XK_slash 0x02f -#define XK_0 0x030 -#define XK_1 0x031 -#define XK_2 0x032 -#define XK_3 0x033 -#define XK_4 0x034 -#define XK_5 0x035 -#define XK_6 0x036 -#define XK_7 0x037 -#define XK_8 0x038 -#define XK_9 0x039 -#define XK_colon 0x03a -#define XK_semicolon 0x03b -#define XK_less 0x03c -#define XK_equal 0x03d -#define XK_greater 0x03e -#define XK_question 0x03f -#define XK_at 0x040 -#define XK_A 0x041 -#define XK_B 0x042 -#define XK_C 0x043 -#define XK_D 0x044 -#define XK_E 0x045 -#define XK_F 0x046 -#define XK_G 0x047 -#define XK_H 0x048 -#define XK_I 0x049 -#define XK_J 0x04a -#define XK_K 0x04b -#define XK_L 0x04c -#define XK_M 0x04d -#define XK_N 0x04e -#define XK_O 0x04f -#define XK_P 0x050 -#define XK_Q 0x051 -#define XK_R 0x052 -#define XK_S 0x053 -#define XK_T 0x054 -#define XK_U 0x055 -#define XK_V 0x056 -#define XK_W 0x057 -#define XK_X 0x058 -#define XK_Y 0x059 -#define XK_Z 0x05a -#define XK_bracketleft 0x05b -#define XK_backslash 0x05c -#define XK_bracketright 0x05d -#define XK_asciicircum 0x05e -#define XK_underscore 0x05f -#define XK_grave 0x060 -#define XK_quoteleft 0x060 /* deprecated */ -#define XK_a 0x061 -#define XK_b 0x062 -#define XK_c 0x063 -#define XK_d 0x064 -#define XK_e 0x065 -#define XK_f 0x066 -#define XK_g 0x067 -#define XK_h 0x068 -#define XK_i 0x069 -#define XK_j 0x06a -#define XK_k 0x06b -#define XK_l 0x06c -#define XK_m 0x06d -#define XK_n 0x06e -#define XK_o 0x06f -#define XK_p 0x070 -#define XK_q 0x071 -#define XK_r 0x072 -#define XK_s 0x073 -#define XK_t 0x074 -#define XK_u 0x075 -#define XK_v 0x076 -#define XK_w 0x077 -#define XK_x 0x078 -#define XK_y 0x079 -#define XK_z 0x07a -#define XK_braceleft 0x07b -#define XK_bar 0x07c -#define XK_braceright 0x07d -#define XK_asciitilde 0x07e - -#define XK_nobreakspace 0x0a0 -#define XK_exclamdown 0x0a1 -#define XK_cent 0x0a2 -#define XK_sterling 0x0a3 -#define XK_currency 0x0a4 -#define XK_yen 0x0a5 -#define XK_brokenbar 0x0a6 -#define XK_section 0x0a7 -#define XK_diaeresis 0x0a8 -#define XK_copyright 0x0a9 -#define XK_ordfeminine 0x0aa -#define XK_guillemotleft 0x0ab /* left angle quotation mark */ -#define XK_notsign 0x0ac -#define XK_hyphen 0x0ad -#define XK_registered 0x0ae -#define XK_macron 0x0af -#define XK_degree 0x0b0 -#define XK_plusminus 0x0b1 -#define XK_twosuperior 0x0b2 -#define XK_threesuperior 0x0b3 -#define XK_acute 0x0b4 -#define XK_mu 0x0b5 -#define XK_paragraph 0x0b6 -#define XK_periodcentered 0x0b7 -#define XK_cedilla 0x0b8 -#define XK_onesuperior 0x0b9 -#define XK_masculine 0x0ba -#define XK_guillemotright 0x0bb /* right angle quotation mark */ -#define XK_onequarter 0x0bc -#define XK_onehalf 0x0bd -#define XK_threequarters 0x0be -#define XK_questiondown 0x0bf -#define XK_Agrave 0x0c0 -#define XK_Aacute 0x0c1 -#define XK_Acircumflex 0x0c2 -#define XK_Atilde 0x0c3 -#define XK_Adiaeresis 0x0c4 -#define XK_Aring 0x0c5 -#define XK_AE 0x0c6 -#define XK_Ccedilla 0x0c7 -#define XK_Egrave 0x0c8 -#define XK_Eacute 0x0c9 -#define XK_Ecircumflex 0x0ca -#define XK_Ediaeresis 0x0cb -#define XK_Igrave 0x0cc -#define XK_Iacute 0x0cd -#define XK_Icircumflex 0x0ce -#define XK_Idiaeresis 0x0cf -#define XK_ETH 0x0d0 -#define XK_Eth 0x0d0 /* deprecated */ -#define XK_Ntilde 0x0d1 -#define XK_Ograve 0x0d2 -#define XK_Oacute 0x0d3 -#define XK_Ocircumflex 0x0d4 -#define XK_Otilde 0x0d5 -#define XK_Odiaeresis 0x0d6 -#define XK_multiply 0x0d7 -#define XK_Ooblique 0x0d8 -#define XK_Ugrave 0x0d9 -#define XK_Uacute 0x0da -#define XK_Ucircumflex 0x0db -#define XK_Udiaeresis 0x0dc -#define XK_Yacute 0x0dd -#define XK_THORN 0x0de -#define XK_Thorn 0x0de /* deprecated */ -#define XK_ssharp 0x0df -#define XK_agrave 0x0e0 -#define XK_aacute 0x0e1 -#define XK_acircumflex 0x0e2 -#define XK_atilde 0x0e3 -#define XK_adiaeresis 0x0e4 -#define XK_aring 0x0e5 -#define XK_ae 0x0e6 -#define XK_ccedilla 0x0e7 -#define XK_egrave 0x0e8 -#define XK_eacute 0x0e9 -#define XK_ecircumflex 0x0ea -#define XK_ediaeresis 0x0eb -#define XK_igrave 0x0ec -#define XK_iacute 0x0ed -#define XK_icircumflex 0x0ee -#define XK_idiaeresis 0x0ef -#define XK_eth 0x0f0 -#define XK_ntilde 0x0f1 -#define XK_ograve 0x0f2 -#define XK_oacute 0x0f3 -#define XK_ocircumflex 0x0f4 -#define XK_otilde 0x0f5 -#define XK_odiaeresis 0x0f6 -#define XK_division 0x0f7 -#define XK_oslash 0x0f8 -#define XK_ugrave 0x0f9 -#define XK_uacute 0x0fa -#define XK_ucircumflex 0x0fb -#define XK_udiaeresis 0x0fc -#define XK_yacute 0x0fd -#define XK_thorn 0x0fe -#define XK_ydiaeresis 0x0ff -#endif /* XK_LATIN1 */ - -/* - * Latin 2 - * Byte 3 = 1 - */ - -#ifdef XK_LATIN2 -#define XK_Aogonek 0x1a1 -#define XK_breve 0x1a2 -#define XK_Lstroke 0x1a3 -#define XK_Lcaron 0x1a5 -#define XK_Sacute 0x1a6 -#define XK_Scaron 0x1a9 -#define XK_Scedilla 0x1aa -#define XK_Tcaron 0x1ab -#define XK_Zacute 0x1ac -#define XK_Zcaron 0x1ae -#define XK_Zabovedot 0x1af -#define XK_aogonek 0x1b1 -#define XK_ogonek 0x1b2 -#define XK_lstroke 0x1b3 -#define XK_lcaron 0x1b5 -#define XK_sacute 0x1b6 -#define XK_caron 0x1b7 -#define XK_scaron 0x1b9 -#define XK_scedilla 0x1ba -#define XK_tcaron 0x1bb -#define XK_zacute 0x1bc -#define XK_doubleacute 0x1bd -#define XK_zcaron 0x1be -#define XK_zabovedot 0x1bf -#define XK_Racute 0x1c0 -#define XK_Abreve 0x1c3 -#define XK_Lacute 0x1c5 -#define XK_Cacute 0x1c6 -#define XK_Ccaron 0x1c8 -#define XK_Eogonek 0x1ca -#define XK_Ecaron 0x1cc -#define XK_Dcaron 0x1cf -#define XK_Dstroke 0x1d0 -#define XK_Nacute 0x1d1 -#define XK_Ncaron 0x1d2 -#define XK_Odoubleacute 0x1d5 -#define XK_Rcaron 0x1d8 -#define XK_Uring 0x1d9 -#define XK_Udoubleacute 0x1db -#define XK_Tcedilla 0x1de -#define XK_racute 0x1e0 -#define XK_abreve 0x1e3 -#define XK_lacute 0x1e5 -#define XK_cacute 0x1e6 -#define XK_ccaron 0x1e8 -#define XK_eogonek 0x1ea -#define XK_ecaron 0x1ec -#define XK_dcaron 0x1ef -#define XK_dstroke 0x1f0 -#define XK_nacute 0x1f1 -#define XK_ncaron 0x1f2 -#define XK_odoubleacute 0x1f5 -#define XK_udoubleacute 0x1fb -#define XK_rcaron 0x1f8 -#define XK_uring 0x1f9 -#define XK_tcedilla 0x1fe -#define XK_abovedot 0x1ff -#endif /* XK_LATIN2 */ - -/* - * Latin 3 - * Byte 3 = 2 - */ - -#ifdef XK_LATIN3 -#define XK_Hstroke 0x2a1 -#define XK_Hcircumflex 0x2a6 -#define XK_Iabovedot 0x2a9 -#define XK_Gbreve 0x2ab -#define XK_Jcircumflex 0x2ac -#define XK_hstroke 0x2b1 -#define XK_hcircumflex 0x2b6 -#define XK_idotless 0x2b9 -#define XK_gbreve 0x2bb -#define XK_jcircumflex 0x2bc -#define XK_Cabovedot 0x2c5 -#define XK_Ccircumflex 0x2c6 -#define XK_Gabovedot 0x2d5 -#define XK_Gcircumflex 0x2d8 -#define XK_Ubreve 0x2dd -#define XK_Scircumflex 0x2de -#define XK_cabovedot 0x2e5 -#define XK_ccircumflex 0x2e6 -#define XK_gabovedot 0x2f5 -#define XK_gcircumflex 0x2f8 -#define XK_ubreve 0x2fd -#define XK_scircumflex 0x2fe -#endif /* XK_LATIN3 */ - - -/* - * Latin 4 - * Byte 3 = 3 - */ - -#ifdef XK_LATIN4 -#define XK_kra 0x3a2 -#define XK_kappa 0x3a2 /* deprecated */ -#define XK_Rcedilla 0x3a3 -#define XK_Itilde 0x3a5 -#define XK_Lcedilla 0x3a6 -#define XK_Emacron 0x3aa -#define XK_Gcedilla 0x3ab -#define XK_Tslash 0x3ac -#define XK_rcedilla 0x3b3 -#define XK_itilde 0x3b5 -#define XK_lcedilla 0x3b6 -#define XK_emacron 0x3ba -#define XK_gcedilla 0x3bb -#define XK_tslash 0x3bc -#define XK_ENG 0x3bd -#define XK_eng 0x3bf -#define XK_Amacron 0x3c0 -#define XK_Iogonek 0x3c7 -#define XK_Eabovedot 0x3cc -#define XK_Imacron 0x3cf -#define XK_Ncedilla 0x3d1 -#define XK_Omacron 0x3d2 -#define XK_Kcedilla 0x3d3 -#define XK_Uogonek 0x3d9 -#define XK_Utilde 0x3dd -#define XK_Umacron 0x3de -#define XK_amacron 0x3e0 -#define XK_iogonek 0x3e7 -#define XK_eabovedot 0x3ec -#define XK_imacron 0x3ef -#define XK_ncedilla 0x3f1 -#define XK_omacron 0x3f2 -#define XK_kcedilla 0x3f3 -#define XK_uogonek 0x3f9 -#define XK_utilde 0x3fd -#define XK_umacron 0x3fe -#endif /* XK_LATIN4 */ - -/* - * Katakana - * Byte 3 = 4 - */ - -#ifdef XK_KATAKANA -#define XK_overline 0x47e -#define XK_kana_fullstop 0x4a1 -#define XK_kana_openingbracket 0x4a2 -#define XK_kana_closingbracket 0x4a3 -#define XK_kana_comma 0x4a4 -#define XK_kana_conjunctive 0x4a5 -#define XK_kana_middledot 0x4a5 /* deprecated */ -#define XK_kana_WO 0x4a6 -#define XK_kana_a 0x4a7 -#define XK_kana_i 0x4a8 -#define XK_kana_u 0x4a9 -#define XK_kana_e 0x4aa -#define XK_kana_o 0x4ab -#define XK_kana_ya 0x4ac -#define XK_kana_yu 0x4ad -#define XK_kana_yo 0x4ae -#define XK_kana_tsu 0x4af -#define XK_kana_tu 0x4af /* deprecated */ -#define XK_prolongedsound 0x4b0 -#define XK_kana_A 0x4b1 -#define XK_kana_I 0x4b2 -#define XK_kana_U 0x4b3 -#define XK_kana_E 0x4b4 -#define XK_kana_O 0x4b5 -#define XK_kana_KA 0x4b6 -#define XK_kana_KI 0x4b7 -#define XK_kana_KU 0x4b8 -#define XK_kana_KE 0x4b9 -#define XK_kana_KO 0x4ba -#define XK_kana_SA 0x4bb -#define XK_kana_SHI 0x4bc -#define XK_kana_SU 0x4bd -#define XK_kana_SE 0x4be -#define XK_kana_SO 0x4bf -#define XK_kana_TA 0x4c0 -#define XK_kana_CHI 0x4c1 -#define XK_kana_TI 0x4c1 /* deprecated */ -#define XK_kana_TSU 0x4c2 -#define XK_kana_TU 0x4c2 /* deprecated */ -#define XK_kana_TE 0x4c3 -#define XK_kana_TO 0x4c4 -#define XK_kana_NA 0x4c5 -#define XK_kana_NI 0x4c6 -#define XK_kana_NU 0x4c7 -#define XK_kana_NE 0x4c8 -#define XK_kana_NO 0x4c9 -#define XK_kana_HA 0x4ca -#define XK_kana_HI 0x4cb -#define XK_kana_FU 0x4cc -#define XK_kana_HU 0x4cc /* deprecated */ -#define XK_kana_HE 0x4cd -#define XK_kana_HO 0x4ce -#define XK_kana_MA 0x4cf -#define XK_kana_MI 0x4d0 -#define XK_kana_MU 0x4d1 -#define XK_kana_ME 0x4d2 -#define XK_kana_MO 0x4d3 -#define XK_kana_YA 0x4d4 -#define XK_kana_YU 0x4d5 -#define XK_kana_YO 0x4d6 -#define XK_kana_RA 0x4d7 -#define XK_kana_RI 0x4d8 -#define XK_kana_RU 0x4d9 -#define XK_kana_RE 0x4da -#define XK_kana_RO 0x4db -#define XK_kana_WA 0x4dc -#define XK_kana_N 0x4dd -#define XK_voicedsound 0x4de -#define XK_semivoicedsound 0x4df -#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_KATAKANA */ - -/* - * Arabic - * Byte 3 = 5 - */ - -#ifdef XK_ARABIC -#define XK_Arabic_comma 0x5ac -#define XK_Arabic_semicolon 0x5bb -#define XK_Arabic_question_mark 0x5bf -#define XK_Arabic_hamza 0x5c1 -#define XK_Arabic_maddaonalef 0x5c2 -#define XK_Arabic_hamzaonalef 0x5c3 -#define XK_Arabic_hamzaonwaw 0x5c4 -#define XK_Arabic_hamzaunderalef 0x5c5 -#define XK_Arabic_hamzaonyeh 0x5c6 -#define XK_Arabic_alef 0x5c7 -#define XK_Arabic_beh 0x5c8 -#define XK_Arabic_tehmarbuta 0x5c9 -#define XK_Arabic_teh 0x5ca -#define XK_Arabic_theh 0x5cb -#define XK_Arabic_jeem 0x5cc -#define XK_Arabic_hah 0x5cd -#define XK_Arabic_khah 0x5ce -#define XK_Arabic_dal 0x5cf -#define XK_Arabic_thal 0x5d0 -#define XK_Arabic_ra 0x5d1 -#define XK_Arabic_zain 0x5d2 -#define XK_Arabic_seen 0x5d3 -#define XK_Arabic_sheen 0x5d4 -#define XK_Arabic_sad 0x5d5 -#define XK_Arabic_dad 0x5d6 -#define XK_Arabic_tah 0x5d7 -#define XK_Arabic_zah 0x5d8 -#define XK_Arabic_ain 0x5d9 -#define XK_Arabic_ghain 0x5da -#define XK_Arabic_tatweel 0x5e0 -#define XK_Arabic_feh 0x5e1 -#define XK_Arabic_qaf 0x5e2 -#define XK_Arabic_kaf 0x5e3 -#define XK_Arabic_lam 0x5e4 -#define XK_Arabic_meem 0x5e5 -#define XK_Arabic_noon 0x5e6 -#define XK_Arabic_ha 0x5e7 -#define XK_Arabic_heh 0x5e7 /* deprecated */ -#define XK_Arabic_waw 0x5e8 -#define XK_Arabic_alefmaksura 0x5e9 -#define XK_Arabic_yeh 0x5ea -#define XK_Arabic_fathatan 0x5eb -#define XK_Arabic_dammatan 0x5ec -#define XK_Arabic_kasratan 0x5ed -#define XK_Arabic_fatha 0x5ee -#define XK_Arabic_damma 0x5ef -#define XK_Arabic_kasra 0x5f0 -#define XK_Arabic_shadda 0x5f1 -#define XK_Arabic_sukun 0x5f2 -#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_ARABIC */ - -/* - * Cyrillic - * Byte 3 = 6 - */ -#ifdef XK_CYRILLIC -#define XK_Serbian_dje 0x6a1 -#define XK_Macedonia_gje 0x6a2 -#define XK_Cyrillic_io 0x6a3 -#define XK_Ukrainian_ie 0x6a4 -#define XK_Ukranian_je 0x6a4 /* deprecated */ -#define XK_Macedonia_dse 0x6a5 -#define XK_Ukrainian_i 0x6a6 -#define XK_Ukranian_i 0x6a6 /* deprecated */ -#define XK_Ukrainian_yi 0x6a7 -#define XK_Ukranian_yi 0x6a7 /* deprecated */ -#define XK_Cyrillic_je 0x6a8 -#define XK_Serbian_je 0x6a8 /* deprecated */ -#define XK_Cyrillic_lje 0x6a9 -#define XK_Serbian_lje 0x6a9 /* deprecated */ -#define XK_Cyrillic_nje 0x6aa -#define XK_Serbian_nje 0x6aa /* deprecated */ -#define XK_Serbian_tshe 0x6ab -#define XK_Macedonia_kje 0x6ac -#define XK_Byelorussian_shortu 0x6ae -#define XK_Cyrillic_dzhe 0x6af -#define XK_Serbian_dze 0x6af /* deprecated */ -#define XK_numerosign 0x6b0 -#define XK_Serbian_DJE 0x6b1 -#define XK_Macedonia_GJE 0x6b2 -#define XK_Cyrillic_IO 0x6b3 -#define XK_Ukrainian_IE 0x6b4 -#define XK_Ukranian_JE 0x6b4 /* deprecated */ -#define XK_Macedonia_DSE 0x6b5 -#define XK_Ukrainian_I 0x6b6 -#define XK_Ukranian_I 0x6b6 /* deprecated */ -#define XK_Ukrainian_YI 0x6b7 -#define XK_Ukranian_YI 0x6b7 /* deprecated */ -#define XK_Cyrillic_JE 0x6b8 -#define XK_Serbian_JE 0x6b8 /* deprecated */ -#define XK_Cyrillic_LJE 0x6b9 -#define XK_Serbian_LJE 0x6b9 /* deprecated */ -#define XK_Cyrillic_NJE 0x6ba -#define XK_Serbian_NJE 0x6ba /* deprecated */ -#define XK_Serbian_TSHE 0x6bb -#define XK_Macedonia_KJE 0x6bc -#define XK_Byelorussian_SHORTU 0x6be -#define XK_Cyrillic_DZHE 0x6bf -#define XK_Serbian_DZE 0x6bf /* deprecated */ -#define XK_Cyrillic_yu 0x6c0 -#define XK_Cyrillic_a 0x6c1 -#define XK_Cyrillic_be 0x6c2 -#define XK_Cyrillic_tse 0x6c3 -#define XK_Cyrillic_de 0x6c4 -#define XK_Cyrillic_ie 0x6c5 -#define XK_Cyrillic_ef 0x6c6 -#define XK_Cyrillic_ghe 0x6c7 -#define XK_Cyrillic_ha 0x6c8 -#define XK_Cyrillic_i 0x6c9 -#define XK_Cyrillic_shorti 0x6ca -#define XK_Cyrillic_ka 0x6cb -#define XK_Cyrillic_el 0x6cc -#define XK_Cyrillic_em 0x6cd -#define XK_Cyrillic_en 0x6ce -#define XK_Cyrillic_o 0x6cf -#define XK_Cyrillic_pe 0x6d0 -#define XK_Cyrillic_ya 0x6d1 -#define XK_Cyrillic_er 0x6d2 -#define XK_Cyrillic_es 0x6d3 -#define XK_Cyrillic_te 0x6d4 -#define XK_Cyrillic_u 0x6d5 -#define XK_Cyrillic_zhe 0x6d6 -#define XK_Cyrillic_ve 0x6d7 -#define XK_Cyrillic_softsign 0x6d8 -#define XK_Cyrillic_yeru 0x6d9 -#define XK_Cyrillic_ze 0x6da -#define XK_Cyrillic_sha 0x6db -#define XK_Cyrillic_e 0x6dc -#define XK_Cyrillic_shcha 0x6dd -#define XK_Cyrillic_che 0x6de -#define XK_Cyrillic_hardsign 0x6df -#define XK_Cyrillic_YU 0x6e0 -#define XK_Cyrillic_A 0x6e1 -#define XK_Cyrillic_BE 0x6e2 -#define XK_Cyrillic_TSE 0x6e3 -#define XK_Cyrillic_DE 0x6e4 -#define XK_Cyrillic_IE 0x6e5 -#define XK_Cyrillic_EF 0x6e6 -#define XK_Cyrillic_GHE 0x6e7 -#define XK_Cyrillic_HA 0x6e8 -#define XK_Cyrillic_I 0x6e9 -#define XK_Cyrillic_SHORTI 0x6ea -#define XK_Cyrillic_KA 0x6eb -#define XK_Cyrillic_EL 0x6ec -#define XK_Cyrillic_EM 0x6ed -#define XK_Cyrillic_EN 0x6ee -#define XK_Cyrillic_O 0x6ef -#define XK_Cyrillic_PE 0x6f0 -#define XK_Cyrillic_YA 0x6f1 -#define XK_Cyrillic_ER 0x6f2 -#define XK_Cyrillic_ES 0x6f3 -#define XK_Cyrillic_TE 0x6f4 -#define XK_Cyrillic_U 0x6f5 -#define XK_Cyrillic_ZHE 0x6f6 -#define XK_Cyrillic_VE 0x6f7 -#define XK_Cyrillic_SOFTSIGN 0x6f8 -#define XK_Cyrillic_YERU 0x6f9 -#define XK_Cyrillic_ZE 0x6fa -#define XK_Cyrillic_SHA 0x6fb -#define XK_Cyrillic_E 0x6fc -#define XK_Cyrillic_SHCHA 0x6fd -#define XK_Cyrillic_CHE 0x6fe -#define XK_Cyrillic_HARDSIGN 0x6ff -#endif /* XK_CYRILLIC */ - -/* - * Greek - * Byte 3 = 7 - */ - -#ifdef XK_GREEK -#define XK_Greek_ALPHAaccent 0x7a1 -#define XK_Greek_EPSILONaccent 0x7a2 -#define XK_Greek_ETAaccent 0x7a3 -#define XK_Greek_IOTAaccent 0x7a4 -#define XK_Greek_IOTAdiaeresis 0x7a5 -#define XK_Greek_OMICRONaccent 0x7a7 -#define XK_Greek_UPSILONaccent 0x7a8 -#define XK_Greek_UPSILONdieresis 0x7a9 -#define XK_Greek_OMEGAaccent 0x7ab -#define XK_Greek_accentdieresis 0x7ae -#define XK_Greek_horizbar 0x7af -#define XK_Greek_alphaaccent 0x7b1 -#define XK_Greek_epsilonaccent 0x7b2 -#define XK_Greek_etaaccent 0x7b3 -#define XK_Greek_iotaaccent 0x7b4 -#define XK_Greek_iotadieresis 0x7b5 -#define XK_Greek_iotaaccentdieresis 0x7b6 -#define XK_Greek_omicronaccent 0x7b7 -#define XK_Greek_upsilonaccent 0x7b8 -#define XK_Greek_upsilondieresis 0x7b9 -#define XK_Greek_upsilonaccentdieresis 0x7ba -#define XK_Greek_omegaaccent 0x7bb -#define XK_Greek_ALPHA 0x7c1 -#define XK_Greek_BETA 0x7c2 -#define XK_Greek_GAMMA 0x7c3 -#define XK_Greek_DELTA 0x7c4 -#define XK_Greek_EPSILON 0x7c5 -#define XK_Greek_ZETA 0x7c6 -#define XK_Greek_ETA 0x7c7 -#define XK_Greek_THETA 0x7c8 -#define XK_Greek_IOTA 0x7c9 -#define XK_Greek_KAPPA 0x7ca -#define XK_Greek_LAMDA 0x7cb -#define XK_Greek_LAMBDA 0x7cb -#define XK_Greek_MU 0x7cc -#define XK_Greek_NU 0x7cd -#define XK_Greek_XI 0x7ce -#define XK_Greek_OMICRON 0x7cf -#define XK_Greek_PI 0x7d0 -#define XK_Greek_RHO 0x7d1 -#define XK_Greek_SIGMA 0x7d2 -#define XK_Greek_TAU 0x7d4 -#define XK_Greek_UPSILON 0x7d5 -#define XK_Greek_PHI 0x7d6 -#define XK_Greek_CHI 0x7d7 -#define XK_Greek_PSI 0x7d8 -#define XK_Greek_OMEGA 0x7d9 -#define XK_Greek_alpha 0x7e1 -#define XK_Greek_beta 0x7e2 -#define XK_Greek_gamma 0x7e3 -#define XK_Greek_delta 0x7e4 -#define XK_Greek_epsilon 0x7e5 -#define XK_Greek_zeta 0x7e6 -#define XK_Greek_eta 0x7e7 -#define XK_Greek_theta 0x7e8 -#define XK_Greek_iota 0x7e9 -#define XK_Greek_kappa 0x7ea -#define XK_Greek_lamda 0x7eb -#define XK_Greek_lambda 0x7eb -#define XK_Greek_mu 0x7ec -#define XK_Greek_nu 0x7ed -#define XK_Greek_xi 0x7ee -#define XK_Greek_omicron 0x7ef -#define XK_Greek_pi 0x7f0 -#define XK_Greek_rho 0x7f1 -#define XK_Greek_sigma 0x7f2 -#define XK_Greek_finalsmallsigma 0x7f3 -#define XK_Greek_tau 0x7f4 -#define XK_Greek_upsilon 0x7f5 -#define XK_Greek_phi 0x7f6 -#define XK_Greek_chi 0x7f7 -#define XK_Greek_psi 0x7f8 -#define XK_Greek_omega 0x7f9 -#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_GREEK */ - -/* - * Technical - * Byte 3 = 8 - */ - -#ifdef XK_TECHNICAL -#define XK_leftradical 0x8a1 -#define XK_topleftradical 0x8a2 -#define XK_horizconnector 0x8a3 -#define XK_topintegral 0x8a4 -#define XK_botintegral 0x8a5 -#define XK_vertconnector 0x8a6 -#define XK_topleftsqbracket 0x8a7 -#define XK_botleftsqbracket 0x8a8 -#define XK_toprightsqbracket 0x8a9 -#define XK_botrightsqbracket 0x8aa -#define XK_topleftparens 0x8ab -#define XK_botleftparens 0x8ac -#define XK_toprightparens 0x8ad -#define XK_botrightparens 0x8ae -#define XK_leftmiddlecurlybrace 0x8af -#define XK_rightmiddlecurlybrace 0x8b0 -#define XK_topleftsummation 0x8b1 -#define XK_botleftsummation 0x8b2 -#define XK_topvertsummationconnector 0x8b3 -#define XK_botvertsummationconnector 0x8b4 -#define XK_toprightsummation 0x8b5 -#define XK_botrightsummation 0x8b6 -#define XK_rightmiddlesummation 0x8b7 -#define XK_lessthanequal 0x8bc -#define XK_notequal 0x8bd -#define XK_greaterthanequal 0x8be -#define XK_integral 0x8bf -#define XK_therefore 0x8c0 -#define XK_variation 0x8c1 -#define XK_infinity 0x8c2 -#define XK_nabla 0x8c5 -#define XK_approximate 0x8c8 -#define XK_similarequal 0x8c9 -#define XK_ifonlyif 0x8cd -#define XK_implies 0x8ce -#define XK_identical 0x8cf -#define XK_radical 0x8d6 -#define XK_includedin 0x8da -#define XK_includes 0x8db -#define XK_intersection 0x8dc -#define XK_union 0x8dd -#define XK_logicaland 0x8de -#define XK_logicalor 0x8df -#define XK_partialderivative 0x8ef -#define XK_function 0x8f6 -#define XK_leftarrow 0x8fb -#define XK_uparrow 0x8fc -#define XK_rightarrow 0x8fd -#define XK_downarrow 0x8fe -#endif /* XK_TECHNICAL */ - -/* - * Special - * Byte 3 = 9 - */ - -#ifdef XK_SPECIAL -#define XK_blank 0x9df -#define XK_soliddiamond 0x9e0 -#define XK_checkerboard 0x9e1 -#define XK_ht 0x9e2 -#define XK_ff 0x9e3 -#define XK_cr 0x9e4 -#define XK_lf 0x9e5 -#define XK_nl 0x9e8 -#define XK_vt 0x9e9 -#define XK_lowrightcorner 0x9ea -#define XK_uprightcorner 0x9eb -#define XK_upleftcorner 0x9ec -#define XK_lowleftcorner 0x9ed -#define XK_crossinglines 0x9ee -#define XK_horizlinescan1 0x9ef -#define XK_horizlinescan3 0x9f0 -#define XK_horizlinescan5 0x9f1 -#define XK_horizlinescan7 0x9f2 -#define XK_horizlinescan9 0x9f3 -#define XK_leftt 0x9f4 -#define XK_rightt 0x9f5 -#define XK_bott 0x9f6 -#define XK_topt 0x9f7 -#define XK_vertbar 0x9f8 -#endif /* XK_SPECIAL */ - -/* - * Publishing - * Byte 3 = a - */ - -#ifdef XK_PUBLISHING -#define XK_emspace 0xaa1 -#define XK_enspace 0xaa2 -#define XK_em3space 0xaa3 -#define XK_em4space 0xaa4 -#define XK_digitspace 0xaa5 -#define XK_punctspace 0xaa6 -#define XK_thinspace 0xaa7 -#define XK_hairspace 0xaa8 -#define XK_emdash 0xaa9 -#define XK_endash 0xaaa -#define XK_signifblank 0xaac -#define XK_ellipsis 0xaae -#define XK_doubbaselinedot 0xaaf -#define XK_onethird 0xab0 -#define XK_twothirds 0xab1 -#define XK_onefifth 0xab2 -#define XK_twofifths 0xab3 -#define XK_threefifths 0xab4 -#define XK_fourfifths 0xab5 -#define XK_onesixth 0xab6 -#define XK_fivesixths 0xab7 -#define XK_careof 0xab8 -#define XK_figdash 0xabb -#define XK_leftanglebracket 0xabc -#define XK_decimalpoint 0xabd -#define XK_rightanglebracket 0xabe -#define XK_marker 0xabf -#define XK_oneeighth 0xac3 -#define XK_threeeighths 0xac4 -#define XK_fiveeighths 0xac5 -#define XK_seveneighths 0xac6 -#define XK_trademark 0xac9 -#define XK_signaturemark 0xaca -#define XK_trademarkincircle 0xacb -#define XK_leftopentriangle 0xacc -#define XK_rightopentriangle 0xacd -#define XK_emopencircle 0xace -#define XK_emopenrectangle 0xacf -#define XK_leftsinglequotemark 0xad0 -#define XK_rightsinglequotemark 0xad1 -#define XK_leftdoublequotemark 0xad2 -#define XK_rightdoublequotemark 0xad3 -#define XK_prescription 0xad4 -#define XK_minutes 0xad6 -#define XK_seconds 0xad7 -#define XK_latincross 0xad9 -#define XK_hexagram 0xada -#define XK_filledrectbullet 0xadb -#define XK_filledlefttribullet 0xadc -#define XK_filledrighttribullet 0xadd -#define XK_emfilledcircle 0xade -#define XK_emfilledrect 0xadf -#define XK_enopencircbullet 0xae0 -#define XK_enopensquarebullet 0xae1 -#define XK_openrectbullet 0xae2 -#define XK_opentribulletup 0xae3 -#define XK_opentribulletdown 0xae4 -#define XK_openstar 0xae5 -#define XK_enfilledcircbullet 0xae6 -#define XK_enfilledsqbullet 0xae7 -#define XK_filledtribulletup 0xae8 -#define XK_filledtribulletdown 0xae9 -#define XK_leftpointer 0xaea -#define XK_rightpointer 0xaeb -#define XK_club 0xaec -#define XK_diamond 0xaed -#define XK_heart 0xaee -#define XK_maltesecross 0xaf0 -#define XK_dagger 0xaf1 -#define XK_doubledagger 0xaf2 -#define XK_checkmark 0xaf3 -#define XK_ballotcross 0xaf4 -#define XK_musicalsharp 0xaf5 -#define XK_musicalflat 0xaf6 -#define XK_malesymbol 0xaf7 -#define XK_femalesymbol 0xaf8 -#define XK_telephone 0xaf9 -#define XK_telephonerecorder 0xafa -#define XK_phonographcopyright 0xafb -#define XK_caret 0xafc -#define XK_singlelowquotemark 0xafd -#define XK_doublelowquotemark 0xafe -#define XK_cursor 0xaff -#endif /* XK_PUBLISHING */ - -/* - * APL - * Byte 3 = b - */ - -#ifdef XK_APL -#define XK_leftcaret 0xba3 -#define XK_rightcaret 0xba6 -#define XK_downcaret 0xba8 -#define XK_upcaret 0xba9 -#define XK_overbar 0xbc0 -#define XK_downtack 0xbc2 -#define XK_upshoe 0xbc3 -#define XK_downstile 0xbc4 -#define XK_underbar 0xbc6 -#define XK_jot 0xbca -#define XK_quad 0xbcc -#define XK_uptack 0xbce -#define XK_circle 0xbcf -#define XK_upstile 0xbd3 -#define XK_downshoe 0xbd6 -#define XK_rightshoe 0xbd8 -#define XK_leftshoe 0xbda -#define XK_lefttack 0xbdc -#define XK_righttack 0xbfc -#endif /* XK_APL */ - -/* - * Hebrew - * Byte 3 = c - */ - -#ifdef XK_HEBREW -#define XK_hebrew_doublelowline 0xcdf -#define XK_hebrew_aleph 0xce0 -#define XK_hebrew_bet 0xce1 -#define XK_hebrew_beth 0xce1 /* deprecated */ -#define XK_hebrew_gimel 0xce2 -#define XK_hebrew_gimmel 0xce2 /* deprecated */ -#define XK_hebrew_dalet 0xce3 -#define XK_hebrew_daleth 0xce3 /* deprecated */ -#define XK_hebrew_he 0xce4 -#define XK_hebrew_waw 0xce5 -#define XK_hebrew_zain 0xce6 -#define XK_hebrew_zayin 0xce6 /* deprecated */ -#define XK_hebrew_chet 0xce7 -#define XK_hebrew_het 0xce7 /* deprecated */ -#define XK_hebrew_tet 0xce8 -#define XK_hebrew_teth 0xce8 /* deprecated */ -#define XK_hebrew_yod 0xce9 -#define XK_hebrew_finalkaph 0xcea -#define XK_hebrew_kaph 0xceb -#define XK_hebrew_lamed 0xcec -#define XK_hebrew_finalmem 0xced -#define XK_hebrew_mem 0xcee -#define XK_hebrew_finalnun 0xcef -#define XK_hebrew_nun 0xcf0 -#define XK_hebrew_samech 0xcf1 -#define XK_hebrew_samekh 0xcf1 /* deprecated */ -#define XK_hebrew_ayin 0xcf2 -#define XK_hebrew_finalpe 0xcf3 -#define XK_hebrew_pe 0xcf4 -#define XK_hebrew_finalzade 0xcf5 -#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ -#define XK_hebrew_zade 0xcf6 -#define XK_hebrew_zadi 0xcf6 /* deprecated */ -#define XK_hebrew_qoph 0xcf7 -#define XK_hebrew_kuf 0xcf7 /* deprecated */ -#define XK_hebrew_resh 0xcf8 -#define XK_hebrew_shin 0xcf9 -#define XK_hebrew_taw 0xcfa -#define XK_hebrew_taf 0xcfa /* deprecated */ -#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_HEBREW */ - -/* Multimedia keys, defined same as on Linux - * /usr/include/pkg/libxkbcommon/xkbcommon/xkbcommon-keysyms.h - */ - -#define XK_XF86AudioLowerVolume 0x1008FF11 /* Volume control down */ -#define XK_XF86AudioMute 0x1008FF12 /* Mute sound from the system */ -#define XK_XF86AudioRaiseVolume 0x1008FF13 /* Volume control up */ -#define XK_XF86AudioPlay 0x1008FF14 /* Start playing of audio > */ -#define XK_XF86AudioStop 0x1008FF15 /* Stop playing audio */ -#define XK_XF86AudioPrev 0x1008FF16 /* Previous track */ -#define XK_XF86AudioNext 0x1008FF17 /* Next track */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tcl.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tcl.h deleted file mode 100644 index 7378a8faf..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tcl.h +++ /dev/null @@ -1,2459 +0,0 @@ -/* - * tcl.h -- - * - * This header file describes the externally-visible facilities of the - * Tcl interpreter. - * - * Copyright (c) 1987-1994 The Regents of the University of California. - * Copyright (c) 1993-1996 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCL -#define _TCL - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * The following defines are used to indicate the various release levels. - */ - -#define TCL_ALPHA_RELEASE 0 -#define TCL_BETA_RELEASE 1 -#define TCL_FINAL_RELEASE 2 - -/* - * When version numbers change here, must also go into the following files and - * update the version numbers: - * - * library/init.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/tcl.m4 (not patchlevel) - * win/makefile.bc (not patchlevel) 2 LOC - * README (sections 0 and 2, with and without separator) - * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC - * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC - * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC - * macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC - * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) (sections 0 and 2) - * unix/tcl.spec (1 LOC patch) - * tools/tcl.hpj.in (not patchlevel, for windows installer) - * tools/tcl.wse.in (for windows installer) - * tools/tclSplash.bmp (not patchlevel) - */ - -#define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 5 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 19 - -#define TCL_VERSION "8.5" -#define TCL_PATCH_LEVEL "8.5.19" - -/* - * The following definitions set up the proper options for Windows compilers. - * We use this method because there is no autoconf equivalent. - */ - -#ifndef __WIN32__ -# if defined(_WIN32) || defined(WIN32) || defined(__MSVCRT__) || defined(__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) -# define __WIN32__ -# ifndef WIN32 -# define WIN32 -# endif -# ifndef _WIN32 -# define _WIN32 -# endif -# endif -#endif - -/* - * STRICT: See MSDN Article Q83456 - */ - -#ifdef __WIN32__ -# ifndef STRICT -# define STRICT -# endif -#endif /* __WIN32__ */ - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * A special definition used to allow this header file to be included from - * windows resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool. - * - * Resource compilers don't like all the C stuff, like typedefs and function - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -/* - * Special macro to define mutexes, that doesn't do anything if we are not - * using threads. - */ - -#ifdef TCL_THREADS -#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; -#else -#define TCL_DECLARE_MUTEX(name) -#endif - -/* - * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and - * SEEK_END, all #define'd by stdio.h . - * - * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h - * providing it for them rather than #include-ing it themselves as they - * should, so also for their sake, we keep the #include to be consistent with - * prior Tcl releases. - */ - -#include - -/* - * Support for functions with a variable number of arguments. - * - * The following TCL_VARARGS* macros are to support old extensions - * written for older versions of Tcl where the macros permitted - * support for the varargs.h system as well as stdarg.h . - * - * New code should just directly be written to use stdarg.h conventions. - */ - -#include -#ifndef TCL_NO_DEPRECATED -# define TCL_VARARGS(type, name) (type name, ...) -# define TCL_VARARGS_DEF(type, name) (type name, ...) -# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) -#endif - -/* - * Macros used to declare a function to be exported by a DLL. Used by Windows, - * maps to no-op declarations on non-Windows systems. The default build on - * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be - * nonempty. To build a static library, the macro STATIC_BUILD should be - * defined. - * - * Note: when building static but linking dynamically to MSVCRT we must still - * correctly decorate the C library imported function. Use CRTIMPORT - * for this purpose. _DLL is defined by the compiler when linking to - * MSVCRT. - */ - -#if (defined(__WIN32__) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) -# define HAVE_DECLSPEC 1 -# ifdef STATIC_BUILD -# define DLLIMPORT -# define DLLEXPORT -# ifdef _DLL -# define CRTIMPORT __declspec(dllimport) -# else -# define CRTIMPORT -# endif -# else -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# define CRTIMPORT __declspec(dllimport) -# endif -#else -# define DLLIMPORT -# if defined(__GNUC__) && __GNUC__ > 3 -# define DLLEXPORT __attribute__ ((visibility("default"))) -# else -# define DLLEXPORT -# endif -# define CRTIMPORT -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the name of - * a library we are building, is set on the compile line for sources that are - * to be placed in the library. When this macro is set, the storage class will - * be set to DLLEXPORT. At the end of the header file, the storage class will - * be reset to DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * Definitions that allow this header file to be used either with or without - * ANSI C features like function prototypes. - */ - -#undef _ANSI_ARGS_ -#undef CONST -#ifndef INLINE -# define INLINE -#endif - -#ifndef NO_CONST -# define CONST const -#else -# define CONST -#endif - -#ifndef NO_PROTOTYPES -# define _ANSI_ARGS_(x) x -#else -# define _ANSI_ARGS_(x) () -#endif - -#ifdef USE_NON_CONST -# ifdef USE_COMPAT_CONST -# error define at most one of USE_NON_CONST and USE_COMPAT_CONST -# endif -# define CONST84 -# define CONST84_RETURN -#else -# ifdef USE_COMPAT_CONST -# define CONST84 -# define CONST84_RETURN CONST -# else -# define CONST84 CONST -# define CONST84_RETURN CONST -# endif -#endif - -/* - * Make sure EXTERN isn't defined elsewhere. - */ - -#ifdef EXTERN -# undef EXTERN -#endif /* EXTERN */ - -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - * The following code is copied from winnt.h. If we don't replicate it here, - * then can't be included after tcl.h, since tcl.h also defines - * VOID. This block is skipped under Cygwin and Mingw. - */ - -#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) -#ifndef VOID -#define VOID void -typedef char CHAR; -typedef short SHORT; -typedef long LONG; -#endif -#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ - -/* - * Macro to use instead of "void" for arguments that must have type "void *" - * in ANSI C; maps them to type "char *" in non-ANSI systems. - */ - -#ifndef __VXWORKS__ -# ifndef NO_VOID -# define VOID void -# else -# define VOID char -# endif -#endif - -/* - * Miscellaneous declarations. - */ - -#ifndef _CLIENTDATA -# ifndef NO_VOID - typedef void *ClientData; -# else - typedef int *ClientData; -# endif -# define _CLIENTDATA -#endif - -/* - * Darwin specific configure overrides (to support fat compiles, where - * configure runs only once for multiple architectures): - */ - -#ifdef __APPLE__ -# ifdef __LP64__ -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_IS_LONG 1 -# define TCL_CFG_DO64BIT 1 -# else /* !__LP64__ */ -# define TCL_WIDE_INT_TYPE long long -# undef TCL_WIDE_INT_IS_LONG -# undef TCL_CFG_DO64BIT -# endif /* __LP64__ */ -# undef HAVE_STRUCT_STAT64 -#endif /* __APPLE__ */ - -/* - * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define - * Tcl_WideUInt to be the unsigned variant of that type (assuming that where - * we have one, we can have the other.) - * - * Also defines the following macros: - * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a real - * 64-bit system.) - * Tcl_WideAsLong - forgetful converter from wideInt to long. - * Tcl_LongAsWide - sign-extending converter from long to wideInt. - * Tcl_WideAsDouble - converter from wideInt to double. - * Tcl_DoubleAsWide - converter from double to wideInt. - * - * The following invariant should hold for any long value 'longVal': - * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) - * - * Note on converting between Tcl_WideInt and strings. This implementation (in - * tclObj.c) depends on the function - * sprintf(...,"%" TCL_LL_MODIFIER "d",...). - */ - -#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) -# if defined(__WIN32__) -# define TCL_WIDE_INT_TYPE __int64 -# ifdef __BORLANDC__ -# define TCL_LL_MODIFIER "L" -# else /* __BORLANDC__ */ -# define TCL_LL_MODIFIER "I64" -# endif /* __BORLANDC__ */ -# elif defined(__GNUC__) -# define TCL_WIDE_INT_TYPE long long -# define TCL_LL_MODIFIER "ll" -# else /* ! __WIN32__ && ! __GNUC__ */ -/* - * Don't know what platform it is and configure hasn't discovered what is - * going on for us. Try to guess... - */ -# ifdef NO_LIMITS_H -# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LONG -# else /* !NO_LIMITS_H */ -# include -# if (INT_MAX < LONG_MAX) -# define TCL_WIDE_INT_IS_LONG 1 -# else -# define TCL_WIDE_INT_TYPE long long -# endif -# endif /* NO_LIMITS_H */ -# endif /* __WIN32__ */ -#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ -#ifdef TCL_WIDE_INT_IS_LONG -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_TYPE long -#endif /* TCL_WIDE_INT_IS_LONG */ - -typedef TCL_WIDE_INT_TYPE Tcl_WideInt; -typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; - -#ifdef TCL_WIDE_INT_IS_LONG -# define Tcl_WideAsLong(val) ((long)(val)) -# define Tcl_LongAsWide(val) ((long)(val)) -# define Tcl_WideAsDouble(val) ((double)((long)(val))) -# define Tcl_DoubleAsWide(val) ((long)((double)(val))) -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "l" -# endif /* !TCL_LL_MODIFIER */ -#else /* TCL_WIDE_INT_IS_LONG */ -/* - * The next short section of defines are only done when not running on Windows - * or some other strange platform. - */ -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "ll" -# endif /* !TCL_LL_MODIFIER */ -# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) -# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) -# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) -# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -#if defined(__WIN32__) -# ifdef __BORLANDC__ - typedef struct stati64 Tcl_StatBuf; -# elif defined(_WIN64) || defined(_USE_64BIT_TIME_T) - typedef struct __stat64 Tcl_StatBuf; -# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) - typedef struct _stati64 Tcl_StatBuf; -# else - typedef struct _stat32i64 Tcl_StatBuf; -# endif /* _MSC_VER < 1400 */ -#elif defined(__CYGWIN__) - typedef struct { - dev_t st_dev; - unsigned short st_ino; - unsigned short st_mode; - short st_nlink; - short st_uid; - short st_gid; - /* Here is a 2-byte gap */ - dev_t st_rdev; - /* Here is a 4-byte gap */ - long long st_size; - struct {long tv_sec;} st_atim; - struct {long tv_sec;} st_mtim; - struct {long tv_sec;} st_ctim; - /* Here is a 4-byte gap */ - } Tcl_StatBuf; -#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) - typedef struct stat64 Tcl_StatBuf; -#else - typedef struct stat Tcl_StatBuf; -#endif - -/* - * Data structures defined opaquely in this module. The definitions below just - * provide dummy types. A few fields are made visible in Tcl_Interp - * structures, namely those used for returning a string result from commands. - * Direct access to the result field is discouraged in Tcl 8.0. The - * interpreter result is either an object or a string, and the two values are - * kept consistent unless some C code sets interp->result directly. - * Programmers should use either the function Tcl_GetObjResult() or - * Tcl_GetStringResult() to read the interpreter's result. See the SetResult - * man page for details. - * - * Note: any change to the Tcl_Interp definition below must be mirrored in the - * "real" definition in tclInt.h. - * - * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. - * Instead, they set a Tcl_Obj member in the "real" structure that can be - * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). - */ - -typedef struct Tcl_Interp { - char *result; /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) _ANSI_ARGS_((char *blockPtr)); - /* Zero means the string result is statically - * allocated. TCL_DYNAMIC means it was - * allocated with ckalloc and should be freed - * with ckfree. Other values give the address - * of function to invoke to free the result. - * Tcl_Eval must free it before executing next - * command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number within the command where the - * error occurred (1 if first line). */ -} Tcl_Interp; - -typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; -typedef struct Tcl_Channel_ *Tcl_Channel; -typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_Command_ *Tcl_Command; -typedef struct Tcl_Condition_ *Tcl_Condition; -typedef struct Tcl_Dict_ *Tcl_Dict; -typedef struct Tcl_EncodingState_ *Tcl_EncodingState; -typedef struct Tcl_Encoding_ *Tcl_Encoding; -typedef struct Tcl_Event Tcl_Event; -typedef struct Tcl_InterpState_ *Tcl_InterpState; -typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; -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; - -/* - * Definition of the interface to functions implementing threads. A function - * following this definition is given to each call of 'Tcl_CreateThread' and - * will be called as the main fuction of the new thread created by that call. - */ - -#if defined __WIN32__ -typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#else -typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#endif - -/* - * Threading function return types used for abstracting away platform - * differences when writing a Tcl_ThreadCreateProc. See the NewThread function - * in generic/tclThreadTest.c for it's usage. - */ - -#if defined __WIN32__ -# define Tcl_ThreadCreateType unsigned __stdcall -# define TCL_THREAD_CREATE_RETURN return 0 -#else -# define Tcl_ThreadCreateType void -# define TCL_THREAD_CREATE_RETURN -#endif - -/* - * Definition of values for default stacksize and the possible flags to be - * given to Tcl_CreateThread. - */ - -#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */ -#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default - * behaviour. */ -#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */ - -/* - * Flag values passed to Tcl_StringCaseMatch. - */ - -#define TCL_MATCH_NOCASE (1<<0) - -/* - * Flag values passed to Tcl_GetRegExpFromObj. - */ - -#define TCL_REG_BASIC 000000 /* BREs (convenience). */ -#define TCL_REG_EXTENDED 000001 /* EREs. */ -#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */ -#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */ -#define TCL_REG_QUOTE 000004 /* No special characters, none. */ -#define TCL_REG_NOCASE 000010 /* Ignore case. */ -#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */ -#define TCL_REG_EXPANDED 000040 /* Expanded format, white space & - * comments. */ -#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ -#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */ -#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */ -#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited - * matches. */ - -/* - * Flags values passed to Tcl_RegExpExecObj. - */ - -#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ -#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ - -/* - * Structures filled in by Tcl_RegExpInfo. Note that all offset values are - * relative to the start of the match string, not the beginning of the entire - * string. - */ - -typedef struct Tcl_RegExpIndices { - long start; /* Character offset of first character in - * match. */ - long end; /* Character offset of first character after - * the match. */ -} Tcl_RegExpIndices; - -typedef struct Tcl_RegExpInfo { - int nsubs; /* Number of subexpressions in the compiled - * expression. */ - Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ - long extendStart; /* The offset at which a subsequent match - * might begin. */ - long reserved; /* Reserved for later use. */ -} Tcl_RegExpInfo; - -/* - * Picky compilers complain if this typdef doesn't appear before the struct's - * reference in tclDecls.h. - */ - -typedef Tcl_StatBuf *Tcl_Stat_; -typedef struct stat *Tcl_OldStat_; - -/* - * When a TCL command returns, the interpreter contains a result from the - * command. Programmers are strongly encouraged to use one of the functions - * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's - * result. See the SetResult man page for details. Besides this result, the - * command function returns an integer code, which is one of the following: - * - * TCL_OK Command completed normally; the interpreter's result - * contains the command's result. - * TCL_ERROR The command couldn't be completed successfully; the - * interpreter's result describes what went wrong. - * TCL_RETURN The command requests that the current function return; - * the interpreter's result contains the function's - * return value. - * TCL_BREAK The command requests that the innermost loop be - * exited; the interpreter's result is meaningless. - * TCL_CONTINUE Go on to the next iteration of the current loop; the - * interpreter's result is meaningless. - */ - -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 - -#define TCL_RESULT_SIZE 200 - -/* - * Flags to control what substitutions are performed by Tcl_SubstObj(): - */ - -#define TCL_SUBST_COMMANDS 001 -#define TCL_SUBST_VARIABLES 002 -#define TCL_SUBST_BACKSLASHES 004 -#define TCL_SUBST_ALL 007 - -/* - * Argument descriptors for math function callbacks in expressions: - */ - -typedef enum { - TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT -} Tcl_ValueType; - -typedef struct Tcl_Value { - Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, - * or both. */ - long intValue; /* Integer value. */ - double doubleValue; /* Double-precision floating value. */ - Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ -} Tcl_Value; - -/* - * Forward declaration of Tcl_Obj to prevent an error when the forward - * reference to Tcl_Obj is encountered in the function types declared below. - */ - -struct Tcl_Obj; - -/* - * Function types defined by Tcl: - */ - -typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int code)); -typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); -typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, CONST84 char *argv[])); -typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, - ClientData cmdClientData, int argc, CONST84 char *argv[])); -typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, CONST char *command, - Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); -typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, - struct Tcl_Obj *dupPtr)); -typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((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)_ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); -typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, - ClientData clientData)); -typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); -typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); -typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); -typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); -typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp, - int flags)); -typedef void (Tcl_PanicProc) _ANSI_ARGS_((CONST char *format, ...)); -typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, - Tcl_Channel chan, char *address, int port)); -typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, - struct Tcl_Obj *objPtr)); -typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); -typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, - int flags)); -typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST char *oldName, CONST char *newName, - int flags)); -typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, - Tcl_FileProc *proc, ClientData clientData)); -typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); -typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); -typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); -typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); - -/* - * The following structure represents a type of object, which is a particular - * internal representation for an object plus a set of functions that provide - * standard operations on objects of that type. - */ - -typedef struct Tcl_ObjType { - char *name; /* Name of the type, e.g. "int". */ - Tcl_FreeInternalRepProc *freeIntRepProc; - /* Called to free any storage for the type's - * internal rep. NULL if the internal rep does - * not need freeing. */ - Tcl_DupInternalRepProc *dupIntRepProc; - /* Called to create a new object as a copy of - * an existing object. */ - Tcl_UpdateStringProc *updateStringProc; - /* Called to update the string rep from the - * type's internal representation. */ - Tcl_SetFromAnyProc *setFromAnyProc; - /* Called to convert the object's internal rep - * to this type. Frees the internal rep of the - * old type. Returns TCL_ERROR on failure. */ -} Tcl_ObjType; - -/* - * One of the following structures exists for each object in the Tcl system. - * An object stores a value as either a string, some internal representation, - * or both. - */ - -typedef struct Tcl_Obj { - int refCount; /* When 0 the object will be freed. */ - char *bytes; /* This points to the first byte of the - * object's string representation. The array - * must be followed by a null byte (i.e., at - * offset length) but may also contain - * embedded null characters. The array's - * storage is allocated by ckalloc. NULL means - * the string rep is invalid and must be - * regenerated from the internal rep. Clients - * should use Tcl_GetStringFromObj or - * Tcl_GetString to get a pointer to the byte - * array as a readonly value. */ - int length; /* The number of bytes at *bytes, not - * including the terminating null. */ - Tcl_ObjType *typePtr; /* Denotes the object's type. Always - * corresponds to the type of the object's - * internal rep. NULL indicates the object has - * no internal rep (has no type). */ - union { /* The internal representation: */ - long longValue; /* - an long integer value. */ - double doubleValue; /* - a double-precision floating value. */ - VOID *otherValuePtr; /* - another, type-specific value. */ - Tcl_WideInt wideValue; /* - a long long value. */ - struct { /* - internal rep as two pointers. */ - VOID *ptr1; - VOID *ptr2; - } twoPtrValue; - struct { /* - internal rep as a wide int, tightly - * packed fields. */ - VOID *ptr; /* Pointer to digits. */ - unsigned long value;/* Alloc, used, and signum packed into a - * single word. */ - } ptrAndLongRep; - } internalRep; -} Tcl_Obj; - -/* - * Macros to increment and decrement a Tcl_Obj's reference count, and to test - * whether an object is shared (i.e. has reference count > 1). Note: clients - * should use Tcl_DecrRefCount() when they are finished using an object, and - * should never call TclFreeObj() directly. TclFreeObj() is only defined and - * made public in tcl.h to support Tcl_DecrRefCount's macro definition. - */ - -void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); - -/* - * The following structure contains the state needed by Tcl_SaveResult. No-one - * outside of Tcl should access any of these fields. This structure is - * typically allocated on the stack. - */ - -typedef struct Tcl_SavedResult { - char *result; - Tcl_FreeProc *freeProc; - Tcl_Obj *objResultPtr; - char *appendResult; - int appendAvl; - int appendUsed; - char resultSpace[TCL_RESULT_SIZE+1]; -} Tcl_SavedResult; - -/* - * The following definitions support Tcl's namespace facility. Note: the first - * five fields must match exactly the fields in a Namespace structure (see - * tclInt.h). - */ - -typedef struct Tcl_Namespace { - char *name; /* The namespace's name within its parent - * namespace. This contains no ::'s. The name - * of the global namespace is "" although "::" - * is an synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* Arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Function invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Tcl_Namespace *parentPtr; - /* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -} Tcl_Namespace; - -/* - * The following structure represents a call frame, or activation record. A - * call frame defines a naming context for a procedure call: its local scope - * (for local variables) and its namespace scope (used for non-local - * variables; often the global :: namespace). A call frame can also define the - * naming context for a namespace eval or namespace inscope command: the - * namespace in which the command's code should execute. The Tcl_CallFrame - * structures exist only while procedures or namespace eval/inscope's are - * being executed, and provide a Tcl call stack. - * - * A call frame is initialized and pushed using Tcl_PushCallFrame and popped - * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the - * Tcl_PushCallFrame caller, and callers typically allocate them on the C call - * stack for efficiency. For this reason, Tcl_CallFrame is defined as a - * structure and not as an opaque token. However, most Tcl_CallFrame fields - * are hidden since applications should not access them directly; others are - * declared as "dummyX". - * - * WARNING!! The structure definition must be kept consistent with the - * CallFrame structure in tclInt.h. If you change one, change the other. - */ - -typedef struct Tcl_CallFrame { - Tcl_Namespace *nsPtr; - int dummy1; - int dummy2; - VOID *dummy3; - VOID *dummy4; - VOID *dummy5; - int dummy6; - VOID *dummy7; - VOID *dummy8; - int dummy9; - VOID *dummy10; - VOID *dummy11; - VOID *dummy12; - VOID *dummy13; -} Tcl_CallFrame; - -/* - * Information about commands that is returned by Tcl_GetCommandInfo and - * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command - * function while proc is a traditional Tcl argc/argv string-based function. - * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and - * proc are non-NULL and can be called to execute the command. However, it may - * be faster to call one instead of the other. The member isNativeObjectProc - * is set to 1 if an object-based function was registered by - * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by - * Tcl_CreateCommand. The other function is typically set to a compatibility - * wrapper that does string-to-object or object-to-string argument conversions - * then calls the other function. - */ - -typedef struct Tcl_CmdInfo { - int isNativeObjectProc; /* 1 if objProc was registered by a call to - * Tcl_CreateObjCommand; 0 otherwise. - * Tcl_SetCmdInfo does not modify this - * field. */ - Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ - ClientData objClientData; /* ClientData for object proc. */ - Tcl_CmdProc *proc; /* Command's string-based function. */ - ClientData clientData; /* ClientData for string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Function to call when command is - * deleted. */ - ClientData deleteData; /* Value to pass to deleteProc (usually the - * same as clientData). */ - Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this - * command. Note that Tcl_SetCmdInfo will not - * change a command's namespace; use - * TclRenameCommand or Tcl_Eval (of 'rename') - * to do that. */ -} Tcl_CmdInfo; - -/* - * The structure defined below is used to hold dynamic strings. The only - * fields that clients should use are string and length, accessible via the - * macros Tcl_DStringValue and Tcl_DStringLength. - */ - -#define TCL_DSTRING_STATIC_SIZE 200 -typedef struct Tcl_DString { - char *string; /* Points to beginning of string: either - * staticSpace below or a malloced array. */ - int length; /* Number of non-NULL characters in the - * string. */ - int spaceAvl; /* Total number of bytes available for the - * string and its terminating NULL char. */ - char staticSpace[TCL_DSTRING_STATIC_SIZE]; - /* Space to use in common case where string is - * small. */ -} Tcl_DString; - -#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) -#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#define Tcl_DStringTrunc Tcl_DStringSetLength - -/* - * Definitions for the maximum number of digits of precision that may be - * specified in the "tcl_precision" variable, and the number of bytes of - * buffer space required by Tcl_PrintDouble. - */ - -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) - -/* - * Definition for a number of bytes of buffer space sufficient to hold the - * string representation of an integer in base 10 (assuming the existence of - * 64-bit integers). - */ - -#define TCL_INTEGER_SPACE 24 - -/* - * Flag values passed to Tcl_ConvertElement. - * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to - * use backslash quoting instead. - * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It - * is safe to leave the hash unquoted when the element is not the first - * element of a list, and this flag can be used by the caller to indicate - * that condition. - */ - -#define TCL_DONT_USE_BRACES 1 -#define TCL_DONT_QUOTE_HASH 8 - -/* - * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow - * abbreviated strings. - */ - -#define TCL_EXACT 1 - -/* - * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. - * WARNING: these bit choices must not conflict with the bit choices for - * evalFlag bits in tclInt.h! - * - * Meanings: - * TCL_NO_EVAL: Just record this command - * TCL_EVAL_GLOBAL: Execute script in global namespace - * TCL_EVAL_DIRECT: Do not compile this script - * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles - * o Run in iPtr->lookupNsPtr or global namespace - * o Cut out of error traces - * o Don't reset the flags controlling ensemble - * error message rewriting. - */ -#define TCL_NO_EVAL 0x10000 -#define TCL_EVAL_GLOBAL 0x20000 -#define TCL_EVAL_DIRECT 0x40000 -#define TCL_EVAL_INVOKE 0x80000 - -/* - * Special freeProc values that may be passed to Tcl_SetResult (see the man - * page for details): - */ - -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) - -/* - * Flag values passed to variable-related functions. - */ - -#define TCL_GLOBAL_ONLY 1 -#define TCL_NAMESPACE_ONLY 2 -#define TCL_APPEND_VALUE 4 -#define TCL_LIST_ELEMENT 8 -#define TCL_TRACE_READS 0x10 -#define TCL_TRACE_WRITES 0x20 -#define TCL_TRACE_UNSETS 0x40 -#define TCL_TRACE_DESTROYED 0x80 -#define TCL_INTERP_DESTROYED 0x100 -#define TCL_LEAVE_ERR_MSG 0x200 -#define TCL_TRACE_ARRAY 0x800 -#ifndef TCL_REMOVE_OBSOLETE_TRACES -/* Required to support old variable/vdelete/vinfo traces */ -#define TCL_TRACE_OLD_STYLE 0x1000 -#endif -/* Indicate the semantics of the result of a trace */ -#define TCL_TRACE_RESULT_DYNAMIC 0x8000 -#define TCL_TRACE_RESULT_OBJECT 0x10000 - -/* - * Flag values for ensemble commands. - */ - -#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow - * unambiguous prefixes of commands or to - * require exact matches for command names. */ - -/* - * Flag values passed to command-related functions. - */ - -#define TCL_TRACE_RENAME 0x2000 -#define TCL_TRACE_DELETE 0x4000 - -#define TCL_ALLOW_INLINE_COMPILATION 0x20000 - -/* - * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now - * always parsed whenever the part2 is NULL. (This is to avoid a common error - * when converting code to use the new object based APIs and forgetting to - * give the flag) - */ - -#ifndef TCL_NO_DEPRECATED -# define TCL_PARSE_PART1 0x400 -#endif - -/* - * Types for linked variables: - */ - -#define TCL_LINK_INT 1 -#define TCL_LINK_DOUBLE 2 -#define TCL_LINK_BOOLEAN 3 -#define TCL_LINK_STRING 4 -#define TCL_LINK_WIDE_INT 5 -#define TCL_LINK_CHAR 6 -#define TCL_LINK_UCHAR 7 -#define TCL_LINK_SHORT 8 -#define TCL_LINK_USHORT 9 -#define TCL_LINK_UINT 10 -#define TCL_LINK_LONG 11 -#define TCL_LINK_ULONG 12 -#define TCL_LINK_FLOAT 13 -#define TCL_LINK_WIDE_UINT 14 -#define TCL_LINK_READ_ONLY 0x80 - -/* - * Forward declarations of Tcl_HashTable and related types. - */ - -typedef struct Tcl_HashKeyType Tcl_HashKeyType; -typedef struct Tcl_HashTable Tcl_HashTable; -typedef struct Tcl_HashEntry Tcl_HashEntry; - -typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - VOID *keyPtr)); -typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, - Tcl_HashEntry *hPtr)); -typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( - Tcl_HashTable *tablePtr, VOID *keyPtr)); -typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); - -/* - * This flag controls whether the hash table stores the hash of a key, or - * recalculates it. There should be no reason for turning this flag off as it - * is completely binary and source compatible unless you directly access the - * bucketPtr member of the Tcl_HashTableEntry structure. This member has been - * removed and the space used to store the hash value. - */ - -#ifndef TCL_HASH_KEY_STORE_HASH -# define TCL_HASH_KEY_STORE_HASH 1 -#endif - -/* - * Structure definition for an entry in a hash table. No-one outside Tcl - * should access any of these fields directly; use the macros defined below. - */ - -struct Tcl_HashEntry { - Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, - * or NULL for end of chain. */ - Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ -#if TCL_HASH_KEY_STORE_HASH - VOID *hash; /* Hash value, stored as pointer to ensure - * that the offsets of the fields in this - * structure are not changed. */ -#else - Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first - * entry in this entry's chain: used for - * deleting the entry. */ -#endif - ClientData clientData; /* Application stores something here with - * Tcl_SetHashValue. */ - union { /* Key has one of these forms: */ - char *oneWordValue; /* One-word value for key. */ - Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ - int words[1]; /* Multiple integer words for key. The actual - * size will be as large as necessary for this - * table's keys. */ - char string[4]; /* String for key. The actual size will be as - * large as needed to hold the key. */ - } key; /* MUST BE LAST FIELD IN RECORD!! */ -}; - -/* - * Flags used in Tcl_HashKeyType. - * - * TCL_HASH_KEY_RANDOMIZE_HASH - - * There are some things, pointers for example - * which don't hash well because they do not use - * the lower bits. If this flag is set then the - * hash table will attempt to rectify this by - * randomising the bits and then using the upper - * N bits as the index into the table. - * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally - * allocated for the hash table that is not for an - * entry will use the system heap. - */ - -#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 -#define TCL_HASH_KEY_SYSTEM_HASH 0x2 - -/* - * Structure definition for the methods associated with a hash table key type. - */ - -#define TCL_HASH_KEY_TYPE_VERSION 1 -struct Tcl_HashKeyType { - int version; /* Version of the table. If this structure is - * extended in future then the version can be - * used to distinguish between different - * structures. */ - int flags; /* Flags, see above for details. */ - Tcl_HashKeyProc *hashKeyProc; - /* Calculates a hash value for the key. If - * this is NULL then the pointer itself is - * used as a hash value. */ - Tcl_CompareHashKeysProc *compareKeysProc; - /* Compares two keys and returns zero if they - * do not match, and non-zero if they do. If - * this is NULL then the pointers are - * compared. */ - Tcl_AllocHashEntryProc *allocEntryProc; - /* Called to allocate memory for a new entry, - * i.e. if the key is a string then this could - * allocate a single block which contains - * enough space for both the entry and the - * string. Only the key field of the allocated - * Tcl_HashEntry structure needs to be filled - * in. If something else needs to be done to - * the key, i.e. incrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Alloc is - * used to allocate enough space for a - * Tcl_HashEntry and the key pointer is - * assigned to key.oneWordValue. */ - Tcl_FreeHashEntryProc *freeEntryProc; - /* Called to free memory associated with an - * entry. If something else needs to be done - * to the key, i.e. decrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Free is - * used to free the Tcl_HashEntry. */ -}; - -/* - * Structure definition for a hash table. Must be in tcl.h so clients can - * allocate space for these structures, but clients should never access any - * fields in this structure. - */ - -#define TCL_SMALL_HASH_TABLE 4 -struct Tcl_HashTable { - Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables (to - * avoid mallocs and frees). */ - int numBuckets; /* Total number of buckets allocated at - * **bucketPtr. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int downShift; /* Shift count used in hashing function. - * Designed to use high-order bits of - * randomized keys. */ - int mask; /* Mask value used in hashing function. */ - int keyType; /* Type of keys used in this table. It's - * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, - * TCL_ONE_WORD_KEYS, or an integer giving the - * number of ints that is the size of the - * key. */ - Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key)); - Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key, int *newPtr)); - Tcl_HashKeyType *typePtr; /* Type of the keys used in the - * Tcl_HashTable. */ -}; - -/* - * Structure definition for information used to keep track of searches through - * hash tables: - */ - -typedef struct Tcl_HashSearch { - Tcl_HashTable *tablePtr; /* Table being searched. */ - int nextIndex; /* Index of next bucket to be enumerated after - * present one. */ - Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current - * bucket. */ -} Tcl_HashSearch; - -/* - * Acceptable key types for hash tables: - * - * TCL_STRING_KEYS: The keys are strings, they are copied into the - * entry. - * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored - * in the entry. - * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied - * into the entry. - * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the - * pointer is stored in the entry. - * - * While maintaining binary compatibility the above have to be distinct values - * as they are used to differentiate between old versions of the hash table - * which don't have a typePtr and new ones which do. Once binary compatibility - * is discarded in favour of making more wide spread changes TCL_STRING_KEYS - * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the - * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is - * accessed from the entry and not the behaviour. - */ - -#define TCL_STRING_KEYS 0 -#define TCL_ONE_WORD_KEYS 1 -#define TCL_CUSTOM_TYPE_KEYS -2 -#define TCL_CUSTOM_PTR_KEYS -1 - -/* - * Structure definition for information used to keep track of searches through - * dictionaries. These fields should not be accessed by code outside - * tclDictObj.c - */ - -typedef struct { - void *next; /* Search position for underlying hash - * table. */ - int epoch; /* Epoch marker for dictionary being searched, - * or -1 if search has terminated. */ - Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ -} Tcl_DictSearch; - -/* - * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of - * events: - */ - -#define TCL_DONT_WAIT (1<<1) -#define TCL_WINDOW_EVENTS (1<<2) -#define TCL_FILE_EVENTS (1<<3) -#define TCL_TIMER_EVENTS (1<<4) -#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ -#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) - -/* - * The following structure defines a generic event for the Tcl event system. - * These are the things that are queued in calls to Tcl_QueueEvent and - * serviced later by Tcl_DoOneEvent. There can be many different kinds of - * events with different fields, corresponding to window events, timer events, - * etc. The structure for a particular event consists of a Tcl_Event header - * followed by additional information specific to that event. - */ - -struct Tcl_Event { - Tcl_EventProc *proc; /* Function to call to service this event. */ - struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ -}; - -/* - * Positions to pass to Tcl_QueueEvent: - */ - -typedef enum { - TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK -} Tcl_QueuePosition; - -/* - * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier - * event routines. - */ - -#define TCL_SERVICE_NONE 0 -#define TCL_SERVICE_ALL 1 - -/* - * The following structure keeps is used to hold a time value, either as an - * absolute time (the number of seconds from the epoch) or as an elapsed time. - * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. - */ - -typedef struct Tcl_Time { - long sec; /* Seconds. */ - long usec; /* Microseconds. */ -} Tcl_Time; - -typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); -typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); - -/* - * TIP #233 (Virtualized Time) - */ - -typedef void (Tcl_GetTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, - ClientData clientData)); -typedef void (Tcl_ScaleTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, - ClientData clientData)); - -/* - * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to - * indicate what sorts of events are of interest: - */ - -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) - -/* - * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition - * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in - * Tcl_GetStdChannel. - */ - -#define TCL_STDIN (1<<1) -#define TCL_STDOUT (1<<2) -#define TCL_STDERR (1<<3) -#define TCL_ENFORCE_MODE (1<<4) - -/* - * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel - * should be closed. - */ - -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) - -/* - * Value to use as the closeProc for a channel that supports the close2Proc - * interface. - */ - -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) - -/* - * Channel version tag. This was introduced in 8.3.2/8.4. - */ - -#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) -#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) -#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) -#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) -#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) - -/* - * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. - */ - -#define TCL_CHANNEL_THREAD_INSERT (0) -#define TCL_CHANNEL_THREAD_REMOVE (1) - -/* - * Typedefs for the various operations in a channel type: - */ - -typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( - ClientData instanceData, int mode)); -typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp)); -typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp, int flags)); -typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, - char *buf, int toRead, int *errorCodePtr)); -typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, - CONST84 char *buf, int toWrite, int *errorCodePtr)); -typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, - long offset, int mode, int *errorCodePtr)); -typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST char *optionName, CONST char *value)); -typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST84 char *optionName, Tcl_DString *dsPtr)); -typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( - ClientData instanceData, int mask)); -typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( - ClientData instanceData, int direction, - ClientData *handlePtr)); -typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_((ClientData instanceData)); -typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( - ClientData instanceData, int interestMask)); -typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt offset, - int mode, int *errorCodePtr)); -/* - * TIP #218, Channel Thread Actions - */ -typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( - ClientData instanceData, int action)); -/* - * TIP #208, File Truncation (etc.) - */ -typedef int (Tcl_DriverTruncateProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt length)); - -/* - * struct Tcl_ChannelType: - * - * One such structure exists for each type (kind) of channel. It collects - * together in one place all the functions that are part of the specific - * channel type. - * - * It is recommend that the Tcl_Channel* functions are used to access elements - * of this structure, instead of direct accessing. - */ - -typedef struct Tcl_ChannelType { - char *typeName; /* The name of the channel type in Tcl - * commands. This storage is owned by channel - * type. */ - Tcl_ChannelTypeVersion version; - /* Version of the channel type. */ - Tcl_DriverCloseProc *closeProc; - /* Function to call to close the channel, or - * TCL_CLOSE2PROC if the close2Proc should be - * used instead. */ - Tcl_DriverInputProc *inputProc; - /* Function to call for input on channel. */ - Tcl_DriverOutputProc *outputProc; - /* Function to call for output on channel. */ - Tcl_DriverSeekProc *seekProc; - /* Function to call to seek on the channel. - * May be NULL. */ - Tcl_DriverSetOptionProc *setOptionProc; - /* Set an option on a channel. */ - Tcl_DriverGetOptionProc *getOptionProc; - /* Get an option from a channel. */ - Tcl_DriverWatchProc *watchProc; - /* Set up the notifier to watch for events on - * this channel. */ - Tcl_DriverGetHandleProc *getHandleProc; - /* Get an OS handle from the channel or NULL - * if not supported. */ - Tcl_DriverClose2Proc *close2Proc; - /* Function to call to close the channel if - * the device supports closing the read & - * write sides independently. */ - Tcl_DriverBlockModeProc *blockModeProc; - /* Set blocking mode for the raw channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_2 channels or later. - */ - Tcl_DriverFlushProc *flushProc; - /* Function to call to flush a channel. May be - * NULL. */ - Tcl_DriverHandlerProc *handlerProc; - /* Function to call to handle a channel event. - * This will be passed up the stacked channel - * chain. */ - /* - * Only valid in TCL_CHANNEL_VERSION_3 channels or later. - */ - Tcl_DriverWideSeekProc *wideSeekProc; - /* Function to call to seek on the channel - * which can handle 64-bit offsets. May be - * NULL, and must be NULL if seekProc is - * NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_4 channels or later. - * TIP #218, Channel Thread Actions. - */ - Tcl_DriverThreadActionProc *threadActionProc; - /* Function to call to notify the driver of - * thread specific activity for a channel. May - * be NULL. */ - - /* - * Only valid in TCL_CHANNEL_VERSION_5 channels or later. - * TIP #208, File Truncation. - */ - Tcl_DriverTruncateProc *truncateProc; - /* Function to call to truncate the underlying - * file to a particular length. May be NULL if - * the channel does not support truncation. */ -} Tcl_ChannelType; - -/* - * The following flags determine whether the blockModeProc above should set - * the channel into blocking or nonblocking mode. They are passed as arguments - * to the blockModeProc function in the above structure. - */ - -#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ -#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking - * mode. */ - -/* - * Enum for different types of file paths. - */ - -typedef enum Tcl_PathType { - TCL_PATH_ABSOLUTE, - TCL_PATH_RELATIVE, - TCL_PATH_VOLUME_RELATIVE -} Tcl_PathType; - -/* - * The following structure is used to pass glob type data amongst the various - * glob routines and Tcl_FSMatchInDirectory. - */ - -typedef struct Tcl_GlobTypeData { - int type; /* Corresponds to bcdpfls as in 'find -t'. */ - int perm; /* Corresponds to file permissions. */ - Tcl_Obj *macType; /* Acceptable Mac type. */ - Tcl_Obj *macCreator; /* Acceptable Mac creator. */ -} Tcl_GlobTypeData; - -/* - * Type and permission definitions for glob command. - */ - -#define TCL_GLOB_TYPE_BLOCK (1<<0) -#define TCL_GLOB_TYPE_CHAR (1<<1) -#define TCL_GLOB_TYPE_DIR (1<<2) -#define TCL_GLOB_TYPE_PIPE (1<<3) -#define TCL_GLOB_TYPE_FILE (1<<4) -#define TCL_GLOB_TYPE_LINK (1<<5) -#define TCL_GLOB_TYPE_SOCK (1<<6) -#define TCL_GLOB_TYPE_MOUNT (1<<7) - -#define TCL_GLOB_PERM_RONLY (1<<0) -#define TCL_GLOB_PERM_HIDDEN (1<<1) -#define TCL_GLOB_PERM_R (1<<2) -#define TCL_GLOB_PERM_W (1<<3) -#define TCL_GLOB_PERM_X (1<<4) - -/* - * Flags for the unload callback function. - */ - -#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) -#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) - -/* - * Typedefs for the various filesystem operations: - */ - -typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); -typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); -typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions)); -typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, - Tcl_GlobTypeData * types)); -typedef Tcl_Obj * (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_StatBuf *buf)); -typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)); -typedef Tcl_Obj * (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); -/* We have to declare the utime structure here. */ -struct utimbuf; -typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - struct utimbuf *tval)); -typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint)); -typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); -typedef CONST char ** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); -typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); -typedef Tcl_Obj * (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_Obj *toPtr, int linkType)); -typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr, - Tcl_FSUnloadFileProc **unloadProcPtr)); -typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - ClientData *clientDataPtr)); -typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); -typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); -typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData)); -typedef ClientData (Tcl_FSDupInternalRepProc) _ANSI_ARGS_(( - ClientData clientData)); -typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) _ANSI_ARGS_(( - ClientData clientData)); -typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); - -typedef struct Tcl_FSVersion_ *Tcl_FSVersion; - -/* - *---------------------------------------------------------------- - * Data structures related to hooking into the filesystem - *---------------------------------------------------------------- - */ - -/* - * Filesystem version tag. This was introduced in 8.4. - */ -#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) - -/* - * struct Tcl_Filesystem: - * - * One such structure exists for each type (kind) of filesystem. It collects - * together in one place all the functions that are part of the specific - * filesystem. Tcl always accesses the filesystem through one of these - * structures. - * - * Not all entries need be non-NULL; any which are NULL are simply ignored. - * However, a complete filesystem should provide all of these functions. The - * explanations in the structure show the importance of each function. - */ - -typedef struct Tcl_Filesystem { - CONST char *typeName; /* The name of the filesystem. */ - int structureLength; /* Length of this structure, so future binary - * compatibility can be assured. */ - Tcl_FSVersion version; /* Version of the filesystem type. */ - Tcl_FSPathInFilesystemProc *pathInFilesystemProc; - /* Function to check whether a path is in this - * filesystem. This is the most important - * filesystem function. */ - Tcl_FSDupInternalRepProc *dupInternalRepProc; - /* Function to duplicate internal fs rep. May - * be NULL (but then fs is less efficient). */ - Tcl_FSFreeInternalRepProc *freeInternalRepProc; - /* Function to free internal fs rep. Must be - * implemented if internal representations - * need freeing, otherwise it can be NULL. */ - Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; - /* Function to convert internal representation - * to a normalized path. Only required if the - * fs creates pure path objects with no - * string/path representation. */ - Tcl_FSCreateInternalRepProc *createInternalRepProc; - /* Function to create a filesystem-specific - * internal representation. May be NULL if - * paths have no internal representation, or - * if the Tcl_FSPathInFilesystemProc for this - * filesystem always immediately creates an - * internal representation for paths it - * accepts. */ - Tcl_FSNormalizePathProc *normalizePathProc; - /* Function to normalize a path. Should be - * implemented for all filesystems which can - * have multiple string representations for - * the same path object. */ - Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; - /* Function to determine the type of a path in - * this filesystem. May be NULL. */ - Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; - /* Function to return the separator - * character(s) for this filesystem. Must be - * implemented. */ - Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. - * Must be implemented for any reasonable - * filesystem. */ - Tcl_FSAccessProc *accessProc; - /* Function to process a 'Tcl_FSAccess()' - * call. Must be implemented for any - * reasonable filesystem. */ - Tcl_FSOpenFileChannelProc *openFileChannelProc; - /* Function to process a - * 'Tcl_FSOpenFileChannel()' call. Must be - * implemented for any reasonable - * filesystem. */ - Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; - /* Function to process a - * 'Tcl_FSMatchInDirectory()'. If not - * implemented, then glob and recursive copy - * functionality will be lacking in the - * filesystem. */ - Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. - * Required to allow setting (not reading) of - * times with 'file mtime', 'file atime' and - * the open-r/open-w/fcopy implementation of - * 'file copy'. */ - Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. - * Should be implemented only if the - * filesystem supports links (reading or - * creating). */ - Tcl_FSListVolumesProc *listVolumesProc; - /* Function to list any filesystem volumes - * added by this filesystem. Should be - * implemented only if the filesystem adds - * volumes at the head of the filesystem. */ - Tcl_FSFileAttrStringsProc *fileAttrStringsProc; - /* Function to list all attributes strings - * which are valid for this filesystem. If not - * implemented the filesystem will not support - * the 'file attributes' command. This allows - * arbitrary additional information to be - * attached to files in the filesystem. */ - Tcl_FSFileAttrsGetProc *fileAttrsGetProc; - /* Function to process a - * 'Tcl_FSFileAttrsGet()' call, used by 'file - * attributes'. */ - Tcl_FSFileAttrsSetProc *fileAttrsSetProc; - /* Function to process a - * 'Tcl_FSFileAttrsSet()' call, used by 'file - * attributes'. */ - Tcl_FSCreateDirectoryProc *createDirectoryProc; - /* Function to process a - * 'Tcl_FSCreateDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSRemoveDirectoryProc *removeDirectoryProc; - /* Function to process a - * 'Tcl_FSRemoveDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSDeleteFileProc *deleteFileProc; - /* Function to process a 'Tcl_FSDeleteFile()' - * call. Should be implemented unless the FS - * is read-only. */ - Tcl_FSCopyFileProc *copyFileProc; - /* Function to process a 'Tcl_FSCopyFile()' - * call. If not implemented Tcl will fall back - * on open-r, open-w and fcopy as a copying - * mechanism, for copying actions initiated in - * Tcl (not C). */ - Tcl_FSRenameFileProc *renameFileProc; - /* Function to process a 'Tcl_FSRenameFile()' - * call. If not implemented, Tcl will fall - * back on a copy and delete mechanism, for - * rename actions initiated in Tcl (not C). */ - Tcl_FSCopyDirectoryProc *copyDirectoryProc; - /* Function to process a - * 'Tcl_FSCopyDirectory()' call. If not - * implemented, Tcl will fall back on a - * recursive create-dir, file copy mechanism, - * for copying actions initiated in Tcl (not - * C). */ - Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. - * If not implemented, Tcl will attempt to use - * the 'statProc' defined above instead. */ - Tcl_FSLoadFileProc *loadFileProc; - /* Function to process a 'Tcl_FSLoadFile()' - * call. If not implemented, Tcl will fall - * back on a copy to native-temp followed by a - * Tcl_FSLoadFile on that temporary copy. */ - Tcl_FSGetCwdProc *getCwdProc; - /* Function to process a 'Tcl_FSGetCwd()' - * call. Most filesystems need not implement - * this. It will usually only be called once, - * if 'getcwd' is called before 'chdir'. May - * be NULL. */ - Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. - * If filesystems do not implement this, it - * will be emulated by a series of directory - * access checks. Otherwise, virtual - * filesystems which do implement it need only - * respond with a positive return result if - * the dirName is a valid directory in their - * filesystem. They need not remember the - * result, since that will be automatically - * remembered for use by GetCwd. Real - * filesystems should carry out the correct - * action (i.e. call the correct system - * 'chdir' api). If not implemented, then 'cd' - * and 'pwd' will fail inside the - * filesystem. */ -} Tcl_Filesystem; - -/* - * The following definitions are used as values for the 'linkAction' flag to - * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can - * be given. For link creation, the linkProc should create a link which - * matches any of the types given. - * - * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. - * TCL_CREATE_HARD_LINK - Create a hard link. - */ - -#define TCL_CREATE_SYMBOLIC_LINK 0x01 -#define TCL_CREATE_HARD_LINK 0x02 - -/* - * The following structure represents the Notifier functions that you can - * override with the Tcl_SetNotifier call. - */ - -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; - -/* - * The following structure represents a user-defined encoding. It collects - * together all the functions that are used by the specific encoding. - */ - -typedef struct Tcl_EncodingType { - CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". - * This name is the unique key for this - * encoding type. */ - Tcl_EncodingConvertProc *toUtfProc; - /* Function to convert from external encoding - * into UTF-8. */ - Tcl_EncodingConvertProc *fromUtfProc; - /* Function to convert from UTF-8 into - * external encoding. */ - Tcl_EncodingFreeProc *freeProc; - /* If non-NULL, function to call when this - * encoding is deleted. */ - ClientData clientData; /* Arbitrary value associated with encoding - * type. Passed to conversion functions. */ - int nullSize; /* Number of zero bytes that signify - * end-of-string in this encoding. This number - * is used to determine the source string - * length when the srcLen argument is - * negative. Must be 1 or 2. */ -} Tcl_EncodingType; - -/* - * The following definitions are used as values for the conversion control - * flags argument when converting text from one character set to another: - * - * TCL_ENCODING_START - Signifies that the source buffer is the first - * block in a (potentially multi-block) input - * stream. Tells the conversion function to reset - * to an initial state and perform any - * initialization that needs to occur before the - * first byte is converted. If the source buffer - * contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_END - Signifies that the source buffer is the last - * block in a (potentially multi-block) input - * stream. Tells the conversion routine to - * perform any finalization that needs to occur - * after the last byte is converted and then to - * reset to an initial state. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_STOPONERROR - If set, then the converter will return - * immediately upon encountering an invalid byte - * sequence or a source character that has no - * mapping in the target encoding. If clear, then - * the converter will skip the problem, - * substituting one or more "close" characters in - * the destination buffer and then continue to - * convert the source. - */ - -#define TCL_ENCODING_START 0x01 -#define TCL_ENCODING_END 0x02 -#define TCL_ENCODING_STOPONERROR 0x04 - -/* - * The following data structures and declarations are for the new Tcl parser. - */ - -/* - * For each word of a command, and for each piece of a word such as a variable - * reference, one of the following structures is created to describe the - * token. - */ - -typedef struct Tcl_Token { - int type; /* Type of token, such as TCL_TOKEN_WORD; see - * below for valid types. */ - CONST char *start; /* First character in token. */ - int size; /* Number of bytes in token. */ - int numComponents; /* If this token is composed of other tokens, - * this field tells how many of them there are - * (including components of components, etc.). - * The component tokens immediately follow - * this one. */ -} Tcl_Token; - -/* - * Type values defined for Tcl_Token structures. These values are defined as - * mask bits so that it's easy to check for collections of types. - * - * TCL_TOKEN_WORD - The token describes one word of a command, - * from the first non-blank character of the word - * (which may be " or {) up to but not including - * the space, semicolon, or bracket that - * terminates the word. NumComponents counts the - * total number of sub-tokens that make up the - * word. This includes, for example, sub-tokens - * of TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except - * that the word is guaranteed to consist of a - * single TCL_TOKEN_TEXT sub-token. - * TCL_TOKEN_TEXT - The token describes a range of literal text - * that is part of a word. NumComponents is - * always 0. - * TCL_TOKEN_BS - The token describes a backslash sequence that - * must be collapsed. NumComponents is always 0. - * TCL_TOKEN_COMMAND - The token describes a command whose result - * must be substituted into the word. The token - * includes the enclosing brackets. NumComponents - * is always 0. - * TCL_TOKEN_VARIABLE - The token describes a variable substitution, - * including the dollar sign, variable name, and - * array index (if there is one) up through the - * right parentheses. NumComponents tells how - * many additional tokens follow to represent the - * variable name. The first token will be a - * TCL_TOKEN_TEXT token that describes the - * variable name. If the variable is an array - * reference then there will be one or more - * additional tokens, of type TCL_TOKEN_TEXT, - * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and - * TCL_TOKEN_VARIABLE, that describe the array - * index; numComponents counts the total number - * of nested tokens that make up the variable - * reference, including sub-tokens of - * TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an - * expression, from the first non-blank character - * of the subexpression up to but not including - * the space, brace, or bracket that terminates - * the subexpression. NumComponents counts the - * total number of following subtokens that make - * up the subexpression; this includes all - * subtokens for any nested TCL_TOKEN_SUB_EXPR - * tokens. For example, a numeric value used as a - * primitive operand is described by a - * TCL_TOKEN_SUB_EXPR token followed by a - * TCL_TOKEN_TEXT token. A binary subexpression - * is described by a TCL_TOKEN_SUB_EXPR token - * followed by the TCL_TOKEN_OPERATOR token for - * the operator, then TCL_TOKEN_SUB_EXPR tokens - * for the left then the right operands. - * TCL_TOKEN_OPERATOR - The token describes one expression operator. - * An operator might be the name of a math - * function such as "abs". A TCL_TOKEN_OPERATOR - * token is always preceeded by one - * TCL_TOKEN_SUB_EXPR token for the operator's - * subexpression, and is followed by zero or more - * TCL_TOKEN_SUB_EXPR tokens for the operator's - * operands. NumComponents is always 0. - * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except - * that it marks a word that began with the - * literal character prefix "{*}". This word is - * marked to be expanded - that is, broken into - * words after substitution is complete. - */ - -#define TCL_TOKEN_WORD 1 -#define TCL_TOKEN_SIMPLE_WORD 2 -#define TCL_TOKEN_TEXT 4 -#define TCL_TOKEN_BS 8 -#define TCL_TOKEN_COMMAND 16 -#define TCL_TOKEN_VARIABLE 32 -#define TCL_TOKEN_SUB_EXPR 64 -#define TCL_TOKEN_OPERATOR 128 -#define TCL_TOKEN_EXPAND_WORD 256 - -/* - * Parsing error types. On any parsing error, one of these values will be - * stored in the error field of the Tcl_Parse structure defined below. - */ - -#define TCL_PARSE_SUCCESS 0 -#define TCL_PARSE_QUOTE_EXTRA 1 -#define TCL_PARSE_BRACE_EXTRA 2 -#define TCL_PARSE_MISSING_BRACE 3 -#define TCL_PARSE_MISSING_BRACKET 4 -#define TCL_PARSE_MISSING_PAREN 5 -#define TCL_PARSE_MISSING_QUOTE 6 -#define TCL_PARSE_MISSING_VAR_BRACE 7 -#define TCL_PARSE_SYNTAX 8 -#define TCL_PARSE_BAD_NUMBER 9 - -/* - * A structure of the following type is filled in by Tcl_ParseCommand. It - * describes a single command parsed from an input string. - */ - -#define NUM_STATIC_TOKENS 20 - -typedef struct Tcl_Parse { - CONST char *commentStart; /* Pointer to # that begins the first of one - * or more comments preceding the command. */ - int commentSize; /* Number of bytes in comments (up through - * newline character that terminates the last - * comment). If there were no comments, this - * field is 0. */ - CONST char *commandStart; /* First character in first word of - * command. */ - int commandSize; /* Number of bytes in command, including first - * character of first word, up through the - * terminating newline, close bracket, or - * semicolon. */ - int numWords; /* Total number of words in command. May be - * 0. */ - Tcl_Token *tokenPtr; /* Pointer to first token representing the - * words of the command. Initially points to - * staticTokens, but may change to point to - * malloc-ed space if command exceeds space in - * staticTokens. */ - int numTokens; /* Total number of tokens in command. */ - int tokensAvailable; /* Total number of tokens available at - * *tokenPtr. */ - int errorType; /* One of the parsing error types defined - * above. */ - - /* - * The fields below are intended only for the private use of the parser. - * They should not be used by functions that invoke Tcl_ParseCommand. - */ - - CONST char *string; /* The original command string passed to - * Tcl_ParseCommand. */ - CONST char *end; /* Points to the character just after the last - * one in the command string. */ - Tcl_Interp *interp; /* Interpreter to use for error reporting, or - * NULL. */ - CONST char *term; /* Points to character in string that - * terminated most recent token. Filled in by - * ParseTokens. If an error occurs, points to - * beginning of region where the error - * occurred (e.g. the open brace if the close - * brace is missing). */ - int incomplete; /* This field is set to 1 by Tcl_ParseCommand - * if the command appears to be incomplete. - * This information is used by - * Tcl_CommandComplete. */ - Tcl_Token staticTokens[NUM_STATIC_TOKENS]; - /* Initial space for tokens for command. This - * space should be large enough to accommodate - * most commands; dynamic space is allocated - * for very large commands that don't fit - * here. */ -} Tcl_Parse; - -/* - * The following definitions are the error codes returned by the conversion - * routines: - * - * TCL_OK - All characters were converted. - * TCL_CONVERT_NOSPACE - The output buffer would not have been large - * enough for all of the converted data; as many - * characters as could fit were converted though. - * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were - * the beginning of a multibyte sequence, but - * more bytes were needed to complete this - * sequence. A subsequent call to the conversion - * routine should pass the beginning of this - * unconverted sequence plus additional bytes - * from the source stream to properly convert the - * formerly split-up multibyte sequence. - * TCL_CONVERT_SYNTAX - The source stream contained an invalid - * character sequence. This may occur if the - * input stream has been damaged or if the input - * encoding method was misidentified. This error - * is reported only if TCL_ENCODING_STOPONERROR - * was specified. - * TCL_CONVERT_UNKNOWN - The source string contained a character that - * could not be represented in the target - * encoding. This error is reported only if - * TCL_ENCODING_STOPONERROR was specified. - */ - -#define TCL_CONVERT_MULTIBYTE -1 -#define TCL_CONVERT_SYNTAX -2 -#define TCL_CONVERT_UNKNOWN -3 -#define TCL_CONVERT_NOSPACE -4 - -/* - * The maximum number of bytes that are necessary to represent a single - * Unicode character in UTF-8. The valid values should be 3 or 6 (or perhaps 1 - * if we want to support a non-unicode enabled core). If 3, then Tcl_UniChar - * must be 2-bytes in size (UCS-2) (the default). If 6, then Tcl_UniChar must - * be 4-bytes in size (UCS-4). At this time UCS-2 mode is the default and - * recommended mode. UCS-4 is experimental and not recommended. It works for - * the core, but most extensions expect UCS-2. - */ - -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 3 -#endif - -/* - * This represents a Unicode character. Any changes to this should also be - * reflected in regcustom.h. - */ - -#if TCL_UTF_MAX > 4 - /* - * unsigned int isn't 100% accurate as it should be a strict 4-byte value - * (perhaps wchar_t). 64-bit systems may have troubles. The size of this - * value must be reflected correctly in regcustom.h and - * in tclEncoding.c. - * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode - * XXX: string rep that Tcl_UniChar represents. Changing the size - * XXX: of Tcl_UniChar is /not/ supported. - */ -typedef unsigned int Tcl_UniChar; -#else -typedef unsigned short Tcl_UniChar; -#endif - -/* - * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to - * provide the system with the embedded configuration data. - */ - -typedef struct Tcl_Config { - CONST char *key; /* Configuration key to register. ASCII - * encoded, thus UTF-8. */ - CONST char *value; /* The value associated with the key. System - * encoding. */ -} Tcl_Config; - -/* - * Flags for TIP#143 limits, detailing which limits are active in an - * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. - */ - -#define TCL_LIMIT_COMMANDS 0x01 -#define TCL_LIMIT_TIME 0x02 - -/* - * Structure containing information about a limit handler to be called when a - * command- or time-limit is exceeded by an interpreter. - */ - -typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientData)); - -typedef struct mp_int mp_int; -#define MP_INT_DECLARED -typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED - -/* - * The following constant is used to test for older versions of Tcl in the - * stubs tables. - * - * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different - * value since the stubs tables don't match. - */ - -#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) - -/* - * The following function is required to be defined in all stubs aware - * extensions. The function is actually implemented in the stub library, not - * the main Tcl library, although there is a trivial implementation in the - * main library in case an extension is statically linked into an application. - */ - -EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); -EXTERN CONST char * TclTomMathInitializeStubs _ANSI_ARGS_(( - Tcl_Interp *interp, CONST char *version, - int epoch, int revision)); - -#ifndef USE_TCL_STUBS - -/* - * When not using stubs, make it a macro. - */ - -#define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgInitStubsCheck(interp, version, exact) - -#endif - - /* - * TODO - tommath stubs export goes here! - */ - - -/* - * Public functions that are not accessible via the stubs table. - * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] - */ - -EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, - Tcl_AppInitProc *appInitProc)); -EXTERN CONST char * Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); -#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) -EXTERN void Tcl_GetMemoryInfo _ANSI_ARGS_((Tcl_DString *dsPtr)); -#endif - -/* - * Include the public function declarations that are accessible via the stubs - * table. - */ - -#include "tclDecls.h" - -/* - * Include platform specific public function declarations that are accessible - * via the stubs table. - */ - -#include "tclPlatDecls.h" - -/* - * The following declarations either map ckalloc and ckfree to malloc and - * free, or they map them to functions with all sorts of debugging hooks - * defined in tclCkalloc.c. - */ - -#ifdef TCL_MEM_DEBUG - -# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) -# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) -# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) -# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) -# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) - -#else /* !TCL_MEM_DEBUG */ - -/* - * If we are not using the debugging allocator, we should call the Tcl_Alloc, - * et al. routines in order to guarantee that every module is using the same - * memory allocator both inside and outside of the Tcl library. - */ - -# define ckalloc(x) Tcl_Alloc(x) -# define ckfree(x) Tcl_Free(x) -# define ckrealloc(x,y) Tcl_Realloc(x,y) -# define attemptckalloc(x) Tcl_AttemptAlloc(x) -# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) -# undef Tcl_InitMemory -# define Tcl_InitMemory(x) -# undef Tcl_DumpActiveMemory -# define Tcl_DumpActiveMemory(x) -# undef Tcl_ValidateAllMemory -# define Tcl_ValidateAllMemory(x,y) - -#endif /* !TCL_MEM_DEBUG */ - -#ifdef TCL_MEM_DEBUG -# define Tcl_IncrRefCount(objPtr) \ - Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_DecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_IsShared(objPtr) \ - Tcl_DbIsShared(objPtr, __FILE__, __LINE__) -#else -# define Tcl_IncrRefCount(objPtr) \ - ++(objPtr)->refCount - /* - * Use do/while0 idiom for optimum correctness without compiler warnings. - * http://c2.com/cgi/wiki?TrivialDoWhileLoop - */ -# define Tcl_DecrRefCount(objPtr) \ - do { \ - Tcl_Obj *_objPtr = (objPtr); \ - if (--(_objPtr)->refCount <= 0) { \ - TclFreeObj(_objPtr); \ - } \ - } while(0) -# define Tcl_IsShared(objPtr) \ - ((objPtr)->refCount > 1) -#endif - -/* - * Macros and definitions that help to debug the use of Tcl objects. When - * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call - * debugging versions of the object creation functions. - */ - -#ifdef TCL_MEM_DEBUG -# undef Tcl_NewBignumObj -# define Tcl_NewBignumObj(val) \ - Tcl_DbNewBignumObj(val, __FILE__, __LINE__) -# undef Tcl_NewBooleanObj -# define Tcl_NewBooleanObj(val) \ - Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) -# undef Tcl_NewByteArrayObj -# define Tcl_NewByteArrayObj(bytes, len) \ - Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewDoubleObj -# define Tcl_NewDoubleObj(val) \ - Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) -# undef Tcl_NewIntObj -# define Tcl_NewIntObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewListObj -# define Tcl_NewListObj(objc, objv) \ - Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) -# undef Tcl_NewLongObj -# define Tcl_NewLongObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewObj -# define Tcl_NewObj() \ - Tcl_DbNewObj(__FILE__, __LINE__) -# undef Tcl_NewStringObj -# define Tcl_NewStringObj(bytes, len) \ - Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewWideIntObj -# define Tcl_NewWideIntObj(val) \ - Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) -#endif /* TCL_MEM_DEBUG */ - -/* - * Macros for clients to use to access fields of hash entries: - */ - -#define Tcl_GetHashValue(h) ((h)->clientData) -#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) -#define Tcl_GetHashKey(tablePtr, h) \ - ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ - (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) - -/* - * Macros to use for clients to use to invoke find and create functions for - * hash tables: - */ - -#undef Tcl_FindHashEntry -#define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, key) -#undef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, key, newPtr) - -/* - * Macros that eliminate the overhead of the thread synchronization functions - * when compiling without thread support. - */ - -#ifndef TCL_THREADS -#undef Tcl_MutexLock -#define Tcl_MutexLock(mutexPtr) -#undef Tcl_MutexUnlock -#define Tcl_MutexUnlock(mutexPtr) -#undef Tcl_MutexFinalize -#define Tcl_MutexFinalize(mutexPtr) -#undef Tcl_ConditionNotify -#define Tcl_ConditionNotify(condPtr) -#undef Tcl_ConditionWait -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#undef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize(condPtr) -#endif /* TCL_THREADS */ - -#ifndef TCL_NO_DEPRECATED - /* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibilty. - */ - -# define Tcl_Ckalloc Tcl_Alloc -# define Tcl_Ckfree Tcl_Free -# define Tcl_Ckrealloc Tcl_Realloc -# define Tcl_Return Tcl_SetResult -# define Tcl_TildeSubst Tcl_TranslateFileName -#if !defined(__APPLE__) /* On OSX, there is a conflict with "mach/mach.h" */ -# define panic Tcl_Panic -#endif -# define panicVA Tcl_PanicVA -#endif - -/* - * Convenience declaration of Tcl_AppInit for backwards compatibility. This - * function is not *implemented* by the tcl library, so the storage class is - * neither DLLEXPORT nor DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS - -EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TCL */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclDecls.h deleted file mode 100644 index a1dbb260b..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclDecls.h +++ /dev/null @@ -1,6709 +0,0 @@ -/* - * tclDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLDECLS -#define _TCLDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef Tcl_PkgProvideEx_TCL_DECLARED -#define Tcl_PkgProvideEx_TCL_DECLARED -/* 0 */ -EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, - CONST char *name, CONST char *version, - ClientData clientData); -#endif -#ifndef Tcl_PkgRequireEx_TCL_DECLARED -#define Tcl_PkgRequireEx_TCL_DECLARED -/* 1 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact, ClientData *clientDataPtr); -#endif -#ifndef Tcl_Panic_TCL_DECLARED -#define Tcl_Panic_TCL_DECLARED -/* 2 */ -EXTERN void Tcl_Panic(CONST char *format, ...); -#endif -#ifndef Tcl_Alloc_TCL_DECLARED -#define Tcl_Alloc_TCL_DECLARED -/* 3 */ -EXTERN char * Tcl_Alloc(unsigned int size); -#endif -#ifndef Tcl_Free_TCL_DECLARED -#define Tcl_Free_TCL_DECLARED -/* 4 */ -EXTERN void Tcl_Free(char *ptr); -#endif -#ifndef Tcl_Realloc_TCL_DECLARED -#define Tcl_Realloc_TCL_DECLARED -/* 5 */ -EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); -#endif -#ifndef Tcl_DbCkalloc_TCL_DECLARED -#define Tcl_DbCkalloc_TCL_DECLARED -/* 6 */ -EXTERN char * Tcl_DbCkalloc(unsigned int size, CONST char *file, - int line); -#endif -#ifndef Tcl_DbCkfree_TCL_DECLARED -#define Tcl_DbCkfree_TCL_DECLARED -/* 7 */ -EXTERN void Tcl_DbCkfree(char *ptr, CONST char *file, int line); -#endif -#ifndef Tcl_DbCkrealloc_TCL_DECLARED -#define Tcl_DbCkrealloc_TCL_DECLARED -/* 8 */ -EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, - CONST char *file, int line); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler_TCL_DECLARED -#define Tcl_CreateFileHandler_TCL_DECLARED -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_CreateFileHandler_TCL_DECLARED -#define Tcl_CreateFileHandler_TCL_DECLARED -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler_TCL_DECLARED -#define Tcl_DeleteFileHandler_TCL_DECLARED -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DeleteFileHandler_TCL_DECLARED -#define Tcl_DeleteFileHandler_TCL_DECLARED -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif -#endif /* MACOSX */ -#ifndef Tcl_SetTimer_TCL_DECLARED -#define Tcl_SetTimer_TCL_DECLARED -/* 11 */ -EXTERN void Tcl_SetTimer(Tcl_Time *timePtr); -#endif -#ifndef Tcl_Sleep_TCL_DECLARED -#define Tcl_Sleep_TCL_DECLARED -/* 12 */ -EXTERN void Tcl_Sleep(int ms); -#endif -#ifndef Tcl_WaitForEvent_TCL_DECLARED -#define Tcl_WaitForEvent_TCL_DECLARED -/* 13 */ -EXTERN int Tcl_WaitForEvent(Tcl_Time *timePtr); -#endif -#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED -#define Tcl_AppendAllObjTypes_TCL_DECLARED -/* 14 */ -EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_AppendStringsToObj_TCL_DECLARED -#define Tcl_AppendStringsToObj_TCL_DECLARED -/* 15 */ -EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); -#endif -#ifndef Tcl_AppendToObj_TCL_DECLARED -#define Tcl_AppendToObj_TCL_DECLARED -/* 16 */ -EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, CONST char *bytes, - int length); -#endif -#ifndef Tcl_ConcatObj_TCL_DECLARED -#define Tcl_ConcatObj_TCL_DECLARED -/* 17 */ -EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ConvertToType_TCL_DECLARED -#define Tcl_ConvertToType_TCL_DECLARED -/* 18 */ -EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_ObjType *typePtr); -#endif -#ifndef Tcl_DbDecrRefCount_TCL_DECLARED -#define Tcl_DbDecrRefCount_TCL_DECLARED -/* 19 */ -EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file, - int line); -#endif -#ifndef Tcl_DbIncrRefCount_TCL_DECLARED -#define Tcl_DbIncrRefCount_TCL_DECLARED -/* 20 */ -EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file, - int line); -#endif -#ifndef Tcl_DbIsShared_TCL_DECLARED -#define Tcl_DbIsShared_TCL_DECLARED -/* 21 */ -EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, - int line); -#endif -#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED -#define Tcl_DbNewBooleanObj_TCL_DECLARED -/* 22 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, - int line); -#endif -#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED -#define Tcl_DbNewByteArrayObj_TCL_DECLARED -/* 23 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, - int length, CONST char *file, int line); -#endif -#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED -#define Tcl_DbNewDoubleObj_TCL_DECLARED -/* 24 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, - CONST char *file, int line); -#endif -#ifndef Tcl_DbNewListObj_TCL_DECLARED -#define Tcl_DbNewListObj_TCL_DECLARED -/* 25 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, - CONST char *file, int line); -#endif -#ifndef Tcl_DbNewLongObj_TCL_DECLARED -#define Tcl_DbNewLongObj_TCL_DECLARED -/* 26 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, - int line); -#endif -#ifndef Tcl_DbNewObj_TCL_DECLARED -#define Tcl_DbNewObj_TCL_DECLARED -/* 27 */ -EXTERN Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line); -#endif -#ifndef Tcl_DbNewStringObj_TCL_DECLARED -#define Tcl_DbNewStringObj_TCL_DECLARED -/* 28 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, - CONST char *file, int line); -#endif -#ifndef Tcl_DuplicateObj_TCL_DECLARED -#define Tcl_DuplicateObj_TCL_DECLARED -/* 29 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); -#endif -#ifndef TclFreeObj_TCL_DECLARED -#define TclFreeObj_TCL_DECLARED -/* 30 */ -EXTERN void TclFreeObj(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetBoolean_TCL_DECLARED -#define Tcl_GetBoolean_TCL_DECLARED -/* 31 */ -EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *src, - int *boolPtr); -#endif -#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED -#define Tcl_GetBooleanFromObj_TCL_DECLARED -/* 32 */ -EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *boolPtr); -#endif -#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED -#define Tcl_GetByteArrayFromObj_TCL_DECLARED -/* 33 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -#endif -#ifndef Tcl_GetDouble_TCL_DECLARED -#define Tcl_GetDouble_TCL_DECLARED -/* 34 */ -EXTERN int Tcl_GetDouble(Tcl_Interp *interp, CONST char *src, - double *doublePtr); -#endif -#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED -#define Tcl_GetDoubleFromObj_TCL_DECLARED -/* 35 */ -EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *doublePtr); -#endif -#ifndef Tcl_GetIndexFromObj_TCL_DECLARED -#define Tcl_GetIndexFromObj_TCL_DECLARED -/* 36 */ -EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST84 char **tablePtr, - CONST char *msg, int flags, int *indexPtr); -#endif -#ifndef Tcl_GetInt_TCL_DECLARED -#define Tcl_GetInt_TCL_DECLARED -/* 37 */ -EXTERN int Tcl_GetInt(Tcl_Interp *interp, CONST char *src, - int *intPtr); -#endif -#ifndef Tcl_GetIntFromObj_TCL_DECLARED -#define Tcl_GetIntFromObj_TCL_DECLARED -/* 38 */ -EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *intPtr); -#endif -#ifndef Tcl_GetLongFromObj_TCL_DECLARED -#define Tcl_GetLongFromObj_TCL_DECLARED -/* 39 */ -EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, long *longPtr); -#endif -#ifndef Tcl_GetObjType_TCL_DECLARED -#define Tcl_GetObjType_TCL_DECLARED -/* 40 */ -EXTERN Tcl_ObjType * Tcl_GetObjType(CONST char *typeName); -#endif -#ifndef Tcl_GetStringFromObj_TCL_DECLARED -#define Tcl_GetStringFromObj_TCL_DECLARED -/* 41 */ -EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); -#endif -#ifndef Tcl_InvalidateStringRep_TCL_DECLARED -#define Tcl_InvalidateStringRep_TCL_DECLARED -/* 42 */ -EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_ListObjAppendList_TCL_DECLARED -#define Tcl_ListObjAppendList_TCL_DECLARED -/* 43 */ -EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); -#endif -#ifndef Tcl_ListObjAppendElement_TCL_DECLARED -#define Tcl_ListObjAppendElement_TCL_DECLARED -/* 44 */ -EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_ListObjGetElements_TCL_DECLARED -#define Tcl_ListObjGetElements_TCL_DECLARED -/* 45 */ -EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *objcPtr, - Tcl_Obj ***objvPtr); -#endif -#ifndef Tcl_ListObjIndex_TCL_DECLARED -#define Tcl_ListObjIndex_TCL_DECLARED -/* 46 */ -EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj **objPtrPtr); -#endif -#ifndef Tcl_ListObjLength_TCL_DECLARED -#define Tcl_ListObjLength_TCL_DECLARED -/* 47 */ -EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *lengthPtr); -#endif -#ifndef Tcl_ListObjReplace_TCL_DECLARED -#define Tcl_ListObjReplace_TCL_DECLARED -/* 48 */ -EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, - Tcl_Obj *listPtr, int first, int count, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_NewBooleanObj_TCL_DECLARED -#define Tcl_NewBooleanObj_TCL_DECLARED -/* 49 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); -#endif -#ifndef Tcl_NewByteArrayObj_TCL_DECLARED -#define Tcl_NewByteArrayObj_TCL_DECLARED -/* 50 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj(CONST unsigned char *bytes, - int length); -#endif -#ifndef Tcl_NewDoubleObj_TCL_DECLARED -#define Tcl_NewDoubleObj_TCL_DECLARED -/* 51 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); -#endif -#ifndef Tcl_NewIntObj_TCL_DECLARED -#define Tcl_NewIntObj_TCL_DECLARED -/* 52 */ -EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); -#endif -#ifndef Tcl_NewListObj_TCL_DECLARED -#define Tcl_NewListObj_TCL_DECLARED -/* 53 */ -EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_NewLongObj_TCL_DECLARED -#define Tcl_NewLongObj_TCL_DECLARED -/* 54 */ -EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); -#endif -#ifndef Tcl_NewObj_TCL_DECLARED -#define Tcl_NewObj_TCL_DECLARED -/* 55 */ -EXTERN Tcl_Obj * Tcl_NewObj(void); -#endif -#ifndef Tcl_NewStringObj_TCL_DECLARED -#define Tcl_NewStringObj_TCL_DECLARED -/* 56 */ -EXTERN Tcl_Obj * Tcl_NewStringObj(CONST char *bytes, int length); -#endif -#ifndef Tcl_SetBooleanObj_TCL_DECLARED -#define Tcl_SetBooleanObj_TCL_DECLARED -/* 57 */ -EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); -#endif -#ifndef Tcl_SetByteArrayLength_TCL_DECLARED -#define Tcl_SetByteArrayLength_TCL_DECLARED -/* 58 */ -EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); -#endif -#ifndef Tcl_SetByteArrayObj_TCL_DECLARED -#define Tcl_SetByteArrayObj_TCL_DECLARED -/* 59 */ -EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, - CONST unsigned char *bytes, int length); -#endif -#ifndef Tcl_SetDoubleObj_TCL_DECLARED -#define Tcl_SetDoubleObj_TCL_DECLARED -/* 60 */ -EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); -#endif -#ifndef Tcl_SetIntObj_TCL_DECLARED -#define Tcl_SetIntObj_TCL_DECLARED -/* 61 */ -EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); -#endif -#ifndef Tcl_SetListObj_TCL_DECLARED -#define Tcl_SetListObj_TCL_DECLARED -/* 62 */ -EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_SetLongObj_TCL_DECLARED -#define Tcl_SetLongObj_TCL_DECLARED -/* 63 */ -EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); -#endif -#ifndef Tcl_SetObjLength_TCL_DECLARED -#define Tcl_SetObjLength_TCL_DECLARED -/* 64 */ -EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); -#endif -#ifndef Tcl_SetStringObj_TCL_DECLARED -#define Tcl_SetStringObj_TCL_DECLARED -/* 65 */ -EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, CONST char *bytes, - int length); -#endif -#ifndef Tcl_AddErrorInfo_TCL_DECLARED -#define Tcl_AddErrorInfo_TCL_DECLARED -/* 66 */ -EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, - CONST char *message); -#endif -#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED -#define Tcl_AddObjErrorInfo_TCL_DECLARED -/* 67 */ -EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, - CONST char *message, int length); -#endif -#ifndef Tcl_AllowExceptions_TCL_DECLARED -#define Tcl_AllowExceptions_TCL_DECLARED -/* 68 */ -EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); -#endif -#ifndef Tcl_AppendElement_TCL_DECLARED -#define Tcl_AppendElement_TCL_DECLARED -/* 69 */ -EXTERN void Tcl_AppendElement(Tcl_Interp *interp, - CONST char *element); -#endif -#ifndef Tcl_AppendResult_TCL_DECLARED -#define Tcl_AppendResult_TCL_DECLARED -/* 70 */ -EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); -#endif -#ifndef Tcl_AsyncCreate_TCL_DECLARED -#define Tcl_AsyncCreate_TCL_DECLARED -/* 71 */ -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_AsyncDelete_TCL_DECLARED -#define Tcl_AsyncDelete_TCL_DECLARED -/* 72 */ -EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); -#endif -#ifndef Tcl_AsyncInvoke_TCL_DECLARED -#define Tcl_AsyncInvoke_TCL_DECLARED -/* 73 */ -EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); -#endif -#ifndef Tcl_AsyncMark_TCL_DECLARED -#define Tcl_AsyncMark_TCL_DECLARED -/* 74 */ -EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); -#endif -#ifndef Tcl_AsyncReady_TCL_DECLARED -#define Tcl_AsyncReady_TCL_DECLARED -/* 75 */ -EXTERN int Tcl_AsyncReady(void); -#endif -#ifndef Tcl_BackgroundError_TCL_DECLARED -#define Tcl_BackgroundError_TCL_DECLARED -/* 76 */ -EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); -#endif -#ifndef Tcl_Backslash_TCL_DECLARED -#define Tcl_Backslash_TCL_DECLARED -/* 77 */ -EXTERN char Tcl_Backslash(CONST char *src, int *readPtr); -#endif -#ifndef Tcl_BadChannelOption_TCL_DECLARED -#define Tcl_BadChannelOption_TCL_DECLARED -/* 78 */ -EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, - CONST char *optionName, - CONST char *optionList); -#endif -#ifndef Tcl_CallWhenDeleted_TCL_DECLARED -#define Tcl_CallWhenDeleted_TCL_DECLARED -/* 79 */ -EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_CancelIdleCall_TCL_DECLARED -#define Tcl_CancelIdleCall_TCL_DECLARED -/* 80 */ -EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, - ClientData clientData); -#endif -#ifndef Tcl_Close_TCL_DECLARED -#define Tcl_Close_TCL_DECLARED -/* 81 */ -EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); -#endif -#ifndef Tcl_CommandComplete_TCL_DECLARED -#define Tcl_CommandComplete_TCL_DECLARED -/* 82 */ -EXTERN int Tcl_CommandComplete(CONST char *cmd); -#endif -#ifndef Tcl_Concat_TCL_DECLARED -#define Tcl_Concat_TCL_DECLARED -/* 83 */ -EXTERN char * Tcl_Concat(int argc, CONST84 char *CONST *argv); -#endif -#ifndef Tcl_ConvertElement_TCL_DECLARED -#define Tcl_ConvertElement_TCL_DECLARED -/* 84 */ -EXTERN int Tcl_ConvertElement(CONST char *src, char *dst, - int flags); -#endif -#ifndef Tcl_ConvertCountedElement_TCL_DECLARED -#define Tcl_ConvertCountedElement_TCL_DECLARED -/* 85 */ -EXTERN int Tcl_ConvertCountedElement(CONST char *src, - int length, char *dst, int flags); -#endif -#ifndef Tcl_CreateAlias_TCL_DECLARED -#define Tcl_CreateAlias_TCL_DECLARED -/* 86 */ -EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, - CONST char *slaveCmd, Tcl_Interp *target, - CONST char *targetCmd, int argc, - CONST84 char *CONST *argv); -#endif -#ifndef Tcl_CreateAliasObj_TCL_DECLARED -#define Tcl_CreateAliasObj_TCL_DECLARED -/* 87 */ -EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, - CONST char *slaveCmd, Tcl_Interp *target, - CONST char *targetCmd, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_CreateChannel_TCL_DECLARED -#define Tcl_CreateChannel_TCL_DECLARED -/* 88 */ -EXTERN Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, - CONST char *chanName, - ClientData instanceData, int mask); -#endif -#ifndef Tcl_CreateChannelHandler_TCL_DECLARED -#define Tcl_CreateChannelHandler_TCL_DECLARED -/* 89 */ -EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, - Tcl_ChannelProc *proc, ClientData clientData); -#endif -#ifndef Tcl_CreateCloseHandler_TCL_DECLARED -#define Tcl_CreateCloseHandler_TCL_DECLARED -/* 90 */ -EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -#endif -#ifndef Tcl_CreateCommand_TCL_DECLARED -#define Tcl_CreateCommand_TCL_DECLARED -/* 91 */ -EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, - CONST char *cmdName, Tcl_CmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -#endif -#ifndef Tcl_CreateEventSource_TCL_DECLARED -#define Tcl_CreateEventSource_TCL_DECLARED -/* 92 */ -EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -#endif -#ifndef Tcl_CreateExitHandler_TCL_DECLARED -#define Tcl_CreateExitHandler_TCL_DECLARED -/* 93 */ -EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_CreateInterp_TCL_DECLARED -#define Tcl_CreateInterp_TCL_DECLARED -/* 94 */ -EXTERN Tcl_Interp * Tcl_CreateInterp(void); -#endif -#ifndef Tcl_CreateMathFunc_TCL_DECLARED -#define Tcl_CreateMathFunc_TCL_DECLARED -/* 95 */ -EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, - CONST char *name, int numArgs, - Tcl_ValueType *argTypes, Tcl_MathProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_CreateObjCommand_TCL_DECLARED -#define Tcl_CreateObjCommand_TCL_DECLARED -/* 96 */ -EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, - CONST char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -#endif -#ifndef Tcl_CreateSlave_TCL_DECLARED -#define Tcl_CreateSlave_TCL_DECLARED -/* 97 */ -EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, - CONST char *slaveName, int isSafe); -#endif -#ifndef Tcl_CreateTimerHandler_TCL_DECLARED -#define Tcl_CreateTimerHandler_TCL_DECLARED -/* 98 */ -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, - Tcl_TimerProc *proc, ClientData clientData); -#endif -#ifndef Tcl_CreateTrace_TCL_DECLARED -#define Tcl_CreateTrace_TCL_DECLARED -/* 99 */ -EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, - Tcl_CmdTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteAssocData_TCL_DECLARED -#define Tcl_DeleteAssocData_TCL_DECLARED -/* 100 */ -EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, - CONST char *name); -#endif -#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED -#define Tcl_DeleteChannelHandler_TCL_DECLARED -/* 101 */ -EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, - Tcl_ChannelProc *proc, ClientData clientData); -#endif -#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED -#define Tcl_DeleteCloseHandler_TCL_DECLARED -/* 102 */ -EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -#endif -#ifndef Tcl_DeleteCommand_TCL_DECLARED -#define Tcl_DeleteCommand_TCL_DECLARED -/* 103 */ -EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, - CONST char *cmdName); -#endif -#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED -#define Tcl_DeleteCommandFromToken_TCL_DECLARED -/* 104 */ -EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, - Tcl_Command command); -#endif -#ifndef Tcl_DeleteEvents_TCL_DECLARED -#define Tcl_DeleteEvents_TCL_DECLARED -/* 105 */ -EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteEventSource_TCL_DECLARED -#define Tcl_DeleteEventSource_TCL_DECLARED -/* 106 */ -EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteExitHandler_TCL_DECLARED -#define Tcl_DeleteExitHandler_TCL_DECLARED -/* 107 */ -EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteHashEntry_TCL_DECLARED -#define Tcl_DeleteHashEntry_TCL_DECLARED -/* 108 */ -EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); -#endif -#ifndef Tcl_DeleteHashTable_TCL_DECLARED -#define Tcl_DeleteHashTable_TCL_DECLARED -/* 109 */ -EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); -#endif -#ifndef Tcl_DeleteInterp_TCL_DECLARED -#define Tcl_DeleteInterp_TCL_DECLARED -/* 110 */ -EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); -#endif -#ifndef Tcl_DetachPids_TCL_DECLARED -#define Tcl_DetachPids_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef Tcl_DeleteTimerHandler_TCL_DECLARED -#define Tcl_DeleteTimerHandler_TCL_DECLARED -/* 112 */ -EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); -#endif -#ifndef Tcl_DeleteTrace_TCL_DECLARED -#define Tcl_DeleteTrace_TCL_DECLARED -/* 113 */ -EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); -#endif -#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED -#define Tcl_DontCallWhenDeleted_TCL_DECLARED -/* 114 */ -EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DoOneEvent_TCL_DECLARED -#define Tcl_DoOneEvent_TCL_DECLARED -/* 115 */ -EXTERN int Tcl_DoOneEvent(int flags); -#endif -#ifndef Tcl_DoWhenIdle_TCL_DECLARED -#define Tcl_DoWhenIdle_TCL_DECLARED -/* 116 */ -EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DStringAppend_TCL_DECLARED -#define Tcl_DStringAppend_TCL_DECLARED -/* 117 */ -EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, - CONST char *bytes, int length); -#endif -#ifndef Tcl_DStringAppendElement_TCL_DECLARED -#define Tcl_DStringAppendElement_TCL_DECLARED -/* 118 */ -EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, - CONST char *element); -#endif -#ifndef Tcl_DStringEndSublist_TCL_DECLARED -#define Tcl_DStringEndSublist_TCL_DECLARED -/* 119 */ -EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringFree_TCL_DECLARED -#define Tcl_DStringFree_TCL_DECLARED -/* 120 */ -EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringGetResult_TCL_DECLARED -#define Tcl_DStringGetResult_TCL_DECLARED -/* 121 */ -EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringInit_TCL_DECLARED -#define Tcl_DStringInit_TCL_DECLARED -/* 122 */ -EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringResult_TCL_DECLARED -#define Tcl_DStringResult_TCL_DECLARED -/* 123 */ -EXTERN void Tcl_DStringResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringSetLength_TCL_DECLARED -#define Tcl_DStringSetLength_TCL_DECLARED -/* 124 */ -EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); -#endif -#ifndef Tcl_DStringStartSublist_TCL_DECLARED -#define Tcl_DStringStartSublist_TCL_DECLARED -/* 125 */ -EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_Eof_TCL_DECLARED -#define Tcl_Eof_TCL_DECLARED -/* 126 */ -EXTERN int Tcl_Eof(Tcl_Channel chan); -#endif -#ifndef Tcl_ErrnoId_TCL_DECLARED -#define Tcl_ErrnoId_TCL_DECLARED -/* 127 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); -#endif -#ifndef Tcl_ErrnoMsg_TCL_DECLARED -#define Tcl_ErrnoMsg_TCL_DECLARED -/* 128 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); -#endif -#ifndef Tcl_Eval_TCL_DECLARED -#define Tcl_Eval_TCL_DECLARED -/* 129 */ -EXTERN int Tcl_Eval(Tcl_Interp *interp, CONST char *script); -#endif -#ifndef Tcl_EvalFile_TCL_DECLARED -#define Tcl_EvalFile_TCL_DECLARED -/* 130 */ -EXTERN int Tcl_EvalFile(Tcl_Interp *interp, - CONST char *fileName); -#endif -#ifndef Tcl_EvalObj_TCL_DECLARED -#define Tcl_EvalObj_TCL_DECLARED -/* 131 */ -EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_EventuallyFree_TCL_DECLARED -#define Tcl_EventuallyFree_TCL_DECLARED -/* 132 */ -EXTERN void Tcl_EventuallyFree(ClientData clientData, - Tcl_FreeProc *freeProc); -#endif -#ifndef Tcl_Exit_TCL_DECLARED -#define Tcl_Exit_TCL_DECLARED -/* 133 */ -EXTERN void Tcl_Exit(int status); -#endif -#ifndef Tcl_ExposeCommand_TCL_DECLARED -#define Tcl_ExposeCommand_TCL_DECLARED -/* 134 */ -EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, - CONST char *hiddenCmdToken, - CONST char *cmdName); -#endif -#ifndef Tcl_ExprBoolean_TCL_DECLARED -#define Tcl_ExprBoolean_TCL_DECLARED -/* 135 */ -EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *expr, - int *ptr); -#endif -#ifndef Tcl_ExprBooleanObj_TCL_DECLARED -#define Tcl_ExprBooleanObj_TCL_DECLARED -/* 136 */ -EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *ptr); -#endif -#ifndef Tcl_ExprDouble_TCL_DECLARED -#define Tcl_ExprDouble_TCL_DECLARED -/* 137 */ -EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *expr, - double *ptr); -#endif -#ifndef Tcl_ExprDoubleObj_TCL_DECLARED -#define Tcl_ExprDoubleObj_TCL_DECLARED -/* 138 */ -EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *ptr); -#endif -#ifndef Tcl_ExprLong_TCL_DECLARED -#define Tcl_ExprLong_TCL_DECLARED -/* 139 */ -EXTERN int Tcl_ExprLong(Tcl_Interp *interp, CONST char *expr, - long *ptr); -#endif -#ifndef Tcl_ExprLongObj_TCL_DECLARED -#define Tcl_ExprLongObj_TCL_DECLARED -/* 140 */ -EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - long *ptr); -#endif -#ifndef Tcl_ExprObj_TCL_DECLARED -#define Tcl_ExprObj_TCL_DECLARED -/* 141 */ -EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Obj **resultPtrPtr); -#endif -#ifndef Tcl_ExprString_TCL_DECLARED -#define Tcl_ExprString_TCL_DECLARED -/* 142 */ -EXTERN int Tcl_ExprString(Tcl_Interp *interp, CONST char *expr); -#endif -#ifndef Tcl_Finalize_TCL_DECLARED -#define Tcl_Finalize_TCL_DECLARED -/* 143 */ -EXTERN void Tcl_Finalize(void); -#endif -#ifndef Tcl_FindExecutable_TCL_DECLARED -#define Tcl_FindExecutable_TCL_DECLARED -/* 144 */ -EXTERN void Tcl_FindExecutable(CONST char *argv0); -#endif -#ifndef Tcl_FirstHashEntry_TCL_DECLARED -#define Tcl_FirstHashEntry_TCL_DECLARED -/* 145 */ -EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, - Tcl_HashSearch *searchPtr); -#endif -#ifndef Tcl_Flush_TCL_DECLARED -#define Tcl_Flush_TCL_DECLARED -/* 146 */ -EXTERN int Tcl_Flush(Tcl_Channel chan); -#endif -#ifndef Tcl_FreeResult_TCL_DECLARED -#define Tcl_FreeResult_TCL_DECLARED -/* 147 */ -EXTERN void Tcl_FreeResult(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetAlias_TCL_DECLARED -#define Tcl_GetAlias_TCL_DECLARED -/* 148 */ -EXTERN int Tcl_GetAlias(Tcl_Interp *interp, - CONST char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *argcPtr, - CONST84 char ***argvPtr); -#endif -#ifndef Tcl_GetAliasObj_TCL_DECLARED -#define Tcl_GetAliasObj_TCL_DECLARED -/* 149 */ -EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, - CONST char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *objcPtr, - Tcl_Obj ***objv); -#endif -#ifndef Tcl_GetAssocData_TCL_DECLARED -#define Tcl_GetAssocData_TCL_DECLARED -/* 150 */ -EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, - CONST char *name, - Tcl_InterpDeleteProc **procPtr); -#endif -#ifndef Tcl_GetChannel_TCL_DECLARED -#define Tcl_GetChannel_TCL_DECLARED -/* 151 */ -EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, - CONST char *chanName, int *modePtr); -#endif -#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED -#define Tcl_GetChannelBufferSize_TCL_DECLARED -/* 152 */ -EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelHandle_TCL_DECLARED -#define Tcl_GetChannelHandle_TCL_DECLARED -/* 153 */ -EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, - ClientData *handlePtr); -#endif -#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED -#define Tcl_GetChannelInstanceData_TCL_DECLARED -/* 154 */ -EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelMode_TCL_DECLARED -#define Tcl_GetChannelMode_TCL_DECLARED -/* 155 */ -EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelName_TCL_DECLARED -#define Tcl_GetChannelName_TCL_DECLARED -/* 156 */ -EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelOption_TCL_DECLARED -#define Tcl_GetChannelOption_TCL_DECLARED -/* 157 */ -EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, CONST char *optionName, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_GetChannelType_TCL_DECLARED -#define Tcl_GetChannelType_TCL_DECLARED -/* 158 */ -EXTERN Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); -#endif -#ifndef Tcl_GetCommandInfo_TCL_DECLARED -#define Tcl_GetCommandInfo_TCL_DECLARED -/* 159 */ -EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, - CONST char *cmdName, Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_GetCommandName_TCL_DECLARED -#define Tcl_GetCommandName_TCL_DECLARED -/* 160 */ -EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, - Tcl_Command command); -#endif -#ifndef Tcl_GetErrno_TCL_DECLARED -#define Tcl_GetErrno_TCL_DECLARED -/* 161 */ -EXTERN int Tcl_GetErrno(void); -#endif -#ifndef Tcl_GetHostName_TCL_DECLARED -#define Tcl_GetHostName_TCL_DECLARED -/* 162 */ -EXTERN CONST84_RETURN char * Tcl_GetHostName(void); -#endif -#ifndef Tcl_GetInterpPath_TCL_DECLARED -#define Tcl_GetInterpPath_TCL_DECLARED -/* 163 */ -EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, - Tcl_Interp *slaveInterp); -#endif -#ifndef Tcl_GetMaster_TCL_DECLARED -#define Tcl_GetMaster_TCL_DECLARED -/* 164 */ -EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED -#define Tcl_GetNameOfExecutable_TCL_DECLARED -/* 165 */ -EXTERN CONST char * Tcl_GetNameOfExecutable(void); -#endif -#ifndef Tcl_GetObjResult_TCL_DECLARED -#define Tcl_GetObjResult_TCL_DECLARED -/* 166 */ -EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile_TCL_DECLARED -#define Tcl_GetOpenFile_TCL_DECLARED -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - CONST char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_GetOpenFile_TCL_DECLARED -#define Tcl_GetOpenFile_TCL_DECLARED -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - CONST char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif -#endif /* MACOSX */ -#ifndef Tcl_GetPathType_TCL_DECLARED -#define Tcl_GetPathType_TCL_DECLARED -/* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType(CONST char *path); -#endif -#ifndef Tcl_Gets_TCL_DECLARED -#define Tcl_Gets_TCL_DECLARED -/* 169 */ -EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); -#endif -#ifndef Tcl_GetsObj_TCL_DECLARED -#define Tcl_GetsObj_TCL_DECLARED -/* 170 */ -EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetServiceMode_TCL_DECLARED -#define Tcl_GetServiceMode_TCL_DECLARED -/* 171 */ -EXTERN int Tcl_GetServiceMode(void); -#endif -#ifndef Tcl_GetSlave_TCL_DECLARED -#define Tcl_GetSlave_TCL_DECLARED -/* 172 */ -EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, - CONST char *slaveName); -#endif -#ifndef Tcl_GetStdChannel_TCL_DECLARED -#define Tcl_GetStdChannel_TCL_DECLARED -/* 173 */ -EXTERN Tcl_Channel Tcl_GetStdChannel(int type); -#endif -#ifndef Tcl_GetStringResult_TCL_DECLARED -#define Tcl_GetStringResult_TCL_DECLARED -/* 174 */ -EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetVar_TCL_DECLARED -#define Tcl_GetVar_TCL_DECLARED -/* 175 */ -EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, - CONST char *varName, int flags); -#endif -#ifndef Tcl_GetVar2_TCL_DECLARED -#define Tcl_GetVar2_TCL_DECLARED -/* 176 */ -EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - int flags); -#endif -#ifndef Tcl_GlobalEval_TCL_DECLARED -#define Tcl_GlobalEval_TCL_DECLARED -/* 177 */ -EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, - CONST char *command); -#endif -#ifndef Tcl_GlobalEvalObj_TCL_DECLARED -#define Tcl_GlobalEvalObj_TCL_DECLARED -/* 178 */ -EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_HideCommand_TCL_DECLARED -#define Tcl_HideCommand_TCL_DECLARED -/* 179 */ -EXTERN int Tcl_HideCommand(Tcl_Interp *interp, - CONST char *cmdName, - CONST char *hiddenCmdToken); -#endif -#ifndef Tcl_Init_TCL_DECLARED -#define Tcl_Init_TCL_DECLARED -/* 180 */ -EXTERN int Tcl_Init(Tcl_Interp *interp); -#endif -#ifndef Tcl_InitHashTable_TCL_DECLARED -#define Tcl_InitHashTable_TCL_DECLARED -/* 181 */ -EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, - int keyType); -#endif -#ifndef Tcl_InputBlocked_TCL_DECLARED -#define Tcl_InputBlocked_TCL_DECLARED -/* 182 */ -EXTERN int Tcl_InputBlocked(Tcl_Channel chan); -#endif -#ifndef Tcl_InputBuffered_TCL_DECLARED -#define Tcl_InputBuffered_TCL_DECLARED -/* 183 */ -EXTERN int Tcl_InputBuffered(Tcl_Channel chan); -#endif -#ifndef Tcl_InterpDeleted_TCL_DECLARED -#define Tcl_InterpDeleted_TCL_DECLARED -/* 184 */ -EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); -#endif -#ifndef Tcl_IsSafe_TCL_DECLARED -#define Tcl_IsSafe_TCL_DECLARED -/* 185 */ -EXTERN int Tcl_IsSafe(Tcl_Interp *interp); -#endif -#ifndef Tcl_JoinPath_TCL_DECLARED -#define Tcl_JoinPath_TCL_DECLARED -/* 186 */ -EXTERN char * Tcl_JoinPath(int argc, CONST84 char *CONST *argv, - Tcl_DString *resultPtr); -#endif -#ifndef Tcl_LinkVar_TCL_DECLARED -#define Tcl_LinkVar_TCL_DECLARED -/* 187 */ -EXTERN int Tcl_LinkVar(Tcl_Interp *interp, CONST char *varName, - char *addr, int type); -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel_TCL_DECLARED -#define Tcl_MakeFileChannel_TCL_DECLARED -/* 189 */ -EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); -#endif -#ifndef Tcl_MakeSafe_TCL_DECLARED -#define Tcl_MakeSafe_TCL_DECLARED -/* 190 */ -EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); -#endif -#ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED -#define Tcl_MakeTcpClientChannel_TCL_DECLARED -/* 191 */ -EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); -#endif -#ifndef Tcl_Merge_TCL_DECLARED -#define Tcl_Merge_TCL_DECLARED -/* 192 */ -EXTERN char * Tcl_Merge(int argc, CONST84 char *CONST *argv); -#endif -#ifndef Tcl_NextHashEntry_TCL_DECLARED -#define Tcl_NextHashEntry_TCL_DECLARED -/* 193 */ -EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); -#endif -#ifndef Tcl_NotifyChannel_TCL_DECLARED -#define Tcl_NotifyChannel_TCL_DECLARED -/* 194 */ -EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); -#endif -#ifndef Tcl_ObjGetVar2_TCL_DECLARED -#define Tcl_ObjGetVar2_TCL_DECLARED -/* 195 */ -EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, int flags); -#endif -#ifndef Tcl_ObjSetVar2_TCL_DECLARED -#define Tcl_ObjSetVar2_TCL_DECLARED -/* 196 */ -EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - int flags); -#endif -#ifndef Tcl_OpenCommandChannel_TCL_DECLARED -#define Tcl_OpenCommandChannel_TCL_DECLARED -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, - CONST84 char **argv, int flags); -#endif -#ifndef Tcl_OpenFileChannel_TCL_DECLARED -#define Tcl_OpenFileChannel_TCL_DECLARED -/* 198 */ -EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, - CONST char *fileName, CONST char *modeString, - int permissions); -#endif -#ifndef Tcl_OpenTcpClient_TCL_DECLARED -#define Tcl_OpenTcpClient_TCL_DECLARED -/* 199 */ -EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, - CONST char *address, CONST char *myaddr, - int myport, int async); -#endif -#ifndef Tcl_OpenTcpServer_TCL_DECLARED -#define Tcl_OpenTcpServer_TCL_DECLARED -/* 200 */ -EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, - CONST char *host, - Tcl_TcpAcceptProc *acceptProc, - ClientData callbackData); -#endif -#ifndef Tcl_Preserve_TCL_DECLARED -#define Tcl_Preserve_TCL_DECLARED -/* 201 */ -EXTERN void Tcl_Preserve(ClientData data); -#endif -#ifndef Tcl_PrintDouble_TCL_DECLARED -#define Tcl_PrintDouble_TCL_DECLARED -/* 202 */ -EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, - char *dst); -#endif -#ifndef Tcl_PutEnv_TCL_DECLARED -#define Tcl_PutEnv_TCL_DECLARED -/* 203 */ -EXTERN int Tcl_PutEnv(CONST char *assignment); -#endif -#ifndef Tcl_PosixError_TCL_DECLARED -#define Tcl_PosixError_TCL_DECLARED -/* 204 */ -EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); -#endif -#ifndef Tcl_QueueEvent_TCL_DECLARED -#define Tcl_QueueEvent_TCL_DECLARED -/* 205 */ -EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, - Tcl_QueuePosition position); -#endif -#ifndef Tcl_Read_TCL_DECLARED -#define Tcl_Read_TCL_DECLARED -/* 206 */ -EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); -#endif -#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED -#define Tcl_ReapDetachedProcs_TCL_DECLARED -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs(void); -#endif -#ifndef Tcl_RecordAndEval_TCL_DECLARED -#define Tcl_RecordAndEval_TCL_DECLARED -/* 208 */ -EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, - CONST char *cmd, int flags); -#endif -#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED -#define Tcl_RecordAndEvalObj_TCL_DECLARED -/* 209 */ -EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, - Tcl_Obj *cmdPtr, int flags); -#endif -#ifndef Tcl_RegisterChannel_TCL_DECLARED -#define Tcl_RegisterChannel_TCL_DECLARED -/* 210 */ -EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_RegisterObjType_TCL_DECLARED -#define Tcl_RegisterObjType_TCL_DECLARED -/* 211 */ -EXTERN void Tcl_RegisterObjType(Tcl_ObjType *typePtr); -#endif -#ifndef Tcl_RegExpCompile_TCL_DECLARED -#define Tcl_RegExpCompile_TCL_DECLARED -/* 212 */ -EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, - CONST char *pattern); -#endif -#ifndef Tcl_RegExpExec_TCL_DECLARED -#define Tcl_RegExpExec_TCL_DECLARED -/* 213 */ -EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, - CONST char *text, CONST char *start); -#endif -#ifndef Tcl_RegExpMatch_TCL_DECLARED -#define Tcl_RegExpMatch_TCL_DECLARED -/* 214 */ -EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, CONST char *text, - CONST char *pattern); -#endif -#ifndef Tcl_RegExpRange_TCL_DECLARED -#define Tcl_RegExpRange_TCL_DECLARED -/* 215 */ -EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, - CONST84 char **startPtr, - CONST84 char **endPtr); -#endif -#ifndef Tcl_Release_TCL_DECLARED -#define Tcl_Release_TCL_DECLARED -/* 216 */ -EXTERN void Tcl_Release(ClientData clientData); -#endif -#ifndef Tcl_ResetResult_TCL_DECLARED -#define Tcl_ResetResult_TCL_DECLARED -/* 217 */ -EXTERN void Tcl_ResetResult(Tcl_Interp *interp); -#endif -#ifndef Tcl_ScanElement_TCL_DECLARED -#define Tcl_ScanElement_TCL_DECLARED -/* 218 */ -EXTERN int Tcl_ScanElement(CONST char *src, int *flagPtr); -#endif -#ifndef Tcl_ScanCountedElement_TCL_DECLARED -#define Tcl_ScanCountedElement_TCL_DECLARED -/* 219 */ -EXTERN int Tcl_ScanCountedElement(CONST char *src, int length, - int *flagPtr); -#endif -#ifndef Tcl_SeekOld_TCL_DECLARED -#define Tcl_SeekOld_TCL_DECLARED -/* 220 */ -EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); -#endif -#ifndef Tcl_ServiceAll_TCL_DECLARED -#define Tcl_ServiceAll_TCL_DECLARED -/* 221 */ -EXTERN int Tcl_ServiceAll(void); -#endif -#ifndef Tcl_ServiceEvent_TCL_DECLARED -#define Tcl_ServiceEvent_TCL_DECLARED -/* 222 */ -EXTERN int Tcl_ServiceEvent(int flags); -#endif -#ifndef Tcl_SetAssocData_TCL_DECLARED -#define Tcl_SetAssocData_TCL_DECLARED -/* 223 */ -EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, - CONST char *name, Tcl_InterpDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED -#define Tcl_SetChannelBufferSize_TCL_DECLARED -/* 224 */ -EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); -#endif -#ifndef Tcl_SetChannelOption_TCL_DECLARED -#define Tcl_SetChannelOption_TCL_DECLARED -/* 225 */ -EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, CONST char *optionName, - CONST char *newValue); -#endif -#ifndef Tcl_SetCommandInfo_TCL_DECLARED -#define Tcl_SetCommandInfo_TCL_DECLARED -/* 226 */ -EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, - CONST char *cmdName, - CONST Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_SetErrno_TCL_DECLARED -#define Tcl_SetErrno_TCL_DECLARED -/* 227 */ -EXTERN void Tcl_SetErrno(int err); -#endif -#ifndef Tcl_SetErrorCode_TCL_DECLARED -#define Tcl_SetErrorCode_TCL_DECLARED -/* 228 */ -EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); -#endif -#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED -#define Tcl_SetMaxBlockTime_TCL_DECLARED -/* 229 */ -EXTERN void Tcl_SetMaxBlockTime(Tcl_Time *timePtr); -#endif -#ifndef Tcl_SetPanicProc_TCL_DECLARED -#define Tcl_SetPanicProc_TCL_DECLARED -/* 230 */ -EXTERN void Tcl_SetPanicProc(Tcl_PanicProc *panicProc); -#endif -#ifndef Tcl_SetRecursionLimit_TCL_DECLARED -#define Tcl_SetRecursionLimit_TCL_DECLARED -/* 231 */ -EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); -#endif -#ifndef Tcl_SetResult_TCL_DECLARED -#define Tcl_SetResult_TCL_DECLARED -/* 232 */ -EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, - Tcl_FreeProc *freeProc); -#endif -#ifndef Tcl_SetServiceMode_TCL_DECLARED -#define Tcl_SetServiceMode_TCL_DECLARED -/* 233 */ -EXTERN int Tcl_SetServiceMode(int mode); -#endif -#ifndef Tcl_SetObjErrorCode_TCL_DECLARED -#define Tcl_SetObjErrorCode_TCL_DECLARED -/* 234 */ -EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, - Tcl_Obj *errorObjPtr); -#endif -#ifndef Tcl_SetObjResult_TCL_DECLARED -#define Tcl_SetObjResult_TCL_DECLARED -/* 235 */ -EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, - Tcl_Obj *resultObjPtr); -#endif -#ifndef Tcl_SetStdChannel_TCL_DECLARED -#define Tcl_SetStdChannel_TCL_DECLARED -/* 236 */ -EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); -#endif -#ifndef Tcl_SetVar_TCL_DECLARED -#define Tcl_SetVar_TCL_DECLARED -/* 237 */ -EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, - CONST char *varName, CONST char *newValue, - int flags); -#endif -#ifndef Tcl_SetVar2_TCL_DECLARED -#define Tcl_SetVar2_TCL_DECLARED -/* 238 */ -EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - CONST char *newValue, int flags); -#endif -#ifndef Tcl_SignalId_TCL_DECLARED -#define Tcl_SignalId_TCL_DECLARED -/* 239 */ -EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); -#endif -#ifndef Tcl_SignalMsg_TCL_DECLARED -#define Tcl_SignalMsg_TCL_DECLARED -/* 240 */ -EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); -#endif -#ifndef Tcl_SourceRCFile_TCL_DECLARED -#define Tcl_SourceRCFile_TCL_DECLARED -/* 241 */ -EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); -#endif -#ifndef Tcl_SplitList_TCL_DECLARED -#define Tcl_SplitList_TCL_DECLARED -/* 242 */ -EXTERN int Tcl_SplitList(Tcl_Interp *interp, - CONST char *listStr, int *argcPtr, - CONST84 char ***argvPtr); -#endif -#ifndef Tcl_SplitPath_TCL_DECLARED -#define Tcl_SplitPath_TCL_DECLARED -/* 243 */ -EXTERN void Tcl_SplitPath(CONST char *path, int *argcPtr, - CONST84 char ***argvPtr); -#endif -#ifndef Tcl_StaticPackage_TCL_DECLARED -#define Tcl_StaticPackage_TCL_DECLARED -/* 244 */ -EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, - CONST char *pkgName, - Tcl_PackageInitProc *initProc, - Tcl_PackageInitProc *safeInitProc); -#endif -#ifndef Tcl_StringMatch_TCL_DECLARED -#define Tcl_StringMatch_TCL_DECLARED -/* 245 */ -EXTERN int Tcl_StringMatch(CONST char *str, CONST char *pattern); -#endif -#ifndef Tcl_TellOld_TCL_DECLARED -#define Tcl_TellOld_TCL_DECLARED -/* 246 */ -EXTERN int Tcl_TellOld(Tcl_Channel chan); -#endif -#ifndef Tcl_TraceVar_TCL_DECLARED -#define Tcl_TraceVar_TCL_DECLARED -/* 247 */ -EXTERN int Tcl_TraceVar(Tcl_Interp *interp, CONST char *varName, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_TraceVar2_TCL_DECLARED -#define Tcl_TraceVar2_TCL_DECLARED -/* 248 */ -EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_TranslateFileName_TCL_DECLARED -#define Tcl_TranslateFileName_TCL_DECLARED -/* 249 */ -EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, - CONST char *name, Tcl_DString *bufferPtr); -#endif -#ifndef Tcl_Ungets_TCL_DECLARED -#define Tcl_Ungets_TCL_DECLARED -/* 250 */ -EXTERN int Tcl_Ungets(Tcl_Channel chan, CONST char *str, - int len, int atHead); -#endif -#ifndef Tcl_UnlinkVar_TCL_DECLARED -#define Tcl_UnlinkVar_TCL_DECLARED -/* 251 */ -EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, - CONST char *varName); -#endif -#ifndef Tcl_UnregisterChannel_TCL_DECLARED -#define Tcl_UnregisterChannel_TCL_DECLARED -/* 252 */ -EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_UnsetVar_TCL_DECLARED -#define Tcl_UnsetVar_TCL_DECLARED -/* 253 */ -EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, CONST char *varName, - int flags); -#endif -#ifndef Tcl_UnsetVar2_TCL_DECLARED -#define Tcl_UnsetVar2_TCL_DECLARED -/* 254 */ -EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags); -#endif -#ifndef Tcl_UntraceVar_TCL_DECLARED -#define Tcl_UntraceVar_TCL_DECLARED -/* 255 */ -EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_UntraceVar2_TCL_DECLARED -#define Tcl_UntraceVar2_TCL_DECLARED -/* 256 */ -EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED -#define Tcl_UpdateLinkedVar_TCL_DECLARED -/* 257 */ -EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, - CONST char *varName); -#endif -#ifndef Tcl_UpVar_TCL_DECLARED -#define Tcl_UpVar_TCL_DECLARED -/* 258 */ -EXTERN int Tcl_UpVar(Tcl_Interp *interp, CONST char *frameName, - CONST char *varName, CONST char *localName, - int flags); -#endif -#ifndef Tcl_UpVar2_TCL_DECLARED -#define Tcl_UpVar2_TCL_DECLARED -/* 259 */ -EXTERN int Tcl_UpVar2(Tcl_Interp *interp, CONST char *frameName, - CONST char *part1, CONST char *part2, - CONST char *localName, int flags); -#endif -#ifndef Tcl_VarEval_TCL_DECLARED -#define Tcl_VarEval_TCL_DECLARED -/* 260 */ -EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); -#endif -#ifndef Tcl_VarTraceInfo_TCL_DECLARED -#define Tcl_VarTraceInfo_TCL_DECLARED -/* 261 */ -EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_VarTraceInfo2_TCL_DECLARED -#define Tcl_VarTraceInfo2_TCL_DECLARED -/* 262 */ -EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - int flags, Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_Write_TCL_DECLARED -#define Tcl_Write_TCL_DECLARED -/* 263 */ -EXTERN int Tcl_Write(Tcl_Channel chan, CONST char *s, int slen); -#endif -#ifndef Tcl_WrongNumArgs_TCL_DECLARED -#define Tcl_WrongNumArgs_TCL_DECLARED -/* 264 */ -EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], CONST char *message); -#endif -#ifndef Tcl_DumpActiveMemory_TCL_DECLARED -#define Tcl_DumpActiveMemory_TCL_DECLARED -/* 265 */ -EXTERN int Tcl_DumpActiveMemory(CONST char *fileName); -#endif -#ifndef Tcl_ValidateAllMemory_TCL_DECLARED -#define Tcl_ValidateAllMemory_TCL_DECLARED -/* 266 */ -EXTERN void Tcl_ValidateAllMemory(CONST char *file, int line); -#endif -#ifndef Tcl_AppendResultVA_TCL_DECLARED -#define Tcl_AppendResultVA_TCL_DECLARED -/* 267 */ -EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, - va_list argList); -#endif -#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED -#define Tcl_AppendStringsToObjVA_TCL_DECLARED -/* 268 */ -EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, - va_list argList); -#endif -#ifndef Tcl_HashStats_TCL_DECLARED -#define Tcl_HashStats_TCL_DECLARED -/* 269 */ -EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); -#endif -#ifndef Tcl_ParseVar_TCL_DECLARED -#define Tcl_ParseVar_TCL_DECLARED -/* 270 */ -EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, - CONST char *start, CONST84 char **termPtr); -#endif -#ifndef Tcl_PkgPresent_TCL_DECLARED -#define Tcl_PkgPresent_TCL_DECLARED -/* 271 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact); -#endif -#ifndef Tcl_PkgPresentEx_TCL_DECLARED -#define Tcl_PkgPresentEx_TCL_DECLARED -/* 272 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact, ClientData *clientDataPtr); -#endif -#ifndef Tcl_PkgProvide_TCL_DECLARED -#define Tcl_PkgProvide_TCL_DECLARED -/* 273 */ -EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, - CONST char *version); -#endif -#ifndef Tcl_PkgRequire_TCL_DECLARED -#define Tcl_PkgRequire_TCL_DECLARED -/* 274 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact); -#endif -#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED -#define Tcl_SetErrorCodeVA_TCL_DECLARED -/* 275 */ -EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, - va_list argList); -#endif -#ifndef Tcl_VarEvalVA_TCL_DECLARED -#define Tcl_VarEvalVA_TCL_DECLARED -/* 276 */ -EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); -#endif -#ifndef Tcl_WaitPid_TCL_DECLARED -#define Tcl_WaitPid_TCL_DECLARED -/* 277 */ -EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); -#endif -#ifndef Tcl_PanicVA_TCL_DECLARED -#define Tcl_PanicVA_TCL_DECLARED -/* 278 */ -EXTERN void Tcl_PanicVA(CONST char *format, va_list argList); -#endif -#ifndef Tcl_GetVersion_TCL_DECLARED -#define Tcl_GetVersion_TCL_DECLARED -/* 279 */ -EXTERN void Tcl_GetVersion(int *major, int *minor, - int *patchLevel, int *type); -#endif -#ifndef Tcl_InitMemory_TCL_DECLARED -#define Tcl_InitMemory_TCL_DECLARED -/* 280 */ -EXTERN void Tcl_InitMemory(Tcl_Interp *interp); -#endif -#ifndef Tcl_StackChannel_TCL_DECLARED -#define Tcl_StackChannel_TCL_DECLARED -/* 281 */ -EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, - Tcl_ChannelType *typePtr, - ClientData instanceData, int mask, - Tcl_Channel prevChan); -#endif -#ifndef Tcl_UnstackChannel_TCL_DECLARED -#define Tcl_UnstackChannel_TCL_DECLARED -/* 282 */ -EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_GetStackedChannel_TCL_DECLARED -#define Tcl_GetStackedChannel_TCL_DECLARED -/* 283 */ -EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); -#endif -#ifndef Tcl_SetMainLoop_TCL_DECLARED -#define Tcl_SetMainLoop_TCL_DECLARED -/* 284 */ -EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj_TCL_DECLARED -#define Tcl_AppendObjToObj_TCL_DECLARED -/* 286 */ -EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, - Tcl_Obj *appendObjPtr); -#endif -#ifndef Tcl_CreateEncoding_TCL_DECLARED -#define Tcl_CreateEncoding_TCL_DECLARED -/* 287 */ -EXTERN Tcl_Encoding Tcl_CreateEncoding(CONST Tcl_EncodingType *typePtr); -#endif -#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED -#define Tcl_CreateThreadExitHandler_TCL_DECLARED -/* 288 */ -EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED -#define Tcl_DeleteThreadExitHandler_TCL_DECLARED -/* 289 */ -EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DiscardResult_TCL_DECLARED -#define Tcl_DiscardResult_TCL_DECLARED -/* 290 */ -EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); -#endif -#ifndef Tcl_EvalEx_TCL_DECLARED -#define Tcl_EvalEx_TCL_DECLARED -/* 291 */ -EXTERN int Tcl_EvalEx(Tcl_Interp *interp, CONST char *script, - int numBytes, int flags); -#endif -#ifndef Tcl_EvalObjv_TCL_DECLARED -#define Tcl_EvalObjv_TCL_DECLARED -/* 292 */ -EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], int flags); -#endif -#ifndef Tcl_EvalObjEx_TCL_DECLARED -#define Tcl_EvalObjEx_TCL_DECLARED -/* 293 */ -EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -#endif -#ifndef Tcl_ExitThread_TCL_DECLARED -#define Tcl_ExitThread_TCL_DECLARED -/* 294 */ -EXTERN void Tcl_ExitThread(int status); -#endif -#ifndef Tcl_ExternalToUtf_TCL_DECLARED -#define Tcl_ExternalToUtf_TCL_DECLARED -/* 295 */ -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); -#endif -#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED -#define Tcl_ExternalToUtfDString_TCL_DECLARED -/* 296 */ -EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, - CONST char *src, int srcLen, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_FinalizeThread_TCL_DECLARED -#define Tcl_FinalizeThread_TCL_DECLARED -/* 297 */ -EXTERN void Tcl_FinalizeThread(void); -#endif -#ifndef Tcl_FinalizeNotifier_TCL_DECLARED -#define Tcl_FinalizeNotifier_TCL_DECLARED -/* 298 */ -EXTERN void Tcl_FinalizeNotifier(ClientData clientData); -#endif -#ifndef Tcl_FreeEncoding_TCL_DECLARED -#define Tcl_FreeEncoding_TCL_DECLARED -/* 299 */ -EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); -#endif -#ifndef Tcl_GetCurrentThread_TCL_DECLARED -#define Tcl_GetCurrentThread_TCL_DECLARED -/* 300 */ -EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); -#endif -#ifndef Tcl_GetEncoding_TCL_DECLARED -#define Tcl_GetEncoding_TCL_DECLARED -/* 301 */ -EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name); -#endif -#ifndef Tcl_GetEncodingName_TCL_DECLARED -#define Tcl_GetEncodingName_TCL_DECLARED -/* 302 */ -EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); -#endif -#ifndef Tcl_GetEncodingNames_TCL_DECLARED -#define Tcl_GetEncodingNames_TCL_DECLARED -/* 303 */ -EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED -#define Tcl_GetIndexFromObjStruct_TCL_DECLARED -/* 304 */ -EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST VOID *tablePtr, - int offset, CONST char *msg, int flags, - int *indexPtr); -#endif -#ifndef Tcl_GetThreadData_TCL_DECLARED -#define Tcl_GetThreadData_TCL_DECLARED -/* 305 */ -EXTERN VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, - int size); -#endif -#ifndef Tcl_GetVar2Ex_TCL_DECLARED -#define Tcl_GetVar2Ex_TCL_DECLARED -/* 306 */ -EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags); -#endif -#ifndef Tcl_InitNotifier_TCL_DECLARED -#define Tcl_InitNotifier_TCL_DECLARED -/* 307 */ -EXTERN ClientData Tcl_InitNotifier(void); -#endif -#ifndef Tcl_MutexLock_TCL_DECLARED -#define Tcl_MutexLock_TCL_DECLARED -/* 308 */ -EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); -#endif -#ifndef Tcl_MutexUnlock_TCL_DECLARED -#define Tcl_MutexUnlock_TCL_DECLARED -/* 309 */ -EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); -#endif -#ifndef Tcl_ConditionNotify_TCL_DECLARED -#define Tcl_ConditionNotify_TCL_DECLARED -/* 310 */ -EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); -#endif -#ifndef Tcl_ConditionWait_TCL_DECLARED -#define Tcl_ConditionWait_TCL_DECLARED -/* 311 */ -EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, - Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); -#endif -#ifndef Tcl_NumUtfChars_TCL_DECLARED -#define Tcl_NumUtfChars_TCL_DECLARED -/* 312 */ -EXTERN int Tcl_NumUtfChars(CONST char *src, int length); -#endif -#ifndef Tcl_ReadChars_TCL_DECLARED -#define Tcl_ReadChars_TCL_DECLARED -/* 313 */ -EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, - int charsToRead, int appendFlag); -#endif -#ifndef Tcl_RestoreResult_TCL_DECLARED -#define Tcl_RestoreResult_TCL_DECLARED -/* 314 */ -EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -#endif -#ifndef Tcl_SaveResult_TCL_DECLARED -#define Tcl_SaveResult_TCL_DECLARED -/* 315 */ -EXTERN void Tcl_SaveResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -#endif -#ifndef Tcl_SetSystemEncoding_TCL_DECLARED -#define Tcl_SetSystemEncoding_TCL_DECLARED -/* 316 */ -EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, - CONST char *name); -#endif -#ifndef Tcl_SetVar2Ex_TCL_DECLARED -#define Tcl_SetVar2Ex_TCL_DECLARED -/* 317 */ -EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, Tcl_Obj *newValuePtr, - int flags); -#endif -#ifndef Tcl_ThreadAlert_TCL_DECLARED -#define Tcl_ThreadAlert_TCL_DECLARED -/* 318 */ -EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); -#endif -#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED -#define Tcl_ThreadQueueEvent_TCL_DECLARED -/* 319 */ -EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, - Tcl_Event *evPtr, Tcl_QueuePosition position); -#endif -#ifndef Tcl_UniCharAtIndex_TCL_DECLARED -#define Tcl_UniCharAtIndex_TCL_DECLARED -/* 320 */ -EXTERN Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index); -#endif -#ifndef Tcl_UniCharToLower_TCL_DECLARED -#define Tcl_UniCharToLower_TCL_DECLARED -/* 321 */ -EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); -#endif -#ifndef Tcl_UniCharToTitle_TCL_DECLARED -#define Tcl_UniCharToTitle_TCL_DECLARED -/* 322 */ -EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); -#endif -#ifndef Tcl_UniCharToUpper_TCL_DECLARED -#define Tcl_UniCharToUpper_TCL_DECLARED -/* 323 */ -EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); -#endif -#ifndef Tcl_UniCharToUtf_TCL_DECLARED -#define Tcl_UniCharToUtf_TCL_DECLARED -/* 324 */ -EXTERN int Tcl_UniCharToUtf(int ch, char *buf); -#endif -#ifndef Tcl_UtfAtIndex_TCL_DECLARED -#define Tcl_UtfAtIndex_TCL_DECLARED -/* 325 */ -EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(CONST char *src, int index); -#endif -#ifndef Tcl_UtfCharComplete_TCL_DECLARED -#define Tcl_UtfCharComplete_TCL_DECLARED -/* 326 */ -EXTERN int Tcl_UtfCharComplete(CONST char *src, int length); -#endif -#ifndef Tcl_UtfBackslash_TCL_DECLARED -#define Tcl_UtfBackslash_TCL_DECLARED -/* 327 */ -EXTERN int Tcl_UtfBackslash(CONST char *src, int *readPtr, - char *dst); -#endif -#ifndef Tcl_UtfFindFirst_TCL_DECLARED -#define Tcl_UtfFindFirst_TCL_DECLARED -/* 328 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(CONST char *src, int ch); -#endif -#ifndef Tcl_UtfFindLast_TCL_DECLARED -#define Tcl_UtfFindLast_TCL_DECLARED -/* 329 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindLast(CONST char *src, int ch); -#endif -#ifndef Tcl_UtfNext_TCL_DECLARED -#define Tcl_UtfNext_TCL_DECLARED -/* 330 */ -EXTERN CONST84_RETURN char * Tcl_UtfNext(CONST char *src); -#endif -#ifndef Tcl_UtfPrev_TCL_DECLARED -#define Tcl_UtfPrev_TCL_DECLARED -/* 331 */ -EXTERN CONST84_RETURN char * Tcl_UtfPrev(CONST char *src, CONST char *start); -#endif -#ifndef Tcl_UtfToExternal_TCL_DECLARED -#define Tcl_UtfToExternal_TCL_DECLARED -/* 332 */ -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); -#endif -#ifndef Tcl_UtfToExternalDString_TCL_DECLARED -#define Tcl_UtfToExternalDString_TCL_DECLARED -/* 333 */ -EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, - CONST char *src, int srcLen, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_UtfToLower_TCL_DECLARED -#define Tcl_UtfToLower_TCL_DECLARED -/* 334 */ -EXTERN int Tcl_UtfToLower(char *src); -#endif -#ifndef Tcl_UtfToTitle_TCL_DECLARED -#define Tcl_UtfToTitle_TCL_DECLARED -/* 335 */ -EXTERN int Tcl_UtfToTitle(char *src); -#endif -#ifndef Tcl_UtfToUniChar_TCL_DECLARED -#define Tcl_UtfToUniChar_TCL_DECLARED -/* 336 */ -EXTERN int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr); -#endif -#ifndef Tcl_UtfToUpper_TCL_DECLARED -#define Tcl_UtfToUpper_TCL_DECLARED -/* 337 */ -EXTERN int Tcl_UtfToUpper(char *src); -#endif -#ifndef Tcl_WriteChars_TCL_DECLARED -#define Tcl_WriteChars_TCL_DECLARED -/* 338 */ -EXTERN int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, - int srcLen); -#endif -#ifndef Tcl_WriteObj_TCL_DECLARED -#define Tcl_WriteObj_TCL_DECLARED -/* 339 */ -EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetString_TCL_DECLARED -#define Tcl_GetString_TCL_DECLARED -/* 340 */ -EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED -#define Tcl_GetDefaultEncodingDir_TCL_DECLARED -/* 341 */ -EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); -#endif -#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED -#define Tcl_SetDefaultEncodingDir_TCL_DECLARED -/* 342 */ -EXTERN void Tcl_SetDefaultEncodingDir(CONST char *path); -#endif -#ifndef Tcl_AlertNotifier_TCL_DECLARED -#define Tcl_AlertNotifier_TCL_DECLARED -/* 343 */ -EXTERN void Tcl_AlertNotifier(ClientData clientData); -#endif -#ifndef Tcl_ServiceModeHook_TCL_DECLARED -#define Tcl_ServiceModeHook_TCL_DECLARED -/* 344 */ -EXTERN void Tcl_ServiceModeHook(int mode); -#endif -#ifndef Tcl_UniCharIsAlnum_TCL_DECLARED -#define Tcl_UniCharIsAlnum_TCL_DECLARED -/* 345 */ -EXTERN int Tcl_UniCharIsAlnum(int ch); -#endif -#ifndef Tcl_UniCharIsAlpha_TCL_DECLARED -#define Tcl_UniCharIsAlpha_TCL_DECLARED -/* 346 */ -EXTERN int Tcl_UniCharIsAlpha(int ch); -#endif -#ifndef Tcl_UniCharIsDigit_TCL_DECLARED -#define Tcl_UniCharIsDigit_TCL_DECLARED -/* 347 */ -EXTERN int Tcl_UniCharIsDigit(int ch); -#endif -#ifndef Tcl_UniCharIsLower_TCL_DECLARED -#define Tcl_UniCharIsLower_TCL_DECLARED -/* 348 */ -EXTERN int Tcl_UniCharIsLower(int ch); -#endif -#ifndef Tcl_UniCharIsSpace_TCL_DECLARED -#define Tcl_UniCharIsSpace_TCL_DECLARED -/* 349 */ -EXTERN int Tcl_UniCharIsSpace(int ch); -#endif -#ifndef Tcl_UniCharIsUpper_TCL_DECLARED -#define Tcl_UniCharIsUpper_TCL_DECLARED -/* 350 */ -EXTERN int Tcl_UniCharIsUpper(int ch); -#endif -#ifndef Tcl_UniCharIsWordChar_TCL_DECLARED -#define Tcl_UniCharIsWordChar_TCL_DECLARED -/* 351 */ -EXTERN int Tcl_UniCharIsWordChar(int ch); -#endif -#ifndef Tcl_UniCharLen_TCL_DECLARED -#define Tcl_UniCharLen_TCL_DECLARED -/* 352 */ -EXTERN int Tcl_UniCharLen(CONST Tcl_UniChar *uniStr); -#endif -#ifndef Tcl_UniCharNcmp_TCL_DECLARED -#define Tcl_UniCharNcmp_TCL_DECLARED -/* 353 */ -EXTERN int Tcl_UniCharNcmp(CONST Tcl_UniChar *ucs, - CONST Tcl_UniChar *uct, - unsigned long numChars); -#endif -#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED -#define Tcl_UniCharToUtfDString_TCL_DECLARED -/* 354 */ -EXTERN char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *uniStr, - int uniLength, Tcl_DString *dsPtr); -#endif -#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED -#define Tcl_UtfToUniCharDString_TCL_DECLARED -/* 355 */ -EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *src, int length, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED -#define Tcl_GetRegExpFromObj_TCL_DECLARED -/* 356 */ -EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, - Tcl_Obj *patObj, int flags); -#endif -#ifndef Tcl_EvalTokens_TCL_DECLARED -#define Tcl_EvalTokens_TCL_DECLARED -/* 357 */ -EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -#endif -#ifndef Tcl_FreeParse_TCL_DECLARED -#define Tcl_FreeParse_TCL_DECLARED -/* 358 */ -EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); -#endif -#ifndef Tcl_LogCommandInfo_TCL_DECLARED -#define Tcl_LogCommandInfo_TCL_DECLARED -/* 359 */ -EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, - CONST char *script, CONST char *command, - int length); -#endif -#ifndef Tcl_ParseBraces_TCL_DECLARED -#define Tcl_ParseBraces_TCL_DECLARED -/* 360 */ -EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, - CONST char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -#endif -#ifndef Tcl_ParseCommand_TCL_DECLARED -#define Tcl_ParseCommand_TCL_DECLARED -/* 361 */ -EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, - CONST char *start, int numBytes, int nested, - Tcl_Parse *parsePtr); -#endif -#ifndef Tcl_ParseExpr_TCL_DECLARED -#define Tcl_ParseExpr_TCL_DECLARED -/* 362 */ -EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *start, - int numBytes, Tcl_Parse *parsePtr); -#endif -#ifndef Tcl_ParseQuotedString_TCL_DECLARED -#define Tcl_ParseQuotedString_TCL_DECLARED -/* 363 */ -EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, - CONST char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -#endif -#ifndef Tcl_ParseVarName_TCL_DECLARED -#define Tcl_ParseVarName_TCL_DECLARED -/* 364 */ -EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, - CONST char *start, int numBytes, - Tcl_Parse *parsePtr, int append); -#endif -#ifndef Tcl_GetCwd_TCL_DECLARED -#define Tcl_GetCwd_TCL_DECLARED -/* 365 */ -EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); -#endif -#ifndef Tcl_Chdir_TCL_DECLARED -#define Tcl_Chdir_TCL_DECLARED -/* 366 */ -EXTERN int Tcl_Chdir(CONST char *dirName); -#endif -#ifndef Tcl_Access_TCL_DECLARED -#define Tcl_Access_TCL_DECLARED -/* 367 */ -EXTERN int Tcl_Access(CONST char *path, int mode); -#endif -#ifndef Tcl_Stat_TCL_DECLARED -#define Tcl_Stat_TCL_DECLARED -/* 368 */ -EXTERN int Tcl_Stat(CONST char *path, struct stat *bufPtr); -#endif -#ifndef Tcl_UtfNcmp_TCL_DECLARED -#define Tcl_UtfNcmp_TCL_DECLARED -/* 369 */ -EXTERN int Tcl_UtfNcmp(CONST char *s1, CONST char *s2, - unsigned long n); -#endif -#ifndef Tcl_UtfNcasecmp_TCL_DECLARED -#define Tcl_UtfNcasecmp_TCL_DECLARED -/* 370 */ -EXTERN int Tcl_UtfNcasecmp(CONST char *s1, CONST char *s2, - unsigned long n); -#endif -#ifndef Tcl_StringCaseMatch_TCL_DECLARED -#define Tcl_StringCaseMatch_TCL_DECLARED -/* 371 */ -EXTERN int Tcl_StringCaseMatch(CONST char *str, - CONST char *pattern, int nocase); -#endif -#ifndef Tcl_UniCharIsControl_TCL_DECLARED -#define Tcl_UniCharIsControl_TCL_DECLARED -/* 372 */ -EXTERN int Tcl_UniCharIsControl(int ch); -#endif -#ifndef Tcl_UniCharIsGraph_TCL_DECLARED -#define Tcl_UniCharIsGraph_TCL_DECLARED -/* 373 */ -EXTERN int Tcl_UniCharIsGraph(int ch); -#endif -#ifndef Tcl_UniCharIsPrint_TCL_DECLARED -#define Tcl_UniCharIsPrint_TCL_DECLARED -/* 374 */ -EXTERN int Tcl_UniCharIsPrint(int ch); -#endif -#ifndef Tcl_UniCharIsPunct_TCL_DECLARED -#define Tcl_UniCharIsPunct_TCL_DECLARED -/* 375 */ -EXTERN int Tcl_UniCharIsPunct(int ch); -#endif -#ifndef Tcl_RegExpExecObj_TCL_DECLARED -#define Tcl_RegExpExecObj_TCL_DECLARED -/* 376 */ -EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, - Tcl_RegExp regexp, Tcl_Obj *textObj, - int offset, int nmatches, int flags); -#endif -#ifndef Tcl_RegExpGetInfo_TCL_DECLARED -#define Tcl_RegExpGetInfo_TCL_DECLARED -/* 377 */ -EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, - Tcl_RegExpInfo *infoPtr); -#endif -#ifndef Tcl_NewUnicodeObj_TCL_DECLARED -#define Tcl_NewUnicodeObj_TCL_DECLARED -/* 378 */ -EXTERN Tcl_Obj * Tcl_NewUnicodeObj(CONST Tcl_UniChar *unicode, - int numChars); -#endif -#ifndef Tcl_SetUnicodeObj_TCL_DECLARED -#define Tcl_SetUnicodeObj_TCL_DECLARED -/* 379 */ -EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, - CONST Tcl_UniChar *unicode, int numChars); -#endif -#ifndef Tcl_GetCharLength_TCL_DECLARED -#define Tcl_GetCharLength_TCL_DECLARED -/* 380 */ -EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetUniChar_TCL_DECLARED -#define Tcl_GetUniChar_TCL_DECLARED -/* 381 */ -EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); -#endif -#ifndef Tcl_GetUnicode_TCL_DECLARED -#define Tcl_GetUnicode_TCL_DECLARED -/* 382 */ -EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetRange_TCL_DECLARED -#define Tcl_GetRange_TCL_DECLARED -/* 383 */ -EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); -#endif -#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED -#define Tcl_AppendUnicodeToObj_TCL_DECLARED -/* 384 */ -EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, - CONST Tcl_UniChar *unicode, int length); -#endif -#ifndef Tcl_RegExpMatchObj_TCL_DECLARED -#define Tcl_RegExpMatchObj_TCL_DECLARED -/* 385 */ -EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, - Tcl_Obj *textObj, Tcl_Obj *patternObj); -#endif -#ifndef Tcl_SetNotifier_TCL_DECLARED -#define Tcl_SetNotifier_TCL_DECLARED -/* 386 */ -EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); -#endif -#ifndef Tcl_GetAllocMutex_TCL_DECLARED -#define Tcl_GetAllocMutex_TCL_DECLARED -/* 387 */ -EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); -#endif -#ifndef Tcl_GetChannelNames_TCL_DECLARED -#define Tcl_GetChannelNames_TCL_DECLARED -/* 388 */ -EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED -#define Tcl_GetChannelNamesEx_TCL_DECLARED -/* 389 */ -EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, - CONST char *pattern); -#endif -#ifndef Tcl_ProcObjCmd_TCL_DECLARED -#define Tcl_ProcObjCmd_TCL_DECLARED -/* 390 */ -EXTERN int Tcl_ProcObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ConditionFinalize_TCL_DECLARED -#define Tcl_ConditionFinalize_TCL_DECLARED -/* 391 */ -EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); -#endif -#ifndef Tcl_MutexFinalize_TCL_DECLARED -#define Tcl_MutexFinalize_TCL_DECLARED -/* 392 */ -EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); -#endif -#ifndef Tcl_CreateThread_TCL_DECLARED -#define Tcl_CreateThread_TCL_DECLARED -/* 393 */ -EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc proc, - ClientData clientData, int stackSize, - int flags); -#endif -#ifndef Tcl_ReadRaw_TCL_DECLARED -#define Tcl_ReadRaw_TCL_DECLARED -/* 394 */ -EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, - int bytesToRead); -#endif -#ifndef Tcl_WriteRaw_TCL_DECLARED -#define Tcl_WriteRaw_TCL_DECLARED -/* 395 */ -EXTERN int Tcl_WriteRaw(Tcl_Channel chan, CONST char *src, - int srcLen); -#endif -#ifndef Tcl_GetTopChannel_TCL_DECLARED -#define Tcl_GetTopChannel_TCL_DECLARED -/* 396 */ -EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelBuffered_TCL_DECLARED -#define Tcl_ChannelBuffered_TCL_DECLARED -/* 397 */ -EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelName_TCL_DECLARED -#define Tcl_ChannelName_TCL_DECLARED -/* 398 */ -EXTERN CONST84_RETURN char * Tcl_ChannelName( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelVersion_TCL_DECLARED -#define Tcl_ChannelVersion_TCL_DECLARED -/* 399 */ -EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED -#define Tcl_ChannelBlockModeProc_TCL_DECLARED -/* 400 */ -EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelCloseProc_TCL_DECLARED -#define Tcl_ChannelCloseProc_TCL_DECLARED -/* 401 */ -EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED -#define Tcl_ChannelClose2Proc_TCL_DECLARED -/* 402 */ -EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelInputProc_TCL_DECLARED -#define Tcl_ChannelInputProc_TCL_DECLARED -/* 403 */ -EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelOutputProc_TCL_DECLARED -#define Tcl_ChannelOutputProc_TCL_DECLARED -/* 404 */ -EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelSeekProc_TCL_DECLARED -#define Tcl_ChannelSeekProc_TCL_DECLARED -/* 405 */ -EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED -#define Tcl_ChannelSetOptionProc_TCL_DECLARED -/* 406 */ -EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED -#define Tcl_ChannelGetOptionProc_TCL_DECLARED -/* 407 */ -EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelWatchProc_TCL_DECLARED -#define Tcl_ChannelWatchProc_TCL_DECLARED -/* 408 */ -EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED -#define Tcl_ChannelGetHandleProc_TCL_DECLARED -/* 409 */ -EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelFlushProc_TCL_DECLARED -#define Tcl_ChannelFlushProc_TCL_DECLARED -/* 410 */ -EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED -#define Tcl_ChannelHandlerProc_TCL_DECLARED -/* 411 */ -EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_JoinThread_TCL_DECLARED -#define Tcl_JoinThread_TCL_DECLARED -/* 412 */ -EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); -#endif -#ifndef Tcl_IsChannelShared_TCL_DECLARED -#define Tcl_IsChannelShared_TCL_DECLARED -/* 413 */ -EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); -#endif -#ifndef Tcl_IsChannelRegistered_TCL_DECLARED -#define Tcl_IsChannelRegistered_TCL_DECLARED -/* 414 */ -EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, - Tcl_Channel channel); -#endif -#ifndef Tcl_CutChannel_TCL_DECLARED -#define Tcl_CutChannel_TCL_DECLARED -/* 415 */ -EXTERN void Tcl_CutChannel(Tcl_Channel channel); -#endif -#ifndef Tcl_SpliceChannel_TCL_DECLARED -#define Tcl_SpliceChannel_TCL_DECLARED -/* 416 */ -EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); -#endif -#ifndef Tcl_ClearChannelHandlers_TCL_DECLARED -#define Tcl_ClearChannelHandlers_TCL_DECLARED -/* 417 */ -EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); -#endif -#ifndef Tcl_IsChannelExisting_TCL_DECLARED -#define Tcl_IsChannelExisting_TCL_DECLARED -/* 418 */ -EXTERN int Tcl_IsChannelExisting(CONST char *channelName); -#endif -#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED -#define Tcl_UniCharNcasecmp_TCL_DECLARED -/* 419 */ -EXTERN int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *ucs, - CONST Tcl_UniChar *uct, - unsigned long numChars); -#endif -#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED -#define Tcl_UniCharCaseMatch_TCL_DECLARED -/* 420 */ -EXTERN int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *uniStr, - CONST Tcl_UniChar *uniPattern, int nocase); -#endif -#ifndef Tcl_FindHashEntry_TCL_DECLARED -#define Tcl_FindHashEntry_TCL_DECLARED -/* 421 */ -EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, - CONST char *key); -#endif -#ifndef Tcl_CreateHashEntry_TCL_DECLARED -#define Tcl_CreateHashEntry_TCL_DECLARED -/* 422 */ -EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, - CONST char *key, int *newPtr); -#endif -#ifndef Tcl_InitCustomHashTable_TCL_DECLARED -#define Tcl_InitCustomHashTable_TCL_DECLARED -/* 423 */ -EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, - int keyType, Tcl_HashKeyType *typePtr); -#endif -#ifndef Tcl_InitObjHashTable_TCL_DECLARED -#define Tcl_InitObjHashTable_TCL_DECLARED -/* 424 */ -EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); -#endif -#ifndef Tcl_CommandTraceInfo_TCL_DECLARED -#define Tcl_CommandTraceInfo_TCL_DECLARED -/* 425 */ -EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_CommandTraceProc *procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_TraceCommand_TCL_DECLARED -#define Tcl_TraceCommand_TCL_DECLARED -/* 426 */ -EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_UntraceCommand_TCL_DECLARED -#define Tcl_UntraceCommand_TCL_DECLARED -/* 427 */ -EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_AttemptAlloc_TCL_DECLARED -#define Tcl_AttemptAlloc_TCL_DECLARED -/* 428 */ -EXTERN char * Tcl_AttemptAlloc(unsigned int size); -#endif -#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED -#define Tcl_AttemptDbCkalloc_TCL_DECLARED -/* 429 */ -EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, - CONST char *file, int line); -#endif -#ifndef Tcl_AttemptRealloc_TCL_DECLARED -#define Tcl_AttemptRealloc_TCL_DECLARED -/* 430 */ -EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); -#endif -#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED -#define Tcl_AttemptDbCkrealloc_TCL_DECLARED -/* 431 */ -EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, - CONST char *file, int line); -#endif -#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED -#define Tcl_AttemptSetObjLength_TCL_DECLARED -/* 432 */ -EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); -#endif -#ifndef Tcl_GetChannelThread_TCL_DECLARED -#define Tcl_GetChannelThread_TCL_DECLARED -/* 433 */ -EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); -#endif -#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED -#define Tcl_GetUnicodeFromObj_TCL_DECLARED -/* 434 */ -EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -#endif -#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED -#define Tcl_GetMathFuncInfo_TCL_DECLARED -/* 435 */ -EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, - CONST char *name, int *numArgsPtr, - Tcl_ValueType **argTypesPtr, - Tcl_MathProc **procPtr, - ClientData *clientDataPtr); -#endif -#ifndef Tcl_ListMathFuncs_TCL_DECLARED -#define Tcl_ListMathFuncs_TCL_DECLARED -/* 436 */ -EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, - CONST char *pattern); -#endif -#ifndef Tcl_SubstObj_TCL_DECLARED -#define Tcl_SubstObj_TCL_DECLARED -/* 437 */ -EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -#endif -#ifndef Tcl_DetachChannel_TCL_DECLARED -#define Tcl_DetachChannel_TCL_DECLARED -/* 438 */ -EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, - Tcl_Channel channel); -#endif -#ifndef Tcl_IsStandardChannel_TCL_DECLARED -#define Tcl_IsStandardChannel_TCL_DECLARED -/* 439 */ -EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); -#endif -#ifndef Tcl_FSCopyFile_TCL_DECLARED -#define Tcl_FSCopyFile_TCL_DECLARED -/* 440 */ -EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef Tcl_FSCopyDirectory_TCL_DECLARED -#define Tcl_FSCopyDirectory_TCL_DECLARED -/* 441 */ -EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -#endif -#ifndef Tcl_FSCreateDirectory_TCL_DECLARED -#define Tcl_FSCreateDirectory_TCL_DECLARED -/* 442 */ -EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSDeleteFile_TCL_DECLARED -#define Tcl_FSDeleteFile_TCL_DECLARED -/* 443 */ -EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSLoadFile_TCL_DECLARED -#define Tcl_FSLoadFile_TCL_DECLARED -/* 444 */ -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); -#endif -#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED -#define Tcl_FSMatchInDirectory_TCL_DECLARED -/* 445 */ -EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, - CONST char *pattern, Tcl_GlobTypeData *types); -#endif -#ifndef Tcl_FSLink_TCL_DECLARED -#define Tcl_FSLink_TCL_DECLARED -/* 446 */ -EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkAction); -#endif -#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED -#define Tcl_FSRemoveDirectory_TCL_DECLARED -/* 447 */ -EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -#endif -#ifndef Tcl_FSRenameFile_TCL_DECLARED -#define Tcl_FSRenameFile_TCL_DECLARED -/* 448 */ -EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef Tcl_FSLstat_TCL_DECLARED -#define Tcl_FSLstat_TCL_DECLARED -/* 449 */ -EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -#endif -#ifndef Tcl_FSUtime_TCL_DECLARED -#define Tcl_FSUtime_TCL_DECLARED -/* 450 */ -EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -#endif -#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED -#define Tcl_FSFileAttrsGet_TCL_DECLARED -/* 451 */ -EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); -#endif -#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED -#define Tcl_FSFileAttrsSet_TCL_DECLARED -/* 452 */ -EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED -#define Tcl_FSFileAttrStrings_TCL_DECLARED -/* 453 */ -EXTERN CONST char ** Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, - Tcl_Obj **objPtrRef); -#endif -#ifndef Tcl_FSStat_TCL_DECLARED -#define Tcl_FSStat_TCL_DECLARED -/* 454 */ -EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -#endif -#ifndef Tcl_FSAccess_TCL_DECLARED -#define Tcl_FSAccess_TCL_DECLARED -/* 455 */ -EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); -#endif -#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED -#define Tcl_FSOpenFileChannel_TCL_DECLARED -/* 456 */ -EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, CONST char *modeString, - int permissions); -#endif -#ifndef Tcl_FSGetCwd_TCL_DECLARED -#define Tcl_FSGetCwd_TCL_DECLARED -/* 457 */ -EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); -#endif -#ifndef Tcl_FSChdir_TCL_DECLARED -#define Tcl_FSChdir_TCL_DECLARED -/* 458 */ -EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSConvertToPathType_TCL_DECLARED -#define Tcl_FSConvertToPathType_TCL_DECLARED -/* 459 */ -EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSJoinPath_TCL_DECLARED -#define Tcl_FSJoinPath_TCL_DECLARED -/* 460 */ -EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); -#endif -#ifndef Tcl_FSSplitPath_TCL_DECLARED -#define Tcl_FSSplitPath_TCL_DECLARED -/* 461 */ -EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -#endif -#ifndef Tcl_FSEqualPaths_TCL_DECLARED -#define Tcl_FSEqualPaths_TCL_DECLARED -/* 462 */ -EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, - Tcl_Obj *secondPtr); -#endif -#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED -#define Tcl_FSGetNormalizedPath_TCL_DECLARED -/* 463 */ -EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSJoinToPath_TCL_DECLARED -#define Tcl_FSJoinToPath_TCL_DECLARED -/* 464 */ -EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_FSGetInternalRep_TCL_DECLARED -#define Tcl_FSGetInternalRep_TCL_DECLARED -/* 465 */ -EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, - Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED -#define Tcl_FSGetTranslatedPath_TCL_DECLARED -/* 466 */ -EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSEvalFile_TCL_DECLARED -#define Tcl_FSEvalFile_TCL_DECLARED -/* 467 */ -EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); -#endif -#ifndef Tcl_FSNewNativePath_TCL_DECLARED -#define Tcl_FSNewNativePath_TCL_DECLARED -/* 468 */ -EXTERN Tcl_Obj * Tcl_FSNewNativePath(Tcl_Filesystem *fromFilesystem, - ClientData clientData); -#endif -#ifndef Tcl_FSGetNativePath_TCL_DECLARED -#define Tcl_FSGetNativePath_TCL_DECLARED -/* 469 */ -EXTERN CONST char * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED -#define Tcl_FSFileSystemInfo_TCL_DECLARED -/* 470 */ -EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSPathSeparator_TCL_DECLARED -#define Tcl_FSPathSeparator_TCL_DECLARED -/* 471 */ -EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSListVolumes_TCL_DECLARED -#define Tcl_FSListVolumes_TCL_DECLARED -/* 472 */ -EXTERN Tcl_Obj * Tcl_FSListVolumes(void); -#endif -#ifndef Tcl_FSRegister_TCL_DECLARED -#define Tcl_FSRegister_TCL_DECLARED -/* 473 */ -EXTERN int Tcl_FSRegister(ClientData clientData, - Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSUnregister_TCL_DECLARED -#define Tcl_FSUnregister_TCL_DECLARED -/* 474 */ -EXTERN int Tcl_FSUnregister(Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSData_TCL_DECLARED -#define Tcl_FSData_TCL_DECLARED -/* 475 */ -EXTERN ClientData Tcl_FSData(Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED -#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED -/* 476 */ -EXTERN CONST char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED -#define Tcl_FSGetFileSystemForPath_TCL_DECLARED -/* 477 */ -EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSGetPathType_TCL_DECLARED -#define Tcl_FSGetPathType_TCL_DECLARED -/* 478 */ -EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_OutputBuffered_TCL_DECLARED -#define Tcl_OutputBuffered_TCL_DECLARED -/* 479 */ -EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); -#endif -#ifndef Tcl_FSMountsChanged_TCL_DECLARED -#define Tcl_FSMountsChanged_TCL_DECLARED -/* 480 */ -EXTERN void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_EvalTokensStandard_TCL_DECLARED -#define Tcl_EvalTokensStandard_TCL_DECLARED -/* 481 */ -EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -#endif -#ifndef Tcl_GetTime_TCL_DECLARED -#define Tcl_GetTime_TCL_DECLARED -/* 482 */ -EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); -#endif -#ifndef Tcl_CreateObjTrace_TCL_DECLARED -#define Tcl_CreateObjTrace_TCL_DECLARED -/* 483 */ -EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, - int flags, Tcl_CmdObjTraceProc *objProc, - ClientData clientData, - Tcl_CmdObjTraceDeleteProc *delProc); -#endif -#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED -#define Tcl_GetCommandInfoFromToken_TCL_DECLARED -/* 484 */ -EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, - Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED -#define Tcl_SetCommandInfoFromToken_TCL_DECLARED -/* 485 */ -EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, - CONST Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED -#define Tcl_DbNewWideIntObj_TCL_DECLARED -/* 486 */ -EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, - CONST char *file, int line); -#endif -#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED -#define Tcl_GetWideIntFromObj_TCL_DECLARED -/* 487 */ -EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_WideInt *widePtr); -#endif -#ifndef Tcl_NewWideIntObj_TCL_DECLARED -#define Tcl_NewWideIntObj_TCL_DECLARED -/* 488 */ -EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); -#endif -#ifndef Tcl_SetWideIntObj_TCL_DECLARED -#define Tcl_SetWideIntObj_TCL_DECLARED -/* 489 */ -EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, - Tcl_WideInt wideValue); -#endif -#ifndef Tcl_AllocStatBuf_TCL_DECLARED -#define Tcl_AllocStatBuf_TCL_DECLARED -/* 490 */ -EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); -#endif -#ifndef Tcl_Seek_TCL_DECLARED -#define Tcl_Seek_TCL_DECLARED -/* 491 */ -EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, - int mode); -#endif -#ifndef Tcl_Tell_TCL_DECLARED -#define Tcl_Tell_TCL_DECLARED -/* 492 */ -EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED -#define Tcl_ChannelWideSeekProc_TCL_DECLARED -/* 493 */ -EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_DictObjPut_TCL_DECLARED -#define Tcl_DictObjPut_TCL_DECLARED -/* 494 */ -EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); -#endif -#ifndef Tcl_DictObjGet_TCL_DECLARED -#define Tcl_DictObjGet_TCL_DECLARED -/* 495 */ -EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); -#endif -#ifndef Tcl_DictObjRemove_TCL_DECLARED -#define Tcl_DictObjRemove_TCL_DECLARED -/* 496 */ -EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); -#endif -#ifndef Tcl_DictObjSize_TCL_DECLARED -#define Tcl_DictObjSize_TCL_DECLARED -/* 497 */ -EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int *sizePtr); -#endif -#ifndef Tcl_DictObjFirst_TCL_DECLARED -#define Tcl_DictObjFirst_TCL_DECLARED -/* 498 */ -EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -#endif -#ifndef Tcl_DictObjNext_TCL_DECLARED -#define Tcl_DictObjNext_TCL_DECLARED -/* 499 */ -EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -#endif -#ifndef Tcl_DictObjDone_TCL_DECLARED -#define Tcl_DictObjDone_TCL_DECLARED -/* 500 */ -EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); -#endif -#ifndef Tcl_DictObjPutKeyList_TCL_DECLARED -#define Tcl_DictObjPutKeyList_TCL_DECLARED -/* 501 */ -EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); -#endif -#ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED -#define Tcl_DictObjRemoveKeyList_TCL_DECLARED -/* 502 */ -EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *CONST *keyv); -#endif -#ifndef Tcl_NewDictObj_TCL_DECLARED -#define Tcl_NewDictObj_TCL_DECLARED -/* 503 */ -EXTERN Tcl_Obj * Tcl_NewDictObj(void); -#endif -#ifndef Tcl_DbNewDictObj_TCL_DECLARED -#define Tcl_DbNewDictObj_TCL_DECLARED -/* 504 */ -EXTERN Tcl_Obj * Tcl_DbNewDictObj(CONST char *file, int line); -#endif -#ifndef Tcl_RegisterConfig_TCL_DECLARED -#define Tcl_RegisterConfig_TCL_DECLARED -/* 505 */ -EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, - CONST char *pkgName, - Tcl_Config *configuration, - CONST char *valEncoding); -#endif -#ifndef Tcl_CreateNamespace_TCL_DECLARED -#define Tcl_CreateNamespace_TCL_DECLARED -/* 506 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - CONST char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -#endif -#ifndef Tcl_DeleteNamespace_TCL_DECLARED -#define Tcl_DeleteNamespace_TCL_DECLARED -/* 507 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -#endif -#ifndef Tcl_AppendExportList_TCL_DECLARED -#define Tcl_AppendExportList_TCL_DECLARED -/* 508 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_Export_TCL_DECLARED -#define Tcl_Export_TCL_DECLARED -/* 509 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int resetListFirst); -#endif -#ifndef Tcl_Import_TCL_DECLARED -#define Tcl_Import_TCL_DECLARED -/* 510 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int allowOverwrite); -#endif -#ifndef Tcl_ForgetImport_TCL_DECLARED -#define Tcl_ForgetImport_TCL_DECLARED -/* 511 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, CONST char *pattern); -#endif -#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED -#define Tcl_GetCurrentNamespace_TCL_DECLARED -/* 512 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED -#define Tcl_GetGlobalNamespace_TCL_DECLARED -/* 513 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_FindNamespace_TCL_DECLARED -#define Tcl_FindNamespace_TCL_DECLARED -/* 514 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_FindCommand_TCL_DECLARED -#define Tcl_FindCommand_TCL_DECLARED -/* 515 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_GetCommandFromObj_TCL_DECLARED -#define Tcl_GetCommandFromObj_TCL_DECLARED -/* 516 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetCommandFullName_TCL_DECLARED -#define Tcl_GetCommandFullName_TCL_DECLARED -/* 517 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_FSEvalFileEx_TCL_DECLARED -#define Tcl_FSEvalFileEx_TCL_DECLARED -/* 518 */ -EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, - Tcl_Obj *fileName, CONST char *encodingName); -#endif -#ifndef Tcl_SetExitProc_TCL_DECLARED -#define Tcl_SetExitProc_TCL_DECLARED -/* 519 */ -EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc); -#endif -#ifndef Tcl_LimitAddHandler_TCL_DECLARED -#define Tcl_LimitAddHandler_TCL_DECLARED -/* 520 */ -EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData, - Tcl_LimitHandlerDeleteProc *deleteProc); -#endif -#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED -#define Tcl_LimitRemoveHandler_TCL_DECLARED -/* 521 */ -EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData); -#endif -#ifndef Tcl_LimitReady_TCL_DECLARED -#define Tcl_LimitReady_TCL_DECLARED -/* 522 */ -EXTERN int Tcl_LimitReady(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitCheck_TCL_DECLARED -#define Tcl_LimitCheck_TCL_DECLARED -/* 523 */ -EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitExceeded_TCL_DECLARED -#define Tcl_LimitExceeded_TCL_DECLARED -/* 524 */ -EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitSetCommands_TCL_DECLARED -#define Tcl_LimitSetCommands_TCL_DECLARED -/* 525 */ -EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, - int commandLimit); -#endif -#ifndef Tcl_LimitSetTime_TCL_DECLARED -#define Tcl_LimitSetTime_TCL_DECLARED -/* 526 */ -EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -#endif -#ifndef Tcl_LimitSetGranularity_TCL_DECLARED -#define Tcl_LimitSetGranularity_TCL_DECLARED -/* 527 */ -EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, - int granularity); -#endif -#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED -#define Tcl_LimitTypeEnabled_TCL_DECLARED -/* 528 */ -EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitTypeExceeded_TCL_DECLARED -#define Tcl_LimitTypeExceeded_TCL_DECLARED -/* 529 */ -EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitTypeSet_TCL_DECLARED -#define Tcl_LimitTypeSet_TCL_DECLARED -/* 530 */ -EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitTypeReset_TCL_DECLARED -#define Tcl_LimitTypeReset_TCL_DECLARED -/* 531 */ -EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitGetCommands_TCL_DECLARED -#define Tcl_LimitGetCommands_TCL_DECLARED -/* 532 */ -EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitGetTime_TCL_DECLARED -#define Tcl_LimitGetTime_TCL_DECLARED -/* 533 */ -EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -#endif -#ifndef Tcl_LimitGetGranularity_TCL_DECLARED -#define Tcl_LimitGetGranularity_TCL_DECLARED -/* 534 */ -EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_SaveInterpState_TCL_DECLARED -#define Tcl_SaveInterpState_TCL_DECLARED -/* 535 */ -EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); -#endif -#ifndef Tcl_RestoreInterpState_TCL_DECLARED -#define Tcl_RestoreInterpState_TCL_DECLARED -/* 536 */ -EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, - Tcl_InterpState state); -#endif -#ifndef Tcl_DiscardInterpState_TCL_DECLARED -#define Tcl_DiscardInterpState_TCL_DECLARED -/* 537 */ -EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); -#endif -#ifndef Tcl_SetReturnOptions_TCL_DECLARED -#define Tcl_SetReturnOptions_TCL_DECLARED -/* 538 */ -EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, - Tcl_Obj *options); -#endif -#ifndef Tcl_GetReturnOptions_TCL_DECLARED -#define Tcl_GetReturnOptions_TCL_DECLARED -/* 539 */ -EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); -#endif -#ifndef Tcl_IsEnsemble_TCL_DECLARED -#define Tcl_IsEnsemble_TCL_DECLARED -/* 540 */ -EXTERN int Tcl_IsEnsemble(Tcl_Command token); -#endif -#ifndef Tcl_CreateEnsemble_TCL_DECLARED -#define Tcl_CreateEnsemble_TCL_DECLARED -/* 541 */ -EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *namespacePtr, int flags); -#endif -#ifndef Tcl_FindEnsemble_TCL_DECLARED -#define Tcl_FindEnsemble_TCL_DECLARED -/* 542 */ -EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, - Tcl_Obj *cmdNameObj, int flags); -#endif -#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED -#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED -/* 543 */ -EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *subcmdList); -#endif -#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED -#define Tcl_SetEnsembleMappingDict_TCL_DECLARED -/* 544 */ -EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *mapDict); -#endif -#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED -#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED -/* 545 */ -EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *unknownList); -#endif -#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED -#define Tcl_SetEnsembleFlags_TCL_DECLARED -/* 546 */ -EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int flags); -#endif -#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED -#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED -/* 547 */ -EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **subcmdListPtr); -#endif -#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED -#define Tcl_GetEnsembleMappingDict_TCL_DECLARED -/* 548 */ -EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **mapDictPtr); -#endif -#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED -#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED -/* 549 */ -EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **unknownListPtr); -#endif -#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED -#define Tcl_GetEnsembleFlags_TCL_DECLARED -/* 550 */ -EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int *flagsPtr); -#endif -#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED -#define Tcl_GetEnsembleNamespace_TCL_DECLARED -/* 551 */ -EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, - Tcl_Command token, - Tcl_Namespace **namespacePtrPtr); -#endif -#ifndef Tcl_SetTimeProc_TCL_DECLARED -#define Tcl_SetTimeProc_TCL_DECLARED -/* 552 */ -EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, - Tcl_ScaleTimeProc *scaleProc, - ClientData clientData); -#endif -#ifndef Tcl_QueryTimeProc_TCL_DECLARED -#define Tcl_QueryTimeProc_TCL_DECLARED -/* 553 */ -EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, - Tcl_ScaleTimeProc **scaleProc, - ClientData *clientData); -#endif -#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED -#define Tcl_ChannelThreadActionProc_TCL_DECLARED -/* 554 */ -EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_NewBignumObj_TCL_DECLARED -#define Tcl_NewBignumObj_TCL_DECLARED -/* 555 */ -EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); -#endif -#ifndef Tcl_DbNewBignumObj_TCL_DECLARED -#define Tcl_DbNewBignumObj_TCL_DECLARED -/* 556 */ -EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, CONST char *file, - int line); -#endif -#ifndef Tcl_SetBignumObj_TCL_DECLARED -#define Tcl_SetBignumObj_TCL_DECLARED -/* 557 */ -EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); -#endif -#ifndef Tcl_GetBignumFromObj_TCL_DECLARED -#define Tcl_GetBignumFromObj_TCL_DECLARED -/* 558 */ -EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -#endif -#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED -#define Tcl_TakeBignumFromObj_TCL_DECLARED -/* 559 */ -EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -#endif -#ifndef Tcl_TruncateChannel_TCL_DECLARED -#define Tcl_TruncateChannel_TCL_DECLARED -/* 560 */ -EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, - Tcl_WideInt length); -#endif -#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED -#define Tcl_ChannelTruncateProc_TCL_DECLARED -/* 561 */ -EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED -#define Tcl_SetChannelErrorInterp_TCL_DECLARED -/* 562 */ -EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj *msg); -#endif -#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED -#define Tcl_GetChannelErrorInterp_TCL_DECLARED -/* 563 */ -EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj **msg); -#endif -#ifndef Tcl_SetChannelError_TCL_DECLARED -#define Tcl_SetChannelError_TCL_DECLARED -/* 564 */ -EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); -#endif -#ifndef Tcl_GetChannelError_TCL_DECLARED -#define Tcl_GetChannelError_TCL_DECLARED -/* 565 */ -EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); -#endif -#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED -#define Tcl_InitBignumFromDouble_TCL_DECLARED -/* 566 */ -EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, - double initval, mp_int *toInit); -#endif -#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED -#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED -/* 567 */ -EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr); -#endif -#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED -#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED -/* 568 */ -EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); -#endif -#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED -#define Tcl_GetEncodingFromObj_TCL_DECLARED -/* 569 */ -EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); -#endif -#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED -#define Tcl_GetEncodingSearchPath_TCL_DECLARED -/* 570 */ -EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); -#endif -#ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED -#define Tcl_SetEncodingSearchPath_TCL_DECLARED -/* 571 */ -EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); -#endif -#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED -#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED -/* 572 */ -EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment( - Tcl_DString *bufPtr); -#endif -#ifndef Tcl_PkgRequireProc_TCL_DECLARED -#define Tcl_PkgRequireProc_TCL_DECLARED -/* 573 */ -EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, - CONST char *name, int objc, - Tcl_Obj *CONST objv[], - ClientData *clientDataPtr); -#endif -#ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED -#define Tcl_AppendObjToErrorInfo_TCL_DECLARED -/* 574 */ -EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_AppendLimitedToObj_TCL_DECLARED -#define Tcl_AppendLimitedToObj_TCL_DECLARED -/* 575 */ -EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, - CONST char *bytes, int length, int limit, - CONST char *ellipsis); -#endif -#ifndef Tcl_Format_TCL_DECLARED -#define Tcl_Format_TCL_DECLARED -/* 576 */ -EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, CONST char *format, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_AppendFormatToObj_TCL_DECLARED -#define Tcl_AppendFormatToObj_TCL_DECLARED -/* 577 */ -EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST char *format, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ObjPrintf_TCL_DECLARED -#define Tcl_ObjPrintf_TCL_DECLARED -/* 578 */ -EXTERN Tcl_Obj * Tcl_ObjPrintf(CONST char *format, ...); -#endif -#ifndef Tcl_AppendPrintfToObj_TCL_DECLARED -#define Tcl_AppendPrintfToObj_TCL_DECLARED -/* 579 */ -EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, - CONST char *format, ...); -#endif -/* Slot 580 is reserved */ -/* Slot 581 is reserved */ -/* Slot 582 is reserved */ -/* Slot 583 is reserved */ -/* Slot 584 is reserved */ -/* Slot 585 is reserved */ -/* Slot 586 is reserved */ -/* Slot 587 is reserved */ -/* Slot 588 is reserved */ -/* Slot 589 is reserved */ -/* Slot 590 is reserved */ -/* Slot 591 is reserved */ -/* Slot 592 is reserved */ -/* Slot 593 is reserved */ -/* Slot 594 is reserved */ -/* Slot 595 is reserved */ -/* Slot 596 is reserved */ -/* Slot 597 is reserved */ -/* Slot 598 is reserved */ -/* Slot 599 is reserved */ -/* Slot 600 is reserved */ -/* Slot 601 is reserved */ -/* Slot 602 is reserved */ -/* Slot 603 is reserved */ -/* Slot 604 is reserved */ -/* Slot 605 is reserved */ -/* Slot 606 is reserved */ -/* Slot 607 is reserved */ -/* Slot 608 is reserved */ -/* Slot 609 is reserved */ -/* Slot 610 is reserved */ -/* Slot 611 is reserved */ -/* Slot 612 is reserved */ -/* Slot 613 is reserved */ -/* Slot 614 is reserved */ -/* Slot 615 is reserved */ -/* Slot 616 is reserved */ -/* Slot 617 is reserved */ -/* Slot 618 is reserved */ -/* Slot 619 is reserved */ -/* Slot 620 is reserved */ -/* Slot 621 is reserved */ -/* Slot 622 is reserved */ -/* Slot 623 is reserved */ -/* Slot 624 is reserved */ -/* Slot 625 is reserved */ -/* Slot 626 is reserved */ -/* Slot 627 is reserved */ -/* Slot 628 is reserved */ -/* Slot 629 is reserved */ -/* Slot 630 is reserved */ -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -#ifndef TclUnusedStubEntry_TCL_DECLARED -#define TclUnusedStubEntry_TCL_DECLARED -/* 648 */ -EXTERN void TclUnusedStubEntry(void); -#endif - -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); /* 0 */ - CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 1 */ - void (*tcl_Panic) (CONST char *format, ...); /* 2 */ - char * (*tcl_Alloc) (unsigned int size); /* 3 */ - void (*tcl_Free) (char *ptr); /* 4 */ - char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ - char * (*tcl_DbCkalloc) (unsigned int size, CONST char *file, int line); /* 6 */ - void (*tcl_DbCkfree) (char *ptr, CONST char *file, int line); /* 7 */ - char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, CONST char *file, int line); /* 8 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* UNIX */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved9; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* UNIX */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved10; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* MACOSX */ - void (*tcl_SetTimer) (Tcl_Time *timePtr); /* 11 */ - void (*tcl_Sleep) (int ms); /* 12 */ - int (*tcl_WaitForEvent) (Tcl_Time *timePtr); /* 13 */ - int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ - void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ - void (*tcl_AppendToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length); /* 16 */ - Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */ - int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjType *typePtr); /* 18 */ - void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line); /* 19 */ - void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line); /* 20 */ - int (*tcl_DbIsShared) (Tcl_Obj *objPtr, CONST char *file, int line); /* 21 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char *file, int line); /* 22 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char *bytes, int length, CONST char *file, int line); /* 23 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char *file, int line); /* 24 */ - Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST *objv, CONST char *file, int line); /* 25 */ - Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char *file, int line); /* 26 */ - Tcl_Obj * (*tcl_DbNewObj) (CONST char *file, int line); /* 27 */ - Tcl_Obj * (*tcl_DbNewStringObj) (CONST char *bytes, int length, CONST char *file, int line); /* 28 */ - Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ - void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ - int (*tcl_GetBoolean) (Tcl_Interp *interp, CONST char *src, int *boolPtr); /* 31 */ - int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ - unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */ - int (*tcl_GetDouble) (Tcl_Interp *interp, CONST char *src, double *doublePtr); /* 34 */ - int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */ - int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr); /* 36 */ - int (*tcl_GetInt) (Tcl_Interp *interp, CONST char *src, int *intPtr); /* 37 */ - int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */ - int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */ - Tcl_ObjType * (*tcl_GetObjType) (CONST char *typeName); /* 40 */ - char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ - void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ - int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */ - int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ - int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ - int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */ - int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */ - int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */ - Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ - Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char *bytes, int length); /* 50 */ - Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ - Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ - Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */ - Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ - Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ - Tcl_Obj * (*tcl_NewStringObj) (CONST char *bytes, int length); /* 56 */ - void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ - unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */ - void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, CONST unsigned char *bytes, int length); /* 59 */ - void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */ - void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ - void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[]); /* 62 */ - void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ - void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ - void (*tcl_SetStringObj) (Tcl_Obj *objPtr, CONST char *bytes, int length); /* 65 */ - void (*tcl_AddErrorInfo) (Tcl_Interp *interp, CONST char *message); /* 66 */ - void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, CONST char *message, int length); /* 67 */ - void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ - void (*tcl_AppendElement) (Tcl_Interp *interp, CONST char *element); /* 69 */ - void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */ - void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ - int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ - void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ - int (*tcl_AsyncReady) (void); /* 75 */ - void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ - char (*tcl_Backslash) (CONST char *src, int *readPtr); /* 77 */ - int (*tcl_BadChannelOption) (Tcl_Interp *interp, CONST char *optionName, CONST char *optionList); /* 78 */ - void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ - void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ - int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ - int (*tcl_CommandComplete) (CONST char *cmd); /* 82 */ - char * (*tcl_Concat) (int argc, CONST84 char *CONST *argv); /* 83 */ - int (*tcl_ConvertElement) (CONST char *src, char *dst, int flags); /* 84 */ - int (*tcl_ConvertCountedElement) (CONST char *src, int length, char *dst, int flags); /* 85 */ - int (*tcl_CreateAlias) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int argc, CONST84 char *CONST *argv); /* 86 */ - int (*tcl_CreateAliasObj) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONST objv[]); /* 87 */ - Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType *typePtr, CONST char *chanName, ClientData instanceData, int mask); /* 88 */ - void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */ - void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ - Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */ - void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */ - void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */ - Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ - void (*tcl_CreateMathFunc) (Tcl_Interp *interp, CONST char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */ - Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, CONST char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */ - Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, CONST char *slaveName, int isSafe); /* 97 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */ - Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */ - void (*tcl_DeleteAssocData) (Tcl_Interp *interp, CONST char *name); /* 100 */ - void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */ - void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ - int (*tcl_DeleteCommand) (Tcl_Interp *interp, CONST char *cmdName); /* 103 */ - int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */ - void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */ - void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */ - void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */ - void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ - void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ - void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ - void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ - void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */ - void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */ - int (*tcl_DoOneEvent) (int flags); /* 115 */ - void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ - char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, CONST char *bytes, int length); /* 117 */ - char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, CONST char *element); /* 118 */ - void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ - void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ - void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ - void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ - void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ - void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */ - void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ - int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ - CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ - CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ - int (*tcl_Eval) (Tcl_Interp *interp, CONST char *script); /* 129 */ - int (*tcl_EvalFile) (Tcl_Interp *interp, CONST char *fileName); /* 130 */ - int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ - void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */ - void (*tcl_Exit) (int status); /* 133 */ - int (*tcl_ExposeCommand) (Tcl_Interp *interp, CONST char *hiddenCmdToken, CONST char *cmdName); /* 134 */ - int (*tcl_ExprBoolean) (Tcl_Interp *interp, CONST char *expr, int *ptr); /* 135 */ - int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */ - int (*tcl_ExprDouble) (Tcl_Interp *interp, CONST char *expr, double *ptr); /* 137 */ - int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */ - int (*tcl_ExprLong) (Tcl_Interp *interp, CONST char *expr, long *ptr); /* 139 */ - int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */ - int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */ - int (*tcl_ExprString) (Tcl_Interp *interp, CONST char *expr); /* 142 */ - void (*tcl_Finalize) (void); /* 143 */ - void (*tcl_FindExecutable) (CONST char *argv0); /* 144 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ - int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ - void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ - int (*tcl_GetAlias) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */ - int (*tcl_GetAliasObj) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ - ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ - Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, CONST char *chanName, int *modePtr); /* 151 */ - int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ - int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */ - ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ - int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ - CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ - int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, Tcl_DString *dsPtr); /* 157 */ - Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ - int (*tcl_GetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */ - CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */ - int (*tcl_GetErrno) (void); /* 161 */ - CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ - int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */ - Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ - CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */ - Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* UNIX */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved167; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* MACOSX */ - Tcl_PathType (*tcl_GetPathType) (CONST char *path); /* 168 */ - int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ - int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ - int (*tcl_GetServiceMode) (void); /* 171 */ - Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, CONST char *slaveName); /* 172 */ - Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ - CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */ - CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, CONST char *varName, int flags); /* 175 */ - CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 176 */ - int (*tcl_GlobalEval) (Tcl_Interp *interp, CONST char *command); /* 177 */ - int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ - int (*tcl_HideCommand) (Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken); /* 179 */ - int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ - void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */ - int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ - int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ - int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ - int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ - char * (*tcl_JoinPath) (int argc, CONST84 char *CONST *argv, Tcl_DString *resultPtr); /* 186 */ - int (*tcl_LinkVar) (Tcl_Interp *interp, CONST char *varName, char *addr, int type); /* 187 */ - VOID *reserved188; - Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ - int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ - char * (*tcl_Merge) (int argc, CONST84 char *CONST *argv); /* 192 */ - Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */ - void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ - Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */ - Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */ - Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, CONST char *fileName, CONST char *modeString, int permissions); /* 198 */ - Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, CONST char *address, CONST char *myaddr, int myport, int async); /* 199 */ - Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, CONST char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */ - void (*tcl_Preserve) (ClientData data); /* 201 */ - void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ - int (*tcl_PutEnv) (CONST char *assignment); /* 203 */ - CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ - void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ - int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ - int (*tcl_RecordAndEval) (Tcl_Interp *interp, CONST char *cmd, int flags); /* 208 */ - int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ - void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ - void (*tcl_RegisterObjType) (Tcl_ObjType *typePtr); /* 211 */ - Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, CONST char *pattern); /* 212 */ - int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, CONST char *text, CONST char *start); /* 213 */ - int (*tcl_RegExpMatch) (Tcl_Interp *interp, CONST char *text, CONST char *pattern); /* 214 */ - void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ - void (*tcl_Release) (ClientData clientData); /* 216 */ - void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ - int (*tcl_ScanElement) (CONST char *src, int *flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (CONST char *src, int length, int *flagPtr); /* 219 */ - int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ - int (*tcl_ServiceAll) (void); /* 221 */ - int (*tcl_ServiceEvent) (int flags); /* 222 */ - void (*tcl_SetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */ - void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ - int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, CONST char *newValue); /* 225 */ - int (*tcl_SetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, CONST Tcl_CmdInfo *infoPtr); /* 226 */ - void (*tcl_SetErrno) (int err); /* 227 */ - void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ - void (*tcl_SetMaxBlockTime) (Tcl_Time *timePtr); /* 229 */ - void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */ - int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ - void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */ - int (*tcl_SetServiceMode) (int mode); /* 233 */ - void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ - void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */ - void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ - CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, CONST char *varName, CONST char *newValue, int flags); /* 237 */ - CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *newValue, int flags); /* 238 */ - CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ - CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ - void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ - int (*tcl_SplitList) (Tcl_Interp *interp, CONST char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */ - void (*tcl_SplitPath) (CONST char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */ - void (*tcl_StaticPackage) (Tcl_Interp *interp, CONST char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ - int (*tcl_StringMatch) (CONST char *str, CONST char *pattern); /* 245 */ - int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ - int (*tcl_TraceVar) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ - int (*tcl_TraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */ - char * (*tcl_TranslateFileName) (Tcl_Interp *interp, CONST char *name, Tcl_DString *bufferPtr); /* 249 */ - int (*tcl_Ungets) (Tcl_Channel chan, CONST char *str, int len, int atHead); /* 250 */ - void (*tcl_UnlinkVar) (Tcl_Interp *interp, CONST char *varName); /* 251 */ - int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ - int (*tcl_UnsetVar) (Tcl_Interp *interp, CONST char *varName, int flags); /* 253 */ - int (*tcl_UnsetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 254 */ - void (*tcl_UntraceVar) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ - void (*tcl_UntraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */ - void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, CONST char *varName); /* 257 */ - int (*tcl_UpVar) (Tcl_Interp *interp, CONST char *frameName, CONST char *varName, CONST char *localName, int flags); /* 258 */ - int (*tcl_UpVar2) (Tcl_Interp *interp, CONST char *frameName, CONST char *part1, CONST char *part2, CONST char *localName, int flags); /* 259 */ - int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ - ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */ - ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */ - int (*tcl_Write) (Tcl_Channel chan, CONST char *s, int slen); /* 263 */ - void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], CONST char *message); /* 264 */ - int (*tcl_DumpActiveMemory) (CONST char *fileName); /* 265 */ - void (*tcl_ValidateAllMemory) (CONST char *file, int line); /* 266 */ - void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */ - void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ - char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ - CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, CONST char *start, CONST84 char **termPtr); /* 270 */ - CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact); /* 271 */ - CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 272 */ - int (*tcl_PkgProvide) (Tcl_Interp *interp, CONST char *name, CONST char *version); /* 273 */ - CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact); /* 274 */ - void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */ - int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ - Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ - void (*tcl_PanicVA) (CONST char *format, va_list argList); /* 278 */ - void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */ - void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ - Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ - int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */ - Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ - void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ - VOID *reserved285; - void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ - Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType *typePtr); /* 287 */ - void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */ - void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */ - void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ - int (*tcl_EvalEx) (Tcl_Interp *interp, CONST char *script, int numBytes, int flags); /* 291 */ - int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 292 */ - int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ - void (*tcl_ExitThread) (int status); /* 294 */ - 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); /* 295 */ - char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */ - void (*tcl_FinalizeThread) (void); /* 297 */ - void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ - void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ - Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ - Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, CONST char *name); /* 301 */ - CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ - void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ - int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST VOID *tablePtr, int offset, CONST char *msg, int flags, int *indexPtr); /* 304 */ - VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */ - Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 306 */ - ClientData (*tcl_InitNotifier) (void); /* 307 */ - void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ - void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ - void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ - void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); /* 311 */ - int (*tcl_NumUtfChars) (CONST char *src, int length); /* 312 */ - int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */ - void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */ - void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ - int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, CONST char *name); /* 316 */ - Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ - void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ - void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ - Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char *src, int index); /* 320 */ - Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ - Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ - Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ - int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ - CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char *src, int index); /* 325 */ - int (*tcl_UtfCharComplete) (CONST char *src, int length); /* 326 */ - int (*tcl_UtfBackslash) (CONST char *src, int *readPtr, char *dst); /* 327 */ - CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char *src, int ch); /* 328 */ - CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char *src, int ch); /* 329 */ - CONST84_RETURN char * (*tcl_UtfNext) (CONST char *src); /* 330 */ - CONST84_RETURN char * (*tcl_UtfPrev) (CONST char *src, CONST char *start); /* 331 */ - 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); /* 332 */ - char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */ - int (*tcl_UtfToLower) (char *src); /* 334 */ - int (*tcl_UtfToTitle) (char *src); /* 335 */ - int (*tcl_UtfToUniChar) (CONST char *src, Tcl_UniChar *chPtr); /* 336 */ - int (*tcl_UtfToUpper) (char *src); /* 337 */ - int (*tcl_WriteChars) (Tcl_Channel chan, CONST char *src, int srcLen); /* 338 */ - int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ - char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ - CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ - void (*tcl_SetDefaultEncodingDir) (CONST char *path); /* 342 */ - void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ - void (*tcl_ServiceModeHook) (int mode); /* 344 */ - int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ - int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ - int (*tcl_UniCharIsDigit) (int ch); /* 347 */ - int (*tcl_UniCharIsLower) (int ch); /* 348 */ - int (*tcl_UniCharIsSpace) (int ch); /* 349 */ - int (*tcl_UniCharIsUpper) (int ch); /* 350 */ - int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ - int (*tcl_UniCharLen) (CONST Tcl_UniChar *uniStr); /* 352 */ - int (*tcl_UniCharNcmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars); /* 353 */ - char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */ - Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char *src, int length, Tcl_DString *dsPtr); /* 355 */ - Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */ - Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */ - void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ - void (*tcl_LogCommandInfo) (Tcl_Interp *interp, CONST char *script, CONST char *command, int length); /* 359 */ - int (*tcl_ParseBraces) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ - int (*tcl_ParseCommand) (Tcl_Interp *interp, CONST char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */ - int (*tcl_ParseExpr) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */ - int (*tcl_ParseQuotedString) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */ - int (*tcl_ParseVarName) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */ - char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ - int (*tcl_Chdir) (CONST char *dirName); /* 366 */ - int (*tcl_Access) (CONST char *path, int mode); /* 367 */ - int (*tcl_Stat) (CONST char *path, struct stat *bufPtr); /* 368 */ - int (*tcl_UtfNcmp) (CONST char *s1, CONST char *s2, unsigned long n); /* 369 */ - int (*tcl_UtfNcasecmp) (CONST char *s1, CONST char *s2, unsigned long n); /* 370 */ - int (*tcl_StringCaseMatch) (CONST char *str, CONST char *pattern, int nocase); /* 371 */ - int (*tcl_UniCharIsControl) (int ch); /* 372 */ - int (*tcl_UniCharIsGraph) (int ch); /* 373 */ - int (*tcl_UniCharIsPrint) (int ch); /* 374 */ - int (*tcl_UniCharIsPunct) (int ch); /* 375 */ - int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */ - void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ - Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar *unicode, int numChars); /* 378 */ - void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int numChars); /* 379 */ - int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ - Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ - Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ - Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */ - void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int length); /* 384 */ - int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ - void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ - Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ - int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ - int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, CONST char *pattern); /* 389 */ - int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 390 */ - void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ - void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ - int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); /* 393 */ - int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */ - int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char *src, int srcLen); /* 395 */ - Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ - int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ - CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType *chanTypePtr); /* 398 */ - Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType *chanTypePtr); /* 399 */ - Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_ChannelType *chanTypePtr); /* 400 */ - Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType *chanTypePtr); /* 401 */ - Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType *chanTypePtr); /* 402 */ - Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType *chanTypePtr); /* 403 */ - Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType *chanTypePtr); /* 404 */ - Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType *chanTypePtr); /* 405 */ - Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 406 */ - Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 407 */ - Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType *chanTypePtr); /* 408 */ - Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_ChannelType *chanTypePtr); /* 409 */ - Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType *chanTypePtr); /* 410 */ - Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelType *chanTypePtr); /* 411 */ - int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ - int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ - int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */ - void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ - void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ - void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ - int (*tcl_IsChannelExisting) (CONST char *channelName); /* 418 */ - int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars); /* 419 */ - int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar *uniPattern, int nocase); /* 420 */ - Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, CONST char *key); /* 421 */ - Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, CONST char *key, int *newPtr); /* 422 */ - void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, Tcl_HashKeyType *typePtr); /* 423 */ - void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ - ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */ - int (*tcl_TraceCommand) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ - void (*tcl_UntraceCommand) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ - char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ - char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char *file, int line); /* 429 */ - char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ - char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, CONST char *file, int line); /* 431 */ - int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ - Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ - Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */ - int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, CONST char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */ - Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, CONST char *pattern); /* 436 */ - Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */ - int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ - int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ - int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */ - int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ - int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ - int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ - 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); /* 444 */ - int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types); /* 445 */ - Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */ - int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ - int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ - int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ - int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ - int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */ - int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */ - CONST char ** (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */ - int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ - int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ - Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char *modeString, int permissions); /* 456 */ - Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ - int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ - int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ - Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ - Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ - int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ - Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */ - Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *CONST objv[]); /* 464 */ - ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, Tcl_Filesystem *fsPtr); /* 465 */ - Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ - int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ - Tcl_Obj * (*tcl_FSNewNativePath) (Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ - CONST char * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ - Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ - Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ - Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ - int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem *fsPtr); /* 473 */ - int (*tcl_FSUnregister) (Tcl_Filesystem *fsPtr); /* 474 */ - ClientData (*tcl_FSData) (Tcl_Filesystem *fsPtr); /* 475 */ - CONST char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */ - Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */ - Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ - int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ - void (*tcl_FSMountsChanged) (Tcl_Filesystem *fsPtr); /* 480 */ - int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ - void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ - Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */ - int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */ - int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInfo *infoPtr); /* 485 */ - Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char *file, int line); /* 486 */ - int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */ - Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ - void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ - Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ - Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ - Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ - Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelType *chanTypePtr); /* 493 */ - int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */ - int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ - int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ - int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */ - int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */ - void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ - void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ - int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); /* 501 */ - int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *CONST *keyv); /* 502 */ - Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ - Tcl_Obj * (*tcl_DbNewDictObj) (CONST char *file, int line); /* 504 */ - void (*tcl_RegisterConfig) (Tcl_Interp *interp, CONST char *pkgName, Tcl_Config *configuration, CONST char *valEncoding); /* 505 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 509 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 510 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 511 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */ - int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, CONST char *encodingName); /* 518 */ - Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */ - void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */ - void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */ - int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ - int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ - int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ - void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ - void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ - void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */ - int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ - int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */ - void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */ - void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ - int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ - void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ - int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */ - Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */ - int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */ - void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ - int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ - Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ - int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ - Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */ - Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */ - int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */ - int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */ - int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */ - int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ - int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */ - int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */ - int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */ - int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ - int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ - void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */ - void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ - Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 554 */ - Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ - Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, CONST char *file, int line); /* 556 */ - void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ - int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */ - int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ - int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ - Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelType *chanTypePtr); /* 561 */ - void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */ - void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ - void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ - void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */ - int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */ - Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */ - int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ - int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */ - Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ - int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ - CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */ - int (*tcl_PkgRequireProc) (Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr); /* 573 */ - void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ - void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length, int limit, CONST char *ellipsis); /* 575 */ - Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, CONST char *format, int objc, Tcl_Obj *CONST objv[]); /* 576 */ - int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST char *format, int objc, Tcl_Obj *CONST objv[]); /* 577 */ - Tcl_Obj * (*tcl_ObjPrintf) (CONST char *format, ...); /* 578 */ - void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, CONST char *format, ...); /* 579 */ - VOID *reserved580; - VOID *reserved581; - VOID *reserved582; - VOID *reserved583; - VOID *reserved584; - VOID *reserved585; - VOID *reserved586; - VOID *reserved587; - VOID *reserved588; - VOID *reserved589; - VOID *reserved590; - VOID *reserved591; - VOID *reserved592; - VOID *reserved593; - VOID *reserved594; - VOID *reserved595; - VOID *reserved596; - VOID *reserved597; - VOID *reserved598; - VOID *reserved599; - VOID *reserved600; - VOID *reserved601; - VOID *reserved602; - VOID *reserved603; - VOID *reserved604; - VOID *reserved605; - VOID *reserved606; - VOID *reserved607; - VOID *reserved608; - VOID *reserved609; - VOID *reserved610; - VOID *reserved611; - VOID *reserved612; - VOID *reserved613; - VOID *reserved614; - VOID *reserved615; - VOID *reserved616; - VOID *reserved617; - VOID *reserved618; - VOID *reserved619; - VOID *reserved620; - VOID *reserved621; - VOID *reserved622; - VOID *reserved623; - VOID *reserved624; - VOID *reserved625; - VOID *reserved626; - VOID *reserved627; - VOID *reserved628; - VOID *reserved629; - VOID *reserved630; - VOID *reserved631; - VOID *reserved632; - VOID *reserved633; - VOID *reserved634; - VOID *reserved635; - VOID *reserved636; - VOID *reserved637; - VOID *reserved638; - VOID *reserved639; - VOID *reserved640; - VOID *reserved641; - VOID *reserved642; - VOID *reserved643; - VOID *reserved644; - VOID *reserved645; - VOID *reserved646; - VOID *reserved647; - void (*tclUnusedStubEntry) (void); /* 648 */ -} TclStubs; - -extern TclStubs *tclStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tcl_PkgProvideEx -#define Tcl_PkgProvideEx \ - (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ -#endif -#ifndef Tcl_PkgRequireEx -#define Tcl_PkgRequireEx \ - (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ -#endif -#ifndef Tcl_Panic -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 2 */ -#endif -#ifndef Tcl_Alloc -#define Tcl_Alloc \ - (tclStubsPtr->tcl_Alloc) /* 3 */ -#endif -#ifndef Tcl_Free -#define Tcl_Free \ - (tclStubsPtr->tcl_Free) /* 4 */ -#endif -#ifndef Tcl_Realloc -#define Tcl_Realloc \ - (tclStubsPtr->tcl_Realloc) /* 5 */ -#endif -#ifndef Tcl_DbCkalloc -#define Tcl_DbCkalloc \ - (tclStubsPtr->tcl_DbCkalloc) /* 6 */ -#endif -#ifndef Tcl_DbCkfree -#define Tcl_DbCkfree \ - (tclStubsPtr->tcl_DbCkfree) /* 7 */ -#endif -#ifndef Tcl_DbCkrealloc -#define Tcl_DbCkrealloc \ - (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_SetTimer -#define Tcl_SetTimer \ - (tclStubsPtr->tcl_SetTimer) /* 11 */ -#endif -#ifndef Tcl_Sleep -#define Tcl_Sleep \ - (tclStubsPtr->tcl_Sleep) /* 12 */ -#endif -#ifndef Tcl_WaitForEvent -#define Tcl_WaitForEvent \ - (tclStubsPtr->tcl_WaitForEvent) /* 13 */ -#endif -#ifndef Tcl_AppendAllObjTypes -#define Tcl_AppendAllObjTypes \ - (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ -#endif -#ifndef Tcl_AppendStringsToObj -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ -#endif -#ifndef Tcl_AppendToObj -#define Tcl_AppendToObj \ - (tclStubsPtr->tcl_AppendToObj) /* 16 */ -#endif -#ifndef Tcl_ConcatObj -#define Tcl_ConcatObj \ - (tclStubsPtr->tcl_ConcatObj) /* 17 */ -#endif -#ifndef Tcl_ConvertToType -#define Tcl_ConvertToType \ - (tclStubsPtr->tcl_ConvertToType) /* 18 */ -#endif -#ifndef Tcl_DbDecrRefCount -#define Tcl_DbDecrRefCount \ - (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ -#endif -#ifndef Tcl_DbIncrRefCount -#define Tcl_DbIncrRefCount \ - (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ -#endif -#ifndef Tcl_DbIsShared -#define Tcl_DbIsShared \ - (tclStubsPtr->tcl_DbIsShared) /* 21 */ -#endif -#ifndef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj \ - (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ -#endif -#ifndef Tcl_DbNewByteArrayObj -#define Tcl_DbNewByteArrayObj \ - (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ -#endif -#ifndef Tcl_DbNewDoubleObj -#define Tcl_DbNewDoubleObj \ - (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ -#endif -#ifndef Tcl_DbNewListObj -#define Tcl_DbNewListObj \ - (tclStubsPtr->tcl_DbNewListObj) /* 25 */ -#endif -#ifndef Tcl_DbNewLongObj -#define Tcl_DbNewLongObj \ - (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ -#endif -#ifndef Tcl_DbNewObj -#define Tcl_DbNewObj \ - (tclStubsPtr->tcl_DbNewObj) /* 27 */ -#endif -#ifndef Tcl_DbNewStringObj -#define Tcl_DbNewStringObj \ - (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ -#endif -#ifndef Tcl_DuplicateObj -#define Tcl_DuplicateObj \ - (tclStubsPtr->tcl_DuplicateObj) /* 29 */ -#endif -#ifndef TclFreeObj -#define TclFreeObj \ - (tclStubsPtr->tclFreeObj) /* 30 */ -#endif -#ifndef Tcl_GetBoolean -#define Tcl_GetBoolean \ - (tclStubsPtr->tcl_GetBoolean) /* 31 */ -#endif -#ifndef Tcl_GetBooleanFromObj -#define Tcl_GetBooleanFromObj \ - (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ -#endif -#ifndef Tcl_GetByteArrayFromObj -#define Tcl_GetByteArrayFromObj \ - (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ -#endif -#ifndef Tcl_GetDouble -#define Tcl_GetDouble \ - (tclStubsPtr->tcl_GetDouble) /* 34 */ -#endif -#ifndef Tcl_GetDoubleFromObj -#define Tcl_GetDoubleFromObj \ - (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ -#endif -#ifndef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj \ - (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ -#endif -#ifndef Tcl_GetInt -#define Tcl_GetInt \ - (tclStubsPtr->tcl_GetInt) /* 37 */ -#endif -#ifndef Tcl_GetIntFromObj -#define Tcl_GetIntFromObj \ - (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ -#endif -#ifndef Tcl_GetLongFromObj -#define Tcl_GetLongFromObj \ - (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ -#endif -#ifndef Tcl_GetObjType -#define Tcl_GetObjType \ - (tclStubsPtr->tcl_GetObjType) /* 40 */ -#endif -#ifndef Tcl_GetStringFromObj -#define Tcl_GetStringFromObj \ - (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ -#endif -#ifndef Tcl_InvalidateStringRep -#define Tcl_InvalidateStringRep \ - (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ -#endif -#ifndef Tcl_ListObjAppendList -#define Tcl_ListObjAppendList \ - (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ -#endif -#ifndef Tcl_ListObjAppendElement -#define Tcl_ListObjAppendElement \ - (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ -#endif -#ifndef Tcl_ListObjGetElements -#define Tcl_ListObjGetElements \ - (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ -#endif -#ifndef Tcl_ListObjIndex -#define Tcl_ListObjIndex \ - (tclStubsPtr->tcl_ListObjIndex) /* 46 */ -#endif -#ifndef Tcl_ListObjLength -#define Tcl_ListObjLength \ - (tclStubsPtr->tcl_ListObjLength) /* 47 */ -#endif -#ifndef Tcl_ListObjReplace -#define Tcl_ListObjReplace \ - (tclStubsPtr->tcl_ListObjReplace) /* 48 */ -#endif -#ifndef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj \ - (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ -#endif -#ifndef Tcl_NewByteArrayObj -#define Tcl_NewByteArrayObj \ - (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ -#endif -#ifndef Tcl_NewDoubleObj -#define Tcl_NewDoubleObj \ - (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ -#endif -#ifndef Tcl_NewIntObj -#define Tcl_NewIntObj \ - (tclStubsPtr->tcl_NewIntObj) /* 52 */ -#endif -#ifndef Tcl_NewListObj -#define Tcl_NewListObj \ - (tclStubsPtr->tcl_NewListObj) /* 53 */ -#endif -#ifndef Tcl_NewLongObj -#define Tcl_NewLongObj \ - (tclStubsPtr->tcl_NewLongObj) /* 54 */ -#endif -#ifndef Tcl_NewObj -#define Tcl_NewObj \ - (tclStubsPtr->tcl_NewObj) /* 55 */ -#endif -#ifndef Tcl_NewStringObj -#define Tcl_NewStringObj \ - (tclStubsPtr->tcl_NewStringObj) /* 56 */ -#endif -#ifndef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj \ - (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ -#endif -#ifndef Tcl_SetByteArrayLength -#define Tcl_SetByteArrayLength \ - (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ -#endif -#ifndef Tcl_SetByteArrayObj -#define Tcl_SetByteArrayObj \ - (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ -#endif -#ifndef Tcl_SetDoubleObj -#define Tcl_SetDoubleObj \ - (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ -#endif -#ifndef Tcl_SetIntObj -#define Tcl_SetIntObj \ - (tclStubsPtr->tcl_SetIntObj) /* 61 */ -#endif -#ifndef Tcl_SetListObj -#define Tcl_SetListObj \ - (tclStubsPtr->tcl_SetListObj) /* 62 */ -#endif -#ifndef Tcl_SetLongObj -#define Tcl_SetLongObj \ - (tclStubsPtr->tcl_SetLongObj) /* 63 */ -#endif -#ifndef Tcl_SetObjLength -#define Tcl_SetObjLength \ - (tclStubsPtr->tcl_SetObjLength) /* 64 */ -#endif -#ifndef Tcl_SetStringObj -#define Tcl_SetStringObj \ - (tclStubsPtr->tcl_SetStringObj) /* 65 */ -#endif -#ifndef Tcl_AddErrorInfo -#define Tcl_AddErrorInfo \ - (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ -#endif -#ifndef Tcl_AddObjErrorInfo -#define Tcl_AddObjErrorInfo \ - (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ -#endif -#ifndef Tcl_AllowExceptions -#define Tcl_AllowExceptions \ - (tclStubsPtr->tcl_AllowExceptions) /* 68 */ -#endif -#ifndef Tcl_AppendElement -#define Tcl_AppendElement \ - (tclStubsPtr->tcl_AppendElement) /* 69 */ -#endif -#ifndef Tcl_AppendResult -#define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 70 */ -#endif -#ifndef Tcl_AsyncCreate -#define Tcl_AsyncCreate \ - (tclStubsPtr->tcl_AsyncCreate) /* 71 */ -#endif -#ifndef Tcl_AsyncDelete -#define Tcl_AsyncDelete \ - (tclStubsPtr->tcl_AsyncDelete) /* 72 */ -#endif -#ifndef Tcl_AsyncInvoke -#define Tcl_AsyncInvoke \ - (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ -#endif -#ifndef Tcl_AsyncMark -#define Tcl_AsyncMark \ - (tclStubsPtr->tcl_AsyncMark) /* 74 */ -#endif -#ifndef Tcl_AsyncReady -#define Tcl_AsyncReady \ - (tclStubsPtr->tcl_AsyncReady) /* 75 */ -#endif -#ifndef Tcl_BackgroundError -#define Tcl_BackgroundError \ - (tclStubsPtr->tcl_BackgroundError) /* 76 */ -#endif -#ifndef Tcl_Backslash -#define Tcl_Backslash \ - (tclStubsPtr->tcl_Backslash) /* 77 */ -#endif -#ifndef Tcl_BadChannelOption -#define Tcl_BadChannelOption \ - (tclStubsPtr->tcl_BadChannelOption) /* 78 */ -#endif -#ifndef Tcl_CallWhenDeleted -#define Tcl_CallWhenDeleted \ - (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ -#endif -#ifndef Tcl_CancelIdleCall -#define Tcl_CancelIdleCall \ - (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ -#endif -#ifndef Tcl_Close -#define Tcl_Close \ - (tclStubsPtr->tcl_Close) /* 81 */ -#endif -#ifndef Tcl_CommandComplete -#define Tcl_CommandComplete \ - (tclStubsPtr->tcl_CommandComplete) /* 82 */ -#endif -#ifndef Tcl_Concat -#define Tcl_Concat \ - (tclStubsPtr->tcl_Concat) /* 83 */ -#endif -#ifndef Tcl_ConvertElement -#define Tcl_ConvertElement \ - (tclStubsPtr->tcl_ConvertElement) /* 84 */ -#endif -#ifndef Tcl_ConvertCountedElement -#define Tcl_ConvertCountedElement \ - (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ -#endif -#ifndef Tcl_CreateAlias -#define Tcl_CreateAlias \ - (tclStubsPtr->tcl_CreateAlias) /* 86 */ -#endif -#ifndef Tcl_CreateAliasObj -#define Tcl_CreateAliasObj \ - (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ -#endif -#ifndef Tcl_CreateChannel -#define Tcl_CreateChannel \ - (tclStubsPtr->tcl_CreateChannel) /* 88 */ -#endif -#ifndef Tcl_CreateChannelHandler -#define Tcl_CreateChannelHandler \ - (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ -#endif -#ifndef Tcl_CreateCloseHandler -#define Tcl_CreateCloseHandler \ - (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ -#endif -#ifndef Tcl_CreateCommand -#define Tcl_CreateCommand \ - (tclStubsPtr->tcl_CreateCommand) /* 91 */ -#endif -#ifndef Tcl_CreateEventSource -#define Tcl_CreateEventSource \ - (tclStubsPtr->tcl_CreateEventSource) /* 92 */ -#endif -#ifndef Tcl_CreateExitHandler -#define Tcl_CreateExitHandler \ - (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ -#endif -#ifndef Tcl_CreateInterp -#define Tcl_CreateInterp \ - (tclStubsPtr->tcl_CreateInterp) /* 94 */ -#endif -#ifndef Tcl_CreateMathFunc -#define Tcl_CreateMathFunc \ - (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ -#endif -#ifndef Tcl_CreateObjCommand -#define Tcl_CreateObjCommand \ - (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ -#endif -#ifndef Tcl_CreateSlave -#define Tcl_CreateSlave \ - (tclStubsPtr->tcl_CreateSlave) /* 97 */ -#endif -#ifndef Tcl_CreateTimerHandler -#define Tcl_CreateTimerHandler \ - (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ -#endif -#ifndef Tcl_CreateTrace -#define Tcl_CreateTrace \ - (tclStubsPtr->tcl_CreateTrace) /* 99 */ -#endif -#ifndef Tcl_DeleteAssocData -#define Tcl_DeleteAssocData \ - (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ -#endif -#ifndef Tcl_DeleteChannelHandler -#define Tcl_DeleteChannelHandler \ - (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ -#endif -#ifndef Tcl_DeleteCloseHandler -#define Tcl_DeleteCloseHandler \ - (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ -#endif -#ifndef Tcl_DeleteCommand -#define Tcl_DeleteCommand \ - (tclStubsPtr->tcl_DeleteCommand) /* 103 */ -#endif -#ifndef Tcl_DeleteCommandFromToken -#define Tcl_DeleteCommandFromToken \ - (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ -#endif -#ifndef Tcl_DeleteEvents -#define Tcl_DeleteEvents \ - (tclStubsPtr->tcl_DeleteEvents) /* 105 */ -#endif -#ifndef Tcl_DeleteEventSource -#define Tcl_DeleteEventSource \ - (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ -#endif -#ifndef Tcl_DeleteExitHandler -#define Tcl_DeleteExitHandler \ - (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ -#endif -#ifndef Tcl_DeleteHashEntry -#define Tcl_DeleteHashEntry \ - (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ -#endif -#ifndef Tcl_DeleteHashTable -#define Tcl_DeleteHashTable \ - (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ -#endif -#ifndef Tcl_DeleteInterp -#define Tcl_DeleteInterp \ - (tclStubsPtr->tcl_DeleteInterp) /* 110 */ -#endif -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#ifndef Tcl_DeleteTimerHandler -#define Tcl_DeleteTimerHandler \ - (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ -#endif -#ifndef Tcl_DeleteTrace -#define Tcl_DeleteTrace \ - (tclStubsPtr->tcl_DeleteTrace) /* 113 */ -#endif -#ifndef Tcl_DontCallWhenDeleted -#define Tcl_DontCallWhenDeleted \ - (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ -#endif -#ifndef Tcl_DoOneEvent -#define Tcl_DoOneEvent \ - (tclStubsPtr->tcl_DoOneEvent) /* 115 */ -#endif -#ifndef Tcl_DoWhenIdle -#define Tcl_DoWhenIdle \ - (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ -#endif -#ifndef Tcl_DStringAppend -#define Tcl_DStringAppend \ - (tclStubsPtr->tcl_DStringAppend) /* 117 */ -#endif -#ifndef Tcl_DStringAppendElement -#define Tcl_DStringAppendElement \ - (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ -#endif -#ifndef Tcl_DStringEndSublist -#define Tcl_DStringEndSublist \ - (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ -#endif -#ifndef Tcl_DStringFree -#define Tcl_DStringFree \ - (tclStubsPtr->tcl_DStringFree) /* 120 */ -#endif -#ifndef Tcl_DStringGetResult -#define Tcl_DStringGetResult \ - (tclStubsPtr->tcl_DStringGetResult) /* 121 */ -#endif -#ifndef Tcl_DStringInit -#define Tcl_DStringInit \ - (tclStubsPtr->tcl_DStringInit) /* 122 */ -#endif -#ifndef Tcl_DStringResult -#define Tcl_DStringResult \ - (tclStubsPtr->tcl_DStringResult) /* 123 */ -#endif -#ifndef Tcl_DStringSetLength -#define Tcl_DStringSetLength \ - (tclStubsPtr->tcl_DStringSetLength) /* 124 */ -#endif -#ifndef Tcl_DStringStartSublist -#define Tcl_DStringStartSublist \ - (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ -#endif -#ifndef Tcl_Eof -#define Tcl_Eof \ - (tclStubsPtr->tcl_Eof) /* 126 */ -#endif -#ifndef Tcl_ErrnoId -#define Tcl_ErrnoId \ - (tclStubsPtr->tcl_ErrnoId) /* 127 */ -#endif -#ifndef Tcl_ErrnoMsg -#define Tcl_ErrnoMsg \ - (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ -#endif -#ifndef Tcl_Eval -#define Tcl_Eval \ - (tclStubsPtr->tcl_Eval) /* 129 */ -#endif -#ifndef Tcl_EvalFile -#define Tcl_EvalFile \ - (tclStubsPtr->tcl_EvalFile) /* 130 */ -#endif -#ifndef Tcl_EvalObj -#define Tcl_EvalObj \ - (tclStubsPtr->tcl_EvalObj) /* 131 */ -#endif -#ifndef Tcl_EventuallyFree -#define Tcl_EventuallyFree \ - (tclStubsPtr->tcl_EventuallyFree) /* 132 */ -#endif -#ifndef Tcl_Exit -#define Tcl_Exit \ - (tclStubsPtr->tcl_Exit) /* 133 */ -#endif -#ifndef Tcl_ExposeCommand -#define Tcl_ExposeCommand \ - (tclStubsPtr->tcl_ExposeCommand) /* 134 */ -#endif -#ifndef Tcl_ExprBoolean -#define Tcl_ExprBoolean \ - (tclStubsPtr->tcl_ExprBoolean) /* 135 */ -#endif -#ifndef Tcl_ExprBooleanObj -#define Tcl_ExprBooleanObj \ - (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ -#endif -#ifndef Tcl_ExprDouble -#define Tcl_ExprDouble \ - (tclStubsPtr->tcl_ExprDouble) /* 137 */ -#endif -#ifndef Tcl_ExprDoubleObj -#define Tcl_ExprDoubleObj \ - (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ -#endif -#ifndef Tcl_ExprLong -#define Tcl_ExprLong \ - (tclStubsPtr->tcl_ExprLong) /* 139 */ -#endif -#ifndef Tcl_ExprLongObj -#define Tcl_ExprLongObj \ - (tclStubsPtr->tcl_ExprLongObj) /* 140 */ -#endif -#ifndef Tcl_ExprObj -#define Tcl_ExprObj \ - (tclStubsPtr->tcl_ExprObj) /* 141 */ -#endif -#ifndef Tcl_ExprString -#define Tcl_ExprString \ - (tclStubsPtr->tcl_ExprString) /* 142 */ -#endif -#ifndef Tcl_Finalize -#define Tcl_Finalize \ - (tclStubsPtr->tcl_Finalize) /* 143 */ -#endif -#ifndef Tcl_FindExecutable -#define Tcl_FindExecutable \ - (tclStubsPtr->tcl_FindExecutable) /* 144 */ -#endif -#ifndef Tcl_FirstHashEntry -#define Tcl_FirstHashEntry \ - (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ -#endif -#ifndef Tcl_Flush -#define Tcl_Flush \ - (tclStubsPtr->tcl_Flush) /* 146 */ -#endif -#ifndef Tcl_FreeResult -#define Tcl_FreeResult \ - (tclStubsPtr->tcl_FreeResult) /* 147 */ -#endif -#ifndef Tcl_GetAlias -#define Tcl_GetAlias \ - (tclStubsPtr->tcl_GetAlias) /* 148 */ -#endif -#ifndef Tcl_GetAliasObj -#define Tcl_GetAliasObj \ - (tclStubsPtr->tcl_GetAliasObj) /* 149 */ -#endif -#ifndef Tcl_GetAssocData -#define Tcl_GetAssocData \ - (tclStubsPtr->tcl_GetAssocData) /* 150 */ -#endif -#ifndef Tcl_GetChannel -#define Tcl_GetChannel \ - (tclStubsPtr->tcl_GetChannel) /* 151 */ -#endif -#ifndef Tcl_GetChannelBufferSize -#define Tcl_GetChannelBufferSize \ - (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ -#endif -#ifndef Tcl_GetChannelHandle -#define Tcl_GetChannelHandle \ - (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ -#endif -#ifndef Tcl_GetChannelInstanceData -#define Tcl_GetChannelInstanceData \ - (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ -#endif -#ifndef Tcl_GetChannelMode -#define Tcl_GetChannelMode \ - (tclStubsPtr->tcl_GetChannelMode) /* 155 */ -#endif -#ifndef Tcl_GetChannelName -#define Tcl_GetChannelName \ - (tclStubsPtr->tcl_GetChannelName) /* 156 */ -#endif -#ifndef Tcl_GetChannelOption -#define Tcl_GetChannelOption \ - (tclStubsPtr->tcl_GetChannelOption) /* 157 */ -#endif -#ifndef Tcl_GetChannelType -#define Tcl_GetChannelType \ - (tclStubsPtr->tcl_GetChannelType) /* 158 */ -#endif -#ifndef Tcl_GetCommandInfo -#define Tcl_GetCommandInfo \ - (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ -#endif -#ifndef Tcl_GetCommandName -#define Tcl_GetCommandName \ - (tclStubsPtr->tcl_GetCommandName) /* 160 */ -#endif -#ifndef Tcl_GetErrno -#define Tcl_GetErrno \ - (tclStubsPtr->tcl_GetErrno) /* 161 */ -#endif -#ifndef Tcl_GetHostName -#define Tcl_GetHostName \ - (tclStubsPtr->tcl_GetHostName) /* 162 */ -#endif -#ifndef Tcl_GetInterpPath -#define Tcl_GetInterpPath \ - (tclStubsPtr->tcl_GetInterpPath) /* 163 */ -#endif -#ifndef Tcl_GetMaster -#define Tcl_GetMaster \ - (tclStubsPtr->tcl_GetMaster) /* 164 */ -#endif -#ifndef Tcl_GetNameOfExecutable -#define Tcl_GetNameOfExecutable \ - (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ -#endif -#ifndef Tcl_GetObjResult -#define Tcl_GetObjResult \ - (tclStubsPtr->tcl_GetObjResult) /* 166 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_GetPathType -#define Tcl_GetPathType \ - (tclStubsPtr->tcl_GetPathType) /* 168 */ -#endif -#ifndef Tcl_Gets -#define Tcl_Gets \ - (tclStubsPtr->tcl_Gets) /* 169 */ -#endif -#ifndef Tcl_GetsObj -#define Tcl_GetsObj \ - (tclStubsPtr->tcl_GetsObj) /* 170 */ -#endif -#ifndef Tcl_GetServiceMode -#define Tcl_GetServiceMode \ - (tclStubsPtr->tcl_GetServiceMode) /* 171 */ -#endif -#ifndef Tcl_GetSlave -#define Tcl_GetSlave \ - (tclStubsPtr->tcl_GetSlave) /* 172 */ -#endif -#ifndef Tcl_GetStdChannel -#define Tcl_GetStdChannel \ - (tclStubsPtr->tcl_GetStdChannel) /* 173 */ -#endif -#ifndef Tcl_GetStringResult -#define Tcl_GetStringResult \ - (tclStubsPtr->tcl_GetStringResult) /* 174 */ -#endif -#ifndef Tcl_GetVar -#define Tcl_GetVar \ - (tclStubsPtr->tcl_GetVar) /* 175 */ -#endif -#ifndef Tcl_GetVar2 -#define Tcl_GetVar2 \ - (tclStubsPtr->tcl_GetVar2) /* 176 */ -#endif -#ifndef Tcl_GlobalEval -#define Tcl_GlobalEval \ - (tclStubsPtr->tcl_GlobalEval) /* 177 */ -#endif -#ifndef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj \ - (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ -#endif -#ifndef Tcl_HideCommand -#define Tcl_HideCommand \ - (tclStubsPtr->tcl_HideCommand) /* 179 */ -#endif -#ifndef Tcl_Init -#define Tcl_Init \ - (tclStubsPtr->tcl_Init) /* 180 */ -#endif -#ifndef Tcl_InitHashTable -#define Tcl_InitHashTable \ - (tclStubsPtr->tcl_InitHashTable) /* 181 */ -#endif -#ifndef Tcl_InputBlocked -#define Tcl_InputBlocked \ - (tclStubsPtr->tcl_InputBlocked) /* 182 */ -#endif -#ifndef Tcl_InputBuffered -#define Tcl_InputBuffered \ - (tclStubsPtr->tcl_InputBuffered) /* 183 */ -#endif -#ifndef Tcl_InterpDeleted -#define Tcl_InterpDeleted \ - (tclStubsPtr->tcl_InterpDeleted) /* 184 */ -#endif -#ifndef Tcl_IsSafe -#define Tcl_IsSafe \ - (tclStubsPtr->tcl_IsSafe) /* 185 */ -#endif -#ifndef Tcl_JoinPath -#define Tcl_JoinPath \ - (tclStubsPtr->tcl_JoinPath) /* 186 */ -#endif -#ifndef Tcl_LinkVar -#define Tcl_LinkVar \ - (tclStubsPtr->tcl_LinkVar) /* 187 */ -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel -#define Tcl_MakeFileChannel \ - (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ -#endif -#ifndef Tcl_MakeSafe -#define Tcl_MakeSafe \ - (tclStubsPtr->tcl_MakeSafe) /* 190 */ -#endif -#ifndef Tcl_MakeTcpClientChannel -#define Tcl_MakeTcpClientChannel \ - (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ -#endif -#ifndef Tcl_Merge -#define Tcl_Merge \ - (tclStubsPtr->tcl_Merge) /* 192 */ -#endif -#ifndef Tcl_NextHashEntry -#define Tcl_NextHashEntry \ - (tclStubsPtr->tcl_NextHashEntry) /* 193 */ -#endif -#ifndef Tcl_NotifyChannel -#define Tcl_NotifyChannel \ - (tclStubsPtr->tcl_NotifyChannel) /* 194 */ -#endif -#ifndef Tcl_ObjGetVar2 -#define Tcl_ObjGetVar2 \ - (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ -#endif -#ifndef Tcl_ObjSetVar2 -#define Tcl_ObjSetVar2 \ - (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ -#endif -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#ifndef Tcl_OpenFileChannel -#define Tcl_OpenFileChannel \ - (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ -#endif -#ifndef Tcl_OpenTcpClient -#define Tcl_OpenTcpClient \ - (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ -#endif -#ifndef Tcl_OpenTcpServer -#define Tcl_OpenTcpServer \ - (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ -#endif -#ifndef Tcl_Preserve -#define Tcl_Preserve \ - (tclStubsPtr->tcl_Preserve) /* 201 */ -#endif -#ifndef Tcl_PrintDouble -#define Tcl_PrintDouble \ - (tclStubsPtr->tcl_PrintDouble) /* 202 */ -#endif -#ifndef Tcl_PutEnv -#define Tcl_PutEnv \ - (tclStubsPtr->tcl_PutEnv) /* 203 */ -#endif -#ifndef Tcl_PosixError -#define Tcl_PosixError \ - (tclStubsPtr->tcl_PosixError) /* 204 */ -#endif -#ifndef Tcl_QueueEvent -#define Tcl_QueueEvent \ - (tclStubsPtr->tcl_QueueEvent) /* 205 */ -#endif -#ifndef Tcl_Read -#define Tcl_Read \ - (tclStubsPtr->tcl_Read) /* 206 */ -#endif -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#ifndef Tcl_RecordAndEval -#define Tcl_RecordAndEval \ - (tclStubsPtr->tcl_RecordAndEval) /* 208 */ -#endif -#ifndef Tcl_RecordAndEvalObj -#define Tcl_RecordAndEvalObj \ - (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ -#endif -#ifndef Tcl_RegisterChannel -#define Tcl_RegisterChannel \ - (tclStubsPtr->tcl_RegisterChannel) /* 210 */ -#endif -#ifndef Tcl_RegisterObjType -#define Tcl_RegisterObjType \ - (tclStubsPtr->tcl_RegisterObjType) /* 211 */ -#endif -#ifndef Tcl_RegExpCompile -#define Tcl_RegExpCompile \ - (tclStubsPtr->tcl_RegExpCompile) /* 212 */ -#endif -#ifndef Tcl_RegExpExec -#define Tcl_RegExpExec \ - (tclStubsPtr->tcl_RegExpExec) /* 213 */ -#endif -#ifndef Tcl_RegExpMatch -#define Tcl_RegExpMatch \ - (tclStubsPtr->tcl_RegExpMatch) /* 214 */ -#endif -#ifndef Tcl_RegExpRange -#define Tcl_RegExpRange \ - (tclStubsPtr->tcl_RegExpRange) /* 215 */ -#endif -#ifndef Tcl_Release -#define Tcl_Release \ - (tclStubsPtr->tcl_Release) /* 216 */ -#endif -#ifndef Tcl_ResetResult -#define Tcl_ResetResult \ - (tclStubsPtr->tcl_ResetResult) /* 217 */ -#endif -#ifndef Tcl_ScanElement -#define Tcl_ScanElement \ - (tclStubsPtr->tcl_ScanElement) /* 218 */ -#endif -#ifndef Tcl_ScanCountedElement -#define Tcl_ScanCountedElement \ - (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ -#endif -#ifndef Tcl_SeekOld -#define Tcl_SeekOld \ - (tclStubsPtr->tcl_SeekOld) /* 220 */ -#endif -#ifndef Tcl_ServiceAll -#define Tcl_ServiceAll \ - (tclStubsPtr->tcl_ServiceAll) /* 221 */ -#endif -#ifndef Tcl_ServiceEvent -#define Tcl_ServiceEvent \ - (tclStubsPtr->tcl_ServiceEvent) /* 222 */ -#endif -#ifndef Tcl_SetAssocData -#define Tcl_SetAssocData \ - (tclStubsPtr->tcl_SetAssocData) /* 223 */ -#endif -#ifndef Tcl_SetChannelBufferSize -#define Tcl_SetChannelBufferSize \ - (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ -#endif -#ifndef Tcl_SetChannelOption -#define Tcl_SetChannelOption \ - (tclStubsPtr->tcl_SetChannelOption) /* 225 */ -#endif -#ifndef Tcl_SetCommandInfo -#define Tcl_SetCommandInfo \ - (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ -#endif -#ifndef Tcl_SetErrno -#define Tcl_SetErrno \ - (tclStubsPtr->tcl_SetErrno) /* 227 */ -#endif -#ifndef Tcl_SetErrorCode -#define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 228 */ -#endif -#ifndef Tcl_SetMaxBlockTime -#define Tcl_SetMaxBlockTime \ - (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ -#endif -#ifndef Tcl_SetPanicProc -#define Tcl_SetPanicProc \ - (tclStubsPtr->tcl_SetPanicProc) /* 230 */ -#endif -#ifndef Tcl_SetRecursionLimit -#define Tcl_SetRecursionLimit \ - (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ -#endif -#ifndef Tcl_SetResult -#define Tcl_SetResult \ - (tclStubsPtr->tcl_SetResult) /* 232 */ -#endif -#ifndef Tcl_SetServiceMode -#define Tcl_SetServiceMode \ - (tclStubsPtr->tcl_SetServiceMode) /* 233 */ -#endif -#ifndef Tcl_SetObjErrorCode -#define Tcl_SetObjErrorCode \ - (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ -#endif -#ifndef Tcl_SetObjResult -#define Tcl_SetObjResult \ - (tclStubsPtr->tcl_SetObjResult) /* 235 */ -#endif -#ifndef Tcl_SetStdChannel -#define Tcl_SetStdChannel \ - (tclStubsPtr->tcl_SetStdChannel) /* 236 */ -#endif -#ifndef Tcl_SetVar -#define Tcl_SetVar \ - (tclStubsPtr->tcl_SetVar) /* 237 */ -#endif -#ifndef Tcl_SetVar2 -#define Tcl_SetVar2 \ - (tclStubsPtr->tcl_SetVar2) /* 238 */ -#endif -#ifndef Tcl_SignalId -#define Tcl_SignalId \ - (tclStubsPtr->tcl_SignalId) /* 239 */ -#endif -#ifndef Tcl_SignalMsg -#define Tcl_SignalMsg \ - (tclStubsPtr->tcl_SignalMsg) /* 240 */ -#endif -#ifndef Tcl_SourceRCFile -#define Tcl_SourceRCFile \ - (tclStubsPtr->tcl_SourceRCFile) /* 241 */ -#endif -#ifndef Tcl_SplitList -#define Tcl_SplitList \ - (tclStubsPtr->tcl_SplitList) /* 242 */ -#endif -#ifndef Tcl_SplitPath -#define Tcl_SplitPath \ - (tclStubsPtr->tcl_SplitPath) /* 243 */ -#endif -#ifndef Tcl_StaticPackage -#define Tcl_StaticPackage \ - (tclStubsPtr->tcl_StaticPackage) /* 244 */ -#endif -#ifndef Tcl_StringMatch -#define Tcl_StringMatch \ - (tclStubsPtr->tcl_StringMatch) /* 245 */ -#endif -#ifndef Tcl_TellOld -#define Tcl_TellOld \ - (tclStubsPtr->tcl_TellOld) /* 246 */ -#endif -#ifndef Tcl_TraceVar -#define Tcl_TraceVar \ - (tclStubsPtr->tcl_TraceVar) /* 247 */ -#endif -#ifndef Tcl_TraceVar2 -#define Tcl_TraceVar2 \ - (tclStubsPtr->tcl_TraceVar2) /* 248 */ -#endif -#ifndef Tcl_TranslateFileName -#define Tcl_TranslateFileName \ - (tclStubsPtr->tcl_TranslateFileName) /* 249 */ -#endif -#ifndef Tcl_Ungets -#define Tcl_Ungets \ - (tclStubsPtr->tcl_Ungets) /* 250 */ -#endif -#ifndef Tcl_UnlinkVar -#define Tcl_UnlinkVar \ - (tclStubsPtr->tcl_UnlinkVar) /* 251 */ -#endif -#ifndef Tcl_UnregisterChannel -#define Tcl_UnregisterChannel \ - (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ -#endif -#ifndef Tcl_UnsetVar -#define Tcl_UnsetVar \ - (tclStubsPtr->tcl_UnsetVar) /* 253 */ -#endif -#ifndef Tcl_UnsetVar2 -#define Tcl_UnsetVar2 \ - (tclStubsPtr->tcl_UnsetVar2) /* 254 */ -#endif -#ifndef Tcl_UntraceVar -#define Tcl_UntraceVar \ - (tclStubsPtr->tcl_UntraceVar) /* 255 */ -#endif -#ifndef Tcl_UntraceVar2 -#define Tcl_UntraceVar2 \ - (tclStubsPtr->tcl_UntraceVar2) /* 256 */ -#endif -#ifndef Tcl_UpdateLinkedVar -#define Tcl_UpdateLinkedVar \ - (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ -#endif -#ifndef Tcl_UpVar -#define Tcl_UpVar \ - (tclStubsPtr->tcl_UpVar) /* 258 */ -#endif -#ifndef Tcl_UpVar2 -#define Tcl_UpVar2 \ - (tclStubsPtr->tcl_UpVar2) /* 259 */ -#endif -#ifndef Tcl_VarEval -#define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 260 */ -#endif -#ifndef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo \ - (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ -#endif -#ifndef Tcl_VarTraceInfo2 -#define Tcl_VarTraceInfo2 \ - (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ -#endif -#ifndef Tcl_Write -#define Tcl_Write \ - (tclStubsPtr->tcl_Write) /* 263 */ -#endif -#ifndef Tcl_WrongNumArgs -#define Tcl_WrongNumArgs \ - (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ -#endif -#ifndef Tcl_DumpActiveMemory -#define Tcl_DumpActiveMemory \ - (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ -#endif -#ifndef Tcl_ValidateAllMemory -#define Tcl_ValidateAllMemory \ - (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ -#endif -#ifndef Tcl_AppendResultVA -#define Tcl_AppendResultVA \ - (tclStubsPtr->tcl_AppendResultVA) /* 267 */ -#endif -#ifndef Tcl_AppendStringsToObjVA -#define Tcl_AppendStringsToObjVA \ - (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ -#endif -#ifndef Tcl_HashStats -#define Tcl_HashStats \ - (tclStubsPtr->tcl_HashStats) /* 269 */ -#endif -#ifndef Tcl_ParseVar -#define Tcl_ParseVar \ - (tclStubsPtr->tcl_ParseVar) /* 270 */ -#endif -#ifndef Tcl_PkgPresent -#define Tcl_PkgPresent \ - (tclStubsPtr->tcl_PkgPresent) /* 271 */ -#endif -#ifndef Tcl_PkgPresentEx -#define Tcl_PkgPresentEx \ - (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ -#endif -#ifndef Tcl_PkgProvide -#define Tcl_PkgProvide \ - (tclStubsPtr->tcl_PkgProvide) /* 273 */ -#endif -#ifndef Tcl_PkgRequire -#define Tcl_PkgRequire \ - (tclStubsPtr->tcl_PkgRequire) /* 274 */ -#endif -#ifndef Tcl_SetErrorCodeVA -#define Tcl_SetErrorCodeVA \ - (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ -#endif -#ifndef Tcl_VarEvalVA -#define Tcl_VarEvalVA \ - (tclStubsPtr->tcl_VarEvalVA) /* 276 */ -#endif -#ifndef Tcl_WaitPid -#define Tcl_WaitPid \ - (tclStubsPtr->tcl_WaitPid) /* 277 */ -#endif -#ifndef Tcl_PanicVA -#define Tcl_PanicVA \ - (tclStubsPtr->tcl_PanicVA) /* 278 */ -#endif -#ifndef Tcl_GetVersion -#define Tcl_GetVersion \ - (tclStubsPtr->tcl_GetVersion) /* 279 */ -#endif -#ifndef Tcl_InitMemory -#define Tcl_InitMemory \ - (tclStubsPtr->tcl_InitMemory) /* 280 */ -#endif -#ifndef Tcl_StackChannel -#define Tcl_StackChannel \ - (tclStubsPtr->tcl_StackChannel) /* 281 */ -#endif -#ifndef Tcl_UnstackChannel -#define Tcl_UnstackChannel \ - (tclStubsPtr->tcl_UnstackChannel) /* 282 */ -#endif -#ifndef Tcl_GetStackedChannel -#define Tcl_GetStackedChannel \ - (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ -#endif -#ifndef Tcl_SetMainLoop -#define Tcl_SetMainLoop \ - (tclStubsPtr->tcl_SetMainLoop) /* 284 */ -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj -#define Tcl_AppendObjToObj \ - (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ -#endif -#ifndef Tcl_CreateEncoding -#define Tcl_CreateEncoding \ - (tclStubsPtr->tcl_CreateEncoding) /* 287 */ -#endif -#ifndef Tcl_CreateThreadExitHandler -#define Tcl_CreateThreadExitHandler \ - (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ -#endif -#ifndef Tcl_DeleteThreadExitHandler -#define Tcl_DeleteThreadExitHandler \ - (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ -#endif -#ifndef Tcl_DiscardResult -#define Tcl_DiscardResult \ - (tclStubsPtr->tcl_DiscardResult) /* 290 */ -#endif -#ifndef Tcl_EvalEx -#define Tcl_EvalEx \ - (tclStubsPtr->tcl_EvalEx) /* 291 */ -#endif -#ifndef Tcl_EvalObjv -#define Tcl_EvalObjv \ - (tclStubsPtr->tcl_EvalObjv) /* 292 */ -#endif -#ifndef Tcl_EvalObjEx -#define Tcl_EvalObjEx \ - (tclStubsPtr->tcl_EvalObjEx) /* 293 */ -#endif -#ifndef Tcl_ExitThread -#define Tcl_ExitThread \ - (tclStubsPtr->tcl_ExitThread) /* 294 */ -#endif -#ifndef Tcl_ExternalToUtf -#define Tcl_ExternalToUtf \ - (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ -#endif -#ifndef Tcl_ExternalToUtfDString -#define Tcl_ExternalToUtfDString \ - (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ -#endif -#ifndef Tcl_FinalizeThread -#define Tcl_FinalizeThread \ - (tclStubsPtr->tcl_FinalizeThread) /* 297 */ -#endif -#ifndef Tcl_FinalizeNotifier -#define Tcl_FinalizeNotifier \ - (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ -#endif -#ifndef Tcl_FreeEncoding -#define Tcl_FreeEncoding \ - (tclStubsPtr->tcl_FreeEncoding) /* 299 */ -#endif -#ifndef Tcl_GetCurrentThread -#define Tcl_GetCurrentThread \ - (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ -#endif -#ifndef Tcl_GetEncoding -#define Tcl_GetEncoding \ - (tclStubsPtr->tcl_GetEncoding) /* 301 */ -#endif -#ifndef Tcl_GetEncodingName -#define Tcl_GetEncodingName \ - (tclStubsPtr->tcl_GetEncodingName) /* 302 */ -#endif -#ifndef Tcl_GetEncodingNames -#define Tcl_GetEncodingNames \ - (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ -#endif -#ifndef Tcl_GetIndexFromObjStruct -#define Tcl_GetIndexFromObjStruct \ - (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ -#endif -#ifndef Tcl_GetThreadData -#define Tcl_GetThreadData \ - (tclStubsPtr->tcl_GetThreadData) /* 305 */ -#endif -#ifndef Tcl_GetVar2Ex -#define Tcl_GetVar2Ex \ - (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ -#endif -#ifndef Tcl_InitNotifier -#define Tcl_InitNotifier \ - (tclStubsPtr->tcl_InitNotifier) /* 307 */ -#endif -#ifndef Tcl_MutexLock -#define Tcl_MutexLock \ - (tclStubsPtr->tcl_MutexLock) /* 308 */ -#endif -#ifndef Tcl_MutexUnlock -#define Tcl_MutexUnlock \ - (tclStubsPtr->tcl_MutexUnlock) /* 309 */ -#endif -#ifndef Tcl_ConditionNotify -#define Tcl_ConditionNotify \ - (tclStubsPtr->tcl_ConditionNotify) /* 310 */ -#endif -#ifndef Tcl_ConditionWait -#define Tcl_ConditionWait \ - (tclStubsPtr->tcl_ConditionWait) /* 311 */ -#endif -#ifndef Tcl_NumUtfChars -#define Tcl_NumUtfChars \ - (tclStubsPtr->tcl_NumUtfChars) /* 312 */ -#endif -#ifndef Tcl_ReadChars -#define Tcl_ReadChars \ - (tclStubsPtr->tcl_ReadChars) /* 313 */ -#endif -#ifndef Tcl_RestoreResult -#define Tcl_RestoreResult \ - (tclStubsPtr->tcl_RestoreResult) /* 314 */ -#endif -#ifndef Tcl_SaveResult -#define Tcl_SaveResult \ - (tclStubsPtr->tcl_SaveResult) /* 315 */ -#endif -#ifndef Tcl_SetSystemEncoding -#define Tcl_SetSystemEncoding \ - (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ -#endif -#ifndef Tcl_SetVar2Ex -#define Tcl_SetVar2Ex \ - (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ -#endif -#ifndef Tcl_ThreadAlert -#define Tcl_ThreadAlert \ - (tclStubsPtr->tcl_ThreadAlert) /* 318 */ -#endif -#ifndef Tcl_ThreadQueueEvent -#define Tcl_ThreadQueueEvent \ - (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ -#endif -#ifndef Tcl_UniCharAtIndex -#define Tcl_UniCharAtIndex \ - (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ -#endif -#ifndef Tcl_UniCharToLower -#define Tcl_UniCharToLower \ - (tclStubsPtr->tcl_UniCharToLower) /* 321 */ -#endif -#ifndef Tcl_UniCharToTitle -#define Tcl_UniCharToTitle \ - (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ -#endif -#ifndef Tcl_UniCharToUpper -#define Tcl_UniCharToUpper \ - (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ -#endif -#ifndef Tcl_UniCharToUtf -#define Tcl_UniCharToUtf \ - (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ -#endif -#ifndef Tcl_UtfAtIndex -#define Tcl_UtfAtIndex \ - (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ -#endif -#ifndef Tcl_UtfCharComplete -#define Tcl_UtfCharComplete \ - (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ -#endif -#ifndef Tcl_UtfBackslash -#define Tcl_UtfBackslash \ - (tclStubsPtr->tcl_UtfBackslash) /* 327 */ -#endif -#ifndef Tcl_UtfFindFirst -#define Tcl_UtfFindFirst \ - (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ -#endif -#ifndef Tcl_UtfFindLast -#define Tcl_UtfFindLast \ - (tclStubsPtr->tcl_UtfFindLast) /* 329 */ -#endif -#ifndef Tcl_UtfNext -#define Tcl_UtfNext \ - (tclStubsPtr->tcl_UtfNext) /* 330 */ -#endif -#ifndef Tcl_UtfPrev -#define Tcl_UtfPrev \ - (tclStubsPtr->tcl_UtfPrev) /* 331 */ -#endif -#ifndef Tcl_UtfToExternal -#define Tcl_UtfToExternal \ - (tclStubsPtr->tcl_UtfToExternal) /* 332 */ -#endif -#ifndef Tcl_UtfToExternalDString -#define Tcl_UtfToExternalDString \ - (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ -#endif -#ifndef Tcl_UtfToLower -#define Tcl_UtfToLower \ - (tclStubsPtr->tcl_UtfToLower) /* 334 */ -#endif -#ifndef Tcl_UtfToTitle -#define Tcl_UtfToTitle \ - (tclStubsPtr->tcl_UtfToTitle) /* 335 */ -#endif -#ifndef Tcl_UtfToUniChar -#define Tcl_UtfToUniChar \ - (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ -#endif -#ifndef Tcl_UtfToUpper -#define Tcl_UtfToUpper \ - (tclStubsPtr->tcl_UtfToUpper) /* 337 */ -#endif -#ifndef Tcl_WriteChars -#define Tcl_WriteChars \ - (tclStubsPtr->tcl_WriteChars) /* 338 */ -#endif -#ifndef Tcl_WriteObj -#define Tcl_WriteObj \ - (tclStubsPtr->tcl_WriteObj) /* 339 */ -#endif -#ifndef Tcl_GetString -#define Tcl_GetString \ - (tclStubsPtr->tcl_GetString) /* 340 */ -#endif -#ifndef Tcl_GetDefaultEncodingDir -#define Tcl_GetDefaultEncodingDir \ - (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ -#endif -#ifndef Tcl_SetDefaultEncodingDir -#define Tcl_SetDefaultEncodingDir \ - (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ -#endif -#ifndef Tcl_AlertNotifier -#define Tcl_AlertNotifier \ - (tclStubsPtr->tcl_AlertNotifier) /* 343 */ -#endif -#ifndef Tcl_ServiceModeHook -#define Tcl_ServiceModeHook \ - (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ -#endif -#ifndef Tcl_UniCharIsAlnum -#define Tcl_UniCharIsAlnum \ - (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ -#endif -#ifndef Tcl_UniCharIsAlpha -#define Tcl_UniCharIsAlpha \ - (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ -#endif -#ifndef Tcl_UniCharIsDigit -#define Tcl_UniCharIsDigit \ - (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ -#endif -#ifndef Tcl_UniCharIsLower -#define Tcl_UniCharIsLower \ - (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ -#endif -#ifndef Tcl_UniCharIsSpace -#define Tcl_UniCharIsSpace \ - (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ -#endif -#ifndef Tcl_UniCharIsUpper -#define Tcl_UniCharIsUpper \ - (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ -#endif -#ifndef Tcl_UniCharIsWordChar -#define Tcl_UniCharIsWordChar \ - (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ -#endif -#ifndef Tcl_UniCharLen -#define Tcl_UniCharLen \ - (tclStubsPtr->tcl_UniCharLen) /* 352 */ -#endif -#ifndef Tcl_UniCharNcmp -#define Tcl_UniCharNcmp \ - (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ -#endif -#ifndef Tcl_UniCharToUtfDString -#define Tcl_UniCharToUtfDString \ - (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ -#endif -#ifndef Tcl_UtfToUniCharDString -#define Tcl_UtfToUniCharDString \ - (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ -#endif -#ifndef Tcl_GetRegExpFromObj -#define Tcl_GetRegExpFromObj \ - (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ -#endif -#ifndef Tcl_EvalTokens -#define Tcl_EvalTokens \ - (tclStubsPtr->tcl_EvalTokens) /* 357 */ -#endif -#ifndef Tcl_FreeParse -#define Tcl_FreeParse \ - (tclStubsPtr->tcl_FreeParse) /* 358 */ -#endif -#ifndef Tcl_LogCommandInfo -#define Tcl_LogCommandInfo \ - (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ -#endif -#ifndef Tcl_ParseBraces -#define Tcl_ParseBraces \ - (tclStubsPtr->tcl_ParseBraces) /* 360 */ -#endif -#ifndef Tcl_ParseCommand -#define Tcl_ParseCommand \ - (tclStubsPtr->tcl_ParseCommand) /* 361 */ -#endif -#ifndef Tcl_ParseExpr -#define Tcl_ParseExpr \ - (tclStubsPtr->tcl_ParseExpr) /* 362 */ -#endif -#ifndef Tcl_ParseQuotedString -#define Tcl_ParseQuotedString \ - (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ -#endif -#ifndef Tcl_ParseVarName -#define Tcl_ParseVarName \ - (tclStubsPtr->tcl_ParseVarName) /* 364 */ -#endif -#ifndef Tcl_GetCwd -#define Tcl_GetCwd \ - (tclStubsPtr->tcl_GetCwd) /* 365 */ -#endif -#ifndef Tcl_Chdir -#define Tcl_Chdir \ - (tclStubsPtr->tcl_Chdir) /* 366 */ -#endif -#ifndef Tcl_Access -#define Tcl_Access \ - (tclStubsPtr->tcl_Access) /* 367 */ -#endif -#ifndef Tcl_Stat -#define Tcl_Stat \ - (tclStubsPtr->tcl_Stat) /* 368 */ -#endif -#ifndef Tcl_UtfNcmp -#define Tcl_UtfNcmp \ - (tclStubsPtr->tcl_UtfNcmp) /* 369 */ -#endif -#ifndef Tcl_UtfNcasecmp -#define Tcl_UtfNcasecmp \ - (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ -#endif -#ifndef Tcl_StringCaseMatch -#define Tcl_StringCaseMatch \ - (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ -#endif -#ifndef Tcl_UniCharIsControl -#define Tcl_UniCharIsControl \ - (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ -#endif -#ifndef Tcl_UniCharIsGraph -#define Tcl_UniCharIsGraph \ - (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ -#endif -#ifndef Tcl_UniCharIsPrint -#define Tcl_UniCharIsPrint \ - (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ -#endif -#ifndef Tcl_UniCharIsPunct -#define Tcl_UniCharIsPunct \ - (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ -#endif -#ifndef Tcl_RegExpExecObj -#define Tcl_RegExpExecObj \ - (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ -#endif -#ifndef Tcl_RegExpGetInfo -#define Tcl_RegExpGetInfo \ - (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ -#endif -#ifndef Tcl_NewUnicodeObj -#define Tcl_NewUnicodeObj \ - (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ -#endif -#ifndef Tcl_SetUnicodeObj -#define Tcl_SetUnicodeObj \ - (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ -#endif -#ifndef Tcl_GetCharLength -#define Tcl_GetCharLength \ - (tclStubsPtr->tcl_GetCharLength) /* 380 */ -#endif -#ifndef Tcl_GetUniChar -#define Tcl_GetUniChar \ - (tclStubsPtr->tcl_GetUniChar) /* 381 */ -#endif -#ifndef Tcl_GetUnicode -#define Tcl_GetUnicode \ - (tclStubsPtr->tcl_GetUnicode) /* 382 */ -#endif -#ifndef Tcl_GetRange -#define Tcl_GetRange \ - (tclStubsPtr->tcl_GetRange) /* 383 */ -#endif -#ifndef Tcl_AppendUnicodeToObj -#define Tcl_AppendUnicodeToObj \ - (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ -#endif -#ifndef Tcl_RegExpMatchObj -#define Tcl_RegExpMatchObj \ - (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ -#endif -#ifndef Tcl_SetNotifier -#define Tcl_SetNotifier \ - (tclStubsPtr->tcl_SetNotifier) /* 386 */ -#endif -#ifndef Tcl_GetAllocMutex -#define Tcl_GetAllocMutex \ - (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ -#endif -#ifndef Tcl_GetChannelNames -#define Tcl_GetChannelNames \ - (tclStubsPtr->tcl_GetChannelNames) /* 388 */ -#endif -#ifndef Tcl_GetChannelNamesEx -#define Tcl_GetChannelNamesEx \ - (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ -#endif -#ifndef Tcl_ProcObjCmd -#define Tcl_ProcObjCmd \ - (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ -#endif -#ifndef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize \ - (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ -#endif -#ifndef Tcl_MutexFinalize -#define Tcl_MutexFinalize \ - (tclStubsPtr->tcl_MutexFinalize) /* 392 */ -#endif -#ifndef Tcl_CreateThread -#define Tcl_CreateThread \ - (tclStubsPtr->tcl_CreateThread) /* 393 */ -#endif -#ifndef Tcl_ReadRaw -#define Tcl_ReadRaw \ - (tclStubsPtr->tcl_ReadRaw) /* 394 */ -#endif -#ifndef Tcl_WriteRaw -#define Tcl_WriteRaw \ - (tclStubsPtr->tcl_WriteRaw) /* 395 */ -#endif -#ifndef Tcl_GetTopChannel -#define Tcl_GetTopChannel \ - (tclStubsPtr->tcl_GetTopChannel) /* 396 */ -#endif -#ifndef Tcl_ChannelBuffered -#define Tcl_ChannelBuffered \ - (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ -#endif -#ifndef Tcl_ChannelName -#define Tcl_ChannelName \ - (tclStubsPtr->tcl_ChannelName) /* 398 */ -#endif -#ifndef Tcl_ChannelVersion -#define Tcl_ChannelVersion \ - (tclStubsPtr->tcl_ChannelVersion) /* 399 */ -#endif -#ifndef Tcl_ChannelBlockModeProc -#define Tcl_ChannelBlockModeProc \ - (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ -#endif -#ifndef Tcl_ChannelCloseProc -#define Tcl_ChannelCloseProc \ - (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ -#endif -#ifndef Tcl_ChannelClose2Proc -#define Tcl_ChannelClose2Proc \ - (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ -#endif -#ifndef Tcl_ChannelInputProc -#define Tcl_ChannelInputProc \ - (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ -#endif -#ifndef Tcl_ChannelOutputProc -#define Tcl_ChannelOutputProc \ - (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ -#endif -#ifndef Tcl_ChannelSeekProc -#define Tcl_ChannelSeekProc \ - (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ -#endif -#ifndef Tcl_ChannelSetOptionProc -#define Tcl_ChannelSetOptionProc \ - (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ -#endif -#ifndef Tcl_ChannelGetOptionProc -#define Tcl_ChannelGetOptionProc \ - (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ -#endif -#ifndef Tcl_ChannelWatchProc -#define Tcl_ChannelWatchProc \ - (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ -#endif -#ifndef Tcl_ChannelGetHandleProc -#define Tcl_ChannelGetHandleProc \ - (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ -#endif -#ifndef Tcl_ChannelFlushProc -#define Tcl_ChannelFlushProc \ - (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ -#endif -#ifndef Tcl_ChannelHandlerProc -#define Tcl_ChannelHandlerProc \ - (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ -#endif -#ifndef Tcl_JoinThread -#define Tcl_JoinThread \ - (tclStubsPtr->tcl_JoinThread) /* 412 */ -#endif -#ifndef Tcl_IsChannelShared -#define Tcl_IsChannelShared \ - (tclStubsPtr->tcl_IsChannelShared) /* 413 */ -#endif -#ifndef Tcl_IsChannelRegistered -#define Tcl_IsChannelRegistered \ - (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ -#endif -#ifndef Tcl_CutChannel -#define Tcl_CutChannel \ - (tclStubsPtr->tcl_CutChannel) /* 415 */ -#endif -#ifndef Tcl_SpliceChannel -#define Tcl_SpliceChannel \ - (tclStubsPtr->tcl_SpliceChannel) /* 416 */ -#endif -#ifndef Tcl_ClearChannelHandlers -#define Tcl_ClearChannelHandlers \ - (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ -#endif -#ifndef Tcl_IsChannelExisting -#define Tcl_IsChannelExisting \ - (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ -#endif -#ifndef Tcl_UniCharNcasecmp -#define Tcl_UniCharNcasecmp \ - (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ -#endif -#ifndef Tcl_UniCharCaseMatch -#define Tcl_UniCharCaseMatch \ - (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ -#endif -#ifndef Tcl_FindHashEntry -#define Tcl_FindHashEntry \ - (tclStubsPtr->tcl_FindHashEntry) /* 421 */ -#endif -#ifndef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry \ - (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ -#endif -#ifndef Tcl_InitCustomHashTable -#define Tcl_InitCustomHashTable \ - (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ -#endif -#ifndef Tcl_InitObjHashTable -#define Tcl_InitObjHashTable \ - (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ -#endif -#ifndef Tcl_CommandTraceInfo -#define Tcl_CommandTraceInfo \ - (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ -#endif -#ifndef Tcl_TraceCommand -#define Tcl_TraceCommand \ - (tclStubsPtr->tcl_TraceCommand) /* 426 */ -#endif -#ifndef Tcl_UntraceCommand -#define Tcl_UntraceCommand \ - (tclStubsPtr->tcl_UntraceCommand) /* 427 */ -#endif -#ifndef Tcl_AttemptAlloc -#define Tcl_AttemptAlloc \ - (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ -#endif -#ifndef Tcl_AttemptDbCkalloc -#define Tcl_AttemptDbCkalloc \ - (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ -#endif -#ifndef Tcl_AttemptRealloc -#define Tcl_AttemptRealloc \ - (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ -#endif -#ifndef Tcl_AttemptDbCkrealloc -#define Tcl_AttemptDbCkrealloc \ - (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ -#endif -#ifndef Tcl_AttemptSetObjLength -#define Tcl_AttemptSetObjLength \ - (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ -#endif -#ifndef Tcl_GetChannelThread -#define Tcl_GetChannelThread \ - (tclStubsPtr->tcl_GetChannelThread) /* 433 */ -#endif -#ifndef Tcl_GetUnicodeFromObj -#define Tcl_GetUnicodeFromObj \ - (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ -#endif -#ifndef Tcl_GetMathFuncInfo -#define Tcl_GetMathFuncInfo \ - (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ -#endif -#ifndef Tcl_ListMathFuncs -#define Tcl_ListMathFuncs \ - (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ -#endif -#ifndef Tcl_SubstObj -#define Tcl_SubstObj \ - (tclStubsPtr->tcl_SubstObj) /* 437 */ -#endif -#ifndef Tcl_DetachChannel -#define Tcl_DetachChannel \ - (tclStubsPtr->tcl_DetachChannel) /* 438 */ -#endif -#ifndef Tcl_IsStandardChannel -#define Tcl_IsStandardChannel \ - (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ -#endif -#ifndef Tcl_FSCopyFile -#define Tcl_FSCopyFile \ - (tclStubsPtr->tcl_FSCopyFile) /* 440 */ -#endif -#ifndef Tcl_FSCopyDirectory -#define Tcl_FSCopyDirectory \ - (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ -#endif -#ifndef Tcl_FSCreateDirectory -#define Tcl_FSCreateDirectory \ - (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ -#endif -#ifndef Tcl_FSDeleteFile -#define Tcl_FSDeleteFile \ - (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ -#endif -#ifndef Tcl_FSLoadFile -#define Tcl_FSLoadFile \ - (tclStubsPtr->tcl_FSLoadFile) /* 444 */ -#endif -#ifndef Tcl_FSMatchInDirectory -#define Tcl_FSMatchInDirectory \ - (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ -#endif -#ifndef Tcl_FSLink -#define Tcl_FSLink \ - (tclStubsPtr->tcl_FSLink) /* 446 */ -#endif -#ifndef Tcl_FSRemoveDirectory -#define Tcl_FSRemoveDirectory \ - (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ -#endif -#ifndef Tcl_FSRenameFile -#define Tcl_FSRenameFile \ - (tclStubsPtr->tcl_FSRenameFile) /* 448 */ -#endif -#ifndef Tcl_FSLstat -#define Tcl_FSLstat \ - (tclStubsPtr->tcl_FSLstat) /* 449 */ -#endif -#ifndef Tcl_FSUtime -#define Tcl_FSUtime \ - (tclStubsPtr->tcl_FSUtime) /* 450 */ -#endif -#ifndef Tcl_FSFileAttrsGet -#define Tcl_FSFileAttrsGet \ - (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ -#endif -#ifndef Tcl_FSFileAttrsSet -#define Tcl_FSFileAttrsSet \ - (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ -#endif -#ifndef Tcl_FSFileAttrStrings -#define Tcl_FSFileAttrStrings \ - (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ -#endif -#ifndef Tcl_FSStat -#define Tcl_FSStat \ - (tclStubsPtr->tcl_FSStat) /* 454 */ -#endif -#ifndef Tcl_FSAccess -#define Tcl_FSAccess \ - (tclStubsPtr->tcl_FSAccess) /* 455 */ -#endif -#ifndef Tcl_FSOpenFileChannel -#define Tcl_FSOpenFileChannel \ - (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ -#endif -#ifndef Tcl_FSGetCwd -#define Tcl_FSGetCwd \ - (tclStubsPtr->tcl_FSGetCwd) /* 457 */ -#endif -#ifndef Tcl_FSChdir -#define Tcl_FSChdir \ - (tclStubsPtr->tcl_FSChdir) /* 458 */ -#endif -#ifndef Tcl_FSConvertToPathType -#define Tcl_FSConvertToPathType \ - (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ -#endif -#ifndef Tcl_FSJoinPath -#define Tcl_FSJoinPath \ - (tclStubsPtr->tcl_FSJoinPath) /* 460 */ -#endif -#ifndef Tcl_FSSplitPath -#define Tcl_FSSplitPath \ - (tclStubsPtr->tcl_FSSplitPath) /* 461 */ -#endif -#ifndef Tcl_FSEqualPaths -#define Tcl_FSEqualPaths \ - (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ -#endif -#ifndef Tcl_FSGetNormalizedPath -#define Tcl_FSGetNormalizedPath \ - (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ -#endif -#ifndef Tcl_FSJoinToPath -#define Tcl_FSJoinToPath \ - (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ -#endif -#ifndef Tcl_FSGetInternalRep -#define Tcl_FSGetInternalRep \ - (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ -#endif -#ifndef Tcl_FSGetTranslatedPath -#define Tcl_FSGetTranslatedPath \ - (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ -#endif -#ifndef Tcl_FSEvalFile -#define Tcl_FSEvalFile \ - (tclStubsPtr->tcl_FSEvalFile) /* 467 */ -#endif -#ifndef Tcl_FSNewNativePath -#define Tcl_FSNewNativePath \ - (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ -#endif -#ifndef Tcl_FSGetNativePath -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ -#endif -#ifndef Tcl_FSFileSystemInfo -#define Tcl_FSFileSystemInfo \ - (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ -#endif -#ifndef Tcl_FSPathSeparator -#define Tcl_FSPathSeparator \ - (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ -#endif -#ifndef Tcl_FSListVolumes -#define Tcl_FSListVolumes \ - (tclStubsPtr->tcl_FSListVolumes) /* 472 */ -#endif -#ifndef Tcl_FSRegister -#define Tcl_FSRegister \ - (tclStubsPtr->tcl_FSRegister) /* 473 */ -#endif -#ifndef Tcl_FSUnregister -#define Tcl_FSUnregister \ - (tclStubsPtr->tcl_FSUnregister) /* 474 */ -#endif -#ifndef Tcl_FSData -#define Tcl_FSData \ - (tclStubsPtr->tcl_FSData) /* 475 */ -#endif -#ifndef Tcl_FSGetTranslatedStringPath -#define Tcl_FSGetTranslatedStringPath \ - (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ -#endif -#ifndef Tcl_FSGetFileSystemForPath -#define Tcl_FSGetFileSystemForPath \ - (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ -#endif -#ifndef Tcl_FSGetPathType -#define Tcl_FSGetPathType \ - (tclStubsPtr->tcl_FSGetPathType) /* 478 */ -#endif -#ifndef Tcl_OutputBuffered -#define Tcl_OutputBuffered \ - (tclStubsPtr->tcl_OutputBuffered) /* 479 */ -#endif -#ifndef Tcl_FSMountsChanged -#define Tcl_FSMountsChanged \ - (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ -#endif -#ifndef Tcl_EvalTokensStandard -#define Tcl_EvalTokensStandard \ - (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ -#endif -#ifndef Tcl_GetTime -#define Tcl_GetTime \ - (tclStubsPtr->tcl_GetTime) /* 482 */ -#endif -#ifndef Tcl_CreateObjTrace -#define Tcl_CreateObjTrace \ - (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ -#endif -#ifndef Tcl_GetCommandInfoFromToken -#define Tcl_GetCommandInfoFromToken \ - (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ -#endif -#ifndef Tcl_SetCommandInfoFromToken -#define Tcl_SetCommandInfoFromToken \ - (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ -#endif -#ifndef Tcl_DbNewWideIntObj -#define Tcl_DbNewWideIntObj \ - (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ -#endif -#ifndef Tcl_GetWideIntFromObj -#define Tcl_GetWideIntFromObj \ - (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ -#endif -#ifndef Tcl_NewWideIntObj -#define Tcl_NewWideIntObj \ - (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ -#endif -#ifndef Tcl_SetWideIntObj -#define Tcl_SetWideIntObj \ - (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ -#endif -#ifndef Tcl_AllocStatBuf -#define Tcl_AllocStatBuf \ - (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ -#endif -#ifndef Tcl_Seek -#define Tcl_Seek \ - (tclStubsPtr->tcl_Seek) /* 491 */ -#endif -#ifndef Tcl_Tell -#define Tcl_Tell \ - (tclStubsPtr->tcl_Tell) /* 492 */ -#endif -#ifndef Tcl_ChannelWideSeekProc -#define Tcl_ChannelWideSeekProc \ - (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ -#endif -#ifndef Tcl_DictObjPut -#define Tcl_DictObjPut \ - (tclStubsPtr->tcl_DictObjPut) /* 494 */ -#endif -#ifndef Tcl_DictObjGet -#define Tcl_DictObjGet \ - (tclStubsPtr->tcl_DictObjGet) /* 495 */ -#endif -#ifndef Tcl_DictObjRemove -#define Tcl_DictObjRemove \ - (tclStubsPtr->tcl_DictObjRemove) /* 496 */ -#endif -#ifndef Tcl_DictObjSize -#define Tcl_DictObjSize \ - (tclStubsPtr->tcl_DictObjSize) /* 497 */ -#endif -#ifndef Tcl_DictObjFirst -#define Tcl_DictObjFirst \ - (tclStubsPtr->tcl_DictObjFirst) /* 498 */ -#endif -#ifndef Tcl_DictObjNext -#define Tcl_DictObjNext \ - (tclStubsPtr->tcl_DictObjNext) /* 499 */ -#endif -#ifndef Tcl_DictObjDone -#define Tcl_DictObjDone \ - (tclStubsPtr->tcl_DictObjDone) /* 500 */ -#endif -#ifndef Tcl_DictObjPutKeyList -#define Tcl_DictObjPutKeyList \ - (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ -#endif -#ifndef Tcl_DictObjRemoveKeyList -#define Tcl_DictObjRemoveKeyList \ - (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ -#endif -#ifndef Tcl_NewDictObj -#define Tcl_NewDictObj \ - (tclStubsPtr->tcl_NewDictObj) /* 503 */ -#endif -#ifndef Tcl_DbNewDictObj -#define Tcl_DbNewDictObj \ - (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ -#endif -#ifndef Tcl_RegisterConfig -#define Tcl_RegisterConfig \ - (tclStubsPtr->tcl_RegisterConfig) /* 505 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif -#ifndef Tcl_FSEvalFileEx -#define Tcl_FSEvalFileEx \ - (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ -#endif -#ifndef Tcl_SetExitProc -#define Tcl_SetExitProc \ - (tclStubsPtr->tcl_SetExitProc) /* 519 */ -#endif -#ifndef Tcl_LimitAddHandler -#define Tcl_LimitAddHandler \ - (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ -#endif -#ifndef Tcl_LimitRemoveHandler -#define Tcl_LimitRemoveHandler \ - (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ -#endif -#ifndef Tcl_LimitReady -#define Tcl_LimitReady \ - (tclStubsPtr->tcl_LimitReady) /* 522 */ -#endif -#ifndef Tcl_LimitCheck -#define Tcl_LimitCheck \ - (tclStubsPtr->tcl_LimitCheck) /* 523 */ -#endif -#ifndef Tcl_LimitExceeded -#define Tcl_LimitExceeded \ - (tclStubsPtr->tcl_LimitExceeded) /* 524 */ -#endif -#ifndef Tcl_LimitSetCommands -#define Tcl_LimitSetCommands \ - (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ -#endif -#ifndef Tcl_LimitSetTime -#define Tcl_LimitSetTime \ - (tclStubsPtr->tcl_LimitSetTime) /* 526 */ -#endif -#ifndef Tcl_LimitSetGranularity -#define Tcl_LimitSetGranularity \ - (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ -#endif -#ifndef Tcl_LimitTypeEnabled -#define Tcl_LimitTypeEnabled \ - (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ -#endif -#ifndef Tcl_LimitTypeExceeded -#define Tcl_LimitTypeExceeded \ - (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ -#endif -#ifndef Tcl_LimitTypeSet -#define Tcl_LimitTypeSet \ - (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ -#endif -#ifndef Tcl_LimitTypeReset -#define Tcl_LimitTypeReset \ - (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ -#endif -#ifndef Tcl_LimitGetCommands -#define Tcl_LimitGetCommands \ - (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ -#endif -#ifndef Tcl_LimitGetTime -#define Tcl_LimitGetTime \ - (tclStubsPtr->tcl_LimitGetTime) /* 533 */ -#endif -#ifndef Tcl_LimitGetGranularity -#define Tcl_LimitGetGranularity \ - (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ -#endif -#ifndef Tcl_SaveInterpState -#define Tcl_SaveInterpState \ - (tclStubsPtr->tcl_SaveInterpState) /* 535 */ -#endif -#ifndef Tcl_RestoreInterpState -#define Tcl_RestoreInterpState \ - (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ -#endif -#ifndef Tcl_DiscardInterpState -#define Tcl_DiscardInterpState \ - (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ -#endif -#ifndef Tcl_SetReturnOptions -#define Tcl_SetReturnOptions \ - (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ -#endif -#ifndef Tcl_GetReturnOptions -#define Tcl_GetReturnOptions \ - (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ -#endif -#ifndef Tcl_IsEnsemble -#define Tcl_IsEnsemble \ - (tclStubsPtr->tcl_IsEnsemble) /* 540 */ -#endif -#ifndef Tcl_CreateEnsemble -#define Tcl_CreateEnsemble \ - (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ -#endif -#ifndef Tcl_FindEnsemble -#define Tcl_FindEnsemble \ - (tclStubsPtr->tcl_FindEnsemble) /* 542 */ -#endif -#ifndef Tcl_SetEnsembleSubcommandList -#define Tcl_SetEnsembleSubcommandList \ - (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ -#endif -#ifndef Tcl_SetEnsembleMappingDict -#define Tcl_SetEnsembleMappingDict \ - (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ -#endif -#ifndef Tcl_SetEnsembleUnknownHandler -#define Tcl_SetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ -#endif -#ifndef Tcl_SetEnsembleFlags -#define Tcl_SetEnsembleFlags \ - (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ -#endif -#ifndef Tcl_GetEnsembleSubcommandList -#define Tcl_GetEnsembleSubcommandList \ - (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ -#endif -#ifndef Tcl_GetEnsembleMappingDict -#define Tcl_GetEnsembleMappingDict \ - (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ -#endif -#ifndef Tcl_GetEnsembleUnknownHandler -#define Tcl_GetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ -#endif -#ifndef Tcl_GetEnsembleFlags -#define Tcl_GetEnsembleFlags \ - (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ -#endif -#ifndef Tcl_GetEnsembleNamespace -#define Tcl_GetEnsembleNamespace \ - (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ -#endif -#ifndef Tcl_SetTimeProc -#define Tcl_SetTimeProc \ - (tclStubsPtr->tcl_SetTimeProc) /* 552 */ -#endif -#ifndef Tcl_QueryTimeProc -#define Tcl_QueryTimeProc \ - (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ -#endif -#ifndef Tcl_ChannelThreadActionProc -#define Tcl_ChannelThreadActionProc \ - (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ -#endif -#ifndef Tcl_NewBignumObj -#define Tcl_NewBignumObj \ - (tclStubsPtr->tcl_NewBignumObj) /* 555 */ -#endif -#ifndef Tcl_DbNewBignumObj -#define Tcl_DbNewBignumObj \ - (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ -#endif -#ifndef Tcl_SetBignumObj -#define Tcl_SetBignumObj \ - (tclStubsPtr->tcl_SetBignumObj) /* 557 */ -#endif -#ifndef Tcl_GetBignumFromObj -#define Tcl_GetBignumFromObj \ - (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ -#endif -#ifndef Tcl_TakeBignumFromObj -#define Tcl_TakeBignumFromObj \ - (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ -#endif -#ifndef Tcl_TruncateChannel -#define Tcl_TruncateChannel \ - (tclStubsPtr->tcl_TruncateChannel) /* 560 */ -#endif -#ifndef Tcl_ChannelTruncateProc -#define Tcl_ChannelTruncateProc \ - (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ -#endif -#ifndef Tcl_SetChannelErrorInterp -#define Tcl_SetChannelErrorInterp \ - (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ -#endif -#ifndef Tcl_GetChannelErrorInterp -#define Tcl_GetChannelErrorInterp \ - (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ -#endif -#ifndef Tcl_SetChannelError -#define Tcl_SetChannelError \ - (tclStubsPtr->tcl_SetChannelError) /* 564 */ -#endif -#ifndef Tcl_GetChannelError -#define Tcl_GetChannelError \ - (tclStubsPtr->tcl_GetChannelError) /* 565 */ -#endif -#ifndef Tcl_InitBignumFromDouble -#define Tcl_InitBignumFromDouble \ - (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ -#endif -#ifndef Tcl_GetNamespaceUnknownHandler -#define Tcl_GetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ -#endif -#ifndef Tcl_SetNamespaceUnknownHandler -#define Tcl_SetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ -#endif -#ifndef Tcl_GetEncodingFromObj -#define Tcl_GetEncodingFromObj \ - (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ -#endif -#ifndef Tcl_GetEncodingSearchPath -#define Tcl_GetEncodingSearchPath \ - (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ -#endif -#ifndef Tcl_SetEncodingSearchPath -#define Tcl_SetEncodingSearchPath \ - (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ -#endif -#ifndef Tcl_GetEncodingNameFromEnvironment -#define Tcl_GetEncodingNameFromEnvironment \ - (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ -#endif -#ifndef Tcl_PkgRequireProc -#define Tcl_PkgRequireProc \ - (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ -#endif -#ifndef Tcl_AppendObjToErrorInfo -#define Tcl_AppendObjToErrorInfo \ - (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ -#endif -#ifndef Tcl_AppendLimitedToObj -#define Tcl_AppendLimitedToObj \ - (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ -#endif -#ifndef Tcl_Format -#define Tcl_Format \ - (tclStubsPtr->tcl_Format) /* 576 */ -#endif -#ifndef Tcl_AppendFormatToObj -#define Tcl_AppendFormatToObj \ - (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ -#endif -#ifndef Tcl_ObjPrintf -#define Tcl_ObjPrintf \ - (tclStubsPtr->tcl_ObjPrintf) /* 578 */ -#endif -#ifndef Tcl_AppendPrintfToObj -#define Tcl_AppendPrintfToObj \ - (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ -#endif -/* Slot 580 is reserved */ -/* Slot 581 is reserved */ -/* Slot 582 is reserved */ -/* Slot 583 is reserved */ -/* Slot 584 is reserved */ -/* Slot 585 is reserved */ -/* Slot 586 is reserved */ -/* Slot 587 is reserved */ -/* Slot 588 is reserved */ -/* Slot 589 is reserved */ -/* Slot 590 is reserved */ -/* Slot 591 is reserved */ -/* Slot 592 is reserved */ -/* Slot 593 is reserved */ -/* Slot 594 is reserved */ -/* Slot 595 is reserved */ -/* Slot 596 is reserved */ -/* Slot 597 is reserved */ -/* Slot 598 is reserved */ -/* Slot 599 is reserved */ -/* Slot 600 is reserved */ -/* Slot 601 is reserved */ -/* Slot 602 is reserved */ -/* Slot 603 is reserved */ -/* Slot 604 is reserved */ -/* Slot 605 is reserved */ -/* Slot 606 is reserved */ -/* Slot 607 is reserved */ -/* Slot 608 is reserved */ -/* Slot 609 is reserved */ -/* Slot 610 is reserved */ -/* Slot 611 is reserved */ -/* Slot 612 is reserved */ -/* Slot 613 is reserved */ -/* Slot 614 is reserved */ -/* Slot 615 is reserved */ -/* Slot 616 is reserved */ -/* Slot 617 is reserved */ -/* Slot 618 is reserved */ -/* Slot 619 is reserved */ -/* Slot 620 is reserved */ -/* Slot 621 is reserved */ -/* Slot 622 is reserved */ -/* Slot 623 is reserved */ -/* Slot 624 is reserved */ -/* Slot 625 is reserved */ -/* Slot 626 is reserved */ -/* Slot 627 is reserved */ -/* Slot 628 is reserved */ -/* Slot 629 is reserved */ -/* Slot 630 is reserved */ -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -#ifndef TclUnusedStubEntry -#define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 648 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TclUnusedStubEntry - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef Tcl_PkgPresent -#define Tcl_PkgPresent(interp, name, version, exact) \ - Tcl_PkgPresentEx(interp, name, version, exact, NULL) -#undef Tcl_PkgProvide -#define Tcl_PkgProvide(interp, name, version) \ - Tcl_PkgProvideEx(interp, name, version, NULL) -#undef Tcl_PkgRequire -#define Tcl_PkgRequire(interp, name, version, exact) \ - Tcl_PkgRequireEx(interp, name, version, exact, NULL) -#undef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ - Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ - sizeof(char *), msg, flags, indexPtr) -#undef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj(boolValue) \ - Tcl_NewIntObj((boolValue)!=0) -#undef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj(boolValue, file, line) \ - Tcl_DbNewLongObj((boolValue)!=0, file, line) -#undef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj(objPtr, boolValue) \ - Tcl_SetIntObj((objPtr), (boolValue)!=0) -#undef Tcl_SetVar -#define Tcl_SetVar(interp, varName, newValue, flags) \ - Tcl_SetVar2(interp, varName, NULL, newValue, flags) -#undef Tcl_UnsetVar -#define Tcl_UnsetVar(interp, varName, flags) \ - Tcl_UnsetVar2(interp, varName, NULL, flags) -#undef Tcl_GetVar -#define Tcl_GetVar(interp, varName, flags) \ - Tcl_GetVar2(interp, varName, NULL, flags) -#undef Tcl_TraceVar -#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ - Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_UntraceVar -#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ - Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ - Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) -#undef Tcl_UpVar -#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ - Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) -# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) -/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore - * we have to make sure that all stub entries on Cygwin64 follow the - * Win64 signature. Cygwin64 stubbed extensions cannot use those stub - * entries any more, they should use the 64-bit alternatives where - * possible. Tcl 9 must find a better solution, but that cannot be done - * without introducing a binary incompatibility. - */ -# undef Tcl_DbNewLongObj -# undef Tcl_GetLongFromObj -# undef Tcl_NewLongObj -# undef Tcl_SetLongObj -# undef Tcl_ExprLong -# undef Tcl_ExprLongObj -# undef Tcl_UniCharNcmp -# undef Tcl_UtfNcmp -# undef Tcl_UtfNcasecmp -# undef Tcl_UniCharNcasecmp -# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj) -# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj) -# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj) -# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj) -# define Tcl_ExprLong TclExprLong - static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_ExprLongObj TclExprLongObj - static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_UniCharNcmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) -# define Tcl_UtfNcmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UtfNcasecmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UniCharNcasecmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) -# endif -#endif - -/* - * Deprecated Tcl procedures: - */ - -#undef Tcl_EvalObj -#define Tcl_EvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),0) -#undef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) - -#endif /* _TCLDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclInt.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclInt.h deleted file mode 100644 index 06cff604e..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclInt.h +++ /dev/null @@ -1,3981 +0,0 @@ -/* - * tclInt.h -- - * - * Declarations of things used internally by the Tcl interpreter. - * - * Copyright (c) 1987-1993 The Regents of the University of California. - * Copyright (c) 1993-1997 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-1999 by Scriptics Corporation. - * Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. - * Copyright (c) 2007 Daniel A. Steffen - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINT -#define _TCLINT - -/* - * Some numerics configuration options. - */ - -#undef NO_WIDE_TYPE -#undef ACCEPT_NAN - -/* - * Common include files needed by most of the Tcl source files are included - * here, so that system-dependent personalizations for the include files only - * have to be made in once place. This results in a few extra includes, but - * greater modularity. The order of the three groups of #includes is - * important. For example, stdio.h is needed by tcl.h, and the _ANSI_ARGS_ - * declaration in tcl.h is needed by stdlib.h in some configurations. - */ - -#include "tclPort.h" - -#include - -#include -#ifdef NO_STDLIB_H -# include "../compat/stdlib.h" -#else -# include -#endif -#ifdef NO_STRING_H -#include "../compat/string.h" -#else -#include -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -#include -#else -typedef int ptrdiff_t; -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correctly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * When Tcl_WideInt and long are the same type, there's no value in - * having a tclWideIntType separate from the tclIntType. - */ -#ifdef TCL_WIDE_INT_IS_LONG -#define NO_WIDE_TYPE -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void *)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void *)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void *)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void *)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -/* - * The following procedures allow namespaces to be customized to support - * special name resolution rules for commands/variables. - */ - -struct Tcl_ResolvedVarInfo; - -typedef Tcl_Var (Tcl_ResolveRuntimeVarProc)(Tcl_Interp *interp, - struct Tcl_ResolvedVarInfo *vinfoPtr); - -typedef void (Tcl_ResolveVarDeleteProc)(struct Tcl_ResolvedVarInfo *vinfoPtr); - -/* - * The following structure encapsulates the routines needed to resolve a - * variable reference at runtime. Any variable specific state will typically - * be appended to this structure. - */ - -typedef struct Tcl_ResolvedVarInfo { - Tcl_ResolveRuntimeVarProc *fetchProc; - Tcl_ResolveVarDeleteProc *deleteProc; -} Tcl_ResolvedVarInfo; - -typedef int (Tcl_ResolveCompiledVarProc)(Tcl_Interp *interp, - CONST84 char *name, int length, Tcl_Namespace *context, - Tcl_ResolvedVarInfo **rPtr); - -typedef int (Tcl_ResolveVarProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Var *rPtr); - -typedef int (Tcl_ResolveCmdProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Command *rPtr); - -typedef struct Tcl_ResolverInfo { - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ -} Tcl_ResolverInfo; - -/* - *---------------------------------------------------------------- - * Data structures related to namespaces. - *---------------------------------------------------------------- - */ - -typedef struct Tcl_Ensemble Tcl_Ensemble; -typedef struct NamespacePathEntry NamespacePathEntry; - -/* - * Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr - * field added at the end: in this way variables can find their namespace - * without having to copy a pointer in their struct: they can access it via - * their hPtr->tablePtr. - */ - -typedef struct TclVarHashTable { - Tcl_HashTable table; - struct Namespace *nsPtr; -} TclVarHashTable; - -/* - * This is for itcl - it likes to search our varTables directly :( - */ - -#define TclVarHashFindVar(tablePtr, key) \ - TclVarHashCreateVar((tablePtr), (key), NULL) - - -/* - * The structure below defines a namespace. - * Note: the first five fields must match exactly the fields in a - * Tcl_Namespace structure (see tcl.h). If you change one, be sure to change - * the other. - */ - -typedef struct Namespace { - char *name; /* The namespace's simple (unqualified) name. - * This contains no ::'s. The name of the - * global namespace is "" although "::" is an - * synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* An arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Procedure invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Namespace *parentPtr;/* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ - Tcl_HashTable childTable; /* Contains any child namespaces. Indexed by - * strings; values have type (Namespace *). */ - long nsId; /* Unique id for the namespace. */ - Tcl_Interp *interp; /* The interpreter containing this - * namespace. */ - int flags; /* OR-ed combination of the namespace status - * flags NS_DYING and NS_DEAD listed below. */ - int activationCount; /* Number of "activations" or active call - * frames for this namespace that are on the - * Tcl call stack. The namespace won't be - * freed until activationCount becomes zero. */ - int refCount; /* Count of references by namespaceName - * objects. The namespace can't be freed until - * refCount becomes zero. */ - Tcl_HashTable cmdTable; /* Contains all the commands currently - * registered in the namespace. Indexed by - * strings; values have type (Command *). - * Commands imported by Tcl_Import have - * Command structures that point (via an - * ImportedCmdRef structure) to the Command - * structure in the source namespace's command - * table. */ - TclVarHashTable varTable; /* Contains all the (global) variables - * currently in this namespace. Indexed by - * strings; values have type (Var *). */ - char **exportArrayPtr; /* Points to an array of string patterns - * specifying which commands are exported. A - * pattern may include "string match" style - * wildcard characters to specify multiple - * commands; however, no namespace qualifiers - * are allowed. NULL if no export patterns are - * registered. */ - int numExportPatterns; /* Number of export patterns currently - * registered using "namespace export". */ - int maxExportPatterns; /* Mumber of export patterns for which space - * is currently allocated. */ - int cmdRefEpoch; /* Incremented if a newly added command - * shadows a command for which this namespace - * has already cached a Command* pointer; this - * causes all its cached Command* pointers to - * be invalidated. */ - int resolverEpoch; /* Incremented whenever (a) the name - * resolution rules change for this namespace - * or (b) a newly added command shadows a - * command that is compiled to bytecodes. This - * invalidates all byte codes compiled in the - * namespace, causing the code to be - * recompiled under the new rules.*/ - Tcl_ResolveCmdProc *cmdResProc; - /* If non-null, this procedure overrides the - * usual command resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindCommand to resolve all command - * references within the namespace. */ - Tcl_ResolveVarProc *varResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindNamespaceVar to resolve all - * variable references within the namespace at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * LookupCompiledLocal to resolve variable - * references within the namespace at compile - * time. */ - int exportLookupEpoch; /* Incremented whenever a command is added to - * a namespace, removed from a namespace or - * the exports of a namespace are changed. - * Allows TIP#112-driven command lists to be - * validated efficiently. */ - Tcl_Ensemble *ensembles; /* List of structures that contain the details - * of the ensembles that are implemented on - * top of this namespace. */ - Tcl_Obj *unknownHandlerPtr; /* A script fragment to be used when command - * resolution in this namespace fails. TIP - * 181. */ - int commandPathLength; /* The length of the explicit path. */ - NamespacePathEntry *commandPathArray; - /* The explicit path of the namespace as an - * array. */ - NamespacePathEntry *commandPathSourceList; - /* Linked list of path entries that point to - * this namespace. */ -} Namespace; - -/* - * An entry on a namespace's command resolution path. - */ - -struct NamespacePathEntry { - Namespace *nsPtr; /* What does this path entry point to? If it - * is NULL, this path entry points is - * redundant and should be skipped. */ - Namespace *creatorNsPtr; /* Where does this path entry point from? This - * allows for efficient invalidation of - * references when the path entry's target - * updates its current list of defined - * commands. */ - NamespacePathEntry *prevPtr, *nextPtr; - /* Linked list pointers or NULL at either end - * of the list that hangs off Namespace's - * commandPathSourceList field. */ -}; - -/* - * Flags used to represent the status of a namespace: - * - * NS_DYING - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace but there are still active call frames on the Tcl - * stack that refer to the namespace. When the last call frame - * referring to it has been popped, it's variables and command - * will be destroyed and it will be marked "dead" (NS_DEAD). The - * namespace can no longer be looked up by name. - * NS_DEAD - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace and no call frames still refer to it. Its variables - * and command have already been destroyed. This bit allows the - * namespace resolution code to recognize that the namespace is - * "deleted". When the last namespaceName object in any byte code - * unit that refers to the namespace has been freed (i.e., when - * the namespace's refCount is 0), the namespace's storage will - * be freed. - * NS_KILLED 1 means that TclTeardownNamespace has already been called on - * this namespace and it should not be called again [Bug 1355942] - */ - -#define NS_DYING 0x01 -#define NS_DEAD 0x02 -#define NS_KILLED 0x04 - -/* - * Flags passed to TclGetNamespaceForQualName: - * - * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns. - * TCL_NAMESPACE_ONLY - (see tcl.h) Look only in the context ns. - * TCL_CREATE_NS_IF_UNKNOWN - Create unknown namespaces. - * TCL_FIND_ONLY_NS - The name sought is a namespace name. - */ - -#define TCL_CREATE_NS_IF_UNKNOWN 0x800 -#define TCL_FIND_ONLY_NS 0x1000 - -/* - * The data cached in an ensemble subcommand's Tcl_Obj rep (reference in - * twoPtrValue.ptr1 field). This structure is not shared between Tcl_Objs - * referring to the same subcommand, even where one is a duplicate of another. - */ - -typedef struct { - Namespace *nsPtr; /* The namespace backing the ensemble which - * this is a subcommand of. */ - int epoch; /* Used to confirm when the data in this - * really structure matches up with the - * ensemble. */ - Tcl_Command token; /* Reference to the comamnd for which this - * structure is a cache of the resolution. */ - char *fullSubcmdName; /* The full (local) name of the subcommand, - * allocated with ckalloc(). */ - Tcl_Obj *realPrefixObj; /* Object containing the prefix words of the - * command that implements this ensemble - * subcommand. */ -} EnsembleCmdRep; - -/* - * Flag to enable bytecode compilation of an ensemble. - */ - -#define ENSEMBLE_COMPILE 0x4 - -/* - *---------------------------------------------------------------- - * Data structures related to variables. These are used primarily in tclVar.c - *---------------------------------------------------------------- - */ - -/* - * The following structure defines a variable trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * variable. - */ - -typedef struct VarTrace { - Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given by - * flags are performed on variable. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_READS, TCL_TRACE_WRITES, - * TCL_TRACE_UNSETS and TCL_TRACE_ARRAY. */ - struct VarTrace *nextPtr; /* Next in list of traces associated with a - * particular variable. */ -} VarTrace; - -/* - * The following structure defines a command trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * command. - */ - -typedef struct CommandTrace { - Tcl_CommandTraceProc *traceProc; - /* Procedure to call when operations given by - * flags are performed on command. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ - struct CommandTrace *nextPtr; - /* Next in list of traces associated with a - * particular command. */ - int refCount; /* Used to ensure this structure is not - * deleted too early. Keeps track of how many - * pieces of code have a pointer to this - * structure. */ -} CommandTrace; - -/* - * When a command trace is active (i.e. its associated procedure is executing) - * one of the following structures is linked into a list associated with the - * command's interpreter. The information in the structure is needed in order - * for Tcl to behave reasonably if traces are deleted while traces are active. - */ - -typedef struct ActiveCommandTrace { - struct Command *cmdPtr; /* Command that's being traced. */ - struct ActiveCommandTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - CommandTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveCommandTrace; - -/* - * When a variable trace is active (i.e. its associated procedure is - * executing) one of the following structures is linked into a list associated - * with the variable's interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveVarTrace { - struct Var *varPtr; /* Variable that's being traced. */ - struct ActiveVarTrace *nextPtr; - /* Next in list of all active variable traces - * for the interpreter, or NULL if no more. */ - VarTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ -} ActiveVarTrace; - -/* - * The structure below defines a variable, which associates a string name with - * a Tcl_Obj value. These structures are kept in procedure call frames (for - * local variables recognized by the compiler) or in the heap (for global - * variables and any variable not known to the compiler). For each Var - * structure in the heap, a hash table entry holds the variable name and a - * pointer to the Var structure. - */ - -typedef struct Var { - int flags; /* Miscellaneous bits of information about - * variable. See below for definitions. */ - union { - Tcl_Obj *objPtr; /* The variable's object value. Used for - * scalar variables and array elements. */ - TclVarHashTable *tablePtr;/* For array variables, this points to - * information about the hash table used to - * implement the associative array. Points to - * ckalloc-ed data. */ - struct Var *linkPtr; /* If this is a global variable being referred - * to in a procedure, or a variable created by - * "upvar", this field points to the - * referenced variable's Var struct. */ - } value; -} Var; - -typedef struct VarInHash { - Var var; - int refCount; /* Counts number of active uses of this - * variable: 1 for the entry in the hash - * table, 1 for each additional variable whose - * linkPtr points here, 1 for each nested - * trace active on variable, and 1 if the - * variable is a namespace variable. This - * record can't be deleted until refCount - * becomes 0. */ - Tcl_HashEntry entry; /* The hash table entry that refers to this - * variable. This is used to find the name of - * the variable and to delete it from its - * hashtable if it is no longer needed. It - * also holds the variable's name. */ -} VarInHash; - -/* - * Flag bits for variables. The first two (VAR_ARRAY and VAR_LINK) are - * mutually exclusive and give the "type" of the variable. If none is set, - * this is a scalar variable. - * - * VAR_ARRAY - 1 means this is an array variable rather than - * a scalar variable or link. The "tablePtr" - * field points to the array's hashtable for its - * elements. - * VAR_LINK - 1 means this Var structure contains a pointer - * to another Var structure that either has the - * real value or is itself another VAR_LINK - * pointer. Variables like this come about - * through "upvar" and "global" commands, or - * through references to variables in enclosing - * namespaces. - * - * Flags that indicate the type and status of storage; none is set for - * compiled local variables (Var structs). - * - * VAR_IN_HASHTABLE - 1 means this variable is in a hashtable and - * the Var structure is malloced. 0 if it is a - * local variable that was assigned a slot in a - * procedure frame by the compiler so the Var - * storage is part of the call frame. - * VAR_DEAD_HASH 1 means that this var's entry in the hashtable - * has already been deleted. - * VAR_ARRAY_ELEMENT - 1 means that this variable is an array - * element, so it is not legal for it to be an - * array itself (the VAR_ARRAY flag had better - * not be set). - * VAR_NAMESPACE_VAR - 1 means that this variable was declared as a - * namespace variable. This flag ensures it - * persists until its namespace is destroyed or - * until the variable is unset; it will persist - * even if it has not been initialized and is - * marked undefined. The variable's refCount is - * incremented to reflect the "reference" from - * its namespace. - * - * Flag values relating to the variable's trace and search status. - * - * VAR_TRACED_READ - * VAR_TRACED_WRITE - * VAR_TRACED_UNSET - * VAR_TRACED_ARRAY - * VAR_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a read or write access, so new - * read or write accesses should not cause trace - * procedures to be called and the variable can't - * be deleted. - * VAR_SEARCH_ACTIVE - * - * The following additional flags are used with the CompiledLocal type defined - * below: - * - * VAR_ARGUMENT - 1 means that this variable holds a procedure - * argument. - * VAR_TEMPORARY - 1 if the local variable is an anonymous - * temporary variable. Temporaries have a NULL - * name. - * VAR_RESOLVED - 1 if name resolution has been done for this - * variable. - * VAR_IS_ARGS 1 if this variable is the last argument and is - * named "args". - */ - -/* - * FLAGS RENUMBERED: everything breaks already, make things simpler. - * - * IMPORTANT: skip the values 0x10, 0x20, 0x40, 0x800 corresponding to - * TCL_TRACE_(READS/WRITES/UNSETS/ARRAY): makes code simpler in tclTrace.c - * - * Keep the flag values for VAR_ARGUMENT and VAR_TEMPORARY so that old values - * in precompiled scripts keep working. - */ - -/* Type of value (0 is scalar) */ -#define VAR_ARRAY 0x1 -#define VAR_LINK 0x2 - -/* Type of storage (0 is compiled local) */ -#define VAR_IN_HASHTABLE 0x4 -#define VAR_DEAD_HASH 0x8 -#define VAR_ARRAY_ELEMENT 0x1000 -#define VAR_NAMESPACE_VAR 0x80 /* KEEP OLD VALUE for Itcl */ - -#define VAR_ALL_HASH \ - (VAR_IN_HASHTABLE|VAR_DEAD_HASH|VAR_NAMESPACE_VAR|VAR_ARRAY_ELEMENT) - -/* Trace and search state. */ - -#define VAR_TRACED_READ 0x10 /* TCL_TRACE_READS */ -#define VAR_TRACED_WRITE 0x20 /* TCL_TRACE_WRITES */ -#define VAR_TRACED_UNSET 0x40 /* TCL_TRACE_UNSETS */ -#define VAR_TRACED_ARRAY 0x800 /* TCL_TRACE_ARRAY */ -#define VAR_TRACE_ACTIVE 0x2000 -#define VAR_SEARCH_ACTIVE 0x4000 -#define VAR_ALL_TRACES \ - (VAR_TRACED_READ|VAR_TRACED_WRITE|VAR_TRACED_ARRAY|VAR_TRACED_UNSET) - -/* Special handling on initialisation (only CompiledLocal). */ -#define VAR_ARGUMENT 0x100 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_TEMPORARY 0x200 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_IS_ARGS 0x400 -#define VAR_RESOLVED 0x8000 - -/* - * Macros to ensure that various flag bits are set properly for variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetVarScalar(Var *varPtr); - * MODULE_SCOPE void TclSetVarArray(Var *varPtr); - * MODULE_SCOPE void TclSetVarLink(Var *varPtr); - * MODULE_SCOPE void TclSetVarArrayElement(Var *varPtr); - * MODULE_SCOPE void TclSetVarUndefined(Var *varPtr); - * MODULE_SCOPE void TclClearVarUndefined(Var *varPtr); - */ - -#define TclSetVarScalar(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK) - -#define TclSetVarArray(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_LINK) | VAR_ARRAY - -#define TclSetVarLink(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_LINK - -#define TclSetVarArrayElement(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_ARRAY_ELEMENT - -#define TclSetVarUndefined(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK);\ - (varPtr)->value.objPtr = NULL - -#define TclClearVarUndefined(varPtr) - -#define TclSetVarTraceActive(varPtr) \ - (varPtr)->flags |= VAR_TRACE_ACTIVE - -#define TclClearVarTraceActive(varPtr) \ - (varPtr)->flags &= ~VAR_TRACE_ACTIVE - -#define TclSetVarNamespaceVar(varPtr) \ - if (!TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags |= VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount++;\ - }\ - } - -#define TclClearVarNamespaceVar(varPtr) \ - if (TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags &= ~VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount--;\ - }\ - } - -/* - * Macros to read various flag bits of variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsVarScalar(Var *varPtr); - * MODULE_SCOPE int TclIsVarLink(Var *varPtr); - * MODULE_SCOPE int TclIsVarArray(Var *varPtr); - * MODULE_SCOPE int TclIsVarUndefined(Var *varPtr); - * MODULE_SCOPE int TclIsVarArrayElement(Var *varPtr); - * MODULE_SCOPE int TclIsVarTemporary(Var *varPtr); - * MODULE_SCOPE int TclIsVarArgument(Var *varPtr); - * MODULE_SCOPE int TclIsVarResolved(Var *varPtr); - */ - -#define TclIsVarScalar(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK)) - -#define TclIsVarLink(varPtr) \ - ((varPtr)->flags & VAR_LINK) - -#define TclIsVarArray(varPtr) \ - ((varPtr)->flags & VAR_ARRAY) - -#define TclIsVarUndefined(varPtr) \ - ((varPtr)->value.objPtr == NULL) - -#define TclIsVarArrayElement(varPtr) \ - ((varPtr)->flags & VAR_ARRAY_ELEMENT) - -#define TclIsVarNamespaceVar(varPtr) \ - ((varPtr)->flags & VAR_NAMESPACE_VAR) - -#define TclIsVarTemporary(varPtr) \ - ((varPtr)->flags & VAR_TEMPORARY) - -#define TclIsVarArgument(varPtr) \ - ((varPtr)->flags & VAR_ARGUMENT) - -#define TclIsVarResolved(varPtr) \ - ((varPtr)->flags & VAR_RESOLVED) - -#define TclIsVarTraceActive(varPtr) \ - ((varPtr)->flags & VAR_TRACE_ACTIVE) - -#define TclIsVarTraced(varPtr) \ - ((varPtr)->flags & VAR_ALL_TRACES) - -#define TclIsVarInHash(varPtr) \ - ((varPtr)->flags & VAR_IN_HASHTABLE) - -#define TclIsVarDeadHash(varPtr) \ - ((varPtr)->flags & VAR_DEAD_HASH) - -#define TclGetVarNsPtr(varPtr) \ - (TclIsVarInHash(varPtr) \ - ? ((TclVarHashTable *) ((((VarInHash *) (varPtr))->entry.tablePtr)))->nsPtr \ - : NULL) - -#define VarHashRefCount(varPtr) \ - ((VarInHash *) (varPtr))->refCount - -/* - * Macros for direct variable access by TEBC. - */ - -#define TclIsVarDirectReadable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectWritable(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_WRITE|VAR_DEAD_HASH)) - -#define TclIsVarDirectModifyable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ|VAR_TRACED_WRITE)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectReadable2(varPtr, arrayPtr) \ - (TclIsVarDirectReadable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_READ))) - -#define TclIsVarDirectWritable2(varPtr, arrayPtr) \ - (TclIsVarDirectWritable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_WRITE))) - -#define TclIsVarDirectModifyable2(varPtr, arrayPtr) \ - (TclIsVarDirectModifyable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & (VAR_TRACED_READ|VAR_TRACED_WRITE)))) - -/* - *---------------------------------------------------------------- - * Data structures related to procedures. These are used primarily in - * tclProc.c, tclCompile.c, and tclExecute.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent an error when the forward reference to - * Command is encountered in the Proc and ImportRef types declared below. - */ - -struct Command; - -/* - * The variable-length structure below describes a local variable of a - * procedure that was recognized by the compiler. These variables have a name, - * an element in the array of compiler-assigned local variables in the - * procedure's call frame, and various other items of information. If the - * local variable is a formal argument, it may also have a default value. The - * compiler can't recognize local variables whose names are expressions (these - * names are only known at runtime when the expressions are evaluated) or - * local variables that are created as a result of an "upvar" or "uplevel" - * command. These other local variables are kept separately in a hash table in - * the call frame. - */ - -typedef struct CompiledLocal { - struct CompiledLocal *nextPtr; - /* Next compiler-recognized local variable for - * this procedure, or NULL if this is the last - * local. */ - int nameLength; /* The number of characters in local - * variable's name. Used to speed up variable - * lookups. */ - int frameIndex; /* Index in the array of compiler-assigned - * variables in the procedure call frame. */ - int flags; /* Flag bits for the local variable. Same as - * the flags for the Var structure above, - * although only VAR_ARGUMENT, VAR_TEMPORARY, - * and VAR_RESOLVED make sense. */ - Tcl_Obj *defValuePtr; /* Pointer to the default value of an - * argument, if any. NULL if not an argument - * or, if an argument, no default value. */ - Tcl_ResolvedVarInfo *resolveInfo; - /* Customized variable resolution info - * supplied by the Tcl_ResolveCompiledVarProc - * associated with a namespace. Each variable - * is marked by a unique ClientData tag during - * compilation, and that same tag is used to - * find the variable at runtime. */ - char name[4]; /* Name of the local variable starts here. If - * the name is NULL, this will just be '\0'. - * The actual size of this field will be large - * enough to hold the name. MUST BE THE LAST - * FIELD IN THE STRUCTURE! */ -} CompiledLocal; - -/* - * The structure below defines a command procedure, which consists of a - * collection of Tcl commands plus information about arguments and other local - * variables recognized at compile time. - */ - -typedef struct Proc { - struct Interp *iPtr; /* Interpreter for which this command is - * defined. */ - int refCount; /* Reference count: 1 if still present in - * command table plus 1 for each call to the - * procedure that is currently active. This - * structure can be freed when refCount - * becomes zero. */ - struct Command *cmdPtr; /* Points to the Command structure for this - * procedure. This is used to get the - * namespace in which to execute the - * procedure. */ - Tcl_Obj *bodyPtr; /* Points to the ByteCode object for - * procedure's body command. */ - int numArgs; /* Number of formal parameters. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments and - * temporaries. */ - CompiledLocal *firstLocalPtr; - /* Pointer to first of the procedure's - * compiler-allocated local variables, or NULL - * if none. The first numArgs entries in this - * list describe the procedure's formal - * arguments. */ - CompiledLocal *lastLocalPtr;/* Pointer to the last allocated local - * variable or NULL if none. This has frame - * index (numCompiledLocals-1). */ -} Proc; - -/* - * The type of functions called to process errors found during the execution - * of a procedure (or lambda term or ...). - */ - -typedef void (*ProcErrorProc)(Tcl_Interp *interp, Tcl_Obj *procNameObj); - -/* - * The structure below defines a command trace. This is used to allow Tcl - * clients to find out whenever a command is about to be executed. - */ - -typedef struct Trace { - int level; /* Only trace commands at nesting level less - * than or equal to this. */ - Tcl_CmdObjTraceProc *proc; /* Procedure to call to trace command. */ - ClientData clientData; /* Arbitrary value to pass to proc. */ - struct Trace *nextPtr; /* Next in list of traces for this interp. */ - int flags; /* Flags governing the trace - see - * Tcl_CreateObjTrace for details. */ - Tcl_CmdObjTraceDeleteProc *delProc; - /* Procedure to call when trace is deleted. */ -} Trace; - -/* - * When an interpreter trace is active (i.e. its associated procedure is - * executing), one of the following structures is linked into a list - * associated with the interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveInterpTrace { - struct ActiveInterpTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - Trace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveInterpTrace; - -/* - * Flag values designating types of execution traces. See tclTrace.c for - * related flag values. - * - * TCL_TRACE_ENTER_EXEC - triggers enter/enterstep traces. - * - passed to Tcl_CreateObjTrace to set up - * "enterstep" traces. - * TCL_TRACE_LEAVE_EXEC - triggers leave/leavestep traces. - * - passed to Tcl_CreateObjTrace to set up - * "leavestep" traces. - */ - -#define TCL_TRACE_ENTER_EXEC 1 -#define TCL_TRACE_LEAVE_EXEC 2 - -/* - * The structure below defines an entry in the assocData hash table which is - * associated with an interpreter. The entry contains a pointer to a function - * to call when the interpreter is deleted, and a pointer to a user-defined - * piece of data. - */ - -typedef struct AssocData { - Tcl_InterpDeleteProc *proc; /* Proc to call when deleting. */ - ClientData clientData; /* Value to pass to proc. */ -} AssocData; - -/* - * The structure below defines a call frame. A call frame defines a naming - * context for a procedure call: its local naming scope (for local variables) - * and its global naming scope (a namespace, perhaps the global :: namespace). - * A call frame can also define the naming context for a namespace eval or - * namespace inscope command: the namespace in which the command's code should - * execute. The Tcl_CallFrame structures exist only while procedures or - * namespace eval/inscope's are being executed, and provide a kind of Tcl call - * stack. - * - * WARNING!! The structure definition must be kept consistent with the - * Tcl_CallFrame structure in tcl.h. If you change one, change the other. - */ - -/* - * Will be grown to contain: pointers to the varnames (allocated at the end), - * plus the init values for each variable (suitable to be memcopied on init) - */ - -typedef struct LocalCache { - int refCount; - int numVars; - Tcl_Obj *varName0; -} LocalCache; - -#define localName(framePtr, i) \ - ((&((framePtr)->localCachePtr->varName0))[(i)]) - -MODULE_SCOPE void TclFreeLocalCache(Tcl_Interp *interp, - LocalCache *localCachePtr); - -typedef struct CallFrame { - Namespace *nsPtr; /* Points to the namespace used to resolve - * commands and global variables. */ - int isProcCallFrame; /* If 0, the frame was pushed to execute a - * namespace command and var references are - * treated as references to namespace vars; - * varTablePtr and compiledLocals are ignored. - * If FRAME_IS_PROC is set, the frame was - * pushed to execute a Tcl procedure and may - * have local vars. */ - int objc; /* This and objv below describe the arguments - * for this procedure call. */ - Tcl_Obj *const *objv; /* Array of argument objects. */ - struct CallFrame *callerPtr; - /* Value of interp->framePtr when this - * procedure was invoked (i.e. next higher in - * stack of all active procedures). */ - struct CallFrame *callerVarPtr; - /* Value of interp->varFramePtr when this - * procedure was invoked (i.e. determines - * variable scoping within caller). Same as - * callerPtr unless an "uplevel" command or - * something equivalent was active in the - * caller). */ - int level; /* Level of this procedure, for "uplevel" - * purposes (i.e. corresponds to nesting of - * callerVarPtr's, not callerPtr's). 1 for - * outermost procedure, 0 for top-level. */ - Proc *procPtr; /* Points to the structure defining the called - * procedure. Used to get information such as - * the number of compiled local variables - * (local variables assigned entries ["slots"] - * in the compiledLocals array below). */ - TclVarHashTable *varTablePtr; - /* Hash table containing local variables not - * recognized by the compiler, or created at - * execution time through, e.g., upvar. - * Initially NULL and created if needed. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments. */ - Var *compiledLocals; /* Points to the array of local variables - * recognized by the compiler. The compiler - * emits code that refers to these variables - * using an index into this array. */ - ClientData clientData; /* Pointer to some context that is used by - * object systems. The meaning of the contents - * of this field is defined by the code that - * sets it, and it should only ever be set by - * the code that is pushing the frame. In that - * case, the code that sets it should also - * have some means of discovering what the - * meaning of the value is, which we do not - * specify. */ - LocalCache *localCachePtr; -} CallFrame; - -#define FRAME_IS_PROC 0x1 -#define FRAME_IS_LAMBDA 0x2 - -/* - * TIP #280 - * The structure below defines a command frame. A command frame provides - * location information for all commands executing a tcl script (source, eval, - * uplevel, procedure bodies, ...). The runtime structure essentially contains - * the stack trace as it would be if the currently executing command were to - * throw an error. - * - * For commands where it makes sense it refers to the associated CallFrame as - * well. - * - * The structures are chained in a single list, with the top of the stack - * anchored in the Interp structure. - * - * Instances can be allocated on the C stack, or the heap, the former making - * cleanup a bit simpler. - */ - -typedef struct CmdFrame { - /* - * General data. Always available. - */ - - int type; /* Values see below. */ - int level; /* Number of frames in stack, prevent O(n) - * scan of list. */ - int *line; /* Lines the words of the command start on. */ - int nline; - CallFrame *framePtr; /* Procedure activation record, may be - * NULL. */ - struct CmdFrame *nextPtr; /* Link to calling frame. */ - /* - * Data needed for Eval vs TEBC - * - * EXECUTION CONTEXTS and usage of CmdFrame - * - * Field TEBC EvalEx EvalObjEx - * ======= ==== ====== ========= - * level yes yes yes - * type BC/PREBC SRC/EVAL EVAL_LIST - * line0 yes yes yes - * framePtr yes yes yes - * ======= ==== ====== ========= - * - * ======= ==== ====== ========= union data - * line1 - yes - - * line3 - yes - - * path - yes - - * ------- ---- ------ --------- - * codePtr yes - - - * pc yes - - - * ======= ==== ====== ========= - * - * ======= ==== ====== ========= | union cmd - * listPtr - - yes | - * ------- ---- ------ --------- | - * cmd yes yes - | - * cmdlen yes yes - | - * ------- ---- ------ --------- | - */ - - union { - struct { - Tcl_Obj *path; /* Path of the sourced file the command is - * in. */ - } eval; - struct { - const void *codePtr;/* Byte code currently executed... */ - const char *pc; /* ... and instruction pointer. */ - } tebc; - } data; - union { - struct { - const char *cmd; /* The executed command, if possible... */ - int len; /* ... and its length. */ - } str; - Tcl_Obj *listPtr; /* Tcl_EvalObjEx, cmd list. */ - } cmd; -} CmdFrame; - -typedef struct CFWord { - CmdFrame *framePtr; /* CmdFrame to access. */ - int word; /* Index of the word in the command. */ - int refCount; /* Number of times the word is on the - * stack. */ -} CFWord; - -typedef struct CFWordBC { - CmdFrame *framePtr; /* CmdFrame to access. */ - int pc; /* Instruction pointer of a command in - * ExtCmdLoc.loc[.] */ - int word; /* Index of word in - * ExtCmdLoc.loc[cmd]->line[.] */ - struct CFWordBC *prevPtr; /* Previous entry in stack for same Tcl_Obj. */ -} CFWordBC; - -/* - * Structure to record the locations of invisible continuation lines in - * literal scripts, as character offset from the beginning of the script. Both - * compiler and direct evaluator use this information to adjust their line - * counters when tracking through the script, because when it is invoked the - * continuation line marker as a whole has been removed already, meaning that - * the \n which was part of it is gone as well, breaking regular line - * tracking. - * - * These structures are allocated and filled by both the function - * TclSubstTokens() in the file "tclParse.c" and its caller TclEvalEx() in the - * file "tclBasic.c", and stored in the thread-global hashtable "lineCLPtr" in - * file "tclObj.c". They are used by the functions TclSetByteCodeFromAny() and - * TclCompileScript(), both found in the file "tclCompile.c". Their memory is - * released by the function TclFreeObj(), in the file "tclObj.c", and also by - * the function TclThreadFinalizeObjects(), in the same file. - */ - -#define CLL_END (-1) - -typedef struct ContLineLoc { - int num; /* Number of entries in loc, not counting the - * final -1 marker entry. */ - int loc[1]; /* Table of locations, as character offsets. - * The table is allocated as part of the - * structure, extending behind the nominal end - * of the structure. An entry containing the - * value -1 is put after the last location, as - * end-marker/sentinel. */ -} ContLineLoc; - -/* - * The following macros define the allowed values for the type field of the - * CmdFrame structure above. Some of the values occur only in the extended - * location data referenced via the 'baseLocPtr'. - * - * TCL_LOCATION_EVAL : Frame is for a script evaluated by EvalEx. - * TCL_LOCATION_EVAL_LIST : Frame is for a script evaluated by the list - * optimization path of EvalObjEx. - * TCL_LOCATION_BC : Frame is for bytecode. - * TCL_LOCATION_PREBC : Frame is for precompiled bytecode. - * TCL_LOCATION_SOURCE : Frame is for a script evaluated by EvalEx, from a - * sourced file. - * TCL_LOCATION_PROC : Frame is for bytecode of a procedure. - * - * A TCL_LOCATION_BC type in a frame can be overridden by _SOURCE and _PROC - * types, per the context of the byte code in execution. - */ - -#define TCL_LOCATION_EVAL (0) /* Location in a dynamic eval script. */ -#define TCL_LOCATION_EVAL_LIST (1) /* Location in a dynamic eval script, - * list-path. */ -#define TCL_LOCATION_BC (2) /* Location in byte code. */ -#define TCL_LOCATION_PREBC (3) /* Location in precompiled byte code, no - * location. */ -#define TCL_LOCATION_SOURCE (4) /* Location in a file. */ -#define TCL_LOCATION_PROC (5) /* Location in a dynamic proc. */ -#define TCL_LOCATION_LAST (6) /* Number of values in the enum. */ - -/* - * Structure passed to describe procedure-like "procedures" that are not - * procedures (e.g. a lambda) so that their details can be reported correctly - * by [info frame]. Contains a sub-structure for each extra field. - */ - -typedef Tcl_Obj *(*GetFrameInfoValueProc)(ClientData clientData); -typedef struct { - const char *name; /* Name of this field. */ - GetFrameInfoValueProc proc; /* Function to generate a Tcl_Obj* from the - * clientData, or just use the clientData - * directly (after casting) if NULL. */ - ClientData clientData; /* Context for above function, or Tcl_Obj* if - * proc field is NULL. */ -} ExtraFrameInfoField; -typedef struct { - int length; /* Length of array. */ - ExtraFrameInfoField fields[2]; - /* Really as long as necessary, but this is - * long enough for nearly anything. */ -} ExtraFrameInfo; - -/* - *---------------------------------------------------------------- - * Data structures and procedures related to TclHandles, which are a very - * lightweight method of preserving enough information to determine if an - * arbitrary malloc'd block has been deleted. - *---------------------------------------------------------------- - */ - -typedef void **TclHandle; - -/* - *---------------------------------------------------------------- - * Experimental flag value passed to Tcl_GetRegExpFromObj. Intended for use - * only by Expect. It will probably go away in a later release. - *---------------------------------------------------------------- - */ - -#define TCL_REG_BOSONLY 002000 /* Prepend \A to pattern so it only matches at - * the beginning of the string. */ - -/* - * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet - * when threads are used, or an emulation if there are no threads. These are - * really internal and Tcl clients should use Tcl_GetThreadData. - */ - -MODULE_SCOPE void * TclThreadDataKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclThreadDataKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); - -/* - * This is a convenience macro used to initialize a thread local storage ptr. - */ - -#define TCL_TSD_INIT(keyPtr) \ - (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) - -/* - *---------------------------------------------------------------- - * Data structures related to bytecode compilation and execution. These are - * used primarily in tclCompile.c, tclExecute.c, and tclBasic.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent errors when the forward references to - * Tcl_Parse and CompileEnv are encountered in the procedure type CompileProc - * declared below. - */ - -struct CompileEnv; - -/* - * The type of procedures called by the Tcl bytecode compiler to compile - * commands. Pointers to these procedures are kept in the Command structure - * describing each command. The integer value returned by a CompileProc must - * be one of the following: - * - * TCL_OK Compilation completed normally. - * TCL_ERROR Compilation could not be completed. This can be just a - * judgment by the CompileProc that the command is too - * complex to compile effectively, or it can indicate - * that in the current state of the interp, the command - * would raise an error. The bytecode compiler will not - * do any error reporting at compiler time. Error - * reporting is deferred until the actual runtime, - * because by then changes in the interp state may allow - * the command to be successfully evaluated. - * TCL_OUT_LINE_COMPILE A source-compatible alias for TCL_ERROR, kept for the - * sake of old code only. - */ - -#define TCL_OUT_LINE_COMPILE TCL_ERROR - -typedef int (CompileProc)(Tcl_Interp *interp, Tcl_Parse *parsePtr, - struct Command *cmdPtr, struct CompileEnv *compEnvPtr); - -/* - * The type of procedure called from the compilation hook point in - * SetByteCodeFromAny. - */ - -typedef int (CompileHookProc)(Tcl_Interp *interp, - struct CompileEnv *compEnvPtr, ClientData clientData); - -/* - * The data structure for a (linked list of) execution stacks. - */ - -typedef struct ExecStack { - struct ExecStack *prevPtr; - struct ExecStack *nextPtr; - Tcl_Obj **markerPtr; - Tcl_Obj **endPtr; - Tcl_Obj **tosPtr; - Tcl_Obj *stackWords[1]; -} ExecStack; - -/* - * The data structure defining the execution environment for ByteCode's. - * There is one ExecEnv structure per Tcl interpreter. It holds the evaluation - * stack that holds command operands and results. The stack grows towards - * increasing addresses. The member stackPtr points to the stackItems of the - * currently active execution stack. - */ - -typedef struct ExecEnv { - ExecStack *execStackPtr; /* Points to the first item in the evaluation - * stack on the heap. */ - Tcl_Obj *constants[2]; /* Pointers to constant "0" and "1" objs. */ -} ExecEnv; - -/* - * The definitions for the LiteralTable and LiteralEntry structures. Each - * interpreter contains a LiteralTable. It is used to reduce the storage - * needed for all the Tcl objects that hold the literals of scripts compiled - * by the interpreter. A literal's object is shared by all the ByteCodes that - * refer to the literal. Each distinct literal has one LiteralEntry entry in - * the LiteralTable. A literal table is a specialized hash table that is - * indexed by the literal's string representation, which may contain null - * characters. - * - * Note that we reduce the space needed for literals by sharing literal - * objects both within a ByteCode (each ByteCode contains a local - * LiteralTable) and across all an interpreter's ByteCodes (with the - * interpreter's global LiteralTable). - */ - -typedef struct LiteralEntry { - struct LiteralEntry *nextPtr; - /* Points to next entry in this hash bucket or - * NULL if end of chain. */ - Tcl_Obj *objPtr; /* Points to Tcl object that holds the - * literal's bytes and length. */ - int refCount; /* If in an interpreter's global literal - * table, the number of ByteCode structures - * that share the literal object; the literal - * entry can be freed when refCount drops to - * 0. If in a local literal table, -1. */ - Namespace *nsPtr; /* Namespace in which this literal is used. We - * try to avoid sharing literal non-FQ command - * names among different namespaces to reduce - * shimmering. */ -} LiteralEntry; - -typedef struct LiteralTable { - LiteralEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - LiteralEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables to avoid - * mallocs and frees. */ - int numBuckets; /* Total number of buckets allocated at - * **buckets. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int mask; /* Mask value used in hashing function. */ -} LiteralTable; - -/* - * The following structure defines for each Tcl interpreter various - * statistics-related information about the bytecode compiler and - * interpreter's operation in that interpreter. - */ - -#ifdef TCL_COMPILE_STATS -typedef struct ByteCodeStats { - long numExecutions; /* Number of ByteCodes executed. */ - long numCompilations; /* Number of ByteCodes created. */ - long numByteCodesFreed; /* Number of ByteCodes destroyed. */ - long instructionCount[256]; /* Number of times each instruction was - * executed. */ - - double totalSrcBytes; /* Total source bytes ever compiled. */ - double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ - double currentSrcBytes; /* Src bytes for all current ByteCodes. */ - double currentByteCodeBytes;/* Code bytes in all current ByteCodes. */ - - long srcCount[32]; /* Source size distribution: # of srcs of - * size [2**(n-1)..2**n), n in [0..32). */ - long byteCodeCount[32]; /* ByteCode size distribution. */ - long lifetimeCount[32]; /* ByteCode lifetime distribution (ms). */ - - double currentInstBytes; /* Instruction bytes-current ByteCodes. */ - double currentLitBytes; /* Current literal bytes. */ - double currentExceptBytes; /* Current exception table bytes. */ - double currentAuxBytes; /* Current auxiliary information bytes. */ - double currentCmdMapBytes; /* Current src<->code map bytes. */ - - long numLiteralsCreated; /* Total literal objects ever compiled. */ - double totalLitStringBytes; /* Total string bytes in all literals. */ - double currentLitStringBytes; - /* String bytes in current literals. */ - long literalCount[32]; /* Distribution of literal string sizes. */ -} ByteCodeStats; -#endif /* TCL_COMPILE_STATS */ - -/* - * Structure used in implementation of those core ensembles which are - * partially compiled. Used as an array of these, with a terminating field - * whose 'name' is NULL. - */ - -typedef struct { - const char *name; /* The name of the subcommand. */ - Tcl_ObjCmdProc *proc; /* The implementation of the subcommand. */ - CompileProc *compileProc; /* The compiler for the subcommand. */ -} EnsembleImplMap; - -/* - *---------------------------------------------------------------- - * Data structures related to commands. - *---------------------------------------------------------------- - */ - -/* - * An imported command is created in an namespace when it imports a "real" - * command from another namespace. An imported command has a Command structure - * that points (via its ClientData value) to the "real" Command structure in - * the source namespace's command table. The real command records all the - * imported commands that refer to it in a list of ImportRef structures so - * that they can be deleted when the real command is deleted. - */ - -typedef struct ImportRef { - struct Command *importedCmdPtr; - /* Points to the imported command created in - * an importing namespace; this command - * redirects its invocations to the "real" - * command. */ - struct ImportRef *nextPtr; /* Next element on the linked list of imported - * commands that refer to the "real" command. - * The real command deletes these imported - * commands on this list when it is - * deleted. */ -} ImportRef; - -/* - * Data structure used as the ClientData of imported commands: commands - * created in an namespace when it imports a "real" command from another - * namespace. - */ - -typedef struct ImportedCmdData { - struct Command *realCmdPtr; /* "Real" command that this imported command - * refers to. */ - struct Command *selfPtr; /* Pointer to this imported command. Needed - * only when deleting it in order to remove it - * from the real command's linked list of - * imported commands that refer to it. */ -} ImportedCmdData; - -/* - * A Command structure exists for each command in a namespace. The Tcl_Command - * opaque type actually refers to these structures. - */ - -typedef struct Command { - Tcl_HashEntry *hPtr; /* Pointer to the hash table entry that refers - * to this command. The hash table is either a - * namespace's command table or an - * interpreter's hidden command table. This - * pointer is used to get a command's name - * from its Tcl_Command handle. NULL means - * that the hash table entry has been removed - * already (this can happen if deleteProc - * causes the command to be deleted or - * recreated). */ - Namespace *nsPtr; /* Points to the namespace containing this - * command. */ - int refCount; /* 1 if in command hashtable plus 1 for each - * reference from a CmdName Tcl object - * representing a command's name in a ByteCode - * instruction sequence. This structure can be - * freed when refCount becomes zero. */ - int cmdEpoch; /* Incremented to invalidate any references - * that point to this command when it is - * renamed, deleted, hidden, or exposed. */ - CompileProc *compileProc; /* Procedure called to compile command. NULL - * if no compile proc exists for command. */ - Tcl_ObjCmdProc *objProc; /* Object-based command procedure. */ - ClientData objClientData; /* Arbitrary value passed to object proc. */ - Tcl_CmdProc *proc; /* String-based command procedure. */ - ClientData clientData; /* Arbitrary value passed to string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Procedure invoked when deleting command to, - * e.g., free all client data. */ - ClientData deleteData; /* Arbitrary value passed to deleteProc. */ - int flags; /* Miscellaneous bits of information about - * command. See below for definitions. */ - ImportRef *importRefPtr; /* List of each imported Command created in - * another namespace when this command is - * imported. These imported commands redirect - * invocations back to this command. The list - * is used to remove all those imported - * commands when deleting this "real" - * command. */ - CommandTrace *tracePtr; /* First in list of all traces set for this - * command. */ -} Command; - -/* - * Flag bits for commands. - * - * CMD_IS_DELETED - Means that the command is in the process of - * being deleted (its deleteProc is currently - * executing). Other attempts to delete the - * command should be ignored. - * CMD_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a rename/delete change. See the - * two flags below for which is currently being - * processed. - * CMD_HAS_EXEC_TRACES - 1 means that this command has at least one - * execution trace (as opposed to simple - * delete/rename traces) in its tracePtr list. - * TCL_TRACE_RENAME - A rename trace is in progress. Further - * recursive renames will not be traced. - * TCL_TRACE_DELETE - A delete trace is in progress. Further - * recursive deletes will not be traced. - * (these last two flags are defined in tcl.h) - */ - -#define CMD_IS_DELETED 0x1 -#define CMD_TRACE_ACTIVE 0x2 -#define CMD_HAS_EXEC_TRACES 0x4 -#define CMD_REDEF_IN_PROGRESS 0x10 - -/* - *---------------------------------------------------------------- - * Data structures related to name resolution procedures. - *---------------------------------------------------------------- - */ - -/* - * The interpreter keeps a linked list of name resolution schemes. The scheme - * for a namespace is consulted first, followed by the list of schemes in an - * interpreter, followed by the default name resolution in Tcl. Schemes are - * added/removed from the interpreter's list by calling Tcl_AddInterpResolver - * and Tcl_RemoveInterpResolver. - */ - -typedef struct ResolverScheme { - char *name; /* Name identifying this scheme. */ - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ - - struct ResolverScheme *nextPtr; - /* Pointer to next record in linked list. */ -} ResolverScheme; - -/* - * Forward declaration of the TIP#143 limit handler structure. - */ - -typedef struct LimitHandler LimitHandler; - -/* - * TIP #268. - * Values for the selection mode, i.e the package require preferences. - */ - -enum PkgPreferOptions { - PKG_PREFER_LATEST, PKG_PREFER_STABLE -}; - -/* - *---------------------------------------------------------------- - * This structure defines an interpreter, which is a collection of commands - * plus other state information related to interpreting commands, such as - * variable storage. Primary responsibility for this data structure is in - * tclBasic.c, but almost every Tcl source file uses something in here. - *---------------------------------------------------------------- - */ - -typedef struct Interp { - /* - * Note: the first three fields must match exactly the fields in a - * Tcl_Interp struct (see tcl.h). If you change one, be sure to change the - * other. - * - * The interpreter's result is held in both the string and the - * objResultPtr fields. These fields hold, respectively, the result's - * string or object value. The interpreter's result is always in the - * result field if that is non-empty, otherwise it is in objResultPtr. - * The two fields are kept consistent unless some C code sets - * interp->result directly. Programs should not access result and - * objResultPtr directly; instead, they should always get and set the - * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, and - * Tcl_GetStringResult. See the SetResult man page for details. - */ - - char *result; /* If the last command returned a string - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_FreeProc *freeProc; /* Zero means a string result is statically - * allocated. TCL_DYNAMIC means string result - * was allocated with ckalloc and should be - * freed with ckfree. Other values give - * address of procedure to invoke to free the - * string result. Tcl_Eval must free it before - * executing next command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number in the command where the error - * occurred (1 means first line). */ - struct TclStubs *stubTable; - /* Pointer to the exported Tcl stub table. On - * previous versions of Tcl this is a pointer - * to the objResultPtr or a pointer to a - * buckets array in a hash table. We therefore - * have to do some careful checking before we - * can use this. */ - - TclHandle handle; /* Handle used to keep track of when this - * interp is deleted. */ - - Namespace *globalNsPtr; /* The interpreter's global namespace. */ - Tcl_HashTable *hiddenCmdTablePtr; - /* Hash table used by tclBasic.c to keep track - * of hidden commands on a per-interp - * basis. */ - ClientData interpInfo; /* Information used by tclInterp.c to keep - * track of master/slave interps on a - * per-interp basis. */ - Tcl_HashTable unused2; /* No longer used (was mathFuncTable) */ - - /* - * Information related to procedures and variables. See tclProc.c and - * tclVar.c for usage. - */ - - int numLevels; /* Keeps track of how many nested calls to - * Tcl_Eval are in progress for this - * interpreter. It's used to delay deletion of - * the table until all Tcl_Eval invocations - * are completed. */ - int maxNestingDepth; /* If numLevels exceeds this value then Tcl - * assumes that infinite recursion has - * occurred and it generates an error. */ - CallFrame *framePtr; /* Points to top-most in stack of all nested - * procedure invocations. */ - CallFrame *varFramePtr; /* Points to the call frame whose variables - * are currently in use (same as framePtr - * unless an "uplevel" command is - * executing). */ - ActiveVarTrace *activeVarTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - int returnCode; /* [return -code] parameter. */ - CallFrame *rootFramePtr; /* Global frame pointer for this - * interpreter. */ - Namespace *lookupNsPtr; /* Namespace to use ONLY on the next - * TCL_EVAL_INVOKE call to Tcl_EvalObjv. */ - - /* - * Information used by Tcl_AppendResult to keep track of partial results. - * See Tcl_AppendResult code for details. - */ - - char *appendResult; /* Storage space for results generated by - * Tcl_AppendResult. Ckalloc-ed. NULL means - * not yet allocated. */ - int appendAvl; /* Total amount of space available at - * partialResult. */ - int appendUsed; /* Number of non-null bytes currently stored - * at partialResult. */ - - /* - * Information about packages. Used only in tclPkg.c. - */ - - Tcl_HashTable packageTable; /* Describes all of the packages loaded in or - * available to this interpreter. Keys are - * package names, values are (Package *) - * pointers. */ - char *packageUnknown; /* Command to invoke during "package require" - * commands for packages that aren't described - * in packageTable. Ckalloc'ed, may be - * NULL. */ - /* - * Miscellaneous information: - */ - - int cmdCount; /* Total number of times a command procedure - * has been called for this interpreter. */ - int evalFlags; /* Flags to control next call to Tcl_Eval. - * Normally zero, but may be set before - * calling Tcl_Eval. See below for valid - * values. */ - int unused1; /* No longer used (was termOffset) */ - LiteralTable literalTable; /* Contains LiteralEntry's describing all Tcl - * objects holding literals of scripts - * compiled by the interpreter. Indexed by the - * string representations of literals. Used to - * avoid creating duplicate objects. */ - int compileEpoch; /* Holds the current "compilation epoch" for - * this interpreter. This is incremented to - * invalidate existing ByteCodes when, e.g., a - * command with a compile procedure is - * redefined. */ - Proc *compiledProcPtr; /* If a procedure is being compiled, a pointer - * to its Proc structure; otherwise, this is - * NULL. Set by ObjInterpProc in tclProc.c and - * used by tclCompile.c to process local - * variables appropriately. */ - ResolverScheme *resolverPtr; - /* Linked list of name resolution schemes - * added to this interpreter. Schemes are - * added and removed by calling - * Tcl_AddInterpResolvers and - * Tcl_RemoveInterpResolver respectively. */ - Tcl_Obj *scriptFile; /* NULL means there is no nested source - * command active; otherwise this points to - * pathPtr of the file being sourced. */ - int flags; /* Various flag bits. See below. */ - long randSeed; /* Seed used for rand() function. */ - Trace *tracePtr; /* List of traces for this interpreter. */ - Tcl_HashTable *assocData; /* Hash table for associating data with this - * interpreter. Cleaned up when this - * interpreter is deleted. */ - struct ExecEnv *execEnvPtr; /* Execution environment for Tcl bytecode - * execution. Contains a pointer to the Tcl - * evaluation stack. */ - Tcl_Obj *emptyObjPtr; /* Points to an object holding an empty - * string. Returned by Tcl_ObjSetVar2 when - * variable traces change a variable in a - * gross way. */ - char resultSpace[TCL_RESULT_SIZE+1]; - /* Static space holding small results. */ - Tcl_Obj *objResultPtr; /* If the last command returned an object - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_ThreadId threadId; /* ID of thread that owns the interpreter. */ - - ActiveCommandTrace *activeCmdTracePtr; - /* First in list of active command traces for - * interp, or NULL if no active traces. */ - ActiveInterpTrace *activeInterpTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - - int tracesForbiddingInline; /* Count of traces (in the list headed by - * tracePtr) that forbid inline bytecode - * compilation. */ - - /* - * Fields used to manage extensible return options (TIP 90). - */ - - Tcl_Obj *returnOpts; /* A dictionary holding the options to the - * last [return] command. */ - - Tcl_Obj *errorInfo; /* errorInfo value (now as a Tcl_Obj). */ - Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable. */ - Tcl_Obj *errorCode; /* errorCode value (now as a Tcl_Obj). */ - Tcl_Obj *ecVar; /* cached ref to ::errorInfo variable. */ - int returnLevel; /* [return -level] parameter. */ - - /* - * Resource limiting framework support (TIP#143). - */ - - struct { - int active; /* Flag values defining which limits have been - * set. */ - int granularityTicker; /* Counter used to determine how often to - * check the limits. */ - int exceeded; /* Which limits have been exceeded, described - * as flag values the same as the 'active' - * field. */ - - int cmdCount; /* Limit for how many commands to execute in - * the interpreter. */ - LimitHandler *cmdHandlers; - /* Handlers to execute when the limit is - * reached. */ - int cmdGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - - Tcl_Time time; /* Time limit for execution within the - * interpreter. */ - LimitHandler *timeHandlers; - /* Handlers to execute when the limit is - * reached. */ - int timeGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - Tcl_TimerToken timeEvent; - /* Handle for a timer callback that will occur - * when the time-limit is exceeded. */ - - Tcl_HashTable callbacks;/* Mapping from (interp,type) pair to data - * used to install a limit handler callback to - * run in _this_ interp when the limit is - * exceeded. */ - } limit; - - /* - * Information for improved default error generation from ensembles - * (TIP#112). - */ - - struct { - Tcl_Obj *const *sourceObjs; - /* What arguments were actually input into the - * *root* ensemble command? (Nested ensembles - * don't rewrite this.) NULL if we're not - * processing an ensemble. */ - int numRemovedObjs; /* How many arguments have been stripped off - * because of ensemble processing. */ - int numInsertedObjs; /* How many of the current arguments were - * inserted by an ensemble. */ - } ensembleRewrite; - - /* - * TIP #219: Global info for the I/O system. - */ - - Tcl_Obj *chanMsg; /* Error message set by channel drivers, for - * the propagation of arbitrary Tcl errors. - * This information, if present (chanMsg not - * NULL), takes precedence over a POSIX error - * code returned by a channel operation. */ - - /* - * Source code origin information (TIP #280). - */ - - CmdFrame *cmdFramePtr; /* Points to the command frame containing the - * location information for the current - * command. */ - const CmdFrame *invokeCmdFramePtr; - /* Points to the command frame which is the - * invoking context of the bytecode compiler. - * NULL when the byte code compiler is not - * active. */ - int invokeWord; /* Index of the word in the command which - * is getting compiled. */ - Tcl_HashTable *linePBodyPtr;/* This table remembers for each statically - * defined procedure the location information - * for its body. It is keyed by the address of - * the Proc structure for a procedure. The - * values are "struct CmdFrame*". */ - Tcl_HashTable *lineBCPtr; /* This table remembers for each ByteCode - * object the location information for its - * body. It is keyed by the address of the - * Proc structure for a procedure. The values - * are "struct ExtCmdLoc*". (See - * tclCompile.h) */ - Tcl_HashTable *lineLABCPtr; - Tcl_HashTable *lineLAPtr; /* This table remembers for each argument of a - * command on the execution stack the index of - * the argument in the command, and the - * location data of the command. It is keyed - * by the address of the Tcl_Obj containing - * the argument. The values are "struct - * CFWord*" (See tclBasic.c). This allows - * commands like uplevel, eval, etc. to find - * location information for their arguments, - * if they are a proper literal argument to an - * invoking command. Alt view: An index to the - * CmdFrame stack keyed by command argument - * holders. */ - ContLineLoc *scriptCLLocPtr;/* This table points to the location data for - * invisible continuation lines in the script, - * if any. This pointer is set by the function - * TclEvalObjEx() in file "tclBasic.c", and - * used by function ...() in the same file. - * It does for the eval/direct path of script - * execution what CompileEnv.clLoc does for - * the bytecode compiler. - */ - /* - * TIP #268. The currently active selection mode, i.e. the package require - * preferences. - */ - - int packagePrefer; /* Current package selection mode. */ - - /* - * Hashtables for variable traces and searches. - */ - - Tcl_HashTable varTraces; /* Hashtable holding the start of a variable's - * active trace list; varPtr is the key. */ - Tcl_HashTable varSearches; /* Hashtable holding the start of a variable's - * active searches list; varPtr is the key. */ - /* - * The thread-specific data ekeko: cache pointers or values that - * (a) do not change during the thread's lifetime - * (b) require access to TSD to determine at runtime - * (c) are accessed very often (e.g., at each command call) - * - * Note that these are the same for all interps in the same thread. They - * just have to be initialised for the thread's master interp, slaves - * inherit the value. - * - * They are used by the macros defined below. - */ - - void *allocCache; - void *pendingObjDataPtr; /* Pointer to the Cache and PendingObjData - * structs for this interp's thread; see - * tclObj.c and tclThreadAlloc.c */ - int *asyncReadyPtr; /* Pointer to the asyncReady indicator for - * this interp's thread; see tclAsync.c */ - int *stackBound; /* Pointer to the limit stack address - * allowable for invoking a new command - * without "risking" a C-stack overflow; see - * TclpCheckStackSpace in the platform's - * directory. */ - - -#ifdef TCL_COMPILE_STATS - /* - * Statistical information about the bytecode compiler and interpreter's - * operation. - */ - - ByteCodeStats stats; /* Holds compilation and execution statistics - * for this interpreter. */ -#endif /* TCL_COMPILE_STATS */ -} Interp; - -/* - * Macros that use the TSD-ekeko. - */ - -#define TclAsyncReady(iPtr) \ - *((iPtr)->asyncReadyPtr) - -/* - * Macros for splicing into and out of doubly linked lists. They assume - * existence of struct items 'prevPtr' and 'nextPtr'. - * - * a = element to add or remove. - * b = list head. - * - * TclSpliceIn adds to the head of the list. - */ - -#define TclSpliceIn(a,b) \ - (a)->nextPtr = (b); \ - if ((b) != NULL) { \ - (b)->prevPtr = (a); \ - } \ - (a)->prevPtr = NULL, (b) = (a); - -#define TclSpliceOut(a,b) \ - if ((a)->prevPtr != NULL) { \ - (a)->prevPtr->nextPtr = (a)->nextPtr; \ - } else { \ - (b) = (a)->nextPtr; \ - } \ - if ((a)->nextPtr != NULL) { \ - (a)->nextPtr->prevPtr = (a)->prevPtr; \ - } - -/* - * EvalFlag bits for Interp structures: - * - * TCL_ALLOW_EXCEPTIONS 1 means it's OK for the script to terminate with a - * code other than TCL_OK or TCL_ERROR; 0 means codes - * other than these should be turned into errors. - */ - -#define TCL_ALLOW_EXCEPTIONS 0x04 -#define TCL_EVAL_FILE 0x02 -#define TCL_EVAL_CTX 0x08 -#define TCL_EVAL_DISCARD_RESULT 0x40 - -/* - * Flag bits for Interp structures: - * - * DELETED: Non-zero means the interpreter has been deleted: - * don't process any more commands for it, and destroy - * the structure as soon as all nested invocations of - * Tcl_Eval are done. - * ERR_ALREADY_LOGGED: Non-zero means information has already been logged in - * iPtr->errorInfo for the current Tcl_Eval instance, so - * Tcl_Eval needn't log it (used to implement the "error - * message log" command). - * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler should - * not compile any commands into an inline sequence of - * instructions. This is set 1, for example, when command - * traces are requested. - * RAND_SEED_INITIALIZED: Non-zero means that the randSeed value of the interp - * has not be initialized. This is set 1 when we first - * use the rand() or srand() functions. - * SAFE_INTERP: Non zero means that the current interp is a safe - * interp (i.e. it has only the safe commands installed, - * less priviledge than a regular interp). - * INTERP_DEBUG_FRAME: Used for switching on various extra interpreter - * debug/info mechanisms (e.g. info frame eval/uplevel - * tracing) which are performance intensive. - * INTERP_TRACE_IN_PROGRESS: Non-zero means that an interp trace is currently - * active; so no further trace callbacks should be - * invoked. - * INTERP_ALTERNATE_WRONG_ARGS: Used for listing second and subsequent forms - * of the wrong-num-args string in Tcl_WrongNumArgs. - * Makes it append instead of replacing and uses - * different intermediate text. - * - * WARNING: For the sake of some extensions that have made use of former - * internal values, do not re-use the flag values 2 (formerly ERR_IN_PROGRESS) - * or 8 (formerly ERROR_CODE_SET). - */ - -#define DELETED 1 -#define ERR_ALREADY_LOGGED 4 -#define INTERP_DEBUG_FRAME 0x10 -#define DONT_COMPILE_CMDS_INLINE 0x20 -#define RAND_SEED_INITIALIZED 0x40 -#define SAFE_INTERP 0x80 -#define INTERP_TRACE_IN_PROGRESS 0x200 -#define INTERP_ALTERNATE_WRONG_ARGS 0x400 -#define ERR_LEGACY_COPY 0x800 - -/* - * Maximum number of levels of nesting permitted in Tcl commands (used to - * catch infinite recursion). - */ - -#define MAX_NESTING_DEPTH 1000 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace. - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * This macro is used to properly align the memory allocated by Tcl, giving - * the same alignment as the native malloc. - */ - -#if defined(__APPLE__) -#define TCL_ALLOCALIGN 16 -#else -#define TCL_ALLOCALIGN (2*sizeof(void *)) -#endif - -/* - * This macro is used to determine the offset needed to safely allocate any - * data structure in memory. Given a starting offset or size, it "rounds up" - * or "aligns" the offset to the next 8-byte boundary so that any data - * structure can be placed at the resulting offset without fear of an - * alignment error. - * - * WARNING!! DO NOT USE THIS MACRO TO ALIGN POINTERS: it will produce the - * wrong result on platforms that allocate addresses that are divisible by 4 - * or 2. Only use it for offsets or sizes. - * - * This macro is only used by tclCompile.c in the core (Bug 926445). It - * however not be made file static, as extensions that touch bytecodes - * (notably tbcload) require it. - */ - -#define TCL_ALIGN(x) (((int)(x) + 7) & ~7) - -/* - * The following enum values are used to specify the runtime platform setting - * of the tclPlatform variable. - */ - -typedef enum { - TCL_PLATFORM_UNIX = 0, /* Any Unix-like OS. */ - TCL_PLATFORM_WINDOWS = 2 /* Any Microsoft Windows OS. */ -} TclPlatformType; - -/* - * The following enum values are used to indicate the translation of a Tcl - * channel. Declared here so that each platform can define - * TCL_PLATFORM_TRANSLATION to the native translation on that platform. - */ - -typedef enum TclEolTranslation { - TCL_TRANSLATE_AUTO, /* Eol == \r, \n and \r\n. */ - TCL_TRANSLATE_CR, /* Eol == \r. */ - TCL_TRANSLATE_LF, /* Eol == \n. */ - TCL_TRANSLATE_CRLF /* Eol == \r\n. */ -} TclEolTranslation; - -/* - * Flags for TclInvoke: - * - * TCL_INVOKE_HIDDEN Invoke a hidden command; if not set, invokes - * an exposed command. - * TCL_INVOKE_NO_UNKNOWN If set, "unknown" is not invoked if the - * command to be invoked is not found. Only has - * an effect if invoking an exposed command, - * i.e. if TCL_INVOKE_HIDDEN is not also set. - * TCL_INVOKE_NO_TRACEBACK Does not record traceback information if the - * invoked command returns an error. Used if the - * caller plans on recording its own traceback - * information. - */ - -#define TCL_INVOKE_HIDDEN (1<<0) -#define TCL_INVOKE_NO_UNKNOWN (1<<1) -#define TCL_INVOKE_NO_TRACEBACK (1<<2) - -/* - * The structure used as the internal representation of Tcl list objects. This - * struct is grown (reallocated and copied) as necessary to hold all the - * list's element pointers. The struct might contain more slots than currently - * used to hold all element pointers. This is done to make append operations - * faster. - */ - -typedef struct List { - int refCount; - int maxElemCount; /* Total number of element array slots. */ - int elemCount; /* Current number of list elements. */ - int canonicalFlag; /* Set if the string representation was - * derived from the list representation. May - * be ignored if there is no string rep at - * all.*/ - Tcl_Obj *elements; /* First list element; the struct is grown to - * accomodate all elements. */ -} List; - -#define LIST_MAX \ - (1 + (int)(((size_t)UINT_MAX - sizeof(List))/sizeof(Tcl_Obj *))) - -/* - * Macro used to get the elements of a list object. - */ - -#define ListRepPtr(listPtr) \ - ((List *) (listPtr)->internalRep.twoPtrValue.ptr1) - -#define ListSetIntRep(objPtr, listRepPtr) \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *)(listRepPtr), \ - (objPtr)->internalRep.twoPtrValue.ptr2 = NULL, \ - (listRepPtr)->refCount++, \ - (objPtr)->typePtr = &tclListType - -#define ListObjGetElements(listPtr, objc, objv) \ - ((objv) = &(ListRepPtr(listPtr)->elements), \ - (objc) = ListRepPtr(listPtr)->elemCount) - -#define ListObjLength(listPtr, len) \ - ((len) = ListRepPtr(listPtr)->elemCount) - -#define ListObjIsCanonical(listPtr) \ - (((listPtr)->bytes == NULL) || ListRepPtr(listPtr)->canonicalFlag) - -#define TclListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjGetElements((listPtr), *(objcPtr), *(objvPtr))), TCL_OK)\ - : Tcl_ListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr))) - -#define TclListObjLength(interp, listPtr, lenPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjLength((listPtr), *(lenPtr))), TCL_OK)\ - : Tcl_ListObjLength((interp), (listPtr), (lenPtr))) - -#define TclListObjIsCanonical(listPtr) \ - (((listPtr)->typePtr == &tclListType) ? ListObjIsCanonical((listPtr)) : 0) - -/* - * Macros providing a faster path to integers: Tcl_GetLongFromObj everywhere, - * Tcl_GetIntFromObj and TclGetIntForIndex on platforms where longs are ints. - * - * WARNING: these macros eval their args more than once. - */ - -#define TclGetLongFromObj(interp, objPtr, longPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(longPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetLongFromObj((interp), (objPtr), (longPtr))) - -#if (LONG_MAX == INT_MAX) -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(intPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetIntFromObj((interp), (objPtr), (intPtr))) -#define TclGetIntForIndexM(interp, objPtr, endValue, idxPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(idxPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : TclGetIntForIndex((interp), (objPtr), (endValue), (idxPtr))) -#else -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - Tcl_GetIntFromObj((interp), (objPtr), (intPtr)) -#define TclGetIntForIndexM(interp, objPtr, ignore, idxPtr) \ - TclGetIntForIndex(interp, objPtr, ignore, idxPtr) -#endif - -/* - * Flag values for TclTraceDictPath(). - * - * DICT_PATH_READ indicates that all entries on the path must exist but no - * updates will be needed. - * - * DICT_PATH_UPDATE indicates that we are going to be doing an update at the - * tip of the path, so duplication of shared objects should be done along the - * way. - * - * DICT_PATH_EXISTS indicates that we are performing an existance test and a - * lookup failure should therefore not be an error. If (and only if) this flag - * is set, TclTraceDictPath() will return the special value - * DICT_PATH_NON_EXISTENT if the path is not traceable. - * - * DICT_PATH_CREATE (which also requires the DICT_PATH_UPDATE bit to be set) - * indicates that we are to create non-existant dictionaries on the path. - */ - -#define DICT_PATH_READ 0 -#define DICT_PATH_UPDATE 1 -#define DICT_PATH_EXISTS 2 -#define DICT_PATH_CREATE 5 - -#define DICT_PATH_NON_EXISTENT ((Tcl_Obj *) (void *) 1) - -/* - *---------------------------------------------------------------- - * Data structures related to the filesystem internals - *---------------------------------------------------------------- - */ - -/* - * The version_2 filesystem is private to Tcl. As and when these changes have - * been thoroughly tested and investigated a new public filesystem interface - * will be released. The aim is more versatile virtual filesystem interfaces, - * more efficiency in 'path' manipulation and usage, and cleaner filesystem - * code internally. - */ - -#define TCL_FILESYSTEM_VERSION_2 ((Tcl_FSVersion) 0x2) -typedef ClientData (TclFSGetCwdProc2)(ClientData clientData); - -/* - * The following types are used for getting and storing platform-specific file - * attributes in tclFCmd.c and the various platform-versions of that file. - * This is done to have as much common code as possible in the file attributes - * code. For more information about the callbacks, see TclFileAttrsCmd in - * tclFCmd.c. - */ - -typedef int (TclGetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj **attrObjPtrPtr); -typedef int (TclSetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj *attrObjPtr); - -typedef struct TclFileAttrProcs { - TclGetFileAttrProc *getProc;/* The procedure for getting attrs. */ - TclSetFileAttrProc *setProc;/* The procedure for setting attrs. */ -} TclFileAttrProcs; - -/* - * Opaque handle used in pipeline routines to encapsulate platform-dependent - * state. - */ - -typedef struct TclFile_ *TclFile; - -/* - * The "globParameters" argument of the function TclGlob is an or'ed - * combination of the following values: - */ - -#define TCL_GLOBMODE_NO_COMPLAIN 1 -#define TCL_GLOBMODE_JOIN 2 -#define TCL_GLOBMODE_DIR 4 -#define TCL_GLOBMODE_TAILS 8 - -typedef enum Tcl_PathPart { - TCL_PATH_DIRNAME, - TCL_PATH_TAIL, - TCL_PATH_EXTENSION, - TCL_PATH_ROOT -} Tcl_PathPart; - -/* - *---------------------------------------------------------------- - * Data structures related to obsolete filesystem hooks - *---------------------------------------------------------------- - */ - -typedef int (TclStatProc_)(CONST char *path, struct stat *buf); -typedef int (TclAccessProc_)(CONST char *path, int mode); -typedef Tcl_Channel (TclOpenFileChannelProc_)(Tcl_Interp *interp, - CONST char *fileName, CONST char *modeString, int permissions); - -/* - *---------------------------------------------------------------- - * Data structures related to procedures - *---------------------------------------------------------------- - */ - -typedef Tcl_CmdProc *TclCmdProcType; -typedef Tcl_ObjCmdProc *TclObjCmdProcType; - -/* - *---------------------------------------------------------------- - * Data structures for process-global values. - *---------------------------------------------------------------- - */ - -typedef void (TclInitProcessGlobalValueProc)(char **valuePtr, int *lengthPtr, - Tcl_Encoding *encodingPtr); - -/* - * A ProcessGlobalValue struct exists for each internal value in Tcl that is - * to be shared among several threads. Each thread sees a (Tcl_Obj) copy of - * the value, and the master is kept as a counted string, with epoch and mutex - * control. Each ProcessGlobalValue struct should be a static variable in some - * file. - */ - -typedef struct ProcessGlobalValue { - int epoch; /* Epoch counter to detect changes in the - * master value. */ - int numBytes; /* Length of the master string. */ - char *value; /* The master string value. */ - Tcl_Encoding encoding; /* system encoding when master string was - * initialized. */ - TclInitProcessGlobalValueProc *proc; - /* A procedure to initialize the master string - * copy when a "get" request comes in before - * any "set" request has been received. */ - Tcl_Mutex mutex; /* Enforce orderly access from multiple - * threads. */ - Tcl_ThreadDataKey key; /* Key for per-thread data holding the - * (Tcl_Obj) copy for each thread. */ -} ProcessGlobalValue; - -/* - *---------------------------------------------------------------------- - * Flags for TclParseNumber - *---------------------------------------------------------------------- - */ - -#define TCL_PARSE_DECIMAL_ONLY 1 - /* Leading zero doesn't denote octal or - * hex. */ -#define TCL_PARSE_OCTAL_ONLY 2 - /* Parse octal even without prefix. */ -#define TCL_PARSE_HEXADECIMAL_ONLY 4 - /* Parse hexadecimal even without prefix. */ -#define TCL_PARSE_INTEGER_ONLY 8 - /* Disable floating point parsing. */ -#define TCL_PARSE_SCAN_PREFIXES 16 - /* Use [scan] rules dealing with 0? - * prefixes. */ -#define TCL_PARSE_NO_WHITESPACE 32 - /* Reject leading/trailing whitespace. */ - -/* - *---------------------------------------------------------------------- - * Type values TclGetNumberFromObj - *---------------------------------------------------------------------- - */ - -#define TCL_NUMBER_LONG 1 -#define TCL_NUMBER_WIDE 2 -#define TCL_NUMBER_BIG 3 -#define TCL_NUMBER_DOUBLE 4 -#define TCL_NUMBER_NAN 5 - -/* - *---------------------------------------------------------------- - * Variables shared among Tcl modules but not used by the outside world. - *---------------------------------------------------------------- - */ - -MODULE_SCOPE char *tclNativeExecutableName; -MODULE_SCOPE int tclFindExecutableSearchDone; -MODULE_SCOPE char *tclMemDumpFileName; -MODULE_SCOPE TclPlatformType tclPlatform; -MODULE_SCOPE Tcl_NotifierProcs tclOriginalNotifier; - -MODULE_SCOPE Tcl_Encoding tclIdentityEncoding; - -/* - * TIP #233 (Virtualized Time) - * Data for the time hooks, if any. - */ - -MODULE_SCOPE Tcl_GetTimeProc *tclGetTimeProcPtr; -MODULE_SCOPE Tcl_ScaleTimeProc *tclScaleTimeProcPtr; -MODULE_SCOPE ClientData tclTimeClientData; - -/* - * Variables denoting the Tcl object types defined in the core. - */ - -MODULE_SCOPE Tcl_ObjType tclBignumType; -MODULE_SCOPE Tcl_ObjType tclBooleanType; -MODULE_SCOPE Tcl_ObjType tclByteArrayType; -MODULE_SCOPE Tcl_ObjType tclByteCodeType; -MODULE_SCOPE Tcl_ObjType tclDoubleType; -MODULE_SCOPE Tcl_ObjType tclEndOffsetType; -MODULE_SCOPE Tcl_ObjType tclIntType; -MODULE_SCOPE Tcl_ObjType tclListType; -MODULE_SCOPE Tcl_ObjType tclDictType; -MODULE_SCOPE Tcl_ObjType tclProcBodyType; -MODULE_SCOPE Tcl_ObjType tclStringType; -MODULE_SCOPE Tcl_ObjType tclArraySearchType; -MODULE_SCOPE Tcl_ObjType tclEnsembleCmdType; -#ifndef NO_WIDE_TYPE -MODULE_SCOPE Tcl_ObjType tclWideIntType; -#endif -MODULE_SCOPE Tcl_ObjType tclRegexpType; - -/* - * Variables denoting the hash key types defined in the core. - */ - -MODULE_SCOPE Tcl_HashKeyType tclArrayHashKeyType; -MODULE_SCOPE Tcl_HashKeyType tclOneWordHashKeyType; -MODULE_SCOPE Tcl_HashKeyType tclStringHashKeyType; -MODULE_SCOPE Tcl_HashKeyType tclObjHashKeyType; - -/* - * The head of the list of free Tcl objects, and the total number of Tcl - * objects ever allocated and freed. - */ - -MODULE_SCOPE Tcl_Obj * tclFreeObjList; - -#ifdef TCL_COMPILE_STATS -MODULE_SCOPE long tclObjsAlloced; -MODULE_SCOPE long tclObjsFreed; -#define TCL_MAX_SHARED_OBJ_STATS 5 -MODULE_SCOPE long tclObjsShared[TCL_MAX_SHARED_OBJ_STATS]; -#endif /* TCL_COMPILE_STATS */ - -/* - * Pointer to a heap-allocated string of length zero that the Tcl core uses as - * the value of an empty string representation for an object. This value is - * shared by all new objects allocated by Tcl_NewObj. - */ - -MODULE_SCOPE char * tclEmptyStringRep; -MODULE_SCOPE char tclEmptyString; - -/* Flags for conversion of doubles to digit strings */ - -#define TCL_DD_SHORTEST 0x4 - /* Use the shortest possible string */ -#define TCL_DD_STEELE 0x5 - /* Use the original Steele&White algorithm */ -#define TCL_DD_E_FORMAT 0x2 - /* Use a fixed-length string of digits, - * suitable for E format*/ -#define TCL_DD_F_FORMAT 0x3 - /* Use a fixed number of digits after the - * decimal point, suitable for F format */ - -#define TCL_DD_SHORTEN_FLAG 0x4 - /* Allow return of a shorter digit string - * if it converts losslessly */ -#define TCL_DD_NO_QUICK 0x8 - /* Debug flag: forbid quick FP conversion */ - -#define TCL_DD_CONVERSION_TYPE_MASK 0x3 - /* Mask to isolate the conversion type */ -#define TCL_DD_STEELE0 0x1 - /* 'Steele&White' after masking */ -#define TCL_DD_SHORTEST0 0x0 - /* 'Shortest possible' after masking */ - -/* - *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside world: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE void TclAppendBytesToByteArray(Tcl_Obj *objPtr, - const unsigned char *bytes, int len); -MODULE_SCOPE void TclAdvanceContinuations(int* line, int** next, int loc); -MODULE_SCOPE void TclAdvanceLines(int *line, const char *start, - const char *end); -MODULE_SCOPE void TclArgumentEnter(Tcl_Interp* interp, - Tcl_Obj* objv[], int objc, CmdFrame* cf); -MODULE_SCOPE void TclArgumentRelease(Tcl_Interp* interp, - Tcl_Obj* objv[], int objc); -MODULE_SCOPE void TclArgumentGet(Tcl_Interp* interp, Tcl_Obj* obj, - CmdFrame **cfPtrPtr, int *wordPtr); -MODULE_SCOPE void TclArgumentBCEnter(Tcl_Interp *interp, - Tcl_Obj* objv[], int objc, - void *codePtr, CmdFrame *cfPtr, int pc); -MODULE_SCOPE void TclArgumentBCRelease(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc, - void *codePtr, int pc); -MODULE_SCOPE int TclArraySet(Tcl_Interp *interp, - Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj); -MODULE_SCOPE double TclBignumToDouble(mp_int *bignum); -MODULE_SCOPE int TclByteArrayMatch(const unsigned char *string, - int strLen, const unsigned char *pattern, - int ptnLen, int flags); -MODULE_SCOPE double TclCeil(mp_int *a); -MODULE_SCOPE void TclChannelPreserve(Tcl_Channel chan); -MODULE_SCOPE void TclChannelRelease(Tcl_Channel chan); -MODULE_SCOPE int TclCheckBadOctal(Tcl_Interp *interp, const char *value); -MODULE_SCOPE int TclChanCaughtErrorBypass(Tcl_Interp *interp, - Tcl_Channel chan); -MODULE_SCOPE ContLineLoc* TclContinuationsEnter(Tcl_Obj *objPtr, int num, - int *loc); -MODULE_SCOPE void TclContinuationsEnterDerived(Tcl_Obj *objPtr, - int start, int *clNext); -MODULE_SCOPE ContLineLoc* TclContinuationsGet(Tcl_Obj *objPtr); -MODULE_SCOPE void TclContinuationsCopy(Tcl_Obj *objPtr, - Tcl_Obj *originObjPtr); -MODULE_SCOPE int TclConvertElement(CONST char *src, int length, - char *dst, int flags); -MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); -/* TIP #280 - Modified token based evulation, with line information. */ -MODULE_SCOPE int TclEvalEx(Tcl_Interp *interp, const char *script, - int numBytes, int flags, int line, - int *clNextOuter, CONST char *outerScript); -MODULE_SCOPE int TclFileAttrsCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileCopyCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileDeleteCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileMakeDirsCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileRenameCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclCreateLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TclDeleteLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TclFinalizeAllocSubsystem(void); -MODULE_SCOPE void TclFinalizeAsync(void); -MODULE_SCOPE void TclFinalizeDoubleConversion(void); -MODULE_SCOPE void TclFinalizeEncodingSubsystem(void); -MODULE_SCOPE void TclFinalizeEnvironment(void); -MODULE_SCOPE void TclFinalizeExecution(void); -MODULE_SCOPE void TclFinalizeIOSubsystem(void); -MODULE_SCOPE void TclFinalizeFilesystem(void); -MODULE_SCOPE void TclResetFilesystem(void); -MODULE_SCOPE void TclFinalizeLoad(void); -MODULE_SCOPE void TclFinalizeLock(void); -MODULE_SCOPE void TclFinalizeMemorySubsystem(void); -MODULE_SCOPE void TclFinalizeNotifier(void); -MODULE_SCOPE void TclFinalizeObjects(void); -MODULE_SCOPE void TclFinalizePreserve(void); -MODULE_SCOPE void TclFinalizeSynchronization(void); -MODULE_SCOPE void TclFinalizeThreadAlloc(void); -MODULE_SCOPE void TclFinalizeThreadAllocThread(void); -MODULE_SCOPE void TclFinalizeThreadData(void); -MODULE_SCOPE void TclFinalizeThreadObjects(void); -MODULE_SCOPE double TclFloor(mp_int *a); -MODULE_SCOPE void TclFormatNaN(double value, char *buffer); -MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, - const char *attributeName, int *indexPtr); -MODULE_SCOPE void TclFSUnloadTempFile(Tcl_LoadHandle loadHandle); -MODULE_SCOPE int * TclGetAsyncReadyPtr(void); -MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler(Tcl_Interp *interp); -MODULE_SCOPE int TclGetChannelFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Channel *chanPtr, - int *modePtr, int flags); -MODULE_SCOPE int TclGetNumberFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, ClientData *clientDataPtr, - int *typePtr); -MODULE_SCOPE int TclGetOpenModeEx(Tcl_Interp *interp, - const char *modeString, int *seekFlagPtr, - int *binaryPtr); -MODULE_SCOPE Tcl_Obj * TclGetProcessGlobalValue(ProcessGlobalValue *pgvPtr); -MODULE_SCOPE const char *TclGetSrcInfoForCmd(Interp *iPtr, int *lenPtr); -MODULE_SCOPE char * TclGetStringStorage(Tcl_Obj *objPtr, - unsigned int *sizePtr); -MODULE_SCOPE int TclGlob(Tcl_Interp *interp, char *pattern, - Tcl_Obj *unquotedPrefix, int globFlags, - Tcl_GlobTypeData *types); -MODULE_SCOPE int TclIncrObj(Tcl_Interp *interp, Tcl_Obj *valuePtr, - Tcl_Obj *incrPtr); -MODULE_SCOPE Tcl_Obj * TclIncrObjVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, int flags); -MODULE_SCOPE int TclInfoExistsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Obj * TclInfoFrame(Tcl_Interp *interp, CmdFrame *framePtr); -MODULE_SCOPE int TclInfoGlobalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoLocalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoVarsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclInitAlloc(void); -MODULE_SCOPE void TclInitDbCkalloc(void); -MODULE_SCOPE void TclInitDoubleConversion(void); -MODULE_SCOPE void TclInitEmbeddedConfigurationInformation( - Tcl_Interp *interp); -MODULE_SCOPE void TclInitEncodingSubsystem(void); -MODULE_SCOPE void TclInitIOSubsystem(void); -MODULE_SCOPE void TclInitLimitSupport(Tcl_Interp *interp); -MODULE_SCOPE void TclInitNamespaceSubsystem(void); -MODULE_SCOPE void TclInitNotifier(void); -MODULE_SCOPE void TclInitObjSubsystem(void); -MODULE_SCOPE void TclInitSubsystems(void); -MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); -MODULE_SCOPE int TclIsSpaceProc(char byte); -MODULE_SCOPE int TclIsBareword(char byte); -MODULE_SCOPE int TclJoinThread(Tcl_ThreadId id, int *result); -MODULE_SCOPE void TclLimitRemoveAllHandlers(Tcl_Interp *interp); -MODULE_SCOPE Tcl_Obj * TclLindexList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *argPtr); -MODULE_SCOPE Tcl_Obj * TclLindexFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[]); -/* TIP #280 */ -MODULE_SCOPE void TclListLines(Tcl_Obj *listObj, int line, int n, - int *lines, Tcl_Obj *const *elems); -MODULE_SCOPE Tcl_Obj * TclListObjCopy(Tcl_Interp *interp, Tcl_Obj *listPtr); -MODULE_SCOPE int TclLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - int symc, const char *symbols[], - Tcl_PackageInitProc **procPtrs[], - Tcl_LoadHandle *handlePtr, - ClientData *clientDataPtr, - Tcl_FSUnloadFileProc **unloadProcPtr); -MODULE_SCOPE Tcl_Obj * TclLsetList(Tcl_Interp *interp, Tcl_Obj *listPtr, - Tcl_Obj *indexPtr, Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Obj * TclLsetFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[], - Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Command TclMakeEnsemble(Tcl_Interp *interp, const char *name, - const EnsembleImplMap map[]); -MODULE_SCOPE int TclMaxListLength(CONST char *bytes, int numBytes, - CONST char **endPtr); -MODULE_SCOPE int TclMergeReturnOptions(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Tcl_Obj **optionsPtrPtr, - int *codePtr, int *levelPtr); -MODULE_SCOPE int TclNokia770Doubles(void); -MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); -MODULE_SCOPE int TclNamespaceDeleted(Namespace *nsPtr); -MODULE_SCOPE void TclObjVarErrMsg(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const char *operation, - const char *reason, int index); -MODULE_SCOPE int TclObjInvokeNamespace(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], - Tcl_Namespace *nsPtr, int flags); -MODULE_SCOPE int TclObjUnsetVar2(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); -MODULE_SCOPE int TclParseBackslash(const char *src, - int numBytes, int *readPtr, char *dst); -MODULE_SCOPE int TclParseHex(const char *src, int numBytes, - Tcl_UniChar *resultPtr); -MODULE_SCOPE int TclParseNumber(Tcl_Interp *interp, Tcl_Obj *objPtr, - const char *expected, const char *bytes, - int numBytes, const char **endPtrPtr, int flags); -MODULE_SCOPE void TclParseInit(Tcl_Interp *interp, const char *string, - int numBytes, Tcl_Parse *parsePtr); -MODULE_SCOPE int TclParseAllWhiteSpace(const char *src, int numBytes); -MODULE_SCOPE int TclProcessReturn(Tcl_Interp *interp, - int code, int level, Tcl_Obj *returnOpts); -#ifndef TCL_NO_STACK_CHECK -MODULE_SCOPE int TclpGetCStackParams(int **stackBoundPtr); -#endif -MODULE_SCOPE int TclpObjLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -MODULE_SCOPE Tcl_Obj * TclpTempFileName(void); -MODULE_SCOPE Tcl_Obj * TclNewFSPathObj(Tcl_Obj *dirPtr, const char *addStrRep, - int len); -MODULE_SCOPE int TclpDeleteFile(const char *path); -MODULE_SCOPE void TclpFinalizeCondition(Tcl_Condition *condPtr); -MODULE_SCOPE void TclpFinalizeMutex(Tcl_Mutex *mutexPtr); -MODULE_SCOPE void TclpFinalizePipes(void); -MODULE_SCOPE void TclpFinalizeSockets(void); -MODULE_SCOPE int TclpThreadCreate(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc proc, ClientData clientData, - int stackSize, int flags); -MODULE_SCOPE int TclpFindVariable(const char *name, int *lengthPtr); -MODULE_SCOPE void TclpInitLibraryPath(char **valuePtr, - int *lengthPtr, Tcl_Encoding *encodingPtr); -MODULE_SCOPE void TclpInitLock(void); -MODULE_SCOPE void TclpInitPlatform(void); -MODULE_SCOPE void TclpInitUnlock(void); -MODULE_SCOPE Tcl_Obj * TclpObjListVolumes(void); -MODULE_SCOPE void TclpMasterLock(void); -MODULE_SCOPE void TclpMasterUnlock(void); -MODULE_SCOPE int TclpMatchFiles(Tcl_Interp *interp, char *separators, - Tcl_DString *dirPtr, char *pattern, char *tail); -MODULE_SCOPE int TclpObjNormalizePath(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint); -MODULE_SCOPE void TclpNativeJoinPath(Tcl_Obj *prefix, const char *joining); -MODULE_SCOPE Tcl_Obj * TclpNativeSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -MODULE_SCOPE Tcl_PathType TclpGetNativePathType(Tcl_Obj *pathPtr, - int *driveNameLengthPtr, Tcl_Obj **driveNameRef); -MODULE_SCOPE int TclCrossFilesystemCopy(Tcl_Interp *interp, - Tcl_Obj *source, Tcl_Obj *target); -MODULE_SCOPE int TclpMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *resultPtr, Tcl_Obj *pathPtr, - const char *pattern, Tcl_GlobTypeData *types); -MODULE_SCOPE ClientData TclpGetNativeCwd(ClientData clientData); -MODULE_SCOPE Tcl_FSDupInternalRepProc TclNativeDupInternalRep; -MODULE_SCOPE Tcl_Obj * TclpObjLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkType); -MODULE_SCOPE int TclpObjChdir(Tcl_Obj *pathPtr); -MODULE_SCOPE Tcl_Obj * TclPathPart(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_PathPart portion); -#ifndef TclpPanic -MODULE_SCOPE void TclpPanic(const char *format, ...); -#endif -MODULE_SCOPE char * TclpReadlink(const char *fileName, - Tcl_DString *linkPtr); -#ifndef TclpReleaseFile -MODULE_SCOPE void TclpReleaseFile(TclFile file); -#endif -MODULE_SCOPE void TclpSetInterfaces(void); -MODULE_SCOPE void TclpSetVariables(Tcl_Interp *interp); -MODULE_SCOPE void TclpUnloadFile(Tcl_LoadHandle loadHandle); -MODULE_SCOPE void * TclpThreadDataKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclpThreadDataKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); -MODULE_SCOPE void TclpThreadExit(int status); -MODULE_SCOPE size_t TclpThreadGetStackSize(void); -MODULE_SCOPE void TclRememberCondition(Tcl_Condition *mutex); -MODULE_SCOPE void TclRememberJoinableThread(Tcl_ThreadId id); -MODULE_SCOPE void TclRememberMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclRemoveScriptLimitCallbacks(Tcl_Interp *interp); -MODULE_SCOPE int TclReToGlob(Tcl_Interp *interp, const char *reStr, - int reStrLen, Tcl_DString *dsPtr, int *flagsPtr); -MODULE_SCOPE int TclScanElement(CONST char *string, int length, - int *flagPtr); -MODULE_SCOPE void TclSetBgErrorHandler(Tcl_Interp *interp, - Tcl_Obj *cmdPrefix); -MODULE_SCOPE void TclSetBignumIntRep(Tcl_Obj *objPtr, - mp_int *bignumValue); -MODULE_SCOPE void TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Command *cmdPtr); -MODULE_SCOPE void TclSetProcessGlobalValue(ProcessGlobalValue *pgvPtr, - Tcl_Obj *newValue, Tcl_Encoding encoding); -MODULE_SCOPE void TclSignalExitThread(Tcl_ThreadId id, int result); -MODULE_SCOPE void * TclStackRealloc(Tcl_Interp *interp, void *ptr, - int numBytes); -MODULE_SCOPE int TclStringMatch(const char *str, int strLen, - const char *pattern, int ptnLen, int flags); -MODULE_SCOPE int TclStringMatchObj(Tcl_Obj *stringObj, - Tcl_Obj *patternObj, int flags); -MODULE_SCOPE Tcl_Obj * TclStringObjReverse(Tcl_Obj *objPtr); -MODULE_SCOPE int TclSubstTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr, - int count, int *tokensLeftPtr, int line, - int *clNextOuter, CONST char *outerScript); -MODULE_SCOPE void TclTransferResult(Tcl_Interp *sourceInterp, int result, - Tcl_Interp *targetInterp); -MODULE_SCOPE int TclTrim(const char *bytes, int numBytes, - const char *trim, int numTrim, int *trimRight); -MODULE_SCOPE int TclTrimLeft(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE int TclTrimRight(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE Tcl_Obj * TclpNativeToNormalized(ClientData clientData); -MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); -MODULE_SCOPE Tcl_PackageInitProc *TclpFindSymbol(Tcl_Interp *interp, - Tcl_LoadHandle loadHandle, const char *symbol); -MODULE_SCOPE int TclpDlopen(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr); -MODULE_SCOPE int TclpUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -#ifdef TCL_LOAD_FROM_MEMORY -MODULE_SCOPE void * TclpLoadMemoryGetBuffer(Tcl_Interp *interp, int size); -MODULE_SCOPE int TclpLoadMemory(Tcl_Interp *interp, void *buffer, - int size, int codeSize, Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr); -#endif -MODULE_SCOPE void TclInitThreadStorage(void); -MODULE_SCOPE void TclpFinalizeThreadDataThread(void); -MODULE_SCOPE void TclFinalizeThreadStorage(void); - -/* TclWideMUInt -- wide integer used for measurement calculations: */ -#if (!defined(_WIN32) || !defined(_MSC_VER) || (_MSC_VER >= 1400)) -# define TclWideMUInt Tcl_WideUInt -#else -/* older MSVS may not allow conversions between unsigned __int64 and double) */ -# define TclWideMUInt Tcl_WideInt -#endif -#ifdef TCL_WIDE_CLICKS -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClicksToNanoseconds(Tcl_WideInt clicks); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -#else -# ifdef _WIN32 -# define TCL_WIDE_CLICKS 1 -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -# define TclpWideClicksToNanoseconds(clicks) \ - ((double)(clicks) * TclpWideClickInMicrosec() * 1000) -# endif -#endif -MODULE_SCOPE Tcl_WideInt TclpGetMicroseconds(void); - -MODULE_SCOPE Tcl_Obj * TclDisassembleByteCodeObj(Tcl_Obj *objPtr); -MODULE_SCOPE int TclUtfCasecmp(CONST char *cs, CONST char *ct); - -/* - *---------------------------------------------------------------- - * Command procedures in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int Tcl_AfterObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_AppendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ApplyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ArrayObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_BinaryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_BreakObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CaseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CatchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitChanCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclChanCreateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPostEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE void TclClockInit(Tcl_Interp *interp); -MODULE_SCOPE int TclClockOldscanObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CloseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ConcatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ContinueObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_TimerToken TclCreateAbsoluteTimerHandler( - Tcl_Time *timePtr, Tcl_TimerProc *proc, - ClientData clientData); -MODULE_SCOPE int TclDefaultBgErrorHandlerObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitDictCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_DisassembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EncodingObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EofObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ErrorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EvalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExecObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExprObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FblockedObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FconfigureObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FcopyObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FileObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FileEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FlushObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForeachObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FormatObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GetsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IfObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IncrObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitInfoCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_InterpObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_JoinObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LappendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LassignObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LindexObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LinsertObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LlengthObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ListObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LoadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrangeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrepeatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreplaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreverseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsearchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsortObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_NamespaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_OpenObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PackageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PidObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PutsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PwdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegexpObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegsubObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RenameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReturnObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ScanObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SeekObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SplitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SocketObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SourceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitStringCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_SubstObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SwitchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeRateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TraceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnloadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpvarObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VariableObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_WhileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* - *---------------------------------------------------------------- - * Compilation procedures for commands in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int TclCompileAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBreakCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileCatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileContinueCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictGetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictUpdateCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEnsemble(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileExprCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForeachCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGlobalCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIfCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLassignCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLindexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileListCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLlengthCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNoOp(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileRegexpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileReturnCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringCmpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringEqualCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringIndexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringLenCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringMatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSwitchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileUpvarCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileVariableCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileWhileCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -MODULE_SCOPE int TclInvertOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInvertOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNotOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNotOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAddOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAddOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMulOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMulOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAndOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAndOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclOrOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileOrOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclXorOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileXorOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclPowOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompilePowOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclLshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileLshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclRshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileRshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclModOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileModOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNeqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclStrneqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileStrneqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclInOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNiOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNiOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMinusOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMinusOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclDivOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileDivOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLessOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGreaterOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStreqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -/* - * Functions defined in generic/tclVar.c and currenttly exported only for use - * by the bytecode compiler and engine. Some of these could later be placed in - * the public interface. - */ - -MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags, - const char *msg, const int createPart1, - const int createPart2, Var **arrayPtrPtr); -MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp, - Tcl_Obj *arrayNamePtr, Tcl_Obj *elNamePtr, - const int flags, const char *msg, - const int createPart1, const int createPart2, - Var *arrayPtr, int index); -MODULE_SCOPE Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags, int index); -MODULE_SCOPE int TclPtrObjMakeUpvar(Tcl_Interp *interp, Var *otherPtr, - Tcl_Obj *myNamePtr, int myFlags, int index); -MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr); - -/* - * The new extended interface to the variable traces. - */ - -MODULE_SCOPE int TclObjCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, - int flags, int leaveErrMsg, int index); - -/* - * So tclObj.c and tclDictObj.c can share these implementations. - */ - -MODULE_SCOPE int TclCompareObjKeys(void *keyPtr, Tcl_HashEntry *hPtr); -MODULE_SCOPE void TclFreeObjEntry(Tcl_HashEntry *hPtr); -MODULE_SCOPE unsigned TclHashObjKey(Tcl_HashTable *tablePtr, void *keyPtr); - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and release Tcl objects. - * TclNewObj(objPtr) creates a new object denoting an empty string. - * TclDecrRefCount(objPtr) decrements the object's reference count, and frees - * the object if its reference count is zero. These macros are inline versions - * of Tcl_NewObj() and Tcl_DecrRefCount(). Notice that the names differ in not - * having a "_" after the "Tcl". Notice also that these macros reference their - * argument more than once, so you should avoid calling them with an - * expression that is expensive to compute or has side effects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewObj(Tcl_Obj *objPtr); - * MODULE_SCOPE void TclDecrRefCount(Tcl_Obj *objPtr); - * - * These macros are defined in terms of two macros that depend on memory - * allocator in use: TclAllocObjStorage, TclFreeObjStorage. They are defined - * below. - *---------------------------------------------------------------- - */ - -/* - * DTrace object allocation probe macros. - */ - -#ifdef USE_DTRACE -#include "tclDTrace.h" -#define TCL_DTRACE_OBJ_CREATE(objPtr) TCL_OBJ_CREATE(objPtr) -#define TCL_DTRACE_OBJ_FREE(objPtr) TCL_OBJ_FREE(objPtr) -#else /* USE_DTRACE */ -#define TCL_DTRACE_OBJ_CREATE(objPtr) {} -#define TCL_DTRACE_OBJ_FREE(objPtr) {} -#endif /* USE_DTRACE */ - -#ifdef TCL_COMPILE_STATS -# define TclIncrObjsAllocated() \ - tclObjsAlloced++ -# define TclIncrObjsFreed() \ - tclObjsFreed++ -#else -# define TclIncrObjsAllocated() -# define TclIncrObjsFreed() -#endif /* TCL_COMPILE_STATS */ - -#ifndef TCL_MEM_DEBUG -# define TclNewObj(objPtr) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -/* - * Invalidate the string rep first so we can use the bytes value for our - * pointer chain, and signal an obj deletion (as opposed to shimmering) with - * 'length == -1'. - * Use empty 'if ; else' to handle use in unbraced outer if/else conditions. - */ - -# define TclDecrRefCount(objPtr) \ - if (--(objPtr)->refCount > 0) ; else { \ - if (!(objPtr)->typePtr || !(objPtr)->typePtr->freeIntRepProc) { \ - TCL_DTRACE_OBJ_FREE(objPtr); \ - if ((objPtr)->bytes \ - && ((objPtr)->bytes != tclEmptyStringRep)) { \ - ckfree((char *) (objPtr)->bytes); \ - } \ - (objPtr)->length = -1; \ - TclFreeObjStorage(objPtr); \ - TclIncrObjsFreed(); \ - } else { \ - TclFreeObj(objPtr); \ - } \ - } - -#if defined(PURIFY) - -/* - * The PURIFY mode is like the regular mode, but instead of doing block - * Tcl_Obj allocation and keeping a freed list for efficiency, it always - * allocates and frees a single Tcl_Obj so that tools like Purify can better - * track memory leaks. - */ - -# define TclAllocObjStorage(objPtr) \ - (objPtr) = (Tcl_Obj *) Tcl_Alloc(sizeof(Tcl_Obj)) - -# define TclFreeObjStorage(objPtr) \ - ckfree((char *) (objPtr)) - -#undef USE_THREAD_ALLOC -#elif defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) - -/* - * The TCL_THREADS mode is like the regular mode but allocates Tcl_Obj's from - * per-thread caches. - */ - -MODULE_SCOPE Tcl_Obj * TclThreadAllocObj(void); -MODULE_SCOPE void TclThreadFreeObj(Tcl_Obj *); -MODULE_SCOPE Tcl_Mutex *TclpNewAllocMutex(void); -MODULE_SCOPE void TclFreeAllocCache(void *); -MODULE_SCOPE void * TclpGetAllocCache(void); -MODULE_SCOPE void TclpSetAllocCache(void *); -MODULE_SCOPE void TclpFreeAllocMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclpFreeAllocCache(void *); - -# define TclAllocObjStorage(objPtr) \ - (objPtr) = TclThreadAllocObj() - -# define TclFreeObjStorage(objPtr) \ - TclThreadFreeObj((objPtr)) - -#else /* not PURIFY or USE_THREAD_ALLOC */ - -#if defined(USE_TCLALLOC) && USE_TCLALLOC - MODULE_SCOPE void TclFinalizeAllocSubsystem(); - MODULE_SCOPE void TclInitAlloc(); -#else -# define USE_TCLALLOC 0 -#endif - -#ifdef TCL_THREADS -/* declared in tclObj.c */ -MODULE_SCOPE Tcl_Mutex tclObjMutex; -#endif - -# define TclAllocObjStorage(objPtr) \ - Tcl_MutexLock(&tclObjMutex); \ - if (tclFreeObjList == NULL) { \ - TclAllocateFreeObjects(); \ - } \ - (objPtr) = tclFreeObjList; \ - tclFreeObjList = (Tcl_Obj *) \ - tclFreeObjList->internalRep.twoPtrValue.ptr1; \ - Tcl_MutexUnlock(&tclObjMutex) - -# define TclFreeObjStorage(objPtr) \ - Tcl_MutexLock(&tclObjMutex); \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *) tclFreeObjList; \ - tclFreeObjList = (objPtr); \ - Tcl_MutexUnlock(&tclObjMutex) -#endif - -#else /* TCL_MEM_DEBUG */ -MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file, - int line); - -# define TclDbNewObj(objPtr, file, line) \ - TclIncrObjsAllocated(); \ - (objPtr) = (Tcl_Obj *) Tcl_DbCkalloc(sizeof(Tcl_Obj), (file), (line)); \ - TclDbInitNewObj((objPtr), (file), (line)); \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -# define TclNewObj(objPtr) \ - TclDbNewObj(objPtr, __FILE__, __LINE__); - -# define TclDecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) - -# define TclNewListObjDirect(objc, objv) \ - TclDbNewListObjDirect(objc, objv, __FILE__, __LINE__) - -#undef USE_THREAD_ALLOC -#endif /* TCL_MEM_DEBUG */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to set a Tcl_Obj's string representation to a - * copy of the "len" bytes starting at "bytePtr". This code works even if the - * byte array contains NULLs as long as the length is correct. Because "len" - * is referenced multiple times, it should be as simple an expression as - * possible. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInitStringRep(Tcl_Obj *objPtr, char *bytePtr, int len); - * - * This macro should only be called on an unshared objPtr where - * objPtr->typePtr->freeIntRepProc == NULL - *---------------------------------------------------------------- - */ - -#define TclInitStringRep(objPtr, bytePtr, len) \ - if ((len) == 0) { \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - } else { \ - (objPtr)->bytes = (char *) ckalloc((unsigned) ((len) + 1)); \ - memcpy((void *) (objPtr)->bytes, (void *) (bytePtr), \ - (unsigned) (len)); \ - (objPtr)->bytes[len] = '\0'; \ - (objPtr)->length = (len); \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to get the string representation's byte array - * pointer from a Tcl_Obj. This is an inline version of Tcl_GetString(). The - * macro's expression result is the string rep's byte pointer which might be - * NULL. The bytes referenced by this pointer must not be modified by the - * caller. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE char * TclGetString(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclGetString(objPtr) \ - ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr))) - -#define TclGetStringFromObj(objPtr, lenPtr) \ - ((objPtr)->bytes \ - ? (*(lenPtr) = (objPtr)->length, (objPtr)->bytes) \ - : Tcl_GetStringFromObj((objPtr), (lenPtr))) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's internal - * representation. Does not actually reset the rep's bytes. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclFreeIntRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclFreeIntRep(objPtr) \ - if ((objPtr)->typePtr != NULL && \ - (objPtr)->typePtr->freeIntRepProc != NULL) { \ - (objPtr)->typePtr->freeIntRepProc(objPtr); \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's string representation. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateStringRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateStringRep(objPtr) \ - if (objPtr->bytes != NULL) { \ - if (objPtr->bytes != tclEmptyStringRep) { \ - ckfree((char *) objPtr->bytes); \ - } \ - objPtr->bytes = NULL; \ - } - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to grow Tcl_Token arrays. They use the same - * growth algorithm as used in tclStringObj.c for growing strings. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclGrowTokenArray(Tcl_Token *tokenPtr, int used, - * int available, int append, - * Tcl_Token *staticPtr); - * MODULE_SCOPE void TclGrowParseTokenArray(Tcl_Parse *parsePtr, - * int append); - *---------------------------------------------------------------- - */ - -#define TCL_MAX_TOKENS (int)(UINT_MAX / sizeof(Tcl_Token)) -#define TCL_MIN_TOKEN_GROWTH 50 -#define TclGrowTokenArray(tokenPtr, used, available, append, staticPtr) \ -{ \ - int needed = (used) + (append); \ - if (needed > TCL_MAX_TOKENS) { \ - Tcl_Panic("max # of tokens for a Tcl parse (%d) exceeded", \ - TCL_MAX_TOKENS); \ - } \ - if (needed > (available)) { \ - int allocated = 2 * needed; \ - Tcl_Token *oldPtr = (tokenPtr); \ - Tcl_Token *newPtr; \ - if (oldPtr == (staticPtr)) { \ - oldPtr = NULL; \ - } \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) attemptckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - if (newPtr == NULL) { \ - allocated = needed + (append) + TCL_MIN_TOKEN_GROWTH; \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) ckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - } \ - (available) = allocated; \ - if (oldPtr == NULL) { \ - memcpy((VOID *) newPtr, (VOID *) staticPtr, \ - (size_t) ((used) * sizeof(Tcl_Token))); \ - } \ - (tokenPtr) = newPtr; \ - } \ -} - -#define TclGrowParseTokenArray(parsePtr, append) \ - TclGrowTokenArray((parsePtr)->tokenPtr, (parsePtr)->numTokens, \ - (parsePtr)->tokensAvailable, (append), \ - (parsePtr)->staticTokens) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core get a unicode char from a utf string. It checks - * to see if we have a one-byte utf char before calling the real - * Tcl_UtfToUniChar, as this will save a lot of time for primarily ASCII - * string handling. The macro's expression result is 1 for the 1-byte case or - * the result of Tcl_UtfToUniChar. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclUtfToUniChar(const char *string, Tcl_UniChar *ch); - *---------------------------------------------------------------- - */ - -#define TclUtfToUniChar(str, chPtr) \ - ((((unsigned char) *(str)) < 0xC0) ? \ - ((*(chPtr) = (unsigned char) *(str)), 1) \ - : Tcl_UtfToUniChar(str, chPtr)) - -/* - *---------------------------------------------------------------- - * Macro that encapsulates the logic that determines when it is safe to - * interpret a string as a byte array directly. In summary, the object must be - * a byte array and must not have a string representation (as the operations - * that it is used in are defined on strings, not byte arrays). Theoretically - * it is possible to also be efficient in the case where the object's bytes - * field is filled by generation from the byte array (c.f. list canonicality) - * but we don't do that at the moment since this is purely about efficiency. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclIsPureByteArray(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclIsPureByteArray(objPtr) \ - (((objPtr)->typePtr==&tclByteArrayType) && ((objPtr)->bytes==NULL)) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to compare Unicode strings. On big-endian - * systems we can use the more efficient memcmp, but this would not be - * lexically correct on little-endian systems. The ANSI C "prototype" for - * this macro is: - * - * MODULE_SCOPE int TclUniCharNcmp(const Tcl_UniChar *cs, - * const Tcl_UniChar *ct, unsigned long n); - *---------------------------------------------------------------- - */ - -#ifdef WORDS_BIGENDIAN -# define TclUniCharNcmp(cs,ct,n) memcmp((cs),(ct),(n)*sizeof(Tcl_UniChar)) -#else /* !WORDS_BIGENDIAN */ -# define TclUniCharNcmp Tcl_UniCharNcmp -#endif /* WORDS_BIGENDIAN */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to increment a namespace's export export epoch - * counter. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateNsCmdLookup(Namespace *nsPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateNsCmdLookup(nsPtr) \ - if ((nsPtr)->numExportPatterns) { \ - (nsPtr)->exportLookupEpoch++; \ - } \ - if ((nsPtr)->commandPathLength) { \ - (nsPtr)->cmdRefEpoch++; \ - } - -/* - *---------------------------------------------------------------------- - * - * Core procedures added to libtommath for bignum manipulation. - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE int TclTommath_Init(Tcl_Interp *interp); -MODULE_SCOPE void TclBNInitBignumFromLong(mp_int *bignum, long initVal); -MODULE_SCOPE void TclBNInitBignumFromWideInt(mp_int *bignum, - Tcl_WideInt initVal); -MODULE_SCOPE void TclBNInitBignumFromWideUInt(mp_int *bignum, - Tcl_WideUInt initVal); - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to check whether a pattern has any characters - * special to [string match]. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclMatchIsTrivial(const char *pattern); - *---------------------------------------------------------------- - */ - -#define TclMatchIsTrivial(pattern) strpbrk((pattern), "*[?\\") == NULL - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to set a Tcl_Obj's numeric representation - * avoiding the corresponding function calls in time critical parts of the - * core. They should only be called on unshared objects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetIntObj(Tcl_Obj *objPtr, int intValue); - * MODULE_SCOPE void TclSetLongObj(Tcl_Obj *objPtr, long longValue); - * MODULE_SCOPE void TclSetBooleanObj(Tcl_Obj *objPtr, long boolValue); - * MODULE_SCOPE void TclSetWideIntObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclSetDoubleObj(Tcl_Obj *objPtr, double d); - *---------------------------------------------------------------- - */ - -#define TclSetIntObj(objPtr, i) \ - TclInvalidateStringRep(objPtr);\ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType - -#define TclSetLongObj(objPtr, l) \ - TclSetIntObj((objPtr), (l)) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. Boolean values set - * programmatically go straight to being "int" Tcl_Obj's, with value 0 or 1. - * The only "boolean" Tcl_Obj's shall be those holding the cached boolean - * value of strings like: "yes", "no", "true", "false", "on", "off". - */ - -#define TclSetBooleanObj(objPtr, b) \ - TclSetIntObj((objPtr), ((b)? 1 : 0)); - -#ifndef NO_WIDE_TYPE -#define TclSetWideIntObj(objPtr, w) \ - TclInvalidateStringRep(objPtr);\ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.wideValue = (Tcl_WideInt)(w); \ - (objPtr)->typePtr = &tclWideIntType -#endif - -#define TclSetDoubleObj(objPtr, d) \ - TclInvalidateStringRep(objPtr);\ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and initialise objects of standard - * types, avoiding the corresponding function calls in time critical parts of - * the core. The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewIntObj(Tcl_Obj *objPtr, int i); - * MODULE_SCOPE void TclNewLongObj(Tcl_Obj *objPtr, long l); - * MODULE_SCOPE void TclNewBooleanObj(Tcl_Obj *objPtr, int b); - * MODULE_SCOPE void TclNewWideObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclNewDoubleObj(Tcl_Obj *objPtr, double d); - * MODULE_SCOPE void TclNewStringObj(Tcl_Obj *objPtr, char *s, int len); - * MODULE_SCOPE void TclNewLiteralStringObj(Tcl_Obj*objPtr, char*sLiteral); - * - *---------------------------------------------------------------- - */ - -#ifndef TCL_MEM_DEBUG -#define TclNewIntObj(objPtr, i) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -#define TclNewLongObj(objPtr, l) \ - TclNewIntObj((objPtr), (l)) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. - * See comment above TclSetBooleanObj macro above. - */ -#define TclNewBooleanObj(objPtr, b) \ - TclNewIntObj((objPtr), ((b)? 1 : 0)) - -#define TclNewDoubleObj(objPtr, d) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -#define TclNewStringObj(objPtr, s, len) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - TclInitStringRep((objPtr), (s), (len));\ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -#else /* TCL_MEM_DEBUG */ -#define TclNewIntObj(objPtr, i) \ - (objPtr) = Tcl_NewIntObj(i) - -#define TclNewLongObj(objPtr, l) \ - (objPtr) = Tcl_NewLongObj(l) - -#define TclNewBooleanObj(objPtr, b) \ - (objPtr) = Tcl_NewBooleanObj(b) - -#define TclNewDoubleObj(objPtr, d) \ - (objPtr) = Tcl_NewDoubleObj(d) - -#define TclNewStringObj(objPtr, s, len) \ - (objPtr) = Tcl_NewStringObj((s), (len)) -#endif /* TCL_MEM_DEBUG */ - -/* - * The sLiteral argument *must* be a string literal; the incantation with - * sizeof(sLiteral "") will fail to compile otherwise. - */ -#define TclNewLiteralStringObj(objPtr, sLiteral) \ - TclNewStringObj((objPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to test for some special double values. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsInfinite(double d); - * MODULE_SCOPE int TclIsNaN(double d); - */ - -#ifdef _MSC_VER -# define TclIsInfinite(d) (!(_finite((d)))) -# define TclIsNaN(d) (_isnan((d))) -#else -# define TclIsInfinite(d) ((d) > DBL_MAX || (d) < -DBL_MAX) -# ifdef NO_ISNAN -# define TclIsNaN(d) ((d) != (d)) -# else -# define TclIsNaN(d) (isnan(d)) -# endif -#endif - -/* - * ---------------------------------------------------------------------- - * Macro to use to find the offset of a field in a structure. Computes number - * of bytes from beginning of structure to a given field. - */ - -#ifdef offsetof -#define TclOffset(type, field) ((int) offsetof(type, field)) -#else -#define TclOffset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -/* - *---------------------------------------------------------------- - * Inline version of Tcl_GetCurrentNamespace and Tcl_GetGlobalNamespace. - */ - -#define TclGetCurrentNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->varFramePtr->nsPtr - -#define TclGetGlobalNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->globalNsPtr - -/* - *---------------------------------------------------------------- - * Inline version of TclCleanupCommand; still need the function as it is in - * the internal stubs, but the core can use the macro instead. - */ - -#define TclCleanupCommandMacro(cmdPtr) \ - if (--(cmdPtr)->refCount <= 0) { \ - ckfree((char *) (cmdPtr));\ - } - -/* - *---------------------------------------------------------------- - * Inline versions of Tcl_LimitReady() and Tcl_LimitExceeded to limit number - * of calls out of the critical path. Note that this code isn't particularly - * readable; the non-inline version (in tclInterp.c) is much easier to - * understand. Note also that these macros takes different args (iPtr->limit) - * to the non-inline version. - */ - -#define TclLimitExceeded(limit) ((limit).exceeded != 0) - -#define TclLimitReady(limit) \ - (((limit).active == 0) ? 0 : \ - (++(limit).granularityTicker, \ - ((((limit).active & TCL_LIMIT_COMMANDS) && \ - (((limit).cmdGranularity == 1) || \ - ((limit).granularityTicker % (limit).cmdGranularity == 0))) \ - ? 1 : \ - (((limit).active & TCL_LIMIT_TIME) && \ - (((limit).timeGranularity == 1) || \ - ((limit).granularityTicker % (limit).timeGranularity == 0)))\ - ? 1 : 0))) - - -#include "tclIntDecls.h" -#include "tclIntPlatDecls.h" -#include "tclTomMathDecls.h" - -#endif /* _TCLINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclIntDecls.h deleted file mode 100644 index fe23e771d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclIntDecls.h +++ /dev/null @@ -1,2133 +0,0 @@ -/* - * tclIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINTDECLS -#define _TCLINTDECLS - -#include "tclPort.h" - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */ -#undef Tcl_CreateNamespace -#undef Tcl_DeleteNamespace -#undef Tcl_AppendExportList -#undef Tcl_Export -#undef Tcl_Import -#undef Tcl_ForgetImport -#undef Tcl_GetCurrentNamespace -#undef Tcl_GetGlobalNamespace -#undef Tcl_FindNamespace -#undef Tcl_FindCommand -#undef Tcl_GetCommandFromObj -#undef Tcl_GetCommandFullName - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TclAllocateFreeObjects_TCL_DECLARED -#define TclAllocateFreeObjects_TCL_DECLARED -/* 3 */ -EXTERN void TclAllocateFreeObjects(void); -#endif -/* Slot 4 is reserved */ -#ifndef TclCleanupChildren_TCL_DECLARED -#define TclCleanupChildren_TCL_DECLARED -/* 5 */ -EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids, - Tcl_Pid *pidPtr, Tcl_Channel errorChan); -#endif -#ifndef TclCleanupCommand_TCL_DECLARED -#define TclCleanupCommand_TCL_DECLARED -/* 6 */ -EXTERN void TclCleanupCommand(Command *cmdPtr); -#endif -#ifndef TclCopyAndCollapse_TCL_DECLARED -#define TclCopyAndCollapse_TCL_DECLARED -/* 7 */ -EXTERN int TclCopyAndCollapse(int count, CONST char *src, - char *dst); -#endif -#ifndef TclCopyChannel_TCL_DECLARED -#define TclCopyChannel_TCL_DECLARED -/* 8 */ -EXTERN int TclCopyChannel(Tcl_Interp *interp, - Tcl_Channel inChan, Tcl_Channel outChan, - int toRead, Tcl_Obj *cmdPtr); -#endif -#ifndef TclCreatePipeline_TCL_DECLARED -#define TclCreatePipeline_TCL_DECLARED -/* 9 */ -EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc, - CONST char **argv, Tcl_Pid **pidArrayPtr, - TclFile *inPipePtr, TclFile *outPipePtr, - TclFile *errFilePtr); -#endif -#ifndef TclCreateProc_TCL_DECLARED -#define TclCreateProc_TCL_DECLARED -/* 10 */ -EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, - CONST char *procName, Tcl_Obj *argsPtr, - Tcl_Obj *bodyPtr, Proc **procPtrPtr); -#endif -#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED -#define TclDeleteCompiledLocalVars_TCL_DECLARED -/* 11 */ -EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr, - CallFrame *framePtr); -#endif -#ifndef TclDeleteVars_TCL_DECLARED -#define TclDeleteVars_TCL_DECLARED -/* 12 */ -EXTERN void TclDeleteVars(Interp *iPtr, - TclVarHashTable *tablePtr); -#endif -/* Slot 13 is reserved */ -#ifndef TclDumpMemoryInfo_TCL_DECLARED -#define TclDumpMemoryInfo_TCL_DECLARED -/* 14 */ -EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags); -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError_TCL_DECLARED -#define TclExprFloatError_TCL_DECLARED -/* 16 */ -EXTERN void TclExprFloatError(Tcl_Interp *interp, double value); -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement_TCL_DECLARED -#define TclFindElement_TCL_DECLARED -/* 22 */ -EXTERN int TclFindElement(Tcl_Interp *interp, - CONST char *listStr, int listLength, - CONST char **elementPtr, - CONST char **nextPtr, int *sizePtr, - int *bracePtr); -#endif -#ifndef TclFindProc_TCL_DECLARED -#define TclFindProc_TCL_DECLARED -/* 23 */ -EXTERN Proc * TclFindProc(Interp *iPtr, CONST char *procName); -#endif -#ifndef TclFormatInt_TCL_DECLARED -#define TclFormatInt_TCL_DECLARED -/* 24 */ -EXTERN int TclFormatInt(char *buffer, long n); -#endif -#ifndef TclFreePackageInfo_TCL_DECLARED -#define TclFreePackageInfo_TCL_DECLARED -/* 25 */ -EXTERN void TclFreePackageInfo(Interp *iPtr); -#endif -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -#ifndef TclpGetDefaultStdChannel_TCL_DECLARED -#define TclpGetDefaultStdChannel_TCL_DECLARED -/* 28 */ -EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type); -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension_TCL_DECLARED -#define TclGetExtension_TCL_DECLARED -/* 31 */ -EXTERN CONST char * TclGetExtension(CONST char *name); -#endif -#ifndef TclGetFrame_TCL_DECLARED -#define TclGetFrame_TCL_DECLARED -/* 32 */ -EXTERN int TclGetFrame(Tcl_Interp *interp, CONST char *str, - CallFrame **framePtrPtr); -#endif -/* Slot 33 is reserved */ -#ifndef TclGetIntForIndex_TCL_DECLARED -#define TclGetIntForIndex_TCL_DECLARED -/* 34 */ -EXTERN int TclGetIntForIndex(Tcl_Interp *interp, - Tcl_Obj *objPtr, int endValue, int *indexPtr); -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong_TCL_DECLARED -#define TclGetLong_TCL_DECLARED -/* 36 */ -EXTERN int TclGetLong(Tcl_Interp *interp, CONST char *str, - long *longPtr); -#endif -#ifndef TclGetLoadedPackages_TCL_DECLARED -#define TclGetLoadedPackages_TCL_DECLARED -/* 37 */ -EXTERN int TclGetLoadedPackages(Tcl_Interp *interp, - char *targetName); -#endif -#ifndef TclGetNamespaceForQualName_TCL_DECLARED -#define TclGetNamespaceForQualName_TCL_DECLARED -/* 38 */ -EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, - CONST char *qualName, Namespace *cxtNsPtr, - int flags, Namespace **nsPtrPtr, - Namespace **altNsPtrPtr, - Namespace **actualCxtPtrPtr, - CONST char **simpleNamePtr); -#endif -#ifndef TclGetObjInterpProc_TCL_DECLARED -#define TclGetObjInterpProc_TCL_DECLARED -/* 39 */ -EXTERN TclObjCmdProcType TclGetObjInterpProc(void); -#endif -#ifndef TclGetOpenMode_TCL_DECLARED -#define TclGetOpenMode_TCL_DECLARED -/* 40 */ -EXTERN int TclGetOpenMode(Tcl_Interp *interp, CONST char *str, - int *seekFlagPtr); -#endif -#ifndef TclGetOriginalCommand_TCL_DECLARED -#define TclGetOriginalCommand_TCL_DECLARED -/* 41 */ -EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); -#endif -#ifndef TclpGetUserHome_TCL_DECLARED -#define TclpGetUserHome_TCL_DECLARED -/* 42 */ -EXTERN char * TclpGetUserHome(CONST char *name, - Tcl_DString *bufferPtr); -#endif -/* Slot 43 is reserved */ -#ifndef TclGuessPackageName_TCL_DECLARED -#define TclGuessPackageName_TCL_DECLARED -/* 44 */ -EXTERN int TclGuessPackageName(CONST char *fileName, - Tcl_DString *bufPtr); -#endif -#ifndef TclHideUnsafeCommands_TCL_DECLARED -#define TclHideUnsafeCommands_TCL_DECLARED -/* 45 */ -EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp); -#endif -#ifndef TclInExit_TCL_DECLARED -#define TclInExit_TCL_DECLARED -/* 46 */ -EXTERN int TclInExit(void); -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -#ifndef TclInitCompiledLocals_TCL_DECLARED -#define TclInitCompiledLocals_TCL_DECLARED -/* 50 */ -EXTERN void TclInitCompiledLocals(Tcl_Interp *interp, - CallFrame *framePtr, Namespace *nsPtr); -#endif -#ifndef TclInterpInit_TCL_DECLARED -#define TclInterpInit_TCL_DECLARED -/* 51 */ -EXTERN int TclInterpInit(Tcl_Interp *interp); -#endif -/* Slot 52 is reserved */ -#ifndef TclInvokeObjectCommand_TCL_DECLARED -#define TclInvokeObjectCommand_TCL_DECLARED -/* 53 */ -EXTERN int TclInvokeObjectCommand(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST84 char **argv); -#endif -#ifndef TclInvokeStringCommand_TCL_DECLARED -#define TclInvokeStringCommand_TCL_DECLARED -/* 54 */ -EXTERN int TclInvokeStringCommand(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef TclIsProc_TCL_DECLARED -#define TclIsProc_TCL_DECLARED -/* 55 */ -EXTERN Proc * TclIsProc(Command *cmdPtr); -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar_TCL_DECLARED -#define TclLookupVar_TCL_DECLARED -/* 58 */ -EXTERN Var * TclLookupVar(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags, - CONST char *msg, int createPart1, - int createPart2, Var **arrayPtrPtr); -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace_TCL_DECLARED -#define TclNeedSpace_TCL_DECLARED -/* 60 */ -EXTERN int TclNeedSpace(CONST char *start, CONST char *end); -#endif -#ifndef TclNewProcBodyObj_TCL_DECLARED -#define TclNewProcBodyObj_TCL_DECLARED -/* 61 */ -EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr); -#endif -#ifndef TclObjCommandComplete_TCL_DECLARED -#define TclObjCommandComplete_TCL_DECLARED -/* 62 */ -EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr); -#endif -#ifndef TclObjInterpProc_TCL_DECLARED -#define TclObjInterpProc_TCL_DECLARED -/* 63 */ -EXTERN int TclObjInterpProc(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef TclObjInvoke_TCL_DECLARED -#define TclObjInvoke_TCL_DECLARED -/* 64 */ -EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], int flags); -#endif -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -#ifndef TclpAlloc_TCL_DECLARED -#define TclpAlloc_TCL_DECLARED -/* 69 */ -EXTERN char * TclpAlloc(unsigned int size); -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree_TCL_DECLARED -#define TclpFree_TCL_DECLARED -/* 74 */ -EXTERN void TclpFree(char *ptr); -#endif -#ifndef TclpGetClicks_TCL_DECLARED -#define TclpGetClicks_TCL_DECLARED -/* 75 */ -EXTERN unsigned long TclpGetClicks(void); -#endif -#ifndef TclpGetSeconds_TCL_DECLARED -#define TclpGetSeconds_TCL_DECLARED -/* 76 */ -EXTERN unsigned long TclpGetSeconds(void); -#endif -#ifndef TclpGetTime_TCL_DECLARED -#define TclpGetTime_TCL_DECLARED -/* 77 */ -EXTERN void TclpGetTime(Tcl_Time *time); -#endif -#ifndef TclpGetTimeZone_TCL_DECLARED -#define TclpGetTimeZone_TCL_DECLARED -/* 78 */ -EXTERN int TclpGetTimeZone(unsigned long time); -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc_TCL_DECLARED -#define TclpRealloc_TCL_DECLARED -/* 81 */ -EXTERN char * TclpRealloc(char *ptr, unsigned int size); -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc_TCL_DECLARED -#define TclPrecTraceProc_TCL_DECLARED -/* 88 */ -EXTERN char * TclPrecTraceProc(ClientData clientData, - Tcl_Interp *interp, CONST char *name1, - CONST char *name2, int flags); -#endif -#ifndef TclPreventAliasLoop_TCL_DECLARED -#define TclPreventAliasLoop_TCL_DECLARED -/* 89 */ -EXTERN int TclPreventAliasLoop(Tcl_Interp *interp, - Tcl_Interp *cmdInterp, Tcl_Command cmd); -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc_TCL_DECLARED -#define TclProcCleanupProc_TCL_DECLARED -/* 91 */ -EXTERN void TclProcCleanupProc(Proc *procPtr); -#endif -#ifndef TclProcCompileProc_TCL_DECLARED -#define TclProcCompileProc_TCL_DECLARED -/* 92 */ -EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, - Tcl_Obj *bodyPtr, Namespace *nsPtr, - CONST char *description, - CONST char *procName); -#endif -#ifndef TclProcDeleteProc_TCL_DECLARED -#define TclProcDeleteProc_TCL_DECLARED -/* 93 */ -EXTERN void TclProcDeleteProc(ClientData clientData); -#endif -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -#ifndef TclRenameCommand_TCL_DECLARED -#define TclRenameCommand_TCL_DECLARED -/* 96 */ -EXTERN int TclRenameCommand(Tcl_Interp *interp, - CONST char *oldName, CONST char *newName); -#endif -#ifndef TclResetShadowedCmdRefs_TCL_DECLARED -#define TclResetShadowedCmdRefs_TCL_DECLARED -/* 97 */ -EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp, - Command *newCmdPtr); -#endif -#ifndef TclServiceIdle_TCL_DECLARED -#define TclServiceIdle_TCL_DECLARED -/* 98 */ -EXTERN int TclServiceIdle(void); -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript_TCL_DECLARED -#define TclSetPreInitScript_TCL_DECLARED -/* 101 */ -EXTERN char * TclSetPreInitScript(char *string); -#endif -#ifndef TclSetupEnv_TCL_DECLARED -#define TclSetupEnv_TCL_DECLARED -/* 102 */ -EXTERN void TclSetupEnv(Tcl_Interp *interp); -#endif -#ifndef TclSockGetPort_TCL_DECLARED -#define TclSockGetPort_TCL_DECLARED -/* 103 */ -EXTERN int TclSockGetPort(Tcl_Interp *interp, CONST char *str, - CONST char *proto, int *portPtr); -#endif -#ifndef TclSockMinimumBuffersOld_TCL_DECLARED -#define TclSockMinimumBuffersOld_TCL_DECLARED -/* 104 */ -EXTERN int TclSockMinimumBuffersOld(int sock, int size); -#endif -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -#ifndef TclTeardownNamespace_TCL_DECLARED -#define TclTeardownNamespace_TCL_DECLARED -/* 108 */ -EXTERN void TclTeardownNamespace(Namespace *nsPtr); -#endif -#ifndef TclUpdateReturnInfo_TCL_DECLARED -#define TclUpdateReturnInfo_TCL_DECLARED -/* 109 */ -EXTERN int TclUpdateReturnInfo(Interp *iPtr); -#endif -#ifndef TclSockMinimumBuffers_TCL_DECLARED -#define TclSockMinimumBuffers_TCL_DECLARED -/* 110 */ -EXTERN int TclSockMinimumBuffers(VOID *sock, int size); -#endif -#ifndef Tcl_AddInterpResolvers_TCL_DECLARED -#define Tcl_AddInterpResolvers_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp, - CONST char *name, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -#endif -#ifndef Tcl_AppendExportList_TCL_DECLARED -#define Tcl_AppendExportList_TCL_DECLARED -/* 112 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_CreateNamespace_TCL_DECLARED -#define Tcl_CreateNamespace_TCL_DECLARED -/* 113 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - CONST char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -#endif -#ifndef Tcl_DeleteNamespace_TCL_DECLARED -#define Tcl_DeleteNamespace_TCL_DECLARED -/* 114 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -#endif -#ifndef Tcl_Export_TCL_DECLARED -#define Tcl_Export_TCL_DECLARED -/* 115 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int resetListFirst); -#endif -#ifndef Tcl_FindCommand_TCL_DECLARED -#define Tcl_FindCommand_TCL_DECLARED -/* 116 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_FindNamespace_TCL_DECLARED -#define Tcl_FindNamespace_TCL_DECLARED -/* 117 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_GetInterpResolvers_TCL_DECLARED -#define Tcl_GetInterpResolvers_TCL_DECLARED -/* 118 */ -EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp, - CONST char *name, Tcl_ResolverInfo *resInfo); -#endif -#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED -#define Tcl_GetNamespaceResolvers_TCL_DECLARED -/* 119 */ -EXTERN int Tcl_GetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolverInfo *resInfo); -#endif -#ifndef Tcl_FindNamespaceVar_TCL_DECLARED -#define Tcl_FindNamespaceVar_TCL_DECLARED -/* 120 */ -EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_ForgetImport_TCL_DECLARED -#define Tcl_ForgetImport_TCL_DECLARED -/* 121 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, CONST char *pattern); -#endif -#ifndef Tcl_GetCommandFromObj_TCL_DECLARED -#define Tcl_GetCommandFromObj_TCL_DECLARED -/* 122 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetCommandFullName_TCL_DECLARED -#define Tcl_GetCommandFullName_TCL_DECLARED -/* 123 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED -#define Tcl_GetCurrentNamespace_TCL_DECLARED -/* 124 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED -#define Tcl_GetGlobalNamespace_TCL_DECLARED -/* 125 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetVariableFullName_TCL_DECLARED -#define Tcl_GetVariableFullName_TCL_DECLARED -/* 126 */ -EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp, - Tcl_Var variable, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_Import_TCL_DECLARED -#define Tcl_Import_TCL_DECLARED -/* 127 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int allowOverwrite); -#endif -#ifndef Tcl_PopCallFrame_TCL_DECLARED -#define Tcl_PopCallFrame_TCL_DECLARED -/* 128 */ -EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp); -#endif -#ifndef Tcl_PushCallFrame_TCL_DECLARED -#define Tcl_PushCallFrame_TCL_DECLARED -/* 129 */ -EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp, - Tcl_CallFrame *framePtr, - Tcl_Namespace *nsPtr, int isProcCallFrame); -#endif -#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED -#define Tcl_RemoveInterpResolvers_TCL_DECLARED -/* 130 */ -EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, - CONST char *name); -#endif -#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED -#define Tcl_SetNamespaceResolvers_TCL_DECLARED -/* 131 */ -EXTERN void Tcl_SetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -#endif -#ifndef TclpHasSockets_TCL_DECLARED -#define TclpHasSockets_TCL_DECLARED -/* 132 */ -EXTERN int TclpHasSockets(Tcl_Interp *interp); -#endif -#ifndef TclpGetDate_TCL_DECLARED -#define TclpGetDate_TCL_DECLARED -/* 133 */ -EXTERN struct tm * TclpGetDate(CONST time_t *time, int useGMT); -#endif -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv_TCL_DECLARED -#define TclGetEnv_TCL_DECLARED -/* 138 */ -EXTERN CONST84_RETURN char * TclGetEnv(CONST char *name, - Tcl_DString *valuePtr); -#endif -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -#ifndef TclpGetCwd_TCL_DECLARED -#define TclpGetCwd_TCL_DECLARED -/* 141 */ -EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp, - Tcl_DString *cwdPtr); -#endif -#ifndef TclSetByteCodeFromAny_TCL_DECLARED -#define TclSetByteCodeFromAny_TCL_DECLARED -/* 142 */ -EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp, - Tcl_Obj *objPtr, CompileHookProc *hookProc, - ClientData clientData); -#endif -#ifndef TclAddLiteralObj_TCL_DECLARED -#define TclAddLiteralObj_TCL_DECLARED -/* 143 */ -EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr, - Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); -#endif -#ifndef TclHideLiteral_TCL_DECLARED -#define TclHideLiteral_TCL_DECLARED -/* 144 */ -EXTERN void TclHideLiteral(Tcl_Interp *interp, - struct CompileEnv *envPtr, int index); -#endif -#ifndef TclGetAuxDataType_TCL_DECLARED -#define TclGetAuxDataType_TCL_DECLARED -/* 145 */ -EXTERN struct AuxDataType * TclGetAuxDataType(char *typeName); -#endif -#ifndef TclHandleCreate_TCL_DECLARED -#define TclHandleCreate_TCL_DECLARED -/* 146 */ -EXTERN TclHandle TclHandleCreate(VOID *ptr); -#endif -#ifndef TclHandleFree_TCL_DECLARED -#define TclHandleFree_TCL_DECLARED -/* 147 */ -EXTERN void TclHandleFree(TclHandle handle); -#endif -#ifndef TclHandlePreserve_TCL_DECLARED -#define TclHandlePreserve_TCL_DECLARED -/* 148 */ -EXTERN TclHandle TclHandlePreserve(TclHandle handle); -#endif -#ifndef TclHandleRelease_TCL_DECLARED -#define TclHandleRelease_TCL_DECLARED -/* 149 */ -EXTERN void TclHandleRelease(TclHandle handle); -#endif -#ifndef TclRegAbout_TCL_DECLARED -#define TclRegAbout_TCL_DECLARED -/* 150 */ -EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re); -#endif -#ifndef TclRegExpRangeUniChar_TCL_DECLARED -#define TclRegExpRangeUniChar_TCL_DECLARED -/* 151 */ -EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index, - int *startPtr, int *endPtr); -#endif -#ifndef TclSetLibraryPath_TCL_DECLARED -#define TclSetLibraryPath_TCL_DECLARED -/* 152 */ -EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr); -#endif -#ifndef TclGetLibraryPath_TCL_DECLARED -#define TclGetLibraryPath_TCL_DECLARED -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath(void); -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError_TCL_DECLARED -#define TclRegError_TCL_DECLARED -/* 156 */ -EXTERN void TclRegError(Tcl_Interp *interp, CONST char *msg, - int status); -#endif -#ifndef TclVarTraceExists_TCL_DECLARED -#define TclVarTraceExists_TCL_DECLARED -/* 157 */ -EXTERN Var * TclVarTraceExists(Tcl_Interp *interp, - CONST char *varName); -#endif -#ifndef TclSetStartupScriptFileName_TCL_DECLARED -#define TclSetStartupScriptFileName_TCL_DECLARED -/* 158 */ -EXTERN void TclSetStartupScriptFileName(CONST char *filename); -#endif -#ifndef TclGetStartupScriptFileName_TCL_DECLARED -#define TclGetStartupScriptFileName_TCL_DECLARED -/* 159 */ -EXTERN CONST84_RETURN char * TclGetStartupScriptFileName(void); -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform_TCL_DECLARED -#define TclChannelTransform_TCL_DECLARED -/* 161 */ -EXTERN int TclChannelTransform(Tcl_Interp *interp, - Tcl_Channel chan, Tcl_Obj *cmdObjPtr); -#endif -#ifndef TclChannelEventScriptInvoker_TCL_DECLARED -#define TclChannelEventScriptInvoker_TCL_DECLARED -/* 162 */ -EXTERN void TclChannelEventScriptInvoker(ClientData clientData, - int flags); -#endif -#ifndef TclGetInstructionTable_TCL_DECLARED -#define TclGetInstructionTable_TCL_DECLARED -/* 163 */ -EXTERN VOID * TclGetInstructionTable(void); -#endif -#ifndef TclExpandCodeArray_TCL_DECLARED -#define TclExpandCodeArray_TCL_DECLARED -/* 164 */ -EXTERN void TclExpandCodeArray(VOID *envPtr); -#endif -#ifndef TclpSetInitialEncodings_TCL_DECLARED -#define TclpSetInitialEncodings_TCL_DECLARED -/* 165 */ -EXTERN void TclpSetInitialEncodings(void); -#endif -#ifndef TclListObjSetElement_TCL_DECLARED -#define TclListObjSetElement_TCL_DECLARED -/* 166 */ -EXTERN int TclListObjSetElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj *valuePtr); -#endif -#ifndef TclSetStartupScriptPath_TCL_DECLARED -#define TclSetStartupScriptPath_TCL_DECLARED -/* 167 */ -EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr); -#endif -#ifndef TclGetStartupScriptPath_TCL_DECLARED -#define TclGetStartupScriptPath_TCL_DECLARED -/* 168 */ -EXTERN Tcl_Obj * TclGetStartupScriptPath(void); -#endif -#ifndef TclpUtfNcmp2_TCL_DECLARED -#define TclpUtfNcmp2_TCL_DECLARED -/* 169 */ -EXTERN int TclpUtfNcmp2(CONST char *s1, CONST char *s2, - unsigned long n); -#endif -#ifndef TclCheckInterpTraces_TCL_DECLARED -#define TclCheckInterpTraces_TCL_DECLARED -/* 170 */ -EXTERN int TclCheckInterpTraces(Tcl_Interp *interp, - CONST char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef TclCheckExecutionTraces_TCL_DECLARED -#define TclCheckExecutionTraces_TCL_DECLARED -/* 171 */ -EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp, - CONST char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef TclInThreadExit_TCL_DECLARED -#define TclInThreadExit_TCL_DECLARED -/* 172 */ -EXTERN int TclInThreadExit(void); -#endif -#ifndef TclUniCharMatch_TCL_DECLARED -#define TclUniCharMatch_TCL_DECLARED -/* 173 */ -EXTERN int TclUniCharMatch(CONST Tcl_UniChar *string, - int strLen, CONST Tcl_UniChar *pattern, - int ptnLen, int flags); -#endif -/* Slot 174 is reserved */ -#ifndef TclCallVarTraces_TCL_DECLARED -#define TclCallVarTraces_TCL_DECLARED -/* 175 */ -EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, CONST char *part1, - CONST char *part2, int flags, - int leaveErrMsg); -#endif -#ifndef TclCleanupVar_TCL_DECLARED -#define TclCleanupVar_TCL_DECLARED -/* 176 */ -EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr); -#endif -#ifndef TclVarErrMsg_TCL_DECLARED -#define TclVarErrMsg_TCL_DECLARED -/* 177 */ -EXTERN void TclVarErrMsg(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, CONST char *operation, - CONST char *reason); -#endif -#ifndef Tcl_SetStartupScript_TCL_DECLARED -#define Tcl_SetStartupScript_TCL_DECLARED -/* 178 */ -EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr, - CONST char *encodingName); -#endif -#ifndef Tcl_GetStartupScript_TCL_DECLARED -#define Tcl_GetStartupScript_TCL_DECLARED -/* 179 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript(CONST char **encodingNamePtr); -#endif -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -#ifndef TclpLocaltime_TCL_DECLARED -#define TclpLocaltime_TCL_DECLARED -/* 182 */ -EXTERN struct tm * TclpLocaltime(CONST time_t *clock); -#endif -#ifndef TclpGmtime_TCL_DECLARED -#define TclpGmtime_TCL_DECLARED -/* 183 */ -EXTERN struct tm * TclpGmtime(CONST time_t *clock); -#endif -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -#ifndef TclObjGetFrame_TCL_DECLARED -#define TclObjGetFrame_TCL_DECLARED -/* 198 */ -EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, - CallFrame **framePtrPtr); -#endif -/* Slot 199 is reserved */ -#ifndef TclpObjRemoveDirectory_TCL_DECLARED -#define TclpObjRemoveDirectory_TCL_DECLARED -/* 200 */ -EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -#endif -#ifndef TclpObjCopyDirectory_TCL_DECLARED -#define TclpObjCopyDirectory_TCL_DECLARED -/* 201 */ -EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -#endif -#ifndef TclpObjCreateDirectory_TCL_DECLARED -#define TclpObjCreateDirectory_TCL_DECLARED -/* 202 */ -EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr); -#endif -#ifndef TclpObjDeleteFile_TCL_DECLARED -#define TclpObjDeleteFile_TCL_DECLARED -/* 203 */ -EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr); -#endif -#ifndef TclpObjCopyFile_TCL_DECLARED -#define TclpObjCopyFile_TCL_DECLARED -/* 204 */ -EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef TclpObjRenameFile_TCL_DECLARED -#define TclpObjRenameFile_TCL_DECLARED -/* 205 */ -EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef TclpObjStat_TCL_DECLARED -#define TclpObjStat_TCL_DECLARED -/* 206 */ -EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -#endif -#ifndef TclpObjAccess_TCL_DECLARED -#define TclpObjAccess_TCL_DECLARED -/* 207 */ -EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode); -#endif -#ifndef TclpOpenFileChannel_TCL_DECLARED -#define TclpOpenFileChannel_TCL_DECLARED -/* 208 */ -EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int mode, int permissions); -#endif -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -#ifndef TclpFindExecutable_TCL_DECLARED -#define TclpFindExecutable_TCL_DECLARED -/* 212 */ -EXTERN void TclpFindExecutable(CONST char *argv0); -#endif -#ifndef TclGetObjNameOfExecutable_TCL_DECLARED -#define TclGetObjNameOfExecutable_TCL_DECLARED -/* 213 */ -EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void); -#endif -#ifndef TclSetObjNameOfExecutable_TCL_DECLARED -#define TclSetObjNameOfExecutable_TCL_DECLARED -/* 214 */ -EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name, - Tcl_Encoding encoding); -#endif -#ifndef TclStackAlloc_TCL_DECLARED -#define TclStackAlloc_TCL_DECLARED -/* 215 */ -EXTERN VOID * TclStackAlloc(Tcl_Interp *interp, int numBytes); -#endif -#ifndef TclStackFree_TCL_DECLARED -#define TclStackFree_TCL_DECLARED -/* 216 */ -EXTERN void TclStackFree(Tcl_Interp *interp, VOID *freePtr); -#endif -#ifndef TclPushStackFrame_TCL_DECLARED -#define TclPushStackFrame_TCL_DECLARED -/* 217 */ -EXTERN int TclPushStackFrame(Tcl_Interp *interp, - Tcl_CallFrame **framePtrPtr, - Tcl_Namespace *namespacePtr, - int isProcCallFrame); -#endif -#ifndef TclPopStackFrame_TCL_DECLARED -#define TclPopStackFrame_TCL_DECLARED -/* 218 */ -EXTERN void TclPopStackFrame(Tcl_Interp *interp); -#endif -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -#ifndef TclGetPlatform_TCL_DECLARED -#define TclGetPlatform_TCL_DECLARED -/* 224 */ -EXTERN TclPlatformType * TclGetPlatform(void); -#endif -#ifndef TclTraceDictPath_TCL_DECLARED -#define TclTraceDictPath_TCL_DECLARED -/* 225 */ -EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp, - Tcl_Obj *rootPtr, int keyc, - Tcl_Obj *CONST keyv[], int flags); -#endif -#ifndef TclObjBeingDeleted_TCL_DECLARED -#define TclObjBeingDeleted_TCL_DECLARED -/* 226 */ -EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr); -#endif -#ifndef TclSetNsPath_TCL_DECLARED -#define TclSetNsPath_TCL_DECLARED -/* 227 */ -EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength, - Tcl_Namespace *pathAry[]); -#endif -#ifndef TclObjInterpProcCore_TCL_DECLARED -#define TclObjInterpProcCore_TCL_DECLARED -/* 228 */ -EXTERN int TclObjInterpProcCore(register Tcl_Interp *interp, - Tcl_Obj *procNameObj, int skip, - ProcErrorProc errorProc); -#endif -#ifndef TclPtrMakeUpvar_TCL_DECLARED -#define TclPtrMakeUpvar_TCL_DECLARED -/* 229 */ -EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, - CONST char *myName, int myFlags, int index); -#endif -#ifndef TclObjLookupVar_TCL_DECLARED -#define TclObjLookupVar_TCL_DECLARED -/* 230 */ -EXTERN Var * TclObjLookupVar(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, CONST char *part2, - int flags, CONST char *msg, - CONST int createPart1, CONST int createPart2, - Var **arrayPtrPtr); -#endif -#ifndef TclGetNamespaceFromObj_TCL_DECLARED -#define TclGetNamespaceFromObj_TCL_DECLARED -/* 231 */ -EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); -#endif -#ifndef TclEvalObjEx_TCL_DECLARED -#define TclEvalObjEx_TCL_DECLARED -/* 232 */ -EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags, CONST CmdFrame *invoker, int word); -#endif -#ifndef TclGetSrcInfoForPc_TCL_DECLARED -#define TclGetSrcInfoForPc_TCL_DECLARED -/* 233 */ -EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr); -#endif -#ifndef TclVarHashCreateVar_TCL_DECLARED -#define TclVarHashCreateVar_TCL_DECLARED -/* 234 */ -EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr, - CONST char *key, int *newPtr); -#endif -#ifndef TclInitVarHashTable_TCL_DECLARED -#define TclInitVarHashTable_TCL_DECLARED -/* 235 */ -EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr, - Namespace *nsPtr); -#endif -#ifndef TclBackgroundException_TCL_DECLARED -#define TclBackgroundException_TCL_DECLARED -/* 236 */ -EXTERN void TclBackgroundException(Tcl_Interp *interp, int code); -#endif -/* Slot 237 is reserved */ -/* Slot 238 is reserved */ -/* Slot 239 is reserved */ -/* Slot 240 is reserved */ -/* Slot 241 is reserved */ -/* Slot 242 is reserved */ -#ifndef TclDbDumpActiveObjects_TCL_DECLARED -#define TclDbDumpActiveObjects_TCL_DECLARED -/* 243 */ -EXTERN void TclDbDumpActiveObjects(FILE *outFile); -#endif -/* Slot 244 is reserved */ -/* Slot 245 is reserved */ -/* Slot 246 is reserved */ -/* Slot 247 is reserved */ -/* Slot 248 is reserved */ -#ifndef TclDoubleDigits_TCL_DECLARED -#define TclDoubleDigits_TCL_DECLARED -/* 249 */ -EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags, - int *decpt, int *signum, char **endPtr); -#endif -/* Slot 250 is reserved */ -/* Slot 251 is reserved */ -/* Slot 252 is reserved */ -/* Slot 253 is reserved */ -/* Slot 254 is reserved */ -/* Slot 255 is reserved */ -/* Slot 256 is reserved */ -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -#ifndef TclUnusedStubEntry_TCL_DECLARED -#define TclUnusedStubEntry_TCL_DECLARED -/* 259 */ -EXTERN void TclUnusedStubEntry(void); -#endif - -typedef struct TclIntStubs { - int magic; - struct TclIntStubHooks *hooks; - - VOID *reserved0; - VOID *reserved1; - VOID *reserved2; - void (*tclAllocateFreeObjects) (void); /* 3 */ - VOID *reserved4; - int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */ - void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */ - int (*tclCopyAndCollapse) (int count, CONST char *src, char *dst); /* 7 */ - int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */ - int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, CONST char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */ - int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, CONST char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */ - void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */ - void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */ - VOID *reserved13; - int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */ - VOID *reserved15; - void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */ - VOID *reserved17; - VOID *reserved18; - VOID *reserved19; - VOID *reserved20; - VOID *reserved21; - int (*tclFindElement) (Tcl_Interp *interp, CONST char *listStr, int listLength, CONST char **elementPtr, CONST char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */ - Proc * (*tclFindProc) (Interp *iPtr, CONST char *procName); /* 23 */ - int (*tclFormatInt) (char *buffer, long n); /* 24 */ - void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */ - VOID *reserved26; - VOID *reserved27; - Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */ - VOID *reserved29; - VOID *reserved30; - CONST char * (*tclGetExtension) (CONST char *name); /* 31 */ - int (*tclGetFrame) (Tcl_Interp *interp, CONST char *str, CallFrame **framePtrPtr); /* 32 */ - VOID *reserved33; - int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */ - VOID *reserved35; - int (*tclGetLong) (Tcl_Interp *interp, CONST char *str, long *longPtr); /* 36 */ - int (*tclGetLoadedPackages) (Tcl_Interp *interp, char *targetName); /* 37 */ - int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, CONST char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, CONST char **simpleNamePtr); /* 38 */ - TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ - int (*tclGetOpenMode) (Tcl_Interp *interp, CONST char *str, int *seekFlagPtr); /* 40 */ - Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ - char * (*tclpGetUserHome) (CONST char *name, Tcl_DString *bufferPtr); /* 42 */ - VOID *reserved43; - int (*tclGuessPackageName) (CONST char *fileName, Tcl_DString *bufPtr); /* 44 */ - int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ - int (*tclInExit) (void); /* 46 */ - VOID *reserved47; - VOID *reserved48; - VOID *reserved49; - void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */ - int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ - VOID *reserved52; - int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */ - int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */ - Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */ - VOID *reserved56; - VOID *reserved57; - Var * (*tclLookupVar) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, CONST char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */ - VOID *reserved59; - int (*tclNeedSpace) (CONST char *start, CONST char *end); /* 60 */ - Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */ - int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */ - int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */ - int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */ - VOID *reserved65; - VOID *reserved66; - VOID *reserved67; - VOID *reserved68; - char * (*tclpAlloc) (unsigned int size); /* 69 */ - VOID *reserved70; - VOID *reserved71; - VOID *reserved72; - VOID *reserved73; - void (*tclpFree) (char *ptr); /* 74 */ - unsigned long (*tclpGetClicks) (void); /* 75 */ - unsigned long (*tclpGetSeconds) (void); /* 76 */ - void (*tclpGetTime) (Tcl_Time *time); /* 77 */ - int (*tclpGetTimeZone) (unsigned long time); /* 78 */ - VOID *reserved79; - VOID *reserved80; - char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */ - VOID *reserved82; - VOID *reserved83; - VOID *reserved84; - VOID *reserved85; - VOID *reserved86; - VOID *reserved87; - char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, CONST char *name1, CONST char *name2, int flags); /* 88 */ - int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */ - VOID *reserved90; - void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */ - int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, CONST char *procName); /* 92 */ - void (*tclProcDeleteProc) (ClientData clientData); /* 93 */ - VOID *reserved94; - VOID *reserved95; - int (*tclRenameCommand) (Tcl_Interp *interp, CONST char *oldName, CONST char *newName); /* 96 */ - void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */ - int (*tclServiceIdle) (void); /* 98 */ - VOID *reserved99; - VOID *reserved100; - char * (*tclSetPreInitScript) (char *string); /* 101 */ - void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */ - int (*tclSockGetPort) (Tcl_Interp *interp, CONST char *str, CONST char *proto, int *portPtr); /* 103 */ - int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */ - VOID *reserved105; - VOID *reserved106; - VOID *reserved107; - void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */ - int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */ - int (*tclSockMinimumBuffers) (VOID *sock, int size); /* 110 */ - void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 115 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */ - int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolverInfo *resInfo); /* 118 */ - int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */ - Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 121 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */ - void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 127 */ - void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */ - int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */ - int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, CONST char *name); /* 130 */ - void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */ - int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */ - struct tm * (*tclpGetDate) (CONST time_t *time, int useGMT); /* 133 */ - VOID *reserved134; - VOID *reserved135; - VOID *reserved136; - VOID *reserved137; - CONST84_RETURN char * (*tclGetEnv) (CONST char *name, Tcl_DString *valuePtr); /* 138 */ - VOID *reserved139; - VOID *reserved140; - CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */ - int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */ - int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */ - void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */ - struct AuxDataType * (*tclGetAuxDataType) (char *typeName); /* 145 */ - TclHandle (*tclHandleCreate) (VOID *ptr); /* 146 */ - void (*tclHandleFree) (TclHandle handle); /* 147 */ - TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */ - void (*tclHandleRelease) (TclHandle handle); /* 149 */ - int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */ - void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */ - void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ - VOID *reserved154; - VOID *reserved155; - void (*tclRegError) (Tcl_Interp *interp, CONST char *msg, int status); /* 156 */ - Var * (*tclVarTraceExists) (Tcl_Interp *interp, CONST char *varName); /* 157 */ - void (*tclSetStartupScriptFileName) (CONST char *filename); /* 158 */ - CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */ - VOID *reserved160; - int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */ - void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */ - VOID * (*tclGetInstructionTable) (void); /* 163 */ - void (*tclExpandCodeArray) (VOID *envPtr); /* 164 */ - void (*tclpSetInitialEncodings) (void); /* 165 */ - int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */ - void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */ - Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */ - int (*tclpUtfNcmp2) (CONST char *s1, CONST char *s2, unsigned long n); /* 169 */ - int (*tclCheckInterpTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */ - int (*tclCheckExecutionTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */ - int (*tclInThreadExit) (void); /* 172 */ - int (*tclUniCharMatch) (CONST Tcl_UniChar *string, int strLen, CONST Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */ - VOID *reserved174; - int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, CONST char *part1, CONST char *part2, int flags, int leaveErrMsg); /* 175 */ - void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */ - void (*tclVarErrMsg) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *operation, CONST char *reason); /* 177 */ - void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, CONST char *encodingName); /* 178 */ - Tcl_Obj * (*tcl_GetStartupScript) (CONST char **encodingNamePtr); /* 179 */ - VOID *reserved180; - VOID *reserved181; - struct tm * (*tclpLocaltime) (CONST time_t *clock); /* 182 */ - struct tm * (*tclpGmtime) (CONST time_t *clock); /* 183 */ - VOID *reserved184; - VOID *reserved185; - VOID *reserved186; - VOID *reserved187; - VOID *reserved188; - VOID *reserved189; - VOID *reserved190; - VOID *reserved191; - VOID *reserved192; - VOID *reserved193; - VOID *reserved194; - VOID *reserved195; - VOID *reserved196; - VOID *reserved197; - int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */ - VOID *reserved199; - int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */ - int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */ - int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */ - int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */ - int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */ - int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */ - int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */ - int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */ - Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */ - VOID *reserved209; - VOID *reserved210; - VOID *reserved211; - void (*tclpFindExecutable) (CONST char *argv0); /* 212 */ - Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */ - void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */ - VOID * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */ - void (*tclStackFree) (Tcl_Interp *interp, VOID *freePtr); /* 216 */ - int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */ - void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */ - VOID *reserved219; - VOID *reserved220; - VOID *reserved221; - VOID *reserved222; - VOID *reserved223; - TclPlatformType * (*tclGetPlatform) (void); /* 224 */ - Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */ - int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ - void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */ - int (*tclObjInterpProcCore) (register Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc errorProc); /* 228 */ - int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, CONST char *myName, int myFlags, int index); /* 229 */ - Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, CONST char *part2, int flags, CONST char *msg, CONST int createPart1, CONST int createPart2, Var **arrayPtrPtr); /* 230 */ - int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */ - int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, CONST CmdFrame *invoker, int word); /* 232 */ - void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */ - Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, CONST char *key, int *newPtr); /* 234 */ - void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */ - void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */ - VOID *reserved237; - VOID *reserved238; - VOID *reserved239; - VOID *reserved240; - VOID *reserved241; - VOID *reserved242; - void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */ - VOID *reserved244; - VOID *reserved245; - VOID *reserved246; - VOID *reserved247; - VOID *reserved248; - char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */ - VOID *reserved250; - VOID *reserved251; - VOID *reserved252; - VOID *reserved253; - VOID *reserved254; - VOID *reserved255; - VOID *reserved256; - VOID *reserved257; - VOID *reserved258; - void (*tclUnusedStubEntry) (void); /* 259 */ -} TclIntStubs; - -extern TclIntStubs *tclIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TclAllocateFreeObjects -#define TclAllocateFreeObjects \ - (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -#endif -/* Slot 4 is reserved */ -#ifndef TclCleanupChildren -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#ifndef TclCleanupCommand -#define TclCleanupCommand \ - (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#endif -#ifndef TclCopyAndCollapse -#define TclCopyAndCollapse \ - (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#endif -#ifndef TclCopyChannel -#define TclCopyChannel \ - (tclIntStubsPtr->tclCopyChannel) /* 8 */ -#endif -#ifndef TclCreatePipeline -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#ifndef TclCreateProc -#define TclCreateProc \ - (tclIntStubsPtr->tclCreateProc) /* 10 */ -#endif -#ifndef TclDeleteCompiledLocalVars -#define TclDeleteCompiledLocalVars \ - (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ -#endif -#ifndef TclDeleteVars -#define TclDeleteVars \ - (tclIntStubsPtr->tclDeleteVars) /* 12 */ -#endif -/* Slot 13 is reserved */ -#ifndef TclDumpMemoryInfo -#define TclDumpMemoryInfo \ - (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError -#define TclExprFloatError \ - (tclIntStubsPtr->tclExprFloatError) /* 16 */ -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement -#define TclFindElement \ - (tclIntStubsPtr->tclFindElement) /* 22 */ -#endif -#ifndef TclFindProc -#define TclFindProc \ - (tclIntStubsPtr->tclFindProc) /* 23 */ -#endif -#ifndef TclFormatInt -#define TclFormatInt \ - (tclIntStubsPtr->tclFormatInt) /* 24 */ -#endif -#ifndef TclFreePackageInfo -#define TclFreePackageInfo \ - (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ -#endif -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -#ifndef TclpGetDefaultStdChannel -#define TclpGetDefaultStdChannel \ - (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension -#define TclGetExtension \ - (tclIntStubsPtr->tclGetExtension) /* 31 */ -#endif -#ifndef TclGetFrame -#define TclGetFrame \ - (tclIntStubsPtr->tclGetFrame) /* 32 */ -#endif -/* Slot 33 is reserved */ -#ifndef TclGetIntForIndex -#define TclGetIntForIndex \ - (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong -#define TclGetLong \ - (tclIntStubsPtr->tclGetLong) /* 36 */ -#endif -#ifndef TclGetLoadedPackages -#define TclGetLoadedPackages \ - (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ -#endif -#ifndef TclGetNamespaceForQualName -#define TclGetNamespaceForQualName \ - (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ -#endif -#ifndef TclGetObjInterpProc -#define TclGetObjInterpProc \ - (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ -#endif -#ifndef TclGetOpenMode -#define TclGetOpenMode \ - (tclIntStubsPtr->tclGetOpenMode) /* 40 */ -#endif -#ifndef TclGetOriginalCommand -#define TclGetOriginalCommand \ - (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ -#endif -#ifndef TclpGetUserHome -#define TclpGetUserHome \ - (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -#endif -/* Slot 43 is reserved */ -#ifndef TclGuessPackageName -#define TclGuessPackageName \ - (tclIntStubsPtr->tclGuessPackageName) /* 44 */ -#endif -#ifndef TclHideUnsafeCommands -#define TclHideUnsafeCommands \ - (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ -#endif -#ifndef TclInExit -#define TclInExit \ - (tclIntStubsPtr->tclInExit) /* 46 */ -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -#ifndef TclInitCompiledLocals -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ -#endif -#ifndef TclInterpInit -#define TclInterpInit \ - (tclIntStubsPtr->tclInterpInit) /* 51 */ -#endif -/* Slot 52 is reserved */ -#ifndef TclInvokeObjectCommand -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#endif -#ifndef TclInvokeStringCommand -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ -#endif -#ifndef TclIsProc -#define TclIsProc \ - (tclIntStubsPtr->tclIsProc) /* 55 */ -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar -#define TclLookupVar \ - (tclIntStubsPtr->tclLookupVar) /* 58 */ -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace -#define TclNeedSpace \ - (tclIntStubsPtr->tclNeedSpace) /* 60 */ -#endif -#ifndef TclNewProcBodyObj -#define TclNewProcBodyObj \ - (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ -#endif -#ifndef TclObjCommandComplete -#define TclObjCommandComplete \ - (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ -#endif -#ifndef TclObjInterpProc -#define TclObjInterpProc \ - (tclIntStubsPtr->tclObjInterpProc) /* 63 */ -#endif -#ifndef TclObjInvoke -#define TclObjInvoke \ - (tclIntStubsPtr->tclObjInvoke) /* 64 */ -#endif -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -#ifndef TclpAlloc -#define TclpAlloc \ - (tclIntStubsPtr->tclpAlloc) /* 69 */ -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree -#define TclpFree \ - (tclIntStubsPtr->tclpFree) /* 74 */ -#endif -#ifndef TclpGetClicks -#define TclpGetClicks \ - (tclIntStubsPtr->tclpGetClicks) /* 75 */ -#endif -#ifndef TclpGetSeconds -#define TclpGetSeconds \ - (tclIntStubsPtr->tclpGetSeconds) /* 76 */ -#endif -#ifndef TclpGetTime -#define TclpGetTime \ - (tclIntStubsPtr->tclpGetTime) /* 77 */ -#endif -#ifndef TclpGetTimeZone -#define TclpGetTimeZone \ - (tclIntStubsPtr->tclpGetTimeZone) /* 78 */ -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc -#define TclpRealloc \ - (tclIntStubsPtr->tclpRealloc) /* 81 */ -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc -#define TclPrecTraceProc \ - (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ -#endif -#ifndef TclPreventAliasLoop -#define TclPreventAliasLoop \ - (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc -#define TclProcCleanupProc \ - (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ -#endif -#ifndef TclProcCompileProc -#define TclProcCompileProc \ - (tclIntStubsPtr->tclProcCompileProc) /* 92 */ -#endif -#ifndef TclProcDeleteProc -#define TclProcDeleteProc \ - (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ -#endif -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -#ifndef TclRenameCommand -#define TclRenameCommand \ - (tclIntStubsPtr->tclRenameCommand) /* 96 */ -#endif -#ifndef TclResetShadowedCmdRefs -#define TclResetShadowedCmdRefs \ - (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ -#endif -#ifndef TclServiceIdle -#define TclServiceIdle \ - (tclIntStubsPtr->tclServiceIdle) /* 98 */ -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#endif -#ifndef TclSetupEnv -#define TclSetupEnv \ - (tclIntStubsPtr->tclSetupEnv) /* 102 */ -#endif -#ifndef TclSockGetPort -#define TclSockGetPort \ - (tclIntStubsPtr->tclSockGetPort) /* 103 */ -#endif -#ifndef TclSockMinimumBuffersOld -#define TclSockMinimumBuffersOld \ - (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */ -#endif -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -#ifndef TclTeardownNamespace -#define TclTeardownNamespace \ - (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ -#endif -#ifndef TclUpdateReturnInfo -#define TclUpdateReturnInfo \ - (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ -#endif -#ifndef TclSockMinimumBuffers -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */ -#endif -#ifndef Tcl_AddInterpResolvers -#define Tcl_AddInterpResolvers \ - (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclIntStubsPtr->tcl_Export) /* 115 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclIntStubsPtr->tcl_FindCommand) /* 116 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ -#endif -#ifndef Tcl_GetInterpResolvers -#define Tcl_GetInterpResolvers \ - (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ -#endif -#ifndef Tcl_GetNamespaceResolvers -#define Tcl_GetNamespaceResolvers \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ -#endif -#ifndef Tcl_FindNamespaceVar -#define Tcl_FindNamespaceVar \ - (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ -#endif -#ifndef Tcl_GetVariableFullName -#define Tcl_GetVariableFullName \ - (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclIntStubsPtr->tcl_Import) /* 127 */ -#endif -#ifndef Tcl_PopCallFrame -#define Tcl_PopCallFrame \ - (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ -#endif -#ifndef Tcl_PushCallFrame -#define Tcl_PushCallFrame \ - (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ -#endif -#ifndef Tcl_RemoveInterpResolvers -#define Tcl_RemoveInterpResolvers \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ -#endif -#ifndef Tcl_SetNamespaceResolvers -#define Tcl_SetNamespaceResolvers \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ -#endif -#ifndef TclpHasSockets -#define TclpHasSockets \ - (tclIntStubsPtr->tclpHasSockets) /* 132 */ -#endif -#ifndef TclpGetDate -#define TclpGetDate \ - (tclIntStubsPtr->tclpGetDate) /* 133 */ -#endif -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv -#define TclGetEnv \ - (tclIntStubsPtr->tclGetEnv) /* 138 */ -#endif -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -#ifndef TclpGetCwd -#define TclpGetCwd \ - (tclIntStubsPtr->tclpGetCwd) /* 141 */ -#endif -#ifndef TclSetByteCodeFromAny -#define TclSetByteCodeFromAny \ - (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ -#endif -#ifndef TclAddLiteralObj -#define TclAddLiteralObj \ - (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ -#endif -#ifndef TclHideLiteral -#define TclHideLiteral \ - (tclIntStubsPtr->tclHideLiteral) /* 144 */ -#endif -#ifndef TclGetAuxDataType -#define TclGetAuxDataType \ - (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ -#endif -#ifndef TclHandleCreate -#define TclHandleCreate \ - (tclIntStubsPtr->tclHandleCreate) /* 146 */ -#endif -#ifndef TclHandleFree -#define TclHandleFree \ - (tclIntStubsPtr->tclHandleFree) /* 147 */ -#endif -#ifndef TclHandlePreserve -#define TclHandlePreserve \ - (tclIntStubsPtr->tclHandlePreserve) /* 148 */ -#endif -#ifndef TclHandleRelease -#define TclHandleRelease \ - (tclIntStubsPtr->tclHandleRelease) /* 149 */ -#endif -#ifndef TclRegAbout -#define TclRegAbout \ - (tclIntStubsPtr->tclRegAbout) /* 150 */ -#endif -#ifndef TclRegExpRangeUniChar -#define TclRegExpRangeUniChar \ - (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#endif -#ifndef TclSetLibraryPath -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#endif -#ifndef TclGetLibraryPath -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError -#define TclRegError \ - (tclIntStubsPtr->tclRegError) /* 156 */ -#endif -#ifndef TclVarTraceExists -#define TclVarTraceExists \ - (tclIntStubsPtr->tclVarTraceExists) /* 157 */ -#endif -#ifndef TclSetStartupScriptFileName -#define TclSetStartupScriptFileName \ - (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ -#endif -#ifndef TclGetStartupScriptFileName -#define TclGetStartupScriptFileName \ - (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform -#define TclChannelTransform \ - (tclIntStubsPtr->tclChannelTransform) /* 161 */ -#endif -#ifndef TclChannelEventScriptInvoker -#define TclChannelEventScriptInvoker \ - (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ -#endif -#ifndef TclGetInstructionTable -#define TclGetInstructionTable \ - (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ -#endif -#ifndef TclExpandCodeArray -#define TclExpandCodeArray \ - (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ -#endif -#ifndef TclpSetInitialEncodings -#define TclpSetInitialEncodings \ - (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ -#endif -#ifndef TclListObjSetElement -#define TclListObjSetElement \ - (tclIntStubsPtr->tclListObjSetElement) /* 166 */ -#endif -#ifndef TclSetStartupScriptPath -#define TclSetStartupScriptPath \ - (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ -#endif -#ifndef TclGetStartupScriptPath -#define TclGetStartupScriptPath \ - (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ -#endif -#ifndef TclpUtfNcmp2 -#define TclpUtfNcmp2 \ - (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ -#endif -#ifndef TclCheckInterpTraces -#define TclCheckInterpTraces \ - (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ -#endif -#ifndef TclCheckExecutionTraces -#define TclCheckExecutionTraces \ - (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ -#endif -#ifndef TclInThreadExit -#define TclInThreadExit \ - (tclIntStubsPtr->tclInThreadExit) /* 172 */ -#endif -#ifndef TclUniCharMatch -#define TclUniCharMatch \ - (tclIntStubsPtr->tclUniCharMatch) /* 173 */ -#endif -/* Slot 174 is reserved */ -#ifndef TclCallVarTraces -#define TclCallVarTraces \ - (tclIntStubsPtr->tclCallVarTraces) /* 175 */ -#endif -#ifndef TclCleanupVar -#define TclCleanupVar \ - (tclIntStubsPtr->tclCleanupVar) /* 176 */ -#endif -#ifndef TclVarErrMsg -#define TclVarErrMsg \ - (tclIntStubsPtr->tclVarErrMsg) /* 177 */ -#endif -#ifndef Tcl_SetStartupScript -#define Tcl_SetStartupScript \ - (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ -#endif -#ifndef Tcl_GetStartupScript -#define Tcl_GetStartupScript \ - (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ -#endif -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -#ifndef TclpLocaltime -#define TclpLocaltime \ - (tclIntStubsPtr->tclpLocaltime) /* 182 */ -#endif -#ifndef TclpGmtime -#define TclpGmtime \ - (tclIntStubsPtr->tclpGmtime) /* 183 */ -#endif -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -#ifndef TclObjGetFrame -#define TclObjGetFrame \ - (tclIntStubsPtr->tclObjGetFrame) /* 198 */ -#endif -/* Slot 199 is reserved */ -#ifndef TclpObjRemoveDirectory -#define TclpObjRemoveDirectory \ - (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */ -#endif -#ifndef TclpObjCopyDirectory -#define TclpObjCopyDirectory \ - (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */ -#endif -#ifndef TclpObjCreateDirectory -#define TclpObjCreateDirectory \ - (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */ -#endif -#ifndef TclpObjDeleteFile -#define TclpObjDeleteFile \ - (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */ -#endif -#ifndef TclpObjCopyFile -#define TclpObjCopyFile \ - (tclIntStubsPtr->tclpObjCopyFile) /* 204 */ -#endif -#ifndef TclpObjRenameFile -#define TclpObjRenameFile \ - (tclIntStubsPtr->tclpObjRenameFile) /* 205 */ -#endif -#ifndef TclpObjStat -#define TclpObjStat \ - (tclIntStubsPtr->tclpObjStat) /* 206 */ -#endif -#ifndef TclpObjAccess -#define TclpObjAccess \ - (tclIntStubsPtr->tclpObjAccess) /* 207 */ -#endif -#ifndef TclpOpenFileChannel -#define TclpOpenFileChannel \ - (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ -#endif -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -#ifndef TclpFindExecutable -#define TclpFindExecutable \ - (tclIntStubsPtr->tclpFindExecutable) /* 212 */ -#endif -#ifndef TclGetObjNameOfExecutable -#define TclGetObjNameOfExecutable \ - (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */ -#endif -#ifndef TclSetObjNameOfExecutable -#define TclSetObjNameOfExecutable \ - (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */ -#endif -#ifndef TclStackAlloc -#define TclStackAlloc \ - (tclIntStubsPtr->tclStackAlloc) /* 215 */ -#endif -#ifndef TclStackFree -#define TclStackFree \ - (tclIntStubsPtr->tclStackFree) /* 216 */ -#endif -#ifndef TclPushStackFrame -#define TclPushStackFrame \ - (tclIntStubsPtr->tclPushStackFrame) /* 217 */ -#endif -#ifndef TclPopStackFrame -#define TclPopStackFrame \ - (tclIntStubsPtr->tclPopStackFrame) /* 218 */ -#endif -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -#ifndef TclGetPlatform -#define TclGetPlatform \ - (tclIntStubsPtr->tclGetPlatform) /* 224 */ -#endif -#ifndef TclTraceDictPath -#define TclTraceDictPath \ - (tclIntStubsPtr->tclTraceDictPath) /* 225 */ -#endif -#ifndef TclObjBeingDeleted -#define TclObjBeingDeleted \ - (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */ -#endif -#ifndef TclSetNsPath -#define TclSetNsPath \ - (tclIntStubsPtr->tclSetNsPath) /* 227 */ -#endif -#ifndef TclObjInterpProcCore -#define TclObjInterpProcCore \ - (tclIntStubsPtr->tclObjInterpProcCore) /* 228 */ -#endif -#ifndef TclPtrMakeUpvar -#define TclPtrMakeUpvar \ - (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */ -#endif -#ifndef TclObjLookupVar -#define TclObjLookupVar \ - (tclIntStubsPtr->tclObjLookupVar) /* 230 */ -#endif -#ifndef TclGetNamespaceFromObj -#define TclGetNamespaceFromObj \ - (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */ -#endif -#ifndef TclEvalObjEx -#define TclEvalObjEx \ - (tclIntStubsPtr->tclEvalObjEx) /* 232 */ -#endif -#ifndef TclGetSrcInfoForPc -#define TclGetSrcInfoForPc \ - (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */ -#endif -#ifndef TclVarHashCreateVar -#define TclVarHashCreateVar \ - (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ -#endif -#ifndef TclInitVarHashTable -#define TclInitVarHashTable \ - (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ -#endif -#ifndef TclBackgroundException -#define TclBackgroundException \ - (tclIntStubsPtr->tclBackgroundException) /* 236 */ -#endif -/* Slot 237 is reserved */ -/* Slot 238 is reserved */ -/* Slot 239 is reserved */ -/* Slot 240 is reserved */ -/* Slot 241 is reserved */ -/* Slot 242 is reserved */ -#ifndef TclDbDumpActiveObjects -#define TclDbDumpActiveObjects \ - (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ -#endif -/* Slot 244 is reserved */ -/* Slot 245 is reserved */ -/* Slot 246 is reserved */ -/* Slot 247 is reserved */ -/* Slot 248 is reserved */ -#ifndef TclDoubleDigits -#define TclDoubleDigits \ - (tclIntStubsPtr->tclDoubleDigits) /* 249 */ -#endif -/* Slot 250 is reserved */ -/* Slot 251 is reserved */ -/* Slot 252 is reserved */ -/* Slot 253 is reserved */ -/* Slot 254 is reserved */ -/* Slot 255 is reserved */ -/* Slot 256 is reserved */ -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -#ifndef TclUnusedStubEntry -#define TclUnusedStubEntry \ - (tclIntStubsPtr->tclUnusedStubEntry) /* 259 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#if !defined(_WIN64) -/* See bug 510001: TclSockMinimumBuffers needs plat imp */ -# undef TclSockMinimumBuffers -# define TclSockMinimumBuffers(a,b) TclSockMinimumBuffersOld(PTR2INT(a),b) -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED) -# undef Tcl_CreateNamespace -# define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -# undef Tcl_DeleteNamespace -# define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -# undef Tcl_AppendExportList -# define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -# undef Tcl_Export -# define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -# undef Tcl_Import -# define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -# undef Tcl_ForgetImport -# define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -# undef Tcl_GetCurrentNamespace -# define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -# undef Tcl_GetGlobalNamespace -# define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -# undef Tcl_FindNamespace -# define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -# undef Tcl_FindCommand -# define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -# undef Tcl_GetCommandFromObj -# define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -# undef Tcl_GetCommandFullName -# define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif - -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclIntPlatDecls.h deleted file mode 100644 index 4d2bd0a63..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclIntPlatDecls.h +++ /dev/null @@ -1,859 +0,0 @@ -/* - * tclIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLINTPLATDECLS -#define _TCLINTPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef TclGetAndDetachPids_TCL_DECLARED -#define TclGetAndDetachPids_TCL_DECLARED -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef TclpCloseFile_TCL_DECLARED -#define TclpCloseFile_TCL_DECLARED -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -#endif -#ifndef TclpCreateCommandChannel_TCL_DECLARED -#define TclpCreateCommandChannel_TCL_DECLARED -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef TclpCreatePipe_TCL_DECLARED -#define TclpCreatePipe_TCL_DECLARED -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -#endif -#ifndef TclpCreateProcess_TCL_DECLARED -#define TclpCreateProcess_TCL_DECLARED -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - CONST char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile_TCL_DECLARED -#define TclpMakeFile_TCL_DECLARED -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -#endif -#ifndef TclpOpenFile_TCL_DECLARED -#define TclpOpenFile_TCL_DECLARED -/* 7 */ -EXTERN TclFile TclpOpenFile(CONST char *fname, int mode); -#endif -#ifndef TclUnixWaitForFile_TCL_DECLARED -#define TclUnixWaitForFile_TCL_DECLARED -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -#endif -#ifndef TclpCreateTempFile_TCL_DECLARED -#define TclpCreateTempFile_TCL_DECLARED -/* 9 */ -EXTERN TclFile TclpCreateTempFile(CONST char *contents); -#endif -#ifndef TclpReaddir_TCL_DECLARED -#define TclpReaddir_TCL_DECLARED -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -#endif -#ifndef TclpLocaltime_unix_TCL_DECLARED -#define TclpLocaltime_unix_TCL_DECLARED -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(CONST time_t *clock); -#endif -#ifndef TclpGmtime_unix_TCL_DECLARED -#define TclpGmtime_unix_TCL_DECLARED -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(CONST time_t *clock); -#endif -#ifndef TclpInetNtoa_TCL_DECLARED -#define TclpInetNtoa_TCL_DECLARED -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -#endif -#ifndef TclUnixCopyFile_TCL_DECLARED -#define TclUnixCopyFile_TCL_DECLARED -/* 14 */ -EXTERN int TclUnixCopyFile(CONST char *src, CONST char *dst, - CONST Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -#endif -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID_TCL_DECLARED -#define TclWinCPUID_TCL_DECLARED -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -#endif -#endif /* UNIX */ -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TclWinConvertError_TCL_DECLARED -#define TclWinConvertError_TCL_DECLARED -/* 0 */ -EXTERN void TclWinConvertError(DWORD errCode); -#endif -#ifndef TclWinConvertWSAError_TCL_DECLARED -#define TclWinConvertWSAError_TCL_DECLARED -/* 1 */ -EXTERN void TclWinConvertWSAError(DWORD errCode); -#endif -#ifndef TclWinGetServByName_TCL_DECLARED -#define TclWinGetServByName_TCL_DECLARED -/* 2 */ -EXTERN struct servent * TclWinGetServByName(CONST char *nm, - CONST char *proto); -#endif -#ifndef TclWinGetSockOpt_TCL_DECLARED -#define TclWinGetSockOpt_TCL_DECLARED -/* 3 */ -EXTERN int TclWinGetSockOpt(SOCKET s, int level, int optname, - char *optval, int *optlen); -#endif -#ifndef TclWinGetTclInstance_TCL_DECLARED -#define TclWinGetTclInstance_TCL_DECLARED -/* 4 */ -EXTERN HINSTANCE TclWinGetTclInstance(void); -#endif -#ifndef TclUnixWaitForFile_TCL_DECLARED -#define TclUnixWaitForFile_TCL_DECLARED -/* 5 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -#endif -#ifndef TclWinNToHS_TCL_DECLARED -#define TclWinNToHS_TCL_DECLARED -/* 6 */ -EXTERN unsigned short TclWinNToHS(unsigned short ns); -#endif -#ifndef TclWinSetSockOpt_TCL_DECLARED -#define TclWinSetSockOpt_TCL_DECLARED -/* 7 */ -EXTERN int TclWinSetSockOpt(SOCKET s, int level, int optname, - CONST char *optval, int optlen); -#endif -#ifndef TclpGetPid_TCL_DECLARED -#define TclpGetPid_TCL_DECLARED -/* 8 */ -EXTERN int TclpGetPid(Tcl_Pid pid); -#endif -#ifndef TclWinGetPlatformId_TCL_DECLARED -#define TclWinGetPlatformId_TCL_DECLARED -/* 9 */ -EXTERN int TclWinGetPlatformId(void); -#endif -#ifndef TclpReaddir_TCL_DECLARED -#define TclpReaddir_TCL_DECLARED -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -#endif -#ifndef TclGetAndDetachPids_TCL_DECLARED -#define TclGetAndDetachPids_TCL_DECLARED -/* 11 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef TclpCloseFile_TCL_DECLARED -#define TclpCloseFile_TCL_DECLARED -/* 12 */ -EXTERN int TclpCloseFile(TclFile file); -#endif -#ifndef TclpCreateCommandChannel_TCL_DECLARED -#define TclpCreateCommandChannel_TCL_DECLARED -/* 13 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef TclpCreatePipe_TCL_DECLARED -#define TclpCreatePipe_TCL_DECLARED -/* 14 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -#endif -#ifndef TclpCreateProcess_TCL_DECLARED -#define TclpCreateProcess_TCL_DECLARED -/* 15 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - CONST char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -#endif -#ifndef TclpIsAtty_TCL_DECLARED -#define TclpIsAtty_TCL_DECLARED -/* 16 */ -EXTERN int TclpIsAtty(int fd); -#endif -#ifndef TclUnixCopyFile_TCL_DECLARED -#define TclUnixCopyFile_TCL_DECLARED -/* 17 */ -EXTERN int TclUnixCopyFile(CONST char *src, CONST char *dst, - CONST Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -#endif -#ifndef TclpMakeFile_TCL_DECLARED -#define TclpMakeFile_TCL_DECLARED -/* 18 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -#endif -#ifndef TclpOpenFile_TCL_DECLARED -#define TclpOpenFile_TCL_DECLARED -/* 19 */ -EXTERN TclFile TclpOpenFile(CONST char *fname, int mode); -#endif -#ifndef TclWinAddProcess_TCL_DECLARED -#define TclWinAddProcess_TCL_DECLARED -/* 20 */ -EXTERN void TclWinAddProcess(HANDLE hProcess, DWORD id); -#endif -#ifndef TclpInetNtoa_TCL_DECLARED -#define TclpInetNtoa_TCL_DECLARED -/* 21 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -#endif -#ifndef TclpCreateTempFile_TCL_DECLARED -#define TclpCreateTempFile_TCL_DECLARED -/* 22 */ -EXTERN TclFile TclpCreateTempFile(CONST char *contents); -#endif -#ifndef TclpGetTZName_TCL_DECLARED -#define TclpGetTZName_TCL_DECLARED -/* 23 */ -EXTERN char * TclpGetTZName(int isdst); -#endif -#ifndef TclWinNoBackslash_TCL_DECLARED -#define TclWinNoBackslash_TCL_DECLARED -/* 24 */ -EXTERN char * TclWinNoBackslash(char *path); -#endif -/* Slot 25 is reserved */ -#ifndef TclWinSetInterfaces_TCL_DECLARED -#define TclWinSetInterfaces_TCL_DECLARED -/* 26 */ -EXTERN void TclWinSetInterfaces(int wide); -#endif -#ifndef TclWinFlushDirtyChannels_TCL_DECLARED -#define TclWinFlushDirtyChannels_TCL_DECLARED -/* 27 */ -EXTERN void TclWinFlushDirtyChannels(void); -#endif -#ifndef TclWinResetInterfaces_TCL_DECLARED -#define TclWinResetInterfaces_TCL_DECLARED -/* 28 */ -EXTERN void TclWinResetInterfaces(void); -#endif -#ifndef TclWinCPUID_TCL_DECLARED -#define TclWinCPUID_TCL_DECLARED -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef TclGetAndDetachPids_TCL_DECLARED -#define TclGetAndDetachPids_TCL_DECLARED -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef TclpCloseFile_TCL_DECLARED -#define TclpCloseFile_TCL_DECLARED -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -#endif -#ifndef TclpCreateCommandChannel_TCL_DECLARED -#define TclpCreateCommandChannel_TCL_DECLARED -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef TclpCreatePipe_TCL_DECLARED -#define TclpCreatePipe_TCL_DECLARED -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -#endif -#ifndef TclpCreateProcess_TCL_DECLARED -#define TclpCreateProcess_TCL_DECLARED -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - CONST char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile_TCL_DECLARED -#define TclpMakeFile_TCL_DECLARED -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -#endif -#ifndef TclpOpenFile_TCL_DECLARED -#define TclpOpenFile_TCL_DECLARED -/* 7 */ -EXTERN TclFile TclpOpenFile(CONST char *fname, int mode); -#endif -#ifndef TclUnixWaitForFile_TCL_DECLARED -#define TclUnixWaitForFile_TCL_DECLARED -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -#endif -#ifndef TclpCreateTempFile_TCL_DECLARED -#define TclpCreateTempFile_TCL_DECLARED -/* 9 */ -EXTERN TclFile TclpCreateTempFile(CONST char *contents); -#endif -#ifndef TclpReaddir_TCL_DECLARED -#define TclpReaddir_TCL_DECLARED -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -#endif -#ifndef TclpLocaltime_unix_TCL_DECLARED -#define TclpLocaltime_unix_TCL_DECLARED -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(CONST time_t *clock); -#endif -#ifndef TclpGmtime_unix_TCL_DECLARED -#define TclpGmtime_unix_TCL_DECLARED -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(CONST time_t *clock); -#endif -#ifndef TclpInetNtoa_TCL_DECLARED -#define TclpInetNtoa_TCL_DECLARED -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -#endif -#ifndef TclUnixCopyFile_TCL_DECLARED -#define TclUnixCopyFile_TCL_DECLARED -/* 14 */ -EXTERN int TclUnixCopyFile(CONST char *src, CONST char *dst, - CONST Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -#endif -#ifndef TclMacOSXGetFileAttribute_TCL_DECLARED -#define TclMacOSXGetFileAttribute_TCL_DECLARED -/* 15 */ -EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj **attributePtrPtr); -#endif -#ifndef TclMacOSXSetFileAttribute_TCL_DECLARED -#define TclMacOSXSetFileAttribute_TCL_DECLARED -/* 16 */ -EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj *attributePtr); -#endif -#ifndef TclMacOSXCopyFileAttributes_TCL_DECLARED -#define TclMacOSXCopyFileAttributes_TCL_DECLARED -/* 17 */ -EXTERN int TclMacOSXCopyFileAttributes(CONST char *src, - CONST char *dst, - CONST Tcl_StatBuf *statBufPtr); -#endif -#ifndef TclMacOSXMatchType_TCL_DECLARED -#define TclMacOSXMatchType_TCL_DECLARED -/* 18 */ -EXTERN int TclMacOSXMatchType(Tcl_Interp *interp, - CONST char *pathName, CONST char *fileName, - Tcl_StatBuf *statBufPtr, - Tcl_GlobTypeData *types); -#endif -#ifndef TclMacOSXNotifierAddRunLoopMode_TCL_DECLARED -#define TclMacOSXNotifierAddRunLoopMode_TCL_DECLARED -/* 19 */ -EXTERN void TclMacOSXNotifierAddRunLoopMode( - CONST VOID *runLoopMode); -#endif -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID_TCL_DECLARED -#define TclWinCPUID_TCL_DECLARED -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -#endif -#endif /* MACOSX */ - -typedef struct TclIntPlatStubs { - int magic; - struct TclIntPlatStubHooks *hooks; - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, CONST char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - VOID *reserved5; - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (CONST char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (CONST char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (CONST time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (CONST time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - VOID *reserved15; - VOID *reserved16; - VOID *reserved17; - VOID *reserved18; - VOID *reserved19; - VOID *reserved20; - VOID *reserved21; - VOID *reserved22; - VOID *reserved23; - VOID *reserved24; - VOID *reserved25; - VOID *reserved26; - VOID *reserved27; - VOID *reserved28; - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ -#endif /* UNIX */ -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - void (*tclWinConvertError) (DWORD errCode); /* 0 */ - void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */ - struct servent * (*tclWinGetServByName) (CONST char *nm, CONST char *proto); /* 2 */ - int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */ - HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */ - unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */ - int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, CONST char *optval, int optlen); /* 7 */ - int (*tclpGetPid) (Tcl_Pid pid); /* 8 */ - int (*tclWinGetPlatformId) (void); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */ - int (*tclpCloseFile) (TclFile file); /* 12 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, CONST char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */ - int (*tclpIsAtty) (int fd); /* 16 */ - int (*tclUnixCopyFile) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */ - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */ - TclFile (*tclpOpenFile) (CONST char *fname, int mode); /* 19 */ - void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */ - TclFile (*tclpCreateTempFile) (CONST char *contents); /* 22 */ - char * (*tclpGetTZName) (int isdst); /* 23 */ - char * (*tclWinNoBackslash) (char *path); /* 24 */ - VOID *reserved25; - void (*tclWinSetInterfaces) (int wide); /* 26 */ - void (*tclWinFlushDirtyChannels) (void); /* 27 */ - void (*tclWinResetInterfaces) (void); /* 28 */ - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, CONST char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - VOID *reserved5; - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (CONST char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (CONST char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (CONST time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (CONST time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */ - int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */ - int (*tclMacOSXCopyFileAttributes) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr); /* 17 */ - int (*tclMacOSXMatchType) (Tcl_Interp *interp, CONST char *pathName, CONST char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */ - void (*tclMacOSXNotifierAddRunLoopMode) (CONST VOID *runLoopMode); /* 19 */ - VOID *reserved20; - VOID *reserved21; - VOID *reserved22; - VOID *reserved23; - VOID *reserved24; - VOID *reserved25; - VOID *reserved26; - VOID *reserved27; - VOID *reserved28; - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ -#endif /* MACOSX */ -} TclIntPlatStubs; - -extern TclIntPlatStubs *tclIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclpLocaltime_unix -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#endif -#ifndef TclpGmtime_unix -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#endif -#ifndef TclUnixCopyFile -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -#endif -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#endif -#endif /* UNIX */ -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TclWinConvertError -#define TclWinConvertError \ - (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ -#endif -#ifndef TclWinConvertWSAError -#define TclWinConvertWSAError \ - (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ -#endif -#ifndef TclWinGetServByName -#define TclWinGetServByName \ - (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ -#endif -#ifndef TclWinGetSockOpt -#define TclWinGetSockOpt \ - (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ -#endif -#ifndef TclWinGetTclInstance -#define TclWinGetTclInstance \ - (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */ -#endif -#ifndef TclWinNToHS -#define TclWinNToHS \ - (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ -#endif -#ifndef TclWinSetSockOpt -#define TclWinSetSockOpt \ - (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ -#endif -#ifndef TclpGetPid -#define TclpGetPid \ - (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ -#endif -#ifndef TclWinGetPlatformId -#define TclWinGetPlatformId \ - (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ -#endif -#ifndef TclpIsAtty -#define TclpIsAtty \ - (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */ -#endif -#ifndef TclUnixCopyFile -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */ -#endif -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ -#endif -#ifndef TclWinAddProcess -#define TclWinAddProcess \ - (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ -#endif -#ifndef TclpGetTZName -#define TclpGetTZName \ - (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ -#endif -#ifndef TclWinNoBackslash -#define TclWinNoBackslash \ - (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ -#endif -/* Slot 25 is reserved */ -#ifndef TclWinSetInterfaces -#define TclWinSetInterfaces \ - (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ -#endif -#ifndef TclWinFlushDirtyChannels -#define TclWinFlushDirtyChannels \ - (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ -#endif -#ifndef TclWinResetInterfaces -#define TclWinResetInterfaces \ - (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ -#endif -#ifndef TclWinCPUID -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclpLocaltime_unix -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#endif -#ifndef TclpGmtime_unix -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#endif -#ifndef TclUnixCopyFile -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -#endif -#ifndef TclMacOSXGetFileAttribute -#define TclMacOSXGetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */ -#endif -#ifndef TclMacOSXSetFileAttribute -#define TclMacOSXSetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */ -#endif -#ifndef TclMacOSXCopyFileAttributes -#define TclMacOSXCopyFileAttributes \ - (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */ -#endif -#ifndef TclMacOSXMatchType -#define TclMacOSXMatchType \ - (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */ -#endif -#ifndef TclMacOSXNotifierAddRunLoopMode -#define TclMacOSXNotifierAddRunLoopMode \ - (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */ -#endif -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#endif -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT -#undef TclpLocaltime_unix -#undef TclpGmtime_unix - -#if defined(__WIN32__) -# undef TclWinNToHS -# undef TclWinGetServByName -# undef TclWinGetSockOpt -# undef TclWinSetSockOpt -# define TclWinNToHS ntohs -# define TclWinGetServByName getservbyname -# define TclWinGetSockOpt getsockopt -# define TclWinSetSockOpt setsockopt -#else -# undef TclpGetPid -# define TclpGetPid(pid) ((unsigned long) (pid)) -#endif - -#endif /* _TCLINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclPlatDecls.h deleted file mode 100644 index ef23c8455..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclPlatDecls.h +++ /dev/null @@ -1,136 +0,0 @@ -/* - * tclPlatDecls.h -- - * - * Declarations of platform specific Tcl APIs. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLPLATDECLS -#define _TCLPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * TCHAR is needed here for win32, so if it is not defined yet do it here. - * This way, we don't need to include just for one define. - */ -#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) -# if defined(_UNICODE) - typedef wchar_t TCHAR; -# else - typedef char TCHAR; -# endif -# define _TCHAR_DEFINED -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tcl_WinUtfToTChar_TCL_DECLARED -#define Tcl_WinUtfToTChar_TCL_DECLARED -/* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_WinTCharToUtf_TCL_DECLARED -#define Tcl_WinTCharToUtf_TCL_DECLARED -/* 1 */ -EXTERN char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, - Tcl_DString *dsPtr); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED -#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED -/* 0 */ -EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, - CONST char *bundleName, int hasResourceFile, - int maxPathLen, char *libraryPath); -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED -#define Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources( - Tcl_Interp *interp, CONST char *bundleName, - CONST char *bundleVersion, - int hasResourceFile, int maxPathLen, - char *libraryPath); -#endif -#endif /* MACOSX */ - -typedef struct TclPlatStubs { - int magic; - struct TclPlatStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - TCHAR * (*tcl_WinUtfToTChar) (CONST char *str, int len, Tcl_DString *dsPtr); /* 0 */ - char * (*tcl_WinTCharToUtf) (CONST TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, CONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ - int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */ -#endif /* MACOSX */ -} TclPlatStubs; - -extern TclPlatStubs *tclPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tcl_WinUtfToTChar -#define Tcl_WinUtfToTChar \ - (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ -#endif -#ifndef Tcl_WinTCharToUtf -#define Tcl_WinTCharToUtf \ - (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_MacOSXOpenBundleResources -#define Tcl_MacOSXOpenBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#endif -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLPLATDECLS */ - - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclPort.h deleted file mode 100644 index 94855677d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclPort.h +++ /dev/null @@ -1,46 +0,0 @@ -/* - * tclPort.h -- - * - * This header file handles porting issues that occur because - * of differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1994-1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLPORT -#define _TCLPORT - -#ifdef HAVE_TCL_CONFIG_H -#include "tclConfig.h" -#endif -#if defined(_WIN32) -# include "tclWinPort.h" -#else -# include "tclUnixPort.h" -#endif -#include "tcl.h" - -#if !defined(LLONG_MIN) -# ifdef TCL_WIDE_INT_IS_LONG -# define LLONG_MIN LONG_MIN -# else -# ifdef LLONG_BIT -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<(LLONG_BIT-1))) -# else -/* Assume we're on a system with a 64-bit 'long long' type */ -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<63)) -# endif -# endif -/* Assume that if LLONG_MIN is undefined, then so is LLONG_MAX */ -# define LLONG_MAX (~LLONG_MIN) -#endif - -#define UWIDE_MAX ((Tcl_WideUInt)-1) -#define WIDE_MAX ((Tcl_WideInt)(UWIDE_MAX >> 1)) -#define WIDE_MIN ((Tcl_WideInt)((Tcl_WideUInt)WIDE_MAX+1)) - -#endif /* _TCLPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclTomMath.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclTomMath.h deleted file mode 100644 index b21940554..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclTomMath.h +++ /dev/null @@ -1,873 +0,0 @@ -/* LibTomMath, multiple-precision integer library -- Tom St Denis */ -/* SPDX-License-Identifier: Unlicense */ - -#ifndef BN_H_ -#define BN_H_ - -#include -#ifndef MODULE_SCOPE -#define MODULE_SCOPE extern -#endif - -#include -#include -#include -#include -#include - -#ifndef MIN - #define MIN(x,y) ((x)<(y)?(x):(y)) -#endif - -#ifndef MAX - #define MAX(x,y) ((x)>(y)?(x):(y)) -#endif - -#ifdef __cplusplus -extern "C" { - -/* C++ compilers don't like assigning void * to mp_digit * */ -#define OPT_CAST(x) (x *) - -#else - -/* C on the other hand doesn't care */ -#define OPT_CAST(x) - -#endif - - -/* detect 64-bit mode if possible */ -#if defined(NEVER) /* 128-bit ints fail in too many places */ - #if !(defined(MP_64BIT) && defined(MP_16BIT) && defined(MP_8BIT)) - #define MP_64BIT - #endif -#endif - -/* some default configurations. - * - * A "mp_digit" must be able to hold DIGIT_BIT + 1 bits - * A "mp_word" must be able to hold 2*DIGIT_BIT + 1 bits - * - * At the very least a mp_digit must be able to hold 7 bits - * [any size beyond that is ok provided it doesn't overflow the data type] - */ -#ifdef MP_8BIT -#ifndef MP_DIGIT_DECLARED - typedef unsigned char mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned short mp_word; -#elif defined(MP_16BIT) -#ifndef MP_DIGIT_DECLARED - typedef unsigned short mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned long mp_word; -#elif defined(MP_64BIT) - /* for GCC only on supported platforms */ -#ifndef CRYPT - typedef unsigned long long ulong64; - typedef signed long long long64; -#endif - -#ifndef MP_DIGIT_DECLARED - typedef unsigned long mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned long mp_word __attribute__ ((mode(TI))); - - #define DIGIT_BIT 60 -#else - /* this is the default case, 28-bit digits */ - - /* this is to make porting into LibTomCrypt easier :-) */ -#ifndef CRYPT - #if defined(_MSC_VER) || defined(__BORLANDC__) - typedef unsigned __int64 ulong64; - typedef signed __int64 long64; - #else - typedef unsigned long long ulong64; - typedef signed long long long64; - #endif -#endif - -#ifndef MP_DIGIT_DECLARED - typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef ulong64 mp_word; - -#ifdef MP_31BIT - /* this is an extension that uses 31-bit digits */ - #define DIGIT_BIT 31 -#else - /* default case is 28-bit digits, defines MP_28BIT as a handy macro to test */ - #define DIGIT_BIT 28 - #define MP_28BIT -#endif -#endif - -/* define heap macros */ -#if 0 /* these are macros in tclTomMathDecls.h */ -#ifndef CRYPT - /* default to libc stuff */ - #ifndef XMALLOC - #define XMALLOC malloc - #define XFREE free - #define XREALLOC realloc - #define XCALLOC calloc - #else - /* prototypes for our heap functions */ - extern void *XMALLOC(size_t n); - extern void *XREALLOC(void *p, size_t n); - extern void *XCALLOC(size_t n, size_t s); - extern void XFREE(void *p); - #endif -#endif -#endif - - -/* otherwise the bits per digit is calculated automatically from the size of a mp_digit */ -#ifndef DIGIT_BIT - #define DIGIT_BIT ((int)((CHAR_BIT * sizeof(mp_digit) - 1))) /* bits per digit */ -#endif - -#define MP_DIGIT_BIT DIGIT_BIT -#define MP_MASK ((((mp_digit)1)<<((mp_digit)DIGIT_BIT))-((mp_digit)1)) -#define MP_DIGIT_MAX MP_MASK - -typedef int mp_sign; -#define MP_ZPOS 0 /* positive integer */ -#define MP_NEG 1 /* negative */ -typedef int mp_ord; -#define MP_LT -1 /* less than */ -#define MP_EQ 0 /* equal to */ -#define MP_GT 1 /* greater than */ -typedef int mp_bool; -#define MP_YES 1 /* yes response */ -#define MP_NO 0 /* no response */ -typedef int mp_err; -#define MP_OKAY 0 /* ok result */ -#define MP_ERR -1 /* unknown error */ -#define MP_MEM -2 /* out of mem */ -#define MP_VAL -3 /* invalid input */ -#define MP_RANGE MP_VAL -#define MP_ITER -4 /* Max. iterations reached */ - -/* Primality generation flags */ -#define LTM_PRIME_BBS 0x0001 /* BBS style prime */ -#define LTM_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */ -#define LTM_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */ - -/* tunable cutoffs */ - -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE int KARATSUBA_MUL_CUTOFF, - KARATSUBA_SQR_CUTOFF, - TOOM_MUL_CUTOFF, - TOOM_SQR_CUTOFF; -#endif - -/* define this to use lower memory usage routines (exptmods mostly) */ -/* #define MP_LOW_MEM */ - -/* default precision */ -#ifndef MP_PREC -# ifndef MP_LOW_MEM -# define MP_PREC 32 /* default digits of precision */ -# elif defined(MP_8BIT) -# define MP_PREC 16 /* default digits of precision */ -# else -# define MP_PREC 8 /* default digits of precision */ -# endif -#endif - -/* size of comba arrays, should be at least 2 * 2**(BITS_PER_WORD - BITS_PER_DIGIT*2) */ -#define MP_WARRAY (1 << (sizeof(mp_word) * CHAR_BIT - 2 * DIGIT_BIT + 1)) - -/* - * MP_WUR - warn unused result - * --------------------------- - * - * The result of functions annotated with MP_WUR must be - * checked and cannot be ignored. - * - * Most functions in libtommath return an error code. - * This error code must be checked in order to prevent crashes or invalid - * results. - * - * If you still want to avoid the error checks for quick and dirty programs - * without robustness guarantees, you can `#define MP_WUR` before including - * tommath.h, disabling the warnings. - */ -#ifndef MP_WUR -# if defined(__GNUC__) && __GNUC__ >= 4 -# define MP_WUR __attribute__((warn_unused_result)) -# else -# define MP_WUR -# endif -#endif - -#if defined(__GNUC__) && (__GNUC__ * 100 + __GNUC_MINOR__ >= 301) -# define MP_DEPRECATED(x) __attribute__((deprecated("replaced by " #x))) -# define PRIVATE_MP_DEPRECATED_PRAGMA(s) _Pragma(#s) -# define MP_DEPRECATED_PRAGMA(s) PRIVATE_MP_DEPRECATED_PRAGMA(GCC warning s) -#elif defined(_MSC_VER) && _MSC_VER >= 1500 -# define MP_DEPRECATED(x) __declspec(deprecated("replaced by " #x)) -# define MP_DEPRECATED_PRAGMA(s) __pragma(message(s)) -#else -# define MP_DEPRECATED -# define MP_DEPRECATED_PRAGMA(s) -#endif - -#define USED(m) ((m)->used) -#define DIGIT(m,k) ((m)->dp[(k)]) -#define SIGN(m) ((m)->sign) - -/* the infamous mp_int structure */ -#ifndef MP_INT_DECLARED -#define MP_INT_DECLARED -typedef struct mp_int mp_int; -#endif -struct mp_int { - int used, alloc, sign; - mp_digit *dp; -}; - -/* callback for mp_prime_random, should fill dst with random bytes and return how many read [upto len] */ -typedef int ltm_prime_callback(unsigned char *dst, int len, void *dat); - - -/* error code to char* string */ -/* -const char *mp_error_to_string(mp_err code); -*/ - -/* ---> init and deinit bignum functions <--- */ -/* init a bignum */ -/* -mp_err mp_init(mp_int *a); -*/ - -/* free a bignum */ -/* -void mp_clear(mp_int *a); -*/ - -/* init a null terminated series of arguments */ -/* -mp_err mp_init_multi(mp_int *mp, ...); -*/ - -/* clear a null terminated series of arguments */ -/* -void mp_clear_multi(mp_int *mp, ...); -*/ - -/* exchange two ints */ -/* -void mp_exch(mp_int *a, mp_int *b); -*/ - -/* shrink ram required for a bignum */ -/* -mp_err mp_shrink(mp_int *a); -*/ - -/* grow an int to a given size */ -/* -mp_err mp_grow(mp_int *a, int size); -*/ - -/* init to a given number of digits */ -/* -mp_err mp_init_size(mp_int *a, int size); -*/ - -/* ---> Basic Manipulations <--- */ -#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO) -#define mp_iseven(a) (((a)->used == 0 || (((a)->dp[0] & 1) == 0)) ? MP_YES : MP_NO) -#define mp_isodd(a) (((a)->used > 0 && (((a)->dp[0] & 1) == 1)) ? MP_YES : MP_NO) -#define mp_isneg(a) (((a)->sign != MP_ZPOS) ? MP_YES : MP_NO) - -/* set to zero */ -/* -void mp_zero(mp_int *a); -*/ - -/* set to a digit */ -/* -void mp_set(mp_int *a, mp_digit b); -*/ - -/* set a 32-bit const */ -/* -int mp_set_int(mp_int *a, unsigned long b); -*/ - -/* set a platform dependent unsigned long value */ -/* -int mp_set_long(mp_int *a, unsigned long b); -*/ - -/* set a platform dependent unsigned long long value */ -/* -int mp_set_long_long(mp_int *a, unsigned long long b); -*/ - -/* get a 32-bit value */ -unsigned long mp_get_int(mp_int * a); - -/* initialize and set a digit */ -/* -int mp_init_set (mp_int * a, mp_digit b); -*/ - -/* initialize and set 32-bit value */ -/* -int mp_init_set_int (mp_int * a, unsigned long b); -*/ - -/* copy, b = a */ -/* -int mp_copy(mp_int *a, mp_int *b); -*/ - -/* inits and copies, a = b */ -/* -int mp_init_copy(mp_int *a, mp_int *b); -*/ - -/* trim unused digits */ -/* -void mp_clamp(mp_int *a); -*/ - -/* ---> digit manipulation <--- */ - -/* right shift by "b" digits */ -/* -void mp_rshd(mp_int *a, int b); -*/ - -/* left shift by "b" digits */ -/* -int mp_lshd(mp_int *a, int b); -*/ - -/* c = a / 2**b */ -/* -int mp_div_2d(mp_int *a, int b, mp_int *c, mp_int *d); -*/ - -/* b = a/2 */ -/* -int mp_div_2(mp_int *a, mp_int *b); -*/ - -/* c = a * 2**b */ -/* -int mp_mul_2d(mp_int *a, int b, mp_int *c); -*/ - -/* b = a*2 */ -/* -int mp_mul_2(mp_int *a, mp_int *b); -*/ - -/* c = a mod 2**d */ -/* -int mp_mod_2d(mp_int *a, int b, mp_int *c); -*/ - -/* computes a = 2**b */ -/* -int mp_2expt(mp_int *a, int b); -*/ - -/* Counts the number of lsbs which are zero before the first zero bit */ -/* -int mp_cnt_lsb(mp_int *a); -*/ - -/* I Love Earth! */ - -/* makes a pseudo-random int of a given size */ -/* -int mp_rand(mp_int *a, int digits); -*/ - -/* ---> binary operations <--- */ -/* c = a XOR b */ -/* -int mp_xor(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a OR b */ -/* -int mp_or(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a AND b */ -/* -int mp_and(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* ---> Basic arithmetic <--- */ - -/* b = -a */ -/* -int mp_neg(mp_int *a, mp_int *b); -*/ - -/* b = |a| */ -/* -int mp_abs(mp_int *a, mp_int *b); -*/ - -/* compare a to b */ -/* -int mp_cmp(mp_int *a, mp_int *b); -*/ - -/* compare |a| to |b| */ -/* -int mp_cmp_mag(mp_int *a, mp_int *b); -*/ - -/* c = a + b */ -/* -int mp_add(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a - b */ -/* -int mp_sub(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a * b */ -/* -int mp_mul(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* b = a*a */ -/* -int mp_sqr(mp_int *a, mp_int *b); -*/ - -/* a/b => cb + d == a */ -/* -int mp_div(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* c = a mod b, 0 <= c < b */ -/* -int mp_mod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* ---> single digit functions <--- */ - -/* compare against a single digit */ -/* -int mp_cmp_d(mp_int *a, mp_digit b); -*/ - -/* c = a + b */ -/* -int mp_add_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a - b */ -/* -int mp_sub_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a * b */ -/* -int mp_mul_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* a/b => cb + d == a */ -/* -int mp_div_d(mp_int *a, mp_digit b, mp_int *c, mp_digit *d); -*/ - -/* a/3 => 3c + d == a */ -/* -int mp_div_3(mp_int *a, mp_int *c, mp_digit *d); -*/ - -/* c = a**b */ -/* -int mp_expt_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a mod b, 0 <= c < b */ -/* -int mp_mod_d(mp_int *a, mp_digit b, mp_digit *c); -*/ - -/* ---> number theory <--- */ - -/* d = a + b (mod c) */ -/* -int mp_addmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* d = a - b (mod c) */ -/* -int mp_submod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* d = a * b (mod c) */ -/* -int mp_mulmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* c = a * a (mod b) */ -/* -int mp_sqrmod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = 1/a (mod b) */ -/* -int mp_invmod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = (a, b) */ -/* -int mp_gcd(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* produces value such that U1*a + U2*b = U3 */ -/* -int mp_exteuclid(mp_int *a, mp_int *b, mp_int *U1, mp_int *U2, mp_int *U3); -*/ - -/* c = [a, b] or (a*b)/(a, b) */ -/* -int mp_lcm(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* finds one of the b'th root of a, such that |c|**b <= |a| - * - * returns error if a < 0 and b is even - */ -/* -int mp_n_root(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* special sqrt algo */ -/* -int mp_sqrt(mp_int *arg, mp_int *ret); -*/ - -/* is number a square? */ -/* -int mp_is_square(mp_int *arg, int *ret); -*/ - -/* computes the jacobi c = (a | n) (or Legendre if b is prime) */ -/* -int mp_jacobi(mp_int *a, mp_int *n, int *c); -*/ - -/* used to setup the Barrett reduction for a given modulus b */ -/* -int mp_reduce_setup(mp_int *a, mp_int *b); -*/ - -/* Barrett Reduction, computes a (mod b) with a precomputed value c - * - * Assumes that 0 < a <= b*b, note if 0 > a > -(b*b) then you can merely - * compute the reduction as -1 * mp_reduce(mp_abs(a)) [pseudo code]. - */ -/* -int mp_reduce(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* setups the montgomery reduction */ -/* -int mp_montgomery_setup(mp_int *a, mp_digit *mp); -*/ - -/* computes a = B**n mod b without division or multiplication useful for - * normalizing numbers in a Montgomery system. - */ -/* -int mp_montgomery_calc_normalization(mp_int *a, mp_int *b); -*/ - -/* computes x/R == x (mod N) via Montgomery Reduction */ -/* -int mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp); -*/ - -/* returns 1 if a is a valid DR modulus */ -/* -int mp_dr_is_modulus(mp_int *a); -*/ - -/* sets the value of "d" required for mp_dr_reduce */ -/* -void mp_dr_setup(mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo b using the Diminished Radix method */ -/* -int mp_dr_reduce(mp_int *a, mp_int *b, mp_digit mp); -*/ - -/* returns true if a can be reduced with mp_reduce_2k */ -/* -int mp_reduce_is_2k(mp_int *a); -*/ - -/* determines k value for 2k reduction */ -/* -int mp_reduce_2k_setup(mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -int mp_reduce_2k(mp_int *a, mp_int *n, mp_digit d); -*/ - -/* returns true if a can be reduced with mp_reduce_2k_l */ -/* -int mp_reduce_is_2k_l(mp_int *a); -*/ - -/* determines k value for 2k reduction */ -/* -int mp_reduce_2k_setup_l(mp_int *a, mp_int *d); -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -int mp_reduce_2k_l(mp_int *a, mp_int *n, mp_int *d); -*/ - -/* d = a**b (mod c) */ -/* -int mp_exptmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* ---> Primes <--- */ - -/* number of primes */ -#ifdef MP_8BIT - #define PRIME_SIZE 31 -#else - #define PRIME_SIZE 256 -#endif - -/* table of first PRIME_SIZE primes */ -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const mp_digit ltm_prime_tab[]; -#endif - -/* result=1 if a is divisible by one of the first PRIME_SIZE primes */ -/* -int mp_prime_is_divisible(mp_int *a, int *result); -*/ - -/* performs one Fermat test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_fermat(const mp_int *a, const mp_int *b, mp_bool *result); -*/ - -/* performs one Miller-Rabin test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_miller_rabin(const mp_int *a, const mp_int *b, mp_bool *result); -*/ - -/* This gives [for a given bit size] the number of trials required - * such that Miller-Rabin gives a prob of failure lower than 2^-96 - */ -/* -int mp_prime_rabin_miller_trials(int size); -*/ - -/* performs t rounds of Miller-Rabin on "a" using the first - * t prime bases. Also performs an initial sieve of trial - * division. Determines if "a" is prime with probability - * of error no more than (1/4)**t. - * - * Sets result to 1 if probably prime, 0 otherwise - */ -/* -mp_err mp_prime_is_prime(const mp_int *a, int t, mp_bool *result); -*/ - -/* finds the next prime after the number "a" using "t" trials - * of Miller-Rabin. - * - * bbs_style = 1 means the prime must be congruent to 3 mod 4 - */ -/* -mp_err mp_prime_next_prime(mp_int *a, int t, int bbs_style); -*/ - -/* makes a truly random prime of a given size (bytes), - * call with bbs = 1 if you want it to be congruent to 3 mod 4 - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - * The prime generated will be larger than 2^(8*size). - */ -#define mp_prime_random(a, t, size, bbs, cb, dat) mp_prime_random_ex(a, t, ((size) * 8) + 1, (bbs==1)?LTM_PRIME_BBS:0, cb, dat) - -/* makes a truly random prime of a given size (bits), - * - * Flags are as follows: - * - * MP_PRIME_BBS - make prime congruent to 3 mod 4 - * MP_PRIME_SAFE - make sure (p-1)/2 is prime as well (implies MP_PRIME_BBS) - * MP_PRIME_2MSB_ON - make the 2nd highest bit one - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - */ -/* -int mp_prime_random_ex(mp_int *a, int t, int size, int flags, ltm_prime_callback cb, void *dat); -*/ - -/* ---> radix conversion <--- */ -/* -int mp_count_bits(mp_int *a); -*/ - -/* -int mp_unsigned_bin_size(mp_int *a); -*/ -/* -int mp_read_unsigned_bin(mp_int *a, const unsigned char *b, int c); -*/ -/* -int mp_to_unsigned_bin(mp_int *a, unsigned char *b); -*/ -/* -int mp_to_unsigned_bin_n (mp_int * a, unsigned char *b, unsigned long *outlen); -*/ - -/* -int mp_signed_bin_size(mp_int *a); -*/ -/* -int mp_read_signed_bin(mp_int *a, const unsigned char *b, int c); -*/ -/* -int mp_to_signed_bin(mp_int *a, unsigned char *b); -*/ -/* -int mp_to_signed_bin_n (mp_int * a, unsigned char *b, unsigned long *outlen); -*/ - -/* -int mp_read_radix(mp_int *a, const char *str, int radix); -*/ -/* -int mp_toradix(mp_int *a, char *str, int radix); -*/ -/* -int mp_toradix_n(mp_int * a, char *str, int radix, int maxlen); -*/ -/* -int mp_radix_size(mp_int *a, int radix, int *size); -*/ - -/* -int mp_fread(mp_int *a, int radix, FILE *stream); -*/ -/* -int mp_fwrite(mp_int *a, int radix, FILE *stream); -*/ - -#define mp_read_raw(mp, str, len) mp_read_signed_bin((mp), (str), (len)) -#define mp_raw_size(mp) mp_signed_bin_size(mp) -#define mp_toraw(mp, str) mp_to_signed_bin((mp), (str)) -#define mp_read_mag(mp, str, len) mp_read_unsigned_bin((mp), (str), (len)) -#define mp_mag_size(mp) mp_unsigned_bin_size(mp) -#define mp_tomag(mp, str) mp_to_unsigned_bin((mp), (str)) - -#define mp_tobinary(M, S) mp_toradix((M), (S), 2) -#define mp_tooctal(M, S) mp_toradix((M), (S), 8) -#define mp_todecimal(M, S) mp_toradix((M), (S), 10) -#define mp_tohex(M, S) mp_toradix((M), (S), 16) - -/* lowlevel functions, do not call! */ -/* -int s_mp_add(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int s_mp_sub(mp_int *a, mp_int *b, mp_int *c); -*/ -#define s_mp_mul(a, b, c) s_mp_mul_digs(a, b, c, (a)->used + (b)->used + 1) -/* -int fast_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int fast_s_mp_mul_high_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int s_mp_mul_high_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int fast_s_mp_sqr(mp_int *a, mp_int *b); -*/ -/* -int s_mp_sqr(mp_int *a, mp_int *b); -*/ -/* -int mp_karatsuba_mul(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_toom_mul(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_karatsuba_sqr(mp_int *a, mp_int *b); -*/ -/* -int mp_toom_sqr(mp_int *a, mp_int *b); -*/ -/* -int fast_mp_invmod(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_invmod_slow (mp_int * a, mp_int * b, mp_int * c); -*/ -/* -int fast_mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp); -*/ -/* -int mp_exptmod_fast(mp_int *G, mp_int *X, mp_int *P, mp_int *Y, int mode); -*/ -/* -int s_mp_exptmod (mp_int * G, mp_int * X, mp_int * P, mp_int * Y, int mode); -*/ -/* -void bn_reverse(unsigned char *s, int len); -*/ - -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const char *mp_s_rmap; -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclTomMathDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclTomMathDecls.h deleted file mode 100644 index e4c1cecb2..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclTomMathDecls.h +++ /dev/null @@ -1,882 +0,0 @@ -/* - *---------------------------------------------------------------------- - * - * tclTomMathDecls.h -- - * - * This file contains the declarations for the 'libtommath' - * functions that are exported by the Tcl library. - * - * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLTOMMATHDECLS -#define _TCLTOMMATHDECLS - -#include "tcl.h" - -/* - * Define the version of the Stubs table that's exported for tommath - */ - -#define TCLTOMMATH_EPOCH 0 -#define TCLTOMMATH_REVISION 0 - -#define Tcl_TomMath_InitStubs(interp,version) \ - (TclTomMathInitializeStubs((interp),(version),\ - TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION)) - -/* Define custom memory allocation for libtommath */ - -/* MODULE_SCOPE void* TclBNAlloc( size_t ); */ -#define TclBNAlloc(s) ((void*)ckalloc((size_t)(s))) -/* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */ -#define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s))) -/* MODULE_SCOPE void TclBNFree( void* ); */ -#define TclBNFree(x) (ckfree((char*)(x))) -/* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */ -/* unused - no macro */ - -#define XMALLOC(x) TclBNAlloc(x) -#define XFREE(x) TclBNFree(x) -#define XREALLOC(x,n) TclBNRealloc(x,n) -#define XCALLOC(n,x) TclBNCalloc(n,x) - -#define bn_reverse TclBN_reverse -#define s_mp_reverse TclBN_reverse -#define fast_s_mp_mul_digs TclBN_fast_s_mp_mul_digs -#define s_mp_mul_digs_fast TclBN_fast_s_mp_mul_digs -#define fast_s_mp_sqr TclBN_fast_s_mp_sqr -#define s_mp_sqr_fast TclBN_fast_s_mp_sqr -#define mp_add TclBN_mp_add -#define mp_add_d TclBN_mp_add_d -#define mp_and TclBN_mp_and -#define mp_clamp TclBN_mp_clamp -#define mp_clear TclBN_mp_clear -#define mp_clear_multi TclBN_mp_clear_multi -#define mp_cmp TclBN_mp_cmp -#define mp_cmp_d TclBN_mp_cmp_d -#define mp_cmp_mag TclBN_mp_cmp_mag -#define mp_cnt_lsb TclBN_mp_cnt_lsb -#define mp_copy TclBN_mp_copy -#define mp_count_bits TclBN_mp_count_bits -#define mp_div TclBN_mp_div -#define mp_div_2 TclBN_mp_div_2 -#define mp_div_2d TclBN_mp_div_2d -#define mp_div_3 TclBN_mp_div_3 -#define mp_div_d TclBN_mp_div_d -#define mp_exch TclBN_mp_exch -#define mp_expt_d TclBN_mp_expt_d -#define mp_grow TclBN_mp_grow -#define mp_init TclBN_mp_init -#define mp_init_copy TclBN_mp_init_copy -#define mp_init_multi TclBN_mp_init_multi -#define mp_init_set TclBN_mp_init_set -#define mp_init_set_int TclBN_mp_init_set_int -#define mp_init_size TclBN_mp_init_size -#define mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define s_mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define s_mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define mp_lshd TclBN_mp_lshd -#define mp_mod TclBN_mp_mod -#define mp_mod_2d TclBN_mp_mod_2d -#define mp_mul TclBN_mp_mul -#define mp_mul_2 TclBN_mp_mul_2 -#define mp_mul_2d TclBN_mp_mul_2d -#define mp_mul_d TclBN_mp_mul_d -#define mp_neg TclBN_mp_neg -#define mp_or TclBN_mp_or -#define mp_radix_size TclBN_mp_radix_size -#define mp_read_radix TclBN_mp_read_radix -#define mp_rshd TclBN_mp_rshd -#define mp_s_rmap TclBNMpSRmap -#define mp_set TclBN_mp_set -#define mp_set_int TclBN_mp_set_int -#define mp_shrink TclBN_mp_shrink -#define mp_sqr TclBN_mp_sqr -#define mp_sqrt TclBN_mp_sqrt -#define mp_sub TclBN_mp_sub -#define mp_sub_d TclBN_mp_sub_d -#define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin -#define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n -#define mp_toom_mul TclBN_mp_toom_mul -#define s_mp_toom_mul TclBN_mp_toom_mul -#define mp_toom_sqr TclBN_mp_toom_sqr -#define s_mp_toom_sqr TclBN_mp_toom_sqr -#define mp_toradix_n TclBN_mp_toradix_n -#define mp_unsigned_bin_size TclBN_mp_unsigned_bin_size -#define mp_xor TclBN_mp_xor -#define mp_zero TclBN_mp_zero -#define s_mp_add TclBN_s_mp_add -#define s_mp_mul_digs TclBN_s_mp_mul_digs -#define s_mp_sqr TclBN_s_mp_sqr -#define s_mp_sub TclBN_s_mp_sub - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef TclBN_epoch_TCL_DECLARED -#define TclBN_epoch_TCL_DECLARED -/* 0 */ -EXTERN int TclBN_epoch(void); -#endif -#ifndef TclBN_revision_TCL_DECLARED -#define TclBN_revision_TCL_DECLARED -/* 1 */ -EXTERN int TclBN_revision(void); -#endif -#ifndef TclBN_mp_add_TCL_DECLARED -#define TclBN_mp_add_TCL_DECLARED -/* 2 */ -EXTERN int TclBN_mp_add(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_add_d_TCL_DECLARED -#define TclBN_mp_add_d_TCL_DECLARED -/* 3 */ -EXTERN int TclBN_mp_add_d(mp_int *a, mp_digit b, mp_int *c); -#endif -#ifndef TclBN_mp_and_TCL_DECLARED -#define TclBN_mp_and_TCL_DECLARED -/* 4 */ -EXTERN int TclBN_mp_and(CONST mp_int *a, CONST mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_clamp_TCL_DECLARED -#define TclBN_mp_clamp_TCL_DECLARED -/* 5 */ -EXTERN void TclBN_mp_clamp(mp_int *a); -#endif -#ifndef TclBN_mp_clear_TCL_DECLARED -#define TclBN_mp_clear_TCL_DECLARED -/* 6 */ -EXTERN void TclBN_mp_clear(mp_int *a); -#endif -#ifndef TclBN_mp_clear_multi_TCL_DECLARED -#define TclBN_mp_clear_multi_TCL_DECLARED -/* 7 */ -EXTERN void TclBN_mp_clear_multi(mp_int *a, ...); -#endif -#ifndef TclBN_mp_cmp_TCL_DECLARED -#define TclBN_mp_cmp_TCL_DECLARED -/* 8 */ -EXTERN int TclBN_mp_cmp(CONST mp_int *a, CONST mp_int *b); -#endif -#ifndef TclBN_mp_cmp_d_TCL_DECLARED -#define TclBN_mp_cmp_d_TCL_DECLARED -/* 9 */ -EXTERN int TclBN_mp_cmp_d(CONST mp_int *a, mp_digit b); -#endif -#ifndef TclBN_mp_cmp_mag_TCL_DECLARED -#define TclBN_mp_cmp_mag_TCL_DECLARED -/* 10 */ -EXTERN int TclBN_mp_cmp_mag(CONST mp_int *a, CONST mp_int *b); -#endif -#ifndef TclBN_mp_copy_TCL_DECLARED -#define TclBN_mp_copy_TCL_DECLARED -/* 11 */ -EXTERN int TclBN_mp_copy(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_count_bits_TCL_DECLARED -#define TclBN_mp_count_bits_TCL_DECLARED -/* 12 */ -EXTERN int TclBN_mp_count_bits(mp_int *a); -#endif -#ifndef TclBN_mp_div_TCL_DECLARED -#define TclBN_mp_div_TCL_DECLARED -/* 13 */ -EXTERN int TclBN_mp_div(mp_int *a, mp_int *b, mp_int *q, - mp_int *r); -#endif -#ifndef TclBN_mp_div_d_TCL_DECLARED -#define TclBN_mp_div_d_TCL_DECLARED -/* 14 */ -EXTERN int TclBN_mp_div_d(mp_int *a, mp_digit b, mp_int *q, - mp_digit *r); -#endif -#ifndef TclBN_mp_div_2_TCL_DECLARED -#define TclBN_mp_div_2_TCL_DECLARED -/* 15 */ -EXTERN int TclBN_mp_div_2(mp_int *a, mp_int *q); -#endif -#ifndef TclBN_mp_div_2d_TCL_DECLARED -#define TclBN_mp_div_2d_TCL_DECLARED -/* 16 */ -EXTERN int TclBN_mp_div_2d(mp_int *a, int b, mp_int *q, - mp_int *r); -#endif -#ifndef TclBN_mp_div_3_TCL_DECLARED -#define TclBN_mp_div_3_TCL_DECLARED -/* 17 */ -EXTERN int TclBN_mp_div_3(mp_int *a, mp_int *q, mp_digit *r); -#endif -#ifndef TclBN_mp_exch_TCL_DECLARED -#define TclBN_mp_exch_TCL_DECLARED -/* 18 */ -EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_expt_d_TCL_DECLARED -#define TclBN_mp_expt_d_TCL_DECLARED -/* 19 */ -EXTERN int TclBN_mp_expt_d(mp_int *a, mp_digit b, mp_int *c); -#endif -#ifndef TclBN_mp_grow_TCL_DECLARED -#define TclBN_mp_grow_TCL_DECLARED -/* 20 */ -EXTERN int TclBN_mp_grow(mp_int *a, int size); -#endif -#ifndef TclBN_mp_init_TCL_DECLARED -#define TclBN_mp_init_TCL_DECLARED -/* 21 */ -EXTERN int TclBN_mp_init(mp_int *a); -#endif -#ifndef TclBN_mp_init_copy_TCL_DECLARED -#define TclBN_mp_init_copy_TCL_DECLARED -/* 22 */ -EXTERN int TclBN_mp_init_copy(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_init_multi_TCL_DECLARED -#define TclBN_mp_init_multi_TCL_DECLARED -/* 23 */ -EXTERN int TclBN_mp_init_multi(mp_int *a, ...); -#endif -#ifndef TclBN_mp_init_set_TCL_DECLARED -#define TclBN_mp_init_set_TCL_DECLARED -/* 24 */ -EXTERN int TclBN_mp_init_set(mp_int *a, mp_digit b); -#endif -#ifndef TclBN_mp_init_size_TCL_DECLARED -#define TclBN_mp_init_size_TCL_DECLARED -/* 25 */ -EXTERN int TclBN_mp_init_size(mp_int *a, int size); -#endif -#ifndef TclBN_mp_lshd_TCL_DECLARED -#define TclBN_mp_lshd_TCL_DECLARED -/* 26 */ -EXTERN int TclBN_mp_lshd(mp_int *a, int shift); -#endif -#ifndef TclBN_mp_mod_TCL_DECLARED -#define TclBN_mp_mod_TCL_DECLARED -/* 27 */ -EXTERN int TclBN_mp_mod(mp_int *a, mp_int *b, mp_int *r); -#endif -#ifndef TclBN_mp_mod_2d_TCL_DECLARED -#define TclBN_mp_mod_2d_TCL_DECLARED -/* 28 */ -EXTERN int TclBN_mp_mod_2d(mp_int *a, int b, mp_int *r); -#endif -#ifndef TclBN_mp_mul_TCL_DECLARED -#define TclBN_mp_mul_TCL_DECLARED -/* 29 */ -EXTERN int TclBN_mp_mul(mp_int *a, mp_int *b, mp_int *p); -#endif -#ifndef TclBN_mp_mul_d_TCL_DECLARED -#define TclBN_mp_mul_d_TCL_DECLARED -/* 30 */ -EXTERN int TclBN_mp_mul_d(mp_int *a, mp_digit b, mp_int *p); -#endif -#ifndef TclBN_mp_mul_2_TCL_DECLARED -#define TclBN_mp_mul_2_TCL_DECLARED -/* 31 */ -EXTERN int TclBN_mp_mul_2(mp_int *a, mp_int *p); -#endif -#ifndef TclBN_mp_mul_2d_TCL_DECLARED -#define TclBN_mp_mul_2d_TCL_DECLARED -/* 32 */ -EXTERN int TclBN_mp_mul_2d(mp_int *a, int d, mp_int *p); -#endif -#ifndef TclBN_mp_neg_TCL_DECLARED -#define TclBN_mp_neg_TCL_DECLARED -/* 33 */ -EXTERN int TclBN_mp_neg(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_or_TCL_DECLARED -#define TclBN_mp_or_TCL_DECLARED -/* 34 */ -EXTERN int TclBN_mp_or(CONST mp_int *a, CONST mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_radix_size_TCL_DECLARED -#define TclBN_mp_radix_size_TCL_DECLARED -/* 35 */ -EXTERN int TclBN_mp_radix_size(mp_int *a, int radix, int *size); -#endif -#ifndef TclBN_mp_read_radix_TCL_DECLARED -#define TclBN_mp_read_radix_TCL_DECLARED -/* 36 */ -EXTERN int TclBN_mp_read_radix(mp_int *a, CONST char *str, - int radix); -#endif -#ifndef TclBN_mp_rshd_TCL_DECLARED -#define TclBN_mp_rshd_TCL_DECLARED -/* 37 */ -EXTERN void TclBN_mp_rshd(mp_int *a, int shift); -#endif -#ifndef TclBN_mp_shrink_TCL_DECLARED -#define TclBN_mp_shrink_TCL_DECLARED -/* 38 */ -EXTERN int TclBN_mp_shrink(mp_int *a); -#endif -#ifndef TclBN_mp_set_TCL_DECLARED -#define TclBN_mp_set_TCL_DECLARED -/* 39 */ -EXTERN void TclBN_mp_set(mp_int *a, mp_digit b); -#endif -#ifndef TclBN_mp_sqr_TCL_DECLARED -#define TclBN_mp_sqr_TCL_DECLARED -/* 40 */ -EXTERN int TclBN_mp_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_sqrt_TCL_DECLARED -#define TclBN_mp_sqrt_TCL_DECLARED -/* 41 */ -EXTERN int TclBN_mp_sqrt(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_sub_TCL_DECLARED -#define TclBN_mp_sub_TCL_DECLARED -/* 42 */ -EXTERN int TclBN_mp_sub(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_sub_d_TCL_DECLARED -#define TclBN_mp_sub_d_TCL_DECLARED -/* 43 */ -EXTERN int TclBN_mp_sub_d(mp_int *a, mp_digit b, mp_int *c); -#endif -#ifndef TclBN_mp_to_unsigned_bin_TCL_DECLARED -#define TclBN_mp_to_unsigned_bin_TCL_DECLARED -/* 44 */ -EXTERN int TclBN_mp_to_unsigned_bin(mp_int *a, unsigned char *b); -#endif -#ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED -#define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED -/* 45 */ -EXTERN int TclBN_mp_to_unsigned_bin_n(mp_int *a, - unsigned char *b, unsigned long *outlen); -#endif -#ifndef TclBN_mp_toradix_n_TCL_DECLARED -#define TclBN_mp_toradix_n_TCL_DECLARED -/* 46 */ -EXTERN int TclBN_mp_toradix_n(mp_int *a, char *str, int radix, - int maxlen); -#endif -#ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED -#define TclBN_mp_unsigned_bin_size_TCL_DECLARED -/* 47 */ -EXTERN int TclBN_mp_unsigned_bin_size(mp_int *a); -#endif -#ifndef TclBN_mp_xor_TCL_DECLARED -#define TclBN_mp_xor_TCL_DECLARED -/* 48 */ -EXTERN int TclBN_mp_xor(CONST mp_int *a, CONST mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_zero_TCL_DECLARED -#define TclBN_mp_zero_TCL_DECLARED -/* 49 */ -EXTERN void TclBN_mp_zero(mp_int *a); -#endif -#ifndef TclBN_reverse_TCL_DECLARED -#define TclBN_reverse_TCL_DECLARED -/* 50 */ -EXTERN void TclBN_reverse(unsigned char *s, int len); -#endif -#ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED -#define TclBN_fast_s_mp_mul_digs_TCL_DECLARED -/* 51 */ -EXTERN int TclBN_fast_s_mp_mul_digs(mp_int *a, mp_int *b, - mp_int *c, int digs); -#endif -#ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED -#define TclBN_fast_s_mp_sqr_TCL_DECLARED -/* 52 */ -EXTERN int TclBN_fast_s_mp_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED -#define TclBN_mp_karatsuba_mul_TCL_DECLARED -/* 53 */ -EXTERN int TclBN_mp_karatsuba_mul(mp_int *a, mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED -#define TclBN_mp_karatsuba_sqr_TCL_DECLARED -/* 54 */ -EXTERN int TclBN_mp_karatsuba_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_toom_mul_TCL_DECLARED -#define TclBN_mp_toom_mul_TCL_DECLARED -/* 55 */ -EXTERN int TclBN_mp_toom_mul(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_toom_sqr_TCL_DECLARED -#define TclBN_mp_toom_sqr_TCL_DECLARED -/* 56 */ -EXTERN int TclBN_mp_toom_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_s_mp_add_TCL_DECLARED -#define TclBN_s_mp_add_TCL_DECLARED -/* 57 */ -EXTERN int TclBN_s_mp_add(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_s_mp_mul_digs_TCL_DECLARED -#define TclBN_s_mp_mul_digs_TCL_DECLARED -/* 58 */ -EXTERN int TclBN_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, - int digs); -#endif -#ifndef TclBN_s_mp_sqr_TCL_DECLARED -#define TclBN_s_mp_sqr_TCL_DECLARED -/* 59 */ -EXTERN int TclBN_s_mp_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_s_mp_sub_TCL_DECLARED -#define TclBN_s_mp_sub_TCL_DECLARED -/* 60 */ -EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_init_set_int_TCL_DECLARED -#define TclBN_mp_init_set_int_TCL_DECLARED -/* 61 */ -EXTERN int TclBN_mp_init_set_int(mp_int *a, unsigned long i); -#endif -#ifndef TclBN_mp_set_int_TCL_DECLARED -#define TclBN_mp_set_int_TCL_DECLARED -/* 62 */ -EXTERN int TclBN_mp_set_int(mp_int *a, unsigned long i); -#endif -#ifndef TclBN_mp_cnt_lsb_TCL_DECLARED -#define TclBN_mp_cnt_lsb_TCL_DECLARED -/* 63 */ -EXTERN int TclBN_mp_cnt_lsb(mp_int *a); -#endif -/* Slot 64 is reserved */ -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -/* Slot 69 is reserved */ -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* Slot 74 is reserved */ -/* Slot 75 is reserved */ -/* Slot 76 is reserved */ -/* Slot 77 is reserved */ -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -#ifndef TclUnusedStubEntry_TCL_DECLARED -#define TclUnusedStubEntry_TCL_DECLARED -/* 80 */ -EXTERN void TclUnusedStubEntry(void); -#endif - -typedef struct TclTomMathStubs { - int magic; - struct TclTomMathStubHooks *hooks; - - int (*tclBN_epoch) (void); /* 0 */ - int (*tclBN_revision) (void); /* 1 */ - int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */ - int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */ - int (*tclBN_mp_and) (CONST mp_int *a, CONST mp_int *b, mp_int *c); /* 4 */ - void (*tclBN_mp_clamp) (mp_int *a); /* 5 */ - void (*tclBN_mp_clear) (mp_int *a); /* 6 */ - void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */ - int (*tclBN_mp_cmp) (CONST mp_int *a, CONST mp_int *b); /* 8 */ - int (*tclBN_mp_cmp_d) (CONST mp_int *a, mp_digit b); /* 9 */ - int (*tclBN_mp_cmp_mag) (CONST mp_int *a, CONST mp_int *b); /* 10 */ - int (*tclBN_mp_copy) (mp_int *a, mp_int *b); /* 11 */ - int (*tclBN_mp_count_bits) (mp_int *a); /* 12 */ - int (*tclBN_mp_div) (mp_int *a, mp_int *b, mp_int *q, mp_int *r); /* 13 */ - int (*tclBN_mp_div_d) (mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */ - int (*tclBN_mp_div_2) (mp_int *a, mp_int *q); /* 15 */ - int (*tclBN_mp_div_2d) (mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */ - int (*tclBN_mp_div_3) (mp_int *a, mp_int *q, mp_digit *r); /* 17 */ - void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */ - int (*tclBN_mp_expt_d) (mp_int *a, mp_digit b, mp_int *c); /* 19 */ - int (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */ - int (*tclBN_mp_init) (mp_int *a); /* 21 */ - int (*tclBN_mp_init_copy) (mp_int *a, mp_int *b); /* 22 */ - int (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */ - int (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */ - int (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */ - int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ - int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */ - int (*tclBN_mp_mod_2d) (mp_int *a, int b, mp_int *r); /* 28 */ - int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */ - int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */ - int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */ - int (*tclBN_mp_mul_2d) (mp_int *a, int d, mp_int *p); /* 32 */ - int (*tclBN_mp_neg) (mp_int *a, mp_int *b); /* 33 */ - int (*tclBN_mp_or) (CONST mp_int *a, CONST mp_int *b, mp_int *c); /* 34 */ - int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */ - int (*tclBN_mp_read_radix) (mp_int *a, CONST char *str, int radix); /* 36 */ - void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ - int (*tclBN_mp_shrink) (mp_int *a); /* 38 */ - void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ - int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */ - int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */ - int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */ - int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */ - int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */ - int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */ - int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen); /* 46 */ - int (*tclBN_mp_unsigned_bin_size) (mp_int *a); /* 47 */ - int (*tclBN_mp_xor) (CONST mp_int *a, CONST mp_int *b, mp_int *c); /* 48 */ - void (*tclBN_mp_zero) (mp_int *a); /* 49 */ - void (*tclBN_reverse) (unsigned char *s, int len); /* 50 */ - int (*tclBN_fast_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 51 */ - int (*tclBN_fast_s_mp_sqr) (mp_int *a, mp_int *b); /* 52 */ - int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */ - int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */ - int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */ - int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */ - int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */ - int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */ - int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */ - int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */ - int (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ - int (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ - int (*tclBN_mp_cnt_lsb) (mp_int *a); /* 63 */ - VOID *reserved64; - VOID *reserved65; - VOID *reserved66; - VOID *reserved67; - VOID *reserved68; - VOID *reserved69; - VOID *reserved70; - VOID *reserved71; - VOID *reserved72; - VOID *reserved73; - VOID *reserved74; - VOID *reserved75; - VOID *reserved76; - VOID *reserved77; - VOID *reserved78; - VOID *reserved79; - void (*tclUnusedStubEntry) (void); /* 80 */ -} TclTomMathStubs; - -extern TclTomMathStubs *tclTomMathStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TclBN_epoch -#define TclBN_epoch \ - (tclTomMathStubsPtr->tclBN_epoch) /* 0 */ -#endif -#ifndef TclBN_revision -#define TclBN_revision \ - (tclTomMathStubsPtr->tclBN_revision) /* 1 */ -#endif -#ifndef TclBN_mp_add -#define TclBN_mp_add \ - (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ -#endif -#ifndef TclBN_mp_add_d -#define TclBN_mp_add_d \ - (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ -#endif -#ifndef TclBN_mp_and -#define TclBN_mp_and \ - (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ -#endif -#ifndef TclBN_mp_clamp -#define TclBN_mp_clamp \ - (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ -#endif -#ifndef TclBN_mp_clear -#define TclBN_mp_clear \ - (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ -#endif -#ifndef TclBN_mp_clear_multi -#define TclBN_mp_clear_multi \ - (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ -#endif -#ifndef TclBN_mp_cmp -#define TclBN_mp_cmp \ - (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ -#endif -#ifndef TclBN_mp_cmp_d -#define TclBN_mp_cmp_d \ - (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ -#endif -#ifndef TclBN_mp_cmp_mag -#define TclBN_mp_cmp_mag \ - (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ -#endif -#ifndef TclBN_mp_copy -#define TclBN_mp_copy \ - (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ -#endif -#ifndef TclBN_mp_count_bits -#define TclBN_mp_count_bits \ - (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ -#endif -#ifndef TclBN_mp_div -#define TclBN_mp_div \ - (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ -#endif -#ifndef TclBN_mp_div_d -#define TclBN_mp_div_d \ - (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ -#endif -#ifndef TclBN_mp_div_2 -#define TclBN_mp_div_2 \ - (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ -#endif -#ifndef TclBN_mp_div_2d -#define TclBN_mp_div_2d \ - (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ -#endif -#ifndef TclBN_mp_div_3 -#define TclBN_mp_div_3 \ - (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ -#endif -#ifndef TclBN_mp_exch -#define TclBN_mp_exch \ - (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ -#endif -#ifndef TclBN_mp_expt_d -#define TclBN_mp_expt_d \ - (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ -#endif -#ifndef TclBN_mp_grow -#define TclBN_mp_grow \ - (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ -#endif -#ifndef TclBN_mp_init -#define TclBN_mp_init \ - (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ -#endif -#ifndef TclBN_mp_init_copy -#define TclBN_mp_init_copy \ - (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ -#endif -#ifndef TclBN_mp_init_multi -#define TclBN_mp_init_multi \ - (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ -#endif -#ifndef TclBN_mp_init_set -#define TclBN_mp_init_set \ - (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ -#endif -#ifndef TclBN_mp_init_size -#define TclBN_mp_init_size \ - (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ -#endif -#ifndef TclBN_mp_lshd -#define TclBN_mp_lshd \ - (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ -#endif -#ifndef TclBN_mp_mod -#define TclBN_mp_mod \ - (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ -#endif -#ifndef TclBN_mp_mod_2d -#define TclBN_mp_mod_2d \ - (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ -#endif -#ifndef TclBN_mp_mul -#define TclBN_mp_mul \ - (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ -#endif -#ifndef TclBN_mp_mul_d -#define TclBN_mp_mul_d \ - (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ -#endif -#ifndef TclBN_mp_mul_2 -#define TclBN_mp_mul_2 \ - (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ -#endif -#ifndef TclBN_mp_mul_2d -#define TclBN_mp_mul_2d \ - (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ -#endif -#ifndef TclBN_mp_neg -#define TclBN_mp_neg \ - (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ -#endif -#ifndef TclBN_mp_or -#define TclBN_mp_or \ - (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ -#endif -#ifndef TclBN_mp_radix_size -#define TclBN_mp_radix_size \ - (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ -#endif -#ifndef TclBN_mp_read_radix -#define TclBN_mp_read_radix \ - (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ -#endif -#ifndef TclBN_mp_rshd -#define TclBN_mp_rshd \ - (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ -#endif -#ifndef TclBN_mp_shrink -#define TclBN_mp_shrink \ - (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ -#endif -#ifndef TclBN_mp_set -#define TclBN_mp_set \ - (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ -#endif -#ifndef TclBN_mp_sqr -#define TclBN_mp_sqr \ - (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ -#endif -#ifndef TclBN_mp_sqrt -#define TclBN_mp_sqrt \ - (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ -#endif -#ifndef TclBN_mp_sub -#define TclBN_mp_sub \ - (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ -#endif -#ifndef TclBN_mp_sub_d -#define TclBN_mp_sub_d \ - (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ -#endif -#ifndef TclBN_mp_to_unsigned_bin -#define TclBN_mp_to_unsigned_bin \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ -#endif -#ifndef TclBN_mp_to_unsigned_bin_n -#define TclBN_mp_to_unsigned_bin_n \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ -#endif -#ifndef TclBN_mp_toradix_n -#define TclBN_mp_toradix_n \ - (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ -#endif -#ifndef TclBN_mp_unsigned_bin_size -#define TclBN_mp_unsigned_bin_size \ - (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ -#endif -#ifndef TclBN_mp_xor -#define TclBN_mp_xor \ - (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ -#endif -#ifndef TclBN_mp_zero -#define TclBN_mp_zero \ - (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ -#endif -#ifndef TclBN_reverse -#define TclBN_reverse \ - (tclTomMathStubsPtr->tclBN_reverse) /* 50 */ -#endif -#ifndef TclBN_fast_s_mp_mul_digs -#define TclBN_fast_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ -#endif -#ifndef TclBN_fast_s_mp_sqr -#define TclBN_fast_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ -#endif -#ifndef TclBN_mp_karatsuba_mul -#define TclBN_mp_karatsuba_mul \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ -#endif -#ifndef TclBN_mp_karatsuba_sqr -#define TclBN_mp_karatsuba_sqr \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ -#endif -#ifndef TclBN_mp_toom_mul -#define TclBN_mp_toom_mul \ - (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ -#endif -#ifndef TclBN_mp_toom_sqr -#define TclBN_mp_toom_sqr \ - (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ -#endif -#ifndef TclBN_s_mp_add -#define TclBN_s_mp_add \ - (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ -#endif -#ifndef TclBN_s_mp_mul_digs -#define TclBN_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ -#endif -#ifndef TclBN_s_mp_sqr -#define TclBN_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ -#endif -#ifndef TclBN_s_mp_sub -#define TclBN_s_mp_sub \ - (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ -#endif -#ifndef TclBN_mp_init_set_int -#define TclBN_mp_init_set_int \ - (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ -#endif -#ifndef TclBN_mp_set_int -#define TclBN_mp_set_int \ - (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ -#endif -#ifndef TclBN_mp_cnt_lsb -#define TclBN_mp_cnt_lsb \ - (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ -#endif -/* Slot 64 is reserved */ -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -/* Slot 69 is reserved */ -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* Slot 74 is reserved */ -/* Slot 75 is reserved */ -/* Slot 76 is reserved */ -/* Slot 77 is reserved */ -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -#ifndef TclUnusedStubEntry -#define TclUnusedStubEntry \ - (tclTomMathStubsPtr->tclUnusedStubEntry) /* 80 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclWinPort.h deleted file mode 100644 index 3cab38592..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tclWinPort.h +++ /dev/null @@ -1,489 +0,0 @@ -/* - * tclWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLWINPORT -#define _TCLWINPORT - - -#if !defined(_WIN64) && !defined(__MINGW_USE_VC2005_COMPAT) -/* See [Bug 3354324]: file mtime sets wrong time */ -# define __MINGW_USE_VC2005_COMPAT -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -/* Compatibility to older visual studio / windows platform SDK */ -#if !defined(MAXULONG_PTR) -typedef DWORD DWORD_PTR; -typedef DWORD_PTR * PDWORD_PTR; -#endif - -/* - * Ask for the winsock function typedefs, also. - */ -#define INCL_WINSOCK_API_TYPEDEFS 1 -#include - -#ifdef CHECK_UNICODE_CALLS -# define _UNICODE -# define UNICODE -# define __TCHAR_DEFINED - typedef float *_TCHAR; -# define _TCHAR_DEFINED - typedef float *TCHAR; -#endif /* CHECK_UNICODE_CALLS */ - -/* - *--------------------------------------------------------------------------- - * The following sets of #includes and #ifdefs are required to get Tcl to - * compile under the windows compilers. - *--------------------------------------------------------------------------- - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#if HAVE_INTTYPES_H -# include -#endif -#include - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -/* - * Need to block out these includes for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#include -# ifdef __BORLANDC__ -# include -# else -# include -# endif /* __BORLANDC__ */ -#endif /* __MWERKS__ */ - -/* - * Define EINPROGRESS in terms of WSAEINPROGRESS. - */ - -#undef EINPROGRESS -#define EINPROGRESS WSAEINPROGRESS - -/* - * Define ENOTSUP to a value that will never occur. - */ - -#undef ENOTSUP -#define ENOTSUP -1030507 - -/* Those codes, from Visual Studio 2010, conflict with other values */ -#undef ENODATA -#undef ENOMSG -#undef ENOSR -#undef ENOSTR -#undef EPROTO - -/* - * The following defines redefine the Windows Socket errors as - * BSD errors so Tcl_PosixError can do the right thing. - */ - -#undef EWOULDBLOCK -#define EWOULDBLOCK EAGAIN -#undef EALREADY -#define EALREADY 149 /* operation already in progress */ -#undef ENOTSOCK -#define ENOTSOCK 95 /* Socket operation on non-socket */ -#undef EDESTADDRREQ -#define EDESTADDRREQ 96 /* Destination address required */ -#undef EMSGSIZE -#define EMSGSIZE 97 /* Message too long */ -#undef EPROTOTYPE -#define EPROTOTYPE 98 /* Protocol wrong type for socket */ -#undef ENOPROTOOPT -#define ENOPROTOOPT 99 /* Protocol not available */ -#undef EPROTONOSUPPORT -#define EPROTONOSUPPORT 120 /* Protocol not supported */ -#undef ESOCKTNOSUPPORT -#define ESOCKTNOSUPPORT 121 /* Socket type not supported */ -#undef EOPNOTSUPP -#define EOPNOTSUPP 122 /* Operation not supported on socket */ -#undef EPFNOSUPPORT -#define EPFNOSUPPORT 123 /* Protocol family not supported */ -#undef EAFNOSUPPORT -#define EAFNOSUPPORT 124 /* Address family not supported */ -#undef EADDRINUSE -#define EADDRINUSE 125 /* Address already in use */ -#undef EADDRNOTAVAIL -#define EADDRNOTAVAIL 126 /* Can't assign requested address */ -#undef ENETDOWN -#define ENETDOWN 127 /* Network is down */ -#undef ENETUNREACH -#define ENETUNREACH 128 /* Network is unreachable */ -#undef ENETRESET -#define ENETRESET 129 /* Network dropped connection on reset */ -#undef ECONNABORTED -#define ECONNABORTED 130 /* Software caused connection abort */ -#undef ECONNRESET -#define ECONNRESET 131 /* Connection reset by peer */ -#undef ENOBUFS -#define ENOBUFS 132 /* No buffer space available */ -#undef EISCONN -#define EISCONN 133 /* Socket is already connected */ -#undef ENOTCONN -#define ENOTCONN 134 /* Socket is not connected */ -#undef ESHUTDOWN -#define ESHUTDOWN 143 /* Can't send after socket shutdown */ -#undef ETOOMANYREFS -#define ETOOMANYREFS 144 /* Too many references: can't splice */ -#undef ETIMEDOUT -#define ETIMEDOUT 145 /* Connection timed out */ -#undef ECONNREFUSED -#define ECONNREFUSED 146 /* Connection refused */ -#undef ELOOP -#define ELOOP 90 /* Symbolic link loop */ -#undef EHOSTDOWN -#define EHOSTDOWN 147 /* Host is down */ -#undef EHOSTUNREACH -#define EHOSTUNREACH 148 /* No route to host */ -#undef ENOTEMPTY -#define ENOTEMPTY 93 /* directory not empty */ -#undef EUSERS -#define EUSERS 94 /* Too many users (for UFS) */ -#undef EDQUOT -#define EDQUOT 69 /* Disc quota exceeded */ -#undef ESTALE -#define ESTALE 151 /* Stale NFS file handle */ -#undef EREMOTE -#define EREMOTE 66 /* The object is remote */ - -/* - * It is very hard to determine how Windows reacts to attempting to - * set a file pointer outside the input datatype's representable - * region. So we fake the error code ourselves. - */ - -#undef EOVERFLOW -#define EOVERFLOW EFBIG /* The object couldn't fit in the datatype */ - -/* - * Signals not known to the standard ANSI signal.h. These are used - * by Tcl_WaitPid() and generic/tclPosixStr.c - */ - -#ifndef SIGTRAP -# define SIGTRAP 5 -#endif -#ifndef SIGBUS -# define SIGBUS 10 -#endif - -/* - * Supply definitions for macros to query wait status, if not already - * defined in header files above. - */ - -#if TCL_UNION_WAIT -# define WAIT_STATUS_TYPE union wait -#else -# define WAIT_STATUS_TYPE int -#endif /* TCL_UNION_WAIT */ - -#ifndef WIFEXITED -# define WIFEXITED(stat) (((*((int *) &(stat))) & 0xC0000000) == 0) -#endif - -#ifndef WEXITSTATUS -# define WEXITSTATUS(stat) (*((int *) &(stat))) -#endif - -#ifndef WIFSIGNALED -# define WIFSIGNALED(stat) ((*((int *) &(stat))) & 0xC0000000) -#endif - -#ifndef WTERMSIG -# define WTERMSIG(stat) ((*((int *) &(stat))) & 0x7f) -#endif - -#ifndef WIFSTOPPED -# define WIFSTOPPED(stat) 0 -#endif - -#ifndef WSTOPSIG -# define WSTOPSIG(stat) (((*((int *) &(stat))) >> 8) & 0xff) -#endif - -/* - * Define constants for waitpid() system call if they aren't defined - * by a system header file. - */ - -#ifndef WNOHANG -# define WNOHANG 1 -#endif -#ifndef WUNTRACED -# define WUNTRACED 2 -#endif - -/* - * Define access mode constants if they aren't already defined. - */ - -#ifndef F_OK -# define F_OK 00 -#endif -#ifndef X_OK -# define X_OK 01 -#endif -#ifndef W_OK -# define W_OK 02 -#endif -#ifndef R_OK -# define R_OK 04 -#endif - -/* - * Define macros to query file type bits, if they're not already - * defined. - */ - -#ifndef S_IFLNK -# define S_IFLNK 0120000 /* Symbolic Link */ -#endif - -#ifndef S_ISREG -# ifdef S_IFREG -# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) -# else -# define S_ISREG(m) 0 -# endif -#endif /* !S_ISREG */ -#ifndef S_ISDIR -# ifdef S_IFDIR -# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) -# else -# define S_ISDIR(m) 0 -# endif -#endif /* !S_ISDIR */ -#ifndef S_ISCHR -# ifdef S_IFCHR -# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) -# else -# define S_ISCHR(m) 0 -# endif -#endif /* !S_ISCHR */ -#ifndef S_ISBLK -# ifdef S_IFBLK -# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) -# else -# define S_ISBLK(m) 0 -# endif -#endif /* !S_ISBLK */ -#ifndef S_ISFIFO -# ifdef S_IFIFO -# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) -# else -# define S_ISFIFO(m) 0 -# endif -#endif /* !S_ISFIFO */ -#ifndef S_ISLNK -# ifdef S_IFLNK -# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) -# else -# define S_ISLNK(m) 0 -# endif -#endif /* !S_ISLNK */ - - -/* - * Define MAXPATHLEN in terms of MAXPATH if available - */ - -#ifndef MAXPATH -# define MAXPATH MAX_PATH -#endif /* MAXPATH */ - -#ifndef MAXPATHLEN -# define MAXPATHLEN MAXPATH -#endif /* MAXPATHLEN */ - -/* - * Define pid_t and uid_t if they're not already defined. - */ - -#if ! TCL_PID_T -# define pid_t int -#endif /* !TCL_PID_T */ -#if ! TCL_UID_T -# define uid_t int -#endif /* !TCL_UID_T */ - -/* - * Visual C++ has some odd names for common functions, so we need to - * define a few macros to handle them. Also, it defines EDEADLOCK and - * EDEADLK as the same value, which confuses Tcl_ErrnoId(). - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define environ _environ -# if defined(_MSC_VER) && (_MSC_VER < 1600) -# define hypot _hypot -# endif -# define exception _exception -# undef EDEADLOCK -# if defined(_MSC_VER) && (_MSC_VER >= 1700) -# define timezone _timezone -# endif -#endif /* _MSC_VER || __MSVCRT__ */ - -/* - * Borland's timezone and environ functions. - */ - -#ifdef __BORLANDC__ -# define timezone _timezone -# define environ _environ -#endif /* __BORLANDC__ */ - -#ifdef __WATCOMC__ -# if !defined(__CHAR_SIGNED__) -# error "You must use the -j switch to ensure char is signed." -# endif -#endif - - -/* - * MSVC 8.0 started to mark many standard C library functions depreciated - * including the *printf family and others. Tell it to shut up. - * (_MSC_VER is 1200 for VC6, 1300 or 1310 for vc7.net, 1400 for 8.0) - */ -#if defined(_MSC_VER) -# pragma warning(disable:4146) -# pragma warning(disable:4244) -# if _MSC_VER >= 1400 -# pragma warning(disable:4267) -# pragma warning(disable:4311) -# pragma warning(disable:4312) -# pragma warning(disable:4996) -# endif -#endif - - -/* - * There is no platform-specific panic routine for Windows in the Tcl internals. - */ - -#define TclpPanic ((Tcl_PanicProc *) NULL) - -/* - *--------------------------------------------------------------------------- - * The following macros and declarations represent the interface between - * generic and windows-specific parts of Tcl. Some of the macros may - * override functions declared in tclInt.h. - *--------------------------------------------------------------------------- - */ - -/* - * The default platform eol translation on Windows is TCL_TRANSLATE_CRLF: - */ - -#define TCL_PLATFORM_TRANSLATION TCL_TRANSLATE_CRLF - -/* - * Declare dynamic loading extension macro. - */ - -#define TCL_SHLIB_EXT ".dll" - -/* - * The following define ensures that we use the native putenv - * implementation to modify the environment array. This keeps - * the C level environment in synch with the system level environment. - */ - -#define USE_PUTENV 1 -#define USE_PUTENV_FOR_UNSET 1 - -/* - * Msvcrt's putenv() copies the string rather than takes ownership of it. - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define HAVE_PUTENV_THAT_COPIES 1 -#endif - -/* - * Older version of Mingw are known to lack a MWMO_ALERTABLE define. - */ -#if !defined(MWMO_ALERTABLE) -# define MWMO_ALERTABLE 2 -#endif - -/* - * The following defines wrap the system memory allocation routines for - * use by tclAlloc.c. - */ - -#define TclpSysAlloc(size, isBin) ((void*)HeapAlloc(GetProcessHeap(), \ - (DWORD)0, (DWORD)size)) -#define TclpSysFree(ptr) (HeapFree(GetProcessHeap(), \ - (DWORD)0, (HGLOBAL)ptr)) -#define TclpSysRealloc(ptr, size) ((void*)HeapReAlloc(GetProcessHeap(), \ - (DWORD)0, (LPVOID)ptr, (DWORD)size)) - -/* This type is not defined in the Windows headers */ -#define socklen_t int - - -/* - * The following macros have trivial definitions, allowing generic code to - * address platform-specific issues. - */ - -#define TclpReleaseFile(file) ckfree((char *) file) - -/* - * The following macros and declarations wrap the C runtime library - * functions. - */ - -#define TclpExit exit - -#ifndef INVALID_SET_FILE_POINTER -#define INVALID_SET_FILE_POINTER 0xFFFFFFFF -#endif /* INVALID_SET_FILE_POINTER */ - -#ifndef LABEL_SECURITY_INFORMATION -# define LABEL_SECURITY_INFORMATION (0x00000010L) -#endif - -#define Tcl_DirEntry void -#define TclDIR void - -#endif /* _TCLWINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tk.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tk.h deleted file mode 100644 index baa0aadf6..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tk.h +++ /dev/null @@ -1,1621 +0,0 @@ -/* - * tk.h -- - * - * Declarations for Tk-related things that are visible outside of the Tk - * module itself. - * - * Copyright (c) 1989-1994 The Regents of the University of California. - * Copyright (c) 1994 The Australian National University. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 Ajuba Solutions. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TK -#define _TK - -#include -#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION < 5) -# error Tk 8.5 must be compiled with tcl.h from Tcl 8.5 or better -#endif - -#ifndef _ANSI_ARGS_ -# ifndef NO_PROTOTYPES -# define _ANSI_ARGS_(x) x -# else -# define _ANSI_ARGS_(x) () -# endif -#endif - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * When version numbers change here, you must also go into the following files - * and update the version numbers: - * - * library/tk.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * README (sections 0 and 1) - * macosx/Wish.xcode/project.pbxproj (not patchlevel) 1 LOC - * macosx/Wish-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) - * unix/README (not patchlevel) - * unix/tk.spec (1 LOC patch) - * win/tcl.m4 (not patchlevel) - * - * You may also need to update some of these files when the numbers change for - * the version of Tcl that this release of Tk is compiled against. - */ - -#define TK_MAJOR_VERSION 8 -#define TK_MINOR_VERSION 5 -#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TK_RELEASE_SERIAL 19 - -#define TK_VERSION "8.5" -#define TK_PATCH_LEVEL "8.5.19" - -/* - * A special definition used to allow this header file to be included from - * windows or mac resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool and manually set - * for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and procedure - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -#if !defined(_XLIB_H) && !defined(_X11_XLIB_H_) -# include -# ifdef MAC_OSX_TK -# include -# endif -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -# include -#endif - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - *---------------------------------------------------------------------- - * - * Decide whether or not to use input methods. - */ - -#ifdef XNQueryInputStyle -#define TK_USE_INPUT_METHODS -#endif - -/* - * Dummy types that are used by clients: - */ - -typedef struct Tk_BindingTable_ *Tk_BindingTable; -typedef struct Tk_Canvas_ *Tk_Canvas; -typedef struct Tk_Cursor_ *Tk_Cursor; -typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; -typedef struct Tk_Font_ *Tk_Font; -typedef struct Tk_Image__ *Tk_Image; -typedef struct Tk_ImageMaster_ *Tk_ImageMaster; -typedef struct Tk_OptionTable_ *Tk_OptionTable; -typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; -typedef struct Tk_TextLayout_ *Tk_TextLayout; -typedef struct Tk_Window_ *Tk_Window; -typedef struct Tk_3DBorder_ *Tk_3DBorder; -typedef struct Tk_Style_ *Tk_Style; -typedef struct Tk_StyleEngine_ *Tk_StyleEngine; -typedef struct Tk_StyledElement_ *Tk_StyledElement; - -/* - * Additional types exported to clients. - */ - -typedef const char *Tk_Uid; - -/* - *---------------------------------------------------------------------- - * - * The enum below defines the valid types for Tk configuration options as - * implemented by Tk_InitOptions, Tk_SetOptions, etc. - */ - -typedef enum { - TK_OPTION_BOOLEAN, - TK_OPTION_INT, - TK_OPTION_DOUBLE, - TK_OPTION_STRING, - TK_OPTION_STRING_TABLE, - TK_OPTION_COLOR, - TK_OPTION_FONT, - TK_OPTION_BITMAP, - TK_OPTION_BORDER, - TK_OPTION_RELIEF, - TK_OPTION_CURSOR, - TK_OPTION_JUSTIFY, - TK_OPTION_ANCHOR, - TK_OPTION_SYNONYM, - TK_OPTION_PIXELS, - TK_OPTION_WINDOW, - TK_OPTION_END, - TK_OPTION_CUSTOM, - TK_OPTION_STYLE -} Tk_OptionType; - -/* - * Structures of the following type are used by widgets to specify their - * configuration options. Typically each widget has a static array of these - * structures, where each element of the array describes a single - * configuration option. The array is passed to Tk_CreateOptionTable. - */ - -typedef struct Tk_OptionSpec { - Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; - * see definitions above. Last option in table - * must have type TK_OPTION_END. */ - const char *optionName; /* Name used to specify option in Tcl - * commands. */ - const char *dbName; /* Name for option in option database. */ - const char *dbClass; /* Class for option in database. */ - const char *defValue; /* Default value for option if not specified - * in command line, the option database, or - * the system. */ - int objOffset; /* Where in record to store a Tcl_Obj * that - * holds the value of this option, specified - * as an offset in bytes from the start of the - * record. Use the Tk_Offset macro to generate - * values for this. -1 means don't store the - * Tcl_Obj in the record. */ - int internalOffset; /* Where in record to store the internal - * representation of the value of this option, - * such as an int or XColor *. This field is - * specified as an offset in bytes from the - * start of the record. Use the Tk_Offset - * macro to generate values for it. -1 means - * don't store the internal representation in - * the record. */ - int flags; /* Any combination of the values defined - * below. */ - ClientData clientData; /* An alternate place to put option-specific - * data. Used for the monochrome default value - * for colors, etc. */ - int typeMask; /* An arbitrary bit mask defined by the class - * manager; typically bits correspond to - * certain kinds of options such as all those - * that require a redisplay when they change. - * Tk_SetOptions returns the bit-wise OR of - * the typeMasks of all options that were - * changed. */ -} Tk_OptionSpec; - -/* - * Flag values for Tk_OptionSpec structures. These flags are shared by - * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. - */ - -#define TK_OPTION_NULL_OK (1 << 0) -#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) - -/* - * The following structure and function types are used by TK_OPTION_CUSTOM - * options; the structure holds pointers to the functions needed by the Tk - * option config code to handle a custom option. - */ - -typedef int (Tk_CustomOptionSetProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, - int offset, char *saveInternalPtr, int flags)); -typedef Tcl_Obj *(Tk_CustomOptionGetProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset)); -typedef void (Tk_CustomOptionRestoreProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr, char *saveInternalPtr)); -typedef void (Tk_CustomOptionFreeProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr)); - -typedef struct Tk_ObjCustomOption { - const char *name; /* Name of the custom option. */ - Tk_CustomOptionSetProc *setProc; - /* Function to use to set a record's option - * value from a Tcl_Obj */ - Tk_CustomOptionGetProc *getProc; - /* Function to use to get a Tcl_Obj - * representation from an internal - * representation of an option. */ - Tk_CustomOptionRestoreProc *restoreProc; - /* Function to use to restore a saved value - * for the internal representation. */ - Tk_CustomOptionFreeProc *freeProc; - /* Function to use to free the internal - * representation of an option. */ - ClientData clientData; /* Arbitrary one-word value passed to the - * handling procs. */ -} Tk_ObjCustomOption; - -/* - * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. - * Computes number of bytes from beginning of structure to a given field. - */ - -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -/* Workaround for platforms missing offsetof(), e.g. VC++ 6.0 */ -#ifndef offsetof -# define offsetof(type, field) ((size_t) ((char *) &((type *) 0)->field)) -#endif - -/* - * The following two structures are used for error handling. When config - * options are being modified, the old values are saved in a Tk_SavedOptions - * structure. If an error occurs, then the contents of the structure can be - * used to restore all of the old values. The contents of this structure are - * for the private use Tk. No-one outside Tk should ever read or write any of - * the fields of these structures. - */ - -typedef struct Tk_SavedOption { - struct TkOption *optionPtr; /* Points to information that describes the - * option. */ - Tcl_Obj *valuePtr; /* The old value of the option, in the form of - * a Tcl object; may be NULL if the value was - * not saved as an object. */ - double internalForm; /* The old value of the option, in some - * internal representation such as an int or - * (XColor *). Valid only if the field - * optionPtr->specPtr->objOffset is < 0. The - * space must be large enough to accommodate a - * double, a long, or a pointer; right now it - * looks like a double (i.e., 8 bytes) is big - * enough. Also, using a double guarantees - * that the field is properly aligned for - * storing large values. */ -} Tk_SavedOption; - -#ifdef TCL_MEM_DEBUG -# define TK_NUM_SAVED_OPTIONS 2 -#else -# define TK_NUM_SAVED_OPTIONS 20 -#endif - -typedef struct Tk_SavedOptions { - char *recordPtr; /* The data structure in which to restore - * configuration options. */ - Tk_Window tkwin; /* Window associated with recordPtr; needed to - * restore certain options. */ - int numItems; /* The number of valid items in items field. */ - Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; - /* Items used to hold old values. */ - struct Tk_SavedOptions *nextPtr; - /* Points to next structure in list; needed if - * too many options changed to hold all the - * old values in a single structure. NULL - * means no more structures. */ -} Tk_SavedOptions; - -/* - * Structure used to describe application-specific configuration options: - * indicates procedures to call to parse an option and to return a text string - * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES - * LISTED ABOVE. - */ - -/* - * This is a temporary flag used while tkObjConfig and new widgets are in - * development. - */ - -#ifndef __NO_OLD_CONFIG - -typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, CONST84 char *value, char *widgRec, - int offset)); -typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); - -typedef struct Tk_CustomOption { - Tk_OptionParseProc *parseProc; - /* Procedure to call to parse an option and - * store it in converted form. */ - Tk_OptionPrintProc *printProc; - /* Procedure to return a printable string - * describing an existing option. */ - ClientData clientData; /* Arbitrary one-word value used by option - * parser: passed to parseProc and - * printProc. */ -} Tk_CustomOption; - -/* - * Structure used to specify information for Tk_ConfigureWidget. Each - * structure gives complete information for one option, including how the - * option is specified on the command line, where it appears in the option - * database, etc. - */ - -typedef struct Tk_ConfigSpec { - int type; /* Type of option, such as TK_CONFIG_COLOR; - * see definitions below. Last option in table - * must have type TK_CONFIG_END. */ - char *argvName; /* Switch used to specify option in argv. NULL - * means this spec is part of a group. */ - Tk_Uid dbName; /* Name for option in option database. */ - Tk_Uid dbClass; /* Class for option in database. */ - Tk_Uid defValue; /* Default value for option if not specified - * in command line or database. */ - int offset; /* Where in widget record to store value; use - * Tk_Offset macro to generate values for - * this. */ - int specFlags; /* Any combination of the values defined - * below; other bits are used internally by - * tkConfig.c. */ - Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is a - * pointer to info about how to parse and - * print the option. Otherwise it is - * irrelevant. */ -} Tk_ConfigSpec; - -/* - * Type values for Tk_ConfigSpec structures. See the user documentation for - * details. - */ - -typedef enum { - TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, - TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, - TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, - TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, - TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, - TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, - TK_CONFIG_END -} Tk_ConfigTypes; - -/* - * Possible values for flags argument to Tk_ConfigureWidget: - */ - -#define TK_CONFIG_ARGV_ONLY 1 -#define TK_CONFIG_OBJS 0x80 - -/* - * Possible flag values for Tk_ConfigSpec structures. Any bits at or above - * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. - * Before changing any values here, coordinate with tkOldConfig.c - * (internal-use-only flags are defined there). - */ - -#define TK_CONFIG_NULL_OK (1 << 0) -#define TK_CONFIG_COLOR_ONLY (1 << 1) -#define TK_CONFIG_MONO_ONLY (1 << 2) -#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) -#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) -#define TK_CONFIG_USER_BIT 0x100 -#endif /* __NO_OLD_CONFIG */ - -/* - * Structure used to specify how to handle argv options. - */ - -typedef struct { - char *key; /* The key string that flags the option in the - * argv array. */ - int type; /* Indicates option type; see below. */ - char *src; /* Value to be used in setting dst; usage - * depends on type. */ - char *dst; /* Address of value to be modified; usage - * depends on type. */ - char *help; /* Documentation message describing this - * option. */ -} Tk_ArgvInfo; - -/* - * Legal values for the type field of a Tk_ArgvInfo: see the user - * documentation for details. - */ - -#define TK_ARGV_CONSTANT 15 -#define TK_ARGV_INT 16 -#define TK_ARGV_STRING 17 -#define TK_ARGV_UID 18 -#define TK_ARGV_REST 19 -#define TK_ARGV_FLOAT 20 -#define TK_ARGV_FUNC 21 -#define TK_ARGV_GENFUNC 22 -#define TK_ARGV_HELP 23 -#define TK_ARGV_CONST_OPTION 24 -#define TK_ARGV_OPTION_VALUE 25 -#define TK_ARGV_OPTION_NAME_VALUE 26 -#define TK_ARGV_END 27 - -/* - * Flag bits for passing to Tk_ParseArgv: - */ - -#define TK_ARGV_NO_DEFAULTS 0x1 -#define TK_ARGV_NO_LEFTOVERS 0x2 -#define TK_ARGV_NO_ABBREV 0x4 -#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 - -/* - * Enumerated type for describing actions to be taken in response to a - * restrictProc established by Tk_RestrictEvents. - */ - -typedef enum { - TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT -} Tk_RestrictAction; - -/* - * Priority levels to pass to Tk_AddOption: - */ - -#define TK_WIDGET_DEFAULT_PRIO 20 -#define TK_STARTUP_FILE_PRIO 40 -#define TK_USER_DEFAULT_PRIO 60 -#define TK_INTERACTIVE_PRIO 80 -#define TK_MAX_PRIO 100 - -/* - * Relief values returned by Tk_GetRelief: - */ - -#define TK_RELIEF_NULL -1 -#define TK_RELIEF_FLAT 0 -#define TK_RELIEF_GROOVE 1 -#define TK_RELIEF_RAISED 2 -#define TK_RELIEF_RIDGE 3 -#define TK_RELIEF_SOLID 4 -#define TK_RELIEF_SUNKEN 5 - -/* - * "Which" argument values for Tk_3DBorderGC: - */ - -#define TK_3D_FLAT_GC 1 -#define TK_3D_LIGHT_GC 2 -#define TK_3D_DARK_GC 3 - -/* - * Special EnterNotify/LeaveNotify "mode" for use in events generated by - * tkShare.c. Pick a high enough value that it's unlikely to conflict with - * existing values (like NotifyNormal) or any new values defined in the - * future. - */ - -#define TK_NOTIFY_SHARE 20 - -/* - * Enumerated type for describing a point by which to anchor something: - */ - -typedef enum { - TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, - TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, - TK_ANCHOR_CENTER -} Tk_Anchor; - -/* - * Enumerated type for describing a style of justification: - */ - -typedef enum { - TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER -} Tk_Justify; - -/* - * The following structure is used by Tk_GetFontMetrics() to return - * information about the properties of a Tk_Font. - */ - -typedef struct Tk_FontMetrics { - int ascent; /* The amount in pixels that the tallest - * letter sticks up above the baseline, plus - * any extra blank space added by the designer - * of the font. */ - int descent; /* The largest amount in pixels that any - * letter sticks below the baseline, plus any - * extra blank space added by the designer of - * the font. */ - int linespace; /* The sum of the ascent and descent. How far - * apart two lines of text in the same font - * should be placed so that none of the - * characters in one line overlap any of the - * characters in the other line. */ -} Tk_FontMetrics; - -/* - * Flags passed to Tk_MeasureChars: - */ - -#define TK_WHOLE_WORDS 1 -#define TK_AT_LEAST_ONE 2 -#define TK_PARTIAL_OK 4 - -/* - * Flags passed to Tk_ComputeTextLayout: - */ - -#define TK_IGNORE_TABS 8 -#define TK_IGNORE_NEWLINES 16 - -/* - * Widget class procedures used to implement platform specific widget - * behavior. - */ - -typedef Window (Tk_ClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin, - Window parent, ClientData instanceData)); -typedef void (Tk_ClassWorldChangedProc) _ANSI_ARGS_((ClientData instanceData)); -typedef void (Tk_ClassModalProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); - -typedef struct Tk_ClassProcs { - unsigned int size; - Tk_ClassWorldChangedProc *worldChangedProc; - /* Procedure to invoke when the widget needs - * to respond in some way to a change in the - * world (font changes, etc.) */ - Tk_ClassCreateProc *createProc; - /* Procedure to invoke when the platform- - * dependent window needs to be created. */ - Tk_ClassModalProc *modalProc; - /* Procedure to invoke after all bindings on a - * widget have been triggered in order to - * handle a modal loop. */ -} Tk_ClassProcs; - -/* - * Simple accessor for Tk_ClassProcs structure. Checks that the structure is - * not NULL, then checks the size field and returns either the requested - * field, if present, or NULL if the structure is too small to have the field - * (or NULL if the structure is NULL). - * - * A more general version of this function may be useful if other - * size-versioned structure pop up in the future: - * - * #define Tk_GetField(name, who, which) \ - * (((who) == NULL) ? NULL : - * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) - */ - -#define Tk_GetClassProc(procs, which) \ - (((procs) == NULL) ? NULL : \ - (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) - -/* - * Each geometry manager (the packer, the placer, etc.) is represented by a - * structure of the following form, which indicates procedures to invoke in - * the geometry manager to carry out certain functions. - */ - -typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); -typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); - -typedef struct Tk_GeomMgr { - const char *name; /* Name of the geometry manager (command used - * to invoke it, or name of widget class that - * allows embedded widgets). */ - Tk_GeomRequestProc *requestProc; - /* Procedure to invoke when a slave's - * requested geometry changes. */ - Tk_GeomLostSlaveProc *lostSlaveProc; - /* Procedure to invoke when a slave is taken - * away from one geometry manager by another. - * NULL means geometry manager doesn't care - * when slaves are lost. */ -} Tk_GeomMgr; - -/* - * Result values returned by Tk_GetScrollInfo: - */ - -#define TK_SCROLL_MOVETO 1 -#define TK_SCROLL_PAGES 2 -#define TK_SCROLL_UNITS 3 -#define TK_SCROLL_ERROR 4 - -/* - *---------------------------------------------------------------------- - * - * Extensions to the X event set - * - *---------------------------------------------------------------------- - */ - -#define VirtualEvent (MappingNotify + 1) -#define ActivateNotify (MappingNotify + 2) -#define DeactivateNotify (MappingNotify + 3) -#define MouseWheelEvent (MappingNotify + 4) -#define TK_LASTEVENT (MappingNotify + 5) - -#define MouseWheelMask (1L << 28) -#define ActivateMask (1L << 29) -#define VirtualEventMask (1L << 30) - -/* - * A virtual event shares most of its fields with the XKeyEvent and - * XButtonEvent structures. 99% of the time a virtual event will be an - * abstraction of a key or button event, so this structure provides the most - * information to the user. The only difference is the changing of the detail - * field for a virtual event so that it holds the name of the virtual event - * being triggered. - * - * When using this structure, you should ensure that you zero out all the - * fields first using memset() or bzero(). - */ - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window event; /* Window on which event was requested. */ - Window root; /* Root window that the event occured on. */ - Window subwindow; /* Child window. */ - Time time; /* Milliseconds. */ - int x, y; /* Pointer x, y coordinates in event - * window. */ - int x_root, y_root; /* Coordinates relative to root. */ - unsigned int state; /* Key or button mask */ - Tk_Uid name; /* Name of virtual event. */ - Bool same_screen; /* Same screen flag. */ - Tcl_Obj *user_data; /* Application-specific data reference; Tk - * will decrement the reference count *once* - * when it has finished processing the - * event. */ -} XVirtualEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window window; /* Window in which event occurred. */ -} XActivateDeactivateEvent; -typedef XActivateDeactivateEvent XActivateEvent; -typedef XActivateDeactivateEvent XDeactivateEvent; - -/* - *---------------------------------------------------------------------- - * - * Macros for querying Tk_Window structures. See the manual entries for - * documentation. - * - *---------------------------------------------------------------------- - */ - -#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) -#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) -#define Tk_Screen(tkwin) \ - (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) -#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) -#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) -#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) -#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) -#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) -#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) -#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) -#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) -#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) -#define Tk_Height(tkwin) \ - (((Tk_FakeWin *) (tkwin))->changes.height) -#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) -#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) -#define Tk_IsEmbedded(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) -#define Tk_IsContainer(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) -#define Tk_IsMapped(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) -#define Tk_IsTopLevel(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) -#define Tk_HasWrapper(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) -#define Tk_WinManaged(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) -#define Tk_TopWinHierarchy(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) -#define Tk_IsManageable(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WM_MANAGEABLE) -#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) -#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) -/* Tk_InternalBorderWidth is deprecated */ -#define Tk_InternalBorderWidth(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderLeft(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderRight(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderRight) -#define Tk_InternalBorderTop(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderTop) -#define Tk_InternalBorderBottom(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderBottom) -#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) -#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) -#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) -#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) - -/* - * The structure below is needed by the macros above so that they can access - * the fields of a Tk_Window. The fields not needed by the macros are declared - * as "dummyX". The structure has its own type in order to prevent apps from - * accessing Tk_Window fields except using official macros. WARNING!! The - * structure definition must be kept consistent with the TkWindow structure in - * tkInt.h. If you change one, then change the other. See the declaration in - * tkInt.h for documentation on what the fields are used for internally. - */ - -typedef struct Tk_FakeWin { - Display *display; - char *dummy1; /* dispPtr */ - int screenNum; - Visual *visual; - int depth; - Window window; - char *dummy2; /* childList */ - char *dummy3; /* lastChildPtr */ - Tk_Window parentPtr; /* parentPtr */ - char *dummy4; /* nextPtr */ - char *dummy5; /* mainPtr */ - char *pathName; - Tk_Uid nameUid; - Tk_Uid classUid; - XWindowChanges changes; - unsigned int dummy6; /* dirtyChanges */ - XSetWindowAttributes atts; - unsigned long dummy7; /* dirtyAtts */ - unsigned int flags; - char *dummy8; /* handlerList */ -#ifdef TK_USE_INPUT_METHODS - XIC dummy9; /* inputContext */ -#endif /* TK_USE_INPUT_METHODS */ - ClientData *dummy10; /* tagPtr */ - int dummy11; /* numTags */ - int dummy12; /* optionLevel */ - char *dummy13; /* selHandlerList */ - char *dummy14; /* geomMgrPtr */ - ClientData dummy15; /* geomData */ - int reqWidth, reqHeight; - int internalBorderLeft; - char *dummy16; /* wmInfoPtr */ - char *dummy17; /* classProcPtr */ - ClientData dummy18; /* instanceData */ - char *dummy19; /* privatePtr */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - int minReqWidth; - int minReqHeight; -} Tk_FakeWin; - -/* - * Flag values for TkWindow (and Tk_FakeWin) structures are: - * - * TK_MAPPED: 1 means window is currently mapped, - * 0 means unmapped. - * TK_TOP_LEVEL: 1 means this is a top-level widget. - * TK_ALREADY_DEAD: 1 means the window is in the process of - * being destroyed already. - * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured - * before it was made to exist. At the time of - * making it exist a ConfigureNotify event needs - * to be generated. - * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details - * TK_CHECKED_IC: 1 means we've already tried to get an input - * context for this window; if the ic field is - * NULL it means that there isn't a context for - * the field. - * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not - * invoke XDestroyWindow to destroy this widget's - * X window. The flag is set when the window has - * already been destroyed elsewhere (e.g. by - * another application) or when it will be - * destroyed later (e.g. by destroying its parent) - * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time - * appeared in the WM_COLORMAP_WINDOWS property - * for its toplevel, so we have to remove it from - * that property if the window is deleted and the - * toplevel isn't. - * TK_EMBEDDED: 1 means that this window (which must be a - * toplevel) is not a free-standing window but - * rather is embedded in some other application. - * TK_CONTAINER: 1 means that this window is a container, and - * that some other application (either in this - * process or elsewhere) may be embedding itself - * inside the window. - * TK_BOTH_HALVES: 1 means that this window is used for - * application embedding (either as container or - * embedded application), and both the containing - * and embedded halves are associated with - * windows in this particular process. - * TK_DEFER_MODAL: 1 means that this window has deferred a modal - * loop until all of the bindings for the current - * event have been invoked. - * TK_WRAPPER: 1 means that this window is the extra wrapper - * window created around a toplevel to hold the - * menubar under Unix. See tkUnixWm.c for more - * information. - * TK_REPARENTED: 1 means that this window has been reparented - * so that as far as the window system is - * concerned it isn't a child of its Tk parent. - * Initially this is used only for special Unix - * menubar windows. - * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is - * thus not accessible from Tk. - * TK_HAS_WRAPPER 1 means that this window has a wrapper window - * TK_WIN_MANAGED 1 means that this window is a child of the root - * window, and is managed by the window manager. - * TK_TOP_HIERARCHY 1 means this window is at the top of a physical - * window hierarchy within this process, i.e. the - * window's parent either doesn't exist or is not - * owned by this Tk application. - * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the - * window's children should propagate up to this - * window. - * TK_WM_MANAGEABLE 1 marks a window as capable of being converted - * into a toplevel using [wm manage]. - */ - -#define TK_MAPPED 1 -#define TK_TOP_LEVEL 2 -#define TK_ALREADY_DEAD 4 -#define TK_NEED_CONFIG_NOTIFY 8 -#define TK_GRAB_FLAG 0x10 -#define TK_CHECKED_IC 0x20 -#define TK_DONT_DESTROY_WINDOW 0x40 -#define TK_WM_COLORMAP_WINDOW 0x80 -#define TK_EMBEDDED 0x100 -#define TK_CONTAINER 0x200 -#define TK_BOTH_HALVES 0x400 -#define TK_DEFER_MODAL 0x800 -#define TK_WRAPPER 0x1000 -#define TK_REPARENTED 0x2000 -#define TK_ANONYMOUS_WINDOW 0x4000 -#define TK_HAS_WRAPPER 0x8000 -#define TK_WIN_MANAGED 0x10000 -#define TK_TOP_HIERARCHY 0x20000 -#define TK_PROP_PROPCHANGE 0x40000 -#define TK_WM_MANAGEABLE 0x80000 - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for defining new canvas items: - * - *---------------------------------------------------------------------- - */ - -typedef enum { - TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, - TK_STATE_NORMAL, TK_STATE_HIDDEN -} Tk_State; - -typedef struct Tk_SmoothMethod { - char *name; - int (*coordProc) _ANSI_ARGS_((Tk_Canvas canvas, - double *pointPtr, int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[])); - void (*postscriptProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *coordPtr, - int numPoints, int numSteps)); -} Tk_SmoothMethod; - -/* - * For each item in a canvas widget there exists one record with the following - * structure. Each actual item is represented by a record with the following - * stuff at its beginning, plus additional type-specific stuff after that. - */ - -#define TK_TAG_SPACE 3 - -typedef struct Tk_Item { - int id; /* Unique identifier for this item (also - * serves as first tag for item). */ - struct Tk_Item *nextPtr; /* Next in display list of all items in this - * canvas. Later items in list are drawn on - * top of earlier ones. */ - Tk_Uid staticTagSpace[TK_TAG_SPACE]; - /* Built-in space for limited # of tags. */ - Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to - * staticTagSpace, but may point to malloc-ed - * space if there are lots of tags. */ - int tagSpace; /* Total amount of tag space available at - * tagPtr. */ - int numTags; /* Number of tag slots actually used at - * *tagPtr. */ - struct Tk_ItemType *typePtr;/* Table of procedures that implement this - * type of item. */ - int x1, y1, x2, y2; /* Bounding box for item, in integer canvas - * units. Set by item-specific code and - * guaranteed to contain every pixel drawn in - * item. Item area includes x1 and y1 but not - * x2 and y2. */ - struct Tk_Item *prevPtr; /* Previous in display list of all items in - * this canvas. Later items in list are drawn - * just below earlier ones. */ - Tk_State state; /* State of item. */ - char *reserved1; /* reserved for future use */ - int redraw_flags; /* Some flags used in the canvas */ - - /* - *------------------------------------------------------------------ - * Starting here is additional type-specific stuff; see the declarations - * for individual types to see what is part of each type. The actual space - * below is determined by the "itemInfoSize" of the type's Tk_ItemType - * record. - *------------------------------------------------------------------ - */ -} Tk_Item; - -/* - * Flag bits for canvases (redraw_flags): - * - * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the - * canvas state changes. - * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been - * prepared, so the general canvas code doesn't - * need to do that any more. - */ - -#define TK_ITEM_STATE_DEPENDANT 1 -#define TK_ITEM_DONT_REDRAW 2 - -/* - * Records of the following type are used to describe a type of item (e.g. - * lines, circles, etc.) that can form part of a canvas widget. - */ - -#ifdef USE_OLD_CANVAS -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv)); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv, int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv)); -#else -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const objv[])); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const objv[], int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const argv[])); -#endif -typedef void Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display)); -typedef void Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display, Drawable dst, - int x, int y, int width, int height)); -typedef double Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *pointPtr)); -typedef int Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *rectPtr)); -typedef int Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int prepass)); -typedef void Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double originX, double originY, - double scaleX, double scaleY)); -typedef void Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double deltaX, double deltaY)); -typedef int Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, char *indexString, - int *indexPtr)); -typedef void Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int index)); -typedef int Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int offset, char *buffer, - int maxBytes)); -typedef void Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int beforeThis, char *string)); -typedef void Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int first, int last)); - -#ifndef __NO_OLD_CONFIG - -typedef struct Tk_ItemType { - char *name; /* The name of this type of item, such as - * "line". */ - int itemSize; /* Total amount of space needed for item's - * record. */ - Tk_ItemCreateProc *createProc; - /* Procedure to create a new item of this - * type. */ - Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for - * this type. Used for returning configuration - * info. */ - Tk_ItemConfigureProc *configProc; - /* Procedure to call to change configuration - * options. */ - Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's - * coordinates. */ - Tk_ItemDeleteProc *deleteProc; - /* Procedure to delete existing item of this - * type. */ - Tk_ItemDisplayProc *displayProc; - /* Procedure to display items of this type. */ - int alwaysRedraw; /* Non-zero means displayProc should be called - * even when the item has been moved - * off-screen. */ - Tk_ItemPointProc *pointProc;/* Computes distance from item to a given - * point. */ - Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, - * or overlapping an area. */ - Tk_ItemPostscriptProc *postscriptProc; - /* Procedure to write a Postscript description - * for items of this type. */ - Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ - Tk_ItemTranslateProc *translateProc; - /* Procedure to translate items of this - * type. */ - Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated - * character. NULL if item doesn't support - * indexing. */ - Tk_ItemCursorProc *icursorProc; - /* Procedure to set insert cursor posn to just - * before a given position. */ - Tk_ItemSelectionProc *selectionProc; - /* Procedure to return selection (in STRING - * format) when it is in this item. */ - Tk_ItemInsertProc *insertProc; - /* Procedure to insert something into an - * item. */ - Tk_ItemDCharsProc *dCharsProc; - /* Procedure to delete characters from an - * item. */ - struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ - char *reserved1; /* Reserved for future extension. */ - int reserved2; /* Carefully compatible with */ - char *reserved3; /* Jan Nijtmans dash patch */ - char *reserved4; -} Tk_ItemType; - -#endif - -/* - * The following structure provides information about the selection and the - * insertion cursor. It is needed by only a few items, such as those that - * display text. It is shared by the generic canvas code and the item-specific - * code, but most of the fields should be written only by the canvas generic - * code. - */ - -typedef struct Tk_CanvasTextInfo { - Tk_3DBorder selBorder; /* Border and background for selected - * characters. Read-only to items.*/ - int selBorderWidth; /* Width of border around selection. Read-only - * to items. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * Read-only to items. */ - Tk_Item *selItemPtr; /* Pointer to selected item. NULL means - * selection isn't in this canvas. Writable by - * items. */ - int selectFirst; /* Character index of first selected - * character. Writable by items. */ - int selectLast; /* Character index of last selected character. - * Writable by items. */ - Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not - * necessarily selItemPtr. Read-only to - * items. */ - int selectAnchor; /* Character index of fixed end of selection - * (i.e. "select to" operation will use this - * as one end of the selection). Writable by - * items. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. Read-only to items. */ - int insertWidth; /* Total width of insertion cursor. Read-only - * to items. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. - * Read-only to items. */ - Tk_Item *focusItemPtr; /* Item that currently has the input focus, or - * NULL if no such item. Read-only to items. */ - int gotFocus; /* Non-zero means that the canvas widget has - * the input focus. Read-only to items.*/ - int cursorOn; /* Non-zero means that an insertion cursor - * should be displayed in focusItemPtr. - * Read-only to items.*/ -} Tk_CanvasTextInfo; - -/* - * Structures used for Dashing and Outline. - */ - -typedef struct Tk_Dash { - int number; - union { - char *pt; - char array[sizeof(char *)]; - } pattern; -} Tk_Dash; - -typedef struct Tk_TSOffset { - int flags; /* Flags; see below for possible values */ - int xoffset; /* x offset */ - int yoffset; /* y offset */ -} Tk_TSOffset; - -/* - * Bit fields in Tk_Offset->flags: - */ - -#define TK_OFFSET_INDEX 1 -#define TK_OFFSET_RELATIVE 2 -#define TK_OFFSET_LEFT 4 -#define TK_OFFSET_CENTER 8 -#define TK_OFFSET_RIGHT 16 -#define TK_OFFSET_TOP 32 -#define TK_OFFSET_MIDDLE 64 -#define TK_OFFSET_BOTTOM 128 - -typedef struct Tk_Outline { - GC gc; /* Graphics context. */ - double width; /* Width of outline. */ - double activeWidth; /* Width of outline. */ - double disabledWidth; /* Width of outline. */ - int offset; /* Dash offset. */ - Tk_Dash dash; /* Dash pattern. */ - Tk_Dash activeDash; /* Dash pattern if state is active. */ - Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ - VOID *reserved1; /* Reserved for future expansion. */ - VOID *reserved2; - VOID *reserved3; - Tk_TSOffset tsoffset; /* Stipple offset for outline. */ - XColor *color; /* Outline color. */ - XColor *activeColor; /* Outline color if state is active. */ - XColor *disabledColor; /* Outline color if state is disabled. */ - Pixmap stipple; /* Outline Stipple pattern. */ - Pixmap activeStipple; /* Outline Stipple pattern if state is - * active. */ - Pixmap disabledStipple; /* Outline Stipple pattern if state is - * disabled. */ -} Tk_Outline; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing images: - * - *---------------------------------------------------------------------- - */ - -typedef struct Tk_ImageType Tk_ImageType; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int argc, char **argv, Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#else -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int objc, Tcl_Obj *const objv[], Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#endif -typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin, - ClientData masterData)); -typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData, - Display *display, Drawable drawable, int imageX, int imageY, - int width, int height, int drawableX, int drawableY)); -typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData, - Display *display)); -typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData)); -typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData, - int x, int y, int width, int height, int imageWidth, - int imageHeight)); -typedef int (Tk_ImagePostscriptProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, - int x, int y, int width, int height, int prepass)); - -/* - * The following structure represents a particular type of image (bitmap, xpm - * image, etc.). It provides information common to all images of that type, - * such as the type name and a collection of procedures in the image manager - * that respond to various events. Each image manager is represented by one of - * these structures. - */ - -struct Tk_ImageType { - char *name; /* Name of image type. */ - Tk_ImageCreateProc *createProc; - /* Procedure to call to create a new image of - * this type. */ - Tk_ImageGetProc *getProc; /* Procedure to call the first time - * Tk_GetImage is called in a new way (new - * visual or screen). */ - Tk_ImageDisplayProc *displayProc; - /* Call to draw image, in response to - * Tk_RedrawImage calls. */ - Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is - * called to release an instance of an - * image. */ - Tk_ImageDeleteProc *deleteProc; - /* Procedure to call to delete image. It will - * not be called until after freeProc has been - * called for each instance of the image. */ - Tk_ImagePostscriptProc *postscriptProc; - /* Procedure to call to produce postscript - * output for the image. */ - struct Tk_ImageType *nextPtr; - /* Next in list of all image types currently - * known. Filled in by Tk, not by image - * manager. */ - char *reserved; /* reserved for future expansion */ -}; - -/* - *---------------------------------------------------------------------- - * - * Additional definitions used to manage images of type "photo". - * - *---------------------------------------------------------------------- - */ - -/* - * The following type is used to identify a particular photo image to be - * manipulated: - */ - -typedef void *Tk_PhotoHandle; - -/* - * The following structure describes a block of pixels in memory: - */ - -typedef struct Tk_PhotoImageBlock { - unsigned char *pixelPtr; /* Pointer to the first pixel. */ - int width; /* Width of block, in pixels. */ - int height; /* Height of block, in pixels. */ - int pitch; /* Address difference between corresponding - * pixels in successive lines. */ - int pixelSize; /* Address difference between successive - * pixels in the same line. */ - int offset[4]; /* Address differences between the red, green, - * blue and alpha components of the pixel and - * the pixel as a whole. */ -} Tk_PhotoImageBlock; - -/* - * The following values control how blocks are combined into photo images when - * the alpha component of a pixel is not 255, a.k.a. the compositing rule. - */ - -#define TK_PHOTO_COMPOSITE_OVERLAY 0 -#define TK_PHOTO_COMPOSITE_SET 1 - -/* - * Procedure prototypes and structures used in reading and writing photo - * images: - */ - -typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - char *fileName, char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string, - char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, char *fileName, char *formatString, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *string, char *formatString, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_DString *dataPtr, char *formatString, - Tk_PhotoImageBlock *blockPtr)); -#else -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, int *widthPtr, - int *heightPtr, Tcl_Interp *interp)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((Tcl_Obj *dataObj, - Tcl_Obj *format, int *widthPtr, int *heightPtr, - Tcl_Interp *interp)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, const char *fileName, Tcl_Obj *format, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *dataObj, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - const char *fileName, Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -#endif - -/* - * The following structure represents a particular file format for storing - * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image - * files of that format to be recognized and read into a photo image. - */ - -struct Tk_PhotoImageFormat { - char *name; /* Name of image file format */ - Tk_ImageFileMatchProc *fileMatchProc; - /* Procedure to call to determine whether an - * image file matches this format. */ - Tk_ImageStringMatchProc *stringMatchProc; - /* Procedure to call to determine whether the - * data in a string matches this format. */ - Tk_ImageFileReadProc *fileReadProc; - /* Procedure to call to read data from an - * image file into a photo image. */ - Tk_ImageStringReadProc *stringReadProc; - /* Procedure to call to read data from a - * string into a photo image. */ - Tk_ImageFileWriteProc *fileWriteProc; - /* Procedure to call to write data from a - * photo image to a file. */ - Tk_ImageStringWriteProc *stringWriteProc; - /* Procedure to call to obtain a string - * representation of the data in a photo - * image.*/ - struct Tk_PhotoImageFormat *nextPtr; - /* Next in list of all photo image formats - * currently known. Filled in by Tk, not by - * image format handler. */ -}; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing styles: - * - *---------------------------------------------------------------------- - */ - -/* - * Style support version tag. - */ - -#define TK_STYLE_VERSION_1 0x1 -#define TK_STYLE_VERSION TK_STYLE_VERSION_1 - -/* - * The following structures and prototypes are used as static templates to - * declare widget elements. - */ - -typedef void (Tk_GetElementSizeProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int width, int height, int inner, int *widthPtr, int *heightPtr)); -typedef void (Tk_GetElementBoxProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr)); -typedef int (Tk_GetElementBorderWidthProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin)); -typedef void (Tk_DrawElementProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - Drawable d, int x, int y, int width, int height, int state)); - -typedef struct Tk_ElementOptionSpec { - char *name; /* Name of the required option. */ - Tk_OptionType type; /* Accepted option type. TK_OPTION_END means - * any. */ -} Tk_ElementOptionSpec; - -typedef struct Tk_ElementSpec { - int version; /* Version of the style support. */ - char *name; /* Name of element. */ - Tk_ElementOptionSpec *options; - /* List of required options. Last one's name - * must be NULL. */ - Tk_GetElementSizeProc *getSize; - /* Compute the external (resp. internal) size - * of the element from its desired internal - * (resp. external) size. */ - Tk_GetElementBoxProc *getBox; - /* Compute the inscribed or bounding boxes - * within a given area. */ - Tk_GetElementBorderWidthProc *getBorderWidth; - /* Return the element's internal border width. - * Mostly useful for widgets. */ - Tk_DrawElementProc *draw; /* Draw the element in the given bounding - * box. */ -} Tk_ElementSpec; - -/* - * Element state flags. Can be OR'ed. - */ - -#define TK_ELEMENT_STATE_ACTIVE 1<<0 -#define TK_ELEMENT_STATE_DISABLED 1<<1 -#define TK_ELEMENT_STATE_FOCUS 1<<2 -#define TK_ELEMENT_STATE_PRESSED 1<<3 - -/* - *---------------------------------------------------------------------- - * - * The definitions below provide backward compatibility for functions and - * types related to event handling that used to be in Tk but have moved to - * Tcl. - * - *---------------------------------------------------------------------- - */ - -#define TK_READABLE TCL_READABLE -#define TK_WRITABLE TCL_WRITABLE -#define TK_EXCEPTION TCL_EXCEPTION - -#define TK_DONT_WAIT TCL_DONT_WAIT -#define TK_X_EVENTS TCL_WINDOW_EVENTS -#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS -#define TK_FILE_EVENTS TCL_FILE_EVENTS -#define TK_TIMER_EVENTS TCL_TIMER_EVENTS -#define TK_IDLE_EVENTS TCL_IDLE_EVENTS -#define TK_ALL_EVENTS TCL_ALL_EVENTS - -#define Tk_IdleProc Tcl_IdleProc -#define Tk_FileProc Tcl_FileProc -#define Tk_TimerProc Tcl_TimerProc -#define Tk_TimerToken Tcl_TimerToken - -#define Tk_BackgroundError Tcl_BackgroundError -#define Tk_CancelIdleCall Tcl_CancelIdleCall -#define Tk_CreateFileHandler Tcl_CreateFileHandler -#define Tk_CreateTimerHandler Tcl_CreateTimerHandler -#define Tk_DeleteFileHandler Tcl_DeleteFileHandler -#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler -#define Tk_DoOneEvent Tcl_DoOneEvent -#define Tk_DoWhenIdle Tcl_DoWhenIdle -#define Tk_Sleep Tcl_Sleep - -/* Additional stuff that has moved to Tcl: */ - -#define Tk_EventuallyFree Tcl_EventuallyFree -#define Tk_FreeProc Tcl_FreeProc -#define Tk_Preserve Tcl_Preserve -#define Tk_Release Tcl_Release - -/* Removed Tk_Main, use macro instead */ -#if TCL_MINOR_VERSION > 5 -#if defined(_WIN32) || defined(__CYGWIN__) -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(0), (Tcl_CreateInterp)())) -#else -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) -#endif -#else -#define Tk_Main(argc, argv, proc) \ - Tk_MainEx(argc, argv, proc, (Tcl_CreateInterp)()) -#endif - -const char * Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - const char *version, int exact)); -EXTERN const char * Tk_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, - const char *version, int exact)); - -#ifndef USE_TK_STUBS -#define Tk_InitStubs(interp, version, exact) \ - Tk_PkgInitStubsCheck(interp, version, exact) -#endif /* USE_TK_STUBS */ - -#define Tk_InitImageArgs(interp, argc, argv) /**/ - -/* - *---------------------------------------------------------------------- - * - * Additional procedure types defined by Tk. - * - *---------------------------------------------------------------------- - */ - -typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, - XErrorEvent *errEventPtr)); -typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_ClientMessageProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); -typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, char *portion)); -typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); -typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( - ClientData clientData, XEvent *eventPtr)); -typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, - int offset, char *buffer, int maxBytes)); - -/* - *---------------------------------------------------------------------- - * - * Platform independent exported procedures and variables. - * - *---------------------------------------------------------------------- - */ - -#include "tkDecls.h" - -#ifdef USE_OLD_IMAGE -#undef Tk_CreateImageType -#define Tk_CreateImageType Tk_CreateOldImageType -#undef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat -#endif /* USE_OLD_IMAGE */ - -/* - *---------------------------------------------------------------------- - * - * Allow users to say that they don't want to alter their source to add extra - * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. - * - * This goes after the inclusion of the stubbed-decls so that the declarations - * of what is actually there can be correct. - */ - -#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite -# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE -#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic -# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ -#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoExpand -# undef Tk_PhotoExpand -# endif -# define Tk_PhotoExpand Tk_PhotoExpand_Panic -# ifdef Tk_PhotoSetSize -# undef Tk_PhotoSetSize -# endif -# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic -#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TK */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkDecls.h deleted file mode 100644 index 00a3dde61..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkDecls.h +++ /dev/null @@ -1,3095 +0,0 @@ -/* - * tkDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKDECLS -#define _TKDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef Tk_MainLoop_TCL_DECLARED -#define Tk_MainLoop_TCL_DECLARED -/* 0 */ -EXTERN void Tk_MainLoop(void); -#endif -#ifndef Tk_3DBorderColor_TCL_DECLARED -#define Tk_3DBorderColor_TCL_DECLARED -/* 1 */ -EXTERN XColor * Tk_3DBorderColor(Tk_3DBorder border); -#endif -#ifndef Tk_3DBorderGC_TCL_DECLARED -#define Tk_3DBorderGC_TCL_DECLARED -/* 2 */ -EXTERN GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border, - int which); -#endif -#ifndef Tk_3DHorizontalBevel_TCL_DECLARED -#define Tk_3DHorizontalBevel_TCL_DECLARED -/* 3 */ -EXTERN void Tk_3DHorizontalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief); -#endif -#ifndef Tk_3DVerticalBevel_TCL_DECLARED -#define Tk_3DVerticalBevel_TCL_DECLARED -/* 4 */ -EXTERN void Tk_3DVerticalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief); -#endif -#ifndef Tk_AddOption_TCL_DECLARED -#define Tk_AddOption_TCL_DECLARED -/* 5 */ -EXTERN void Tk_AddOption(Tk_Window tkwin, CONST char *name, - CONST char *value, int priority); -#endif -#ifndef Tk_BindEvent_TCL_DECLARED -#define Tk_BindEvent_TCL_DECLARED -/* 6 */ -EXTERN void Tk_BindEvent(Tk_BindingTable bindingTable, - XEvent *eventPtr, Tk_Window tkwin, - int numObjects, ClientData *objectPtr); -#endif -#ifndef Tk_CanvasDrawableCoords_TCL_DECLARED -#define Tk_CanvasDrawableCoords_TCL_DECLARED -/* 7 */ -EXTERN void Tk_CanvasDrawableCoords(Tk_Canvas canvas, double x, - double y, short *drawableXPtr, - short *drawableYPtr); -#endif -#ifndef Tk_CanvasEventuallyRedraw_TCL_DECLARED -#define Tk_CanvasEventuallyRedraw_TCL_DECLARED -/* 8 */ -EXTERN void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, - int y1, int x2, int y2); -#endif -#ifndef Tk_CanvasGetCoord_TCL_DECLARED -#define Tk_CanvasGetCoord_TCL_DECLARED -/* 9 */ -EXTERN int Tk_CanvasGetCoord(Tcl_Interp *interp, - Tk_Canvas canvas, CONST char *str, - double *doublePtr); -#endif -#ifndef Tk_CanvasGetTextInfo_TCL_DECLARED -#define Tk_CanvasGetTextInfo_TCL_DECLARED -/* 10 */ -EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo(Tk_Canvas canvas); -#endif -#ifndef Tk_CanvasPsBitmap_TCL_DECLARED -#define Tk_CanvasPsBitmap_TCL_DECLARED -/* 11 */ -EXTERN int Tk_CanvasPsBitmap(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap, int x, - int y, int width, int height); -#endif -#ifndef Tk_CanvasPsColor_TCL_DECLARED -#define Tk_CanvasPsColor_TCL_DECLARED -/* 12 */ -EXTERN int Tk_CanvasPsColor(Tcl_Interp *interp, - Tk_Canvas canvas, XColor *colorPtr); -#endif -#ifndef Tk_CanvasPsFont_TCL_DECLARED -#define Tk_CanvasPsFont_TCL_DECLARED -/* 13 */ -EXTERN int Tk_CanvasPsFont(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Font font); -#endif -#ifndef Tk_CanvasPsPath_TCL_DECLARED -#define Tk_CanvasPsPath_TCL_DECLARED -/* 14 */ -EXTERN void Tk_CanvasPsPath(Tcl_Interp *interp, Tk_Canvas canvas, - double *coordPtr, int numPoints); -#endif -#ifndef Tk_CanvasPsStipple_TCL_DECLARED -#define Tk_CanvasPsStipple_TCL_DECLARED -/* 15 */ -EXTERN int Tk_CanvasPsStipple(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap); -#endif -#ifndef Tk_CanvasPsY_TCL_DECLARED -#define Tk_CanvasPsY_TCL_DECLARED -/* 16 */ -EXTERN double Tk_CanvasPsY(Tk_Canvas canvas, double y); -#endif -#ifndef Tk_CanvasSetStippleOrigin_TCL_DECLARED -#define Tk_CanvasSetStippleOrigin_TCL_DECLARED -/* 17 */ -EXTERN void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc); -#endif -#ifndef Tk_CanvasTagsParseProc_TCL_DECLARED -#define Tk_CanvasTagsParseProc_TCL_DECLARED -/* 18 */ -EXTERN int Tk_CanvasTagsParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef Tk_CanvasTagsPrintProc_TCL_DECLARED -#define Tk_CanvasTagsPrintProc_TCL_DECLARED -/* 19 */ -EXTERN char * Tk_CanvasTagsPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef Tk_CanvasTkwin_TCL_DECLARED -#define Tk_CanvasTkwin_TCL_DECLARED -/* 20 */ -EXTERN Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas); -#endif -#ifndef Tk_CanvasWindowCoords_TCL_DECLARED -#define Tk_CanvasWindowCoords_TCL_DECLARED -/* 21 */ -EXTERN void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, - double y, short *screenXPtr, - short *screenYPtr); -#endif -#ifndef Tk_ChangeWindowAttributes_TCL_DECLARED -#define Tk_ChangeWindowAttributes_TCL_DECLARED -/* 22 */ -EXTERN void Tk_ChangeWindowAttributes(Tk_Window tkwin, - unsigned long valueMask, - XSetWindowAttributes *attsPtr); -#endif -#ifndef Tk_CharBbox_TCL_DECLARED -#define Tk_CharBbox_TCL_DECLARED -/* 23 */ -EXTERN int Tk_CharBbox(Tk_TextLayout layout, int index, - int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_ClearSelection_TCL_DECLARED -#define Tk_ClearSelection_TCL_DECLARED -/* 24 */ -EXTERN void Tk_ClearSelection(Tk_Window tkwin, Atom selection); -#endif -#ifndef Tk_ClipboardAppend_TCL_DECLARED -#define Tk_ClipboardAppend_TCL_DECLARED -/* 25 */ -EXTERN int Tk_ClipboardAppend(Tcl_Interp *interp, - Tk_Window tkwin, Atom target, Atom format, - char *buffer); -#endif -#ifndef Tk_ClipboardClear_TCL_DECLARED -#define Tk_ClipboardClear_TCL_DECLARED -/* 26 */ -EXTERN int Tk_ClipboardClear(Tcl_Interp *interp, - Tk_Window tkwin); -#endif -#ifndef Tk_ConfigureInfo_TCL_DECLARED -#define Tk_ConfigureInfo_TCL_DECLARED -/* 27 */ -EXTERN int Tk_ConfigureInfo(Tcl_Interp *interp, Tk_Window tkwin, - Tk_ConfigSpec *specs, char *widgRec, - CONST char *argvName, int flags); -#endif -#ifndef Tk_ConfigureValue_TCL_DECLARED -#define Tk_ConfigureValue_TCL_DECLARED -/* 28 */ -EXTERN int Tk_ConfigureValue(Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - char *widgRec, CONST char *argvName, - int flags); -#endif -#ifndef Tk_ConfigureWidget_TCL_DECLARED -#define Tk_ConfigureWidget_TCL_DECLARED -/* 29 */ -EXTERN int Tk_ConfigureWidget(Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - int argc, CONST84 char **argv, char *widgRec, - int flags); -#endif -#ifndef Tk_ConfigureWindow_TCL_DECLARED -#define Tk_ConfigureWindow_TCL_DECLARED -/* 30 */ -EXTERN void Tk_ConfigureWindow(Tk_Window tkwin, - unsigned int valueMask, - XWindowChanges *valuePtr); -#endif -#ifndef Tk_ComputeTextLayout_TCL_DECLARED -#define Tk_ComputeTextLayout_TCL_DECLARED -/* 31 */ -EXTERN Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font, CONST char *str, - int numChars, int wrapLength, - Tk_Justify justify, int flags, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_CoordsToWindow_TCL_DECLARED -#define Tk_CoordsToWindow_TCL_DECLARED -/* 32 */ -EXTERN Tk_Window Tk_CoordsToWindow(int rootX, int rootY, - Tk_Window tkwin); -#endif -#ifndef Tk_CreateBinding_TCL_DECLARED -#define Tk_CreateBinding_TCL_DECLARED -/* 33 */ -EXTERN unsigned long Tk_CreateBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventStr, - CONST char *command, int append); -#endif -#ifndef Tk_CreateBindingTable_TCL_DECLARED -#define Tk_CreateBindingTable_TCL_DECLARED -/* 34 */ -EXTERN Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp); -#endif -#ifndef Tk_CreateErrorHandler_TCL_DECLARED -#define Tk_CreateErrorHandler_TCL_DECLARED -/* 35 */ -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler(Display *display, int errNum, - int request, int minorCode, - Tk_ErrorProc *errorProc, - ClientData clientData); -#endif -#ifndef Tk_CreateEventHandler_TCL_DECLARED -#define Tk_CreateEventHandler_TCL_DECLARED -/* 36 */ -EXTERN void Tk_CreateEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -#endif -#ifndef Tk_CreateGenericHandler_TCL_DECLARED -#define Tk_CreateGenericHandler_TCL_DECLARED -/* 37 */ -EXTERN void Tk_CreateGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -#endif -#ifndef Tk_CreateImageType_TCL_DECLARED -#define Tk_CreateImageType_TCL_DECLARED -/* 38 */ -EXTERN void Tk_CreateImageType(Tk_ImageType *typePtr); -#endif -#ifndef Tk_CreateItemType_TCL_DECLARED -#define Tk_CreateItemType_TCL_DECLARED -/* 39 */ -EXTERN void Tk_CreateItemType(Tk_ItemType *typePtr); -#endif -#ifndef Tk_CreatePhotoImageFormat_TCL_DECLARED -#define Tk_CreatePhotoImageFormat_TCL_DECLARED -/* 40 */ -EXTERN void Tk_CreatePhotoImageFormat( - Tk_PhotoImageFormat *formatPtr); -#endif -#ifndef Tk_CreateSelHandler_TCL_DECLARED -#define Tk_CreateSelHandler_TCL_DECLARED -/* 41 */ -EXTERN void Tk_CreateSelHandler(Tk_Window tkwin, Atom selection, - Atom target, Tk_SelectionProc *proc, - ClientData clientData, Atom format); -#endif -#ifndef Tk_CreateWindow_TCL_DECLARED -#define Tk_CreateWindow_TCL_DECLARED -/* 42 */ -EXTERN Tk_Window Tk_CreateWindow(Tcl_Interp *interp, Tk_Window parent, - CONST char *name, CONST char *screenName); -#endif -#ifndef Tk_CreateWindowFromPath_TCL_DECLARED -#define Tk_CreateWindowFromPath_TCL_DECLARED -/* 43 */ -EXTERN Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *pathName, - CONST char *screenName); -#endif -#ifndef Tk_DefineBitmap_TCL_DECLARED -#define Tk_DefineBitmap_TCL_DECLARED -/* 44 */ -EXTERN int Tk_DefineBitmap(Tcl_Interp *interp, CONST char *name, - CONST char *source, int width, int height); -#endif -#ifndef Tk_DefineCursor_TCL_DECLARED -#define Tk_DefineCursor_TCL_DECLARED -/* 45 */ -EXTERN void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor); -#endif -#ifndef Tk_DeleteAllBindings_TCL_DECLARED -#define Tk_DeleteAllBindings_TCL_DECLARED -/* 46 */ -EXTERN void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, - ClientData object); -#endif -#ifndef Tk_DeleteBinding_TCL_DECLARED -#define Tk_DeleteBinding_TCL_DECLARED -/* 47 */ -EXTERN int Tk_DeleteBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventStr); -#endif -#ifndef Tk_DeleteBindingTable_TCL_DECLARED -#define Tk_DeleteBindingTable_TCL_DECLARED -/* 48 */ -EXTERN void Tk_DeleteBindingTable(Tk_BindingTable bindingTable); -#endif -#ifndef Tk_DeleteErrorHandler_TCL_DECLARED -#define Tk_DeleteErrorHandler_TCL_DECLARED -/* 49 */ -EXTERN void Tk_DeleteErrorHandler(Tk_ErrorHandler handler); -#endif -#ifndef Tk_DeleteEventHandler_TCL_DECLARED -#define Tk_DeleteEventHandler_TCL_DECLARED -/* 50 */ -EXTERN void Tk_DeleteEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -#endif -#ifndef Tk_DeleteGenericHandler_TCL_DECLARED -#define Tk_DeleteGenericHandler_TCL_DECLARED -/* 51 */ -EXTERN void Tk_DeleteGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -#endif -#ifndef Tk_DeleteImage_TCL_DECLARED -#define Tk_DeleteImage_TCL_DECLARED -/* 52 */ -EXTERN void Tk_DeleteImage(Tcl_Interp *interp, CONST char *name); -#endif -#ifndef Tk_DeleteSelHandler_TCL_DECLARED -#define Tk_DeleteSelHandler_TCL_DECLARED -/* 53 */ -EXTERN void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, - Atom target); -#endif -#ifndef Tk_DestroyWindow_TCL_DECLARED -#define Tk_DestroyWindow_TCL_DECLARED -/* 54 */ -EXTERN void Tk_DestroyWindow(Tk_Window tkwin); -#endif -#ifndef Tk_DisplayName_TCL_DECLARED -#define Tk_DisplayName_TCL_DECLARED -/* 55 */ -EXTERN CONST84_RETURN char * Tk_DisplayName(Tk_Window tkwin); -#endif -#ifndef Tk_DistanceToTextLayout_TCL_DECLARED -#define Tk_DistanceToTextLayout_TCL_DECLARED -/* 56 */ -EXTERN int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, - int y); -#endif -#ifndef Tk_Draw3DPolygon_TCL_DECLARED -#define Tk_Draw3DPolygon_TCL_DECLARED -/* 57 */ -EXTERN void Tk_Draw3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -#endif -#ifndef Tk_Draw3DRectangle_TCL_DECLARED -#define Tk_Draw3DRectangle_TCL_DECLARED -/* 58 */ -EXTERN void Tk_Draw3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -#endif -#ifndef Tk_DrawChars_TCL_DECLARED -#define Tk_DrawChars_TCL_DECLARED -/* 59 */ -EXTERN void Tk_DrawChars(Display *display, Drawable drawable, - GC gc, Tk_Font tkfont, CONST char *source, - int numBytes, int x, int y); -#endif -#ifndef Tk_DrawFocusHighlight_TCL_DECLARED -#define Tk_DrawFocusHighlight_TCL_DECLARED -/* 60 */ -EXTERN void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable); -#endif -#ifndef Tk_DrawTextLayout_TCL_DECLARED -#define Tk_DrawTextLayout_TCL_DECLARED -/* 61 */ -EXTERN void Tk_DrawTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int firstChar, int lastChar); -#endif -#ifndef Tk_Fill3DPolygon_TCL_DECLARED -#define Tk_Fill3DPolygon_TCL_DECLARED -/* 62 */ -EXTERN void Tk_Fill3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -#endif -#ifndef Tk_Fill3DRectangle_TCL_DECLARED -#define Tk_Fill3DRectangle_TCL_DECLARED -/* 63 */ -EXTERN void Tk_Fill3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -#endif -#ifndef Tk_FindPhoto_TCL_DECLARED -#define Tk_FindPhoto_TCL_DECLARED -/* 64 */ -EXTERN Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, - CONST char *imageName); -#endif -#ifndef Tk_FontId_TCL_DECLARED -#define Tk_FontId_TCL_DECLARED -/* 65 */ -EXTERN Font Tk_FontId(Tk_Font font); -#endif -#ifndef Tk_Free3DBorder_TCL_DECLARED -#define Tk_Free3DBorder_TCL_DECLARED -/* 66 */ -EXTERN void Tk_Free3DBorder(Tk_3DBorder border); -#endif -#ifndef Tk_FreeBitmap_TCL_DECLARED -#define Tk_FreeBitmap_TCL_DECLARED -/* 67 */ -EXTERN void Tk_FreeBitmap(Display *display, Pixmap bitmap); -#endif -#ifndef Tk_FreeColor_TCL_DECLARED -#define Tk_FreeColor_TCL_DECLARED -/* 68 */ -EXTERN void Tk_FreeColor(XColor *colorPtr); -#endif -#ifndef Tk_FreeColormap_TCL_DECLARED -#define Tk_FreeColormap_TCL_DECLARED -/* 69 */ -EXTERN void Tk_FreeColormap(Display *display, Colormap colormap); -#endif -#ifndef Tk_FreeCursor_TCL_DECLARED -#define Tk_FreeCursor_TCL_DECLARED -/* 70 */ -EXTERN void Tk_FreeCursor(Display *display, Tk_Cursor cursor); -#endif -#ifndef Tk_FreeFont_TCL_DECLARED -#define Tk_FreeFont_TCL_DECLARED -/* 71 */ -EXTERN void Tk_FreeFont(Tk_Font f); -#endif -#ifndef Tk_FreeGC_TCL_DECLARED -#define Tk_FreeGC_TCL_DECLARED -/* 72 */ -EXTERN void Tk_FreeGC(Display *display, GC gc); -#endif -#ifndef Tk_FreeImage_TCL_DECLARED -#define Tk_FreeImage_TCL_DECLARED -/* 73 */ -EXTERN void Tk_FreeImage(Tk_Image image); -#endif -#ifndef Tk_FreeOptions_TCL_DECLARED -#define Tk_FreeOptions_TCL_DECLARED -/* 74 */ -EXTERN void Tk_FreeOptions(Tk_ConfigSpec *specs, char *widgRec, - Display *display, int needFlags); -#endif -#ifndef Tk_FreePixmap_TCL_DECLARED -#define Tk_FreePixmap_TCL_DECLARED -/* 75 */ -EXTERN void Tk_FreePixmap(Display *display, Pixmap pixmap); -#endif -#ifndef Tk_FreeTextLayout_TCL_DECLARED -#define Tk_FreeTextLayout_TCL_DECLARED -/* 76 */ -EXTERN void Tk_FreeTextLayout(Tk_TextLayout textLayout); -#endif -#ifndef Tk_FreeXId_TCL_DECLARED -#define Tk_FreeXId_TCL_DECLARED -/* 77 */ -EXTERN void Tk_FreeXId(Display *display, XID xid); -#endif -#ifndef Tk_GCForColor_TCL_DECLARED -#define Tk_GCForColor_TCL_DECLARED -/* 78 */ -EXTERN GC Tk_GCForColor(XColor *colorPtr, Drawable drawable); -#endif -#ifndef Tk_GeometryRequest_TCL_DECLARED -#define Tk_GeometryRequest_TCL_DECLARED -/* 79 */ -EXTERN void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, - int reqHeight); -#endif -#ifndef Tk_Get3DBorder_TCL_DECLARED -#define Tk_Get3DBorder_TCL_DECLARED -/* 80 */ -EXTERN Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid colorName); -#endif -#ifndef Tk_GetAllBindings_TCL_DECLARED -#define Tk_GetAllBindings_TCL_DECLARED -/* 81 */ -EXTERN void Tk_GetAllBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object); -#endif -#ifndef Tk_GetAnchor_TCL_DECLARED -#define Tk_GetAnchor_TCL_DECLARED -/* 82 */ -EXTERN int Tk_GetAnchor(Tcl_Interp *interp, CONST char *str, - Tk_Anchor *anchorPtr); -#endif -#ifndef Tk_GetAtomName_TCL_DECLARED -#define Tk_GetAtomName_TCL_DECLARED -/* 83 */ -EXTERN CONST84_RETURN char * Tk_GetAtomName(Tk_Window tkwin, Atom atom); -#endif -#ifndef Tk_GetBinding_TCL_DECLARED -#define Tk_GetBinding_TCL_DECLARED -/* 84 */ -EXTERN CONST84_RETURN char * Tk_GetBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventStr); -#endif -#ifndef Tk_GetBitmap_TCL_DECLARED -#define Tk_GetBitmap_TCL_DECLARED -/* 85 */ -EXTERN Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str); -#endif -#ifndef Tk_GetBitmapFromData_TCL_DECLARED -#define Tk_GetBitmapFromData_TCL_DECLARED -/* 86 */ -EXTERN Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *source, - int width, int height); -#endif -#ifndef Tk_GetCapStyle_TCL_DECLARED -#define Tk_GetCapStyle_TCL_DECLARED -/* 87 */ -EXTERN int Tk_GetCapStyle(Tcl_Interp *interp, CONST char *str, - int *capPtr); -#endif -#ifndef Tk_GetColor_TCL_DECLARED -#define Tk_GetColor_TCL_DECLARED -/* 88 */ -EXTERN XColor * Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid name); -#endif -#ifndef Tk_GetColorByValue_TCL_DECLARED -#define Tk_GetColorByValue_TCL_DECLARED -/* 89 */ -EXTERN XColor * Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr); -#endif -#ifndef Tk_GetColormap_TCL_DECLARED -#define Tk_GetColormap_TCL_DECLARED -/* 90 */ -EXTERN Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str); -#endif -#ifndef Tk_GetCursor_TCL_DECLARED -#define Tk_GetCursor_TCL_DECLARED -/* 91 */ -EXTERN Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid str); -#endif -#ifndef Tk_GetCursorFromData_TCL_DECLARED -#define Tk_GetCursorFromData_TCL_DECLARED -/* 92 */ -EXTERN Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *source, - CONST char *mask, int width, int height, - int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); -#endif -#ifndef Tk_GetFont_TCL_DECLARED -#define Tk_GetFont_TCL_DECLARED -/* 93 */ -EXTERN Tk_Font Tk_GetFont(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str); -#endif -#ifndef Tk_GetFontFromObj_TCL_DECLARED -#define Tk_GetFontFromObj_TCL_DECLARED -/* 94 */ -EXTERN Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetFontMetrics_TCL_DECLARED -#define Tk_GetFontMetrics_TCL_DECLARED -/* 95 */ -EXTERN void Tk_GetFontMetrics(Tk_Font font, - Tk_FontMetrics *fmPtr); -#endif -#ifndef Tk_GetGC_TCL_DECLARED -#define Tk_GetGC_TCL_DECLARED -/* 96 */ -EXTERN GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, - XGCValues *valuePtr); -#endif -#ifndef Tk_GetImage_TCL_DECLARED -#define Tk_GetImage_TCL_DECLARED -/* 97 */ -EXTERN Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *name, - Tk_ImageChangedProc *changeProc, - ClientData clientData); -#endif -#ifndef Tk_GetImageMasterData_TCL_DECLARED -#define Tk_GetImageMasterData_TCL_DECLARED -/* 98 */ -EXTERN ClientData Tk_GetImageMasterData(Tcl_Interp *interp, - CONST char *name, Tk_ImageType **typePtrPtr); -#endif -#ifndef Tk_GetItemTypes_TCL_DECLARED -#define Tk_GetItemTypes_TCL_DECLARED -/* 99 */ -EXTERN Tk_ItemType * Tk_GetItemTypes(void); -#endif -#ifndef Tk_GetJoinStyle_TCL_DECLARED -#define Tk_GetJoinStyle_TCL_DECLARED -/* 100 */ -EXTERN int Tk_GetJoinStyle(Tcl_Interp *interp, CONST char *str, - int *joinPtr); -#endif -#ifndef Tk_GetJustify_TCL_DECLARED -#define Tk_GetJustify_TCL_DECLARED -/* 101 */ -EXTERN int Tk_GetJustify(Tcl_Interp *interp, CONST char *str, - Tk_Justify *justifyPtr); -#endif -#ifndef Tk_GetNumMainWindows_TCL_DECLARED -#define Tk_GetNumMainWindows_TCL_DECLARED -/* 102 */ -EXTERN int Tk_GetNumMainWindows(void); -#endif -#ifndef Tk_GetOption_TCL_DECLARED -#define Tk_GetOption_TCL_DECLARED -/* 103 */ -EXTERN Tk_Uid Tk_GetOption(Tk_Window tkwin, CONST char *name, - CONST char *className); -#endif -#ifndef Tk_GetPixels_TCL_DECLARED -#define Tk_GetPixels_TCL_DECLARED -/* 104 */ -EXTERN int Tk_GetPixels(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str, int *intPtr); -#endif -#ifndef Tk_GetPixmap_TCL_DECLARED -#define Tk_GetPixmap_TCL_DECLARED -/* 105 */ -EXTERN Pixmap Tk_GetPixmap(Display *display, Drawable d, int width, - int height, int depth); -#endif -#ifndef Tk_GetRelief_TCL_DECLARED -#define Tk_GetRelief_TCL_DECLARED -/* 106 */ -EXTERN int Tk_GetRelief(Tcl_Interp *interp, CONST char *name, - int *reliefPtr); -#endif -#ifndef Tk_GetRootCoords_TCL_DECLARED -#define Tk_GetRootCoords_TCL_DECLARED -/* 107 */ -EXTERN void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -#endif -#ifndef Tk_GetScrollInfo_TCL_DECLARED -#define Tk_GetScrollInfo_TCL_DECLARED -/* 108 */ -EXTERN int Tk_GetScrollInfo(Tcl_Interp *interp, int argc, - CONST84 char **argv, double *dblPtr, - int *intPtr); -#endif -#ifndef Tk_GetScreenMM_TCL_DECLARED -#define Tk_GetScreenMM_TCL_DECLARED -/* 109 */ -EXTERN int Tk_GetScreenMM(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str, double *doublePtr); -#endif -#ifndef Tk_GetSelection_TCL_DECLARED -#define Tk_GetSelection_TCL_DECLARED -/* 110 */ -EXTERN int Tk_GetSelection(Tcl_Interp *interp, Tk_Window tkwin, - Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData); -#endif -#ifndef Tk_GetUid_TCL_DECLARED -#define Tk_GetUid_TCL_DECLARED -/* 111 */ -EXTERN Tk_Uid Tk_GetUid(CONST char *str); -#endif -#ifndef Tk_GetVisual_TCL_DECLARED -#define Tk_GetVisual_TCL_DECLARED -/* 112 */ -EXTERN Visual * Tk_GetVisual(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str, int *depthPtr, - Colormap *colormapPtr); -#endif -#ifndef Tk_GetVRootGeometry_TCL_DECLARED -#define Tk_GetVRootGeometry_TCL_DECLARED -/* 113 */ -EXTERN void Tk_GetVRootGeometry(Tk_Window tkwin, int *xPtr, - int *yPtr, int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_Grab_TCL_DECLARED -#define Tk_Grab_TCL_DECLARED -/* 114 */ -EXTERN int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, - int grabGlobal); -#endif -#ifndef Tk_HandleEvent_TCL_DECLARED -#define Tk_HandleEvent_TCL_DECLARED -/* 115 */ -EXTERN void Tk_HandleEvent(XEvent *eventPtr); -#endif -#ifndef Tk_IdToWindow_TCL_DECLARED -#define Tk_IdToWindow_TCL_DECLARED -/* 116 */ -EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window); -#endif -#ifndef Tk_ImageChanged_TCL_DECLARED -#define Tk_ImageChanged_TCL_DECLARED -/* 117 */ -EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y, - int width, int height, int imageWidth, - int imageHeight); -#endif -#ifndef Tk_Init_TCL_DECLARED -#define Tk_Init_TCL_DECLARED -/* 118 */ -EXTERN int Tk_Init(Tcl_Interp *interp); -#endif -#ifndef Tk_InternAtom_TCL_DECLARED -#define Tk_InternAtom_TCL_DECLARED -/* 119 */ -EXTERN Atom Tk_InternAtom(Tk_Window tkwin, CONST char *name); -#endif -#ifndef Tk_IntersectTextLayout_TCL_DECLARED -#define Tk_IntersectTextLayout_TCL_DECLARED -/* 120 */ -EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, - int y, int width, int height); -#endif -#ifndef Tk_MaintainGeometry_TCL_DECLARED -#define Tk_MaintainGeometry_TCL_DECLARED -/* 121 */ -EXTERN void Tk_MaintainGeometry(Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height); -#endif -#ifndef Tk_MainWindow_TCL_DECLARED -#define Tk_MainWindow_TCL_DECLARED -/* 122 */ -EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp); -#endif -#ifndef Tk_MakeWindowExist_TCL_DECLARED -#define Tk_MakeWindowExist_TCL_DECLARED -/* 123 */ -EXTERN void Tk_MakeWindowExist(Tk_Window tkwin); -#endif -#ifndef Tk_ManageGeometry_TCL_DECLARED -#define Tk_ManageGeometry_TCL_DECLARED -/* 124 */ -EXTERN void Tk_ManageGeometry(Tk_Window tkwin, - CONST Tk_GeomMgr *mgrPtr, - ClientData clientData); -#endif -#ifndef Tk_MapWindow_TCL_DECLARED -#define Tk_MapWindow_TCL_DECLARED -/* 125 */ -EXTERN void Tk_MapWindow(Tk_Window tkwin); -#endif -#ifndef Tk_MeasureChars_TCL_DECLARED -#define Tk_MeasureChars_TCL_DECLARED -/* 126 */ -EXTERN int Tk_MeasureChars(Tk_Font tkfont, CONST char *source, - int numBytes, int maxPixels, int flags, - int *lengthPtr); -#endif -#ifndef Tk_MoveResizeWindow_TCL_DECLARED -#define Tk_MoveResizeWindow_TCL_DECLARED -/* 127 */ -EXTERN void Tk_MoveResizeWindow(Tk_Window tkwin, int x, int y, - int width, int height); -#endif -#ifndef Tk_MoveWindow_TCL_DECLARED -#define Tk_MoveWindow_TCL_DECLARED -/* 128 */ -EXTERN void Tk_MoveWindow(Tk_Window tkwin, int x, int y); -#endif -#ifndef Tk_MoveToplevelWindow_TCL_DECLARED -#define Tk_MoveToplevelWindow_TCL_DECLARED -/* 129 */ -EXTERN void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y); -#endif -#ifndef Tk_NameOf3DBorder_TCL_DECLARED -#define Tk_NameOf3DBorder_TCL_DECLARED -/* 130 */ -EXTERN CONST84_RETURN char * Tk_NameOf3DBorder(Tk_3DBorder border); -#endif -#ifndef Tk_NameOfAnchor_TCL_DECLARED -#define Tk_NameOfAnchor_TCL_DECLARED -/* 131 */ -EXTERN CONST84_RETURN char * Tk_NameOfAnchor(Tk_Anchor anchor); -#endif -#ifndef Tk_NameOfBitmap_TCL_DECLARED -#define Tk_NameOfBitmap_TCL_DECLARED -/* 132 */ -EXTERN CONST84_RETURN char * Tk_NameOfBitmap(Display *display, Pixmap bitmap); -#endif -#ifndef Tk_NameOfCapStyle_TCL_DECLARED -#define Tk_NameOfCapStyle_TCL_DECLARED -/* 133 */ -EXTERN CONST84_RETURN char * Tk_NameOfCapStyle(int cap); -#endif -#ifndef Tk_NameOfColor_TCL_DECLARED -#define Tk_NameOfColor_TCL_DECLARED -/* 134 */ -EXTERN CONST84_RETURN char * Tk_NameOfColor(XColor *colorPtr); -#endif -#ifndef Tk_NameOfCursor_TCL_DECLARED -#define Tk_NameOfCursor_TCL_DECLARED -/* 135 */ -EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display, - Tk_Cursor cursor); -#endif -#ifndef Tk_NameOfFont_TCL_DECLARED -#define Tk_NameOfFont_TCL_DECLARED -/* 136 */ -EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font); -#endif -#ifndef Tk_NameOfImage_TCL_DECLARED -#define Tk_NameOfImage_TCL_DECLARED -/* 137 */ -EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster); -#endif -#ifndef Tk_NameOfJoinStyle_TCL_DECLARED -#define Tk_NameOfJoinStyle_TCL_DECLARED -/* 138 */ -EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join); -#endif -#ifndef Tk_NameOfJustify_TCL_DECLARED -#define Tk_NameOfJustify_TCL_DECLARED -/* 139 */ -EXTERN CONST84_RETURN char * Tk_NameOfJustify(Tk_Justify justify); -#endif -#ifndef Tk_NameOfRelief_TCL_DECLARED -#define Tk_NameOfRelief_TCL_DECLARED -/* 140 */ -EXTERN CONST84_RETURN char * Tk_NameOfRelief(int relief); -#endif -#ifndef Tk_NameToWindow_TCL_DECLARED -#define Tk_NameToWindow_TCL_DECLARED -/* 141 */ -EXTERN Tk_Window Tk_NameToWindow(Tcl_Interp *interp, - CONST char *pathName, Tk_Window tkwin); -#endif -#ifndef Tk_OwnSelection_TCL_DECLARED -#define Tk_OwnSelection_TCL_DECLARED -/* 142 */ -EXTERN void Tk_OwnSelection(Tk_Window tkwin, Atom selection, - Tk_LostSelProc *proc, ClientData clientData); -#endif -#ifndef Tk_ParseArgv_TCL_DECLARED -#define Tk_ParseArgv_TCL_DECLARED -/* 143 */ -EXTERN int Tk_ParseArgv(Tcl_Interp *interp, Tk_Window tkwin, - int *argcPtr, CONST84 char **argv, - Tk_ArgvInfo *argTable, int flags); -#endif -#ifndef Tk_PhotoPutBlock_NoComposite_TCL_DECLARED -#define Tk_PhotoPutBlock_NoComposite_TCL_DECLARED -/* 144 */ -EXTERN void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height); -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED -/* 145 */ -EXTERN void Tk_PhotoPutZoomedBlock_NoComposite( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY); -#endif -#ifndef Tk_PhotoGetImage_TCL_DECLARED -#define Tk_PhotoGetImage_TCL_DECLARED -/* 146 */ -EXTERN int Tk_PhotoGetImage(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr); -#endif -#ifndef Tk_PhotoBlank_TCL_DECLARED -#define Tk_PhotoBlank_TCL_DECLARED -/* 147 */ -EXTERN void Tk_PhotoBlank(Tk_PhotoHandle handle); -#endif -#ifndef Tk_PhotoExpand_Panic_TCL_DECLARED -#define Tk_PhotoExpand_Panic_TCL_DECLARED -/* 148 */ -EXTERN void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, - int width, int height); -#endif -#ifndef Tk_PhotoGetSize_TCL_DECLARED -#define Tk_PhotoGetSize_TCL_DECLARED -/* 149 */ -EXTERN void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_PhotoSetSize_Panic_TCL_DECLARED -#define Tk_PhotoSetSize_Panic_TCL_DECLARED -/* 150 */ -EXTERN void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, - int width, int height); -#endif -#ifndef Tk_PointToChar_TCL_DECLARED -#define Tk_PointToChar_TCL_DECLARED -/* 151 */ -EXTERN int Tk_PointToChar(Tk_TextLayout layout, int x, int y); -#endif -#ifndef Tk_PostscriptFontName_TCL_DECLARED -#define Tk_PostscriptFontName_TCL_DECLARED -/* 152 */ -EXTERN int Tk_PostscriptFontName(Tk_Font tkfont, - Tcl_DString *dsPtr); -#endif -#ifndef Tk_PreserveColormap_TCL_DECLARED -#define Tk_PreserveColormap_TCL_DECLARED -/* 153 */ -EXTERN void Tk_PreserveColormap(Display *display, - Colormap colormap); -#endif -#ifndef Tk_QueueWindowEvent_TCL_DECLARED -#define Tk_QueueWindowEvent_TCL_DECLARED -/* 154 */ -EXTERN void Tk_QueueWindowEvent(XEvent *eventPtr, - Tcl_QueuePosition position); -#endif -#ifndef Tk_RedrawImage_TCL_DECLARED -#define Tk_RedrawImage_TCL_DECLARED -/* 155 */ -EXTERN void Tk_RedrawImage(Tk_Image image, int imageX, - int imageY, int width, int height, - Drawable drawable, int drawableX, - int drawableY); -#endif -#ifndef Tk_ResizeWindow_TCL_DECLARED -#define Tk_ResizeWindow_TCL_DECLARED -/* 156 */ -EXTERN void Tk_ResizeWindow(Tk_Window tkwin, int width, - int height); -#endif -#ifndef Tk_RestackWindow_TCL_DECLARED -#define Tk_RestackWindow_TCL_DECLARED -/* 157 */ -EXTERN int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, - Tk_Window other); -#endif -#ifndef Tk_RestrictEvents_TCL_DECLARED -#define Tk_RestrictEvents_TCL_DECLARED -/* 158 */ -EXTERN Tk_RestrictProc * Tk_RestrictEvents(Tk_RestrictProc *proc, - ClientData arg, ClientData *prevArgPtr); -#endif -#ifndef Tk_SafeInit_TCL_DECLARED -#define Tk_SafeInit_TCL_DECLARED -/* 159 */ -EXTERN int Tk_SafeInit(Tcl_Interp *interp); -#endif -#ifndef Tk_SetAppName_TCL_DECLARED -#define Tk_SetAppName_TCL_DECLARED -/* 160 */ -EXTERN CONST char * Tk_SetAppName(Tk_Window tkwin, CONST char *name); -#endif -#ifndef Tk_SetBackgroundFromBorder_TCL_DECLARED -#define Tk_SetBackgroundFromBorder_TCL_DECLARED -/* 161 */ -EXTERN void Tk_SetBackgroundFromBorder(Tk_Window tkwin, - Tk_3DBorder border); -#endif -#ifndef Tk_SetClass_TCL_DECLARED -#define Tk_SetClass_TCL_DECLARED -/* 162 */ -EXTERN void Tk_SetClass(Tk_Window tkwin, CONST char *className); -#endif -#ifndef Tk_SetGrid_TCL_DECLARED -#define Tk_SetGrid_TCL_DECLARED -/* 163 */ -EXTERN void Tk_SetGrid(Tk_Window tkwin, int reqWidth, - int reqHeight, int gridWidth, int gridHeight); -#endif -#ifndef Tk_SetInternalBorder_TCL_DECLARED -#define Tk_SetInternalBorder_TCL_DECLARED -/* 164 */ -EXTERN void Tk_SetInternalBorder(Tk_Window tkwin, int width); -#endif -#ifndef Tk_SetWindowBackground_TCL_DECLARED -#define Tk_SetWindowBackground_TCL_DECLARED -/* 165 */ -EXTERN void Tk_SetWindowBackground(Tk_Window tkwin, - unsigned long pixel); -#endif -#ifndef Tk_SetWindowBackgroundPixmap_TCL_DECLARED -#define Tk_SetWindowBackgroundPixmap_TCL_DECLARED -/* 166 */ -EXTERN void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, - Pixmap pixmap); -#endif -#ifndef Tk_SetWindowBorder_TCL_DECLARED -#define Tk_SetWindowBorder_TCL_DECLARED -/* 167 */ -EXTERN void Tk_SetWindowBorder(Tk_Window tkwin, - unsigned long pixel); -#endif -#ifndef Tk_SetWindowBorderWidth_TCL_DECLARED -#define Tk_SetWindowBorderWidth_TCL_DECLARED -/* 168 */ -EXTERN void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width); -#endif -#ifndef Tk_SetWindowBorderPixmap_TCL_DECLARED -#define Tk_SetWindowBorderPixmap_TCL_DECLARED -/* 169 */ -EXTERN void Tk_SetWindowBorderPixmap(Tk_Window tkwin, - Pixmap pixmap); -#endif -#ifndef Tk_SetWindowColormap_TCL_DECLARED -#define Tk_SetWindowColormap_TCL_DECLARED -/* 170 */ -EXTERN void Tk_SetWindowColormap(Tk_Window tkwin, - Colormap colormap); -#endif -#ifndef Tk_SetWindowVisual_TCL_DECLARED -#define Tk_SetWindowVisual_TCL_DECLARED -/* 171 */ -EXTERN int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, - int depth, Colormap colormap); -#endif -#ifndef Tk_SizeOfBitmap_TCL_DECLARED -#define Tk_SizeOfBitmap_TCL_DECLARED -/* 172 */ -EXTERN void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, - int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_SizeOfImage_TCL_DECLARED -#define Tk_SizeOfImage_TCL_DECLARED -/* 173 */ -EXTERN void Tk_SizeOfImage(Tk_Image image, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_StrictMotif_TCL_DECLARED -#define Tk_StrictMotif_TCL_DECLARED -/* 174 */ -EXTERN int Tk_StrictMotif(Tk_Window tkwin); -#endif -#ifndef Tk_TextLayoutToPostscript_TCL_DECLARED -#define Tk_TextLayoutToPostscript_TCL_DECLARED -/* 175 */ -EXTERN void Tk_TextLayoutToPostscript(Tcl_Interp *interp, - Tk_TextLayout layout); -#endif -#ifndef Tk_TextWidth_TCL_DECLARED -#define Tk_TextWidth_TCL_DECLARED -/* 176 */ -EXTERN int Tk_TextWidth(Tk_Font font, CONST char *str, - int numBytes); -#endif -#ifndef Tk_UndefineCursor_TCL_DECLARED -#define Tk_UndefineCursor_TCL_DECLARED -/* 177 */ -EXTERN void Tk_UndefineCursor(Tk_Window window); -#endif -#ifndef Tk_UnderlineChars_TCL_DECLARED -#define Tk_UnderlineChars_TCL_DECLARED -/* 178 */ -EXTERN void Tk_UnderlineChars(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char *source, int x, int y, - int firstByte, int lastByte); -#endif -#ifndef Tk_UnderlineTextLayout_TCL_DECLARED -#define Tk_UnderlineTextLayout_TCL_DECLARED -/* 179 */ -EXTERN void Tk_UnderlineTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline); -#endif -#ifndef Tk_Ungrab_TCL_DECLARED -#define Tk_Ungrab_TCL_DECLARED -/* 180 */ -EXTERN void Tk_Ungrab(Tk_Window tkwin); -#endif -#ifndef Tk_UnmaintainGeometry_TCL_DECLARED -#define Tk_UnmaintainGeometry_TCL_DECLARED -/* 181 */ -EXTERN void Tk_UnmaintainGeometry(Tk_Window slave, - Tk_Window master); -#endif -#ifndef Tk_UnmapWindow_TCL_DECLARED -#define Tk_UnmapWindow_TCL_DECLARED -/* 182 */ -EXTERN void Tk_UnmapWindow(Tk_Window tkwin); -#endif -#ifndef Tk_UnsetGrid_TCL_DECLARED -#define Tk_UnsetGrid_TCL_DECLARED -/* 183 */ -EXTERN void Tk_UnsetGrid(Tk_Window tkwin); -#endif -#ifndef Tk_UpdatePointer_TCL_DECLARED -#define Tk_UpdatePointer_TCL_DECLARED -/* 184 */ -EXTERN void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, - int state); -#endif -#ifndef Tk_AllocBitmapFromObj_TCL_DECLARED -#define Tk_AllocBitmapFromObj_TCL_DECLARED -/* 185 */ -EXTERN Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_Alloc3DBorderFromObj_TCL_DECLARED -#define Tk_Alloc3DBorderFromObj_TCL_DECLARED -/* 186 */ -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_AllocColorFromObj_TCL_DECLARED -#define Tk_AllocColorFromObj_TCL_DECLARED -/* 187 */ -EXTERN XColor * Tk_AllocColorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_AllocCursorFromObj_TCL_DECLARED -#define Tk_AllocCursorFromObj_TCL_DECLARED -/* 188 */ -EXTERN Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_AllocFontFromObj_TCL_DECLARED -#define Tk_AllocFontFromObj_TCL_DECLARED -/* 189 */ -EXTERN Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_CreateOptionTable_TCL_DECLARED -#define Tk_CreateOptionTable_TCL_DECLARED -/* 190 */ -EXTERN Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp, - CONST Tk_OptionSpec *templatePtr); -#endif -#ifndef Tk_DeleteOptionTable_TCL_DECLARED -#define Tk_DeleteOptionTable_TCL_DECLARED -/* 191 */ -EXTERN void Tk_DeleteOptionTable(Tk_OptionTable optionTable); -#endif -#ifndef Tk_Free3DBorderFromObj_TCL_DECLARED -#define Tk_Free3DBorderFromObj_TCL_DECLARED -/* 192 */ -EXTERN void Tk_Free3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeBitmapFromObj_TCL_DECLARED -#define Tk_FreeBitmapFromObj_TCL_DECLARED -/* 193 */ -EXTERN void Tk_FreeBitmapFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeColorFromObj_TCL_DECLARED -#define Tk_FreeColorFromObj_TCL_DECLARED -/* 194 */ -EXTERN void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeConfigOptions_TCL_DECLARED -#define Tk_FreeConfigOptions_TCL_DECLARED -/* 195 */ -EXTERN void Tk_FreeConfigOptions(char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -#endif -#ifndef Tk_FreeSavedOptions_TCL_DECLARED -#define Tk_FreeSavedOptions_TCL_DECLARED -/* 196 */ -EXTERN void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr); -#endif -#ifndef Tk_FreeCursorFromObj_TCL_DECLARED -#define Tk_FreeCursorFromObj_TCL_DECLARED -/* 197 */ -EXTERN void Tk_FreeCursorFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeFontFromObj_TCL_DECLARED -#define Tk_FreeFontFromObj_TCL_DECLARED -/* 198 */ -EXTERN void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_Get3DBorderFromObj_TCL_DECLARED -#define Tk_Get3DBorderFromObj_TCL_DECLARED -/* 199 */ -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetAnchorFromObj_TCL_DECLARED -#define Tk_GetAnchorFromObj_TCL_DECLARED -/* 200 */ -EXTERN int Tk_GetAnchorFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); -#endif -#ifndef Tk_GetBitmapFromObj_TCL_DECLARED -#define Tk_GetBitmapFromObj_TCL_DECLARED -/* 201 */ -EXTERN Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetColorFromObj_TCL_DECLARED -#define Tk_GetColorFromObj_TCL_DECLARED -/* 202 */ -EXTERN XColor * Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetCursorFromObj_TCL_DECLARED -#define Tk_GetCursorFromObj_TCL_DECLARED -/* 203 */ -EXTERN Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetOptionInfo_TCL_DECLARED -#define Tk_GetOptionInfo_TCL_DECLARED -/* 204 */ -EXTERN Tcl_Obj * Tk_GetOptionInfo(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, Tcl_Obj *namePtr, - Tk_Window tkwin); -#endif -#ifndef Tk_GetOptionValue_TCL_DECLARED -#define Tk_GetOptionValue_TCL_DECLARED -/* 205 */ -EXTERN Tcl_Obj * Tk_GetOptionValue(Tcl_Interp *interp, - char *recordPtr, Tk_OptionTable optionTable, - Tcl_Obj *namePtr, Tk_Window tkwin); -#endif -#ifndef Tk_GetJustifyFromObj_TCL_DECLARED -#define Tk_GetJustifyFromObj_TCL_DECLARED -/* 206 */ -EXTERN int Tk_GetJustifyFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Justify *justifyPtr); -#endif -#ifndef Tk_GetMMFromObj_TCL_DECLARED -#define Tk_GetMMFromObj_TCL_DECLARED -/* 207 */ -EXTERN int Tk_GetMMFromObj(Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj *objPtr, double *doublePtr); -#endif -#ifndef Tk_GetPixelsFromObj_TCL_DECLARED -#define Tk_GetPixelsFromObj_TCL_DECLARED -/* 208 */ -EXTERN int Tk_GetPixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *intPtr); -#endif -#ifndef Tk_GetReliefFromObj_TCL_DECLARED -#define Tk_GetReliefFromObj_TCL_DECLARED -/* 209 */ -EXTERN int Tk_GetReliefFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *resultPtr); -#endif -#ifndef Tk_GetScrollInfoObj_TCL_DECLARED -#define Tk_GetScrollInfoObj_TCL_DECLARED -/* 210 */ -EXTERN int Tk_GetScrollInfoObj(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], double *dblPtr, - int *intPtr); -#endif -#ifndef Tk_InitOptions_TCL_DECLARED -#define Tk_InitOptions_TCL_DECLARED -/* 211 */ -EXTERN int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -#endif -#ifndef Tk_MainEx_TCL_DECLARED -#define Tk_MainEx_TCL_DECLARED -/* 212 */ -EXTERN void Tk_MainEx(int argc, char **argv, - Tcl_AppInitProc *appInitProc, - Tcl_Interp *interp); -#endif -#ifndef Tk_RestoreSavedOptions_TCL_DECLARED -#define Tk_RestoreSavedOptions_TCL_DECLARED -/* 213 */ -EXTERN void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr); -#endif -#ifndef Tk_SetOptions_TCL_DECLARED -#define Tk_SetOptions_TCL_DECLARED -/* 214 */ -EXTERN int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, int objc, - Tcl_Obj *CONST objv[], Tk_Window tkwin, - Tk_SavedOptions *savePtr, int *maskPtr); -#endif -#ifndef Tk_InitConsoleChannels_TCL_DECLARED -#define Tk_InitConsoleChannels_TCL_DECLARED -/* 215 */ -EXTERN void Tk_InitConsoleChannels(Tcl_Interp *interp); -#endif -#ifndef Tk_CreateConsoleWindow_TCL_DECLARED -#define Tk_CreateConsoleWindow_TCL_DECLARED -/* 216 */ -EXTERN int Tk_CreateConsoleWindow(Tcl_Interp *interp); -#endif -#ifndef Tk_CreateSmoothMethod_TCL_DECLARED -#define Tk_CreateSmoothMethod_TCL_DECLARED -/* 217 */ -EXTERN void Tk_CreateSmoothMethod(Tcl_Interp *interp, - Tk_SmoothMethod *method); -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash_TCL_DECLARED -#define Tk_GetDash_TCL_DECLARED -/* 220 */ -EXTERN int Tk_GetDash(Tcl_Interp *interp, CONST char *value, - Tk_Dash *dash); -#endif -#ifndef Tk_CreateOutline_TCL_DECLARED -#define Tk_CreateOutline_TCL_DECLARED -/* 221 */ -EXTERN void Tk_CreateOutline(Tk_Outline *outline); -#endif -#ifndef Tk_DeleteOutline_TCL_DECLARED -#define Tk_DeleteOutline_TCL_DECLARED -/* 222 */ -EXTERN void Tk_DeleteOutline(Display *display, - Tk_Outline *outline); -#endif -#ifndef Tk_ConfigOutlineGC_TCL_DECLARED -#define Tk_ConfigOutlineGC_TCL_DECLARED -/* 223 */ -EXTERN int Tk_ConfigOutlineGC(XGCValues *gcValues, - Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_ChangeOutlineGC_TCL_DECLARED -#define Tk_ChangeOutlineGC_TCL_DECLARED -/* 224 */ -EXTERN int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_ResetOutlineGC_TCL_DECLARED -#define Tk_ResetOutlineGC_TCL_DECLARED -/* 225 */ -EXTERN int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_CanvasPsOutline_TCL_DECLARED -#define Tk_CanvasPsOutline_TCL_DECLARED -/* 226 */ -EXTERN int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_SetTSOrigin_TCL_DECLARED -#define Tk_SetTSOrigin_TCL_DECLARED -/* 227 */ -EXTERN void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y); -#endif -#ifndef Tk_CanvasGetCoordFromObj_TCL_DECLARED -#define Tk_CanvasGetCoordFromObj_TCL_DECLARED -/* 228 */ -EXTERN int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -#endif -#ifndef Tk_CanvasSetOffset_TCL_DECLARED -#define Tk_CanvasSetOffset_TCL_DECLARED -/* 229 */ -EXTERN void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, - Tk_TSOffset *offset); -#endif -#ifndef Tk_DitherPhoto_TCL_DECLARED -#define Tk_DitherPhoto_TCL_DECLARED -/* 230 */ -EXTERN void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, - int width, int height); -#endif -#ifndef Tk_PostscriptBitmap_TCL_DECLARED -#define Tk_PostscriptBitmap_TCL_DECLARED -/* 231 */ -EXTERN int Tk_PostscriptBitmap(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap, int startX, int startY, - int width, int height); -#endif -#ifndef Tk_PostscriptColor_TCL_DECLARED -#define Tk_PostscriptColor_TCL_DECLARED -/* 232 */ -EXTERN int Tk_PostscriptColor(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, XColor *colorPtr); -#endif -#ifndef Tk_PostscriptFont_TCL_DECLARED -#define Tk_PostscriptFont_TCL_DECLARED -/* 233 */ -EXTERN int Tk_PostscriptFont(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, Tk_Font font); -#endif -#ifndef Tk_PostscriptImage_TCL_DECLARED -#define Tk_PostscriptImage_TCL_DECLARED -/* 234 */ -EXTERN int Tk_PostscriptImage(Tk_Image image, - Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psinfo, int x, int y, - int width, int height, int prepass); -#endif -#ifndef Tk_PostscriptPath_TCL_DECLARED -#define Tk_PostscriptPath_TCL_DECLARED -/* 235 */ -EXTERN void Tk_PostscriptPath(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, double *coordPtr, - int numPoints); -#endif -#ifndef Tk_PostscriptStipple_TCL_DECLARED -#define Tk_PostscriptStipple_TCL_DECLARED -/* 236 */ -EXTERN int Tk_PostscriptStipple(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap); -#endif -#ifndef Tk_PostscriptY_TCL_DECLARED -#define Tk_PostscriptY_TCL_DECLARED -/* 237 */ -EXTERN double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo); -#endif -#ifndef Tk_PostscriptPhoto_TCL_DECLARED -#define Tk_PostscriptPhoto_TCL_DECLARED -/* 238 */ -EXTERN int Tk_PostscriptPhoto(Tcl_Interp *interp, - Tk_PhotoImageBlock *blockPtr, - Tk_PostscriptInfo psInfo, int width, - int height); -#endif -#ifndef Tk_CreateClientMessageHandler_TCL_DECLARED -#define Tk_CreateClientMessageHandler_TCL_DECLARED -/* 239 */ -EXTERN void Tk_CreateClientMessageHandler( - Tk_ClientMessageProc *proc); -#endif -#ifndef Tk_DeleteClientMessageHandler_TCL_DECLARED -#define Tk_DeleteClientMessageHandler_TCL_DECLARED -/* 240 */ -EXTERN void Tk_DeleteClientMessageHandler( - Tk_ClientMessageProc *proc); -#endif -#ifndef Tk_CreateAnonymousWindow_TCL_DECLARED -#define Tk_CreateAnonymousWindow_TCL_DECLARED -/* 241 */ -EXTERN Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp, - Tk_Window parent, CONST char *screenName); -#endif -#ifndef Tk_SetClassProcs_TCL_DECLARED -#define Tk_SetClassProcs_TCL_DECLARED -/* 242 */ -EXTERN void Tk_SetClassProcs(Tk_Window tkwin, - Tk_ClassProcs *procs, - ClientData instanceData); -#endif -#ifndef Tk_SetInternalBorderEx_TCL_DECLARED -#define Tk_SetInternalBorderEx_TCL_DECLARED -/* 243 */ -EXTERN void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, - int right, int top, int bottom); -#endif -#ifndef Tk_SetMinimumRequestSize_TCL_DECLARED -#define Tk_SetMinimumRequestSize_TCL_DECLARED -/* 244 */ -EXTERN void Tk_SetMinimumRequestSize(Tk_Window tkwin, - int minWidth, int minHeight); -#endif -#ifndef Tk_SetCaretPos_TCL_DECLARED -#define Tk_SetCaretPos_TCL_DECLARED -/* 245 */ -EXTERN void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, - int height); -#endif -#ifndef Tk_PhotoPutBlock_Panic_TCL_DECLARED -#define Tk_PhotoPutBlock_Panic_TCL_DECLARED -/* 246 */ -EXTERN void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -#endif -#ifndef Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED -/* 247 */ -EXTERN void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -#endif -#ifndef Tk_CollapseMotionEvents_TCL_DECLARED -#define Tk_CollapseMotionEvents_TCL_DECLARED -/* 248 */ -EXTERN int Tk_CollapseMotionEvents(Display *display, - int collapse); -#endif -#ifndef Tk_RegisterStyleEngine_TCL_DECLARED -#define Tk_RegisterStyleEngine_TCL_DECLARED -/* 249 */ -EXTERN Tk_StyleEngine Tk_RegisterStyleEngine(CONST char *name, - Tk_StyleEngine parent); -#endif -#ifndef Tk_GetStyleEngine_TCL_DECLARED -#define Tk_GetStyleEngine_TCL_DECLARED -/* 250 */ -EXTERN Tk_StyleEngine Tk_GetStyleEngine(CONST char *name); -#endif -#ifndef Tk_RegisterStyledElement_TCL_DECLARED -#define Tk_RegisterStyledElement_TCL_DECLARED -/* 251 */ -EXTERN int Tk_RegisterStyledElement(Tk_StyleEngine engine, - Tk_ElementSpec *templatePtr); -#endif -#ifndef Tk_GetElementId_TCL_DECLARED -#define Tk_GetElementId_TCL_DECLARED -/* 252 */ -EXTERN int Tk_GetElementId(CONST char *name); -#endif -#ifndef Tk_CreateStyle_TCL_DECLARED -#define Tk_CreateStyle_TCL_DECLARED -/* 253 */ -EXTERN Tk_Style Tk_CreateStyle(CONST char *name, - Tk_StyleEngine engine, ClientData clientData); -#endif -#ifndef Tk_GetStyle_TCL_DECLARED -#define Tk_GetStyle_TCL_DECLARED -/* 254 */ -EXTERN Tk_Style Tk_GetStyle(Tcl_Interp *interp, CONST char *name); -#endif -#ifndef Tk_FreeStyle_TCL_DECLARED -#define Tk_FreeStyle_TCL_DECLARED -/* 255 */ -EXTERN void Tk_FreeStyle(Tk_Style style); -#endif -#ifndef Tk_NameOfStyle_TCL_DECLARED -#define Tk_NameOfStyle_TCL_DECLARED -/* 256 */ -EXTERN CONST char * Tk_NameOfStyle(Tk_Style style); -#endif -#ifndef Tk_AllocStyleFromObj_TCL_DECLARED -#define Tk_AllocStyleFromObj_TCL_DECLARED -/* 257 */ -EXTERN Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetStyleFromObj_TCL_DECLARED -#define Tk_GetStyleFromObj_TCL_DECLARED -/* 258 */ -EXTERN Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeStyleFromObj_TCL_DECLARED -#define Tk_FreeStyleFromObj_TCL_DECLARED -/* 259 */ -EXTERN void Tk_FreeStyleFromObj(Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetStyledElement_TCL_DECLARED -#define Tk_GetStyledElement_TCL_DECLARED -/* 260 */ -EXTERN Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId, - Tk_OptionTable optionTable); -#endif -#ifndef Tk_GetElementSize_TCL_DECLARED -#define Tk_GetElementSize_TCL_DECLARED -/* 261 */ -EXTERN void Tk_GetElementSize(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int width, int height, - int inner, int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_GetElementBox_TCL_DECLARED -#define Tk_GetElementBox_TCL_DECLARED -/* 262 */ -EXTERN void Tk_GetElementBox(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int x, int y, int width, - int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_GetElementBorderWidth_TCL_DECLARED -#define Tk_GetElementBorderWidth_TCL_DECLARED -/* 263 */ -EXTERN int Tk_GetElementBorderWidth(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin); -#endif -#ifndef Tk_DrawElement_TCL_DECLARED -#define Tk_DrawElement_TCL_DECLARED -/* 264 */ -EXTERN void Tk_DrawElement(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, Drawable d, int x, int y, - int width, int height, int state); -#endif -#ifndef Tk_PhotoExpand_TCL_DECLARED -#define Tk_PhotoExpand_TCL_DECLARED -/* 265 */ -EXTERN int Tk_PhotoExpand(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -#endif -#ifndef Tk_PhotoPutBlock_TCL_DECLARED -#define Tk_PhotoPutBlock_TCL_DECLARED -/* 266 */ -EXTERN int Tk_PhotoPutBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -#endif -#ifndef Tk_PhotoPutZoomedBlock_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_TCL_DECLARED -/* 267 */ -EXTERN int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -#endif -#ifndef Tk_PhotoSetSize_TCL_DECLARED -#define Tk_PhotoSetSize_TCL_DECLARED -/* 268 */ -EXTERN int Tk_PhotoSetSize(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -#endif -#ifndef Tk_GetUserInactiveTime_TCL_DECLARED -#define Tk_GetUserInactiveTime_TCL_DECLARED -/* 269 */ -EXTERN long Tk_GetUserInactiveTime(Display *dpy); -#endif -#ifndef Tk_ResetUserInactiveTime_TCL_DECLARED -#define Tk_ResetUserInactiveTime_TCL_DECLARED -/* 270 */ -EXTERN void Tk_ResetUserInactiveTime(Display *dpy); -#endif -#ifndef Tk_Interp_TCL_DECLARED -#define Tk_Interp_TCL_DECLARED -/* 271 */ -EXTERN Tcl_Interp * Tk_Interp(Tk_Window tkwin); -#endif -#ifndef Tk_CreateOldImageType_TCL_DECLARED -#define Tk_CreateOldImageType_TCL_DECLARED -/* 272 */ -EXTERN void Tk_CreateOldImageType(Tk_ImageType *typePtr); -#endif -#ifndef Tk_CreateOldPhotoImageFormat_TCL_DECLARED -#define Tk_CreateOldPhotoImageFormat_TCL_DECLARED -/* 273 */ -EXTERN void Tk_CreateOldPhotoImageFormat( - Tk_PhotoImageFormat *formatPtr); -#endif -/* Slot 274 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 275 */ -EXTERN void TkUnusedStubEntry(void); -#endif - -typedef struct TkStubHooks { - struct TkPlatStubs *tkPlatStubs; - struct TkIntStubs *tkIntStubs; - struct TkIntPlatStubs *tkIntPlatStubs; - struct TkIntXlibStubs *tkIntXlibStubs; -} TkStubHooks; - -typedef struct TkStubs { - int magic; - struct TkStubHooks *hooks; - - void (*tk_MainLoop) (void); /* 0 */ - XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ - GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ - void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ - void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ - void (*tk_AddOption) (Tk_Window tkwin, CONST char *name, CONST char *value, int priority); /* 5 */ - void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr); /* 6 */ - void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr); /* 7 */ - void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ - int (*tk_CanvasGetCoord) (Tcl_Interp *interp, Tk_Canvas canvas, CONST char *str, double *doublePtr); /* 9 */ - Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ - int (*tk_CanvasPsBitmap) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ - int (*tk_CanvasPsColor) (Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr); /* 12 */ - int (*tk_CanvasPsFont) (Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ - void (*tk_CanvasPsPath) (Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints); /* 14 */ - int (*tk_CanvasPsStipple) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ - double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ - void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ - int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 18 */ - char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 19 */ - Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ - void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr); /* 21 */ - void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr); /* 22 */ - int (*tk_CharBbox) (Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 23 */ - void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ - int (*tk_ClipboardAppend) (Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, char *buffer); /* 25 */ - int (*tk_ClipboardClear) (Tcl_Interp *interp, Tk_Window tkwin); /* 26 */ - int (*tk_ConfigureInfo) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags); /* 27 */ - int (*tk_ConfigureValue) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags); /* 28 */ - int (*tk_ConfigureWidget) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags); /* 29 */ - void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr); /* 30 */ - Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, CONST char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr); /* 31 */ - Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ - unsigned long (*tk_CreateBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr, CONST char *command, int append); /* 33 */ - Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp *interp); /* 34 */ - Tk_ErrorHandler (*tk_CreateErrorHandler) (Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData); /* 35 */ - void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 36 */ - void (*tk_CreateGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 37 */ - void (*tk_CreateImageType) (Tk_ImageType *typePtr); /* 38 */ - void (*tk_CreateItemType) (Tk_ItemType *typePtr); /* 39 */ - void (*tk_CreatePhotoImageFormat) (Tk_PhotoImageFormat *formatPtr); /* 40 */ - void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format); /* 41 */ - Tk_Window (*tk_CreateWindow) (Tcl_Interp *interp, Tk_Window parent, CONST char *name, CONST char *screenName); /* 42 */ - Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *pathName, CONST char *screenName); /* 43 */ - int (*tk_DefineBitmap) (Tcl_Interp *interp, CONST char *name, CONST char *source, int width, int height); /* 44 */ - void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ - void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ - int (*tk_DeleteBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr); /* 47 */ - void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ - void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ - void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 50 */ - void (*tk_DeleteGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 51 */ - void (*tk_DeleteImage) (Tcl_Interp *interp, CONST char *name); /* 52 */ - void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ - void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ - CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ - int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ - void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ - void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ - void (*tk_DrawChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int numBytes, int x, int y); /* 59 */ - void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ - void (*tk_DrawTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ - void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ - void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ - Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp *interp, CONST char *imageName); /* 64 */ - Font (*tk_FontId) (Tk_Font font); /* 65 */ - void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ - void (*tk_FreeBitmap) (Display *display, Pixmap bitmap); /* 67 */ - void (*tk_FreeColor) (XColor *colorPtr); /* 68 */ - void (*tk_FreeColormap) (Display *display, Colormap colormap); /* 69 */ - void (*tk_FreeCursor) (Display *display, Tk_Cursor cursor); /* 70 */ - void (*tk_FreeFont) (Tk_Font f); /* 71 */ - void (*tk_FreeGC) (Display *display, GC gc); /* 72 */ - void (*tk_FreeImage) (Tk_Image image); /* 73 */ - void (*tk_FreeOptions) (Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags); /* 74 */ - void (*tk_FreePixmap) (Display *display, Pixmap pixmap); /* 75 */ - void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ - void (*tk_FreeXId) (Display *display, XID xid); /* 77 */ - GC (*tk_GCForColor) (XColor *colorPtr, Drawable drawable); /* 78 */ - void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ - Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ - void (*tk_GetAllBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ - int (*tk_GetAnchor) (Tcl_Interp *interp, CONST char *str, Tk_Anchor *anchorPtr); /* 82 */ - CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ - CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr); /* 84 */ - Pixmap (*tk_GetBitmap) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 85 */ - Pixmap (*tk_GetBitmapFromData) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, int width, int height); /* 86 */ - int (*tk_GetCapStyle) (Tcl_Interp *interp, CONST char *str, int *capPtr); /* 87 */ - XColor * (*tk_GetColor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ - XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor *colorPtr); /* 89 */ - Colormap (*tk_GetColormap) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 90 */ - Tk_Cursor (*tk_GetCursor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ - Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, CONST char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ - Tk_Font (*tk_GetFont) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 93 */ - Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 94 */ - void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics *fmPtr); /* 95 */ - GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr); /* 96 */ - Tk_Image (*tk_GetImage) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *name, Tk_ImageChangedProc *changeProc, ClientData clientData); /* 97 */ - ClientData (*tk_GetImageMasterData) (Tcl_Interp *interp, CONST char *name, Tk_ImageType **typePtrPtr); /* 98 */ - Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ - int (*tk_GetJoinStyle) (Tcl_Interp *interp, CONST char *str, int *joinPtr); /* 100 */ - int (*tk_GetJustify) (Tcl_Interp *interp, CONST char *str, Tk_Justify *justifyPtr); /* 101 */ - int (*tk_GetNumMainWindows) (void); /* 102 */ - Tk_Uid (*tk_GetOption) (Tk_Window tkwin, CONST char *name, CONST char *className); /* 103 */ - int (*tk_GetPixels) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *intPtr); /* 104 */ - Pixmap (*tk_GetPixmap) (Display *display, Drawable d, int width, int height, int depth); /* 105 */ - int (*tk_GetRelief) (Tcl_Interp *interp, CONST char *name, int *reliefPtr); /* 106 */ - void (*tk_GetRootCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 107 */ - int (*tk_GetScrollInfo) (Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr); /* 108 */ - int (*tk_GetScreenMM) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, double *doublePtr); /* 109 */ - int (*tk_GetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 110 */ - Tk_Uid (*tk_GetUid) (CONST char *str); /* 111 */ - Visual * (*tk_GetVisual) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *depthPtr, Colormap *colormapPtr); /* 112 */ - void (*tk_GetVRootGeometry) (Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 113 */ - int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */ - void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */ - Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */ - void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ - int (*tk_Init) (Tcl_Interp *interp); /* 118 */ - Atom (*tk_InternAtom) (Tk_Window tkwin, CONST char *name); /* 119 */ - int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ - void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ - Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */ - void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ - void (*tk_ManageGeometry) (Tk_Window tkwin, CONST Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */ - void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ - int (*tk_MeasureChars) (Tk_Font tkfont, CONST char *source, int numBytes, int maxPixels, int flags, int *lengthPtr); /* 126 */ - void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ - void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ - void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ - CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ - CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ - CONST84_RETURN char * (*tk_NameOfBitmap) (Display *display, Pixmap bitmap); /* 132 */ - CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ - CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */ - CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */ - CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ - CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ - CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ - CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ - CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ - Tk_Window (*tk_NameToWindow) (Tcl_Interp *interp, CONST char *pathName, Tk_Window tkwin); /* 141 */ - void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData); /* 142 */ - int (*tk_ParseArgv) (Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, Tk_ArgvInfo *argTable, int flags); /* 143 */ - void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height); /* 144 */ - void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ - int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr); /* 146 */ - void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ - void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ - void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr); /* 149 */ - void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ - int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ - int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString *dsPtr); /* 152 */ - void (*tk_PreserveColormap) (Display *display, Colormap colormap); /* 153 */ - void (*tk_QueueWindowEvent) (XEvent *eventPtr, Tcl_QueuePosition position); /* 154 */ - void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ - void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ - int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ - Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr); /* 158 */ - int (*tk_SafeInit) (Tcl_Interp *interp); /* 159 */ - CONST char * (*tk_SetAppName) (Tk_Window tkwin, CONST char *name); /* 160 */ - void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ - void (*tk_SetClass) (Tk_Window tkwin, CONST char *className); /* 162 */ - void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ - void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ - void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ - void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ - void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ - void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ - void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ - void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ - int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual *visual, int depth, Colormap colormap); /* 171 */ - void (*tk_SizeOfBitmap) (Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr); /* 172 */ - void (*tk_SizeOfImage) (Tk_Image image, int *widthPtr, int *heightPtr); /* 173 */ - int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ - void (*tk_TextLayoutToPostscript) (Tcl_Interp *interp, Tk_TextLayout layout); /* 175 */ - int (*tk_TextWidth) (Tk_Font font, CONST char *str, int numBytes); /* 176 */ - void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ - void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int x, int y, int firstByte, int lastByte); /* 178 */ - void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ - void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ - void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ - void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ - void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ - void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ - Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 185 */ - Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 186 */ - XColor * (*tk_AllocColorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 187 */ - Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 188 */ - Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 189 */ - Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp *interp, CONST Tk_OptionSpec *templatePtr); /* 190 */ - void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ - void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 192 */ - void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 193 */ - void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 194 */ - void (*tk_FreeConfigOptions) (char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ - void (*tk_FreeSavedOptions) (Tk_SavedOptions *savePtr); /* 196 */ - void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 197 */ - void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 198 */ - Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 199 */ - int (*tk_GetAnchorFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); /* 200 */ - Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 201 */ - XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 202 */ - Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 203 */ - Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 204 */ - Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 205 */ - int (*tk_GetJustifyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr); /* 206 */ - int (*tk_GetMMFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr); /* 207 */ - int (*tk_GetPixelsFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr); /* 208 */ - int (*tk_GetReliefFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr); /* 209 */ - int (*tk_GetScrollInfoObj) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], double *dblPtr, int *intPtr); /* 210 */ - int (*tk_InitOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ - void (*tk_MainEx) (int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); /* 212 */ - void (*tk_RestoreSavedOptions) (Tk_SavedOptions *savePtr); /* 213 */ - int (*tk_SetOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr); /* 214 */ - void (*tk_InitConsoleChannels) (Tcl_Interp *interp); /* 215 */ - int (*tk_CreateConsoleWindow) (Tcl_Interp *interp); /* 216 */ - void (*tk_CreateSmoothMethod) (Tcl_Interp *interp, Tk_SmoothMethod *method); /* 217 */ - VOID *reserved218; - VOID *reserved219; - int (*tk_GetDash) (Tcl_Interp *interp, CONST char *value, Tk_Dash *dash); /* 220 */ - void (*tk_CreateOutline) (Tk_Outline *outline); /* 221 */ - void (*tk_DeleteOutline) (Display *display, Tk_Outline *outline); /* 222 */ - int (*tk_ConfigOutlineGC) (XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 223 */ - int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 224 */ - int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 225 */ - int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 226 */ - void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ - int (*tk_CanvasGetCoordFromObj) (Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr); /* 228 */ - void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset *offset); /* 229 */ - void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ - int (*tk_PostscriptBitmap) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ - int (*tk_PostscriptColor) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr); /* 232 */ - int (*tk_PostscriptFont) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ - int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ - void (*tk_PostscriptPath) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints); /* 235 */ - int (*tk_PostscriptStipple) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ - double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ - int (*tk_PostscriptPhoto) (Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ - void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc *proc); /* 239 */ - void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc *proc); /* 240 */ - Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp *interp, Tk_Window parent, CONST char *screenName); /* 241 */ - void (*tk_SetClassProcs) (Tk_Window tkwin, Tk_ClassProcs *procs, ClientData instanceData); /* 242 */ - void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ - void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ - void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ - void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ - void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ - int (*tk_CollapseMotionEvents) (Display *display, int collapse); /* 248 */ - Tk_StyleEngine (*tk_RegisterStyleEngine) (CONST char *name, Tk_StyleEngine parent); /* 249 */ - Tk_StyleEngine (*tk_GetStyleEngine) (CONST char *name); /* 250 */ - int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec *templatePtr); /* 251 */ - int (*tk_GetElementId) (CONST char *name); /* 252 */ - Tk_Style (*tk_CreateStyle) (CONST char *name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ - Tk_Style (*tk_GetStyle) (Tcl_Interp *interp, CONST char *name); /* 254 */ - void (*tk_FreeStyle) (Tk_Style style); /* 255 */ - CONST char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ - Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 257 */ - Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj *objPtr); /* 258 */ - void (*tk_FreeStyleFromObj) (Tcl_Obj *objPtr); /* 259 */ - Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ - void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr); /* 261 */ - void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 262 */ - int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin); /* 263 */ - void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ - int (*tk_PhotoExpand) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ - int (*tk_PhotoPutBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ - int (*tk_PhotoPutZoomedBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ - int (*tk_PhotoSetSize) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ - long (*tk_GetUserInactiveTime) (Display *dpy); /* 269 */ - void (*tk_ResetUserInactiveTime) (Display *dpy); /* 270 */ - Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ - void (*tk_CreateOldImageType) (Tk_ImageType *typePtr); /* 272 */ - void (*tk_CreateOldPhotoImageFormat) (Tk_PhotoImageFormat *formatPtr); /* 273 */ - VOID *reserved274; - void (*tkUnusedStubEntry) (void); /* 275 */ -} TkStubs; - -extern TkStubs *tkStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tk_MainLoop -#define Tk_MainLoop \ - (tkStubsPtr->tk_MainLoop) /* 0 */ -#endif -#ifndef Tk_3DBorderColor -#define Tk_3DBorderColor \ - (tkStubsPtr->tk_3DBorderColor) /* 1 */ -#endif -#ifndef Tk_3DBorderGC -#define Tk_3DBorderGC \ - (tkStubsPtr->tk_3DBorderGC) /* 2 */ -#endif -#ifndef Tk_3DHorizontalBevel -#define Tk_3DHorizontalBevel \ - (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ -#endif -#ifndef Tk_3DVerticalBevel -#define Tk_3DVerticalBevel \ - (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ -#endif -#ifndef Tk_AddOption -#define Tk_AddOption \ - (tkStubsPtr->tk_AddOption) /* 5 */ -#endif -#ifndef Tk_BindEvent -#define Tk_BindEvent \ - (tkStubsPtr->tk_BindEvent) /* 6 */ -#endif -#ifndef Tk_CanvasDrawableCoords -#define Tk_CanvasDrawableCoords \ - (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ -#endif -#ifndef Tk_CanvasEventuallyRedraw -#define Tk_CanvasEventuallyRedraw \ - (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ -#endif -#ifndef Tk_CanvasGetCoord -#define Tk_CanvasGetCoord \ - (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ -#endif -#ifndef Tk_CanvasGetTextInfo -#define Tk_CanvasGetTextInfo \ - (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ -#endif -#ifndef Tk_CanvasPsBitmap -#define Tk_CanvasPsBitmap \ - (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ -#endif -#ifndef Tk_CanvasPsColor -#define Tk_CanvasPsColor \ - (tkStubsPtr->tk_CanvasPsColor) /* 12 */ -#endif -#ifndef Tk_CanvasPsFont -#define Tk_CanvasPsFont \ - (tkStubsPtr->tk_CanvasPsFont) /* 13 */ -#endif -#ifndef Tk_CanvasPsPath -#define Tk_CanvasPsPath \ - (tkStubsPtr->tk_CanvasPsPath) /* 14 */ -#endif -#ifndef Tk_CanvasPsStipple -#define Tk_CanvasPsStipple \ - (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ -#endif -#ifndef Tk_CanvasPsY -#define Tk_CanvasPsY \ - (tkStubsPtr->tk_CanvasPsY) /* 16 */ -#endif -#ifndef Tk_CanvasSetStippleOrigin -#define Tk_CanvasSetStippleOrigin \ - (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ -#endif -#ifndef Tk_CanvasTagsParseProc -#define Tk_CanvasTagsParseProc \ - (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ -#endif -#ifndef Tk_CanvasTagsPrintProc -#define Tk_CanvasTagsPrintProc \ - (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ -#endif -#ifndef Tk_CanvasTkwin -#define Tk_CanvasTkwin \ - (tkStubsPtr->tk_CanvasTkwin) /* 20 */ -#endif -#ifndef Tk_CanvasWindowCoords -#define Tk_CanvasWindowCoords \ - (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ -#endif -#ifndef Tk_ChangeWindowAttributes -#define Tk_ChangeWindowAttributes \ - (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ -#endif -#ifndef Tk_CharBbox -#define Tk_CharBbox \ - (tkStubsPtr->tk_CharBbox) /* 23 */ -#endif -#ifndef Tk_ClearSelection -#define Tk_ClearSelection \ - (tkStubsPtr->tk_ClearSelection) /* 24 */ -#endif -#ifndef Tk_ClipboardAppend -#define Tk_ClipboardAppend \ - (tkStubsPtr->tk_ClipboardAppend) /* 25 */ -#endif -#ifndef Tk_ClipboardClear -#define Tk_ClipboardClear \ - (tkStubsPtr->tk_ClipboardClear) /* 26 */ -#endif -#ifndef Tk_ConfigureInfo -#define Tk_ConfigureInfo \ - (tkStubsPtr->tk_ConfigureInfo) /* 27 */ -#endif -#ifndef Tk_ConfigureValue -#define Tk_ConfigureValue \ - (tkStubsPtr->tk_ConfigureValue) /* 28 */ -#endif -#ifndef Tk_ConfigureWidget -#define Tk_ConfigureWidget \ - (tkStubsPtr->tk_ConfigureWidget) /* 29 */ -#endif -#ifndef Tk_ConfigureWindow -#define Tk_ConfigureWindow \ - (tkStubsPtr->tk_ConfigureWindow) /* 30 */ -#endif -#ifndef Tk_ComputeTextLayout -#define Tk_ComputeTextLayout \ - (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ -#endif -#ifndef Tk_CoordsToWindow -#define Tk_CoordsToWindow \ - (tkStubsPtr->tk_CoordsToWindow) /* 32 */ -#endif -#ifndef Tk_CreateBinding -#define Tk_CreateBinding \ - (tkStubsPtr->tk_CreateBinding) /* 33 */ -#endif -#ifndef Tk_CreateBindingTable -#define Tk_CreateBindingTable \ - (tkStubsPtr->tk_CreateBindingTable) /* 34 */ -#endif -#ifndef Tk_CreateErrorHandler -#define Tk_CreateErrorHandler \ - (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ -#endif -#ifndef Tk_CreateEventHandler -#define Tk_CreateEventHandler \ - (tkStubsPtr->tk_CreateEventHandler) /* 36 */ -#endif -#ifndef Tk_CreateGenericHandler -#define Tk_CreateGenericHandler \ - (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ -#endif -#ifndef Tk_CreateImageType -#define Tk_CreateImageType \ - (tkStubsPtr->tk_CreateImageType) /* 38 */ -#endif -#ifndef Tk_CreateItemType -#define Tk_CreateItemType \ - (tkStubsPtr->tk_CreateItemType) /* 39 */ -#endif -#ifndef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat \ - (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ -#endif -#ifndef Tk_CreateSelHandler -#define Tk_CreateSelHandler \ - (tkStubsPtr->tk_CreateSelHandler) /* 41 */ -#endif -#ifndef Tk_CreateWindow -#define Tk_CreateWindow \ - (tkStubsPtr->tk_CreateWindow) /* 42 */ -#endif -#ifndef Tk_CreateWindowFromPath -#define Tk_CreateWindowFromPath \ - (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ -#endif -#ifndef Tk_DefineBitmap -#define Tk_DefineBitmap \ - (tkStubsPtr->tk_DefineBitmap) /* 44 */ -#endif -#ifndef Tk_DefineCursor -#define Tk_DefineCursor \ - (tkStubsPtr->tk_DefineCursor) /* 45 */ -#endif -#ifndef Tk_DeleteAllBindings -#define Tk_DeleteAllBindings \ - (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ -#endif -#ifndef Tk_DeleteBinding -#define Tk_DeleteBinding \ - (tkStubsPtr->tk_DeleteBinding) /* 47 */ -#endif -#ifndef Tk_DeleteBindingTable -#define Tk_DeleteBindingTable \ - (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ -#endif -#ifndef Tk_DeleteErrorHandler -#define Tk_DeleteErrorHandler \ - (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ -#endif -#ifndef Tk_DeleteEventHandler -#define Tk_DeleteEventHandler \ - (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ -#endif -#ifndef Tk_DeleteGenericHandler -#define Tk_DeleteGenericHandler \ - (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ -#endif -#ifndef Tk_DeleteImage -#define Tk_DeleteImage \ - (tkStubsPtr->tk_DeleteImage) /* 52 */ -#endif -#ifndef Tk_DeleteSelHandler -#define Tk_DeleteSelHandler \ - (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ -#endif -#ifndef Tk_DestroyWindow -#define Tk_DestroyWindow \ - (tkStubsPtr->tk_DestroyWindow) /* 54 */ -#endif -#ifndef Tk_DisplayName -#define Tk_DisplayName \ - (tkStubsPtr->tk_DisplayName) /* 55 */ -#endif -#ifndef Tk_DistanceToTextLayout -#define Tk_DistanceToTextLayout \ - (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ -#endif -#ifndef Tk_Draw3DPolygon -#define Tk_Draw3DPolygon \ - (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ -#endif -#ifndef Tk_Draw3DRectangle -#define Tk_Draw3DRectangle \ - (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ -#endif -#ifndef Tk_DrawChars -#define Tk_DrawChars \ - (tkStubsPtr->tk_DrawChars) /* 59 */ -#endif -#ifndef Tk_DrawFocusHighlight -#define Tk_DrawFocusHighlight \ - (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ -#endif -#ifndef Tk_DrawTextLayout -#define Tk_DrawTextLayout \ - (tkStubsPtr->tk_DrawTextLayout) /* 61 */ -#endif -#ifndef Tk_Fill3DPolygon -#define Tk_Fill3DPolygon \ - (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ -#endif -#ifndef Tk_Fill3DRectangle -#define Tk_Fill3DRectangle \ - (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ -#endif -#ifndef Tk_FindPhoto -#define Tk_FindPhoto \ - (tkStubsPtr->tk_FindPhoto) /* 64 */ -#endif -#ifndef Tk_FontId -#define Tk_FontId \ - (tkStubsPtr->tk_FontId) /* 65 */ -#endif -#ifndef Tk_Free3DBorder -#define Tk_Free3DBorder \ - (tkStubsPtr->tk_Free3DBorder) /* 66 */ -#endif -#ifndef Tk_FreeBitmap -#define Tk_FreeBitmap \ - (tkStubsPtr->tk_FreeBitmap) /* 67 */ -#endif -#ifndef Tk_FreeColor -#define Tk_FreeColor \ - (tkStubsPtr->tk_FreeColor) /* 68 */ -#endif -#ifndef Tk_FreeColormap -#define Tk_FreeColormap \ - (tkStubsPtr->tk_FreeColormap) /* 69 */ -#endif -#ifndef Tk_FreeCursor -#define Tk_FreeCursor \ - (tkStubsPtr->tk_FreeCursor) /* 70 */ -#endif -#ifndef Tk_FreeFont -#define Tk_FreeFont \ - (tkStubsPtr->tk_FreeFont) /* 71 */ -#endif -#ifndef Tk_FreeGC -#define Tk_FreeGC \ - (tkStubsPtr->tk_FreeGC) /* 72 */ -#endif -#ifndef Tk_FreeImage -#define Tk_FreeImage \ - (tkStubsPtr->tk_FreeImage) /* 73 */ -#endif -#ifndef Tk_FreeOptions -#define Tk_FreeOptions \ - (tkStubsPtr->tk_FreeOptions) /* 74 */ -#endif -#ifndef Tk_FreePixmap -#define Tk_FreePixmap \ - (tkStubsPtr->tk_FreePixmap) /* 75 */ -#endif -#ifndef Tk_FreeTextLayout -#define Tk_FreeTextLayout \ - (tkStubsPtr->tk_FreeTextLayout) /* 76 */ -#endif -#ifndef Tk_FreeXId -#define Tk_FreeXId \ - (tkStubsPtr->tk_FreeXId) /* 77 */ -#endif -#ifndef Tk_GCForColor -#define Tk_GCForColor \ - (tkStubsPtr->tk_GCForColor) /* 78 */ -#endif -#ifndef Tk_GeometryRequest -#define Tk_GeometryRequest \ - (tkStubsPtr->tk_GeometryRequest) /* 79 */ -#endif -#ifndef Tk_Get3DBorder -#define Tk_Get3DBorder \ - (tkStubsPtr->tk_Get3DBorder) /* 80 */ -#endif -#ifndef Tk_GetAllBindings -#define Tk_GetAllBindings \ - (tkStubsPtr->tk_GetAllBindings) /* 81 */ -#endif -#ifndef Tk_GetAnchor -#define Tk_GetAnchor \ - (tkStubsPtr->tk_GetAnchor) /* 82 */ -#endif -#ifndef Tk_GetAtomName -#define Tk_GetAtomName \ - (tkStubsPtr->tk_GetAtomName) /* 83 */ -#endif -#ifndef Tk_GetBinding -#define Tk_GetBinding \ - (tkStubsPtr->tk_GetBinding) /* 84 */ -#endif -#ifndef Tk_GetBitmap -#define Tk_GetBitmap \ - (tkStubsPtr->tk_GetBitmap) /* 85 */ -#endif -#ifndef Tk_GetBitmapFromData -#define Tk_GetBitmapFromData \ - (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ -#endif -#ifndef Tk_GetCapStyle -#define Tk_GetCapStyle \ - (tkStubsPtr->tk_GetCapStyle) /* 87 */ -#endif -#ifndef Tk_GetColor -#define Tk_GetColor \ - (tkStubsPtr->tk_GetColor) /* 88 */ -#endif -#ifndef Tk_GetColorByValue -#define Tk_GetColorByValue \ - (tkStubsPtr->tk_GetColorByValue) /* 89 */ -#endif -#ifndef Tk_GetColormap -#define Tk_GetColormap \ - (tkStubsPtr->tk_GetColormap) /* 90 */ -#endif -#ifndef Tk_GetCursor -#define Tk_GetCursor \ - (tkStubsPtr->tk_GetCursor) /* 91 */ -#endif -#ifndef Tk_GetCursorFromData -#define Tk_GetCursorFromData \ - (tkStubsPtr->tk_GetCursorFromData) /* 92 */ -#endif -#ifndef Tk_GetFont -#define Tk_GetFont \ - (tkStubsPtr->tk_GetFont) /* 93 */ -#endif -#ifndef Tk_GetFontFromObj -#define Tk_GetFontFromObj \ - (tkStubsPtr->tk_GetFontFromObj) /* 94 */ -#endif -#ifndef Tk_GetFontMetrics -#define Tk_GetFontMetrics \ - (tkStubsPtr->tk_GetFontMetrics) /* 95 */ -#endif -#ifndef Tk_GetGC -#define Tk_GetGC \ - (tkStubsPtr->tk_GetGC) /* 96 */ -#endif -#ifndef Tk_GetImage -#define Tk_GetImage \ - (tkStubsPtr->tk_GetImage) /* 97 */ -#endif -#ifndef Tk_GetImageMasterData -#define Tk_GetImageMasterData \ - (tkStubsPtr->tk_GetImageMasterData) /* 98 */ -#endif -#ifndef Tk_GetItemTypes -#define Tk_GetItemTypes \ - (tkStubsPtr->tk_GetItemTypes) /* 99 */ -#endif -#ifndef Tk_GetJoinStyle -#define Tk_GetJoinStyle \ - (tkStubsPtr->tk_GetJoinStyle) /* 100 */ -#endif -#ifndef Tk_GetJustify -#define Tk_GetJustify \ - (tkStubsPtr->tk_GetJustify) /* 101 */ -#endif -#ifndef Tk_GetNumMainWindows -#define Tk_GetNumMainWindows \ - (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ -#endif -#ifndef Tk_GetOption -#define Tk_GetOption \ - (tkStubsPtr->tk_GetOption) /* 103 */ -#endif -#ifndef Tk_GetPixels -#define Tk_GetPixels \ - (tkStubsPtr->tk_GetPixels) /* 104 */ -#endif -#ifndef Tk_GetPixmap -#define Tk_GetPixmap \ - (tkStubsPtr->tk_GetPixmap) /* 105 */ -#endif -#ifndef Tk_GetRelief -#define Tk_GetRelief \ - (tkStubsPtr->tk_GetRelief) /* 106 */ -#endif -#ifndef Tk_GetRootCoords -#define Tk_GetRootCoords \ - (tkStubsPtr->tk_GetRootCoords) /* 107 */ -#endif -#ifndef Tk_GetScrollInfo -#define Tk_GetScrollInfo \ - (tkStubsPtr->tk_GetScrollInfo) /* 108 */ -#endif -#ifndef Tk_GetScreenMM -#define Tk_GetScreenMM \ - (tkStubsPtr->tk_GetScreenMM) /* 109 */ -#endif -#ifndef Tk_GetSelection -#define Tk_GetSelection \ - (tkStubsPtr->tk_GetSelection) /* 110 */ -#endif -#ifndef Tk_GetUid -#define Tk_GetUid \ - (tkStubsPtr->tk_GetUid) /* 111 */ -#endif -#ifndef Tk_GetVisual -#define Tk_GetVisual \ - (tkStubsPtr->tk_GetVisual) /* 112 */ -#endif -#ifndef Tk_GetVRootGeometry -#define Tk_GetVRootGeometry \ - (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ -#endif -#ifndef Tk_Grab -#define Tk_Grab \ - (tkStubsPtr->tk_Grab) /* 114 */ -#endif -#ifndef Tk_HandleEvent -#define Tk_HandleEvent \ - (tkStubsPtr->tk_HandleEvent) /* 115 */ -#endif -#ifndef Tk_IdToWindow -#define Tk_IdToWindow \ - (tkStubsPtr->tk_IdToWindow) /* 116 */ -#endif -#ifndef Tk_ImageChanged -#define Tk_ImageChanged \ - (tkStubsPtr->tk_ImageChanged) /* 117 */ -#endif -#ifndef Tk_Init -#define Tk_Init \ - (tkStubsPtr->tk_Init) /* 118 */ -#endif -#ifndef Tk_InternAtom -#define Tk_InternAtom \ - (tkStubsPtr->tk_InternAtom) /* 119 */ -#endif -#ifndef Tk_IntersectTextLayout -#define Tk_IntersectTextLayout \ - (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ -#endif -#ifndef Tk_MaintainGeometry -#define Tk_MaintainGeometry \ - (tkStubsPtr->tk_MaintainGeometry) /* 121 */ -#endif -#ifndef Tk_MainWindow -#define Tk_MainWindow \ - (tkStubsPtr->tk_MainWindow) /* 122 */ -#endif -#ifndef Tk_MakeWindowExist -#define Tk_MakeWindowExist \ - (tkStubsPtr->tk_MakeWindowExist) /* 123 */ -#endif -#ifndef Tk_ManageGeometry -#define Tk_ManageGeometry \ - (tkStubsPtr->tk_ManageGeometry) /* 124 */ -#endif -#ifndef Tk_MapWindow -#define Tk_MapWindow \ - (tkStubsPtr->tk_MapWindow) /* 125 */ -#endif -#ifndef Tk_MeasureChars -#define Tk_MeasureChars \ - (tkStubsPtr->tk_MeasureChars) /* 126 */ -#endif -#ifndef Tk_MoveResizeWindow -#define Tk_MoveResizeWindow \ - (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ -#endif -#ifndef Tk_MoveWindow -#define Tk_MoveWindow \ - (tkStubsPtr->tk_MoveWindow) /* 128 */ -#endif -#ifndef Tk_MoveToplevelWindow -#define Tk_MoveToplevelWindow \ - (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ -#endif -#ifndef Tk_NameOf3DBorder -#define Tk_NameOf3DBorder \ - (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ -#endif -#ifndef Tk_NameOfAnchor -#define Tk_NameOfAnchor \ - (tkStubsPtr->tk_NameOfAnchor) /* 131 */ -#endif -#ifndef Tk_NameOfBitmap -#define Tk_NameOfBitmap \ - (tkStubsPtr->tk_NameOfBitmap) /* 132 */ -#endif -#ifndef Tk_NameOfCapStyle -#define Tk_NameOfCapStyle \ - (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ -#endif -#ifndef Tk_NameOfColor -#define Tk_NameOfColor \ - (tkStubsPtr->tk_NameOfColor) /* 134 */ -#endif -#ifndef Tk_NameOfCursor -#define Tk_NameOfCursor \ - (tkStubsPtr->tk_NameOfCursor) /* 135 */ -#endif -#ifndef Tk_NameOfFont -#define Tk_NameOfFont \ - (tkStubsPtr->tk_NameOfFont) /* 136 */ -#endif -#ifndef Tk_NameOfImage -#define Tk_NameOfImage \ - (tkStubsPtr->tk_NameOfImage) /* 137 */ -#endif -#ifndef Tk_NameOfJoinStyle -#define Tk_NameOfJoinStyle \ - (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ -#endif -#ifndef Tk_NameOfJustify -#define Tk_NameOfJustify \ - (tkStubsPtr->tk_NameOfJustify) /* 139 */ -#endif -#ifndef Tk_NameOfRelief -#define Tk_NameOfRelief \ - (tkStubsPtr->tk_NameOfRelief) /* 140 */ -#endif -#ifndef Tk_NameToWindow -#define Tk_NameToWindow \ - (tkStubsPtr->tk_NameToWindow) /* 141 */ -#endif -#ifndef Tk_OwnSelection -#define Tk_OwnSelection \ - (tkStubsPtr->tk_OwnSelection) /* 142 */ -#endif -#ifndef Tk_ParseArgv -#define Tk_ParseArgv \ - (tkStubsPtr->tk_ParseArgv) /* 143 */ -#endif -#ifndef Tk_PhotoPutBlock_NoComposite -#define Tk_PhotoPutBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite -#define Tk_PhotoPutZoomedBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ -#endif -#ifndef Tk_PhotoGetImage -#define Tk_PhotoGetImage \ - (tkStubsPtr->tk_PhotoGetImage) /* 146 */ -#endif -#ifndef Tk_PhotoBlank -#define Tk_PhotoBlank \ - (tkStubsPtr->tk_PhotoBlank) /* 147 */ -#endif -#ifndef Tk_PhotoExpand_Panic -#define Tk_PhotoExpand_Panic \ - (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ -#endif -#ifndef Tk_PhotoGetSize -#define Tk_PhotoGetSize \ - (tkStubsPtr->tk_PhotoGetSize) /* 149 */ -#endif -#ifndef Tk_PhotoSetSize_Panic -#define Tk_PhotoSetSize_Panic \ - (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ -#endif -#ifndef Tk_PointToChar -#define Tk_PointToChar \ - (tkStubsPtr->tk_PointToChar) /* 151 */ -#endif -#ifndef Tk_PostscriptFontName -#define Tk_PostscriptFontName \ - (tkStubsPtr->tk_PostscriptFontName) /* 152 */ -#endif -#ifndef Tk_PreserveColormap -#define Tk_PreserveColormap \ - (tkStubsPtr->tk_PreserveColormap) /* 153 */ -#endif -#ifndef Tk_QueueWindowEvent -#define Tk_QueueWindowEvent \ - (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ -#endif -#ifndef Tk_RedrawImage -#define Tk_RedrawImage \ - (tkStubsPtr->tk_RedrawImage) /* 155 */ -#endif -#ifndef Tk_ResizeWindow -#define Tk_ResizeWindow \ - (tkStubsPtr->tk_ResizeWindow) /* 156 */ -#endif -#ifndef Tk_RestackWindow -#define Tk_RestackWindow \ - (tkStubsPtr->tk_RestackWindow) /* 157 */ -#endif -#ifndef Tk_RestrictEvents -#define Tk_RestrictEvents \ - (tkStubsPtr->tk_RestrictEvents) /* 158 */ -#endif -#ifndef Tk_SafeInit -#define Tk_SafeInit \ - (tkStubsPtr->tk_SafeInit) /* 159 */ -#endif -#ifndef Tk_SetAppName -#define Tk_SetAppName \ - (tkStubsPtr->tk_SetAppName) /* 160 */ -#endif -#ifndef Tk_SetBackgroundFromBorder -#define Tk_SetBackgroundFromBorder \ - (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ -#endif -#ifndef Tk_SetClass -#define Tk_SetClass \ - (tkStubsPtr->tk_SetClass) /* 162 */ -#endif -#ifndef Tk_SetGrid -#define Tk_SetGrid \ - (tkStubsPtr->tk_SetGrid) /* 163 */ -#endif -#ifndef Tk_SetInternalBorder -#define Tk_SetInternalBorder \ - (tkStubsPtr->tk_SetInternalBorder) /* 164 */ -#endif -#ifndef Tk_SetWindowBackground -#define Tk_SetWindowBackground \ - (tkStubsPtr->tk_SetWindowBackground) /* 165 */ -#endif -#ifndef Tk_SetWindowBackgroundPixmap -#define Tk_SetWindowBackgroundPixmap \ - (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ -#endif -#ifndef Tk_SetWindowBorder -#define Tk_SetWindowBorder \ - (tkStubsPtr->tk_SetWindowBorder) /* 167 */ -#endif -#ifndef Tk_SetWindowBorderWidth -#define Tk_SetWindowBorderWidth \ - (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ -#endif -#ifndef Tk_SetWindowBorderPixmap -#define Tk_SetWindowBorderPixmap \ - (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ -#endif -#ifndef Tk_SetWindowColormap -#define Tk_SetWindowColormap \ - (tkStubsPtr->tk_SetWindowColormap) /* 170 */ -#endif -#ifndef Tk_SetWindowVisual -#define Tk_SetWindowVisual \ - (tkStubsPtr->tk_SetWindowVisual) /* 171 */ -#endif -#ifndef Tk_SizeOfBitmap -#define Tk_SizeOfBitmap \ - (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ -#endif -#ifndef Tk_SizeOfImage -#define Tk_SizeOfImage \ - (tkStubsPtr->tk_SizeOfImage) /* 173 */ -#endif -#ifndef Tk_StrictMotif -#define Tk_StrictMotif \ - (tkStubsPtr->tk_StrictMotif) /* 174 */ -#endif -#ifndef Tk_TextLayoutToPostscript -#define Tk_TextLayoutToPostscript \ - (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ -#endif -#ifndef Tk_TextWidth -#define Tk_TextWidth \ - (tkStubsPtr->tk_TextWidth) /* 176 */ -#endif -#ifndef Tk_UndefineCursor -#define Tk_UndefineCursor \ - (tkStubsPtr->tk_UndefineCursor) /* 177 */ -#endif -#ifndef Tk_UnderlineChars -#define Tk_UnderlineChars \ - (tkStubsPtr->tk_UnderlineChars) /* 178 */ -#endif -#ifndef Tk_UnderlineTextLayout -#define Tk_UnderlineTextLayout \ - (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ -#endif -#ifndef Tk_Ungrab -#define Tk_Ungrab \ - (tkStubsPtr->tk_Ungrab) /* 180 */ -#endif -#ifndef Tk_UnmaintainGeometry -#define Tk_UnmaintainGeometry \ - (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ -#endif -#ifndef Tk_UnmapWindow -#define Tk_UnmapWindow \ - (tkStubsPtr->tk_UnmapWindow) /* 182 */ -#endif -#ifndef Tk_UnsetGrid -#define Tk_UnsetGrid \ - (tkStubsPtr->tk_UnsetGrid) /* 183 */ -#endif -#ifndef Tk_UpdatePointer -#define Tk_UpdatePointer \ - (tkStubsPtr->tk_UpdatePointer) /* 184 */ -#endif -#ifndef Tk_AllocBitmapFromObj -#define Tk_AllocBitmapFromObj \ - (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ -#endif -#ifndef Tk_Alloc3DBorderFromObj -#define Tk_Alloc3DBorderFromObj \ - (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ -#endif -#ifndef Tk_AllocColorFromObj -#define Tk_AllocColorFromObj \ - (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ -#endif -#ifndef Tk_AllocCursorFromObj -#define Tk_AllocCursorFromObj \ - (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ -#endif -#ifndef Tk_AllocFontFromObj -#define Tk_AllocFontFromObj \ - (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ -#endif -#ifndef Tk_CreateOptionTable -#define Tk_CreateOptionTable \ - (tkStubsPtr->tk_CreateOptionTable) /* 190 */ -#endif -#ifndef Tk_DeleteOptionTable -#define Tk_DeleteOptionTable \ - (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ -#endif -#ifndef Tk_Free3DBorderFromObj -#define Tk_Free3DBorderFromObj \ - (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ -#endif -#ifndef Tk_FreeBitmapFromObj -#define Tk_FreeBitmapFromObj \ - (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ -#endif -#ifndef Tk_FreeColorFromObj -#define Tk_FreeColorFromObj \ - (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ -#endif -#ifndef Tk_FreeConfigOptions -#define Tk_FreeConfigOptions \ - (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ -#endif -#ifndef Tk_FreeSavedOptions -#define Tk_FreeSavedOptions \ - (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ -#endif -#ifndef Tk_FreeCursorFromObj -#define Tk_FreeCursorFromObj \ - (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ -#endif -#ifndef Tk_FreeFontFromObj -#define Tk_FreeFontFromObj \ - (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ -#endif -#ifndef Tk_Get3DBorderFromObj -#define Tk_Get3DBorderFromObj \ - (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ -#endif -#ifndef Tk_GetAnchorFromObj -#define Tk_GetAnchorFromObj \ - (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ -#endif -#ifndef Tk_GetBitmapFromObj -#define Tk_GetBitmapFromObj \ - (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ -#endif -#ifndef Tk_GetColorFromObj -#define Tk_GetColorFromObj \ - (tkStubsPtr->tk_GetColorFromObj) /* 202 */ -#endif -#ifndef Tk_GetCursorFromObj -#define Tk_GetCursorFromObj \ - (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ -#endif -#ifndef Tk_GetOptionInfo -#define Tk_GetOptionInfo \ - (tkStubsPtr->tk_GetOptionInfo) /* 204 */ -#endif -#ifndef Tk_GetOptionValue -#define Tk_GetOptionValue \ - (tkStubsPtr->tk_GetOptionValue) /* 205 */ -#endif -#ifndef Tk_GetJustifyFromObj -#define Tk_GetJustifyFromObj \ - (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ -#endif -#ifndef Tk_GetMMFromObj -#define Tk_GetMMFromObj \ - (tkStubsPtr->tk_GetMMFromObj) /* 207 */ -#endif -#ifndef Tk_GetPixelsFromObj -#define Tk_GetPixelsFromObj \ - (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ -#endif -#ifndef Tk_GetReliefFromObj -#define Tk_GetReliefFromObj \ - (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ -#endif -#ifndef Tk_GetScrollInfoObj -#define Tk_GetScrollInfoObj \ - (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ -#endif -#ifndef Tk_InitOptions -#define Tk_InitOptions \ - (tkStubsPtr->tk_InitOptions) /* 211 */ -#endif -#ifndef Tk_MainEx -#define Tk_MainEx \ - (tkStubsPtr->tk_MainEx) /* 212 */ -#endif -#ifndef Tk_RestoreSavedOptions -#define Tk_RestoreSavedOptions \ - (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ -#endif -#ifndef Tk_SetOptions -#define Tk_SetOptions \ - (tkStubsPtr->tk_SetOptions) /* 214 */ -#endif -#ifndef Tk_InitConsoleChannels -#define Tk_InitConsoleChannels \ - (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ -#endif -#ifndef Tk_CreateConsoleWindow -#define Tk_CreateConsoleWindow \ - (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ -#endif -#ifndef Tk_CreateSmoothMethod -#define Tk_CreateSmoothMethod \ - (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash -#define Tk_GetDash \ - (tkStubsPtr->tk_GetDash) /* 220 */ -#endif -#ifndef Tk_CreateOutline -#define Tk_CreateOutline \ - (tkStubsPtr->tk_CreateOutline) /* 221 */ -#endif -#ifndef Tk_DeleteOutline -#define Tk_DeleteOutline \ - (tkStubsPtr->tk_DeleteOutline) /* 222 */ -#endif -#ifndef Tk_ConfigOutlineGC -#define Tk_ConfigOutlineGC \ - (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ -#endif -#ifndef Tk_ChangeOutlineGC -#define Tk_ChangeOutlineGC \ - (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ -#endif -#ifndef Tk_ResetOutlineGC -#define Tk_ResetOutlineGC \ - (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ -#endif -#ifndef Tk_CanvasPsOutline -#define Tk_CanvasPsOutline \ - (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ -#endif -#ifndef Tk_SetTSOrigin -#define Tk_SetTSOrigin \ - (tkStubsPtr->tk_SetTSOrigin) /* 227 */ -#endif -#ifndef Tk_CanvasGetCoordFromObj -#define Tk_CanvasGetCoordFromObj \ - (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ -#endif -#ifndef Tk_CanvasSetOffset -#define Tk_CanvasSetOffset \ - (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ -#endif -#ifndef Tk_DitherPhoto -#define Tk_DitherPhoto \ - (tkStubsPtr->tk_DitherPhoto) /* 230 */ -#endif -#ifndef Tk_PostscriptBitmap -#define Tk_PostscriptBitmap \ - (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ -#endif -#ifndef Tk_PostscriptColor -#define Tk_PostscriptColor \ - (tkStubsPtr->tk_PostscriptColor) /* 232 */ -#endif -#ifndef Tk_PostscriptFont -#define Tk_PostscriptFont \ - (tkStubsPtr->tk_PostscriptFont) /* 233 */ -#endif -#ifndef Tk_PostscriptImage -#define Tk_PostscriptImage \ - (tkStubsPtr->tk_PostscriptImage) /* 234 */ -#endif -#ifndef Tk_PostscriptPath -#define Tk_PostscriptPath \ - (tkStubsPtr->tk_PostscriptPath) /* 235 */ -#endif -#ifndef Tk_PostscriptStipple -#define Tk_PostscriptStipple \ - (tkStubsPtr->tk_PostscriptStipple) /* 236 */ -#endif -#ifndef Tk_PostscriptY -#define Tk_PostscriptY \ - (tkStubsPtr->tk_PostscriptY) /* 237 */ -#endif -#ifndef Tk_PostscriptPhoto -#define Tk_PostscriptPhoto \ - (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ -#endif -#ifndef Tk_CreateClientMessageHandler -#define Tk_CreateClientMessageHandler \ - (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ -#endif -#ifndef Tk_DeleteClientMessageHandler -#define Tk_DeleteClientMessageHandler \ - (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ -#endif -#ifndef Tk_CreateAnonymousWindow -#define Tk_CreateAnonymousWindow \ - (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ -#endif -#ifndef Tk_SetClassProcs -#define Tk_SetClassProcs \ - (tkStubsPtr->tk_SetClassProcs) /* 242 */ -#endif -#ifndef Tk_SetInternalBorderEx -#define Tk_SetInternalBorderEx \ - (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ -#endif -#ifndef Tk_SetMinimumRequestSize -#define Tk_SetMinimumRequestSize \ - (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ -#endif -#ifndef Tk_SetCaretPos -#define Tk_SetCaretPos \ - (tkStubsPtr->tk_SetCaretPos) /* 245 */ -#endif -#ifndef Tk_PhotoPutBlock_Panic -#define Tk_PhotoPutBlock_Panic \ - (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_Panic -#define Tk_PhotoPutZoomedBlock_Panic \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ -#endif -#ifndef Tk_CollapseMotionEvents -#define Tk_CollapseMotionEvents \ - (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ -#endif -#ifndef Tk_RegisterStyleEngine -#define Tk_RegisterStyleEngine \ - (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ -#endif -#ifndef Tk_GetStyleEngine -#define Tk_GetStyleEngine \ - (tkStubsPtr->tk_GetStyleEngine) /* 250 */ -#endif -#ifndef Tk_RegisterStyledElement -#define Tk_RegisterStyledElement \ - (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ -#endif -#ifndef Tk_GetElementId -#define Tk_GetElementId \ - (tkStubsPtr->tk_GetElementId) /* 252 */ -#endif -#ifndef Tk_CreateStyle -#define Tk_CreateStyle \ - (tkStubsPtr->tk_CreateStyle) /* 253 */ -#endif -#ifndef Tk_GetStyle -#define Tk_GetStyle \ - (tkStubsPtr->tk_GetStyle) /* 254 */ -#endif -#ifndef Tk_FreeStyle -#define Tk_FreeStyle \ - (tkStubsPtr->tk_FreeStyle) /* 255 */ -#endif -#ifndef Tk_NameOfStyle -#define Tk_NameOfStyle \ - (tkStubsPtr->tk_NameOfStyle) /* 256 */ -#endif -#ifndef Tk_AllocStyleFromObj -#define Tk_AllocStyleFromObj \ - (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ -#endif -#ifndef Tk_GetStyleFromObj -#define Tk_GetStyleFromObj \ - (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ -#endif -#ifndef Tk_FreeStyleFromObj -#define Tk_FreeStyleFromObj \ - (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ -#endif -#ifndef Tk_GetStyledElement -#define Tk_GetStyledElement \ - (tkStubsPtr->tk_GetStyledElement) /* 260 */ -#endif -#ifndef Tk_GetElementSize -#define Tk_GetElementSize \ - (tkStubsPtr->tk_GetElementSize) /* 261 */ -#endif -#ifndef Tk_GetElementBox -#define Tk_GetElementBox \ - (tkStubsPtr->tk_GetElementBox) /* 262 */ -#endif -#ifndef Tk_GetElementBorderWidth -#define Tk_GetElementBorderWidth \ - (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ -#endif -#ifndef Tk_DrawElement -#define Tk_DrawElement \ - (tkStubsPtr->tk_DrawElement) /* 264 */ -#endif -#ifndef Tk_PhotoExpand -#define Tk_PhotoExpand \ - (tkStubsPtr->tk_PhotoExpand) /* 265 */ -#endif -#ifndef Tk_PhotoPutBlock -#define Tk_PhotoPutBlock \ - (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock -#define Tk_PhotoPutZoomedBlock \ - (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ -#endif -#ifndef Tk_PhotoSetSize -#define Tk_PhotoSetSize \ - (tkStubsPtr->tk_PhotoSetSize) /* 268 */ -#endif -#ifndef Tk_GetUserInactiveTime -#define Tk_GetUserInactiveTime \ - (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ -#endif -#ifndef Tk_ResetUserInactiveTime -#define Tk_ResetUserInactiveTime \ - (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ -#endif -#ifndef Tk_Interp -#define Tk_Interp \ - (tkStubsPtr->tk_Interp) /* 271 */ -#endif -#ifndef Tk_CreateOldImageType -#define Tk_CreateOldImageType \ - (tkStubsPtr->tk_CreateOldImageType) /* 272 */ -#endif -#ifndef Tk_CreateOldPhotoImageFormat -#define Tk_CreateOldPhotoImageFormat \ - (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ -#endif -/* Slot 274 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkStubsPtr->tkUnusedStubEntry) /* 275 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TkUnusedStubEntry - -#endif /* _TKDECLS */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkFont.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkFont.h deleted file mode 100644 index ef6336c6f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkFont.h +++ /dev/null @@ -1,226 +0,0 @@ -/* - * tkFont.h -- - * - * Declarations for interfaces between the generic and platform-specific - * parts of the font package. This information is not visible outside of - * the font package. - * - * Copyright (c) 1996-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKFONT -#define _TKFONT - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * The following structure keeps track of the attributes of a font. It can be - * used to keep track of either the desired attributes or the actual - * attributes gotten when the font was instantiated. - */ - -struct TkFontAttributes { - Tk_Uid family; /* Font family, or NULL to represent plaform- - * specific default system font. */ - int size; /* Pointsize of font, 0 for default size, or - * negative number meaning pixel size. */ - int weight; /* Weight flag; see below for def'n. */ - int slant; /* Slant flag; see below for def'n. */ - int underline; /* Non-zero for underline font. */ - int overstrike; /* Non-zero for overstrike font. */ -}; - -/* - * Possible values for the "weight" field in a TkFontAttributes structure. - * Weight is a subjective term and depends on what the company that created - * the font considers bold. - */ - -#define TK_FW_NORMAL 0 -#define TK_FW_BOLD 1 - -#define TK_FW_UNKNOWN -1 /* Unknown weight. This value is used for - * error checking and is never actually stored - * in the weight field. */ - -/* - * Possible values for the "slant" field in a TkFontAttributes structure. - */ - -#define TK_FS_ROMAN 0 -#define TK_FS_ITALIC 1 -#define TK_FS_OBLIQUE 2 /* This value is only used when parsing X font - * names to determine the closest match. It is - * only stored in the XLFDAttributes - * structure, never in the slant field of the - * TkFontAttributes. */ - -#define TK_FS_UNKNOWN -1 /* Unknown slant. This value is used for error - * checking and is never actually stored in - * the slant field. */ - -/* - * The following structure keeps track of the metrics for an instantiated - * font. The metrics are the physical properties of the font itself. - */ - -typedef struct TkFontMetrics { - int ascent; /* From baseline to top of font. */ - int descent; /* From baseline to bottom of font. */ - int maxWidth; /* Width of widest character in font. */ - int fixed; /* Non-zero if this is a fixed-width font, - * 0 otherwise. */ -} TkFontMetrics; - -/* - * The following structure is used to keep track of the generic information - * about a font. Each platform-specific font is represented by a structure - * with the following structure at its beginning, plus any platform-specific - * stuff after that. - */ - -typedef struct TkFont { - /* - * Fields used and maintained exclusively by generic code. - */ - - int resourceRefCount; /* Number of active uses of this font (each - * active use corresponds to a call to - * Tk_AllocFontFromTable or Tk_GetFont). If - * this count is 0, then this TkFont structure - * is no longer valid and it isn't present in - * a hash table: it is being kept around only - * because there are objects referring to it. - * The structure is freed when - * resourceRefCount and objRefCount are both - * 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - Tcl_HashEntry *cacheHashPtr;/* Entry in font cache for this structure, - * used when deleting it. */ - Tcl_HashEntry *namedHashPtr;/* Pointer to hash table entry that - * corresponds to the named font that the - * tkfont was based on, or NULL if the tkfont - * was not based on a named font. */ - Screen *screen; /* The screen where this font is valid. */ - int tabWidth; /* Width of tabs in this font (pixels). */ - int underlinePos; /* Offset from baseline to origin of underline - * bar (used for drawing underlines on a - * non-underlined font). */ - int underlineHeight; /* Height of underline bar (used for drawing - * underlines on a non-underlined font). */ - - /* - * Fields used in the generic code that are filled in by - * platform-specific code. - */ - - Font fid; /* For backwards compatibility with XGCValues - * structures. Remove when TkGCValues is - * implemented. */ - TkFontAttributes fa; /* Actual font attributes obtained when the - * the font was created, as opposed to the - * desired attributes passed in to - * TkpGetFontFromAttributes(). The desired - * metrics can be determined from the string - * that was used to create this font. */ - TkFontMetrics fm; /* Font metrics determined when font was - * created. */ - struct TkFont *nextPtr; /* Points to the next TkFont structure with - * the same name. All fonts with the same name - * (but different displays) are chained - * together off a single entry in a hash - * table. */ -} TkFont; - -/* - * The following structure is used to return attributes when parsing an XLFD. - * The extra information is of interest to the Unix-specific code when - * attempting to find the closest matching font. - */ - -typedef struct TkXLFDAttributes { - Tk_Uid foundry; /* The foundry of the font. */ - int slant; /* The tristate value for the slant, which is - * significant under X. */ - int setwidth; /* The proportionate width, see below for - * definition. */ - Tk_Uid charset; /* The actual charset string. */ -} TkXLFDAttributes; - -/* - * Possible values for the "setwidth" field in a TkXLFDAttributes structure. - * The setwidth is whether characters are considered wider or narrower than - * normal. - */ - -#define TK_SW_NORMAL 0 -#define TK_SW_CONDENSE 1 -#define TK_SW_EXPAND 2 -#define TK_SW_UNKNOWN 3 /* Unknown setwidth. This value may be stored - * in the setwidth field. */ - -/* - * The following defines specify the meaning of the fields in a fully - * qualified XLFD. - */ - -#define XLFD_FOUNDRY 0 -#define XLFD_FAMILY 1 -#define XLFD_WEIGHT 2 -#define XLFD_SLANT 3 -#define XLFD_SETWIDTH 4 -#define XLFD_ADD_STYLE 5 -#define XLFD_PIXEL_SIZE 6 -#define XLFD_POINT_SIZE 7 -#define XLFD_RESOLUTION_X 8 -#define XLFD_RESOLUTION_Y 9 -#define XLFD_SPACING 10 -#define XLFD_AVERAGE_WIDTH 11 -#define XLFD_CHARSET 12 -#define XLFD_NUMFIELDS 13 /* Number of fields in XLFD. */ - -/* - * Low-level API exported by generic code to platform-specific code. - */ - -#define TkInitFontAttributes(fa) memset((fa), 0, sizeof(TkFontAttributes)); -#define TkInitXLFDAttributes(xa) memset((xa), 0, sizeof(TkXLFDAttributes)); - -MODULE_SCOPE int TkFontParseXLFD(CONST char *string, - TkFontAttributes *faPtr, TkXLFDAttributes *xaPtr); -MODULE_SCOPE char ** TkFontGetAliasList(CONST char *faceName); -MODULE_SCOPE char *** TkFontGetFallbacks(void); -MODULE_SCOPE int TkFontGetPixels(Tk_Window tkwin, int size); -MODULE_SCOPE int TkFontGetPoints(Tk_Window tkwin, int size); -MODULE_SCOPE char ** TkFontGetGlobalClass(void); -MODULE_SCOPE char ** TkFontGetSymbolClass(void); -MODULE_SCOPE int TkCreateNamedFont(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *name, TkFontAttributes *faPtr); -MODULE_SCOPE int TkDeleteNamedFont(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *name); -MODULE_SCOPE int TkFontGetFirstTextLayout(Tk_TextLayout layout, - Tk_Font *font, char *dst); - -/* - * Low-level API exported by platform-specific code to generic code. - */ - -MODULE_SCOPE void TkpDeleteFont(TkFont *tkFontPtr); -MODULE_SCOPE void TkpFontPkgInit(TkMainInfo *mainPtr); -MODULE_SCOPE TkFont * TkpGetFontFromAttributes(TkFont *tkFontPtr, - Tk_Window tkwin, CONST TkFontAttributes *faPtr); -MODULE_SCOPE void TkpGetFontFamilies(Tcl_Interp *interp, - Tk_Window tkwin); -MODULE_SCOPE TkFont * TkpGetNativeFont(Tk_Window tkwin, CONST char *name); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKFONT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkInt.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkInt.h deleted file mode 100644 index 15a01c531..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkInt.h +++ /dev/null @@ -1,1207 +0,0 @@ -/* - * tkInt.h -- - * - * Declarations for things used internally by the Tk functions but not - * exported outside the module. - * - * Copyright (c) 1990-1994 The Regents of the University of California. - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * Copyright (c) 1998 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINT -#define _TKINT - -#ifndef _TK -#include "tk.h" -#endif -#ifndef _TCL -#include "tcl.h" -#endif -#ifndef _TKPORT -#include "tkPort.h" -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correcly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void*)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void*)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void*)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void*)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -/* - * Opaque type declarations: - */ - -typedef struct TkColormap TkColormap; -typedef struct TkFontAttributes TkFontAttributes; -typedef struct TkGrabEvent TkGrabEvent; -typedef struct TkpCursor_ *TkpCursor; -typedef struct TkRegion_ *TkRegion; -typedef struct TkStressedCmap TkStressedCmap; -typedef struct TkBindInfo_ *TkBindInfo; - -/* - * Function types. - */ - -typedef int (TkBindEvalProc)(ClientData clientData, Tcl_Interp *interp, - XEvent *eventPtr, Tk_Window tkwin, KeySym keySym); -typedef void (TkBindFreeProc)(ClientData clientData); - -/* - * One of the following structures is maintained for each cursor in use in the - * system. This structure is used by tkCursor.c and the various system - * specific cursor files. - */ - -typedef struct TkCursor { - Tk_Cursor cursor; /* System specific identifier for cursor. */ - Display *display; /* Display containing cursor. Needed for - * disposal and retrieval of cursors. */ - int resourceRefCount; /* Number of active uses of this cursor (each - * active use corresponds to a call to - * Tk_AllocPreserveFromObj or Tk_Preserve). If - * this count is 0, then this structure is no - * longer valid and it isn't present in a hash - * table: it is being kept around only because - * there are objects referring to it. The - * structure is freed when resourceRefCount - * and objRefCount are both 0. */ - int objRefCount; /* Number of Tcl objects that reference this - * structure.. */ - Tcl_HashTable *otherTable; /* Second table (other than idTable) used to - * index this entry. */ - Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure - * (needed when deleting). */ - Tcl_HashEntry *idHashPtr; /* Entry in idTable for this structure (needed - * when deleting). */ - struct TkCursor *nextPtr; /* Points to the next TkCursor structure with - * the same name. Cursors with the same name - * but different displays are chained together - * off a single hash table entry. */ -} TkCursor; - -/* - * The following structure is kept one-per-TkDisplay to maintain information - * about the caret (cursor location) on this display. This is used to dictate - * global focus location (Windows Accessibility guidelines) and to position - * the IME or XIM over-the-spot window. - */ - -typedef struct TkCaret { - struct TkWindow *winPtr; /* The window on which we requested caret - * placement. */ - int x; /* Relative x coord of the caret. */ - int y; /* Relative y coord of the caret. */ - int height; /* Specified height of the window. */ -} TkCaret; - -/* - * One of the following structures is maintained for each display containing a - * window managed by Tk. In part, the structure is used to store thread- - * specific data, since each thread will have its own TkDisplay structure. - */ - -typedef struct TkDisplay { - Display *display; /* Xlib's info about display. */ - struct TkDisplay *nextPtr; /* Next in list of all displays. */ - char *name; /* Name of display (with any screen identifier - * removed). Malloc-ed. */ - Time lastEventTime; /* Time of last event received for this - * display. */ - - /* - * Information used primarily by tk3d.c: - */ - - int borderInit; /* 0 means borderTable needs initializing. */ - Tcl_HashTable borderTable; /* Maps from color name to TkBorder - * structure. */ - - /* - * Information used by tkAtom.c only: - */ - - int atomInit; /* 0 means stuff below hasn't been initialized - * yet. */ - Tcl_HashTable nameTable; /* Maps from names to Atom's. */ - Tcl_HashTable atomTable; /* Maps from Atom's back to names. */ - - /* - * Information used primarily by tkBind.c: - */ - - int bindInfoStale; /* Non-zero means the variables in this part - * of the structure are potentially incorrect - * and should be recomputed. */ - unsigned int modeModMask; /* Has one bit set to indicate the modifier - * corresponding to "mode shift". If no such - * modifier, than this is zero. */ - unsigned int metaModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - unsigned int altModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage; - /* Indicates how to interpret lock - * modifier. */ - int numModKeyCodes; /* Number of entries in modKeyCodes array - * below. */ - KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for all - * of the keys that have modifiers associated - * with them. Malloc'ed, but may be NULL. */ - - /* - * Information used by tkBitmap.c only: - */ - - int bitmapInit; /* 0 means tables above need initializing. */ - int bitmapAutoNumber; /* Used to number bitmaps. */ - Tcl_HashTable bitmapNameTable; - /* Maps from name of bitmap to the first - * TkBitmap record for that name. */ - Tcl_HashTable bitmapIdTable;/* Maps from bitmap id to the TkBitmap - * structure for the bitmap. */ - Tcl_HashTable bitmapDataTable; - /* Used by Tk_GetBitmapFromData to map from a - * collection of in-core data about a bitmap - * to a reference giving an automatically- - * generated name for the bitmap. */ - - /* - * Information used by tkCanvas.c only: - */ - - int numIdSearches; - int numSlowSearches; - - /* - * Used by tkColor.c only: - */ - - int colorInit; /* 0 means color module needs initializing. */ - TkStressedCmap *stressPtr; /* First in list of colormaps that have filled - * up, so we have to pick an approximate - * color. */ - Tcl_HashTable colorNameTable; - /* Maps from color name to TkColor structure - * for that color. */ - Tcl_HashTable colorValueTable; - /* Maps from integer RGB values to TkColor - * structures. */ - - /* - * Used by tkCursor.c only: - */ - - int cursorInit; /* 0 means cursor module need initializing. */ - Tcl_HashTable cursorNameTable; - /* Maps from a string name to a cursor to the - * TkCursor record for the cursor. */ - Tcl_HashTable cursorDataTable; - /* Maps from a collection of in-core data - * about a cursor to a TkCursor structure. */ - Tcl_HashTable cursorIdTable; - /* Maps from a cursor id to the TkCursor - * structure for the cursor. */ - char cursorString[20]; /* Used to store a cursor id string. */ - Font cursorFont; /* Font to use for standard cursors. None - * means font not loaded yet. */ - - /* - * Information used by tkError.c only: - */ - - struct TkErrorHandler *errorPtr; - /* First in list of error handlers for this - * display. NULL means no handlers exist at - * present. */ - int deleteCount; /* Counts # of handlers deleted since last - * time inactive handlers were garbage- - * collected. When this number gets big, - * handlers get cleaned up. */ - - /* - * Used by tkEvent.c only: - */ - - struct TkWindowEvent *delayedMotionPtr; - /* Points to a malloc-ed motion event whose - * processing has been delayed in the hopes - * that another motion event will come along - * right away and we can merge the two of them - * together. NULL means that there is no - * delayed motion event. */ - - /* - * Information used by tkFocus.c only: - */ - - int focusDebug; /* 1 means collect focus debugging - * statistics. */ - struct TkWindow *implicitWinPtr; - /* If the focus arrived at a toplevel window - * implicitly via an Enter event (rather than - * via a FocusIn event), this points to the - * toplevel window. Otherwise it is NULL. */ - struct TkWindow *focusPtr; /* Points to the window on this display that - * should be receiving keyboard events. When - * multiple applications on the display have - * the focus, this will refer to the innermost - * window in the innermost application. This - * information isn't used on Windows, but it's - * needed on the Mac, and also on X11 when XIM - * processing is being done. */ - - /* - * Information used by tkGC.c only: - */ - - Tcl_HashTable gcValueTable; /* Maps from a GC's values to a TkGC structure - * describing a GC with those values. */ - Tcl_HashTable gcIdTable; /* Maps from a GC to a TkGC. */ - int gcInit; /* 0 means the tables below need - * initializing. */ - - /* - * Information used by tkGeometry.c only: - */ - - Tcl_HashTable maintainHashTable; - /* Hash table that maps from a master's - * Tk_Window token to a list of slaves managed - * by that master. */ - int geomInit; - - /* - * Information used by tkGet.c only: - */ - - Tcl_HashTable uidTable; /* Stores all Tk_Uid used in a thread. */ - int uidInit; /* 0 means uidTable needs initializing. */ - - /* - * Information used by tkGrab.c only: - */ - - struct TkWindow *grabWinPtr;/* Window in which the pointer is currently - * grabbed, or NULL if none. */ - struct TkWindow *eventualGrabWinPtr; - /* Value that grabWinPtr will have once the - * grab event queue (below) has been - * completely emptied. */ - struct TkWindow *buttonWinPtr; - /* Window in which first mouse button was - * pressed while grab was in effect, or NULL - * if no such press in effect. */ - struct TkWindow *serverWinPtr; - /* If no application contains the pointer then - * this is NULL. Otherwise it contains the - * last window for which we've gotten an Enter - * or Leave event from the server (i.e. the - * last window known to have contained the - * pointer). Doesn't reflect events that were - * synthesized in tkGrab.c. */ - TkGrabEvent *firstGrabEventPtr; - /* First in list of enter/leave events - * synthesized by grab code. These events must - * be processed in order before any other - * events are processed. NULL means no such - * events. */ - TkGrabEvent *lastGrabEventPtr; - /* Last in list of synthesized events, or NULL - * if list is empty. */ - int grabFlags; /* Miscellaneous flag values. See definitions - * in tkGrab.c. */ - - /* - * Information used by tkGrid.c only: - */ - - int gridInit; /* 0 means table below needs initializing. */ - Tcl_HashTable gridHashTable;/* Maps from Tk_Window tokens to corresponding - * Grid structures. */ - - /* - * Information used by tkImage.c only: - */ - - int imageId; /* Value used to number image ids. */ - - /* - * Information used by tkMacWinMenu.c only: - */ - - int postCommandGeneration; - - /* - * Information used by tkOption.c only. - */ - - /* - * Information used by tkPack.c only. - */ - - int packInit; /* 0 means table below needs initializing. */ - Tcl_HashTable packerHashTable; - /* Maps from Tk_Window tokens to corresponding - * Packer structures. */ - - /* - * Information used by tkPlace.c only. - */ - - int placeInit; /* 0 means tables below need initializing. */ - Tcl_HashTable masterTable; /* Maps from Tk_Window toke to the Master - * structure for the window, if it exists. */ - Tcl_HashTable slaveTable; /* Maps from Tk_Window toke to the Slave - * structure for the window, if it exists. */ - - /* - * Information used by tkSelect.c and tkClipboard.c only: - */ - - struct TkSelectionInfo *selectionInfoPtr; - /* First in list of selection information - * records. Each entry contains information - * about the current owner of a particular - * selection on this display. */ - Atom multipleAtom; /* Atom for MULTIPLE. None means selection - * stuff isn't initialized. */ - Atom incrAtom; /* Atom for INCR. */ - Atom targetsAtom; /* Atom for TARGETS. */ - Atom timestampAtom; /* Atom for TIMESTAMP. */ - Atom textAtom; /* Atom for TEXT. */ - Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */ - Atom applicationAtom; /* Atom for TK_APPLICATION. */ - Atom windowAtom; /* Atom for TK_WINDOW. */ - Atom clipboardAtom; /* Atom for CLIPBOARD. */ - Atom utf8Atom; /* Atom for UTF8_STRING. */ - - Tk_Window clipWindow; /* Window used for clipboard ownership and to - * retrieve selections between processes. NULL - * means clipboard info hasn't been - * initialized. */ - int clipboardActive; /* 1 means we currently own the clipboard - * selection, 0 means we don't. */ - struct TkMainInfo *clipboardAppPtr; - /* Last application that owned clipboard. */ - struct TkClipboardTarget *clipTargetPtr; - /* First in list of clipboard type information - * records. Each entry contains information - * about the buffers for a given selection - * target. */ - - /* - * Information used by tkSend.c only: - */ - - Tk_Window commTkwin; /* Window used for communication between - * interpreters during "send" commands. NULL - * means send info hasn't been initialized - * yet. */ - Atom commProperty; /* X's name for comm property. */ - Atom registryProperty; /* X's name for property containing registry - * of interpreter names. */ - Atom appNameProperty; /* X's name for property used to hold the - * application name on each comm window. */ - - /* - * Information used by tkXId.c only: - */ - - struct TkIdStack *idStackPtr; - /* First in list of chunks of free resource - * identifiers, or NULL if there are no free - * resources. */ - XID (*defaultAllocProc) (Display *display); - /* Default resource allocator for display. */ - struct TkIdStack *windowStackPtr; - /* First in list of chunks of window ids that - * can't be reused right now. */ - Tcl_TimerToken idCleanupScheduled; - /* If set, it means a call to WindowIdCleanup - * has already been scheduled, 0 means it - * hasn't. */ - - /* - * Information used by tkUnixWm.c and tkWinWm.c only: - */ - - struct TkWmInfo *firstWmPtr;/* Points to first top-level window. */ - struct TkWmInfo *foregroundWmPtr; - /* Points to the foreground window. */ - - /* - * Information maintained by tkWindow.c for use later on by tkXId.c: - */ - - int destroyCount; /* Number of Tk_DestroyWindow operations in - * progress. */ - unsigned long lastDestroyRequest; - /* Id of most recent XDestroyWindow request; - * can re-use ids in windowStackPtr when - * server has seen this request and event - * queue is empty. */ - - /* - * Information used by tkVisual.c only: - */ - - TkColormap *cmapPtr; /* First in list of all non-default colormaps - * allocated for this display. */ - - /* - * Miscellaneous information: - */ - -#ifdef TK_USE_INPUT_METHODS - XIM inputMethod; /* Input method for this display. */ - XIMStyle inputStyle; /* Input style selected for this display. */ - XFontSet inputXfs; /* XFontSet cached for over-the-spot XIM. */ -#endif /* TK_USE_INPUT_METHODS */ - Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */ - - int refCount; /* Reference count of how many Tk applications - * are using this display. Used to clean up - * the display when we no longer have any Tk - * applications using it. */ - - /* - * The following field were all added for Tk8.3 - */ - - int mouseButtonState; /* Current mouse button state for this - * display. */ - Window mouseButtonWindow; /* Window the button state was set in, added - * in Tk 8.4. */ - Window warpWindow; - int warpX; - int warpY; - - /* - * The following field(s) were all added for Tk8.4 - */ - - unsigned int flags; /* Various flag values: these are all defined - * in below. */ - TkCaret caret; /* Information about the caret for this - * display. This is not a pointer. */ - - int iconDataSize; /* Size of default iconphoto image data. */ - unsigned char *iconDataPtr; /* Default iconphoto image data, if set. */ -} TkDisplay; - -/* - * Flag values for TkDisplay flags. - * TK_DISPLAY_COLLAPSE_MOTION_EVENTS: (default on) - * Indicates that we should collapse motion events on this display - * TK_DISPLAY_USE_IM: (default on, set via tk.tcl) - * Whether to use input methods for this display - * TK_DISPLAY_WM_TRACING: (default off) - * Whether we should do wm tracing on this display. - * TK_DISPLAY_IN_WARP: (default off) - * Indicates that we are in a pointer warp - */ - -#define TK_DISPLAY_COLLAPSE_MOTION_EVENTS (1 << 0) -#define TK_DISPLAY_USE_IM (1 << 1) -#define TK_DISPLAY_WM_TRACING (1 << 3) -#define TK_DISPLAY_IN_WARP (1 << 4) -#define TK_DISPLAY_USE_XKB (1 << 5) - -/* - * One of the following structures exists for each error handler created by a - * call to Tk_CreateErrorHandler. The structure is managed by tkError.c. - */ - -typedef struct TkErrorHandler { - TkDisplay *dispPtr; /* Display to which handler applies. */ - unsigned long firstRequest; /* Only errors with serial numbers >= to this - * are considered. */ - unsigned long lastRequest; /* Only errors with serial numbers <= to this - * are considered. This field is filled in - * when XUnhandle is called. -1 means - * XUnhandle hasn't been called yet. */ - int error; /* Consider only errors with this error_code - * (-1 means consider all errors). */ - int request; /* Consider only errors with this major - * request code (-1 means consider all major - * codes). */ - int minorCode; /* Consider only errors with this minor - * request code (-1 means consider all minor - * codes). */ - Tk_ErrorProc *errorProc; /* Function to invoke when a matching error - * occurs. NULL means just ignore errors. */ - ClientData clientData; /* Arbitrary value to pass to errorProc. */ - struct TkErrorHandler *nextPtr; - /* Pointer to next older handler for this - * display, or NULL for end of list. */ -} TkErrorHandler; - -/* - * One of the following structures exists for each event handler created by - * calling Tk_CreateEventHandler. This information is used by tkEvent.c only. - */ - -typedef struct TkEventHandler { - unsigned long mask; /* Events for which to invoke proc. */ - Tk_EventProc *proc; /* Function to invoke when an event in mask - * occurs. */ - ClientData clientData; /* Argument to pass to proc. */ - struct TkEventHandler *nextPtr; - /* Next in list of handlers associated with - * window (NULL means end of list). */ -} TkEventHandler; - -/* - * Tk keeps one of the following data structures for each main window (created - * by a call to TkCreateMainWindow). It stores information that is shared by - * all of the windows associated with a particular main window. - */ - -typedef struct TkMainInfo { - int refCount; /* Number of windows whose "mainPtr" fields - * point here. When this becomes zero, can - * free up the structure (the reference count - * is zero because windows can get deleted in - * almost any order; the main window isn't - * necessarily the last one deleted). */ - struct TkWindow *winPtr; /* Pointer to main window. */ - Tcl_Interp *interp; /* Interpreter associated with application. */ - Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow - * structs for all windows related to this - * main window. Managed by tkWindow.c. */ - long deletionEpoch; /* Incremented by window deletions. */ - Tk_BindingTable bindingTable; - /* Used in conjunction with "bind" command to - * bind events to Tcl commands. */ - TkBindInfo bindInfo; /* Information used by tkBind.c on a per - * application basis. */ - struct TkFontInfo *fontInfoPtr; - /* Information used by tkFont.c on a per - * application basis. */ - - /* - * Information used only by tkFocus.c and tk*Embed.c: - */ - - struct TkToplevelFocusInfo *tlFocusPtr; - /* First in list of records containing focus - * information for each top-level in the - * application. Used only by tkFocus.c. */ - struct TkDisplayFocusInfo *displayFocusPtr; - /* First in list of records containing focus - * information for each display that this - * application has ever used. Used only by - * tkFocus.c. */ - - struct ElArray *optionRootPtr; - /* Top level of option hierarchy for this main - * window. NULL means uninitialized. Managed - * by tkOption.c. */ - Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster - * structures. Managed by tkImage.c. */ - int strictMotif; /* This is linked to the tk_strictMotif global - * variable. */ - int alwaysShowSelection; /* This is linked to the - * ::tk::AlwaysShowSelection variable. */ - struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by - * this process. */ -} TkMainInfo; - -/* - * Tk keeps the following data structure for each of it's builtin bitmaps. - * This structure is only used by tkBitmap.c and other platform specific - * bitmap files. - */ - -typedef struct { - const char *source; /* Bits for bitmap. */ - int width, height; /* Dimensions of bitmap. */ - int native; /* 0 means generic (X style) bitmap, 1 means - * native style bitmap. */ -} TkPredefBitmap; - -/* - * Tk keeps one of the following structures for each window. Some of the - * information (like size and location) is a shadow of information managed by - * the X server, and some is special information used here, such as event and - * geometry management information. This information is (mostly) managed by - * tkWindow.c. WARNING: the declaration below must be kept consistent with the - * Tk_FakeWin structure in tk.h. If you change one, be sure to change the - * other! - */ - -typedef struct TkWindow { - /* - * Structural information: - */ - - Display *display; /* Display containing window. */ - TkDisplay *dispPtr; /* Tk's information about display for - * window. */ - int screenNum; /* Index of screen for window, among all those - * for dispPtr. */ - Visual *visual; /* Visual to use for window. If not default, - * MUST be set before X window is created. */ - int depth; /* Number of bits/pixel. */ - Window window; /* X's id for window. NULL means window hasn't - * actually been created yet, or it's been - * deleted. */ - struct TkWindow *childList; /* First in list of child windows, or NULL if - * no children. List is in stacking order, - * lowest window first.*/ - struct TkWindow *lastChildPtr; - /* Last in list of child windows (highest in - * stacking order), or NULL if no children. */ - struct TkWindow *parentPtr; /* Pointer to parent window (logical parent, - * not necessarily X parent). NULL means - * either this is the main window, or the - * window's parent has already been deleted. */ - struct TkWindow *nextPtr; /* Next higher sibling (in stacking order) in - * list of children with same parent. NULL - * means end of list. */ - TkMainInfo *mainPtr; /* Information shared by all windows - * associated with a particular main window. - * NULL means this window is a rogue that is - * not associated with any application (at - * present, this only happens for the dummy - * windows used for "send" communication). */ - - /* - * Name and type information for the window: - */ - - char *pathName; /* Path name of window (concatenation of all - * names between this window and its top-level - * ancestor). This is a pointer into an entry - * in mainPtr->nameTable. NULL means that the - * window hasn't been completely created - * yet. */ - Tk_Uid nameUid; /* Name of the window within its parent - * (unique within the parent). */ - Tk_Uid classUid; /* Class of the window. NULL means window - * hasn't been given a class yet. */ - - /* - * Geometry and other attributes of window. This information may not be - * updated on the server immediately; stuff that hasn't been reflected in - * the server yet is called "dirty". At present, information can be dirty - * only if the window hasn't yet been created. - */ - - XWindowChanges changes; /* Geometry and other info about window. */ - unsigned int dirtyChanges; /* Bits indicate fields of "changes" that are - * dirty. */ - XSetWindowAttributes atts; /* Current attributes of window. */ - unsigned long dirtyAtts; /* Bits indicate fields of "atts" that are - * dirty. */ - - unsigned int flags; /* Various flag values: these are all defined - * in tk.h (confusing, but they're needed - * there for some query macros). */ - - /* - * Information kept by the event manager (tkEvent.c): - */ - - TkEventHandler *handlerList;/* First in list of event handlers declared - * for this window, or NULL if none. */ -#ifdef TK_USE_INPUT_METHODS - XIC inputContext; /* XIM input context. */ -#endif /* TK_USE_INPUT_METHODS */ - - /* - * Information used for event bindings (see "bind" and "bindtags" commands - * in tkCmds.c): - */ - - ClientData *tagPtr; /* Points to array of tags used for bindings - * on this window. Each tag is a Tk_Uid. - * Malloc'ed. NULL means no tags. */ - int numTags; /* Number of tags at *tagPtr. */ - - /* - * Information used by tkOption.c to manage options for the window. - */ - - int optionLevel; /* -1 means no option information is currently - * cached for this window. Otherwise this - * gives the level in the option stack at - * which info is cached. */ - /* - * Information used by tkSelect.c to manage the selection. - */ - - struct TkSelHandler *selHandlerList; - /* First in list of handlers for returning the - * selection in various forms. */ - - /* - * Information used by tkGeometry.c for geometry management. - */ - - const Tk_GeomMgr *geomMgrPtr; /* Information about geometry manager for this - * window. */ - ClientData geomData; /* Argument for geometry manager functions. */ - int reqWidth, reqHeight; /* Arguments from last call to - * Tk_GeometryRequest, or 0's if - * Tk_GeometryRequest hasn't been called. */ - int internalBorderLeft; /* Width of internal border of window (0 means - * no internal border). Geometry managers - * should not normally place children on top - * of the border. Fields for the other three - * sides are found below. */ - - /* - * Information maintained by tkWm.c for window manager communication. - */ - - struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also for special - * Unix menubar and wrapper windows), points - * to structure with wm-related info (see - * tkWm.c). For other windows, this is NULL. */ - - /* - * Information used by widget classes. - */ - - Tk_ClassProcs *classProcsPtr; - ClientData instanceData; - - /* - * Platform specific information private to each port. - */ - - struct TkWindowPrivate *privatePtr; - - /* - * More information used by tkGeometry.c for geometry management. - */ - - /* The remaining fields of internal border. */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - - int minReqWidth; /* Minimum requested width. */ - int minReqHeight; /* Minimum requested height. */ -} TkWindow; - -/* - * Real definition of some events. Note that these events come from outside - * but have internally generated pieces added to them. - */ - -typedef struct { - XKeyEvent keyEvent; /* The real event from X11. */ - char *charValuePtr; /* A pointer to a string that holds the key's - * %A substitution text (before backslash - * adding), or NULL if that has not been - * computed yet. If non-NULL, this string was - * allocated with ckalloc(). */ - int charValueLen; /* Length of string in charValuePtr when that - * is non-NULL. */ - KeySym keysym; /* Key symbol computed after input methods - * have been invoked */ -} TkKeyEvent; - -/* - * The following structure is used as a two way map between integers and - * strings, usually to map between an internal C representation and the - * strings used in Tcl. - */ - -typedef struct TkStateMap { - int numKey; /* Integer representation of a value. */ - const char *strKey; /* String representation of a value. */ -} TkStateMap; - -/* - * This structure is used by the Mac and Window porting layers as the internal - * representation of a clip_mask in a GC. - */ - -typedef struct TkpClipMask { - int type; /* TKP_CLIP_PIXMAP or TKP_CLIP_REGION. */ - union { - Pixmap pixmap; - TkRegion region; - } value; -} TkpClipMask; - -#define TKP_CLIP_PIXMAP 0 -#define TKP_CLIP_REGION 1 - -/* - * Pointer to first entry in list of all displays currently known. - */ - -extern TkDisplay *tkDisplayList; - -/* - * Return values from TkGrabState: - */ - -#define TK_GRAB_NONE 0 -#define TK_GRAB_IN_TREE 1 -#define TK_GRAB_ANCESTOR 2 -#define TK_GRAB_EXCLUDED 3 - -/* - * Additional flag for TkpMeasureCharsInContext. Coordinate with other flags - * for this routine, but don't make public until TkpMeasureCharsInContext is - * made public, too. - */ - -#define TK_ISOLATE_END 32 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace(). - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * The following symbol is used in the mode field of FocusIn events generated - * by an embedded application to request the input focus from its container. - */ - -#define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20) - -/* - * The following special modifier mask bits are defined, to indicate logical - * modifiers such as Meta and Alt that may float among the actual modifier - * bits. - */ - -#define META_MASK (AnyModifier<<1) -#define ALT_MASK (AnyModifier<<2) -#define EXTENDED_MASK (AnyModifier<<3) - -/* - * Object types not declared in tkObj.c need to be mentioned here so they can - * be properly registered with Tcl: - */ - -MODULE_SCOPE Tcl_ObjType tkBorderObjType; -MODULE_SCOPE Tcl_ObjType tkBitmapObjType; -MODULE_SCOPE Tcl_ObjType tkColorObjType; -MODULE_SCOPE Tcl_ObjType tkCursorObjType; -MODULE_SCOPE Tcl_ObjType tkFontObjType; -MODULE_SCOPE Tcl_ObjType tkOptionObjType; -MODULE_SCOPE Tcl_ObjType tkStateKeyObjType; -MODULE_SCOPE Tcl_ObjType tkTextIndexType; - -/* - * Miscellaneous variables shared among Tk modules but not exported to the - * outside world: - */ - -MODULE_SCOPE Tk_SmoothMethod tkBezierSmoothMethod; -MODULE_SCOPE Tk_ImageType tkBitmapImageType; -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtGIF; -MODULE_SCOPE void (*tkHandleEventProc) (XEvent* eventPtr); -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtPPM; -MODULE_SCOPE TkMainInfo *tkMainWindowList; -MODULE_SCOPE Tk_ImageType tkPhotoImageType; -MODULE_SCOPE Tcl_HashTable tkPredefBitmapTable; - -MODULE_SCOPE CONST char *const tkWebColors[20]; - -#include "tkIntDecls.h" - -/* - * Themed widget set init function: - */ - -MODULE_SCOPE int Ttk_Init(Tcl_Interp *interp); - -/* - * Internal functions shared among Tk modules but not exported to the outside - * world: - */ - -MODULE_SCOPE int Tk_BellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindtagsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ButtonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CanvasObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CheckbuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ClipboardObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseColorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseDirectoryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseFontObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_DestroyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EntryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FrameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FocusObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FontObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetOpenFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetSaveFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GrabObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GridObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ImageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelframeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ListboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LowerObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MenubuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageBoxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PanedWindowObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_OptionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PackObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PlaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RadiobuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RaiseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScaleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScrollbarCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); -MODULE_SCOPE int Tk_SelectionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SendCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); -MODULE_SCOPE int Tk_SendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SpinboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TextObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TkObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TkwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ToplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WinfoObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WmObjCmd(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); - -MODULE_SCOPE int Tk_GetDoublePixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - double *doublePtr); - -MODULE_SCOPE void TkEventInit(void); -MODULE_SCOPE void TkRegisterObjTypes(void); -MODULE_SCOPE int TkCreateMenuCmd(Tcl_Interp *interp); -MODULE_SCOPE int TkDeadAppCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); -MODULE_SCOPE int TkCanvasGetCoordObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -MODULE_SCOPE int TkGetDoublePixels(Tcl_Interp *interp, Tk_Window tkwin, - const char *string, double *doublePtr); -MODULE_SCOPE int TkPostscriptImage(Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psInfo, XImage *ximage, - int x, int y, int width, int height); -MODULE_SCOPE void TkMapTopFrame(Tk_Window tkwin); -MODULE_SCOPE XEvent * TkpGetBindingXEvent(Tcl_Interp *interp); -MODULE_SCOPE void TkCreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TkDeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE Tcl_ExitProc TkFinalize; -MODULE_SCOPE Tcl_ExitProc TkFinalizeThread; -MODULE_SCOPE void TkpBuildRegionFromAlphaData(TkRegion region, - unsigned x, unsigned y, unsigned width, - unsigned height, unsigned char *dataPtr, - unsigned pixelStride, unsigned lineStride); -MODULE_SCOPE void TkPrintPadAmount(Tcl_Interp *interp, - char *buffer, int pad1, int pad2); -MODULE_SCOPE int TkParsePadAmount(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *pad1Ptr, int *pad2Ptr); -MODULE_SCOPE void TkFocusSplit(TkWindow *winPtr); -MODULE_SCOPE void TkFocusJoin(TkWindow *winPtr); -MODULE_SCOPE int TkpAlwaysShowSelection(Tk_Window tkwin); -MODULE_SCOPE void TkpDrawCharsInContext(Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int x, int y); -MODULE_SCOPE int TkpMeasureCharsInContext(Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int maxLength, int flags, - int *lengthPtr); -MODULE_SCOPE void TkUnderlineCharsInContext(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *string, int numBytes, int x, int y, - int firstByte, int lastByte); -MODULE_SCOPE void TkpGetFontAttrsForChar(Tk_Window tkwin, Tk_Font tkfont, - Tcl_UniChar c, struct TkFontAttributes *faPtr); -#ifdef __WIN32__ -#define TkParseColor XParseColor -#else -MODULE_SCOPE Status TkParseColor (Display * display, - Colormap map, CONST char* spec, - XColor * colorPtr); -#endif -#ifdef HAVE_XFT -MODULE_SCOPE void TkUnixSetXftClipRegion(TkRegion clipRegion); -#endif - -/* - * Unsupported commands. - */ - -MODULE_SCOPE int TkUnsupported1ObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -#endif /* _TKINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntDecls.h deleted file mode 100644 index 9dea8d489..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntDecls.h +++ /dev/null @@ -1,1912 +0,0 @@ -/* - * tkIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINTDECLS -#define _TKINTDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef TkAllocWindow_TCL_DECLARED -#define TkAllocWindow_TCL_DECLARED -/* 0 */ -EXTERN TkWindow * TkAllocWindow(TkDisplay *dispPtr, int screenNum, - TkWindow *parentPtr); -#endif -#ifndef TkBezierPoints_TCL_DECLARED -#define TkBezierPoints_TCL_DECLARED -/* 1 */ -EXTERN void TkBezierPoints(double control[], int numSteps, - double *coordPtr); -#endif -#ifndef TkBezierScreenPoints_TCL_DECLARED -#define TkBezierScreenPoints_TCL_DECLARED -/* 2 */ -EXTERN void TkBezierScreenPoints(Tk_Canvas canvas, - double control[], int numSteps, - XPoint *xPointPtr); -#endif -#ifndef TkBindDeadWindow_TCL_DECLARED -#define TkBindDeadWindow_TCL_DECLARED -/* 3 */ -EXTERN void TkBindDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkBindEventProc_TCL_DECLARED -#define TkBindEventProc_TCL_DECLARED -/* 4 */ -EXTERN void TkBindEventProc(TkWindow *winPtr, XEvent *eventPtr); -#endif -#ifndef TkBindFree_TCL_DECLARED -#define TkBindFree_TCL_DECLARED -/* 5 */ -EXTERN void TkBindFree(TkMainInfo *mainPtr); -#endif -#ifndef TkBindInit_TCL_DECLARED -#define TkBindInit_TCL_DECLARED -/* 6 */ -EXTERN void TkBindInit(TkMainInfo *mainPtr); -#endif -#ifndef TkChangeEventWindow_TCL_DECLARED -#define TkChangeEventWindow_TCL_DECLARED -/* 7 */ -EXTERN void TkChangeEventWindow(XEvent *eventPtr, - TkWindow *winPtr); -#endif -#ifndef TkClipInit_TCL_DECLARED -#define TkClipInit_TCL_DECLARED -/* 8 */ -EXTERN int TkClipInit(Tcl_Interp *interp, TkDisplay *dispPtr); -#endif -#ifndef TkComputeAnchor_TCL_DECLARED -#define TkComputeAnchor_TCL_DECLARED -/* 9 */ -EXTERN void TkComputeAnchor(Tk_Anchor anchor, Tk_Window tkwin, - int padX, int padY, int innerWidth, - int innerHeight, int *xPtr, int *yPtr); -#endif -#ifndef TkCopyAndGlobalEval_TCL_DECLARED -#define TkCopyAndGlobalEval_TCL_DECLARED -/* 10 */ -EXTERN int TkCopyAndGlobalEval(Tcl_Interp *interp, char *script); -#endif -#ifndef TkCreateBindingProcedure_TCL_DECLARED -#define TkCreateBindingProcedure_TCL_DECLARED -/* 11 */ -EXTERN unsigned long TkCreateBindingProcedure(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventString, - TkBindEvalProc *evalProc, - TkBindFreeProc *freeProc, - ClientData clientData); -#endif -#ifndef TkCreateCursorFromData_TCL_DECLARED -#define TkCreateCursorFromData_TCL_DECLARED -/* 12 */ -EXTERN TkCursor * TkCreateCursorFromData(Tk_Window tkwin, - CONST char *source, CONST char *mask, - int width, int height, int xHot, int yHot, - XColor fg, XColor bg); -#endif -#ifndef TkCreateFrame_TCL_DECLARED -#define TkCreateFrame_TCL_DECLARED -/* 13 */ -EXTERN int TkCreateFrame(ClientData clientData, - Tcl_Interp *interp, int argc, char **argv, - int toplevel, char *appName); -#endif -#ifndef TkCreateMainWindow_TCL_DECLARED -#define TkCreateMainWindow_TCL_DECLARED -/* 14 */ -EXTERN Tk_Window TkCreateMainWindow(Tcl_Interp *interp, - CONST char *screenName, char *baseName); -#endif -#ifndef TkCurrentTime_TCL_DECLARED -#define TkCurrentTime_TCL_DECLARED -/* 15 */ -EXTERN Time TkCurrentTime(TkDisplay *dispPtr); -#endif -#ifndef TkDeleteAllImages_TCL_DECLARED -#define TkDeleteAllImages_TCL_DECLARED -/* 16 */ -EXTERN void TkDeleteAllImages(TkMainInfo *mainPtr); -#endif -#ifndef TkDoConfigureNotify_TCL_DECLARED -#define TkDoConfigureNotify_TCL_DECLARED -/* 17 */ -EXTERN void TkDoConfigureNotify(TkWindow *winPtr); -#endif -#ifndef TkDrawInsetFocusHighlight_TCL_DECLARED -#define TkDrawInsetFocusHighlight_TCL_DECLARED -/* 18 */ -EXTERN void TkDrawInsetFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable, int padding); -#endif -#ifndef TkEventDeadWindow_TCL_DECLARED -#define TkEventDeadWindow_TCL_DECLARED -/* 19 */ -EXTERN void TkEventDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkFillPolygon_TCL_DECLARED -#define TkFillPolygon_TCL_DECLARED -/* 20 */ -EXTERN void TkFillPolygon(Tk_Canvas canvas, double *coordPtr, - int numPoints, Display *display, - Drawable drawable, GC gc, GC outlineGC); -#endif -#ifndef TkFindStateNum_TCL_DECLARED -#define TkFindStateNum_TCL_DECLARED -/* 21 */ -EXTERN int TkFindStateNum(Tcl_Interp *interp, - CONST char *option, CONST TkStateMap *mapPtr, - CONST char *strKey); -#endif -#ifndef TkFindStateString_TCL_DECLARED -#define TkFindStateString_TCL_DECLARED -/* 22 */ -EXTERN char * TkFindStateString(CONST TkStateMap *mapPtr, - int numKey); -#endif -#ifndef TkFocusDeadWindow_TCL_DECLARED -#define TkFocusDeadWindow_TCL_DECLARED -/* 23 */ -EXTERN void TkFocusDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkFocusFilterEvent_TCL_DECLARED -#define TkFocusFilterEvent_TCL_DECLARED -/* 24 */ -EXTERN int TkFocusFilterEvent(TkWindow *winPtr, - XEvent *eventPtr); -#endif -#ifndef TkFocusKeyEvent_TCL_DECLARED -#define TkFocusKeyEvent_TCL_DECLARED -/* 25 */ -EXTERN TkWindow * TkFocusKeyEvent(TkWindow *winPtr, XEvent *eventPtr); -#endif -#ifndef TkFontPkgInit_TCL_DECLARED -#define TkFontPkgInit_TCL_DECLARED -/* 26 */ -EXTERN void TkFontPkgInit(TkMainInfo *mainPtr); -#endif -#ifndef TkFontPkgFree_TCL_DECLARED -#define TkFontPkgFree_TCL_DECLARED -/* 27 */ -EXTERN void TkFontPkgFree(TkMainInfo *mainPtr); -#endif -#ifndef TkFreeBindingTags_TCL_DECLARED -#define TkFreeBindingTags_TCL_DECLARED -/* 28 */ -EXTERN void TkFreeBindingTags(TkWindow *winPtr); -#endif -#ifndef TkpFreeCursor_TCL_DECLARED -#define TkpFreeCursor_TCL_DECLARED -/* 29 */ -EXTERN void TkpFreeCursor(TkCursor *cursorPtr); -#endif -#ifndef TkGetBitmapData_TCL_DECLARED -#define TkGetBitmapData_TCL_DECLARED -/* 30 */ -EXTERN char * TkGetBitmapData(Tcl_Interp *interp, char *string, - char *fileName, int *widthPtr, - int *heightPtr, int *hotXPtr, int *hotYPtr); -#endif -#ifndef TkGetButtPoints_TCL_DECLARED -#define TkGetButtPoints_TCL_DECLARED -/* 31 */ -EXTERN void TkGetButtPoints(double p1[], double p2[], - double width, int project, double m1[], - double m2[]); -#endif -#ifndef TkGetCursorByName_TCL_DECLARED -#define TkGetCursorByName_TCL_DECLARED -/* 32 */ -EXTERN TkCursor * TkGetCursorByName(Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string); -#endif -#ifndef TkGetDefaultScreenName_TCL_DECLARED -#define TkGetDefaultScreenName_TCL_DECLARED -/* 33 */ -EXTERN CONST84_RETURN char * TkGetDefaultScreenName(Tcl_Interp *interp, - CONST char *screenName); -#endif -#ifndef TkGetDisplay_TCL_DECLARED -#define TkGetDisplay_TCL_DECLARED -/* 34 */ -EXTERN TkDisplay * TkGetDisplay(Display *display); -#endif -#ifndef TkGetDisplayOf_TCL_DECLARED -#define TkGetDisplayOf_TCL_DECLARED -/* 35 */ -EXTERN int TkGetDisplayOf(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], Tk_Window *tkwinPtr); -#endif -#ifndef TkGetFocusWin_TCL_DECLARED -#define TkGetFocusWin_TCL_DECLARED -/* 36 */ -EXTERN TkWindow * TkGetFocusWin(TkWindow *winPtr); -#endif -#ifndef TkGetInterpNames_TCL_DECLARED -#define TkGetInterpNames_TCL_DECLARED -/* 37 */ -EXTERN int TkGetInterpNames(Tcl_Interp *interp, Tk_Window tkwin); -#endif -#ifndef TkGetMiterPoints_TCL_DECLARED -#define TkGetMiterPoints_TCL_DECLARED -/* 38 */ -EXTERN int TkGetMiterPoints(double p1[], double p2[], - double p3[], double width, double m1[], - double m2[]); -#endif -#ifndef TkGetPointerCoords_TCL_DECLARED -#define TkGetPointerCoords_TCL_DECLARED -/* 39 */ -EXTERN void TkGetPointerCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -#endif -#ifndef TkGetServerInfo_TCL_DECLARED -#define TkGetServerInfo_TCL_DECLARED -/* 40 */ -EXTERN void TkGetServerInfo(Tcl_Interp *interp, Tk_Window tkwin); -#endif -#ifndef TkGrabDeadWindow_TCL_DECLARED -#define TkGrabDeadWindow_TCL_DECLARED -/* 41 */ -EXTERN void TkGrabDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkGrabState_TCL_DECLARED -#define TkGrabState_TCL_DECLARED -/* 42 */ -EXTERN int TkGrabState(TkWindow *winPtr); -#endif -#ifndef TkIncludePoint_TCL_DECLARED -#define TkIncludePoint_TCL_DECLARED -/* 43 */ -EXTERN void TkIncludePoint(Tk_Item *itemPtr, double *pointPtr); -#endif -#ifndef TkInOutEvents_TCL_DECLARED -#define TkInOutEvents_TCL_DECLARED -/* 44 */ -EXTERN void TkInOutEvents(XEvent *eventPtr, TkWindow *sourcePtr, - TkWindow *destPtr, int leaveType, - int enterType, Tcl_QueuePosition position); -#endif -#ifndef TkInstallFrameMenu_TCL_DECLARED -#define TkInstallFrameMenu_TCL_DECLARED -/* 45 */ -EXTERN void TkInstallFrameMenu(Tk_Window tkwin); -#endif -#ifndef TkKeysymToString_TCL_DECLARED -#define TkKeysymToString_TCL_DECLARED -/* 46 */ -EXTERN char * TkKeysymToString(KeySym keysym); -#endif -#ifndef TkLineToArea_TCL_DECLARED -#define TkLineToArea_TCL_DECLARED -/* 47 */ -EXTERN int TkLineToArea(double end1Ptr[], double end2Ptr[], - double rectPtr[]); -#endif -#ifndef TkLineToPoint_TCL_DECLARED -#define TkLineToPoint_TCL_DECLARED -/* 48 */ -EXTERN double TkLineToPoint(double end1Ptr[], double end2Ptr[], - double pointPtr[]); -#endif -#ifndef TkMakeBezierCurve_TCL_DECLARED -#define TkMakeBezierCurve_TCL_DECLARED -/* 49 */ -EXTERN int TkMakeBezierCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -#endif -#ifndef TkMakeBezierPostscript_TCL_DECLARED -#define TkMakeBezierPostscript_TCL_DECLARED -/* 50 */ -EXTERN void TkMakeBezierPostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -#endif -#ifndef TkOptionClassChanged_TCL_DECLARED -#define TkOptionClassChanged_TCL_DECLARED -/* 51 */ -EXTERN void TkOptionClassChanged(TkWindow *winPtr); -#endif -#ifndef TkOptionDeadWindow_TCL_DECLARED -#define TkOptionDeadWindow_TCL_DECLARED -/* 52 */ -EXTERN void TkOptionDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkOvalToArea_TCL_DECLARED -#define TkOvalToArea_TCL_DECLARED -/* 53 */ -EXTERN int TkOvalToArea(double *ovalPtr, double *rectPtr); -#endif -#ifndef TkOvalToPoint_TCL_DECLARED -#define TkOvalToPoint_TCL_DECLARED -/* 54 */ -EXTERN double TkOvalToPoint(double ovalPtr[], double width, - int filled, double pointPtr[]); -#endif -#ifndef TkpChangeFocus_TCL_DECLARED -#define TkpChangeFocus_TCL_DECLARED -/* 55 */ -EXTERN int TkpChangeFocus(TkWindow *winPtr, int force); -#endif -#ifndef TkpCloseDisplay_TCL_DECLARED -#define TkpCloseDisplay_TCL_DECLARED -/* 56 */ -EXTERN void TkpCloseDisplay(TkDisplay *dispPtr); -#endif -#ifndef TkpClaimFocus_TCL_DECLARED -#define TkpClaimFocus_TCL_DECLARED -/* 57 */ -EXTERN void TkpClaimFocus(TkWindow *topLevelPtr, int force); -#endif -#ifndef TkpDisplayWarning_TCL_DECLARED -#define TkpDisplayWarning_TCL_DECLARED -/* 58 */ -EXTERN void TkpDisplayWarning(CONST char *msg, CONST char *title); -#endif -#ifndef TkpGetAppName_TCL_DECLARED -#define TkpGetAppName_TCL_DECLARED -/* 59 */ -EXTERN void TkpGetAppName(Tcl_Interp *interp, Tcl_DString *name); -#endif -#ifndef TkpGetOtherWindow_TCL_DECLARED -#define TkpGetOtherWindow_TCL_DECLARED -/* 60 */ -EXTERN TkWindow * TkpGetOtherWindow(TkWindow *winPtr); -#endif -#ifndef TkpGetWrapperWindow_TCL_DECLARED -#define TkpGetWrapperWindow_TCL_DECLARED -/* 61 */ -EXTERN TkWindow * TkpGetWrapperWindow(TkWindow *winPtr); -#endif -#ifndef TkpInit_TCL_DECLARED -#define TkpInit_TCL_DECLARED -/* 62 */ -EXTERN int TkpInit(Tcl_Interp *interp); -#endif -#ifndef TkpInitializeMenuBindings_TCL_DECLARED -#define TkpInitializeMenuBindings_TCL_DECLARED -/* 63 */ -EXTERN void TkpInitializeMenuBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable); -#endif -#ifndef TkpMakeContainer_TCL_DECLARED -#define TkpMakeContainer_TCL_DECLARED -/* 64 */ -EXTERN void TkpMakeContainer(Tk_Window tkwin); -#endif -#ifndef TkpMakeMenuWindow_TCL_DECLARED -#define TkpMakeMenuWindow_TCL_DECLARED -/* 65 */ -EXTERN void TkpMakeMenuWindow(Tk_Window tkwin, int transient); -#endif -#ifndef TkpMakeWindow_TCL_DECLARED -#define TkpMakeWindow_TCL_DECLARED -/* 66 */ -EXTERN Window TkpMakeWindow(TkWindow *winPtr, Window parent); -#endif -#ifndef TkpMenuNotifyToplevelCreate_TCL_DECLARED -#define TkpMenuNotifyToplevelCreate_TCL_DECLARED -/* 67 */ -EXTERN void TkpMenuNotifyToplevelCreate(Tcl_Interp *interp, - char *menuName); -#endif -#ifndef TkpOpenDisplay_TCL_DECLARED -#define TkpOpenDisplay_TCL_DECLARED -/* 68 */ -EXTERN TkDisplay * TkpOpenDisplay(CONST char *display_name); -#endif -#ifndef TkPointerEvent_TCL_DECLARED -#define TkPointerEvent_TCL_DECLARED -/* 69 */ -EXTERN int TkPointerEvent(XEvent *eventPtr, TkWindow *winPtr); -#endif -#ifndef TkPolygonToArea_TCL_DECLARED -#define TkPolygonToArea_TCL_DECLARED -/* 70 */ -EXTERN int TkPolygonToArea(double *polyPtr, int numPoints, - double *rectPtr); -#endif -#ifndef TkPolygonToPoint_TCL_DECLARED -#define TkPolygonToPoint_TCL_DECLARED -/* 71 */ -EXTERN double TkPolygonToPoint(double *polyPtr, int numPoints, - double *pointPtr); -#endif -#ifndef TkPositionInTree_TCL_DECLARED -#define TkPositionInTree_TCL_DECLARED -/* 72 */ -EXTERN int TkPositionInTree(TkWindow *winPtr, TkWindow *treePtr); -#endif -#ifndef TkpRedirectKeyEvent_TCL_DECLARED -#define TkpRedirectKeyEvent_TCL_DECLARED -/* 73 */ -EXTERN void TkpRedirectKeyEvent(TkWindow *winPtr, - XEvent *eventPtr); -#endif -#ifndef TkpSetMainMenubar_TCL_DECLARED -#define TkpSetMainMenubar_TCL_DECLARED -/* 74 */ -EXTERN void TkpSetMainMenubar(Tcl_Interp *interp, - Tk_Window tkwin, char *menuName); -#endif -#ifndef TkpUseWindow_TCL_DECLARED -#define TkpUseWindow_TCL_DECLARED -/* 75 */ -EXTERN int TkpUseWindow(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *string); -#endif -#ifndef TkpWindowWasRecentlyDeleted_TCL_DECLARED -#define TkpWindowWasRecentlyDeleted_TCL_DECLARED -/* 76 */ -EXTERN int TkpWindowWasRecentlyDeleted(Window win, - TkDisplay *dispPtr); -#endif -#ifndef TkQueueEventForAllChildren_TCL_DECLARED -#define TkQueueEventForAllChildren_TCL_DECLARED -/* 77 */ -EXTERN void TkQueueEventForAllChildren(TkWindow *winPtr, - XEvent *eventPtr); -#endif -#ifndef TkReadBitmapFile_TCL_DECLARED -#define TkReadBitmapFile_TCL_DECLARED -/* 78 */ -EXTERN int TkReadBitmapFile(Display *display, Drawable d, - CONST char *filename, - unsigned int *width_return, - unsigned int *height_return, - Pixmap *bitmap_return, int *x_hot_return, - int *y_hot_return); -#endif -#ifndef TkScrollWindow_TCL_DECLARED -#define TkScrollWindow_TCL_DECLARED -/* 79 */ -EXTERN int TkScrollWindow(Tk_Window tkwin, GC gc, int x, int y, - int width, int height, int dx, int dy, - TkRegion damageRgn); -#endif -#ifndef TkSelDeadWindow_TCL_DECLARED -#define TkSelDeadWindow_TCL_DECLARED -/* 80 */ -EXTERN void TkSelDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkSelEventProc_TCL_DECLARED -#define TkSelEventProc_TCL_DECLARED -/* 81 */ -EXTERN void TkSelEventProc(Tk_Window tkwin, XEvent *eventPtr); -#endif -#ifndef TkSelInit_TCL_DECLARED -#define TkSelInit_TCL_DECLARED -/* 82 */ -EXTERN void TkSelInit(Tk_Window tkwin); -#endif -#ifndef TkSelPropProc_TCL_DECLARED -#define TkSelPropProc_TCL_DECLARED -/* 83 */ -EXTERN void TkSelPropProc(XEvent *eventPtr); -#endif -/* Slot 84 is reserved */ -#ifndef TkSetWindowMenuBar_TCL_DECLARED -#define TkSetWindowMenuBar_TCL_DECLARED -/* 85 */ -EXTERN void TkSetWindowMenuBar(Tcl_Interp *interp, - Tk_Window tkwin, char *oldMenuName, - char *menuName); -#endif -#ifndef TkStringToKeysym_TCL_DECLARED -#define TkStringToKeysym_TCL_DECLARED -/* 86 */ -EXTERN KeySym TkStringToKeysym(char *name); -#endif -#ifndef TkThickPolyLineToArea_TCL_DECLARED -#define TkThickPolyLineToArea_TCL_DECLARED -/* 87 */ -EXTERN int TkThickPolyLineToArea(double *coordPtr, - int numPoints, double width, int capStyle, - int joinStyle, double *rectPtr); -#endif -#ifndef TkWmAddToColormapWindows_TCL_DECLARED -#define TkWmAddToColormapWindows_TCL_DECLARED -/* 88 */ -EXTERN void TkWmAddToColormapWindows(TkWindow *winPtr); -#endif -#ifndef TkWmDeadWindow_TCL_DECLARED -#define TkWmDeadWindow_TCL_DECLARED -/* 89 */ -EXTERN void TkWmDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkWmFocusToplevel_TCL_DECLARED -#define TkWmFocusToplevel_TCL_DECLARED -/* 90 */ -EXTERN TkWindow * TkWmFocusToplevel(TkWindow *winPtr); -#endif -#ifndef TkWmMapWindow_TCL_DECLARED -#define TkWmMapWindow_TCL_DECLARED -/* 91 */ -EXTERN void TkWmMapWindow(TkWindow *winPtr); -#endif -#ifndef TkWmNewWindow_TCL_DECLARED -#define TkWmNewWindow_TCL_DECLARED -/* 92 */ -EXTERN void TkWmNewWindow(TkWindow *winPtr); -#endif -#ifndef TkWmProtocolEventProc_TCL_DECLARED -#define TkWmProtocolEventProc_TCL_DECLARED -/* 93 */ -EXTERN void TkWmProtocolEventProc(TkWindow *winPtr, - XEvent *evenvPtr); -#endif -#ifndef TkWmRemoveFromColormapWindows_TCL_DECLARED -#define TkWmRemoveFromColormapWindows_TCL_DECLARED -/* 94 */ -EXTERN void TkWmRemoveFromColormapWindows(TkWindow *winPtr); -#endif -#ifndef TkWmRestackToplevel_TCL_DECLARED -#define TkWmRestackToplevel_TCL_DECLARED -/* 95 */ -EXTERN void TkWmRestackToplevel(TkWindow *winPtr, int aboveBelow, - TkWindow *otherPtr); -#endif -#ifndef TkWmSetClass_TCL_DECLARED -#define TkWmSetClass_TCL_DECLARED -/* 96 */ -EXTERN void TkWmSetClass(TkWindow *winPtr); -#endif -#ifndef TkWmUnmapWindow_TCL_DECLARED -#define TkWmUnmapWindow_TCL_DECLARED -/* 97 */ -EXTERN void TkWmUnmapWindow(TkWindow *winPtr); -#endif -#ifndef TkDebugBitmap_TCL_DECLARED -#define TkDebugBitmap_TCL_DECLARED -/* 98 */ -EXTERN Tcl_Obj * TkDebugBitmap(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugBorder_TCL_DECLARED -#define TkDebugBorder_TCL_DECLARED -/* 99 */ -EXTERN Tcl_Obj * TkDebugBorder(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugCursor_TCL_DECLARED -#define TkDebugCursor_TCL_DECLARED -/* 100 */ -EXTERN Tcl_Obj * TkDebugCursor(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugColor_TCL_DECLARED -#define TkDebugColor_TCL_DECLARED -/* 101 */ -EXTERN Tcl_Obj * TkDebugColor(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugConfig_TCL_DECLARED -#define TkDebugConfig_TCL_DECLARED -/* 102 */ -EXTERN Tcl_Obj * TkDebugConfig(Tcl_Interp *interp, - Tk_OptionTable table); -#endif -#ifndef TkDebugFont_TCL_DECLARED -#define TkDebugFont_TCL_DECLARED -/* 103 */ -EXTERN Tcl_Obj * TkDebugFont(Tk_Window tkwin, char *name); -#endif -#ifndef TkFindStateNumObj_TCL_DECLARED -#define TkFindStateNumObj_TCL_DECLARED -/* 104 */ -EXTERN int TkFindStateNumObj(Tcl_Interp *interp, - Tcl_Obj *optionPtr, CONST TkStateMap *mapPtr, - Tcl_Obj *keyPtr); -#endif -#ifndef TkGetBitmapPredefTable_TCL_DECLARED -#define TkGetBitmapPredefTable_TCL_DECLARED -/* 105 */ -EXTERN Tcl_HashTable * TkGetBitmapPredefTable(void); -#endif -#ifndef TkGetDisplayList_TCL_DECLARED -#define TkGetDisplayList_TCL_DECLARED -/* 106 */ -EXTERN TkDisplay * TkGetDisplayList(void); -#endif -#ifndef TkGetMainInfoList_TCL_DECLARED -#define TkGetMainInfoList_TCL_DECLARED -/* 107 */ -EXTERN TkMainInfo * TkGetMainInfoList(void); -#endif -#ifndef TkGetWindowFromObj_TCL_DECLARED -#define TkGetWindowFromObj_TCL_DECLARED -/* 108 */ -EXTERN int TkGetWindowFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - Tk_Window *windowPtr); -#endif -#ifndef TkpGetString_TCL_DECLARED -#define TkpGetString_TCL_DECLARED -/* 109 */ -EXTERN char * TkpGetString(TkWindow *winPtr, XEvent *eventPtr, - Tcl_DString *dsPtr); -#endif -#ifndef TkpGetSubFonts_TCL_DECLARED -#define TkpGetSubFonts_TCL_DECLARED -/* 110 */ -EXTERN void TkpGetSubFonts(Tcl_Interp *interp, Tk_Font tkfont); -#endif -#ifndef TkpGetSystemDefault_TCL_DECLARED -#define TkpGetSystemDefault_TCL_DECLARED -/* 111 */ -EXTERN Tcl_Obj * TkpGetSystemDefault(Tk_Window tkwin, - CONST char *dbName, CONST char *className); -#endif -#ifndef TkpMenuThreadInit_TCL_DECLARED -#define TkpMenuThreadInit_TCL_DECLARED -/* 112 */ -EXTERN void TkpMenuThreadInit(void); -#endif -#ifndef TkClipBox_TCL_DECLARED -#define TkClipBox_TCL_DECLARED -/* 113 */ -EXTERN void TkClipBox(TkRegion rgn, XRectangle *rect_return); -#endif -#ifndef TkCreateRegion_TCL_DECLARED -#define TkCreateRegion_TCL_DECLARED -/* 114 */ -EXTERN TkRegion TkCreateRegion(void); -#endif -#ifndef TkDestroyRegion_TCL_DECLARED -#define TkDestroyRegion_TCL_DECLARED -/* 115 */ -EXTERN void TkDestroyRegion(TkRegion rgn); -#endif -#ifndef TkIntersectRegion_TCL_DECLARED -#define TkIntersectRegion_TCL_DECLARED -/* 116 */ -EXTERN void TkIntersectRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -#endif -#ifndef TkRectInRegion_TCL_DECLARED -#define TkRectInRegion_TCL_DECLARED -/* 117 */ -EXTERN int TkRectInRegion(TkRegion rgn, int x, int y, - unsigned int width, unsigned int height); -#endif -#ifndef TkSetRegion_TCL_DECLARED -#define TkSetRegion_TCL_DECLARED -/* 118 */ -EXTERN void TkSetRegion(Display *display, GC gc, TkRegion rgn); -#endif -#ifndef TkUnionRectWithRegion_TCL_DECLARED -#define TkUnionRectWithRegion_TCL_DECLARED -/* 119 */ -EXTERN void TkUnionRectWithRegion(XRectangle *rect, TkRegion src, - TkRegion dr_return); -#endif -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpCreateNativeBitmap_TCL_DECLARED -#define TkpCreateNativeBitmap_TCL_DECLARED -/* 121 */ -EXTERN Pixmap TkpCreateNativeBitmap(Display *display, - CONST char *source); -#endif -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpDefineNativeBitmaps_TCL_DECLARED -#define TkpDefineNativeBitmaps_TCL_DECLARED -/* 122 */ -EXTERN void TkpDefineNativeBitmaps(void); -#endif -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpGetNativeAppBitmap_TCL_DECLARED -#define TkpGetNativeAppBitmap_TCL_DECLARED -/* 124 */ -EXTERN Pixmap TkpGetNativeAppBitmap(Display *display, - CONST char *name, int *width, int *height); -#endif -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#ifndef TkpDrawHighlightBorder_TCL_DECLARED -#define TkpDrawHighlightBorder_TCL_DECLARED -/* 135 */ -EXTERN void TkpDrawHighlightBorder(Tk_Window tkwin, GC fgGC, - GC bgGC, int highlightWidth, - Drawable drawable); -#endif -#ifndef TkSetFocusWin_TCL_DECLARED -#define TkSetFocusWin_TCL_DECLARED -/* 136 */ -EXTERN void TkSetFocusWin(TkWindow *winPtr, int force); -#endif -#ifndef TkpSetKeycodeAndState_TCL_DECLARED -#define TkpSetKeycodeAndState_TCL_DECLARED -/* 137 */ -EXTERN void TkpSetKeycodeAndState(Tk_Window tkwin, KeySym keySym, - XEvent *eventPtr); -#endif -#ifndef TkpGetKeySym_TCL_DECLARED -#define TkpGetKeySym_TCL_DECLARED -/* 138 */ -EXTERN KeySym TkpGetKeySym(TkDisplay *dispPtr, XEvent *eventPtr); -#endif -#ifndef TkpInitKeymapInfo_TCL_DECLARED -#define TkpInitKeymapInfo_TCL_DECLARED -/* 139 */ -EXTERN void TkpInitKeymapInfo(TkDisplay *dispPtr); -#endif -#ifndef TkPhotoGetValidRegion_TCL_DECLARED -#define TkPhotoGetValidRegion_TCL_DECLARED -/* 140 */ -EXTERN TkRegion TkPhotoGetValidRegion(Tk_PhotoHandle handle); -#endif -#ifndef TkWmStackorderToplevel_TCL_DECLARED -#define TkWmStackorderToplevel_TCL_DECLARED -/* 141 */ -EXTERN TkWindow ** TkWmStackorderToplevel(TkWindow *parentPtr); -#endif -#ifndef TkFocusFree_TCL_DECLARED -#define TkFocusFree_TCL_DECLARED -/* 142 */ -EXTERN void TkFocusFree(TkMainInfo *mainPtr); -#endif -#ifndef TkClipCleanup_TCL_DECLARED -#define TkClipCleanup_TCL_DECLARED -/* 143 */ -EXTERN void TkClipCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkGCCleanup_TCL_DECLARED -#define TkGCCleanup_TCL_DECLARED -/* 144 */ -EXTERN void TkGCCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkSubtractRegion_TCL_DECLARED -#define TkSubtractRegion_TCL_DECLARED -/* 145 */ -EXTERN void TkSubtractRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -#endif -#ifndef TkStylePkgInit_TCL_DECLARED -#define TkStylePkgInit_TCL_DECLARED -/* 146 */ -EXTERN void TkStylePkgInit(TkMainInfo *mainPtr); -#endif -#ifndef TkStylePkgFree_TCL_DECLARED -#define TkStylePkgFree_TCL_DECLARED -/* 147 */ -EXTERN void TkStylePkgFree(TkMainInfo *mainPtr); -#endif -#ifndef TkToplevelWindowForCommand_TCL_DECLARED -#define TkToplevelWindowForCommand_TCL_DECLARED -/* 148 */ -EXTERN Tk_Window TkToplevelWindowForCommand(Tcl_Interp *interp, - CONST char *cmdName); -#endif -#ifndef TkGetOptionSpec_TCL_DECLARED -#define TkGetOptionSpec_TCL_DECLARED -/* 149 */ -EXTERN CONST Tk_OptionSpec * TkGetOptionSpec(CONST char *name, - Tk_OptionTable optionTable); -#endif -#ifndef TkMakeRawCurve_TCL_DECLARED -#define TkMakeRawCurve_TCL_DECLARED -/* 150 */ -EXTERN int TkMakeRawCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -#endif -#ifndef TkMakeRawCurvePostscript_TCL_DECLARED -#define TkMakeRawCurvePostscript_TCL_DECLARED -/* 151 */ -EXTERN void TkMakeRawCurvePostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -#endif -#ifndef TkpDrawFrame_TCL_DECLARED -#define TkpDrawFrame_TCL_DECLARED -/* 152 */ -EXTERN void TkpDrawFrame(Tk_Window tkwin, Tk_3DBorder border, - int highlightWidth, int borderWidth, - int relief); -#endif -#ifndef TkCreateThreadExitHandler_TCL_DECLARED -#define TkCreateThreadExitHandler_TCL_DECLARED -/* 153 */ -EXTERN void TkCreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef TkDeleteThreadExitHandler_TCL_DECLARED -#define TkDeleteThreadExitHandler_TCL_DECLARED -/* 154 */ -EXTERN void TkDeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -/* Slot 155 is reserved */ -#ifndef TkpTestembedCmd_TCL_DECLARED -#define TkpTestembedCmd_TCL_DECLARED -/* 156 */ -EXTERN int TkpTestembedCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST char **argv); -#endif -#ifndef TkpTesttextCmd_TCL_DECLARED -#define TkpTesttextCmd_TCL_DECLARED -/* 157 */ -EXTERN int TkpTesttextCmd(ClientData dummy, Tcl_Interp *interp, - int argc, CONST char **argv); -#endif -/* Slot 158 is reserved */ -/* Slot 159 is reserved */ -/* Slot 160 is reserved */ -/* Slot 161 is reserved */ -/* Slot 162 is reserved */ -/* Slot 163 is reserved */ -/* Slot 164 is reserved */ -/* Slot 165 is reserved */ -/* Slot 166 is reserved */ -/* Slot 167 is reserved */ -/* Slot 168 is reserved */ -#ifndef TkStateParseProc_TCL_DECLARED -#define TkStateParseProc_TCL_DECLARED -/* 169 */ -EXTERN int TkStateParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkStatePrintProc_TCL_DECLARED -#define TkStatePrintProc_TCL_DECLARED -/* 170 */ -EXTERN char * TkStatePrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkCanvasDashParseProc_TCL_DECLARED -#define TkCanvasDashParseProc_TCL_DECLARED -/* 171 */ -EXTERN int TkCanvasDashParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkCanvasDashPrintProc_TCL_DECLARED -#define TkCanvasDashPrintProc_TCL_DECLARED -/* 172 */ -EXTERN char * TkCanvasDashPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkOffsetParseProc_TCL_DECLARED -#define TkOffsetParseProc_TCL_DECLARED -/* 173 */ -EXTERN int TkOffsetParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkOffsetPrintProc_TCL_DECLARED -#define TkOffsetPrintProc_TCL_DECLARED -/* 174 */ -EXTERN char * TkOffsetPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkPixelParseProc_TCL_DECLARED -#define TkPixelParseProc_TCL_DECLARED -/* 175 */ -EXTERN int TkPixelParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkPixelPrintProc_TCL_DECLARED -#define TkPixelPrintProc_TCL_DECLARED -/* 176 */ -EXTERN char * TkPixelPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkOrientParseProc_TCL_DECLARED -#define TkOrientParseProc_TCL_DECLARED -/* 177 */ -EXTERN int TkOrientParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkOrientPrintProc_TCL_DECLARED -#define TkOrientPrintProc_TCL_DECLARED -/* 178 */ -EXTERN char * TkOrientPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkSmoothParseProc_TCL_DECLARED -#define TkSmoothParseProc_TCL_DECLARED -/* 179 */ -EXTERN int TkSmoothParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkSmoothPrintProc_TCL_DECLARED -#define TkSmoothPrintProc_TCL_DECLARED -/* 180 */ -EXTERN char * TkSmoothPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -/* Slot 181 is reserved */ -/* Slot 182 is reserved */ -/* Slot 183 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 184 */ -EXTERN void TkUnusedStubEntry(void); -#endif - -typedef struct TkIntStubs { - int magic; - struct TkIntStubHooks *hooks; - - TkWindow * (*tkAllocWindow) (TkDisplay *dispPtr, int screenNum, TkWindow *parentPtr); /* 0 */ - void (*tkBezierPoints) (double control[], int numSteps, double *coordPtr); /* 1 */ - void (*tkBezierScreenPoints) (Tk_Canvas canvas, double control[], int numSteps, XPoint *xPointPtr); /* 2 */ - void (*tkBindDeadWindow) (TkWindow *winPtr); /* 3 */ - void (*tkBindEventProc) (TkWindow *winPtr, XEvent *eventPtr); /* 4 */ - void (*tkBindFree) (TkMainInfo *mainPtr); /* 5 */ - void (*tkBindInit) (TkMainInfo *mainPtr); /* 6 */ - void (*tkChangeEventWindow) (XEvent *eventPtr, TkWindow *winPtr); /* 7 */ - int (*tkClipInit) (Tcl_Interp *interp, TkDisplay *dispPtr); /* 8 */ - void (*tkComputeAnchor) (Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int *xPtr, int *yPtr); /* 9 */ - int (*tkCopyAndGlobalEval) (Tcl_Interp *interp, char *script); /* 10 */ - unsigned long (*tkCreateBindingProcedure) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventString, TkBindEvalProc *evalProc, TkBindFreeProc *freeProc, ClientData clientData); /* 11 */ - TkCursor * (*tkCreateCursorFromData) (Tk_Window tkwin, CONST char *source, CONST char *mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg); /* 12 */ - int (*tkCreateFrame) (ClientData clientData, Tcl_Interp *interp, int argc, char **argv, int toplevel, char *appName); /* 13 */ - Tk_Window (*tkCreateMainWindow) (Tcl_Interp *interp, CONST char *screenName, char *baseName); /* 14 */ - Time (*tkCurrentTime) (TkDisplay *dispPtr); /* 15 */ - void (*tkDeleteAllImages) (TkMainInfo *mainPtr); /* 16 */ - void (*tkDoConfigureNotify) (TkWindow *winPtr); /* 17 */ - void (*tkDrawInsetFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding); /* 18 */ - void (*tkEventDeadWindow) (TkWindow *winPtr); /* 19 */ - void (*tkFillPolygon) (Tk_Canvas canvas, double *coordPtr, int numPoints, Display *display, Drawable drawable, GC gc, GC outlineGC); /* 20 */ - int (*tkFindStateNum) (Tcl_Interp *interp, CONST char *option, CONST TkStateMap *mapPtr, CONST char *strKey); /* 21 */ - char * (*tkFindStateString) (CONST TkStateMap *mapPtr, int numKey); /* 22 */ - void (*tkFocusDeadWindow) (TkWindow *winPtr); /* 23 */ - int (*tkFocusFilterEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 24 */ - TkWindow * (*tkFocusKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 25 */ - void (*tkFontPkgInit) (TkMainInfo *mainPtr); /* 26 */ - void (*tkFontPkgFree) (TkMainInfo *mainPtr); /* 27 */ - void (*tkFreeBindingTags) (TkWindow *winPtr); /* 28 */ - void (*tkpFreeCursor) (TkCursor *cursorPtr); /* 29 */ - char * (*tkGetBitmapData) (Tcl_Interp *interp, char *string, char *fileName, int *widthPtr, int *heightPtr, int *hotXPtr, int *hotYPtr); /* 30 */ - void (*tkGetButtPoints) (double p1[], double p2[], double width, int project, double m1[], double m2[]); /* 31 */ - TkCursor * (*tkGetCursorByName) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid string); /* 32 */ - CONST84_RETURN char * (*tkGetDefaultScreenName) (Tcl_Interp *interp, CONST char *screenName); /* 33 */ - TkDisplay * (*tkGetDisplay) (Display *display); /* 34 */ - int (*tkGetDisplayOf) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Tk_Window *tkwinPtr); /* 35 */ - TkWindow * (*tkGetFocusWin) (TkWindow *winPtr); /* 36 */ - int (*tkGetInterpNames) (Tcl_Interp *interp, Tk_Window tkwin); /* 37 */ - int (*tkGetMiterPoints) (double p1[], double p2[], double p3[], double width, double m1[], double m2[]); /* 38 */ - void (*tkGetPointerCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 39 */ - void (*tkGetServerInfo) (Tcl_Interp *interp, Tk_Window tkwin); /* 40 */ - void (*tkGrabDeadWindow) (TkWindow *winPtr); /* 41 */ - int (*tkGrabState) (TkWindow *winPtr); /* 42 */ - void (*tkIncludePoint) (Tk_Item *itemPtr, double *pointPtr); /* 43 */ - void (*tkInOutEvents) (XEvent *eventPtr, TkWindow *sourcePtr, TkWindow *destPtr, int leaveType, int enterType, Tcl_QueuePosition position); /* 44 */ - void (*tkInstallFrameMenu) (Tk_Window tkwin); /* 45 */ - char * (*tkKeysymToString) (KeySym keysym); /* 46 */ - int (*tkLineToArea) (double end1Ptr[], double end2Ptr[], double rectPtr[]); /* 47 */ - double (*tkLineToPoint) (double end1Ptr[], double end2Ptr[], double pointPtr[]); /* 48 */ - int (*tkMakeBezierCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 49 */ - void (*tkMakeBezierPostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 50 */ - void (*tkOptionClassChanged) (TkWindow *winPtr); /* 51 */ - void (*tkOptionDeadWindow) (TkWindow *winPtr); /* 52 */ - int (*tkOvalToArea) (double *ovalPtr, double *rectPtr); /* 53 */ - double (*tkOvalToPoint) (double ovalPtr[], double width, int filled, double pointPtr[]); /* 54 */ - int (*tkpChangeFocus) (TkWindow *winPtr, int force); /* 55 */ - void (*tkpCloseDisplay) (TkDisplay *dispPtr); /* 56 */ - void (*tkpClaimFocus) (TkWindow *topLevelPtr, int force); /* 57 */ - void (*tkpDisplayWarning) (CONST char *msg, CONST char *title); /* 58 */ - void (*tkpGetAppName) (Tcl_Interp *interp, Tcl_DString *name); /* 59 */ - TkWindow * (*tkpGetOtherWindow) (TkWindow *winPtr); /* 60 */ - TkWindow * (*tkpGetWrapperWindow) (TkWindow *winPtr); /* 61 */ - int (*tkpInit) (Tcl_Interp *interp); /* 62 */ - void (*tkpInitializeMenuBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable); /* 63 */ - void (*tkpMakeContainer) (Tk_Window tkwin); /* 64 */ - void (*tkpMakeMenuWindow) (Tk_Window tkwin, int transient); /* 65 */ - Window (*tkpMakeWindow) (TkWindow *winPtr, Window parent); /* 66 */ - void (*tkpMenuNotifyToplevelCreate) (Tcl_Interp *interp, char *menuName); /* 67 */ - TkDisplay * (*tkpOpenDisplay) (CONST char *display_name); /* 68 */ - int (*tkPointerEvent) (XEvent *eventPtr, TkWindow *winPtr); /* 69 */ - int (*tkPolygonToArea) (double *polyPtr, int numPoints, double *rectPtr); /* 70 */ - double (*tkPolygonToPoint) (double *polyPtr, int numPoints, double *pointPtr); /* 71 */ - int (*tkPositionInTree) (TkWindow *winPtr, TkWindow *treePtr); /* 72 */ - void (*tkpRedirectKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 73 */ - void (*tkpSetMainMenubar) (Tcl_Interp *interp, Tk_Window tkwin, char *menuName); /* 74 */ - int (*tkpUseWindow) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *string); /* 75 */ - int (*tkpWindowWasRecentlyDeleted) (Window win, TkDisplay *dispPtr); /* 76 */ - void (*tkQueueEventForAllChildren) (TkWindow *winPtr, XEvent *eventPtr); /* 77 */ - int (*tkReadBitmapFile) (Display *display, Drawable d, CONST char *filename, unsigned int *width_return, unsigned int *height_return, Pixmap *bitmap_return, int *x_hot_return, int *y_hot_return); /* 78 */ - int (*tkScrollWindow) (Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn); /* 79 */ - void (*tkSelDeadWindow) (TkWindow *winPtr); /* 80 */ - void (*tkSelEventProc) (Tk_Window tkwin, XEvent *eventPtr); /* 81 */ - void (*tkSelInit) (Tk_Window tkwin); /* 82 */ - void (*tkSelPropProc) (XEvent *eventPtr); /* 83 */ - VOID *reserved84; - void (*tkSetWindowMenuBar) (Tcl_Interp *interp, Tk_Window tkwin, char *oldMenuName, char *menuName); /* 85 */ - KeySym (*tkStringToKeysym) (char *name); /* 86 */ - int (*tkThickPolyLineToArea) (double *coordPtr, int numPoints, double width, int capStyle, int joinStyle, double *rectPtr); /* 87 */ - void (*tkWmAddToColormapWindows) (TkWindow *winPtr); /* 88 */ - void (*tkWmDeadWindow) (TkWindow *winPtr); /* 89 */ - TkWindow * (*tkWmFocusToplevel) (TkWindow *winPtr); /* 90 */ - void (*tkWmMapWindow) (TkWindow *winPtr); /* 91 */ - void (*tkWmNewWindow) (TkWindow *winPtr); /* 92 */ - void (*tkWmProtocolEventProc) (TkWindow *winPtr, XEvent *evenvPtr); /* 93 */ - void (*tkWmRemoveFromColormapWindows) (TkWindow *winPtr); /* 94 */ - void (*tkWmRestackToplevel) (TkWindow *winPtr, int aboveBelow, TkWindow *otherPtr); /* 95 */ - void (*tkWmSetClass) (TkWindow *winPtr); /* 96 */ - void (*tkWmUnmapWindow) (TkWindow *winPtr); /* 97 */ - Tcl_Obj * (*tkDebugBitmap) (Tk_Window tkwin, char *name); /* 98 */ - Tcl_Obj * (*tkDebugBorder) (Tk_Window tkwin, char *name); /* 99 */ - Tcl_Obj * (*tkDebugCursor) (Tk_Window tkwin, char *name); /* 100 */ - Tcl_Obj * (*tkDebugColor) (Tk_Window tkwin, char *name); /* 101 */ - Tcl_Obj * (*tkDebugConfig) (Tcl_Interp *interp, Tk_OptionTable table); /* 102 */ - Tcl_Obj * (*tkDebugFont) (Tk_Window tkwin, char *name); /* 103 */ - int (*tkFindStateNumObj) (Tcl_Interp *interp, Tcl_Obj *optionPtr, CONST TkStateMap *mapPtr, Tcl_Obj *keyPtr); /* 104 */ - Tcl_HashTable * (*tkGetBitmapPredefTable) (void); /* 105 */ - TkDisplay * (*tkGetDisplayList) (void); /* 106 */ - TkMainInfo * (*tkGetMainInfoList) (void); /* 107 */ - int (*tkGetWindowFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, Tk_Window *windowPtr); /* 108 */ - char * (*tkpGetString) (TkWindow *winPtr, XEvent *eventPtr, Tcl_DString *dsPtr); /* 109 */ - void (*tkpGetSubFonts) (Tcl_Interp *interp, Tk_Font tkfont); /* 110 */ - Tcl_Obj * (*tkpGetSystemDefault) (Tk_Window tkwin, CONST char *dbName, CONST char *className); /* 111 */ - void (*tkpMenuThreadInit) (void); /* 112 */ - void (*tkClipBox) (TkRegion rgn, XRectangle *rect_return); /* 113 */ - TkRegion (*tkCreateRegion) (void); /* 114 */ - void (*tkDestroyRegion) (TkRegion rgn); /* 115 */ - void (*tkIntersectRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 116 */ - int (*tkRectInRegion) (TkRegion rgn, int x, int y, unsigned int width, unsigned int height); /* 117 */ - void (*tkSetRegion) (Display *display, GC gc, TkRegion rgn); /* 118 */ - void (*tkUnionRectWithRegion) (XRectangle *rect, TkRegion src, TkRegion dr_return); /* 119 */ - VOID *reserved120; -#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */ - VOID *reserved121; -#endif /* X11 */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved121; -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - VOID *reserved121; /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpCreateNativeBitmap) (Display *display, CONST char *source); /* 121 */ -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */ - VOID *reserved122; -#endif /* X11 */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved122; -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - VOID *reserved122; /* Dummy entry for stubs table backwards compatibility */ - void (*tkpDefineNativeBitmaps) (void); /* 122 */ -#endif /* AQUA */ - VOID *reserved123; -#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */ - VOID *reserved124; -#endif /* X11 */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved124; -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - VOID *reserved124; /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpGetNativeAppBitmap) (Display *display, CONST char *name, int *width, int *height); /* 124 */ -#endif /* AQUA */ - VOID *reserved125; - VOID *reserved126; - VOID *reserved127; - VOID *reserved128; - VOID *reserved129; - VOID *reserved130; - VOID *reserved131; - VOID *reserved132; - VOID *reserved133; - VOID *reserved134; - void (*tkpDrawHighlightBorder) (Tk_Window tkwin, GC fgGC, GC bgGC, int highlightWidth, Drawable drawable); /* 135 */ - void (*tkSetFocusWin) (TkWindow *winPtr, int force); /* 136 */ - void (*tkpSetKeycodeAndState) (Tk_Window tkwin, KeySym keySym, XEvent *eventPtr); /* 137 */ - KeySym (*tkpGetKeySym) (TkDisplay *dispPtr, XEvent *eventPtr); /* 138 */ - void (*tkpInitKeymapInfo) (TkDisplay *dispPtr); /* 139 */ - TkRegion (*tkPhotoGetValidRegion) (Tk_PhotoHandle handle); /* 140 */ - TkWindow ** (*tkWmStackorderToplevel) (TkWindow *parentPtr); /* 141 */ - void (*tkFocusFree) (TkMainInfo *mainPtr); /* 142 */ - void (*tkClipCleanup) (TkDisplay *dispPtr); /* 143 */ - void (*tkGCCleanup) (TkDisplay *dispPtr); /* 144 */ - void (*tkSubtractRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 145 */ - void (*tkStylePkgInit) (TkMainInfo *mainPtr); /* 146 */ - void (*tkStylePkgFree) (TkMainInfo *mainPtr); /* 147 */ - Tk_Window (*tkToplevelWindowForCommand) (Tcl_Interp *interp, CONST char *cmdName); /* 148 */ - CONST Tk_OptionSpec * (*tkGetOptionSpec) (CONST char *name, Tk_OptionTable optionTable); /* 149 */ - int (*tkMakeRawCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 150 */ - void (*tkMakeRawCurvePostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 151 */ - void (*tkpDrawFrame) (Tk_Window tkwin, Tk_3DBorder border, int highlightWidth, int borderWidth, int relief); /* 152 */ - void (*tkCreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 153 */ - void (*tkDeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 154 */ - VOID *reserved155; - int (*tkpTestembedCmd) (ClientData clientData, Tcl_Interp *interp, int argc, CONST char **argv); /* 156 */ - int (*tkpTesttextCmd) (ClientData dummy, Tcl_Interp *interp, int argc, CONST char **argv); /* 157 */ - VOID *reserved158; - VOID *reserved159; - VOID *reserved160; - VOID *reserved161; - VOID *reserved162; - VOID *reserved163; - VOID *reserved164; - VOID *reserved165; - VOID *reserved166; - VOID *reserved167; - VOID *reserved168; - int (*tkStateParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 169 */ - char * (*tkStatePrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 170 */ - int (*tkCanvasDashParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 171 */ - char * (*tkCanvasDashPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 172 */ - int (*tkOffsetParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 173 */ - char * (*tkOffsetPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 174 */ - int (*tkPixelParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 175 */ - char * (*tkPixelPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 176 */ - int (*tkOrientParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 177 */ - char * (*tkOrientPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 178 */ - int (*tkSmoothParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 179 */ - char * (*tkSmoothPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 180 */ - VOID *reserved181; - VOID *reserved182; - VOID *reserved183; - void (*tkUnusedStubEntry) (void); /* 184 */ -} TkIntStubs; - -extern TkIntStubs *tkIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TkAllocWindow -#define TkAllocWindow \ - (tkIntStubsPtr->tkAllocWindow) /* 0 */ -#endif -#ifndef TkBezierPoints -#define TkBezierPoints \ - (tkIntStubsPtr->tkBezierPoints) /* 1 */ -#endif -#ifndef TkBezierScreenPoints -#define TkBezierScreenPoints \ - (tkIntStubsPtr->tkBezierScreenPoints) /* 2 */ -#endif -#ifndef TkBindDeadWindow -#define TkBindDeadWindow \ - (tkIntStubsPtr->tkBindDeadWindow) /* 3 */ -#endif -#ifndef TkBindEventProc -#define TkBindEventProc \ - (tkIntStubsPtr->tkBindEventProc) /* 4 */ -#endif -#ifndef TkBindFree -#define TkBindFree \ - (tkIntStubsPtr->tkBindFree) /* 5 */ -#endif -#ifndef TkBindInit -#define TkBindInit \ - (tkIntStubsPtr->tkBindInit) /* 6 */ -#endif -#ifndef TkChangeEventWindow -#define TkChangeEventWindow \ - (tkIntStubsPtr->tkChangeEventWindow) /* 7 */ -#endif -#ifndef TkClipInit -#define TkClipInit \ - (tkIntStubsPtr->tkClipInit) /* 8 */ -#endif -#ifndef TkComputeAnchor -#define TkComputeAnchor \ - (tkIntStubsPtr->tkComputeAnchor) /* 9 */ -#endif -#ifndef TkCopyAndGlobalEval -#define TkCopyAndGlobalEval \ - (tkIntStubsPtr->tkCopyAndGlobalEval) /* 10 */ -#endif -#ifndef TkCreateBindingProcedure -#define TkCreateBindingProcedure \ - (tkIntStubsPtr->tkCreateBindingProcedure) /* 11 */ -#endif -#ifndef TkCreateCursorFromData -#define TkCreateCursorFromData \ - (tkIntStubsPtr->tkCreateCursorFromData) /* 12 */ -#endif -#ifndef TkCreateFrame -#define TkCreateFrame \ - (tkIntStubsPtr->tkCreateFrame) /* 13 */ -#endif -#ifndef TkCreateMainWindow -#define TkCreateMainWindow \ - (tkIntStubsPtr->tkCreateMainWindow) /* 14 */ -#endif -#ifndef TkCurrentTime -#define TkCurrentTime \ - (tkIntStubsPtr->tkCurrentTime) /* 15 */ -#endif -#ifndef TkDeleteAllImages -#define TkDeleteAllImages \ - (tkIntStubsPtr->tkDeleteAllImages) /* 16 */ -#endif -#ifndef TkDoConfigureNotify -#define TkDoConfigureNotify \ - (tkIntStubsPtr->tkDoConfigureNotify) /* 17 */ -#endif -#ifndef TkDrawInsetFocusHighlight -#define TkDrawInsetFocusHighlight \ - (tkIntStubsPtr->tkDrawInsetFocusHighlight) /* 18 */ -#endif -#ifndef TkEventDeadWindow -#define TkEventDeadWindow \ - (tkIntStubsPtr->tkEventDeadWindow) /* 19 */ -#endif -#ifndef TkFillPolygon -#define TkFillPolygon \ - (tkIntStubsPtr->tkFillPolygon) /* 20 */ -#endif -#ifndef TkFindStateNum -#define TkFindStateNum \ - (tkIntStubsPtr->tkFindStateNum) /* 21 */ -#endif -#ifndef TkFindStateString -#define TkFindStateString \ - (tkIntStubsPtr->tkFindStateString) /* 22 */ -#endif -#ifndef TkFocusDeadWindow -#define TkFocusDeadWindow \ - (tkIntStubsPtr->tkFocusDeadWindow) /* 23 */ -#endif -#ifndef TkFocusFilterEvent -#define TkFocusFilterEvent \ - (tkIntStubsPtr->tkFocusFilterEvent) /* 24 */ -#endif -#ifndef TkFocusKeyEvent -#define TkFocusKeyEvent \ - (tkIntStubsPtr->tkFocusKeyEvent) /* 25 */ -#endif -#ifndef TkFontPkgInit -#define TkFontPkgInit \ - (tkIntStubsPtr->tkFontPkgInit) /* 26 */ -#endif -#ifndef TkFontPkgFree -#define TkFontPkgFree \ - (tkIntStubsPtr->tkFontPkgFree) /* 27 */ -#endif -#ifndef TkFreeBindingTags -#define TkFreeBindingTags \ - (tkIntStubsPtr->tkFreeBindingTags) /* 28 */ -#endif -#ifndef TkpFreeCursor -#define TkpFreeCursor \ - (tkIntStubsPtr->tkpFreeCursor) /* 29 */ -#endif -#ifndef TkGetBitmapData -#define TkGetBitmapData \ - (tkIntStubsPtr->tkGetBitmapData) /* 30 */ -#endif -#ifndef TkGetButtPoints -#define TkGetButtPoints \ - (tkIntStubsPtr->tkGetButtPoints) /* 31 */ -#endif -#ifndef TkGetCursorByName -#define TkGetCursorByName \ - (tkIntStubsPtr->tkGetCursorByName) /* 32 */ -#endif -#ifndef TkGetDefaultScreenName -#define TkGetDefaultScreenName \ - (tkIntStubsPtr->tkGetDefaultScreenName) /* 33 */ -#endif -#ifndef TkGetDisplay -#define TkGetDisplay \ - (tkIntStubsPtr->tkGetDisplay) /* 34 */ -#endif -#ifndef TkGetDisplayOf -#define TkGetDisplayOf \ - (tkIntStubsPtr->tkGetDisplayOf) /* 35 */ -#endif -#ifndef TkGetFocusWin -#define TkGetFocusWin \ - (tkIntStubsPtr->tkGetFocusWin) /* 36 */ -#endif -#ifndef TkGetInterpNames -#define TkGetInterpNames \ - (tkIntStubsPtr->tkGetInterpNames) /* 37 */ -#endif -#ifndef TkGetMiterPoints -#define TkGetMiterPoints \ - (tkIntStubsPtr->tkGetMiterPoints) /* 38 */ -#endif -#ifndef TkGetPointerCoords -#define TkGetPointerCoords \ - (tkIntStubsPtr->tkGetPointerCoords) /* 39 */ -#endif -#ifndef TkGetServerInfo -#define TkGetServerInfo \ - (tkIntStubsPtr->tkGetServerInfo) /* 40 */ -#endif -#ifndef TkGrabDeadWindow -#define TkGrabDeadWindow \ - (tkIntStubsPtr->tkGrabDeadWindow) /* 41 */ -#endif -#ifndef TkGrabState -#define TkGrabState \ - (tkIntStubsPtr->tkGrabState) /* 42 */ -#endif -#ifndef TkIncludePoint -#define TkIncludePoint \ - (tkIntStubsPtr->tkIncludePoint) /* 43 */ -#endif -#ifndef TkInOutEvents -#define TkInOutEvents \ - (tkIntStubsPtr->tkInOutEvents) /* 44 */ -#endif -#ifndef TkInstallFrameMenu -#define TkInstallFrameMenu \ - (tkIntStubsPtr->tkInstallFrameMenu) /* 45 */ -#endif -#ifndef TkKeysymToString -#define TkKeysymToString \ - (tkIntStubsPtr->tkKeysymToString) /* 46 */ -#endif -#ifndef TkLineToArea -#define TkLineToArea \ - (tkIntStubsPtr->tkLineToArea) /* 47 */ -#endif -#ifndef TkLineToPoint -#define TkLineToPoint \ - (tkIntStubsPtr->tkLineToPoint) /* 48 */ -#endif -#ifndef TkMakeBezierCurve -#define TkMakeBezierCurve \ - (tkIntStubsPtr->tkMakeBezierCurve) /* 49 */ -#endif -#ifndef TkMakeBezierPostscript -#define TkMakeBezierPostscript \ - (tkIntStubsPtr->tkMakeBezierPostscript) /* 50 */ -#endif -#ifndef TkOptionClassChanged -#define TkOptionClassChanged \ - (tkIntStubsPtr->tkOptionClassChanged) /* 51 */ -#endif -#ifndef TkOptionDeadWindow -#define TkOptionDeadWindow \ - (tkIntStubsPtr->tkOptionDeadWindow) /* 52 */ -#endif -#ifndef TkOvalToArea -#define TkOvalToArea \ - (tkIntStubsPtr->tkOvalToArea) /* 53 */ -#endif -#ifndef TkOvalToPoint -#define TkOvalToPoint \ - (tkIntStubsPtr->tkOvalToPoint) /* 54 */ -#endif -#ifndef TkpChangeFocus -#define TkpChangeFocus \ - (tkIntStubsPtr->tkpChangeFocus) /* 55 */ -#endif -#ifndef TkpCloseDisplay -#define TkpCloseDisplay \ - (tkIntStubsPtr->tkpCloseDisplay) /* 56 */ -#endif -#ifndef TkpClaimFocus -#define TkpClaimFocus \ - (tkIntStubsPtr->tkpClaimFocus) /* 57 */ -#endif -#ifndef TkpDisplayWarning -#define TkpDisplayWarning \ - (tkIntStubsPtr->tkpDisplayWarning) /* 58 */ -#endif -#ifndef TkpGetAppName -#define TkpGetAppName \ - (tkIntStubsPtr->tkpGetAppName) /* 59 */ -#endif -#ifndef TkpGetOtherWindow -#define TkpGetOtherWindow \ - (tkIntStubsPtr->tkpGetOtherWindow) /* 60 */ -#endif -#ifndef TkpGetWrapperWindow -#define TkpGetWrapperWindow \ - (tkIntStubsPtr->tkpGetWrapperWindow) /* 61 */ -#endif -#ifndef TkpInit -#define TkpInit \ - (tkIntStubsPtr->tkpInit) /* 62 */ -#endif -#ifndef TkpInitializeMenuBindings -#define TkpInitializeMenuBindings \ - (tkIntStubsPtr->tkpInitializeMenuBindings) /* 63 */ -#endif -#ifndef TkpMakeContainer -#define TkpMakeContainer \ - (tkIntStubsPtr->tkpMakeContainer) /* 64 */ -#endif -#ifndef TkpMakeMenuWindow -#define TkpMakeMenuWindow \ - (tkIntStubsPtr->tkpMakeMenuWindow) /* 65 */ -#endif -#ifndef TkpMakeWindow -#define TkpMakeWindow \ - (tkIntStubsPtr->tkpMakeWindow) /* 66 */ -#endif -#ifndef TkpMenuNotifyToplevelCreate -#define TkpMenuNotifyToplevelCreate \ - (tkIntStubsPtr->tkpMenuNotifyToplevelCreate) /* 67 */ -#endif -#ifndef TkpOpenDisplay -#define TkpOpenDisplay \ - (tkIntStubsPtr->tkpOpenDisplay) /* 68 */ -#endif -#ifndef TkPointerEvent -#define TkPointerEvent \ - (tkIntStubsPtr->tkPointerEvent) /* 69 */ -#endif -#ifndef TkPolygonToArea -#define TkPolygonToArea \ - (tkIntStubsPtr->tkPolygonToArea) /* 70 */ -#endif -#ifndef TkPolygonToPoint -#define TkPolygonToPoint \ - (tkIntStubsPtr->tkPolygonToPoint) /* 71 */ -#endif -#ifndef TkPositionInTree -#define TkPositionInTree \ - (tkIntStubsPtr->tkPositionInTree) /* 72 */ -#endif -#ifndef TkpRedirectKeyEvent -#define TkpRedirectKeyEvent \ - (tkIntStubsPtr->tkpRedirectKeyEvent) /* 73 */ -#endif -#ifndef TkpSetMainMenubar -#define TkpSetMainMenubar \ - (tkIntStubsPtr->tkpSetMainMenubar) /* 74 */ -#endif -#ifndef TkpUseWindow -#define TkpUseWindow \ - (tkIntStubsPtr->tkpUseWindow) /* 75 */ -#endif -#ifndef TkpWindowWasRecentlyDeleted -#define TkpWindowWasRecentlyDeleted \ - (tkIntStubsPtr->tkpWindowWasRecentlyDeleted) /* 76 */ -#endif -#ifndef TkQueueEventForAllChildren -#define TkQueueEventForAllChildren \ - (tkIntStubsPtr->tkQueueEventForAllChildren) /* 77 */ -#endif -#ifndef TkReadBitmapFile -#define TkReadBitmapFile \ - (tkIntStubsPtr->tkReadBitmapFile) /* 78 */ -#endif -#ifndef TkScrollWindow -#define TkScrollWindow \ - (tkIntStubsPtr->tkScrollWindow) /* 79 */ -#endif -#ifndef TkSelDeadWindow -#define TkSelDeadWindow \ - (tkIntStubsPtr->tkSelDeadWindow) /* 80 */ -#endif -#ifndef TkSelEventProc -#define TkSelEventProc \ - (tkIntStubsPtr->tkSelEventProc) /* 81 */ -#endif -#ifndef TkSelInit -#define TkSelInit \ - (tkIntStubsPtr->tkSelInit) /* 82 */ -#endif -#ifndef TkSelPropProc -#define TkSelPropProc \ - (tkIntStubsPtr->tkSelPropProc) /* 83 */ -#endif -/* Slot 84 is reserved */ -#ifndef TkSetWindowMenuBar -#define TkSetWindowMenuBar \ - (tkIntStubsPtr->tkSetWindowMenuBar) /* 85 */ -#endif -#ifndef TkStringToKeysym -#define TkStringToKeysym \ - (tkIntStubsPtr->tkStringToKeysym) /* 86 */ -#endif -#ifndef TkThickPolyLineToArea -#define TkThickPolyLineToArea \ - (tkIntStubsPtr->tkThickPolyLineToArea) /* 87 */ -#endif -#ifndef TkWmAddToColormapWindows -#define TkWmAddToColormapWindows \ - (tkIntStubsPtr->tkWmAddToColormapWindows) /* 88 */ -#endif -#ifndef TkWmDeadWindow -#define TkWmDeadWindow \ - (tkIntStubsPtr->tkWmDeadWindow) /* 89 */ -#endif -#ifndef TkWmFocusToplevel -#define TkWmFocusToplevel \ - (tkIntStubsPtr->tkWmFocusToplevel) /* 90 */ -#endif -#ifndef TkWmMapWindow -#define TkWmMapWindow \ - (tkIntStubsPtr->tkWmMapWindow) /* 91 */ -#endif -#ifndef TkWmNewWindow -#define TkWmNewWindow \ - (tkIntStubsPtr->tkWmNewWindow) /* 92 */ -#endif -#ifndef TkWmProtocolEventProc -#define TkWmProtocolEventProc \ - (tkIntStubsPtr->tkWmProtocolEventProc) /* 93 */ -#endif -#ifndef TkWmRemoveFromColormapWindows -#define TkWmRemoveFromColormapWindows \ - (tkIntStubsPtr->tkWmRemoveFromColormapWindows) /* 94 */ -#endif -#ifndef TkWmRestackToplevel -#define TkWmRestackToplevel \ - (tkIntStubsPtr->tkWmRestackToplevel) /* 95 */ -#endif -#ifndef TkWmSetClass -#define TkWmSetClass \ - (tkIntStubsPtr->tkWmSetClass) /* 96 */ -#endif -#ifndef TkWmUnmapWindow -#define TkWmUnmapWindow \ - (tkIntStubsPtr->tkWmUnmapWindow) /* 97 */ -#endif -#ifndef TkDebugBitmap -#define TkDebugBitmap \ - (tkIntStubsPtr->tkDebugBitmap) /* 98 */ -#endif -#ifndef TkDebugBorder -#define TkDebugBorder \ - (tkIntStubsPtr->tkDebugBorder) /* 99 */ -#endif -#ifndef TkDebugCursor -#define TkDebugCursor \ - (tkIntStubsPtr->tkDebugCursor) /* 100 */ -#endif -#ifndef TkDebugColor -#define TkDebugColor \ - (tkIntStubsPtr->tkDebugColor) /* 101 */ -#endif -#ifndef TkDebugConfig -#define TkDebugConfig \ - (tkIntStubsPtr->tkDebugConfig) /* 102 */ -#endif -#ifndef TkDebugFont -#define TkDebugFont \ - (tkIntStubsPtr->tkDebugFont) /* 103 */ -#endif -#ifndef TkFindStateNumObj -#define TkFindStateNumObj \ - (tkIntStubsPtr->tkFindStateNumObj) /* 104 */ -#endif -#ifndef TkGetBitmapPredefTable -#define TkGetBitmapPredefTable \ - (tkIntStubsPtr->tkGetBitmapPredefTable) /* 105 */ -#endif -#ifndef TkGetDisplayList -#define TkGetDisplayList \ - (tkIntStubsPtr->tkGetDisplayList) /* 106 */ -#endif -#ifndef TkGetMainInfoList -#define TkGetMainInfoList \ - (tkIntStubsPtr->tkGetMainInfoList) /* 107 */ -#endif -#ifndef TkGetWindowFromObj -#define TkGetWindowFromObj \ - (tkIntStubsPtr->tkGetWindowFromObj) /* 108 */ -#endif -#ifndef TkpGetString -#define TkpGetString \ - (tkIntStubsPtr->tkpGetString) /* 109 */ -#endif -#ifndef TkpGetSubFonts -#define TkpGetSubFonts \ - (tkIntStubsPtr->tkpGetSubFonts) /* 110 */ -#endif -#ifndef TkpGetSystemDefault -#define TkpGetSystemDefault \ - (tkIntStubsPtr->tkpGetSystemDefault) /* 111 */ -#endif -#ifndef TkpMenuThreadInit -#define TkpMenuThreadInit \ - (tkIntStubsPtr->tkpMenuThreadInit) /* 112 */ -#endif -#ifndef TkClipBox -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#endif -#ifndef TkCreateRegion -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#endif -#ifndef TkDestroyRegion -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#endif -#ifndef TkIntersectRegion -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#endif -#ifndef TkRectInRegion -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#endif -#ifndef TkSetRegion -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#endif -#ifndef TkUnionRectWithRegion -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -#endif -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpCreateNativeBitmap -#define TkpCreateNativeBitmap \ - (tkIntStubsPtr->tkpCreateNativeBitmap) /* 121 */ -#endif -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpDefineNativeBitmaps -#define TkpDefineNativeBitmaps \ - (tkIntStubsPtr->tkpDefineNativeBitmaps) /* 122 */ -#endif -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpGetNativeAppBitmap -#define TkpGetNativeAppBitmap \ - (tkIntStubsPtr->tkpGetNativeAppBitmap) /* 124 */ -#endif -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#ifndef TkpDrawHighlightBorder -#define TkpDrawHighlightBorder \ - (tkIntStubsPtr->tkpDrawHighlightBorder) /* 135 */ -#endif -#ifndef TkSetFocusWin -#define TkSetFocusWin \ - (tkIntStubsPtr->tkSetFocusWin) /* 136 */ -#endif -#ifndef TkpSetKeycodeAndState -#define TkpSetKeycodeAndState \ - (tkIntStubsPtr->tkpSetKeycodeAndState) /* 137 */ -#endif -#ifndef TkpGetKeySym -#define TkpGetKeySym \ - (tkIntStubsPtr->tkpGetKeySym) /* 138 */ -#endif -#ifndef TkpInitKeymapInfo -#define TkpInitKeymapInfo \ - (tkIntStubsPtr->tkpInitKeymapInfo) /* 139 */ -#endif -#ifndef TkPhotoGetValidRegion -#define TkPhotoGetValidRegion \ - (tkIntStubsPtr->tkPhotoGetValidRegion) /* 140 */ -#endif -#ifndef TkWmStackorderToplevel -#define TkWmStackorderToplevel \ - (tkIntStubsPtr->tkWmStackorderToplevel) /* 141 */ -#endif -#ifndef TkFocusFree -#define TkFocusFree \ - (tkIntStubsPtr->tkFocusFree) /* 142 */ -#endif -#ifndef TkClipCleanup -#define TkClipCleanup \ - (tkIntStubsPtr->tkClipCleanup) /* 143 */ -#endif -#ifndef TkGCCleanup -#define TkGCCleanup \ - (tkIntStubsPtr->tkGCCleanup) /* 144 */ -#endif -#ifndef TkSubtractRegion -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#endif -#ifndef TkStylePkgInit -#define TkStylePkgInit \ - (tkIntStubsPtr->tkStylePkgInit) /* 146 */ -#endif -#ifndef TkStylePkgFree -#define TkStylePkgFree \ - (tkIntStubsPtr->tkStylePkgFree) /* 147 */ -#endif -#ifndef TkToplevelWindowForCommand -#define TkToplevelWindowForCommand \ - (tkIntStubsPtr->tkToplevelWindowForCommand) /* 148 */ -#endif -#ifndef TkGetOptionSpec -#define TkGetOptionSpec \ - (tkIntStubsPtr->tkGetOptionSpec) /* 149 */ -#endif -#ifndef TkMakeRawCurve -#define TkMakeRawCurve \ - (tkIntStubsPtr->tkMakeRawCurve) /* 150 */ -#endif -#ifndef TkMakeRawCurvePostscript -#define TkMakeRawCurvePostscript \ - (tkIntStubsPtr->tkMakeRawCurvePostscript) /* 151 */ -#endif -#ifndef TkpDrawFrame -#define TkpDrawFrame \ - (tkIntStubsPtr->tkpDrawFrame) /* 152 */ -#endif -#ifndef TkCreateThreadExitHandler -#define TkCreateThreadExitHandler \ - (tkIntStubsPtr->tkCreateThreadExitHandler) /* 153 */ -#endif -#ifndef TkDeleteThreadExitHandler -#define TkDeleteThreadExitHandler \ - (tkIntStubsPtr->tkDeleteThreadExitHandler) /* 154 */ -#endif -/* Slot 155 is reserved */ -#ifndef TkpTestembedCmd -#define TkpTestembedCmd \ - (tkIntStubsPtr->tkpTestembedCmd) /* 156 */ -#endif -#ifndef TkpTesttextCmd -#define TkpTesttextCmd \ - (tkIntStubsPtr->tkpTesttextCmd) /* 157 */ -#endif -/* Slot 158 is reserved */ -/* Slot 159 is reserved */ -/* Slot 160 is reserved */ -/* Slot 161 is reserved */ -/* Slot 162 is reserved */ -/* Slot 163 is reserved */ -/* Slot 164 is reserved */ -/* Slot 165 is reserved */ -/* Slot 166 is reserved */ -/* Slot 167 is reserved */ -/* Slot 168 is reserved */ -#ifndef TkStateParseProc -#define TkStateParseProc \ - (tkIntStubsPtr->tkStateParseProc) /* 169 */ -#endif -#ifndef TkStatePrintProc -#define TkStatePrintProc \ - (tkIntStubsPtr->tkStatePrintProc) /* 170 */ -#endif -#ifndef TkCanvasDashParseProc -#define TkCanvasDashParseProc \ - (tkIntStubsPtr->tkCanvasDashParseProc) /* 171 */ -#endif -#ifndef TkCanvasDashPrintProc -#define TkCanvasDashPrintProc \ - (tkIntStubsPtr->tkCanvasDashPrintProc) /* 172 */ -#endif -#ifndef TkOffsetParseProc -#define TkOffsetParseProc \ - (tkIntStubsPtr->tkOffsetParseProc) /* 173 */ -#endif -#ifndef TkOffsetPrintProc -#define TkOffsetPrintProc \ - (tkIntStubsPtr->tkOffsetPrintProc) /* 174 */ -#endif -#ifndef TkPixelParseProc -#define TkPixelParseProc \ - (tkIntStubsPtr->tkPixelParseProc) /* 175 */ -#endif -#ifndef TkPixelPrintProc -#define TkPixelPrintProc \ - (tkIntStubsPtr->tkPixelPrintProc) /* 176 */ -#endif -#ifndef TkOrientParseProc -#define TkOrientParseProc \ - (tkIntStubsPtr->tkOrientParseProc) /* 177 */ -#endif -#ifndef TkOrientPrintProc -#define TkOrientPrintProc \ - (tkIntStubsPtr->tkOrientPrintProc) /* 178 */ -#endif -#ifndef TkSmoothParseProc -#define TkSmoothParseProc \ - (tkIntStubsPtr->tkSmoothParseProc) /* 179 */ -#endif -#ifndef TkSmoothPrintProc -#define TkSmoothPrintProc \ - (tkIntStubsPtr->tkSmoothPrintProc) /* 180 */ -#endif -/* Slot 181 is reserved */ -/* Slot 182 is reserved */ -/* Slot 183 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkIntStubsPtr->tkUnusedStubEntry) /* 184 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TK) - -/* - * These macros are just wrappers for the equivalent X Region calls. - */ -# undef TkClipBox -# undef TkCreateRegion -# undef TkDestroyRegion -# undef TkIntersectRegion -# undef TkRectInRegion -# undef TkSetRegion -# undef TkSubtractRegion -# undef TkUnionRectWithRegion - -# define TkClipBox(rgn, rect) XClipBox((Region) (rgn), (rect)) -# define TkCreateRegion() (TkRegion) XCreateRegion() -# define TkDestroyRegion(rgn) XDestroyRegion((Region) (rgn)) -# define TkIntersectRegion(a, b, r) XIntersectRegion((Region) (a), \ -(Region) (b), (Region) (r)) -# define TkRectInRegion(r, x, y, w, h) XRectInRegion((Region) (r), (x), (y), (w), (h)) -# define TkSetRegion(d, gc, rgn) XSetRegion((d), (gc), (Region) (rgn)) -# define TkSubtractRegion(a, b, r) XSubtractRegion((Region) (a), \ -(Region) (b), (Region) (r)) -# define TkUnionRectWithRegion(rect, src, ret) XUnionRectWithRegion((rect), \ -(Region) (src), (Region) (ret)) -#endif /* !__CYGWIN__*/ - -#undef TkUnusedStubEntry -#if defined(__CYGWIN__) && defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) -# undef TkBindDeadWindow -# define TkBindDeadWindow(winPtr) /* Removed from Cygwins stub table, just do nothing */ -#endif - -#endif /* _TKINTDECLS */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntPlatDecls.h deleted file mode 100644 index 86127fed5..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntPlatDecls.h +++ /dev/null @@ -1,1228 +0,0 @@ -/* - * tkIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTPLATDECLS -#define _TKINTPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TkAlignImageData_TCL_DECLARED -#define TkAlignImageData_TCL_DECLARED -/* 0 */ -EXTERN char * TkAlignImageData(XImage *image, int alignment, - int bitOrder); -#endif -/* Slot 1 is reserved */ -#ifndef TkGenerateActivateEvents_TCL_DECLARED -#define TkGenerateActivateEvents_TCL_DECLARED -/* 2 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -#endif -#ifndef TkpGetMS_TCL_DECLARED -#define TkpGetMS_TCL_DECLARED -/* 3 */ -EXTERN unsigned long TkpGetMS(void); -#endif -#ifndef TkPointerDeadWindow_TCL_DECLARED -#define TkPointerDeadWindow_TCL_DECLARED -/* 4 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkpPrintWindowId_TCL_DECLARED -#define TkpPrintWindowId_TCL_DECLARED -/* 5 */ -EXTERN void TkpPrintWindowId(char *buf, Window window); -#endif -#ifndef TkpScanWindowId_TCL_DECLARED -#define TkpScanWindowId_TCL_DECLARED -/* 6 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - CONST char *string, Window *idPtr); -#endif -#ifndef TkpSetCapture_TCL_DECLARED -#define TkpSetCapture_TCL_DECLARED -/* 7 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -#endif -#ifndef TkpSetCursor_TCL_DECLARED -#define TkpSetCursor_TCL_DECLARED -/* 8 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -#endif -#ifndef TkpWmSetState_TCL_DECLARED -#define TkpWmSetState_TCL_DECLARED -/* 9 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -#endif -#ifndef TkSetPixmapColormap_TCL_DECLARED -#define TkSetPixmapColormap_TCL_DECLARED -/* 10 */ -EXTERN void TkSetPixmapColormap(Pixmap pixmap, Colormap colormap); -#endif -#ifndef TkWinCancelMouseTimer_TCL_DECLARED -#define TkWinCancelMouseTimer_TCL_DECLARED -/* 11 */ -EXTERN void TkWinCancelMouseTimer(void); -#endif -#ifndef TkWinClipboardRender_TCL_DECLARED -#define TkWinClipboardRender_TCL_DECLARED -/* 12 */ -EXTERN void TkWinClipboardRender(TkDisplay *dispPtr, UINT format); -#endif -#ifndef TkWinEmbeddedEventProc_TCL_DECLARED -#define TkWinEmbeddedEventProc_TCL_DECLARED -/* 13 */ -EXTERN LRESULT TkWinEmbeddedEventProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -#endif -#ifndef TkWinFillRect_TCL_DECLARED -#define TkWinFillRect_TCL_DECLARED -/* 14 */ -EXTERN void TkWinFillRect(HDC dc, int x, int y, int width, - int height, int pixel); -#endif -#ifndef TkWinGetBorderPixels_TCL_DECLARED -#define TkWinGetBorderPixels_TCL_DECLARED -/* 15 */ -EXTERN COLORREF TkWinGetBorderPixels(Tk_Window tkwin, - Tk_3DBorder border, int which); -#endif -#ifndef TkWinGetDrawableDC_TCL_DECLARED -#define TkWinGetDrawableDC_TCL_DECLARED -/* 16 */ -EXTERN HDC TkWinGetDrawableDC(Display *display, Drawable d, - TkWinDCState *state); -#endif -#ifndef TkWinGetModifierState_TCL_DECLARED -#define TkWinGetModifierState_TCL_DECLARED -/* 17 */ -EXTERN int TkWinGetModifierState(void); -#endif -#ifndef TkWinGetSystemPalette_TCL_DECLARED -#define TkWinGetSystemPalette_TCL_DECLARED -/* 18 */ -EXTERN HPALETTE TkWinGetSystemPalette(void); -#endif -#ifndef TkWinGetWrapperWindow_TCL_DECLARED -#define TkWinGetWrapperWindow_TCL_DECLARED -/* 19 */ -EXTERN HWND TkWinGetWrapperWindow(Tk_Window tkwin); -#endif -#ifndef TkWinHandleMenuEvent_TCL_DECLARED -#define TkWinHandleMenuEvent_TCL_DECLARED -/* 20 */ -EXTERN int TkWinHandleMenuEvent(HWND *phwnd, UINT *pMessage, - WPARAM *pwParam, LPARAM *plParam, - LRESULT *plResult); -#endif -#ifndef TkWinIndexOfColor_TCL_DECLARED -#define TkWinIndexOfColor_TCL_DECLARED -/* 21 */ -EXTERN int TkWinIndexOfColor(XColor *colorPtr); -#endif -#ifndef TkWinReleaseDrawableDC_TCL_DECLARED -#define TkWinReleaseDrawableDC_TCL_DECLARED -/* 22 */ -EXTERN void TkWinReleaseDrawableDC(Drawable d, HDC hdc, - TkWinDCState *state); -#endif -#ifndef TkWinResendEvent_TCL_DECLARED -#define TkWinResendEvent_TCL_DECLARED -/* 23 */ -EXTERN LRESULT TkWinResendEvent(WNDPROC wndproc, HWND hwnd, - XEvent *eventPtr); -#endif -#ifndef TkWinSelectPalette_TCL_DECLARED -#define TkWinSelectPalette_TCL_DECLARED -/* 24 */ -EXTERN HPALETTE TkWinSelectPalette(HDC dc, Colormap colormap); -#endif -#ifndef TkWinSetMenu_TCL_DECLARED -#define TkWinSetMenu_TCL_DECLARED -/* 25 */ -EXTERN void TkWinSetMenu(Tk_Window tkwin, HMENU hMenu); -#endif -#ifndef TkWinSetWindowPos_TCL_DECLARED -#define TkWinSetWindowPos_TCL_DECLARED -/* 26 */ -EXTERN void TkWinSetWindowPos(HWND hwnd, HWND siblingHwnd, - int pos); -#endif -#ifndef TkWinWmCleanup_TCL_DECLARED -#define TkWinWmCleanup_TCL_DECLARED -/* 27 */ -EXTERN void TkWinWmCleanup(HINSTANCE hInstance); -#endif -#ifndef TkWinXCleanup_TCL_DECLARED -#define TkWinXCleanup_TCL_DECLARED -/* 28 */ -EXTERN void TkWinXCleanup(ClientData clientData); -#endif -#ifndef TkWinXInit_TCL_DECLARED -#define TkWinXInit_TCL_DECLARED -/* 29 */ -EXTERN void TkWinXInit(HINSTANCE hInstance); -#endif -#ifndef TkWinSetForegroundWindow_TCL_DECLARED -#define TkWinSetForegroundWindow_TCL_DECLARED -/* 30 */ -EXTERN void TkWinSetForegroundWindow(TkWindow *winPtr); -#endif -#ifndef TkWinDialogDebug_TCL_DECLARED -#define TkWinDialogDebug_TCL_DECLARED -/* 31 */ -EXTERN void TkWinDialogDebug(int debug); -#endif -#ifndef TkWinGetMenuSystemDefault_TCL_DECLARED -#define TkWinGetMenuSystemDefault_TCL_DECLARED -/* 32 */ -EXTERN Tcl_Obj * TkWinGetMenuSystemDefault(Tk_Window tkwin, - CONST char *dbName, CONST char *className); -#endif -#ifndef TkWinGetPlatformId_TCL_DECLARED -#define TkWinGetPlatformId_TCL_DECLARED -/* 33 */ -EXTERN int TkWinGetPlatformId(void); -#endif -#ifndef TkWinSetHINSTANCE_TCL_DECLARED -#define TkWinSetHINSTANCE_TCL_DECLARED -/* 34 */ -EXTERN void TkWinSetHINSTANCE(HINSTANCE hInstance); -#endif -#ifndef TkWinGetPlatformTheme_TCL_DECLARED -#define TkWinGetPlatformTheme_TCL_DECLARED -/* 35 */ -EXTERN int TkWinGetPlatformTheme(void); -#endif -#ifndef TkWinChildProc_TCL_DECLARED -#define TkWinChildProc_TCL_DECLARED -/* 36 */ -EXTERN LRESULT __stdcall TkWinChildProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -#endif -#ifndef TkCreateXEventSource_TCL_DECLARED -#define TkCreateXEventSource_TCL_DECLARED -/* 37 */ -EXTERN void TkCreateXEventSource(void); -#endif -#ifndef TkpCmapStressed_TCL_DECLARED -#define TkpCmapStressed_TCL_DECLARED -/* 38 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -#endif -#ifndef TkpSync_TCL_DECLARED -#define TkpSync_TCL_DECLARED -/* 39 */ -EXTERN void TkpSync(Display *display); -#endif -#ifndef TkUnixContainerId_TCL_DECLARED -#define TkUnixContainerId_TCL_DECLARED -/* 40 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -#endif -#ifndef TkUnixDoOneXEvent_TCL_DECLARED -#define TkUnixDoOneXEvent_TCL_DECLARED -/* 41 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -#endif -#ifndef TkUnixSetMenubar_TCL_DECLARED -#define TkUnixSetMenubar_TCL_DECLARED -/* 42 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -#endif -#ifndef TkWmCleanup_TCL_DECLARED -#define TkWmCleanup_TCL_DECLARED -/* 43 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkSendCleanup_TCL_DECLARED -#define TkSendCleanup_TCL_DECLARED -/* 44 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkpTestsendCmd_TCL_DECLARED -#define TkpTestsendCmd_TCL_DECLARED -/* 45 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST char **argv); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkGenerateActivateEvents_TCL_DECLARED -#define TkGenerateActivateEvents_TCL_DECLARED -/* 0 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -#endif -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TkPointerDeadWindow_TCL_DECLARED -#define TkPointerDeadWindow_TCL_DECLARED -/* 3 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkpSetCapture_TCL_DECLARED -#define TkpSetCapture_TCL_DECLARED -/* 4 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -#endif -#ifndef TkpSetCursor_TCL_DECLARED -#define TkpSetCursor_TCL_DECLARED -/* 5 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -#endif -#ifndef TkpWmSetState_TCL_DECLARED -#define TkpWmSetState_TCL_DECLARED -/* 6 */ -EXTERN void TkpWmSetState(TkWindow *winPtr, int state); -#endif -#ifndef TkAboutDlg_TCL_DECLARED -#define TkAboutDlg_TCL_DECLARED -/* 7 */ -EXTERN void TkAboutDlg(void); -#endif -#ifndef TkMacOSXButtonKeyState_TCL_DECLARED -#define TkMacOSXButtonKeyState_TCL_DECLARED -/* 8 */ -EXTERN unsigned int TkMacOSXButtonKeyState(void); -#endif -#ifndef TkMacOSXClearMenubarActive_TCL_DECLARED -#define TkMacOSXClearMenubarActive_TCL_DECLARED -/* 9 */ -EXTERN void TkMacOSXClearMenubarActive(void); -#endif -#ifndef TkMacOSXDispatchMenuEvent_TCL_DECLARED -#define TkMacOSXDispatchMenuEvent_TCL_DECLARED -/* 10 */ -EXTERN int TkMacOSXDispatchMenuEvent(int menuID, int index); -#endif -#ifndef TkMacOSXInstallCursor_TCL_DECLARED -#define TkMacOSXInstallCursor_TCL_DECLARED -/* 11 */ -EXTERN void TkMacOSXInstallCursor(int resizeOverride); -#endif -#ifndef TkMacOSXHandleTearoffMenu_TCL_DECLARED -#define TkMacOSXHandleTearoffMenu_TCL_DECLARED -/* 12 */ -EXTERN void TkMacOSXHandleTearoffMenu(void); -#endif -/* Slot 13 is reserved */ -#ifndef TkMacOSXDoHLEvent_TCL_DECLARED -#define TkMacOSXDoHLEvent_TCL_DECLARED -/* 14 */ -EXTERN int TkMacOSXDoHLEvent(VOID *theEvent); -#endif -/* Slot 15 is reserved */ -#ifndef TkMacOSXGetXWindow_TCL_DECLARED -#define TkMacOSXGetXWindow_TCL_DECLARED -/* 16 */ -EXTERN Window TkMacOSXGetXWindow(VOID *macWinPtr); -#endif -#ifndef TkMacOSXGrowToplevel_TCL_DECLARED -#define TkMacOSXGrowToplevel_TCL_DECLARED -/* 17 */ -EXTERN int TkMacOSXGrowToplevel(VOID *whichWindow, XPoint start); -#endif -#ifndef TkMacOSXHandleMenuSelect_TCL_DECLARED -#define TkMacOSXHandleMenuSelect_TCL_DECLARED -/* 18 */ -EXTERN void TkMacOSXHandleMenuSelect(short theMenu, - unsigned short theItem, int optionKeyPressed); -#endif -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#ifndef TkMacOSXInvalidateWindow_TCL_DECLARED -#define TkMacOSXInvalidateWindow_TCL_DECLARED -/* 21 */ -EXTERN void TkMacOSXInvalidateWindow(MacDrawable *macWin, - int flag); -#endif -#ifndef TkMacOSXIsCharacterMissing_TCL_DECLARED -#define TkMacOSXIsCharacterMissing_TCL_DECLARED -/* 22 */ -EXTERN int TkMacOSXIsCharacterMissing(Tk_Font tkfont, - unsigned int searchChar); -#endif -#ifndef TkMacOSXMakeRealWindowExist_TCL_DECLARED -#define TkMacOSXMakeRealWindowExist_TCL_DECLARED -/* 23 */ -EXTERN void TkMacOSXMakeRealWindowExist(TkWindow *winPtr); -#endif -#ifndef TkMacOSXMakeStippleMap_TCL_DECLARED -#define TkMacOSXMakeStippleMap_TCL_DECLARED -/* 24 */ -EXTERN VOID * TkMacOSXMakeStippleMap(Drawable d1, Drawable d2); -#endif -#ifndef TkMacOSXMenuClick_TCL_DECLARED -#define TkMacOSXMenuClick_TCL_DECLARED -/* 25 */ -EXTERN void TkMacOSXMenuClick(void); -#endif -#ifndef TkMacOSXRegisterOffScreenWindow_TCL_DECLARED -#define TkMacOSXRegisterOffScreenWindow_TCL_DECLARED -/* 26 */ -EXTERN void TkMacOSXRegisterOffScreenWindow(Window window, - VOID *portPtr); -#endif -#ifndef TkMacOSXResizable_TCL_DECLARED -#define TkMacOSXResizable_TCL_DECLARED -/* 27 */ -EXTERN int TkMacOSXResizable(TkWindow *winPtr); -#endif -#ifndef TkMacOSXSetHelpMenuItemCount_TCL_DECLARED -#define TkMacOSXSetHelpMenuItemCount_TCL_DECLARED -/* 28 */ -EXTERN void TkMacOSXSetHelpMenuItemCount(void); -#endif -#ifndef TkMacOSXSetScrollbarGrow_TCL_DECLARED -#define TkMacOSXSetScrollbarGrow_TCL_DECLARED -/* 29 */ -EXTERN void TkMacOSXSetScrollbarGrow(TkWindow *winPtr, int flag); -#endif -#ifndef TkMacOSXSetUpClippingRgn_TCL_DECLARED -#define TkMacOSXSetUpClippingRgn_TCL_DECLARED -/* 30 */ -EXTERN void TkMacOSXSetUpClippingRgn(Drawable drawable); -#endif -#ifndef TkMacOSXSetUpGraphicsPort_TCL_DECLARED -#define TkMacOSXSetUpGraphicsPort_TCL_DECLARED -/* 31 */ -EXTERN void TkMacOSXSetUpGraphicsPort(GC gc, VOID *destPort); -#endif -#ifndef TkMacOSXUpdateClipRgn_TCL_DECLARED -#define TkMacOSXUpdateClipRgn_TCL_DECLARED -/* 32 */ -EXTERN void TkMacOSXUpdateClipRgn(TkWindow *winPtr); -#endif -#ifndef TkMacOSXUnregisterMacWindow_TCL_DECLARED -#define TkMacOSXUnregisterMacWindow_TCL_DECLARED -/* 33 */ -EXTERN void TkMacOSXUnregisterMacWindow(VOID *portPtr); -#endif -#ifndef TkMacOSXUseMenuID_TCL_DECLARED -#define TkMacOSXUseMenuID_TCL_DECLARED -/* 34 */ -EXTERN int TkMacOSXUseMenuID(short macID); -#endif -#ifndef TkMacOSXVisableClipRgn_TCL_DECLARED -#define TkMacOSXVisableClipRgn_TCL_DECLARED -/* 35 */ -EXTERN TkRegion TkMacOSXVisableClipRgn(TkWindow *winPtr); -#endif -#ifndef TkMacOSXWinBounds_TCL_DECLARED -#define TkMacOSXWinBounds_TCL_DECLARED -/* 36 */ -EXTERN void TkMacOSXWinBounds(TkWindow *winPtr, VOID *geometry); -#endif -#ifndef TkMacOSXWindowOffset_TCL_DECLARED -#define TkMacOSXWindowOffset_TCL_DECLARED -/* 37 */ -EXTERN void TkMacOSXWindowOffset(VOID *wRef, int *xOffset, - int *yOffset); -#endif -#ifndef TkSetMacColor_TCL_DECLARED -#define TkSetMacColor_TCL_DECLARED -/* 38 */ -EXTERN int TkSetMacColor(unsigned long pixel, VOID *macColor); -#endif -#ifndef TkSetWMName_TCL_DECLARED -#define TkSetWMName_TCL_DECLARED -/* 39 */ -EXTERN void TkSetWMName(TkWindow *winPtr, Tk_Uid titleUid); -#endif -#ifndef TkSuspendClipboard_TCL_DECLARED -#define TkSuspendClipboard_TCL_DECLARED -/* 40 */ -EXTERN void TkSuspendClipboard(void); -#endif -#ifndef TkMacOSXZoomToplevel_TCL_DECLARED -#define TkMacOSXZoomToplevel_TCL_DECLARED -/* 41 */ -EXTERN int TkMacOSXZoomToplevel(VOID *whichWindow, - short zoomPart); -#endif -#ifndef Tk_TopCoordsToWindow_TCL_DECLARED -#define Tk_TopCoordsToWindow_TCL_DECLARED -/* 42 */ -EXTERN Tk_Window Tk_TopCoordsToWindow(Tk_Window tkwin, int rootX, - int rootY, int *newX, int *newY); -#endif -#ifndef TkMacOSXContainerId_TCL_DECLARED -#define TkMacOSXContainerId_TCL_DECLARED -/* 43 */ -EXTERN MacDrawable * TkMacOSXContainerId(TkWindow *winPtr); -#endif -#ifndef TkMacOSXGetHostToplevel_TCL_DECLARED -#define TkMacOSXGetHostToplevel_TCL_DECLARED -/* 44 */ -EXTERN MacDrawable * TkMacOSXGetHostToplevel(TkWindow *winPtr); -#endif -#ifndef TkMacOSXPreprocessMenu_TCL_DECLARED -#define TkMacOSXPreprocessMenu_TCL_DECLARED -/* 45 */ -EXTERN void TkMacOSXPreprocessMenu(void); -#endif -#ifndef TkpIsWindowFloating_TCL_DECLARED -#define TkpIsWindowFloating_TCL_DECLARED -/* 46 */ -EXTERN int TkpIsWindowFloating(VOID *window); -#endif -#ifndef TkMacOSXGetCapture_TCL_DECLARED -#define TkMacOSXGetCapture_TCL_DECLARED -/* 47 */ -EXTERN Tk_Window TkMacOSXGetCapture(void); -#endif -/* Slot 48 is reserved */ -#ifndef TkGetTransientMaster_TCL_DECLARED -#define TkGetTransientMaster_TCL_DECLARED -/* 49 */ -EXTERN Window TkGetTransientMaster(TkWindow *winPtr); -#endif -#ifndef TkGenerateButtonEvent_TCL_DECLARED -#define TkGenerateButtonEvent_TCL_DECLARED -/* 50 */ -EXTERN int TkGenerateButtonEvent(int x, int y, Window window, - unsigned int state); -#endif -#ifndef TkGenWMDestroyEvent_TCL_DECLARED -#define TkGenWMDestroyEvent_TCL_DECLARED -/* 51 */ -EXTERN void TkGenWMDestroyEvent(Tk_Window tkwin); -#endif -#ifndef TkMacOSXSetDrawingEnabled_TCL_DECLARED -#define TkMacOSXSetDrawingEnabled_TCL_DECLARED -/* 52 */ -EXTERN void TkMacOSXSetDrawingEnabled(TkWindow *winPtr, int flag); -#endif -#ifndef TkpGetMS_TCL_DECLARED -#define TkpGetMS_TCL_DECLARED -/* 53 */ -EXTERN unsigned long TkpGetMS(void); -#endif -#ifndef TkMacOSXDrawable_TCL_DECLARED -#define TkMacOSXDrawable_TCL_DECLARED -/* 54 */ -EXTERN VOID * TkMacOSXDrawable(Drawable drawable); -#endif -#ifndef TkpScanWindowId_TCL_DECLARED -#define TkpScanWindowId_TCL_DECLARED -/* 55 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - CONST char *string, Window *idPtr); -#endif -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -#ifndef TkCreateXEventSource_TCL_DECLARED -#define TkCreateXEventSource_TCL_DECLARED -/* 0 */ -EXTERN void TkCreateXEventSource(void); -#endif -#ifndef TkFreeWindowId_TCL_DECLARED -#define TkFreeWindowId_TCL_DECLARED -/* 1 */ -EXTERN void TkFreeWindowId(TkDisplay *dispPtr, Window w); -#endif -#ifndef TkInitXId_TCL_DECLARED -#define TkInitXId_TCL_DECLARED -/* 2 */ -EXTERN void TkInitXId(TkDisplay *dispPtr); -#endif -#ifndef TkpCmapStressed_TCL_DECLARED -#define TkpCmapStressed_TCL_DECLARED -/* 3 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -#endif -#ifndef TkpSync_TCL_DECLARED -#define TkpSync_TCL_DECLARED -/* 4 */ -EXTERN void TkpSync(Display *display); -#endif -#ifndef TkUnixContainerId_TCL_DECLARED -#define TkUnixContainerId_TCL_DECLARED -/* 5 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -#endif -#ifndef TkUnixDoOneXEvent_TCL_DECLARED -#define TkUnixDoOneXEvent_TCL_DECLARED -/* 6 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -#endif -#ifndef TkUnixSetMenubar_TCL_DECLARED -#define TkUnixSetMenubar_TCL_DECLARED -/* 7 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -#endif -#ifndef TkpScanWindowId_TCL_DECLARED -#define TkpScanWindowId_TCL_DECLARED -/* 8 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - CONST char *string, Window *idPtr); -#endif -#ifndef TkWmCleanup_TCL_DECLARED -#define TkWmCleanup_TCL_DECLARED -/* 9 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkSendCleanup_TCL_DECLARED -#define TkSendCleanup_TCL_DECLARED -/* 10 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkFreeXId_TCL_DECLARED -#define TkFreeXId_TCL_DECLARED -/* 11 */ -EXTERN void TkFreeXId(TkDisplay *dispPtr); -#endif -#ifndef TkpWmSetState_TCL_DECLARED -#define TkpWmSetState_TCL_DECLARED -/* 12 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -#endif -#ifndef TkpTestsendCmd_TCL_DECLARED -#define TkpTestsendCmd_TCL_DECLARED -/* 13 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST char **argv); -#endif -#endif /* X11 */ - -typedef struct TkIntPlatStubs { - int magic; - struct TkIntPlatStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - char * (*tkAlignImageData) (XImage *image, int alignment, int bitOrder); /* 0 */ - VOID *reserved1; - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 2 */ - unsigned long (*tkpGetMS) (void); /* 3 */ - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 4 */ - void (*tkpPrintWindowId) (char *buf, Window window); /* 5 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, CONST char *string, Window *idPtr); /* 6 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 7 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 8 */ - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 9 */ - void (*tkSetPixmapColormap) (Pixmap pixmap, Colormap colormap); /* 10 */ - void (*tkWinCancelMouseTimer) (void); /* 11 */ - void (*tkWinClipboardRender) (TkDisplay *dispPtr, UINT format); /* 12 */ - LRESULT (*tkWinEmbeddedEventProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 13 */ - void (*tkWinFillRect) (HDC dc, int x, int y, int width, int height, int pixel); /* 14 */ - COLORREF (*tkWinGetBorderPixels) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 15 */ - HDC (*tkWinGetDrawableDC) (Display *display, Drawable d, TkWinDCState *state); /* 16 */ - int (*tkWinGetModifierState) (void); /* 17 */ - HPALETTE (*tkWinGetSystemPalette) (void); /* 18 */ - HWND (*tkWinGetWrapperWindow) (Tk_Window tkwin); /* 19 */ - int (*tkWinHandleMenuEvent) (HWND *phwnd, UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, LRESULT *plResult); /* 20 */ - int (*tkWinIndexOfColor) (XColor *colorPtr); /* 21 */ - void (*tkWinReleaseDrawableDC) (Drawable d, HDC hdc, TkWinDCState *state); /* 22 */ - LRESULT (*tkWinResendEvent) (WNDPROC wndproc, HWND hwnd, XEvent *eventPtr); /* 23 */ - HPALETTE (*tkWinSelectPalette) (HDC dc, Colormap colormap); /* 24 */ - void (*tkWinSetMenu) (Tk_Window tkwin, HMENU hMenu); /* 25 */ - void (*tkWinSetWindowPos) (HWND hwnd, HWND siblingHwnd, int pos); /* 26 */ - void (*tkWinWmCleanup) (HINSTANCE hInstance); /* 27 */ - void (*tkWinXCleanup) (ClientData clientData); /* 28 */ - void (*tkWinXInit) (HINSTANCE hInstance); /* 29 */ - void (*tkWinSetForegroundWindow) (TkWindow *winPtr); /* 30 */ - void (*tkWinDialogDebug) (int debug); /* 31 */ - Tcl_Obj * (*tkWinGetMenuSystemDefault) (Tk_Window tkwin, CONST char *dbName, CONST char *className); /* 32 */ - int (*tkWinGetPlatformId) (void); /* 33 */ - void (*tkWinSetHINSTANCE) (HINSTANCE hInstance); /* 34 */ - int (*tkWinGetPlatformTheme) (void); /* 35 */ - LRESULT (__stdcall *tkWinChildProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 36 */ - void (*tkCreateXEventSource) (void); /* 37 */ - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 38 */ - void (*tkpSync) (Display *display); /* 39 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 40 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 41 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 42 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 43 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 44 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int argc, CONST char **argv); /* 45 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 0 */ - VOID *reserved1; - VOID *reserved2; - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 3 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 4 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 5 */ - void (*tkpWmSetState) (TkWindow *winPtr, int state); /* 6 */ - void (*tkAboutDlg) (void); /* 7 */ - unsigned int (*tkMacOSXButtonKeyState) (void); /* 8 */ - void (*tkMacOSXClearMenubarActive) (void); /* 9 */ - int (*tkMacOSXDispatchMenuEvent) (int menuID, int index); /* 10 */ - void (*tkMacOSXInstallCursor) (int resizeOverride); /* 11 */ - void (*tkMacOSXHandleTearoffMenu) (void); /* 12 */ - VOID *reserved13; - int (*tkMacOSXDoHLEvent) (VOID *theEvent); /* 14 */ - VOID *reserved15; - Window (*tkMacOSXGetXWindow) (VOID *macWinPtr); /* 16 */ - int (*tkMacOSXGrowToplevel) (VOID *whichWindow, XPoint start); /* 17 */ - void (*tkMacOSXHandleMenuSelect) (short theMenu, unsigned short theItem, int optionKeyPressed); /* 18 */ - VOID *reserved19; - VOID *reserved20; - void (*tkMacOSXInvalidateWindow) (MacDrawable *macWin, int flag); /* 21 */ - int (*tkMacOSXIsCharacterMissing) (Tk_Font tkfont, unsigned int searchChar); /* 22 */ - void (*tkMacOSXMakeRealWindowExist) (TkWindow *winPtr); /* 23 */ - VOID * (*tkMacOSXMakeStippleMap) (Drawable d1, Drawable d2); /* 24 */ - void (*tkMacOSXMenuClick) (void); /* 25 */ - void (*tkMacOSXRegisterOffScreenWindow) (Window window, VOID *portPtr); /* 26 */ - int (*tkMacOSXResizable) (TkWindow *winPtr); /* 27 */ - void (*tkMacOSXSetHelpMenuItemCount) (void); /* 28 */ - void (*tkMacOSXSetScrollbarGrow) (TkWindow *winPtr, int flag); /* 29 */ - void (*tkMacOSXSetUpClippingRgn) (Drawable drawable); /* 30 */ - void (*tkMacOSXSetUpGraphicsPort) (GC gc, VOID *destPort); /* 31 */ - void (*tkMacOSXUpdateClipRgn) (TkWindow *winPtr); /* 32 */ - void (*tkMacOSXUnregisterMacWindow) (VOID *portPtr); /* 33 */ - int (*tkMacOSXUseMenuID) (short macID); /* 34 */ - TkRegion (*tkMacOSXVisableClipRgn) (TkWindow *winPtr); /* 35 */ - void (*tkMacOSXWinBounds) (TkWindow *winPtr, VOID *geometry); /* 36 */ - void (*tkMacOSXWindowOffset) (VOID *wRef, int *xOffset, int *yOffset); /* 37 */ - int (*tkSetMacColor) (unsigned long pixel, VOID *macColor); /* 38 */ - void (*tkSetWMName) (TkWindow *winPtr, Tk_Uid titleUid); /* 39 */ - void (*tkSuspendClipboard) (void); /* 40 */ - int (*tkMacOSXZoomToplevel) (VOID *whichWindow, short zoomPart); /* 41 */ - Tk_Window (*tk_TopCoordsToWindow) (Tk_Window tkwin, int rootX, int rootY, int *newX, int *newY); /* 42 */ - MacDrawable * (*tkMacOSXContainerId) (TkWindow *winPtr); /* 43 */ - MacDrawable * (*tkMacOSXGetHostToplevel) (TkWindow *winPtr); /* 44 */ - void (*tkMacOSXPreprocessMenu) (void); /* 45 */ - int (*tkpIsWindowFloating) (VOID *window); /* 46 */ - Tk_Window (*tkMacOSXGetCapture) (void); /* 47 */ - VOID *reserved48; - Window (*tkGetTransientMaster) (TkWindow *winPtr); /* 49 */ - int (*tkGenerateButtonEvent) (int x, int y, Window window, unsigned int state); /* 50 */ - void (*tkGenWMDestroyEvent) (Tk_Window tkwin); /* 51 */ - void (*tkMacOSXSetDrawingEnabled) (TkWindow *winPtr, int flag); /* 52 */ - unsigned long (*tkpGetMS) (void); /* 53 */ - VOID * (*tkMacOSXDrawable) (Drawable drawable); /* 54 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, CONST char *string, Window *idPtr); /* 55 */ -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ - void (*tkCreateXEventSource) (void); /* 0 */ - void (*tkFreeWindowId) (TkDisplay *dispPtr, Window w); /* 1 */ - void (*tkInitXId) (TkDisplay *dispPtr); /* 2 */ - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 3 */ - void (*tkpSync) (Display *display); /* 4 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 5 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 6 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 7 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, CONST char *string, Window *idPtr); /* 8 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 9 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 10 */ - void (*tkFreeXId) (TkDisplay *dispPtr); /* 11 */ - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 12 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int argc, CONST char **argv); /* 13 */ -#endif /* X11 */ -} TkIntPlatStubs; - -extern TkIntPlatStubs *tkIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TkAlignImageData -#define TkAlignImageData \ - (tkIntPlatStubsPtr->tkAlignImageData) /* 0 */ -#endif -/* Slot 1 is reserved */ -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 2 */ -#endif -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 3 */ -#endif -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 4 */ -#endif -#ifndef TkpPrintWindowId -#define TkpPrintWindowId \ - (tkIntPlatStubsPtr->tkpPrintWindowId) /* 5 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 6 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 7 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 8 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 9 */ -#endif -#ifndef TkSetPixmapColormap -#define TkSetPixmapColormap \ - (tkIntPlatStubsPtr->tkSetPixmapColormap) /* 10 */ -#endif -#ifndef TkWinCancelMouseTimer -#define TkWinCancelMouseTimer \ - (tkIntPlatStubsPtr->tkWinCancelMouseTimer) /* 11 */ -#endif -#ifndef TkWinClipboardRender -#define TkWinClipboardRender \ - (tkIntPlatStubsPtr->tkWinClipboardRender) /* 12 */ -#endif -#ifndef TkWinEmbeddedEventProc -#define TkWinEmbeddedEventProc \ - (tkIntPlatStubsPtr->tkWinEmbeddedEventProc) /* 13 */ -#endif -#ifndef TkWinFillRect -#define TkWinFillRect \ - (tkIntPlatStubsPtr->tkWinFillRect) /* 14 */ -#endif -#ifndef TkWinGetBorderPixels -#define TkWinGetBorderPixels \ - (tkIntPlatStubsPtr->tkWinGetBorderPixels) /* 15 */ -#endif -#ifndef TkWinGetDrawableDC -#define TkWinGetDrawableDC \ - (tkIntPlatStubsPtr->tkWinGetDrawableDC) /* 16 */ -#endif -#ifndef TkWinGetModifierState -#define TkWinGetModifierState \ - (tkIntPlatStubsPtr->tkWinGetModifierState) /* 17 */ -#endif -#ifndef TkWinGetSystemPalette -#define TkWinGetSystemPalette \ - (tkIntPlatStubsPtr->tkWinGetSystemPalette) /* 18 */ -#endif -#ifndef TkWinGetWrapperWindow -#define TkWinGetWrapperWindow \ - (tkIntPlatStubsPtr->tkWinGetWrapperWindow) /* 19 */ -#endif -#ifndef TkWinHandleMenuEvent -#define TkWinHandleMenuEvent \ - (tkIntPlatStubsPtr->tkWinHandleMenuEvent) /* 20 */ -#endif -#ifndef TkWinIndexOfColor -#define TkWinIndexOfColor \ - (tkIntPlatStubsPtr->tkWinIndexOfColor) /* 21 */ -#endif -#ifndef TkWinReleaseDrawableDC -#define TkWinReleaseDrawableDC \ - (tkIntPlatStubsPtr->tkWinReleaseDrawableDC) /* 22 */ -#endif -#ifndef TkWinResendEvent -#define TkWinResendEvent \ - (tkIntPlatStubsPtr->tkWinResendEvent) /* 23 */ -#endif -#ifndef TkWinSelectPalette -#define TkWinSelectPalette \ - (tkIntPlatStubsPtr->tkWinSelectPalette) /* 24 */ -#endif -#ifndef TkWinSetMenu -#define TkWinSetMenu \ - (tkIntPlatStubsPtr->tkWinSetMenu) /* 25 */ -#endif -#ifndef TkWinSetWindowPos -#define TkWinSetWindowPos \ - (tkIntPlatStubsPtr->tkWinSetWindowPos) /* 26 */ -#endif -#ifndef TkWinWmCleanup -#define TkWinWmCleanup \ - (tkIntPlatStubsPtr->tkWinWmCleanup) /* 27 */ -#endif -#ifndef TkWinXCleanup -#define TkWinXCleanup \ - (tkIntPlatStubsPtr->tkWinXCleanup) /* 28 */ -#endif -#ifndef TkWinXInit -#define TkWinXInit \ - (tkIntPlatStubsPtr->tkWinXInit) /* 29 */ -#endif -#ifndef TkWinSetForegroundWindow -#define TkWinSetForegroundWindow \ - (tkIntPlatStubsPtr->tkWinSetForegroundWindow) /* 30 */ -#endif -#ifndef TkWinDialogDebug -#define TkWinDialogDebug \ - (tkIntPlatStubsPtr->tkWinDialogDebug) /* 31 */ -#endif -#ifndef TkWinGetMenuSystemDefault -#define TkWinGetMenuSystemDefault \ - (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault) /* 32 */ -#endif -#ifndef TkWinGetPlatformId -#define TkWinGetPlatformId \ - (tkIntPlatStubsPtr->tkWinGetPlatformId) /* 33 */ -#endif -#ifndef TkWinSetHINSTANCE -#define TkWinSetHINSTANCE \ - (tkIntPlatStubsPtr->tkWinSetHINSTANCE) /* 34 */ -#endif -#ifndef TkWinGetPlatformTheme -#define TkWinGetPlatformTheme \ - (tkIntPlatStubsPtr->tkWinGetPlatformTheme) /* 35 */ -#endif -#ifndef TkWinChildProc -#define TkWinChildProc \ - (tkIntPlatStubsPtr->tkWinChildProc) /* 36 */ -#endif -#ifndef TkCreateXEventSource -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 37 */ -#endif -#ifndef TkpCmapStressed -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 38 */ -#endif -#ifndef TkpSync -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 39 */ -#endif -#ifndef TkUnixContainerId -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 40 */ -#endif -#ifndef TkUnixDoOneXEvent -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 41 */ -#endif -#ifndef TkUnixSetMenubar -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 42 */ -#endif -#ifndef TkWmCleanup -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 43 */ -#endif -#ifndef TkSendCleanup -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 44 */ -#endif -#ifndef TkpTestsendCmd -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 45 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 0 */ -#endif -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 3 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 4 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 5 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 6 */ -#endif -#ifndef TkAboutDlg -#define TkAboutDlg \ - (tkIntPlatStubsPtr->tkAboutDlg) /* 7 */ -#endif -#ifndef TkMacOSXButtonKeyState -#define TkMacOSXButtonKeyState \ - (tkIntPlatStubsPtr->tkMacOSXButtonKeyState) /* 8 */ -#endif -#ifndef TkMacOSXClearMenubarActive -#define TkMacOSXClearMenubarActive \ - (tkIntPlatStubsPtr->tkMacOSXClearMenubarActive) /* 9 */ -#endif -#ifndef TkMacOSXDispatchMenuEvent -#define TkMacOSXDispatchMenuEvent \ - (tkIntPlatStubsPtr->tkMacOSXDispatchMenuEvent) /* 10 */ -#endif -#ifndef TkMacOSXInstallCursor -#define TkMacOSXInstallCursor \ - (tkIntPlatStubsPtr->tkMacOSXInstallCursor) /* 11 */ -#endif -#ifndef TkMacOSXHandleTearoffMenu -#define TkMacOSXHandleTearoffMenu \ - (tkIntPlatStubsPtr->tkMacOSXHandleTearoffMenu) /* 12 */ -#endif -/* Slot 13 is reserved */ -#ifndef TkMacOSXDoHLEvent -#define TkMacOSXDoHLEvent \ - (tkIntPlatStubsPtr->tkMacOSXDoHLEvent) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TkMacOSXGetXWindow -#define TkMacOSXGetXWindow \ - (tkIntPlatStubsPtr->tkMacOSXGetXWindow) /* 16 */ -#endif -#ifndef TkMacOSXGrowToplevel -#define TkMacOSXGrowToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGrowToplevel) /* 17 */ -#endif -#ifndef TkMacOSXHandleMenuSelect -#define TkMacOSXHandleMenuSelect \ - (tkIntPlatStubsPtr->tkMacOSXHandleMenuSelect) /* 18 */ -#endif -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#ifndef TkMacOSXInvalidateWindow -#define TkMacOSXInvalidateWindow \ - (tkIntPlatStubsPtr->tkMacOSXInvalidateWindow) /* 21 */ -#endif -#ifndef TkMacOSXIsCharacterMissing -#define TkMacOSXIsCharacterMissing \ - (tkIntPlatStubsPtr->tkMacOSXIsCharacterMissing) /* 22 */ -#endif -#ifndef TkMacOSXMakeRealWindowExist -#define TkMacOSXMakeRealWindowExist \ - (tkIntPlatStubsPtr->tkMacOSXMakeRealWindowExist) /* 23 */ -#endif -#ifndef TkMacOSXMakeStippleMap -#define TkMacOSXMakeStippleMap \ - (tkIntPlatStubsPtr->tkMacOSXMakeStippleMap) /* 24 */ -#endif -#ifndef TkMacOSXMenuClick -#define TkMacOSXMenuClick \ - (tkIntPlatStubsPtr->tkMacOSXMenuClick) /* 25 */ -#endif -#ifndef TkMacOSXRegisterOffScreenWindow -#define TkMacOSXRegisterOffScreenWindow \ - (tkIntPlatStubsPtr->tkMacOSXRegisterOffScreenWindow) /* 26 */ -#endif -#ifndef TkMacOSXResizable -#define TkMacOSXResizable \ - (tkIntPlatStubsPtr->tkMacOSXResizable) /* 27 */ -#endif -#ifndef TkMacOSXSetHelpMenuItemCount -#define TkMacOSXSetHelpMenuItemCount \ - (tkIntPlatStubsPtr->tkMacOSXSetHelpMenuItemCount) /* 28 */ -#endif -#ifndef TkMacOSXSetScrollbarGrow -#define TkMacOSXSetScrollbarGrow \ - (tkIntPlatStubsPtr->tkMacOSXSetScrollbarGrow) /* 29 */ -#endif -#ifndef TkMacOSXSetUpClippingRgn -#define TkMacOSXSetUpClippingRgn \ - (tkIntPlatStubsPtr->tkMacOSXSetUpClippingRgn) /* 30 */ -#endif -#ifndef TkMacOSXSetUpGraphicsPort -#define TkMacOSXSetUpGraphicsPort \ - (tkIntPlatStubsPtr->tkMacOSXSetUpGraphicsPort) /* 31 */ -#endif -#ifndef TkMacOSXUpdateClipRgn -#define TkMacOSXUpdateClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXUpdateClipRgn) /* 32 */ -#endif -#ifndef TkMacOSXUnregisterMacWindow -#define TkMacOSXUnregisterMacWindow \ - (tkIntPlatStubsPtr->tkMacOSXUnregisterMacWindow) /* 33 */ -#endif -#ifndef TkMacOSXUseMenuID -#define TkMacOSXUseMenuID \ - (tkIntPlatStubsPtr->tkMacOSXUseMenuID) /* 34 */ -#endif -#ifndef TkMacOSXVisableClipRgn -#define TkMacOSXVisableClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXVisableClipRgn) /* 35 */ -#endif -#ifndef TkMacOSXWinBounds -#define TkMacOSXWinBounds \ - (tkIntPlatStubsPtr->tkMacOSXWinBounds) /* 36 */ -#endif -#ifndef TkMacOSXWindowOffset -#define TkMacOSXWindowOffset \ - (tkIntPlatStubsPtr->tkMacOSXWindowOffset) /* 37 */ -#endif -#ifndef TkSetMacColor -#define TkSetMacColor \ - (tkIntPlatStubsPtr->tkSetMacColor) /* 38 */ -#endif -#ifndef TkSetWMName -#define TkSetWMName \ - (tkIntPlatStubsPtr->tkSetWMName) /* 39 */ -#endif -#ifndef TkSuspendClipboard -#define TkSuspendClipboard \ - (tkIntPlatStubsPtr->tkSuspendClipboard) /* 40 */ -#endif -#ifndef TkMacOSXZoomToplevel -#define TkMacOSXZoomToplevel \ - (tkIntPlatStubsPtr->tkMacOSXZoomToplevel) /* 41 */ -#endif -#ifndef Tk_TopCoordsToWindow -#define Tk_TopCoordsToWindow \ - (tkIntPlatStubsPtr->tk_TopCoordsToWindow) /* 42 */ -#endif -#ifndef TkMacOSXContainerId -#define TkMacOSXContainerId \ - (tkIntPlatStubsPtr->tkMacOSXContainerId) /* 43 */ -#endif -#ifndef TkMacOSXGetHostToplevel -#define TkMacOSXGetHostToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGetHostToplevel) /* 44 */ -#endif -#ifndef TkMacOSXPreprocessMenu -#define TkMacOSXPreprocessMenu \ - (tkIntPlatStubsPtr->tkMacOSXPreprocessMenu) /* 45 */ -#endif -#ifndef TkpIsWindowFloating -#define TkpIsWindowFloating \ - (tkIntPlatStubsPtr->tkpIsWindowFloating) /* 46 */ -#endif -#ifndef TkMacOSXGetCapture -#define TkMacOSXGetCapture \ - (tkIntPlatStubsPtr->tkMacOSXGetCapture) /* 47 */ -#endif -/* Slot 48 is reserved */ -#ifndef TkGetTransientMaster -#define TkGetTransientMaster \ - (tkIntPlatStubsPtr->tkGetTransientMaster) /* 49 */ -#endif -#ifndef TkGenerateButtonEvent -#define TkGenerateButtonEvent \ - (tkIntPlatStubsPtr->tkGenerateButtonEvent) /* 50 */ -#endif -#ifndef TkGenWMDestroyEvent -#define TkGenWMDestroyEvent \ - (tkIntPlatStubsPtr->tkGenWMDestroyEvent) /* 51 */ -#endif -#ifndef TkMacOSXSetDrawingEnabled -#define TkMacOSXSetDrawingEnabled \ - (tkIntPlatStubsPtr->tkMacOSXSetDrawingEnabled) /* 52 */ -#endif -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 53 */ -#endif -#ifndef TkMacOSXDrawable -#define TkMacOSXDrawable \ - (tkIntPlatStubsPtr->tkMacOSXDrawable) /* 54 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 55 */ -#endif -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -#ifndef TkCreateXEventSource -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 0 */ -#endif -#ifndef TkFreeWindowId -#define TkFreeWindowId \ - (tkIntPlatStubsPtr->tkFreeWindowId) /* 1 */ -#endif -#ifndef TkInitXId -#define TkInitXId \ - (tkIntPlatStubsPtr->tkInitXId) /* 2 */ -#endif -#ifndef TkpCmapStressed -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 3 */ -#endif -#ifndef TkpSync -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 4 */ -#endif -#ifndef TkUnixContainerId -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 5 */ -#endif -#ifndef TkUnixDoOneXEvent -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 6 */ -#endif -#ifndef TkUnixSetMenubar -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 7 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 8 */ -#endif -#ifndef TkWmCleanup -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 9 */ -#endif -#ifndef TkSendCleanup -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 10 */ -#endif -#ifndef TkFreeXId -#define TkFreeXId \ - (tkIntPlatStubsPtr->tkFreeXId) /* 11 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 12 */ -#endif -#ifndef TkpTestsendCmd -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 13 */ -#endif -#endif /* X11 */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#ifdef __CYGWIN__ - void TkFreeXId(TkDisplay *dispPtr); - void TkFreeWindowId(TkDisplay *dispPtr, Window w); - void TkInitXId(TkDisplay *dispPtr); -#endif - -#ifdef __WIN32__ -#undef TkpCmapStressed -#undef TkpSync -#define TkpCmapStressed(tkwin,colormap) (0) -#define TkpSync(display) -#endif - -#endif /* _TKINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntXlibDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntXlibDecls.h deleted file mode 100644 index 010dd9cc0..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkIntXlibDecls.h +++ /dev/null @@ -1,2743 +0,0 @@ -/* - * tkIntXlibDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTXLIBDECLS -#define _TKINTXLIBDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -#ifdef MAC_TCL -#include "Xutil.h" -#else -#include "X11/Xutil.h" -#endif - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ - Display* /* display */ -); - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef XSetDashes_TCL_DECLARED -#define XSetDashes_TCL_DECLARED -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -#endif -#ifndef XGetModifierMapping_TCL_DECLARED -#define XGetModifierMapping_TCL_DECLARED -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -#endif -#ifndef XCreateImage_TCL_DECLARED -#define XCreateImage_TCL_DECLARED -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -#endif -#ifndef XGetImage_TCL_DECLARED -#define XGetImage_TCL_DECLARED -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -#endif -#ifndef XGetAtomName_TCL_DECLARED -#define XGetAtomName_TCL_DECLARED -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -#endif -#ifndef XKeysymToString_TCL_DECLARED -#define XKeysymToString_TCL_DECLARED -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -#endif -#ifndef XCreateColormap_TCL_DECLARED -#define XCreateColormap_TCL_DECLARED -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -#endif -#ifndef XCreatePixmapCursor_TCL_DECLARED -#define XCreatePixmapCursor_TCL_DECLARED -/* 7 */ -EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2, - XColor *x1, XColor *x2, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XCreateGlyphCursor_TCL_DECLARED -#define XCreateGlyphCursor_TCL_DECLARED -/* 8 */ -EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2, - unsigned int ui1, unsigned int ui2, - XColor _Xconst *x1, XColor _Xconst *x2); -#endif -#ifndef XGContextFromGC_TCL_DECLARED -#define XGContextFromGC_TCL_DECLARED -/* 9 */ -EXTERN GContext XGContextFromGC(GC g); -#endif -#ifndef XListHosts_TCL_DECLARED -#define XListHosts_TCL_DECLARED -/* 10 */ -EXTERN XHostAddress * XListHosts(Display *d, int *i, Bool *b); -#endif -#ifndef XKeycodeToKeysym_TCL_DECLARED -#define XKeycodeToKeysym_TCL_DECLARED -/* 11 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, unsigned int k, int i); -#endif -#ifndef XStringToKeysym_TCL_DECLARED -#define XStringToKeysym_TCL_DECLARED -/* 12 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -#endif -#ifndef XRootWindow_TCL_DECLARED -#define XRootWindow_TCL_DECLARED -/* 13 */ -EXTERN Window XRootWindow(Display *d, int i); -#endif -#ifndef XSetErrorHandler_TCL_DECLARED -#define XSetErrorHandler_TCL_DECLARED -/* 14 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -#endif -#ifndef XIconifyWindow_TCL_DECLARED -#define XIconifyWindow_TCL_DECLARED -/* 15 */ -EXTERN Status XIconifyWindow(Display *d, Window w, int i); -#endif -#ifndef XWithdrawWindow_TCL_DECLARED -#define XWithdrawWindow_TCL_DECLARED -/* 16 */ -EXTERN Status XWithdrawWindow(Display *d, Window w, int i); -#endif -#ifndef XGetWMColormapWindows_TCL_DECLARED -#define XGetWMColormapWindows_TCL_DECLARED -/* 17 */ -EXTERN Status XGetWMColormapWindows(Display *d, Window w, - Window **wpp, int *ip); -#endif -#ifndef XAllocColor_TCL_DECLARED -#define XAllocColor_TCL_DECLARED -/* 18 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -#endif -#ifndef XBell_TCL_DECLARED -#define XBell_TCL_DECLARED -/* 19 */ -EXTERN int XBell(Display *d, int i); -#endif -#ifndef XChangeProperty_TCL_DECLARED -#define XChangeProperty_TCL_DECLARED -/* 20 */ -EXTERN int XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -#endif -#ifndef XChangeWindowAttributes_TCL_DECLARED -#define XChangeWindowAttributes_TCL_DECLARED -/* 21 */ -EXTERN int XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -#endif -#ifndef XClearWindow_TCL_DECLARED -#define XClearWindow_TCL_DECLARED -/* 22 */ -EXTERN int XClearWindow(Display *d, Window w); -#endif -#ifndef XConfigureWindow_TCL_DECLARED -#define XConfigureWindow_TCL_DECLARED -/* 23 */ -EXTERN int XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -#endif -#ifndef XCopyArea_TCL_DECLARED -#define XCopyArea_TCL_DECLARED -/* 24 */ -EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -#endif -#ifndef XCopyPlane_TCL_DECLARED -#define XCopyPlane_TCL_DECLARED -/* 25 */ -EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -#endif -#ifndef XCreateBitmapFromData_TCL_DECLARED -#define XCreateBitmapFromData_TCL_DECLARED -/* 26 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -#endif -#ifndef XDefineCursor_TCL_DECLARED -#define XDefineCursor_TCL_DECLARED -/* 27 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -#endif -#ifndef XDeleteProperty_TCL_DECLARED -#define XDeleteProperty_TCL_DECLARED -/* 28 */ -EXTERN int XDeleteProperty(Display *d, Window w, Atom a); -#endif -#ifndef XDestroyWindow_TCL_DECLARED -#define XDestroyWindow_TCL_DECLARED -/* 29 */ -EXTERN int XDestroyWindow(Display *d, Window w); -#endif -#ifndef XDrawArc_TCL_DECLARED -#define XDrawArc_TCL_DECLARED -/* 30 */ -EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XDrawLines_TCL_DECLARED -#define XDrawLines_TCL_DECLARED -/* 31 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -#endif -#ifndef XDrawRectangle_TCL_DECLARED -#define XDrawRectangle_TCL_DECLARED -/* 32 */ -EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XFillArc_TCL_DECLARED -#define XFillArc_TCL_DECLARED -/* 33 */ -EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XFillPolygon_TCL_DECLARED -#define XFillPolygon_TCL_DECLARED -/* 34 */ -EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -#endif -#ifndef XFillRectangles_TCL_DECLARED -#define XFillRectangles_TCL_DECLARED -/* 35 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -#endif -#ifndef XForceScreenSaver_TCL_DECLARED -#define XForceScreenSaver_TCL_DECLARED -/* 36 */ -EXTERN int XForceScreenSaver(Display *d, int i); -#endif -#ifndef XFreeColormap_TCL_DECLARED -#define XFreeColormap_TCL_DECLARED -/* 37 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -#endif -#ifndef XFreeColors_TCL_DECLARED -#define XFreeColors_TCL_DECLARED -/* 38 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -#endif -#ifndef XFreeCursor_TCL_DECLARED -#define XFreeCursor_TCL_DECLARED -/* 39 */ -EXTERN int XFreeCursor(Display *d, Cursor c); -#endif -#ifndef XFreeModifiermap_TCL_DECLARED -#define XFreeModifiermap_TCL_DECLARED -/* 40 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -#endif -#ifndef XGetGeometry_TCL_DECLARED -#define XGetGeometry_TCL_DECLARED -/* 41 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -#endif -#ifndef XGetInputFocus_TCL_DECLARED -#define XGetInputFocus_TCL_DECLARED -/* 42 */ -EXTERN int XGetInputFocus(Display *d, Window *w, int *i); -#endif -#ifndef XGetWindowProperty_TCL_DECLARED -#define XGetWindowProperty_TCL_DECLARED -/* 43 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -#endif -#ifndef XGetWindowAttributes_TCL_DECLARED -#define XGetWindowAttributes_TCL_DECLARED -/* 44 */ -EXTERN Status XGetWindowAttributes(Display *d, Window w, - XWindowAttributes *x); -#endif -#ifndef XGrabKeyboard_TCL_DECLARED -#define XGrabKeyboard_TCL_DECLARED -/* 45 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -#endif -#ifndef XGrabPointer_TCL_DECLARED -#define XGrabPointer_TCL_DECLARED -/* 46 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -#endif -#ifndef XKeysymToKeycode_TCL_DECLARED -#define XKeysymToKeycode_TCL_DECLARED -/* 47 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -#endif -#ifndef XLookupColor_TCL_DECLARED -#define XLookupColor_TCL_DECLARED -/* 48 */ -EXTERN Status XLookupColor(Display *d, Colormap c1, - _Xconst char *c2, XColor *x1, XColor *x2); -#endif -#ifndef XMapWindow_TCL_DECLARED -#define XMapWindow_TCL_DECLARED -/* 49 */ -EXTERN int XMapWindow(Display *d, Window w); -#endif -#ifndef XMoveResizeWindow_TCL_DECLARED -#define XMoveResizeWindow_TCL_DECLARED -/* 50 */ -EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XMoveWindow_TCL_DECLARED -#define XMoveWindow_TCL_DECLARED -/* 51 */ -EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); -#endif -#ifndef XNextEvent_TCL_DECLARED -#define XNextEvent_TCL_DECLARED -/* 52 */ -EXTERN int XNextEvent(Display *d, XEvent *x); -#endif -#ifndef XPutBackEvent_TCL_DECLARED -#define XPutBackEvent_TCL_DECLARED -/* 53 */ -EXTERN int XPutBackEvent(Display *d, XEvent *x); -#endif -#ifndef XQueryColors_TCL_DECLARED -#define XQueryColors_TCL_DECLARED -/* 54 */ -EXTERN int XQueryColors(Display *d, Colormap c, XColor *x, - int i); -#endif -#ifndef XQueryPointer_TCL_DECLARED -#define XQueryPointer_TCL_DECLARED -/* 55 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -#endif -#ifndef XQueryTree_TCL_DECLARED -#define XQueryTree_TCL_DECLARED -/* 56 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -#endif -#ifndef XRaiseWindow_TCL_DECLARED -#define XRaiseWindow_TCL_DECLARED -/* 57 */ -EXTERN int XRaiseWindow(Display *d, Window w); -#endif -#ifndef XRefreshKeyboardMapping_TCL_DECLARED -#define XRefreshKeyboardMapping_TCL_DECLARED -/* 58 */ -EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); -#endif -#ifndef XResizeWindow_TCL_DECLARED -#define XResizeWindow_TCL_DECLARED -/* 59 */ -EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XSelectInput_TCL_DECLARED -#define XSelectInput_TCL_DECLARED -/* 60 */ -EXTERN int XSelectInput(Display *d, Window w, long l); -#endif -#ifndef XSendEvent_TCL_DECLARED -#define XSendEvent_TCL_DECLARED -/* 61 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -#endif -#ifndef XSetCommand_TCL_DECLARED -#define XSetCommand_TCL_DECLARED -/* 62 */ -EXTERN int XSetCommand(Display *d, Window w, char **c, int i); -#endif -#ifndef XSetIconName_TCL_DECLARED -#define XSetIconName_TCL_DECLARED -/* 63 */ -EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); -#endif -#ifndef XSetInputFocus_TCL_DECLARED -#define XSetInputFocus_TCL_DECLARED -/* 64 */ -EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); -#endif -#ifndef XSetSelectionOwner_TCL_DECLARED -#define XSetSelectionOwner_TCL_DECLARED -/* 65 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -#endif -#ifndef XSetWindowBackground_TCL_DECLARED -#define XSetWindowBackground_TCL_DECLARED -/* 66 */ -EXTERN int XSetWindowBackground(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED -#define XSetWindowBackgroundPixmap_TCL_DECLARED -/* 67 */ -EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorder_TCL_DECLARED -#define XSetWindowBorder_TCL_DECLARED -/* 68 */ -EXTERN int XSetWindowBorder(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBorderPixmap_TCL_DECLARED -#define XSetWindowBorderPixmap_TCL_DECLARED -/* 69 */ -EXTERN int XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorderWidth_TCL_DECLARED -#define XSetWindowBorderWidth_TCL_DECLARED -/* 70 */ -EXTERN int XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -#endif -#ifndef XSetWindowColormap_TCL_DECLARED -#define XSetWindowColormap_TCL_DECLARED -/* 71 */ -EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); -#endif -#ifndef XTranslateCoordinates_TCL_DECLARED -#define XTranslateCoordinates_TCL_DECLARED -/* 72 */ -EXTERN Bool XTranslateCoordinates(Display *d, Window w1, - Window w2, int i1, int i2, int *i3, int *i4, - Window *w3); -#endif -#ifndef XUngrabKeyboard_TCL_DECLARED -#define XUngrabKeyboard_TCL_DECLARED -/* 73 */ -EXTERN int XUngrabKeyboard(Display *d, Time t); -#endif -#ifndef XUngrabPointer_TCL_DECLARED -#define XUngrabPointer_TCL_DECLARED -/* 74 */ -EXTERN int XUngrabPointer(Display *d, Time t); -#endif -#ifndef XUnmapWindow_TCL_DECLARED -#define XUnmapWindow_TCL_DECLARED -/* 75 */ -EXTERN int XUnmapWindow(Display *d, Window w); -#endif -#ifndef XWindowEvent_TCL_DECLARED -#define XWindowEvent_TCL_DECLARED -/* 76 */ -EXTERN int XWindowEvent(Display *d, Window w, long l, XEvent *x); -#endif -#ifndef XDestroyIC_TCL_DECLARED -#define XDestroyIC_TCL_DECLARED -/* 77 */ -EXTERN void XDestroyIC(XIC x); -#endif -#ifndef XFilterEvent_TCL_DECLARED -#define XFilterEvent_TCL_DECLARED -/* 78 */ -EXTERN Bool XFilterEvent(XEvent *x, Window w); -#endif -#ifndef XmbLookupString_TCL_DECLARED -#define XmbLookupString_TCL_DECLARED -/* 79 */ -EXTERN int XmbLookupString(XIC xi, XKeyPressedEvent *xk, - char *c, int i, KeySym *k, Status *s); -#endif -#ifndef TkPutImage_TCL_DECLARED -#define TkPutImage_TCL_DECLARED -/* 80 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor_TCL_DECLARED -#define XParseColor_TCL_DECLARED -/* 82 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -#endif -#ifndef XCreateGC_TCL_DECLARED -#define XCreateGC_TCL_DECLARED -/* 83 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -#endif -#ifndef XFreeGC_TCL_DECLARED -#define XFreeGC_TCL_DECLARED -/* 84 */ -EXTERN int XFreeGC(Display *display, GC gc); -#endif -#ifndef XInternAtom_TCL_DECLARED -#define XInternAtom_TCL_DECLARED -/* 85 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -#endif -#ifndef XSetBackground_TCL_DECLARED -#define XSetBackground_TCL_DECLARED -/* 86 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetForeground_TCL_DECLARED -#define XSetForeground_TCL_DECLARED -/* 87 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetClipMask_TCL_DECLARED -#define XSetClipMask_TCL_DECLARED -/* 88 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -#endif -#ifndef XSetClipOrigin_TCL_DECLARED -#define XSetClipOrigin_TCL_DECLARED -/* 89 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -#endif -#ifndef XSetTSOrigin_TCL_DECLARED -#define XSetTSOrigin_TCL_DECLARED -/* 90 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -#endif -#ifndef XChangeGC_TCL_DECLARED -#define XChangeGC_TCL_DECLARED -/* 91 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -#endif -#ifndef XSetFont_TCL_DECLARED -#define XSetFont_TCL_DECLARED -/* 92 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -#endif -#ifndef XSetArcMode_TCL_DECLARED -#define XSetArcMode_TCL_DECLARED -/* 93 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -#endif -#ifndef XSetStipple_TCL_DECLARED -#define XSetStipple_TCL_DECLARED -/* 94 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -#endif -#ifndef XSetFillRule_TCL_DECLARED -#define XSetFillRule_TCL_DECLARED -/* 95 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -#endif -#ifndef XSetFillStyle_TCL_DECLARED -#define XSetFillStyle_TCL_DECLARED -/* 96 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -#endif -#ifndef XSetFunction_TCL_DECLARED -#define XSetFunction_TCL_DECLARED -/* 97 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -#endif -#ifndef XSetLineAttributes_TCL_DECLARED -#define XSetLineAttributes_TCL_DECLARED -/* 98 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -#endif -#ifndef _XInitImageFuncPtrs_TCL_DECLARED -#define _XInitImageFuncPtrs_TCL_DECLARED -/* 99 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -#endif -#ifndef XCreateIC_TCL_DECLARED -#define XCreateIC_TCL_DECLARED -/* 100 */ -EXTERN XIC XCreateIC(XIM xim, ...); -#endif -#ifndef XGetVisualInfo_TCL_DECLARED -#define XGetVisualInfo_TCL_DECLARED -/* 101 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -#endif -#ifndef XSetWMClientMachine_TCL_DECLARED -#define XSetWMClientMachine_TCL_DECLARED -/* 102 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -#endif -#ifndef XStringListToTextProperty_TCL_DECLARED -#define XStringListToTextProperty_TCL_DECLARED -/* 103 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -#endif -#ifndef XDrawLine_TCL_DECLARED -#define XDrawLine_TCL_DECLARED -/* 104 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -#endif -#ifndef XWarpPointer_TCL_DECLARED -#define XWarpPointer_TCL_DECLARED -/* 105 */ -EXTERN int XWarpPointer(Display *d, Window s, Window dw, int sx, - int sy, unsigned int sw, unsigned int sh, - int dx, int dy); -#endif -#ifndef XFillRectangle_TCL_DECLARED -#define XFillRectangle_TCL_DECLARED -/* 106 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -#endif -#ifndef XFlush_TCL_DECLARED -#define XFlush_TCL_DECLARED -/* 107 */ -EXTERN int XFlush(Display *display); -#endif -#ifndef XGrabServer_TCL_DECLARED -#define XGrabServer_TCL_DECLARED -/* 108 */ -EXTERN int XGrabServer(Display *display); -#endif -#ifndef XUngrabServer_TCL_DECLARED -#define XUngrabServer_TCL_DECLARED -/* 109 */ -EXTERN int XUngrabServer(Display *display); -#endif -#ifndef XFree_TCL_DECLARED -#define XFree_TCL_DECLARED -/* 110 */ -EXTERN int XFree(VOID *data); -#endif -#ifndef XNoOp_TCL_DECLARED -#define XNoOp_TCL_DECLARED -/* 111 */ -EXTERN int XNoOp(Display *display); -#endif -#ifndef XSynchronize_TCL_DECLARED -#define XSynchronize_TCL_DECLARED -/* 112 */ -EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); -#endif -#ifndef XSync_TCL_DECLARED -#define XSync_TCL_DECLARED -/* 113 */ -EXTERN int XSync(Display *display, Bool discard); -#endif -#ifndef XVisualIDFromVisual_TCL_DECLARED -#define XVisualIDFromVisual_TCL_DECLARED -/* 114 */ -EXTERN VisualID XVisualIDFromVisual(Visual *visual); -#endif -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -#ifndef XDrawSegments_TCL_DECLARED -#define XDrawSegments_TCL_DECLARED -/* 133 */ -EXTERN int XDrawSegments(Display *d, Drawable dr, GC gc, - XSegment *s, int n); -#endif -#ifndef XDrawPoint_TCL_DECLARED -#define XDrawPoint_TCL_DECLARED -/* 134 */ -EXTERN int XDrawPoint(Display *d, Drawable dr, GC gc, int x, - int y); -#endif -#ifndef XDrawPoints_TCL_DECLARED -#define XDrawPoints_TCL_DECLARED -/* 135 */ -EXTERN int XDrawPoints(Display *d, Drawable dr, GC gc, - XPoint *p, int n, int m); -#endif -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef XSetDashes_TCL_DECLARED -#define XSetDashes_TCL_DECLARED -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -#endif -#ifndef XGetModifierMapping_TCL_DECLARED -#define XGetModifierMapping_TCL_DECLARED -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -#endif -#ifndef XCreateImage_TCL_DECLARED -#define XCreateImage_TCL_DECLARED -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -#endif -#ifndef XGetImage_TCL_DECLARED -#define XGetImage_TCL_DECLARED -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -#endif -#ifndef XGetAtomName_TCL_DECLARED -#define XGetAtomName_TCL_DECLARED -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -#endif -#ifndef XKeysymToString_TCL_DECLARED -#define XKeysymToString_TCL_DECLARED -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -#endif -#ifndef XCreateColormap_TCL_DECLARED -#define XCreateColormap_TCL_DECLARED -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -#endif -#ifndef XGContextFromGC_TCL_DECLARED -#define XGContextFromGC_TCL_DECLARED -/* 7 */ -EXTERN GContext XGContextFromGC(GC g); -#endif -#ifndef XKeycodeToKeysym_TCL_DECLARED -#define XKeycodeToKeysym_TCL_DECLARED -/* 8 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, KeyCode k, int i); -#endif -#ifndef XStringToKeysym_TCL_DECLARED -#define XStringToKeysym_TCL_DECLARED -/* 9 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -#endif -#ifndef XRootWindow_TCL_DECLARED -#define XRootWindow_TCL_DECLARED -/* 10 */ -EXTERN Window XRootWindow(Display *d, int i); -#endif -#ifndef XSetErrorHandler_TCL_DECLARED -#define XSetErrorHandler_TCL_DECLARED -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -#endif -#ifndef XAllocColor_TCL_DECLARED -#define XAllocColor_TCL_DECLARED -/* 12 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -#endif -#ifndef XBell_TCL_DECLARED -#define XBell_TCL_DECLARED -/* 13 */ -EXTERN int XBell(Display *d, int i); -#endif -#ifndef XChangeProperty_TCL_DECLARED -#define XChangeProperty_TCL_DECLARED -/* 14 */ -EXTERN void XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -#endif -#ifndef XChangeWindowAttributes_TCL_DECLARED -#define XChangeWindowAttributes_TCL_DECLARED -/* 15 */ -EXTERN void XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -#endif -#ifndef XConfigureWindow_TCL_DECLARED -#define XConfigureWindow_TCL_DECLARED -/* 16 */ -EXTERN void XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -#endif -#ifndef XCopyArea_TCL_DECLARED -#define XCopyArea_TCL_DECLARED -/* 17 */ -EXTERN void XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -#endif -#ifndef XCopyPlane_TCL_DECLARED -#define XCopyPlane_TCL_DECLARED -/* 18 */ -EXTERN void XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -#endif -#ifndef XCreateBitmapFromData_TCL_DECLARED -#define XCreateBitmapFromData_TCL_DECLARED -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -#endif -#ifndef XDefineCursor_TCL_DECLARED -#define XDefineCursor_TCL_DECLARED -/* 20 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -#endif -#ifndef XDestroyWindow_TCL_DECLARED -#define XDestroyWindow_TCL_DECLARED -/* 21 */ -EXTERN void XDestroyWindow(Display *d, Window w); -#endif -#ifndef XDrawArc_TCL_DECLARED -#define XDrawArc_TCL_DECLARED -/* 22 */ -EXTERN void XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XDrawLines_TCL_DECLARED -#define XDrawLines_TCL_DECLARED -/* 23 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -#endif -#ifndef XDrawRectangle_TCL_DECLARED -#define XDrawRectangle_TCL_DECLARED -/* 24 */ -EXTERN void XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XFillArc_TCL_DECLARED -#define XFillArc_TCL_DECLARED -/* 25 */ -EXTERN void XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XFillPolygon_TCL_DECLARED -#define XFillPolygon_TCL_DECLARED -/* 26 */ -EXTERN void XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -#endif -#ifndef XFillRectangles_TCL_DECLARED -#define XFillRectangles_TCL_DECLARED -/* 27 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -#endif -#ifndef XFreeColormap_TCL_DECLARED -#define XFreeColormap_TCL_DECLARED -/* 28 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -#endif -#ifndef XFreeColors_TCL_DECLARED -#define XFreeColors_TCL_DECLARED -/* 29 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -#endif -#ifndef XFreeModifiermap_TCL_DECLARED -#define XFreeModifiermap_TCL_DECLARED -/* 30 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -#endif -#ifndef XGetGeometry_TCL_DECLARED -#define XGetGeometry_TCL_DECLARED -/* 31 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -#endif -#ifndef XGetWindowProperty_TCL_DECLARED -#define XGetWindowProperty_TCL_DECLARED -/* 32 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -#endif -#ifndef XGrabKeyboard_TCL_DECLARED -#define XGrabKeyboard_TCL_DECLARED -/* 33 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -#endif -#ifndef XGrabPointer_TCL_DECLARED -#define XGrabPointer_TCL_DECLARED -/* 34 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -#endif -#ifndef XKeysymToKeycode_TCL_DECLARED -#define XKeysymToKeycode_TCL_DECLARED -/* 35 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -#endif -#ifndef XMapWindow_TCL_DECLARED -#define XMapWindow_TCL_DECLARED -/* 36 */ -EXTERN void XMapWindow(Display *d, Window w); -#endif -#ifndef XMoveResizeWindow_TCL_DECLARED -#define XMoveResizeWindow_TCL_DECLARED -/* 37 */ -EXTERN void XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XMoveWindow_TCL_DECLARED -#define XMoveWindow_TCL_DECLARED -/* 38 */ -EXTERN void XMoveWindow(Display *d, Window w, int i1, int i2); -#endif -#ifndef XQueryPointer_TCL_DECLARED -#define XQueryPointer_TCL_DECLARED -/* 39 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -#endif -#ifndef XRaiseWindow_TCL_DECLARED -#define XRaiseWindow_TCL_DECLARED -/* 40 */ -EXTERN void XRaiseWindow(Display *d, Window w); -#endif -#ifndef XRefreshKeyboardMapping_TCL_DECLARED -#define XRefreshKeyboardMapping_TCL_DECLARED -/* 41 */ -EXTERN void XRefreshKeyboardMapping(XMappingEvent *x); -#endif -#ifndef XResizeWindow_TCL_DECLARED -#define XResizeWindow_TCL_DECLARED -/* 42 */ -EXTERN void XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XSelectInput_TCL_DECLARED -#define XSelectInput_TCL_DECLARED -/* 43 */ -EXTERN void XSelectInput(Display *d, Window w, long l); -#endif -#ifndef XSendEvent_TCL_DECLARED -#define XSendEvent_TCL_DECLARED -/* 44 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -#endif -#ifndef XSetIconName_TCL_DECLARED -#define XSetIconName_TCL_DECLARED -/* 45 */ -EXTERN void XSetIconName(Display *d, Window w, _Xconst char *c); -#endif -#ifndef XSetInputFocus_TCL_DECLARED -#define XSetInputFocus_TCL_DECLARED -/* 46 */ -EXTERN void XSetInputFocus(Display *d, Window w, int i, Time t); -#endif -#ifndef XSetSelectionOwner_TCL_DECLARED -#define XSetSelectionOwner_TCL_DECLARED -/* 47 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -#endif -#ifndef XSetWindowBackground_TCL_DECLARED -#define XSetWindowBackground_TCL_DECLARED -/* 48 */ -EXTERN void XSetWindowBackground(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED -#define XSetWindowBackgroundPixmap_TCL_DECLARED -/* 49 */ -EXTERN void XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorder_TCL_DECLARED -#define XSetWindowBorder_TCL_DECLARED -/* 50 */ -EXTERN void XSetWindowBorder(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBorderPixmap_TCL_DECLARED -#define XSetWindowBorderPixmap_TCL_DECLARED -/* 51 */ -EXTERN void XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorderWidth_TCL_DECLARED -#define XSetWindowBorderWidth_TCL_DECLARED -/* 52 */ -EXTERN void XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -#endif -#ifndef XSetWindowColormap_TCL_DECLARED -#define XSetWindowColormap_TCL_DECLARED -/* 53 */ -EXTERN void XSetWindowColormap(Display *d, Window w, Colormap c); -#endif -#ifndef XUngrabKeyboard_TCL_DECLARED -#define XUngrabKeyboard_TCL_DECLARED -/* 54 */ -EXTERN void XUngrabKeyboard(Display *d, Time t); -#endif -#ifndef XUngrabPointer_TCL_DECLARED -#define XUngrabPointer_TCL_DECLARED -/* 55 */ -EXTERN int XUngrabPointer(Display *d, Time t); -#endif -#ifndef XUnmapWindow_TCL_DECLARED -#define XUnmapWindow_TCL_DECLARED -/* 56 */ -EXTERN void XUnmapWindow(Display *d, Window w); -#endif -#ifndef TkPutImage_TCL_DECLARED -#define TkPutImage_TCL_DECLARED -/* 57 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -#endif -#ifndef XParseColor_TCL_DECLARED -#define XParseColor_TCL_DECLARED -/* 58 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -#endif -#ifndef XCreateGC_TCL_DECLARED -#define XCreateGC_TCL_DECLARED -/* 59 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -#endif -#ifndef XFreeGC_TCL_DECLARED -#define XFreeGC_TCL_DECLARED -/* 60 */ -EXTERN int XFreeGC(Display *display, GC gc); -#endif -#ifndef XInternAtom_TCL_DECLARED -#define XInternAtom_TCL_DECLARED -/* 61 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -#endif -#ifndef XSetBackground_TCL_DECLARED -#define XSetBackground_TCL_DECLARED -/* 62 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetForeground_TCL_DECLARED -#define XSetForeground_TCL_DECLARED -/* 63 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetClipMask_TCL_DECLARED -#define XSetClipMask_TCL_DECLARED -/* 64 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -#endif -#ifndef XSetClipOrigin_TCL_DECLARED -#define XSetClipOrigin_TCL_DECLARED -/* 65 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -#endif -#ifndef XSetTSOrigin_TCL_DECLARED -#define XSetTSOrigin_TCL_DECLARED -/* 66 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -#endif -#ifndef XChangeGC_TCL_DECLARED -#define XChangeGC_TCL_DECLARED -/* 67 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -#endif -#ifndef XSetFont_TCL_DECLARED -#define XSetFont_TCL_DECLARED -/* 68 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -#endif -#ifndef XSetArcMode_TCL_DECLARED -#define XSetArcMode_TCL_DECLARED -/* 69 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -#endif -#ifndef XSetStipple_TCL_DECLARED -#define XSetStipple_TCL_DECLARED -/* 70 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -#endif -#ifndef XSetFillRule_TCL_DECLARED -#define XSetFillRule_TCL_DECLARED -/* 71 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -#endif -#ifndef XSetFillStyle_TCL_DECLARED -#define XSetFillStyle_TCL_DECLARED -/* 72 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -#endif -#ifndef XSetFunction_TCL_DECLARED -#define XSetFunction_TCL_DECLARED -/* 73 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -#endif -#ifndef XSetLineAttributes_TCL_DECLARED -#define XSetLineAttributes_TCL_DECLARED -/* 74 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -#endif -#ifndef _XInitImageFuncPtrs_TCL_DECLARED -#define _XInitImageFuncPtrs_TCL_DECLARED -/* 75 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -#endif -#ifndef XCreateIC_TCL_DECLARED -#define XCreateIC_TCL_DECLARED -/* 76 */ -EXTERN XIC XCreateIC(void); -#endif -#ifndef XGetVisualInfo_TCL_DECLARED -#define XGetVisualInfo_TCL_DECLARED -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -#endif -#ifndef XSetWMClientMachine_TCL_DECLARED -#define XSetWMClientMachine_TCL_DECLARED -/* 78 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -#endif -#ifndef XStringListToTextProperty_TCL_DECLARED -#define XStringListToTextProperty_TCL_DECLARED -/* 79 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -#endif -#ifndef XDrawSegments_TCL_DECLARED -#define XDrawSegments_TCL_DECLARED -/* 80 */ -EXTERN int XDrawSegments(Display *display, Drawable d, GC gc, - XSegment *segments, int nsegments); -#endif -#ifndef XForceScreenSaver_TCL_DECLARED -#define XForceScreenSaver_TCL_DECLARED -/* 81 */ -EXTERN void XForceScreenSaver(Display *display, int mode); -#endif -#ifndef XDrawLine_TCL_DECLARED -#define XDrawLine_TCL_DECLARED -/* 82 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -#endif -#ifndef XFillRectangle_TCL_DECLARED -#define XFillRectangle_TCL_DECLARED -/* 83 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -#endif -#ifndef XClearWindow_TCL_DECLARED -#define XClearWindow_TCL_DECLARED -/* 84 */ -EXTERN void XClearWindow(Display *d, Window w); -#endif -#ifndef XDrawPoint_TCL_DECLARED -#define XDrawPoint_TCL_DECLARED -/* 85 */ -EXTERN int XDrawPoint(Display *display, Drawable d, GC gc, - int x, int y); -#endif -#ifndef XDrawPoints_TCL_DECLARED -#define XDrawPoints_TCL_DECLARED -/* 86 */ -EXTERN int XDrawPoints(Display *display, Drawable d, GC gc, - XPoint *points, int npoints, int mode); -#endif -#ifndef XWarpPointer_TCL_DECLARED -#define XWarpPointer_TCL_DECLARED -/* 87 */ -EXTERN int XWarpPointer(Display *display, Window src_w, - Window dest_w, int src_x, int src_y, - unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y); -#endif -#ifndef XQueryColor_TCL_DECLARED -#define XQueryColor_TCL_DECLARED -/* 88 */ -EXTERN void XQueryColor(Display *display, Colormap colormap, - XColor *def_in_out); -#endif -#ifndef XQueryColors_TCL_DECLARED -#define XQueryColors_TCL_DECLARED -/* 89 */ -EXTERN void XQueryColors(Display *display, Colormap colormap, - XColor *defs_in_out, int ncolors); -#endif -#ifndef XQueryTree_TCL_DECLARED -#define XQueryTree_TCL_DECLARED -/* 90 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -#endif -#ifndef XSync_TCL_DECLARED -#define XSync_TCL_DECLARED -/* 91 */ -EXTERN int XSync(Display *display, Bool flag); -#endif -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* Slot 108 is reserved */ -/* Slot 109 is reserved */ -/* Slot 110 is reserved */ -/* Slot 111 is reserved */ -/* Slot 112 is reserved */ -/* Slot 113 is reserved */ -/* Slot 114 is reserved */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif -#endif /* AQUA */ - -typedef struct TkIntXlibStubs { - int magic; - struct TkIntXlibStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 7 */ - Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 8 */ - GContext (*xGContextFromGC) (GC g); /* 9 */ - XHostAddress * (*xListHosts) (Display *d, int *i, Bool *b); /* 10 */ - KeySym (*xKeycodeToKeysym) (Display *d, unsigned int k, int i); /* 11 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 12 */ - Window (*xRootWindow) (Display *d, int i); /* 13 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ - Status (*xIconifyWindow) (Display *d, Window w, int i); /* 15 */ - Status (*xWithdrawWindow) (Display *d, Window w, int i); /* 16 */ - Status (*xGetWMColormapWindows) (Display *d, Window w, Window **wpp, int *ip); /* 17 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 18 */ - int (*xBell) (Display *d, int i); /* 19 */ - int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 20 */ - int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 21 */ - int (*xClearWindow) (Display *d, Window w); /* 22 */ - int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 23 */ - int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ - int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 26 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 27 */ - int (*xDeleteProperty) (Display *d, Window w, Atom a); /* 28 */ - int (*xDestroyWindow) (Display *d, Window w); /* 29 */ - int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 31 */ - int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ - int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ - int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 34 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 35 */ - int (*xForceScreenSaver) (Display *d, int i); /* 36 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 37 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 38 */ - int (*xFreeCursor) (Display *d, Cursor c); /* 39 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 40 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 41 */ - int (*xGetInputFocus) (Display *d, Window *w, int *i); /* 42 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 43 */ - Status (*xGetWindowAttributes) (Display *d, Window w, XWindowAttributes *x); /* 44 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 47 */ - Status (*xLookupColor) (Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2); /* 48 */ - int (*xMapWindow) (Display *d, Window w); /* 49 */ - int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ - int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 51 */ - int (*xNextEvent) (Display *d, XEvent *x); /* 52 */ - int (*xPutBackEvent) (Display *d, XEvent *x); /* 53 */ - int (*xQueryColors) (Display *d, Colormap c, XColor *x, int i); /* 54 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 55 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 56 */ - int (*xRaiseWindow) (Display *d, Window w); /* 57 */ - int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 58 */ - int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ - int (*xSelectInput) (Display *d, Window w, long l); /* 60 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 61 */ - int (*xSetCommand) (Display *d, Window w, char **c, int i); /* 62 */ - int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 63 */ - int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 64 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 65 */ - int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 66 */ - int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 67 */ - int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 68 */ - int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 69 */ - int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 70 */ - int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 71 */ - Bool (*xTranslateCoordinates) (Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3); /* 72 */ - int (*xUngrabKeyboard) (Display *d, Time t); /* 73 */ - int (*xUngrabPointer) (Display *d, Time t); /* 74 */ - int (*xUnmapWindow) (Display *d, Window w); /* 75 */ - int (*xWindowEvent) (Display *d, Window w, long l, XEvent *x); /* 76 */ - void (*xDestroyIC) (XIC x); /* 77 */ - Bool (*xFilterEvent) (XEvent *x, Window w); /* 78 */ - int (*xmbLookupString) (XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s); /* 79 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ - VOID *reserved81; - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 82 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 83 */ - int (*xFreeGC) (Display *display, GC gc); /* 84 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 85 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 86 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 87 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 88 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 91 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 92 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 93 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 94 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 95 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 96 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 97 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 99 */ - XIC (*xCreateIC) (XIM xim, ...); /* 100 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 101 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 102 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 103 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ - int (*xWarpPointer) (Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ - int (*xFlush) (Display *display); /* 107 */ - int (*xGrabServer) (Display *display); /* 108 */ - int (*xUngrabServer) (Display *display); /* 109 */ - int (*xFree) (VOID *data); /* 110 */ - int (*xNoOp) (Display *display); /* 111 */ - XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ - int (*xSync) (Display *display, Bool discard); /* 113 */ - VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ - VOID *reserved115; - VOID *reserved116; - VOID *reserved117; - VOID *reserved118; - VOID *reserved119; - VOID *reserved120; - VOID *reserved121; - VOID *reserved122; - VOID *reserved123; - VOID *reserved124; - VOID *reserved125; - VOID *reserved126; - VOID *reserved127; - VOID *reserved128; - VOID *reserved129; - VOID *reserved130; - VOID *reserved131; - VOID *reserved132; - int (*xDrawSegments) (Display *d, Drawable dr, GC gc, XSegment *s, int n); /* 133 */ - int (*xDrawPoint) (Display *d, Drawable dr, GC gc, int x, int y); /* 134 */ - int (*xDrawPoints) (Display *d, Drawable dr, GC gc, XPoint *p, int n, int m); /* 135 */ - VOID *reserved136; - VOID *reserved137; - VOID *reserved138; - VOID *reserved139; - VOID *reserved140; - VOID *reserved141; - VOID *reserved142; - VOID *reserved143; - VOID *reserved144; - VOID *reserved145; - VOID *reserved146; - VOID *reserved147; - VOID *reserved148; - VOID *reserved149; - VOID *reserved150; - VOID *reserved151; - VOID *reserved152; - VOID *reserved153; - VOID *reserved154; - VOID *reserved155; - VOID *reserved156; - VOID *reserved157; - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - GContext (*xGContextFromGC) (GC g); /* 7 */ - KeySym (*xKeycodeToKeysym) (Display *d, KeyCode k, int i); /* 8 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 9 */ - Window (*xRootWindow) (Display *d, int i); /* 10 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 12 */ - int (*xBell) (Display *d, int i); /* 13 */ - void (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 14 */ - void (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 15 */ - void (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 16 */ - void (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ - void (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 19 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 20 */ - void (*xDestroyWindow) (Display *d, Window w); /* 21 */ - void (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 23 */ - void (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ - void (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ - void (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 26 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 27 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 28 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 29 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 30 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 31 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 32 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 35 */ - void (*xMapWindow) (Display *d, Window w); /* 36 */ - void (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ - void (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 38 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 39 */ - void (*xRaiseWindow) (Display *d, Window w); /* 40 */ - void (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 41 */ - void (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ - void (*xSelectInput) (Display *d, Window w, long l); /* 43 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 44 */ - void (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 45 */ - void (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 46 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 47 */ - void (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 48 */ - void (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 49 */ - void (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 50 */ - void (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 51 */ - void (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 52 */ - void (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 53 */ - void (*xUngrabKeyboard) (Display *d, Time t); /* 54 */ - int (*xUngrabPointer) (Display *d, Time t); /* 55 */ - void (*xUnmapWindow) (Display *d, Window w); /* 56 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 58 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 59 */ - int (*xFreeGC) (Display *display, GC gc); /* 60 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 61 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 62 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 63 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 64 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 67 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 68 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 69 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 70 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 71 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 72 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 73 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 75 */ - XIC (*xCreateIC) (void); /* 76 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 77 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 78 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 79 */ - int (*xDrawSegments) (Display *display, Drawable d, GC gc, XSegment *segments, int nsegments); /* 80 */ - void (*xForceScreenSaver) (Display *display, int mode); /* 81 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ - void (*xClearWindow) (Display *d, Window w); /* 84 */ - int (*xDrawPoint) (Display *display, Drawable d, GC gc, int x, int y); /* 85 */ - int (*xDrawPoints) (Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode); /* 86 */ - int (*xWarpPointer) (Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ - void (*xQueryColor) (Display *display, Colormap colormap, XColor *def_in_out); /* 88 */ - void (*xQueryColors) (Display *display, Colormap colormap, XColor *defs_in_out, int ncolors); /* 89 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 90 */ - int (*xSync) (Display *display, Bool flag); /* 91 */ - VOID *reserved92; - VOID *reserved93; - VOID *reserved94; - VOID *reserved95; - VOID *reserved96; - VOID *reserved97; - VOID *reserved98; - VOID *reserved99; - VOID *reserved100; - VOID *reserved101; - VOID *reserved102; - VOID *reserved103; - VOID *reserved104; - VOID *reserved105; - VOID *reserved106; - VOID *reserved107; - VOID *reserved108; - VOID *reserved109; - VOID *reserved110; - VOID *reserved111; - VOID *reserved112; - VOID *reserved113; - VOID *reserved114; - VOID *reserved115; - VOID *reserved116; - VOID *reserved117; - VOID *reserved118; - VOID *reserved119; - VOID *reserved120; - VOID *reserved121; - VOID *reserved122; - VOID *reserved123; - VOID *reserved124; - VOID *reserved125; - VOID *reserved126; - VOID *reserved127; - VOID *reserved128; - VOID *reserved129; - VOID *reserved130; - VOID *reserved131; - VOID *reserved132; - VOID *reserved133; - VOID *reserved134; - VOID *reserved135; - VOID *reserved136; - VOID *reserved137; - VOID *reserved138; - VOID *reserved139; - VOID *reserved140; - VOID *reserved141; - VOID *reserved142; - VOID *reserved143; - VOID *reserved144; - VOID *reserved145; - VOID *reserved146; - VOID *reserved147; - VOID *reserved148; - VOID *reserved149; - VOID *reserved150; - VOID *reserved151; - VOID *reserved152; - VOID *reserved153; - VOID *reserved154; - VOID *reserved155; - VOID *reserved156; - VOID *reserved157; - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* AQUA */ -} TkIntXlibStubs; - -extern TkIntXlibStubs *tkIntXlibStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XCreatePixmapCursor -#define XCreatePixmapCursor \ - (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ -#endif -#ifndef XCreateGlyphCursor -#define XCreateGlyphCursor \ - (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ -#endif -#ifndef XListHosts -#define XListHosts \ - (tkIntXlibStubsPtr->xListHosts) /* 10 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 13 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ -#endif -#ifndef XIconifyWindow -#define XIconifyWindow \ - (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ -#endif -#ifndef XWithdrawWindow -#define XWithdrawWindow \ - (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ -#endif -#ifndef XGetWMColormapWindows -#define XGetWMColormapWindows \ - (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 18 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 19 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 22 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 24 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ -#endif -#ifndef XDeleteProperty -#define XDeleteProperty \ - (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 30 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 31 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 33 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 38 */ -#endif -#ifndef XFreeCursor -#define XFreeCursor \ - (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ -#endif -#ifndef XGetInputFocus -#define XGetInputFocus \ - (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ -#endif -#ifndef XGetWindowAttributes -#define XGetWindowAttributes \ - (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ -#endif -#ifndef XLookupColor -#define XLookupColor \ - (tkIntXlibStubsPtr->xLookupColor) /* 48 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 49 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ -#endif -#ifndef XNextEvent -#define XNextEvent \ - (tkIntXlibStubsPtr->xNextEvent) /* 52 */ -#endif -#ifndef XPutBackEvent -#define XPutBackEvent \ - (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 54 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 56 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 60 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 61 */ -#endif -#ifndef XSetCommand -#define XSetCommand \ - (tkIntXlibStubsPtr->xSetCommand) /* 62 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 63 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ -#endif -#ifndef XTranslateCoordinates -#define XTranslateCoordinates \ - (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ -#endif -#ifndef XWindowEvent -#define XWindowEvent \ - (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ -#endif -#ifndef XDestroyIC -#define XDestroyIC \ - (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ -#endif -#ifndef XFilterEvent -#define XFilterEvent \ - (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ -#endif -#ifndef XmbLookupString -#define XmbLookupString \ - (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 80 */ -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 82 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 83 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 84 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 85 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 86 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 87 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 91 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 92 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 94 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 97 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 100 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 104 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ -#endif -#ifndef XFlush -#define XFlush \ - (tkIntXlibStubsPtr->xFlush) /* 107 */ -#endif -#ifndef XGrabServer -#define XGrabServer \ - (tkIntXlibStubsPtr->xGrabServer) /* 108 */ -#endif -#ifndef XUngrabServer -#define XUngrabServer \ - (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ -#endif -#ifndef XFree -#define XFree \ - (tkIntXlibStubsPtr->xFree) /* 110 */ -#endif -#ifndef XNoOp -#define XNoOp \ - (tkIntXlibStubsPtr->xNoOp) /* 111 */ -#endif -#ifndef XSynchronize -#define XSynchronize \ - (tkIntXlibStubsPtr->xSynchronize) /* 112 */ -#endif -#ifndef XSync -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 113 */ -#endif -#ifndef XVisualIDFromVisual -#define XVisualIDFromVisual \ - (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ -#endif -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 133 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 134 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 135 */ -#endif -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#endif -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#endif -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#endif -#ifndef XQueryColor -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#endif -#ifndef XSync -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 91 */ -#endif -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* Slot 108 is reserved */ -/* Slot 109 is reserved */ -/* Slot 110 is reserved */ -/* Slot 111 is reserved */ -/* Slot 112 is reserved */ -/* Slot 113 is reserved */ -/* Slot 114 is reserved */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TkUnusedStubEntry - -#if defined(__WIN32__) - -#undef XFlush -#undef XGrabServer -#undef XUngrabServer -#undef XFree -#undef XNoOp -#undef XSynchronize -#undef XSync -#undef XVisualIDFromVisual - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) -/* - * The following stubs implement various calls that don't do anything - * under Windows. In win32 tclsh 8.4 and 8.5 holds: - * tkIntStubsPtr->tkBindDeadWindow != NULL - * Then the following macros don't do anything. But when running Tcl win32 - * version 8.6 or Cygwin (8.4, 8.5 or 8.6) then the functions are available in - * the stub table. The real function from the stub table will be called, - * even though it might be doing nothing. - */ - -#define XFlush(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xFlush(display)) -#define XGrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xGrabServer(display)) -#define XUngrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xUngrabServer(display)) - -/* - * The following functions are implemented as macros under Windows. - */ - - -#define XFree(data) (tkIntStubsPtr->tkBindDeadWindow? ((data)? (ckfree((char *) (data)), 0): 0): tkIntXlibStubsPtr->xFree(data)) -#define XNoOp(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xNoOp(display)) -#define XSynchronize(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSynchronize(display, bool)) -#define XSync(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSync(display, bool)) -#define XVisualIDFromVisual(visual) (tkIntStubsPtr->tkBindDeadWindow? ((visual)->visualid): tkIntXlibStubsPtr->xVisualIDFromVisual(visual)) - -#else /* !USE_TK_STUBS */ -/* - * The following stubs implement various calls that don't do anything - * under Windows. - */ - -#define XFlush(display) -#define XGrabServer(display) -#define XUngrabServer(display) - -/* - * The following functions are implemented as macros under Windows. - */ - -#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));} -#define XNoOp(display) {display->request++;} -#define XSynchronize(display, bool) {display->request++;} -#define XSync(display, bool) {display->request++;} -#define XVisualIDFromVisual(visual) (visual->visualid) - -#endif /* !USE_TK_STUBS */ - -#endif /* __WIN32__ */ - -#endif /* _TKINTXLIBDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkPlatDecls.h deleted file mode 100644 index eb3d74da4..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkPlatDecls.h +++ /dev/null @@ -1,253 +0,0 @@ -/* - * tkPlatDecls.h -- - * - * Declarations of functions in the platform-specific public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPLATDECLS -#define _TKPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tk_AttachHWND_TCL_DECLARED -#define Tk_AttachHWND_TCL_DECLARED -/* 0 */ -EXTERN Window Tk_AttachHWND(Tk_Window tkwin, HWND hwnd); -#endif -#ifndef Tk_GetHINSTANCE_TCL_DECLARED -#define Tk_GetHINSTANCE_TCL_DECLARED -/* 1 */ -EXTERN HINSTANCE Tk_GetHINSTANCE(void); -#endif -#ifndef Tk_GetHWND_TCL_DECLARED -#define Tk_GetHWND_TCL_DECLARED -/* 2 */ -EXTERN HWND Tk_GetHWND(Window window); -#endif -#ifndef Tk_HWNDToWindow_TCL_DECLARED -#define Tk_HWNDToWindow_TCL_DECLARED -/* 3 */ -EXTERN Tk_Window Tk_HWNDToWindow(HWND hwnd); -#endif -#ifndef Tk_PointerEvent_TCL_DECLARED -#define Tk_PointerEvent_TCL_DECLARED -/* 4 */ -EXTERN void Tk_PointerEvent(HWND hwnd, int x, int y); -#endif -#ifndef Tk_TranslateWinEvent_TCL_DECLARED -#define Tk_TranslateWinEvent_TCL_DECLARED -/* 5 */ -EXTERN int Tk_TranslateWinEvent(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam, - LRESULT *result); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef Tk_MacOSXSetEmbedHandler_TCL_DECLARED -#define Tk_MacOSXSetEmbedHandler_TCL_DECLARED -/* 0 */ -EXTERN void Tk_MacOSXSetEmbedHandler( - Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, - Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, - Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, - Tk_MacOSXEmbedGetClipProc *getClipProc, - Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); -#endif -#ifndef Tk_MacOSXTurnOffMenus_TCL_DECLARED -#define Tk_MacOSXTurnOffMenus_TCL_DECLARED -/* 1 */ -EXTERN void Tk_MacOSXTurnOffMenus(void); -#endif -#ifndef Tk_MacOSXTkOwnsCursor_TCL_DECLARED -#define Tk_MacOSXTkOwnsCursor_TCL_DECLARED -/* 2 */ -EXTERN void Tk_MacOSXTkOwnsCursor(int tkOwnsIt); -#endif -#ifndef TkMacOSXInitMenus_TCL_DECLARED -#define TkMacOSXInitMenus_TCL_DECLARED -/* 3 */ -EXTERN void TkMacOSXInitMenus(Tcl_Interp *interp); -#endif -#ifndef TkMacOSXInitAppleEvents_TCL_DECLARED -#define TkMacOSXInitAppleEvents_TCL_DECLARED -/* 4 */ -EXTERN void TkMacOSXInitAppleEvents(Tcl_Interp *interp); -#endif -#ifndef TkGenWMConfigureEvent_TCL_DECLARED -#define TkGenWMConfigureEvent_TCL_DECLARED -/* 5 */ -EXTERN void TkGenWMConfigureEvent(Tk_Window tkwin, int x, int y, - int width, int height, int flags); -#endif -#ifndef TkMacOSXInvalClipRgns_TCL_DECLARED -#define TkMacOSXInvalClipRgns_TCL_DECLARED -/* 6 */ -EXTERN void TkMacOSXInvalClipRgns(Tk_Window tkwin); -#endif -#ifndef TkMacOSXGetDrawablePort_TCL_DECLARED -#define TkMacOSXGetDrawablePort_TCL_DECLARED -/* 7 */ -EXTERN VOID * TkMacOSXGetDrawablePort(Drawable drawable); -#endif -#ifndef TkMacOSXGetRootControl_TCL_DECLARED -#define TkMacOSXGetRootControl_TCL_DECLARED -/* 8 */ -EXTERN VOID * TkMacOSXGetRootControl(Drawable drawable); -#endif -#ifndef Tk_MacOSXSetupTkNotifier_TCL_DECLARED -#define Tk_MacOSXSetupTkNotifier_TCL_DECLARED -/* 9 */ -EXTERN void Tk_MacOSXSetupTkNotifier(void); -#endif -#ifndef Tk_MacOSXIsAppInFront_TCL_DECLARED -#define Tk_MacOSXIsAppInFront_TCL_DECLARED -/* 10 */ -EXTERN int Tk_MacOSXIsAppInFront(void); -#endif -#endif /* AQUA */ - -typedef struct TkPlatStubs { - int magic; - struct TkPlatStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ - HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ - HWND (*tk_GetHWND) (Window window); /* 2 */ - Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ - void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ - int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result); /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); /* 0 */ - void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ - void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ - void (*tkMacOSXInitMenus) (Tcl_Interp *interp); /* 3 */ - void (*tkMacOSXInitAppleEvents) (Tcl_Interp *interp); /* 4 */ - void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ - void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ - VOID * (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ - VOID * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ - void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ - int (*tk_MacOSXIsAppInFront) (void); /* 10 */ -#endif /* AQUA */ -} TkPlatStubs; - -extern TkPlatStubs *tkPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tk_AttachHWND -#define Tk_AttachHWND \ - (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ -#endif -#ifndef Tk_GetHINSTANCE -#define Tk_GetHINSTANCE \ - (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ -#endif -#ifndef Tk_GetHWND -#define Tk_GetHWND \ - (tkPlatStubsPtr->tk_GetHWND) /* 2 */ -#endif -#ifndef Tk_HWNDToWindow -#define Tk_HWNDToWindow \ - (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ -#endif -#ifndef Tk_PointerEvent -#define Tk_PointerEvent \ - (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ -#endif -#ifndef Tk_TranslateWinEvent -#define Tk_TranslateWinEvent \ - (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef Tk_MacOSXSetEmbedHandler -#define Tk_MacOSXSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ -#endif -#ifndef Tk_MacOSXTurnOffMenus -#define Tk_MacOSXTurnOffMenus \ - (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ -#endif -#ifndef Tk_MacOSXTkOwnsCursor -#define Tk_MacOSXTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ -#endif -#ifndef TkMacOSXInitMenus -#define TkMacOSXInitMenus \ - (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ -#endif -#ifndef TkMacOSXInitAppleEvents -#define TkMacOSXInitAppleEvents \ - (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ -#endif -#ifndef TkGenWMConfigureEvent -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ -#endif -#ifndef TkMacOSXInvalClipRgns -#define TkMacOSXInvalClipRgns \ - (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ -#endif -#ifndef TkMacOSXGetDrawablePort -#define TkMacOSXGetDrawablePort \ - (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ -#endif -#ifndef TkMacOSXGetRootControl -#define TkMacOSXGetRootControl \ - (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ -#endif -#ifndef Tk_MacOSXSetupTkNotifier -#define Tk_MacOSXSetupTkNotifier \ - (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ -#endif -#ifndef Tk_MacOSXIsAppInFront -#define Tk_MacOSXIsAppInFront \ - (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ -#endif -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkPort.h deleted file mode 100644 index 00c49fd7f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkPort.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * tkPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPORT -#define _TKPORT - -#ifndef _TK -#include "tk.h" -#endif -#ifndef _TCL -#include "tcl.h" -#endif - -#if defined(__WIN32__) || defined(_WIN32) -# include "tkWinPort.h" -#else -# if defined(MAC_OSX_TK) -# include "tkMacOSXPort.h" -# else -# include "tkUnixPort.h" -# endif -#endif - -#endif /* _TKPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWin.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWin.h deleted file mode 100644 index 00d348682..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWin.h +++ /dev/null @@ -1,89 +0,0 @@ -/* - * tkWin.h -- - * - * Declarations of public types and interfaces that are only - * available under Windows. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWIN -#define _TKWIN - -/* - * We must specify the lower version we intend to support. In particular - * the SystemParametersInfo API doesn't like to receive structures that - * are larger than it expects which affects the font assignements. - * - * WINVER = 0x0410 means Windows 98 and above - */ - -#ifndef WINVER -#define WINVER 0x0500 -#endif -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif - -#ifndef _TK -#include -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * The following messages are used to communicate between a Tk toplevel - * and its container window. A Tk container may not be able to provide - * service to all of the following requests at the moment. But an embedded - * Tk window will send out these requests to support external Tk container - * application. - */ - -#define TK_CLAIMFOCUS (WM_USER) /* an embedded window requests to focus */ -#define TK_GEOMETRYREQ (WM_USER+1) /* an embedded window requests to change size */ -#define TK_ATTACHWINDOW (WM_USER+2) /* an embedded window requests to attach */ -#define TK_DETACHWINDOW (WM_USER+3) /* an embedded window requests to detach */ -#define TK_MOVEWINDOW (WM_USER+4) /* an embedded window requests to move */ -#define TK_RAISEWINDOW (WM_USER+5) /* an embedded window requests to raise */ -#define TK_ICONIFY (WM_USER+6) /* an embedded window requests to iconify */ -#define TK_DEICONIFY (WM_USER+7) /* an embedded window requests to deiconify */ -#define TK_WITHDRAW (WM_USER+8) /* an embedded window requests to withdraw */ -#define TK_GETFRAMEWID (WM_USER+9) /* an embedded window requests a frame window id */ -#define TK_OVERRIDEREDIRECT (WM_USER+10) /* an embedded window requests to overrideredirect */ -#define TK_SETMENU (WM_USER+11) /* an embedded window requests to setup menu */ -#define TK_STATE (WM_USER+12) /* an embedded window sets/gets state */ -#define TK_INFO (WM_USER+13) /* an embedded window requests a container's info */ - -/* - * The following are sub-messages (wParam) for TK_INFO. An embedded window may - * send a TK_INFO message with one of the sub-messages to query a container - * for verification and availability - */ -#define TK_CONTAINER_VERIFY 0x01 -#define TK_CONTAINER_ISAVAILABLE 0x02 - - -/* - *-------------------------------------------------------------- - * - * Exported procedures defined for the Windows platform only. - * - *-------------------------------------------------------------- - */ - -#include "tkPlatDecls.h" - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKWIN */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWinInt.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWinInt.h deleted file mode 100644 index abac7b030..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWinInt.h +++ /dev/null @@ -1,291 +0,0 @@ -/* - * tkWinInt.h -- - * - * This file contains declarations that are shared among the - * Windows-specific parts of Tk, but aren't used by the rest of Tk. - * - * Copyright (c) 1995-1997 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWININT -#define _TKWININT - -#ifndef _TKINT -#include "tkInt.h" -#endif - -/* - * Include platform specific public interfaces. - */ - -#ifndef _TKWIN -#include "tkWin.h" -#endif - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -/* - * Define constants missing from older Win32 SDK header files. - */ - -#ifndef WS_EX_TOOLWINDOW -#define WS_EX_TOOLWINDOW 0x00000080L -#endif -#ifndef SPI_SETKEYBOARDCUES -#define SPI_SETKEYBOARDCUES 0x100B -#endif - -/* - * The TkWinDCState is used to save the state of a device context so that it - * can be restored later. - */ - -typedef struct TkWinDCState { - HPALETTE palette; - int bkmode; -} TkWinDCState; - -/* - * The TkWinDrawable is the internal implementation of an X Drawable (either a - * Window or a Pixmap). The following constants define the valid Drawable - * types. - */ - -#define TWD_BITMAP 1 -#define TWD_WINDOW 2 -#define TWD_WINDC 3 - -typedef struct { - int type; - HWND handle; - TkWindow *winPtr; -} TkWinWindow; - -typedef struct { - int type; - HBITMAP handle; - Colormap colormap; - int depth; -} TkWinBitmap; - -typedef struct { - int type; - HDC hdc; -}TkWinDC; - -typedef union { - int type; - TkWinWindow window; - TkWinBitmap bitmap; - TkWinDC winDC; -} TkWinDrawable; - -/* - * The following macros are used to retrieve internal values from a Drawable. - */ - -#define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle) -#define TkWinGetWinPtr(w) (((TkWinDrawable *) w)->window.winPtr) -#define TkWinGetHBITMAP(w) (((TkWinDrawable *) w)->bitmap.handle) -#define TkWinGetColormap(w) (((TkWinDrawable *) w)->bitmap.colormap) -#define TkWinGetHDC(w) (((TkWinDrawable *) w)->winDC.hdc) - -/* - * The following structure is used to encapsulate palette information. - */ - -typedef struct { - HPALETTE palette; /* Palette handle used when drawing. */ - UINT size; /* Number of entries in the palette. */ - int stale; /* 1 if palette needs to be realized, - * otherwise 0. If the palette is stale, then - * an idle handler is scheduled to realize the - * palette. */ - Tcl_HashTable refCounts; /* Hash table of palette entry reference - * counts indexed by pixel value. */ -} TkWinColormap; - -/* - * The following macro retrieves the Win32 palette from a colormap. - */ - -#define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette) - -/* - * The following macros define the class names for Tk Window types. - */ - -#define TK_WIN_TOPLEVEL_CLASS_NAME "TkTopLevel" -#define TK_WIN_CHILD_CLASS_NAME "TkChild" - -/* - * The following variable is a translation table between X gc functions and - * Win32 raster and BitBlt op modes. - */ - -MODULE_SCOPE const int tkpWinRopModes[]; -MODULE_SCOPE const int tkpWinBltModes[]; - -/* - * The following defines are used with TkWinGetBorderPixels to get the extra 2 - * border colors from a Tk_3DBorder. - */ - -#define TK_3D_LIGHT2 TK_3D_DARK_GC+1 -#define TK_3D_DARK2 TK_3D_DARK_GC+2 - -/* - * Internal functions used by more than one source file. - */ - -#include "tkIntPlatDecls.h" - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Special proc needed as tsd accessor function between - * tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard - */ - -EXTERN void TkWinUpdatingClipboard(int mode); - -/* - * Used by tkWinDialog.c to associate the right icon with tk_messageBox - */ - -EXTERN HICON TkWinGetIcon(Tk_Window tkw, DWORD iconsize); - -/* - * Used by tkWinX.c on for certain system display change messages and cleanup - * up containers - */ - -EXTERN void TkWinDisplayChanged(Display *display); -MODULE_SCOPE void TkWinCleanupContainerList(void); - -/* - * Used by tkWinWm.c for embedded menu handling. May become public. - */ - -EXTERN HWND Tk_GetMenuHWND(Tk_Window tkwin); -EXTERN HWND Tk_GetEmbeddedMenuHWND(Tk_Window tkwin); - -/* - * The following structure keeps track of whether we are using the multi-byte - * or the wide-character interfaces to the operating system. System calls - * should be made through the following function table. - * - * While some system calls need to use this A/W jump-table, it is not - * necessary for all calls to do it, which is why you won't see this used - * throughout the Tk code, but only in key areas. -- hobbs - */ - -typedef struct TkWinProcs { - int useWide; - LRESULT (WINAPI *callWindowProc)(WNDPROC lpPrevWndFunc, HWND hWnd, - UINT Msg, WPARAM wParam, LPARAM lParam); - LRESULT (WINAPI *defWindowProc)(HWND hWnd, UINT Msg, WPARAM wParam, - LPARAM lParam); - ATOM (WINAPI *registerClass)(const WNDCLASS *lpWndClass); - BOOL (WINAPI *setWindowText)(HWND hWnd, LPCTSTR lpString); - HWND (WINAPI *createWindowEx)(DWORD dwExStyle, LPCTSTR lpClassName, - LPCTSTR lpWindowName, DWORD dwStyle, int x, int y, - int nWidth, int nHeight, HWND hWndParent, HMENU hMenu, - HINSTANCE hInstance, LPVOID lpParam); - BOOL (WINAPI *insertMenu)(HMENU hMenu, UINT uPosition, UINT uFlags, - UINT uIDNewItem, LPCTSTR lpNewItem); - int (WINAPI *getWindowText)(HWND hWnd, LPCTSTR lpString, int nMaxCount); -} TkWinProcs; - -EXTERN TkWinProcs *tkWinProcs; - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -/* - * The following allows us to cache these encoding for multiple functions. - */ - - -MODULE_SCOPE Tcl_Encoding TkWinGetKeyInputEncoding(void); -MODULE_SCOPE Tcl_Encoding TkWinGetUnicodeEncoding(void); -MODULE_SCOPE void TkWinSetupSystemFonts(TkMainInfo *mainPtr); - -/* - * Values returned by TkWinGetPlatformTheme. - */ - -#define TK_THEME_WIN_CLASSIC 1 -#define TK_THEME_WIN_XP 2 - -/* - * The following is implemented in tkWinWm and used by tkWinEmbed.c - */ - -void TkpWinToplevelWithDraw(TkWindow *winPtr); -void TkpWinToplevelIconify(TkWindow *winPtr); -void TkpWinToplevelDeiconify(TkWindow *winPtr); -long TkpWinToplevelIsControlledByWm(TkWindow *winPtr); -long TkpWinToplevelMove(TkWindow *winPtr, int x, int y); -long TkpWinToplevelOverrideRedirect(TkWindow *winPtr, - int reqValue); -void TkpWinToplevelDetachWindow(TkWindow *winPtr); -int TkpWmGetState(TkWindow *winPtr); - -/* - * The following functions are not present in old versions of Windows - * API headers but are used in the Tk source to ensure 64bit - * compatability. - */ - -#ifndef GetClassLongPtr -# define GetClassLongPtrA GetClassLongA -# define GetClassLongPtrW GetClassLongW -# define SetClassLongPtrA SetClassLongA -# define SetClassLongPtrW SetClassLongW -# ifdef UNICODE -# define GetClassLongPtr GetClassLongPtrW -# define SetClassLongPtr SetClassLongPtrW -# else -# define GetClassLongPtr GetClassLongPtrA -# define SetClassLongPtr SetClassLongPtrA -# endif /* !UNICODE */ -#endif /* !GetClassLongPtr */ -#ifndef GCLP_HICON -# define GCLP_HICON GCL_HICON -#endif /* !GCLP_HICON */ -#ifndef GCLP_HICONSM -# define GCLP_HICONSM (-34) -#endif /* !GCLP_HICONSM */ - -#ifndef GetWindowLongPtr -# define GetWindowLongPtrA GetWindowLongA -# define GetWindowLongPtrW GetWindowLongW -# define SetWindowLongPtrA SetWindowLongA -# define SetWindowLongPtrW SetWindowLongW -# ifdef UNICODE -# define GetWindowLongPtr GetWindowLongPtrW -# define SetWindowLongPtr SetWindowLongPtrW -# else -# define GetWindowLongPtr GetWindowLongPtrW -# define SetWindowLongPtr SetWindowLongPtrW -# endif /* !UNICODE */ -#endif /* !GetWindowLongPtr */ -#ifndef GWLP_WNDPROC -#define GWLP_WNDPROC GWL_WNDPROC -#define GWLP_HINSTANCE GWL_HINSTANCE -#define GWLP_HWNDPARENT GWL_HWNDPARENT -#define GWLP_USERDATA GWL_USERDATA -#define GWLP_ID GWL_ID -#endif /* !GWLP_WNDPROC */ - -#endif /* _TKWININT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWinPort.h deleted file mode 100644 index 2925dae5f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tkWinPort.h +++ /dev/null @@ -1,129 +0,0 @@ -/* - * tkWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1995-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _WINPORT -#define _WINPORT - -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* - * Need to block out this include for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#endif - -#include - -#ifdef _MSC_VER -# ifndef hypot -# define hypot _hypot -# endif -#endif /* _MSC_VER */ - -/* - * Pull in the typedef of TCHAR for windows. - */ -#include -#ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -#endif -#if defined(_MSC_VER) && defined(__STDC__) - /* VS2005 SP1 misses this. See [Bug #3110161] */ - typedef _TCHAR TCHAR; -#endif - - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -#define NBBY 8 - -#ifndef OPEN_MAX -#define OPEN_MAX 32 -#endif - -/* - * The following define causes Tk to use its internal keysym hash table - */ - -#define REDO_KEYSYM_LOOKUP - -/* - * See ticket [916c1095438eae56]: GetVersionExW triggers warnings - */ -#if defined(_MSC_VER) -# pragma warning(disable:4047) -# pragma warning(disable:4267) -# pragma warning(disable:4244) -# pragma warning(disable:4311) -# pragma warning(disable:4312) -# pragma warning(disable:4996) -#endif - -/* - * The following macro checks to see whether there is buffered - * input data available for a stdio FILE. - */ - -#ifdef _MSC_VER -# define TK_READ_DATA_PENDING(f) ((f)->_cnt > 0) -#else /* _MSC_VER */ -# define TK_READ_DATA_PENDING(f) ((f)->level > 0) -#endif /* _MSC_VER */ - -/* - * The following stubs implement various calls that don't do anything - * under Windows. - */ - -#define TkFreeWindowId(dispPtr,w) -#define TkInitXId(dispPtr) - -/* - * The following Tk functions are implemented as macros under Windows. - */ - -#define TkpGetPixel(p) (((((p)->red >> 8) & 0xff) \ - | ((p)->green & 0xff00) | (((p)->blue << 8) & 0xff0000)) | 0x20000000) - -/* - * These calls implement native bitmaps which are not currently - * supported under Windows. The macros eliminate the calls. - */ - -#define TkpDefineNativeBitmaps() -#define TkpCreateNativeBitmap(display, source) None -#define TkpGetNativeAppBitmap(display, name, w, h) None - -#endif /* _WINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tommath_class.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tommath_class.h deleted file mode 100644 index b9cc9024c..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tommath_class.h +++ /dev/null @@ -1,995 +0,0 @@ -#if !(defined(LTM1) && defined(LTM2) && defined(LTM3)) -#if defined(LTM2) -#define LTM3 -#endif -#if defined(LTM1) -#define LTM2 -#endif -#define LTM1 - -#if defined(LTM_ALL) -#define BN_ERROR_C -#define BN_FAST_MP_INVMOD_C -#define BN_FAST_MP_MONTGOMERY_REDUCE_C -#define BN_FAST_S_MP_MUL_DIGS_C -#define BN_FAST_S_MP_MUL_HIGH_DIGS_C -#define BN_FAST_S_MP_SQR_C -#define BN_MP_2EXPT_C -#define BN_MP_ABS_C -#define BN_MP_ADD_C -#define BN_MP_ADD_D_C -#define BN_MP_ADDMOD_C -#define BN_MP_AND_C -#define BN_MP_CLAMP_C -#define BN_MP_CLEAR_C -#define BN_MP_CLEAR_MULTI_C -#define BN_MP_CMP_C -#define BN_MP_CMP_D_C -#define BN_MP_CMP_MAG_C -#define BN_MP_CNT_LSB_C -#define BN_MP_COPY_C -#define BN_MP_COUNT_BITS_C -#define BN_MP_DIV_C -#define BN_MP_DIV_2_C -#define BN_MP_DIV_2D_C -#define BN_MP_DIV_3_C -#define BN_MP_DIV_D_C -#define BN_MP_DR_IS_MODULUS_C -#define BN_MP_DR_REDUCE_C -#define BN_MP_DR_SETUP_C -#define BN_MP_EXCH_C -#define BN_MP_EXPT_D_C -#define BN_MP_EXPTMOD_C -#define BN_MP_EXPTMOD_FAST_C -#define BN_MP_EXTEUCLID_C -#define BN_MP_FREAD_C -#define BN_MP_FWRITE_C -#define BN_MP_GCD_C -#define BN_MP_GET_INT_C -#define BN_MP_GROW_C -#define BN_MP_INIT_C -#define BN_MP_INIT_COPY_C -#define BN_MP_INIT_MULTI_C -#define BN_MP_INIT_SET_C -#define BN_MP_INIT_SET_INT_C -#define BN_MP_INIT_SIZE_C -#define BN_MP_INVMOD_C -#define BN_MP_INVMOD_SLOW_C -#define BN_MP_IS_SQUARE_C -#define BN_MP_JACOBI_C -#define BN_MP_KARATSUBA_MUL_C -#define BN_MP_KARATSUBA_SQR_C -#define BN_MP_LCM_C -#define BN_MP_LSHD_C -#define BN_MP_MOD_C -#define BN_MP_MOD_2D_C -#define BN_MP_MOD_D_C -#define BN_MP_MONTGOMERY_CALC_NORMALIZATION_C -#define BN_MP_MONTGOMERY_REDUCE_C -#define BN_MP_MONTGOMERY_SETUP_C -#define BN_MP_MUL_C -#define BN_MP_MUL_2_C -#define BN_MP_MUL_2D_C -#define BN_MP_MUL_D_C -#define BN_MP_MULMOD_C -#define BN_MP_N_ROOT_C -#define BN_MP_NEG_C -#define BN_MP_OR_C -#define BN_MP_PRIME_FERMAT_C -#define BN_MP_PRIME_IS_DIVISIBLE_C -#define BN_MP_PRIME_IS_PRIME_C -#define BN_MP_PRIME_MILLER_RABIN_C -#define BN_MP_PRIME_NEXT_PRIME_C -#define BN_MP_PRIME_RABIN_MILLER_TRIALS_C -#define BN_MP_PRIME_RANDOM_EX_C -#define BN_MP_RADIX_SIZE_C -#define BN_MP_RADIX_SMAP_C -#define BN_MP_RAND_C -#define BN_MP_READ_RADIX_C -#define BN_MP_READ_SIGNED_BIN_C -#define BN_MP_READ_UNSIGNED_BIN_C -#define BN_MP_REDUCE_C -#define BN_MP_REDUCE_2K_C -#define BN_MP_REDUCE_2K_L_C -#define BN_MP_REDUCE_2K_SETUP_C -#define BN_MP_REDUCE_2K_SETUP_L_C -#define BN_MP_REDUCE_IS_2K_C -#define BN_MP_REDUCE_IS_2K_L_C -#define BN_MP_REDUCE_SETUP_C -#define BN_MP_RSHD_C -#define BN_MP_SET_C -#define BN_MP_SET_INT_C -#define BN_MP_SHRINK_C -#define BN_MP_SIGNED_BIN_SIZE_C -#define BN_MP_SQR_C -#define BN_MP_SQRMOD_C -#define BN_MP_SQRT_C -#define BN_MP_SUB_C -#define BN_MP_SUB_D_C -#define BN_MP_SUBMOD_C -#define BN_MP_TO_SIGNED_BIN_C -#define BN_MP_TO_SIGNED_BIN_N_C -#define BN_MP_TO_UNSIGNED_BIN_C -#define BN_MP_TO_UNSIGNED_BIN_N_C -#define BN_MP_TOOM_MUL_C -#define BN_MP_TOOM_SQR_C -#define BN_MP_TORADIX_C -#define BN_MP_TORADIX_N_C -#define BN_MP_UNSIGNED_BIN_SIZE_C -#define BN_MP_XOR_C -#define BN_MP_ZERO_C -#define BN_PRIME_TAB_C -#define BN_REVERSE_C -#define BN_S_MP_ADD_C -#define BN_S_MP_EXPTMOD_C -#define BN_S_MP_MUL_DIGS_C -#define BN_S_MP_MUL_HIGH_DIGS_C -#define BN_S_MP_SQR_C -#define BN_S_MP_SUB_C -#define BNCORE_C -#endif - -#if defined(BN_ERROR_C) - #define BN_MP_ERROR_TO_STRING_C -#endif - -#if defined(BN_FAST_MP_INVMOD_C) - #define BN_MP_ISEVEN_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_COPY_C - #define BN_MP_MOD_C - #define BN_MP_SET_C - #define BN_MP_DIV_2_C - #define BN_MP_ISODD_C - #define BN_MP_SUB_C - #define BN_MP_CMP_C - #define BN_MP_ISZERO_C - #define BN_MP_CMP_D_C - #define BN_MP_ADD_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_FAST_MP_MONTGOMERY_REDUCE_C) - #define BN_MP_GROW_C - #define BN_MP_RSHD_C - #define BN_MP_CLAMP_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_FAST_S_MP_MUL_DIGS_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_FAST_S_MP_MUL_HIGH_DIGS_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_FAST_S_MP_SQR_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_2EXPT_C) - #define BN_MP_ZERO_C - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_ABS_C) - #define BN_MP_COPY_C -#endif - -#if defined(BN_MP_ADD_C) - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_ADD_D_C) - #define BN_MP_GROW_C - #define BN_MP_SUB_D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_ADDMOD_C) - #define BN_MP_INIT_C - #define BN_MP_ADD_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_AND_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_CLAMP_C) -#endif - -#if defined(BN_MP_CLEAR_C) -#endif - -#if defined(BN_MP_CLEAR_MULTI_C) - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_CMP_C) - #define BN_MP_CMP_MAG_C -#endif - -#if defined(BN_MP_CMP_D_C) -#endif - -#if defined(BN_MP_CMP_MAG_C) -#endif - -#if defined(BN_MP_CNT_LSB_C) - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_COPY_C) - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_COUNT_BITS_C) -#endif - -#if defined(BN_MP_DIV_C) - #define BN_MP_ISZERO_C - #define BN_MP_CMP_MAG_C - #define BN_MP_COPY_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_SET_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_ABS_C - #define BN_MP_MUL_2D_C - #define BN_MP_CMP_C - #define BN_MP_SUB_C - #define BN_MP_ADD_C - #define BN_MP_DIV_2D_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_INIT_C - #define BN_MP_INIT_COPY_C - #define BN_MP_LSHD_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_D_C - #define BN_MP_CLAMP_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DIV_2_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_DIV_2D_C) - #define BN_MP_COPY_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_C - #define BN_MP_MOD_2D_C - #define BN_MP_CLEAR_C - #define BN_MP_RSHD_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_DIV_3_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DIV_D_C) - #define BN_MP_ISZERO_C - #define BN_MP_COPY_C - #define BN_MP_DIV_2D_C - #define BN_MP_DIV_3_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DR_IS_MODULUS_C) -#endif - -#if defined(BN_MP_DR_REDUCE_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_DR_SETUP_C) -#endif - -#if defined(BN_MP_EXCH_C) -#endif - -#if defined(BN_MP_EXPT_D_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_SET_C - #define BN_MP_SQR_C - #define BN_MP_CLEAR_C - #define BN_MP_MUL_C -#endif - -#if defined(BN_MP_EXPTMOD_C) - #define BN_MP_INIT_C - #define BN_MP_INVMOD_C - #define BN_MP_CLEAR_C - #define BN_MP_ABS_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_REDUCE_IS_2K_L_C - #define BN_S_MP_EXPTMOD_C - #define BN_MP_DR_IS_MODULUS_C - #define BN_MP_REDUCE_IS_2K_C - #define BN_MP_ISODD_C - #define BN_MP_EXPTMOD_FAST_C -#endif - -#if defined(BN_MP_EXPTMOD_FAST_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C - #define BN_MP_MONTGOMERY_SETUP_C - #define BN_FAST_MP_MONTGOMERY_REDUCE_C - #define BN_MP_MONTGOMERY_REDUCE_C - #define BN_MP_DR_SETUP_C - #define BN_MP_DR_REDUCE_C - #define BN_MP_REDUCE_2K_SETUP_C - #define BN_MP_REDUCE_2K_C - #define BN_MP_MONTGOMERY_CALC_NORMALIZATION_C - #define BN_MP_MULMOD_C - #define BN_MP_SET_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_SQR_C - #define BN_MP_MUL_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_EXTEUCLID_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_SET_C - #define BN_MP_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_C - #define BN_MP_MUL_C - #define BN_MP_SUB_C - #define BN_MP_NEG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_FREAD_C) - #define BN_MP_ZERO_C - #define BN_MP_S_RMAP_C - #define BN_MP_MUL_D_C - #define BN_MP_ADD_D_C - #define BN_MP_CMP_D_C -#endif - -#if defined(BN_MP_FWRITE_C) - #define BN_MP_RADIX_SIZE_C - #define BN_MP_TORADIX_C -#endif - -#if defined(BN_MP_GCD_C) - #define BN_MP_ISZERO_C - #define BN_MP_ABS_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_S_MP_SUB_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_GET_INT_C) -#endif - -#if defined(BN_MP_GROW_C) -#endif - -#if defined(BN_MP_INIT_C) -#endif - -#if defined(BN_MP_INIT_COPY_C) - #define BN_MP_COPY_C -#endif - -#if defined(BN_MP_INIT_MULTI_C) - #define BN_MP_ERR_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_INIT_SET_C) - #define BN_MP_INIT_C - #define BN_MP_SET_C -#endif - -#if defined(BN_MP_INIT_SET_INT_C) - #define BN_MP_INIT_C - #define BN_MP_SET_INT_C -#endif - -#if defined(BN_MP_INIT_SIZE_C) - #define BN_MP_INIT_C -#endif - -#if defined(BN_MP_INVMOD_C) - #define BN_MP_ISZERO_C - #define BN_MP_ISODD_C - #define BN_FAST_MP_INVMOD_C - #define BN_MP_INVMOD_SLOW_C -#endif - -#if defined(BN_MP_INVMOD_SLOW_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_ISEVEN_C - #define BN_MP_SET_C - #define BN_MP_DIV_2_C - #define BN_MP_ISODD_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_CMP_C - #define BN_MP_CMP_D_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_IS_SQUARE_C) - #define BN_MP_MOD_D_C - #define BN_MP_INIT_SET_INT_C - #define BN_MP_MOD_C - #define BN_MP_GET_INT_C - #define BN_MP_SQRT_C - #define BN_MP_SQR_C - #define BN_MP_CMP_MAG_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_JACOBI_C) - #define BN_MP_CMP_D_C - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_MOD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_KARATSUBA_MUL_C) - #define BN_MP_MUL_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_SUB_C - #define BN_MP_ADD_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_KARATSUBA_SQR_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_SQR_C - #define BN_MP_SUB_C - #define BN_S_MP_ADD_C - #define BN_MP_LSHD_C - #define BN_MP_ADD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_LCM_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_GCD_C - #define BN_MP_CMP_MAG_C - #define BN_MP_DIV_C - #define BN_MP_MUL_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_LSHD_C) - #define BN_MP_GROW_C - #define BN_MP_RSHD_C -#endif - -#if defined(BN_MP_MOD_C) - #define BN_MP_INIT_C - #define BN_MP_DIV_C - #define BN_MP_CLEAR_C - #define BN_MP_ADD_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_MOD_2D_C) - #define BN_MP_ZERO_C - #define BN_MP_COPY_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MOD_D_C) - #define BN_MP_DIV_D_C -#endif - -#if defined(BN_MP_MONTGOMERY_CALC_NORMALIZATION_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_2EXPT_C - #define BN_MP_SET_C - #define BN_MP_MUL_2_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_MONTGOMERY_REDUCE_C) - #define BN_FAST_MP_MONTGOMERY_REDUCE_C - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C - #define BN_MP_RSHD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_MONTGOMERY_SETUP_C) -#endif - -#if defined(BN_MP_MUL_C) - #define BN_MP_TOOM_MUL_C - #define BN_MP_KARATSUBA_MUL_C - #define BN_FAST_S_MP_MUL_DIGS_C - #define BN_S_MP_MUL_C - #define BN_S_MP_MUL_DIGS_C -#endif - -#if defined(BN_MP_MUL_2_C) - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_MUL_2D_C) - #define BN_MP_COPY_C - #define BN_MP_GROW_C - #define BN_MP_LSHD_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MUL_D_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MULMOD_C) - #define BN_MP_INIT_C - #define BN_MP_MUL_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_N_ROOT_C) - #define BN_MP_INIT_C - #define BN_MP_SET_C - #define BN_MP_COPY_C - #define BN_MP_EXPT_D_C - #define BN_MP_MUL_C - #define BN_MP_SUB_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_C - #define BN_MP_CMP_C - #define BN_MP_SUB_D_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_NEG_C) - #define BN_MP_COPY_C - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_OR_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_FERMAT_C) - #define BN_MP_CMP_D_C - #define BN_MP_INIT_C - #define BN_MP_EXPTMOD_C - #define BN_MP_CMP_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_IS_DIVISIBLE_C) - #define BN_MP_MOD_D_C -#endif - -#if defined(BN_MP_PRIME_IS_PRIME_C) - #define BN_MP_CMP_D_C - #define BN_MP_PRIME_IS_DIVISIBLE_C - #define BN_MP_INIT_C - #define BN_MP_SET_C - #define BN_MP_PRIME_MILLER_RABIN_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_MILLER_RABIN_C) - #define BN_MP_CMP_D_C - #define BN_MP_INIT_COPY_C - #define BN_MP_SUB_D_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_EXPTMOD_C - #define BN_MP_CMP_C - #define BN_MP_SQRMOD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_NEXT_PRIME_C) - #define BN_MP_CMP_D_C - #define BN_MP_SET_C - #define BN_MP_SUB_D_C - #define BN_MP_ISEVEN_C - #define BN_MP_MOD_D_C - #define BN_MP_INIT_C - #define BN_MP_ADD_D_C - #define BN_MP_PRIME_MILLER_RABIN_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_RABIN_MILLER_TRIALS_C) -#endif - -#if defined(BN_MP_PRIME_RANDOM_EX_C) - #define BN_MP_READ_UNSIGNED_BIN_C - #define BN_MP_PRIME_IS_PRIME_C - #define BN_MP_SUB_D_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_D_C -#endif - -#if defined(BN_MP_RADIX_SIZE_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_RADIX_SMAP_C) - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_RAND_C) - #define BN_MP_ZERO_C - #define BN_MP_ADD_D_C - #define BN_MP_LSHD_C -#endif - -#if defined(BN_MP_READ_RADIX_C) - #define BN_MP_ZERO_C - #define BN_MP_S_RMAP_C - #define BN_MP_RADIX_SMAP_C - #define BN_MP_MUL_D_C - #define BN_MP_ADD_D_C - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_READ_SIGNED_BIN_C) - #define BN_MP_READ_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_READ_UNSIGNED_BIN_C) - #define BN_MP_GROW_C - #define BN_MP_ZERO_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_REDUCE_C) - #define BN_MP_REDUCE_SETUP_C - #define BN_MP_INIT_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_C - #define BN_S_MP_MUL_HIGH_DIGS_C - #define BN_FAST_S_MP_MUL_HIGH_DIGS_C - #define BN_MP_MOD_2D_C - #define BN_S_MP_MUL_DIGS_C - #define BN_MP_SUB_C - #define BN_MP_CMP_D_C - #define BN_MP_SET_C - #define BN_MP_LSHD_C - #define BN_MP_ADD_C - #define BN_MP_CMP_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_DIV_2D_C - #define BN_MP_MUL_D_C - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_L_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_DIV_2D_C - #define BN_MP_MUL_C - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_SETUP_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_2EXPT_C - #define BN_MP_CLEAR_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_REDUCE_2K_SETUP_L_C) - #define BN_MP_INIT_C - #define BN_MP_2EXPT_C - #define BN_MP_COUNT_BITS_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_IS_2K_C) - #define BN_MP_REDUCE_2K_C - #define BN_MP_COUNT_BITS_C -#endif - -#if defined(BN_MP_REDUCE_IS_2K_L_C) -#endif - -#if defined(BN_MP_REDUCE_SETUP_C) - #define BN_MP_2EXPT_C - #define BN_MP_DIV_C -#endif - -#if defined(BN_MP_RSHD_C) - #define BN_MP_ZERO_C -#endif - -#if defined(BN_MP_SET_C) - #define BN_MP_ZERO_C -#endif - -#if defined(BN_MP_SET_INT_C) - #define BN_MP_ZERO_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_SHRINK_C) -#endif - -#if defined(BN_MP_SIGNED_BIN_SIZE_C) - #define BN_MP_UNSIGNED_BIN_SIZE_C -#endif - -#if defined(BN_MP_SQR_C) - #define BN_MP_TOOM_SQR_C - #define BN_MP_KARATSUBA_SQR_C - #define BN_FAST_S_MP_SQR_C - #define BN_S_MP_SQR_C -#endif - -#if defined(BN_MP_SQRMOD_C) - #define BN_MP_INIT_C - #define BN_MP_SQR_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_SQRT_C) - #define BN_MP_N_ROOT_C - #define BN_MP_ISZERO_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_DIV_C - #define BN_MP_ADD_C - #define BN_MP_DIV_2_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_SUB_C) - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_SUB_D_C) - #define BN_MP_GROW_C - #define BN_MP_ADD_D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_SUBMOD_C) - #define BN_MP_INIT_C - #define BN_MP_SUB_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_TO_SIGNED_BIN_C) - #define BN_MP_TO_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_TO_SIGNED_BIN_N_C) - #define BN_MP_SIGNED_BIN_SIZE_C - #define BN_MP_TO_SIGNED_BIN_C -#endif - -#if defined(BN_MP_TO_UNSIGNED_BIN_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_2D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_TO_UNSIGNED_BIN_N_C) - #define BN_MP_UNSIGNED_BIN_SIZE_C - #define BN_MP_TO_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_TOOM_MUL_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_2D_C - #define BN_MP_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2D_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_3_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_TOOM_SQR_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_2D_C - #define BN_MP_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_SQR_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2D_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_3_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_TORADIX_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_TORADIX_N_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_UNSIGNED_BIN_SIZE_C) - #define BN_MP_COUNT_BITS_C -#endif - -#if defined(BN_MP_XOR_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_ZERO_C) -#endif - -#if defined(BN_PRIME_TAB_C) -#endif - -#if defined(BN_REVERSE_C) -#endif - -#if defined(BN_S_MP_ADD_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_S_MP_EXPTMOD_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C - #define BN_MP_REDUCE_SETUP_C - #define BN_MP_REDUCE_C - #define BN_MP_REDUCE_2K_SETUP_L_C - #define BN_MP_REDUCE_2K_L_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_SQR_C - #define BN_MP_MUL_C - #define BN_MP_SET_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_S_MP_MUL_DIGS_C) - #define BN_FAST_S_MP_MUL_DIGS_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_MUL_HIGH_DIGS_C) - #define BN_FAST_S_MP_MUL_HIGH_DIGS_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_SQR_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_SUB_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BNCORE_C) -#endif - -#ifdef LTM3 -#define LTM_LAST -#endif -#include -#include -#else -#define LTM_LAST -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tommath_superclass.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tommath_superclass.h deleted file mode 100644 index e3926df05..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/include/tommath_superclass.h +++ /dev/null @@ -1,72 +0,0 @@ -/* super class file for PK algos */ - -/* default ... include all MPI */ -#define LTM_ALL - -/* RSA only (does not support DH/DSA/ECC) */ -/* #define SC_RSA_1 */ - -/* For reference.... On an Athlon64 optimizing for speed... - - LTM's mpi.o with all functions [striped] is 142KiB in size. - -*/ - -/* Works for RSA only, mpi.o is 68KiB */ -#ifdef SC_RSA_1 - #define BN_MP_SHRINK_C - #define BN_MP_LCM_C - #define BN_MP_PRIME_RANDOM_EX_C - #define BN_MP_INVMOD_C - #define BN_MP_GCD_C - #define BN_MP_MOD_C - #define BN_MP_MULMOD_C - #define BN_MP_ADDMOD_C - #define BN_MP_EXPTMOD_C - #define BN_MP_SET_INT_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_UNSIGNED_BIN_SIZE_C - #define BN_MP_TO_UNSIGNED_BIN_C - #define BN_MP_MOD_D_C - #define BN_MP_PRIME_RABIN_MILLER_TRIALS_C - #define BN_REVERSE_C - #define BN_PRIME_TAB_C - - /* other modifiers */ - #define BN_MP_DIV_SMALL /* Slower division, not critical */ - - /* here we are on the last pass so we turn things off. The functions classes are still there - * but we remove them specifically from the build. This also invokes tweaks in functions - * like removing support for even moduli, etc... - */ -#ifdef LTM_LAST - #undef BN_MP_TOOM_MUL_C - #undef BN_MP_TOOM_SQR_C - #undef BN_MP_KARATSUBA_MUL_C - #undef BN_MP_KARATSUBA_SQR_C - #undef BN_MP_REDUCE_C - #undef BN_MP_REDUCE_SETUP_C - #undef BN_MP_DR_IS_MODULUS_C - #undef BN_MP_DR_SETUP_C - #undef BN_MP_DR_REDUCE_C - #undef BN_MP_REDUCE_IS_2K_C - #undef BN_MP_REDUCE_2K_SETUP_C - #undef BN_MP_REDUCE_2K_C - #undef BN_S_MP_EXPTMOD_C - #undef BN_MP_DIV_3_C - #undef BN_S_MP_MUL_HIGH_DIGS_C - #undef BN_FAST_S_MP_MUL_HIGH_DIGS_C - #undef BN_FAST_MP_INVMOD_C - - /* To safely undefine these you have to make sure your RSA key won't exceed the Comba threshold - * which is roughly 255 digits [7140 bits for 32-bit machines, 15300 bits for 64-bit machines] - * which means roughly speaking you can handle upto 2536-bit RSA keys with these defined without - * trouble. - */ - #undef BN_S_MP_MUL_DIGS_C - #undef BN_S_MP_SQR_C - #undef BN_MP_MONTGOMERY_REDUCE_C -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/lib/tclstub85.lib b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/lib/tclstub85.lib deleted file mode 100644 index 153bf2188..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/lib/tclstub85.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/lib/tkstub85.lib b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/lib/tkstub85.lib deleted file mode 100644 index 2a65e0458..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk/lib/tkstub85.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/X.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/X.h deleted file mode 100644 index b43967e0d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/X.h +++ /dev/null @@ -1,686 +0,0 @@ -/* - * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ - */ - -/* Definitions for the X window system likely to be used by applications */ - -#ifndef X_H -#define X_H - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ -#define X_PROTOCOL 11 /* current protocol version */ -#define X_PROTOCOL_REVISION 0 /* current minor version */ - -#if defined(MAC_OSX_TK) -# define Cursor XCursor -# define Region XRegion -#endif - -/* Resources */ - -#ifdef _WIN64 -typedef __int64 XID; -#else -typedef unsigned long XID; -#endif - -typedef XID Window; -typedef XID Drawable; -typedef XID Font; -typedef XID Pixmap; -typedef XID Cursor; -typedef XID Colormap; -typedef XID GContext; -typedef XID KeySym; - -typedef unsigned long Mask; - -typedef unsigned long Atom; - -typedef unsigned long VisualID; - -typedef unsigned long Time; - -typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs - * to pack 3 bytes into the keyCode field in - * the XEvent. In the real X.h, a KeyCode is - * defined as a short, which wouldn't be big - * enough. */ - -/***************************************************************** - * RESERVED RESOURCE AND CONSTANT DEFINITIONS - *****************************************************************/ - -#ifndef _WIN32 -# define None 0L /* See bug [9e31fd9449] and below */ -#endif - -#define ParentRelative 1L /* background pixmap in CreateWindow - and ChangeWindowAttributes */ - -#define CopyFromParent 0L /* border pixmap in CreateWindow - and ChangeWindowAttributes - special VisualID and special window - class passed to CreateWindow */ - -#define PointerWindow 0L /* destination window in SendEvent */ -#define InputFocus 1L /* destination window in SendEvent */ - -#define PointerRoot 1L /* focus window in SetInputFocus */ - -#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ - -#define AnyKey 0L /* special Key Code, passed to GrabKey */ - -#define AnyButton 0L /* special Button Code, passed to GrabButton */ - -#define AllTemporary 0L /* special Resource ID passed to KillClient */ - -#define CurrentTime 0L /* special Time */ - -#define NoSymbol 0L /* special KeySym */ - -/***************************************************************** - * EVENT DEFINITIONS - *****************************************************************/ - -/* Input Event Masks. Used as event-mask window attribute and as arguments - to Grab requests. Not to be confused with event names. */ - -#define NoEventMask 0L -#define KeyPressMask (1L<<0) -#define KeyReleaseMask (1L<<1) -#define ButtonPressMask (1L<<2) -#define ButtonReleaseMask (1L<<3) -#define EnterWindowMask (1L<<4) -#define LeaveWindowMask (1L<<5) -#define PointerMotionMask (1L<<6) -#define PointerMotionHintMask (1L<<7) -#define Button1MotionMask (1L<<8) -#define Button2MotionMask (1L<<9) -#define Button3MotionMask (1L<<10) -#define Button4MotionMask (1L<<11) -#define Button5MotionMask (1L<<12) -#define ButtonMotionMask (1L<<13) -#define KeymapStateMask (1L<<14) -#define ExposureMask (1L<<15) -#define VisibilityChangeMask (1L<<16) -#define StructureNotifyMask (1L<<17) -#define ResizeRedirectMask (1L<<18) -#define SubstructureNotifyMask (1L<<19) -#define SubstructureRedirectMask (1L<<20) -#define FocusChangeMask (1L<<21) -#define PropertyChangeMask (1L<<22) -#define ColormapChangeMask (1L<<23) -#define OwnerGrabButtonMask (1L<<24) - -/* Event names. Used in "type" field in XEvent structures. Not to be -confused with event masks above. They start from 2 because 0 and 1 -are reserved in the protocol for errors and replies. */ - -#define KeyPress 2 -#define KeyRelease 3 -#define ButtonPress 4 -#define ButtonRelease 5 -#define MotionNotify 6 -#define EnterNotify 7 -#define LeaveNotify 8 -#define FocusIn 9 -#define FocusOut 10 -#define KeymapNotify 11 -#define Expose 12 -#define GraphicsExpose 13 -#define NoExpose 14 -#define VisibilityNotify 15 -#define CreateNotify 16 -#define DestroyNotify 17 -#define UnmapNotify 18 -#define MapNotify 19 -#define MapRequest 20 -#define ReparentNotify 21 -#define ConfigureNotify 22 -#define ConfigureRequest 23 -#define GravityNotify 24 -#define ResizeRequest 25 -#define CirculateNotify 26 -#define CirculateRequest 27 -#define PropertyNotify 28 -#define SelectionClear 29 -#define SelectionRequest 30 -#define SelectionNotify 31 -#define ColormapNotify 32 -#define ClientMessage 33 -#define MappingNotify 34 -#define LASTEvent 35 /* must be bigger than any event # */ - - -/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, - state in various key-, mouse-, and button-related events. */ - -#define ShiftMask (1<<0) -#define LockMask (1<<1) -#ifndef _WIN32 -# define ControlMask (1<<2) /* See bug [9e31fd9449] and below */ -#endif -#define Mod1Mask (1<<3) -#define Mod2Mask (1<<4) -#define Mod3Mask (1<<5) -#define Mod4Mask (1<<6) -#define Mod5Mask (1<<7) - -/* See bug [9e31fd9449], this way prevents conflicts with Win32 headers */ -#ifdef _WIN32 -enum _Bug9e31fd9449 { None = 0, ControlMask = (1<<2) }; -#endif - -/* modifier names. Used to build a SetModifierMapping request or - to read a GetModifierMapping request. These correspond to the - masks defined above. */ -#define ShiftMapIndex 0 -#define LockMapIndex 1 -#define ControlMapIndex 2 -#define Mod1MapIndex 3 -#define Mod2MapIndex 4 -#define Mod3MapIndex 5 -#define Mod4MapIndex 6 -#define Mod5MapIndex 7 - - -/* button masks. Used in same manner as Key masks above. Not to be confused - with button names below. */ - -#define Button1Mask (1<<8) -#define Button2Mask (1<<9) -#define Button3Mask (1<<10) -#define Button4Mask (1<<11) -#define Button5Mask (1<<12) - -#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ - - -/* button names. Used as arguments to GrabButton and as detail in ButtonPress - and ButtonRelease events. Not to be confused with button masks above. - Note that 0 is already defined above as "AnyButton". */ - -#define Button1 1 -#define Button2 2 -#define Button3 3 -#define Button4 4 -#define Button5 5 - -/* Notify modes */ - -#define NotifyNormal 0 -#define NotifyGrab 1 -#define NotifyUngrab 2 -#define NotifyWhileGrabbed 3 - -#define NotifyHint 1 /* for MotionNotify events */ - -/* Notify detail */ - -#define NotifyAncestor 0 -#define NotifyVirtual 1 -#define NotifyInferior 2 -#define NotifyNonlinear 3 -#define NotifyNonlinearVirtual 4 -#define NotifyPointer 5 -#define NotifyPointerRoot 6 -#define NotifyDetailNone 7 - -/* Visibility notify */ - -#define VisibilityUnobscured 0 -#define VisibilityPartiallyObscured 1 -#define VisibilityFullyObscured 2 - -/* Circulation request */ - -#define PlaceOnTop 0 -#define PlaceOnBottom 1 - -/* protocol families */ - -#define FamilyInternet 0 -#define FamilyDECnet 1 -#define FamilyChaos 2 - -/* Property notification */ - -#define PropertyNewValue 0 -#define PropertyDelete 1 - -/* Color Map notification */ - -#define ColormapUninstalled 0 -#define ColormapInstalled 1 - -/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ - -#define GrabModeSync 0 -#define GrabModeAsync 1 - -/* GrabPointer, GrabKeyboard reply status */ - -#define GrabSuccess 0 -#define AlreadyGrabbed 1 -#define GrabInvalidTime 2 -#define GrabNotViewable 3 -#define GrabFrozen 4 - -/* AllowEvents modes */ - -#define AsyncPointer 0 -#define SyncPointer 1 -#define ReplayPointer 2 -#define AsyncKeyboard 3 -#define SyncKeyboard 4 -#define ReplayKeyboard 5 -#define AsyncBoth 6 -#define SyncBoth 7 - -/* Used in SetInputFocus, GetInputFocus */ - -#define RevertToNone (int)None -#define RevertToPointerRoot (int)PointerRoot -#define RevertToParent 2 - -/***************************************************************** - * ERROR CODES - *****************************************************************/ - -#define Success 0 /* everything's okay */ -#define BadRequest 1 /* bad request code */ -#define BadValue 2 /* int parameter out of range */ -#define BadWindow 3 /* parameter not a Window */ -#define BadPixmap 4 /* parameter not a Pixmap */ -#define BadAtom 5 /* parameter not an Atom */ -#define BadCursor 6 /* parameter not a Cursor */ -#define BadFont 7 /* parameter not a Font */ -#define BadMatch 8 /* parameter mismatch */ -#define BadDrawable 9 /* parameter not a Pixmap or Window */ -#define BadAccess 10 /* depending on context: - - key/button already grabbed - - attempt to free an illegal - cmap entry - - attempt to store into a read-only - color map entry. - - attempt to modify the access control - list from other than the local host. - */ -#define BadAlloc 11 /* insufficient resources */ -#define BadColor 12 /* no such colormap */ -#define BadGC 13 /* parameter not a GC */ -#define BadIDChoice 14 /* choice not in range or already used */ -#define BadName 15 /* font or color name doesn't exist */ -#define BadLength 16 /* Request length incorrect */ -#define BadImplementation 17 /* server is defective */ - -#define FirstExtensionError 128 -#define LastExtensionError 255 - -/***************************************************************** - * WINDOW DEFINITIONS - *****************************************************************/ - -/* Window classes used by CreateWindow */ -/* Note that CopyFromParent is already defined as 0 above */ - -#define InputOutput 1 -#define InputOnly 2 - -/* Window attributes for CreateWindow and ChangeWindowAttributes */ - -#define CWBackPixmap (1L<<0) -#define CWBackPixel (1L<<1) -#define CWBorderPixmap (1L<<2) -#define CWBorderPixel (1L<<3) -#define CWBitGravity (1L<<4) -#define CWWinGravity (1L<<5) -#define CWBackingStore (1L<<6) -#define CWBackingPlanes (1L<<7) -#define CWBackingPixel (1L<<8) -#define CWOverrideRedirect (1L<<9) -#define CWSaveUnder (1L<<10) -#define CWEventMask (1L<<11) -#define CWDontPropagate (1L<<12) -#define CWColormap (1L<<13) -#define CWCursor (1L<<14) - -/* ConfigureWindow structure */ - -#define CWX (1<<0) -#define CWY (1<<1) -#define CWWidth (1<<2) -#define CWHeight (1<<3) -#define CWBorderWidth (1<<4) -#define CWSibling (1<<5) -#define CWStackMode (1<<6) - - -/* Bit Gravity */ - -#define ForgetGravity 0 -#define NorthWestGravity 1 -#define NorthGravity 2 -#define NorthEastGravity 3 -#define WestGravity 4 -#define CenterGravity 5 -#define EastGravity 6 -#define SouthWestGravity 7 -#define SouthGravity 8 -#define SouthEastGravity 9 -#define StaticGravity 10 - -/* Window gravity + bit gravity above */ - -#define UnmapGravity 0 - -/* Used in CreateWindow for backing-store hint */ - -#define NotUseful 0 -#define WhenMapped 1 -#define Always 2 - -/* Used in GetWindowAttributes reply */ - -#define IsUnmapped 0 -#define IsUnviewable 1 -#define IsViewable 2 - -/* Used in ChangeSaveSet */ - -#define SetModeInsert 0 -#define SetModeDelete 1 - -/* Used in ChangeCloseDownMode */ - -#define DestroyAll 0 -#define RetainPermanent 1 -#define RetainTemporary 2 - -/* Window stacking method (in configureWindow) */ - -#define Above 0 -#define Below 1 -#define TopIf 2 -#define BottomIf 3 -#define Opposite 4 - -/* Circulation direction */ - -#define RaiseLowest 0 -#define LowerHighest 1 - -/* Property modes */ - -#define PropModeReplace 0 -#define PropModePrepend 1 -#define PropModeAppend 2 - -/***************************************************************** - * GRAPHICS DEFINITIONS - *****************************************************************/ - -/* graphics functions, as in GC.alu */ - -#define GXclear 0x0 /* 0 */ -#define GXand 0x1 /* src AND dst */ -#define GXandReverse 0x2 /* src AND NOT dst */ -#define GXcopy 0x3 /* src */ -#define GXandInverted 0x4 /* NOT src AND dst */ -#define GXnoop 0x5 /* dst */ -#define GXxor 0x6 /* src XOR dst */ -#define GXor 0x7 /* src OR dst */ -#define GXnor 0x8 /* NOT src AND NOT dst */ -#define GXequiv 0x9 /* NOT src XOR dst */ -#define GXinvert 0xa /* NOT dst */ -#define GXorReverse 0xb /* src OR NOT dst */ -#define GXcopyInverted 0xc /* NOT src */ -#define GXorInverted 0xd /* NOT src OR dst */ -#define GXnand 0xe /* NOT src OR NOT dst */ -#define GXset 0xf /* 1 */ - -/* LineStyle */ - -#define LineSolid 0 -#define LineOnOffDash 1 -#define LineDoubleDash 2 - -/* capStyle */ - -#define CapNotLast 0 -#define CapButt 1 -#define CapRound 2 -#define CapProjecting 3 - -/* joinStyle */ - -#define JoinMiter 0 -#define JoinRound 1 -#define JoinBevel 2 - -/* fillStyle */ - -#define FillSolid 0 -#define FillTiled 1 -#define FillStippled 2 -#define FillOpaqueStippled 3 - -/* fillRule */ - -#define EvenOddRule 0 -#define WindingRule 1 - -/* subwindow mode */ - -#define ClipByChildren 0 -#define IncludeInferiors 1 - -/* SetClipRectangles ordering */ - -#define Unsorted 0 -#define YSorted 1 -#define YXSorted 2 -#define YXBanded 3 - -/* CoordinateMode for drawing routines */ - -#define CoordModeOrigin 0 /* relative to the origin */ -#define CoordModePrevious 1 /* relative to previous point */ - -/* Polygon shapes */ - -#define Complex 0 /* paths may intersect */ -#define Nonconvex 1 /* no paths intersect, but not convex */ -#define Convex 2 /* wholly convex */ - -/* Arc modes for PolyFillArc */ - -#define ArcChord 0 /* join endpoints of arc */ -#define ArcPieSlice 1 /* join endpoints to center of arc */ - -/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into - GC.stateChanges */ - -#define GCFunction (1L<<0) -#define GCPlaneMask (1L<<1) -#define GCForeground (1L<<2) -#define GCBackground (1L<<3) -#define GCLineWidth (1L<<4) -#define GCLineStyle (1L<<5) -#define GCCapStyle (1L<<6) -#define GCJoinStyle (1L<<7) -#define GCFillStyle (1L<<8) -#define GCFillRule (1L<<9) -#define GCTile (1L<<10) -#define GCStipple (1L<<11) -#define GCTileStipXOrigin (1L<<12) -#define GCTileStipYOrigin (1L<<13) -#define GCFont (1L<<14) -#define GCSubwindowMode (1L<<15) -#define GCGraphicsExposures (1L<<16) -#define GCClipXOrigin (1L<<17) -#define GCClipYOrigin (1L<<18) -#define GCClipMask (1L<<19) -#define GCDashOffset (1L<<20) -#define GCDashList (1L<<21) -#define GCArcMode (1L<<22) - -#define GCLastBit 22 -/***************************************************************** - * FONTS - *****************************************************************/ - -/* used in QueryFont -- draw direction */ - -#define FontLeftToRight 0 -#define FontRightToLeft 1 - -#define FontChange 255 - -/***************************************************************** - * IMAGING - *****************************************************************/ - -/* ImageFormat -- PutImage, GetImage */ - -#define XYBitmap 0 /* depth 1, XYFormat */ -#define XYPixmap 1 /* depth == drawable depth */ -#define ZPixmap 2 /* depth == drawable depth */ - -/***************************************************************** - * COLOR MAP STUFF - *****************************************************************/ - -/* For CreateColormap */ - -#define AllocNone 0 /* create map with no entries */ -#define AllocAll 1 /* allocate entire map writeable */ - - -/* Flags used in StoreNamedColor, StoreColors */ - -#define DoRed (1<<0) -#define DoGreen (1<<1) -#define DoBlue (1<<2) - -/***************************************************************** - * CURSOR STUFF - *****************************************************************/ - -/* QueryBestSize Class */ - -#define CursorShape 0 /* largest size that can be displayed */ -#define TileShape 1 /* size tiled fastest */ -#define StippleShape 2 /* size stippled fastest */ - -/***************************************************************** - * KEYBOARD/POINTER STUFF - *****************************************************************/ - -#define AutoRepeatModeOff 0 -#define AutoRepeatModeOn 1 -#define AutoRepeatModeDefault 2 - -#define LedModeOff 0 -#define LedModeOn 1 - -/* masks for ChangeKeyboardControl */ - -#define KBKeyClickPercent (1L<<0) -#define KBBellPercent (1L<<1) -#define KBBellPitch (1L<<2) -#define KBBellDuration (1L<<3) -#define KBLed (1L<<4) -#define KBLedMode (1L<<5) -#define KBKey (1L<<6) -#define KBAutoRepeatMode (1L<<7) - -#define MappingSuccess 0 -#define MappingBusy 1 -#define MappingFailed 2 - -#define MappingModifier 0 -#define MappingKeyboard 1 -#define MappingPointer 2 - -/***************************************************************** - * SCREEN SAVER STUFF - *****************************************************************/ - -#define DontPreferBlanking 0 -#define PreferBlanking 1 -#define DefaultBlanking 2 - -#define DisableScreenSaver 0 -#define DisableScreenInterval 0 - -#define DontAllowExposures 0 -#define AllowExposures 1 -#define DefaultExposures 2 - -/* for ForceScreenSaver */ - -#define ScreenSaverReset 0 -#define ScreenSaverActive 1 - -/***************************************************************** - * HOSTS AND CONNECTIONS - *****************************************************************/ - -/* for ChangeHosts */ - -#define HostInsert 0 -#define HostDelete 1 - -/* for ChangeAccessControl */ - -#define EnableAccess 1 -#define DisableAccess 0 - -/* Display classes used in opening the connection - * Note that the statically allocated ones are even numbered and the - * dynamically changeable ones are odd numbered */ - -#define StaticGray 0 -#define GrayScale 1 -#define StaticColor 2 -#define PseudoColor 3 -#define TrueColor 4 -#define DirectColor 5 - - -/* Byte order used in imageByteOrder and bitmapBitOrder */ - -#define LSBFirst 0 -#define MSBFirst 1 - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* X_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xatom.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xatom.h deleted file mode 100644 index 485a4236d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xatom.h +++ /dev/null @@ -1,79 +0,0 @@ -#ifndef XATOM_H -#define XATOM_H 1 - -/* THIS IS A GENERATED FILE - * - * Do not change! Changing this file implies a protocol change! - */ - -#define XA_PRIMARY ((Atom) 1) -#define XA_SECONDARY ((Atom) 2) -#define XA_ARC ((Atom) 3) -#define XA_ATOM ((Atom) 4) -#define XA_BITMAP ((Atom) 5) -#define XA_CARDINAL ((Atom) 6) -#define XA_COLORMAP ((Atom) 7) -#define XA_CURSOR ((Atom) 8) -#define XA_CUT_BUFFER0 ((Atom) 9) -#define XA_CUT_BUFFER1 ((Atom) 10) -#define XA_CUT_BUFFER2 ((Atom) 11) -#define XA_CUT_BUFFER3 ((Atom) 12) -#define XA_CUT_BUFFER4 ((Atom) 13) -#define XA_CUT_BUFFER5 ((Atom) 14) -#define XA_CUT_BUFFER6 ((Atom) 15) -#define XA_CUT_BUFFER7 ((Atom) 16) -#define XA_DRAWABLE ((Atom) 17) -#define XA_FONT ((Atom) 18) -#define XA_INTEGER ((Atom) 19) -#define XA_PIXMAP ((Atom) 20) -#define XA_POINT ((Atom) 21) -#define XA_RECTANGLE ((Atom) 22) -#define XA_RESOURCE_MANAGER ((Atom) 23) -#define XA_RGB_COLOR_MAP ((Atom) 24) -#define XA_RGB_BEST_MAP ((Atom) 25) -#define XA_RGB_BLUE_MAP ((Atom) 26) -#define XA_RGB_DEFAULT_MAP ((Atom) 27) -#define XA_RGB_GRAY_MAP ((Atom) 28) -#define XA_RGB_GREEN_MAP ((Atom) 29) -#define XA_RGB_RED_MAP ((Atom) 30) -#define XA_STRING ((Atom) 31) -#define XA_VISUALID ((Atom) 32) -#define XA_WINDOW ((Atom) 33) -#define XA_WM_COMMAND ((Atom) 34) -#define XA_WM_HINTS ((Atom) 35) -#define XA_WM_CLIENT_MACHINE ((Atom) 36) -#define XA_WM_ICON_NAME ((Atom) 37) -#define XA_WM_ICON_SIZE ((Atom) 38) -#define XA_WM_NAME ((Atom) 39) -#define XA_WM_NORMAL_HINTS ((Atom) 40) -#define XA_WM_SIZE_HINTS ((Atom) 41) -#define XA_WM_ZOOM_HINTS ((Atom) 42) -#define XA_MIN_SPACE ((Atom) 43) -#define XA_NORM_SPACE ((Atom) 44) -#define XA_MAX_SPACE ((Atom) 45) -#define XA_END_SPACE ((Atom) 46) -#define XA_SUPERSCRIPT_X ((Atom) 47) -#define XA_SUPERSCRIPT_Y ((Atom) 48) -#define XA_SUBSCRIPT_X ((Atom) 49) -#define XA_SUBSCRIPT_Y ((Atom) 50) -#define XA_UNDERLINE_POSITION ((Atom) 51) -#define XA_UNDERLINE_THICKNESS ((Atom) 52) -#define XA_STRIKEOUT_ASCENT ((Atom) 53) -#define XA_STRIKEOUT_DESCENT ((Atom) 54) -#define XA_ITALIC_ANGLE ((Atom) 55) -#define XA_X_HEIGHT ((Atom) 56) -#define XA_QUAD_WIDTH ((Atom) 57) -#define XA_WEIGHT ((Atom) 58) -#define XA_POINT_SIZE ((Atom) 59) -#define XA_RESOLUTION ((Atom) 60) -#define XA_COPYRIGHT ((Atom) 61) -#define XA_NOTICE ((Atom) 62) -#define XA_FONT_NAME ((Atom) 63) -#define XA_FAMILY_NAME ((Atom) 64) -#define XA_FULL_NAME ((Atom) 65) -#define XA_CAP_HEIGHT ((Atom) 66) -#define XA_WM_CLASS ((Atom) 67) -#define XA_WM_TRANSIENT_FOR ((Atom) 68) - -#define XA_LAST_PREDEFINED ((Atom) 68) -#endif /* XATOM_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xfuncproto.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xfuncproto.h deleted file mode 100644 index 6d63002ef..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xfuncproto.h +++ /dev/null @@ -1,60 +0,0 @@ -/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ -/* - * Copyright 1989, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - */ - -/* Definitions to make function prototypes manageable */ - -#ifndef _XFUNCPROTO_H_ -#define _XFUNCPROTO_H_ - -#ifndef NeedFunctionPrototypes -#define NeedFunctionPrototypes 1 -#endif /* NeedFunctionPrototypes */ - -#ifndef NeedVarargsPrototypes -#define NeedVarargsPrototypes 0 -#endif /* NeedVarargsPrototypes */ - -#if NeedFunctionPrototypes - -#ifndef NeedNestedPrototypes -#define NeedNestedPrototypes 1 -#endif /* NeedNestedPrototypes */ - -#ifndef _Xconst -#define _Xconst const -#endif /* _Xconst */ - -#ifndef NeedWidePrototypes -#ifdef NARROWPROTO -#define NeedWidePrototypes 0 -#else -#define NeedWidePrototypes 1 /* default to make interropt. easier */ -#endif -#endif /* NeedWidePrototypes */ - -#endif /* NeedFunctionPrototypes */ - -#ifdef __cplusplus -#define _XFUNCPROTOBEGIN extern "C" { -#define _XFUNCPROTOEND } -#endif - -#ifndef _XFUNCPROTOBEGIN -#define _XFUNCPROTOBEGIN -#define _XFUNCPROTOEND -#endif /* _XFUNCPROTOBEGIN */ - -#endif /* _XFUNCPROTO_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xlib.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xlib.h deleted file mode 100644 index d3d80d532..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xlib.h +++ /dev/null @@ -1,1205 +0,0 @@ -/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ -/* - * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - * X Window System is a Trademark of MIT. - * - */ - - -/* - * Xlib.h - Header definition and support file for the C subroutine - * interface library (Xlib) to the X Window System Protocol (V11). - * Structures and symbols starting with "_" are private to the library. - */ -#ifndef _XLIB_H_ -#define _XLIB_H_ - -#define XlibSpecificationRelease 5 - -#if !defined(MAC_OSX_TK) -# include -#endif -#ifdef MAC_OSX_TK -# include -# define Cursor XCursor -# define Region XRegion -#endif - -/* applications should not depend on these two headers being included! */ -#include - -#ifndef X_WCHAR -#ifdef X_NOT_STDC_ENV -#define X_WCHAR -#endif -#endif - -#ifndef X_WCHAR -#include -#else -/* replace this with #include or typedef appropriate for your system */ -typedef unsigned long wchar_t; -#endif - -typedef char *XPointer; - -#define Bool int -#if defined(MAC_OSX_TK) -/* Use define rather than typedef, since may need to undefine this later */ -#define Status int -#else -typedef int Status; -#endif -#define True 1 -#define False 0 - -#define QueuedAlready 0 -#define QueuedAfterReading 1 -#define QueuedAfterFlush 2 - -#define ConnectionNumber(dpy) ((dpy)->fd) -#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) -#define DefaultScreen(dpy) ((dpy)->default_screen) -#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) -#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) -#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) -#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) -#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) -#define AllPlanes ((unsigned long)~0L) -#define QLength(dpy) ((dpy)->qlen) -#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) -#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) -#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) -#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) -#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) -#define ScreenCount(dpy) ((dpy)->nscreens) -#define ServerVendor(dpy) ((dpy)->vendor) -#define ProtocolVersion(dpy) ((dpy)->proto_major_version) -#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) -#define VendorRelease(dpy) ((dpy)->release) -#define DisplayString(dpy) ((dpy)->display_name) -#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) -#define BitmapUnit(dpy) ((dpy)->bitmap_unit) -#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) -#define BitmapPad(dpy) ((dpy)->bitmap_pad) -#define ImageByteOrder(dpy) ((dpy)->byte_order) -#define NextRequest(dpy) ((dpy)->request + 1) -#define LastKnownRequestProcessed(dpy) ((dpy)->request) - -/* macros for screen oriented applications (toolkit) */ -#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) -#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) -#define DisplayOfScreen(s) ((s)->display) -#define RootWindowOfScreen(s) ((s)->root) -#define BlackPixelOfScreen(s) ((s)->black_pixel) -#define WhitePixelOfScreen(s) ((s)->white_pixel) -#define DefaultColormapOfScreen(s)((s)->cmap) -#define DefaultDepthOfScreen(s) ((s)->root_depth) -#define DefaultGCOfScreen(s) ((s)->default_gc) -#define DefaultVisualOfScreen(s)((s)->root_visual) -#define WidthOfScreen(s) ((s)->width) -#define HeightOfScreen(s) ((s)->height) -#define WidthMMOfScreen(s) ((s)->mwidth) -#define HeightMMOfScreen(s) ((s)->mheight) -#define PlanesOfScreen(s) ((s)->root_depth) -#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) -#define MinCmapsOfScreen(s) ((s)->min_maps) -#define MaxCmapsOfScreen(s) ((s)->max_maps) -#define DoesSaveUnders(s) ((s)->save_unders) -#define DoesBackingStore(s) ((s)->backing_store) -#define EventMaskOfScreen(s) ((s)->root_input_mask) - -/* - * Extensions need a way to hang private data on some structures. - */ -typedef struct _XExtData { - int number; /* number returned by XRegisterExtension */ - struct _XExtData *next; /* next item on list of data for structure */ - int (*free_private)(); /* called to free private storage */ - XPointer private_data; /* data private to this extension. */ -} XExtData; - -/* - * This file contains structures used by the extension mechanism. - */ -typedef struct { /* public to extension, cannot be changed */ - int extension; /* extension number */ - int major_opcode; /* major op-code assigned by server */ - int first_event; /* first event number for the extension */ - int first_error; /* first error number for the extension */ -} XExtCodes; - -/* - * Data structure for retrieving info about pixmap formats. - */ - -typedef struct { - int depth; - int bits_per_pixel; - int scanline_pad; -} XPixmapFormatValues; - - -/* - * Data structure for setting graphics context. - */ -typedef struct { - int function; /* logical operation */ - unsigned long plane_mask;/* plane mask */ - unsigned long foreground;/* foreground pixel */ - unsigned long background;/* background pixel */ - int line_width; /* line width */ - int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ - int cap_style; /* CapNotLast, CapButt, - CapRound, CapProjecting */ - int join_style; /* JoinMiter, JoinRound, JoinBevel */ - int fill_style; /* FillSolid, FillTiled, - FillStippled, FillOpaeueStippled */ - int fill_rule; /* EvenOddRule, WindingRule */ - int arc_mode; /* ArcChord, ArcPieSlice */ - Pixmap tile; /* tile pixmap for tiling operations */ - Pixmap stipple; /* stipple 1 plane pixmap for stipping */ - int ts_x_origin; /* offset for tile or stipple operations */ - int ts_y_origin; - Font font; /* default text font for text operations */ - int subwindow_mode; /* ClipByChildren, IncludeInferiors */ - Bool graphics_exposures;/* boolean, should exposures be generated */ - int clip_x_origin; /* origin for clipping */ - int clip_y_origin; - Pixmap clip_mask; /* bitmap clipping; other calls for rects */ - int dash_offset; /* patterned/dashed line information */ - char dashes; -} XGCValues; - -/* - * Graphics context. The contents of this structure are implementation - * dependent. A GC should be treated as opaque by application code. - */ - -typedef XGCValues *GC; - -/* - * Visual structure; contains information about colormapping possible. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - VisualID visualid; /* visual id of this visual */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ class of screen (monochrome, etc.) */ -#else - int class; /* class of screen (monochrome, etc.) */ -#endif - unsigned long red_mask, green_mask, blue_mask; /* mask values */ - int bits_per_rgb; /* log base 2 of distinct color values */ - int map_entries; /* color map entries */ -} Visual; - -/* - * Depth structure; contains information for each possible depth. - */ -typedef struct { - int depth; /* this depth (Z) of the depth */ - int nvisuals; /* number of Visual types at this depth */ - Visual *visuals; /* list of visuals possible at this depth */ -} Depth; - -/* - * Information about the screen. The contents of this structure are - * implementation dependent. A Screen should be treated as opaque - * by application code. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XDisplay *display;/* back pointer to display structure */ - Window root; /* Root window id. */ - int width, height; /* width and height of screen */ - int mwidth, mheight; /* width and height of in millimeters */ - int ndepths; /* number of depths possible */ - Depth *depths; /* list of allowable depths on the screen */ - int root_depth; /* bits per pixel */ - Visual *root_visual; /* root visual */ - GC default_gc; /* GC for the root root visual */ - Colormap cmap; /* default color map */ - unsigned long white_pixel; - unsigned long black_pixel; /* White and Black pixel values */ - int max_maps, min_maps; /* max and min color maps */ - int backing_store; /* Never, WhenMapped, Always */ - Bool save_unders; - long root_input_mask; /* initial root input mask */ -} Screen; - -/* - * Format structure; describes ZFormat data the screen will understand. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - int depth; /* depth of this image format */ - int bits_per_pixel; /* bits/pixel at this depth */ - int scanline_pad; /* scanline must padded to this multiple */ -} ScreenFormat; - -/* - * Data structure for setting window attributes. - */ -typedef struct { - Pixmap background_pixmap; /* background or None or ParentRelative */ - unsigned long background_pixel; /* background pixel */ - Pixmap border_pixmap; /* border of the window */ - unsigned long border_pixel; /* border pixel value */ - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preseved if possible */ - unsigned long backing_pixel;/* value to use in restoring planes */ - Bool save_under; /* should bits under be saved? (popups) */ - long event_mask; /* set of events that should be saved */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Colormap colormap; /* color map to be associated with window */ - Cursor cursor; /* cursor to be displayed (or None) */ -} XSetWindowAttributes; - -typedef struct { - int x, y; /* location of window */ - int width, height; /* width and height of window */ - int border_width; /* border width of window */ - int depth; /* depth of window */ - Visual *visual; /* the associated visual structure */ - Window root; /* root of screen containing window */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ InputOutput, InputOnly*/ -#else - int class; /* InputOutput, InputOnly*/ -#endif - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preserved if possible */ - unsigned long backing_pixel;/* value to be used when restoring planes */ - Bool save_under; /* boolean, should bits under be saved? */ - Colormap colormap; /* color map to be associated with window */ - Bool map_installed; /* boolean, is color map currently installed*/ - int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ - long all_event_masks; /* set of events all people have interest in*/ - long your_event_mask; /* my event mask */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Screen *screen; /* back pointer to correct screen */ -} XWindowAttributes; - -/* - * Data structure for host setting; getting routines. - * - */ - -typedef struct { - int family; /* for example FamilyInternet */ - int length; /* length of address, in bytes */ - char *address; /* pointer to where to find the bytes */ -} XHostAddress; - -/* - * Data structure for "image" data, used by image manipulation routines. - */ -typedef struct _XImage { - int width, height; /* size of image */ - int xoffset; /* number of pixels offset in X direction */ - int format; /* XYBitmap, XYPixmap, ZPixmap */ - char *data; /* pointer to image data */ - int byte_order; /* data byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* quant. of scanline 8, 16, 32 */ - int bitmap_bit_order; /* LSBFirst, MSBFirst */ - int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ - int depth; /* depth of image */ - int bytes_per_line; /* accelarator to next line */ - int bits_per_pixel; /* bits per pixel (ZPixmap) */ - unsigned long red_mask; /* bits in z arrangment */ - unsigned long green_mask; - unsigned long blue_mask; - XPointer obdata; /* hook for the object routines to hang on */ - struct funcs { /* image manipulation routines */ - struct _XImage *(*create_image)(); -#if NeedFunctionPrototypes - int (*destroy_image) (struct _XImage *); - unsigned long (*get_pixel) (struct _XImage *, int, int); - int (*put_pixel) (struct _XImage *, int, int, unsigned long); - struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); - int (*add_pixel) (struct _XImage *, long); -#else - int (*destroy_image)(); - unsigned long (*get_pixel)(); - int (*put_pixel)(); - struct _XImage *(*sub_image)(); - int (*add_pixel)(); -#endif - } f; -} XImage; - -/* - * Data structure for XReconfigureWindow - */ -typedef struct { - int x, y; - int width, height; - int border_width; - Window sibling; - int stack_mode; -} XWindowChanges; - -/* - * Data structure used by color operations - */ -typedef struct { - unsigned long pixel; - unsigned short red, green, blue; - char flags; /* do_red, do_green, do_blue */ - char pad; -} XColor; - -/* - * Data structures for graphics operations. On most machines, these are - * congruent with the wire protocol structures, so reformatting the data - * can be avoided on these architectures. - */ -typedef struct { - short x1, y1, x2, y2; -} XSegment; - -typedef struct { - short x, y; -} XPoint; - -typedef struct { - short x, y; - unsigned short width, height; -} XRectangle; - -typedef struct { - short x, y; - unsigned short width, height; - short angle1, angle2; -} XArc; - - -/* Data structure for XChangeKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - int bell_pitch; - int bell_duration; - int led; - int led_mode; - int key; - int auto_repeat_mode; /* On, Off, Default */ -} XKeyboardControl; - -/* Data structure for XGetKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - unsigned int bell_pitch, bell_duration; - unsigned long led_mask; - int global_auto_repeat; - char auto_repeats[32]; -} XKeyboardState; - -/* Data structure for XGetMotionEvents. */ - -typedef struct { - Time time; - short x, y; -} XTimeCoord; - -/* Data structure for X{Set,Get}ModifierMapping */ - -typedef struct { - int max_keypermod; /* The server's max # of keys per modifier */ - KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ -} XModifierKeymap; - - -/* - * Display datatype maintaining display specific data. - * The contents of this structure are implementation dependent. - * A Display should be treated as opaque by application code. - */ -typedef struct _XDisplay { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XFreeFuncs *free_funcs; /* internal free functions */ - int fd; /* Network socket. */ - int conn_checker; /* ugly thing used by _XEventsQueued */ - int proto_major_version;/* maj. version of server's X protocol */ - int proto_minor_version;/* minor version of servers X protocol */ - char *vendor; /* vendor of the server hardware */ - XID resource_base; /* resource ID base */ - XID resource_mask; /* resource ID mask bits */ - XID resource_id; /* allocator current ID */ - int resource_shift; /* allocator shift to correct bits */ - XID (*resource_alloc)(); /* allocator function */ - int byte_order; /* screen byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* padding and data requirements */ - int bitmap_pad; /* padding requirements on bitmaps */ - int bitmap_bit_order; /* LeastSignificant or MostSignificant */ - int nformats; /* number of pixmap formats in list */ - ScreenFormat *pixmap_format; /* pixmap format list */ - int vnumber; /* Xlib's X protocol version number. */ - int release; /* release of the server */ - struct _XSQEvent *head, *tail; /* Input event queue. */ - int qlen; /* Length of input event queue */ - unsigned long request; /* sequence number of last request. */ - char *last_req; /* beginning of last request, or dummy */ - char *buffer; /* Output buffer starting address. */ - char *bufptr; /* Output buffer index pointer. */ - char *bufmax; /* Output buffer maximum+1 address. */ - unsigned max_request_size; /* maximum number 32 bit words in request*/ - struct _XrmHashBucketRec *db; - int (*synchandler)(); /* Synchronization handler */ - char *display_name; /* "host:display" string used on this connect*/ - int default_screen; /* default screen for operations */ - int nscreens; /* number of screens on this server*/ - Screen *screens; /* pointer to list of screens */ - unsigned long motion_buffer; /* size of motion buffer */ - unsigned long flags; /* internal connection flags */ - int min_keycode; /* minimum defined keycode */ - int max_keycode; /* maximum defined keycode */ - KeySym *keysyms; /* This server's keysyms */ - XModifierKeymap *modifiermap; /* This server's modifier keymap */ - int keysyms_per_keycode;/* number of rows */ - char *xdefaults; /* contents of defaults from server */ - char *scratch_buffer; /* place to hang scratch buffer */ - unsigned long scratch_length; /* length of scratch buffer */ - int ext_number; /* extension number on this display */ - struct _XExten *ext_procs; /* extensions initialized on this display */ - /* - * the following can be fixed size, as the protocol defines how - * much address space is available. - * While this could be done using the extension vector, there - * may be MANY events processed, so a search through the extension - * list to find the right procedure for each event might be - * expensive if many extensions are being used. - */ - Bool (*event_vec[128])(); /* vector for wire to event */ - Status (*wire_vec[128])(); /* vector for event to wire */ - KeySym lock_meaning; /* for XLookupString */ - struct _XLockInfo *lock; /* multi-thread state, display lock */ - struct _XInternalAsync *async_handlers; /* for internal async */ - unsigned long bigreq_size; /* max size of big requests */ - struct _XLockPtrs *lock_fns; /* pointers to threads functions */ - /* things above this line should not move, for binary compatibility */ - struct _XKeytrans *key_bindings; /* for XLookupString */ - Font cursor_font; /* for XCreateFontCursor */ - struct _XDisplayAtoms *atoms; /* for XInternAtom */ - unsigned int mode_switch; /* keyboard group modifiers */ - struct _XContextDB *context_db; /* context database */ - Bool (**error_vec)(); /* vector for wire to error */ - /* - * Xcms information - */ - struct { - XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ - XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ - XPointer perVisualIntensityMaps; - /* linked list of XcmsIntensityMap */ - } cms; - struct _XIMFilter *im_filters; - struct _XSQEvent *qfree; /* unallocated event queue elements */ - unsigned long next_event_serial_num; /* inserted into next queue elt */ - int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ -} Display; - -#if NeedFunctionPrototypes /* prototypes require event type definitions */ -#undef _XEVENT_ -#endif -#ifndef _XEVENT_ - -#define XMaxTransChars 4 - -/* - * Definitions of specific events. - */ -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int keycode; /* detail */ - Bool same_screen; /* same screen flag */ - char trans_chars[XMaxTransChars]; - /* translated characters */ - int nbytes; -} XKeyEvent; -typedef XKeyEvent XKeyPressedEvent; -typedef XKeyEvent XKeyReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int button; /* detail */ - Bool same_screen; /* same screen flag */ -} XButtonEvent; -typedef XButtonEvent XButtonPressedEvent; -typedef XButtonEvent XButtonReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - char is_hint; /* detail */ - Bool same_screen; /* same screen flag */ -} XMotionEvent; -typedef XMotionEvent XPointerMovedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual - */ - Bool same_screen; /* same screen flag */ - Bool focus; /* boolean focus */ - unsigned int state; /* key or button mask */ -} XCrossingEvent; -typedef XCrossingEvent XEnterWindowEvent; -typedef XCrossingEvent XLeaveWindowEvent; - -typedef struct { - int type; /* FocusIn or FocusOut */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* window of event */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, - * NotifyPointerRoot, NotifyDetailNone - */ -} XFocusChangeEvent; -typedef XFocusChangeEvent XFocusInEvent; -typedef XFocusChangeEvent XFocusOutEvent; - -/* generated on EnterWindow and FocusIn when KeyMapState selected */ -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - char key_vector[32]; -} XKeymapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ -} XExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XGraphicsExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XNoExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int state; /* Visibility state */ -} XVisibilityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; /* parent of the window */ - Window window; /* window id of window created */ - int x, y; /* window location */ - int width, height; /* size of window */ - int border_width; /* border width */ - Bool override_redirect; /* creation should be overridden */ -} XCreateWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; -} XDestroyWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool from_configure; -} XUnmapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool override_redirect; /* boolean, is override set... */ -} XMapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; -} XMapRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Window parent; - int x, y; - Bool override_redirect; -} XReparentEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - Bool override_redirect; -} XConfigureEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; -} XGravityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int width, height; -} XResizeRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - int detail; /* Above, Below, TopIf, BottomIf, Opposite */ - unsigned long value_mask; -} XConfigureRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom atom; - Time time; - int state; /* NewValue, Deleted */ -} XPropertyEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom selection; - Time time; -} XSelectionClearEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window owner; - Window requestor; - Atom selection; - Atom target; - Atom property; - Time time; -} XSelectionRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window requestor; - Atom selection; - Atom target; - Atom property; /* ATOM or None */ - Time time; -} XSelectionEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Colormap colormap; /* COLORMAP or None */ -#if defined(__cplusplus) || defined(c_plusplus) - Bool c_new; /* C++ */ -#else - Bool new; -#endif - int state; /* ColormapInstalled, ColormapUninstalled */ -} XColormapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom message_type; - int format; - union { - char b[20]; - short s[10]; - long l[5]; - } data; -} XClientMessageEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* unused */ - int request; /* one of MappingModifier, MappingKeyboard, - MappingPointer */ - int first_keycode; /* first keycode */ - int count; /* defines range of change w. first_keycode*/ -} XMappingEvent; - -typedef struct { - int type; - Display *display; /* Display the event was read from */ - XID resourceid; /* resource id */ - unsigned long serial; /* serial number of failed request */ - unsigned char error_code; /* error code of failed request */ - unsigned char request_code; /* Major op-code of failed request */ - unsigned char minor_code; /* Minor op-code of failed request */ -} XErrorEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display;/* Display the event was read from */ - Window window; /* window on which event was requested in event mask */ -} XAnyEvent; - -/* - * this union is defined so Xlib can always use the same sized - * event structure internally, to avoid memory fragmentation. - */ -typedef union _XEvent { - int type; /* must not be changed; first element */ - XAnyEvent xany; - XKeyEvent xkey; - XButtonEvent xbutton; - XMotionEvent xmotion; - XCrossingEvent xcrossing; - XFocusChangeEvent xfocus; - XExposeEvent xexpose; - XGraphicsExposeEvent xgraphicsexpose; - XNoExposeEvent xnoexpose; - XVisibilityEvent xvisibility; - XCreateWindowEvent xcreatewindow; - XDestroyWindowEvent xdestroywindow; - XUnmapEvent xunmap; - XMapEvent xmap; - XMapRequestEvent xmaprequest; - XReparentEvent xreparent; - XConfigureEvent xconfigure; - XGravityEvent xgravity; - XResizeRequestEvent xresizerequest; - XConfigureRequestEvent xconfigurerequest; - XCirculateEvent xcirculate; - XCirculateRequestEvent xcirculaterequest; - XPropertyEvent xproperty; - XSelectionClearEvent xselectionclear; - XSelectionRequestEvent xselectionrequest; - XSelectionEvent xselection; - XColormapEvent xcolormap; - XClientMessageEvent xclient; - XMappingEvent xmapping; - XErrorEvent xerror; - XKeymapEvent xkeymap; - XID pad[24]; -} XEvent; -#endif - -#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) - -/* - * per character font metric information. - */ -typedef struct { - short lbearing; /* origin to left edge of raster */ - short rbearing; /* origin to right edge of raster */ - short width; /* advance to next char's origin */ - short ascent; /* baseline to top edge of raster */ - short descent; /* baseline to bottom edge of raster */ - unsigned short attributes; /* per char flags (not predefined) */ -} XCharStruct; - -/* - * To allow arbitrary information with fonts, there are additional properties - * returned. - */ -typedef struct { - Atom name; - unsigned long card32; -} XFontProp; - -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - Font fid; /* Font id for this font */ - unsigned direction; /* hint about direction the font is painted */ - unsigned min_char_or_byte2;/* first character */ - unsigned max_char_or_byte2;/* last character */ - unsigned min_byte1; /* first row that exists */ - unsigned max_byte1; /* last row that exists */ - Bool all_chars_exist;/* flag if all characters have non-zero size*/ - unsigned default_char; /* char to print for undefined character */ - int n_properties; /* how many properties there are */ - XFontProp *properties; /* pointer to array of additional properties*/ - XCharStruct min_bounds; /* minimum bounds over all existing char*/ - XCharStruct max_bounds; /* maximum bounds over all existing char*/ - XCharStruct *per_char; /* first_char to last_char information */ - int ascent; /* log. extent above baseline for spacing */ - int descent; /* log. descent below baseline for spacing */ -} XFontStruct; - -/* - * PolyText routines take these as arguments. - */ -typedef struct { - char *chars; /* pointer to string */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem; - -typedef struct { /* normal 16 bit characters are two bytes */ - unsigned char byte1; - unsigned char byte2; -} XChar2b; - -typedef struct { - XChar2b *chars; /* two byte characters */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem16; - - -typedef union { Display *display; - GC gc; - Visual *visual; - Screen *screen; - ScreenFormat *pixmap_format; - XFontStruct *font; } XEDataObject; - -typedef struct { - XRectangle max_ink_extent; - XRectangle max_logical_extent; -} XFontSetExtents; - -typedef struct _XFontSet *XFontSet; - -typedef struct { - char *chars; - int nchars; - int delta; - XFontSet font_set; -} XmbTextItem; - -typedef struct { - wchar_t *chars; - int nchars; - int delta; - XFontSet font_set; -} XwcTextItem; - -typedef void (*XIMProc)(); - -typedef struct _XIM *XIM; -typedef struct _XIC *XIC; - -typedef unsigned long XIMStyle; - -typedef struct { - unsigned short count_styles; - XIMStyle *supported_styles; -} XIMStyles; - -#define XIMPreeditArea 0x0001L -#define XIMPreeditCallbacks 0x0002L -#define XIMPreeditPosition 0x0004L -#define XIMPreeditNothing 0x0008L -#define XIMPreeditNone 0x0010L -#define XIMStatusArea 0x0100L -#define XIMStatusCallbacks 0x0200L -#define XIMStatusNothing 0x0400L -#define XIMStatusNone 0x0800L - -#define XNVaNestedList "XNVaNestedList" -#define XNClientWindow "clientWindow" -#define XNInputStyle "inputStyle" -#define XNFocusWindow "focusWindow" -#define XNResourceName "resourceName" -#define XNResourceClass "resourceClass" -#define XNGeometryCallback "geometryCallback" -#define XNFilterEvents "filterEvents" -#define XNPreeditStartCallback "preeditStartCallback" -#define XNPreeditDoneCallback "preeditDoneCallback" -#define XNPreeditDrawCallback "preeditDrawCallback" -#define XNPreeditCaretCallback "preeditCaretCallback" -#define XNPreeditAttributes "preeditAttributes" -#define XNStatusStartCallback "statusStartCallback" -#define XNStatusDoneCallback "statusDoneCallback" -#define XNStatusDrawCallback "statusDrawCallback" -#define XNStatusAttributes "statusAttributes" -#define XNArea "area" -#define XNAreaNeeded "areaNeeded" -#define XNSpotLocation "spotLocation" -#define XNColormap "colorMap" -#define XNStdColormap "stdColorMap" -#define XNForeground "foreground" -#define XNBackground "background" -#define XNBackgroundPixmap "backgroundPixmap" -#define XNFontSet "fontSet" -#define XNLineSpace "lineSpace" -#define XNCursor "cursor" - -#define XBufferOverflow -1 -#define XLookupNone 1 -#define XLookupChars 2 -#define XLookupKeySym 3 -#define XLookupBoth 4 - -#if NeedFunctionPrototypes -typedef void *XVaNestedList; -#else -typedef XPointer XVaNestedList; -#endif - -typedef struct { - XPointer client_data; - XIMProc callback; -} XIMCallback; - -typedef unsigned long XIMFeedback; - -#define XIMReverse 1 -#define XIMUnderline (1<<1) -#define XIMHighlight (1<<2) -#define XIMPrimary (1<<5) -#define XIMSecondary (1<<6) -#define XIMTertiary (1<<7) - -typedef struct _XIMText { - unsigned short length; - XIMFeedback *feedback; - Bool encoding_is_wchar; - union { - char *multi_byte; - wchar_t *wide_char; - } string; -} XIMText; - -typedef struct _XIMPreeditDrawCallbackStruct { - int caret; /* Cursor offset within pre-edit string */ - int chg_first; /* Starting change position */ - int chg_length; /* Length of the change in character count */ - XIMText *text; -} XIMPreeditDrawCallbackStruct; - -typedef enum { - XIMForwardChar, XIMBackwardChar, - XIMForwardWord, XIMBackwardWord, - XIMCaretUp, XIMCaretDown, - XIMNextLine, XIMPreviousLine, - XIMLineStart, XIMLineEnd, - XIMAbsolutePosition, - XIMDontChange -} XIMCaretDirection; - -typedef enum { - XIMIsInvisible, /* Disable caret feedback */ - XIMIsPrimary, /* UI defined caret feedback */ - XIMIsSecondary /* UI defined caret feedback */ -} XIMCaretStyle; - -typedef struct _XIMPreeditCaretCallbackStruct { - int position; /* Caret offset within pre-edit string */ - XIMCaretDirection direction; /* Caret moves direction */ - XIMCaretStyle style; /* Feedback of the caret */ -} XIMPreeditCaretCallbackStruct; - -typedef enum { - XIMTextType, - XIMBitmapType -} XIMStatusDataType; - -typedef struct _XIMStatusDrawCallbackStruct { - XIMStatusDataType type; - union { - XIMText *text; - Pixmap bitmap; - } data; -} XIMStatusDrawCallbackStruct; - -typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */, - XErrorEvent* /* error_event */ -#endif -); - -_XFUNCPROTOBEGIN - - - -#include "tkIntXlibDecls.h" - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* _XLIB_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xutil.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xutil.h deleted file mode 100644 index bf372fb0f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/Xutil.h +++ /dev/null @@ -1,855 +0,0 @@ -/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#ifndef _XUTIL_H_ -#define _XUTIL_H_ - -/* You must include before including this file */ - -#if defined(MAC_OSX_TK) -# define Region XRegion -#endif - -/* - * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding - * value (x, y, width, height) was found in the parsed string. - */ -#define NoValue 0x0000 -#define XValue 0x0001 -#define YValue 0x0002 -#define WidthValue 0x0004 -#define HeightValue 0x0008 -#define AllValues 0x000F -#define XNegative 0x0010 -#define YNegative 0x0020 - -/* - * new version containing base_width, base_height, and win_gravity fields; - * used with WM_NORMAL_HINTS. - */ -typedef struct { - long flags; /* marks which fields in this structure are defined */ - int x, y; /* obsolete for new window mgrs, but clients */ - int width, height; /* should set so old wm's don't mess up */ - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; - struct { - int x; /* numerator */ - int y; /* denominator */ - } min_aspect, max_aspect; - int base_width, base_height; /* added by ICCCM version 1 */ - int win_gravity; /* added by ICCCM version 1 */ -} XSizeHints; - -/* - * The next block of definitions are for window manager properties that - * clients and applications use for communication. - */ - -/* flags argument in size hints */ -#define USPosition (1L << 0) /* user specified x, y */ -#define USSize (1L << 1) /* user specified width, height */ - -#define PPosition (1L << 2) /* program specified position */ -#define PSize (1L << 3) /* program specified size */ -#define PMinSize (1L << 4) /* program specified minimum size */ -#define PMaxSize (1L << 5) /* program specified maximum size */ -#define PResizeInc (1L << 6) /* program specified resize increments */ -#define PAspect (1L << 7) /* program specified min and max aspect ratios */ -#define PBaseSize (1L << 8) /* program specified base for incrementing */ -#define PWinGravity (1L << 9) /* program specified window gravity */ - -/* obsolete */ -#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) - - - -typedef struct { - long flags; /* marks which fields in this structure are defined */ - Bool input; /* does this application rely on the window manager to - get keyboard input? */ - int initial_state; /* see below */ - Pixmap icon_pixmap; /* pixmap to be used as icon */ - Window icon_window; /* window to be used as icon */ - int icon_x, icon_y; /* initial position of icon */ - Pixmap icon_mask; /* icon mask bitmap */ - XID window_group; /* id of related window group */ - /* this structure may be extended in the future */ -} XWMHints; - -/* definition for flags of XWMHints */ - -#define InputHint (1L << 0) -#define StateHint (1L << 1) -#define IconPixmapHint (1L << 2) -#define IconWindowHint (1L << 3) -#define IconPositionHint (1L << 4) -#define IconMaskHint (1L << 5) -#define WindowGroupHint (1L << 6) -#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ -IconPositionHint|IconMaskHint|WindowGroupHint) - -/* definitions for initial window state */ -#define WithdrawnState 0 /* for windows that are not mapped */ -#define NormalState 1 /* most applications want to start this way */ -#define IconicState 3 /* application wants to start as an icon */ - -/* - * Obsolete states no longer defined by ICCCM - */ -#define DontCareState 0 /* don't know or care */ -#define ZoomState 2 /* application wants to start zoomed */ -#define InactiveState 4 /* application believes it is seldom used; */ - /* some wm's may put it on inactive menu */ - - -/* - * new structure for manipulating TEXT properties; used with WM_NAME, - * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. - */ -typedef struct { - unsigned char *value; /* same as Property routines */ - Atom encoding; /* prop type */ - int format; /* prop data format: 8, 16, or 32 */ - unsigned long nitems; /* number of data items in value */ -} XTextProperty; - -#define XNoMemory -1 -#define XLocaleNotSupported -2 -#define XConverterNotFound -3 - -typedef enum { - XStringStyle, /* STRING */ - XCompoundTextStyle, /* COMPOUND_TEXT */ - XTextStyle, /* text in owner's encoding (current locale)*/ - XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ -} XICCEncodingStyle; - -typedef struct { - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; -} XIconSize; - -typedef struct { - char *res_name; - char *res_class; -} XClassHint; - -/* - * These macros are used to give some sugar to the image routines so that - * naive people are more comfortable with them. - */ -#define XDestroyImage(ximage) \ - ((*((ximage)->f.destroy_image))((ximage))) -#define XGetPixel(ximage, x, y) \ - ((*((ximage)->f.get_pixel))((ximage), (x), (y))) -#define XPutPixel(ximage, x, y, pixel) \ - ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) -#define XSubImage(ximage, x, y, width, height) \ - ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) -#define XAddPixel(ximage, value) \ - ((*((ximage)->f.add_pixel))((ximage), (value))) - -/* - * Compose sequence status structure, used in calling XLookupString. - */ -typedef struct _XComposeStatus { - XPointer compose_ptr; /* state table pointer */ - int chars_matched; /* match state */ -} XComposeStatus; - -/* - * Keysym macros, used on Keysyms to test for classes of symbols - */ -#define IsKeypadKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) - -#define IsCursorKey(keysym) \ - (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) - -#define IsPFKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) - -#define IsFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) - -#define IsMiscFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) - -#define IsModifierKey(keysym) \ - ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ - || ((unsigned)(keysym) == XK_Mode_switch) \ - || ((unsigned)(keysym) == XK_Num_Lock)) -/* - * opaque reference to Region data type - */ -typedef struct _XRegion *Region; - -/* Return values from XRectInRegion() */ - -#define RectangleOut 0 -#define RectangleIn 1 -#define RectanglePart 2 - - -/* - * Information used by the visual utility routines to find desired visual - * type from the many visuals a display may support. - */ - -typedef struct { - Visual *visual; - VisualID visualid; - int screen; - int depth; -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ */ -#else - int class; -#endif - unsigned long red_mask; - unsigned long green_mask; - unsigned long blue_mask; - int colormap_size; - int bits_per_rgb; -} XVisualInfo; - -#define VisualNoMask 0x0 -#define VisualIDMask 0x1 -#define VisualScreenMask 0x2 -#define VisualDepthMask 0x4 -#define VisualClassMask 0x8 -#define VisualRedMaskMask 0x10 -#define VisualGreenMaskMask 0x20 -#define VisualBlueMaskMask 0x40 -#define VisualColormapSizeMask 0x80 -#define VisualBitsPerRGBMask 0x100 -#define VisualAllMask 0x1FF - -/* - * This defines a window manager property that clients may use to - * share standard color maps of type RGB_COLOR_MAP: - */ -typedef struct { - Colormap colormap; - unsigned long red_max; - unsigned long red_mult; - unsigned long green_max; - unsigned long green_mult; - unsigned long blue_max; - unsigned long blue_mult; - unsigned long base_pixel; - VisualID visualid; /* added by ICCCM version 1 */ - XID killid; /* added by ICCCM version 1 */ -} XStandardColormap; - -#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ - - -/* - * return codes for XReadBitmapFile and XWriteBitmapFile - */ -#define BitmapSuccess 0 -#define BitmapOpenFailed 1 -#define BitmapFileInvalid 2 -#define BitmapNoMemory 3 - -/**************************************************************** - * - * Context Management - * - ****************************************************************/ - - -/* Associative lookup table return codes */ - -#define XCSUCCESS 0 /* No error. */ -#define XCNOMEM 1 /* Out of memory */ -#define XCNOENT 2 /* No entry in table */ - -typedef int XContext; - -#define XUniqueContext() ((XContext) XrmUniqueQuark()) -#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) - -_XFUNCPROTOBEGIN - -/* The following declarations are alphabetized. */ - -extern XClassHint *XAllocClassHint ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XIconSize *XAllocIconSize ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XSizeHints *XAllocSizeHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XStandardColormap *XAllocStandardColormap ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XWMHints *XAllocWMHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern void XClipBox( -#if NeedFunctionPrototypes - Region /* r */, - XRectangle* /* rect_return */ -#endif -); - -extern Region XCreateRegion( -#if NeedFunctionPrototypes - void -#endif -); - -extern char *XDefaultString( -#if NeedFunctionPrototypes - void -#endif -); - -extern int XDeleteContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */ -#endif -); - -extern void XDestroyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEmptyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEqualRegion( -#if NeedFunctionPrototypes - Region /* r1 */, - Region /* r2 */ -#endif -); - -extern int XFindContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - XPointer* /* data_return */ -#endif -); - -extern Status XGetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints_return */ -#endif -); - -extern Status XGetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize** /* size_list_return */, - int* /* count_return */ -#endif -); - -extern Status XGetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */ -#endif -); - -extern Status XGetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap** /* stdcmap_return */, - int* /* count_return */, - Atom /* property */ -#endif -); - -extern Status XGetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - Atom /* property */ -#endif -); - -extern Status XGetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap_return */, - Atom /* property */ -#endif -); - -extern Status XGetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* window */, - XTextProperty* /* text_prop_return */, - Atom /* property */ -#endif -); - - -extern Status XGetWMClientMachine( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern XWMHints *XGetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern Status XGetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */ -#endif -); - -extern Status XGetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */, - Atom /* property */ -#endif -); - -extern Status XGetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints_return */ -#endif -); - -extern void XIntersectRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XLookupString( -#if NeedFunctionPrototypes - XKeyEvent* /* event_struct */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - XComposeStatus* /* status_in_out */ -#endif -); - -extern Status XMatchVisualInfo( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen */, - int /* depth */, - int /* class */, - XVisualInfo* /* vinfo_return */ -#endif -); - -extern int XOffsetRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern Bool XPointInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */ -#endif -); - -extern Region XPolygonRegion( -#if NeedFunctionPrototypes - XPoint* /* points */, - int /* n */, - int /* fill_rule */ -#endif -); - -extern int XRectInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern int XSaveContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - _Xconst char* /* data */ -#endif -); - -extern void XSetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize* /* size_list */, - int /* count */ -#endif -); - -extern void XSetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* stdcmaps */, - int /* count */, - Atom /* property */ -#endif -); - -extern void XSetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetStandardProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - Pixmap /* icon_pixmap */, - char** /* argv */, - int /* argc */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */, - Atom /* property */ -#endif -); - -extern void XSetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XWMHints* /* wm_hints */ -#endif -); - -extern void XSetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* window_name */, - XTextProperty* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XmbSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetRegion( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Region /* r */ -#endif -); - -extern void XSetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap */, - Atom /* property */ -#endif -); - -extern void XSetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints */ -#endif -); - -extern void XShrinkRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern void XSubtractRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XmbTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - char** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern int XwcTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - wchar_t** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern void XwcFreeStringList( -#if NeedFunctionPrototypes - wchar_t** /* list */ -#endif -); - -extern Status XTextPropertyToStringList( -#if NeedFunctionPrototypes - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XmbTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XwcTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - wchar_t*** /* list_return */, - int* /* count_return */ -#endif -); - -extern void XUnionRectWithRegion( -#if NeedFunctionPrototypes - XRectangle* /* rectangle */, - Region /* src_region */, - Region /* dest_region_return */ -#endif -); - -extern int XUnionRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XWMGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */, - _Xconst char* /* user_geometry */, - _Xconst char* /* default_geometry */, - unsigned int /* border_width */, - XSizeHints* /* hints */, - int* /* x_return */, - int* /* y_return */, - int* /* width_return */, - int* /* height_return */, - int* /* gravity_return */ -#endif -); - -extern void XXorRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Region -#endif - -#endif /* _XUTIL_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/cursorfont.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/cursorfont.h deleted file mode 100644 index 617274fa8..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/cursorfont.h +++ /dev/null @@ -1,79 +0,0 @@ -/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ -#define XC_num_glyphs 154 -#define XC_X_cursor 0 -#define XC_arrow 2 -#define XC_based_arrow_down 4 -#define XC_based_arrow_up 6 -#define XC_boat 8 -#define XC_bogosity 10 -#define XC_bottom_left_corner 12 -#define XC_bottom_right_corner 14 -#define XC_bottom_side 16 -#define XC_bottom_tee 18 -#define XC_box_spiral 20 -#define XC_center_ptr 22 -#define XC_circle 24 -#define XC_clock 26 -#define XC_coffee_mug 28 -#define XC_cross 30 -#define XC_cross_reverse 32 -#define XC_crosshair 34 -#define XC_diamond_cross 36 -#define XC_dot 38 -#define XC_dotbox 40 -#define XC_double_arrow 42 -#define XC_draft_large 44 -#define XC_draft_small 46 -#define XC_draped_box 48 -#define XC_exchange 50 -#define XC_fleur 52 -#define XC_gobbler 54 -#define XC_gumby 56 -#define XC_hand1 58 -#define XC_hand2 60 -#define XC_heart 62 -#define XC_icon 64 -#define XC_iron_cross 66 -#define XC_left_ptr 68 -#define XC_left_side 70 -#define XC_left_tee 72 -#define XC_leftbutton 74 -#define XC_ll_angle 76 -#define XC_lr_angle 78 -#define XC_man 80 -#define XC_middlebutton 82 -#define XC_mouse 84 -#define XC_pencil 86 -#define XC_pirate 88 -#define XC_plus 90 -#define XC_question_arrow 92 -#define XC_right_ptr 94 -#define XC_right_side 96 -#define XC_right_tee 98 -#define XC_rightbutton 100 -#define XC_rtl_logo 102 -#define XC_sailboat 104 -#define XC_sb_down_arrow 106 -#define XC_sb_h_double_arrow 108 -#define XC_sb_left_arrow 110 -#define XC_sb_right_arrow 112 -#define XC_sb_up_arrow 114 -#define XC_sb_v_double_arrow 116 -#define XC_shuttle 118 -#define XC_sizing 120 -#define XC_spider 122 -#define XC_spraycan 124 -#define XC_star 126 -#define XC_target 128 -#define XC_tcross 130 -#define XC_top_left_arrow 132 -#define XC_top_left_corner 134 -#define XC_top_right_corner 136 -#define XC_top_side 138 -#define XC_top_tee 140 -#define XC_trek 142 -#define XC_ul_angle 144 -#define XC_umbrella 146 -#define XC_ur_angle 148 -#define XC_watch 150 -#define XC_xterm 152 diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/keysym.h deleted file mode 100644 index 550b76dba..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/keysym.h +++ /dev/null @@ -1,35 +0,0 @@ -/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* default keysyms */ -#define XK_MISCELLANY -#define XK_LATIN1 -#define XK_LATIN2 -#define XK_LATIN3 -#define XK_LATIN4 -#define XK_GREEK - -#include diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/keysymdef.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/keysymdef.h deleted file mode 100644 index a7c654d1c..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/X11/keysymdef.h +++ /dev/null @@ -1,1181 +0,0 @@ -/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#define XK_VoidSymbol 0xFFFFFF /* void symbol */ - -#ifdef XK_MISCELLANY -/* - * TTY Functions, cleverly chosen to map to ascii, for convenience of - * programming, but could have been arbitrary (at the cost of lookup - * tables in client code. - */ - -#define XK_BackSpace 0xFF08 /* back space, back char */ -#define XK_Tab 0xFF09 -#define XK_Linefeed 0xFF0A /* Linefeed, LF */ -#define XK_Clear 0xFF0B -#define XK_Return 0xFF0D /* Return, enter */ -#define XK_Pause 0xFF13 /* Pause, hold */ -#define XK_Scroll_Lock 0xFF14 -#define XK_Sys_Req 0xFF15 -#define XK_Escape 0xFF1B -#define XK_Delete 0xFFFF /* Delete, rubout */ - - - -/* International & multi-key character composition */ - -#define XK_Multi_key 0xFF20 /* Multi-key character compose */ - -/* Japanese keyboard support */ - -#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ -#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ -#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ -#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ -#define XK_Romaji 0xFF24 /* to Romaji */ -#define XK_Hiragana 0xFF25 /* to Hiragana */ -#define XK_Katakana 0xFF26 /* to Katakana */ -#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ -#define XK_Zenkaku 0xFF28 /* to Zenkaku */ -#define XK_Hankaku 0xFF29 /* to Hankaku */ -#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ -#define XK_Touroku 0xFF2B /* Add to Dictionary */ -#define XK_Massyo 0xFF2C /* Delete from Dictionary */ -#define XK_Kana_Lock 0xFF2D /* Kana Lock */ -#define XK_Kana_Shift 0xFF2E /* Kana Shift */ -#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ -#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ - -/* Cursor control & motion */ - -#define XK_Home 0xFF50 -#define XK_Left 0xFF51 /* Move left, left arrow */ -#define XK_Up 0xFF52 /* Move up, up arrow */ -#define XK_Right 0xFF53 /* Move right, right arrow */ -#define XK_Down 0xFF54 /* Move down, down arrow */ -#define XK_Prior 0xFF55 /* Prior, previous */ -#define XK_Page_Up 0xFF55 -#define XK_Next 0xFF56 /* Next */ -#define XK_Page_Down 0xFF56 -#define XK_End 0xFF57 /* EOL */ -#define XK_Begin 0xFF58 /* BOL */ - -/* Special Windows keyboard keys */ - -#define XK_Win_L 0xFF5B /* Left-hand Windows */ -#define XK_Win_R 0xFF5C /* Right-hand Windows */ -#define XK_App 0xFF5D /* Menu key */ - -/* Misc Functions */ - -#define XK_Select 0xFF60 /* Select, mark */ -#define XK_Print 0xFF61 -#define XK_Execute 0xFF62 /* Execute, run, do */ -#define XK_Insert 0xFF63 /* Insert, insert here */ -#define XK_Undo 0xFF65 /* Undo, oops */ -#define XK_Redo 0xFF66 /* redo, again */ -#define XK_Menu 0xFF67 -#define XK_Find 0xFF68 /* Find, search */ -#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ -#define XK_Help 0xFF6A /* Help, ? */ -#define XK_Break 0xFF6B -#define XK_Mode_switch 0xFF7E /* Character set switch */ -#define XK_script_switch 0xFF7E /* Alias for mode_switch */ -#define XK_Num_Lock 0xFF7F - -/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ - -#define XK_KP_Space 0xFF80 /* space */ -#define XK_KP_Tab 0xFF89 -#define XK_KP_Enter 0xFF8D /* enter */ -#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ -#define XK_KP_F2 0xFF92 -#define XK_KP_F3 0xFF93 -#define XK_KP_F4 0xFF94 -#define XK_KP_Home 0xFF95 -#define XK_KP_Left 0xFF96 -#define XK_KP_Up 0xFF97 -#define XK_KP_Right 0xFF98 -#define XK_KP_Down 0xFF99 -#define XK_KP_Prior 0xFF9A -#define XK_KP_Page_Up 0xFF9A -#define XK_KP_Next 0xFF9B -#define XK_KP_Page_Down 0xFF9B -#define XK_KP_End 0xFF9C -#define XK_KP_Begin 0xFF9D -#define XK_KP_Insert 0xFF9E -#define XK_KP_Delete 0xFF9F -#define XK_KP_Equal 0xFFBD /* equals */ -#define XK_KP_Multiply 0xFFAA -#define XK_KP_Add 0xFFAB -#define XK_KP_Separator 0xFFAC /* separator, often comma */ -#define XK_KP_Subtract 0xFFAD -#define XK_KP_Decimal 0xFFAE -#define XK_KP_Divide 0xFFAF - -#define XK_KP_0 0xFFB0 -#define XK_KP_1 0xFFB1 -#define XK_KP_2 0xFFB2 -#define XK_KP_3 0xFFB3 -#define XK_KP_4 0xFFB4 -#define XK_KP_5 0xFFB5 -#define XK_KP_6 0xFFB6 -#define XK_KP_7 0xFFB7 -#define XK_KP_8 0xFFB8 -#define XK_KP_9 0xFFB9 - - - -/* - * Auxilliary Functions; note the duplicate definitions for left and right - * function keys; Sun keyboards and a few other manufactures have such - * function key groups on the left and/or right sides of the keyboard. - * We've not found a keyboard with more than 35 function keys total. - */ - -#define XK_F1 0xFFBE -#define XK_F2 0xFFBF -#define XK_F3 0xFFC0 -#define XK_F4 0xFFC1 -#define XK_F5 0xFFC2 -#define XK_F6 0xFFC3 -#define XK_F7 0xFFC4 -#define XK_F8 0xFFC5 -#define XK_F9 0xFFC6 -#define XK_F10 0xFFC7 -#define XK_F11 0xFFC8 -#define XK_L1 0xFFC8 -#define XK_F12 0xFFC9 -#define XK_L2 0xFFC9 -#define XK_F13 0xFFCA -#define XK_L3 0xFFCA -#define XK_F14 0xFFCB -#define XK_L4 0xFFCB -#define XK_F15 0xFFCC -#define XK_L5 0xFFCC -#define XK_F16 0xFFCD -#define XK_L6 0xFFCD -#define XK_F17 0xFFCE -#define XK_L7 0xFFCE -#define XK_F18 0xFFCF -#define XK_L8 0xFFCF -#define XK_F19 0xFFD0 -#define XK_L9 0xFFD0 -#define XK_F20 0xFFD1 -#define XK_L10 0xFFD1 -#define XK_F21 0xFFD2 -#define XK_R1 0xFFD2 -#define XK_F22 0xFFD3 -#define XK_R2 0xFFD3 -#define XK_F23 0xFFD4 -#define XK_R3 0xFFD4 -#define XK_F24 0xFFD5 -#define XK_R4 0xFFD5 -#define XK_F25 0xFFD6 -#define XK_R5 0xFFD6 -#define XK_F26 0xFFD7 -#define XK_R6 0xFFD7 -#define XK_F27 0xFFD8 -#define XK_R7 0xFFD8 -#define XK_F28 0xFFD9 -#define XK_R8 0xFFD9 -#define XK_F29 0xFFDA -#define XK_R9 0xFFDA -#define XK_F30 0xFFDB -#define XK_R10 0xFFDB -#define XK_F31 0xFFDC -#define XK_R11 0xFFDC -#define XK_F32 0xFFDD -#define XK_R12 0xFFDD -#define XK_F33 0xFFDE -#define XK_R13 0xFFDE -#define XK_F34 0xFFDF -#define XK_R14 0xFFDF -#define XK_F35 0xFFE0 -#define XK_R15 0xFFE0 - -/* Modifiers */ - -#define XK_Shift_L 0xFFE1 /* Left shift */ -#define XK_Shift_R 0xFFE2 /* Right shift */ -#define XK_Control_L 0xFFE3 /* Left control */ -#define XK_Control_R 0xFFE4 /* Right control */ -#define XK_Caps_Lock 0xFFE5 /* Caps lock */ -#define XK_Shift_Lock 0xFFE6 /* Shift lock */ - -#define XK_Meta_L 0xFFE7 /* Left meta */ -#define XK_Meta_R 0xFFE8 /* Right meta */ -#define XK_Alt_L 0xFFE9 /* Left alt */ -#define XK_Alt_R 0xFFEA /* Right alt */ -#define XK_Super_L 0xFFEB /* Left super */ -#define XK_Super_R 0xFFEC /* Right super */ -#define XK_Hyper_L 0xFFED /* Left hyper */ -#define XK_Hyper_R 0xFFEE /* Right hyper */ -#endif /* XK_MISCELLANY */ - -/* - * Latin 1 - * Byte 3 = 0 - */ -#ifdef XK_LATIN1 -#define XK_space 0x020 -#define XK_exclam 0x021 -#define XK_quotedbl 0x022 -#define XK_numbersign 0x023 -#define XK_dollar 0x024 -#define XK_percent 0x025 -#define XK_ampersand 0x026 -#define XK_apostrophe 0x027 -#define XK_quoteright 0x027 /* deprecated */ -#define XK_parenleft 0x028 -#define XK_parenright 0x029 -#define XK_asterisk 0x02a -#define XK_plus 0x02b -#define XK_comma 0x02c -#define XK_minus 0x02d -#define XK_period 0x02e -#define XK_slash 0x02f -#define XK_0 0x030 -#define XK_1 0x031 -#define XK_2 0x032 -#define XK_3 0x033 -#define XK_4 0x034 -#define XK_5 0x035 -#define XK_6 0x036 -#define XK_7 0x037 -#define XK_8 0x038 -#define XK_9 0x039 -#define XK_colon 0x03a -#define XK_semicolon 0x03b -#define XK_less 0x03c -#define XK_equal 0x03d -#define XK_greater 0x03e -#define XK_question 0x03f -#define XK_at 0x040 -#define XK_A 0x041 -#define XK_B 0x042 -#define XK_C 0x043 -#define XK_D 0x044 -#define XK_E 0x045 -#define XK_F 0x046 -#define XK_G 0x047 -#define XK_H 0x048 -#define XK_I 0x049 -#define XK_J 0x04a -#define XK_K 0x04b -#define XK_L 0x04c -#define XK_M 0x04d -#define XK_N 0x04e -#define XK_O 0x04f -#define XK_P 0x050 -#define XK_Q 0x051 -#define XK_R 0x052 -#define XK_S 0x053 -#define XK_T 0x054 -#define XK_U 0x055 -#define XK_V 0x056 -#define XK_W 0x057 -#define XK_X 0x058 -#define XK_Y 0x059 -#define XK_Z 0x05a -#define XK_bracketleft 0x05b -#define XK_backslash 0x05c -#define XK_bracketright 0x05d -#define XK_asciicircum 0x05e -#define XK_underscore 0x05f -#define XK_grave 0x060 -#define XK_quoteleft 0x060 /* deprecated */ -#define XK_a 0x061 -#define XK_b 0x062 -#define XK_c 0x063 -#define XK_d 0x064 -#define XK_e 0x065 -#define XK_f 0x066 -#define XK_g 0x067 -#define XK_h 0x068 -#define XK_i 0x069 -#define XK_j 0x06a -#define XK_k 0x06b -#define XK_l 0x06c -#define XK_m 0x06d -#define XK_n 0x06e -#define XK_o 0x06f -#define XK_p 0x070 -#define XK_q 0x071 -#define XK_r 0x072 -#define XK_s 0x073 -#define XK_t 0x074 -#define XK_u 0x075 -#define XK_v 0x076 -#define XK_w 0x077 -#define XK_x 0x078 -#define XK_y 0x079 -#define XK_z 0x07a -#define XK_braceleft 0x07b -#define XK_bar 0x07c -#define XK_braceright 0x07d -#define XK_asciitilde 0x07e - -#define XK_nobreakspace 0x0a0 -#define XK_exclamdown 0x0a1 -#define XK_cent 0x0a2 -#define XK_sterling 0x0a3 -#define XK_currency 0x0a4 -#define XK_yen 0x0a5 -#define XK_brokenbar 0x0a6 -#define XK_section 0x0a7 -#define XK_diaeresis 0x0a8 -#define XK_copyright 0x0a9 -#define XK_ordfeminine 0x0aa -#define XK_guillemotleft 0x0ab /* left angle quotation mark */ -#define XK_notsign 0x0ac -#define XK_hyphen 0x0ad -#define XK_registered 0x0ae -#define XK_macron 0x0af -#define XK_degree 0x0b0 -#define XK_plusminus 0x0b1 -#define XK_twosuperior 0x0b2 -#define XK_threesuperior 0x0b3 -#define XK_acute 0x0b4 -#define XK_mu 0x0b5 -#define XK_paragraph 0x0b6 -#define XK_periodcentered 0x0b7 -#define XK_cedilla 0x0b8 -#define XK_onesuperior 0x0b9 -#define XK_masculine 0x0ba -#define XK_guillemotright 0x0bb /* right angle quotation mark */ -#define XK_onequarter 0x0bc -#define XK_onehalf 0x0bd -#define XK_threequarters 0x0be -#define XK_questiondown 0x0bf -#define XK_Agrave 0x0c0 -#define XK_Aacute 0x0c1 -#define XK_Acircumflex 0x0c2 -#define XK_Atilde 0x0c3 -#define XK_Adiaeresis 0x0c4 -#define XK_Aring 0x0c5 -#define XK_AE 0x0c6 -#define XK_Ccedilla 0x0c7 -#define XK_Egrave 0x0c8 -#define XK_Eacute 0x0c9 -#define XK_Ecircumflex 0x0ca -#define XK_Ediaeresis 0x0cb -#define XK_Igrave 0x0cc -#define XK_Iacute 0x0cd -#define XK_Icircumflex 0x0ce -#define XK_Idiaeresis 0x0cf -#define XK_ETH 0x0d0 -#define XK_Eth 0x0d0 /* deprecated */ -#define XK_Ntilde 0x0d1 -#define XK_Ograve 0x0d2 -#define XK_Oacute 0x0d3 -#define XK_Ocircumflex 0x0d4 -#define XK_Otilde 0x0d5 -#define XK_Odiaeresis 0x0d6 -#define XK_multiply 0x0d7 -#define XK_Ooblique 0x0d8 -#define XK_Ugrave 0x0d9 -#define XK_Uacute 0x0da -#define XK_Ucircumflex 0x0db -#define XK_Udiaeresis 0x0dc -#define XK_Yacute 0x0dd -#define XK_THORN 0x0de -#define XK_Thorn 0x0de /* deprecated */ -#define XK_ssharp 0x0df -#define XK_agrave 0x0e0 -#define XK_aacute 0x0e1 -#define XK_acircumflex 0x0e2 -#define XK_atilde 0x0e3 -#define XK_adiaeresis 0x0e4 -#define XK_aring 0x0e5 -#define XK_ae 0x0e6 -#define XK_ccedilla 0x0e7 -#define XK_egrave 0x0e8 -#define XK_eacute 0x0e9 -#define XK_ecircumflex 0x0ea -#define XK_ediaeresis 0x0eb -#define XK_igrave 0x0ec -#define XK_iacute 0x0ed -#define XK_icircumflex 0x0ee -#define XK_idiaeresis 0x0ef -#define XK_eth 0x0f0 -#define XK_ntilde 0x0f1 -#define XK_ograve 0x0f2 -#define XK_oacute 0x0f3 -#define XK_ocircumflex 0x0f4 -#define XK_otilde 0x0f5 -#define XK_odiaeresis 0x0f6 -#define XK_division 0x0f7 -#define XK_oslash 0x0f8 -#define XK_ugrave 0x0f9 -#define XK_uacute 0x0fa -#define XK_ucircumflex 0x0fb -#define XK_udiaeresis 0x0fc -#define XK_yacute 0x0fd -#define XK_thorn 0x0fe -#define XK_ydiaeresis 0x0ff -#endif /* XK_LATIN1 */ - -/* - * Latin 2 - * Byte 3 = 1 - */ - -#ifdef XK_LATIN2 -#define XK_Aogonek 0x1a1 -#define XK_breve 0x1a2 -#define XK_Lstroke 0x1a3 -#define XK_Lcaron 0x1a5 -#define XK_Sacute 0x1a6 -#define XK_Scaron 0x1a9 -#define XK_Scedilla 0x1aa -#define XK_Tcaron 0x1ab -#define XK_Zacute 0x1ac -#define XK_Zcaron 0x1ae -#define XK_Zabovedot 0x1af -#define XK_aogonek 0x1b1 -#define XK_ogonek 0x1b2 -#define XK_lstroke 0x1b3 -#define XK_lcaron 0x1b5 -#define XK_sacute 0x1b6 -#define XK_caron 0x1b7 -#define XK_scaron 0x1b9 -#define XK_scedilla 0x1ba -#define XK_tcaron 0x1bb -#define XK_zacute 0x1bc -#define XK_doubleacute 0x1bd -#define XK_zcaron 0x1be -#define XK_zabovedot 0x1bf -#define XK_Racute 0x1c0 -#define XK_Abreve 0x1c3 -#define XK_Lacute 0x1c5 -#define XK_Cacute 0x1c6 -#define XK_Ccaron 0x1c8 -#define XK_Eogonek 0x1ca -#define XK_Ecaron 0x1cc -#define XK_Dcaron 0x1cf -#define XK_Dstroke 0x1d0 -#define XK_Nacute 0x1d1 -#define XK_Ncaron 0x1d2 -#define XK_Odoubleacute 0x1d5 -#define XK_Rcaron 0x1d8 -#define XK_Uring 0x1d9 -#define XK_Udoubleacute 0x1db -#define XK_Tcedilla 0x1de -#define XK_racute 0x1e0 -#define XK_abreve 0x1e3 -#define XK_lacute 0x1e5 -#define XK_cacute 0x1e6 -#define XK_ccaron 0x1e8 -#define XK_eogonek 0x1ea -#define XK_ecaron 0x1ec -#define XK_dcaron 0x1ef -#define XK_dstroke 0x1f0 -#define XK_nacute 0x1f1 -#define XK_ncaron 0x1f2 -#define XK_odoubleacute 0x1f5 -#define XK_udoubleacute 0x1fb -#define XK_rcaron 0x1f8 -#define XK_uring 0x1f9 -#define XK_tcedilla 0x1fe -#define XK_abovedot 0x1ff -#endif /* XK_LATIN2 */ - -/* - * Latin 3 - * Byte 3 = 2 - */ - -#ifdef XK_LATIN3 -#define XK_Hstroke 0x2a1 -#define XK_Hcircumflex 0x2a6 -#define XK_Iabovedot 0x2a9 -#define XK_Gbreve 0x2ab -#define XK_Jcircumflex 0x2ac -#define XK_hstroke 0x2b1 -#define XK_hcircumflex 0x2b6 -#define XK_idotless 0x2b9 -#define XK_gbreve 0x2bb -#define XK_jcircumflex 0x2bc -#define XK_Cabovedot 0x2c5 -#define XK_Ccircumflex 0x2c6 -#define XK_Gabovedot 0x2d5 -#define XK_Gcircumflex 0x2d8 -#define XK_Ubreve 0x2dd -#define XK_Scircumflex 0x2de -#define XK_cabovedot 0x2e5 -#define XK_ccircumflex 0x2e6 -#define XK_gabovedot 0x2f5 -#define XK_gcircumflex 0x2f8 -#define XK_ubreve 0x2fd -#define XK_scircumflex 0x2fe -#endif /* XK_LATIN3 */ - - -/* - * Latin 4 - * Byte 3 = 3 - */ - -#ifdef XK_LATIN4 -#define XK_kra 0x3a2 -#define XK_kappa 0x3a2 /* deprecated */ -#define XK_Rcedilla 0x3a3 -#define XK_Itilde 0x3a5 -#define XK_Lcedilla 0x3a6 -#define XK_Emacron 0x3aa -#define XK_Gcedilla 0x3ab -#define XK_Tslash 0x3ac -#define XK_rcedilla 0x3b3 -#define XK_itilde 0x3b5 -#define XK_lcedilla 0x3b6 -#define XK_emacron 0x3ba -#define XK_gcedilla 0x3bb -#define XK_tslash 0x3bc -#define XK_ENG 0x3bd -#define XK_eng 0x3bf -#define XK_Amacron 0x3c0 -#define XK_Iogonek 0x3c7 -#define XK_Eabovedot 0x3cc -#define XK_Imacron 0x3cf -#define XK_Ncedilla 0x3d1 -#define XK_Omacron 0x3d2 -#define XK_Kcedilla 0x3d3 -#define XK_Uogonek 0x3d9 -#define XK_Utilde 0x3dd -#define XK_Umacron 0x3de -#define XK_amacron 0x3e0 -#define XK_iogonek 0x3e7 -#define XK_eabovedot 0x3ec -#define XK_imacron 0x3ef -#define XK_ncedilla 0x3f1 -#define XK_omacron 0x3f2 -#define XK_kcedilla 0x3f3 -#define XK_uogonek 0x3f9 -#define XK_utilde 0x3fd -#define XK_umacron 0x3fe -#endif /* XK_LATIN4 */ - -/* - * Katakana - * Byte 3 = 4 - */ - -#ifdef XK_KATAKANA -#define XK_overline 0x47e -#define XK_kana_fullstop 0x4a1 -#define XK_kana_openingbracket 0x4a2 -#define XK_kana_closingbracket 0x4a3 -#define XK_kana_comma 0x4a4 -#define XK_kana_conjunctive 0x4a5 -#define XK_kana_middledot 0x4a5 /* deprecated */ -#define XK_kana_WO 0x4a6 -#define XK_kana_a 0x4a7 -#define XK_kana_i 0x4a8 -#define XK_kana_u 0x4a9 -#define XK_kana_e 0x4aa -#define XK_kana_o 0x4ab -#define XK_kana_ya 0x4ac -#define XK_kana_yu 0x4ad -#define XK_kana_yo 0x4ae -#define XK_kana_tsu 0x4af -#define XK_kana_tu 0x4af /* deprecated */ -#define XK_prolongedsound 0x4b0 -#define XK_kana_A 0x4b1 -#define XK_kana_I 0x4b2 -#define XK_kana_U 0x4b3 -#define XK_kana_E 0x4b4 -#define XK_kana_O 0x4b5 -#define XK_kana_KA 0x4b6 -#define XK_kana_KI 0x4b7 -#define XK_kana_KU 0x4b8 -#define XK_kana_KE 0x4b9 -#define XK_kana_KO 0x4ba -#define XK_kana_SA 0x4bb -#define XK_kana_SHI 0x4bc -#define XK_kana_SU 0x4bd -#define XK_kana_SE 0x4be -#define XK_kana_SO 0x4bf -#define XK_kana_TA 0x4c0 -#define XK_kana_CHI 0x4c1 -#define XK_kana_TI 0x4c1 /* deprecated */ -#define XK_kana_TSU 0x4c2 -#define XK_kana_TU 0x4c2 /* deprecated */ -#define XK_kana_TE 0x4c3 -#define XK_kana_TO 0x4c4 -#define XK_kana_NA 0x4c5 -#define XK_kana_NI 0x4c6 -#define XK_kana_NU 0x4c7 -#define XK_kana_NE 0x4c8 -#define XK_kana_NO 0x4c9 -#define XK_kana_HA 0x4ca -#define XK_kana_HI 0x4cb -#define XK_kana_FU 0x4cc -#define XK_kana_HU 0x4cc /* deprecated */ -#define XK_kana_HE 0x4cd -#define XK_kana_HO 0x4ce -#define XK_kana_MA 0x4cf -#define XK_kana_MI 0x4d0 -#define XK_kana_MU 0x4d1 -#define XK_kana_ME 0x4d2 -#define XK_kana_MO 0x4d3 -#define XK_kana_YA 0x4d4 -#define XK_kana_YU 0x4d5 -#define XK_kana_YO 0x4d6 -#define XK_kana_RA 0x4d7 -#define XK_kana_RI 0x4d8 -#define XK_kana_RU 0x4d9 -#define XK_kana_RE 0x4da -#define XK_kana_RO 0x4db -#define XK_kana_WA 0x4dc -#define XK_kana_N 0x4dd -#define XK_voicedsound 0x4de -#define XK_semivoicedsound 0x4df -#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_KATAKANA */ - -/* - * Arabic - * Byte 3 = 5 - */ - -#ifdef XK_ARABIC -#define XK_Arabic_comma 0x5ac -#define XK_Arabic_semicolon 0x5bb -#define XK_Arabic_question_mark 0x5bf -#define XK_Arabic_hamza 0x5c1 -#define XK_Arabic_maddaonalef 0x5c2 -#define XK_Arabic_hamzaonalef 0x5c3 -#define XK_Arabic_hamzaonwaw 0x5c4 -#define XK_Arabic_hamzaunderalef 0x5c5 -#define XK_Arabic_hamzaonyeh 0x5c6 -#define XK_Arabic_alef 0x5c7 -#define XK_Arabic_beh 0x5c8 -#define XK_Arabic_tehmarbuta 0x5c9 -#define XK_Arabic_teh 0x5ca -#define XK_Arabic_theh 0x5cb -#define XK_Arabic_jeem 0x5cc -#define XK_Arabic_hah 0x5cd -#define XK_Arabic_khah 0x5ce -#define XK_Arabic_dal 0x5cf -#define XK_Arabic_thal 0x5d0 -#define XK_Arabic_ra 0x5d1 -#define XK_Arabic_zain 0x5d2 -#define XK_Arabic_seen 0x5d3 -#define XK_Arabic_sheen 0x5d4 -#define XK_Arabic_sad 0x5d5 -#define XK_Arabic_dad 0x5d6 -#define XK_Arabic_tah 0x5d7 -#define XK_Arabic_zah 0x5d8 -#define XK_Arabic_ain 0x5d9 -#define XK_Arabic_ghain 0x5da -#define XK_Arabic_tatweel 0x5e0 -#define XK_Arabic_feh 0x5e1 -#define XK_Arabic_qaf 0x5e2 -#define XK_Arabic_kaf 0x5e3 -#define XK_Arabic_lam 0x5e4 -#define XK_Arabic_meem 0x5e5 -#define XK_Arabic_noon 0x5e6 -#define XK_Arabic_ha 0x5e7 -#define XK_Arabic_heh 0x5e7 /* deprecated */ -#define XK_Arabic_waw 0x5e8 -#define XK_Arabic_alefmaksura 0x5e9 -#define XK_Arabic_yeh 0x5ea -#define XK_Arabic_fathatan 0x5eb -#define XK_Arabic_dammatan 0x5ec -#define XK_Arabic_kasratan 0x5ed -#define XK_Arabic_fatha 0x5ee -#define XK_Arabic_damma 0x5ef -#define XK_Arabic_kasra 0x5f0 -#define XK_Arabic_shadda 0x5f1 -#define XK_Arabic_sukun 0x5f2 -#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_ARABIC */ - -/* - * Cyrillic - * Byte 3 = 6 - */ -#ifdef XK_CYRILLIC -#define XK_Serbian_dje 0x6a1 -#define XK_Macedonia_gje 0x6a2 -#define XK_Cyrillic_io 0x6a3 -#define XK_Ukrainian_ie 0x6a4 -#define XK_Ukranian_je 0x6a4 /* deprecated */ -#define XK_Macedonia_dse 0x6a5 -#define XK_Ukrainian_i 0x6a6 -#define XK_Ukranian_i 0x6a6 /* deprecated */ -#define XK_Ukrainian_yi 0x6a7 -#define XK_Ukranian_yi 0x6a7 /* deprecated */ -#define XK_Cyrillic_je 0x6a8 -#define XK_Serbian_je 0x6a8 /* deprecated */ -#define XK_Cyrillic_lje 0x6a9 -#define XK_Serbian_lje 0x6a9 /* deprecated */ -#define XK_Cyrillic_nje 0x6aa -#define XK_Serbian_nje 0x6aa /* deprecated */ -#define XK_Serbian_tshe 0x6ab -#define XK_Macedonia_kje 0x6ac -#define XK_Byelorussian_shortu 0x6ae -#define XK_Cyrillic_dzhe 0x6af -#define XK_Serbian_dze 0x6af /* deprecated */ -#define XK_numerosign 0x6b0 -#define XK_Serbian_DJE 0x6b1 -#define XK_Macedonia_GJE 0x6b2 -#define XK_Cyrillic_IO 0x6b3 -#define XK_Ukrainian_IE 0x6b4 -#define XK_Ukranian_JE 0x6b4 /* deprecated */ -#define XK_Macedonia_DSE 0x6b5 -#define XK_Ukrainian_I 0x6b6 -#define XK_Ukranian_I 0x6b6 /* deprecated */ -#define XK_Ukrainian_YI 0x6b7 -#define XK_Ukranian_YI 0x6b7 /* deprecated */ -#define XK_Cyrillic_JE 0x6b8 -#define XK_Serbian_JE 0x6b8 /* deprecated */ -#define XK_Cyrillic_LJE 0x6b9 -#define XK_Serbian_LJE 0x6b9 /* deprecated */ -#define XK_Cyrillic_NJE 0x6ba -#define XK_Serbian_NJE 0x6ba /* deprecated */ -#define XK_Serbian_TSHE 0x6bb -#define XK_Macedonia_KJE 0x6bc -#define XK_Byelorussian_SHORTU 0x6be -#define XK_Cyrillic_DZHE 0x6bf -#define XK_Serbian_DZE 0x6bf /* deprecated */ -#define XK_Cyrillic_yu 0x6c0 -#define XK_Cyrillic_a 0x6c1 -#define XK_Cyrillic_be 0x6c2 -#define XK_Cyrillic_tse 0x6c3 -#define XK_Cyrillic_de 0x6c4 -#define XK_Cyrillic_ie 0x6c5 -#define XK_Cyrillic_ef 0x6c6 -#define XK_Cyrillic_ghe 0x6c7 -#define XK_Cyrillic_ha 0x6c8 -#define XK_Cyrillic_i 0x6c9 -#define XK_Cyrillic_shorti 0x6ca -#define XK_Cyrillic_ka 0x6cb -#define XK_Cyrillic_el 0x6cc -#define XK_Cyrillic_em 0x6cd -#define XK_Cyrillic_en 0x6ce -#define XK_Cyrillic_o 0x6cf -#define XK_Cyrillic_pe 0x6d0 -#define XK_Cyrillic_ya 0x6d1 -#define XK_Cyrillic_er 0x6d2 -#define XK_Cyrillic_es 0x6d3 -#define XK_Cyrillic_te 0x6d4 -#define XK_Cyrillic_u 0x6d5 -#define XK_Cyrillic_zhe 0x6d6 -#define XK_Cyrillic_ve 0x6d7 -#define XK_Cyrillic_softsign 0x6d8 -#define XK_Cyrillic_yeru 0x6d9 -#define XK_Cyrillic_ze 0x6da -#define XK_Cyrillic_sha 0x6db -#define XK_Cyrillic_e 0x6dc -#define XK_Cyrillic_shcha 0x6dd -#define XK_Cyrillic_che 0x6de -#define XK_Cyrillic_hardsign 0x6df -#define XK_Cyrillic_YU 0x6e0 -#define XK_Cyrillic_A 0x6e1 -#define XK_Cyrillic_BE 0x6e2 -#define XK_Cyrillic_TSE 0x6e3 -#define XK_Cyrillic_DE 0x6e4 -#define XK_Cyrillic_IE 0x6e5 -#define XK_Cyrillic_EF 0x6e6 -#define XK_Cyrillic_GHE 0x6e7 -#define XK_Cyrillic_HA 0x6e8 -#define XK_Cyrillic_I 0x6e9 -#define XK_Cyrillic_SHORTI 0x6ea -#define XK_Cyrillic_KA 0x6eb -#define XK_Cyrillic_EL 0x6ec -#define XK_Cyrillic_EM 0x6ed -#define XK_Cyrillic_EN 0x6ee -#define XK_Cyrillic_O 0x6ef -#define XK_Cyrillic_PE 0x6f0 -#define XK_Cyrillic_YA 0x6f1 -#define XK_Cyrillic_ER 0x6f2 -#define XK_Cyrillic_ES 0x6f3 -#define XK_Cyrillic_TE 0x6f4 -#define XK_Cyrillic_U 0x6f5 -#define XK_Cyrillic_ZHE 0x6f6 -#define XK_Cyrillic_VE 0x6f7 -#define XK_Cyrillic_SOFTSIGN 0x6f8 -#define XK_Cyrillic_YERU 0x6f9 -#define XK_Cyrillic_ZE 0x6fa -#define XK_Cyrillic_SHA 0x6fb -#define XK_Cyrillic_E 0x6fc -#define XK_Cyrillic_SHCHA 0x6fd -#define XK_Cyrillic_CHE 0x6fe -#define XK_Cyrillic_HARDSIGN 0x6ff -#endif /* XK_CYRILLIC */ - -/* - * Greek - * Byte 3 = 7 - */ - -#ifdef XK_GREEK -#define XK_Greek_ALPHAaccent 0x7a1 -#define XK_Greek_EPSILONaccent 0x7a2 -#define XK_Greek_ETAaccent 0x7a3 -#define XK_Greek_IOTAaccent 0x7a4 -#define XK_Greek_IOTAdiaeresis 0x7a5 -#define XK_Greek_OMICRONaccent 0x7a7 -#define XK_Greek_UPSILONaccent 0x7a8 -#define XK_Greek_UPSILONdieresis 0x7a9 -#define XK_Greek_OMEGAaccent 0x7ab -#define XK_Greek_accentdieresis 0x7ae -#define XK_Greek_horizbar 0x7af -#define XK_Greek_alphaaccent 0x7b1 -#define XK_Greek_epsilonaccent 0x7b2 -#define XK_Greek_etaaccent 0x7b3 -#define XK_Greek_iotaaccent 0x7b4 -#define XK_Greek_iotadieresis 0x7b5 -#define XK_Greek_iotaaccentdieresis 0x7b6 -#define XK_Greek_omicronaccent 0x7b7 -#define XK_Greek_upsilonaccent 0x7b8 -#define XK_Greek_upsilondieresis 0x7b9 -#define XK_Greek_upsilonaccentdieresis 0x7ba -#define XK_Greek_omegaaccent 0x7bb -#define XK_Greek_ALPHA 0x7c1 -#define XK_Greek_BETA 0x7c2 -#define XK_Greek_GAMMA 0x7c3 -#define XK_Greek_DELTA 0x7c4 -#define XK_Greek_EPSILON 0x7c5 -#define XK_Greek_ZETA 0x7c6 -#define XK_Greek_ETA 0x7c7 -#define XK_Greek_THETA 0x7c8 -#define XK_Greek_IOTA 0x7c9 -#define XK_Greek_KAPPA 0x7ca -#define XK_Greek_LAMDA 0x7cb -#define XK_Greek_LAMBDA 0x7cb -#define XK_Greek_MU 0x7cc -#define XK_Greek_NU 0x7cd -#define XK_Greek_XI 0x7ce -#define XK_Greek_OMICRON 0x7cf -#define XK_Greek_PI 0x7d0 -#define XK_Greek_RHO 0x7d1 -#define XK_Greek_SIGMA 0x7d2 -#define XK_Greek_TAU 0x7d4 -#define XK_Greek_UPSILON 0x7d5 -#define XK_Greek_PHI 0x7d6 -#define XK_Greek_CHI 0x7d7 -#define XK_Greek_PSI 0x7d8 -#define XK_Greek_OMEGA 0x7d9 -#define XK_Greek_alpha 0x7e1 -#define XK_Greek_beta 0x7e2 -#define XK_Greek_gamma 0x7e3 -#define XK_Greek_delta 0x7e4 -#define XK_Greek_epsilon 0x7e5 -#define XK_Greek_zeta 0x7e6 -#define XK_Greek_eta 0x7e7 -#define XK_Greek_theta 0x7e8 -#define XK_Greek_iota 0x7e9 -#define XK_Greek_kappa 0x7ea -#define XK_Greek_lamda 0x7eb -#define XK_Greek_lambda 0x7eb -#define XK_Greek_mu 0x7ec -#define XK_Greek_nu 0x7ed -#define XK_Greek_xi 0x7ee -#define XK_Greek_omicron 0x7ef -#define XK_Greek_pi 0x7f0 -#define XK_Greek_rho 0x7f1 -#define XK_Greek_sigma 0x7f2 -#define XK_Greek_finalsmallsigma 0x7f3 -#define XK_Greek_tau 0x7f4 -#define XK_Greek_upsilon 0x7f5 -#define XK_Greek_phi 0x7f6 -#define XK_Greek_chi 0x7f7 -#define XK_Greek_psi 0x7f8 -#define XK_Greek_omega 0x7f9 -#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_GREEK */ - -/* - * Technical - * Byte 3 = 8 - */ - -#ifdef XK_TECHNICAL -#define XK_leftradical 0x8a1 -#define XK_topleftradical 0x8a2 -#define XK_horizconnector 0x8a3 -#define XK_topintegral 0x8a4 -#define XK_botintegral 0x8a5 -#define XK_vertconnector 0x8a6 -#define XK_topleftsqbracket 0x8a7 -#define XK_botleftsqbracket 0x8a8 -#define XK_toprightsqbracket 0x8a9 -#define XK_botrightsqbracket 0x8aa -#define XK_topleftparens 0x8ab -#define XK_botleftparens 0x8ac -#define XK_toprightparens 0x8ad -#define XK_botrightparens 0x8ae -#define XK_leftmiddlecurlybrace 0x8af -#define XK_rightmiddlecurlybrace 0x8b0 -#define XK_topleftsummation 0x8b1 -#define XK_botleftsummation 0x8b2 -#define XK_topvertsummationconnector 0x8b3 -#define XK_botvertsummationconnector 0x8b4 -#define XK_toprightsummation 0x8b5 -#define XK_botrightsummation 0x8b6 -#define XK_rightmiddlesummation 0x8b7 -#define XK_lessthanequal 0x8bc -#define XK_notequal 0x8bd -#define XK_greaterthanequal 0x8be -#define XK_integral 0x8bf -#define XK_therefore 0x8c0 -#define XK_variation 0x8c1 -#define XK_infinity 0x8c2 -#define XK_nabla 0x8c5 -#define XK_approximate 0x8c8 -#define XK_similarequal 0x8c9 -#define XK_ifonlyif 0x8cd -#define XK_implies 0x8ce -#define XK_identical 0x8cf -#define XK_radical 0x8d6 -#define XK_includedin 0x8da -#define XK_includes 0x8db -#define XK_intersection 0x8dc -#define XK_union 0x8dd -#define XK_logicaland 0x8de -#define XK_logicalor 0x8df -#define XK_partialderivative 0x8ef -#define XK_function 0x8f6 -#define XK_leftarrow 0x8fb -#define XK_uparrow 0x8fc -#define XK_rightarrow 0x8fd -#define XK_downarrow 0x8fe -#endif /* XK_TECHNICAL */ - -/* - * Special - * Byte 3 = 9 - */ - -#ifdef XK_SPECIAL -#define XK_blank 0x9df -#define XK_soliddiamond 0x9e0 -#define XK_checkerboard 0x9e1 -#define XK_ht 0x9e2 -#define XK_ff 0x9e3 -#define XK_cr 0x9e4 -#define XK_lf 0x9e5 -#define XK_nl 0x9e8 -#define XK_vt 0x9e9 -#define XK_lowrightcorner 0x9ea -#define XK_uprightcorner 0x9eb -#define XK_upleftcorner 0x9ec -#define XK_lowleftcorner 0x9ed -#define XK_crossinglines 0x9ee -#define XK_horizlinescan1 0x9ef -#define XK_horizlinescan3 0x9f0 -#define XK_horizlinescan5 0x9f1 -#define XK_horizlinescan7 0x9f2 -#define XK_horizlinescan9 0x9f3 -#define XK_leftt 0x9f4 -#define XK_rightt 0x9f5 -#define XK_bott 0x9f6 -#define XK_topt 0x9f7 -#define XK_vertbar 0x9f8 -#endif /* XK_SPECIAL */ - -/* - * Publishing - * Byte 3 = a - */ - -#ifdef XK_PUBLISHING -#define XK_emspace 0xaa1 -#define XK_enspace 0xaa2 -#define XK_em3space 0xaa3 -#define XK_em4space 0xaa4 -#define XK_digitspace 0xaa5 -#define XK_punctspace 0xaa6 -#define XK_thinspace 0xaa7 -#define XK_hairspace 0xaa8 -#define XK_emdash 0xaa9 -#define XK_endash 0xaaa -#define XK_signifblank 0xaac -#define XK_ellipsis 0xaae -#define XK_doubbaselinedot 0xaaf -#define XK_onethird 0xab0 -#define XK_twothirds 0xab1 -#define XK_onefifth 0xab2 -#define XK_twofifths 0xab3 -#define XK_threefifths 0xab4 -#define XK_fourfifths 0xab5 -#define XK_onesixth 0xab6 -#define XK_fivesixths 0xab7 -#define XK_careof 0xab8 -#define XK_figdash 0xabb -#define XK_leftanglebracket 0xabc -#define XK_decimalpoint 0xabd -#define XK_rightanglebracket 0xabe -#define XK_marker 0xabf -#define XK_oneeighth 0xac3 -#define XK_threeeighths 0xac4 -#define XK_fiveeighths 0xac5 -#define XK_seveneighths 0xac6 -#define XK_trademark 0xac9 -#define XK_signaturemark 0xaca -#define XK_trademarkincircle 0xacb -#define XK_leftopentriangle 0xacc -#define XK_rightopentriangle 0xacd -#define XK_emopencircle 0xace -#define XK_emopenrectangle 0xacf -#define XK_leftsinglequotemark 0xad0 -#define XK_rightsinglequotemark 0xad1 -#define XK_leftdoublequotemark 0xad2 -#define XK_rightdoublequotemark 0xad3 -#define XK_prescription 0xad4 -#define XK_minutes 0xad6 -#define XK_seconds 0xad7 -#define XK_latincross 0xad9 -#define XK_hexagram 0xada -#define XK_filledrectbullet 0xadb -#define XK_filledlefttribullet 0xadc -#define XK_filledrighttribullet 0xadd -#define XK_emfilledcircle 0xade -#define XK_emfilledrect 0xadf -#define XK_enopencircbullet 0xae0 -#define XK_enopensquarebullet 0xae1 -#define XK_openrectbullet 0xae2 -#define XK_opentribulletup 0xae3 -#define XK_opentribulletdown 0xae4 -#define XK_openstar 0xae5 -#define XK_enfilledcircbullet 0xae6 -#define XK_enfilledsqbullet 0xae7 -#define XK_filledtribulletup 0xae8 -#define XK_filledtribulletdown 0xae9 -#define XK_leftpointer 0xaea -#define XK_rightpointer 0xaeb -#define XK_club 0xaec -#define XK_diamond 0xaed -#define XK_heart 0xaee -#define XK_maltesecross 0xaf0 -#define XK_dagger 0xaf1 -#define XK_doubledagger 0xaf2 -#define XK_checkmark 0xaf3 -#define XK_ballotcross 0xaf4 -#define XK_musicalsharp 0xaf5 -#define XK_musicalflat 0xaf6 -#define XK_malesymbol 0xaf7 -#define XK_femalesymbol 0xaf8 -#define XK_telephone 0xaf9 -#define XK_telephonerecorder 0xafa -#define XK_phonographcopyright 0xafb -#define XK_caret 0xafc -#define XK_singlelowquotemark 0xafd -#define XK_doublelowquotemark 0xafe -#define XK_cursor 0xaff -#endif /* XK_PUBLISHING */ - -/* - * APL - * Byte 3 = b - */ - -#ifdef XK_APL -#define XK_leftcaret 0xba3 -#define XK_rightcaret 0xba6 -#define XK_downcaret 0xba8 -#define XK_upcaret 0xba9 -#define XK_overbar 0xbc0 -#define XK_downtack 0xbc2 -#define XK_upshoe 0xbc3 -#define XK_downstile 0xbc4 -#define XK_underbar 0xbc6 -#define XK_jot 0xbca -#define XK_quad 0xbcc -#define XK_uptack 0xbce -#define XK_circle 0xbcf -#define XK_upstile 0xbd3 -#define XK_downshoe 0xbd6 -#define XK_rightshoe 0xbd8 -#define XK_leftshoe 0xbda -#define XK_lefttack 0xbdc -#define XK_righttack 0xbfc -#endif /* XK_APL */ - -/* - * Hebrew - * Byte 3 = c - */ - -#ifdef XK_HEBREW -#define XK_hebrew_doublelowline 0xcdf -#define XK_hebrew_aleph 0xce0 -#define XK_hebrew_bet 0xce1 -#define XK_hebrew_beth 0xce1 /* deprecated */ -#define XK_hebrew_gimel 0xce2 -#define XK_hebrew_gimmel 0xce2 /* deprecated */ -#define XK_hebrew_dalet 0xce3 -#define XK_hebrew_daleth 0xce3 /* deprecated */ -#define XK_hebrew_he 0xce4 -#define XK_hebrew_waw 0xce5 -#define XK_hebrew_zain 0xce6 -#define XK_hebrew_zayin 0xce6 /* deprecated */ -#define XK_hebrew_chet 0xce7 -#define XK_hebrew_het 0xce7 /* deprecated */ -#define XK_hebrew_tet 0xce8 -#define XK_hebrew_teth 0xce8 /* deprecated */ -#define XK_hebrew_yod 0xce9 -#define XK_hebrew_finalkaph 0xcea -#define XK_hebrew_kaph 0xceb -#define XK_hebrew_lamed 0xcec -#define XK_hebrew_finalmem 0xced -#define XK_hebrew_mem 0xcee -#define XK_hebrew_finalnun 0xcef -#define XK_hebrew_nun 0xcf0 -#define XK_hebrew_samech 0xcf1 -#define XK_hebrew_samekh 0xcf1 /* deprecated */ -#define XK_hebrew_ayin 0xcf2 -#define XK_hebrew_finalpe 0xcf3 -#define XK_hebrew_pe 0xcf4 -#define XK_hebrew_finalzade 0xcf5 -#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ -#define XK_hebrew_zade 0xcf6 -#define XK_hebrew_zadi 0xcf6 /* deprecated */ -#define XK_hebrew_qoph 0xcf7 -#define XK_hebrew_kuf 0xcf7 /* deprecated */ -#define XK_hebrew_resh 0xcf8 -#define XK_hebrew_shin 0xcf9 -#define XK_hebrew_taw 0xcfa -#define XK_hebrew_taf 0xcfa /* deprecated */ -#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_HEBREW */ - -/* Multimedia keys, defined same as on Linux - * /usr/include/pkg/libxkbcommon/xkbcommon/xkbcommon-keysyms.h - */ - -#define XK_XF86AudioLowerVolume 0x1008FF11 /* Volume control down */ -#define XK_XF86AudioMute 0x1008FF12 /* Mute sound from the system */ -#define XK_XF86AudioRaiseVolume 0x1008FF13 /* Volume control up */ -#define XK_XF86AudioPlay 0x1008FF14 /* Start playing of audio > */ -#define XK_XF86AudioStop 0x1008FF15 /* Stop playing audio */ -#define XK_XF86AudioPrev 0x1008FF16 /* Previous track */ -#define XK_XF86AudioNext 0x1008FF17 /* Next track */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tcl.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tcl.h deleted file mode 100644 index 7378a8faf..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tcl.h +++ /dev/null @@ -1,2459 +0,0 @@ -/* - * tcl.h -- - * - * This header file describes the externally-visible facilities of the - * Tcl interpreter. - * - * Copyright (c) 1987-1994 The Regents of the University of California. - * Copyright (c) 1993-1996 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCL -#define _TCL - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * The following defines are used to indicate the various release levels. - */ - -#define TCL_ALPHA_RELEASE 0 -#define TCL_BETA_RELEASE 1 -#define TCL_FINAL_RELEASE 2 - -/* - * When version numbers change here, must also go into the following files and - * update the version numbers: - * - * library/init.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/tcl.m4 (not patchlevel) - * win/makefile.bc (not patchlevel) 2 LOC - * README (sections 0 and 2, with and without separator) - * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC - * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC - * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC - * macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC - * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) (sections 0 and 2) - * unix/tcl.spec (1 LOC patch) - * tools/tcl.hpj.in (not patchlevel, for windows installer) - * tools/tcl.wse.in (for windows installer) - * tools/tclSplash.bmp (not patchlevel) - */ - -#define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 5 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 19 - -#define TCL_VERSION "8.5" -#define TCL_PATCH_LEVEL "8.5.19" - -/* - * The following definitions set up the proper options for Windows compilers. - * We use this method because there is no autoconf equivalent. - */ - -#ifndef __WIN32__ -# if defined(_WIN32) || defined(WIN32) || defined(__MSVCRT__) || defined(__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) -# define __WIN32__ -# ifndef WIN32 -# define WIN32 -# endif -# ifndef _WIN32 -# define _WIN32 -# endif -# endif -#endif - -/* - * STRICT: See MSDN Article Q83456 - */ - -#ifdef __WIN32__ -# ifndef STRICT -# define STRICT -# endif -#endif /* __WIN32__ */ - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * A special definition used to allow this header file to be included from - * windows resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool. - * - * Resource compilers don't like all the C stuff, like typedefs and function - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -/* - * Special macro to define mutexes, that doesn't do anything if we are not - * using threads. - */ - -#ifdef TCL_THREADS -#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; -#else -#define TCL_DECLARE_MUTEX(name) -#endif - -/* - * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and - * SEEK_END, all #define'd by stdio.h . - * - * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h - * providing it for them rather than #include-ing it themselves as they - * should, so also for their sake, we keep the #include to be consistent with - * prior Tcl releases. - */ - -#include - -/* - * Support for functions with a variable number of arguments. - * - * The following TCL_VARARGS* macros are to support old extensions - * written for older versions of Tcl where the macros permitted - * support for the varargs.h system as well as stdarg.h . - * - * New code should just directly be written to use stdarg.h conventions. - */ - -#include -#ifndef TCL_NO_DEPRECATED -# define TCL_VARARGS(type, name) (type name, ...) -# define TCL_VARARGS_DEF(type, name) (type name, ...) -# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) -#endif - -/* - * Macros used to declare a function to be exported by a DLL. Used by Windows, - * maps to no-op declarations on non-Windows systems. The default build on - * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be - * nonempty. To build a static library, the macro STATIC_BUILD should be - * defined. - * - * Note: when building static but linking dynamically to MSVCRT we must still - * correctly decorate the C library imported function. Use CRTIMPORT - * for this purpose. _DLL is defined by the compiler when linking to - * MSVCRT. - */ - -#if (defined(__WIN32__) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) -# define HAVE_DECLSPEC 1 -# ifdef STATIC_BUILD -# define DLLIMPORT -# define DLLEXPORT -# ifdef _DLL -# define CRTIMPORT __declspec(dllimport) -# else -# define CRTIMPORT -# endif -# else -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# define CRTIMPORT __declspec(dllimport) -# endif -#else -# define DLLIMPORT -# if defined(__GNUC__) && __GNUC__ > 3 -# define DLLEXPORT __attribute__ ((visibility("default"))) -# else -# define DLLEXPORT -# endif -# define CRTIMPORT -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the name of - * a library we are building, is set on the compile line for sources that are - * to be placed in the library. When this macro is set, the storage class will - * be set to DLLEXPORT. At the end of the header file, the storage class will - * be reset to DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * Definitions that allow this header file to be used either with or without - * ANSI C features like function prototypes. - */ - -#undef _ANSI_ARGS_ -#undef CONST -#ifndef INLINE -# define INLINE -#endif - -#ifndef NO_CONST -# define CONST const -#else -# define CONST -#endif - -#ifndef NO_PROTOTYPES -# define _ANSI_ARGS_(x) x -#else -# define _ANSI_ARGS_(x) () -#endif - -#ifdef USE_NON_CONST -# ifdef USE_COMPAT_CONST -# error define at most one of USE_NON_CONST and USE_COMPAT_CONST -# endif -# define CONST84 -# define CONST84_RETURN -#else -# ifdef USE_COMPAT_CONST -# define CONST84 -# define CONST84_RETURN CONST -# else -# define CONST84 CONST -# define CONST84_RETURN CONST -# endif -#endif - -/* - * Make sure EXTERN isn't defined elsewhere. - */ - -#ifdef EXTERN -# undef EXTERN -#endif /* EXTERN */ - -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - * The following code is copied from winnt.h. If we don't replicate it here, - * then can't be included after tcl.h, since tcl.h also defines - * VOID. This block is skipped under Cygwin and Mingw. - */ - -#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) -#ifndef VOID -#define VOID void -typedef char CHAR; -typedef short SHORT; -typedef long LONG; -#endif -#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ - -/* - * Macro to use instead of "void" for arguments that must have type "void *" - * in ANSI C; maps them to type "char *" in non-ANSI systems. - */ - -#ifndef __VXWORKS__ -# ifndef NO_VOID -# define VOID void -# else -# define VOID char -# endif -#endif - -/* - * Miscellaneous declarations. - */ - -#ifndef _CLIENTDATA -# ifndef NO_VOID - typedef void *ClientData; -# else - typedef int *ClientData; -# endif -# define _CLIENTDATA -#endif - -/* - * Darwin specific configure overrides (to support fat compiles, where - * configure runs only once for multiple architectures): - */ - -#ifdef __APPLE__ -# ifdef __LP64__ -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_IS_LONG 1 -# define TCL_CFG_DO64BIT 1 -# else /* !__LP64__ */ -# define TCL_WIDE_INT_TYPE long long -# undef TCL_WIDE_INT_IS_LONG -# undef TCL_CFG_DO64BIT -# endif /* __LP64__ */ -# undef HAVE_STRUCT_STAT64 -#endif /* __APPLE__ */ - -/* - * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define - * Tcl_WideUInt to be the unsigned variant of that type (assuming that where - * we have one, we can have the other.) - * - * Also defines the following macros: - * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a real - * 64-bit system.) - * Tcl_WideAsLong - forgetful converter from wideInt to long. - * Tcl_LongAsWide - sign-extending converter from long to wideInt. - * Tcl_WideAsDouble - converter from wideInt to double. - * Tcl_DoubleAsWide - converter from double to wideInt. - * - * The following invariant should hold for any long value 'longVal': - * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) - * - * Note on converting between Tcl_WideInt and strings. This implementation (in - * tclObj.c) depends on the function - * sprintf(...,"%" TCL_LL_MODIFIER "d",...). - */ - -#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) -# if defined(__WIN32__) -# define TCL_WIDE_INT_TYPE __int64 -# ifdef __BORLANDC__ -# define TCL_LL_MODIFIER "L" -# else /* __BORLANDC__ */ -# define TCL_LL_MODIFIER "I64" -# endif /* __BORLANDC__ */ -# elif defined(__GNUC__) -# define TCL_WIDE_INT_TYPE long long -# define TCL_LL_MODIFIER "ll" -# else /* ! __WIN32__ && ! __GNUC__ */ -/* - * Don't know what platform it is and configure hasn't discovered what is - * going on for us. Try to guess... - */ -# ifdef NO_LIMITS_H -# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LONG -# else /* !NO_LIMITS_H */ -# include -# if (INT_MAX < LONG_MAX) -# define TCL_WIDE_INT_IS_LONG 1 -# else -# define TCL_WIDE_INT_TYPE long long -# endif -# endif /* NO_LIMITS_H */ -# endif /* __WIN32__ */ -#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ -#ifdef TCL_WIDE_INT_IS_LONG -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_TYPE long -#endif /* TCL_WIDE_INT_IS_LONG */ - -typedef TCL_WIDE_INT_TYPE Tcl_WideInt; -typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; - -#ifdef TCL_WIDE_INT_IS_LONG -# define Tcl_WideAsLong(val) ((long)(val)) -# define Tcl_LongAsWide(val) ((long)(val)) -# define Tcl_WideAsDouble(val) ((double)((long)(val))) -# define Tcl_DoubleAsWide(val) ((long)((double)(val))) -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "l" -# endif /* !TCL_LL_MODIFIER */ -#else /* TCL_WIDE_INT_IS_LONG */ -/* - * The next short section of defines are only done when not running on Windows - * or some other strange platform. - */ -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "ll" -# endif /* !TCL_LL_MODIFIER */ -# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) -# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) -# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) -# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -#if defined(__WIN32__) -# ifdef __BORLANDC__ - typedef struct stati64 Tcl_StatBuf; -# elif defined(_WIN64) || defined(_USE_64BIT_TIME_T) - typedef struct __stat64 Tcl_StatBuf; -# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) - typedef struct _stati64 Tcl_StatBuf; -# else - typedef struct _stat32i64 Tcl_StatBuf; -# endif /* _MSC_VER < 1400 */ -#elif defined(__CYGWIN__) - typedef struct { - dev_t st_dev; - unsigned short st_ino; - unsigned short st_mode; - short st_nlink; - short st_uid; - short st_gid; - /* Here is a 2-byte gap */ - dev_t st_rdev; - /* Here is a 4-byte gap */ - long long st_size; - struct {long tv_sec;} st_atim; - struct {long tv_sec;} st_mtim; - struct {long tv_sec;} st_ctim; - /* Here is a 4-byte gap */ - } Tcl_StatBuf; -#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) - typedef struct stat64 Tcl_StatBuf; -#else - typedef struct stat Tcl_StatBuf; -#endif - -/* - * Data structures defined opaquely in this module. The definitions below just - * provide dummy types. A few fields are made visible in Tcl_Interp - * structures, namely those used for returning a string result from commands. - * Direct access to the result field is discouraged in Tcl 8.0. The - * interpreter result is either an object or a string, and the two values are - * kept consistent unless some C code sets interp->result directly. - * Programmers should use either the function Tcl_GetObjResult() or - * Tcl_GetStringResult() to read the interpreter's result. See the SetResult - * man page for details. - * - * Note: any change to the Tcl_Interp definition below must be mirrored in the - * "real" definition in tclInt.h. - * - * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. - * Instead, they set a Tcl_Obj member in the "real" structure that can be - * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). - */ - -typedef struct Tcl_Interp { - char *result; /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) _ANSI_ARGS_((char *blockPtr)); - /* Zero means the string result is statically - * allocated. TCL_DYNAMIC means it was - * allocated with ckalloc and should be freed - * with ckfree. Other values give the address - * of function to invoke to free the result. - * Tcl_Eval must free it before executing next - * command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number within the command where the - * error occurred (1 if first line). */ -} Tcl_Interp; - -typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; -typedef struct Tcl_Channel_ *Tcl_Channel; -typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_Command_ *Tcl_Command; -typedef struct Tcl_Condition_ *Tcl_Condition; -typedef struct Tcl_Dict_ *Tcl_Dict; -typedef struct Tcl_EncodingState_ *Tcl_EncodingState; -typedef struct Tcl_Encoding_ *Tcl_Encoding; -typedef struct Tcl_Event Tcl_Event; -typedef struct Tcl_InterpState_ *Tcl_InterpState; -typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; -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; - -/* - * Definition of the interface to functions implementing threads. A function - * following this definition is given to each call of 'Tcl_CreateThread' and - * will be called as the main fuction of the new thread created by that call. - */ - -#if defined __WIN32__ -typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#else -typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#endif - -/* - * Threading function return types used for abstracting away platform - * differences when writing a Tcl_ThreadCreateProc. See the NewThread function - * in generic/tclThreadTest.c for it's usage. - */ - -#if defined __WIN32__ -# define Tcl_ThreadCreateType unsigned __stdcall -# define TCL_THREAD_CREATE_RETURN return 0 -#else -# define Tcl_ThreadCreateType void -# define TCL_THREAD_CREATE_RETURN -#endif - -/* - * Definition of values for default stacksize and the possible flags to be - * given to Tcl_CreateThread. - */ - -#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */ -#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default - * behaviour. */ -#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */ - -/* - * Flag values passed to Tcl_StringCaseMatch. - */ - -#define TCL_MATCH_NOCASE (1<<0) - -/* - * Flag values passed to Tcl_GetRegExpFromObj. - */ - -#define TCL_REG_BASIC 000000 /* BREs (convenience). */ -#define TCL_REG_EXTENDED 000001 /* EREs. */ -#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */ -#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */ -#define TCL_REG_QUOTE 000004 /* No special characters, none. */ -#define TCL_REG_NOCASE 000010 /* Ignore case. */ -#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */ -#define TCL_REG_EXPANDED 000040 /* Expanded format, white space & - * comments. */ -#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ -#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */ -#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */ -#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited - * matches. */ - -/* - * Flags values passed to Tcl_RegExpExecObj. - */ - -#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ -#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ - -/* - * Structures filled in by Tcl_RegExpInfo. Note that all offset values are - * relative to the start of the match string, not the beginning of the entire - * string. - */ - -typedef struct Tcl_RegExpIndices { - long start; /* Character offset of first character in - * match. */ - long end; /* Character offset of first character after - * the match. */ -} Tcl_RegExpIndices; - -typedef struct Tcl_RegExpInfo { - int nsubs; /* Number of subexpressions in the compiled - * expression. */ - Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ - long extendStart; /* The offset at which a subsequent match - * might begin. */ - long reserved; /* Reserved for later use. */ -} Tcl_RegExpInfo; - -/* - * Picky compilers complain if this typdef doesn't appear before the struct's - * reference in tclDecls.h. - */ - -typedef Tcl_StatBuf *Tcl_Stat_; -typedef struct stat *Tcl_OldStat_; - -/* - * When a TCL command returns, the interpreter contains a result from the - * command. Programmers are strongly encouraged to use one of the functions - * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's - * result. See the SetResult man page for details. Besides this result, the - * command function returns an integer code, which is one of the following: - * - * TCL_OK Command completed normally; the interpreter's result - * contains the command's result. - * TCL_ERROR The command couldn't be completed successfully; the - * interpreter's result describes what went wrong. - * TCL_RETURN The command requests that the current function return; - * the interpreter's result contains the function's - * return value. - * TCL_BREAK The command requests that the innermost loop be - * exited; the interpreter's result is meaningless. - * TCL_CONTINUE Go on to the next iteration of the current loop; the - * interpreter's result is meaningless. - */ - -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 - -#define TCL_RESULT_SIZE 200 - -/* - * Flags to control what substitutions are performed by Tcl_SubstObj(): - */ - -#define TCL_SUBST_COMMANDS 001 -#define TCL_SUBST_VARIABLES 002 -#define TCL_SUBST_BACKSLASHES 004 -#define TCL_SUBST_ALL 007 - -/* - * Argument descriptors for math function callbacks in expressions: - */ - -typedef enum { - TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT -} Tcl_ValueType; - -typedef struct Tcl_Value { - Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, - * or both. */ - long intValue; /* Integer value. */ - double doubleValue; /* Double-precision floating value. */ - Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ -} Tcl_Value; - -/* - * Forward declaration of Tcl_Obj to prevent an error when the forward - * reference to Tcl_Obj is encountered in the function types declared below. - */ - -struct Tcl_Obj; - -/* - * Function types defined by Tcl: - */ - -typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int code)); -typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); -typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, CONST84 char *argv[])); -typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, - ClientData cmdClientData, int argc, CONST84 char *argv[])); -typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, CONST char *command, - Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); -typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, - struct Tcl_Obj *dupPtr)); -typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((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)_ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); -typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, - ClientData clientData)); -typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); -typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); -typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); -typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); -typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp, - int flags)); -typedef void (Tcl_PanicProc) _ANSI_ARGS_((CONST char *format, ...)); -typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, - Tcl_Channel chan, char *address, int port)); -typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, - struct Tcl_Obj *objPtr)); -typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); -typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, - int flags)); -typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST char *oldName, CONST char *newName, - int flags)); -typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, - Tcl_FileProc *proc, ClientData clientData)); -typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); -typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); -typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); -typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); - -/* - * The following structure represents a type of object, which is a particular - * internal representation for an object plus a set of functions that provide - * standard operations on objects of that type. - */ - -typedef struct Tcl_ObjType { - char *name; /* Name of the type, e.g. "int". */ - Tcl_FreeInternalRepProc *freeIntRepProc; - /* Called to free any storage for the type's - * internal rep. NULL if the internal rep does - * not need freeing. */ - Tcl_DupInternalRepProc *dupIntRepProc; - /* Called to create a new object as a copy of - * an existing object. */ - Tcl_UpdateStringProc *updateStringProc; - /* Called to update the string rep from the - * type's internal representation. */ - Tcl_SetFromAnyProc *setFromAnyProc; - /* Called to convert the object's internal rep - * to this type. Frees the internal rep of the - * old type. Returns TCL_ERROR on failure. */ -} Tcl_ObjType; - -/* - * One of the following structures exists for each object in the Tcl system. - * An object stores a value as either a string, some internal representation, - * or both. - */ - -typedef struct Tcl_Obj { - int refCount; /* When 0 the object will be freed. */ - char *bytes; /* This points to the first byte of the - * object's string representation. The array - * must be followed by a null byte (i.e., at - * offset length) but may also contain - * embedded null characters. The array's - * storage is allocated by ckalloc. NULL means - * the string rep is invalid and must be - * regenerated from the internal rep. Clients - * should use Tcl_GetStringFromObj or - * Tcl_GetString to get a pointer to the byte - * array as a readonly value. */ - int length; /* The number of bytes at *bytes, not - * including the terminating null. */ - Tcl_ObjType *typePtr; /* Denotes the object's type. Always - * corresponds to the type of the object's - * internal rep. NULL indicates the object has - * no internal rep (has no type). */ - union { /* The internal representation: */ - long longValue; /* - an long integer value. */ - double doubleValue; /* - a double-precision floating value. */ - VOID *otherValuePtr; /* - another, type-specific value. */ - Tcl_WideInt wideValue; /* - a long long value. */ - struct { /* - internal rep as two pointers. */ - VOID *ptr1; - VOID *ptr2; - } twoPtrValue; - struct { /* - internal rep as a wide int, tightly - * packed fields. */ - VOID *ptr; /* Pointer to digits. */ - unsigned long value;/* Alloc, used, and signum packed into a - * single word. */ - } ptrAndLongRep; - } internalRep; -} Tcl_Obj; - -/* - * Macros to increment and decrement a Tcl_Obj's reference count, and to test - * whether an object is shared (i.e. has reference count > 1). Note: clients - * should use Tcl_DecrRefCount() when they are finished using an object, and - * should never call TclFreeObj() directly. TclFreeObj() is only defined and - * made public in tcl.h to support Tcl_DecrRefCount's macro definition. - */ - -void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); - -/* - * The following structure contains the state needed by Tcl_SaveResult. No-one - * outside of Tcl should access any of these fields. This structure is - * typically allocated on the stack. - */ - -typedef struct Tcl_SavedResult { - char *result; - Tcl_FreeProc *freeProc; - Tcl_Obj *objResultPtr; - char *appendResult; - int appendAvl; - int appendUsed; - char resultSpace[TCL_RESULT_SIZE+1]; -} Tcl_SavedResult; - -/* - * The following definitions support Tcl's namespace facility. Note: the first - * five fields must match exactly the fields in a Namespace structure (see - * tclInt.h). - */ - -typedef struct Tcl_Namespace { - char *name; /* The namespace's name within its parent - * namespace. This contains no ::'s. The name - * of the global namespace is "" although "::" - * is an synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* Arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Function invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Tcl_Namespace *parentPtr; - /* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -} Tcl_Namespace; - -/* - * The following structure represents a call frame, or activation record. A - * call frame defines a naming context for a procedure call: its local scope - * (for local variables) and its namespace scope (used for non-local - * variables; often the global :: namespace). A call frame can also define the - * naming context for a namespace eval or namespace inscope command: the - * namespace in which the command's code should execute. The Tcl_CallFrame - * structures exist only while procedures or namespace eval/inscope's are - * being executed, and provide a Tcl call stack. - * - * A call frame is initialized and pushed using Tcl_PushCallFrame and popped - * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the - * Tcl_PushCallFrame caller, and callers typically allocate them on the C call - * stack for efficiency. For this reason, Tcl_CallFrame is defined as a - * structure and not as an opaque token. However, most Tcl_CallFrame fields - * are hidden since applications should not access them directly; others are - * declared as "dummyX". - * - * WARNING!! The structure definition must be kept consistent with the - * CallFrame structure in tclInt.h. If you change one, change the other. - */ - -typedef struct Tcl_CallFrame { - Tcl_Namespace *nsPtr; - int dummy1; - int dummy2; - VOID *dummy3; - VOID *dummy4; - VOID *dummy5; - int dummy6; - VOID *dummy7; - VOID *dummy8; - int dummy9; - VOID *dummy10; - VOID *dummy11; - VOID *dummy12; - VOID *dummy13; -} Tcl_CallFrame; - -/* - * Information about commands that is returned by Tcl_GetCommandInfo and - * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command - * function while proc is a traditional Tcl argc/argv string-based function. - * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and - * proc are non-NULL and can be called to execute the command. However, it may - * be faster to call one instead of the other. The member isNativeObjectProc - * is set to 1 if an object-based function was registered by - * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by - * Tcl_CreateCommand. The other function is typically set to a compatibility - * wrapper that does string-to-object or object-to-string argument conversions - * then calls the other function. - */ - -typedef struct Tcl_CmdInfo { - int isNativeObjectProc; /* 1 if objProc was registered by a call to - * Tcl_CreateObjCommand; 0 otherwise. - * Tcl_SetCmdInfo does not modify this - * field. */ - Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ - ClientData objClientData; /* ClientData for object proc. */ - Tcl_CmdProc *proc; /* Command's string-based function. */ - ClientData clientData; /* ClientData for string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Function to call when command is - * deleted. */ - ClientData deleteData; /* Value to pass to deleteProc (usually the - * same as clientData). */ - Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this - * command. Note that Tcl_SetCmdInfo will not - * change a command's namespace; use - * TclRenameCommand or Tcl_Eval (of 'rename') - * to do that. */ -} Tcl_CmdInfo; - -/* - * The structure defined below is used to hold dynamic strings. The only - * fields that clients should use are string and length, accessible via the - * macros Tcl_DStringValue and Tcl_DStringLength. - */ - -#define TCL_DSTRING_STATIC_SIZE 200 -typedef struct Tcl_DString { - char *string; /* Points to beginning of string: either - * staticSpace below or a malloced array. */ - int length; /* Number of non-NULL characters in the - * string. */ - int spaceAvl; /* Total number of bytes available for the - * string and its terminating NULL char. */ - char staticSpace[TCL_DSTRING_STATIC_SIZE]; - /* Space to use in common case where string is - * small. */ -} Tcl_DString; - -#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) -#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#define Tcl_DStringTrunc Tcl_DStringSetLength - -/* - * Definitions for the maximum number of digits of precision that may be - * specified in the "tcl_precision" variable, and the number of bytes of - * buffer space required by Tcl_PrintDouble. - */ - -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) - -/* - * Definition for a number of bytes of buffer space sufficient to hold the - * string representation of an integer in base 10 (assuming the existence of - * 64-bit integers). - */ - -#define TCL_INTEGER_SPACE 24 - -/* - * Flag values passed to Tcl_ConvertElement. - * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to - * use backslash quoting instead. - * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It - * is safe to leave the hash unquoted when the element is not the first - * element of a list, and this flag can be used by the caller to indicate - * that condition. - */ - -#define TCL_DONT_USE_BRACES 1 -#define TCL_DONT_QUOTE_HASH 8 - -/* - * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow - * abbreviated strings. - */ - -#define TCL_EXACT 1 - -/* - * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. - * WARNING: these bit choices must not conflict with the bit choices for - * evalFlag bits in tclInt.h! - * - * Meanings: - * TCL_NO_EVAL: Just record this command - * TCL_EVAL_GLOBAL: Execute script in global namespace - * TCL_EVAL_DIRECT: Do not compile this script - * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles - * o Run in iPtr->lookupNsPtr or global namespace - * o Cut out of error traces - * o Don't reset the flags controlling ensemble - * error message rewriting. - */ -#define TCL_NO_EVAL 0x10000 -#define TCL_EVAL_GLOBAL 0x20000 -#define TCL_EVAL_DIRECT 0x40000 -#define TCL_EVAL_INVOKE 0x80000 - -/* - * Special freeProc values that may be passed to Tcl_SetResult (see the man - * page for details): - */ - -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) - -/* - * Flag values passed to variable-related functions. - */ - -#define TCL_GLOBAL_ONLY 1 -#define TCL_NAMESPACE_ONLY 2 -#define TCL_APPEND_VALUE 4 -#define TCL_LIST_ELEMENT 8 -#define TCL_TRACE_READS 0x10 -#define TCL_TRACE_WRITES 0x20 -#define TCL_TRACE_UNSETS 0x40 -#define TCL_TRACE_DESTROYED 0x80 -#define TCL_INTERP_DESTROYED 0x100 -#define TCL_LEAVE_ERR_MSG 0x200 -#define TCL_TRACE_ARRAY 0x800 -#ifndef TCL_REMOVE_OBSOLETE_TRACES -/* Required to support old variable/vdelete/vinfo traces */ -#define TCL_TRACE_OLD_STYLE 0x1000 -#endif -/* Indicate the semantics of the result of a trace */ -#define TCL_TRACE_RESULT_DYNAMIC 0x8000 -#define TCL_TRACE_RESULT_OBJECT 0x10000 - -/* - * Flag values for ensemble commands. - */ - -#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow - * unambiguous prefixes of commands or to - * require exact matches for command names. */ - -/* - * Flag values passed to command-related functions. - */ - -#define TCL_TRACE_RENAME 0x2000 -#define TCL_TRACE_DELETE 0x4000 - -#define TCL_ALLOW_INLINE_COMPILATION 0x20000 - -/* - * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now - * always parsed whenever the part2 is NULL. (This is to avoid a common error - * when converting code to use the new object based APIs and forgetting to - * give the flag) - */ - -#ifndef TCL_NO_DEPRECATED -# define TCL_PARSE_PART1 0x400 -#endif - -/* - * Types for linked variables: - */ - -#define TCL_LINK_INT 1 -#define TCL_LINK_DOUBLE 2 -#define TCL_LINK_BOOLEAN 3 -#define TCL_LINK_STRING 4 -#define TCL_LINK_WIDE_INT 5 -#define TCL_LINK_CHAR 6 -#define TCL_LINK_UCHAR 7 -#define TCL_LINK_SHORT 8 -#define TCL_LINK_USHORT 9 -#define TCL_LINK_UINT 10 -#define TCL_LINK_LONG 11 -#define TCL_LINK_ULONG 12 -#define TCL_LINK_FLOAT 13 -#define TCL_LINK_WIDE_UINT 14 -#define TCL_LINK_READ_ONLY 0x80 - -/* - * Forward declarations of Tcl_HashTable and related types. - */ - -typedef struct Tcl_HashKeyType Tcl_HashKeyType; -typedef struct Tcl_HashTable Tcl_HashTable; -typedef struct Tcl_HashEntry Tcl_HashEntry; - -typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - VOID *keyPtr)); -typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, - Tcl_HashEntry *hPtr)); -typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( - Tcl_HashTable *tablePtr, VOID *keyPtr)); -typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); - -/* - * This flag controls whether the hash table stores the hash of a key, or - * recalculates it. There should be no reason for turning this flag off as it - * is completely binary and source compatible unless you directly access the - * bucketPtr member of the Tcl_HashTableEntry structure. This member has been - * removed and the space used to store the hash value. - */ - -#ifndef TCL_HASH_KEY_STORE_HASH -# define TCL_HASH_KEY_STORE_HASH 1 -#endif - -/* - * Structure definition for an entry in a hash table. No-one outside Tcl - * should access any of these fields directly; use the macros defined below. - */ - -struct Tcl_HashEntry { - Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, - * or NULL for end of chain. */ - Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ -#if TCL_HASH_KEY_STORE_HASH - VOID *hash; /* Hash value, stored as pointer to ensure - * that the offsets of the fields in this - * structure are not changed. */ -#else - Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first - * entry in this entry's chain: used for - * deleting the entry. */ -#endif - ClientData clientData; /* Application stores something here with - * Tcl_SetHashValue. */ - union { /* Key has one of these forms: */ - char *oneWordValue; /* One-word value for key. */ - Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ - int words[1]; /* Multiple integer words for key. The actual - * size will be as large as necessary for this - * table's keys. */ - char string[4]; /* String for key. The actual size will be as - * large as needed to hold the key. */ - } key; /* MUST BE LAST FIELD IN RECORD!! */ -}; - -/* - * Flags used in Tcl_HashKeyType. - * - * TCL_HASH_KEY_RANDOMIZE_HASH - - * There are some things, pointers for example - * which don't hash well because they do not use - * the lower bits. If this flag is set then the - * hash table will attempt to rectify this by - * randomising the bits and then using the upper - * N bits as the index into the table. - * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally - * allocated for the hash table that is not for an - * entry will use the system heap. - */ - -#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 -#define TCL_HASH_KEY_SYSTEM_HASH 0x2 - -/* - * Structure definition for the methods associated with a hash table key type. - */ - -#define TCL_HASH_KEY_TYPE_VERSION 1 -struct Tcl_HashKeyType { - int version; /* Version of the table. If this structure is - * extended in future then the version can be - * used to distinguish between different - * structures. */ - int flags; /* Flags, see above for details. */ - Tcl_HashKeyProc *hashKeyProc; - /* Calculates a hash value for the key. If - * this is NULL then the pointer itself is - * used as a hash value. */ - Tcl_CompareHashKeysProc *compareKeysProc; - /* Compares two keys and returns zero if they - * do not match, and non-zero if they do. If - * this is NULL then the pointers are - * compared. */ - Tcl_AllocHashEntryProc *allocEntryProc; - /* Called to allocate memory for a new entry, - * i.e. if the key is a string then this could - * allocate a single block which contains - * enough space for both the entry and the - * string. Only the key field of the allocated - * Tcl_HashEntry structure needs to be filled - * in. If something else needs to be done to - * the key, i.e. incrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Alloc is - * used to allocate enough space for a - * Tcl_HashEntry and the key pointer is - * assigned to key.oneWordValue. */ - Tcl_FreeHashEntryProc *freeEntryProc; - /* Called to free memory associated with an - * entry. If something else needs to be done - * to the key, i.e. decrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Free is - * used to free the Tcl_HashEntry. */ -}; - -/* - * Structure definition for a hash table. Must be in tcl.h so clients can - * allocate space for these structures, but clients should never access any - * fields in this structure. - */ - -#define TCL_SMALL_HASH_TABLE 4 -struct Tcl_HashTable { - Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables (to - * avoid mallocs and frees). */ - int numBuckets; /* Total number of buckets allocated at - * **bucketPtr. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int downShift; /* Shift count used in hashing function. - * Designed to use high-order bits of - * randomized keys. */ - int mask; /* Mask value used in hashing function. */ - int keyType; /* Type of keys used in this table. It's - * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, - * TCL_ONE_WORD_KEYS, or an integer giving the - * number of ints that is the size of the - * key. */ - Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key)); - Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key, int *newPtr)); - Tcl_HashKeyType *typePtr; /* Type of the keys used in the - * Tcl_HashTable. */ -}; - -/* - * Structure definition for information used to keep track of searches through - * hash tables: - */ - -typedef struct Tcl_HashSearch { - Tcl_HashTable *tablePtr; /* Table being searched. */ - int nextIndex; /* Index of next bucket to be enumerated after - * present one. */ - Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current - * bucket. */ -} Tcl_HashSearch; - -/* - * Acceptable key types for hash tables: - * - * TCL_STRING_KEYS: The keys are strings, they are copied into the - * entry. - * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored - * in the entry. - * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied - * into the entry. - * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the - * pointer is stored in the entry. - * - * While maintaining binary compatibility the above have to be distinct values - * as they are used to differentiate between old versions of the hash table - * which don't have a typePtr and new ones which do. Once binary compatibility - * is discarded in favour of making more wide spread changes TCL_STRING_KEYS - * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the - * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is - * accessed from the entry and not the behaviour. - */ - -#define TCL_STRING_KEYS 0 -#define TCL_ONE_WORD_KEYS 1 -#define TCL_CUSTOM_TYPE_KEYS -2 -#define TCL_CUSTOM_PTR_KEYS -1 - -/* - * Structure definition for information used to keep track of searches through - * dictionaries. These fields should not be accessed by code outside - * tclDictObj.c - */ - -typedef struct { - void *next; /* Search position for underlying hash - * table. */ - int epoch; /* Epoch marker for dictionary being searched, - * or -1 if search has terminated. */ - Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ -} Tcl_DictSearch; - -/* - * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of - * events: - */ - -#define TCL_DONT_WAIT (1<<1) -#define TCL_WINDOW_EVENTS (1<<2) -#define TCL_FILE_EVENTS (1<<3) -#define TCL_TIMER_EVENTS (1<<4) -#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ -#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) - -/* - * The following structure defines a generic event for the Tcl event system. - * These are the things that are queued in calls to Tcl_QueueEvent and - * serviced later by Tcl_DoOneEvent. There can be many different kinds of - * events with different fields, corresponding to window events, timer events, - * etc. The structure for a particular event consists of a Tcl_Event header - * followed by additional information specific to that event. - */ - -struct Tcl_Event { - Tcl_EventProc *proc; /* Function to call to service this event. */ - struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ -}; - -/* - * Positions to pass to Tcl_QueueEvent: - */ - -typedef enum { - TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK -} Tcl_QueuePosition; - -/* - * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier - * event routines. - */ - -#define TCL_SERVICE_NONE 0 -#define TCL_SERVICE_ALL 1 - -/* - * The following structure keeps is used to hold a time value, either as an - * absolute time (the number of seconds from the epoch) or as an elapsed time. - * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. - */ - -typedef struct Tcl_Time { - long sec; /* Seconds. */ - long usec; /* Microseconds. */ -} Tcl_Time; - -typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); -typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); - -/* - * TIP #233 (Virtualized Time) - */ - -typedef void (Tcl_GetTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, - ClientData clientData)); -typedef void (Tcl_ScaleTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, - ClientData clientData)); - -/* - * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to - * indicate what sorts of events are of interest: - */ - -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) - -/* - * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition - * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in - * Tcl_GetStdChannel. - */ - -#define TCL_STDIN (1<<1) -#define TCL_STDOUT (1<<2) -#define TCL_STDERR (1<<3) -#define TCL_ENFORCE_MODE (1<<4) - -/* - * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel - * should be closed. - */ - -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) - -/* - * Value to use as the closeProc for a channel that supports the close2Proc - * interface. - */ - -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) - -/* - * Channel version tag. This was introduced in 8.3.2/8.4. - */ - -#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) -#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) -#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) -#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) -#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) - -/* - * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. - */ - -#define TCL_CHANNEL_THREAD_INSERT (0) -#define TCL_CHANNEL_THREAD_REMOVE (1) - -/* - * Typedefs for the various operations in a channel type: - */ - -typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( - ClientData instanceData, int mode)); -typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp)); -typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp, int flags)); -typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, - char *buf, int toRead, int *errorCodePtr)); -typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, - CONST84 char *buf, int toWrite, int *errorCodePtr)); -typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, - long offset, int mode, int *errorCodePtr)); -typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST char *optionName, CONST char *value)); -typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST84 char *optionName, Tcl_DString *dsPtr)); -typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( - ClientData instanceData, int mask)); -typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( - ClientData instanceData, int direction, - ClientData *handlePtr)); -typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_((ClientData instanceData)); -typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( - ClientData instanceData, int interestMask)); -typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt offset, - int mode, int *errorCodePtr)); -/* - * TIP #218, Channel Thread Actions - */ -typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( - ClientData instanceData, int action)); -/* - * TIP #208, File Truncation (etc.) - */ -typedef int (Tcl_DriverTruncateProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt length)); - -/* - * struct Tcl_ChannelType: - * - * One such structure exists for each type (kind) of channel. It collects - * together in one place all the functions that are part of the specific - * channel type. - * - * It is recommend that the Tcl_Channel* functions are used to access elements - * of this structure, instead of direct accessing. - */ - -typedef struct Tcl_ChannelType { - char *typeName; /* The name of the channel type in Tcl - * commands. This storage is owned by channel - * type. */ - Tcl_ChannelTypeVersion version; - /* Version of the channel type. */ - Tcl_DriverCloseProc *closeProc; - /* Function to call to close the channel, or - * TCL_CLOSE2PROC if the close2Proc should be - * used instead. */ - Tcl_DriverInputProc *inputProc; - /* Function to call for input on channel. */ - Tcl_DriverOutputProc *outputProc; - /* Function to call for output on channel. */ - Tcl_DriverSeekProc *seekProc; - /* Function to call to seek on the channel. - * May be NULL. */ - Tcl_DriverSetOptionProc *setOptionProc; - /* Set an option on a channel. */ - Tcl_DriverGetOptionProc *getOptionProc; - /* Get an option from a channel. */ - Tcl_DriverWatchProc *watchProc; - /* Set up the notifier to watch for events on - * this channel. */ - Tcl_DriverGetHandleProc *getHandleProc; - /* Get an OS handle from the channel or NULL - * if not supported. */ - Tcl_DriverClose2Proc *close2Proc; - /* Function to call to close the channel if - * the device supports closing the read & - * write sides independently. */ - Tcl_DriverBlockModeProc *blockModeProc; - /* Set blocking mode for the raw channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_2 channels or later. - */ - Tcl_DriverFlushProc *flushProc; - /* Function to call to flush a channel. May be - * NULL. */ - Tcl_DriverHandlerProc *handlerProc; - /* Function to call to handle a channel event. - * This will be passed up the stacked channel - * chain. */ - /* - * Only valid in TCL_CHANNEL_VERSION_3 channels or later. - */ - Tcl_DriverWideSeekProc *wideSeekProc; - /* Function to call to seek on the channel - * which can handle 64-bit offsets. May be - * NULL, and must be NULL if seekProc is - * NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_4 channels or later. - * TIP #218, Channel Thread Actions. - */ - Tcl_DriverThreadActionProc *threadActionProc; - /* Function to call to notify the driver of - * thread specific activity for a channel. May - * be NULL. */ - - /* - * Only valid in TCL_CHANNEL_VERSION_5 channels or later. - * TIP #208, File Truncation. - */ - Tcl_DriverTruncateProc *truncateProc; - /* Function to call to truncate the underlying - * file to a particular length. May be NULL if - * the channel does not support truncation. */ -} Tcl_ChannelType; - -/* - * The following flags determine whether the blockModeProc above should set - * the channel into blocking or nonblocking mode. They are passed as arguments - * to the blockModeProc function in the above structure. - */ - -#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ -#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking - * mode. */ - -/* - * Enum for different types of file paths. - */ - -typedef enum Tcl_PathType { - TCL_PATH_ABSOLUTE, - TCL_PATH_RELATIVE, - TCL_PATH_VOLUME_RELATIVE -} Tcl_PathType; - -/* - * The following structure is used to pass glob type data amongst the various - * glob routines and Tcl_FSMatchInDirectory. - */ - -typedef struct Tcl_GlobTypeData { - int type; /* Corresponds to bcdpfls as in 'find -t'. */ - int perm; /* Corresponds to file permissions. */ - Tcl_Obj *macType; /* Acceptable Mac type. */ - Tcl_Obj *macCreator; /* Acceptable Mac creator. */ -} Tcl_GlobTypeData; - -/* - * Type and permission definitions for glob command. - */ - -#define TCL_GLOB_TYPE_BLOCK (1<<0) -#define TCL_GLOB_TYPE_CHAR (1<<1) -#define TCL_GLOB_TYPE_DIR (1<<2) -#define TCL_GLOB_TYPE_PIPE (1<<3) -#define TCL_GLOB_TYPE_FILE (1<<4) -#define TCL_GLOB_TYPE_LINK (1<<5) -#define TCL_GLOB_TYPE_SOCK (1<<6) -#define TCL_GLOB_TYPE_MOUNT (1<<7) - -#define TCL_GLOB_PERM_RONLY (1<<0) -#define TCL_GLOB_PERM_HIDDEN (1<<1) -#define TCL_GLOB_PERM_R (1<<2) -#define TCL_GLOB_PERM_W (1<<3) -#define TCL_GLOB_PERM_X (1<<4) - -/* - * Flags for the unload callback function. - */ - -#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) -#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) - -/* - * Typedefs for the various filesystem operations: - */ - -typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); -typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); -typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions)); -typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, - Tcl_GlobTypeData * types)); -typedef Tcl_Obj * (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_StatBuf *buf)); -typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)); -typedef Tcl_Obj * (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); -/* We have to declare the utime structure here. */ -struct utimbuf; -typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - struct utimbuf *tval)); -typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint)); -typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); -typedef CONST char ** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); -typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); -typedef Tcl_Obj * (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_Obj *toPtr, int linkType)); -typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr, - Tcl_FSUnloadFileProc **unloadProcPtr)); -typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - ClientData *clientDataPtr)); -typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); -typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); -typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData)); -typedef ClientData (Tcl_FSDupInternalRepProc) _ANSI_ARGS_(( - ClientData clientData)); -typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) _ANSI_ARGS_(( - ClientData clientData)); -typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); - -typedef struct Tcl_FSVersion_ *Tcl_FSVersion; - -/* - *---------------------------------------------------------------- - * Data structures related to hooking into the filesystem - *---------------------------------------------------------------- - */ - -/* - * Filesystem version tag. This was introduced in 8.4. - */ -#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) - -/* - * struct Tcl_Filesystem: - * - * One such structure exists for each type (kind) of filesystem. It collects - * together in one place all the functions that are part of the specific - * filesystem. Tcl always accesses the filesystem through one of these - * structures. - * - * Not all entries need be non-NULL; any which are NULL are simply ignored. - * However, a complete filesystem should provide all of these functions. The - * explanations in the structure show the importance of each function. - */ - -typedef struct Tcl_Filesystem { - CONST char *typeName; /* The name of the filesystem. */ - int structureLength; /* Length of this structure, so future binary - * compatibility can be assured. */ - Tcl_FSVersion version; /* Version of the filesystem type. */ - Tcl_FSPathInFilesystemProc *pathInFilesystemProc; - /* Function to check whether a path is in this - * filesystem. This is the most important - * filesystem function. */ - Tcl_FSDupInternalRepProc *dupInternalRepProc; - /* Function to duplicate internal fs rep. May - * be NULL (but then fs is less efficient). */ - Tcl_FSFreeInternalRepProc *freeInternalRepProc; - /* Function to free internal fs rep. Must be - * implemented if internal representations - * need freeing, otherwise it can be NULL. */ - Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; - /* Function to convert internal representation - * to a normalized path. Only required if the - * fs creates pure path objects with no - * string/path representation. */ - Tcl_FSCreateInternalRepProc *createInternalRepProc; - /* Function to create a filesystem-specific - * internal representation. May be NULL if - * paths have no internal representation, or - * if the Tcl_FSPathInFilesystemProc for this - * filesystem always immediately creates an - * internal representation for paths it - * accepts. */ - Tcl_FSNormalizePathProc *normalizePathProc; - /* Function to normalize a path. Should be - * implemented for all filesystems which can - * have multiple string representations for - * the same path object. */ - Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; - /* Function to determine the type of a path in - * this filesystem. May be NULL. */ - Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; - /* Function to return the separator - * character(s) for this filesystem. Must be - * implemented. */ - Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. - * Must be implemented for any reasonable - * filesystem. */ - Tcl_FSAccessProc *accessProc; - /* Function to process a 'Tcl_FSAccess()' - * call. Must be implemented for any - * reasonable filesystem. */ - Tcl_FSOpenFileChannelProc *openFileChannelProc; - /* Function to process a - * 'Tcl_FSOpenFileChannel()' call. Must be - * implemented for any reasonable - * filesystem. */ - Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; - /* Function to process a - * 'Tcl_FSMatchInDirectory()'. If not - * implemented, then glob and recursive copy - * functionality will be lacking in the - * filesystem. */ - Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. - * Required to allow setting (not reading) of - * times with 'file mtime', 'file atime' and - * the open-r/open-w/fcopy implementation of - * 'file copy'. */ - Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. - * Should be implemented only if the - * filesystem supports links (reading or - * creating). */ - Tcl_FSListVolumesProc *listVolumesProc; - /* Function to list any filesystem volumes - * added by this filesystem. Should be - * implemented only if the filesystem adds - * volumes at the head of the filesystem. */ - Tcl_FSFileAttrStringsProc *fileAttrStringsProc; - /* Function to list all attributes strings - * which are valid for this filesystem. If not - * implemented the filesystem will not support - * the 'file attributes' command. This allows - * arbitrary additional information to be - * attached to files in the filesystem. */ - Tcl_FSFileAttrsGetProc *fileAttrsGetProc; - /* Function to process a - * 'Tcl_FSFileAttrsGet()' call, used by 'file - * attributes'. */ - Tcl_FSFileAttrsSetProc *fileAttrsSetProc; - /* Function to process a - * 'Tcl_FSFileAttrsSet()' call, used by 'file - * attributes'. */ - Tcl_FSCreateDirectoryProc *createDirectoryProc; - /* Function to process a - * 'Tcl_FSCreateDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSRemoveDirectoryProc *removeDirectoryProc; - /* Function to process a - * 'Tcl_FSRemoveDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSDeleteFileProc *deleteFileProc; - /* Function to process a 'Tcl_FSDeleteFile()' - * call. Should be implemented unless the FS - * is read-only. */ - Tcl_FSCopyFileProc *copyFileProc; - /* Function to process a 'Tcl_FSCopyFile()' - * call. If not implemented Tcl will fall back - * on open-r, open-w and fcopy as a copying - * mechanism, for copying actions initiated in - * Tcl (not C). */ - Tcl_FSRenameFileProc *renameFileProc; - /* Function to process a 'Tcl_FSRenameFile()' - * call. If not implemented, Tcl will fall - * back on a copy and delete mechanism, for - * rename actions initiated in Tcl (not C). */ - Tcl_FSCopyDirectoryProc *copyDirectoryProc; - /* Function to process a - * 'Tcl_FSCopyDirectory()' call. If not - * implemented, Tcl will fall back on a - * recursive create-dir, file copy mechanism, - * for copying actions initiated in Tcl (not - * C). */ - Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. - * If not implemented, Tcl will attempt to use - * the 'statProc' defined above instead. */ - Tcl_FSLoadFileProc *loadFileProc; - /* Function to process a 'Tcl_FSLoadFile()' - * call. If not implemented, Tcl will fall - * back on a copy to native-temp followed by a - * Tcl_FSLoadFile on that temporary copy. */ - Tcl_FSGetCwdProc *getCwdProc; - /* Function to process a 'Tcl_FSGetCwd()' - * call. Most filesystems need not implement - * this. It will usually only be called once, - * if 'getcwd' is called before 'chdir'. May - * be NULL. */ - Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. - * If filesystems do not implement this, it - * will be emulated by a series of directory - * access checks. Otherwise, virtual - * filesystems which do implement it need only - * respond with a positive return result if - * the dirName is a valid directory in their - * filesystem. They need not remember the - * result, since that will be automatically - * remembered for use by GetCwd. Real - * filesystems should carry out the correct - * action (i.e. call the correct system - * 'chdir' api). If not implemented, then 'cd' - * and 'pwd' will fail inside the - * filesystem. */ -} Tcl_Filesystem; - -/* - * The following definitions are used as values for the 'linkAction' flag to - * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can - * be given. For link creation, the linkProc should create a link which - * matches any of the types given. - * - * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. - * TCL_CREATE_HARD_LINK - Create a hard link. - */ - -#define TCL_CREATE_SYMBOLIC_LINK 0x01 -#define TCL_CREATE_HARD_LINK 0x02 - -/* - * The following structure represents the Notifier functions that you can - * override with the Tcl_SetNotifier call. - */ - -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; - -/* - * The following structure represents a user-defined encoding. It collects - * together all the functions that are used by the specific encoding. - */ - -typedef struct Tcl_EncodingType { - CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". - * This name is the unique key for this - * encoding type. */ - Tcl_EncodingConvertProc *toUtfProc; - /* Function to convert from external encoding - * into UTF-8. */ - Tcl_EncodingConvertProc *fromUtfProc; - /* Function to convert from UTF-8 into - * external encoding. */ - Tcl_EncodingFreeProc *freeProc; - /* If non-NULL, function to call when this - * encoding is deleted. */ - ClientData clientData; /* Arbitrary value associated with encoding - * type. Passed to conversion functions. */ - int nullSize; /* Number of zero bytes that signify - * end-of-string in this encoding. This number - * is used to determine the source string - * length when the srcLen argument is - * negative. Must be 1 or 2. */ -} Tcl_EncodingType; - -/* - * The following definitions are used as values for the conversion control - * flags argument when converting text from one character set to another: - * - * TCL_ENCODING_START - Signifies that the source buffer is the first - * block in a (potentially multi-block) input - * stream. Tells the conversion function to reset - * to an initial state and perform any - * initialization that needs to occur before the - * first byte is converted. If the source buffer - * contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_END - Signifies that the source buffer is the last - * block in a (potentially multi-block) input - * stream. Tells the conversion routine to - * perform any finalization that needs to occur - * after the last byte is converted and then to - * reset to an initial state. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_STOPONERROR - If set, then the converter will return - * immediately upon encountering an invalid byte - * sequence or a source character that has no - * mapping in the target encoding. If clear, then - * the converter will skip the problem, - * substituting one or more "close" characters in - * the destination buffer and then continue to - * convert the source. - */ - -#define TCL_ENCODING_START 0x01 -#define TCL_ENCODING_END 0x02 -#define TCL_ENCODING_STOPONERROR 0x04 - -/* - * The following data structures and declarations are for the new Tcl parser. - */ - -/* - * For each word of a command, and for each piece of a word such as a variable - * reference, one of the following structures is created to describe the - * token. - */ - -typedef struct Tcl_Token { - int type; /* Type of token, such as TCL_TOKEN_WORD; see - * below for valid types. */ - CONST char *start; /* First character in token. */ - int size; /* Number of bytes in token. */ - int numComponents; /* If this token is composed of other tokens, - * this field tells how many of them there are - * (including components of components, etc.). - * The component tokens immediately follow - * this one. */ -} Tcl_Token; - -/* - * Type values defined for Tcl_Token structures. These values are defined as - * mask bits so that it's easy to check for collections of types. - * - * TCL_TOKEN_WORD - The token describes one word of a command, - * from the first non-blank character of the word - * (which may be " or {) up to but not including - * the space, semicolon, or bracket that - * terminates the word. NumComponents counts the - * total number of sub-tokens that make up the - * word. This includes, for example, sub-tokens - * of TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except - * that the word is guaranteed to consist of a - * single TCL_TOKEN_TEXT sub-token. - * TCL_TOKEN_TEXT - The token describes a range of literal text - * that is part of a word. NumComponents is - * always 0. - * TCL_TOKEN_BS - The token describes a backslash sequence that - * must be collapsed. NumComponents is always 0. - * TCL_TOKEN_COMMAND - The token describes a command whose result - * must be substituted into the word. The token - * includes the enclosing brackets. NumComponents - * is always 0. - * TCL_TOKEN_VARIABLE - The token describes a variable substitution, - * including the dollar sign, variable name, and - * array index (if there is one) up through the - * right parentheses. NumComponents tells how - * many additional tokens follow to represent the - * variable name. The first token will be a - * TCL_TOKEN_TEXT token that describes the - * variable name. If the variable is an array - * reference then there will be one or more - * additional tokens, of type TCL_TOKEN_TEXT, - * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and - * TCL_TOKEN_VARIABLE, that describe the array - * index; numComponents counts the total number - * of nested tokens that make up the variable - * reference, including sub-tokens of - * TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an - * expression, from the first non-blank character - * of the subexpression up to but not including - * the space, brace, or bracket that terminates - * the subexpression. NumComponents counts the - * total number of following subtokens that make - * up the subexpression; this includes all - * subtokens for any nested TCL_TOKEN_SUB_EXPR - * tokens. For example, a numeric value used as a - * primitive operand is described by a - * TCL_TOKEN_SUB_EXPR token followed by a - * TCL_TOKEN_TEXT token. A binary subexpression - * is described by a TCL_TOKEN_SUB_EXPR token - * followed by the TCL_TOKEN_OPERATOR token for - * the operator, then TCL_TOKEN_SUB_EXPR tokens - * for the left then the right operands. - * TCL_TOKEN_OPERATOR - The token describes one expression operator. - * An operator might be the name of a math - * function such as "abs". A TCL_TOKEN_OPERATOR - * token is always preceeded by one - * TCL_TOKEN_SUB_EXPR token for the operator's - * subexpression, and is followed by zero or more - * TCL_TOKEN_SUB_EXPR tokens for the operator's - * operands. NumComponents is always 0. - * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except - * that it marks a word that began with the - * literal character prefix "{*}". This word is - * marked to be expanded - that is, broken into - * words after substitution is complete. - */ - -#define TCL_TOKEN_WORD 1 -#define TCL_TOKEN_SIMPLE_WORD 2 -#define TCL_TOKEN_TEXT 4 -#define TCL_TOKEN_BS 8 -#define TCL_TOKEN_COMMAND 16 -#define TCL_TOKEN_VARIABLE 32 -#define TCL_TOKEN_SUB_EXPR 64 -#define TCL_TOKEN_OPERATOR 128 -#define TCL_TOKEN_EXPAND_WORD 256 - -/* - * Parsing error types. On any parsing error, one of these values will be - * stored in the error field of the Tcl_Parse structure defined below. - */ - -#define TCL_PARSE_SUCCESS 0 -#define TCL_PARSE_QUOTE_EXTRA 1 -#define TCL_PARSE_BRACE_EXTRA 2 -#define TCL_PARSE_MISSING_BRACE 3 -#define TCL_PARSE_MISSING_BRACKET 4 -#define TCL_PARSE_MISSING_PAREN 5 -#define TCL_PARSE_MISSING_QUOTE 6 -#define TCL_PARSE_MISSING_VAR_BRACE 7 -#define TCL_PARSE_SYNTAX 8 -#define TCL_PARSE_BAD_NUMBER 9 - -/* - * A structure of the following type is filled in by Tcl_ParseCommand. It - * describes a single command parsed from an input string. - */ - -#define NUM_STATIC_TOKENS 20 - -typedef struct Tcl_Parse { - CONST char *commentStart; /* Pointer to # that begins the first of one - * or more comments preceding the command. */ - int commentSize; /* Number of bytes in comments (up through - * newline character that terminates the last - * comment). If there were no comments, this - * field is 0. */ - CONST char *commandStart; /* First character in first word of - * command. */ - int commandSize; /* Number of bytes in command, including first - * character of first word, up through the - * terminating newline, close bracket, or - * semicolon. */ - int numWords; /* Total number of words in command. May be - * 0. */ - Tcl_Token *tokenPtr; /* Pointer to first token representing the - * words of the command. Initially points to - * staticTokens, but may change to point to - * malloc-ed space if command exceeds space in - * staticTokens. */ - int numTokens; /* Total number of tokens in command. */ - int tokensAvailable; /* Total number of tokens available at - * *tokenPtr. */ - int errorType; /* One of the parsing error types defined - * above. */ - - /* - * The fields below are intended only for the private use of the parser. - * They should not be used by functions that invoke Tcl_ParseCommand. - */ - - CONST char *string; /* The original command string passed to - * Tcl_ParseCommand. */ - CONST char *end; /* Points to the character just after the last - * one in the command string. */ - Tcl_Interp *interp; /* Interpreter to use for error reporting, or - * NULL. */ - CONST char *term; /* Points to character in string that - * terminated most recent token. Filled in by - * ParseTokens. If an error occurs, points to - * beginning of region where the error - * occurred (e.g. the open brace if the close - * brace is missing). */ - int incomplete; /* This field is set to 1 by Tcl_ParseCommand - * if the command appears to be incomplete. - * This information is used by - * Tcl_CommandComplete. */ - Tcl_Token staticTokens[NUM_STATIC_TOKENS]; - /* Initial space for tokens for command. This - * space should be large enough to accommodate - * most commands; dynamic space is allocated - * for very large commands that don't fit - * here. */ -} Tcl_Parse; - -/* - * The following definitions are the error codes returned by the conversion - * routines: - * - * TCL_OK - All characters were converted. - * TCL_CONVERT_NOSPACE - The output buffer would not have been large - * enough for all of the converted data; as many - * characters as could fit were converted though. - * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were - * the beginning of a multibyte sequence, but - * more bytes were needed to complete this - * sequence. A subsequent call to the conversion - * routine should pass the beginning of this - * unconverted sequence plus additional bytes - * from the source stream to properly convert the - * formerly split-up multibyte sequence. - * TCL_CONVERT_SYNTAX - The source stream contained an invalid - * character sequence. This may occur if the - * input stream has been damaged or if the input - * encoding method was misidentified. This error - * is reported only if TCL_ENCODING_STOPONERROR - * was specified. - * TCL_CONVERT_UNKNOWN - The source string contained a character that - * could not be represented in the target - * encoding. This error is reported only if - * TCL_ENCODING_STOPONERROR was specified. - */ - -#define TCL_CONVERT_MULTIBYTE -1 -#define TCL_CONVERT_SYNTAX -2 -#define TCL_CONVERT_UNKNOWN -3 -#define TCL_CONVERT_NOSPACE -4 - -/* - * The maximum number of bytes that are necessary to represent a single - * Unicode character in UTF-8. The valid values should be 3 or 6 (or perhaps 1 - * if we want to support a non-unicode enabled core). If 3, then Tcl_UniChar - * must be 2-bytes in size (UCS-2) (the default). If 6, then Tcl_UniChar must - * be 4-bytes in size (UCS-4). At this time UCS-2 mode is the default and - * recommended mode. UCS-4 is experimental and not recommended. It works for - * the core, but most extensions expect UCS-2. - */ - -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 3 -#endif - -/* - * This represents a Unicode character. Any changes to this should also be - * reflected in regcustom.h. - */ - -#if TCL_UTF_MAX > 4 - /* - * unsigned int isn't 100% accurate as it should be a strict 4-byte value - * (perhaps wchar_t). 64-bit systems may have troubles. The size of this - * value must be reflected correctly in regcustom.h and - * in tclEncoding.c. - * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode - * XXX: string rep that Tcl_UniChar represents. Changing the size - * XXX: of Tcl_UniChar is /not/ supported. - */ -typedef unsigned int Tcl_UniChar; -#else -typedef unsigned short Tcl_UniChar; -#endif - -/* - * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to - * provide the system with the embedded configuration data. - */ - -typedef struct Tcl_Config { - CONST char *key; /* Configuration key to register. ASCII - * encoded, thus UTF-8. */ - CONST char *value; /* The value associated with the key. System - * encoding. */ -} Tcl_Config; - -/* - * Flags for TIP#143 limits, detailing which limits are active in an - * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. - */ - -#define TCL_LIMIT_COMMANDS 0x01 -#define TCL_LIMIT_TIME 0x02 - -/* - * Structure containing information about a limit handler to be called when a - * command- or time-limit is exceeded by an interpreter. - */ - -typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientData)); - -typedef struct mp_int mp_int; -#define MP_INT_DECLARED -typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED - -/* - * The following constant is used to test for older versions of Tcl in the - * stubs tables. - * - * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different - * value since the stubs tables don't match. - */ - -#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) - -/* - * The following function is required to be defined in all stubs aware - * extensions. The function is actually implemented in the stub library, not - * the main Tcl library, although there is a trivial implementation in the - * main library in case an extension is statically linked into an application. - */ - -EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); -EXTERN CONST char * TclTomMathInitializeStubs _ANSI_ARGS_(( - Tcl_Interp *interp, CONST char *version, - int epoch, int revision)); - -#ifndef USE_TCL_STUBS - -/* - * When not using stubs, make it a macro. - */ - -#define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgInitStubsCheck(interp, version, exact) - -#endif - - /* - * TODO - tommath stubs export goes here! - */ - - -/* - * Public functions that are not accessible via the stubs table. - * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] - */ - -EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, - Tcl_AppInitProc *appInitProc)); -EXTERN CONST char * Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); -#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) -EXTERN void Tcl_GetMemoryInfo _ANSI_ARGS_((Tcl_DString *dsPtr)); -#endif - -/* - * Include the public function declarations that are accessible via the stubs - * table. - */ - -#include "tclDecls.h" - -/* - * Include platform specific public function declarations that are accessible - * via the stubs table. - */ - -#include "tclPlatDecls.h" - -/* - * The following declarations either map ckalloc and ckfree to malloc and - * free, or they map them to functions with all sorts of debugging hooks - * defined in tclCkalloc.c. - */ - -#ifdef TCL_MEM_DEBUG - -# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) -# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) -# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) -# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) -# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) - -#else /* !TCL_MEM_DEBUG */ - -/* - * If we are not using the debugging allocator, we should call the Tcl_Alloc, - * et al. routines in order to guarantee that every module is using the same - * memory allocator both inside and outside of the Tcl library. - */ - -# define ckalloc(x) Tcl_Alloc(x) -# define ckfree(x) Tcl_Free(x) -# define ckrealloc(x,y) Tcl_Realloc(x,y) -# define attemptckalloc(x) Tcl_AttemptAlloc(x) -# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) -# undef Tcl_InitMemory -# define Tcl_InitMemory(x) -# undef Tcl_DumpActiveMemory -# define Tcl_DumpActiveMemory(x) -# undef Tcl_ValidateAllMemory -# define Tcl_ValidateAllMemory(x,y) - -#endif /* !TCL_MEM_DEBUG */ - -#ifdef TCL_MEM_DEBUG -# define Tcl_IncrRefCount(objPtr) \ - Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_DecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_IsShared(objPtr) \ - Tcl_DbIsShared(objPtr, __FILE__, __LINE__) -#else -# define Tcl_IncrRefCount(objPtr) \ - ++(objPtr)->refCount - /* - * Use do/while0 idiom for optimum correctness without compiler warnings. - * http://c2.com/cgi/wiki?TrivialDoWhileLoop - */ -# define Tcl_DecrRefCount(objPtr) \ - do { \ - Tcl_Obj *_objPtr = (objPtr); \ - if (--(_objPtr)->refCount <= 0) { \ - TclFreeObj(_objPtr); \ - } \ - } while(0) -# define Tcl_IsShared(objPtr) \ - ((objPtr)->refCount > 1) -#endif - -/* - * Macros and definitions that help to debug the use of Tcl objects. When - * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call - * debugging versions of the object creation functions. - */ - -#ifdef TCL_MEM_DEBUG -# undef Tcl_NewBignumObj -# define Tcl_NewBignumObj(val) \ - Tcl_DbNewBignumObj(val, __FILE__, __LINE__) -# undef Tcl_NewBooleanObj -# define Tcl_NewBooleanObj(val) \ - Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) -# undef Tcl_NewByteArrayObj -# define Tcl_NewByteArrayObj(bytes, len) \ - Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewDoubleObj -# define Tcl_NewDoubleObj(val) \ - Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) -# undef Tcl_NewIntObj -# define Tcl_NewIntObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewListObj -# define Tcl_NewListObj(objc, objv) \ - Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) -# undef Tcl_NewLongObj -# define Tcl_NewLongObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewObj -# define Tcl_NewObj() \ - Tcl_DbNewObj(__FILE__, __LINE__) -# undef Tcl_NewStringObj -# define Tcl_NewStringObj(bytes, len) \ - Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewWideIntObj -# define Tcl_NewWideIntObj(val) \ - Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) -#endif /* TCL_MEM_DEBUG */ - -/* - * Macros for clients to use to access fields of hash entries: - */ - -#define Tcl_GetHashValue(h) ((h)->clientData) -#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) -#define Tcl_GetHashKey(tablePtr, h) \ - ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ - (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) - -/* - * Macros to use for clients to use to invoke find and create functions for - * hash tables: - */ - -#undef Tcl_FindHashEntry -#define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, key) -#undef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, key, newPtr) - -/* - * Macros that eliminate the overhead of the thread synchronization functions - * when compiling without thread support. - */ - -#ifndef TCL_THREADS -#undef Tcl_MutexLock -#define Tcl_MutexLock(mutexPtr) -#undef Tcl_MutexUnlock -#define Tcl_MutexUnlock(mutexPtr) -#undef Tcl_MutexFinalize -#define Tcl_MutexFinalize(mutexPtr) -#undef Tcl_ConditionNotify -#define Tcl_ConditionNotify(condPtr) -#undef Tcl_ConditionWait -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#undef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize(condPtr) -#endif /* TCL_THREADS */ - -#ifndef TCL_NO_DEPRECATED - /* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibilty. - */ - -# define Tcl_Ckalloc Tcl_Alloc -# define Tcl_Ckfree Tcl_Free -# define Tcl_Ckrealloc Tcl_Realloc -# define Tcl_Return Tcl_SetResult -# define Tcl_TildeSubst Tcl_TranslateFileName -#if !defined(__APPLE__) /* On OSX, there is a conflict with "mach/mach.h" */ -# define panic Tcl_Panic -#endif -# define panicVA Tcl_PanicVA -#endif - -/* - * Convenience declaration of Tcl_AppInit for backwards compatibility. This - * function is not *implemented* by the tcl library, so the storage class is - * neither DLLEXPORT nor DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS - -EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TCL */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclDecls.h deleted file mode 100644 index a1dbb260b..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclDecls.h +++ /dev/null @@ -1,6709 +0,0 @@ -/* - * tclDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLDECLS -#define _TCLDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef Tcl_PkgProvideEx_TCL_DECLARED -#define Tcl_PkgProvideEx_TCL_DECLARED -/* 0 */ -EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, - CONST char *name, CONST char *version, - ClientData clientData); -#endif -#ifndef Tcl_PkgRequireEx_TCL_DECLARED -#define Tcl_PkgRequireEx_TCL_DECLARED -/* 1 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact, ClientData *clientDataPtr); -#endif -#ifndef Tcl_Panic_TCL_DECLARED -#define Tcl_Panic_TCL_DECLARED -/* 2 */ -EXTERN void Tcl_Panic(CONST char *format, ...); -#endif -#ifndef Tcl_Alloc_TCL_DECLARED -#define Tcl_Alloc_TCL_DECLARED -/* 3 */ -EXTERN char * Tcl_Alloc(unsigned int size); -#endif -#ifndef Tcl_Free_TCL_DECLARED -#define Tcl_Free_TCL_DECLARED -/* 4 */ -EXTERN void Tcl_Free(char *ptr); -#endif -#ifndef Tcl_Realloc_TCL_DECLARED -#define Tcl_Realloc_TCL_DECLARED -/* 5 */ -EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); -#endif -#ifndef Tcl_DbCkalloc_TCL_DECLARED -#define Tcl_DbCkalloc_TCL_DECLARED -/* 6 */ -EXTERN char * Tcl_DbCkalloc(unsigned int size, CONST char *file, - int line); -#endif -#ifndef Tcl_DbCkfree_TCL_DECLARED -#define Tcl_DbCkfree_TCL_DECLARED -/* 7 */ -EXTERN void Tcl_DbCkfree(char *ptr, CONST char *file, int line); -#endif -#ifndef Tcl_DbCkrealloc_TCL_DECLARED -#define Tcl_DbCkrealloc_TCL_DECLARED -/* 8 */ -EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, - CONST char *file, int line); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler_TCL_DECLARED -#define Tcl_CreateFileHandler_TCL_DECLARED -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_CreateFileHandler_TCL_DECLARED -#define Tcl_CreateFileHandler_TCL_DECLARED -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler_TCL_DECLARED -#define Tcl_DeleteFileHandler_TCL_DECLARED -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DeleteFileHandler_TCL_DECLARED -#define Tcl_DeleteFileHandler_TCL_DECLARED -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif -#endif /* MACOSX */ -#ifndef Tcl_SetTimer_TCL_DECLARED -#define Tcl_SetTimer_TCL_DECLARED -/* 11 */ -EXTERN void Tcl_SetTimer(Tcl_Time *timePtr); -#endif -#ifndef Tcl_Sleep_TCL_DECLARED -#define Tcl_Sleep_TCL_DECLARED -/* 12 */ -EXTERN void Tcl_Sleep(int ms); -#endif -#ifndef Tcl_WaitForEvent_TCL_DECLARED -#define Tcl_WaitForEvent_TCL_DECLARED -/* 13 */ -EXTERN int Tcl_WaitForEvent(Tcl_Time *timePtr); -#endif -#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED -#define Tcl_AppendAllObjTypes_TCL_DECLARED -/* 14 */ -EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_AppendStringsToObj_TCL_DECLARED -#define Tcl_AppendStringsToObj_TCL_DECLARED -/* 15 */ -EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); -#endif -#ifndef Tcl_AppendToObj_TCL_DECLARED -#define Tcl_AppendToObj_TCL_DECLARED -/* 16 */ -EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, CONST char *bytes, - int length); -#endif -#ifndef Tcl_ConcatObj_TCL_DECLARED -#define Tcl_ConcatObj_TCL_DECLARED -/* 17 */ -EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ConvertToType_TCL_DECLARED -#define Tcl_ConvertToType_TCL_DECLARED -/* 18 */ -EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_ObjType *typePtr); -#endif -#ifndef Tcl_DbDecrRefCount_TCL_DECLARED -#define Tcl_DbDecrRefCount_TCL_DECLARED -/* 19 */ -EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file, - int line); -#endif -#ifndef Tcl_DbIncrRefCount_TCL_DECLARED -#define Tcl_DbIncrRefCount_TCL_DECLARED -/* 20 */ -EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file, - int line); -#endif -#ifndef Tcl_DbIsShared_TCL_DECLARED -#define Tcl_DbIsShared_TCL_DECLARED -/* 21 */ -EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, - int line); -#endif -#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED -#define Tcl_DbNewBooleanObj_TCL_DECLARED -/* 22 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, - int line); -#endif -#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED -#define Tcl_DbNewByteArrayObj_TCL_DECLARED -/* 23 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, - int length, CONST char *file, int line); -#endif -#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED -#define Tcl_DbNewDoubleObj_TCL_DECLARED -/* 24 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, - CONST char *file, int line); -#endif -#ifndef Tcl_DbNewListObj_TCL_DECLARED -#define Tcl_DbNewListObj_TCL_DECLARED -/* 25 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, - CONST char *file, int line); -#endif -#ifndef Tcl_DbNewLongObj_TCL_DECLARED -#define Tcl_DbNewLongObj_TCL_DECLARED -/* 26 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, - int line); -#endif -#ifndef Tcl_DbNewObj_TCL_DECLARED -#define Tcl_DbNewObj_TCL_DECLARED -/* 27 */ -EXTERN Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line); -#endif -#ifndef Tcl_DbNewStringObj_TCL_DECLARED -#define Tcl_DbNewStringObj_TCL_DECLARED -/* 28 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, - CONST char *file, int line); -#endif -#ifndef Tcl_DuplicateObj_TCL_DECLARED -#define Tcl_DuplicateObj_TCL_DECLARED -/* 29 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); -#endif -#ifndef TclFreeObj_TCL_DECLARED -#define TclFreeObj_TCL_DECLARED -/* 30 */ -EXTERN void TclFreeObj(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetBoolean_TCL_DECLARED -#define Tcl_GetBoolean_TCL_DECLARED -/* 31 */ -EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *src, - int *boolPtr); -#endif -#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED -#define Tcl_GetBooleanFromObj_TCL_DECLARED -/* 32 */ -EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *boolPtr); -#endif -#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED -#define Tcl_GetByteArrayFromObj_TCL_DECLARED -/* 33 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -#endif -#ifndef Tcl_GetDouble_TCL_DECLARED -#define Tcl_GetDouble_TCL_DECLARED -/* 34 */ -EXTERN int Tcl_GetDouble(Tcl_Interp *interp, CONST char *src, - double *doublePtr); -#endif -#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED -#define Tcl_GetDoubleFromObj_TCL_DECLARED -/* 35 */ -EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *doublePtr); -#endif -#ifndef Tcl_GetIndexFromObj_TCL_DECLARED -#define Tcl_GetIndexFromObj_TCL_DECLARED -/* 36 */ -EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST84 char **tablePtr, - CONST char *msg, int flags, int *indexPtr); -#endif -#ifndef Tcl_GetInt_TCL_DECLARED -#define Tcl_GetInt_TCL_DECLARED -/* 37 */ -EXTERN int Tcl_GetInt(Tcl_Interp *interp, CONST char *src, - int *intPtr); -#endif -#ifndef Tcl_GetIntFromObj_TCL_DECLARED -#define Tcl_GetIntFromObj_TCL_DECLARED -/* 38 */ -EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *intPtr); -#endif -#ifndef Tcl_GetLongFromObj_TCL_DECLARED -#define Tcl_GetLongFromObj_TCL_DECLARED -/* 39 */ -EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, long *longPtr); -#endif -#ifndef Tcl_GetObjType_TCL_DECLARED -#define Tcl_GetObjType_TCL_DECLARED -/* 40 */ -EXTERN Tcl_ObjType * Tcl_GetObjType(CONST char *typeName); -#endif -#ifndef Tcl_GetStringFromObj_TCL_DECLARED -#define Tcl_GetStringFromObj_TCL_DECLARED -/* 41 */ -EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); -#endif -#ifndef Tcl_InvalidateStringRep_TCL_DECLARED -#define Tcl_InvalidateStringRep_TCL_DECLARED -/* 42 */ -EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_ListObjAppendList_TCL_DECLARED -#define Tcl_ListObjAppendList_TCL_DECLARED -/* 43 */ -EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); -#endif -#ifndef Tcl_ListObjAppendElement_TCL_DECLARED -#define Tcl_ListObjAppendElement_TCL_DECLARED -/* 44 */ -EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_ListObjGetElements_TCL_DECLARED -#define Tcl_ListObjGetElements_TCL_DECLARED -/* 45 */ -EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *objcPtr, - Tcl_Obj ***objvPtr); -#endif -#ifndef Tcl_ListObjIndex_TCL_DECLARED -#define Tcl_ListObjIndex_TCL_DECLARED -/* 46 */ -EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj **objPtrPtr); -#endif -#ifndef Tcl_ListObjLength_TCL_DECLARED -#define Tcl_ListObjLength_TCL_DECLARED -/* 47 */ -EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *lengthPtr); -#endif -#ifndef Tcl_ListObjReplace_TCL_DECLARED -#define Tcl_ListObjReplace_TCL_DECLARED -/* 48 */ -EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, - Tcl_Obj *listPtr, int first, int count, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_NewBooleanObj_TCL_DECLARED -#define Tcl_NewBooleanObj_TCL_DECLARED -/* 49 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); -#endif -#ifndef Tcl_NewByteArrayObj_TCL_DECLARED -#define Tcl_NewByteArrayObj_TCL_DECLARED -/* 50 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj(CONST unsigned char *bytes, - int length); -#endif -#ifndef Tcl_NewDoubleObj_TCL_DECLARED -#define Tcl_NewDoubleObj_TCL_DECLARED -/* 51 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); -#endif -#ifndef Tcl_NewIntObj_TCL_DECLARED -#define Tcl_NewIntObj_TCL_DECLARED -/* 52 */ -EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); -#endif -#ifndef Tcl_NewListObj_TCL_DECLARED -#define Tcl_NewListObj_TCL_DECLARED -/* 53 */ -EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_NewLongObj_TCL_DECLARED -#define Tcl_NewLongObj_TCL_DECLARED -/* 54 */ -EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); -#endif -#ifndef Tcl_NewObj_TCL_DECLARED -#define Tcl_NewObj_TCL_DECLARED -/* 55 */ -EXTERN Tcl_Obj * Tcl_NewObj(void); -#endif -#ifndef Tcl_NewStringObj_TCL_DECLARED -#define Tcl_NewStringObj_TCL_DECLARED -/* 56 */ -EXTERN Tcl_Obj * Tcl_NewStringObj(CONST char *bytes, int length); -#endif -#ifndef Tcl_SetBooleanObj_TCL_DECLARED -#define Tcl_SetBooleanObj_TCL_DECLARED -/* 57 */ -EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); -#endif -#ifndef Tcl_SetByteArrayLength_TCL_DECLARED -#define Tcl_SetByteArrayLength_TCL_DECLARED -/* 58 */ -EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); -#endif -#ifndef Tcl_SetByteArrayObj_TCL_DECLARED -#define Tcl_SetByteArrayObj_TCL_DECLARED -/* 59 */ -EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, - CONST unsigned char *bytes, int length); -#endif -#ifndef Tcl_SetDoubleObj_TCL_DECLARED -#define Tcl_SetDoubleObj_TCL_DECLARED -/* 60 */ -EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); -#endif -#ifndef Tcl_SetIntObj_TCL_DECLARED -#define Tcl_SetIntObj_TCL_DECLARED -/* 61 */ -EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); -#endif -#ifndef Tcl_SetListObj_TCL_DECLARED -#define Tcl_SetListObj_TCL_DECLARED -/* 62 */ -EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_SetLongObj_TCL_DECLARED -#define Tcl_SetLongObj_TCL_DECLARED -/* 63 */ -EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); -#endif -#ifndef Tcl_SetObjLength_TCL_DECLARED -#define Tcl_SetObjLength_TCL_DECLARED -/* 64 */ -EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); -#endif -#ifndef Tcl_SetStringObj_TCL_DECLARED -#define Tcl_SetStringObj_TCL_DECLARED -/* 65 */ -EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, CONST char *bytes, - int length); -#endif -#ifndef Tcl_AddErrorInfo_TCL_DECLARED -#define Tcl_AddErrorInfo_TCL_DECLARED -/* 66 */ -EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, - CONST char *message); -#endif -#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED -#define Tcl_AddObjErrorInfo_TCL_DECLARED -/* 67 */ -EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, - CONST char *message, int length); -#endif -#ifndef Tcl_AllowExceptions_TCL_DECLARED -#define Tcl_AllowExceptions_TCL_DECLARED -/* 68 */ -EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); -#endif -#ifndef Tcl_AppendElement_TCL_DECLARED -#define Tcl_AppendElement_TCL_DECLARED -/* 69 */ -EXTERN void Tcl_AppendElement(Tcl_Interp *interp, - CONST char *element); -#endif -#ifndef Tcl_AppendResult_TCL_DECLARED -#define Tcl_AppendResult_TCL_DECLARED -/* 70 */ -EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); -#endif -#ifndef Tcl_AsyncCreate_TCL_DECLARED -#define Tcl_AsyncCreate_TCL_DECLARED -/* 71 */ -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_AsyncDelete_TCL_DECLARED -#define Tcl_AsyncDelete_TCL_DECLARED -/* 72 */ -EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); -#endif -#ifndef Tcl_AsyncInvoke_TCL_DECLARED -#define Tcl_AsyncInvoke_TCL_DECLARED -/* 73 */ -EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); -#endif -#ifndef Tcl_AsyncMark_TCL_DECLARED -#define Tcl_AsyncMark_TCL_DECLARED -/* 74 */ -EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); -#endif -#ifndef Tcl_AsyncReady_TCL_DECLARED -#define Tcl_AsyncReady_TCL_DECLARED -/* 75 */ -EXTERN int Tcl_AsyncReady(void); -#endif -#ifndef Tcl_BackgroundError_TCL_DECLARED -#define Tcl_BackgroundError_TCL_DECLARED -/* 76 */ -EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); -#endif -#ifndef Tcl_Backslash_TCL_DECLARED -#define Tcl_Backslash_TCL_DECLARED -/* 77 */ -EXTERN char Tcl_Backslash(CONST char *src, int *readPtr); -#endif -#ifndef Tcl_BadChannelOption_TCL_DECLARED -#define Tcl_BadChannelOption_TCL_DECLARED -/* 78 */ -EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, - CONST char *optionName, - CONST char *optionList); -#endif -#ifndef Tcl_CallWhenDeleted_TCL_DECLARED -#define Tcl_CallWhenDeleted_TCL_DECLARED -/* 79 */ -EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_CancelIdleCall_TCL_DECLARED -#define Tcl_CancelIdleCall_TCL_DECLARED -/* 80 */ -EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, - ClientData clientData); -#endif -#ifndef Tcl_Close_TCL_DECLARED -#define Tcl_Close_TCL_DECLARED -/* 81 */ -EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); -#endif -#ifndef Tcl_CommandComplete_TCL_DECLARED -#define Tcl_CommandComplete_TCL_DECLARED -/* 82 */ -EXTERN int Tcl_CommandComplete(CONST char *cmd); -#endif -#ifndef Tcl_Concat_TCL_DECLARED -#define Tcl_Concat_TCL_DECLARED -/* 83 */ -EXTERN char * Tcl_Concat(int argc, CONST84 char *CONST *argv); -#endif -#ifndef Tcl_ConvertElement_TCL_DECLARED -#define Tcl_ConvertElement_TCL_DECLARED -/* 84 */ -EXTERN int Tcl_ConvertElement(CONST char *src, char *dst, - int flags); -#endif -#ifndef Tcl_ConvertCountedElement_TCL_DECLARED -#define Tcl_ConvertCountedElement_TCL_DECLARED -/* 85 */ -EXTERN int Tcl_ConvertCountedElement(CONST char *src, - int length, char *dst, int flags); -#endif -#ifndef Tcl_CreateAlias_TCL_DECLARED -#define Tcl_CreateAlias_TCL_DECLARED -/* 86 */ -EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, - CONST char *slaveCmd, Tcl_Interp *target, - CONST char *targetCmd, int argc, - CONST84 char *CONST *argv); -#endif -#ifndef Tcl_CreateAliasObj_TCL_DECLARED -#define Tcl_CreateAliasObj_TCL_DECLARED -/* 87 */ -EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, - CONST char *slaveCmd, Tcl_Interp *target, - CONST char *targetCmd, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_CreateChannel_TCL_DECLARED -#define Tcl_CreateChannel_TCL_DECLARED -/* 88 */ -EXTERN Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, - CONST char *chanName, - ClientData instanceData, int mask); -#endif -#ifndef Tcl_CreateChannelHandler_TCL_DECLARED -#define Tcl_CreateChannelHandler_TCL_DECLARED -/* 89 */ -EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, - Tcl_ChannelProc *proc, ClientData clientData); -#endif -#ifndef Tcl_CreateCloseHandler_TCL_DECLARED -#define Tcl_CreateCloseHandler_TCL_DECLARED -/* 90 */ -EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -#endif -#ifndef Tcl_CreateCommand_TCL_DECLARED -#define Tcl_CreateCommand_TCL_DECLARED -/* 91 */ -EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, - CONST char *cmdName, Tcl_CmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -#endif -#ifndef Tcl_CreateEventSource_TCL_DECLARED -#define Tcl_CreateEventSource_TCL_DECLARED -/* 92 */ -EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -#endif -#ifndef Tcl_CreateExitHandler_TCL_DECLARED -#define Tcl_CreateExitHandler_TCL_DECLARED -/* 93 */ -EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_CreateInterp_TCL_DECLARED -#define Tcl_CreateInterp_TCL_DECLARED -/* 94 */ -EXTERN Tcl_Interp * Tcl_CreateInterp(void); -#endif -#ifndef Tcl_CreateMathFunc_TCL_DECLARED -#define Tcl_CreateMathFunc_TCL_DECLARED -/* 95 */ -EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, - CONST char *name, int numArgs, - Tcl_ValueType *argTypes, Tcl_MathProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_CreateObjCommand_TCL_DECLARED -#define Tcl_CreateObjCommand_TCL_DECLARED -/* 96 */ -EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, - CONST char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -#endif -#ifndef Tcl_CreateSlave_TCL_DECLARED -#define Tcl_CreateSlave_TCL_DECLARED -/* 97 */ -EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, - CONST char *slaveName, int isSafe); -#endif -#ifndef Tcl_CreateTimerHandler_TCL_DECLARED -#define Tcl_CreateTimerHandler_TCL_DECLARED -/* 98 */ -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, - Tcl_TimerProc *proc, ClientData clientData); -#endif -#ifndef Tcl_CreateTrace_TCL_DECLARED -#define Tcl_CreateTrace_TCL_DECLARED -/* 99 */ -EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, - Tcl_CmdTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteAssocData_TCL_DECLARED -#define Tcl_DeleteAssocData_TCL_DECLARED -/* 100 */ -EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, - CONST char *name); -#endif -#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED -#define Tcl_DeleteChannelHandler_TCL_DECLARED -/* 101 */ -EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, - Tcl_ChannelProc *proc, ClientData clientData); -#endif -#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED -#define Tcl_DeleteCloseHandler_TCL_DECLARED -/* 102 */ -EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -#endif -#ifndef Tcl_DeleteCommand_TCL_DECLARED -#define Tcl_DeleteCommand_TCL_DECLARED -/* 103 */ -EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, - CONST char *cmdName); -#endif -#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED -#define Tcl_DeleteCommandFromToken_TCL_DECLARED -/* 104 */ -EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, - Tcl_Command command); -#endif -#ifndef Tcl_DeleteEvents_TCL_DECLARED -#define Tcl_DeleteEvents_TCL_DECLARED -/* 105 */ -EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteEventSource_TCL_DECLARED -#define Tcl_DeleteEventSource_TCL_DECLARED -/* 106 */ -EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteExitHandler_TCL_DECLARED -#define Tcl_DeleteExitHandler_TCL_DECLARED -/* 107 */ -EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteHashEntry_TCL_DECLARED -#define Tcl_DeleteHashEntry_TCL_DECLARED -/* 108 */ -EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); -#endif -#ifndef Tcl_DeleteHashTable_TCL_DECLARED -#define Tcl_DeleteHashTable_TCL_DECLARED -/* 109 */ -EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); -#endif -#ifndef Tcl_DeleteInterp_TCL_DECLARED -#define Tcl_DeleteInterp_TCL_DECLARED -/* 110 */ -EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); -#endif -#ifndef Tcl_DetachPids_TCL_DECLARED -#define Tcl_DetachPids_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef Tcl_DeleteTimerHandler_TCL_DECLARED -#define Tcl_DeleteTimerHandler_TCL_DECLARED -/* 112 */ -EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); -#endif -#ifndef Tcl_DeleteTrace_TCL_DECLARED -#define Tcl_DeleteTrace_TCL_DECLARED -/* 113 */ -EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); -#endif -#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED -#define Tcl_DontCallWhenDeleted_TCL_DECLARED -/* 114 */ -EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DoOneEvent_TCL_DECLARED -#define Tcl_DoOneEvent_TCL_DECLARED -/* 115 */ -EXTERN int Tcl_DoOneEvent(int flags); -#endif -#ifndef Tcl_DoWhenIdle_TCL_DECLARED -#define Tcl_DoWhenIdle_TCL_DECLARED -/* 116 */ -EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DStringAppend_TCL_DECLARED -#define Tcl_DStringAppend_TCL_DECLARED -/* 117 */ -EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, - CONST char *bytes, int length); -#endif -#ifndef Tcl_DStringAppendElement_TCL_DECLARED -#define Tcl_DStringAppendElement_TCL_DECLARED -/* 118 */ -EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, - CONST char *element); -#endif -#ifndef Tcl_DStringEndSublist_TCL_DECLARED -#define Tcl_DStringEndSublist_TCL_DECLARED -/* 119 */ -EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringFree_TCL_DECLARED -#define Tcl_DStringFree_TCL_DECLARED -/* 120 */ -EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringGetResult_TCL_DECLARED -#define Tcl_DStringGetResult_TCL_DECLARED -/* 121 */ -EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringInit_TCL_DECLARED -#define Tcl_DStringInit_TCL_DECLARED -/* 122 */ -EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringResult_TCL_DECLARED -#define Tcl_DStringResult_TCL_DECLARED -/* 123 */ -EXTERN void Tcl_DStringResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_DStringSetLength_TCL_DECLARED -#define Tcl_DStringSetLength_TCL_DECLARED -/* 124 */ -EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); -#endif -#ifndef Tcl_DStringStartSublist_TCL_DECLARED -#define Tcl_DStringStartSublist_TCL_DECLARED -/* 125 */ -EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); -#endif -#ifndef Tcl_Eof_TCL_DECLARED -#define Tcl_Eof_TCL_DECLARED -/* 126 */ -EXTERN int Tcl_Eof(Tcl_Channel chan); -#endif -#ifndef Tcl_ErrnoId_TCL_DECLARED -#define Tcl_ErrnoId_TCL_DECLARED -/* 127 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); -#endif -#ifndef Tcl_ErrnoMsg_TCL_DECLARED -#define Tcl_ErrnoMsg_TCL_DECLARED -/* 128 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); -#endif -#ifndef Tcl_Eval_TCL_DECLARED -#define Tcl_Eval_TCL_DECLARED -/* 129 */ -EXTERN int Tcl_Eval(Tcl_Interp *interp, CONST char *script); -#endif -#ifndef Tcl_EvalFile_TCL_DECLARED -#define Tcl_EvalFile_TCL_DECLARED -/* 130 */ -EXTERN int Tcl_EvalFile(Tcl_Interp *interp, - CONST char *fileName); -#endif -#ifndef Tcl_EvalObj_TCL_DECLARED -#define Tcl_EvalObj_TCL_DECLARED -/* 131 */ -EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_EventuallyFree_TCL_DECLARED -#define Tcl_EventuallyFree_TCL_DECLARED -/* 132 */ -EXTERN void Tcl_EventuallyFree(ClientData clientData, - Tcl_FreeProc *freeProc); -#endif -#ifndef Tcl_Exit_TCL_DECLARED -#define Tcl_Exit_TCL_DECLARED -/* 133 */ -EXTERN void Tcl_Exit(int status); -#endif -#ifndef Tcl_ExposeCommand_TCL_DECLARED -#define Tcl_ExposeCommand_TCL_DECLARED -/* 134 */ -EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, - CONST char *hiddenCmdToken, - CONST char *cmdName); -#endif -#ifndef Tcl_ExprBoolean_TCL_DECLARED -#define Tcl_ExprBoolean_TCL_DECLARED -/* 135 */ -EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *expr, - int *ptr); -#endif -#ifndef Tcl_ExprBooleanObj_TCL_DECLARED -#define Tcl_ExprBooleanObj_TCL_DECLARED -/* 136 */ -EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *ptr); -#endif -#ifndef Tcl_ExprDouble_TCL_DECLARED -#define Tcl_ExprDouble_TCL_DECLARED -/* 137 */ -EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *expr, - double *ptr); -#endif -#ifndef Tcl_ExprDoubleObj_TCL_DECLARED -#define Tcl_ExprDoubleObj_TCL_DECLARED -/* 138 */ -EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *ptr); -#endif -#ifndef Tcl_ExprLong_TCL_DECLARED -#define Tcl_ExprLong_TCL_DECLARED -/* 139 */ -EXTERN int Tcl_ExprLong(Tcl_Interp *interp, CONST char *expr, - long *ptr); -#endif -#ifndef Tcl_ExprLongObj_TCL_DECLARED -#define Tcl_ExprLongObj_TCL_DECLARED -/* 140 */ -EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - long *ptr); -#endif -#ifndef Tcl_ExprObj_TCL_DECLARED -#define Tcl_ExprObj_TCL_DECLARED -/* 141 */ -EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Obj **resultPtrPtr); -#endif -#ifndef Tcl_ExprString_TCL_DECLARED -#define Tcl_ExprString_TCL_DECLARED -/* 142 */ -EXTERN int Tcl_ExprString(Tcl_Interp *interp, CONST char *expr); -#endif -#ifndef Tcl_Finalize_TCL_DECLARED -#define Tcl_Finalize_TCL_DECLARED -/* 143 */ -EXTERN void Tcl_Finalize(void); -#endif -#ifndef Tcl_FindExecutable_TCL_DECLARED -#define Tcl_FindExecutable_TCL_DECLARED -/* 144 */ -EXTERN void Tcl_FindExecutable(CONST char *argv0); -#endif -#ifndef Tcl_FirstHashEntry_TCL_DECLARED -#define Tcl_FirstHashEntry_TCL_DECLARED -/* 145 */ -EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, - Tcl_HashSearch *searchPtr); -#endif -#ifndef Tcl_Flush_TCL_DECLARED -#define Tcl_Flush_TCL_DECLARED -/* 146 */ -EXTERN int Tcl_Flush(Tcl_Channel chan); -#endif -#ifndef Tcl_FreeResult_TCL_DECLARED -#define Tcl_FreeResult_TCL_DECLARED -/* 147 */ -EXTERN void Tcl_FreeResult(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetAlias_TCL_DECLARED -#define Tcl_GetAlias_TCL_DECLARED -/* 148 */ -EXTERN int Tcl_GetAlias(Tcl_Interp *interp, - CONST char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *argcPtr, - CONST84 char ***argvPtr); -#endif -#ifndef Tcl_GetAliasObj_TCL_DECLARED -#define Tcl_GetAliasObj_TCL_DECLARED -/* 149 */ -EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, - CONST char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *objcPtr, - Tcl_Obj ***objv); -#endif -#ifndef Tcl_GetAssocData_TCL_DECLARED -#define Tcl_GetAssocData_TCL_DECLARED -/* 150 */ -EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, - CONST char *name, - Tcl_InterpDeleteProc **procPtr); -#endif -#ifndef Tcl_GetChannel_TCL_DECLARED -#define Tcl_GetChannel_TCL_DECLARED -/* 151 */ -EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, - CONST char *chanName, int *modePtr); -#endif -#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED -#define Tcl_GetChannelBufferSize_TCL_DECLARED -/* 152 */ -EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelHandle_TCL_DECLARED -#define Tcl_GetChannelHandle_TCL_DECLARED -/* 153 */ -EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, - ClientData *handlePtr); -#endif -#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED -#define Tcl_GetChannelInstanceData_TCL_DECLARED -/* 154 */ -EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelMode_TCL_DECLARED -#define Tcl_GetChannelMode_TCL_DECLARED -/* 155 */ -EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelName_TCL_DECLARED -#define Tcl_GetChannelName_TCL_DECLARED -/* 156 */ -EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelOption_TCL_DECLARED -#define Tcl_GetChannelOption_TCL_DECLARED -/* 157 */ -EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, CONST char *optionName, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_GetChannelType_TCL_DECLARED -#define Tcl_GetChannelType_TCL_DECLARED -/* 158 */ -EXTERN Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); -#endif -#ifndef Tcl_GetCommandInfo_TCL_DECLARED -#define Tcl_GetCommandInfo_TCL_DECLARED -/* 159 */ -EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, - CONST char *cmdName, Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_GetCommandName_TCL_DECLARED -#define Tcl_GetCommandName_TCL_DECLARED -/* 160 */ -EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, - Tcl_Command command); -#endif -#ifndef Tcl_GetErrno_TCL_DECLARED -#define Tcl_GetErrno_TCL_DECLARED -/* 161 */ -EXTERN int Tcl_GetErrno(void); -#endif -#ifndef Tcl_GetHostName_TCL_DECLARED -#define Tcl_GetHostName_TCL_DECLARED -/* 162 */ -EXTERN CONST84_RETURN char * Tcl_GetHostName(void); -#endif -#ifndef Tcl_GetInterpPath_TCL_DECLARED -#define Tcl_GetInterpPath_TCL_DECLARED -/* 163 */ -EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, - Tcl_Interp *slaveInterp); -#endif -#ifndef Tcl_GetMaster_TCL_DECLARED -#define Tcl_GetMaster_TCL_DECLARED -/* 164 */ -EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED -#define Tcl_GetNameOfExecutable_TCL_DECLARED -/* 165 */ -EXTERN CONST char * Tcl_GetNameOfExecutable(void); -#endif -#ifndef Tcl_GetObjResult_TCL_DECLARED -#define Tcl_GetObjResult_TCL_DECLARED -/* 166 */ -EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile_TCL_DECLARED -#define Tcl_GetOpenFile_TCL_DECLARED -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - CONST char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_GetOpenFile_TCL_DECLARED -#define Tcl_GetOpenFile_TCL_DECLARED -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - CONST char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif -#endif /* MACOSX */ -#ifndef Tcl_GetPathType_TCL_DECLARED -#define Tcl_GetPathType_TCL_DECLARED -/* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType(CONST char *path); -#endif -#ifndef Tcl_Gets_TCL_DECLARED -#define Tcl_Gets_TCL_DECLARED -/* 169 */ -EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); -#endif -#ifndef Tcl_GetsObj_TCL_DECLARED -#define Tcl_GetsObj_TCL_DECLARED -/* 170 */ -EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetServiceMode_TCL_DECLARED -#define Tcl_GetServiceMode_TCL_DECLARED -/* 171 */ -EXTERN int Tcl_GetServiceMode(void); -#endif -#ifndef Tcl_GetSlave_TCL_DECLARED -#define Tcl_GetSlave_TCL_DECLARED -/* 172 */ -EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, - CONST char *slaveName); -#endif -#ifndef Tcl_GetStdChannel_TCL_DECLARED -#define Tcl_GetStdChannel_TCL_DECLARED -/* 173 */ -EXTERN Tcl_Channel Tcl_GetStdChannel(int type); -#endif -#ifndef Tcl_GetStringResult_TCL_DECLARED -#define Tcl_GetStringResult_TCL_DECLARED -/* 174 */ -EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetVar_TCL_DECLARED -#define Tcl_GetVar_TCL_DECLARED -/* 175 */ -EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, - CONST char *varName, int flags); -#endif -#ifndef Tcl_GetVar2_TCL_DECLARED -#define Tcl_GetVar2_TCL_DECLARED -/* 176 */ -EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - int flags); -#endif -#ifndef Tcl_GlobalEval_TCL_DECLARED -#define Tcl_GlobalEval_TCL_DECLARED -/* 177 */ -EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, - CONST char *command); -#endif -#ifndef Tcl_GlobalEvalObj_TCL_DECLARED -#define Tcl_GlobalEvalObj_TCL_DECLARED -/* 178 */ -EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_HideCommand_TCL_DECLARED -#define Tcl_HideCommand_TCL_DECLARED -/* 179 */ -EXTERN int Tcl_HideCommand(Tcl_Interp *interp, - CONST char *cmdName, - CONST char *hiddenCmdToken); -#endif -#ifndef Tcl_Init_TCL_DECLARED -#define Tcl_Init_TCL_DECLARED -/* 180 */ -EXTERN int Tcl_Init(Tcl_Interp *interp); -#endif -#ifndef Tcl_InitHashTable_TCL_DECLARED -#define Tcl_InitHashTable_TCL_DECLARED -/* 181 */ -EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, - int keyType); -#endif -#ifndef Tcl_InputBlocked_TCL_DECLARED -#define Tcl_InputBlocked_TCL_DECLARED -/* 182 */ -EXTERN int Tcl_InputBlocked(Tcl_Channel chan); -#endif -#ifndef Tcl_InputBuffered_TCL_DECLARED -#define Tcl_InputBuffered_TCL_DECLARED -/* 183 */ -EXTERN int Tcl_InputBuffered(Tcl_Channel chan); -#endif -#ifndef Tcl_InterpDeleted_TCL_DECLARED -#define Tcl_InterpDeleted_TCL_DECLARED -/* 184 */ -EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); -#endif -#ifndef Tcl_IsSafe_TCL_DECLARED -#define Tcl_IsSafe_TCL_DECLARED -/* 185 */ -EXTERN int Tcl_IsSafe(Tcl_Interp *interp); -#endif -#ifndef Tcl_JoinPath_TCL_DECLARED -#define Tcl_JoinPath_TCL_DECLARED -/* 186 */ -EXTERN char * Tcl_JoinPath(int argc, CONST84 char *CONST *argv, - Tcl_DString *resultPtr); -#endif -#ifndef Tcl_LinkVar_TCL_DECLARED -#define Tcl_LinkVar_TCL_DECLARED -/* 187 */ -EXTERN int Tcl_LinkVar(Tcl_Interp *interp, CONST char *varName, - char *addr, int type); -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel_TCL_DECLARED -#define Tcl_MakeFileChannel_TCL_DECLARED -/* 189 */ -EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); -#endif -#ifndef Tcl_MakeSafe_TCL_DECLARED -#define Tcl_MakeSafe_TCL_DECLARED -/* 190 */ -EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); -#endif -#ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED -#define Tcl_MakeTcpClientChannel_TCL_DECLARED -/* 191 */ -EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); -#endif -#ifndef Tcl_Merge_TCL_DECLARED -#define Tcl_Merge_TCL_DECLARED -/* 192 */ -EXTERN char * Tcl_Merge(int argc, CONST84 char *CONST *argv); -#endif -#ifndef Tcl_NextHashEntry_TCL_DECLARED -#define Tcl_NextHashEntry_TCL_DECLARED -/* 193 */ -EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); -#endif -#ifndef Tcl_NotifyChannel_TCL_DECLARED -#define Tcl_NotifyChannel_TCL_DECLARED -/* 194 */ -EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); -#endif -#ifndef Tcl_ObjGetVar2_TCL_DECLARED -#define Tcl_ObjGetVar2_TCL_DECLARED -/* 195 */ -EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, int flags); -#endif -#ifndef Tcl_ObjSetVar2_TCL_DECLARED -#define Tcl_ObjSetVar2_TCL_DECLARED -/* 196 */ -EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - int flags); -#endif -#ifndef Tcl_OpenCommandChannel_TCL_DECLARED -#define Tcl_OpenCommandChannel_TCL_DECLARED -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, - CONST84 char **argv, int flags); -#endif -#ifndef Tcl_OpenFileChannel_TCL_DECLARED -#define Tcl_OpenFileChannel_TCL_DECLARED -/* 198 */ -EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, - CONST char *fileName, CONST char *modeString, - int permissions); -#endif -#ifndef Tcl_OpenTcpClient_TCL_DECLARED -#define Tcl_OpenTcpClient_TCL_DECLARED -/* 199 */ -EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, - CONST char *address, CONST char *myaddr, - int myport, int async); -#endif -#ifndef Tcl_OpenTcpServer_TCL_DECLARED -#define Tcl_OpenTcpServer_TCL_DECLARED -/* 200 */ -EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, - CONST char *host, - Tcl_TcpAcceptProc *acceptProc, - ClientData callbackData); -#endif -#ifndef Tcl_Preserve_TCL_DECLARED -#define Tcl_Preserve_TCL_DECLARED -/* 201 */ -EXTERN void Tcl_Preserve(ClientData data); -#endif -#ifndef Tcl_PrintDouble_TCL_DECLARED -#define Tcl_PrintDouble_TCL_DECLARED -/* 202 */ -EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, - char *dst); -#endif -#ifndef Tcl_PutEnv_TCL_DECLARED -#define Tcl_PutEnv_TCL_DECLARED -/* 203 */ -EXTERN int Tcl_PutEnv(CONST char *assignment); -#endif -#ifndef Tcl_PosixError_TCL_DECLARED -#define Tcl_PosixError_TCL_DECLARED -/* 204 */ -EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); -#endif -#ifndef Tcl_QueueEvent_TCL_DECLARED -#define Tcl_QueueEvent_TCL_DECLARED -/* 205 */ -EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, - Tcl_QueuePosition position); -#endif -#ifndef Tcl_Read_TCL_DECLARED -#define Tcl_Read_TCL_DECLARED -/* 206 */ -EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); -#endif -#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED -#define Tcl_ReapDetachedProcs_TCL_DECLARED -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs(void); -#endif -#ifndef Tcl_RecordAndEval_TCL_DECLARED -#define Tcl_RecordAndEval_TCL_DECLARED -/* 208 */ -EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, - CONST char *cmd, int flags); -#endif -#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED -#define Tcl_RecordAndEvalObj_TCL_DECLARED -/* 209 */ -EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, - Tcl_Obj *cmdPtr, int flags); -#endif -#ifndef Tcl_RegisterChannel_TCL_DECLARED -#define Tcl_RegisterChannel_TCL_DECLARED -/* 210 */ -EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_RegisterObjType_TCL_DECLARED -#define Tcl_RegisterObjType_TCL_DECLARED -/* 211 */ -EXTERN void Tcl_RegisterObjType(Tcl_ObjType *typePtr); -#endif -#ifndef Tcl_RegExpCompile_TCL_DECLARED -#define Tcl_RegExpCompile_TCL_DECLARED -/* 212 */ -EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, - CONST char *pattern); -#endif -#ifndef Tcl_RegExpExec_TCL_DECLARED -#define Tcl_RegExpExec_TCL_DECLARED -/* 213 */ -EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, - CONST char *text, CONST char *start); -#endif -#ifndef Tcl_RegExpMatch_TCL_DECLARED -#define Tcl_RegExpMatch_TCL_DECLARED -/* 214 */ -EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, CONST char *text, - CONST char *pattern); -#endif -#ifndef Tcl_RegExpRange_TCL_DECLARED -#define Tcl_RegExpRange_TCL_DECLARED -/* 215 */ -EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, - CONST84 char **startPtr, - CONST84 char **endPtr); -#endif -#ifndef Tcl_Release_TCL_DECLARED -#define Tcl_Release_TCL_DECLARED -/* 216 */ -EXTERN void Tcl_Release(ClientData clientData); -#endif -#ifndef Tcl_ResetResult_TCL_DECLARED -#define Tcl_ResetResult_TCL_DECLARED -/* 217 */ -EXTERN void Tcl_ResetResult(Tcl_Interp *interp); -#endif -#ifndef Tcl_ScanElement_TCL_DECLARED -#define Tcl_ScanElement_TCL_DECLARED -/* 218 */ -EXTERN int Tcl_ScanElement(CONST char *src, int *flagPtr); -#endif -#ifndef Tcl_ScanCountedElement_TCL_DECLARED -#define Tcl_ScanCountedElement_TCL_DECLARED -/* 219 */ -EXTERN int Tcl_ScanCountedElement(CONST char *src, int length, - int *flagPtr); -#endif -#ifndef Tcl_SeekOld_TCL_DECLARED -#define Tcl_SeekOld_TCL_DECLARED -/* 220 */ -EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); -#endif -#ifndef Tcl_ServiceAll_TCL_DECLARED -#define Tcl_ServiceAll_TCL_DECLARED -/* 221 */ -EXTERN int Tcl_ServiceAll(void); -#endif -#ifndef Tcl_ServiceEvent_TCL_DECLARED -#define Tcl_ServiceEvent_TCL_DECLARED -/* 222 */ -EXTERN int Tcl_ServiceEvent(int flags); -#endif -#ifndef Tcl_SetAssocData_TCL_DECLARED -#define Tcl_SetAssocData_TCL_DECLARED -/* 223 */ -EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, - CONST char *name, Tcl_InterpDeleteProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED -#define Tcl_SetChannelBufferSize_TCL_DECLARED -/* 224 */ -EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); -#endif -#ifndef Tcl_SetChannelOption_TCL_DECLARED -#define Tcl_SetChannelOption_TCL_DECLARED -/* 225 */ -EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, CONST char *optionName, - CONST char *newValue); -#endif -#ifndef Tcl_SetCommandInfo_TCL_DECLARED -#define Tcl_SetCommandInfo_TCL_DECLARED -/* 226 */ -EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, - CONST char *cmdName, - CONST Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_SetErrno_TCL_DECLARED -#define Tcl_SetErrno_TCL_DECLARED -/* 227 */ -EXTERN void Tcl_SetErrno(int err); -#endif -#ifndef Tcl_SetErrorCode_TCL_DECLARED -#define Tcl_SetErrorCode_TCL_DECLARED -/* 228 */ -EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); -#endif -#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED -#define Tcl_SetMaxBlockTime_TCL_DECLARED -/* 229 */ -EXTERN void Tcl_SetMaxBlockTime(Tcl_Time *timePtr); -#endif -#ifndef Tcl_SetPanicProc_TCL_DECLARED -#define Tcl_SetPanicProc_TCL_DECLARED -/* 230 */ -EXTERN void Tcl_SetPanicProc(Tcl_PanicProc *panicProc); -#endif -#ifndef Tcl_SetRecursionLimit_TCL_DECLARED -#define Tcl_SetRecursionLimit_TCL_DECLARED -/* 231 */ -EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); -#endif -#ifndef Tcl_SetResult_TCL_DECLARED -#define Tcl_SetResult_TCL_DECLARED -/* 232 */ -EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, - Tcl_FreeProc *freeProc); -#endif -#ifndef Tcl_SetServiceMode_TCL_DECLARED -#define Tcl_SetServiceMode_TCL_DECLARED -/* 233 */ -EXTERN int Tcl_SetServiceMode(int mode); -#endif -#ifndef Tcl_SetObjErrorCode_TCL_DECLARED -#define Tcl_SetObjErrorCode_TCL_DECLARED -/* 234 */ -EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, - Tcl_Obj *errorObjPtr); -#endif -#ifndef Tcl_SetObjResult_TCL_DECLARED -#define Tcl_SetObjResult_TCL_DECLARED -/* 235 */ -EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, - Tcl_Obj *resultObjPtr); -#endif -#ifndef Tcl_SetStdChannel_TCL_DECLARED -#define Tcl_SetStdChannel_TCL_DECLARED -/* 236 */ -EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); -#endif -#ifndef Tcl_SetVar_TCL_DECLARED -#define Tcl_SetVar_TCL_DECLARED -/* 237 */ -EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, - CONST char *varName, CONST char *newValue, - int flags); -#endif -#ifndef Tcl_SetVar2_TCL_DECLARED -#define Tcl_SetVar2_TCL_DECLARED -/* 238 */ -EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - CONST char *newValue, int flags); -#endif -#ifndef Tcl_SignalId_TCL_DECLARED -#define Tcl_SignalId_TCL_DECLARED -/* 239 */ -EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); -#endif -#ifndef Tcl_SignalMsg_TCL_DECLARED -#define Tcl_SignalMsg_TCL_DECLARED -/* 240 */ -EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); -#endif -#ifndef Tcl_SourceRCFile_TCL_DECLARED -#define Tcl_SourceRCFile_TCL_DECLARED -/* 241 */ -EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); -#endif -#ifndef Tcl_SplitList_TCL_DECLARED -#define Tcl_SplitList_TCL_DECLARED -/* 242 */ -EXTERN int Tcl_SplitList(Tcl_Interp *interp, - CONST char *listStr, int *argcPtr, - CONST84 char ***argvPtr); -#endif -#ifndef Tcl_SplitPath_TCL_DECLARED -#define Tcl_SplitPath_TCL_DECLARED -/* 243 */ -EXTERN void Tcl_SplitPath(CONST char *path, int *argcPtr, - CONST84 char ***argvPtr); -#endif -#ifndef Tcl_StaticPackage_TCL_DECLARED -#define Tcl_StaticPackage_TCL_DECLARED -/* 244 */ -EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, - CONST char *pkgName, - Tcl_PackageInitProc *initProc, - Tcl_PackageInitProc *safeInitProc); -#endif -#ifndef Tcl_StringMatch_TCL_DECLARED -#define Tcl_StringMatch_TCL_DECLARED -/* 245 */ -EXTERN int Tcl_StringMatch(CONST char *str, CONST char *pattern); -#endif -#ifndef Tcl_TellOld_TCL_DECLARED -#define Tcl_TellOld_TCL_DECLARED -/* 246 */ -EXTERN int Tcl_TellOld(Tcl_Channel chan); -#endif -#ifndef Tcl_TraceVar_TCL_DECLARED -#define Tcl_TraceVar_TCL_DECLARED -/* 247 */ -EXTERN int Tcl_TraceVar(Tcl_Interp *interp, CONST char *varName, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_TraceVar2_TCL_DECLARED -#define Tcl_TraceVar2_TCL_DECLARED -/* 248 */ -EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_TranslateFileName_TCL_DECLARED -#define Tcl_TranslateFileName_TCL_DECLARED -/* 249 */ -EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, - CONST char *name, Tcl_DString *bufferPtr); -#endif -#ifndef Tcl_Ungets_TCL_DECLARED -#define Tcl_Ungets_TCL_DECLARED -/* 250 */ -EXTERN int Tcl_Ungets(Tcl_Channel chan, CONST char *str, - int len, int atHead); -#endif -#ifndef Tcl_UnlinkVar_TCL_DECLARED -#define Tcl_UnlinkVar_TCL_DECLARED -/* 251 */ -EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, - CONST char *varName); -#endif -#ifndef Tcl_UnregisterChannel_TCL_DECLARED -#define Tcl_UnregisterChannel_TCL_DECLARED -/* 252 */ -EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_UnsetVar_TCL_DECLARED -#define Tcl_UnsetVar_TCL_DECLARED -/* 253 */ -EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, CONST char *varName, - int flags); -#endif -#ifndef Tcl_UnsetVar2_TCL_DECLARED -#define Tcl_UnsetVar2_TCL_DECLARED -/* 254 */ -EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags); -#endif -#ifndef Tcl_UntraceVar_TCL_DECLARED -#define Tcl_UntraceVar_TCL_DECLARED -/* 255 */ -EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_UntraceVar2_TCL_DECLARED -#define Tcl_UntraceVar2_TCL_DECLARED -/* 256 */ -EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED -#define Tcl_UpdateLinkedVar_TCL_DECLARED -/* 257 */ -EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, - CONST char *varName); -#endif -#ifndef Tcl_UpVar_TCL_DECLARED -#define Tcl_UpVar_TCL_DECLARED -/* 258 */ -EXTERN int Tcl_UpVar(Tcl_Interp *interp, CONST char *frameName, - CONST char *varName, CONST char *localName, - int flags); -#endif -#ifndef Tcl_UpVar2_TCL_DECLARED -#define Tcl_UpVar2_TCL_DECLARED -/* 259 */ -EXTERN int Tcl_UpVar2(Tcl_Interp *interp, CONST char *frameName, - CONST char *part1, CONST char *part2, - CONST char *localName, int flags); -#endif -#ifndef Tcl_VarEval_TCL_DECLARED -#define Tcl_VarEval_TCL_DECLARED -/* 260 */ -EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); -#endif -#ifndef Tcl_VarTraceInfo_TCL_DECLARED -#define Tcl_VarTraceInfo_TCL_DECLARED -/* 261 */ -EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_VarTraceInfo2_TCL_DECLARED -#define Tcl_VarTraceInfo2_TCL_DECLARED -/* 262 */ -EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, - CONST char *part1, CONST char *part2, - int flags, Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_Write_TCL_DECLARED -#define Tcl_Write_TCL_DECLARED -/* 263 */ -EXTERN int Tcl_Write(Tcl_Channel chan, CONST char *s, int slen); -#endif -#ifndef Tcl_WrongNumArgs_TCL_DECLARED -#define Tcl_WrongNumArgs_TCL_DECLARED -/* 264 */ -EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], CONST char *message); -#endif -#ifndef Tcl_DumpActiveMemory_TCL_DECLARED -#define Tcl_DumpActiveMemory_TCL_DECLARED -/* 265 */ -EXTERN int Tcl_DumpActiveMemory(CONST char *fileName); -#endif -#ifndef Tcl_ValidateAllMemory_TCL_DECLARED -#define Tcl_ValidateAllMemory_TCL_DECLARED -/* 266 */ -EXTERN void Tcl_ValidateAllMemory(CONST char *file, int line); -#endif -#ifndef Tcl_AppendResultVA_TCL_DECLARED -#define Tcl_AppendResultVA_TCL_DECLARED -/* 267 */ -EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, - va_list argList); -#endif -#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED -#define Tcl_AppendStringsToObjVA_TCL_DECLARED -/* 268 */ -EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, - va_list argList); -#endif -#ifndef Tcl_HashStats_TCL_DECLARED -#define Tcl_HashStats_TCL_DECLARED -/* 269 */ -EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); -#endif -#ifndef Tcl_ParseVar_TCL_DECLARED -#define Tcl_ParseVar_TCL_DECLARED -/* 270 */ -EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, - CONST char *start, CONST84 char **termPtr); -#endif -#ifndef Tcl_PkgPresent_TCL_DECLARED -#define Tcl_PkgPresent_TCL_DECLARED -/* 271 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact); -#endif -#ifndef Tcl_PkgPresentEx_TCL_DECLARED -#define Tcl_PkgPresentEx_TCL_DECLARED -/* 272 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact, ClientData *clientDataPtr); -#endif -#ifndef Tcl_PkgProvide_TCL_DECLARED -#define Tcl_PkgProvide_TCL_DECLARED -/* 273 */ -EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, - CONST char *version); -#endif -#ifndef Tcl_PkgRequire_TCL_DECLARED -#define Tcl_PkgRequire_TCL_DECLARED -/* 274 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, - CONST char *name, CONST char *version, - int exact); -#endif -#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED -#define Tcl_SetErrorCodeVA_TCL_DECLARED -/* 275 */ -EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, - va_list argList); -#endif -#ifndef Tcl_VarEvalVA_TCL_DECLARED -#define Tcl_VarEvalVA_TCL_DECLARED -/* 276 */ -EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); -#endif -#ifndef Tcl_WaitPid_TCL_DECLARED -#define Tcl_WaitPid_TCL_DECLARED -/* 277 */ -EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); -#endif -#ifndef Tcl_PanicVA_TCL_DECLARED -#define Tcl_PanicVA_TCL_DECLARED -/* 278 */ -EXTERN void Tcl_PanicVA(CONST char *format, va_list argList); -#endif -#ifndef Tcl_GetVersion_TCL_DECLARED -#define Tcl_GetVersion_TCL_DECLARED -/* 279 */ -EXTERN void Tcl_GetVersion(int *major, int *minor, - int *patchLevel, int *type); -#endif -#ifndef Tcl_InitMemory_TCL_DECLARED -#define Tcl_InitMemory_TCL_DECLARED -/* 280 */ -EXTERN void Tcl_InitMemory(Tcl_Interp *interp); -#endif -#ifndef Tcl_StackChannel_TCL_DECLARED -#define Tcl_StackChannel_TCL_DECLARED -/* 281 */ -EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, - Tcl_ChannelType *typePtr, - ClientData instanceData, int mask, - Tcl_Channel prevChan); -#endif -#ifndef Tcl_UnstackChannel_TCL_DECLARED -#define Tcl_UnstackChannel_TCL_DECLARED -/* 282 */ -EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_GetStackedChannel_TCL_DECLARED -#define Tcl_GetStackedChannel_TCL_DECLARED -/* 283 */ -EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); -#endif -#ifndef Tcl_SetMainLoop_TCL_DECLARED -#define Tcl_SetMainLoop_TCL_DECLARED -/* 284 */ -EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj_TCL_DECLARED -#define Tcl_AppendObjToObj_TCL_DECLARED -/* 286 */ -EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, - Tcl_Obj *appendObjPtr); -#endif -#ifndef Tcl_CreateEncoding_TCL_DECLARED -#define Tcl_CreateEncoding_TCL_DECLARED -/* 287 */ -EXTERN Tcl_Encoding Tcl_CreateEncoding(CONST Tcl_EncodingType *typePtr); -#endif -#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED -#define Tcl_CreateThreadExitHandler_TCL_DECLARED -/* 288 */ -EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED -#define Tcl_DeleteThreadExitHandler_TCL_DECLARED -/* 289 */ -EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_DiscardResult_TCL_DECLARED -#define Tcl_DiscardResult_TCL_DECLARED -/* 290 */ -EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); -#endif -#ifndef Tcl_EvalEx_TCL_DECLARED -#define Tcl_EvalEx_TCL_DECLARED -/* 291 */ -EXTERN int Tcl_EvalEx(Tcl_Interp *interp, CONST char *script, - int numBytes, int flags); -#endif -#ifndef Tcl_EvalObjv_TCL_DECLARED -#define Tcl_EvalObjv_TCL_DECLARED -/* 292 */ -EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], int flags); -#endif -#ifndef Tcl_EvalObjEx_TCL_DECLARED -#define Tcl_EvalObjEx_TCL_DECLARED -/* 293 */ -EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -#endif -#ifndef Tcl_ExitThread_TCL_DECLARED -#define Tcl_ExitThread_TCL_DECLARED -/* 294 */ -EXTERN void Tcl_ExitThread(int status); -#endif -#ifndef Tcl_ExternalToUtf_TCL_DECLARED -#define Tcl_ExternalToUtf_TCL_DECLARED -/* 295 */ -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); -#endif -#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED -#define Tcl_ExternalToUtfDString_TCL_DECLARED -/* 296 */ -EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, - CONST char *src, int srcLen, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_FinalizeThread_TCL_DECLARED -#define Tcl_FinalizeThread_TCL_DECLARED -/* 297 */ -EXTERN void Tcl_FinalizeThread(void); -#endif -#ifndef Tcl_FinalizeNotifier_TCL_DECLARED -#define Tcl_FinalizeNotifier_TCL_DECLARED -/* 298 */ -EXTERN void Tcl_FinalizeNotifier(ClientData clientData); -#endif -#ifndef Tcl_FreeEncoding_TCL_DECLARED -#define Tcl_FreeEncoding_TCL_DECLARED -/* 299 */ -EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); -#endif -#ifndef Tcl_GetCurrentThread_TCL_DECLARED -#define Tcl_GetCurrentThread_TCL_DECLARED -/* 300 */ -EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); -#endif -#ifndef Tcl_GetEncoding_TCL_DECLARED -#define Tcl_GetEncoding_TCL_DECLARED -/* 301 */ -EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name); -#endif -#ifndef Tcl_GetEncodingName_TCL_DECLARED -#define Tcl_GetEncodingName_TCL_DECLARED -/* 302 */ -EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); -#endif -#ifndef Tcl_GetEncodingNames_TCL_DECLARED -#define Tcl_GetEncodingNames_TCL_DECLARED -/* 303 */ -EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED -#define Tcl_GetIndexFromObjStruct_TCL_DECLARED -/* 304 */ -EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST VOID *tablePtr, - int offset, CONST char *msg, int flags, - int *indexPtr); -#endif -#ifndef Tcl_GetThreadData_TCL_DECLARED -#define Tcl_GetThreadData_TCL_DECLARED -/* 305 */ -EXTERN VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, - int size); -#endif -#ifndef Tcl_GetVar2Ex_TCL_DECLARED -#define Tcl_GetVar2Ex_TCL_DECLARED -/* 306 */ -EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags); -#endif -#ifndef Tcl_InitNotifier_TCL_DECLARED -#define Tcl_InitNotifier_TCL_DECLARED -/* 307 */ -EXTERN ClientData Tcl_InitNotifier(void); -#endif -#ifndef Tcl_MutexLock_TCL_DECLARED -#define Tcl_MutexLock_TCL_DECLARED -/* 308 */ -EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); -#endif -#ifndef Tcl_MutexUnlock_TCL_DECLARED -#define Tcl_MutexUnlock_TCL_DECLARED -/* 309 */ -EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); -#endif -#ifndef Tcl_ConditionNotify_TCL_DECLARED -#define Tcl_ConditionNotify_TCL_DECLARED -/* 310 */ -EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); -#endif -#ifndef Tcl_ConditionWait_TCL_DECLARED -#define Tcl_ConditionWait_TCL_DECLARED -/* 311 */ -EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, - Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); -#endif -#ifndef Tcl_NumUtfChars_TCL_DECLARED -#define Tcl_NumUtfChars_TCL_DECLARED -/* 312 */ -EXTERN int Tcl_NumUtfChars(CONST char *src, int length); -#endif -#ifndef Tcl_ReadChars_TCL_DECLARED -#define Tcl_ReadChars_TCL_DECLARED -/* 313 */ -EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, - int charsToRead, int appendFlag); -#endif -#ifndef Tcl_RestoreResult_TCL_DECLARED -#define Tcl_RestoreResult_TCL_DECLARED -/* 314 */ -EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -#endif -#ifndef Tcl_SaveResult_TCL_DECLARED -#define Tcl_SaveResult_TCL_DECLARED -/* 315 */ -EXTERN void Tcl_SaveResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -#endif -#ifndef Tcl_SetSystemEncoding_TCL_DECLARED -#define Tcl_SetSystemEncoding_TCL_DECLARED -/* 316 */ -EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, - CONST char *name); -#endif -#ifndef Tcl_SetVar2Ex_TCL_DECLARED -#define Tcl_SetVar2Ex_TCL_DECLARED -/* 317 */ -EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, Tcl_Obj *newValuePtr, - int flags); -#endif -#ifndef Tcl_ThreadAlert_TCL_DECLARED -#define Tcl_ThreadAlert_TCL_DECLARED -/* 318 */ -EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); -#endif -#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED -#define Tcl_ThreadQueueEvent_TCL_DECLARED -/* 319 */ -EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, - Tcl_Event *evPtr, Tcl_QueuePosition position); -#endif -#ifndef Tcl_UniCharAtIndex_TCL_DECLARED -#define Tcl_UniCharAtIndex_TCL_DECLARED -/* 320 */ -EXTERN Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index); -#endif -#ifndef Tcl_UniCharToLower_TCL_DECLARED -#define Tcl_UniCharToLower_TCL_DECLARED -/* 321 */ -EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); -#endif -#ifndef Tcl_UniCharToTitle_TCL_DECLARED -#define Tcl_UniCharToTitle_TCL_DECLARED -/* 322 */ -EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); -#endif -#ifndef Tcl_UniCharToUpper_TCL_DECLARED -#define Tcl_UniCharToUpper_TCL_DECLARED -/* 323 */ -EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); -#endif -#ifndef Tcl_UniCharToUtf_TCL_DECLARED -#define Tcl_UniCharToUtf_TCL_DECLARED -/* 324 */ -EXTERN int Tcl_UniCharToUtf(int ch, char *buf); -#endif -#ifndef Tcl_UtfAtIndex_TCL_DECLARED -#define Tcl_UtfAtIndex_TCL_DECLARED -/* 325 */ -EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(CONST char *src, int index); -#endif -#ifndef Tcl_UtfCharComplete_TCL_DECLARED -#define Tcl_UtfCharComplete_TCL_DECLARED -/* 326 */ -EXTERN int Tcl_UtfCharComplete(CONST char *src, int length); -#endif -#ifndef Tcl_UtfBackslash_TCL_DECLARED -#define Tcl_UtfBackslash_TCL_DECLARED -/* 327 */ -EXTERN int Tcl_UtfBackslash(CONST char *src, int *readPtr, - char *dst); -#endif -#ifndef Tcl_UtfFindFirst_TCL_DECLARED -#define Tcl_UtfFindFirst_TCL_DECLARED -/* 328 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(CONST char *src, int ch); -#endif -#ifndef Tcl_UtfFindLast_TCL_DECLARED -#define Tcl_UtfFindLast_TCL_DECLARED -/* 329 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindLast(CONST char *src, int ch); -#endif -#ifndef Tcl_UtfNext_TCL_DECLARED -#define Tcl_UtfNext_TCL_DECLARED -/* 330 */ -EXTERN CONST84_RETURN char * Tcl_UtfNext(CONST char *src); -#endif -#ifndef Tcl_UtfPrev_TCL_DECLARED -#define Tcl_UtfPrev_TCL_DECLARED -/* 331 */ -EXTERN CONST84_RETURN char * Tcl_UtfPrev(CONST char *src, CONST char *start); -#endif -#ifndef Tcl_UtfToExternal_TCL_DECLARED -#define Tcl_UtfToExternal_TCL_DECLARED -/* 332 */ -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); -#endif -#ifndef Tcl_UtfToExternalDString_TCL_DECLARED -#define Tcl_UtfToExternalDString_TCL_DECLARED -/* 333 */ -EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, - CONST char *src, int srcLen, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_UtfToLower_TCL_DECLARED -#define Tcl_UtfToLower_TCL_DECLARED -/* 334 */ -EXTERN int Tcl_UtfToLower(char *src); -#endif -#ifndef Tcl_UtfToTitle_TCL_DECLARED -#define Tcl_UtfToTitle_TCL_DECLARED -/* 335 */ -EXTERN int Tcl_UtfToTitle(char *src); -#endif -#ifndef Tcl_UtfToUniChar_TCL_DECLARED -#define Tcl_UtfToUniChar_TCL_DECLARED -/* 336 */ -EXTERN int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr); -#endif -#ifndef Tcl_UtfToUpper_TCL_DECLARED -#define Tcl_UtfToUpper_TCL_DECLARED -/* 337 */ -EXTERN int Tcl_UtfToUpper(char *src); -#endif -#ifndef Tcl_WriteChars_TCL_DECLARED -#define Tcl_WriteChars_TCL_DECLARED -/* 338 */ -EXTERN int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, - int srcLen); -#endif -#ifndef Tcl_WriteObj_TCL_DECLARED -#define Tcl_WriteObj_TCL_DECLARED -/* 339 */ -EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetString_TCL_DECLARED -#define Tcl_GetString_TCL_DECLARED -/* 340 */ -EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED -#define Tcl_GetDefaultEncodingDir_TCL_DECLARED -/* 341 */ -EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); -#endif -#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED -#define Tcl_SetDefaultEncodingDir_TCL_DECLARED -/* 342 */ -EXTERN void Tcl_SetDefaultEncodingDir(CONST char *path); -#endif -#ifndef Tcl_AlertNotifier_TCL_DECLARED -#define Tcl_AlertNotifier_TCL_DECLARED -/* 343 */ -EXTERN void Tcl_AlertNotifier(ClientData clientData); -#endif -#ifndef Tcl_ServiceModeHook_TCL_DECLARED -#define Tcl_ServiceModeHook_TCL_DECLARED -/* 344 */ -EXTERN void Tcl_ServiceModeHook(int mode); -#endif -#ifndef Tcl_UniCharIsAlnum_TCL_DECLARED -#define Tcl_UniCharIsAlnum_TCL_DECLARED -/* 345 */ -EXTERN int Tcl_UniCharIsAlnum(int ch); -#endif -#ifndef Tcl_UniCharIsAlpha_TCL_DECLARED -#define Tcl_UniCharIsAlpha_TCL_DECLARED -/* 346 */ -EXTERN int Tcl_UniCharIsAlpha(int ch); -#endif -#ifndef Tcl_UniCharIsDigit_TCL_DECLARED -#define Tcl_UniCharIsDigit_TCL_DECLARED -/* 347 */ -EXTERN int Tcl_UniCharIsDigit(int ch); -#endif -#ifndef Tcl_UniCharIsLower_TCL_DECLARED -#define Tcl_UniCharIsLower_TCL_DECLARED -/* 348 */ -EXTERN int Tcl_UniCharIsLower(int ch); -#endif -#ifndef Tcl_UniCharIsSpace_TCL_DECLARED -#define Tcl_UniCharIsSpace_TCL_DECLARED -/* 349 */ -EXTERN int Tcl_UniCharIsSpace(int ch); -#endif -#ifndef Tcl_UniCharIsUpper_TCL_DECLARED -#define Tcl_UniCharIsUpper_TCL_DECLARED -/* 350 */ -EXTERN int Tcl_UniCharIsUpper(int ch); -#endif -#ifndef Tcl_UniCharIsWordChar_TCL_DECLARED -#define Tcl_UniCharIsWordChar_TCL_DECLARED -/* 351 */ -EXTERN int Tcl_UniCharIsWordChar(int ch); -#endif -#ifndef Tcl_UniCharLen_TCL_DECLARED -#define Tcl_UniCharLen_TCL_DECLARED -/* 352 */ -EXTERN int Tcl_UniCharLen(CONST Tcl_UniChar *uniStr); -#endif -#ifndef Tcl_UniCharNcmp_TCL_DECLARED -#define Tcl_UniCharNcmp_TCL_DECLARED -/* 353 */ -EXTERN int Tcl_UniCharNcmp(CONST Tcl_UniChar *ucs, - CONST Tcl_UniChar *uct, - unsigned long numChars); -#endif -#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED -#define Tcl_UniCharToUtfDString_TCL_DECLARED -/* 354 */ -EXTERN char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *uniStr, - int uniLength, Tcl_DString *dsPtr); -#endif -#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED -#define Tcl_UtfToUniCharDString_TCL_DECLARED -/* 355 */ -EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *src, int length, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED -#define Tcl_GetRegExpFromObj_TCL_DECLARED -/* 356 */ -EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, - Tcl_Obj *patObj, int flags); -#endif -#ifndef Tcl_EvalTokens_TCL_DECLARED -#define Tcl_EvalTokens_TCL_DECLARED -/* 357 */ -EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -#endif -#ifndef Tcl_FreeParse_TCL_DECLARED -#define Tcl_FreeParse_TCL_DECLARED -/* 358 */ -EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); -#endif -#ifndef Tcl_LogCommandInfo_TCL_DECLARED -#define Tcl_LogCommandInfo_TCL_DECLARED -/* 359 */ -EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, - CONST char *script, CONST char *command, - int length); -#endif -#ifndef Tcl_ParseBraces_TCL_DECLARED -#define Tcl_ParseBraces_TCL_DECLARED -/* 360 */ -EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, - CONST char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -#endif -#ifndef Tcl_ParseCommand_TCL_DECLARED -#define Tcl_ParseCommand_TCL_DECLARED -/* 361 */ -EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, - CONST char *start, int numBytes, int nested, - Tcl_Parse *parsePtr); -#endif -#ifndef Tcl_ParseExpr_TCL_DECLARED -#define Tcl_ParseExpr_TCL_DECLARED -/* 362 */ -EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *start, - int numBytes, Tcl_Parse *parsePtr); -#endif -#ifndef Tcl_ParseQuotedString_TCL_DECLARED -#define Tcl_ParseQuotedString_TCL_DECLARED -/* 363 */ -EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, - CONST char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -#endif -#ifndef Tcl_ParseVarName_TCL_DECLARED -#define Tcl_ParseVarName_TCL_DECLARED -/* 364 */ -EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, - CONST char *start, int numBytes, - Tcl_Parse *parsePtr, int append); -#endif -#ifndef Tcl_GetCwd_TCL_DECLARED -#define Tcl_GetCwd_TCL_DECLARED -/* 365 */ -EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); -#endif -#ifndef Tcl_Chdir_TCL_DECLARED -#define Tcl_Chdir_TCL_DECLARED -/* 366 */ -EXTERN int Tcl_Chdir(CONST char *dirName); -#endif -#ifndef Tcl_Access_TCL_DECLARED -#define Tcl_Access_TCL_DECLARED -/* 367 */ -EXTERN int Tcl_Access(CONST char *path, int mode); -#endif -#ifndef Tcl_Stat_TCL_DECLARED -#define Tcl_Stat_TCL_DECLARED -/* 368 */ -EXTERN int Tcl_Stat(CONST char *path, struct stat *bufPtr); -#endif -#ifndef Tcl_UtfNcmp_TCL_DECLARED -#define Tcl_UtfNcmp_TCL_DECLARED -/* 369 */ -EXTERN int Tcl_UtfNcmp(CONST char *s1, CONST char *s2, - unsigned long n); -#endif -#ifndef Tcl_UtfNcasecmp_TCL_DECLARED -#define Tcl_UtfNcasecmp_TCL_DECLARED -/* 370 */ -EXTERN int Tcl_UtfNcasecmp(CONST char *s1, CONST char *s2, - unsigned long n); -#endif -#ifndef Tcl_StringCaseMatch_TCL_DECLARED -#define Tcl_StringCaseMatch_TCL_DECLARED -/* 371 */ -EXTERN int Tcl_StringCaseMatch(CONST char *str, - CONST char *pattern, int nocase); -#endif -#ifndef Tcl_UniCharIsControl_TCL_DECLARED -#define Tcl_UniCharIsControl_TCL_DECLARED -/* 372 */ -EXTERN int Tcl_UniCharIsControl(int ch); -#endif -#ifndef Tcl_UniCharIsGraph_TCL_DECLARED -#define Tcl_UniCharIsGraph_TCL_DECLARED -/* 373 */ -EXTERN int Tcl_UniCharIsGraph(int ch); -#endif -#ifndef Tcl_UniCharIsPrint_TCL_DECLARED -#define Tcl_UniCharIsPrint_TCL_DECLARED -/* 374 */ -EXTERN int Tcl_UniCharIsPrint(int ch); -#endif -#ifndef Tcl_UniCharIsPunct_TCL_DECLARED -#define Tcl_UniCharIsPunct_TCL_DECLARED -/* 375 */ -EXTERN int Tcl_UniCharIsPunct(int ch); -#endif -#ifndef Tcl_RegExpExecObj_TCL_DECLARED -#define Tcl_RegExpExecObj_TCL_DECLARED -/* 376 */ -EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, - Tcl_RegExp regexp, Tcl_Obj *textObj, - int offset, int nmatches, int flags); -#endif -#ifndef Tcl_RegExpGetInfo_TCL_DECLARED -#define Tcl_RegExpGetInfo_TCL_DECLARED -/* 377 */ -EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, - Tcl_RegExpInfo *infoPtr); -#endif -#ifndef Tcl_NewUnicodeObj_TCL_DECLARED -#define Tcl_NewUnicodeObj_TCL_DECLARED -/* 378 */ -EXTERN Tcl_Obj * Tcl_NewUnicodeObj(CONST Tcl_UniChar *unicode, - int numChars); -#endif -#ifndef Tcl_SetUnicodeObj_TCL_DECLARED -#define Tcl_SetUnicodeObj_TCL_DECLARED -/* 379 */ -EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, - CONST Tcl_UniChar *unicode, int numChars); -#endif -#ifndef Tcl_GetCharLength_TCL_DECLARED -#define Tcl_GetCharLength_TCL_DECLARED -/* 380 */ -EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetUniChar_TCL_DECLARED -#define Tcl_GetUniChar_TCL_DECLARED -/* 381 */ -EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); -#endif -#ifndef Tcl_GetUnicode_TCL_DECLARED -#define Tcl_GetUnicode_TCL_DECLARED -/* 382 */ -EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetRange_TCL_DECLARED -#define Tcl_GetRange_TCL_DECLARED -/* 383 */ -EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); -#endif -#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED -#define Tcl_AppendUnicodeToObj_TCL_DECLARED -/* 384 */ -EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, - CONST Tcl_UniChar *unicode, int length); -#endif -#ifndef Tcl_RegExpMatchObj_TCL_DECLARED -#define Tcl_RegExpMatchObj_TCL_DECLARED -/* 385 */ -EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, - Tcl_Obj *textObj, Tcl_Obj *patternObj); -#endif -#ifndef Tcl_SetNotifier_TCL_DECLARED -#define Tcl_SetNotifier_TCL_DECLARED -/* 386 */ -EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); -#endif -#ifndef Tcl_GetAllocMutex_TCL_DECLARED -#define Tcl_GetAllocMutex_TCL_DECLARED -/* 387 */ -EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); -#endif -#ifndef Tcl_GetChannelNames_TCL_DECLARED -#define Tcl_GetChannelNames_TCL_DECLARED -/* 388 */ -EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED -#define Tcl_GetChannelNamesEx_TCL_DECLARED -/* 389 */ -EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, - CONST char *pattern); -#endif -#ifndef Tcl_ProcObjCmd_TCL_DECLARED -#define Tcl_ProcObjCmd_TCL_DECLARED -/* 390 */ -EXTERN int Tcl_ProcObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ConditionFinalize_TCL_DECLARED -#define Tcl_ConditionFinalize_TCL_DECLARED -/* 391 */ -EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); -#endif -#ifndef Tcl_MutexFinalize_TCL_DECLARED -#define Tcl_MutexFinalize_TCL_DECLARED -/* 392 */ -EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); -#endif -#ifndef Tcl_CreateThread_TCL_DECLARED -#define Tcl_CreateThread_TCL_DECLARED -/* 393 */ -EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc proc, - ClientData clientData, int stackSize, - int flags); -#endif -#ifndef Tcl_ReadRaw_TCL_DECLARED -#define Tcl_ReadRaw_TCL_DECLARED -/* 394 */ -EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, - int bytesToRead); -#endif -#ifndef Tcl_WriteRaw_TCL_DECLARED -#define Tcl_WriteRaw_TCL_DECLARED -/* 395 */ -EXTERN int Tcl_WriteRaw(Tcl_Channel chan, CONST char *src, - int srcLen); -#endif -#ifndef Tcl_GetTopChannel_TCL_DECLARED -#define Tcl_GetTopChannel_TCL_DECLARED -/* 396 */ -EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelBuffered_TCL_DECLARED -#define Tcl_ChannelBuffered_TCL_DECLARED -/* 397 */ -EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelName_TCL_DECLARED -#define Tcl_ChannelName_TCL_DECLARED -/* 398 */ -EXTERN CONST84_RETURN char * Tcl_ChannelName( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelVersion_TCL_DECLARED -#define Tcl_ChannelVersion_TCL_DECLARED -/* 399 */ -EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED -#define Tcl_ChannelBlockModeProc_TCL_DECLARED -/* 400 */ -EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelCloseProc_TCL_DECLARED -#define Tcl_ChannelCloseProc_TCL_DECLARED -/* 401 */ -EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED -#define Tcl_ChannelClose2Proc_TCL_DECLARED -/* 402 */ -EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelInputProc_TCL_DECLARED -#define Tcl_ChannelInputProc_TCL_DECLARED -/* 403 */ -EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelOutputProc_TCL_DECLARED -#define Tcl_ChannelOutputProc_TCL_DECLARED -/* 404 */ -EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelSeekProc_TCL_DECLARED -#define Tcl_ChannelSeekProc_TCL_DECLARED -/* 405 */ -EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED -#define Tcl_ChannelSetOptionProc_TCL_DECLARED -/* 406 */ -EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED -#define Tcl_ChannelGetOptionProc_TCL_DECLARED -/* 407 */ -EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelWatchProc_TCL_DECLARED -#define Tcl_ChannelWatchProc_TCL_DECLARED -/* 408 */ -EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED -#define Tcl_ChannelGetHandleProc_TCL_DECLARED -/* 409 */ -EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelFlushProc_TCL_DECLARED -#define Tcl_ChannelFlushProc_TCL_DECLARED -/* 410 */ -EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED -#define Tcl_ChannelHandlerProc_TCL_DECLARED -/* 411 */ -EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_JoinThread_TCL_DECLARED -#define Tcl_JoinThread_TCL_DECLARED -/* 412 */ -EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); -#endif -#ifndef Tcl_IsChannelShared_TCL_DECLARED -#define Tcl_IsChannelShared_TCL_DECLARED -/* 413 */ -EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); -#endif -#ifndef Tcl_IsChannelRegistered_TCL_DECLARED -#define Tcl_IsChannelRegistered_TCL_DECLARED -/* 414 */ -EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, - Tcl_Channel channel); -#endif -#ifndef Tcl_CutChannel_TCL_DECLARED -#define Tcl_CutChannel_TCL_DECLARED -/* 415 */ -EXTERN void Tcl_CutChannel(Tcl_Channel channel); -#endif -#ifndef Tcl_SpliceChannel_TCL_DECLARED -#define Tcl_SpliceChannel_TCL_DECLARED -/* 416 */ -EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); -#endif -#ifndef Tcl_ClearChannelHandlers_TCL_DECLARED -#define Tcl_ClearChannelHandlers_TCL_DECLARED -/* 417 */ -EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); -#endif -#ifndef Tcl_IsChannelExisting_TCL_DECLARED -#define Tcl_IsChannelExisting_TCL_DECLARED -/* 418 */ -EXTERN int Tcl_IsChannelExisting(CONST char *channelName); -#endif -#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED -#define Tcl_UniCharNcasecmp_TCL_DECLARED -/* 419 */ -EXTERN int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *ucs, - CONST Tcl_UniChar *uct, - unsigned long numChars); -#endif -#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED -#define Tcl_UniCharCaseMatch_TCL_DECLARED -/* 420 */ -EXTERN int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *uniStr, - CONST Tcl_UniChar *uniPattern, int nocase); -#endif -#ifndef Tcl_FindHashEntry_TCL_DECLARED -#define Tcl_FindHashEntry_TCL_DECLARED -/* 421 */ -EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, - CONST char *key); -#endif -#ifndef Tcl_CreateHashEntry_TCL_DECLARED -#define Tcl_CreateHashEntry_TCL_DECLARED -/* 422 */ -EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, - CONST char *key, int *newPtr); -#endif -#ifndef Tcl_InitCustomHashTable_TCL_DECLARED -#define Tcl_InitCustomHashTable_TCL_DECLARED -/* 423 */ -EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, - int keyType, Tcl_HashKeyType *typePtr); -#endif -#ifndef Tcl_InitObjHashTable_TCL_DECLARED -#define Tcl_InitObjHashTable_TCL_DECLARED -/* 424 */ -EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); -#endif -#ifndef Tcl_CommandTraceInfo_TCL_DECLARED -#define Tcl_CommandTraceInfo_TCL_DECLARED -/* 425 */ -EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_CommandTraceProc *procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_TraceCommand_TCL_DECLARED -#define Tcl_TraceCommand_TCL_DECLARED -/* 426 */ -EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_UntraceCommand_TCL_DECLARED -#define Tcl_UntraceCommand_TCL_DECLARED -/* 427 */ -EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, - CONST char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -#endif -#ifndef Tcl_AttemptAlloc_TCL_DECLARED -#define Tcl_AttemptAlloc_TCL_DECLARED -/* 428 */ -EXTERN char * Tcl_AttemptAlloc(unsigned int size); -#endif -#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED -#define Tcl_AttemptDbCkalloc_TCL_DECLARED -/* 429 */ -EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, - CONST char *file, int line); -#endif -#ifndef Tcl_AttemptRealloc_TCL_DECLARED -#define Tcl_AttemptRealloc_TCL_DECLARED -/* 430 */ -EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); -#endif -#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED -#define Tcl_AttemptDbCkrealloc_TCL_DECLARED -/* 431 */ -EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, - CONST char *file, int line); -#endif -#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED -#define Tcl_AttemptSetObjLength_TCL_DECLARED -/* 432 */ -EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); -#endif -#ifndef Tcl_GetChannelThread_TCL_DECLARED -#define Tcl_GetChannelThread_TCL_DECLARED -/* 433 */ -EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); -#endif -#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED -#define Tcl_GetUnicodeFromObj_TCL_DECLARED -/* 434 */ -EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -#endif -#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED -#define Tcl_GetMathFuncInfo_TCL_DECLARED -/* 435 */ -EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, - CONST char *name, int *numArgsPtr, - Tcl_ValueType **argTypesPtr, - Tcl_MathProc **procPtr, - ClientData *clientDataPtr); -#endif -#ifndef Tcl_ListMathFuncs_TCL_DECLARED -#define Tcl_ListMathFuncs_TCL_DECLARED -/* 436 */ -EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, - CONST char *pattern); -#endif -#ifndef Tcl_SubstObj_TCL_DECLARED -#define Tcl_SubstObj_TCL_DECLARED -/* 437 */ -EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -#endif -#ifndef Tcl_DetachChannel_TCL_DECLARED -#define Tcl_DetachChannel_TCL_DECLARED -/* 438 */ -EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, - Tcl_Channel channel); -#endif -#ifndef Tcl_IsStandardChannel_TCL_DECLARED -#define Tcl_IsStandardChannel_TCL_DECLARED -/* 439 */ -EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); -#endif -#ifndef Tcl_FSCopyFile_TCL_DECLARED -#define Tcl_FSCopyFile_TCL_DECLARED -/* 440 */ -EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef Tcl_FSCopyDirectory_TCL_DECLARED -#define Tcl_FSCopyDirectory_TCL_DECLARED -/* 441 */ -EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -#endif -#ifndef Tcl_FSCreateDirectory_TCL_DECLARED -#define Tcl_FSCreateDirectory_TCL_DECLARED -/* 442 */ -EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSDeleteFile_TCL_DECLARED -#define Tcl_FSDeleteFile_TCL_DECLARED -/* 443 */ -EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSLoadFile_TCL_DECLARED -#define Tcl_FSLoadFile_TCL_DECLARED -/* 444 */ -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); -#endif -#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED -#define Tcl_FSMatchInDirectory_TCL_DECLARED -/* 445 */ -EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, - CONST char *pattern, Tcl_GlobTypeData *types); -#endif -#ifndef Tcl_FSLink_TCL_DECLARED -#define Tcl_FSLink_TCL_DECLARED -/* 446 */ -EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkAction); -#endif -#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED -#define Tcl_FSRemoveDirectory_TCL_DECLARED -/* 447 */ -EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -#endif -#ifndef Tcl_FSRenameFile_TCL_DECLARED -#define Tcl_FSRenameFile_TCL_DECLARED -/* 448 */ -EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef Tcl_FSLstat_TCL_DECLARED -#define Tcl_FSLstat_TCL_DECLARED -/* 449 */ -EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -#endif -#ifndef Tcl_FSUtime_TCL_DECLARED -#define Tcl_FSUtime_TCL_DECLARED -/* 450 */ -EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -#endif -#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED -#define Tcl_FSFileAttrsGet_TCL_DECLARED -/* 451 */ -EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); -#endif -#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED -#define Tcl_FSFileAttrsSet_TCL_DECLARED -/* 452 */ -EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED -#define Tcl_FSFileAttrStrings_TCL_DECLARED -/* 453 */ -EXTERN CONST char ** Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, - Tcl_Obj **objPtrRef); -#endif -#ifndef Tcl_FSStat_TCL_DECLARED -#define Tcl_FSStat_TCL_DECLARED -/* 454 */ -EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -#endif -#ifndef Tcl_FSAccess_TCL_DECLARED -#define Tcl_FSAccess_TCL_DECLARED -/* 455 */ -EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); -#endif -#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED -#define Tcl_FSOpenFileChannel_TCL_DECLARED -/* 456 */ -EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, CONST char *modeString, - int permissions); -#endif -#ifndef Tcl_FSGetCwd_TCL_DECLARED -#define Tcl_FSGetCwd_TCL_DECLARED -/* 457 */ -EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); -#endif -#ifndef Tcl_FSChdir_TCL_DECLARED -#define Tcl_FSChdir_TCL_DECLARED -/* 458 */ -EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSConvertToPathType_TCL_DECLARED -#define Tcl_FSConvertToPathType_TCL_DECLARED -/* 459 */ -EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSJoinPath_TCL_DECLARED -#define Tcl_FSJoinPath_TCL_DECLARED -/* 460 */ -EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); -#endif -#ifndef Tcl_FSSplitPath_TCL_DECLARED -#define Tcl_FSSplitPath_TCL_DECLARED -/* 461 */ -EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -#endif -#ifndef Tcl_FSEqualPaths_TCL_DECLARED -#define Tcl_FSEqualPaths_TCL_DECLARED -/* 462 */ -EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, - Tcl_Obj *secondPtr); -#endif -#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED -#define Tcl_FSGetNormalizedPath_TCL_DECLARED -/* 463 */ -EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSJoinToPath_TCL_DECLARED -#define Tcl_FSJoinToPath_TCL_DECLARED -/* 464 */ -EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_FSGetInternalRep_TCL_DECLARED -#define Tcl_FSGetInternalRep_TCL_DECLARED -/* 465 */ -EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, - Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED -#define Tcl_FSGetTranslatedPath_TCL_DECLARED -/* 466 */ -EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSEvalFile_TCL_DECLARED -#define Tcl_FSEvalFile_TCL_DECLARED -/* 467 */ -EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); -#endif -#ifndef Tcl_FSNewNativePath_TCL_DECLARED -#define Tcl_FSNewNativePath_TCL_DECLARED -/* 468 */ -EXTERN Tcl_Obj * Tcl_FSNewNativePath(Tcl_Filesystem *fromFilesystem, - ClientData clientData); -#endif -#ifndef Tcl_FSGetNativePath_TCL_DECLARED -#define Tcl_FSGetNativePath_TCL_DECLARED -/* 469 */ -EXTERN CONST char * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED -#define Tcl_FSFileSystemInfo_TCL_DECLARED -/* 470 */ -EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSPathSeparator_TCL_DECLARED -#define Tcl_FSPathSeparator_TCL_DECLARED -/* 471 */ -EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSListVolumes_TCL_DECLARED -#define Tcl_FSListVolumes_TCL_DECLARED -/* 472 */ -EXTERN Tcl_Obj * Tcl_FSListVolumes(void); -#endif -#ifndef Tcl_FSRegister_TCL_DECLARED -#define Tcl_FSRegister_TCL_DECLARED -/* 473 */ -EXTERN int Tcl_FSRegister(ClientData clientData, - Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSUnregister_TCL_DECLARED -#define Tcl_FSUnregister_TCL_DECLARED -/* 474 */ -EXTERN int Tcl_FSUnregister(Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSData_TCL_DECLARED -#define Tcl_FSData_TCL_DECLARED -/* 475 */ -EXTERN ClientData Tcl_FSData(Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED -#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED -/* 476 */ -EXTERN CONST char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED -#define Tcl_FSGetFileSystemForPath_TCL_DECLARED -/* 477 */ -EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_FSGetPathType_TCL_DECLARED -#define Tcl_FSGetPathType_TCL_DECLARED -/* 478 */ -EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); -#endif -#ifndef Tcl_OutputBuffered_TCL_DECLARED -#define Tcl_OutputBuffered_TCL_DECLARED -/* 479 */ -EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); -#endif -#ifndef Tcl_FSMountsChanged_TCL_DECLARED -#define Tcl_FSMountsChanged_TCL_DECLARED -/* 480 */ -EXTERN void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr); -#endif -#ifndef Tcl_EvalTokensStandard_TCL_DECLARED -#define Tcl_EvalTokensStandard_TCL_DECLARED -/* 481 */ -EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -#endif -#ifndef Tcl_GetTime_TCL_DECLARED -#define Tcl_GetTime_TCL_DECLARED -/* 482 */ -EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); -#endif -#ifndef Tcl_CreateObjTrace_TCL_DECLARED -#define Tcl_CreateObjTrace_TCL_DECLARED -/* 483 */ -EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, - int flags, Tcl_CmdObjTraceProc *objProc, - ClientData clientData, - Tcl_CmdObjTraceDeleteProc *delProc); -#endif -#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED -#define Tcl_GetCommandInfoFromToken_TCL_DECLARED -/* 484 */ -EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, - Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED -#define Tcl_SetCommandInfoFromToken_TCL_DECLARED -/* 485 */ -EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, - CONST Tcl_CmdInfo *infoPtr); -#endif -#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED -#define Tcl_DbNewWideIntObj_TCL_DECLARED -/* 486 */ -EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, - CONST char *file, int line); -#endif -#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED -#define Tcl_GetWideIntFromObj_TCL_DECLARED -/* 487 */ -EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_WideInt *widePtr); -#endif -#ifndef Tcl_NewWideIntObj_TCL_DECLARED -#define Tcl_NewWideIntObj_TCL_DECLARED -/* 488 */ -EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); -#endif -#ifndef Tcl_SetWideIntObj_TCL_DECLARED -#define Tcl_SetWideIntObj_TCL_DECLARED -/* 489 */ -EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, - Tcl_WideInt wideValue); -#endif -#ifndef Tcl_AllocStatBuf_TCL_DECLARED -#define Tcl_AllocStatBuf_TCL_DECLARED -/* 490 */ -EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); -#endif -#ifndef Tcl_Seek_TCL_DECLARED -#define Tcl_Seek_TCL_DECLARED -/* 491 */ -EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, - int mode); -#endif -#ifndef Tcl_Tell_TCL_DECLARED -#define Tcl_Tell_TCL_DECLARED -/* 492 */ -EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED -#define Tcl_ChannelWideSeekProc_TCL_DECLARED -/* 493 */ -EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_DictObjPut_TCL_DECLARED -#define Tcl_DictObjPut_TCL_DECLARED -/* 494 */ -EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); -#endif -#ifndef Tcl_DictObjGet_TCL_DECLARED -#define Tcl_DictObjGet_TCL_DECLARED -/* 495 */ -EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); -#endif -#ifndef Tcl_DictObjRemove_TCL_DECLARED -#define Tcl_DictObjRemove_TCL_DECLARED -/* 496 */ -EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); -#endif -#ifndef Tcl_DictObjSize_TCL_DECLARED -#define Tcl_DictObjSize_TCL_DECLARED -/* 497 */ -EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int *sizePtr); -#endif -#ifndef Tcl_DictObjFirst_TCL_DECLARED -#define Tcl_DictObjFirst_TCL_DECLARED -/* 498 */ -EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -#endif -#ifndef Tcl_DictObjNext_TCL_DECLARED -#define Tcl_DictObjNext_TCL_DECLARED -/* 499 */ -EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -#endif -#ifndef Tcl_DictObjDone_TCL_DECLARED -#define Tcl_DictObjDone_TCL_DECLARED -/* 500 */ -EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); -#endif -#ifndef Tcl_DictObjPutKeyList_TCL_DECLARED -#define Tcl_DictObjPutKeyList_TCL_DECLARED -/* 501 */ -EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); -#endif -#ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED -#define Tcl_DictObjRemoveKeyList_TCL_DECLARED -/* 502 */ -EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *CONST *keyv); -#endif -#ifndef Tcl_NewDictObj_TCL_DECLARED -#define Tcl_NewDictObj_TCL_DECLARED -/* 503 */ -EXTERN Tcl_Obj * Tcl_NewDictObj(void); -#endif -#ifndef Tcl_DbNewDictObj_TCL_DECLARED -#define Tcl_DbNewDictObj_TCL_DECLARED -/* 504 */ -EXTERN Tcl_Obj * Tcl_DbNewDictObj(CONST char *file, int line); -#endif -#ifndef Tcl_RegisterConfig_TCL_DECLARED -#define Tcl_RegisterConfig_TCL_DECLARED -/* 505 */ -EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, - CONST char *pkgName, - Tcl_Config *configuration, - CONST char *valEncoding); -#endif -#ifndef Tcl_CreateNamespace_TCL_DECLARED -#define Tcl_CreateNamespace_TCL_DECLARED -/* 506 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - CONST char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -#endif -#ifndef Tcl_DeleteNamespace_TCL_DECLARED -#define Tcl_DeleteNamespace_TCL_DECLARED -/* 507 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -#endif -#ifndef Tcl_AppendExportList_TCL_DECLARED -#define Tcl_AppendExportList_TCL_DECLARED -/* 508 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_Export_TCL_DECLARED -#define Tcl_Export_TCL_DECLARED -/* 509 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int resetListFirst); -#endif -#ifndef Tcl_Import_TCL_DECLARED -#define Tcl_Import_TCL_DECLARED -/* 510 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int allowOverwrite); -#endif -#ifndef Tcl_ForgetImport_TCL_DECLARED -#define Tcl_ForgetImport_TCL_DECLARED -/* 511 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, CONST char *pattern); -#endif -#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED -#define Tcl_GetCurrentNamespace_TCL_DECLARED -/* 512 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED -#define Tcl_GetGlobalNamespace_TCL_DECLARED -/* 513 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_FindNamespace_TCL_DECLARED -#define Tcl_FindNamespace_TCL_DECLARED -/* 514 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_FindCommand_TCL_DECLARED -#define Tcl_FindCommand_TCL_DECLARED -/* 515 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_GetCommandFromObj_TCL_DECLARED -#define Tcl_GetCommandFromObj_TCL_DECLARED -/* 516 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetCommandFullName_TCL_DECLARED -#define Tcl_GetCommandFullName_TCL_DECLARED -/* 517 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_FSEvalFileEx_TCL_DECLARED -#define Tcl_FSEvalFileEx_TCL_DECLARED -/* 518 */ -EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, - Tcl_Obj *fileName, CONST char *encodingName); -#endif -#ifndef Tcl_SetExitProc_TCL_DECLARED -#define Tcl_SetExitProc_TCL_DECLARED -/* 519 */ -EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc); -#endif -#ifndef Tcl_LimitAddHandler_TCL_DECLARED -#define Tcl_LimitAddHandler_TCL_DECLARED -/* 520 */ -EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData, - Tcl_LimitHandlerDeleteProc *deleteProc); -#endif -#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED -#define Tcl_LimitRemoveHandler_TCL_DECLARED -/* 521 */ -EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData); -#endif -#ifndef Tcl_LimitReady_TCL_DECLARED -#define Tcl_LimitReady_TCL_DECLARED -/* 522 */ -EXTERN int Tcl_LimitReady(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitCheck_TCL_DECLARED -#define Tcl_LimitCheck_TCL_DECLARED -/* 523 */ -EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitExceeded_TCL_DECLARED -#define Tcl_LimitExceeded_TCL_DECLARED -/* 524 */ -EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitSetCommands_TCL_DECLARED -#define Tcl_LimitSetCommands_TCL_DECLARED -/* 525 */ -EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, - int commandLimit); -#endif -#ifndef Tcl_LimitSetTime_TCL_DECLARED -#define Tcl_LimitSetTime_TCL_DECLARED -/* 526 */ -EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -#endif -#ifndef Tcl_LimitSetGranularity_TCL_DECLARED -#define Tcl_LimitSetGranularity_TCL_DECLARED -/* 527 */ -EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, - int granularity); -#endif -#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED -#define Tcl_LimitTypeEnabled_TCL_DECLARED -/* 528 */ -EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitTypeExceeded_TCL_DECLARED -#define Tcl_LimitTypeExceeded_TCL_DECLARED -/* 529 */ -EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitTypeSet_TCL_DECLARED -#define Tcl_LimitTypeSet_TCL_DECLARED -/* 530 */ -EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitTypeReset_TCL_DECLARED -#define Tcl_LimitTypeReset_TCL_DECLARED -/* 531 */ -EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_LimitGetCommands_TCL_DECLARED -#define Tcl_LimitGetCommands_TCL_DECLARED -/* 532 */ -EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); -#endif -#ifndef Tcl_LimitGetTime_TCL_DECLARED -#define Tcl_LimitGetTime_TCL_DECLARED -/* 533 */ -EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -#endif -#ifndef Tcl_LimitGetGranularity_TCL_DECLARED -#define Tcl_LimitGetGranularity_TCL_DECLARED -/* 534 */ -EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); -#endif -#ifndef Tcl_SaveInterpState_TCL_DECLARED -#define Tcl_SaveInterpState_TCL_DECLARED -/* 535 */ -EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); -#endif -#ifndef Tcl_RestoreInterpState_TCL_DECLARED -#define Tcl_RestoreInterpState_TCL_DECLARED -/* 536 */ -EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, - Tcl_InterpState state); -#endif -#ifndef Tcl_DiscardInterpState_TCL_DECLARED -#define Tcl_DiscardInterpState_TCL_DECLARED -/* 537 */ -EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); -#endif -#ifndef Tcl_SetReturnOptions_TCL_DECLARED -#define Tcl_SetReturnOptions_TCL_DECLARED -/* 538 */ -EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, - Tcl_Obj *options); -#endif -#ifndef Tcl_GetReturnOptions_TCL_DECLARED -#define Tcl_GetReturnOptions_TCL_DECLARED -/* 539 */ -EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); -#endif -#ifndef Tcl_IsEnsemble_TCL_DECLARED -#define Tcl_IsEnsemble_TCL_DECLARED -/* 540 */ -EXTERN int Tcl_IsEnsemble(Tcl_Command token); -#endif -#ifndef Tcl_CreateEnsemble_TCL_DECLARED -#define Tcl_CreateEnsemble_TCL_DECLARED -/* 541 */ -EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *namespacePtr, int flags); -#endif -#ifndef Tcl_FindEnsemble_TCL_DECLARED -#define Tcl_FindEnsemble_TCL_DECLARED -/* 542 */ -EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, - Tcl_Obj *cmdNameObj, int flags); -#endif -#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED -#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED -/* 543 */ -EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *subcmdList); -#endif -#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED -#define Tcl_SetEnsembleMappingDict_TCL_DECLARED -/* 544 */ -EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *mapDict); -#endif -#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED -#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED -/* 545 */ -EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *unknownList); -#endif -#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED -#define Tcl_SetEnsembleFlags_TCL_DECLARED -/* 546 */ -EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int flags); -#endif -#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED -#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED -/* 547 */ -EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **subcmdListPtr); -#endif -#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED -#define Tcl_GetEnsembleMappingDict_TCL_DECLARED -/* 548 */ -EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **mapDictPtr); -#endif -#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED -#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED -/* 549 */ -EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **unknownListPtr); -#endif -#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED -#define Tcl_GetEnsembleFlags_TCL_DECLARED -/* 550 */ -EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int *flagsPtr); -#endif -#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED -#define Tcl_GetEnsembleNamespace_TCL_DECLARED -/* 551 */ -EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, - Tcl_Command token, - Tcl_Namespace **namespacePtrPtr); -#endif -#ifndef Tcl_SetTimeProc_TCL_DECLARED -#define Tcl_SetTimeProc_TCL_DECLARED -/* 552 */ -EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, - Tcl_ScaleTimeProc *scaleProc, - ClientData clientData); -#endif -#ifndef Tcl_QueryTimeProc_TCL_DECLARED -#define Tcl_QueryTimeProc_TCL_DECLARED -/* 553 */ -EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, - Tcl_ScaleTimeProc **scaleProc, - ClientData *clientData); -#endif -#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED -#define Tcl_ChannelThreadActionProc_TCL_DECLARED -/* 554 */ -EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_NewBignumObj_TCL_DECLARED -#define Tcl_NewBignumObj_TCL_DECLARED -/* 555 */ -EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); -#endif -#ifndef Tcl_DbNewBignumObj_TCL_DECLARED -#define Tcl_DbNewBignumObj_TCL_DECLARED -/* 556 */ -EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, CONST char *file, - int line); -#endif -#ifndef Tcl_SetBignumObj_TCL_DECLARED -#define Tcl_SetBignumObj_TCL_DECLARED -/* 557 */ -EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); -#endif -#ifndef Tcl_GetBignumFromObj_TCL_DECLARED -#define Tcl_GetBignumFromObj_TCL_DECLARED -/* 558 */ -EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -#endif -#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED -#define Tcl_TakeBignumFromObj_TCL_DECLARED -/* 559 */ -EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -#endif -#ifndef Tcl_TruncateChannel_TCL_DECLARED -#define Tcl_TruncateChannel_TCL_DECLARED -/* 560 */ -EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, - Tcl_WideInt length); -#endif -#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED -#define Tcl_ChannelTruncateProc_TCL_DECLARED -/* 561 */ -EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( - CONST Tcl_ChannelType *chanTypePtr); -#endif -#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED -#define Tcl_SetChannelErrorInterp_TCL_DECLARED -/* 562 */ -EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj *msg); -#endif -#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED -#define Tcl_GetChannelErrorInterp_TCL_DECLARED -/* 563 */ -EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj **msg); -#endif -#ifndef Tcl_SetChannelError_TCL_DECLARED -#define Tcl_SetChannelError_TCL_DECLARED -/* 564 */ -EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); -#endif -#ifndef Tcl_GetChannelError_TCL_DECLARED -#define Tcl_GetChannelError_TCL_DECLARED -/* 565 */ -EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); -#endif -#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED -#define Tcl_InitBignumFromDouble_TCL_DECLARED -/* 566 */ -EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, - double initval, mp_int *toInit); -#endif -#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED -#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED -/* 567 */ -EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr); -#endif -#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED -#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED -/* 568 */ -EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); -#endif -#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED -#define Tcl_GetEncodingFromObj_TCL_DECLARED -/* 569 */ -EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); -#endif -#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED -#define Tcl_GetEncodingSearchPath_TCL_DECLARED -/* 570 */ -EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); -#endif -#ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED -#define Tcl_SetEncodingSearchPath_TCL_DECLARED -/* 571 */ -EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); -#endif -#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED -#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED -/* 572 */ -EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment( - Tcl_DString *bufPtr); -#endif -#ifndef Tcl_PkgRequireProc_TCL_DECLARED -#define Tcl_PkgRequireProc_TCL_DECLARED -/* 573 */ -EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, - CONST char *name, int objc, - Tcl_Obj *CONST objv[], - ClientData *clientDataPtr); -#endif -#ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED -#define Tcl_AppendObjToErrorInfo_TCL_DECLARED -/* 574 */ -EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_AppendLimitedToObj_TCL_DECLARED -#define Tcl_AppendLimitedToObj_TCL_DECLARED -/* 575 */ -EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, - CONST char *bytes, int length, int limit, - CONST char *ellipsis); -#endif -#ifndef Tcl_Format_TCL_DECLARED -#define Tcl_Format_TCL_DECLARED -/* 576 */ -EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, CONST char *format, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_AppendFormatToObj_TCL_DECLARED -#define Tcl_AppendFormatToObj_TCL_DECLARED -/* 577 */ -EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST char *format, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ObjPrintf_TCL_DECLARED -#define Tcl_ObjPrintf_TCL_DECLARED -/* 578 */ -EXTERN Tcl_Obj * Tcl_ObjPrintf(CONST char *format, ...); -#endif -#ifndef Tcl_AppendPrintfToObj_TCL_DECLARED -#define Tcl_AppendPrintfToObj_TCL_DECLARED -/* 579 */ -EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, - CONST char *format, ...); -#endif -/* Slot 580 is reserved */ -/* Slot 581 is reserved */ -/* Slot 582 is reserved */ -/* Slot 583 is reserved */ -/* Slot 584 is reserved */ -/* Slot 585 is reserved */ -/* Slot 586 is reserved */ -/* Slot 587 is reserved */ -/* Slot 588 is reserved */ -/* Slot 589 is reserved */ -/* Slot 590 is reserved */ -/* Slot 591 is reserved */ -/* Slot 592 is reserved */ -/* Slot 593 is reserved */ -/* Slot 594 is reserved */ -/* Slot 595 is reserved */ -/* Slot 596 is reserved */ -/* Slot 597 is reserved */ -/* Slot 598 is reserved */ -/* Slot 599 is reserved */ -/* Slot 600 is reserved */ -/* Slot 601 is reserved */ -/* Slot 602 is reserved */ -/* Slot 603 is reserved */ -/* Slot 604 is reserved */ -/* Slot 605 is reserved */ -/* Slot 606 is reserved */ -/* Slot 607 is reserved */ -/* Slot 608 is reserved */ -/* Slot 609 is reserved */ -/* Slot 610 is reserved */ -/* Slot 611 is reserved */ -/* Slot 612 is reserved */ -/* Slot 613 is reserved */ -/* Slot 614 is reserved */ -/* Slot 615 is reserved */ -/* Slot 616 is reserved */ -/* Slot 617 is reserved */ -/* Slot 618 is reserved */ -/* Slot 619 is reserved */ -/* Slot 620 is reserved */ -/* Slot 621 is reserved */ -/* Slot 622 is reserved */ -/* Slot 623 is reserved */ -/* Slot 624 is reserved */ -/* Slot 625 is reserved */ -/* Slot 626 is reserved */ -/* Slot 627 is reserved */ -/* Slot 628 is reserved */ -/* Slot 629 is reserved */ -/* Slot 630 is reserved */ -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -#ifndef TclUnusedStubEntry_TCL_DECLARED -#define TclUnusedStubEntry_TCL_DECLARED -/* 648 */ -EXTERN void TclUnusedStubEntry(void); -#endif - -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); /* 0 */ - CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 1 */ - void (*tcl_Panic) (CONST char *format, ...); /* 2 */ - char * (*tcl_Alloc) (unsigned int size); /* 3 */ - void (*tcl_Free) (char *ptr); /* 4 */ - char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ - char * (*tcl_DbCkalloc) (unsigned int size, CONST char *file, int line); /* 6 */ - void (*tcl_DbCkfree) (char *ptr, CONST char *file, int line); /* 7 */ - char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, CONST char *file, int line); /* 8 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* UNIX */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved9; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* UNIX */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved10; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* MACOSX */ - void (*tcl_SetTimer) (Tcl_Time *timePtr); /* 11 */ - void (*tcl_Sleep) (int ms); /* 12 */ - int (*tcl_WaitForEvent) (Tcl_Time *timePtr); /* 13 */ - int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ - void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ - void (*tcl_AppendToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length); /* 16 */ - Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */ - int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjType *typePtr); /* 18 */ - void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line); /* 19 */ - void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line); /* 20 */ - int (*tcl_DbIsShared) (Tcl_Obj *objPtr, CONST char *file, int line); /* 21 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char *file, int line); /* 22 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char *bytes, int length, CONST char *file, int line); /* 23 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char *file, int line); /* 24 */ - Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST *objv, CONST char *file, int line); /* 25 */ - Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char *file, int line); /* 26 */ - Tcl_Obj * (*tcl_DbNewObj) (CONST char *file, int line); /* 27 */ - Tcl_Obj * (*tcl_DbNewStringObj) (CONST char *bytes, int length, CONST char *file, int line); /* 28 */ - Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ - void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ - int (*tcl_GetBoolean) (Tcl_Interp *interp, CONST char *src, int *boolPtr); /* 31 */ - int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ - unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */ - int (*tcl_GetDouble) (Tcl_Interp *interp, CONST char *src, double *doublePtr); /* 34 */ - int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */ - int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr); /* 36 */ - int (*tcl_GetInt) (Tcl_Interp *interp, CONST char *src, int *intPtr); /* 37 */ - int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */ - int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */ - Tcl_ObjType * (*tcl_GetObjType) (CONST char *typeName); /* 40 */ - char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ - void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ - int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */ - int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ - int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ - int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */ - int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */ - int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */ - Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ - Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char *bytes, int length); /* 50 */ - Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ - Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ - Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */ - Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ - Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ - Tcl_Obj * (*tcl_NewStringObj) (CONST char *bytes, int length); /* 56 */ - void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ - unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */ - void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, CONST unsigned char *bytes, int length); /* 59 */ - void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */ - void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ - void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[]); /* 62 */ - void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ - void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ - void (*tcl_SetStringObj) (Tcl_Obj *objPtr, CONST char *bytes, int length); /* 65 */ - void (*tcl_AddErrorInfo) (Tcl_Interp *interp, CONST char *message); /* 66 */ - void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, CONST char *message, int length); /* 67 */ - void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ - void (*tcl_AppendElement) (Tcl_Interp *interp, CONST char *element); /* 69 */ - void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */ - void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ - int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ - void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ - int (*tcl_AsyncReady) (void); /* 75 */ - void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ - char (*tcl_Backslash) (CONST char *src, int *readPtr); /* 77 */ - int (*tcl_BadChannelOption) (Tcl_Interp *interp, CONST char *optionName, CONST char *optionList); /* 78 */ - void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ - void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ - int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ - int (*tcl_CommandComplete) (CONST char *cmd); /* 82 */ - char * (*tcl_Concat) (int argc, CONST84 char *CONST *argv); /* 83 */ - int (*tcl_ConvertElement) (CONST char *src, char *dst, int flags); /* 84 */ - int (*tcl_ConvertCountedElement) (CONST char *src, int length, char *dst, int flags); /* 85 */ - int (*tcl_CreateAlias) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int argc, CONST84 char *CONST *argv); /* 86 */ - int (*tcl_CreateAliasObj) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONST objv[]); /* 87 */ - Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType *typePtr, CONST char *chanName, ClientData instanceData, int mask); /* 88 */ - void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */ - void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ - Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */ - void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */ - void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */ - Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ - void (*tcl_CreateMathFunc) (Tcl_Interp *interp, CONST char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */ - Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, CONST char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */ - Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, CONST char *slaveName, int isSafe); /* 97 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */ - Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */ - void (*tcl_DeleteAssocData) (Tcl_Interp *interp, CONST char *name); /* 100 */ - void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */ - void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ - int (*tcl_DeleteCommand) (Tcl_Interp *interp, CONST char *cmdName); /* 103 */ - int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */ - void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */ - void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */ - void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */ - void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ - void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ - void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ - void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ - void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */ - void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */ - int (*tcl_DoOneEvent) (int flags); /* 115 */ - void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ - char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, CONST char *bytes, int length); /* 117 */ - char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, CONST char *element); /* 118 */ - void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ - void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ - void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ - void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ - void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ - void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */ - void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ - int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ - CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ - CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ - int (*tcl_Eval) (Tcl_Interp *interp, CONST char *script); /* 129 */ - int (*tcl_EvalFile) (Tcl_Interp *interp, CONST char *fileName); /* 130 */ - int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ - void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */ - void (*tcl_Exit) (int status); /* 133 */ - int (*tcl_ExposeCommand) (Tcl_Interp *interp, CONST char *hiddenCmdToken, CONST char *cmdName); /* 134 */ - int (*tcl_ExprBoolean) (Tcl_Interp *interp, CONST char *expr, int *ptr); /* 135 */ - int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */ - int (*tcl_ExprDouble) (Tcl_Interp *interp, CONST char *expr, double *ptr); /* 137 */ - int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */ - int (*tcl_ExprLong) (Tcl_Interp *interp, CONST char *expr, long *ptr); /* 139 */ - int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */ - int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */ - int (*tcl_ExprString) (Tcl_Interp *interp, CONST char *expr); /* 142 */ - void (*tcl_Finalize) (void); /* 143 */ - void (*tcl_FindExecutable) (CONST char *argv0); /* 144 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ - int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ - void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ - int (*tcl_GetAlias) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */ - int (*tcl_GetAliasObj) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ - ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ - Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, CONST char *chanName, int *modePtr); /* 151 */ - int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ - int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */ - ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ - int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ - CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ - int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, Tcl_DString *dsPtr); /* 157 */ - Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ - int (*tcl_GetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */ - CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */ - int (*tcl_GetErrno) (void); /* 161 */ - CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ - int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */ - Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ - CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */ - Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* UNIX */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved167; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* MACOSX */ - Tcl_PathType (*tcl_GetPathType) (CONST char *path); /* 168 */ - int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ - int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ - int (*tcl_GetServiceMode) (void); /* 171 */ - Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, CONST char *slaveName); /* 172 */ - Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ - CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */ - CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, CONST char *varName, int flags); /* 175 */ - CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 176 */ - int (*tcl_GlobalEval) (Tcl_Interp *interp, CONST char *command); /* 177 */ - int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ - int (*tcl_HideCommand) (Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken); /* 179 */ - int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ - void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */ - int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ - int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ - int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ - int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ - char * (*tcl_JoinPath) (int argc, CONST84 char *CONST *argv, Tcl_DString *resultPtr); /* 186 */ - int (*tcl_LinkVar) (Tcl_Interp *interp, CONST char *varName, char *addr, int type); /* 187 */ - VOID *reserved188; - Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ - int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ - char * (*tcl_Merge) (int argc, CONST84 char *CONST *argv); /* 192 */ - Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */ - void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ - Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */ - Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */ - Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, CONST char *fileName, CONST char *modeString, int permissions); /* 198 */ - Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, CONST char *address, CONST char *myaddr, int myport, int async); /* 199 */ - Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, CONST char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */ - void (*tcl_Preserve) (ClientData data); /* 201 */ - void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ - int (*tcl_PutEnv) (CONST char *assignment); /* 203 */ - CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ - void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ - int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ - int (*tcl_RecordAndEval) (Tcl_Interp *interp, CONST char *cmd, int flags); /* 208 */ - int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ - void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ - void (*tcl_RegisterObjType) (Tcl_ObjType *typePtr); /* 211 */ - Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, CONST char *pattern); /* 212 */ - int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, CONST char *text, CONST char *start); /* 213 */ - int (*tcl_RegExpMatch) (Tcl_Interp *interp, CONST char *text, CONST char *pattern); /* 214 */ - void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ - void (*tcl_Release) (ClientData clientData); /* 216 */ - void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ - int (*tcl_ScanElement) (CONST char *src, int *flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (CONST char *src, int length, int *flagPtr); /* 219 */ - int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ - int (*tcl_ServiceAll) (void); /* 221 */ - int (*tcl_ServiceEvent) (int flags); /* 222 */ - void (*tcl_SetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */ - void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ - int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, CONST char *newValue); /* 225 */ - int (*tcl_SetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, CONST Tcl_CmdInfo *infoPtr); /* 226 */ - void (*tcl_SetErrno) (int err); /* 227 */ - void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ - void (*tcl_SetMaxBlockTime) (Tcl_Time *timePtr); /* 229 */ - void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */ - int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ - void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */ - int (*tcl_SetServiceMode) (int mode); /* 233 */ - void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ - void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */ - void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ - CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, CONST char *varName, CONST char *newValue, int flags); /* 237 */ - CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *newValue, int flags); /* 238 */ - CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ - CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ - void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ - int (*tcl_SplitList) (Tcl_Interp *interp, CONST char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */ - void (*tcl_SplitPath) (CONST char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */ - void (*tcl_StaticPackage) (Tcl_Interp *interp, CONST char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ - int (*tcl_StringMatch) (CONST char *str, CONST char *pattern); /* 245 */ - int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ - int (*tcl_TraceVar) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ - int (*tcl_TraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */ - char * (*tcl_TranslateFileName) (Tcl_Interp *interp, CONST char *name, Tcl_DString *bufferPtr); /* 249 */ - int (*tcl_Ungets) (Tcl_Channel chan, CONST char *str, int len, int atHead); /* 250 */ - void (*tcl_UnlinkVar) (Tcl_Interp *interp, CONST char *varName); /* 251 */ - int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ - int (*tcl_UnsetVar) (Tcl_Interp *interp, CONST char *varName, int flags); /* 253 */ - int (*tcl_UnsetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 254 */ - void (*tcl_UntraceVar) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ - void (*tcl_UntraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */ - void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, CONST char *varName); /* 257 */ - int (*tcl_UpVar) (Tcl_Interp *interp, CONST char *frameName, CONST char *varName, CONST char *localName, int flags); /* 258 */ - int (*tcl_UpVar2) (Tcl_Interp *interp, CONST char *frameName, CONST char *part1, CONST char *part2, CONST char *localName, int flags); /* 259 */ - int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ - ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */ - ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */ - int (*tcl_Write) (Tcl_Channel chan, CONST char *s, int slen); /* 263 */ - void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], CONST char *message); /* 264 */ - int (*tcl_DumpActiveMemory) (CONST char *fileName); /* 265 */ - void (*tcl_ValidateAllMemory) (CONST char *file, int line); /* 266 */ - void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */ - void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ - char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ - CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, CONST char *start, CONST84 char **termPtr); /* 270 */ - CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact); /* 271 */ - CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 272 */ - int (*tcl_PkgProvide) (Tcl_Interp *interp, CONST char *name, CONST char *version); /* 273 */ - CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact); /* 274 */ - void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */ - int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ - Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ - void (*tcl_PanicVA) (CONST char *format, va_list argList); /* 278 */ - void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */ - void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ - Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ - int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */ - Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ - void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ - VOID *reserved285; - void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ - Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType *typePtr); /* 287 */ - void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */ - void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */ - void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ - int (*tcl_EvalEx) (Tcl_Interp *interp, CONST char *script, int numBytes, int flags); /* 291 */ - int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 292 */ - int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ - void (*tcl_ExitThread) (int status); /* 294 */ - 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); /* 295 */ - char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */ - void (*tcl_FinalizeThread) (void); /* 297 */ - void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ - void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ - Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ - Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, CONST char *name); /* 301 */ - CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ - void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ - int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST VOID *tablePtr, int offset, CONST char *msg, int flags, int *indexPtr); /* 304 */ - VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */ - Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 306 */ - ClientData (*tcl_InitNotifier) (void); /* 307 */ - void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ - void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ - void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ - void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); /* 311 */ - int (*tcl_NumUtfChars) (CONST char *src, int length); /* 312 */ - int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */ - void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */ - void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ - int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, CONST char *name); /* 316 */ - Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ - void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ - void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ - Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char *src, int index); /* 320 */ - Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ - Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ - Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ - int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ - CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char *src, int index); /* 325 */ - int (*tcl_UtfCharComplete) (CONST char *src, int length); /* 326 */ - int (*tcl_UtfBackslash) (CONST char *src, int *readPtr, char *dst); /* 327 */ - CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char *src, int ch); /* 328 */ - CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char *src, int ch); /* 329 */ - CONST84_RETURN char * (*tcl_UtfNext) (CONST char *src); /* 330 */ - CONST84_RETURN char * (*tcl_UtfPrev) (CONST char *src, CONST char *start); /* 331 */ - 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); /* 332 */ - char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */ - int (*tcl_UtfToLower) (char *src); /* 334 */ - int (*tcl_UtfToTitle) (char *src); /* 335 */ - int (*tcl_UtfToUniChar) (CONST char *src, Tcl_UniChar *chPtr); /* 336 */ - int (*tcl_UtfToUpper) (char *src); /* 337 */ - int (*tcl_WriteChars) (Tcl_Channel chan, CONST char *src, int srcLen); /* 338 */ - int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ - char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ - CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ - void (*tcl_SetDefaultEncodingDir) (CONST char *path); /* 342 */ - void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ - void (*tcl_ServiceModeHook) (int mode); /* 344 */ - int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ - int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ - int (*tcl_UniCharIsDigit) (int ch); /* 347 */ - int (*tcl_UniCharIsLower) (int ch); /* 348 */ - int (*tcl_UniCharIsSpace) (int ch); /* 349 */ - int (*tcl_UniCharIsUpper) (int ch); /* 350 */ - int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ - int (*tcl_UniCharLen) (CONST Tcl_UniChar *uniStr); /* 352 */ - int (*tcl_UniCharNcmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars); /* 353 */ - char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */ - Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char *src, int length, Tcl_DString *dsPtr); /* 355 */ - Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */ - Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */ - void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ - void (*tcl_LogCommandInfo) (Tcl_Interp *interp, CONST char *script, CONST char *command, int length); /* 359 */ - int (*tcl_ParseBraces) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ - int (*tcl_ParseCommand) (Tcl_Interp *interp, CONST char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */ - int (*tcl_ParseExpr) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */ - int (*tcl_ParseQuotedString) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */ - int (*tcl_ParseVarName) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */ - char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ - int (*tcl_Chdir) (CONST char *dirName); /* 366 */ - int (*tcl_Access) (CONST char *path, int mode); /* 367 */ - int (*tcl_Stat) (CONST char *path, struct stat *bufPtr); /* 368 */ - int (*tcl_UtfNcmp) (CONST char *s1, CONST char *s2, unsigned long n); /* 369 */ - int (*tcl_UtfNcasecmp) (CONST char *s1, CONST char *s2, unsigned long n); /* 370 */ - int (*tcl_StringCaseMatch) (CONST char *str, CONST char *pattern, int nocase); /* 371 */ - int (*tcl_UniCharIsControl) (int ch); /* 372 */ - int (*tcl_UniCharIsGraph) (int ch); /* 373 */ - int (*tcl_UniCharIsPrint) (int ch); /* 374 */ - int (*tcl_UniCharIsPunct) (int ch); /* 375 */ - int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */ - void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ - Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar *unicode, int numChars); /* 378 */ - void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int numChars); /* 379 */ - int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ - Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ - Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ - Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */ - void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int length); /* 384 */ - int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ - void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ - Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ - int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ - int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, CONST char *pattern); /* 389 */ - int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 390 */ - void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ - void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ - int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); /* 393 */ - int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */ - int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char *src, int srcLen); /* 395 */ - Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ - int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ - CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType *chanTypePtr); /* 398 */ - Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType *chanTypePtr); /* 399 */ - Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_ChannelType *chanTypePtr); /* 400 */ - Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType *chanTypePtr); /* 401 */ - Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType *chanTypePtr); /* 402 */ - Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType *chanTypePtr); /* 403 */ - Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType *chanTypePtr); /* 404 */ - Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType *chanTypePtr); /* 405 */ - Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 406 */ - Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 407 */ - Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType *chanTypePtr); /* 408 */ - Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_ChannelType *chanTypePtr); /* 409 */ - Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType *chanTypePtr); /* 410 */ - Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelType *chanTypePtr); /* 411 */ - int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ - int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ - int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */ - void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ - void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ - void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ - int (*tcl_IsChannelExisting) (CONST char *channelName); /* 418 */ - int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars); /* 419 */ - int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar *uniPattern, int nocase); /* 420 */ - Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, CONST char *key); /* 421 */ - Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, CONST char *key, int *newPtr); /* 422 */ - void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, Tcl_HashKeyType *typePtr); /* 423 */ - void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ - ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */ - int (*tcl_TraceCommand) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ - void (*tcl_UntraceCommand) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ - char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ - char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char *file, int line); /* 429 */ - char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ - char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, CONST char *file, int line); /* 431 */ - int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ - Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ - Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */ - int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, CONST char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */ - Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, CONST char *pattern); /* 436 */ - Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */ - int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ - int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ - int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */ - int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ - int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ - int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ - 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); /* 444 */ - int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types); /* 445 */ - Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */ - int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ - int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ - int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ - int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ - int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */ - int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */ - CONST char ** (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */ - int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ - int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ - Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char *modeString, int permissions); /* 456 */ - Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ - int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ - int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ - Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ - Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ - int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ - Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */ - Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *CONST objv[]); /* 464 */ - ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, Tcl_Filesystem *fsPtr); /* 465 */ - Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ - int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ - Tcl_Obj * (*tcl_FSNewNativePath) (Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ - CONST char * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ - Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ - Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ - Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ - int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem *fsPtr); /* 473 */ - int (*tcl_FSUnregister) (Tcl_Filesystem *fsPtr); /* 474 */ - ClientData (*tcl_FSData) (Tcl_Filesystem *fsPtr); /* 475 */ - CONST char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */ - Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */ - Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ - int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ - void (*tcl_FSMountsChanged) (Tcl_Filesystem *fsPtr); /* 480 */ - int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ - void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ - Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */ - int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */ - int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInfo *infoPtr); /* 485 */ - Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char *file, int line); /* 486 */ - int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */ - Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ - void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ - Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ - Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ - Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ - Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelType *chanTypePtr); /* 493 */ - int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */ - int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ - int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ - int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */ - int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */ - void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ - void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ - int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); /* 501 */ - int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *CONST *keyv); /* 502 */ - Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ - Tcl_Obj * (*tcl_DbNewDictObj) (CONST char *file, int line); /* 504 */ - void (*tcl_RegisterConfig) (Tcl_Interp *interp, CONST char *pkgName, Tcl_Config *configuration, CONST char *valEncoding); /* 505 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 509 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 510 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 511 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */ - int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, CONST char *encodingName); /* 518 */ - Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */ - void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */ - void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */ - int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ - int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ - int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ - void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ - void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ - void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */ - int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ - int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */ - void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */ - void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ - int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ - void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ - int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */ - Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */ - int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */ - void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ - int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ - Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ - int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ - Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */ - Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */ - int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */ - int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */ - int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */ - int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ - int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */ - int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */ - int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */ - int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ - int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ - void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */ - void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ - Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 554 */ - Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ - Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, CONST char *file, int line); /* 556 */ - void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ - int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */ - int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ - int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ - Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelType *chanTypePtr); /* 561 */ - void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */ - void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ - void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ - void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */ - int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */ - Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */ - int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ - int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */ - Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ - int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ - CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */ - int (*tcl_PkgRequireProc) (Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr); /* 573 */ - void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ - void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length, int limit, CONST char *ellipsis); /* 575 */ - Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, CONST char *format, int objc, Tcl_Obj *CONST objv[]); /* 576 */ - int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST char *format, int objc, Tcl_Obj *CONST objv[]); /* 577 */ - Tcl_Obj * (*tcl_ObjPrintf) (CONST char *format, ...); /* 578 */ - void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, CONST char *format, ...); /* 579 */ - VOID *reserved580; - VOID *reserved581; - VOID *reserved582; - VOID *reserved583; - VOID *reserved584; - VOID *reserved585; - VOID *reserved586; - VOID *reserved587; - VOID *reserved588; - VOID *reserved589; - VOID *reserved590; - VOID *reserved591; - VOID *reserved592; - VOID *reserved593; - VOID *reserved594; - VOID *reserved595; - VOID *reserved596; - VOID *reserved597; - VOID *reserved598; - VOID *reserved599; - VOID *reserved600; - VOID *reserved601; - VOID *reserved602; - VOID *reserved603; - VOID *reserved604; - VOID *reserved605; - VOID *reserved606; - VOID *reserved607; - VOID *reserved608; - VOID *reserved609; - VOID *reserved610; - VOID *reserved611; - VOID *reserved612; - VOID *reserved613; - VOID *reserved614; - VOID *reserved615; - VOID *reserved616; - VOID *reserved617; - VOID *reserved618; - VOID *reserved619; - VOID *reserved620; - VOID *reserved621; - VOID *reserved622; - VOID *reserved623; - VOID *reserved624; - VOID *reserved625; - VOID *reserved626; - VOID *reserved627; - VOID *reserved628; - VOID *reserved629; - VOID *reserved630; - VOID *reserved631; - VOID *reserved632; - VOID *reserved633; - VOID *reserved634; - VOID *reserved635; - VOID *reserved636; - VOID *reserved637; - VOID *reserved638; - VOID *reserved639; - VOID *reserved640; - VOID *reserved641; - VOID *reserved642; - VOID *reserved643; - VOID *reserved644; - VOID *reserved645; - VOID *reserved646; - VOID *reserved647; - void (*tclUnusedStubEntry) (void); /* 648 */ -} TclStubs; - -extern TclStubs *tclStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tcl_PkgProvideEx -#define Tcl_PkgProvideEx \ - (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ -#endif -#ifndef Tcl_PkgRequireEx -#define Tcl_PkgRequireEx \ - (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ -#endif -#ifndef Tcl_Panic -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 2 */ -#endif -#ifndef Tcl_Alloc -#define Tcl_Alloc \ - (tclStubsPtr->tcl_Alloc) /* 3 */ -#endif -#ifndef Tcl_Free -#define Tcl_Free \ - (tclStubsPtr->tcl_Free) /* 4 */ -#endif -#ifndef Tcl_Realloc -#define Tcl_Realloc \ - (tclStubsPtr->tcl_Realloc) /* 5 */ -#endif -#ifndef Tcl_DbCkalloc -#define Tcl_DbCkalloc \ - (tclStubsPtr->tcl_DbCkalloc) /* 6 */ -#endif -#ifndef Tcl_DbCkfree -#define Tcl_DbCkfree \ - (tclStubsPtr->tcl_DbCkfree) /* 7 */ -#endif -#ifndef Tcl_DbCkrealloc -#define Tcl_DbCkrealloc \ - (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_SetTimer -#define Tcl_SetTimer \ - (tclStubsPtr->tcl_SetTimer) /* 11 */ -#endif -#ifndef Tcl_Sleep -#define Tcl_Sleep \ - (tclStubsPtr->tcl_Sleep) /* 12 */ -#endif -#ifndef Tcl_WaitForEvent -#define Tcl_WaitForEvent \ - (tclStubsPtr->tcl_WaitForEvent) /* 13 */ -#endif -#ifndef Tcl_AppendAllObjTypes -#define Tcl_AppendAllObjTypes \ - (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ -#endif -#ifndef Tcl_AppendStringsToObj -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ -#endif -#ifndef Tcl_AppendToObj -#define Tcl_AppendToObj \ - (tclStubsPtr->tcl_AppendToObj) /* 16 */ -#endif -#ifndef Tcl_ConcatObj -#define Tcl_ConcatObj \ - (tclStubsPtr->tcl_ConcatObj) /* 17 */ -#endif -#ifndef Tcl_ConvertToType -#define Tcl_ConvertToType \ - (tclStubsPtr->tcl_ConvertToType) /* 18 */ -#endif -#ifndef Tcl_DbDecrRefCount -#define Tcl_DbDecrRefCount \ - (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ -#endif -#ifndef Tcl_DbIncrRefCount -#define Tcl_DbIncrRefCount \ - (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ -#endif -#ifndef Tcl_DbIsShared -#define Tcl_DbIsShared \ - (tclStubsPtr->tcl_DbIsShared) /* 21 */ -#endif -#ifndef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj \ - (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ -#endif -#ifndef Tcl_DbNewByteArrayObj -#define Tcl_DbNewByteArrayObj \ - (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ -#endif -#ifndef Tcl_DbNewDoubleObj -#define Tcl_DbNewDoubleObj \ - (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ -#endif -#ifndef Tcl_DbNewListObj -#define Tcl_DbNewListObj \ - (tclStubsPtr->tcl_DbNewListObj) /* 25 */ -#endif -#ifndef Tcl_DbNewLongObj -#define Tcl_DbNewLongObj \ - (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ -#endif -#ifndef Tcl_DbNewObj -#define Tcl_DbNewObj \ - (tclStubsPtr->tcl_DbNewObj) /* 27 */ -#endif -#ifndef Tcl_DbNewStringObj -#define Tcl_DbNewStringObj \ - (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ -#endif -#ifndef Tcl_DuplicateObj -#define Tcl_DuplicateObj \ - (tclStubsPtr->tcl_DuplicateObj) /* 29 */ -#endif -#ifndef TclFreeObj -#define TclFreeObj \ - (tclStubsPtr->tclFreeObj) /* 30 */ -#endif -#ifndef Tcl_GetBoolean -#define Tcl_GetBoolean \ - (tclStubsPtr->tcl_GetBoolean) /* 31 */ -#endif -#ifndef Tcl_GetBooleanFromObj -#define Tcl_GetBooleanFromObj \ - (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ -#endif -#ifndef Tcl_GetByteArrayFromObj -#define Tcl_GetByteArrayFromObj \ - (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ -#endif -#ifndef Tcl_GetDouble -#define Tcl_GetDouble \ - (tclStubsPtr->tcl_GetDouble) /* 34 */ -#endif -#ifndef Tcl_GetDoubleFromObj -#define Tcl_GetDoubleFromObj \ - (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ -#endif -#ifndef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj \ - (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ -#endif -#ifndef Tcl_GetInt -#define Tcl_GetInt \ - (tclStubsPtr->tcl_GetInt) /* 37 */ -#endif -#ifndef Tcl_GetIntFromObj -#define Tcl_GetIntFromObj \ - (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ -#endif -#ifndef Tcl_GetLongFromObj -#define Tcl_GetLongFromObj \ - (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ -#endif -#ifndef Tcl_GetObjType -#define Tcl_GetObjType \ - (tclStubsPtr->tcl_GetObjType) /* 40 */ -#endif -#ifndef Tcl_GetStringFromObj -#define Tcl_GetStringFromObj \ - (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ -#endif -#ifndef Tcl_InvalidateStringRep -#define Tcl_InvalidateStringRep \ - (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ -#endif -#ifndef Tcl_ListObjAppendList -#define Tcl_ListObjAppendList \ - (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ -#endif -#ifndef Tcl_ListObjAppendElement -#define Tcl_ListObjAppendElement \ - (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ -#endif -#ifndef Tcl_ListObjGetElements -#define Tcl_ListObjGetElements \ - (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ -#endif -#ifndef Tcl_ListObjIndex -#define Tcl_ListObjIndex \ - (tclStubsPtr->tcl_ListObjIndex) /* 46 */ -#endif -#ifndef Tcl_ListObjLength -#define Tcl_ListObjLength \ - (tclStubsPtr->tcl_ListObjLength) /* 47 */ -#endif -#ifndef Tcl_ListObjReplace -#define Tcl_ListObjReplace \ - (tclStubsPtr->tcl_ListObjReplace) /* 48 */ -#endif -#ifndef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj \ - (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ -#endif -#ifndef Tcl_NewByteArrayObj -#define Tcl_NewByteArrayObj \ - (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ -#endif -#ifndef Tcl_NewDoubleObj -#define Tcl_NewDoubleObj \ - (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ -#endif -#ifndef Tcl_NewIntObj -#define Tcl_NewIntObj \ - (tclStubsPtr->tcl_NewIntObj) /* 52 */ -#endif -#ifndef Tcl_NewListObj -#define Tcl_NewListObj \ - (tclStubsPtr->tcl_NewListObj) /* 53 */ -#endif -#ifndef Tcl_NewLongObj -#define Tcl_NewLongObj \ - (tclStubsPtr->tcl_NewLongObj) /* 54 */ -#endif -#ifndef Tcl_NewObj -#define Tcl_NewObj \ - (tclStubsPtr->tcl_NewObj) /* 55 */ -#endif -#ifndef Tcl_NewStringObj -#define Tcl_NewStringObj \ - (tclStubsPtr->tcl_NewStringObj) /* 56 */ -#endif -#ifndef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj \ - (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ -#endif -#ifndef Tcl_SetByteArrayLength -#define Tcl_SetByteArrayLength \ - (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ -#endif -#ifndef Tcl_SetByteArrayObj -#define Tcl_SetByteArrayObj \ - (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ -#endif -#ifndef Tcl_SetDoubleObj -#define Tcl_SetDoubleObj \ - (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ -#endif -#ifndef Tcl_SetIntObj -#define Tcl_SetIntObj \ - (tclStubsPtr->tcl_SetIntObj) /* 61 */ -#endif -#ifndef Tcl_SetListObj -#define Tcl_SetListObj \ - (tclStubsPtr->tcl_SetListObj) /* 62 */ -#endif -#ifndef Tcl_SetLongObj -#define Tcl_SetLongObj \ - (tclStubsPtr->tcl_SetLongObj) /* 63 */ -#endif -#ifndef Tcl_SetObjLength -#define Tcl_SetObjLength \ - (tclStubsPtr->tcl_SetObjLength) /* 64 */ -#endif -#ifndef Tcl_SetStringObj -#define Tcl_SetStringObj \ - (tclStubsPtr->tcl_SetStringObj) /* 65 */ -#endif -#ifndef Tcl_AddErrorInfo -#define Tcl_AddErrorInfo \ - (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ -#endif -#ifndef Tcl_AddObjErrorInfo -#define Tcl_AddObjErrorInfo \ - (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ -#endif -#ifndef Tcl_AllowExceptions -#define Tcl_AllowExceptions \ - (tclStubsPtr->tcl_AllowExceptions) /* 68 */ -#endif -#ifndef Tcl_AppendElement -#define Tcl_AppendElement \ - (tclStubsPtr->tcl_AppendElement) /* 69 */ -#endif -#ifndef Tcl_AppendResult -#define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 70 */ -#endif -#ifndef Tcl_AsyncCreate -#define Tcl_AsyncCreate \ - (tclStubsPtr->tcl_AsyncCreate) /* 71 */ -#endif -#ifndef Tcl_AsyncDelete -#define Tcl_AsyncDelete \ - (tclStubsPtr->tcl_AsyncDelete) /* 72 */ -#endif -#ifndef Tcl_AsyncInvoke -#define Tcl_AsyncInvoke \ - (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ -#endif -#ifndef Tcl_AsyncMark -#define Tcl_AsyncMark \ - (tclStubsPtr->tcl_AsyncMark) /* 74 */ -#endif -#ifndef Tcl_AsyncReady -#define Tcl_AsyncReady \ - (tclStubsPtr->tcl_AsyncReady) /* 75 */ -#endif -#ifndef Tcl_BackgroundError -#define Tcl_BackgroundError \ - (tclStubsPtr->tcl_BackgroundError) /* 76 */ -#endif -#ifndef Tcl_Backslash -#define Tcl_Backslash \ - (tclStubsPtr->tcl_Backslash) /* 77 */ -#endif -#ifndef Tcl_BadChannelOption -#define Tcl_BadChannelOption \ - (tclStubsPtr->tcl_BadChannelOption) /* 78 */ -#endif -#ifndef Tcl_CallWhenDeleted -#define Tcl_CallWhenDeleted \ - (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ -#endif -#ifndef Tcl_CancelIdleCall -#define Tcl_CancelIdleCall \ - (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ -#endif -#ifndef Tcl_Close -#define Tcl_Close \ - (tclStubsPtr->tcl_Close) /* 81 */ -#endif -#ifndef Tcl_CommandComplete -#define Tcl_CommandComplete \ - (tclStubsPtr->tcl_CommandComplete) /* 82 */ -#endif -#ifndef Tcl_Concat -#define Tcl_Concat \ - (tclStubsPtr->tcl_Concat) /* 83 */ -#endif -#ifndef Tcl_ConvertElement -#define Tcl_ConvertElement \ - (tclStubsPtr->tcl_ConvertElement) /* 84 */ -#endif -#ifndef Tcl_ConvertCountedElement -#define Tcl_ConvertCountedElement \ - (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ -#endif -#ifndef Tcl_CreateAlias -#define Tcl_CreateAlias \ - (tclStubsPtr->tcl_CreateAlias) /* 86 */ -#endif -#ifndef Tcl_CreateAliasObj -#define Tcl_CreateAliasObj \ - (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ -#endif -#ifndef Tcl_CreateChannel -#define Tcl_CreateChannel \ - (tclStubsPtr->tcl_CreateChannel) /* 88 */ -#endif -#ifndef Tcl_CreateChannelHandler -#define Tcl_CreateChannelHandler \ - (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ -#endif -#ifndef Tcl_CreateCloseHandler -#define Tcl_CreateCloseHandler \ - (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ -#endif -#ifndef Tcl_CreateCommand -#define Tcl_CreateCommand \ - (tclStubsPtr->tcl_CreateCommand) /* 91 */ -#endif -#ifndef Tcl_CreateEventSource -#define Tcl_CreateEventSource \ - (tclStubsPtr->tcl_CreateEventSource) /* 92 */ -#endif -#ifndef Tcl_CreateExitHandler -#define Tcl_CreateExitHandler \ - (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ -#endif -#ifndef Tcl_CreateInterp -#define Tcl_CreateInterp \ - (tclStubsPtr->tcl_CreateInterp) /* 94 */ -#endif -#ifndef Tcl_CreateMathFunc -#define Tcl_CreateMathFunc \ - (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ -#endif -#ifndef Tcl_CreateObjCommand -#define Tcl_CreateObjCommand \ - (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ -#endif -#ifndef Tcl_CreateSlave -#define Tcl_CreateSlave \ - (tclStubsPtr->tcl_CreateSlave) /* 97 */ -#endif -#ifndef Tcl_CreateTimerHandler -#define Tcl_CreateTimerHandler \ - (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ -#endif -#ifndef Tcl_CreateTrace -#define Tcl_CreateTrace \ - (tclStubsPtr->tcl_CreateTrace) /* 99 */ -#endif -#ifndef Tcl_DeleteAssocData -#define Tcl_DeleteAssocData \ - (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ -#endif -#ifndef Tcl_DeleteChannelHandler -#define Tcl_DeleteChannelHandler \ - (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ -#endif -#ifndef Tcl_DeleteCloseHandler -#define Tcl_DeleteCloseHandler \ - (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ -#endif -#ifndef Tcl_DeleteCommand -#define Tcl_DeleteCommand \ - (tclStubsPtr->tcl_DeleteCommand) /* 103 */ -#endif -#ifndef Tcl_DeleteCommandFromToken -#define Tcl_DeleteCommandFromToken \ - (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ -#endif -#ifndef Tcl_DeleteEvents -#define Tcl_DeleteEvents \ - (tclStubsPtr->tcl_DeleteEvents) /* 105 */ -#endif -#ifndef Tcl_DeleteEventSource -#define Tcl_DeleteEventSource \ - (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ -#endif -#ifndef Tcl_DeleteExitHandler -#define Tcl_DeleteExitHandler \ - (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ -#endif -#ifndef Tcl_DeleteHashEntry -#define Tcl_DeleteHashEntry \ - (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ -#endif -#ifndef Tcl_DeleteHashTable -#define Tcl_DeleteHashTable \ - (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ -#endif -#ifndef Tcl_DeleteInterp -#define Tcl_DeleteInterp \ - (tclStubsPtr->tcl_DeleteInterp) /* 110 */ -#endif -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#ifndef Tcl_DeleteTimerHandler -#define Tcl_DeleteTimerHandler \ - (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ -#endif -#ifndef Tcl_DeleteTrace -#define Tcl_DeleteTrace \ - (tclStubsPtr->tcl_DeleteTrace) /* 113 */ -#endif -#ifndef Tcl_DontCallWhenDeleted -#define Tcl_DontCallWhenDeleted \ - (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ -#endif -#ifndef Tcl_DoOneEvent -#define Tcl_DoOneEvent \ - (tclStubsPtr->tcl_DoOneEvent) /* 115 */ -#endif -#ifndef Tcl_DoWhenIdle -#define Tcl_DoWhenIdle \ - (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ -#endif -#ifndef Tcl_DStringAppend -#define Tcl_DStringAppend \ - (tclStubsPtr->tcl_DStringAppend) /* 117 */ -#endif -#ifndef Tcl_DStringAppendElement -#define Tcl_DStringAppendElement \ - (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ -#endif -#ifndef Tcl_DStringEndSublist -#define Tcl_DStringEndSublist \ - (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ -#endif -#ifndef Tcl_DStringFree -#define Tcl_DStringFree \ - (tclStubsPtr->tcl_DStringFree) /* 120 */ -#endif -#ifndef Tcl_DStringGetResult -#define Tcl_DStringGetResult \ - (tclStubsPtr->tcl_DStringGetResult) /* 121 */ -#endif -#ifndef Tcl_DStringInit -#define Tcl_DStringInit \ - (tclStubsPtr->tcl_DStringInit) /* 122 */ -#endif -#ifndef Tcl_DStringResult -#define Tcl_DStringResult \ - (tclStubsPtr->tcl_DStringResult) /* 123 */ -#endif -#ifndef Tcl_DStringSetLength -#define Tcl_DStringSetLength \ - (tclStubsPtr->tcl_DStringSetLength) /* 124 */ -#endif -#ifndef Tcl_DStringStartSublist -#define Tcl_DStringStartSublist \ - (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ -#endif -#ifndef Tcl_Eof -#define Tcl_Eof \ - (tclStubsPtr->tcl_Eof) /* 126 */ -#endif -#ifndef Tcl_ErrnoId -#define Tcl_ErrnoId \ - (tclStubsPtr->tcl_ErrnoId) /* 127 */ -#endif -#ifndef Tcl_ErrnoMsg -#define Tcl_ErrnoMsg \ - (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ -#endif -#ifndef Tcl_Eval -#define Tcl_Eval \ - (tclStubsPtr->tcl_Eval) /* 129 */ -#endif -#ifndef Tcl_EvalFile -#define Tcl_EvalFile \ - (tclStubsPtr->tcl_EvalFile) /* 130 */ -#endif -#ifndef Tcl_EvalObj -#define Tcl_EvalObj \ - (tclStubsPtr->tcl_EvalObj) /* 131 */ -#endif -#ifndef Tcl_EventuallyFree -#define Tcl_EventuallyFree \ - (tclStubsPtr->tcl_EventuallyFree) /* 132 */ -#endif -#ifndef Tcl_Exit -#define Tcl_Exit \ - (tclStubsPtr->tcl_Exit) /* 133 */ -#endif -#ifndef Tcl_ExposeCommand -#define Tcl_ExposeCommand \ - (tclStubsPtr->tcl_ExposeCommand) /* 134 */ -#endif -#ifndef Tcl_ExprBoolean -#define Tcl_ExprBoolean \ - (tclStubsPtr->tcl_ExprBoolean) /* 135 */ -#endif -#ifndef Tcl_ExprBooleanObj -#define Tcl_ExprBooleanObj \ - (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ -#endif -#ifndef Tcl_ExprDouble -#define Tcl_ExprDouble \ - (tclStubsPtr->tcl_ExprDouble) /* 137 */ -#endif -#ifndef Tcl_ExprDoubleObj -#define Tcl_ExprDoubleObj \ - (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ -#endif -#ifndef Tcl_ExprLong -#define Tcl_ExprLong \ - (tclStubsPtr->tcl_ExprLong) /* 139 */ -#endif -#ifndef Tcl_ExprLongObj -#define Tcl_ExprLongObj \ - (tclStubsPtr->tcl_ExprLongObj) /* 140 */ -#endif -#ifndef Tcl_ExprObj -#define Tcl_ExprObj \ - (tclStubsPtr->tcl_ExprObj) /* 141 */ -#endif -#ifndef Tcl_ExprString -#define Tcl_ExprString \ - (tclStubsPtr->tcl_ExprString) /* 142 */ -#endif -#ifndef Tcl_Finalize -#define Tcl_Finalize \ - (tclStubsPtr->tcl_Finalize) /* 143 */ -#endif -#ifndef Tcl_FindExecutable -#define Tcl_FindExecutable \ - (tclStubsPtr->tcl_FindExecutable) /* 144 */ -#endif -#ifndef Tcl_FirstHashEntry -#define Tcl_FirstHashEntry \ - (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ -#endif -#ifndef Tcl_Flush -#define Tcl_Flush \ - (tclStubsPtr->tcl_Flush) /* 146 */ -#endif -#ifndef Tcl_FreeResult -#define Tcl_FreeResult \ - (tclStubsPtr->tcl_FreeResult) /* 147 */ -#endif -#ifndef Tcl_GetAlias -#define Tcl_GetAlias \ - (tclStubsPtr->tcl_GetAlias) /* 148 */ -#endif -#ifndef Tcl_GetAliasObj -#define Tcl_GetAliasObj \ - (tclStubsPtr->tcl_GetAliasObj) /* 149 */ -#endif -#ifndef Tcl_GetAssocData -#define Tcl_GetAssocData \ - (tclStubsPtr->tcl_GetAssocData) /* 150 */ -#endif -#ifndef Tcl_GetChannel -#define Tcl_GetChannel \ - (tclStubsPtr->tcl_GetChannel) /* 151 */ -#endif -#ifndef Tcl_GetChannelBufferSize -#define Tcl_GetChannelBufferSize \ - (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ -#endif -#ifndef Tcl_GetChannelHandle -#define Tcl_GetChannelHandle \ - (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ -#endif -#ifndef Tcl_GetChannelInstanceData -#define Tcl_GetChannelInstanceData \ - (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ -#endif -#ifndef Tcl_GetChannelMode -#define Tcl_GetChannelMode \ - (tclStubsPtr->tcl_GetChannelMode) /* 155 */ -#endif -#ifndef Tcl_GetChannelName -#define Tcl_GetChannelName \ - (tclStubsPtr->tcl_GetChannelName) /* 156 */ -#endif -#ifndef Tcl_GetChannelOption -#define Tcl_GetChannelOption \ - (tclStubsPtr->tcl_GetChannelOption) /* 157 */ -#endif -#ifndef Tcl_GetChannelType -#define Tcl_GetChannelType \ - (tclStubsPtr->tcl_GetChannelType) /* 158 */ -#endif -#ifndef Tcl_GetCommandInfo -#define Tcl_GetCommandInfo \ - (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ -#endif -#ifndef Tcl_GetCommandName -#define Tcl_GetCommandName \ - (tclStubsPtr->tcl_GetCommandName) /* 160 */ -#endif -#ifndef Tcl_GetErrno -#define Tcl_GetErrno \ - (tclStubsPtr->tcl_GetErrno) /* 161 */ -#endif -#ifndef Tcl_GetHostName -#define Tcl_GetHostName \ - (tclStubsPtr->tcl_GetHostName) /* 162 */ -#endif -#ifndef Tcl_GetInterpPath -#define Tcl_GetInterpPath \ - (tclStubsPtr->tcl_GetInterpPath) /* 163 */ -#endif -#ifndef Tcl_GetMaster -#define Tcl_GetMaster \ - (tclStubsPtr->tcl_GetMaster) /* 164 */ -#endif -#ifndef Tcl_GetNameOfExecutable -#define Tcl_GetNameOfExecutable \ - (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ -#endif -#ifndef Tcl_GetObjResult -#define Tcl_GetObjResult \ - (tclStubsPtr->tcl_GetObjResult) /* 166 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_GetPathType -#define Tcl_GetPathType \ - (tclStubsPtr->tcl_GetPathType) /* 168 */ -#endif -#ifndef Tcl_Gets -#define Tcl_Gets \ - (tclStubsPtr->tcl_Gets) /* 169 */ -#endif -#ifndef Tcl_GetsObj -#define Tcl_GetsObj \ - (tclStubsPtr->tcl_GetsObj) /* 170 */ -#endif -#ifndef Tcl_GetServiceMode -#define Tcl_GetServiceMode \ - (tclStubsPtr->tcl_GetServiceMode) /* 171 */ -#endif -#ifndef Tcl_GetSlave -#define Tcl_GetSlave \ - (tclStubsPtr->tcl_GetSlave) /* 172 */ -#endif -#ifndef Tcl_GetStdChannel -#define Tcl_GetStdChannel \ - (tclStubsPtr->tcl_GetStdChannel) /* 173 */ -#endif -#ifndef Tcl_GetStringResult -#define Tcl_GetStringResult \ - (tclStubsPtr->tcl_GetStringResult) /* 174 */ -#endif -#ifndef Tcl_GetVar -#define Tcl_GetVar \ - (tclStubsPtr->tcl_GetVar) /* 175 */ -#endif -#ifndef Tcl_GetVar2 -#define Tcl_GetVar2 \ - (tclStubsPtr->tcl_GetVar2) /* 176 */ -#endif -#ifndef Tcl_GlobalEval -#define Tcl_GlobalEval \ - (tclStubsPtr->tcl_GlobalEval) /* 177 */ -#endif -#ifndef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj \ - (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ -#endif -#ifndef Tcl_HideCommand -#define Tcl_HideCommand \ - (tclStubsPtr->tcl_HideCommand) /* 179 */ -#endif -#ifndef Tcl_Init -#define Tcl_Init \ - (tclStubsPtr->tcl_Init) /* 180 */ -#endif -#ifndef Tcl_InitHashTable -#define Tcl_InitHashTable \ - (tclStubsPtr->tcl_InitHashTable) /* 181 */ -#endif -#ifndef Tcl_InputBlocked -#define Tcl_InputBlocked \ - (tclStubsPtr->tcl_InputBlocked) /* 182 */ -#endif -#ifndef Tcl_InputBuffered -#define Tcl_InputBuffered \ - (tclStubsPtr->tcl_InputBuffered) /* 183 */ -#endif -#ifndef Tcl_InterpDeleted -#define Tcl_InterpDeleted \ - (tclStubsPtr->tcl_InterpDeleted) /* 184 */ -#endif -#ifndef Tcl_IsSafe -#define Tcl_IsSafe \ - (tclStubsPtr->tcl_IsSafe) /* 185 */ -#endif -#ifndef Tcl_JoinPath -#define Tcl_JoinPath \ - (tclStubsPtr->tcl_JoinPath) /* 186 */ -#endif -#ifndef Tcl_LinkVar -#define Tcl_LinkVar \ - (tclStubsPtr->tcl_LinkVar) /* 187 */ -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel -#define Tcl_MakeFileChannel \ - (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ -#endif -#ifndef Tcl_MakeSafe -#define Tcl_MakeSafe \ - (tclStubsPtr->tcl_MakeSafe) /* 190 */ -#endif -#ifndef Tcl_MakeTcpClientChannel -#define Tcl_MakeTcpClientChannel \ - (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ -#endif -#ifndef Tcl_Merge -#define Tcl_Merge \ - (tclStubsPtr->tcl_Merge) /* 192 */ -#endif -#ifndef Tcl_NextHashEntry -#define Tcl_NextHashEntry \ - (tclStubsPtr->tcl_NextHashEntry) /* 193 */ -#endif -#ifndef Tcl_NotifyChannel -#define Tcl_NotifyChannel \ - (tclStubsPtr->tcl_NotifyChannel) /* 194 */ -#endif -#ifndef Tcl_ObjGetVar2 -#define Tcl_ObjGetVar2 \ - (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ -#endif -#ifndef Tcl_ObjSetVar2 -#define Tcl_ObjSetVar2 \ - (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ -#endif -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#ifndef Tcl_OpenFileChannel -#define Tcl_OpenFileChannel \ - (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ -#endif -#ifndef Tcl_OpenTcpClient -#define Tcl_OpenTcpClient \ - (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ -#endif -#ifndef Tcl_OpenTcpServer -#define Tcl_OpenTcpServer \ - (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ -#endif -#ifndef Tcl_Preserve -#define Tcl_Preserve \ - (tclStubsPtr->tcl_Preserve) /* 201 */ -#endif -#ifndef Tcl_PrintDouble -#define Tcl_PrintDouble \ - (tclStubsPtr->tcl_PrintDouble) /* 202 */ -#endif -#ifndef Tcl_PutEnv -#define Tcl_PutEnv \ - (tclStubsPtr->tcl_PutEnv) /* 203 */ -#endif -#ifndef Tcl_PosixError -#define Tcl_PosixError \ - (tclStubsPtr->tcl_PosixError) /* 204 */ -#endif -#ifndef Tcl_QueueEvent -#define Tcl_QueueEvent \ - (tclStubsPtr->tcl_QueueEvent) /* 205 */ -#endif -#ifndef Tcl_Read -#define Tcl_Read \ - (tclStubsPtr->tcl_Read) /* 206 */ -#endif -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#ifndef Tcl_RecordAndEval -#define Tcl_RecordAndEval \ - (tclStubsPtr->tcl_RecordAndEval) /* 208 */ -#endif -#ifndef Tcl_RecordAndEvalObj -#define Tcl_RecordAndEvalObj \ - (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ -#endif -#ifndef Tcl_RegisterChannel -#define Tcl_RegisterChannel \ - (tclStubsPtr->tcl_RegisterChannel) /* 210 */ -#endif -#ifndef Tcl_RegisterObjType -#define Tcl_RegisterObjType \ - (tclStubsPtr->tcl_RegisterObjType) /* 211 */ -#endif -#ifndef Tcl_RegExpCompile -#define Tcl_RegExpCompile \ - (tclStubsPtr->tcl_RegExpCompile) /* 212 */ -#endif -#ifndef Tcl_RegExpExec -#define Tcl_RegExpExec \ - (tclStubsPtr->tcl_RegExpExec) /* 213 */ -#endif -#ifndef Tcl_RegExpMatch -#define Tcl_RegExpMatch \ - (tclStubsPtr->tcl_RegExpMatch) /* 214 */ -#endif -#ifndef Tcl_RegExpRange -#define Tcl_RegExpRange \ - (tclStubsPtr->tcl_RegExpRange) /* 215 */ -#endif -#ifndef Tcl_Release -#define Tcl_Release \ - (tclStubsPtr->tcl_Release) /* 216 */ -#endif -#ifndef Tcl_ResetResult -#define Tcl_ResetResult \ - (tclStubsPtr->tcl_ResetResult) /* 217 */ -#endif -#ifndef Tcl_ScanElement -#define Tcl_ScanElement \ - (tclStubsPtr->tcl_ScanElement) /* 218 */ -#endif -#ifndef Tcl_ScanCountedElement -#define Tcl_ScanCountedElement \ - (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ -#endif -#ifndef Tcl_SeekOld -#define Tcl_SeekOld \ - (tclStubsPtr->tcl_SeekOld) /* 220 */ -#endif -#ifndef Tcl_ServiceAll -#define Tcl_ServiceAll \ - (tclStubsPtr->tcl_ServiceAll) /* 221 */ -#endif -#ifndef Tcl_ServiceEvent -#define Tcl_ServiceEvent \ - (tclStubsPtr->tcl_ServiceEvent) /* 222 */ -#endif -#ifndef Tcl_SetAssocData -#define Tcl_SetAssocData \ - (tclStubsPtr->tcl_SetAssocData) /* 223 */ -#endif -#ifndef Tcl_SetChannelBufferSize -#define Tcl_SetChannelBufferSize \ - (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ -#endif -#ifndef Tcl_SetChannelOption -#define Tcl_SetChannelOption \ - (tclStubsPtr->tcl_SetChannelOption) /* 225 */ -#endif -#ifndef Tcl_SetCommandInfo -#define Tcl_SetCommandInfo \ - (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ -#endif -#ifndef Tcl_SetErrno -#define Tcl_SetErrno \ - (tclStubsPtr->tcl_SetErrno) /* 227 */ -#endif -#ifndef Tcl_SetErrorCode -#define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 228 */ -#endif -#ifndef Tcl_SetMaxBlockTime -#define Tcl_SetMaxBlockTime \ - (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ -#endif -#ifndef Tcl_SetPanicProc -#define Tcl_SetPanicProc \ - (tclStubsPtr->tcl_SetPanicProc) /* 230 */ -#endif -#ifndef Tcl_SetRecursionLimit -#define Tcl_SetRecursionLimit \ - (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ -#endif -#ifndef Tcl_SetResult -#define Tcl_SetResult \ - (tclStubsPtr->tcl_SetResult) /* 232 */ -#endif -#ifndef Tcl_SetServiceMode -#define Tcl_SetServiceMode \ - (tclStubsPtr->tcl_SetServiceMode) /* 233 */ -#endif -#ifndef Tcl_SetObjErrorCode -#define Tcl_SetObjErrorCode \ - (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ -#endif -#ifndef Tcl_SetObjResult -#define Tcl_SetObjResult \ - (tclStubsPtr->tcl_SetObjResult) /* 235 */ -#endif -#ifndef Tcl_SetStdChannel -#define Tcl_SetStdChannel \ - (tclStubsPtr->tcl_SetStdChannel) /* 236 */ -#endif -#ifndef Tcl_SetVar -#define Tcl_SetVar \ - (tclStubsPtr->tcl_SetVar) /* 237 */ -#endif -#ifndef Tcl_SetVar2 -#define Tcl_SetVar2 \ - (tclStubsPtr->tcl_SetVar2) /* 238 */ -#endif -#ifndef Tcl_SignalId -#define Tcl_SignalId \ - (tclStubsPtr->tcl_SignalId) /* 239 */ -#endif -#ifndef Tcl_SignalMsg -#define Tcl_SignalMsg \ - (tclStubsPtr->tcl_SignalMsg) /* 240 */ -#endif -#ifndef Tcl_SourceRCFile -#define Tcl_SourceRCFile \ - (tclStubsPtr->tcl_SourceRCFile) /* 241 */ -#endif -#ifndef Tcl_SplitList -#define Tcl_SplitList \ - (tclStubsPtr->tcl_SplitList) /* 242 */ -#endif -#ifndef Tcl_SplitPath -#define Tcl_SplitPath \ - (tclStubsPtr->tcl_SplitPath) /* 243 */ -#endif -#ifndef Tcl_StaticPackage -#define Tcl_StaticPackage \ - (tclStubsPtr->tcl_StaticPackage) /* 244 */ -#endif -#ifndef Tcl_StringMatch -#define Tcl_StringMatch \ - (tclStubsPtr->tcl_StringMatch) /* 245 */ -#endif -#ifndef Tcl_TellOld -#define Tcl_TellOld \ - (tclStubsPtr->tcl_TellOld) /* 246 */ -#endif -#ifndef Tcl_TraceVar -#define Tcl_TraceVar \ - (tclStubsPtr->tcl_TraceVar) /* 247 */ -#endif -#ifndef Tcl_TraceVar2 -#define Tcl_TraceVar2 \ - (tclStubsPtr->tcl_TraceVar2) /* 248 */ -#endif -#ifndef Tcl_TranslateFileName -#define Tcl_TranslateFileName \ - (tclStubsPtr->tcl_TranslateFileName) /* 249 */ -#endif -#ifndef Tcl_Ungets -#define Tcl_Ungets \ - (tclStubsPtr->tcl_Ungets) /* 250 */ -#endif -#ifndef Tcl_UnlinkVar -#define Tcl_UnlinkVar \ - (tclStubsPtr->tcl_UnlinkVar) /* 251 */ -#endif -#ifndef Tcl_UnregisterChannel -#define Tcl_UnregisterChannel \ - (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ -#endif -#ifndef Tcl_UnsetVar -#define Tcl_UnsetVar \ - (tclStubsPtr->tcl_UnsetVar) /* 253 */ -#endif -#ifndef Tcl_UnsetVar2 -#define Tcl_UnsetVar2 \ - (tclStubsPtr->tcl_UnsetVar2) /* 254 */ -#endif -#ifndef Tcl_UntraceVar -#define Tcl_UntraceVar \ - (tclStubsPtr->tcl_UntraceVar) /* 255 */ -#endif -#ifndef Tcl_UntraceVar2 -#define Tcl_UntraceVar2 \ - (tclStubsPtr->tcl_UntraceVar2) /* 256 */ -#endif -#ifndef Tcl_UpdateLinkedVar -#define Tcl_UpdateLinkedVar \ - (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ -#endif -#ifndef Tcl_UpVar -#define Tcl_UpVar \ - (tclStubsPtr->tcl_UpVar) /* 258 */ -#endif -#ifndef Tcl_UpVar2 -#define Tcl_UpVar2 \ - (tclStubsPtr->tcl_UpVar2) /* 259 */ -#endif -#ifndef Tcl_VarEval -#define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 260 */ -#endif -#ifndef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo \ - (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ -#endif -#ifndef Tcl_VarTraceInfo2 -#define Tcl_VarTraceInfo2 \ - (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ -#endif -#ifndef Tcl_Write -#define Tcl_Write \ - (tclStubsPtr->tcl_Write) /* 263 */ -#endif -#ifndef Tcl_WrongNumArgs -#define Tcl_WrongNumArgs \ - (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ -#endif -#ifndef Tcl_DumpActiveMemory -#define Tcl_DumpActiveMemory \ - (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ -#endif -#ifndef Tcl_ValidateAllMemory -#define Tcl_ValidateAllMemory \ - (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ -#endif -#ifndef Tcl_AppendResultVA -#define Tcl_AppendResultVA \ - (tclStubsPtr->tcl_AppendResultVA) /* 267 */ -#endif -#ifndef Tcl_AppendStringsToObjVA -#define Tcl_AppendStringsToObjVA \ - (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ -#endif -#ifndef Tcl_HashStats -#define Tcl_HashStats \ - (tclStubsPtr->tcl_HashStats) /* 269 */ -#endif -#ifndef Tcl_ParseVar -#define Tcl_ParseVar \ - (tclStubsPtr->tcl_ParseVar) /* 270 */ -#endif -#ifndef Tcl_PkgPresent -#define Tcl_PkgPresent \ - (tclStubsPtr->tcl_PkgPresent) /* 271 */ -#endif -#ifndef Tcl_PkgPresentEx -#define Tcl_PkgPresentEx \ - (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ -#endif -#ifndef Tcl_PkgProvide -#define Tcl_PkgProvide \ - (tclStubsPtr->tcl_PkgProvide) /* 273 */ -#endif -#ifndef Tcl_PkgRequire -#define Tcl_PkgRequire \ - (tclStubsPtr->tcl_PkgRequire) /* 274 */ -#endif -#ifndef Tcl_SetErrorCodeVA -#define Tcl_SetErrorCodeVA \ - (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ -#endif -#ifndef Tcl_VarEvalVA -#define Tcl_VarEvalVA \ - (tclStubsPtr->tcl_VarEvalVA) /* 276 */ -#endif -#ifndef Tcl_WaitPid -#define Tcl_WaitPid \ - (tclStubsPtr->tcl_WaitPid) /* 277 */ -#endif -#ifndef Tcl_PanicVA -#define Tcl_PanicVA \ - (tclStubsPtr->tcl_PanicVA) /* 278 */ -#endif -#ifndef Tcl_GetVersion -#define Tcl_GetVersion \ - (tclStubsPtr->tcl_GetVersion) /* 279 */ -#endif -#ifndef Tcl_InitMemory -#define Tcl_InitMemory \ - (tclStubsPtr->tcl_InitMemory) /* 280 */ -#endif -#ifndef Tcl_StackChannel -#define Tcl_StackChannel \ - (tclStubsPtr->tcl_StackChannel) /* 281 */ -#endif -#ifndef Tcl_UnstackChannel -#define Tcl_UnstackChannel \ - (tclStubsPtr->tcl_UnstackChannel) /* 282 */ -#endif -#ifndef Tcl_GetStackedChannel -#define Tcl_GetStackedChannel \ - (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ -#endif -#ifndef Tcl_SetMainLoop -#define Tcl_SetMainLoop \ - (tclStubsPtr->tcl_SetMainLoop) /* 284 */ -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj -#define Tcl_AppendObjToObj \ - (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ -#endif -#ifndef Tcl_CreateEncoding -#define Tcl_CreateEncoding \ - (tclStubsPtr->tcl_CreateEncoding) /* 287 */ -#endif -#ifndef Tcl_CreateThreadExitHandler -#define Tcl_CreateThreadExitHandler \ - (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ -#endif -#ifndef Tcl_DeleteThreadExitHandler -#define Tcl_DeleteThreadExitHandler \ - (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ -#endif -#ifndef Tcl_DiscardResult -#define Tcl_DiscardResult \ - (tclStubsPtr->tcl_DiscardResult) /* 290 */ -#endif -#ifndef Tcl_EvalEx -#define Tcl_EvalEx \ - (tclStubsPtr->tcl_EvalEx) /* 291 */ -#endif -#ifndef Tcl_EvalObjv -#define Tcl_EvalObjv \ - (tclStubsPtr->tcl_EvalObjv) /* 292 */ -#endif -#ifndef Tcl_EvalObjEx -#define Tcl_EvalObjEx \ - (tclStubsPtr->tcl_EvalObjEx) /* 293 */ -#endif -#ifndef Tcl_ExitThread -#define Tcl_ExitThread \ - (tclStubsPtr->tcl_ExitThread) /* 294 */ -#endif -#ifndef Tcl_ExternalToUtf -#define Tcl_ExternalToUtf \ - (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ -#endif -#ifndef Tcl_ExternalToUtfDString -#define Tcl_ExternalToUtfDString \ - (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ -#endif -#ifndef Tcl_FinalizeThread -#define Tcl_FinalizeThread \ - (tclStubsPtr->tcl_FinalizeThread) /* 297 */ -#endif -#ifndef Tcl_FinalizeNotifier -#define Tcl_FinalizeNotifier \ - (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ -#endif -#ifndef Tcl_FreeEncoding -#define Tcl_FreeEncoding \ - (tclStubsPtr->tcl_FreeEncoding) /* 299 */ -#endif -#ifndef Tcl_GetCurrentThread -#define Tcl_GetCurrentThread \ - (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ -#endif -#ifndef Tcl_GetEncoding -#define Tcl_GetEncoding \ - (tclStubsPtr->tcl_GetEncoding) /* 301 */ -#endif -#ifndef Tcl_GetEncodingName -#define Tcl_GetEncodingName \ - (tclStubsPtr->tcl_GetEncodingName) /* 302 */ -#endif -#ifndef Tcl_GetEncodingNames -#define Tcl_GetEncodingNames \ - (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ -#endif -#ifndef Tcl_GetIndexFromObjStruct -#define Tcl_GetIndexFromObjStruct \ - (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ -#endif -#ifndef Tcl_GetThreadData -#define Tcl_GetThreadData \ - (tclStubsPtr->tcl_GetThreadData) /* 305 */ -#endif -#ifndef Tcl_GetVar2Ex -#define Tcl_GetVar2Ex \ - (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ -#endif -#ifndef Tcl_InitNotifier -#define Tcl_InitNotifier \ - (tclStubsPtr->tcl_InitNotifier) /* 307 */ -#endif -#ifndef Tcl_MutexLock -#define Tcl_MutexLock \ - (tclStubsPtr->tcl_MutexLock) /* 308 */ -#endif -#ifndef Tcl_MutexUnlock -#define Tcl_MutexUnlock \ - (tclStubsPtr->tcl_MutexUnlock) /* 309 */ -#endif -#ifndef Tcl_ConditionNotify -#define Tcl_ConditionNotify \ - (tclStubsPtr->tcl_ConditionNotify) /* 310 */ -#endif -#ifndef Tcl_ConditionWait -#define Tcl_ConditionWait \ - (tclStubsPtr->tcl_ConditionWait) /* 311 */ -#endif -#ifndef Tcl_NumUtfChars -#define Tcl_NumUtfChars \ - (tclStubsPtr->tcl_NumUtfChars) /* 312 */ -#endif -#ifndef Tcl_ReadChars -#define Tcl_ReadChars \ - (tclStubsPtr->tcl_ReadChars) /* 313 */ -#endif -#ifndef Tcl_RestoreResult -#define Tcl_RestoreResult \ - (tclStubsPtr->tcl_RestoreResult) /* 314 */ -#endif -#ifndef Tcl_SaveResult -#define Tcl_SaveResult \ - (tclStubsPtr->tcl_SaveResult) /* 315 */ -#endif -#ifndef Tcl_SetSystemEncoding -#define Tcl_SetSystemEncoding \ - (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ -#endif -#ifndef Tcl_SetVar2Ex -#define Tcl_SetVar2Ex \ - (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ -#endif -#ifndef Tcl_ThreadAlert -#define Tcl_ThreadAlert \ - (tclStubsPtr->tcl_ThreadAlert) /* 318 */ -#endif -#ifndef Tcl_ThreadQueueEvent -#define Tcl_ThreadQueueEvent \ - (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ -#endif -#ifndef Tcl_UniCharAtIndex -#define Tcl_UniCharAtIndex \ - (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ -#endif -#ifndef Tcl_UniCharToLower -#define Tcl_UniCharToLower \ - (tclStubsPtr->tcl_UniCharToLower) /* 321 */ -#endif -#ifndef Tcl_UniCharToTitle -#define Tcl_UniCharToTitle \ - (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ -#endif -#ifndef Tcl_UniCharToUpper -#define Tcl_UniCharToUpper \ - (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ -#endif -#ifndef Tcl_UniCharToUtf -#define Tcl_UniCharToUtf \ - (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ -#endif -#ifndef Tcl_UtfAtIndex -#define Tcl_UtfAtIndex \ - (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ -#endif -#ifndef Tcl_UtfCharComplete -#define Tcl_UtfCharComplete \ - (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ -#endif -#ifndef Tcl_UtfBackslash -#define Tcl_UtfBackslash \ - (tclStubsPtr->tcl_UtfBackslash) /* 327 */ -#endif -#ifndef Tcl_UtfFindFirst -#define Tcl_UtfFindFirst \ - (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ -#endif -#ifndef Tcl_UtfFindLast -#define Tcl_UtfFindLast \ - (tclStubsPtr->tcl_UtfFindLast) /* 329 */ -#endif -#ifndef Tcl_UtfNext -#define Tcl_UtfNext \ - (tclStubsPtr->tcl_UtfNext) /* 330 */ -#endif -#ifndef Tcl_UtfPrev -#define Tcl_UtfPrev \ - (tclStubsPtr->tcl_UtfPrev) /* 331 */ -#endif -#ifndef Tcl_UtfToExternal -#define Tcl_UtfToExternal \ - (tclStubsPtr->tcl_UtfToExternal) /* 332 */ -#endif -#ifndef Tcl_UtfToExternalDString -#define Tcl_UtfToExternalDString \ - (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ -#endif -#ifndef Tcl_UtfToLower -#define Tcl_UtfToLower \ - (tclStubsPtr->tcl_UtfToLower) /* 334 */ -#endif -#ifndef Tcl_UtfToTitle -#define Tcl_UtfToTitle \ - (tclStubsPtr->tcl_UtfToTitle) /* 335 */ -#endif -#ifndef Tcl_UtfToUniChar -#define Tcl_UtfToUniChar \ - (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ -#endif -#ifndef Tcl_UtfToUpper -#define Tcl_UtfToUpper \ - (tclStubsPtr->tcl_UtfToUpper) /* 337 */ -#endif -#ifndef Tcl_WriteChars -#define Tcl_WriteChars \ - (tclStubsPtr->tcl_WriteChars) /* 338 */ -#endif -#ifndef Tcl_WriteObj -#define Tcl_WriteObj \ - (tclStubsPtr->tcl_WriteObj) /* 339 */ -#endif -#ifndef Tcl_GetString -#define Tcl_GetString \ - (tclStubsPtr->tcl_GetString) /* 340 */ -#endif -#ifndef Tcl_GetDefaultEncodingDir -#define Tcl_GetDefaultEncodingDir \ - (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ -#endif -#ifndef Tcl_SetDefaultEncodingDir -#define Tcl_SetDefaultEncodingDir \ - (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ -#endif -#ifndef Tcl_AlertNotifier -#define Tcl_AlertNotifier \ - (tclStubsPtr->tcl_AlertNotifier) /* 343 */ -#endif -#ifndef Tcl_ServiceModeHook -#define Tcl_ServiceModeHook \ - (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ -#endif -#ifndef Tcl_UniCharIsAlnum -#define Tcl_UniCharIsAlnum \ - (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ -#endif -#ifndef Tcl_UniCharIsAlpha -#define Tcl_UniCharIsAlpha \ - (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ -#endif -#ifndef Tcl_UniCharIsDigit -#define Tcl_UniCharIsDigit \ - (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ -#endif -#ifndef Tcl_UniCharIsLower -#define Tcl_UniCharIsLower \ - (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ -#endif -#ifndef Tcl_UniCharIsSpace -#define Tcl_UniCharIsSpace \ - (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ -#endif -#ifndef Tcl_UniCharIsUpper -#define Tcl_UniCharIsUpper \ - (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ -#endif -#ifndef Tcl_UniCharIsWordChar -#define Tcl_UniCharIsWordChar \ - (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ -#endif -#ifndef Tcl_UniCharLen -#define Tcl_UniCharLen \ - (tclStubsPtr->tcl_UniCharLen) /* 352 */ -#endif -#ifndef Tcl_UniCharNcmp -#define Tcl_UniCharNcmp \ - (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ -#endif -#ifndef Tcl_UniCharToUtfDString -#define Tcl_UniCharToUtfDString \ - (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ -#endif -#ifndef Tcl_UtfToUniCharDString -#define Tcl_UtfToUniCharDString \ - (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ -#endif -#ifndef Tcl_GetRegExpFromObj -#define Tcl_GetRegExpFromObj \ - (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ -#endif -#ifndef Tcl_EvalTokens -#define Tcl_EvalTokens \ - (tclStubsPtr->tcl_EvalTokens) /* 357 */ -#endif -#ifndef Tcl_FreeParse -#define Tcl_FreeParse \ - (tclStubsPtr->tcl_FreeParse) /* 358 */ -#endif -#ifndef Tcl_LogCommandInfo -#define Tcl_LogCommandInfo \ - (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ -#endif -#ifndef Tcl_ParseBraces -#define Tcl_ParseBraces \ - (tclStubsPtr->tcl_ParseBraces) /* 360 */ -#endif -#ifndef Tcl_ParseCommand -#define Tcl_ParseCommand \ - (tclStubsPtr->tcl_ParseCommand) /* 361 */ -#endif -#ifndef Tcl_ParseExpr -#define Tcl_ParseExpr \ - (tclStubsPtr->tcl_ParseExpr) /* 362 */ -#endif -#ifndef Tcl_ParseQuotedString -#define Tcl_ParseQuotedString \ - (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ -#endif -#ifndef Tcl_ParseVarName -#define Tcl_ParseVarName \ - (tclStubsPtr->tcl_ParseVarName) /* 364 */ -#endif -#ifndef Tcl_GetCwd -#define Tcl_GetCwd \ - (tclStubsPtr->tcl_GetCwd) /* 365 */ -#endif -#ifndef Tcl_Chdir -#define Tcl_Chdir \ - (tclStubsPtr->tcl_Chdir) /* 366 */ -#endif -#ifndef Tcl_Access -#define Tcl_Access \ - (tclStubsPtr->tcl_Access) /* 367 */ -#endif -#ifndef Tcl_Stat -#define Tcl_Stat \ - (tclStubsPtr->tcl_Stat) /* 368 */ -#endif -#ifndef Tcl_UtfNcmp -#define Tcl_UtfNcmp \ - (tclStubsPtr->tcl_UtfNcmp) /* 369 */ -#endif -#ifndef Tcl_UtfNcasecmp -#define Tcl_UtfNcasecmp \ - (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ -#endif -#ifndef Tcl_StringCaseMatch -#define Tcl_StringCaseMatch \ - (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ -#endif -#ifndef Tcl_UniCharIsControl -#define Tcl_UniCharIsControl \ - (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ -#endif -#ifndef Tcl_UniCharIsGraph -#define Tcl_UniCharIsGraph \ - (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ -#endif -#ifndef Tcl_UniCharIsPrint -#define Tcl_UniCharIsPrint \ - (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ -#endif -#ifndef Tcl_UniCharIsPunct -#define Tcl_UniCharIsPunct \ - (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ -#endif -#ifndef Tcl_RegExpExecObj -#define Tcl_RegExpExecObj \ - (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ -#endif -#ifndef Tcl_RegExpGetInfo -#define Tcl_RegExpGetInfo \ - (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ -#endif -#ifndef Tcl_NewUnicodeObj -#define Tcl_NewUnicodeObj \ - (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ -#endif -#ifndef Tcl_SetUnicodeObj -#define Tcl_SetUnicodeObj \ - (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ -#endif -#ifndef Tcl_GetCharLength -#define Tcl_GetCharLength \ - (tclStubsPtr->tcl_GetCharLength) /* 380 */ -#endif -#ifndef Tcl_GetUniChar -#define Tcl_GetUniChar \ - (tclStubsPtr->tcl_GetUniChar) /* 381 */ -#endif -#ifndef Tcl_GetUnicode -#define Tcl_GetUnicode \ - (tclStubsPtr->tcl_GetUnicode) /* 382 */ -#endif -#ifndef Tcl_GetRange -#define Tcl_GetRange \ - (tclStubsPtr->tcl_GetRange) /* 383 */ -#endif -#ifndef Tcl_AppendUnicodeToObj -#define Tcl_AppendUnicodeToObj \ - (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ -#endif -#ifndef Tcl_RegExpMatchObj -#define Tcl_RegExpMatchObj \ - (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ -#endif -#ifndef Tcl_SetNotifier -#define Tcl_SetNotifier \ - (tclStubsPtr->tcl_SetNotifier) /* 386 */ -#endif -#ifndef Tcl_GetAllocMutex -#define Tcl_GetAllocMutex \ - (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ -#endif -#ifndef Tcl_GetChannelNames -#define Tcl_GetChannelNames \ - (tclStubsPtr->tcl_GetChannelNames) /* 388 */ -#endif -#ifndef Tcl_GetChannelNamesEx -#define Tcl_GetChannelNamesEx \ - (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ -#endif -#ifndef Tcl_ProcObjCmd -#define Tcl_ProcObjCmd \ - (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ -#endif -#ifndef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize \ - (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ -#endif -#ifndef Tcl_MutexFinalize -#define Tcl_MutexFinalize \ - (tclStubsPtr->tcl_MutexFinalize) /* 392 */ -#endif -#ifndef Tcl_CreateThread -#define Tcl_CreateThread \ - (tclStubsPtr->tcl_CreateThread) /* 393 */ -#endif -#ifndef Tcl_ReadRaw -#define Tcl_ReadRaw \ - (tclStubsPtr->tcl_ReadRaw) /* 394 */ -#endif -#ifndef Tcl_WriteRaw -#define Tcl_WriteRaw \ - (tclStubsPtr->tcl_WriteRaw) /* 395 */ -#endif -#ifndef Tcl_GetTopChannel -#define Tcl_GetTopChannel \ - (tclStubsPtr->tcl_GetTopChannel) /* 396 */ -#endif -#ifndef Tcl_ChannelBuffered -#define Tcl_ChannelBuffered \ - (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ -#endif -#ifndef Tcl_ChannelName -#define Tcl_ChannelName \ - (tclStubsPtr->tcl_ChannelName) /* 398 */ -#endif -#ifndef Tcl_ChannelVersion -#define Tcl_ChannelVersion \ - (tclStubsPtr->tcl_ChannelVersion) /* 399 */ -#endif -#ifndef Tcl_ChannelBlockModeProc -#define Tcl_ChannelBlockModeProc \ - (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ -#endif -#ifndef Tcl_ChannelCloseProc -#define Tcl_ChannelCloseProc \ - (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ -#endif -#ifndef Tcl_ChannelClose2Proc -#define Tcl_ChannelClose2Proc \ - (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ -#endif -#ifndef Tcl_ChannelInputProc -#define Tcl_ChannelInputProc \ - (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ -#endif -#ifndef Tcl_ChannelOutputProc -#define Tcl_ChannelOutputProc \ - (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ -#endif -#ifndef Tcl_ChannelSeekProc -#define Tcl_ChannelSeekProc \ - (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ -#endif -#ifndef Tcl_ChannelSetOptionProc -#define Tcl_ChannelSetOptionProc \ - (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ -#endif -#ifndef Tcl_ChannelGetOptionProc -#define Tcl_ChannelGetOptionProc \ - (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ -#endif -#ifndef Tcl_ChannelWatchProc -#define Tcl_ChannelWatchProc \ - (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ -#endif -#ifndef Tcl_ChannelGetHandleProc -#define Tcl_ChannelGetHandleProc \ - (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ -#endif -#ifndef Tcl_ChannelFlushProc -#define Tcl_ChannelFlushProc \ - (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ -#endif -#ifndef Tcl_ChannelHandlerProc -#define Tcl_ChannelHandlerProc \ - (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ -#endif -#ifndef Tcl_JoinThread -#define Tcl_JoinThread \ - (tclStubsPtr->tcl_JoinThread) /* 412 */ -#endif -#ifndef Tcl_IsChannelShared -#define Tcl_IsChannelShared \ - (tclStubsPtr->tcl_IsChannelShared) /* 413 */ -#endif -#ifndef Tcl_IsChannelRegistered -#define Tcl_IsChannelRegistered \ - (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ -#endif -#ifndef Tcl_CutChannel -#define Tcl_CutChannel \ - (tclStubsPtr->tcl_CutChannel) /* 415 */ -#endif -#ifndef Tcl_SpliceChannel -#define Tcl_SpliceChannel \ - (tclStubsPtr->tcl_SpliceChannel) /* 416 */ -#endif -#ifndef Tcl_ClearChannelHandlers -#define Tcl_ClearChannelHandlers \ - (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ -#endif -#ifndef Tcl_IsChannelExisting -#define Tcl_IsChannelExisting \ - (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ -#endif -#ifndef Tcl_UniCharNcasecmp -#define Tcl_UniCharNcasecmp \ - (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ -#endif -#ifndef Tcl_UniCharCaseMatch -#define Tcl_UniCharCaseMatch \ - (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ -#endif -#ifndef Tcl_FindHashEntry -#define Tcl_FindHashEntry \ - (tclStubsPtr->tcl_FindHashEntry) /* 421 */ -#endif -#ifndef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry \ - (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ -#endif -#ifndef Tcl_InitCustomHashTable -#define Tcl_InitCustomHashTable \ - (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ -#endif -#ifndef Tcl_InitObjHashTable -#define Tcl_InitObjHashTable \ - (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ -#endif -#ifndef Tcl_CommandTraceInfo -#define Tcl_CommandTraceInfo \ - (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ -#endif -#ifndef Tcl_TraceCommand -#define Tcl_TraceCommand \ - (tclStubsPtr->tcl_TraceCommand) /* 426 */ -#endif -#ifndef Tcl_UntraceCommand -#define Tcl_UntraceCommand \ - (tclStubsPtr->tcl_UntraceCommand) /* 427 */ -#endif -#ifndef Tcl_AttemptAlloc -#define Tcl_AttemptAlloc \ - (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ -#endif -#ifndef Tcl_AttemptDbCkalloc -#define Tcl_AttemptDbCkalloc \ - (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ -#endif -#ifndef Tcl_AttemptRealloc -#define Tcl_AttemptRealloc \ - (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ -#endif -#ifndef Tcl_AttemptDbCkrealloc -#define Tcl_AttemptDbCkrealloc \ - (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ -#endif -#ifndef Tcl_AttemptSetObjLength -#define Tcl_AttemptSetObjLength \ - (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ -#endif -#ifndef Tcl_GetChannelThread -#define Tcl_GetChannelThread \ - (tclStubsPtr->tcl_GetChannelThread) /* 433 */ -#endif -#ifndef Tcl_GetUnicodeFromObj -#define Tcl_GetUnicodeFromObj \ - (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ -#endif -#ifndef Tcl_GetMathFuncInfo -#define Tcl_GetMathFuncInfo \ - (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ -#endif -#ifndef Tcl_ListMathFuncs -#define Tcl_ListMathFuncs \ - (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ -#endif -#ifndef Tcl_SubstObj -#define Tcl_SubstObj \ - (tclStubsPtr->tcl_SubstObj) /* 437 */ -#endif -#ifndef Tcl_DetachChannel -#define Tcl_DetachChannel \ - (tclStubsPtr->tcl_DetachChannel) /* 438 */ -#endif -#ifndef Tcl_IsStandardChannel -#define Tcl_IsStandardChannel \ - (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ -#endif -#ifndef Tcl_FSCopyFile -#define Tcl_FSCopyFile \ - (tclStubsPtr->tcl_FSCopyFile) /* 440 */ -#endif -#ifndef Tcl_FSCopyDirectory -#define Tcl_FSCopyDirectory \ - (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ -#endif -#ifndef Tcl_FSCreateDirectory -#define Tcl_FSCreateDirectory \ - (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ -#endif -#ifndef Tcl_FSDeleteFile -#define Tcl_FSDeleteFile \ - (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ -#endif -#ifndef Tcl_FSLoadFile -#define Tcl_FSLoadFile \ - (tclStubsPtr->tcl_FSLoadFile) /* 444 */ -#endif -#ifndef Tcl_FSMatchInDirectory -#define Tcl_FSMatchInDirectory \ - (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ -#endif -#ifndef Tcl_FSLink -#define Tcl_FSLink \ - (tclStubsPtr->tcl_FSLink) /* 446 */ -#endif -#ifndef Tcl_FSRemoveDirectory -#define Tcl_FSRemoveDirectory \ - (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ -#endif -#ifndef Tcl_FSRenameFile -#define Tcl_FSRenameFile \ - (tclStubsPtr->tcl_FSRenameFile) /* 448 */ -#endif -#ifndef Tcl_FSLstat -#define Tcl_FSLstat \ - (tclStubsPtr->tcl_FSLstat) /* 449 */ -#endif -#ifndef Tcl_FSUtime -#define Tcl_FSUtime \ - (tclStubsPtr->tcl_FSUtime) /* 450 */ -#endif -#ifndef Tcl_FSFileAttrsGet -#define Tcl_FSFileAttrsGet \ - (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ -#endif -#ifndef Tcl_FSFileAttrsSet -#define Tcl_FSFileAttrsSet \ - (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ -#endif -#ifndef Tcl_FSFileAttrStrings -#define Tcl_FSFileAttrStrings \ - (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ -#endif -#ifndef Tcl_FSStat -#define Tcl_FSStat \ - (tclStubsPtr->tcl_FSStat) /* 454 */ -#endif -#ifndef Tcl_FSAccess -#define Tcl_FSAccess \ - (tclStubsPtr->tcl_FSAccess) /* 455 */ -#endif -#ifndef Tcl_FSOpenFileChannel -#define Tcl_FSOpenFileChannel \ - (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ -#endif -#ifndef Tcl_FSGetCwd -#define Tcl_FSGetCwd \ - (tclStubsPtr->tcl_FSGetCwd) /* 457 */ -#endif -#ifndef Tcl_FSChdir -#define Tcl_FSChdir \ - (tclStubsPtr->tcl_FSChdir) /* 458 */ -#endif -#ifndef Tcl_FSConvertToPathType -#define Tcl_FSConvertToPathType \ - (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ -#endif -#ifndef Tcl_FSJoinPath -#define Tcl_FSJoinPath \ - (tclStubsPtr->tcl_FSJoinPath) /* 460 */ -#endif -#ifndef Tcl_FSSplitPath -#define Tcl_FSSplitPath \ - (tclStubsPtr->tcl_FSSplitPath) /* 461 */ -#endif -#ifndef Tcl_FSEqualPaths -#define Tcl_FSEqualPaths \ - (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ -#endif -#ifndef Tcl_FSGetNormalizedPath -#define Tcl_FSGetNormalizedPath \ - (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ -#endif -#ifndef Tcl_FSJoinToPath -#define Tcl_FSJoinToPath \ - (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ -#endif -#ifndef Tcl_FSGetInternalRep -#define Tcl_FSGetInternalRep \ - (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ -#endif -#ifndef Tcl_FSGetTranslatedPath -#define Tcl_FSGetTranslatedPath \ - (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ -#endif -#ifndef Tcl_FSEvalFile -#define Tcl_FSEvalFile \ - (tclStubsPtr->tcl_FSEvalFile) /* 467 */ -#endif -#ifndef Tcl_FSNewNativePath -#define Tcl_FSNewNativePath \ - (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ -#endif -#ifndef Tcl_FSGetNativePath -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ -#endif -#ifndef Tcl_FSFileSystemInfo -#define Tcl_FSFileSystemInfo \ - (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ -#endif -#ifndef Tcl_FSPathSeparator -#define Tcl_FSPathSeparator \ - (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ -#endif -#ifndef Tcl_FSListVolumes -#define Tcl_FSListVolumes \ - (tclStubsPtr->tcl_FSListVolumes) /* 472 */ -#endif -#ifndef Tcl_FSRegister -#define Tcl_FSRegister \ - (tclStubsPtr->tcl_FSRegister) /* 473 */ -#endif -#ifndef Tcl_FSUnregister -#define Tcl_FSUnregister \ - (tclStubsPtr->tcl_FSUnregister) /* 474 */ -#endif -#ifndef Tcl_FSData -#define Tcl_FSData \ - (tclStubsPtr->tcl_FSData) /* 475 */ -#endif -#ifndef Tcl_FSGetTranslatedStringPath -#define Tcl_FSGetTranslatedStringPath \ - (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ -#endif -#ifndef Tcl_FSGetFileSystemForPath -#define Tcl_FSGetFileSystemForPath \ - (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ -#endif -#ifndef Tcl_FSGetPathType -#define Tcl_FSGetPathType \ - (tclStubsPtr->tcl_FSGetPathType) /* 478 */ -#endif -#ifndef Tcl_OutputBuffered -#define Tcl_OutputBuffered \ - (tclStubsPtr->tcl_OutputBuffered) /* 479 */ -#endif -#ifndef Tcl_FSMountsChanged -#define Tcl_FSMountsChanged \ - (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ -#endif -#ifndef Tcl_EvalTokensStandard -#define Tcl_EvalTokensStandard \ - (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ -#endif -#ifndef Tcl_GetTime -#define Tcl_GetTime \ - (tclStubsPtr->tcl_GetTime) /* 482 */ -#endif -#ifndef Tcl_CreateObjTrace -#define Tcl_CreateObjTrace \ - (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ -#endif -#ifndef Tcl_GetCommandInfoFromToken -#define Tcl_GetCommandInfoFromToken \ - (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ -#endif -#ifndef Tcl_SetCommandInfoFromToken -#define Tcl_SetCommandInfoFromToken \ - (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ -#endif -#ifndef Tcl_DbNewWideIntObj -#define Tcl_DbNewWideIntObj \ - (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ -#endif -#ifndef Tcl_GetWideIntFromObj -#define Tcl_GetWideIntFromObj \ - (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ -#endif -#ifndef Tcl_NewWideIntObj -#define Tcl_NewWideIntObj \ - (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ -#endif -#ifndef Tcl_SetWideIntObj -#define Tcl_SetWideIntObj \ - (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ -#endif -#ifndef Tcl_AllocStatBuf -#define Tcl_AllocStatBuf \ - (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ -#endif -#ifndef Tcl_Seek -#define Tcl_Seek \ - (tclStubsPtr->tcl_Seek) /* 491 */ -#endif -#ifndef Tcl_Tell -#define Tcl_Tell \ - (tclStubsPtr->tcl_Tell) /* 492 */ -#endif -#ifndef Tcl_ChannelWideSeekProc -#define Tcl_ChannelWideSeekProc \ - (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ -#endif -#ifndef Tcl_DictObjPut -#define Tcl_DictObjPut \ - (tclStubsPtr->tcl_DictObjPut) /* 494 */ -#endif -#ifndef Tcl_DictObjGet -#define Tcl_DictObjGet \ - (tclStubsPtr->tcl_DictObjGet) /* 495 */ -#endif -#ifndef Tcl_DictObjRemove -#define Tcl_DictObjRemove \ - (tclStubsPtr->tcl_DictObjRemove) /* 496 */ -#endif -#ifndef Tcl_DictObjSize -#define Tcl_DictObjSize \ - (tclStubsPtr->tcl_DictObjSize) /* 497 */ -#endif -#ifndef Tcl_DictObjFirst -#define Tcl_DictObjFirst \ - (tclStubsPtr->tcl_DictObjFirst) /* 498 */ -#endif -#ifndef Tcl_DictObjNext -#define Tcl_DictObjNext \ - (tclStubsPtr->tcl_DictObjNext) /* 499 */ -#endif -#ifndef Tcl_DictObjDone -#define Tcl_DictObjDone \ - (tclStubsPtr->tcl_DictObjDone) /* 500 */ -#endif -#ifndef Tcl_DictObjPutKeyList -#define Tcl_DictObjPutKeyList \ - (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ -#endif -#ifndef Tcl_DictObjRemoveKeyList -#define Tcl_DictObjRemoveKeyList \ - (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ -#endif -#ifndef Tcl_NewDictObj -#define Tcl_NewDictObj \ - (tclStubsPtr->tcl_NewDictObj) /* 503 */ -#endif -#ifndef Tcl_DbNewDictObj -#define Tcl_DbNewDictObj \ - (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ -#endif -#ifndef Tcl_RegisterConfig -#define Tcl_RegisterConfig \ - (tclStubsPtr->tcl_RegisterConfig) /* 505 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif -#ifndef Tcl_FSEvalFileEx -#define Tcl_FSEvalFileEx \ - (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ -#endif -#ifndef Tcl_SetExitProc -#define Tcl_SetExitProc \ - (tclStubsPtr->tcl_SetExitProc) /* 519 */ -#endif -#ifndef Tcl_LimitAddHandler -#define Tcl_LimitAddHandler \ - (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ -#endif -#ifndef Tcl_LimitRemoveHandler -#define Tcl_LimitRemoveHandler \ - (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ -#endif -#ifndef Tcl_LimitReady -#define Tcl_LimitReady \ - (tclStubsPtr->tcl_LimitReady) /* 522 */ -#endif -#ifndef Tcl_LimitCheck -#define Tcl_LimitCheck \ - (tclStubsPtr->tcl_LimitCheck) /* 523 */ -#endif -#ifndef Tcl_LimitExceeded -#define Tcl_LimitExceeded \ - (tclStubsPtr->tcl_LimitExceeded) /* 524 */ -#endif -#ifndef Tcl_LimitSetCommands -#define Tcl_LimitSetCommands \ - (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ -#endif -#ifndef Tcl_LimitSetTime -#define Tcl_LimitSetTime \ - (tclStubsPtr->tcl_LimitSetTime) /* 526 */ -#endif -#ifndef Tcl_LimitSetGranularity -#define Tcl_LimitSetGranularity \ - (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ -#endif -#ifndef Tcl_LimitTypeEnabled -#define Tcl_LimitTypeEnabled \ - (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ -#endif -#ifndef Tcl_LimitTypeExceeded -#define Tcl_LimitTypeExceeded \ - (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ -#endif -#ifndef Tcl_LimitTypeSet -#define Tcl_LimitTypeSet \ - (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ -#endif -#ifndef Tcl_LimitTypeReset -#define Tcl_LimitTypeReset \ - (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ -#endif -#ifndef Tcl_LimitGetCommands -#define Tcl_LimitGetCommands \ - (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ -#endif -#ifndef Tcl_LimitGetTime -#define Tcl_LimitGetTime \ - (tclStubsPtr->tcl_LimitGetTime) /* 533 */ -#endif -#ifndef Tcl_LimitGetGranularity -#define Tcl_LimitGetGranularity \ - (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ -#endif -#ifndef Tcl_SaveInterpState -#define Tcl_SaveInterpState \ - (tclStubsPtr->tcl_SaveInterpState) /* 535 */ -#endif -#ifndef Tcl_RestoreInterpState -#define Tcl_RestoreInterpState \ - (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ -#endif -#ifndef Tcl_DiscardInterpState -#define Tcl_DiscardInterpState \ - (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ -#endif -#ifndef Tcl_SetReturnOptions -#define Tcl_SetReturnOptions \ - (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ -#endif -#ifndef Tcl_GetReturnOptions -#define Tcl_GetReturnOptions \ - (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ -#endif -#ifndef Tcl_IsEnsemble -#define Tcl_IsEnsemble \ - (tclStubsPtr->tcl_IsEnsemble) /* 540 */ -#endif -#ifndef Tcl_CreateEnsemble -#define Tcl_CreateEnsemble \ - (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ -#endif -#ifndef Tcl_FindEnsemble -#define Tcl_FindEnsemble \ - (tclStubsPtr->tcl_FindEnsemble) /* 542 */ -#endif -#ifndef Tcl_SetEnsembleSubcommandList -#define Tcl_SetEnsembleSubcommandList \ - (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ -#endif -#ifndef Tcl_SetEnsembleMappingDict -#define Tcl_SetEnsembleMappingDict \ - (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ -#endif -#ifndef Tcl_SetEnsembleUnknownHandler -#define Tcl_SetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ -#endif -#ifndef Tcl_SetEnsembleFlags -#define Tcl_SetEnsembleFlags \ - (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ -#endif -#ifndef Tcl_GetEnsembleSubcommandList -#define Tcl_GetEnsembleSubcommandList \ - (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ -#endif -#ifndef Tcl_GetEnsembleMappingDict -#define Tcl_GetEnsembleMappingDict \ - (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ -#endif -#ifndef Tcl_GetEnsembleUnknownHandler -#define Tcl_GetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ -#endif -#ifndef Tcl_GetEnsembleFlags -#define Tcl_GetEnsembleFlags \ - (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ -#endif -#ifndef Tcl_GetEnsembleNamespace -#define Tcl_GetEnsembleNamespace \ - (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ -#endif -#ifndef Tcl_SetTimeProc -#define Tcl_SetTimeProc \ - (tclStubsPtr->tcl_SetTimeProc) /* 552 */ -#endif -#ifndef Tcl_QueryTimeProc -#define Tcl_QueryTimeProc \ - (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ -#endif -#ifndef Tcl_ChannelThreadActionProc -#define Tcl_ChannelThreadActionProc \ - (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ -#endif -#ifndef Tcl_NewBignumObj -#define Tcl_NewBignumObj \ - (tclStubsPtr->tcl_NewBignumObj) /* 555 */ -#endif -#ifndef Tcl_DbNewBignumObj -#define Tcl_DbNewBignumObj \ - (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ -#endif -#ifndef Tcl_SetBignumObj -#define Tcl_SetBignumObj \ - (tclStubsPtr->tcl_SetBignumObj) /* 557 */ -#endif -#ifndef Tcl_GetBignumFromObj -#define Tcl_GetBignumFromObj \ - (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ -#endif -#ifndef Tcl_TakeBignumFromObj -#define Tcl_TakeBignumFromObj \ - (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ -#endif -#ifndef Tcl_TruncateChannel -#define Tcl_TruncateChannel \ - (tclStubsPtr->tcl_TruncateChannel) /* 560 */ -#endif -#ifndef Tcl_ChannelTruncateProc -#define Tcl_ChannelTruncateProc \ - (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ -#endif -#ifndef Tcl_SetChannelErrorInterp -#define Tcl_SetChannelErrorInterp \ - (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ -#endif -#ifndef Tcl_GetChannelErrorInterp -#define Tcl_GetChannelErrorInterp \ - (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ -#endif -#ifndef Tcl_SetChannelError -#define Tcl_SetChannelError \ - (tclStubsPtr->tcl_SetChannelError) /* 564 */ -#endif -#ifndef Tcl_GetChannelError -#define Tcl_GetChannelError \ - (tclStubsPtr->tcl_GetChannelError) /* 565 */ -#endif -#ifndef Tcl_InitBignumFromDouble -#define Tcl_InitBignumFromDouble \ - (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ -#endif -#ifndef Tcl_GetNamespaceUnknownHandler -#define Tcl_GetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ -#endif -#ifndef Tcl_SetNamespaceUnknownHandler -#define Tcl_SetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ -#endif -#ifndef Tcl_GetEncodingFromObj -#define Tcl_GetEncodingFromObj \ - (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ -#endif -#ifndef Tcl_GetEncodingSearchPath -#define Tcl_GetEncodingSearchPath \ - (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ -#endif -#ifndef Tcl_SetEncodingSearchPath -#define Tcl_SetEncodingSearchPath \ - (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ -#endif -#ifndef Tcl_GetEncodingNameFromEnvironment -#define Tcl_GetEncodingNameFromEnvironment \ - (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ -#endif -#ifndef Tcl_PkgRequireProc -#define Tcl_PkgRequireProc \ - (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ -#endif -#ifndef Tcl_AppendObjToErrorInfo -#define Tcl_AppendObjToErrorInfo \ - (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ -#endif -#ifndef Tcl_AppendLimitedToObj -#define Tcl_AppendLimitedToObj \ - (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ -#endif -#ifndef Tcl_Format -#define Tcl_Format \ - (tclStubsPtr->tcl_Format) /* 576 */ -#endif -#ifndef Tcl_AppendFormatToObj -#define Tcl_AppendFormatToObj \ - (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ -#endif -#ifndef Tcl_ObjPrintf -#define Tcl_ObjPrintf \ - (tclStubsPtr->tcl_ObjPrintf) /* 578 */ -#endif -#ifndef Tcl_AppendPrintfToObj -#define Tcl_AppendPrintfToObj \ - (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ -#endif -/* Slot 580 is reserved */ -/* Slot 581 is reserved */ -/* Slot 582 is reserved */ -/* Slot 583 is reserved */ -/* Slot 584 is reserved */ -/* Slot 585 is reserved */ -/* Slot 586 is reserved */ -/* Slot 587 is reserved */ -/* Slot 588 is reserved */ -/* Slot 589 is reserved */ -/* Slot 590 is reserved */ -/* Slot 591 is reserved */ -/* Slot 592 is reserved */ -/* Slot 593 is reserved */ -/* Slot 594 is reserved */ -/* Slot 595 is reserved */ -/* Slot 596 is reserved */ -/* Slot 597 is reserved */ -/* Slot 598 is reserved */ -/* Slot 599 is reserved */ -/* Slot 600 is reserved */ -/* Slot 601 is reserved */ -/* Slot 602 is reserved */ -/* Slot 603 is reserved */ -/* Slot 604 is reserved */ -/* Slot 605 is reserved */ -/* Slot 606 is reserved */ -/* Slot 607 is reserved */ -/* Slot 608 is reserved */ -/* Slot 609 is reserved */ -/* Slot 610 is reserved */ -/* Slot 611 is reserved */ -/* Slot 612 is reserved */ -/* Slot 613 is reserved */ -/* Slot 614 is reserved */ -/* Slot 615 is reserved */ -/* Slot 616 is reserved */ -/* Slot 617 is reserved */ -/* Slot 618 is reserved */ -/* Slot 619 is reserved */ -/* Slot 620 is reserved */ -/* Slot 621 is reserved */ -/* Slot 622 is reserved */ -/* Slot 623 is reserved */ -/* Slot 624 is reserved */ -/* Slot 625 is reserved */ -/* Slot 626 is reserved */ -/* Slot 627 is reserved */ -/* Slot 628 is reserved */ -/* Slot 629 is reserved */ -/* Slot 630 is reserved */ -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -#ifndef TclUnusedStubEntry -#define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 648 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TclUnusedStubEntry - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef Tcl_PkgPresent -#define Tcl_PkgPresent(interp, name, version, exact) \ - Tcl_PkgPresentEx(interp, name, version, exact, NULL) -#undef Tcl_PkgProvide -#define Tcl_PkgProvide(interp, name, version) \ - Tcl_PkgProvideEx(interp, name, version, NULL) -#undef Tcl_PkgRequire -#define Tcl_PkgRequire(interp, name, version, exact) \ - Tcl_PkgRequireEx(interp, name, version, exact, NULL) -#undef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ - Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ - sizeof(char *), msg, flags, indexPtr) -#undef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj(boolValue) \ - Tcl_NewIntObj((boolValue)!=0) -#undef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj(boolValue, file, line) \ - Tcl_DbNewLongObj((boolValue)!=0, file, line) -#undef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj(objPtr, boolValue) \ - Tcl_SetIntObj((objPtr), (boolValue)!=0) -#undef Tcl_SetVar -#define Tcl_SetVar(interp, varName, newValue, flags) \ - Tcl_SetVar2(interp, varName, NULL, newValue, flags) -#undef Tcl_UnsetVar -#define Tcl_UnsetVar(interp, varName, flags) \ - Tcl_UnsetVar2(interp, varName, NULL, flags) -#undef Tcl_GetVar -#define Tcl_GetVar(interp, varName, flags) \ - Tcl_GetVar2(interp, varName, NULL, flags) -#undef Tcl_TraceVar -#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ - Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_UntraceVar -#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ - Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ - Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) -#undef Tcl_UpVar -#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ - Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) -# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) -/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore - * we have to make sure that all stub entries on Cygwin64 follow the - * Win64 signature. Cygwin64 stubbed extensions cannot use those stub - * entries any more, they should use the 64-bit alternatives where - * possible. Tcl 9 must find a better solution, but that cannot be done - * without introducing a binary incompatibility. - */ -# undef Tcl_DbNewLongObj -# undef Tcl_GetLongFromObj -# undef Tcl_NewLongObj -# undef Tcl_SetLongObj -# undef Tcl_ExprLong -# undef Tcl_ExprLongObj -# undef Tcl_UniCharNcmp -# undef Tcl_UtfNcmp -# undef Tcl_UtfNcasecmp -# undef Tcl_UniCharNcasecmp -# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj) -# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj) -# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj) -# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj) -# define Tcl_ExprLong TclExprLong - static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_ExprLongObj TclExprLongObj - static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_UniCharNcmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) -# define Tcl_UtfNcmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UtfNcasecmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UniCharNcasecmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) -# endif -#endif - -/* - * Deprecated Tcl procedures: - */ - -#undef Tcl_EvalObj -#define Tcl_EvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),0) -#undef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) - -#endif /* _TCLDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclInt.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclInt.h deleted file mode 100644 index 06cff604e..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclInt.h +++ /dev/null @@ -1,3981 +0,0 @@ -/* - * tclInt.h -- - * - * Declarations of things used internally by the Tcl interpreter. - * - * Copyright (c) 1987-1993 The Regents of the University of California. - * Copyright (c) 1993-1997 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-1999 by Scriptics Corporation. - * Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. - * Copyright (c) 2007 Daniel A. Steffen - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINT -#define _TCLINT - -/* - * Some numerics configuration options. - */ - -#undef NO_WIDE_TYPE -#undef ACCEPT_NAN - -/* - * Common include files needed by most of the Tcl source files are included - * here, so that system-dependent personalizations for the include files only - * have to be made in once place. This results in a few extra includes, but - * greater modularity. The order of the three groups of #includes is - * important. For example, stdio.h is needed by tcl.h, and the _ANSI_ARGS_ - * declaration in tcl.h is needed by stdlib.h in some configurations. - */ - -#include "tclPort.h" - -#include - -#include -#ifdef NO_STDLIB_H -# include "../compat/stdlib.h" -#else -# include -#endif -#ifdef NO_STRING_H -#include "../compat/string.h" -#else -#include -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -#include -#else -typedef int ptrdiff_t; -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correctly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * When Tcl_WideInt and long are the same type, there's no value in - * having a tclWideIntType separate from the tclIntType. - */ -#ifdef TCL_WIDE_INT_IS_LONG -#define NO_WIDE_TYPE -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void *)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void *)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void *)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void *)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -/* - * The following procedures allow namespaces to be customized to support - * special name resolution rules for commands/variables. - */ - -struct Tcl_ResolvedVarInfo; - -typedef Tcl_Var (Tcl_ResolveRuntimeVarProc)(Tcl_Interp *interp, - struct Tcl_ResolvedVarInfo *vinfoPtr); - -typedef void (Tcl_ResolveVarDeleteProc)(struct Tcl_ResolvedVarInfo *vinfoPtr); - -/* - * The following structure encapsulates the routines needed to resolve a - * variable reference at runtime. Any variable specific state will typically - * be appended to this structure. - */ - -typedef struct Tcl_ResolvedVarInfo { - Tcl_ResolveRuntimeVarProc *fetchProc; - Tcl_ResolveVarDeleteProc *deleteProc; -} Tcl_ResolvedVarInfo; - -typedef int (Tcl_ResolveCompiledVarProc)(Tcl_Interp *interp, - CONST84 char *name, int length, Tcl_Namespace *context, - Tcl_ResolvedVarInfo **rPtr); - -typedef int (Tcl_ResolveVarProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Var *rPtr); - -typedef int (Tcl_ResolveCmdProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Command *rPtr); - -typedef struct Tcl_ResolverInfo { - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ -} Tcl_ResolverInfo; - -/* - *---------------------------------------------------------------- - * Data structures related to namespaces. - *---------------------------------------------------------------- - */ - -typedef struct Tcl_Ensemble Tcl_Ensemble; -typedef struct NamespacePathEntry NamespacePathEntry; - -/* - * Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr - * field added at the end: in this way variables can find their namespace - * without having to copy a pointer in their struct: they can access it via - * their hPtr->tablePtr. - */ - -typedef struct TclVarHashTable { - Tcl_HashTable table; - struct Namespace *nsPtr; -} TclVarHashTable; - -/* - * This is for itcl - it likes to search our varTables directly :( - */ - -#define TclVarHashFindVar(tablePtr, key) \ - TclVarHashCreateVar((tablePtr), (key), NULL) - - -/* - * The structure below defines a namespace. - * Note: the first five fields must match exactly the fields in a - * Tcl_Namespace structure (see tcl.h). If you change one, be sure to change - * the other. - */ - -typedef struct Namespace { - char *name; /* The namespace's simple (unqualified) name. - * This contains no ::'s. The name of the - * global namespace is "" although "::" is an - * synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* An arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Procedure invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Namespace *parentPtr;/* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ - Tcl_HashTable childTable; /* Contains any child namespaces. Indexed by - * strings; values have type (Namespace *). */ - long nsId; /* Unique id for the namespace. */ - Tcl_Interp *interp; /* The interpreter containing this - * namespace. */ - int flags; /* OR-ed combination of the namespace status - * flags NS_DYING and NS_DEAD listed below. */ - int activationCount; /* Number of "activations" or active call - * frames for this namespace that are on the - * Tcl call stack. The namespace won't be - * freed until activationCount becomes zero. */ - int refCount; /* Count of references by namespaceName - * objects. The namespace can't be freed until - * refCount becomes zero. */ - Tcl_HashTable cmdTable; /* Contains all the commands currently - * registered in the namespace. Indexed by - * strings; values have type (Command *). - * Commands imported by Tcl_Import have - * Command structures that point (via an - * ImportedCmdRef structure) to the Command - * structure in the source namespace's command - * table. */ - TclVarHashTable varTable; /* Contains all the (global) variables - * currently in this namespace. Indexed by - * strings; values have type (Var *). */ - char **exportArrayPtr; /* Points to an array of string patterns - * specifying which commands are exported. A - * pattern may include "string match" style - * wildcard characters to specify multiple - * commands; however, no namespace qualifiers - * are allowed. NULL if no export patterns are - * registered. */ - int numExportPatterns; /* Number of export patterns currently - * registered using "namespace export". */ - int maxExportPatterns; /* Mumber of export patterns for which space - * is currently allocated. */ - int cmdRefEpoch; /* Incremented if a newly added command - * shadows a command for which this namespace - * has already cached a Command* pointer; this - * causes all its cached Command* pointers to - * be invalidated. */ - int resolverEpoch; /* Incremented whenever (a) the name - * resolution rules change for this namespace - * or (b) a newly added command shadows a - * command that is compiled to bytecodes. This - * invalidates all byte codes compiled in the - * namespace, causing the code to be - * recompiled under the new rules.*/ - Tcl_ResolveCmdProc *cmdResProc; - /* If non-null, this procedure overrides the - * usual command resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindCommand to resolve all command - * references within the namespace. */ - Tcl_ResolveVarProc *varResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindNamespaceVar to resolve all - * variable references within the namespace at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * LookupCompiledLocal to resolve variable - * references within the namespace at compile - * time. */ - int exportLookupEpoch; /* Incremented whenever a command is added to - * a namespace, removed from a namespace or - * the exports of a namespace are changed. - * Allows TIP#112-driven command lists to be - * validated efficiently. */ - Tcl_Ensemble *ensembles; /* List of structures that contain the details - * of the ensembles that are implemented on - * top of this namespace. */ - Tcl_Obj *unknownHandlerPtr; /* A script fragment to be used when command - * resolution in this namespace fails. TIP - * 181. */ - int commandPathLength; /* The length of the explicit path. */ - NamespacePathEntry *commandPathArray; - /* The explicit path of the namespace as an - * array. */ - NamespacePathEntry *commandPathSourceList; - /* Linked list of path entries that point to - * this namespace. */ -} Namespace; - -/* - * An entry on a namespace's command resolution path. - */ - -struct NamespacePathEntry { - Namespace *nsPtr; /* What does this path entry point to? If it - * is NULL, this path entry points is - * redundant and should be skipped. */ - Namespace *creatorNsPtr; /* Where does this path entry point from? This - * allows for efficient invalidation of - * references when the path entry's target - * updates its current list of defined - * commands. */ - NamespacePathEntry *prevPtr, *nextPtr; - /* Linked list pointers or NULL at either end - * of the list that hangs off Namespace's - * commandPathSourceList field. */ -}; - -/* - * Flags used to represent the status of a namespace: - * - * NS_DYING - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace but there are still active call frames on the Tcl - * stack that refer to the namespace. When the last call frame - * referring to it has been popped, it's variables and command - * will be destroyed and it will be marked "dead" (NS_DEAD). The - * namespace can no longer be looked up by name. - * NS_DEAD - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace and no call frames still refer to it. Its variables - * and command have already been destroyed. This bit allows the - * namespace resolution code to recognize that the namespace is - * "deleted". When the last namespaceName object in any byte code - * unit that refers to the namespace has been freed (i.e., when - * the namespace's refCount is 0), the namespace's storage will - * be freed. - * NS_KILLED 1 means that TclTeardownNamespace has already been called on - * this namespace and it should not be called again [Bug 1355942] - */ - -#define NS_DYING 0x01 -#define NS_DEAD 0x02 -#define NS_KILLED 0x04 - -/* - * Flags passed to TclGetNamespaceForQualName: - * - * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns. - * TCL_NAMESPACE_ONLY - (see tcl.h) Look only in the context ns. - * TCL_CREATE_NS_IF_UNKNOWN - Create unknown namespaces. - * TCL_FIND_ONLY_NS - The name sought is a namespace name. - */ - -#define TCL_CREATE_NS_IF_UNKNOWN 0x800 -#define TCL_FIND_ONLY_NS 0x1000 - -/* - * The data cached in an ensemble subcommand's Tcl_Obj rep (reference in - * twoPtrValue.ptr1 field). This structure is not shared between Tcl_Objs - * referring to the same subcommand, even where one is a duplicate of another. - */ - -typedef struct { - Namespace *nsPtr; /* The namespace backing the ensemble which - * this is a subcommand of. */ - int epoch; /* Used to confirm when the data in this - * really structure matches up with the - * ensemble. */ - Tcl_Command token; /* Reference to the comamnd for which this - * structure is a cache of the resolution. */ - char *fullSubcmdName; /* The full (local) name of the subcommand, - * allocated with ckalloc(). */ - Tcl_Obj *realPrefixObj; /* Object containing the prefix words of the - * command that implements this ensemble - * subcommand. */ -} EnsembleCmdRep; - -/* - * Flag to enable bytecode compilation of an ensemble. - */ - -#define ENSEMBLE_COMPILE 0x4 - -/* - *---------------------------------------------------------------- - * Data structures related to variables. These are used primarily in tclVar.c - *---------------------------------------------------------------- - */ - -/* - * The following structure defines a variable trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * variable. - */ - -typedef struct VarTrace { - Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given by - * flags are performed on variable. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_READS, TCL_TRACE_WRITES, - * TCL_TRACE_UNSETS and TCL_TRACE_ARRAY. */ - struct VarTrace *nextPtr; /* Next in list of traces associated with a - * particular variable. */ -} VarTrace; - -/* - * The following structure defines a command trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * command. - */ - -typedef struct CommandTrace { - Tcl_CommandTraceProc *traceProc; - /* Procedure to call when operations given by - * flags are performed on command. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ - struct CommandTrace *nextPtr; - /* Next in list of traces associated with a - * particular command. */ - int refCount; /* Used to ensure this structure is not - * deleted too early. Keeps track of how many - * pieces of code have a pointer to this - * structure. */ -} CommandTrace; - -/* - * When a command trace is active (i.e. its associated procedure is executing) - * one of the following structures is linked into a list associated with the - * command's interpreter. The information in the structure is needed in order - * for Tcl to behave reasonably if traces are deleted while traces are active. - */ - -typedef struct ActiveCommandTrace { - struct Command *cmdPtr; /* Command that's being traced. */ - struct ActiveCommandTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - CommandTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveCommandTrace; - -/* - * When a variable trace is active (i.e. its associated procedure is - * executing) one of the following structures is linked into a list associated - * with the variable's interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveVarTrace { - struct Var *varPtr; /* Variable that's being traced. */ - struct ActiveVarTrace *nextPtr; - /* Next in list of all active variable traces - * for the interpreter, or NULL if no more. */ - VarTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ -} ActiveVarTrace; - -/* - * The structure below defines a variable, which associates a string name with - * a Tcl_Obj value. These structures are kept in procedure call frames (for - * local variables recognized by the compiler) or in the heap (for global - * variables and any variable not known to the compiler). For each Var - * structure in the heap, a hash table entry holds the variable name and a - * pointer to the Var structure. - */ - -typedef struct Var { - int flags; /* Miscellaneous bits of information about - * variable. See below for definitions. */ - union { - Tcl_Obj *objPtr; /* The variable's object value. Used for - * scalar variables and array elements. */ - TclVarHashTable *tablePtr;/* For array variables, this points to - * information about the hash table used to - * implement the associative array. Points to - * ckalloc-ed data. */ - struct Var *linkPtr; /* If this is a global variable being referred - * to in a procedure, or a variable created by - * "upvar", this field points to the - * referenced variable's Var struct. */ - } value; -} Var; - -typedef struct VarInHash { - Var var; - int refCount; /* Counts number of active uses of this - * variable: 1 for the entry in the hash - * table, 1 for each additional variable whose - * linkPtr points here, 1 for each nested - * trace active on variable, and 1 if the - * variable is a namespace variable. This - * record can't be deleted until refCount - * becomes 0. */ - Tcl_HashEntry entry; /* The hash table entry that refers to this - * variable. This is used to find the name of - * the variable and to delete it from its - * hashtable if it is no longer needed. It - * also holds the variable's name. */ -} VarInHash; - -/* - * Flag bits for variables. The first two (VAR_ARRAY and VAR_LINK) are - * mutually exclusive and give the "type" of the variable. If none is set, - * this is a scalar variable. - * - * VAR_ARRAY - 1 means this is an array variable rather than - * a scalar variable or link. The "tablePtr" - * field points to the array's hashtable for its - * elements. - * VAR_LINK - 1 means this Var structure contains a pointer - * to another Var structure that either has the - * real value or is itself another VAR_LINK - * pointer. Variables like this come about - * through "upvar" and "global" commands, or - * through references to variables in enclosing - * namespaces. - * - * Flags that indicate the type and status of storage; none is set for - * compiled local variables (Var structs). - * - * VAR_IN_HASHTABLE - 1 means this variable is in a hashtable and - * the Var structure is malloced. 0 if it is a - * local variable that was assigned a slot in a - * procedure frame by the compiler so the Var - * storage is part of the call frame. - * VAR_DEAD_HASH 1 means that this var's entry in the hashtable - * has already been deleted. - * VAR_ARRAY_ELEMENT - 1 means that this variable is an array - * element, so it is not legal for it to be an - * array itself (the VAR_ARRAY flag had better - * not be set). - * VAR_NAMESPACE_VAR - 1 means that this variable was declared as a - * namespace variable. This flag ensures it - * persists until its namespace is destroyed or - * until the variable is unset; it will persist - * even if it has not been initialized and is - * marked undefined. The variable's refCount is - * incremented to reflect the "reference" from - * its namespace. - * - * Flag values relating to the variable's trace and search status. - * - * VAR_TRACED_READ - * VAR_TRACED_WRITE - * VAR_TRACED_UNSET - * VAR_TRACED_ARRAY - * VAR_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a read or write access, so new - * read or write accesses should not cause trace - * procedures to be called and the variable can't - * be deleted. - * VAR_SEARCH_ACTIVE - * - * The following additional flags are used with the CompiledLocal type defined - * below: - * - * VAR_ARGUMENT - 1 means that this variable holds a procedure - * argument. - * VAR_TEMPORARY - 1 if the local variable is an anonymous - * temporary variable. Temporaries have a NULL - * name. - * VAR_RESOLVED - 1 if name resolution has been done for this - * variable. - * VAR_IS_ARGS 1 if this variable is the last argument and is - * named "args". - */ - -/* - * FLAGS RENUMBERED: everything breaks already, make things simpler. - * - * IMPORTANT: skip the values 0x10, 0x20, 0x40, 0x800 corresponding to - * TCL_TRACE_(READS/WRITES/UNSETS/ARRAY): makes code simpler in tclTrace.c - * - * Keep the flag values for VAR_ARGUMENT and VAR_TEMPORARY so that old values - * in precompiled scripts keep working. - */ - -/* Type of value (0 is scalar) */ -#define VAR_ARRAY 0x1 -#define VAR_LINK 0x2 - -/* Type of storage (0 is compiled local) */ -#define VAR_IN_HASHTABLE 0x4 -#define VAR_DEAD_HASH 0x8 -#define VAR_ARRAY_ELEMENT 0x1000 -#define VAR_NAMESPACE_VAR 0x80 /* KEEP OLD VALUE for Itcl */ - -#define VAR_ALL_HASH \ - (VAR_IN_HASHTABLE|VAR_DEAD_HASH|VAR_NAMESPACE_VAR|VAR_ARRAY_ELEMENT) - -/* Trace and search state. */ - -#define VAR_TRACED_READ 0x10 /* TCL_TRACE_READS */ -#define VAR_TRACED_WRITE 0x20 /* TCL_TRACE_WRITES */ -#define VAR_TRACED_UNSET 0x40 /* TCL_TRACE_UNSETS */ -#define VAR_TRACED_ARRAY 0x800 /* TCL_TRACE_ARRAY */ -#define VAR_TRACE_ACTIVE 0x2000 -#define VAR_SEARCH_ACTIVE 0x4000 -#define VAR_ALL_TRACES \ - (VAR_TRACED_READ|VAR_TRACED_WRITE|VAR_TRACED_ARRAY|VAR_TRACED_UNSET) - -/* Special handling on initialisation (only CompiledLocal). */ -#define VAR_ARGUMENT 0x100 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_TEMPORARY 0x200 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_IS_ARGS 0x400 -#define VAR_RESOLVED 0x8000 - -/* - * Macros to ensure that various flag bits are set properly for variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetVarScalar(Var *varPtr); - * MODULE_SCOPE void TclSetVarArray(Var *varPtr); - * MODULE_SCOPE void TclSetVarLink(Var *varPtr); - * MODULE_SCOPE void TclSetVarArrayElement(Var *varPtr); - * MODULE_SCOPE void TclSetVarUndefined(Var *varPtr); - * MODULE_SCOPE void TclClearVarUndefined(Var *varPtr); - */ - -#define TclSetVarScalar(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK) - -#define TclSetVarArray(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_LINK) | VAR_ARRAY - -#define TclSetVarLink(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_LINK - -#define TclSetVarArrayElement(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_ARRAY_ELEMENT - -#define TclSetVarUndefined(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK);\ - (varPtr)->value.objPtr = NULL - -#define TclClearVarUndefined(varPtr) - -#define TclSetVarTraceActive(varPtr) \ - (varPtr)->flags |= VAR_TRACE_ACTIVE - -#define TclClearVarTraceActive(varPtr) \ - (varPtr)->flags &= ~VAR_TRACE_ACTIVE - -#define TclSetVarNamespaceVar(varPtr) \ - if (!TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags |= VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount++;\ - }\ - } - -#define TclClearVarNamespaceVar(varPtr) \ - if (TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags &= ~VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount--;\ - }\ - } - -/* - * Macros to read various flag bits of variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsVarScalar(Var *varPtr); - * MODULE_SCOPE int TclIsVarLink(Var *varPtr); - * MODULE_SCOPE int TclIsVarArray(Var *varPtr); - * MODULE_SCOPE int TclIsVarUndefined(Var *varPtr); - * MODULE_SCOPE int TclIsVarArrayElement(Var *varPtr); - * MODULE_SCOPE int TclIsVarTemporary(Var *varPtr); - * MODULE_SCOPE int TclIsVarArgument(Var *varPtr); - * MODULE_SCOPE int TclIsVarResolved(Var *varPtr); - */ - -#define TclIsVarScalar(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK)) - -#define TclIsVarLink(varPtr) \ - ((varPtr)->flags & VAR_LINK) - -#define TclIsVarArray(varPtr) \ - ((varPtr)->flags & VAR_ARRAY) - -#define TclIsVarUndefined(varPtr) \ - ((varPtr)->value.objPtr == NULL) - -#define TclIsVarArrayElement(varPtr) \ - ((varPtr)->flags & VAR_ARRAY_ELEMENT) - -#define TclIsVarNamespaceVar(varPtr) \ - ((varPtr)->flags & VAR_NAMESPACE_VAR) - -#define TclIsVarTemporary(varPtr) \ - ((varPtr)->flags & VAR_TEMPORARY) - -#define TclIsVarArgument(varPtr) \ - ((varPtr)->flags & VAR_ARGUMENT) - -#define TclIsVarResolved(varPtr) \ - ((varPtr)->flags & VAR_RESOLVED) - -#define TclIsVarTraceActive(varPtr) \ - ((varPtr)->flags & VAR_TRACE_ACTIVE) - -#define TclIsVarTraced(varPtr) \ - ((varPtr)->flags & VAR_ALL_TRACES) - -#define TclIsVarInHash(varPtr) \ - ((varPtr)->flags & VAR_IN_HASHTABLE) - -#define TclIsVarDeadHash(varPtr) \ - ((varPtr)->flags & VAR_DEAD_HASH) - -#define TclGetVarNsPtr(varPtr) \ - (TclIsVarInHash(varPtr) \ - ? ((TclVarHashTable *) ((((VarInHash *) (varPtr))->entry.tablePtr)))->nsPtr \ - : NULL) - -#define VarHashRefCount(varPtr) \ - ((VarInHash *) (varPtr))->refCount - -/* - * Macros for direct variable access by TEBC. - */ - -#define TclIsVarDirectReadable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectWritable(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_WRITE|VAR_DEAD_HASH)) - -#define TclIsVarDirectModifyable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ|VAR_TRACED_WRITE)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectReadable2(varPtr, arrayPtr) \ - (TclIsVarDirectReadable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_READ))) - -#define TclIsVarDirectWritable2(varPtr, arrayPtr) \ - (TclIsVarDirectWritable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_WRITE))) - -#define TclIsVarDirectModifyable2(varPtr, arrayPtr) \ - (TclIsVarDirectModifyable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & (VAR_TRACED_READ|VAR_TRACED_WRITE)))) - -/* - *---------------------------------------------------------------- - * Data structures related to procedures. These are used primarily in - * tclProc.c, tclCompile.c, and tclExecute.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent an error when the forward reference to - * Command is encountered in the Proc and ImportRef types declared below. - */ - -struct Command; - -/* - * The variable-length structure below describes a local variable of a - * procedure that was recognized by the compiler. These variables have a name, - * an element in the array of compiler-assigned local variables in the - * procedure's call frame, and various other items of information. If the - * local variable is a formal argument, it may also have a default value. The - * compiler can't recognize local variables whose names are expressions (these - * names are only known at runtime when the expressions are evaluated) or - * local variables that are created as a result of an "upvar" or "uplevel" - * command. These other local variables are kept separately in a hash table in - * the call frame. - */ - -typedef struct CompiledLocal { - struct CompiledLocal *nextPtr; - /* Next compiler-recognized local variable for - * this procedure, or NULL if this is the last - * local. */ - int nameLength; /* The number of characters in local - * variable's name. Used to speed up variable - * lookups. */ - int frameIndex; /* Index in the array of compiler-assigned - * variables in the procedure call frame. */ - int flags; /* Flag bits for the local variable. Same as - * the flags for the Var structure above, - * although only VAR_ARGUMENT, VAR_TEMPORARY, - * and VAR_RESOLVED make sense. */ - Tcl_Obj *defValuePtr; /* Pointer to the default value of an - * argument, if any. NULL if not an argument - * or, if an argument, no default value. */ - Tcl_ResolvedVarInfo *resolveInfo; - /* Customized variable resolution info - * supplied by the Tcl_ResolveCompiledVarProc - * associated with a namespace. Each variable - * is marked by a unique ClientData tag during - * compilation, and that same tag is used to - * find the variable at runtime. */ - char name[4]; /* Name of the local variable starts here. If - * the name is NULL, this will just be '\0'. - * The actual size of this field will be large - * enough to hold the name. MUST BE THE LAST - * FIELD IN THE STRUCTURE! */ -} CompiledLocal; - -/* - * The structure below defines a command procedure, which consists of a - * collection of Tcl commands plus information about arguments and other local - * variables recognized at compile time. - */ - -typedef struct Proc { - struct Interp *iPtr; /* Interpreter for which this command is - * defined. */ - int refCount; /* Reference count: 1 if still present in - * command table plus 1 for each call to the - * procedure that is currently active. This - * structure can be freed when refCount - * becomes zero. */ - struct Command *cmdPtr; /* Points to the Command structure for this - * procedure. This is used to get the - * namespace in which to execute the - * procedure. */ - Tcl_Obj *bodyPtr; /* Points to the ByteCode object for - * procedure's body command. */ - int numArgs; /* Number of formal parameters. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments and - * temporaries. */ - CompiledLocal *firstLocalPtr; - /* Pointer to first of the procedure's - * compiler-allocated local variables, or NULL - * if none. The first numArgs entries in this - * list describe the procedure's formal - * arguments. */ - CompiledLocal *lastLocalPtr;/* Pointer to the last allocated local - * variable or NULL if none. This has frame - * index (numCompiledLocals-1). */ -} Proc; - -/* - * The type of functions called to process errors found during the execution - * of a procedure (or lambda term or ...). - */ - -typedef void (*ProcErrorProc)(Tcl_Interp *interp, Tcl_Obj *procNameObj); - -/* - * The structure below defines a command trace. This is used to allow Tcl - * clients to find out whenever a command is about to be executed. - */ - -typedef struct Trace { - int level; /* Only trace commands at nesting level less - * than or equal to this. */ - Tcl_CmdObjTraceProc *proc; /* Procedure to call to trace command. */ - ClientData clientData; /* Arbitrary value to pass to proc. */ - struct Trace *nextPtr; /* Next in list of traces for this interp. */ - int flags; /* Flags governing the trace - see - * Tcl_CreateObjTrace for details. */ - Tcl_CmdObjTraceDeleteProc *delProc; - /* Procedure to call when trace is deleted. */ -} Trace; - -/* - * When an interpreter trace is active (i.e. its associated procedure is - * executing), one of the following structures is linked into a list - * associated with the interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveInterpTrace { - struct ActiveInterpTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - Trace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveInterpTrace; - -/* - * Flag values designating types of execution traces. See tclTrace.c for - * related flag values. - * - * TCL_TRACE_ENTER_EXEC - triggers enter/enterstep traces. - * - passed to Tcl_CreateObjTrace to set up - * "enterstep" traces. - * TCL_TRACE_LEAVE_EXEC - triggers leave/leavestep traces. - * - passed to Tcl_CreateObjTrace to set up - * "leavestep" traces. - */ - -#define TCL_TRACE_ENTER_EXEC 1 -#define TCL_TRACE_LEAVE_EXEC 2 - -/* - * The structure below defines an entry in the assocData hash table which is - * associated with an interpreter. The entry contains a pointer to a function - * to call when the interpreter is deleted, and a pointer to a user-defined - * piece of data. - */ - -typedef struct AssocData { - Tcl_InterpDeleteProc *proc; /* Proc to call when deleting. */ - ClientData clientData; /* Value to pass to proc. */ -} AssocData; - -/* - * The structure below defines a call frame. A call frame defines a naming - * context for a procedure call: its local naming scope (for local variables) - * and its global naming scope (a namespace, perhaps the global :: namespace). - * A call frame can also define the naming context for a namespace eval or - * namespace inscope command: the namespace in which the command's code should - * execute. The Tcl_CallFrame structures exist only while procedures or - * namespace eval/inscope's are being executed, and provide a kind of Tcl call - * stack. - * - * WARNING!! The structure definition must be kept consistent with the - * Tcl_CallFrame structure in tcl.h. If you change one, change the other. - */ - -/* - * Will be grown to contain: pointers to the varnames (allocated at the end), - * plus the init values for each variable (suitable to be memcopied on init) - */ - -typedef struct LocalCache { - int refCount; - int numVars; - Tcl_Obj *varName0; -} LocalCache; - -#define localName(framePtr, i) \ - ((&((framePtr)->localCachePtr->varName0))[(i)]) - -MODULE_SCOPE void TclFreeLocalCache(Tcl_Interp *interp, - LocalCache *localCachePtr); - -typedef struct CallFrame { - Namespace *nsPtr; /* Points to the namespace used to resolve - * commands and global variables. */ - int isProcCallFrame; /* If 0, the frame was pushed to execute a - * namespace command and var references are - * treated as references to namespace vars; - * varTablePtr and compiledLocals are ignored. - * If FRAME_IS_PROC is set, the frame was - * pushed to execute a Tcl procedure and may - * have local vars. */ - int objc; /* This and objv below describe the arguments - * for this procedure call. */ - Tcl_Obj *const *objv; /* Array of argument objects. */ - struct CallFrame *callerPtr; - /* Value of interp->framePtr when this - * procedure was invoked (i.e. next higher in - * stack of all active procedures). */ - struct CallFrame *callerVarPtr; - /* Value of interp->varFramePtr when this - * procedure was invoked (i.e. determines - * variable scoping within caller). Same as - * callerPtr unless an "uplevel" command or - * something equivalent was active in the - * caller). */ - int level; /* Level of this procedure, for "uplevel" - * purposes (i.e. corresponds to nesting of - * callerVarPtr's, not callerPtr's). 1 for - * outermost procedure, 0 for top-level. */ - Proc *procPtr; /* Points to the structure defining the called - * procedure. Used to get information such as - * the number of compiled local variables - * (local variables assigned entries ["slots"] - * in the compiledLocals array below). */ - TclVarHashTable *varTablePtr; - /* Hash table containing local variables not - * recognized by the compiler, or created at - * execution time through, e.g., upvar. - * Initially NULL and created if needed. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments. */ - Var *compiledLocals; /* Points to the array of local variables - * recognized by the compiler. The compiler - * emits code that refers to these variables - * using an index into this array. */ - ClientData clientData; /* Pointer to some context that is used by - * object systems. The meaning of the contents - * of this field is defined by the code that - * sets it, and it should only ever be set by - * the code that is pushing the frame. In that - * case, the code that sets it should also - * have some means of discovering what the - * meaning of the value is, which we do not - * specify. */ - LocalCache *localCachePtr; -} CallFrame; - -#define FRAME_IS_PROC 0x1 -#define FRAME_IS_LAMBDA 0x2 - -/* - * TIP #280 - * The structure below defines a command frame. A command frame provides - * location information for all commands executing a tcl script (source, eval, - * uplevel, procedure bodies, ...). The runtime structure essentially contains - * the stack trace as it would be if the currently executing command were to - * throw an error. - * - * For commands where it makes sense it refers to the associated CallFrame as - * well. - * - * The structures are chained in a single list, with the top of the stack - * anchored in the Interp structure. - * - * Instances can be allocated on the C stack, or the heap, the former making - * cleanup a bit simpler. - */ - -typedef struct CmdFrame { - /* - * General data. Always available. - */ - - int type; /* Values see below. */ - int level; /* Number of frames in stack, prevent O(n) - * scan of list. */ - int *line; /* Lines the words of the command start on. */ - int nline; - CallFrame *framePtr; /* Procedure activation record, may be - * NULL. */ - struct CmdFrame *nextPtr; /* Link to calling frame. */ - /* - * Data needed for Eval vs TEBC - * - * EXECUTION CONTEXTS and usage of CmdFrame - * - * Field TEBC EvalEx EvalObjEx - * ======= ==== ====== ========= - * level yes yes yes - * type BC/PREBC SRC/EVAL EVAL_LIST - * line0 yes yes yes - * framePtr yes yes yes - * ======= ==== ====== ========= - * - * ======= ==== ====== ========= union data - * line1 - yes - - * line3 - yes - - * path - yes - - * ------- ---- ------ --------- - * codePtr yes - - - * pc yes - - - * ======= ==== ====== ========= - * - * ======= ==== ====== ========= | union cmd - * listPtr - - yes | - * ------- ---- ------ --------- | - * cmd yes yes - | - * cmdlen yes yes - | - * ------- ---- ------ --------- | - */ - - union { - struct { - Tcl_Obj *path; /* Path of the sourced file the command is - * in. */ - } eval; - struct { - const void *codePtr;/* Byte code currently executed... */ - const char *pc; /* ... and instruction pointer. */ - } tebc; - } data; - union { - struct { - const char *cmd; /* The executed command, if possible... */ - int len; /* ... and its length. */ - } str; - Tcl_Obj *listPtr; /* Tcl_EvalObjEx, cmd list. */ - } cmd; -} CmdFrame; - -typedef struct CFWord { - CmdFrame *framePtr; /* CmdFrame to access. */ - int word; /* Index of the word in the command. */ - int refCount; /* Number of times the word is on the - * stack. */ -} CFWord; - -typedef struct CFWordBC { - CmdFrame *framePtr; /* CmdFrame to access. */ - int pc; /* Instruction pointer of a command in - * ExtCmdLoc.loc[.] */ - int word; /* Index of word in - * ExtCmdLoc.loc[cmd]->line[.] */ - struct CFWordBC *prevPtr; /* Previous entry in stack for same Tcl_Obj. */ -} CFWordBC; - -/* - * Structure to record the locations of invisible continuation lines in - * literal scripts, as character offset from the beginning of the script. Both - * compiler and direct evaluator use this information to adjust their line - * counters when tracking through the script, because when it is invoked the - * continuation line marker as a whole has been removed already, meaning that - * the \n which was part of it is gone as well, breaking regular line - * tracking. - * - * These structures are allocated and filled by both the function - * TclSubstTokens() in the file "tclParse.c" and its caller TclEvalEx() in the - * file "tclBasic.c", and stored in the thread-global hashtable "lineCLPtr" in - * file "tclObj.c". They are used by the functions TclSetByteCodeFromAny() and - * TclCompileScript(), both found in the file "tclCompile.c". Their memory is - * released by the function TclFreeObj(), in the file "tclObj.c", and also by - * the function TclThreadFinalizeObjects(), in the same file. - */ - -#define CLL_END (-1) - -typedef struct ContLineLoc { - int num; /* Number of entries in loc, not counting the - * final -1 marker entry. */ - int loc[1]; /* Table of locations, as character offsets. - * The table is allocated as part of the - * structure, extending behind the nominal end - * of the structure. An entry containing the - * value -1 is put after the last location, as - * end-marker/sentinel. */ -} ContLineLoc; - -/* - * The following macros define the allowed values for the type field of the - * CmdFrame structure above. Some of the values occur only in the extended - * location data referenced via the 'baseLocPtr'. - * - * TCL_LOCATION_EVAL : Frame is for a script evaluated by EvalEx. - * TCL_LOCATION_EVAL_LIST : Frame is for a script evaluated by the list - * optimization path of EvalObjEx. - * TCL_LOCATION_BC : Frame is for bytecode. - * TCL_LOCATION_PREBC : Frame is for precompiled bytecode. - * TCL_LOCATION_SOURCE : Frame is for a script evaluated by EvalEx, from a - * sourced file. - * TCL_LOCATION_PROC : Frame is for bytecode of a procedure. - * - * A TCL_LOCATION_BC type in a frame can be overridden by _SOURCE and _PROC - * types, per the context of the byte code in execution. - */ - -#define TCL_LOCATION_EVAL (0) /* Location in a dynamic eval script. */ -#define TCL_LOCATION_EVAL_LIST (1) /* Location in a dynamic eval script, - * list-path. */ -#define TCL_LOCATION_BC (2) /* Location in byte code. */ -#define TCL_LOCATION_PREBC (3) /* Location in precompiled byte code, no - * location. */ -#define TCL_LOCATION_SOURCE (4) /* Location in a file. */ -#define TCL_LOCATION_PROC (5) /* Location in a dynamic proc. */ -#define TCL_LOCATION_LAST (6) /* Number of values in the enum. */ - -/* - * Structure passed to describe procedure-like "procedures" that are not - * procedures (e.g. a lambda) so that their details can be reported correctly - * by [info frame]. Contains a sub-structure for each extra field. - */ - -typedef Tcl_Obj *(*GetFrameInfoValueProc)(ClientData clientData); -typedef struct { - const char *name; /* Name of this field. */ - GetFrameInfoValueProc proc; /* Function to generate a Tcl_Obj* from the - * clientData, or just use the clientData - * directly (after casting) if NULL. */ - ClientData clientData; /* Context for above function, or Tcl_Obj* if - * proc field is NULL. */ -} ExtraFrameInfoField; -typedef struct { - int length; /* Length of array. */ - ExtraFrameInfoField fields[2]; - /* Really as long as necessary, but this is - * long enough for nearly anything. */ -} ExtraFrameInfo; - -/* - *---------------------------------------------------------------- - * Data structures and procedures related to TclHandles, which are a very - * lightweight method of preserving enough information to determine if an - * arbitrary malloc'd block has been deleted. - *---------------------------------------------------------------- - */ - -typedef void **TclHandle; - -/* - *---------------------------------------------------------------- - * Experimental flag value passed to Tcl_GetRegExpFromObj. Intended for use - * only by Expect. It will probably go away in a later release. - *---------------------------------------------------------------- - */ - -#define TCL_REG_BOSONLY 002000 /* Prepend \A to pattern so it only matches at - * the beginning of the string. */ - -/* - * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet - * when threads are used, or an emulation if there are no threads. These are - * really internal and Tcl clients should use Tcl_GetThreadData. - */ - -MODULE_SCOPE void * TclThreadDataKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclThreadDataKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); - -/* - * This is a convenience macro used to initialize a thread local storage ptr. - */ - -#define TCL_TSD_INIT(keyPtr) \ - (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) - -/* - *---------------------------------------------------------------- - * Data structures related to bytecode compilation and execution. These are - * used primarily in tclCompile.c, tclExecute.c, and tclBasic.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent errors when the forward references to - * Tcl_Parse and CompileEnv are encountered in the procedure type CompileProc - * declared below. - */ - -struct CompileEnv; - -/* - * The type of procedures called by the Tcl bytecode compiler to compile - * commands. Pointers to these procedures are kept in the Command structure - * describing each command. The integer value returned by a CompileProc must - * be one of the following: - * - * TCL_OK Compilation completed normally. - * TCL_ERROR Compilation could not be completed. This can be just a - * judgment by the CompileProc that the command is too - * complex to compile effectively, or it can indicate - * that in the current state of the interp, the command - * would raise an error. The bytecode compiler will not - * do any error reporting at compiler time. Error - * reporting is deferred until the actual runtime, - * because by then changes in the interp state may allow - * the command to be successfully evaluated. - * TCL_OUT_LINE_COMPILE A source-compatible alias for TCL_ERROR, kept for the - * sake of old code only. - */ - -#define TCL_OUT_LINE_COMPILE TCL_ERROR - -typedef int (CompileProc)(Tcl_Interp *interp, Tcl_Parse *parsePtr, - struct Command *cmdPtr, struct CompileEnv *compEnvPtr); - -/* - * The type of procedure called from the compilation hook point in - * SetByteCodeFromAny. - */ - -typedef int (CompileHookProc)(Tcl_Interp *interp, - struct CompileEnv *compEnvPtr, ClientData clientData); - -/* - * The data structure for a (linked list of) execution stacks. - */ - -typedef struct ExecStack { - struct ExecStack *prevPtr; - struct ExecStack *nextPtr; - Tcl_Obj **markerPtr; - Tcl_Obj **endPtr; - Tcl_Obj **tosPtr; - Tcl_Obj *stackWords[1]; -} ExecStack; - -/* - * The data structure defining the execution environment for ByteCode's. - * There is one ExecEnv structure per Tcl interpreter. It holds the evaluation - * stack that holds command operands and results. The stack grows towards - * increasing addresses. The member stackPtr points to the stackItems of the - * currently active execution stack. - */ - -typedef struct ExecEnv { - ExecStack *execStackPtr; /* Points to the first item in the evaluation - * stack on the heap. */ - Tcl_Obj *constants[2]; /* Pointers to constant "0" and "1" objs. */ -} ExecEnv; - -/* - * The definitions for the LiteralTable and LiteralEntry structures. Each - * interpreter contains a LiteralTable. It is used to reduce the storage - * needed for all the Tcl objects that hold the literals of scripts compiled - * by the interpreter. A literal's object is shared by all the ByteCodes that - * refer to the literal. Each distinct literal has one LiteralEntry entry in - * the LiteralTable. A literal table is a specialized hash table that is - * indexed by the literal's string representation, which may contain null - * characters. - * - * Note that we reduce the space needed for literals by sharing literal - * objects both within a ByteCode (each ByteCode contains a local - * LiteralTable) and across all an interpreter's ByteCodes (with the - * interpreter's global LiteralTable). - */ - -typedef struct LiteralEntry { - struct LiteralEntry *nextPtr; - /* Points to next entry in this hash bucket or - * NULL if end of chain. */ - Tcl_Obj *objPtr; /* Points to Tcl object that holds the - * literal's bytes and length. */ - int refCount; /* If in an interpreter's global literal - * table, the number of ByteCode structures - * that share the literal object; the literal - * entry can be freed when refCount drops to - * 0. If in a local literal table, -1. */ - Namespace *nsPtr; /* Namespace in which this literal is used. We - * try to avoid sharing literal non-FQ command - * names among different namespaces to reduce - * shimmering. */ -} LiteralEntry; - -typedef struct LiteralTable { - LiteralEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - LiteralEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables to avoid - * mallocs and frees. */ - int numBuckets; /* Total number of buckets allocated at - * **buckets. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int mask; /* Mask value used in hashing function. */ -} LiteralTable; - -/* - * The following structure defines for each Tcl interpreter various - * statistics-related information about the bytecode compiler and - * interpreter's operation in that interpreter. - */ - -#ifdef TCL_COMPILE_STATS -typedef struct ByteCodeStats { - long numExecutions; /* Number of ByteCodes executed. */ - long numCompilations; /* Number of ByteCodes created. */ - long numByteCodesFreed; /* Number of ByteCodes destroyed. */ - long instructionCount[256]; /* Number of times each instruction was - * executed. */ - - double totalSrcBytes; /* Total source bytes ever compiled. */ - double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ - double currentSrcBytes; /* Src bytes for all current ByteCodes. */ - double currentByteCodeBytes;/* Code bytes in all current ByteCodes. */ - - long srcCount[32]; /* Source size distribution: # of srcs of - * size [2**(n-1)..2**n), n in [0..32). */ - long byteCodeCount[32]; /* ByteCode size distribution. */ - long lifetimeCount[32]; /* ByteCode lifetime distribution (ms). */ - - double currentInstBytes; /* Instruction bytes-current ByteCodes. */ - double currentLitBytes; /* Current literal bytes. */ - double currentExceptBytes; /* Current exception table bytes. */ - double currentAuxBytes; /* Current auxiliary information bytes. */ - double currentCmdMapBytes; /* Current src<->code map bytes. */ - - long numLiteralsCreated; /* Total literal objects ever compiled. */ - double totalLitStringBytes; /* Total string bytes in all literals. */ - double currentLitStringBytes; - /* String bytes in current literals. */ - long literalCount[32]; /* Distribution of literal string sizes. */ -} ByteCodeStats; -#endif /* TCL_COMPILE_STATS */ - -/* - * Structure used in implementation of those core ensembles which are - * partially compiled. Used as an array of these, with a terminating field - * whose 'name' is NULL. - */ - -typedef struct { - const char *name; /* The name of the subcommand. */ - Tcl_ObjCmdProc *proc; /* The implementation of the subcommand. */ - CompileProc *compileProc; /* The compiler for the subcommand. */ -} EnsembleImplMap; - -/* - *---------------------------------------------------------------- - * Data structures related to commands. - *---------------------------------------------------------------- - */ - -/* - * An imported command is created in an namespace when it imports a "real" - * command from another namespace. An imported command has a Command structure - * that points (via its ClientData value) to the "real" Command structure in - * the source namespace's command table. The real command records all the - * imported commands that refer to it in a list of ImportRef structures so - * that they can be deleted when the real command is deleted. - */ - -typedef struct ImportRef { - struct Command *importedCmdPtr; - /* Points to the imported command created in - * an importing namespace; this command - * redirects its invocations to the "real" - * command. */ - struct ImportRef *nextPtr; /* Next element on the linked list of imported - * commands that refer to the "real" command. - * The real command deletes these imported - * commands on this list when it is - * deleted. */ -} ImportRef; - -/* - * Data structure used as the ClientData of imported commands: commands - * created in an namespace when it imports a "real" command from another - * namespace. - */ - -typedef struct ImportedCmdData { - struct Command *realCmdPtr; /* "Real" command that this imported command - * refers to. */ - struct Command *selfPtr; /* Pointer to this imported command. Needed - * only when deleting it in order to remove it - * from the real command's linked list of - * imported commands that refer to it. */ -} ImportedCmdData; - -/* - * A Command structure exists for each command in a namespace. The Tcl_Command - * opaque type actually refers to these structures. - */ - -typedef struct Command { - Tcl_HashEntry *hPtr; /* Pointer to the hash table entry that refers - * to this command. The hash table is either a - * namespace's command table or an - * interpreter's hidden command table. This - * pointer is used to get a command's name - * from its Tcl_Command handle. NULL means - * that the hash table entry has been removed - * already (this can happen if deleteProc - * causes the command to be deleted or - * recreated). */ - Namespace *nsPtr; /* Points to the namespace containing this - * command. */ - int refCount; /* 1 if in command hashtable plus 1 for each - * reference from a CmdName Tcl object - * representing a command's name in a ByteCode - * instruction sequence. This structure can be - * freed when refCount becomes zero. */ - int cmdEpoch; /* Incremented to invalidate any references - * that point to this command when it is - * renamed, deleted, hidden, or exposed. */ - CompileProc *compileProc; /* Procedure called to compile command. NULL - * if no compile proc exists for command. */ - Tcl_ObjCmdProc *objProc; /* Object-based command procedure. */ - ClientData objClientData; /* Arbitrary value passed to object proc. */ - Tcl_CmdProc *proc; /* String-based command procedure. */ - ClientData clientData; /* Arbitrary value passed to string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Procedure invoked when deleting command to, - * e.g., free all client data. */ - ClientData deleteData; /* Arbitrary value passed to deleteProc. */ - int flags; /* Miscellaneous bits of information about - * command. See below for definitions. */ - ImportRef *importRefPtr; /* List of each imported Command created in - * another namespace when this command is - * imported. These imported commands redirect - * invocations back to this command. The list - * is used to remove all those imported - * commands when deleting this "real" - * command. */ - CommandTrace *tracePtr; /* First in list of all traces set for this - * command. */ -} Command; - -/* - * Flag bits for commands. - * - * CMD_IS_DELETED - Means that the command is in the process of - * being deleted (its deleteProc is currently - * executing). Other attempts to delete the - * command should be ignored. - * CMD_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a rename/delete change. See the - * two flags below for which is currently being - * processed. - * CMD_HAS_EXEC_TRACES - 1 means that this command has at least one - * execution trace (as opposed to simple - * delete/rename traces) in its tracePtr list. - * TCL_TRACE_RENAME - A rename trace is in progress. Further - * recursive renames will not be traced. - * TCL_TRACE_DELETE - A delete trace is in progress. Further - * recursive deletes will not be traced. - * (these last two flags are defined in tcl.h) - */ - -#define CMD_IS_DELETED 0x1 -#define CMD_TRACE_ACTIVE 0x2 -#define CMD_HAS_EXEC_TRACES 0x4 -#define CMD_REDEF_IN_PROGRESS 0x10 - -/* - *---------------------------------------------------------------- - * Data structures related to name resolution procedures. - *---------------------------------------------------------------- - */ - -/* - * The interpreter keeps a linked list of name resolution schemes. The scheme - * for a namespace is consulted first, followed by the list of schemes in an - * interpreter, followed by the default name resolution in Tcl. Schemes are - * added/removed from the interpreter's list by calling Tcl_AddInterpResolver - * and Tcl_RemoveInterpResolver. - */ - -typedef struct ResolverScheme { - char *name; /* Name identifying this scheme. */ - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ - - struct ResolverScheme *nextPtr; - /* Pointer to next record in linked list. */ -} ResolverScheme; - -/* - * Forward declaration of the TIP#143 limit handler structure. - */ - -typedef struct LimitHandler LimitHandler; - -/* - * TIP #268. - * Values for the selection mode, i.e the package require preferences. - */ - -enum PkgPreferOptions { - PKG_PREFER_LATEST, PKG_PREFER_STABLE -}; - -/* - *---------------------------------------------------------------- - * This structure defines an interpreter, which is a collection of commands - * plus other state information related to interpreting commands, such as - * variable storage. Primary responsibility for this data structure is in - * tclBasic.c, but almost every Tcl source file uses something in here. - *---------------------------------------------------------------- - */ - -typedef struct Interp { - /* - * Note: the first three fields must match exactly the fields in a - * Tcl_Interp struct (see tcl.h). If you change one, be sure to change the - * other. - * - * The interpreter's result is held in both the string and the - * objResultPtr fields. These fields hold, respectively, the result's - * string or object value. The interpreter's result is always in the - * result field if that is non-empty, otherwise it is in objResultPtr. - * The two fields are kept consistent unless some C code sets - * interp->result directly. Programs should not access result and - * objResultPtr directly; instead, they should always get and set the - * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, and - * Tcl_GetStringResult. See the SetResult man page for details. - */ - - char *result; /* If the last command returned a string - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_FreeProc *freeProc; /* Zero means a string result is statically - * allocated. TCL_DYNAMIC means string result - * was allocated with ckalloc and should be - * freed with ckfree. Other values give - * address of procedure to invoke to free the - * string result. Tcl_Eval must free it before - * executing next command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number in the command where the error - * occurred (1 means first line). */ - struct TclStubs *stubTable; - /* Pointer to the exported Tcl stub table. On - * previous versions of Tcl this is a pointer - * to the objResultPtr or a pointer to a - * buckets array in a hash table. We therefore - * have to do some careful checking before we - * can use this. */ - - TclHandle handle; /* Handle used to keep track of when this - * interp is deleted. */ - - Namespace *globalNsPtr; /* The interpreter's global namespace. */ - Tcl_HashTable *hiddenCmdTablePtr; - /* Hash table used by tclBasic.c to keep track - * of hidden commands on a per-interp - * basis. */ - ClientData interpInfo; /* Information used by tclInterp.c to keep - * track of master/slave interps on a - * per-interp basis. */ - Tcl_HashTable unused2; /* No longer used (was mathFuncTable) */ - - /* - * Information related to procedures and variables. See tclProc.c and - * tclVar.c for usage. - */ - - int numLevels; /* Keeps track of how many nested calls to - * Tcl_Eval are in progress for this - * interpreter. It's used to delay deletion of - * the table until all Tcl_Eval invocations - * are completed. */ - int maxNestingDepth; /* If numLevels exceeds this value then Tcl - * assumes that infinite recursion has - * occurred and it generates an error. */ - CallFrame *framePtr; /* Points to top-most in stack of all nested - * procedure invocations. */ - CallFrame *varFramePtr; /* Points to the call frame whose variables - * are currently in use (same as framePtr - * unless an "uplevel" command is - * executing). */ - ActiveVarTrace *activeVarTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - int returnCode; /* [return -code] parameter. */ - CallFrame *rootFramePtr; /* Global frame pointer for this - * interpreter. */ - Namespace *lookupNsPtr; /* Namespace to use ONLY on the next - * TCL_EVAL_INVOKE call to Tcl_EvalObjv. */ - - /* - * Information used by Tcl_AppendResult to keep track of partial results. - * See Tcl_AppendResult code for details. - */ - - char *appendResult; /* Storage space for results generated by - * Tcl_AppendResult. Ckalloc-ed. NULL means - * not yet allocated. */ - int appendAvl; /* Total amount of space available at - * partialResult. */ - int appendUsed; /* Number of non-null bytes currently stored - * at partialResult. */ - - /* - * Information about packages. Used only in tclPkg.c. - */ - - Tcl_HashTable packageTable; /* Describes all of the packages loaded in or - * available to this interpreter. Keys are - * package names, values are (Package *) - * pointers. */ - char *packageUnknown; /* Command to invoke during "package require" - * commands for packages that aren't described - * in packageTable. Ckalloc'ed, may be - * NULL. */ - /* - * Miscellaneous information: - */ - - int cmdCount; /* Total number of times a command procedure - * has been called for this interpreter. */ - int evalFlags; /* Flags to control next call to Tcl_Eval. - * Normally zero, but may be set before - * calling Tcl_Eval. See below for valid - * values. */ - int unused1; /* No longer used (was termOffset) */ - LiteralTable literalTable; /* Contains LiteralEntry's describing all Tcl - * objects holding literals of scripts - * compiled by the interpreter. Indexed by the - * string representations of literals. Used to - * avoid creating duplicate objects. */ - int compileEpoch; /* Holds the current "compilation epoch" for - * this interpreter. This is incremented to - * invalidate existing ByteCodes when, e.g., a - * command with a compile procedure is - * redefined. */ - Proc *compiledProcPtr; /* If a procedure is being compiled, a pointer - * to its Proc structure; otherwise, this is - * NULL. Set by ObjInterpProc in tclProc.c and - * used by tclCompile.c to process local - * variables appropriately. */ - ResolverScheme *resolverPtr; - /* Linked list of name resolution schemes - * added to this interpreter. Schemes are - * added and removed by calling - * Tcl_AddInterpResolvers and - * Tcl_RemoveInterpResolver respectively. */ - Tcl_Obj *scriptFile; /* NULL means there is no nested source - * command active; otherwise this points to - * pathPtr of the file being sourced. */ - int flags; /* Various flag bits. See below. */ - long randSeed; /* Seed used for rand() function. */ - Trace *tracePtr; /* List of traces for this interpreter. */ - Tcl_HashTable *assocData; /* Hash table for associating data with this - * interpreter. Cleaned up when this - * interpreter is deleted. */ - struct ExecEnv *execEnvPtr; /* Execution environment for Tcl bytecode - * execution. Contains a pointer to the Tcl - * evaluation stack. */ - Tcl_Obj *emptyObjPtr; /* Points to an object holding an empty - * string. Returned by Tcl_ObjSetVar2 when - * variable traces change a variable in a - * gross way. */ - char resultSpace[TCL_RESULT_SIZE+1]; - /* Static space holding small results. */ - Tcl_Obj *objResultPtr; /* If the last command returned an object - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_ThreadId threadId; /* ID of thread that owns the interpreter. */ - - ActiveCommandTrace *activeCmdTracePtr; - /* First in list of active command traces for - * interp, or NULL if no active traces. */ - ActiveInterpTrace *activeInterpTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - - int tracesForbiddingInline; /* Count of traces (in the list headed by - * tracePtr) that forbid inline bytecode - * compilation. */ - - /* - * Fields used to manage extensible return options (TIP 90). - */ - - Tcl_Obj *returnOpts; /* A dictionary holding the options to the - * last [return] command. */ - - Tcl_Obj *errorInfo; /* errorInfo value (now as a Tcl_Obj). */ - Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable. */ - Tcl_Obj *errorCode; /* errorCode value (now as a Tcl_Obj). */ - Tcl_Obj *ecVar; /* cached ref to ::errorInfo variable. */ - int returnLevel; /* [return -level] parameter. */ - - /* - * Resource limiting framework support (TIP#143). - */ - - struct { - int active; /* Flag values defining which limits have been - * set. */ - int granularityTicker; /* Counter used to determine how often to - * check the limits. */ - int exceeded; /* Which limits have been exceeded, described - * as flag values the same as the 'active' - * field. */ - - int cmdCount; /* Limit for how many commands to execute in - * the interpreter. */ - LimitHandler *cmdHandlers; - /* Handlers to execute when the limit is - * reached. */ - int cmdGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - - Tcl_Time time; /* Time limit for execution within the - * interpreter. */ - LimitHandler *timeHandlers; - /* Handlers to execute when the limit is - * reached. */ - int timeGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - Tcl_TimerToken timeEvent; - /* Handle for a timer callback that will occur - * when the time-limit is exceeded. */ - - Tcl_HashTable callbacks;/* Mapping from (interp,type) pair to data - * used to install a limit handler callback to - * run in _this_ interp when the limit is - * exceeded. */ - } limit; - - /* - * Information for improved default error generation from ensembles - * (TIP#112). - */ - - struct { - Tcl_Obj *const *sourceObjs; - /* What arguments were actually input into the - * *root* ensemble command? (Nested ensembles - * don't rewrite this.) NULL if we're not - * processing an ensemble. */ - int numRemovedObjs; /* How many arguments have been stripped off - * because of ensemble processing. */ - int numInsertedObjs; /* How many of the current arguments were - * inserted by an ensemble. */ - } ensembleRewrite; - - /* - * TIP #219: Global info for the I/O system. - */ - - Tcl_Obj *chanMsg; /* Error message set by channel drivers, for - * the propagation of arbitrary Tcl errors. - * This information, if present (chanMsg not - * NULL), takes precedence over a POSIX error - * code returned by a channel operation. */ - - /* - * Source code origin information (TIP #280). - */ - - CmdFrame *cmdFramePtr; /* Points to the command frame containing the - * location information for the current - * command. */ - const CmdFrame *invokeCmdFramePtr; - /* Points to the command frame which is the - * invoking context of the bytecode compiler. - * NULL when the byte code compiler is not - * active. */ - int invokeWord; /* Index of the word in the command which - * is getting compiled. */ - Tcl_HashTable *linePBodyPtr;/* This table remembers for each statically - * defined procedure the location information - * for its body. It is keyed by the address of - * the Proc structure for a procedure. The - * values are "struct CmdFrame*". */ - Tcl_HashTable *lineBCPtr; /* This table remembers for each ByteCode - * object the location information for its - * body. It is keyed by the address of the - * Proc structure for a procedure. The values - * are "struct ExtCmdLoc*". (See - * tclCompile.h) */ - Tcl_HashTable *lineLABCPtr; - Tcl_HashTable *lineLAPtr; /* This table remembers for each argument of a - * command on the execution stack the index of - * the argument in the command, and the - * location data of the command. It is keyed - * by the address of the Tcl_Obj containing - * the argument. The values are "struct - * CFWord*" (See tclBasic.c). This allows - * commands like uplevel, eval, etc. to find - * location information for their arguments, - * if they are a proper literal argument to an - * invoking command. Alt view: An index to the - * CmdFrame stack keyed by command argument - * holders. */ - ContLineLoc *scriptCLLocPtr;/* This table points to the location data for - * invisible continuation lines in the script, - * if any. This pointer is set by the function - * TclEvalObjEx() in file "tclBasic.c", and - * used by function ...() in the same file. - * It does for the eval/direct path of script - * execution what CompileEnv.clLoc does for - * the bytecode compiler. - */ - /* - * TIP #268. The currently active selection mode, i.e. the package require - * preferences. - */ - - int packagePrefer; /* Current package selection mode. */ - - /* - * Hashtables for variable traces and searches. - */ - - Tcl_HashTable varTraces; /* Hashtable holding the start of a variable's - * active trace list; varPtr is the key. */ - Tcl_HashTable varSearches; /* Hashtable holding the start of a variable's - * active searches list; varPtr is the key. */ - /* - * The thread-specific data ekeko: cache pointers or values that - * (a) do not change during the thread's lifetime - * (b) require access to TSD to determine at runtime - * (c) are accessed very often (e.g., at each command call) - * - * Note that these are the same for all interps in the same thread. They - * just have to be initialised for the thread's master interp, slaves - * inherit the value. - * - * They are used by the macros defined below. - */ - - void *allocCache; - void *pendingObjDataPtr; /* Pointer to the Cache and PendingObjData - * structs for this interp's thread; see - * tclObj.c and tclThreadAlloc.c */ - int *asyncReadyPtr; /* Pointer to the asyncReady indicator for - * this interp's thread; see tclAsync.c */ - int *stackBound; /* Pointer to the limit stack address - * allowable for invoking a new command - * without "risking" a C-stack overflow; see - * TclpCheckStackSpace in the platform's - * directory. */ - - -#ifdef TCL_COMPILE_STATS - /* - * Statistical information about the bytecode compiler and interpreter's - * operation. - */ - - ByteCodeStats stats; /* Holds compilation and execution statistics - * for this interpreter. */ -#endif /* TCL_COMPILE_STATS */ -} Interp; - -/* - * Macros that use the TSD-ekeko. - */ - -#define TclAsyncReady(iPtr) \ - *((iPtr)->asyncReadyPtr) - -/* - * Macros for splicing into and out of doubly linked lists. They assume - * existence of struct items 'prevPtr' and 'nextPtr'. - * - * a = element to add or remove. - * b = list head. - * - * TclSpliceIn adds to the head of the list. - */ - -#define TclSpliceIn(a,b) \ - (a)->nextPtr = (b); \ - if ((b) != NULL) { \ - (b)->prevPtr = (a); \ - } \ - (a)->prevPtr = NULL, (b) = (a); - -#define TclSpliceOut(a,b) \ - if ((a)->prevPtr != NULL) { \ - (a)->prevPtr->nextPtr = (a)->nextPtr; \ - } else { \ - (b) = (a)->nextPtr; \ - } \ - if ((a)->nextPtr != NULL) { \ - (a)->nextPtr->prevPtr = (a)->prevPtr; \ - } - -/* - * EvalFlag bits for Interp structures: - * - * TCL_ALLOW_EXCEPTIONS 1 means it's OK for the script to terminate with a - * code other than TCL_OK or TCL_ERROR; 0 means codes - * other than these should be turned into errors. - */ - -#define TCL_ALLOW_EXCEPTIONS 0x04 -#define TCL_EVAL_FILE 0x02 -#define TCL_EVAL_CTX 0x08 -#define TCL_EVAL_DISCARD_RESULT 0x40 - -/* - * Flag bits for Interp structures: - * - * DELETED: Non-zero means the interpreter has been deleted: - * don't process any more commands for it, and destroy - * the structure as soon as all nested invocations of - * Tcl_Eval are done. - * ERR_ALREADY_LOGGED: Non-zero means information has already been logged in - * iPtr->errorInfo for the current Tcl_Eval instance, so - * Tcl_Eval needn't log it (used to implement the "error - * message log" command). - * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler should - * not compile any commands into an inline sequence of - * instructions. This is set 1, for example, when command - * traces are requested. - * RAND_SEED_INITIALIZED: Non-zero means that the randSeed value of the interp - * has not be initialized. This is set 1 when we first - * use the rand() or srand() functions. - * SAFE_INTERP: Non zero means that the current interp is a safe - * interp (i.e. it has only the safe commands installed, - * less priviledge than a regular interp). - * INTERP_DEBUG_FRAME: Used for switching on various extra interpreter - * debug/info mechanisms (e.g. info frame eval/uplevel - * tracing) which are performance intensive. - * INTERP_TRACE_IN_PROGRESS: Non-zero means that an interp trace is currently - * active; so no further trace callbacks should be - * invoked. - * INTERP_ALTERNATE_WRONG_ARGS: Used for listing second and subsequent forms - * of the wrong-num-args string in Tcl_WrongNumArgs. - * Makes it append instead of replacing and uses - * different intermediate text. - * - * WARNING: For the sake of some extensions that have made use of former - * internal values, do not re-use the flag values 2 (formerly ERR_IN_PROGRESS) - * or 8 (formerly ERROR_CODE_SET). - */ - -#define DELETED 1 -#define ERR_ALREADY_LOGGED 4 -#define INTERP_DEBUG_FRAME 0x10 -#define DONT_COMPILE_CMDS_INLINE 0x20 -#define RAND_SEED_INITIALIZED 0x40 -#define SAFE_INTERP 0x80 -#define INTERP_TRACE_IN_PROGRESS 0x200 -#define INTERP_ALTERNATE_WRONG_ARGS 0x400 -#define ERR_LEGACY_COPY 0x800 - -/* - * Maximum number of levels of nesting permitted in Tcl commands (used to - * catch infinite recursion). - */ - -#define MAX_NESTING_DEPTH 1000 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace. - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * This macro is used to properly align the memory allocated by Tcl, giving - * the same alignment as the native malloc. - */ - -#if defined(__APPLE__) -#define TCL_ALLOCALIGN 16 -#else -#define TCL_ALLOCALIGN (2*sizeof(void *)) -#endif - -/* - * This macro is used to determine the offset needed to safely allocate any - * data structure in memory. Given a starting offset or size, it "rounds up" - * or "aligns" the offset to the next 8-byte boundary so that any data - * structure can be placed at the resulting offset without fear of an - * alignment error. - * - * WARNING!! DO NOT USE THIS MACRO TO ALIGN POINTERS: it will produce the - * wrong result on platforms that allocate addresses that are divisible by 4 - * or 2. Only use it for offsets or sizes. - * - * This macro is only used by tclCompile.c in the core (Bug 926445). It - * however not be made file static, as extensions that touch bytecodes - * (notably tbcload) require it. - */ - -#define TCL_ALIGN(x) (((int)(x) + 7) & ~7) - -/* - * The following enum values are used to specify the runtime platform setting - * of the tclPlatform variable. - */ - -typedef enum { - TCL_PLATFORM_UNIX = 0, /* Any Unix-like OS. */ - TCL_PLATFORM_WINDOWS = 2 /* Any Microsoft Windows OS. */ -} TclPlatformType; - -/* - * The following enum values are used to indicate the translation of a Tcl - * channel. Declared here so that each platform can define - * TCL_PLATFORM_TRANSLATION to the native translation on that platform. - */ - -typedef enum TclEolTranslation { - TCL_TRANSLATE_AUTO, /* Eol == \r, \n and \r\n. */ - TCL_TRANSLATE_CR, /* Eol == \r. */ - TCL_TRANSLATE_LF, /* Eol == \n. */ - TCL_TRANSLATE_CRLF /* Eol == \r\n. */ -} TclEolTranslation; - -/* - * Flags for TclInvoke: - * - * TCL_INVOKE_HIDDEN Invoke a hidden command; if not set, invokes - * an exposed command. - * TCL_INVOKE_NO_UNKNOWN If set, "unknown" is not invoked if the - * command to be invoked is not found. Only has - * an effect if invoking an exposed command, - * i.e. if TCL_INVOKE_HIDDEN is not also set. - * TCL_INVOKE_NO_TRACEBACK Does not record traceback information if the - * invoked command returns an error. Used if the - * caller plans on recording its own traceback - * information. - */ - -#define TCL_INVOKE_HIDDEN (1<<0) -#define TCL_INVOKE_NO_UNKNOWN (1<<1) -#define TCL_INVOKE_NO_TRACEBACK (1<<2) - -/* - * The structure used as the internal representation of Tcl list objects. This - * struct is grown (reallocated and copied) as necessary to hold all the - * list's element pointers. The struct might contain more slots than currently - * used to hold all element pointers. This is done to make append operations - * faster. - */ - -typedef struct List { - int refCount; - int maxElemCount; /* Total number of element array slots. */ - int elemCount; /* Current number of list elements. */ - int canonicalFlag; /* Set if the string representation was - * derived from the list representation. May - * be ignored if there is no string rep at - * all.*/ - Tcl_Obj *elements; /* First list element; the struct is grown to - * accomodate all elements. */ -} List; - -#define LIST_MAX \ - (1 + (int)(((size_t)UINT_MAX - sizeof(List))/sizeof(Tcl_Obj *))) - -/* - * Macro used to get the elements of a list object. - */ - -#define ListRepPtr(listPtr) \ - ((List *) (listPtr)->internalRep.twoPtrValue.ptr1) - -#define ListSetIntRep(objPtr, listRepPtr) \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *)(listRepPtr), \ - (objPtr)->internalRep.twoPtrValue.ptr2 = NULL, \ - (listRepPtr)->refCount++, \ - (objPtr)->typePtr = &tclListType - -#define ListObjGetElements(listPtr, objc, objv) \ - ((objv) = &(ListRepPtr(listPtr)->elements), \ - (objc) = ListRepPtr(listPtr)->elemCount) - -#define ListObjLength(listPtr, len) \ - ((len) = ListRepPtr(listPtr)->elemCount) - -#define ListObjIsCanonical(listPtr) \ - (((listPtr)->bytes == NULL) || ListRepPtr(listPtr)->canonicalFlag) - -#define TclListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjGetElements((listPtr), *(objcPtr), *(objvPtr))), TCL_OK)\ - : Tcl_ListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr))) - -#define TclListObjLength(interp, listPtr, lenPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjLength((listPtr), *(lenPtr))), TCL_OK)\ - : Tcl_ListObjLength((interp), (listPtr), (lenPtr))) - -#define TclListObjIsCanonical(listPtr) \ - (((listPtr)->typePtr == &tclListType) ? ListObjIsCanonical((listPtr)) : 0) - -/* - * Macros providing a faster path to integers: Tcl_GetLongFromObj everywhere, - * Tcl_GetIntFromObj and TclGetIntForIndex on platforms where longs are ints. - * - * WARNING: these macros eval their args more than once. - */ - -#define TclGetLongFromObj(interp, objPtr, longPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(longPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetLongFromObj((interp), (objPtr), (longPtr))) - -#if (LONG_MAX == INT_MAX) -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(intPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetIntFromObj((interp), (objPtr), (intPtr))) -#define TclGetIntForIndexM(interp, objPtr, endValue, idxPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(idxPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : TclGetIntForIndex((interp), (objPtr), (endValue), (idxPtr))) -#else -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - Tcl_GetIntFromObj((interp), (objPtr), (intPtr)) -#define TclGetIntForIndexM(interp, objPtr, ignore, idxPtr) \ - TclGetIntForIndex(interp, objPtr, ignore, idxPtr) -#endif - -/* - * Flag values for TclTraceDictPath(). - * - * DICT_PATH_READ indicates that all entries on the path must exist but no - * updates will be needed. - * - * DICT_PATH_UPDATE indicates that we are going to be doing an update at the - * tip of the path, so duplication of shared objects should be done along the - * way. - * - * DICT_PATH_EXISTS indicates that we are performing an existance test and a - * lookup failure should therefore not be an error. If (and only if) this flag - * is set, TclTraceDictPath() will return the special value - * DICT_PATH_NON_EXISTENT if the path is not traceable. - * - * DICT_PATH_CREATE (which also requires the DICT_PATH_UPDATE bit to be set) - * indicates that we are to create non-existant dictionaries on the path. - */ - -#define DICT_PATH_READ 0 -#define DICT_PATH_UPDATE 1 -#define DICT_PATH_EXISTS 2 -#define DICT_PATH_CREATE 5 - -#define DICT_PATH_NON_EXISTENT ((Tcl_Obj *) (void *) 1) - -/* - *---------------------------------------------------------------- - * Data structures related to the filesystem internals - *---------------------------------------------------------------- - */ - -/* - * The version_2 filesystem is private to Tcl. As and when these changes have - * been thoroughly tested and investigated a new public filesystem interface - * will be released. The aim is more versatile virtual filesystem interfaces, - * more efficiency in 'path' manipulation and usage, and cleaner filesystem - * code internally. - */ - -#define TCL_FILESYSTEM_VERSION_2 ((Tcl_FSVersion) 0x2) -typedef ClientData (TclFSGetCwdProc2)(ClientData clientData); - -/* - * The following types are used for getting and storing platform-specific file - * attributes in tclFCmd.c and the various platform-versions of that file. - * This is done to have as much common code as possible in the file attributes - * code. For more information about the callbacks, see TclFileAttrsCmd in - * tclFCmd.c. - */ - -typedef int (TclGetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj **attrObjPtrPtr); -typedef int (TclSetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj *attrObjPtr); - -typedef struct TclFileAttrProcs { - TclGetFileAttrProc *getProc;/* The procedure for getting attrs. */ - TclSetFileAttrProc *setProc;/* The procedure for setting attrs. */ -} TclFileAttrProcs; - -/* - * Opaque handle used in pipeline routines to encapsulate platform-dependent - * state. - */ - -typedef struct TclFile_ *TclFile; - -/* - * The "globParameters" argument of the function TclGlob is an or'ed - * combination of the following values: - */ - -#define TCL_GLOBMODE_NO_COMPLAIN 1 -#define TCL_GLOBMODE_JOIN 2 -#define TCL_GLOBMODE_DIR 4 -#define TCL_GLOBMODE_TAILS 8 - -typedef enum Tcl_PathPart { - TCL_PATH_DIRNAME, - TCL_PATH_TAIL, - TCL_PATH_EXTENSION, - TCL_PATH_ROOT -} Tcl_PathPart; - -/* - *---------------------------------------------------------------- - * Data structures related to obsolete filesystem hooks - *---------------------------------------------------------------- - */ - -typedef int (TclStatProc_)(CONST char *path, struct stat *buf); -typedef int (TclAccessProc_)(CONST char *path, int mode); -typedef Tcl_Channel (TclOpenFileChannelProc_)(Tcl_Interp *interp, - CONST char *fileName, CONST char *modeString, int permissions); - -/* - *---------------------------------------------------------------- - * Data structures related to procedures - *---------------------------------------------------------------- - */ - -typedef Tcl_CmdProc *TclCmdProcType; -typedef Tcl_ObjCmdProc *TclObjCmdProcType; - -/* - *---------------------------------------------------------------- - * Data structures for process-global values. - *---------------------------------------------------------------- - */ - -typedef void (TclInitProcessGlobalValueProc)(char **valuePtr, int *lengthPtr, - Tcl_Encoding *encodingPtr); - -/* - * A ProcessGlobalValue struct exists for each internal value in Tcl that is - * to be shared among several threads. Each thread sees a (Tcl_Obj) copy of - * the value, and the master is kept as a counted string, with epoch and mutex - * control. Each ProcessGlobalValue struct should be a static variable in some - * file. - */ - -typedef struct ProcessGlobalValue { - int epoch; /* Epoch counter to detect changes in the - * master value. */ - int numBytes; /* Length of the master string. */ - char *value; /* The master string value. */ - Tcl_Encoding encoding; /* system encoding when master string was - * initialized. */ - TclInitProcessGlobalValueProc *proc; - /* A procedure to initialize the master string - * copy when a "get" request comes in before - * any "set" request has been received. */ - Tcl_Mutex mutex; /* Enforce orderly access from multiple - * threads. */ - Tcl_ThreadDataKey key; /* Key for per-thread data holding the - * (Tcl_Obj) copy for each thread. */ -} ProcessGlobalValue; - -/* - *---------------------------------------------------------------------- - * Flags for TclParseNumber - *---------------------------------------------------------------------- - */ - -#define TCL_PARSE_DECIMAL_ONLY 1 - /* Leading zero doesn't denote octal or - * hex. */ -#define TCL_PARSE_OCTAL_ONLY 2 - /* Parse octal even without prefix. */ -#define TCL_PARSE_HEXADECIMAL_ONLY 4 - /* Parse hexadecimal even without prefix. */ -#define TCL_PARSE_INTEGER_ONLY 8 - /* Disable floating point parsing. */ -#define TCL_PARSE_SCAN_PREFIXES 16 - /* Use [scan] rules dealing with 0? - * prefixes. */ -#define TCL_PARSE_NO_WHITESPACE 32 - /* Reject leading/trailing whitespace. */ - -/* - *---------------------------------------------------------------------- - * Type values TclGetNumberFromObj - *---------------------------------------------------------------------- - */ - -#define TCL_NUMBER_LONG 1 -#define TCL_NUMBER_WIDE 2 -#define TCL_NUMBER_BIG 3 -#define TCL_NUMBER_DOUBLE 4 -#define TCL_NUMBER_NAN 5 - -/* - *---------------------------------------------------------------- - * Variables shared among Tcl modules but not used by the outside world. - *---------------------------------------------------------------- - */ - -MODULE_SCOPE char *tclNativeExecutableName; -MODULE_SCOPE int tclFindExecutableSearchDone; -MODULE_SCOPE char *tclMemDumpFileName; -MODULE_SCOPE TclPlatformType tclPlatform; -MODULE_SCOPE Tcl_NotifierProcs tclOriginalNotifier; - -MODULE_SCOPE Tcl_Encoding tclIdentityEncoding; - -/* - * TIP #233 (Virtualized Time) - * Data for the time hooks, if any. - */ - -MODULE_SCOPE Tcl_GetTimeProc *tclGetTimeProcPtr; -MODULE_SCOPE Tcl_ScaleTimeProc *tclScaleTimeProcPtr; -MODULE_SCOPE ClientData tclTimeClientData; - -/* - * Variables denoting the Tcl object types defined in the core. - */ - -MODULE_SCOPE Tcl_ObjType tclBignumType; -MODULE_SCOPE Tcl_ObjType tclBooleanType; -MODULE_SCOPE Tcl_ObjType tclByteArrayType; -MODULE_SCOPE Tcl_ObjType tclByteCodeType; -MODULE_SCOPE Tcl_ObjType tclDoubleType; -MODULE_SCOPE Tcl_ObjType tclEndOffsetType; -MODULE_SCOPE Tcl_ObjType tclIntType; -MODULE_SCOPE Tcl_ObjType tclListType; -MODULE_SCOPE Tcl_ObjType tclDictType; -MODULE_SCOPE Tcl_ObjType tclProcBodyType; -MODULE_SCOPE Tcl_ObjType tclStringType; -MODULE_SCOPE Tcl_ObjType tclArraySearchType; -MODULE_SCOPE Tcl_ObjType tclEnsembleCmdType; -#ifndef NO_WIDE_TYPE -MODULE_SCOPE Tcl_ObjType tclWideIntType; -#endif -MODULE_SCOPE Tcl_ObjType tclRegexpType; - -/* - * Variables denoting the hash key types defined in the core. - */ - -MODULE_SCOPE Tcl_HashKeyType tclArrayHashKeyType; -MODULE_SCOPE Tcl_HashKeyType tclOneWordHashKeyType; -MODULE_SCOPE Tcl_HashKeyType tclStringHashKeyType; -MODULE_SCOPE Tcl_HashKeyType tclObjHashKeyType; - -/* - * The head of the list of free Tcl objects, and the total number of Tcl - * objects ever allocated and freed. - */ - -MODULE_SCOPE Tcl_Obj * tclFreeObjList; - -#ifdef TCL_COMPILE_STATS -MODULE_SCOPE long tclObjsAlloced; -MODULE_SCOPE long tclObjsFreed; -#define TCL_MAX_SHARED_OBJ_STATS 5 -MODULE_SCOPE long tclObjsShared[TCL_MAX_SHARED_OBJ_STATS]; -#endif /* TCL_COMPILE_STATS */ - -/* - * Pointer to a heap-allocated string of length zero that the Tcl core uses as - * the value of an empty string representation for an object. This value is - * shared by all new objects allocated by Tcl_NewObj. - */ - -MODULE_SCOPE char * tclEmptyStringRep; -MODULE_SCOPE char tclEmptyString; - -/* Flags for conversion of doubles to digit strings */ - -#define TCL_DD_SHORTEST 0x4 - /* Use the shortest possible string */ -#define TCL_DD_STEELE 0x5 - /* Use the original Steele&White algorithm */ -#define TCL_DD_E_FORMAT 0x2 - /* Use a fixed-length string of digits, - * suitable for E format*/ -#define TCL_DD_F_FORMAT 0x3 - /* Use a fixed number of digits after the - * decimal point, suitable for F format */ - -#define TCL_DD_SHORTEN_FLAG 0x4 - /* Allow return of a shorter digit string - * if it converts losslessly */ -#define TCL_DD_NO_QUICK 0x8 - /* Debug flag: forbid quick FP conversion */ - -#define TCL_DD_CONVERSION_TYPE_MASK 0x3 - /* Mask to isolate the conversion type */ -#define TCL_DD_STEELE0 0x1 - /* 'Steele&White' after masking */ -#define TCL_DD_SHORTEST0 0x0 - /* 'Shortest possible' after masking */ - -/* - *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside world: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE void TclAppendBytesToByteArray(Tcl_Obj *objPtr, - const unsigned char *bytes, int len); -MODULE_SCOPE void TclAdvanceContinuations(int* line, int** next, int loc); -MODULE_SCOPE void TclAdvanceLines(int *line, const char *start, - const char *end); -MODULE_SCOPE void TclArgumentEnter(Tcl_Interp* interp, - Tcl_Obj* objv[], int objc, CmdFrame* cf); -MODULE_SCOPE void TclArgumentRelease(Tcl_Interp* interp, - Tcl_Obj* objv[], int objc); -MODULE_SCOPE void TclArgumentGet(Tcl_Interp* interp, Tcl_Obj* obj, - CmdFrame **cfPtrPtr, int *wordPtr); -MODULE_SCOPE void TclArgumentBCEnter(Tcl_Interp *interp, - Tcl_Obj* objv[], int objc, - void *codePtr, CmdFrame *cfPtr, int pc); -MODULE_SCOPE void TclArgumentBCRelease(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc, - void *codePtr, int pc); -MODULE_SCOPE int TclArraySet(Tcl_Interp *interp, - Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj); -MODULE_SCOPE double TclBignumToDouble(mp_int *bignum); -MODULE_SCOPE int TclByteArrayMatch(const unsigned char *string, - int strLen, const unsigned char *pattern, - int ptnLen, int flags); -MODULE_SCOPE double TclCeil(mp_int *a); -MODULE_SCOPE void TclChannelPreserve(Tcl_Channel chan); -MODULE_SCOPE void TclChannelRelease(Tcl_Channel chan); -MODULE_SCOPE int TclCheckBadOctal(Tcl_Interp *interp, const char *value); -MODULE_SCOPE int TclChanCaughtErrorBypass(Tcl_Interp *interp, - Tcl_Channel chan); -MODULE_SCOPE ContLineLoc* TclContinuationsEnter(Tcl_Obj *objPtr, int num, - int *loc); -MODULE_SCOPE void TclContinuationsEnterDerived(Tcl_Obj *objPtr, - int start, int *clNext); -MODULE_SCOPE ContLineLoc* TclContinuationsGet(Tcl_Obj *objPtr); -MODULE_SCOPE void TclContinuationsCopy(Tcl_Obj *objPtr, - Tcl_Obj *originObjPtr); -MODULE_SCOPE int TclConvertElement(CONST char *src, int length, - char *dst, int flags); -MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); -/* TIP #280 - Modified token based evulation, with line information. */ -MODULE_SCOPE int TclEvalEx(Tcl_Interp *interp, const char *script, - int numBytes, int flags, int line, - int *clNextOuter, CONST char *outerScript); -MODULE_SCOPE int TclFileAttrsCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileCopyCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileDeleteCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileMakeDirsCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclFileRenameCmd(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclCreateLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TclDeleteLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TclFinalizeAllocSubsystem(void); -MODULE_SCOPE void TclFinalizeAsync(void); -MODULE_SCOPE void TclFinalizeDoubleConversion(void); -MODULE_SCOPE void TclFinalizeEncodingSubsystem(void); -MODULE_SCOPE void TclFinalizeEnvironment(void); -MODULE_SCOPE void TclFinalizeExecution(void); -MODULE_SCOPE void TclFinalizeIOSubsystem(void); -MODULE_SCOPE void TclFinalizeFilesystem(void); -MODULE_SCOPE void TclResetFilesystem(void); -MODULE_SCOPE void TclFinalizeLoad(void); -MODULE_SCOPE void TclFinalizeLock(void); -MODULE_SCOPE void TclFinalizeMemorySubsystem(void); -MODULE_SCOPE void TclFinalizeNotifier(void); -MODULE_SCOPE void TclFinalizeObjects(void); -MODULE_SCOPE void TclFinalizePreserve(void); -MODULE_SCOPE void TclFinalizeSynchronization(void); -MODULE_SCOPE void TclFinalizeThreadAlloc(void); -MODULE_SCOPE void TclFinalizeThreadAllocThread(void); -MODULE_SCOPE void TclFinalizeThreadData(void); -MODULE_SCOPE void TclFinalizeThreadObjects(void); -MODULE_SCOPE double TclFloor(mp_int *a); -MODULE_SCOPE void TclFormatNaN(double value, char *buffer); -MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, - const char *attributeName, int *indexPtr); -MODULE_SCOPE void TclFSUnloadTempFile(Tcl_LoadHandle loadHandle); -MODULE_SCOPE int * TclGetAsyncReadyPtr(void); -MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler(Tcl_Interp *interp); -MODULE_SCOPE int TclGetChannelFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Channel *chanPtr, - int *modePtr, int flags); -MODULE_SCOPE int TclGetNumberFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, ClientData *clientDataPtr, - int *typePtr); -MODULE_SCOPE int TclGetOpenModeEx(Tcl_Interp *interp, - const char *modeString, int *seekFlagPtr, - int *binaryPtr); -MODULE_SCOPE Tcl_Obj * TclGetProcessGlobalValue(ProcessGlobalValue *pgvPtr); -MODULE_SCOPE const char *TclGetSrcInfoForCmd(Interp *iPtr, int *lenPtr); -MODULE_SCOPE char * TclGetStringStorage(Tcl_Obj *objPtr, - unsigned int *sizePtr); -MODULE_SCOPE int TclGlob(Tcl_Interp *interp, char *pattern, - Tcl_Obj *unquotedPrefix, int globFlags, - Tcl_GlobTypeData *types); -MODULE_SCOPE int TclIncrObj(Tcl_Interp *interp, Tcl_Obj *valuePtr, - Tcl_Obj *incrPtr); -MODULE_SCOPE Tcl_Obj * TclIncrObjVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, int flags); -MODULE_SCOPE int TclInfoExistsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Obj * TclInfoFrame(Tcl_Interp *interp, CmdFrame *framePtr); -MODULE_SCOPE int TclInfoGlobalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoLocalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoVarsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclInitAlloc(void); -MODULE_SCOPE void TclInitDbCkalloc(void); -MODULE_SCOPE void TclInitDoubleConversion(void); -MODULE_SCOPE void TclInitEmbeddedConfigurationInformation( - Tcl_Interp *interp); -MODULE_SCOPE void TclInitEncodingSubsystem(void); -MODULE_SCOPE void TclInitIOSubsystem(void); -MODULE_SCOPE void TclInitLimitSupport(Tcl_Interp *interp); -MODULE_SCOPE void TclInitNamespaceSubsystem(void); -MODULE_SCOPE void TclInitNotifier(void); -MODULE_SCOPE void TclInitObjSubsystem(void); -MODULE_SCOPE void TclInitSubsystems(void); -MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); -MODULE_SCOPE int TclIsSpaceProc(char byte); -MODULE_SCOPE int TclIsBareword(char byte); -MODULE_SCOPE int TclJoinThread(Tcl_ThreadId id, int *result); -MODULE_SCOPE void TclLimitRemoveAllHandlers(Tcl_Interp *interp); -MODULE_SCOPE Tcl_Obj * TclLindexList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *argPtr); -MODULE_SCOPE Tcl_Obj * TclLindexFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[]); -/* TIP #280 */ -MODULE_SCOPE void TclListLines(Tcl_Obj *listObj, int line, int n, - int *lines, Tcl_Obj *const *elems); -MODULE_SCOPE Tcl_Obj * TclListObjCopy(Tcl_Interp *interp, Tcl_Obj *listPtr); -MODULE_SCOPE int TclLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - int symc, const char *symbols[], - Tcl_PackageInitProc **procPtrs[], - Tcl_LoadHandle *handlePtr, - ClientData *clientDataPtr, - Tcl_FSUnloadFileProc **unloadProcPtr); -MODULE_SCOPE Tcl_Obj * TclLsetList(Tcl_Interp *interp, Tcl_Obj *listPtr, - Tcl_Obj *indexPtr, Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Obj * TclLsetFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[], - Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Command TclMakeEnsemble(Tcl_Interp *interp, const char *name, - const EnsembleImplMap map[]); -MODULE_SCOPE int TclMaxListLength(CONST char *bytes, int numBytes, - CONST char **endPtr); -MODULE_SCOPE int TclMergeReturnOptions(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Tcl_Obj **optionsPtrPtr, - int *codePtr, int *levelPtr); -MODULE_SCOPE int TclNokia770Doubles(void); -MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); -MODULE_SCOPE int TclNamespaceDeleted(Namespace *nsPtr); -MODULE_SCOPE void TclObjVarErrMsg(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const char *operation, - const char *reason, int index); -MODULE_SCOPE int TclObjInvokeNamespace(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], - Tcl_Namespace *nsPtr, int flags); -MODULE_SCOPE int TclObjUnsetVar2(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); -MODULE_SCOPE int TclParseBackslash(const char *src, - int numBytes, int *readPtr, char *dst); -MODULE_SCOPE int TclParseHex(const char *src, int numBytes, - Tcl_UniChar *resultPtr); -MODULE_SCOPE int TclParseNumber(Tcl_Interp *interp, Tcl_Obj *objPtr, - const char *expected, const char *bytes, - int numBytes, const char **endPtrPtr, int flags); -MODULE_SCOPE void TclParseInit(Tcl_Interp *interp, const char *string, - int numBytes, Tcl_Parse *parsePtr); -MODULE_SCOPE int TclParseAllWhiteSpace(const char *src, int numBytes); -MODULE_SCOPE int TclProcessReturn(Tcl_Interp *interp, - int code, int level, Tcl_Obj *returnOpts); -#ifndef TCL_NO_STACK_CHECK -MODULE_SCOPE int TclpGetCStackParams(int **stackBoundPtr); -#endif -MODULE_SCOPE int TclpObjLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -MODULE_SCOPE Tcl_Obj * TclpTempFileName(void); -MODULE_SCOPE Tcl_Obj * TclNewFSPathObj(Tcl_Obj *dirPtr, const char *addStrRep, - int len); -MODULE_SCOPE int TclpDeleteFile(const char *path); -MODULE_SCOPE void TclpFinalizeCondition(Tcl_Condition *condPtr); -MODULE_SCOPE void TclpFinalizeMutex(Tcl_Mutex *mutexPtr); -MODULE_SCOPE void TclpFinalizePipes(void); -MODULE_SCOPE void TclpFinalizeSockets(void); -MODULE_SCOPE int TclpThreadCreate(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc proc, ClientData clientData, - int stackSize, int flags); -MODULE_SCOPE int TclpFindVariable(const char *name, int *lengthPtr); -MODULE_SCOPE void TclpInitLibraryPath(char **valuePtr, - int *lengthPtr, Tcl_Encoding *encodingPtr); -MODULE_SCOPE void TclpInitLock(void); -MODULE_SCOPE void TclpInitPlatform(void); -MODULE_SCOPE void TclpInitUnlock(void); -MODULE_SCOPE Tcl_Obj * TclpObjListVolumes(void); -MODULE_SCOPE void TclpMasterLock(void); -MODULE_SCOPE void TclpMasterUnlock(void); -MODULE_SCOPE int TclpMatchFiles(Tcl_Interp *interp, char *separators, - Tcl_DString *dirPtr, char *pattern, char *tail); -MODULE_SCOPE int TclpObjNormalizePath(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint); -MODULE_SCOPE void TclpNativeJoinPath(Tcl_Obj *prefix, const char *joining); -MODULE_SCOPE Tcl_Obj * TclpNativeSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -MODULE_SCOPE Tcl_PathType TclpGetNativePathType(Tcl_Obj *pathPtr, - int *driveNameLengthPtr, Tcl_Obj **driveNameRef); -MODULE_SCOPE int TclCrossFilesystemCopy(Tcl_Interp *interp, - Tcl_Obj *source, Tcl_Obj *target); -MODULE_SCOPE int TclpMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *resultPtr, Tcl_Obj *pathPtr, - const char *pattern, Tcl_GlobTypeData *types); -MODULE_SCOPE ClientData TclpGetNativeCwd(ClientData clientData); -MODULE_SCOPE Tcl_FSDupInternalRepProc TclNativeDupInternalRep; -MODULE_SCOPE Tcl_Obj * TclpObjLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkType); -MODULE_SCOPE int TclpObjChdir(Tcl_Obj *pathPtr); -MODULE_SCOPE Tcl_Obj * TclPathPart(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_PathPart portion); -#ifndef TclpPanic -MODULE_SCOPE void TclpPanic(const char *format, ...); -#endif -MODULE_SCOPE char * TclpReadlink(const char *fileName, - Tcl_DString *linkPtr); -#ifndef TclpReleaseFile -MODULE_SCOPE void TclpReleaseFile(TclFile file); -#endif -MODULE_SCOPE void TclpSetInterfaces(void); -MODULE_SCOPE void TclpSetVariables(Tcl_Interp *interp); -MODULE_SCOPE void TclpUnloadFile(Tcl_LoadHandle loadHandle); -MODULE_SCOPE void * TclpThreadDataKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclpThreadDataKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); -MODULE_SCOPE void TclpThreadExit(int status); -MODULE_SCOPE size_t TclpThreadGetStackSize(void); -MODULE_SCOPE void TclRememberCondition(Tcl_Condition *mutex); -MODULE_SCOPE void TclRememberJoinableThread(Tcl_ThreadId id); -MODULE_SCOPE void TclRememberMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclRemoveScriptLimitCallbacks(Tcl_Interp *interp); -MODULE_SCOPE int TclReToGlob(Tcl_Interp *interp, const char *reStr, - int reStrLen, Tcl_DString *dsPtr, int *flagsPtr); -MODULE_SCOPE int TclScanElement(CONST char *string, int length, - int *flagPtr); -MODULE_SCOPE void TclSetBgErrorHandler(Tcl_Interp *interp, - Tcl_Obj *cmdPrefix); -MODULE_SCOPE void TclSetBignumIntRep(Tcl_Obj *objPtr, - mp_int *bignumValue); -MODULE_SCOPE void TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Command *cmdPtr); -MODULE_SCOPE void TclSetProcessGlobalValue(ProcessGlobalValue *pgvPtr, - Tcl_Obj *newValue, Tcl_Encoding encoding); -MODULE_SCOPE void TclSignalExitThread(Tcl_ThreadId id, int result); -MODULE_SCOPE void * TclStackRealloc(Tcl_Interp *interp, void *ptr, - int numBytes); -MODULE_SCOPE int TclStringMatch(const char *str, int strLen, - const char *pattern, int ptnLen, int flags); -MODULE_SCOPE int TclStringMatchObj(Tcl_Obj *stringObj, - Tcl_Obj *patternObj, int flags); -MODULE_SCOPE Tcl_Obj * TclStringObjReverse(Tcl_Obj *objPtr); -MODULE_SCOPE int TclSubstTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr, - int count, int *tokensLeftPtr, int line, - int *clNextOuter, CONST char *outerScript); -MODULE_SCOPE void TclTransferResult(Tcl_Interp *sourceInterp, int result, - Tcl_Interp *targetInterp); -MODULE_SCOPE int TclTrim(const char *bytes, int numBytes, - const char *trim, int numTrim, int *trimRight); -MODULE_SCOPE int TclTrimLeft(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE int TclTrimRight(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE Tcl_Obj * TclpNativeToNormalized(ClientData clientData); -MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); -MODULE_SCOPE Tcl_PackageInitProc *TclpFindSymbol(Tcl_Interp *interp, - Tcl_LoadHandle loadHandle, const char *symbol); -MODULE_SCOPE int TclpDlopen(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr); -MODULE_SCOPE int TclpUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -#ifdef TCL_LOAD_FROM_MEMORY -MODULE_SCOPE void * TclpLoadMemoryGetBuffer(Tcl_Interp *interp, int size); -MODULE_SCOPE int TclpLoadMemory(Tcl_Interp *interp, void *buffer, - int size, int codeSize, Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr); -#endif -MODULE_SCOPE void TclInitThreadStorage(void); -MODULE_SCOPE void TclpFinalizeThreadDataThread(void); -MODULE_SCOPE void TclFinalizeThreadStorage(void); - -/* TclWideMUInt -- wide integer used for measurement calculations: */ -#if (!defined(_WIN32) || !defined(_MSC_VER) || (_MSC_VER >= 1400)) -# define TclWideMUInt Tcl_WideUInt -#else -/* older MSVS may not allow conversions between unsigned __int64 and double) */ -# define TclWideMUInt Tcl_WideInt -#endif -#ifdef TCL_WIDE_CLICKS -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClicksToNanoseconds(Tcl_WideInt clicks); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -#else -# ifdef _WIN32 -# define TCL_WIDE_CLICKS 1 -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -# define TclpWideClicksToNanoseconds(clicks) \ - ((double)(clicks) * TclpWideClickInMicrosec() * 1000) -# endif -#endif -MODULE_SCOPE Tcl_WideInt TclpGetMicroseconds(void); - -MODULE_SCOPE Tcl_Obj * TclDisassembleByteCodeObj(Tcl_Obj *objPtr); -MODULE_SCOPE int TclUtfCasecmp(CONST char *cs, CONST char *ct); - -/* - *---------------------------------------------------------------- - * Command procedures in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int Tcl_AfterObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_AppendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ApplyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ArrayObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_BinaryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_BreakObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CaseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CatchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitChanCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclChanCreateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPostEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE void TclClockInit(Tcl_Interp *interp); -MODULE_SCOPE int TclClockOldscanObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CloseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ConcatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ContinueObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_TimerToken TclCreateAbsoluteTimerHandler( - Tcl_Time *timePtr, Tcl_TimerProc *proc, - ClientData clientData); -MODULE_SCOPE int TclDefaultBgErrorHandlerObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitDictCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_DisassembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EncodingObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EofObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ErrorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EvalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExecObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExprObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FblockedObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FconfigureObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FcopyObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FileObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FileEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FlushObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForeachObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FormatObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GetsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IfObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IncrObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitInfoCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_InterpObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_JoinObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LappendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LassignObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LindexObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LinsertObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LlengthObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ListObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LoadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrangeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrepeatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreplaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreverseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsearchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsortObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_NamespaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_OpenObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PackageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PidObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PutsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PwdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegexpObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegsubObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RenameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReturnObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ScanObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SeekObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SplitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SocketObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SourceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitStringCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_SubstObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SwitchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeRateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TraceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnloadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpvarObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VariableObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_WhileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* - *---------------------------------------------------------------- - * Compilation procedures for commands in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int TclCompileAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBreakCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileCatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileContinueCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictGetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictUpdateCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEnsemble(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileExprCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForeachCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGlobalCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIfCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLassignCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLindexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileListCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLlengthCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNoOp(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileRegexpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileReturnCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringCmpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringEqualCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringIndexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringLenCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringMatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSwitchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileUpvarCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileVariableCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileWhileCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -MODULE_SCOPE int TclInvertOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInvertOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNotOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNotOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAddOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAddOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMulOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMulOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAndOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAndOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclOrOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileOrOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclXorOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileXorOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclPowOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompilePowOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclLshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileLshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclRshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileRshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclModOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileModOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNeqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclStrneqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileStrneqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclInOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNiOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNiOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMinusOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMinusOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclDivOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileDivOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLessOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGreaterOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStreqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -/* - * Functions defined in generic/tclVar.c and currenttly exported only for use - * by the bytecode compiler and engine. Some of these could later be placed in - * the public interface. - */ - -MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags, - const char *msg, const int createPart1, - const int createPart2, Var **arrayPtrPtr); -MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp, - Tcl_Obj *arrayNamePtr, Tcl_Obj *elNamePtr, - const int flags, const char *msg, - const int createPart1, const int createPart2, - Var *arrayPtr, int index); -MODULE_SCOPE Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags, int index); -MODULE_SCOPE int TclPtrObjMakeUpvar(Tcl_Interp *interp, Var *otherPtr, - Tcl_Obj *myNamePtr, int myFlags, int index); -MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr); - -/* - * The new extended interface to the variable traces. - */ - -MODULE_SCOPE int TclObjCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, - int flags, int leaveErrMsg, int index); - -/* - * So tclObj.c and tclDictObj.c can share these implementations. - */ - -MODULE_SCOPE int TclCompareObjKeys(void *keyPtr, Tcl_HashEntry *hPtr); -MODULE_SCOPE void TclFreeObjEntry(Tcl_HashEntry *hPtr); -MODULE_SCOPE unsigned TclHashObjKey(Tcl_HashTable *tablePtr, void *keyPtr); - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and release Tcl objects. - * TclNewObj(objPtr) creates a new object denoting an empty string. - * TclDecrRefCount(objPtr) decrements the object's reference count, and frees - * the object if its reference count is zero. These macros are inline versions - * of Tcl_NewObj() and Tcl_DecrRefCount(). Notice that the names differ in not - * having a "_" after the "Tcl". Notice also that these macros reference their - * argument more than once, so you should avoid calling them with an - * expression that is expensive to compute or has side effects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewObj(Tcl_Obj *objPtr); - * MODULE_SCOPE void TclDecrRefCount(Tcl_Obj *objPtr); - * - * These macros are defined in terms of two macros that depend on memory - * allocator in use: TclAllocObjStorage, TclFreeObjStorage. They are defined - * below. - *---------------------------------------------------------------- - */ - -/* - * DTrace object allocation probe macros. - */ - -#ifdef USE_DTRACE -#include "tclDTrace.h" -#define TCL_DTRACE_OBJ_CREATE(objPtr) TCL_OBJ_CREATE(objPtr) -#define TCL_DTRACE_OBJ_FREE(objPtr) TCL_OBJ_FREE(objPtr) -#else /* USE_DTRACE */ -#define TCL_DTRACE_OBJ_CREATE(objPtr) {} -#define TCL_DTRACE_OBJ_FREE(objPtr) {} -#endif /* USE_DTRACE */ - -#ifdef TCL_COMPILE_STATS -# define TclIncrObjsAllocated() \ - tclObjsAlloced++ -# define TclIncrObjsFreed() \ - tclObjsFreed++ -#else -# define TclIncrObjsAllocated() -# define TclIncrObjsFreed() -#endif /* TCL_COMPILE_STATS */ - -#ifndef TCL_MEM_DEBUG -# define TclNewObj(objPtr) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -/* - * Invalidate the string rep first so we can use the bytes value for our - * pointer chain, and signal an obj deletion (as opposed to shimmering) with - * 'length == -1'. - * Use empty 'if ; else' to handle use in unbraced outer if/else conditions. - */ - -# define TclDecrRefCount(objPtr) \ - if (--(objPtr)->refCount > 0) ; else { \ - if (!(objPtr)->typePtr || !(objPtr)->typePtr->freeIntRepProc) { \ - TCL_DTRACE_OBJ_FREE(objPtr); \ - if ((objPtr)->bytes \ - && ((objPtr)->bytes != tclEmptyStringRep)) { \ - ckfree((char *) (objPtr)->bytes); \ - } \ - (objPtr)->length = -1; \ - TclFreeObjStorage(objPtr); \ - TclIncrObjsFreed(); \ - } else { \ - TclFreeObj(objPtr); \ - } \ - } - -#if defined(PURIFY) - -/* - * The PURIFY mode is like the regular mode, but instead of doing block - * Tcl_Obj allocation and keeping a freed list for efficiency, it always - * allocates and frees a single Tcl_Obj so that tools like Purify can better - * track memory leaks. - */ - -# define TclAllocObjStorage(objPtr) \ - (objPtr) = (Tcl_Obj *) Tcl_Alloc(sizeof(Tcl_Obj)) - -# define TclFreeObjStorage(objPtr) \ - ckfree((char *) (objPtr)) - -#undef USE_THREAD_ALLOC -#elif defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) - -/* - * The TCL_THREADS mode is like the regular mode but allocates Tcl_Obj's from - * per-thread caches. - */ - -MODULE_SCOPE Tcl_Obj * TclThreadAllocObj(void); -MODULE_SCOPE void TclThreadFreeObj(Tcl_Obj *); -MODULE_SCOPE Tcl_Mutex *TclpNewAllocMutex(void); -MODULE_SCOPE void TclFreeAllocCache(void *); -MODULE_SCOPE void * TclpGetAllocCache(void); -MODULE_SCOPE void TclpSetAllocCache(void *); -MODULE_SCOPE void TclpFreeAllocMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclpFreeAllocCache(void *); - -# define TclAllocObjStorage(objPtr) \ - (objPtr) = TclThreadAllocObj() - -# define TclFreeObjStorage(objPtr) \ - TclThreadFreeObj((objPtr)) - -#else /* not PURIFY or USE_THREAD_ALLOC */ - -#if defined(USE_TCLALLOC) && USE_TCLALLOC - MODULE_SCOPE void TclFinalizeAllocSubsystem(); - MODULE_SCOPE void TclInitAlloc(); -#else -# define USE_TCLALLOC 0 -#endif - -#ifdef TCL_THREADS -/* declared in tclObj.c */ -MODULE_SCOPE Tcl_Mutex tclObjMutex; -#endif - -# define TclAllocObjStorage(objPtr) \ - Tcl_MutexLock(&tclObjMutex); \ - if (tclFreeObjList == NULL) { \ - TclAllocateFreeObjects(); \ - } \ - (objPtr) = tclFreeObjList; \ - tclFreeObjList = (Tcl_Obj *) \ - tclFreeObjList->internalRep.twoPtrValue.ptr1; \ - Tcl_MutexUnlock(&tclObjMutex) - -# define TclFreeObjStorage(objPtr) \ - Tcl_MutexLock(&tclObjMutex); \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *) tclFreeObjList; \ - tclFreeObjList = (objPtr); \ - Tcl_MutexUnlock(&tclObjMutex) -#endif - -#else /* TCL_MEM_DEBUG */ -MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file, - int line); - -# define TclDbNewObj(objPtr, file, line) \ - TclIncrObjsAllocated(); \ - (objPtr) = (Tcl_Obj *) Tcl_DbCkalloc(sizeof(Tcl_Obj), (file), (line)); \ - TclDbInitNewObj((objPtr), (file), (line)); \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -# define TclNewObj(objPtr) \ - TclDbNewObj(objPtr, __FILE__, __LINE__); - -# define TclDecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) - -# define TclNewListObjDirect(objc, objv) \ - TclDbNewListObjDirect(objc, objv, __FILE__, __LINE__) - -#undef USE_THREAD_ALLOC -#endif /* TCL_MEM_DEBUG */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to set a Tcl_Obj's string representation to a - * copy of the "len" bytes starting at "bytePtr". This code works even if the - * byte array contains NULLs as long as the length is correct. Because "len" - * is referenced multiple times, it should be as simple an expression as - * possible. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInitStringRep(Tcl_Obj *objPtr, char *bytePtr, int len); - * - * This macro should only be called on an unshared objPtr where - * objPtr->typePtr->freeIntRepProc == NULL - *---------------------------------------------------------------- - */ - -#define TclInitStringRep(objPtr, bytePtr, len) \ - if ((len) == 0) { \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - } else { \ - (objPtr)->bytes = (char *) ckalloc((unsigned) ((len) + 1)); \ - memcpy((void *) (objPtr)->bytes, (void *) (bytePtr), \ - (unsigned) (len)); \ - (objPtr)->bytes[len] = '\0'; \ - (objPtr)->length = (len); \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to get the string representation's byte array - * pointer from a Tcl_Obj. This is an inline version of Tcl_GetString(). The - * macro's expression result is the string rep's byte pointer which might be - * NULL. The bytes referenced by this pointer must not be modified by the - * caller. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE char * TclGetString(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclGetString(objPtr) \ - ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr))) - -#define TclGetStringFromObj(objPtr, lenPtr) \ - ((objPtr)->bytes \ - ? (*(lenPtr) = (objPtr)->length, (objPtr)->bytes) \ - : Tcl_GetStringFromObj((objPtr), (lenPtr))) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's internal - * representation. Does not actually reset the rep's bytes. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclFreeIntRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclFreeIntRep(objPtr) \ - if ((objPtr)->typePtr != NULL && \ - (objPtr)->typePtr->freeIntRepProc != NULL) { \ - (objPtr)->typePtr->freeIntRepProc(objPtr); \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's string representation. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateStringRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateStringRep(objPtr) \ - if (objPtr->bytes != NULL) { \ - if (objPtr->bytes != tclEmptyStringRep) { \ - ckfree((char *) objPtr->bytes); \ - } \ - objPtr->bytes = NULL; \ - } - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to grow Tcl_Token arrays. They use the same - * growth algorithm as used in tclStringObj.c for growing strings. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclGrowTokenArray(Tcl_Token *tokenPtr, int used, - * int available, int append, - * Tcl_Token *staticPtr); - * MODULE_SCOPE void TclGrowParseTokenArray(Tcl_Parse *parsePtr, - * int append); - *---------------------------------------------------------------- - */ - -#define TCL_MAX_TOKENS (int)(UINT_MAX / sizeof(Tcl_Token)) -#define TCL_MIN_TOKEN_GROWTH 50 -#define TclGrowTokenArray(tokenPtr, used, available, append, staticPtr) \ -{ \ - int needed = (used) + (append); \ - if (needed > TCL_MAX_TOKENS) { \ - Tcl_Panic("max # of tokens for a Tcl parse (%d) exceeded", \ - TCL_MAX_TOKENS); \ - } \ - if (needed > (available)) { \ - int allocated = 2 * needed; \ - Tcl_Token *oldPtr = (tokenPtr); \ - Tcl_Token *newPtr; \ - if (oldPtr == (staticPtr)) { \ - oldPtr = NULL; \ - } \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) attemptckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - if (newPtr == NULL) { \ - allocated = needed + (append) + TCL_MIN_TOKEN_GROWTH; \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) ckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - } \ - (available) = allocated; \ - if (oldPtr == NULL) { \ - memcpy((VOID *) newPtr, (VOID *) staticPtr, \ - (size_t) ((used) * sizeof(Tcl_Token))); \ - } \ - (tokenPtr) = newPtr; \ - } \ -} - -#define TclGrowParseTokenArray(parsePtr, append) \ - TclGrowTokenArray((parsePtr)->tokenPtr, (parsePtr)->numTokens, \ - (parsePtr)->tokensAvailable, (append), \ - (parsePtr)->staticTokens) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core get a unicode char from a utf string. It checks - * to see if we have a one-byte utf char before calling the real - * Tcl_UtfToUniChar, as this will save a lot of time for primarily ASCII - * string handling. The macro's expression result is 1 for the 1-byte case or - * the result of Tcl_UtfToUniChar. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclUtfToUniChar(const char *string, Tcl_UniChar *ch); - *---------------------------------------------------------------- - */ - -#define TclUtfToUniChar(str, chPtr) \ - ((((unsigned char) *(str)) < 0xC0) ? \ - ((*(chPtr) = (unsigned char) *(str)), 1) \ - : Tcl_UtfToUniChar(str, chPtr)) - -/* - *---------------------------------------------------------------- - * Macro that encapsulates the logic that determines when it is safe to - * interpret a string as a byte array directly. In summary, the object must be - * a byte array and must not have a string representation (as the operations - * that it is used in are defined on strings, not byte arrays). Theoretically - * it is possible to also be efficient in the case where the object's bytes - * field is filled by generation from the byte array (c.f. list canonicality) - * but we don't do that at the moment since this is purely about efficiency. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclIsPureByteArray(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclIsPureByteArray(objPtr) \ - (((objPtr)->typePtr==&tclByteArrayType) && ((objPtr)->bytes==NULL)) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to compare Unicode strings. On big-endian - * systems we can use the more efficient memcmp, but this would not be - * lexically correct on little-endian systems. The ANSI C "prototype" for - * this macro is: - * - * MODULE_SCOPE int TclUniCharNcmp(const Tcl_UniChar *cs, - * const Tcl_UniChar *ct, unsigned long n); - *---------------------------------------------------------------- - */ - -#ifdef WORDS_BIGENDIAN -# define TclUniCharNcmp(cs,ct,n) memcmp((cs),(ct),(n)*sizeof(Tcl_UniChar)) -#else /* !WORDS_BIGENDIAN */ -# define TclUniCharNcmp Tcl_UniCharNcmp -#endif /* WORDS_BIGENDIAN */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to increment a namespace's export export epoch - * counter. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateNsCmdLookup(Namespace *nsPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateNsCmdLookup(nsPtr) \ - if ((nsPtr)->numExportPatterns) { \ - (nsPtr)->exportLookupEpoch++; \ - } \ - if ((nsPtr)->commandPathLength) { \ - (nsPtr)->cmdRefEpoch++; \ - } - -/* - *---------------------------------------------------------------------- - * - * Core procedures added to libtommath for bignum manipulation. - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE int TclTommath_Init(Tcl_Interp *interp); -MODULE_SCOPE void TclBNInitBignumFromLong(mp_int *bignum, long initVal); -MODULE_SCOPE void TclBNInitBignumFromWideInt(mp_int *bignum, - Tcl_WideInt initVal); -MODULE_SCOPE void TclBNInitBignumFromWideUInt(mp_int *bignum, - Tcl_WideUInt initVal); - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to check whether a pattern has any characters - * special to [string match]. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclMatchIsTrivial(const char *pattern); - *---------------------------------------------------------------- - */ - -#define TclMatchIsTrivial(pattern) strpbrk((pattern), "*[?\\") == NULL - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to set a Tcl_Obj's numeric representation - * avoiding the corresponding function calls in time critical parts of the - * core. They should only be called on unshared objects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetIntObj(Tcl_Obj *objPtr, int intValue); - * MODULE_SCOPE void TclSetLongObj(Tcl_Obj *objPtr, long longValue); - * MODULE_SCOPE void TclSetBooleanObj(Tcl_Obj *objPtr, long boolValue); - * MODULE_SCOPE void TclSetWideIntObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclSetDoubleObj(Tcl_Obj *objPtr, double d); - *---------------------------------------------------------------- - */ - -#define TclSetIntObj(objPtr, i) \ - TclInvalidateStringRep(objPtr);\ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType - -#define TclSetLongObj(objPtr, l) \ - TclSetIntObj((objPtr), (l)) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. Boolean values set - * programmatically go straight to being "int" Tcl_Obj's, with value 0 or 1. - * The only "boolean" Tcl_Obj's shall be those holding the cached boolean - * value of strings like: "yes", "no", "true", "false", "on", "off". - */ - -#define TclSetBooleanObj(objPtr, b) \ - TclSetIntObj((objPtr), ((b)? 1 : 0)); - -#ifndef NO_WIDE_TYPE -#define TclSetWideIntObj(objPtr, w) \ - TclInvalidateStringRep(objPtr);\ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.wideValue = (Tcl_WideInt)(w); \ - (objPtr)->typePtr = &tclWideIntType -#endif - -#define TclSetDoubleObj(objPtr, d) \ - TclInvalidateStringRep(objPtr);\ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and initialise objects of standard - * types, avoiding the corresponding function calls in time critical parts of - * the core. The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewIntObj(Tcl_Obj *objPtr, int i); - * MODULE_SCOPE void TclNewLongObj(Tcl_Obj *objPtr, long l); - * MODULE_SCOPE void TclNewBooleanObj(Tcl_Obj *objPtr, int b); - * MODULE_SCOPE void TclNewWideObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclNewDoubleObj(Tcl_Obj *objPtr, double d); - * MODULE_SCOPE void TclNewStringObj(Tcl_Obj *objPtr, char *s, int len); - * MODULE_SCOPE void TclNewLiteralStringObj(Tcl_Obj*objPtr, char*sLiteral); - * - *---------------------------------------------------------------- - */ - -#ifndef TCL_MEM_DEBUG -#define TclNewIntObj(objPtr, i) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -#define TclNewLongObj(objPtr, l) \ - TclNewIntObj((objPtr), (l)) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. - * See comment above TclSetBooleanObj macro above. - */ -#define TclNewBooleanObj(objPtr, b) \ - TclNewIntObj((objPtr), ((b)? 1 : 0)) - -#define TclNewDoubleObj(objPtr, d) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -#define TclNewStringObj(objPtr, s, len) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - TclInitStringRep((objPtr), (s), (len));\ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -#else /* TCL_MEM_DEBUG */ -#define TclNewIntObj(objPtr, i) \ - (objPtr) = Tcl_NewIntObj(i) - -#define TclNewLongObj(objPtr, l) \ - (objPtr) = Tcl_NewLongObj(l) - -#define TclNewBooleanObj(objPtr, b) \ - (objPtr) = Tcl_NewBooleanObj(b) - -#define TclNewDoubleObj(objPtr, d) \ - (objPtr) = Tcl_NewDoubleObj(d) - -#define TclNewStringObj(objPtr, s, len) \ - (objPtr) = Tcl_NewStringObj((s), (len)) -#endif /* TCL_MEM_DEBUG */ - -/* - * The sLiteral argument *must* be a string literal; the incantation with - * sizeof(sLiteral "") will fail to compile otherwise. - */ -#define TclNewLiteralStringObj(objPtr, sLiteral) \ - TclNewStringObj((objPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to test for some special double values. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsInfinite(double d); - * MODULE_SCOPE int TclIsNaN(double d); - */ - -#ifdef _MSC_VER -# define TclIsInfinite(d) (!(_finite((d)))) -# define TclIsNaN(d) (_isnan((d))) -#else -# define TclIsInfinite(d) ((d) > DBL_MAX || (d) < -DBL_MAX) -# ifdef NO_ISNAN -# define TclIsNaN(d) ((d) != (d)) -# else -# define TclIsNaN(d) (isnan(d)) -# endif -#endif - -/* - * ---------------------------------------------------------------------- - * Macro to use to find the offset of a field in a structure. Computes number - * of bytes from beginning of structure to a given field. - */ - -#ifdef offsetof -#define TclOffset(type, field) ((int) offsetof(type, field)) -#else -#define TclOffset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -/* - *---------------------------------------------------------------- - * Inline version of Tcl_GetCurrentNamespace and Tcl_GetGlobalNamespace. - */ - -#define TclGetCurrentNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->varFramePtr->nsPtr - -#define TclGetGlobalNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->globalNsPtr - -/* - *---------------------------------------------------------------- - * Inline version of TclCleanupCommand; still need the function as it is in - * the internal stubs, but the core can use the macro instead. - */ - -#define TclCleanupCommandMacro(cmdPtr) \ - if (--(cmdPtr)->refCount <= 0) { \ - ckfree((char *) (cmdPtr));\ - } - -/* - *---------------------------------------------------------------- - * Inline versions of Tcl_LimitReady() and Tcl_LimitExceeded to limit number - * of calls out of the critical path. Note that this code isn't particularly - * readable; the non-inline version (in tclInterp.c) is much easier to - * understand. Note also that these macros takes different args (iPtr->limit) - * to the non-inline version. - */ - -#define TclLimitExceeded(limit) ((limit).exceeded != 0) - -#define TclLimitReady(limit) \ - (((limit).active == 0) ? 0 : \ - (++(limit).granularityTicker, \ - ((((limit).active & TCL_LIMIT_COMMANDS) && \ - (((limit).cmdGranularity == 1) || \ - ((limit).granularityTicker % (limit).cmdGranularity == 0))) \ - ? 1 : \ - (((limit).active & TCL_LIMIT_TIME) && \ - (((limit).timeGranularity == 1) || \ - ((limit).granularityTicker % (limit).timeGranularity == 0)))\ - ? 1 : 0))) - - -#include "tclIntDecls.h" -#include "tclIntPlatDecls.h" -#include "tclTomMathDecls.h" - -#endif /* _TCLINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclIntDecls.h deleted file mode 100644 index fe23e771d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclIntDecls.h +++ /dev/null @@ -1,2133 +0,0 @@ -/* - * tclIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINTDECLS -#define _TCLINTDECLS - -#include "tclPort.h" - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */ -#undef Tcl_CreateNamespace -#undef Tcl_DeleteNamespace -#undef Tcl_AppendExportList -#undef Tcl_Export -#undef Tcl_Import -#undef Tcl_ForgetImport -#undef Tcl_GetCurrentNamespace -#undef Tcl_GetGlobalNamespace -#undef Tcl_FindNamespace -#undef Tcl_FindCommand -#undef Tcl_GetCommandFromObj -#undef Tcl_GetCommandFullName - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TclAllocateFreeObjects_TCL_DECLARED -#define TclAllocateFreeObjects_TCL_DECLARED -/* 3 */ -EXTERN void TclAllocateFreeObjects(void); -#endif -/* Slot 4 is reserved */ -#ifndef TclCleanupChildren_TCL_DECLARED -#define TclCleanupChildren_TCL_DECLARED -/* 5 */ -EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids, - Tcl_Pid *pidPtr, Tcl_Channel errorChan); -#endif -#ifndef TclCleanupCommand_TCL_DECLARED -#define TclCleanupCommand_TCL_DECLARED -/* 6 */ -EXTERN void TclCleanupCommand(Command *cmdPtr); -#endif -#ifndef TclCopyAndCollapse_TCL_DECLARED -#define TclCopyAndCollapse_TCL_DECLARED -/* 7 */ -EXTERN int TclCopyAndCollapse(int count, CONST char *src, - char *dst); -#endif -#ifndef TclCopyChannel_TCL_DECLARED -#define TclCopyChannel_TCL_DECLARED -/* 8 */ -EXTERN int TclCopyChannel(Tcl_Interp *interp, - Tcl_Channel inChan, Tcl_Channel outChan, - int toRead, Tcl_Obj *cmdPtr); -#endif -#ifndef TclCreatePipeline_TCL_DECLARED -#define TclCreatePipeline_TCL_DECLARED -/* 9 */ -EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc, - CONST char **argv, Tcl_Pid **pidArrayPtr, - TclFile *inPipePtr, TclFile *outPipePtr, - TclFile *errFilePtr); -#endif -#ifndef TclCreateProc_TCL_DECLARED -#define TclCreateProc_TCL_DECLARED -/* 10 */ -EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, - CONST char *procName, Tcl_Obj *argsPtr, - Tcl_Obj *bodyPtr, Proc **procPtrPtr); -#endif -#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED -#define TclDeleteCompiledLocalVars_TCL_DECLARED -/* 11 */ -EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr, - CallFrame *framePtr); -#endif -#ifndef TclDeleteVars_TCL_DECLARED -#define TclDeleteVars_TCL_DECLARED -/* 12 */ -EXTERN void TclDeleteVars(Interp *iPtr, - TclVarHashTable *tablePtr); -#endif -/* Slot 13 is reserved */ -#ifndef TclDumpMemoryInfo_TCL_DECLARED -#define TclDumpMemoryInfo_TCL_DECLARED -/* 14 */ -EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags); -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError_TCL_DECLARED -#define TclExprFloatError_TCL_DECLARED -/* 16 */ -EXTERN void TclExprFloatError(Tcl_Interp *interp, double value); -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement_TCL_DECLARED -#define TclFindElement_TCL_DECLARED -/* 22 */ -EXTERN int TclFindElement(Tcl_Interp *interp, - CONST char *listStr, int listLength, - CONST char **elementPtr, - CONST char **nextPtr, int *sizePtr, - int *bracePtr); -#endif -#ifndef TclFindProc_TCL_DECLARED -#define TclFindProc_TCL_DECLARED -/* 23 */ -EXTERN Proc * TclFindProc(Interp *iPtr, CONST char *procName); -#endif -#ifndef TclFormatInt_TCL_DECLARED -#define TclFormatInt_TCL_DECLARED -/* 24 */ -EXTERN int TclFormatInt(char *buffer, long n); -#endif -#ifndef TclFreePackageInfo_TCL_DECLARED -#define TclFreePackageInfo_TCL_DECLARED -/* 25 */ -EXTERN void TclFreePackageInfo(Interp *iPtr); -#endif -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -#ifndef TclpGetDefaultStdChannel_TCL_DECLARED -#define TclpGetDefaultStdChannel_TCL_DECLARED -/* 28 */ -EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type); -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension_TCL_DECLARED -#define TclGetExtension_TCL_DECLARED -/* 31 */ -EXTERN CONST char * TclGetExtension(CONST char *name); -#endif -#ifndef TclGetFrame_TCL_DECLARED -#define TclGetFrame_TCL_DECLARED -/* 32 */ -EXTERN int TclGetFrame(Tcl_Interp *interp, CONST char *str, - CallFrame **framePtrPtr); -#endif -/* Slot 33 is reserved */ -#ifndef TclGetIntForIndex_TCL_DECLARED -#define TclGetIntForIndex_TCL_DECLARED -/* 34 */ -EXTERN int TclGetIntForIndex(Tcl_Interp *interp, - Tcl_Obj *objPtr, int endValue, int *indexPtr); -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong_TCL_DECLARED -#define TclGetLong_TCL_DECLARED -/* 36 */ -EXTERN int TclGetLong(Tcl_Interp *interp, CONST char *str, - long *longPtr); -#endif -#ifndef TclGetLoadedPackages_TCL_DECLARED -#define TclGetLoadedPackages_TCL_DECLARED -/* 37 */ -EXTERN int TclGetLoadedPackages(Tcl_Interp *interp, - char *targetName); -#endif -#ifndef TclGetNamespaceForQualName_TCL_DECLARED -#define TclGetNamespaceForQualName_TCL_DECLARED -/* 38 */ -EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, - CONST char *qualName, Namespace *cxtNsPtr, - int flags, Namespace **nsPtrPtr, - Namespace **altNsPtrPtr, - Namespace **actualCxtPtrPtr, - CONST char **simpleNamePtr); -#endif -#ifndef TclGetObjInterpProc_TCL_DECLARED -#define TclGetObjInterpProc_TCL_DECLARED -/* 39 */ -EXTERN TclObjCmdProcType TclGetObjInterpProc(void); -#endif -#ifndef TclGetOpenMode_TCL_DECLARED -#define TclGetOpenMode_TCL_DECLARED -/* 40 */ -EXTERN int TclGetOpenMode(Tcl_Interp *interp, CONST char *str, - int *seekFlagPtr); -#endif -#ifndef TclGetOriginalCommand_TCL_DECLARED -#define TclGetOriginalCommand_TCL_DECLARED -/* 41 */ -EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); -#endif -#ifndef TclpGetUserHome_TCL_DECLARED -#define TclpGetUserHome_TCL_DECLARED -/* 42 */ -EXTERN char * TclpGetUserHome(CONST char *name, - Tcl_DString *bufferPtr); -#endif -/* Slot 43 is reserved */ -#ifndef TclGuessPackageName_TCL_DECLARED -#define TclGuessPackageName_TCL_DECLARED -/* 44 */ -EXTERN int TclGuessPackageName(CONST char *fileName, - Tcl_DString *bufPtr); -#endif -#ifndef TclHideUnsafeCommands_TCL_DECLARED -#define TclHideUnsafeCommands_TCL_DECLARED -/* 45 */ -EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp); -#endif -#ifndef TclInExit_TCL_DECLARED -#define TclInExit_TCL_DECLARED -/* 46 */ -EXTERN int TclInExit(void); -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -#ifndef TclInitCompiledLocals_TCL_DECLARED -#define TclInitCompiledLocals_TCL_DECLARED -/* 50 */ -EXTERN void TclInitCompiledLocals(Tcl_Interp *interp, - CallFrame *framePtr, Namespace *nsPtr); -#endif -#ifndef TclInterpInit_TCL_DECLARED -#define TclInterpInit_TCL_DECLARED -/* 51 */ -EXTERN int TclInterpInit(Tcl_Interp *interp); -#endif -/* Slot 52 is reserved */ -#ifndef TclInvokeObjectCommand_TCL_DECLARED -#define TclInvokeObjectCommand_TCL_DECLARED -/* 53 */ -EXTERN int TclInvokeObjectCommand(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST84 char **argv); -#endif -#ifndef TclInvokeStringCommand_TCL_DECLARED -#define TclInvokeStringCommand_TCL_DECLARED -/* 54 */ -EXTERN int TclInvokeStringCommand(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef TclIsProc_TCL_DECLARED -#define TclIsProc_TCL_DECLARED -/* 55 */ -EXTERN Proc * TclIsProc(Command *cmdPtr); -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar_TCL_DECLARED -#define TclLookupVar_TCL_DECLARED -/* 58 */ -EXTERN Var * TclLookupVar(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, int flags, - CONST char *msg, int createPart1, - int createPart2, Var **arrayPtrPtr); -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace_TCL_DECLARED -#define TclNeedSpace_TCL_DECLARED -/* 60 */ -EXTERN int TclNeedSpace(CONST char *start, CONST char *end); -#endif -#ifndef TclNewProcBodyObj_TCL_DECLARED -#define TclNewProcBodyObj_TCL_DECLARED -/* 61 */ -EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr); -#endif -#ifndef TclObjCommandComplete_TCL_DECLARED -#define TclObjCommandComplete_TCL_DECLARED -/* 62 */ -EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr); -#endif -#ifndef TclObjInterpProc_TCL_DECLARED -#define TclObjInterpProc_TCL_DECLARED -/* 63 */ -EXTERN int TclObjInterpProc(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef TclObjInvoke_TCL_DECLARED -#define TclObjInvoke_TCL_DECLARED -/* 64 */ -EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], int flags); -#endif -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -#ifndef TclpAlloc_TCL_DECLARED -#define TclpAlloc_TCL_DECLARED -/* 69 */ -EXTERN char * TclpAlloc(unsigned int size); -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree_TCL_DECLARED -#define TclpFree_TCL_DECLARED -/* 74 */ -EXTERN void TclpFree(char *ptr); -#endif -#ifndef TclpGetClicks_TCL_DECLARED -#define TclpGetClicks_TCL_DECLARED -/* 75 */ -EXTERN unsigned long TclpGetClicks(void); -#endif -#ifndef TclpGetSeconds_TCL_DECLARED -#define TclpGetSeconds_TCL_DECLARED -/* 76 */ -EXTERN unsigned long TclpGetSeconds(void); -#endif -#ifndef TclpGetTime_TCL_DECLARED -#define TclpGetTime_TCL_DECLARED -/* 77 */ -EXTERN void TclpGetTime(Tcl_Time *time); -#endif -#ifndef TclpGetTimeZone_TCL_DECLARED -#define TclpGetTimeZone_TCL_DECLARED -/* 78 */ -EXTERN int TclpGetTimeZone(unsigned long time); -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc_TCL_DECLARED -#define TclpRealloc_TCL_DECLARED -/* 81 */ -EXTERN char * TclpRealloc(char *ptr, unsigned int size); -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc_TCL_DECLARED -#define TclPrecTraceProc_TCL_DECLARED -/* 88 */ -EXTERN char * TclPrecTraceProc(ClientData clientData, - Tcl_Interp *interp, CONST char *name1, - CONST char *name2, int flags); -#endif -#ifndef TclPreventAliasLoop_TCL_DECLARED -#define TclPreventAliasLoop_TCL_DECLARED -/* 89 */ -EXTERN int TclPreventAliasLoop(Tcl_Interp *interp, - Tcl_Interp *cmdInterp, Tcl_Command cmd); -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc_TCL_DECLARED -#define TclProcCleanupProc_TCL_DECLARED -/* 91 */ -EXTERN void TclProcCleanupProc(Proc *procPtr); -#endif -#ifndef TclProcCompileProc_TCL_DECLARED -#define TclProcCompileProc_TCL_DECLARED -/* 92 */ -EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, - Tcl_Obj *bodyPtr, Namespace *nsPtr, - CONST char *description, - CONST char *procName); -#endif -#ifndef TclProcDeleteProc_TCL_DECLARED -#define TclProcDeleteProc_TCL_DECLARED -/* 93 */ -EXTERN void TclProcDeleteProc(ClientData clientData); -#endif -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -#ifndef TclRenameCommand_TCL_DECLARED -#define TclRenameCommand_TCL_DECLARED -/* 96 */ -EXTERN int TclRenameCommand(Tcl_Interp *interp, - CONST char *oldName, CONST char *newName); -#endif -#ifndef TclResetShadowedCmdRefs_TCL_DECLARED -#define TclResetShadowedCmdRefs_TCL_DECLARED -/* 97 */ -EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp, - Command *newCmdPtr); -#endif -#ifndef TclServiceIdle_TCL_DECLARED -#define TclServiceIdle_TCL_DECLARED -/* 98 */ -EXTERN int TclServiceIdle(void); -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript_TCL_DECLARED -#define TclSetPreInitScript_TCL_DECLARED -/* 101 */ -EXTERN char * TclSetPreInitScript(char *string); -#endif -#ifndef TclSetupEnv_TCL_DECLARED -#define TclSetupEnv_TCL_DECLARED -/* 102 */ -EXTERN void TclSetupEnv(Tcl_Interp *interp); -#endif -#ifndef TclSockGetPort_TCL_DECLARED -#define TclSockGetPort_TCL_DECLARED -/* 103 */ -EXTERN int TclSockGetPort(Tcl_Interp *interp, CONST char *str, - CONST char *proto, int *portPtr); -#endif -#ifndef TclSockMinimumBuffersOld_TCL_DECLARED -#define TclSockMinimumBuffersOld_TCL_DECLARED -/* 104 */ -EXTERN int TclSockMinimumBuffersOld(int sock, int size); -#endif -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -#ifndef TclTeardownNamespace_TCL_DECLARED -#define TclTeardownNamespace_TCL_DECLARED -/* 108 */ -EXTERN void TclTeardownNamespace(Namespace *nsPtr); -#endif -#ifndef TclUpdateReturnInfo_TCL_DECLARED -#define TclUpdateReturnInfo_TCL_DECLARED -/* 109 */ -EXTERN int TclUpdateReturnInfo(Interp *iPtr); -#endif -#ifndef TclSockMinimumBuffers_TCL_DECLARED -#define TclSockMinimumBuffers_TCL_DECLARED -/* 110 */ -EXTERN int TclSockMinimumBuffers(VOID *sock, int size); -#endif -#ifndef Tcl_AddInterpResolvers_TCL_DECLARED -#define Tcl_AddInterpResolvers_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp, - CONST char *name, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -#endif -#ifndef Tcl_AppendExportList_TCL_DECLARED -#define Tcl_AppendExportList_TCL_DECLARED -/* 112 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_CreateNamespace_TCL_DECLARED -#define Tcl_CreateNamespace_TCL_DECLARED -/* 113 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - CONST char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -#endif -#ifndef Tcl_DeleteNamespace_TCL_DECLARED -#define Tcl_DeleteNamespace_TCL_DECLARED -/* 114 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -#endif -#ifndef Tcl_Export_TCL_DECLARED -#define Tcl_Export_TCL_DECLARED -/* 115 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int resetListFirst); -#endif -#ifndef Tcl_FindCommand_TCL_DECLARED -#define Tcl_FindCommand_TCL_DECLARED -/* 116 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_FindNamespace_TCL_DECLARED -#define Tcl_FindNamespace_TCL_DECLARED -/* 117 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_GetInterpResolvers_TCL_DECLARED -#define Tcl_GetInterpResolvers_TCL_DECLARED -/* 118 */ -EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp, - CONST char *name, Tcl_ResolverInfo *resInfo); -#endif -#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED -#define Tcl_GetNamespaceResolvers_TCL_DECLARED -/* 119 */ -EXTERN int Tcl_GetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolverInfo *resInfo); -#endif -#ifndef Tcl_FindNamespaceVar_TCL_DECLARED -#define Tcl_FindNamespaceVar_TCL_DECLARED -/* 120 */ -EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, - CONST char *name, - Tcl_Namespace *contextNsPtr, int flags); -#endif -#ifndef Tcl_ForgetImport_TCL_DECLARED -#define Tcl_ForgetImport_TCL_DECLARED -/* 121 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, CONST char *pattern); -#endif -#ifndef Tcl_GetCommandFromObj_TCL_DECLARED -#define Tcl_GetCommandFromObj_TCL_DECLARED -/* 122 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetCommandFullName_TCL_DECLARED -#define Tcl_GetCommandFullName_TCL_DECLARED -/* 123 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED -#define Tcl_GetCurrentNamespace_TCL_DECLARED -/* 124 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED -#define Tcl_GetGlobalNamespace_TCL_DECLARED -/* 125 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -#endif -#ifndef Tcl_GetVariableFullName_TCL_DECLARED -#define Tcl_GetVariableFullName_TCL_DECLARED -/* 126 */ -EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp, - Tcl_Var variable, Tcl_Obj *objPtr); -#endif -#ifndef Tcl_Import_TCL_DECLARED -#define Tcl_Import_TCL_DECLARED -/* 127 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - CONST char *pattern, int allowOverwrite); -#endif -#ifndef Tcl_PopCallFrame_TCL_DECLARED -#define Tcl_PopCallFrame_TCL_DECLARED -/* 128 */ -EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp); -#endif -#ifndef Tcl_PushCallFrame_TCL_DECLARED -#define Tcl_PushCallFrame_TCL_DECLARED -/* 129 */ -EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp, - Tcl_CallFrame *framePtr, - Tcl_Namespace *nsPtr, int isProcCallFrame); -#endif -#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED -#define Tcl_RemoveInterpResolvers_TCL_DECLARED -/* 130 */ -EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, - CONST char *name); -#endif -#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED -#define Tcl_SetNamespaceResolvers_TCL_DECLARED -/* 131 */ -EXTERN void Tcl_SetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -#endif -#ifndef TclpHasSockets_TCL_DECLARED -#define TclpHasSockets_TCL_DECLARED -/* 132 */ -EXTERN int TclpHasSockets(Tcl_Interp *interp); -#endif -#ifndef TclpGetDate_TCL_DECLARED -#define TclpGetDate_TCL_DECLARED -/* 133 */ -EXTERN struct tm * TclpGetDate(CONST time_t *time, int useGMT); -#endif -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv_TCL_DECLARED -#define TclGetEnv_TCL_DECLARED -/* 138 */ -EXTERN CONST84_RETURN char * TclGetEnv(CONST char *name, - Tcl_DString *valuePtr); -#endif -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -#ifndef TclpGetCwd_TCL_DECLARED -#define TclpGetCwd_TCL_DECLARED -/* 141 */ -EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp, - Tcl_DString *cwdPtr); -#endif -#ifndef TclSetByteCodeFromAny_TCL_DECLARED -#define TclSetByteCodeFromAny_TCL_DECLARED -/* 142 */ -EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp, - Tcl_Obj *objPtr, CompileHookProc *hookProc, - ClientData clientData); -#endif -#ifndef TclAddLiteralObj_TCL_DECLARED -#define TclAddLiteralObj_TCL_DECLARED -/* 143 */ -EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr, - Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); -#endif -#ifndef TclHideLiteral_TCL_DECLARED -#define TclHideLiteral_TCL_DECLARED -/* 144 */ -EXTERN void TclHideLiteral(Tcl_Interp *interp, - struct CompileEnv *envPtr, int index); -#endif -#ifndef TclGetAuxDataType_TCL_DECLARED -#define TclGetAuxDataType_TCL_DECLARED -/* 145 */ -EXTERN struct AuxDataType * TclGetAuxDataType(char *typeName); -#endif -#ifndef TclHandleCreate_TCL_DECLARED -#define TclHandleCreate_TCL_DECLARED -/* 146 */ -EXTERN TclHandle TclHandleCreate(VOID *ptr); -#endif -#ifndef TclHandleFree_TCL_DECLARED -#define TclHandleFree_TCL_DECLARED -/* 147 */ -EXTERN void TclHandleFree(TclHandle handle); -#endif -#ifndef TclHandlePreserve_TCL_DECLARED -#define TclHandlePreserve_TCL_DECLARED -/* 148 */ -EXTERN TclHandle TclHandlePreserve(TclHandle handle); -#endif -#ifndef TclHandleRelease_TCL_DECLARED -#define TclHandleRelease_TCL_DECLARED -/* 149 */ -EXTERN void TclHandleRelease(TclHandle handle); -#endif -#ifndef TclRegAbout_TCL_DECLARED -#define TclRegAbout_TCL_DECLARED -/* 150 */ -EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re); -#endif -#ifndef TclRegExpRangeUniChar_TCL_DECLARED -#define TclRegExpRangeUniChar_TCL_DECLARED -/* 151 */ -EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index, - int *startPtr, int *endPtr); -#endif -#ifndef TclSetLibraryPath_TCL_DECLARED -#define TclSetLibraryPath_TCL_DECLARED -/* 152 */ -EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr); -#endif -#ifndef TclGetLibraryPath_TCL_DECLARED -#define TclGetLibraryPath_TCL_DECLARED -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath(void); -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError_TCL_DECLARED -#define TclRegError_TCL_DECLARED -/* 156 */ -EXTERN void TclRegError(Tcl_Interp *interp, CONST char *msg, - int status); -#endif -#ifndef TclVarTraceExists_TCL_DECLARED -#define TclVarTraceExists_TCL_DECLARED -/* 157 */ -EXTERN Var * TclVarTraceExists(Tcl_Interp *interp, - CONST char *varName); -#endif -#ifndef TclSetStartupScriptFileName_TCL_DECLARED -#define TclSetStartupScriptFileName_TCL_DECLARED -/* 158 */ -EXTERN void TclSetStartupScriptFileName(CONST char *filename); -#endif -#ifndef TclGetStartupScriptFileName_TCL_DECLARED -#define TclGetStartupScriptFileName_TCL_DECLARED -/* 159 */ -EXTERN CONST84_RETURN char * TclGetStartupScriptFileName(void); -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform_TCL_DECLARED -#define TclChannelTransform_TCL_DECLARED -/* 161 */ -EXTERN int TclChannelTransform(Tcl_Interp *interp, - Tcl_Channel chan, Tcl_Obj *cmdObjPtr); -#endif -#ifndef TclChannelEventScriptInvoker_TCL_DECLARED -#define TclChannelEventScriptInvoker_TCL_DECLARED -/* 162 */ -EXTERN void TclChannelEventScriptInvoker(ClientData clientData, - int flags); -#endif -#ifndef TclGetInstructionTable_TCL_DECLARED -#define TclGetInstructionTable_TCL_DECLARED -/* 163 */ -EXTERN VOID * TclGetInstructionTable(void); -#endif -#ifndef TclExpandCodeArray_TCL_DECLARED -#define TclExpandCodeArray_TCL_DECLARED -/* 164 */ -EXTERN void TclExpandCodeArray(VOID *envPtr); -#endif -#ifndef TclpSetInitialEncodings_TCL_DECLARED -#define TclpSetInitialEncodings_TCL_DECLARED -/* 165 */ -EXTERN void TclpSetInitialEncodings(void); -#endif -#ifndef TclListObjSetElement_TCL_DECLARED -#define TclListObjSetElement_TCL_DECLARED -/* 166 */ -EXTERN int TclListObjSetElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj *valuePtr); -#endif -#ifndef TclSetStartupScriptPath_TCL_DECLARED -#define TclSetStartupScriptPath_TCL_DECLARED -/* 167 */ -EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr); -#endif -#ifndef TclGetStartupScriptPath_TCL_DECLARED -#define TclGetStartupScriptPath_TCL_DECLARED -/* 168 */ -EXTERN Tcl_Obj * TclGetStartupScriptPath(void); -#endif -#ifndef TclpUtfNcmp2_TCL_DECLARED -#define TclpUtfNcmp2_TCL_DECLARED -/* 169 */ -EXTERN int TclpUtfNcmp2(CONST char *s1, CONST char *s2, - unsigned long n); -#endif -#ifndef TclCheckInterpTraces_TCL_DECLARED -#define TclCheckInterpTraces_TCL_DECLARED -/* 170 */ -EXTERN int TclCheckInterpTraces(Tcl_Interp *interp, - CONST char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef TclCheckExecutionTraces_TCL_DECLARED -#define TclCheckExecutionTraces_TCL_DECLARED -/* 171 */ -EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp, - CONST char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef TclInThreadExit_TCL_DECLARED -#define TclInThreadExit_TCL_DECLARED -/* 172 */ -EXTERN int TclInThreadExit(void); -#endif -#ifndef TclUniCharMatch_TCL_DECLARED -#define TclUniCharMatch_TCL_DECLARED -/* 173 */ -EXTERN int TclUniCharMatch(CONST Tcl_UniChar *string, - int strLen, CONST Tcl_UniChar *pattern, - int ptnLen, int flags); -#endif -/* Slot 174 is reserved */ -#ifndef TclCallVarTraces_TCL_DECLARED -#define TclCallVarTraces_TCL_DECLARED -/* 175 */ -EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, CONST char *part1, - CONST char *part2, int flags, - int leaveErrMsg); -#endif -#ifndef TclCleanupVar_TCL_DECLARED -#define TclCleanupVar_TCL_DECLARED -/* 176 */ -EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr); -#endif -#ifndef TclVarErrMsg_TCL_DECLARED -#define TclVarErrMsg_TCL_DECLARED -/* 177 */ -EXTERN void TclVarErrMsg(Tcl_Interp *interp, CONST char *part1, - CONST char *part2, CONST char *operation, - CONST char *reason); -#endif -#ifndef Tcl_SetStartupScript_TCL_DECLARED -#define Tcl_SetStartupScript_TCL_DECLARED -/* 178 */ -EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr, - CONST char *encodingName); -#endif -#ifndef Tcl_GetStartupScript_TCL_DECLARED -#define Tcl_GetStartupScript_TCL_DECLARED -/* 179 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript(CONST char **encodingNamePtr); -#endif -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -#ifndef TclpLocaltime_TCL_DECLARED -#define TclpLocaltime_TCL_DECLARED -/* 182 */ -EXTERN struct tm * TclpLocaltime(CONST time_t *clock); -#endif -#ifndef TclpGmtime_TCL_DECLARED -#define TclpGmtime_TCL_DECLARED -/* 183 */ -EXTERN struct tm * TclpGmtime(CONST time_t *clock); -#endif -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -#ifndef TclObjGetFrame_TCL_DECLARED -#define TclObjGetFrame_TCL_DECLARED -/* 198 */ -EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, - CallFrame **framePtrPtr); -#endif -/* Slot 199 is reserved */ -#ifndef TclpObjRemoveDirectory_TCL_DECLARED -#define TclpObjRemoveDirectory_TCL_DECLARED -/* 200 */ -EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -#endif -#ifndef TclpObjCopyDirectory_TCL_DECLARED -#define TclpObjCopyDirectory_TCL_DECLARED -/* 201 */ -EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -#endif -#ifndef TclpObjCreateDirectory_TCL_DECLARED -#define TclpObjCreateDirectory_TCL_DECLARED -/* 202 */ -EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr); -#endif -#ifndef TclpObjDeleteFile_TCL_DECLARED -#define TclpObjDeleteFile_TCL_DECLARED -/* 203 */ -EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr); -#endif -#ifndef TclpObjCopyFile_TCL_DECLARED -#define TclpObjCopyFile_TCL_DECLARED -/* 204 */ -EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef TclpObjRenameFile_TCL_DECLARED -#define TclpObjRenameFile_TCL_DECLARED -/* 205 */ -EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -#endif -#ifndef TclpObjStat_TCL_DECLARED -#define TclpObjStat_TCL_DECLARED -/* 206 */ -EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -#endif -#ifndef TclpObjAccess_TCL_DECLARED -#define TclpObjAccess_TCL_DECLARED -/* 207 */ -EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode); -#endif -#ifndef TclpOpenFileChannel_TCL_DECLARED -#define TclpOpenFileChannel_TCL_DECLARED -/* 208 */ -EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int mode, int permissions); -#endif -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -#ifndef TclpFindExecutable_TCL_DECLARED -#define TclpFindExecutable_TCL_DECLARED -/* 212 */ -EXTERN void TclpFindExecutable(CONST char *argv0); -#endif -#ifndef TclGetObjNameOfExecutable_TCL_DECLARED -#define TclGetObjNameOfExecutable_TCL_DECLARED -/* 213 */ -EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void); -#endif -#ifndef TclSetObjNameOfExecutable_TCL_DECLARED -#define TclSetObjNameOfExecutable_TCL_DECLARED -/* 214 */ -EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name, - Tcl_Encoding encoding); -#endif -#ifndef TclStackAlloc_TCL_DECLARED -#define TclStackAlloc_TCL_DECLARED -/* 215 */ -EXTERN VOID * TclStackAlloc(Tcl_Interp *interp, int numBytes); -#endif -#ifndef TclStackFree_TCL_DECLARED -#define TclStackFree_TCL_DECLARED -/* 216 */ -EXTERN void TclStackFree(Tcl_Interp *interp, VOID *freePtr); -#endif -#ifndef TclPushStackFrame_TCL_DECLARED -#define TclPushStackFrame_TCL_DECLARED -/* 217 */ -EXTERN int TclPushStackFrame(Tcl_Interp *interp, - Tcl_CallFrame **framePtrPtr, - Tcl_Namespace *namespacePtr, - int isProcCallFrame); -#endif -#ifndef TclPopStackFrame_TCL_DECLARED -#define TclPopStackFrame_TCL_DECLARED -/* 218 */ -EXTERN void TclPopStackFrame(Tcl_Interp *interp); -#endif -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -#ifndef TclGetPlatform_TCL_DECLARED -#define TclGetPlatform_TCL_DECLARED -/* 224 */ -EXTERN TclPlatformType * TclGetPlatform(void); -#endif -#ifndef TclTraceDictPath_TCL_DECLARED -#define TclTraceDictPath_TCL_DECLARED -/* 225 */ -EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp, - Tcl_Obj *rootPtr, int keyc, - Tcl_Obj *CONST keyv[], int flags); -#endif -#ifndef TclObjBeingDeleted_TCL_DECLARED -#define TclObjBeingDeleted_TCL_DECLARED -/* 226 */ -EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr); -#endif -#ifndef TclSetNsPath_TCL_DECLARED -#define TclSetNsPath_TCL_DECLARED -/* 227 */ -EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength, - Tcl_Namespace *pathAry[]); -#endif -#ifndef TclObjInterpProcCore_TCL_DECLARED -#define TclObjInterpProcCore_TCL_DECLARED -/* 228 */ -EXTERN int TclObjInterpProcCore(register Tcl_Interp *interp, - Tcl_Obj *procNameObj, int skip, - ProcErrorProc errorProc); -#endif -#ifndef TclPtrMakeUpvar_TCL_DECLARED -#define TclPtrMakeUpvar_TCL_DECLARED -/* 229 */ -EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, - CONST char *myName, int myFlags, int index); -#endif -#ifndef TclObjLookupVar_TCL_DECLARED -#define TclObjLookupVar_TCL_DECLARED -/* 230 */ -EXTERN Var * TclObjLookupVar(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, CONST char *part2, - int flags, CONST char *msg, - CONST int createPart1, CONST int createPart2, - Var **arrayPtrPtr); -#endif -#ifndef TclGetNamespaceFromObj_TCL_DECLARED -#define TclGetNamespaceFromObj_TCL_DECLARED -/* 231 */ -EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); -#endif -#ifndef TclEvalObjEx_TCL_DECLARED -#define TclEvalObjEx_TCL_DECLARED -/* 232 */ -EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags, CONST CmdFrame *invoker, int word); -#endif -#ifndef TclGetSrcInfoForPc_TCL_DECLARED -#define TclGetSrcInfoForPc_TCL_DECLARED -/* 233 */ -EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr); -#endif -#ifndef TclVarHashCreateVar_TCL_DECLARED -#define TclVarHashCreateVar_TCL_DECLARED -/* 234 */ -EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr, - CONST char *key, int *newPtr); -#endif -#ifndef TclInitVarHashTable_TCL_DECLARED -#define TclInitVarHashTable_TCL_DECLARED -/* 235 */ -EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr, - Namespace *nsPtr); -#endif -#ifndef TclBackgroundException_TCL_DECLARED -#define TclBackgroundException_TCL_DECLARED -/* 236 */ -EXTERN void TclBackgroundException(Tcl_Interp *interp, int code); -#endif -/* Slot 237 is reserved */ -/* Slot 238 is reserved */ -/* Slot 239 is reserved */ -/* Slot 240 is reserved */ -/* Slot 241 is reserved */ -/* Slot 242 is reserved */ -#ifndef TclDbDumpActiveObjects_TCL_DECLARED -#define TclDbDumpActiveObjects_TCL_DECLARED -/* 243 */ -EXTERN void TclDbDumpActiveObjects(FILE *outFile); -#endif -/* Slot 244 is reserved */ -/* Slot 245 is reserved */ -/* Slot 246 is reserved */ -/* Slot 247 is reserved */ -/* Slot 248 is reserved */ -#ifndef TclDoubleDigits_TCL_DECLARED -#define TclDoubleDigits_TCL_DECLARED -/* 249 */ -EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags, - int *decpt, int *signum, char **endPtr); -#endif -/* Slot 250 is reserved */ -/* Slot 251 is reserved */ -/* Slot 252 is reserved */ -/* Slot 253 is reserved */ -/* Slot 254 is reserved */ -/* Slot 255 is reserved */ -/* Slot 256 is reserved */ -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -#ifndef TclUnusedStubEntry_TCL_DECLARED -#define TclUnusedStubEntry_TCL_DECLARED -/* 259 */ -EXTERN void TclUnusedStubEntry(void); -#endif - -typedef struct TclIntStubs { - int magic; - struct TclIntStubHooks *hooks; - - VOID *reserved0; - VOID *reserved1; - VOID *reserved2; - void (*tclAllocateFreeObjects) (void); /* 3 */ - VOID *reserved4; - int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */ - void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */ - int (*tclCopyAndCollapse) (int count, CONST char *src, char *dst); /* 7 */ - int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */ - int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, CONST char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */ - int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, CONST char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */ - void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */ - void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */ - VOID *reserved13; - int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */ - VOID *reserved15; - void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */ - VOID *reserved17; - VOID *reserved18; - VOID *reserved19; - VOID *reserved20; - VOID *reserved21; - int (*tclFindElement) (Tcl_Interp *interp, CONST char *listStr, int listLength, CONST char **elementPtr, CONST char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */ - Proc * (*tclFindProc) (Interp *iPtr, CONST char *procName); /* 23 */ - int (*tclFormatInt) (char *buffer, long n); /* 24 */ - void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */ - VOID *reserved26; - VOID *reserved27; - Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */ - VOID *reserved29; - VOID *reserved30; - CONST char * (*tclGetExtension) (CONST char *name); /* 31 */ - int (*tclGetFrame) (Tcl_Interp *interp, CONST char *str, CallFrame **framePtrPtr); /* 32 */ - VOID *reserved33; - int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */ - VOID *reserved35; - int (*tclGetLong) (Tcl_Interp *interp, CONST char *str, long *longPtr); /* 36 */ - int (*tclGetLoadedPackages) (Tcl_Interp *interp, char *targetName); /* 37 */ - int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, CONST char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, CONST char **simpleNamePtr); /* 38 */ - TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ - int (*tclGetOpenMode) (Tcl_Interp *interp, CONST char *str, int *seekFlagPtr); /* 40 */ - Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ - char * (*tclpGetUserHome) (CONST char *name, Tcl_DString *bufferPtr); /* 42 */ - VOID *reserved43; - int (*tclGuessPackageName) (CONST char *fileName, Tcl_DString *bufPtr); /* 44 */ - int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ - int (*tclInExit) (void); /* 46 */ - VOID *reserved47; - VOID *reserved48; - VOID *reserved49; - void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */ - int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ - VOID *reserved52; - int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */ - int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */ - Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */ - VOID *reserved56; - VOID *reserved57; - Var * (*tclLookupVar) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, CONST char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */ - VOID *reserved59; - int (*tclNeedSpace) (CONST char *start, CONST char *end); /* 60 */ - Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */ - int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */ - int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */ - int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */ - VOID *reserved65; - VOID *reserved66; - VOID *reserved67; - VOID *reserved68; - char * (*tclpAlloc) (unsigned int size); /* 69 */ - VOID *reserved70; - VOID *reserved71; - VOID *reserved72; - VOID *reserved73; - void (*tclpFree) (char *ptr); /* 74 */ - unsigned long (*tclpGetClicks) (void); /* 75 */ - unsigned long (*tclpGetSeconds) (void); /* 76 */ - void (*tclpGetTime) (Tcl_Time *time); /* 77 */ - int (*tclpGetTimeZone) (unsigned long time); /* 78 */ - VOID *reserved79; - VOID *reserved80; - char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */ - VOID *reserved82; - VOID *reserved83; - VOID *reserved84; - VOID *reserved85; - VOID *reserved86; - VOID *reserved87; - char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, CONST char *name1, CONST char *name2, int flags); /* 88 */ - int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */ - VOID *reserved90; - void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */ - int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, CONST char *procName); /* 92 */ - void (*tclProcDeleteProc) (ClientData clientData); /* 93 */ - VOID *reserved94; - VOID *reserved95; - int (*tclRenameCommand) (Tcl_Interp *interp, CONST char *oldName, CONST char *newName); /* 96 */ - void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */ - int (*tclServiceIdle) (void); /* 98 */ - VOID *reserved99; - VOID *reserved100; - char * (*tclSetPreInitScript) (char *string); /* 101 */ - void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */ - int (*tclSockGetPort) (Tcl_Interp *interp, CONST char *str, CONST char *proto, int *portPtr); /* 103 */ - int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */ - VOID *reserved105; - VOID *reserved106; - VOID *reserved107; - void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */ - int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */ - int (*tclSockMinimumBuffers) (VOID *sock, int size); /* 110 */ - void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 115 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */ - int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolverInfo *resInfo); /* 118 */ - int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */ - Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 121 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */ - void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 127 */ - void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */ - int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */ - int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, CONST char *name); /* 130 */ - void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */ - int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */ - struct tm * (*tclpGetDate) (CONST time_t *time, int useGMT); /* 133 */ - VOID *reserved134; - VOID *reserved135; - VOID *reserved136; - VOID *reserved137; - CONST84_RETURN char * (*tclGetEnv) (CONST char *name, Tcl_DString *valuePtr); /* 138 */ - VOID *reserved139; - VOID *reserved140; - CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */ - int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */ - int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */ - void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */ - struct AuxDataType * (*tclGetAuxDataType) (char *typeName); /* 145 */ - TclHandle (*tclHandleCreate) (VOID *ptr); /* 146 */ - void (*tclHandleFree) (TclHandle handle); /* 147 */ - TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */ - void (*tclHandleRelease) (TclHandle handle); /* 149 */ - int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */ - void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */ - void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ - VOID *reserved154; - VOID *reserved155; - void (*tclRegError) (Tcl_Interp *interp, CONST char *msg, int status); /* 156 */ - Var * (*tclVarTraceExists) (Tcl_Interp *interp, CONST char *varName); /* 157 */ - void (*tclSetStartupScriptFileName) (CONST char *filename); /* 158 */ - CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */ - VOID *reserved160; - int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */ - void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */ - VOID * (*tclGetInstructionTable) (void); /* 163 */ - void (*tclExpandCodeArray) (VOID *envPtr); /* 164 */ - void (*tclpSetInitialEncodings) (void); /* 165 */ - int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */ - void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */ - Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */ - int (*tclpUtfNcmp2) (CONST char *s1, CONST char *s2, unsigned long n); /* 169 */ - int (*tclCheckInterpTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */ - int (*tclCheckExecutionTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */ - int (*tclInThreadExit) (void); /* 172 */ - int (*tclUniCharMatch) (CONST Tcl_UniChar *string, int strLen, CONST Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */ - VOID *reserved174; - int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, CONST char *part1, CONST char *part2, int flags, int leaveErrMsg); /* 175 */ - void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */ - void (*tclVarErrMsg) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *operation, CONST char *reason); /* 177 */ - void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, CONST char *encodingName); /* 178 */ - Tcl_Obj * (*tcl_GetStartupScript) (CONST char **encodingNamePtr); /* 179 */ - VOID *reserved180; - VOID *reserved181; - struct tm * (*tclpLocaltime) (CONST time_t *clock); /* 182 */ - struct tm * (*tclpGmtime) (CONST time_t *clock); /* 183 */ - VOID *reserved184; - VOID *reserved185; - VOID *reserved186; - VOID *reserved187; - VOID *reserved188; - VOID *reserved189; - VOID *reserved190; - VOID *reserved191; - VOID *reserved192; - VOID *reserved193; - VOID *reserved194; - VOID *reserved195; - VOID *reserved196; - VOID *reserved197; - int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */ - VOID *reserved199; - int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */ - int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */ - int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */ - int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */ - int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */ - int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */ - int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */ - int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */ - Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */ - VOID *reserved209; - VOID *reserved210; - VOID *reserved211; - void (*tclpFindExecutable) (CONST char *argv0); /* 212 */ - Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */ - void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */ - VOID * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */ - void (*tclStackFree) (Tcl_Interp *interp, VOID *freePtr); /* 216 */ - int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */ - void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */ - VOID *reserved219; - VOID *reserved220; - VOID *reserved221; - VOID *reserved222; - VOID *reserved223; - TclPlatformType * (*tclGetPlatform) (void); /* 224 */ - Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */ - int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ - void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */ - int (*tclObjInterpProcCore) (register Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc errorProc); /* 228 */ - int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, CONST char *myName, int myFlags, int index); /* 229 */ - Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, CONST char *part2, int flags, CONST char *msg, CONST int createPart1, CONST int createPart2, Var **arrayPtrPtr); /* 230 */ - int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */ - int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, CONST CmdFrame *invoker, int word); /* 232 */ - void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */ - Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, CONST char *key, int *newPtr); /* 234 */ - void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */ - void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */ - VOID *reserved237; - VOID *reserved238; - VOID *reserved239; - VOID *reserved240; - VOID *reserved241; - VOID *reserved242; - void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */ - VOID *reserved244; - VOID *reserved245; - VOID *reserved246; - VOID *reserved247; - VOID *reserved248; - char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */ - VOID *reserved250; - VOID *reserved251; - VOID *reserved252; - VOID *reserved253; - VOID *reserved254; - VOID *reserved255; - VOID *reserved256; - VOID *reserved257; - VOID *reserved258; - void (*tclUnusedStubEntry) (void); /* 259 */ -} TclIntStubs; - -extern TclIntStubs *tclIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TclAllocateFreeObjects -#define TclAllocateFreeObjects \ - (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -#endif -/* Slot 4 is reserved */ -#ifndef TclCleanupChildren -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#ifndef TclCleanupCommand -#define TclCleanupCommand \ - (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#endif -#ifndef TclCopyAndCollapse -#define TclCopyAndCollapse \ - (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#endif -#ifndef TclCopyChannel -#define TclCopyChannel \ - (tclIntStubsPtr->tclCopyChannel) /* 8 */ -#endif -#ifndef TclCreatePipeline -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#ifndef TclCreateProc -#define TclCreateProc \ - (tclIntStubsPtr->tclCreateProc) /* 10 */ -#endif -#ifndef TclDeleteCompiledLocalVars -#define TclDeleteCompiledLocalVars \ - (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ -#endif -#ifndef TclDeleteVars -#define TclDeleteVars \ - (tclIntStubsPtr->tclDeleteVars) /* 12 */ -#endif -/* Slot 13 is reserved */ -#ifndef TclDumpMemoryInfo -#define TclDumpMemoryInfo \ - (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError -#define TclExprFloatError \ - (tclIntStubsPtr->tclExprFloatError) /* 16 */ -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement -#define TclFindElement \ - (tclIntStubsPtr->tclFindElement) /* 22 */ -#endif -#ifndef TclFindProc -#define TclFindProc \ - (tclIntStubsPtr->tclFindProc) /* 23 */ -#endif -#ifndef TclFormatInt -#define TclFormatInt \ - (tclIntStubsPtr->tclFormatInt) /* 24 */ -#endif -#ifndef TclFreePackageInfo -#define TclFreePackageInfo \ - (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ -#endif -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -#ifndef TclpGetDefaultStdChannel -#define TclpGetDefaultStdChannel \ - (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension -#define TclGetExtension \ - (tclIntStubsPtr->tclGetExtension) /* 31 */ -#endif -#ifndef TclGetFrame -#define TclGetFrame \ - (tclIntStubsPtr->tclGetFrame) /* 32 */ -#endif -/* Slot 33 is reserved */ -#ifndef TclGetIntForIndex -#define TclGetIntForIndex \ - (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong -#define TclGetLong \ - (tclIntStubsPtr->tclGetLong) /* 36 */ -#endif -#ifndef TclGetLoadedPackages -#define TclGetLoadedPackages \ - (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ -#endif -#ifndef TclGetNamespaceForQualName -#define TclGetNamespaceForQualName \ - (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ -#endif -#ifndef TclGetObjInterpProc -#define TclGetObjInterpProc \ - (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ -#endif -#ifndef TclGetOpenMode -#define TclGetOpenMode \ - (tclIntStubsPtr->tclGetOpenMode) /* 40 */ -#endif -#ifndef TclGetOriginalCommand -#define TclGetOriginalCommand \ - (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ -#endif -#ifndef TclpGetUserHome -#define TclpGetUserHome \ - (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -#endif -/* Slot 43 is reserved */ -#ifndef TclGuessPackageName -#define TclGuessPackageName \ - (tclIntStubsPtr->tclGuessPackageName) /* 44 */ -#endif -#ifndef TclHideUnsafeCommands -#define TclHideUnsafeCommands \ - (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ -#endif -#ifndef TclInExit -#define TclInExit \ - (tclIntStubsPtr->tclInExit) /* 46 */ -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -#ifndef TclInitCompiledLocals -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ -#endif -#ifndef TclInterpInit -#define TclInterpInit \ - (tclIntStubsPtr->tclInterpInit) /* 51 */ -#endif -/* Slot 52 is reserved */ -#ifndef TclInvokeObjectCommand -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#endif -#ifndef TclInvokeStringCommand -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ -#endif -#ifndef TclIsProc -#define TclIsProc \ - (tclIntStubsPtr->tclIsProc) /* 55 */ -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar -#define TclLookupVar \ - (tclIntStubsPtr->tclLookupVar) /* 58 */ -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace -#define TclNeedSpace \ - (tclIntStubsPtr->tclNeedSpace) /* 60 */ -#endif -#ifndef TclNewProcBodyObj -#define TclNewProcBodyObj \ - (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ -#endif -#ifndef TclObjCommandComplete -#define TclObjCommandComplete \ - (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ -#endif -#ifndef TclObjInterpProc -#define TclObjInterpProc \ - (tclIntStubsPtr->tclObjInterpProc) /* 63 */ -#endif -#ifndef TclObjInvoke -#define TclObjInvoke \ - (tclIntStubsPtr->tclObjInvoke) /* 64 */ -#endif -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -#ifndef TclpAlloc -#define TclpAlloc \ - (tclIntStubsPtr->tclpAlloc) /* 69 */ -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree -#define TclpFree \ - (tclIntStubsPtr->tclpFree) /* 74 */ -#endif -#ifndef TclpGetClicks -#define TclpGetClicks \ - (tclIntStubsPtr->tclpGetClicks) /* 75 */ -#endif -#ifndef TclpGetSeconds -#define TclpGetSeconds \ - (tclIntStubsPtr->tclpGetSeconds) /* 76 */ -#endif -#ifndef TclpGetTime -#define TclpGetTime \ - (tclIntStubsPtr->tclpGetTime) /* 77 */ -#endif -#ifndef TclpGetTimeZone -#define TclpGetTimeZone \ - (tclIntStubsPtr->tclpGetTimeZone) /* 78 */ -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc -#define TclpRealloc \ - (tclIntStubsPtr->tclpRealloc) /* 81 */ -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc -#define TclPrecTraceProc \ - (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ -#endif -#ifndef TclPreventAliasLoop -#define TclPreventAliasLoop \ - (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc -#define TclProcCleanupProc \ - (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ -#endif -#ifndef TclProcCompileProc -#define TclProcCompileProc \ - (tclIntStubsPtr->tclProcCompileProc) /* 92 */ -#endif -#ifndef TclProcDeleteProc -#define TclProcDeleteProc \ - (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ -#endif -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -#ifndef TclRenameCommand -#define TclRenameCommand \ - (tclIntStubsPtr->tclRenameCommand) /* 96 */ -#endif -#ifndef TclResetShadowedCmdRefs -#define TclResetShadowedCmdRefs \ - (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ -#endif -#ifndef TclServiceIdle -#define TclServiceIdle \ - (tclIntStubsPtr->tclServiceIdle) /* 98 */ -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#endif -#ifndef TclSetupEnv -#define TclSetupEnv \ - (tclIntStubsPtr->tclSetupEnv) /* 102 */ -#endif -#ifndef TclSockGetPort -#define TclSockGetPort \ - (tclIntStubsPtr->tclSockGetPort) /* 103 */ -#endif -#ifndef TclSockMinimumBuffersOld -#define TclSockMinimumBuffersOld \ - (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */ -#endif -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -#ifndef TclTeardownNamespace -#define TclTeardownNamespace \ - (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ -#endif -#ifndef TclUpdateReturnInfo -#define TclUpdateReturnInfo \ - (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ -#endif -#ifndef TclSockMinimumBuffers -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */ -#endif -#ifndef Tcl_AddInterpResolvers -#define Tcl_AddInterpResolvers \ - (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclIntStubsPtr->tcl_Export) /* 115 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclIntStubsPtr->tcl_FindCommand) /* 116 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ -#endif -#ifndef Tcl_GetInterpResolvers -#define Tcl_GetInterpResolvers \ - (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ -#endif -#ifndef Tcl_GetNamespaceResolvers -#define Tcl_GetNamespaceResolvers \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ -#endif -#ifndef Tcl_FindNamespaceVar -#define Tcl_FindNamespaceVar \ - (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ -#endif -#ifndef Tcl_GetVariableFullName -#define Tcl_GetVariableFullName \ - (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclIntStubsPtr->tcl_Import) /* 127 */ -#endif -#ifndef Tcl_PopCallFrame -#define Tcl_PopCallFrame \ - (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ -#endif -#ifndef Tcl_PushCallFrame -#define Tcl_PushCallFrame \ - (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ -#endif -#ifndef Tcl_RemoveInterpResolvers -#define Tcl_RemoveInterpResolvers \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ -#endif -#ifndef Tcl_SetNamespaceResolvers -#define Tcl_SetNamespaceResolvers \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ -#endif -#ifndef TclpHasSockets -#define TclpHasSockets \ - (tclIntStubsPtr->tclpHasSockets) /* 132 */ -#endif -#ifndef TclpGetDate -#define TclpGetDate \ - (tclIntStubsPtr->tclpGetDate) /* 133 */ -#endif -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv -#define TclGetEnv \ - (tclIntStubsPtr->tclGetEnv) /* 138 */ -#endif -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -#ifndef TclpGetCwd -#define TclpGetCwd \ - (tclIntStubsPtr->tclpGetCwd) /* 141 */ -#endif -#ifndef TclSetByteCodeFromAny -#define TclSetByteCodeFromAny \ - (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ -#endif -#ifndef TclAddLiteralObj -#define TclAddLiteralObj \ - (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ -#endif -#ifndef TclHideLiteral -#define TclHideLiteral \ - (tclIntStubsPtr->tclHideLiteral) /* 144 */ -#endif -#ifndef TclGetAuxDataType -#define TclGetAuxDataType \ - (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ -#endif -#ifndef TclHandleCreate -#define TclHandleCreate \ - (tclIntStubsPtr->tclHandleCreate) /* 146 */ -#endif -#ifndef TclHandleFree -#define TclHandleFree \ - (tclIntStubsPtr->tclHandleFree) /* 147 */ -#endif -#ifndef TclHandlePreserve -#define TclHandlePreserve \ - (tclIntStubsPtr->tclHandlePreserve) /* 148 */ -#endif -#ifndef TclHandleRelease -#define TclHandleRelease \ - (tclIntStubsPtr->tclHandleRelease) /* 149 */ -#endif -#ifndef TclRegAbout -#define TclRegAbout \ - (tclIntStubsPtr->tclRegAbout) /* 150 */ -#endif -#ifndef TclRegExpRangeUniChar -#define TclRegExpRangeUniChar \ - (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#endif -#ifndef TclSetLibraryPath -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#endif -#ifndef TclGetLibraryPath -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError -#define TclRegError \ - (tclIntStubsPtr->tclRegError) /* 156 */ -#endif -#ifndef TclVarTraceExists -#define TclVarTraceExists \ - (tclIntStubsPtr->tclVarTraceExists) /* 157 */ -#endif -#ifndef TclSetStartupScriptFileName -#define TclSetStartupScriptFileName \ - (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ -#endif -#ifndef TclGetStartupScriptFileName -#define TclGetStartupScriptFileName \ - (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform -#define TclChannelTransform \ - (tclIntStubsPtr->tclChannelTransform) /* 161 */ -#endif -#ifndef TclChannelEventScriptInvoker -#define TclChannelEventScriptInvoker \ - (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ -#endif -#ifndef TclGetInstructionTable -#define TclGetInstructionTable \ - (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ -#endif -#ifndef TclExpandCodeArray -#define TclExpandCodeArray \ - (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ -#endif -#ifndef TclpSetInitialEncodings -#define TclpSetInitialEncodings \ - (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ -#endif -#ifndef TclListObjSetElement -#define TclListObjSetElement \ - (tclIntStubsPtr->tclListObjSetElement) /* 166 */ -#endif -#ifndef TclSetStartupScriptPath -#define TclSetStartupScriptPath \ - (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ -#endif -#ifndef TclGetStartupScriptPath -#define TclGetStartupScriptPath \ - (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ -#endif -#ifndef TclpUtfNcmp2 -#define TclpUtfNcmp2 \ - (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ -#endif -#ifndef TclCheckInterpTraces -#define TclCheckInterpTraces \ - (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ -#endif -#ifndef TclCheckExecutionTraces -#define TclCheckExecutionTraces \ - (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ -#endif -#ifndef TclInThreadExit -#define TclInThreadExit \ - (tclIntStubsPtr->tclInThreadExit) /* 172 */ -#endif -#ifndef TclUniCharMatch -#define TclUniCharMatch \ - (tclIntStubsPtr->tclUniCharMatch) /* 173 */ -#endif -/* Slot 174 is reserved */ -#ifndef TclCallVarTraces -#define TclCallVarTraces \ - (tclIntStubsPtr->tclCallVarTraces) /* 175 */ -#endif -#ifndef TclCleanupVar -#define TclCleanupVar \ - (tclIntStubsPtr->tclCleanupVar) /* 176 */ -#endif -#ifndef TclVarErrMsg -#define TclVarErrMsg \ - (tclIntStubsPtr->tclVarErrMsg) /* 177 */ -#endif -#ifndef Tcl_SetStartupScript -#define Tcl_SetStartupScript \ - (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ -#endif -#ifndef Tcl_GetStartupScript -#define Tcl_GetStartupScript \ - (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ -#endif -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -#ifndef TclpLocaltime -#define TclpLocaltime \ - (tclIntStubsPtr->tclpLocaltime) /* 182 */ -#endif -#ifndef TclpGmtime -#define TclpGmtime \ - (tclIntStubsPtr->tclpGmtime) /* 183 */ -#endif -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -#ifndef TclObjGetFrame -#define TclObjGetFrame \ - (tclIntStubsPtr->tclObjGetFrame) /* 198 */ -#endif -/* Slot 199 is reserved */ -#ifndef TclpObjRemoveDirectory -#define TclpObjRemoveDirectory \ - (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */ -#endif -#ifndef TclpObjCopyDirectory -#define TclpObjCopyDirectory \ - (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */ -#endif -#ifndef TclpObjCreateDirectory -#define TclpObjCreateDirectory \ - (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */ -#endif -#ifndef TclpObjDeleteFile -#define TclpObjDeleteFile \ - (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */ -#endif -#ifndef TclpObjCopyFile -#define TclpObjCopyFile \ - (tclIntStubsPtr->tclpObjCopyFile) /* 204 */ -#endif -#ifndef TclpObjRenameFile -#define TclpObjRenameFile \ - (tclIntStubsPtr->tclpObjRenameFile) /* 205 */ -#endif -#ifndef TclpObjStat -#define TclpObjStat \ - (tclIntStubsPtr->tclpObjStat) /* 206 */ -#endif -#ifndef TclpObjAccess -#define TclpObjAccess \ - (tclIntStubsPtr->tclpObjAccess) /* 207 */ -#endif -#ifndef TclpOpenFileChannel -#define TclpOpenFileChannel \ - (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ -#endif -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -#ifndef TclpFindExecutable -#define TclpFindExecutable \ - (tclIntStubsPtr->tclpFindExecutable) /* 212 */ -#endif -#ifndef TclGetObjNameOfExecutable -#define TclGetObjNameOfExecutable \ - (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */ -#endif -#ifndef TclSetObjNameOfExecutable -#define TclSetObjNameOfExecutable \ - (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */ -#endif -#ifndef TclStackAlloc -#define TclStackAlloc \ - (tclIntStubsPtr->tclStackAlloc) /* 215 */ -#endif -#ifndef TclStackFree -#define TclStackFree \ - (tclIntStubsPtr->tclStackFree) /* 216 */ -#endif -#ifndef TclPushStackFrame -#define TclPushStackFrame \ - (tclIntStubsPtr->tclPushStackFrame) /* 217 */ -#endif -#ifndef TclPopStackFrame -#define TclPopStackFrame \ - (tclIntStubsPtr->tclPopStackFrame) /* 218 */ -#endif -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -#ifndef TclGetPlatform -#define TclGetPlatform \ - (tclIntStubsPtr->tclGetPlatform) /* 224 */ -#endif -#ifndef TclTraceDictPath -#define TclTraceDictPath \ - (tclIntStubsPtr->tclTraceDictPath) /* 225 */ -#endif -#ifndef TclObjBeingDeleted -#define TclObjBeingDeleted \ - (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */ -#endif -#ifndef TclSetNsPath -#define TclSetNsPath \ - (tclIntStubsPtr->tclSetNsPath) /* 227 */ -#endif -#ifndef TclObjInterpProcCore -#define TclObjInterpProcCore \ - (tclIntStubsPtr->tclObjInterpProcCore) /* 228 */ -#endif -#ifndef TclPtrMakeUpvar -#define TclPtrMakeUpvar \ - (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */ -#endif -#ifndef TclObjLookupVar -#define TclObjLookupVar \ - (tclIntStubsPtr->tclObjLookupVar) /* 230 */ -#endif -#ifndef TclGetNamespaceFromObj -#define TclGetNamespaceFromObj \ - (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */ -#endif -#ifndef TclEvalObjEx -#define TclEvalObjEx \ - (tclIntStubsPtr->tclEvalObjEx) /* 232 */ -#endif -#ifndef TclGetSrcInfoForPc -#define TclGetSrcInfoForPc \ - (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */ -#endif -#ifndef TclVarHashCreateVar -#define TclVarHashCreateVar \ - (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ -#endif -#ifndef TclInitVarHashTable -#define TclInitVarHashTable \ - (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ -#endif -#ifndef TclBackgroundException -#define TclBackgroundException \ - (tclIntStubsPtr->tclBackgroundException) /* 236 */ -#endif -/* Slot 237 is reserved */ -/* Slot 238 is reserved */ -/* Slot 239 is reserved */ -/* Slot 240 is reserved */ -/* Slot 241 is reserved */ -/* Slot 242 is reserved */ -#ifndef TclDbDumpActiveObjects -#define TclDbDumpActiveObjects \ - (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ -#endif -/* Slot 244 is reserved */ -/* Slot 245 is reserved */ -/* Slot 246 is reserved */ -/* Slot 247 is reserved */ -/* Slot 248 is reserved */ -#ifndef TclDoubleDigits -#define TclDoubleDigits \ - (tclIntStubsPtr->tclDoubleDigits) /* 249 */ -#endif -/* Slot 250 is reserved */ -/* Slot 251 is reserved */ -/* Slot 252 is reserved */ -/* Slot 253 is reserved */ -/* Slot 254 is reserved */ -/* Slot 255 is reserved */ -/* Slot 256 is reserved */ -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -#ifndef TclUnusedStubEntry -#define TclUnusedStubEntry \ - (tclIntStubsPtr->tclUnusedStubEntry) /* 259 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#if !defined(_WIN64) -/* See bug 510001: TclSockMinimumBuffers needs plat imp */ -# undef TclSockMinimumBuffers -# define TclSockMinimumBuffers(a,b) TclSockMinimumBuffersOld(PTR2INT(a),b) -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED) -# undef Tcl_CreateNamespace -# define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -# undef Tcl_DeleteNamespace -# define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -# undef Tcl_AppendExportList -# define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -# undef Tcl_Export -# define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -# undef Tcl_Import -# define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -# undef Tcl_ForgetImport -# define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -# undef Tcl_GetCurrentNamespace -# define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -# undef Tcl_GetGlobalNamespace -# define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -# undef Tcl_FindNamespace -# define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -# undef Tcl_FindCommand -# define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -# undef Tcl_GetCommandFromObj -# define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -# undef Tcl_GetCommandFullName -# define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif - -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclIntPlatDecls.h deleted file mode 100644 index 4d2bd0a63..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclIntPlatDecls.h +++ /dev/null @@ -1,859 +0,0 @@ -/* - * tclIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLINTPLATDECLS -#define _TCLINTPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef TclGetAndDetachPids_TCL_DECLARED -#define TclGetAndDetachPids_TCL_DECLARED -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef TclpCloseFile_TCL_DECLARED -#define TclpCloseFile_TCL_DECLARED -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -#endif -#ifndef TclpCreateCommandChannel_TCL_DECLARED -#define TclpCreateCommandChannel_TCL_DECLARED -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef TclpCreatePipe_TCL_DECLARED -#define TclpCreatePipe_TCL_DECLARED -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -#endif -#ifndef TclpCreateProcess_TCL_DECLARED -#define TclpCreateProcess_TCL_DECLARED -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - CONST char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile_TCL_DECLARED -#define TclpMakeFile_TCL_DECLARED -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -#endif -#ifndef TclpOpenFile_TCL_DECLARED -#define TclpOpenFile_TCL_DECLARED -/* 7 */ -EXTERN TclFile TclpOpenFile(CONST char *fname, int mode); -#endif -#ifndef TclUnixWaitForFile_TCL_DECLARED -#define TclUnixWaitForFile_TCL_DECLARED -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -#endif -#ifndef TclpCreateTempFile_TCL_DECLARED -#define TclpCreateTempFile_TCL_DECLARED -/* 9 */ -EXTERN TclFile TclpCreateTempFile(CONST char *contents); -#endif -#ifndef TclpReaddir_TCL_DECLARED -#define TclpReaddir_TCL_DECLARED -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -#endif -#ifndef TclpLocaltime_unix_TCL_DECLARED -#define TclpLocaltime_unix_TCL_DECLARED -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(CONST time_t *clock); -#endif -#ifndef TclpGmtime_unix_TCL_DECLARED -#define TclpGmtime_unix_TCL_DECLARED -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(CONST time_t *clock); -#endif -#ifndef TclpInetNtoa_TCL_DECLARED -#define TclpInetNtoa_TCL_DECLARED -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -#endif -#ifndef TclUnixCopyFile_TCL_DECLARED -#define TclUnixCopyFile_TCL_DECLARED -/* 14 */ -EXTERN int TclUnixCopyFile(CONST char *src, CONST char *dst, - CONST Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -#endif -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID_TCL_DECLARED -#define TclWinCPUID_TCL_DECLARED -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -#endif -#endif /* UNIX */ -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TclWinConvertError_TCL_DECLARED -#define TclWinConvertError_TCL_DECLARED -/* 0 */ -EXTERN void TclWinConvertError(DWORD errCode); -#endif -#ifndef TclWinConvertWSAError_TCL_DECLARED -#define TclWinConvertWSAError_TCL_DECLARED -/* 1 */ -EXTERN void TclWinConvertWSAError(DWORD errCode); -#endif -#ifndef TclWinGetServByName_TCL_DECLARED -#define TclWinGetServByName_TCL_DECLARED -/* 2 */ -EXTERN struct servent * TclWinGetServByName(CONST char *nm, - CONST char *proto); -#endif -#ifndef TclWinGetSockOpt_TCL_DECLARED -#define TclWinGetSockOpt_TCL_DECLARED -/* 3 */ -EXTERN int TclWinGetSockOpt(SOCKET s, int level, int optname, - char *optval, int *optlen); -#endif -#ifndef TclWinGetTclInstance_TCL_DECLARED -#define TclWinGetTclInstance_TCL_DECLARED -/* 4 */ -EXTERN HINSTANCE TclWinGetTclInstance(void); -#endif -#ifndef TclUnixWaitForFile_TCL_DECLARED -#define TclUnixWaitForFile_TCL_DECLARED -/* 5 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -#endif -#ifndef TclWinNToHS_TCL_DECLARED -#define TclWinNToHS_TCL_DECLARED -/* 6 */ -EXTERN unsigned short TclWinNToHS(unsigned short ns); -#endif -#ifndef TclWinSetSockOpt_TCL_DECLARED -#define TclWinSetSockOpt_TCL_DECLARED -/* 7 */ -EXTERN int TclWinSetSockOpt(SOCKET s, int level, int optname, - CONST char *optval, int optlen); -#endif -#ifndef TclpGetPid_TCL_DECLARED -#define TclpGetPid_TCL_DECLARED -/* 8 */ -EXTERN int TclpGetPid(Tcl_Pid pid); -#endif -#ifndef TclWinGetPlatformId_TCL_DECLARED -#define TclWinGetPlatformId_TCL_DECLARED -/* 9 */ -EXTERN int TclWinGetPlatformId(void); -#endif -#ifndef TclpReaddir_TCL_DECLARED -#define TclpReaddir_TCL_DECLARED -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -#endif -#ifndef TclGetAndDetachPids_TCL_DECLARED -#define TclGetAndDetachPids_TCL_DECLARED -/* 11 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef TclpCloseFile_TCL_DECLARED -#define TclpCloseFile_TCL_DECLARED -/* 12 */ -EXTERN int TclpCloseFile(TclFile file); -#endif -#ifndef TclpCreateCommandChannel_TCL_DECLARED -#define TclpCreateCommandChannel_TCL_DECLARED -/* 13 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef TclpCreatePipe_TCL_DECLARED -#define TclpCreatePipe_TCL_DECLARED -/* 14 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -#endif -#ifndef TclpCreateProcess_TCL_DECLARED -#define TclpCreateProcess_TCL_DECLARED -/* 15 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - CONST char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -#endif -#ifndef TclpIsAtty_TCL_DECLARED -#define TclpIsAtty_TCL_DECLARED -/* 16 */ -EXTERN int TclpIsAtty(int fd); -#endif -#ifndef TclUnixCopyFile_TCL_DECLARED -#define TclUnixCopyFile_TCL_DECLARED -/* 17 */ -EXTERN int TclUnixCopyFile(CONST char *src, CONST char *dst, - CONST Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -#endif -#ifndef TclpMakeFile_TCL_DECLARED -#define TclpMakeFile_TCL_DECLARED -/* 18 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -#endif -#ifndef TclpOpenFile_TCL_DECLARED -#define TclpOpenFile_TCL_DECLARED -/* 19 */ -EXTERN TclFile TclpOpenFile(CONST char *fname, int mode); -#endif -#ifndef TclWinAddProcess_TCL_DECLARED -#define TclWinAddProcess_TCL_DECLARED -/* 20 */ -EXTERN void TclWinAddProcess(HANDLE hProcess, DWORD id); -#endif -#ifndef TclpInetNtoa_TCL_DECLARED -#define TclpInetNtoa_TCL_DECLARED -/* 21 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -#endif -#ifndef TclpCreateTempFile_TCL_DECLARED -#define TclpCreateTempFile_TCL_DECLARED -/* 22 */ -EXTERN TclFile TclpCreateTempFile(CONST char *contents); -#endif -#ifndef TclpGetTZName_TCL_DECLARED -#define TclpGetTZName_TCL_DECLARED -/* 23 */ -EXTERN char * TclpGetTZName(int isdst); -#endif -#ifndef TclWinNoBackslash_TCL_DECLARED -#define TclWinNoBackslash_TCL_DECLARED -/* 24 */ -EXTERN char * TclWinNoBackslash(char *path); -#endif -/* Slot 25 is reserved */ -#ifndef TclWinSetInterfaces_TCL_DECLARED -#define TclWinSetInterfaces_TCL_DECLARED -/* 26 */ -EXTERN void TclWinSetInterfaces(int wide); -#endif -#ifndef TclWinFlushDirtyChannels_TCL_DECLARED -#define TclWinFlushDirtyChannels_TCL_DECLARED -/* 27 */ -EXTERN void TclWinFlushDirtyChannels(void); -#endif -#ifndef TclWinResetInterfaces_TCL_DECLARED -#define TclWinResetInterfaces_TCL_DECLARED -/* 28 */ -EXTERN void TclWinResetInterfaces(void); -#endif -#ifndef TclWinCPUID_TCL_DECLARED -#define TclWinCPUID_TCL_DECLARED -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef TclGetAndDetachPids_TCL_DECLARED -#define TclGetAndDetachPids_TCL_DECLARED -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -#endif -#ifndef TclpCloseFile_TCL_DECLARED -#define TclpCloseFile_TCL_DECLARED -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -#endif -#ifndef TclpCreateCommandChannel_TCL_DECLARED -#define TclpCreateCommandChannel_TCL_DECLARED -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -#endif -#ifndef TclpCreatePipe_TCL_DECLARED -#define TclpCreatePipe_TCL_DECLARED -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -#endif -#ifndef TclpCreateProcess_TCL_DECLARED -#define TclpCreateProcess_TCL_DECLARED -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - CONST char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile_TCL_DECLARED -#define TclpMakeFile_TCL_DECLARED -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -#endif -#ifndef TclpOpenFile_TCL_DECLARED -#define TclpOpenFile_TCL_DECLARED -/* 7 */ -EXTERN TclFile TclpOpenFile(CONST char *fname, int mode); -#endif -#ifndef TclUnixWaitForFile_TCL_DECLARED -#define TclUnixWaitForFile_TCL_DECLARED -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -#endif -#ifndef TclpCreateTempFile_TCL_DECLARED -#define TclpCreateTempFile_TCL_DECLARED -/* 9 */ -EXTERN TclFile TclpCreateTempFile(CONST char *contents); -#endif -#ifndef TclpReaddir_TCL_DECLARED -#define TclpReaddir_TCL_DECLARED -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -#endif -#ifndef TclpLocaltime_unix_TCL_DECLARED -#define TclpLocaltime_unix_TCL_DECLARED -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(CONST time_t *clock); -#endif -#ifndef TclpGmtime_unix_TCL_DECLARED -#define TclpGmtime_unix_TCL_DECLARED -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(CONST time_t *clock); -#endif -#ifndef TclpInetNtoa_TCL_DECLARED -#define TclpInetNtoa_TCL_DECLARED -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -#endif -#ifndef TclUnixCopyFile_TCL_DECLARED -#define TclUnixCopyFile_TCL_DECLARED -/* 14 */ -EXTERN int TclUnixCopyFile(CONST char *src, CONST char *dst, - CONST Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -#endif -#ifndef TclMacOSXGetFileAttribute_TCL_DECLARED -#define TclMacOSXGetFileAttribute_TCL_DECLARED -/* 15 */ -EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj **attributePtrPtr); -#endif -#ifndef TclMacOSXSetFileAttribute_TCL_DECLARED -#define TclMacOSXSetFileAttribute_TCL_DECLARED -/* 16 */ -EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj *attributePtr); -#endif -#ifndef TclMacOSXCopyFileAttributes_TCL_DECLARED -#define TclMacOSXCopyFileAttributes_TCL_DECLARED -/* 17 */ -EXTERN int TclMacOSXCopyFileAttributes(CONST char *src, - CONST char *dst, - CONST Tcl_StatBuf *statBufPtr); -#endif -#ifndef TclMacOSXMatchType_TCL_DECLARED -#define TclMacOSXMatchType_TCL_DECLARED -/* 18 */ -EXTERN int TclMacOSXMatchType(Tcl_Interp *interp, - CONST char *pathName, CONST char *fileName, - Tcl_StatBuf *statBufPtr, - Tcl_GlobTypeData *types); -#endif -#ifndef TclMacOSXNotifierAddRunLoopMode_TCL_DECLARED -#define TclMacOSXNotifierAddRunLoopMode_TCL_DECLARED -/* 19 */ -EXTERN void TclMacOSXNotifierAddRunLoopMode( - CONST VOID *runLoopMode); -#endif -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID_TCL_DECLARED -#define TclWinCPUID_TCL_DECLARED -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -#endif -#endif /* MACOSX */ - -typedef struct TclIntPlatStubs { - int magic; - struct TclIntPlatStubHooks *hooks; - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, CONST char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - VOID *reserved5; - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (CONST char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (CONST char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (CONST time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (CONST time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - VOID *reserved15; - VOID *reserved16; - VOID *reserved17; - VOID *reserved18; - VOID *reserved19; - VOID *reserved20; - VOID *reserved21; - VOID *reserved22; - VOID *reserved23; - VOID *reserved24; - VOID *reserved25; - VOID *reserved26; - VOID *reserved27; - VOID *reserved28; - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ -#endif /* UNIX */ -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - void (*tclWinConvertError) (DWORD errCode); /* 0 */ - void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */ - struct servent * (*tclWinGetServByName) (CONST char *nm, CONST char *proto); /* 2 */ - int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */ - HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */ - unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */ - int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, CONST char *optval, int optlen); /* 7 */ - int (*tclpGetPid) (Tcl_Pid pid); /* 8 */ - int (*tclWinGetPlatformId) (void); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */ - int (*tclpCloseFile) (TclFile file); /* 12 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, CONST char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */ - int (*tclpIsAtty) (int fd); /* 16 */ - int (*tclUnixCopyFile) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */ - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */ - TclFile (*tclpOpenFile) (CONST char *fname, int mode); /* 19 */ - void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */ - TclFile (*tclpCreateTempFile) (CONST char *contents); /* 22 */ - char * (*tclpGetTZName) (int isdst); /* 23 */ - char * (*tclWinNoBackslash) (char *path); /* 24 */ - VOID *reserved25; - void (*tclWinSetInterfaces) (int wide); /* 26 */ - void (*tclWinFlushDirtyChannels) (void); /* 27 */ - void (*tclWinResetInterfaces) (void); /* 28 */ - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, CONST char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - VOID *reserved5; - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (CONST char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (CONST char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (CONST time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (CONST time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */ - int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */ - int (*tclMacOSXCopyFileAttributes) (CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr); /* 17 */ - int (*tclMacOSXMatchType) (Tcl_Interp *interp, CONST char *pathName, CONST char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */ - void (*tclMacOSXNotifierAddRunLoopMode) (CONST VOID *runLoopMode); /* 19 */ - VOID *reserved20; - VOID *reserved21; - VOID *reserved22; - VOID *reserved23; - VOID *reserved24; - VOID *reserved25; - VOID *reserved26; - VOID *reserved27; - VOID *reserved28; - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ -#endif /* MACOSX */ -} TclIntPlatStubs; - -extern TclIntPlatStubs *tclIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclpLocaltime_unix -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#endif -#ifndef TclpGmtime_unix -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#endif -#ifndef TclUnixCopyFile -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -#endif -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#endif -#endif /* UNIX */ -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TclWinConvertError -#define TclWinConvertError \ - (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ -#endif -#ifndef TclWinConvertWSAError -#define TclWinConvertWSAError \ - (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ -#endif -#ifndef TclWinGetServByName -#define TclWinGetServByName \ - (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ -#endif -#ifndef TclWinGetSockOpt -#define TclWinGetSockOpt \ - (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ -#endif -#ifndef TclWinGetTclInstance -#define TclWinGetTclInstance \ - (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */ -#endif -#ifndef TclWinNToHS -#define TclWinNToHS \ - (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ -#endif -#ifndef TclWinSetSockOpt -#define TclWinSetSockOpt \ - (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ -#endif -#ifndef TclpGetPid -#define TclpGetPid \ - (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ -#endif -#ifndef TclWinGetPlatformId -#define TclWinGetPlatformId \ - (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ -#endif -#ifndef TclpIsAtty -#define TclpIsAtty \ - (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */ -#endif -#ifndef TclUnixCopyFile -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */ -#endif -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ -#endif -#ifndef TclWinAddProcess -#define TclWinAddProcess \ - (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ -#endif -#ifndef TclpGetTZName -#define TclpGetTZName \ - (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ -#endif -#ifndef TclWinNoBackslash -#define TclWinNoBackslash \ - (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ -#endif -/* Slot 25 is reserved */ -#ifndef TclWinSetInterfaces -#define TclWinSetInterfaces \ - (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ -#endif -#ifndef TclWinFlushDirtyChannels -#define TclWinFlushDirtyChannels \ - (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ -#endif -#ifndef TclWinResetInterfaces -#define TclWinResetInterfaces \ - (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ -#endif -#ifndef TclWinCPUID -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclpLocaltime_unix -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#endif -#ifndef TclpGmtime_unix -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#endif -#ifndef TclUnixCopyFile -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -#endif -#ifndef TclMacOSXGetFileAttribute -#define TclMacOSXGetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */ -#endif -#ifndef TclMacOSXSetFileAttribute -#define TclMacOSXSetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */ -#endif -#ifndef TclMacOSXCopyFileAttributes -#define TclMacOSXCopyFileAttributes \ - (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */ -#endif -#ifndef TclMacOSXMatchType -#define TclMacOSXMatchType \ - (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */ -#endif -#ifndef TclMacOSXNotifierAddRunLoopMode -#define TclMacOSXNotifierAddRunLoopMode \ - (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */ -#endif -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#ifndef TclWinCPUID -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#endif -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT -#undef TclpLocaltime_unix -#undef TclpGmtime_unix - -#if defined(__WIN32__) -# undef TclWinNToHS -# undef TclWinGetServByName -# undef TclWinGetSockOpt -# undef TclWinSetSockOpt -# define TclWinNToHS ntohs -# define TclWinGetServByName getservbyname -# define TclWinGetSockOpt getsockopt -# define TclWinSetSockOpt setsockopt -#else -# undef TclpGetPid -# define TclpGetPid(pid) ((unsigned long) (pid)) -#endif - -#endif /* _TCLINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclPlatDecls.h deleted file mode 100644 index ef23c8455..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclPlatDecls.h +++ /dev/null @@ -1,136 +0,0 @@ -/* - * tclPlatDecls.h -- - * - * Declarations of platform specific Tcl APIs. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLPLATDECLS -#define _TCLPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * TCHAR is needed here for win32, so if it is not defined yet do it here. - * This way, we don't need to include just for one define. - */ -#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) -# if defined(_UNICODE) - typedef wchar_t TCHAR; -# else - typedef char TCHAR; -# endif -# define _TCHAR_DEFINED -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tcl_WinUtfToTChar_TCL_DECLARED -#define Tcl_WinUtfToTChar_TCL_DECLARED -/* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, - Tcl_DString *dsPtr); -#endif -#ifndef Tcl_WinTCharToUtf_TCL_DECLARED -#define Tcl_WinTCharToUtf_TCL_DECLARED -/* 1 */ -EXTERN char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, - Tcl_DString *dsPtr); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED -#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED -/* 0 */ -EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, - CONST char *bundleName, int hasResourceFile, - int maxPathLen, char *libraryPath); -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED -#define Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources( - Tcl_Interp *interp, CONST char *bundleName, - CONST char *bundleVersion, - int hasResourceFile, int maxPathLen, - char *libraryPath); -#endif -#endif /* MACOSX */ - -typedef struct TclPlatStubs { - int magic; - struct TclPlatStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - TCHAR * (*tcl_WinUtfToTChar) (CONST char *str, int len, Tcl_DString *dsPtr); /* 0 */ - char * (*tcl_WinTCharToUtf) (CONST TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, CONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ - int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */ -#endif /* MACOSX */ -} TclPlatStubs; - -extern TclPlatStubs *tclPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tcl_WinUtfToTChar -#define Tcl_WinUtfToTChar \ - (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ -#endif -#ifndef Tcl_WinTCharToUtf -#define Tcl_WinTCharToUtf \ - (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_MacOSXOpenBundleResources -#define Tcl_MacOSXOpenBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#endif -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLPLATDECLS */ - - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclPort.h deleted file mode 100644 index 94855677d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclPort.h +++ /dev/null @@ -1,46 +0,0 @@ -/* - * tclPort.h -- - * - * This header file handles porting issues that occur because - * of differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1994-1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLPORT -#define _TCLPORT - -#ifdef HAVE_TCL_CONFIG_H -#include "tclConfig.h" -#endif -#if defined(_WIN32) -# include "tclWinPort.h" -#else -# include "tclUnixPort.h" -#endif -#include "tcl.h" - -#if !defined(LLONG_MIN) -# ifdef TCL_WIDE_INT_IS_LONG -# define LLONG_MIN LONG_MIN -# else -# ifdef LLONG_BIT -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<(LLONG_BIT-1))) -# else -/* Assume we're on a system with a 64-bit 'long long' type */ -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<63)) -# endif -# endif -/* Assume that if LLONG_MIN is undefined, then so is LLONG_MAX */ -# define LLONG_MAX (~LLONG_MIN) -#endif - -#define UWIDE_MAX ((Tcl_WideUInt)-1) -#define WIDE_MAX ((Tcl_WideInt)(UWIDE_MAX >> 1)) -#define WIDE_MIN ((Tcl_WideInt)((Tcl_WideUInt)WIDE_MAX+1)) - -#endif /* _TCLPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclTomMath.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclTomMath.h deleted file mode 100644 index b21940554..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclTomMath.h +++ /dev/null @@ -1,873 +0,0 @@ -/* LibTomMath, multiple-precision integer library -- Tom St Denis */ -/* SPDX-License-Identifier: Unlicense */ - -#ifndef BN_H_ -#define BN_H_ - -#include -#ifndef MODULE_SCOPE -#define MODULE_SCOPE extern -#endif - -#include -#include -#include -#include -#include - -#ifndef MIN - #define MIN(x,y) ((x)<(y)?(x):(y)) -#endif - -#ifndef MAX - #define MAX(x,y) ((x)>(y)?(x):(y)) -#endif - -#ifdef __cplusplus -extern "C" { - -/* C++ compilers don't like assigning void * to mp_digit * */ -#define OPT_CAST(x) (x *) - -#else - -/* C on the other hand doesn't care */ -#define OPT_CAST(x) - -#endif - - -/* detect 64-bit mode if possible */ -#if defined(NEVER) /* 128-bit ints fail in too many places */ - #if !(defined(MP_64BIT) && defined(MP_16BIT) && defined(MP_8BIT)) - #define MP_64BIT - #endif -#endif - -/* some default configurations. - * - * A "mp_digit" must be able to hold DIGIT_BIT + 1 bits - * A "mp_word" must be able to hold 2*DIGIT_BIT + 1 bits - * - * At the very least a mp_digit must be able to hold 7 bits - * [any size beyond that is ok provided it doesn't overflow the data type] - */ -#ifdef MP_8BIT -#ifndef MP_DIGIT_DECLARED - typedef unsigned char mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned short mp_word; -#elif defined(MP_16BIT) -#ifndef MP_DIGIT_DECLARED - typedef unsigned short mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned long mp_word; -#elif defined(MP_64BIT) - /* for GCC only on supported platforms */ -#ifndef CRYPT - typedef unsigned long long ulong64; - typedef signed long long long64; -#endif - -#ifndef MP_DIGIT_DECLARED - typedef unsigned long mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned long mp_word __attribute__ ((mode(TI))); - - #define DIGIT_BIT 60 -#else - /* this is the default case, 28-bit digits */ - - /* this is to make porting into LibTomCrypt easier :-) */ -#ifndef CRYPT - #if defined(_MSC_VER) || defined(__BORLANDC__) - typedef unsigned __int64 ulong64; - typedef signed __int64 long64; - #else - typedef unsigned long long ulong64; - typedef signed long long long64; - #endif -#endif - -#ifndef MP_DIGIT_DECLARED - typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef ulong64 mp_word; - -#ifdef MP_31BIT - /* this is an extension that uses 31-bit digits */ - #define DIGIT_BIT 31 -#else - /* default case is 28-bit digits, defines MP_28BIT as a handy macro to test */ - #define DIGIT_BIT 28 - #define MP_28BIT -#endif -#endif - -/* define heap macros */ -#if 0 /* these are macros in tclTomMathDecls.h */ -#ifndef CRYPT - /* default to libc stuff */ - #ifndef XMALLOC - #define XMALLOC malloc - #define XFREE free - #define XREALLOC realloc - #define XCALLOC calloc - #else - /* prototypes for our heap functions */ - extern void *XMALLOC(size_t n); - extern void *XREALLOC(void *p, size_t n); - extern void *XCALLOC(size_t n, size_t s); - extern void XFREE(void *p); - #endif -#endif -#endif - - -/* otherwise the bits per digit is calculated automatically from the size of a mp_digit */ -#ifndef DIGIT_BIT - #define DIGIT_BIT ((int)((CHAR_BIT * sizeof(mp_digit) - 1))) /* bits per digit */ -#endif - -#define MP_DIGIT_BIT DIGIT_BIT -#define MP_MASK ((((mp_digit)1)<<((mp_digit)DIGIT_BIT))-((mp_digit)1)) -#define MP_DIGIT_MAX MP_MASK - -typedef int mp_sign; -#define MP_ZPOS 0 /* positive integer */ -#define MP_NEG 1 /* negative */ -typedef int mp_ord; -#define MP_LT -1 /* less than */ -#define MP_EQ 0 /* equal to */ -#define MP_GT 1 /* greater than */ -typedef int mp_bool; -#define MP_YES 1 /* yes response */ -#define MP_NO 0 /* no response */ -typedef int mp_err; -#define MP_OKAY 0 /* ok result */ -#define MP_ERR -1 /* unknown error */ -#define MP_MEM -2 /* out of mem */ -#define MP_VAL -3 /* invalid input */ -#define MP_RANGE MP_VAL -#define MP_ITER -4 /* Max. iterations reached */ - -/* Primality generation flags */ -#define LTM_PRIME_BBS 0x0001 /* BBS style prime */ -#define LTM_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */ -#define LTM_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */ - -/* tunable cutoffs */ - -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE int KARATSUBA_MUL_CUTOFF, - KARATSUBA_SQR_CUTOFF, - TOOM_MUL_CUTOFF, - TOOM_SQR_CUTOFF; -#endif - -/* define this to use lower memory usage routines (exptmods mostly) */ -/* #define MP_LOW_MEM */ - -/* default precision */ -#ifndef MP_PREC -# ifndef MP_LOW_MEM -# define MP_PREC 32 /* default digits of precision */ -# elif defined(MP_8BIT) -# define MP_PREC 16 /* default digits of precision */ -# else -# define MP_PREC 8 /* default digits of precision */ -# endif -#endif - -/* size of comba arrays, should be at least 2 * 2**(BITS_PER_WORD - BITS_PER_DIGIT*2) */ -#define MP_WARRAY (1 << (sizeof(mp_word) * CHAR_BIT - 2 * DIGIT_BIT + 1)) - -/* - * MP_WUR - warn unused result - * --------------------------- - * - * The result of functions annotated with MP_WUR must be - * checked and cannot be ignored. - * - * Most functions in libtommath return an error code. - * This error code must be checked in order to prevent crashes or invalid - * results. - * - * If you still want to avoid the error checks for quick and dirty programs - * without robustness guarantees, you can `#define MP_WUR` before including - * tommath.h, disabling the warnings. - */ -#ifndef MP_WUR -# if defined(__GNUC__) && __GNUC__ >= 4 -# define MP_WUR __attribute__((warn_unused_result)) -# else -# define MP_WUR -# endif -#endif - -#if defined(__GNUC__) && (__GNUC__ * 100 + __GNUC_MINOR__ >= 301) -# define MP_DEPRECATED(x) __attribute__((deprecated("replaced by " #x))) -# define PRIVATE_MP_DEPRECATED_PRAGMA(s) _Pragma(#s) -# define MP_DEPRECATED_PRAGMA(s) PRIVATE_MP_DEPRECATED_PRAGMA(GCC warning s) -#elif defined(_MSC_VER) && _MSC_VER >= 1500 -# define MP_DEPRECATED(x) __declspec(deprecated("replaced by " #x)) -# define MP_DEPRECATED_PRAGMA(s) __pragma(message(s)) -#else -# define MP_DEPRECATED -# define MP_DEPRECATED_PRAGMA(s) -#endif - -#define USED(m) ((m)->used) -#define DIGIT(m,k) ((m)->dp[(k)]) -#define SIGN(m) ((m)->sign) - -/* the infamous mp_int structure */ -#ifndef MP_INT_DECLARED -#define MP_INT_DECLARED -typedef struct mp_int mp_int; -#endif -struct mp_int { - int used, alloc, sign; - mp_digit *dp; -}; - -/* callback for mp_prime_random, should fill dst with random bytes and return how many read [upto len] */ -typedef int ltm_prime_callback(unsigned char *dst, int len, void *dat); - - -/* error code to char* string */ -/* -const char *mp_error_to_string(mp_err code); -*/ - -/* ---> init and deinit bignum functions <--- */ -/* init a bignum */ -/* -mp_err mp_init(mp_int *a); -*/ - -/* free a bignum */ -/* -void mp_clear(mp_int *a); -*/ - -/* init a null terminated series of arguments */ -/* -mp_err mp_init_multi(mp_int *mp, ...); -*/ - -/* clear a null terminated series of arguments */ -/* -void mp_clear_multi(mp_int *mp, ...); -*/ - -/* exchange two ints */ -/* -void mp_exch(mp_int *a, mp_int *b); -*/ - -/* shrink ram required for a bignum */ -/* -mp_err mp_shrink(mp_int *a); -*/ - -/* grow an int to a given size */ -/* -mp_err mp_grow(mp_int *a, int size); -*/ - -/* init to a given number of digits */ -/* -mp_err mp_init_size(mp_int *a, int size); -*/ - -/* ---> Basic Manipulations <--- */ -#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO) -#define mp_iseven(a) (((a)->used == 0 || (((a)->dp[0] & 1) == 0)) ? MP_YES : MP_NO) -#define mp_isodd(a) (((a)->used > 0 && (((a)->dp[0] & 1) == 1)) ? MP_YES : MP_NO) -#define mp_isneg(a) (((a)->sign != MP_ZPOS) ? MP_YES : MP_NO) - -/* set to zero */ -/* -void mp_zero(mp_int *a); -*/ - -/* set to a digit */ -/* -void mp_set(mp_int *a, mp_digit b); -*/ - -/* set a 32-bit const */ -/* -int mp_set_int(mp_int *a, unsigned long b); -*/ - -/* set a platform dependent unsigned long value */ -/* -int mp_set_long(mp_int *a, unsigned long b); -*/ - -/* set a platform dependent unsigned long long value */ -/* -int mp_set_long_long(mp_int *a, unsigned long long b); -*/ - -/* get a 32-bit value */ -unsigned long mp_get_int(mp_int * a); - -/* initialize and set a digit */ -/* -int mp_init_set (mp_int * a, mp_digit b); -*/ - -/* initialize and set 32-bit value */ -/* -int mp_init_set_int (mp_int * a, unsigned long b); -*/ - -/* copy, b = a */ -/* -int mp_copy(mp_int *a, mp_int *b); -*/ - -/* inits and copies, a = b */ -/* -int mp_init_copy(mp_int *a, mp_int *b); -*/ - -/* trim unused digits */ -/* -void mp_clamp(mp_int *a); -*/ - -/* ---> digit manipulation <--- */ - -/* right shift by "b" digits */ -/* -void mp_rshd(mp_int *a, int b); -*/ - -/* left shift by "b" digits */ -/* -int mp_lshd(mp_int *a, int b); -*/ - -/* c = a / 2**b */ -/* -int mp_div_2d(mp_int *a, int b, mp_int *c, mp_int *d); -*/ - -/* b = a/2 */ -/* -int mp_div_2(mp_int *a, mp_int *b); -*/ - -/* c = a * 2**b */ -/* -int mp_mul_2d(mp_int *a, int b, mp_int *c); -*/ - -/* b = a*2 */ -/* -int mp_mul_2(mp_int *a, mp_int *b); -*/ - -/* c = a mod 2**d */ -/* -int mp_mod_2d(mp_int *a, int b, mp_int *c); -*/ - -/* computes a = 2**b */ -/* -int mp_2expt(mp_int *a, int b); -*/ - -/* Counts the number of lsbs which are zero before the first zero bit */ -/* -int mp_cnt_lsb(mp_int *a); -*/ - -/* I Love Earth! */ - -/* makes a pseudo-random int of a given size */ -/* -int mp_rand(mp_int *a, int digits); -*/ - -/* ---> binary operations <--- */ -/* c = a XOR b */ -/* -int mp_xor(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a OR b */ -/* -int mp_or(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a AND b */ -/* -int mp_and(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* ---> Basic arithmetic <--- */ - -/* b = -a */ -/* -int mp_neg(mp_int *a, mp_int *b); -*/ - -/* b = |a| */ -/* -int mp_abs(mp_int *a, mp_int *b); -*/ - -/* compare a to b */ -/* -int mp_cmp(mp_int *a, mp_int *b); -*/ - -/* compare |a| to |b| */ -/* -int mp_cmp_mag(mp_int *a, mp_int *b); -*/ - -/* c = a + b */ -/* -int mp_add(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a - b */ -/* -int mp_sub(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a * b */ -/* -int mp_mul(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* b = a*a */ -/* -int mp_sqr(mp_int *a, mp_int *b); -*/ - -/* a/b => cb + d == a */ -/* -int mp_div(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* c = a mod b, 0 <= c < b */ -/* -int mp_mod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* ---> single digit functions <--- */ - -/* compare against a single digit */ -/* -int mp_cmp_d(mp_int *a, mp_digit b); -*/ - -/* c = a + b */ -/* -int mp_add_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a - b */ -/* -int mp_sub_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a * b */ -/* -int mp_mul_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* a/b => cb + d == a */ -/* -int mp_div_d(mp_int *a, mp_digit b, mp_int *c, mp_digit *d); -*/ - -/* a/3 => 3c + d == a */ -/* -int mp_div_3(mp_int *a, mp_int *c, mp_digit *d); -*/ - -/* c = a**b */ -/* -int mp_expt_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a mod b, 0 <= c < b */ -/* -int mp_mod_d(mp_int *a, mp_digit b, mp_digit *c); -*/ - -/* ---> number theory <--- */ - -/* d = a + b (mod c) */ -/* -int mp_addmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* d = a - b (mod c) */ -/* -int mp_submod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* d = a * b (mod c) */ -/* -int mp_mulmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* c = a * a (mod b) */ -/* -int mp_sqrmod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = 1/a (mod b) */ -/* -int mp_invmod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = (a, b) */ -/* -int mp_gcd(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* produces value such that U1*a + U2*b = U3 */ -/* -int mp_exteuclid(mp_int *a, mp_int *b, mp_int *U1, mp_int *U2, mp_int *U3); -*/ - -/* c = [a, b] or (a*b)/(a, b) */ -/* -int mp_lcm(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* finds one of the b'th root of a, such that |c|**b <= |a| - * - * returns error if a < 0 and b is even - */ -/* -int mp_n_root(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* special sqrt algo */ -/* -int mp_sqrt(mp_int *arg, mp_int *ret); -*/ - -/* is number a square? */ -/* -int mp_is_square(mp_int *arg, int *ret); -*/ - -/* computes the jacobi c = (a | n) (or Legendre if b is prime) */ -/* -int mp_jacobi(mp_int *a, mp_int *n, int *c); -*/ - -/* used to setup the Barrett reduction for a given modulus b */ -/* -int mp_reduce_setup(mp_int *a, mp_int *b); -*/ - -/* Barrett Reduction, computes a (mod b) with a precomputed value c - * - * Assumes that 0 < a <= b*b, note if 0 > a > -(b*b) then you can merely - * compute the reduction as -1 * mp_reduce(mp_abs(a)) [pseudo code]. - */ -/* -int mp_reduce(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* setups the montgomery reduction */ -/* -int mp_montgomery_setup(mp_int *a, mp_digit *mp); -*/ - -/* computes a = B**n mod b without division or multiplication useful for - * normalizing numbers in a Montgomery system. - */ -/* -int mp_montgomery_calc_normalization(mp_int *a, mp_int *b); -*/ - -/* computes x/R == x (mod N) via Montgomery Reduction */ -/* -int mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp); -*/ - -/* returns 1 if a is a valid DR modulus */ -/* -int mp_dr_is_modulus(mp_int *a); -*/ - -/* sets the value of "d" required for mp_dr_reduce */ -/* -void mp_dr_setup(mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo b using the Diminished Radix method */ -/* -int mp_dr_reduce(mp_int *a, mp_int *b, mp_digit mp); -*/ - -/* returns true if a can be reduced with mp_reduce_2k */ -/* -int mp_reduce_is_2k(mp_int *a); -*/ - -/* determines k value for 2k reduction */ -/* -int mp_reduce_2k_setup(mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -int mp_reduce_2k(mp_int *a, mp_int *n, mp_digit d); -*/ - -/* returns true if a can be reduced with mp_reduce_2k_l */ -/* -int mp_reduce_is_2k_l(mp_int *a); -*/ - -/* determines k value for 2k reduction */ -/* -int mp_reduce_2k_setup_l(mp_int *a, mp_int *d); -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -int mp_reduce_2k_l(mp_int *a, mp_int *n, mp_int *d); -*/ - -/* d = a**b (mod c) */ -/* -int mp_exptmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* ---> Primes <--- */ - -/* number of primes */ -#ifdef MP_8BIT - #define PRIME_SIZE 31 -#else - #define PRIME_SIZE 256 -#endif - -/* table of first PRIME_SIZE primes */ -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const mp_digit ltm_prime_tab[]; -#endif - -/* result=1 if a is divisible by one of the first PRIME_SIZE primes */ -/* -int mp_prime_is_divisible(mp_int *a, int *result); -*/ - -/* performs one Fermat test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_fermat(const mp_int *a, const mp_int *b, mp_bool *result); -*/ - -/* performs one Miller-Rabin test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_miller_rabin(const mp_int *a, const mp_int *b, mp_bool *result); -*/ - -/* This gives [for a given bit size] the number of trials required - * such that Miller-Rabin gives a prob of failure lower than 2^-96 - */ -/* -int mp_prime_rabin_miller_trials(int size); -*/ - -/* performs t rounds of Miller-Rabin on "a" using the first - * t prime bases. Also performs an initial sieve of trial - * division. Determines if "a" is prime with probability - * of error no more than (1/4)**t. - * - * Sets result to 1 if probably prime, 0 otherwise - */ -/* -mp_err mp_prime_is_prime(const mp_int *a, int t, mp_bool *result); -*/ - -/* finds the next prime after the number "a" using "t" trials - * of Miller-Rabin. - * - * bbs_style = 1 means the prime must be congruent to 3 mod 4 - */ -/* -mp_err mp_prime_next_prime(mp_int *a, int t, int bbs_style); -*/ - -/* makes a truly random prime of a given size (bytes), - * call with bbs = 1 if you want it to be congruent to 3 mod 4 - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - * The prime generated will be larger than 2^(8*size). - */ -#define mp_prime_random(a, t, size, bbs, cb, dat) mp_prime_random_ex(a, t, ((size) * 8) + 1, (bbs==1)?LTM_PRIME_BBS:0, cb, dat) - -/* makes a truly random prime of a given size (bits), - * - * Flags are as follows: - * - * MP_PRIME_BBS - make prime congruent to 3 mod 4 - * MP_PRIME_SAFE - make sure (p-1)/2 is prime as well (implies MP_PRIME_BBS) - * MP_PRIME_2MSB_ON - make the 2nd highest bit one - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - */ -/* -int mp_prime_random_ex(mp_int *a, int t, int size, int flags, ltm_prime_callback cb, void *dat); -*/ - -/* ---> radix conversion <--- */ -/* -int mp_count_bits(mp_int *a); -*/ - -/* -int mp_unsigned_bin_size(mp_int *a); -*/ -/* -int mp_read_unsigned_bin(mp_int *a, const unsigned char *b, int c); -*/ -/* -int mp_to_unsigned_bin(mp_int *a, unsigned char *b); -*/ -/* -int mp_to_unsigned_bin_n (mp_int * a, unsigned char *b, unsigned long *outlen); -*/ - -/* -int mp_signed_bin_size(mp_int *a); -*/ -/* -int mp_read_signed_bin(mp_int *a, const unsigned char *b, int c); -*/ -/* -int mp_to_signed_bin(mp_int *a, unsigned char *b); -*/ -/* -int mp_to_signed_bin_n (mp_int * a, unsigned char *b, unsigned long *outlen); -*/ - -/* -int mp_read_radix(mp_int *a, const char *str, int radix); -*/ -/* -int mp_toradix(mp_int *a, char *str, int radix); -*/ -/* -int mp_toradix_n(mp_int * a, char *str, int radix, int maxlen); -*/ -/* -int mp_radix_size(mp_int *a, int radix, int *size); -*/ - -/* -int mp_fread(mp_int *a, int radix, FILE *stream); -*/ -/* -int mp_fwrite(mp_int *a, int radix, FILE *stream); -*/ - -#define mp_read_raw(mp, str, len) mp_read_signed_bin((mp), (str), (len)) -#define mp_raw_size(mp) mp_signed_bin_size(mp) -#define mp_toraw(mp, str) mp_to_signed_bin((mp), (str)) -#define mp_read_mag(mp, str, len) mp_read_unsigned_bin((mp), (str), (len)) -#define mp_mag_size(mp) mp_unsigned_bin_size(mp) -#define mp_tomag(mp, str) mp_to_unsigned_bin((mp), (str)) - -#define mp_tobinary(M, S) mp_toradix((M), (S), 2) -#define mp_tooctal(M, S) mp_toradix((M), (S), 8) -#define mp_todecimal(M, S) mp_toradix((M), (S), 10) -#define mp_tohex(M, S) mp_toradix((M), (S), 16) - -/* lowlevel functions, do not call! */ -/* -int s_mp_add(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int s_mp_sub(mp_int *a, mp_int *b, mp_int *c); -*/ -#define s_mp_mul(a, b, c) s_mp_mul_digs(a, b, c, (a)->used + (b)->used + 1) -/* -int fast_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int fast_s_mp_mul_high_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int s_mp_mul_high_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int fast_s_mp_sqr(mp_int *a, mp_int *b); -*/ -/* -int s_mp_sqr(mp_int *a, mp_int *b); -*/ -/* -int mp_karatsuba_mul(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_toom_mul(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_karatsuba_sqr(mp_int *a, mp_int *b); -*/ -/* -int mp_toom_sqr(mp_int *a, mp_int *b); -*/ -/* -int fast_mp_invmod(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_invmod_slow (mp_int * a, mp_int * b, mp_int * c); -*/ -/* -int fast_mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp); -*/ -/* -int mp_exptmod_fast(mp_int *G, mp_int *X, mp_int *P, mp_int *Y, int mode); -*/ -/* -int s_mp_exptmod (mp_int * G, mp_int * X, mp_int * P, mp_int * Y, int mode); -*/ -/* -void bn_reverse(unsigned char *s, int len); -*/ - -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const char *mp_s_rmap; -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclTomMathDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclTomMathDecls.h deleted file mode 100644 index e4c1cecb2..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclTomMathDecls.h +++ /dev/null @@ -1,882 +0,0 @@ -/* - *---------------------------------------------------------------------- - * - * tclTomMathDecls.h -- - * - * This file contains the declarations for the 'libtommath' - * functions that are exported by the Tcl library. - * - * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLTOMMATHDECLS -#define _TCLTOMMATHDECLS - -#include "tcl.h" - -/* - * Define the version of the Stubs table that's exported for tommath - */ - -#define TCLTOMMATH_EPOCH 0 -#define TCLTOMMATH_REVISION 0 - -#define Tcl_TomMath_InitStubs(interp,version) \ - (TclTomMathInitializeStubs((interp),(version),\ - TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION)) - -/* Define custom memory allocation for libtommath */ - -/* MODULE_SCOPE void* TclBNAlloc( size_t ); */ -#define TclBNAlloc(s) ((void*)ckalloc((size_t)(s))) -/* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */ -#define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s))) -/* MODULE_SCOPE void TclBNFree( void* ); */ -#define TclBNFree(x) (ckfree((char*)(x))) -/* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */ -/* unused - no macro */ - -#define XMALLOC(x) TclBNAlloc(x) -#define XFREE(x) TclBNFree(x) -#define XREALLOC(x,n) TclBNRealloc(x,n) -#define XCALLOC(n,x) TclBNCalloc(n,x) - -#define bn_reverse TclBN_reverse -#define s_mp_reverse TclBN_reverse -#define fast_s_mp_mul_digs TclBN_fast_s_mp_mul_digs -#define s_mp_mul_digs_fast TclBN_fast_s_mp_mul_digs -#define fast_s_mp_sqr TclBN_fast_s_mp_sqr -#define s_mp_sqr_fast TclBN_fast_s_mp_sqr -#define mp_add TclBN_mp_add -#define mp_add_d TclBN_mp_add_d -#define mp_and TclBN_mp_and -#define mp_clamp TclBN_mp_clamp -#define mp_clear TclBN_mp_clear -#define mp_clear_multi TclBN_mp_clear_multi -#define mp_cmp TclBN_mp_cmp -#define mp_cmp_d TclBN_mp_cmp_d -#define mp_cmp_mag TclBN_mp_cmp_mag -#define mp_cnt_lsb TclBN_mp_cnt_lsb -#define mp_copy TclBN_mp_copy -#define mp_count_bits TclBN_mp_count_bits -#define mp_div TclBN_mp_div -#define mp_div_2 TclBN_mp_div_2 -#define mp_div_2d TclBN_mp_div_2d -#define mp_div_3 TclBN_mp_div_3 -#define mp_div_d TclBN_mp_div_d -#define mp_exch TclBN_mp_exch -#define mp_expt_d TclBN_mp_expt_d -#define mp_grow TclBN_mp_grow -#define mp_init TclBN_mp_init -#define mp_init_copy TclBN_mp_init_copy -#define mp_init_multi TclBN_mp_init_multi -#define mp_init_set TclBN_mp_init_set -#define mp_init_set_int TclBN_mp_init_set_int -#define mp_init_size TclBN_mp_init_size -#define mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define s_mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define s_mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define mp_lshd TclBN_mp_lshd -#define mp_mod TclBN_mp_mod -#define mp_mod_2d TclBN_mp_mod_2d -#define mp_mul TclBN_mp_mul -#define mp_mul_2 TclBN_mp_mul_2 -#define mp_mul_2d TclBN_mp_mul_2d -#define mp_mul_d TclBN_mp_mul_d -#define mp_neg TclBN_mp_neg -#define mp_or TclBN_mp_or -#define mp_radix_size TclBN_mp_radix_size -#define mp_read_radix TclBN_mp_read_radix -#define mp_rshd TclBN_mp_rshd -#define mp_s_rmap TclBNMpSRmap -#define mp_set TclBN_mp_set -#define mp_set_int TclBN_mp_set_int -#define mp_shrink TclBN_mp_shrink -#define mp_sqr TclBN_mp_sqr -#define mp_sqrt TclBN_mp_sqrt -#define mp_sub TclBN_mp_sub -#define mp_sub_d TclBN_mp_sub_d -#define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin -#define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n -#define mp_toom_mul TclBN_mp_toom_mul -#define s_mp_toom_mul TclBN_mp_toom_mul -#define mp_toom_sqr TclBN_mp_toom_sqr -#define s_mp_toom_sqr TclBN_mp_toom_sqr -#define mp_toradix_n TclBN_mp_toradix_n -#define mp_unsigned_bin_size TclBN_mp_unsigned_bin_size -#define mp_xor TclBN_mp_xor -#define mp_zero TclBN_mp_zero -#define s_mp_add TclBN_s_mp_add -#define s_mp_mul_digs TclBN_s_mp_mul_digs -#define s_mp_sqr TclBN_s_mp_sqr -#define s_mp_sub TclBN_s_mp_sub - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef TclBN_epoch_TCL_DECLARED -#define TclBN_epoch_TCL_DECLARED -/* 0 */ -EXTERN int TclBN_epoch(void); -#endif -#ifndef TclBN_revision_TCL_DECLARED -#define TclBN_revision_TCL_DECLARED -/* 1 */ -EXTERN int TclBN_revision(void); -#endif -#ifndef TclBN_mp_add_TCL_DECLARED -#define TclBN_mp_add_TCL_DECLARED -/* 2 */ -EXTERN int TclBN_mp_add(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_add_d_TCL_DECLARED -#define TclBN_mp_add_d_TCL_DECLARED -/* 3 */ -EXTERN int TclBN_mp_add_d(mp_int *a, mp_digit b, mp_int *c); -#endif -#ifndef TclBN_mp_and_TCL_DECLARED -#define TclBN_mp_and_TCL_DECLARED -/* 4 */ -EXTERN int TclBN_mp_and(CONST mp_int *a, CONST mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_clamp_TCL_DECLARED -#define TclBN_mp_clamp_TCL_DECLARED -/* 5 */ -EXTERN void TclBN_mp_clamp(mp_int *a); -#endif -#ifndef TclBN_mp_clear_TCL_DECLARED -#define TclBN_mp_clear_TCL_DECLARED -/* 6 */ -EXTERN void TclBN_mp_clear(mp_int *a); -#endif -#ifndef TclBN_mp_clear_multi_TCL_DECLARED -#define TclBN_mp_clear_multi_TCL_DECLARED -/* 7 */ -EXTERN void TclBN_mp_clear_multi(mp_int *a, ...); -#endif -#ifndef TclBN_mp_cmp_TCL_DECLARED -#define TclBN_mp_cmp_TCL_DECLARED -/* 8 */ -EXTERN int TclBN_mp_cmp(CONST mp_int *a, CONST mp_int *b); -#endif -#ifndef TclBN_mp_cmp_d_TCL_DECLARED -#define TclBN_mp_cmp_d_TCL_DECLARED -/* 9 */ -EXTERN int TclBN_mp_cmp_d(CONST mp_int *a, mp_digit b); -#endif -#ifndef TclBN_mp_cmp_mag_TCL_DECLARED -#define TclBN_mp_cmp_mag_TCL_DECLARED -/* 10 */ -EXTERN int TclBN_mp_cmp_mag(CONST mp_int *a, CONST mp_int *b); -#endif -#ifndef TclBN_mp_copy_TCL_DECLARED -#define TclBN_mp_copy_TCL_DECLARED -/* 11 */ -EXTERN int TclBN_mp_copy(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_count_bits_TCL_DECLARED -#define TclBN_mp_count_bits_TCL_DECLARED -/* 12 */ -EXTERN int TclBN_mp_count_bits(mp_int *a); -#endif -#ifndef TclBN_mp_div_TCL_DECLARED -#define TclBN_mp_div_TCL_DECLARED -/* 13 */ -EXTERN int TclBN_mp_div(mp_int *a, mp_int *b, mp_int *q, - mp_int *r); -#endif -#ifndef TclBN_mp_div_d_TCL_DECLARED -#define TclBN_mp_div_d_TCL_DECLARED -/* 14 */ -EXTERN int TclBN_mp_div_d(mp_int *a, mp_digit b, mp_int *q, - mp_digit *r); -#endif -#ifndef TclBN_mp_div_2_TCL_DECLARED -#define TclBN_mp_div_2_TCL_DECLARED -/* 15 */ -EXTERN int TclBN_mp_div_2(mp_int *a, mp_int *q); -#endif -#ifndef TclBN_mp_div_2d_TCL_DECLARED -#define TclBN_mp_div_2d_TCL_DECLARED -/* 16 */ -EXTERN int TclBN_mp_div_2d(mp_int *a, int b, mp_int *q, - mp_int *r); -#endif -#ifndef TclBN_mp_div_3_TCL_DECLARED -#define TclBN_mp_div_3_TCL_DECLARED -/* 17 */ -EXTERN int TclBN_mp_div_3(mp_int *a, mp_int *q, mp_digit *r); -#endif -#ifndef TclBN_mp_exch_TCL_DECLARED -#define TclBN_mp_exch_TCL_DECLARED -/* 18 */ -EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_expt_d_TCL_DECLARED -#define TclBN_mp_expt_d_TCL_DECLARED -/* 19 */ -EXTERN int TclBN_mp_expt_d(mp_int *a, mp_digit b, mp_int *c); -#endif -#ifndef TclBN_mp_grow_TCL_DECLARED -#define TclBN_mp_grow_TCL_DECLARED -/* 20 */ -EXTERN int TclBN_mp_grow(mp_int *a, int size); -#endif -#ifndef TclBN_mp_init_TCL_DECLARED -#define TclBN_mp_init_TCL_DECLARED -/* 21 */ -EXTERN int TclBN_mp_init(mp_int *a); -#endif -#ifndef TclBN_mp_init_copy_TCL_DECLARED -#define TclBN_mp_init_copy_TCL_DECLARED -/* 22 */ -EXTERN int TclBN_mp_init_copy(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_init_multi_TCL_DECLARED -#define TclBN_mp_init_multi_TCL_DECLARED -/* 23 */ -EXTERN int TclBN_mp_init_multi(mp_int *a, ...); -#endif -#ifndef TclBN_mp_init_set_TCL_DECLARED -#define TclBN_mp_init_set_TCL_DECLARED -/* 24 */ -EXTERN int TclBN_mp_init_set(mp_int *a, mp_digit b); -#endif -#ifndef TclBN_mp_init_size_TCL_DECLARED -#define TclBN_mp_init_size_TCL_DECLARED -/* 25 */ -EXTERN int TclBN_mp_init_size(mp_int *a, int size); -#endif -#ifndef TclBN_mp_lshd_TCL_DECLARED -#define TclBN_mp_lshd_TCL_DECLARED -/* 26 */ -EXTERN int TclBN_mp_lshd(mp_int *a, int shift); -#endif -#ifndef TclBN_mp_mod_TCL_DECLARED -#define TclBN_mp_mod_TCL_DECLARED -/* 27 */ -EXTERN int TclBN_mp_mod(mp_int *a, mp_int *b, mp_int *r); -#endif -#ifndef TclBN_mp_mod_2d_TCL_DECLARED -#define TclBN_mp_mod_2d_TCL_DECLARED -/* 28 */ -EXTERN int TclBN_mp_mod_2d(mp_int *a, int b, mp_int *r); -#endif -#ifndef TclBN_mp_mul_TCL_DECLARED -#define TclBN_mp_mul_TCL_DECLARED -/* 29 */ -EXTERN int TclBN_mp_mul(mp_int *a, mp_int *b, mp_int *p); -#endif -#ifndef TclBN_mp_mul_d_TCL_DECLARED -#define TclBN_mp_mul_d_TCL_DECLARED -/* 30 */ -EXTERN int TclBN_mp_mul_d(mp_int *a, mp_digit b, mp_int *p); -#endif -#ifndef TclBN_mp_mul_2_TCL_DECLARED -#define TclBN_mp_mul_2_TCL_DECLARED -/* 31 */ -EXTERN int TclBN_mp_mul_2(mp_int *a, mp_int *p); -#endif -#ifndef TclBN_mp_mul_2d_TCL_DECLARED -#define TclBN_mp_mul_2d_TCL_DECLARED -/* 32 */ -EXTERN int TclBN_mp_mul_2d(mp_int *a, int d, mp_int *p); -#endif -#ifndef TclBN_mp_neg_TCL_DECLARED -#define TclBN_mp_neg_TCL_DECLARED -/* 33 */ -EXTERN int TclBN_mp_neg(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_or_TCL_DECLARED -#define TclBN_mp_or_TCL_DECLARED -/* 34 */ -EXTERN int TclBN_mp_or(CONST mp_int *a, CONST mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_radix_size_TCL_DECLARED -#define TclBN_mp_radix_size_TCL_DECLARED -/* 35 */ -EXTERN int TclBN_mp_radix_size(mp_int *a, int radix, int *size); -#endif -#ifndef TclBN_mp_read_radix_TCL_DECLARED -#define TclBN_mp_read_radix_TCL_DECLARED -/* 36 */ -EXTERN int TclBN_mp_read_radix(mp_int *a, CONST char *str, - int radix); -#endif -#ifndef TclBN_mp_rshd_TCL_DECLARED -#define TclBN_mp_rshd_TCL_DECLARED -/* 37 */ -EXTERN void TclBN_mp_rshd(mp_int *a, int shift); -#endif -#ifndef TclBN_mp_shrink_TCL_DECLARED -#define TclBN_mp_shrink_TCL_DECLARED -/* 38 */ -EXTERN int TclBN_mp_shrink(mp_int *a); -#endif -#ifndef TclBN_mp_set_TCL_DECLARED -#define TclBN_mp_set_TCL_DECLARED -/* 39 */ -EXTERN void TclBN_mp_set(mp_int *a, mp_digit b); -#endif -#ifndef TclBN_mp_sqr_TCL_DECLARED -#define TclBN_mp_sqr_TCL_DECLARED -/* 40 */ -EXTERN int TclBN_mp_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_sqrt_TCL_DECLARED -#define TclBN_mp_sqrt_TCL_DECLARED -/* 41 */ -EXTERN int TclBN_mp_sqrt(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_sub_TCL_DECLARED -#define TclBN_mp_sub_TCL_DECLARED -/* 42 */ -EXTERN int TclBN_mp_sub(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_sub_d_TCL_DECLARED -#define TclBN_mp_sub_d_TCL_DECLARED -/* 43 */ -EXTERN int TclBN_mp_sub_d(mp_int *a, mp_digit b, mp_int *c); -#endif -#ifndef TclBN_mp_to_unsigned_bin_TCL_DECLARED -#define TclBN_mp_to_unsigned_bin_TCL_DECLARED -/* 44 */ -EXTERN int TclBN_mp_to_unsigned_bin(mp_int *a, unsigned char *b); -#endif -#ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED -#define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED -/* 45 */ -EXTERN int TclBN_mp_to_unsigned_bin_n(mp_int *a, - unsigned char *b, unsigned long *outlen); -#endif -#ifndef TclBN_mp_toradix_n_TCL_DECLARED -#define TclBN_mp_toradix_n_TCL_DECLARED -/* 46 */ -EXTERN int TclBN_mp_toradix_n(mp_int *a, char *str, int radix, - int maxlen); -#endif -#ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED -#define TclBN_mp_unsigned_bin_size_TCL_DECLARED -/* 47 */ -EXTERN int TclBN_mp_unsigned_bin_size(mp_int *a); -#endif -#ifndef TclBN_mp_xor_TCL_DECLARED -#define TclBN_mp_xor_TCL_DECLARED -/* 48 */ -EXTERN int TclBN_mp_xor(CONST mp_int *a, CONST mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_zero_TCL_DECLARED -#define TclBN_mp_zero_TCL_DECLARED -/* 49 */ -EXTERN void TclBN_mp_zero(mp_int *a); -#endif -#ifndef TclBN_reverse_TCL_DECLARED -#define TclBN_reverse_TCL_DECLARED -/* 50 */ -EXTERN void TclBN_reverse(unsigned char *s, int len); -#endif -#ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED -#define TclBN_fast_s_mp_mul_digs_TCL_DECLARED -/* 51 */ -EXTERN int TclBN_fast_s_mp_mul_digs(mp_int *a, mp_int *b, - mp_int *c, int digs); -#endif -#ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED -#define TclBN_fast_s_mp_sqr_TCL_DECLARED -/* 52 */ -EXTERN int TclBN_fast_s_mp_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED -#define TclBN_mp_karatsuba_mul_TCL_DECLARED -/* 53 */ -EXTERN int TclBN_mp_karatsuba_mul(mp_int *a, mp_int *b, - mp_int *c); -#endif -#ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED -#define TclBN_mp_karatsuba_sqr_TCL_DECLARED -/* 54 */ -EXTERN int TclBN_mp_karatsuba_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_mp_toom_mul_TCL_DECLARED -#define TclBN_mp_toom_mul_TCL_DECLARED -/* 55 */ -EXTERN int TclBN_mp_toom_mul(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_toom_sqr_TCL_DECLARED -#define TclBN_mp_toom_sqr_TCL_DECLARED -/* 56 */ -EXTERN int TclBN_mp_toom_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_s_mp_add_TCL_DECLARED -#define TclBN_s_mp_add_TCL_DECLARED -/* 57 */ -EXTERN int TclBN_s_mp_add(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_s_mp_mul_digs_TCL_DECLARED -#define TclBN_s_mp_mul_digs_TCL_DECLARED -/* 58 */ -EXTERN int TclBN_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, - int digs); -#endif -#ifndef TclBN_s_mp_sqr_TCL_DECLARED -#define TclBN_s_mp_sqr_TCL_DECLARED -/* 59 */ -EXTERN int TclBN_s_mp_sqr(mp_int *a, mp_int *b); -#endif -#ifndef TclBN_s_mp_sub_TCL_DECLARED -#define TclBN_s_mp_sub_TCL_DECLARED -/* 60 */ -EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c); -#endif -#ifndef TclBN_mp_init_set_int_TCL_DECLARED -#define TclBN_mp_init_set_int_TCL_DECLARED -/* 61 */ -EXTERN int TclBN_mp_init_set_int(mp_int *a, unsigned long i); -#endif -#ifndef TclBN_mp_set_int_TCL_DECLARED -#define TclBN_mp_set_int_TCL_DECLARED -/* 62 */ -EXTERN int TclBN_mp_set_int(mp_int *a, unsigned long i); -#endif -#ifndef TclBN_mp_cnt_lsb_TCL_DECLARED -#define TclBN_mp_cnt_lsb_TCL_DECLARED -/* 63 */ -EXTERN int TclBN_mp_cnt_lsb(mp_int *a); -#endif -/* Slot 64 is reserved */ -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -/* Slot 69 is reserved */ -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* Slot 74 is reserved */ -/* Slot 75 is reserved */ -/* Slot 76 is reserved */ -/* Slot 77 is reserved */ -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -#ifndef TclUnusedStubEntry_TCL_DECLARED -#define TclUnusedStubEntry_TCL_DECLARED -/* 80 */ -EXTERN void TclUnusedStubEntry(void); -#endif - -typedef struct TclTomMathStubs { - int magic; - struct TclTomMathStubHooks *hooks; - - int (*tclBN_epoch) (void); /* 0 */ - int (*tclBN_revision) (void); /* 1 */ - int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */ - int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */ - int (*tclBN_mp_and) (CONST mp_int *a, CONST mp_int *b, mp_int *c); /* 4 */ - void (*tclBN_mp_clamp) (mp_int *a); /* 5 */ - void (*tclBN_mp_clear) (mp_int *a); /* 6 */ - void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */ - int (*tclBN_mp_cmp) (CONST mp_int *a, CONST mp_int *b); /* 8 */ - int (*tclBN_mp_cmp_d) (CONST mp_int *a, mp_digit b); /* 9 */ - int (*tclBN_mp_cmp_mag) (CONST mp_int *a, CONST mp_int *b); /* 10 */ - int (*tclBN_mp_copy) (mp_int *a, mp_int *b); /* 11 */ - int (*tclBN_mp_count_bits) (mp_int *a); /* 12 */ - int (*tclBN_mp_div) (mp_int *a, mp_int *b, mp_int *q, mp_int *r); /* 13 */ - int (*tclBN_mp_div_d) (mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */ - int (*tclBN_mp_div_2) (mp_int *a, mp_int *q); /* 15 */ - int (*tclBN_mp_div_2d) (mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */ - int (*tclBN_mp_div_3) (mp_int *a, mp_int *q, mp_digit *r); /* 17 */ - void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */ - int (*tclBN_mp_expt_d) (mp_int *a, mp_digit b, mp_int *c); /* 19 */ - int (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */ - int (*tclBN_mp_init) (mp_int *a); /* 21 */ - int (*tclBN_mp_init_copy) (mp_int *a, mp_int *b); /* 22 */ - int (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */ - int (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */ - int (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */ - int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ - int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */ - int (*tclBN_mp_mod_2d) (mp_int *a, int b, mp_int *r); /* 28 */ - int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */ - int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */ - int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */ - int (*tclBN_mp_mul_2d) (mp_int *a, int d, mp_int *p); /* 32 */ - int (*tclBN_mp_neg) (mp_int *a, mp_int *b); /* 33 */ - int (*tclBN_mp_or) (CONST mp_int *a, CONST mp_int *b, mp_int *c); /* 34 */ - int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */ - int (*tclBN_mp_read_radix) (mp_int *a, CONST char *str, int radix); /* 36 */ - void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ - int (*tclBN_mp_shrink) (mp_int *a); /* 38 */ - void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ - int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */ - int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */ - int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */ - int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */ - int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */ - int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */ - int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen); /* 46 */ - int (*tclBN_mp_unsigned_bin_size) (mp_int *a); /* 47 */ - int (*tclBN_mp_xor) (CONST mp_int *a, CONST mp_int *b, mp_int *c); /* 48 */ - void (*tclBN_mp_zero) (mp_int *a); /* 49 */ - void (*tclBN_reverse) (unsigned char *s, int len); /* 50 */ - int (*tclBN_fast_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 51 */ - int (*tclBN_fast_s_mp_sqr) (mp_int *a, mp_int *b); /* 52 */ - int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */ - int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */ - int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */ - int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */ - int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */ - int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */ - int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */ - int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */ - int (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ - int (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ - int (*tclBN_mp_cnt_lsb) (mp_int *a); /* 63 */ - VOID *reserved64; - VOID *reserved65; - VOID *reserved66; - VOID *reserved67; - VOID *reserved68; - VOID *reserved69; - VOID *reserved70; - VOID *reserved71; - VOID *reserved72; - VOID *reserved73; - VOID *reserved74; - VOID *reserved75; - VOID *reserved76; - VOID *reserved77; - VOID *reserved78; - VOID *reserved79; - void (*tclUnusedStubEntry) (void); /* 80 */ -} TclTomMathStubs; - -extern TclTomMathStubs *tclTomMathStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TclBN_epoch -#define TclBN_epoch \ - (tclTomMathStubsPtr->tclBN_epoch) /* 0 */ -#endif -#ifndef TclBN_revision -#define TclBN_revision \ - (tclTomMathStubsPtr->tclBN_revision) /* 1 */ -#endif -#ifndef TclBN_mp_add -#define TclBN_mp_add \ - (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ -#endif -#ifndef TclBN_mp_add_d -#define TclBN_mp_add_d \ - (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ -#endif -#ifndef TclBN_mp_and -#define TclBN_mp_and \ - (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ -#endif -#ifndef TclBN_mp_clamp -#define TclBN_mp_clamp \ - (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ -#endif -#ifndef TclBN_mp_clear -#define TclBN_mp_clear \ - (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ -#endif -#ifndef TclBN_mp_clear_multi -#define TclBN_mp_clear_multi \ - (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ -#endif -#ifndef TclBN_mp_cmp -#define TclBN_mp_cmp \ - (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ -#endif -#ifndef TclBN_mp_cmp_d -#define TclBN_mp_cmp_d \ - (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ -#endif -#ifndef TclBN_mp_cmp_mag -#define TclBN_mp_cmp_mag \ - (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ -#endif -#ifndef TclBN_mp_copy -#define TclBN_mp_copy \ - (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ -#endif -#ifndef TclBN_mp_count_bits -#define TclBN_mp_count_bits \ - (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ -#endif -#ifndef TclBN_mp_div -#define TclBN_mp_div \ - (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ -#endif -#ifndef TclBN_mp_div_d -#define TclBN_mp_div_d \ - (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ -#endif -#ifndef TclBN_mp_div_2 -#define TclBN_mp_div_2 \ - (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ -#endif -#ifndef TclBN_mp_div_2d -#define TclBN_mp_div_2d \ - (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ -#endif -#ifndef TclBN_mp_div_3 -#define TclBN_mp_div_3 \ - (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ -#endif -#ifndef TclBN_mp_exch -#define TclBN_mp_exch \ - (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ -#endif -#ifndef TclBN_mp_expt_d -#define TclBN_mp_expt_d \ - (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ -#endif -#ifndef TclBN_mp_grow -#define TclBN_mp_grow \ - (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ -#endif -#ifndef TclBN_mp_init -#define TclBN_mp_init \ - (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ -#endif -#ifndef TclBN_mp_init_copy -#define TclBN_mp_init_copy \ - (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ -#endif -#ifndef TclBN_mp_init_multi -#define TclBN_mp_init_multi \ - (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ -#endif -#ifndef TclBN_mp_init_set -#define TclBN_mp_init_set \ - (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ -#endif -#ifndef TclBN_mp_init_size -#define TclBN_mp_init_size \ - (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ -#endif -#ifndef TclBN_mp_lshd -#define TclBN_mp_lshd \ - (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ -#endif -#ifndef TclBN_mp_mod -#define TclBN_mp_mod \ - (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ -#endif -#ifndef TclBN_mp_mod_2d -#define TclBN_mp_mod_2d \ - (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ -#endif -#ifndef TclBN_mp_mul -#define TclBN_mp_mul \ - (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ -#endif -#ifndef TclBN_mp_mul_d -#define TclBN_mp_mul_d \ - (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ -#endif -#ifndef TclBN_mp_mul_2 -#define TclBN_mp_mul_2 \ - (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ -#endif -#ifndef TclBN_mp_mul_2d -#define TclBN_mp_mul_2d \ - (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ -#endif -#ifndef TclBN_mp_neg -#define TclBN_mp_neg \ - (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ -#endif -#ifndef TclBN_mp_or -#define TclBN_mp_or \ - (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ -#endif -#ifndef TclBN_mp_radix_size -#define TclBN_mp_radix_size \ - (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ -#endif -#ifndef TclBN_mp_read_radix -#define TclBN_mp_read_radix \ - (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ -#endif -#ifndef TclBN_mp_rshd -#define TclBN_mp_rshd \ - (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ -#endif -#ifndef TclBN_mp_shrink -#define TclBN_mp_shrink \ - (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ -#endif -#ifndef TclBN_mp_set -#define TclBN_mp_set \ - (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ -#endif -#ifndef TclBN_mp_sqr -#define TclBN_mp_sqr \ - (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ -#endif -#ifndef TclBN_mp_sqrt -#define TclBN_mp_sqrt \ - (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ -#endif -#ifndef TclBN_mp_sub -#define TclBN_mp_sub \ - (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ -#endif -#ifndef TclBN_mp_sub_d -#define TclBN_mp_sub_d \ - (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ -#endif -#ifndef TclBN_mp_to_unsigned_bin -#define TclBN_mp_to_unsigned_bin \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ -#endif -#ifndef TclBN_mp_to_unsigned_bin_n -#define TclBN_mp_to_unsigned_bin_n \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ -#endif -#ifndef TclBN_mp_toradix_n -#define TclBN_mp_toradix_n \ - (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ -#endif -#ifndef TclBN_mp_unsigned_bin_size -#define TclBN_mp_unsigned_bin_size \ - (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ -#endif -#ifndef TclBN_mp_xor -#define TclBN_mp_xor \ - (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ -#endif -#ifndef TclBN_mp_zero -#define TclBN_mp_zero \ - (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ -#endif -#ifndef TclBN_reverse -#define TclBN_reverse \ - (tclTomMathStubsPtr->tclBN_reverse) /* 50 */ -#endif -#ifndef TclBN_fast_s_mp_mul_digs -#define TclBN_fast_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ -#endif -#ifndef TclBN_fast_s_mp_sqr -#define TclBN_fast_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ -#endif -#ifndef TclBN_mp_karatsuba_mul -#define TclBN_mp_karatsuba_mul \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ -#endif -#ifndef TclBN_mp_karatsuba_sqr -#define TclBN_mp_karatsuba_sqr \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ -#endif -#ifndef TclBN_mp_toom_mul -#define TclBN_mp_toom_mul \ - (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ -#endif -#ifndef TclBN_mp_toom_sqr -#define TclBN_mp_toom_sqr \ - (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ -#endif -#ifndef TclBN_s_mp_add -#define TclBN_s_mp_add \ - (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ -#endif -#ifndef TclBN_s_mp_mul_digs -#define TclBN_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ -#endif -#ifndef TclBN_s_mp_sqr -#define TclBN_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ -#endif -#ifndef TclBN_s_mp_sub -#define TclBN_s_mp_sub \ - (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ -#endif -#ifndef TclBN_mp_init_set_int -#define TclBN_mp_init_set_int \ - (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ -#endif -#ifndef TclBN_mp_set_int -#define TclBN_mp_set_int \ - (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ -#endif -#ifndef TclBN_mp_cnt_lsb -#define TclBN_mp_cnt_lsb \ - (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ -#endif -/* Slot 64 is reserved */ -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -/* Slot 69 is reserved */ -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* Slot 74 is reserved */ -/* Slot 75 is reserved */ -/* Slot 76 is reserved */ -/* Slot 77 is reserved */ -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -#ifndef TclUnusedStubEntry -#define TclUnusedStubEntry \ - (tclTomMathStubsPtr->tclUnusedStubEntry) /* 80 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclWinPort.h deleted file mode 100644 index 3cab38592..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tclWinPort.h +++ /dev/null @@ -1,489 +0,0 @@ -/* - * tclWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLWINPORT -#define _TCLWINPORT - - -#if !defined(_WIN64) && !defined(__MINGW_USE_VC2005_COMPAT) -/* See [Bug 3354324]: file mtime sets wrong time */ -# define __MINGW_USE_VC2005_COMPAT -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -/* Compatibility to older visual studio / windows platform SDK */ -#if !defined(MAXULONG_PTR) -typedef DWORD DWORD_PTR; -typedef DWORD_PTR * PDWORD_PTR; -#endif - -/* - * Ask for the winsock function typedefs, also. - */ -#define INCL_WINSOCK_API_TYPEDEFS 1 -#include - -#ifdef CHECK_UNICODE_CALLS -# define _UNICODE -# define UNICODE -# define __TCHAR_DEFINED - typedef float *_TCHAR; -# define _TCHAR_DEFINED - typedef float *TCHAR; -#endif /* CHECK_UNICODE_CALLS */ - -/* - *--------------------------------------------------------------------------- - * The following sets of #includes and #ifdefs are required to get Tcl to - * compile under the windows compilers. - *--------------------------------------------------------------------------- - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#if HAVE_INTTYPES_H -# include -#endif -#include - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -/* - * Need to block out these includes for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#include -# ifdef __BORLANDC__ -# include -# else -# include -# endif /* __BORLANDC__ */ -#endif /* __MWERKS__ */ - -/* - * Define EINPROGRESS in terms of WSAEINPROGRESS. - */ - -#undef EINPROGRESS -#define EINPROGRESS WSAEINPROGRESS - -/* - * Define ENOTSUP to a value that will never occur. - */ - -#undef ENOTSUP -#define ENOTSUP -1030507 - -/* Those codes, from Visual Studio 2010, conflict with other values */ -#undef ENODATA -#undef ENOMSG -#undef ENOSR -#undef ENOSTR -#undef EPROTO - -/* - * The following defines redefine the Windows Socket errors as - * BSD errors so Tcl_PosixError can do the right thing. - */ - -#undef EWOULDBLOCK -#define EWOULDBLOCK EAGAIN -#undef EALREADY -#define EALREADY 149 /* operation already in progress */ -#undef ENOTSOCK -#define ENOTSOCK 95 /* Socket operation on non-socket */ -#undef EDESTADDRREQ -#define EDESTADDRREQ 96 /* Destination address required */ -#undef EMSGSIZE -#define EMSGSIZE 97 /* Message too long */ -#undef EPROTOTYPE -#define EPROTOTYPE 98 /* Protocol wrong type for socket */ -#undef ENOPROTOOPT -#define ENOPROTOOPT 99 /* Protocol not available */ -#undef EPROTONOSUPPORT -#define EPROTONOSUPPORT 120 /* Protocol not supported */ -#undef ESOCKTNOSUPPORT -#define ESOCKTNOSUPPORT 121 /* Socket type not supported */ -#undef EOPNOTSUPP -#define EOPNOTSUPP 122 /* Operation not supported on socket */ -#undef EPFNOSUPPORT -#define EPFNOSUPPORT 123 /* Protocol family not supported */ -#undef EAFNOSUPPORT -#define EAFNOSUPPORT 124 /* Address family not supported */ -#undef EADDRINUSE -#define EADDRINUSE 125 /* Address already in use */ -#undef EADDRNOTAVAIL -#define EADDRNOTAVAIL 126 /* Can't assign requested address */ -#undef ENETDOWN -#define ENETDOWN 127 /* Network is down */ -#undef ENETUNREACH -#define ENETUNREACH 128 /* Network is unreachable */ -#undef ENETRESET -#define ENETRESET 129 /* Network dropped connection on reset */ -#undef ECONNABORTED -#define ECONNABORTED 130 /* Software caused connection abort */ -#undef ECONNRESET -#define ECONNRESET 131 /* Connection reset by peer */ -#undef ENOBUFS -#define ENOBUFS 132 /* No buffer space available */ -#undef EISCONN -#define EISCONN 133 /* Socket is already connected */ -#undef ENOTCONN -#define ENOTCONN 134 /* Socket is not connected */ -#undef ESHUTDOWN -#define ESHUTDOWN 143 /* Can't send after socket shutdown */ -#undef ETOOMANYREFS -#define ETOOMANYREFS 144 /* Too many references: can't splice */ -#undef ETIMEDOUT -#define ETIMEDOUT 145 /* Connection timed out */ -#undef ECONNREFUSED -#define ECONNREFUSED 146 /* Connection refused */ -#undef ELOOP -#define ELOOP 90 /* Symbolic link loop */ -#undef EHOSTDOWN -#define EHOSTDOWN 147 /* Host is down */ -#undef EHOSTUNREACH -#define EHOSTUNREACH 148 /* No route to host */ -#undef ENOTEMPTY -#define ENOTEMPTY 93 /* directory not empty */ -#undef EUSERS -#define EUSERS 94 /* Too many users (for UFS) */ -#undef EDQUOT -#define EDQUOT 69 /* Disc quota exceeded */ -#undef ESTALE -#define ESTALE 151 /* Stale NFS file handle */ -#undef EREMOTE -#define EREMOTE 66 /* The object is remote */ - -/* - * It is very hard to determine how Windows reacts to attempting to - * set a file pointer outside the input datatype's representable - * region. So we fake the error code ourselves. - */ - -#undef EOVERFLOW -#define EOVERFLOW EFBIG /* The object couldn't fit in the datatype */ - -/* - * Signals not known to the standard ANSI signal.h. These are used - * by Tcl_WaitPid() and generic/tclPosixStr.c - */ - -#ifndef SIGTRAP -# define SIGTRAP 5 -#endif -#ifndef SIGBUS -# define SIGBUS 10 -#endif - -/* - * Supply definitions for macros to query wait status, if not already - * defined in header files above. - */ - -#if TCL_UNION_WAIT -# define WAIT_STATUS_TYPE union wait -#else -# define WAIT_STATUS_TYPE int -#endif /* TCL_UNION_WAIT */ - -#ifndef WIFEXITED -# define WIFEXITED(stat) (((*((int *) &(stat))) & 0xC0000000) == 0) -#endif - -#ifndef WEXITSTATUS -# define WEXITSTATUS(stat) (*((int *) &(stat))) -#endif - -#ifndef WIFSIGNALED -# define WIFSIGNALED(stat) ((*((int *) &(stat))) & 0xC0000000) -#endif - -#ifndef WTERMSIG -# define WTERMSIG(stat) ((*((int *) &(stat))) & 0x7f) -#endif - -#ifndef WIFSTOPPED -# define WIFSTOPPED(stat) 0 -#endif - -#ifndef WSTOPSIG -# define WSTOPSIG(stat) (((*((int *) &(stat))) >> 8) & 0xff) -#endif - -/* - * Define constants for waitpid() system call if they aren't defined - * by a system header file. - */ - -#ifndef WNOHANG -# define WNOHANG 1 -#endif -#ifndef WUNTRACED -# define WUNTRACED 2 -#endif - -/* - * Define access mode constants if they aren't already defined. - */ - -#ifndef F_OK -# define F_OK 00 -#endif -#ifndef X_OK -# define X_OK 01 -#endif -#ifndef W_OK -# define W_OK 02 -#endif -#ifndef R_OK -# define R_OK 04 -#endif - -/* - * Define macros to query file type bits, if they're not already - * defined. - */ - -#ifndef S_IFLNK -# define S_IFLNK 0120000 /* Symbolic Link */ -#endif - -#ifndef S_ISREG -# ifdef S_IFREG -# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) -# else -# define S_ISREG(m) 0 -# endif -#endif /* !S_ISREG */ -#ifndef S_ISDIR -# ifdef S_IFDIR -# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) -# else -# define S_ISDIR(m) 0 -# endif -#endif /* !S_ISDIR */ -#ifndef S_ISCHR -# ifdef S_IFCHR -# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) -# else -# define S_ISCHR(m) 0 -# endif -#endif /* !S_ISCHR */ -#ifndef S_ISBLK -# ifdef S_IFBLK -# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) -# else -# define S_ISBLK(m) 0 -# endif -#endif /* !S_ISBLK */ -#ifndef S_ISFIFO -# ifdef S_IFIFO -# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) -# else -# define S_ISFIFO(m) 0 -# endif -#endif /* !S_ISFIFO */ -#ifndef S_ISLNK -# ifdef S_IFLNK -# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) -# else -# define S_ISLNK(m) 0 -# endif -#endif /* !S_ISLNK */ - - -/* - * Define MAXPATHLEN in terms of MAXPATH if available - */ - -#ifndef MAXPATH -# define MAXPATH MAX_PATH -#endif /* MAXPATH */ - -#ifndef MAXPATHLEN -# define MAXPATHLEN MAXPATH -#endif /* MAXPATHLEN */ - -/* - * Define pid_t and uid_t if they're not already defined. - */ - -#if ! TCL_PID_T -# define pid_t int -#endif /* !TCL_PID_T */ -#if ! TCL_UID_T -# define uid_t int -#endif /* !TCL_UID_T */ - -/* - * Visual C++ has some odd names for common functions, so we need to - * define a few macros to handle them. Also, it defines EDEADLOCK and - * EDEADLK as the same value, which confuses Tcl_ErrnoId(). - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define environ _environ -# if defined(_MSC_VER) && (_MSC_VER < 1600) -# define hypot _hypot -# endif -# define exception _exception -# undef EDEADLOCK -# if defined(_MSC_VER) && (_MSC_VER >= 1700) -# define timezone _timezone -# endif -#endif /* _MSC_VER || __MSVCRT__ */ - -/* - * Borland's timezone and environ functions. - */ - -#ifdef __BORLANDC__ -# define timezone _timezone -# define environ _environ -#endif /* __BORLANDC__ */ - -#ifdef __WATCOMC__ -# if !defined(__CHAR_SIGNED__) -# error "You must use the -j switch to ensure char is signed." -# endif -#endif - - -/* - * MSVC 8.0 started to mark many standard C library functions depreciated - * including the *printf family and others. Tell it to shut up. - * (_MSC_VER is 1200 for VC6, 1300 or 1310 for vc7.net, 1400 for 8.0) - */ -#if defined(_MSC_VER) -# pragma warning(disable:4146) -# pragma warning(disable:4244) -# if _MSC_VER >= 1400 -# pragma warning(disable:4267) -# pragma warning(disable:4311) -# pragma warning(disable:4312) -# pragma warning(disable:4996) -# endif -#endif - - -/* - * There is no platform-specific panic routine for Windows in the Tcl internals. - */ - -#define TclpPanic ((Tcl_PanicProc *) NULL) - -/* - *--------------------------------------------------------------------------- - * The following macros and declarations represent the interface between - * generic and windows-specific parts of Tcl. Some of the macros may - * override functions declared in tclInt.h. - *--------------------------------------------------------------------------- - */ - -/* - * The default platform eol translation on Windows is TCL_TRANSLATE_CRLF: - */ - -#define TCL_PLATFORM_TRANSLATION TCL_TRANSLATE_CRLF - -/* - * Declare dynamic loading extension macro. - */ - -#define TCL_SHLIB_EXT ".dll" - -/* - * The following define ensures that we use the native putenv - * implementation to modify the environment array. This keeps - * the C level environment in synch with the system level environment. - */ - -#define USE_PUTENV 1 -#define USE_PUTENV_FOR_UNSET 1 - -/* - * Msvcrt's putenv() copies the string rather than takes ownership of it. - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define HAVE_PUTENV_THAT_COPIES 1 -#endif - -/* - * Older version of Mingw are known to lack a MWMO_ALERTABLE define. - */ -#if !defined(MWMO_ALERTABLE) -# define MWMO_ALERTABLE 2 -#endif - -/* - * The following defines wrap the system memory allocation routines for - * use by tclAlloc.c. - */ - -#define TclpSysAlloc(size, isBin) ((void*)HeapAlloc(GetProcessHeap(), \ - (DWORD)0, (DWORD)size)) -#define TclpSysFree(ptr) (HeapFree(GetProcessHeap(), \ - (DWORD)0, (HGLOBAL)ptr)) -#define TclpSysRealloc(ptr, size) ((void*)HeapReAlloc(GetProcessHeap(), \ - (DWORD)0, (LPVOID)ptr, (DWORD)size)) - -/* This type is not defined in the Windows headers */ -#define socklen_t int - - -/* - * The following macros have trivial definitions, allowing generic code to - * address platform-specific issues. - */ - -#define TclpReleaseFile(file) ckfree((char *) file) - -/* - * The following macros and declarations wrap the C runtime library - * functions. - */ - -#define TclpExit exit - -#ifndef INVALID_SET_FILE_POINTER -#define INVALID_SET_FILE_POINTER 0xFFFFFFFF -#endif /* INVALID_SET_FILE_POINTER */ - -#ifndef LABEL_SECURITY_INFORMATION -# define LABEL_SECURITY_INFORMATION (0x00000010L) -#endif - -#define Tcl_DirEntry void -#define TclDIR void - -#endif /* _TCLWINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tk.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tk.h deleted file mode 100644 index baa0aadf6..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tk.h +++ /dev/null @@ -1,1621 +0,0 @@ -/* - * tk.h -- - * - * Declarations for Tk-related things that are visible outside of the Tk - * module itself. - * - * Copyright (c) 1989-1994 The Regents of the University of California. - * Copyright (c) 1994 The Australian National University. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 Ajuba Solutions. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TK -#define _TK - -#include -#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION < 5) -# error Tk 8.5 must be compiled with tcl.h from Tcl 8.5 or better -#endif - -#ifndef _ANSI_ARGS_ -# ifndef NO_PROTOTYPES -# define _ANSI_ARGS_(x) x -# else -# define _ANSI_ARGS_(x) () -# endif -#endif - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * When version numbers change here, you must also go into the following files - * and update the version numbers: - * - * library/tk.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * README (sections 0 and 1) - * macosx/Wish.xcode/project.pbxproj (not patchlevel) 1 LOC - * macosx/Wish-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) - * unix/README (not patchlevel) - * unix/tk.spec (1 LOC patch) - * win/tcl.m4 (not patchlevel) - * - * You may also need to update some of these files when the numbers change for - * the version of Tcl that this release of Tk is compiled against. - */ - -#define TK_MAJOR_VERSION 8 -#define TK_MINOR_VERSION 5 -#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TK_RELEASE_SERIAL 19 - -#define TK_VERSION "8.5" -#define TK_PATCH_LEVEL "8.5.19" - -/* - * A special definition used to allow this header file to be included from - * windows or mac resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool and manually set - * for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and procedure - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -#if !defined(_XLIB_H) && !defined(_X11_XLIB_H_) -# include -# ifdef MAC_OSX_TK -# include -# endif -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -# include -#endif - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - *---------------------------------------------------------------------- - * - * Decide whether or not to use input methods. - */ - -#ifdef XNQueryInputStyle -#define TK_USE_INPUT_METHODS -#endif - -/* - * Dummy types that are used by clients: - */ - -typedef struct Tk_BindingTable_ *Tk_BindingTable; -typedef struct Tk_Canvas_ *Tk_Canvas; -typedef struct Tk_Cursor_ *Tk_Cursor; -typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; -typedef struct Tk_Font_ *Tk_Font; -typedef struct Tk_Image__ *Tk_Image; -typedef struct Tk_ImageMaster_ *Tk_ImageMaster; -typedef struct Tk_OptionTable_ *Tk_OptionTable; -typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; -typedef struct Tk_TextLayout_ *Tk_TextLayout; -typedef struct Tk_Window_ *Tk_Window; -typedef struct Tk_3DBorder_ *Tk_3DBorder; -typedef struct Tk_Style_ *Tk_Style; -typedef struct Tk_StyleEngine_ *Tk_StyleEngine; -typedef struct Tk_StyledElement_ *Tk_StyledElement; - -/* - * Additional types exported to clients. - */ - -typedef const char *Tk_Uid; - -/* - *---------------------------------------------------------------------- - * - * The enum below defines the valid types for Tk configuration options as - * implemented by Tk_InitOptions, Tk_SetOptions, etc. - */ - -typedef enum { - TK_OPTION_BOOLEAN, - TK_OPTION_INT, - TK_OPTION_DOUBLE, - TK_OPTION_STRING, - TK_OPTION_STRING_TABLE, - TK_OPTION_COLOR, - TK_OPTION_FONT, - TK_OPTION_BITMAP, - TK_OPTION_BORDER, - TK_OPTION_RELIEF, - TK_OPTION_CURSOR, - TK_OPTION_JUSTIFY, - TK_OPTION_ANCHOR, - TK_OPTION_SYNONYM, - TK_OPTION_PIXELS, - TK_OPTION_WINDOW, - TK_OPTION_END, - TK_OPTION_CUSTOM, - TK_OPTION_STYLE -} Tk_OptionType; - -/* - * Structures of the following type are used by widgets to specify their - * configuration options. Typically each widget has a static array of these - * structures, where each element of the array describes a single - * configuration option. The array is passed to Tk_CreateOptionTable. - */ - -typedef struct Tk_OptionSpec { - Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; - * see definitions above. Last option in table - * must have type TK_OPTION_END. */ - const char *optionName; /* Name used to specify option in Tcl - * commands. */ - const char *dbName; /* Name for option in option database. */ - const char *dbClass; /* Class for option in database. */ - const char *defValue; /* Default value for option if not specified - * in command line, the option database, or - * the system. */ - int objOffset; /* Where in record to store a Tcl_Obj * that - * holds the value of this option, specified - * as an offset in bytes from the start of the - * record. Use the Tk_Offset macro to generate - * values for this. -1 means don't store the - * Tcl_Obj in the record. */ - int internalOffset; /* Where in record to store the internal - * representation of the value of this option, - * such as an int or XColor *. This field is - * specified as an offset in bytes from the - * start of the record. Use the Tk_Offset - * macro to generate values for it. -1 means - * don't store the internal representation in - * the record. */ - int flags; /* Any combination of the values defined - * below. */ - ClientData clientData; /* An alternate place to put option-specific - * data. Used for the monochrome default value - * for colors, etc. */ - int typeMask; /* An arbitrary bit mask defined by the class - * manager; typically bits correspond to - * certain kinds of options such as all those - * that require a redisplay when they change. - * Tk_SetOptions returns the bit-wise OR of - * the typeMasks of all options that were - * changed. */ -} Tk_OptionSpec; - -/* - * Flag values for Tk_OptionSpec structures. These flags are shared by - * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. - */ - -#define TK_OPTION_NULL_OK (1 << 0) -#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) - -/* - * The following structure and function types are used by TK_OPTION_CUSTOM - * options; the structure holds pointers to the functions needed by the Tk - * option config code to handle a custom option. - */ - -typedef int (Tk_CustomOptionSetProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, - int offset, char *saveInternalPtr, int flags)); -typedef Tcl_Obj *(Tk_CustomOptionGetProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset)); -typedef void (Tk_CustomOptionRestoreProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr, char *saveInternalPtr)); -typedef void (Tk_CustomOptionFreeProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr)); - -typedef struct Tk_ObjCustomOption { - const char *name; /* Name of the custom option. */ - Tk_CustomOptionSetProc *setProc; - /* Function to use to set a record's option - * value from a Tcl_Obj */ - Tk_CustomOptionGetProc *getProc; - /* Function to use to get a Tcl_Obj - * representation from an internal - * representation of an option. */ - Tk_CustomOptionRestoreProc *restoreProc; - /* Function to use to restore a saved value - * for the internal representation. */ - Tk_CustomOptionFreeProc *freeProc; - /* Function to use to free the internal - * representation of an option. */ - ClientData clientData; /* Arbitrary one-word value passed to the - * handling procs. */ -} Tk_ObjCustomOption; - -/* - * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. - * Computes number of bytes from beginning of structure to a given field. - */ - -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -/* Workaround for platforms missing offsetof(), e.g. VC++ 6.0 */ -#ifndef offsetof -# define offsetof(type, field) ((size_t) ((char *) &((type *) 0)->field)) -#endif - -/* - * The following two structures are used for error handling. When config - * options are being modified, the old values are saved in a Tk_SavedOptions - * structure. If an error occurs, then the contents of the structure can be - * used to restore all of the old values. The contents of this structure are - * for the private use Tk. No-one outside Tk should ever read or write any of - * the fields of these structures. - */ - -typedef struct Tk_SavedOption { - struct TkOption *optionPtr; /* Points to information that describes the - * option. */ - Tcl_Obj *valuePtr; /* The old value of the option, in the form of - * a Tcl object; may be NULL if the value was - * not saved as an object. */ - double internalForm; /* The old value of the option, in some - * internal representation such as an int or - * (XColor *). Valid only if the field - * optionPtr->specPtr->objOffset is < 0. The - * space must be large enough to accommodate a - * double, a long, or a pointer; right now it - * looks like a double (i.e., 8 bytes) is big - * enough. Also, using a double guarantees - * that the field is properly aligned for - * storing large values. */ -} Tk_SavedOption; - -#ifdef TCL_MEM_DEBUG -# define TK_NUM_SAVED_OPTIONS 2 -#else -# define TK_NUM_SAVED_OPTIONS 20 -#endif - -typedef struct Tk_SavedOptions { - char *recordPtr; /* The data structure in which to restore - * configuration options. */ - Tk_Window tkwin; /* Window associated with recordPtr; needed to - * restore certain options. */ - int numItems; /* The number of valid items in items field. */ - Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; - /* Items used to hold old values. */ - struct Tk_SavedOptions *nextPtr; - /* Points to next structure in list; needed if - * too many options changed to hold all the - * old values in a single structure. NULL - * means no more structures. */ -} Tk_SavedOptions; - -/* - * Structure used to describe application-specific configuration options: - * indicates procedures to call to parse an option and to return a text string - * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES - * LISTED ABOVE. - */ - -/* - * This is a temporary flag used while tkObjConfig and new widgets are in - * development. - */ - -#ifndef __NO_OLD_CONFIG - -typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, CONST84 char *value, char *widgRec, - int offset)); -typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); - -typedef struct Tk_CustomOption { - Tk_OptionParseProc *parseProc; - /* Procedure to call to parse an option and - * store it in converted form. */ - Tk_OptionPrintProc *printProc; - /* Procedure to return a printable string - * describing an existing option. */ - ClientData clientData; /* Arbitrary one-word value used by option - * parser: passed to parseProc and - * printProc. */ -} Tk_CustomOption; - -/* - * Structure used to specify information for Tk_ConfigureWidget. Each - * structure gives complete information for one option, including how the - * option is specified on the command line, where it appears in the option - * database, etc. - */ - -typedef struct Tk_ConfigSpec { - int type; /* Type of option, such as TK_CONFIG_COLOR; - * see definitions below. Last option in table - * must have type TK_CONFIG_END. */ - char *argvName; /* Switch used to specify option in argv. NULL - * means this spec is part of a group. */ - Tk_Uid dbName; /* Name for option in option database. */ - Tk_Uid dbClass; /* Class for option in database. */ - Tk_Uid defValue; /* Default value for option if not specified - * in command line or database. */ - int offset; /* Where in widget record to store value; use - * Tk_Offset macro to generate values for - * this. */ - int specFlags; /* Any combination of the values defined - * below; other bits are used internally by - * tkConfig.c. */ - Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is a - * pointer to info about how to parse and - * print the option. Otherwise it is - * irrelevant. */ -} Tk_ConfigSpec; - -/* - * Type values for Tk_ConfigSpec structures. See the user documentation for - * details. - */ - -typedef enum { - TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, - TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, - TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, - TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, - TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, - TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, - TK_CONFIG_END -} Tk_ConfigTypes; - -/* - * Possible values for flags argument to Tk_ConfigureWidget: - */ - -#define TK_CONFIG_ARGV_ONLY 1 -#define TK_CONFIG_OBJS 0x80 - -/* - * Possible flag values for Tk_ConfigSpec structures. Any bits at or above - * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. - * Before changing any values here, coordinate with tkOldConfig.c - * (internal-use-only flags are defined there). - */ - -#define TK_CONFIG_NULL_OK (1 << 0) -#define TK_CONFIG_COLOR_ONLY (1 << 1) -#define TK_CONFIG_MONO_ONLY (1 << 2) -#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) -#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) -#define TK_CONFIG_USER_BIT 0x100 -#endif /* __NO_OLD_CONFIG */ - -/* - * Structure used to specify how to handle argv options. - */ - -typedef struct { - char *key; /* The key string that flags the option in the - * argv array. */ - int type; /* Indicates option type; see below. */ - char *src; /* Value to be used in setting dst; usage - * depends on type. */ - char *dst; /* Address of value to be modified; usage - * depends on type. */ - char *help; /* Documentation message describing this - * option. */ -} Tk_ArgvInfo; - -/* - * Legal values for the type field of a Tk_ArgvInfo: see the user - * documentation for details. - */ - -#define TK_ARGV_CONSTANT 15 -#define TK_ARGV_INT 16 -#define TK_ARGV_STRING 17 -#define TK_ARGV_UID 18 -#define TK_ARGV_REST 19 -#define TK_ARGV_FLOAT 20 -#define TK_ARGV_FUNC 21 -#define TK_ARGV_GENFUNC 22 -#define TK_ARGV_HELP 23 -#define TK_ARGV_CONST_OPTION 24 -#define TK_ARGV_OPTION_VALUE 25 -#define TK_ARGV_OPTION_NAME_VALUE 26 -#define TK_ARGV_END 27 - -/* - * Flag bits for passing to Tk_ParseArgv: - */ - -#define TK_ARGV_NO_DEFAULTS 0x1 -#define TK_ARGV_NO_LEFTOVERS 0x2 -#define TK_ARGV_NO_ABBREV 0x4 -#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 - -/* - * Enumerated type for describing actions to be taken in response to a - * restrictProc established by Tk_RestrictEvents. - */ - -typedef enum { - TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT -} Tk_RestrictAction; - -/* - * Priority levels to pass to Tk_AddOption: - */ - -#define TK_WIDGET_DEFAULT_PRIO 20 -#define TK_STARTUP_FILE_PRIO 40 -#define TK_USER_DEFAULT_PRIO 60 -#define TK_INTERACTIVE_PRIO 80 -#define TK_MAX_PRIO 100 - -/* - * Relief values returned by Tk_GetRelief: - */ - -#define TK_RELIEF_NULL -1 -#define TK_RELIEF_FLAT 0 -#define TK_RELIEF_GROOVE 1 -#define TK_RELIEF_RAISED 2 -#define TK_RELIEF_RIDGE 3 -#define TK_RELIEF_SOLID 4 -#define TK_RELIEF_SUNKEN 5 - -/* - * "Which" argument values for Tk_3DBorderGC: - */ - -#define TK_3D_FLAT_GC 1 -#define TK_3D_LIGHT_GC 2 -#define TK_3D_DARK_GC 3 - -/* - * Special EnterNotify/LeaveNotify "mode" for use in events generated by - * tkShare.c. Pick a high enough value that it's unlikely to conflict with - * existing values (like NotifyNormal) or any new values defined in the - * future. - */ - -#define TK_NOTIFY_SHARE 20 - -/* - * Enumerated type for describing a point by which to anchor something: - */ - -typedef enum { - TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, - TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, - TK_ANCHOR_CENTER -} Tk_Anchor; - -/* - * Enumerated type for describing a style of justification: - */ - -typedef enum { - TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER -} Tk_Justify; - -/* - * The following structure is used by Tk_GetFontMetrics() to return - * information about the properties of a Tk_Font. - */ - -typedef struct Tk_FontMetrics { - int ascent; /* The amount in pixels that the tallest - * letter sticks up above the baseline, plus - * any extra blank space added by the designer - * of the font. */ - int descent; /* The largest amount in pixels that any - * letter sticks below the baseline, plus any - * extra blank space added by the designer of - * the font. */ - int linespace; /* The sum of the ascent and descent. How far - * apart two lines of text in the same font - * should be placed so that none of the - * characters in one line overlap any of the - * characters in the other line. */ -} Tk_FontMetrics; - -/* - * Flags passed to Tk_MeasureChars: - */ - -#define TK_WHOLE_WORDS 1 -#define TK_AT_LEAST_ONE 2 -#define TK_PARTIAL_OK 4 - -/* - * Flags passed to Tk_ComputeTextLayout: - */ - -#define TK_IGNORE_TABS 8 -#define TK_IGNORE_NEWLINES 16 - -/* - * Widget class procedures used to implement platform specific widget - * behavior. - */ - -typedef Window (Tk_ClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin, - Window parent, ClientData instanceData)); -typedef void (Tk_ClassWorldChangedProc) _ANSI_ARGS_((ClientData instanceData)); -typedef void (Tk_ClassModalProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); - -typedef struct Tk_ClassProcs { - unsigned int size; - Tk_ClassWorldChangedProc *worldChangedProc; - /* Procedure to invoke when the widget needs - * to respond in some way to a change in the - * world (font changes, etc.) */ - Tk_ClassCreateProc *createProc; - /* Procedure to invoke when the platform- - * dependent window needs to be created. */ - Tk_ClassModalProc *modalProc; - /* Procedure to invoke after all bindings on a - * widget have been triggered in order to - * handle a modal loop. */ -} Tk_ClassProcs; - -/* - * Simple accessor for Tk_ClassProcs structure. Checks that the structure is - * not NULL, then checks the size field and returns either the requested - * field, if present, or NULL if the structure is too small to have the field - * (or NULL if the structure is NULL). - * - * A more general version of this function may be useful if other - * size-versioned structure pop up in the future: - * - * #define Tk_GetField(name, who, which) \ - * (((who) == NULL) ? NULL : - * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) - */ - -#define Tk_GetClassProc(procs, which) \ - (((procs) == NULL) ? NULL : \ - (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) - -/* - * Each geometry manager (the packer, the placer, etc.) is represented by a - * structure of the following form, which indicates procedures to invoke in - * the geometry manager to carry out certain functions. - */ - -typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); -typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); - -typedef struct Tk_GeomMgr { - const char *name; /* Name of the geometry manager (command used - * to invoke it, or name of widget class that - * allows embedded widgets). */ - Tk_GeomRequestProc *requestProc; - /* Procedure to invoke when a slave's - * requested geometry changes. */ - Tk_GeomLostSlaveProc *lostSlaveProc; - /* Procedure to invoke when a slave is taken - * away from one geometry manager by another. - * NULL means geometry manager doesn't care - * when slaves are lost. */ -} Tk_GeomMgr; - -/* - * Result values returned by Tk_GetScrollInfo: - */ - -#define TK_SCROLL_MOVETO 1 -#define TK_SCROLL_PAGES 2 -#define TK_SCROLL_UNITS 3 -#define TK_SCROLL_ERROR 4 - -/* - *---------------------------------------------------------------------- - * - * Extensions to the X event set - * - *---------------------------------------------------------------------- - */ - -#define VirtualEvent (MappingNotify + 1) -#define ActivateNotify (MappingNotify + 2) -#define DeactivateNotify (MappingNotify + 3) -#define MouseWheelEvent (MappingNotify + 4) -#define TK_LASTEVENT (MappingNotify + 5) - -#define MouseWheelMask (1L << 28) -#define ActivateMask (1L << 29) -#define VirtualEventMask (1L << 30) - -/* - * A virtual event shares most of its fields with the XKeyEvent and - * XButtonEvent structures. 99% of the time a virtual event will be an - * abstraction of a key or button event, so this structure provides the most - * information to the user. The only difference is the changing of the detail - * field for a virtual event so that it holds the name of the virtual event - * being triggered. - * - * When using this structure, you should ensure that you zero out all the - * fields first using memset() or bzero(). - */ - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window event; /* Window on which event was requested. */ - Window root; /* Root window that the event occured on. */ - Window subwindow; /* Child window. */ - Time time; /* Milliseconds. */ - int x, y; /* Pointer x, y coordinates in event - * window. */ - int x_root, y_root; /* Coordinates relative to root. */ - unsigned int state; /* Key or button mask */ - Tk_Uid name; /* Name of virtual event. */ - Bool same_screen; /* Same screen flag. */ - Tcl_Obj *user_data; /* Application-specific data reference; Tk - * will decrement the reference count *once* - * when it has finished processing the - * event. */ -} XVirtualEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window window; /* Window in which event occurred. */ -} XActivateDeactivateEvent; -typedef XActivateDeactivateEvent XActivateEvent; -typedef XActivateDeactivateEvent XDeactivateEvent; - -/* - *---------------------------------------------------------------------- - * - * Macros for querying Tk_Window structures. See the manual entries for - * documentation. - * - *---------------------------------------------------------------------- - */ - -#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) -#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) -#define Tk_Screen(tkwin) \ - (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) -#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) -#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) -#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) -#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) -#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) -#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) -#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) -#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) -#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) -#define Tk_Height(tkwin) \ - (((Tk_FakeWin *) (tkwin))->changes.height) -#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) -#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) -#define Tk_IsEmbedded(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) -#define Tk_IsContainer(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) -#define Tk_IsMapped(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) -#define Tk_IsTopLevel(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) -#define Tk_HasWrapper(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) -#define Tk_WinManaged(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) -#define Tk_TopWinHierarchy(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) -#define Tk_IsManageable(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WM_MANAGEABLE) -#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) -#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) -/* Tk_InternalBorderWidth is deprecated */ -#define Tk_InternalBorderWidth(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderLeft(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderRight(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderRight) -#define Tk_InternalBorderTop(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderTop) -#define Tk_InternalBorderBottom(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderBottom) -#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) -#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) -#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) -#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) - -/* - * The structure below is needed by the macros above so that they can access - * the fields of a Tk_Window. The fields not needed by the macros are declared - * as "dummyX". The structure has its own type in order to prevent apps from - * accessing Tk_Window fields except using official macros. WARNING!! The - * structure definition must be kept consistent with the TkWindow structure in - * tkInt.h. If you change one, then change the other. See the declaration in - * tkInt.h for documentation on what the fields are used for internally. - */ - -typedef struct Tk_FakeWin { - Display *display; - char *dummy1; /* dispPtr */ - int screenNum; - Visual *visual; - int depth; - Window window; - char *dummy2; /* childList */ - char *dummy3; /* lastChildPtr */ - Tk_Window parentPtr; /* parentPtr */ - char *dummy4; /* nextPtr */ - char *dummy5; /* mainPtr */ - char *pathName; - Tk_Uid nameUid; - Tk_Uid classUid; - XWindowChanges changes; - unsigned int dummy6; /* dirtyChanges */ - XSetWindowAttributes atts; - unsigned long dummy7; /* dirtyAtts */ - unsigned int flags; - char *dummy8; /* handlerList */ -#ifdef TK_USE_INPUT_METHODS - XIC dummy9; /* inputContext */ -#endif /* TK_USE_INPUT_METHODS */ - ClientData *dummy10; /* tagPtr */ - int dummy11; /* numTags */ - int dummy12; /* optionLevel */ - char *dummy13; /* selHandlerList */ - char *dummy14; /* geomMgrPtr */ - ClientData dummy15; /* geomData */ - int reqWidth, reqHeight; - int internalBorderLeft; - char *dummy16; /* wmInfoPtr */ - char *dummy17; /* classProcPtr */ - ClientData dummy18; /* instanceData */ - char *dummy19; /* privatePtr */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - int minReqWidth; - int minReqHeight; -} Tk_FakeWin; - -/* - * Flag values for TkWindow (and Tk_FakeWin) structures are: - * - * TK_MAPPED: 1 means window is currently mapped, - * 0 means unmapped. - * TK_TOP_LEVEL: 1 means this is a top-level widget. - * TK_ALREADY_DEAD: 1 means the window is in the process of - * being destroyed already. - * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured - * before it was made to exist. At the time of - * making it exist a ConfigureNotify event needs - * to be generated. - * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details - * TK_CHECKED_IC: 1 means we've already tried to get an input - * context for this window; if the ic field is - * NULL it means that there isn't a context for - * the field. - * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not - * invoke XDestroyWindow to destroy this widget's - * X window. The flag is set when the window has - * already been destroyed elsewhere (e.g. by - * another application) or when it will be - * destroyed later (e.g. by destroying its parent) - * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time - * appeared in the WM_COLORMAP_WINDOWS property - * for its toplevel, so we have to remove it from - * that property if the window is deleted and the - * toplevel isn't. - * TK_EMBEDDED: 1 means that this window (which must be a - * toplevel) is not a free-standing window but - * rather is embedded in some other application. - * TK_CONTAINER: 1 means that this window is a container, and - * that some other application (either in this - * process or elsewhere) may be embedding itself - * inside the window. - * TK_BOTH_HALVES: 1 means that this window is used for - * application embedding (either as container or - * embedded application), and both the containing - * and embedded halves are associated with - * windows in this particular process. - * TK_DEFER_MODAL: 1 means that this window has deferred a modal - * loop until all of the bindings for the current - * event have been invoked. - * TK_WRAPPER: 1 means that this window is the extra wrapper - * window created around a toplevel to hold the - * menubar under Unix. See tkUnixWm.c for more - * information. - * TK_REPARENTED: 1 means that this window has been reparented - * so that as far as the window system is - * concerned it isn't a child of its Tk parent. - * Initially this is used only for special Unix - * menubar windows. - * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is - * thus not accessible from Tk. - * TK_HAS_WRAPPER 1 means that this window has a wrapper window - * TK_WIN_MANAGED 1 means that this window is a child of the root - * window, and is managed by the window manager. - * TK_TOP_HIERARCHY 1 means this window is at the top of a physical - * window hierarchy within this process, i.e. the - * window's parent either doesn't exist or is not - * owned by this Tk application. - * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the - * window's children should propagate up to this - * window. - * TK_WM_MANAGEABLE 1 marks a window as capable of being converted - * into a toplevel using [wm manage]. - */ - -#define TK_MAPPED 1 -#define TK_TOP_LEVEL 2 -#define TK_ALREADY_DEAD 4 -#define TK_NEED_CONFIG_NOTIFY 8 -#define TK_GRAB_FLAG 0x10 -#define TK_CHECKED_IC 0x20 -#define TK_DONT_DESTROY_WINDOW 0x40 -#define TK_WM_COLORMAP_WINDOW 0x80 -#define TK_EMBEDDED 0x100 -#define TK_CONTAINER 0x200 -#define TK_BOTH_HALVES 0x400 -#define TK_DEFER_MODAL 0x800 -#define TK_WRAPPER 0x1000 -#define TK_REPARENTED 0x2000 -#define TK_ANONYMOUS_WINDOW 0x4000 -#define TK_HAS_WRAPPER 0x8000 -#define TK_WIN_MANAGED 0x10000 -#define TK_TOP_HIERARCHY 0x20000 -#define TK_PROP_PROPCHANGE 0x40000 -#define TK_WM_MANAGEABLE 0x80000 - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for defining new canvas items: - * - *---------------------------------------------------------------------- - */ - -typedef enum { - TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, - TK_STATE_NORMAL, TK_STATE_HIDDEN -} Tk_State; - -typedef struct Tk_SmoothMethod { - char *name; - int (*coordProc) _ANSI_ARGS_((Tk_Canvas canvas, - double *pointPtr, int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[])); - void (*postscriptProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *coordPtr, - int numPoints, int numSteps)); -} Tk_SmoothMethod; - -/* - * For each item in a canvas widget there exists one record with the following - * structure. Each actual item is represented by a record with the following - * stuff at its beginning, plus additional type-specific stuff after that. - */ - -#define TK_TAG_SPACE 3 - -typedef struct Tk_Item { - int id; /* Unique identifier for this item (also - * serves as first tag for item). */ - struct Tk_Item *nextPtr; /* Next in display list of all items in this - * canvas. Later items in list are drawn on - * top of earlier ones. */ - Tk_Uid staticTagSpace[TK_TAG_SPACE]; - /* Built-in space for limited # of tags. */ - Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to - * staticTagSpace, but may point to malloc-ed - * space if there are lots of tags. */ - int tagSpace; /* Total amount of tag space available at - * tagPtr. */ - int numTags; /* Number of tag slots actually used at - * *tagPtr. */ - struct Tk_ItemType *typePtr;/* Table of procedures that implement this - * type of item. */ - int x1, y1, x2, y2; /* Bounding box for item, in integer canvas - * units. Set by item-specific code and - * guaranteed to contain every pixel drawn in - * item. Item area includes x1 and y1 but not - * x2 and y2. */ - struct Tk_Item *prevPtr; /* Previous in display list of all items in - * this canvas. Later items in list are drawn - * just below earlier ones. */ - Tk_State state; /* State of item. */ - char *reserved1; /* reserved for future use */ - int redraw_flags; /* Some flags used in the canvas */ - - /* - *------------------------------------------------------------------ - * Starting here is additional type-specific stuff; see the declarations - * for individual types to see what is part of each type. The actual space - * below is determined by the "itemInfoSize" of the type's Tk_ItemType - * record. - *------------------------------------------------------------------ - */ -} Tk_Item; - -/* - * Flag bits for canvases (redraw_flags): - * - * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the - * canvas state changes. - * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been - * prepared, so the general canvas code doesn't - * need to do that any more. - */ - -#define TK_ITEM_STATE_DEPENDANT 1 -#define TK_ITEM_DONT_REDRAW 2 - -/* - * Records of the following type are used to describe a type of item (e.g. - * lines, circles, etc.) that can form part of a canvas widget. - */ - -#ifdef USE_OLD_CANVAS -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv)); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv, int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv)); -#else -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const objv[])); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const objv[], int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const argv[])); -#endif -typedef void Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display)); -typedef void Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display, Drawable dst, - int x, int y, int width, int height)); -typedef double Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *pointPtr)); -typedef int Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *rectPtr)); -typedef int Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int prepass)); -typedef void Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double originX, double originY, - double scaleX, double scaleY)); -typedef void Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double deltaX, double deltaY)); -typedef int Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, char *indexString, - int *indexPtr)); -typedef void Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int index)); -typedef int Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int offset, char *buffer, - int maxBytes)); -typedef void Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int beforeThis, char *string)); -typedef void Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int first, int last)); - -#ifndef __NO_OLD_CONFIG - -typedef struct Tk_ItemType { - char *name; /* The name of this type of item, such as - * "line". */ - int itemSize; /* Total amount of space needed for item's - * record. */ - Tk_ItemCreateProc *createProc; - /* Procedure to create a new item of this - * type. */ - Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for - * this type. Used for returning configuration - * info. */ - Tk_ItemConfigureProc *configProc; - /* Procedure to call to change configuration - * options. */ - Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's - * coordinates. */ - Tk_ItemDeleteProc *deleteProc; - /* Procedure to delete existing item of this - * type. */ - Tk_ItemDisplayProc *displayProc; - /* Procedure to display items of this type. */ - int alwaysRedraw; /* Non-zero means displayProc should be called - * even when the item has been moved - * off-screen. */ - Tk_ItemPointProc *pointProc;/* Computes distance from item to a given - * point. */ - Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, - * or overlapping an area. */ - Tk_ItemPostscriptProc *postscriptProc; - /* Procedure to write a Postscript description - * for items of this type. */ - Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ - Tk_ItemTranslateProc *translateProc; - /* Procedure to translate items of this - * type. */ - Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated - * character. NULL if item doesn't support - * indexing. */ - Tk_ItemCursorProc *icursorProc; - /* Procedure to set insert cursor posn to just - * before a given position. */ - Tk_ItemSelectionProc *selectionProc; - /* Procedure to return selection (in STRING - * format) when it is in this item. */ - Tk_ItemInsertProc *insertProc; - /* Procedure to insert something into an - * item. */ - Tk_ItemDCharsProc *dCharsProc; - /* Procedure to delete characters from an - * item. */ - struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ - char *reserved1; /* Reserved for future extension. */ - int reserved2; /* Carefully compatible with */ - char *reserved3; /* Jan Nijtmans dash patch */ - char *reserved4; -} Tk_ItemType; - -#endif - -/* - * The following structure provides information about the selection and the - * insertion cursor. It is needed by only a few items, such as those that - * display text. It is shared by the generic canvas code and the item-specific - * code, but most of the fields should be written only by the canvas generic - * code. - */ - -typedef struct Tk_CanvasTextInfo { - Tk_3DBorder selBorder; /* Border and background for selected - * characters. Read-only to items.*/ - int selBorderWidth; /* Width of border around selection. Read-only - * to items. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * Read-only to items. */ - Tk_Item *selItemPtr; /* Pointer to selected item. NULL means - * selection isn't in this canvas. Writable by - * items. */ - int selectFirst; /* Character index of first selected - * character. Writable by items. */ - int selectLast; /* Character index of last selected character. - * Writable by items. */ - Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not - * necessarily selItemPtr. Read-only to - * items. */ - int selectAnchor; /* Character index of fixed end of selection - * (i.e. "select to" operation will use this - * as one end of the selection). Writable by - * items. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. Read-only to items. */ - int insertWidth; /* Total width of insertion cursor. Read-only - * to items. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. - * Read-only to items. */ - Tk_Item *focusItemPtr; /* Item that currently has the input focus, or - * NULL if no such item. Read-only to items. */ - int gotFocus; /* Non-zero means that the canvas widget has - * the input focus. Read-only to items.*/ - int cursorOn; /* Non-zero means that an insertion cursor - * should be displayed in focusItemPtr. - * Read-only to items.*/ -} Tk_CanvasTextInfo; - -/* - * Structures used for Dashing and Outline. - */ - -typedef struct Tk_Dash { - int number; - union { - char *pt; - char array[sizeof(char *)]; - } pattern; -} Tk_Dash; - -typedef struct Tk_TSOffset { - int flags; /* Flags; see below for possible values */ - int xoffset; /* x offset */ - int yoffset; /* y offset */ -} Tk_TSOffset; - -/* - * Bit fields in Tk_Offset->flags: - */ - -#define TK_OFFSET_INDEX 1 -#define TK_OFFSET_RELATIVE 2 -#define TK_OFFSET_LEFT 4 -#define TK_OFFSET_CENTER 8 -#define TK_OFFSET_RIGHT 16 -#define TK_OFFSET_TOP 32 -#define TK_OFFSET_MIDDLE 64 -#define TK_OFFSET_BOTTOM 128 - -typedef struct Tk_Outline { - GC gc; /* Graphics context. */ - double width; /* Width of outline. */ - double activeWidth; /* Width of outline. */ - double disabledWidth; /* Width of outline. */ - int offset; /* Dash offset. */ - Tk_Dash dash; /* Dash pattern. */ - Tk_Dash activeDash; /* Dash pattern if state is active. */ - Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ - VOID *reserved1; /* Reserved for future expansion. */ - VOID *reserved2; - VOID *reserved3; - Tk_TSOffset tsoffset; /* Stipple offset for outline. */ - XColor *color; /* Outline color. */ - XColor *activeColor; /* Outline color if state is active. */ - XColor *disabledColor; /* Outline color if state is disabled. */ - Pixmap stipple; /* Outline Stipple pattern. */ - Pixmap activeStipple; /* Outline Stipple pattern if state is - * active. */ - Pixmap disabledStipple; /* Outline Stipple pattern if state is - * disabled. */ -} Tk_Outline; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing images: - * - *---------------------------------------------------------------------- - */ - -typedef struct Tk_ImageType Tk_ImageType; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int argc, char **argv, Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#else -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int objc, Tcl_Obj *const objv[], Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#endif -typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin, - ClientData masterData)); -typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData, - Display *display, Drawable drawable, int imageX, int imageY, - int width, int height, int drawableX, int drawableY)); -typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData, - Display *display)); -typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData)); -typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData, - int x, int y, int width, int height, int imageWidth, - int imageHeight)); -typedef int (Tk_ImagePostscriptProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, - int x, int y, int width, int height, int prepass)); - -/* - * The following structure represents a particular type of image (bitmap, xpm - * image, etc.). It provides information common to all images of that type, - * such as the type name and a collection of procedures in the image manager - * that respond to various events. Each image manager is represented by one of - * these structures. - */ - -struct Tk_ImageType { - char *name; /* Name of image type. */ - Tk_ImageCreateProc *createProc; - /* Procedure to call to create a new image of - * this type. */ - Tk_ImageGetProc *getProc; /* Procedure to call the first time - * Tk_GetImage is called in a new way (new - * visual or screen). */ - Tk_ImageDisplayProc *displayProc; - /* Call to draw image, in response to - * Tk_RedrawImage calls. */ - Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is - * called to release an instance of an - * image. */ - Tk_ImageDeleteProc *deleteProc; - /* Procedure to call to delete image. It will - * not be called until after freeProc has been - * called for each instance of the image. */ - Tk_ImagePostscriptProc *postscriptProc; - /* Procedure to call to produce postscript - * output for the image. */ - struct Tk_ImageType *nextPtr; - /* Next in list of all image types currently - * known. Filled in by Tk, not by image - * manager. */ - char *reserved; /* reserved for future expansion */ -}; - -/* - *---------------------------------------------------------------------- - * - * Additional definitions used to manage images of type "photo". - * - *---------------------------------------------------------------------- - */ - -/* - * The following type is used to identify a particular photo image to be - * manipulated: - */ - -typedef void *Tk_PhotoHandle; - -/* - * The following structure describes a block of pixels in memory: - */ - -typedef struct Tk_PhotoImageBlock { - unsigned char *pixelPtr; /* Pointer to the first pixel. */ - int width; /* Width of block, in pixels. */ - int height; /* Height of block, in pixels. */ - int pitch; /* Address difference between corresponding - * pixels in successive lines. */ - int pixelSize; /* Address difference between successive - * pixels in the same line. */ - int offset[4]; /* Address differences between the red, green, - * blue and alpha components of the pixel and - * the pixel as a whole. */ -} Tk_PhotoImageBlock; - -/* - * The following values control how blocks are combined into photo images when - * the alpha component of a pixel is not 255, a.k.a. the compositing rule. - */ - -#define TK_PHOTO_COMPOSITE_OVERLAY 0 -#define TK_PHOTO_COMPOSITE_SET 1 - -/* - * Procedure prototypes and structures used in reading and writing photo - * images: - */ - -typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - char *fileName, char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string, - char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, char *fileName, char *formatString, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *string, char *formatString, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_DString *dataPtr, char *formatString, - Tk_PhotoImageBlock *blockPtr)); -#else -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, int *widthPtr, - int *heightPtr, Tcl_Interp *interp)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((Tcl_Obj *dataObj, - Tcl_Obj *format, int *widthPtr, int *heightPtr, - Tcl_Interp *interp)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, const char *fileName, Tcl_Obj *format, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *dataObj, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - const char *fileName, Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -#endif - -/* - * The following structure represents a particular file format for storing - * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image - * files of that format to be recognized and read into a photo image. - */ - -struct Tk_PhotoImageFormat { - char *name; /* Name of image file format */ - Tk_ImageFileMatchProc *fileMatchProc; - /* Procedure to call to determine whether an - * image file matches this format. */ - Tk_ImageStringMatchProc *stringMatchProc; - /* Procedure to call to determine whether the - * data in a string matches this format. */ - Tk_ImageFileReadProc *fileReadProc; - /* Procedure to call to read data from an - * image file into a photo image. */ - Tk_ImageStringReadProc *stringReadProc; - /* Procedure to call to read data from a - * string into a photo image. */ - Tk_ImageFileWriteProc *fileWriteProc; - /* Procedure to call to write data from a - * photo image to a file. */ - Tk_ImageStringWriteProc *stringWriteProc; - /* Procedure to call to obtain a string - * representation of the data in a photo - * image.*/ - struct Tk_PhotoImageFormat *nextPtr; - /* Next in list of all photo image formats - * currently known. Filled in by Tk, not by - * image format handler. */ -}; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing styles: - * - *---------------------------------------------------------------------- - */ - -/* - * Style support version tag. - */ - -#define TK_STYLE_VERSION_1 0x1 -#define TK_STYLE_VERSION TK_STYLE_VERSION_1 - -/* - * The following structures and prototypes are used as static templates to - * declare widget elements. - */ - -typedef void (Tk_GetElementSizeProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int width, int height, int inner, int *widthPtr, int *heightPtr)); -typedef void (Tk_GetElementBoxProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr)); -typedef int (Tk_GetElementBorderWidthProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin)); -typedef void (Tk_DrawElementProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - Drawable d, int x, int y, int width, int height, int state)); - -typedef struct Tk_ElementOptionSpec { - char *name; /* Name of the required option. */ - Tk_OptionType type; /* Accepted option type. TK_OPTION_END means - * any. */ -} Tk_ElementOptionSpec; - -typedef struct Tk_ElementSpec { - int version; /* Version of the style support. */ - char *name; /* Name of element. */ - Tk_ElementOptionSpec *options; - /* List of required options. Last one's name - * must be NULL. */ - Tk_GetElementSizeProc *getSize; - /* Compute the external (resp. internal) size - * of the element from its desired internal - * (resp. external) size. */ - Tk_GetElementBoxProc *getBox; - /* Compute the inscribed or bounding boxes - * within a given area. */ - Tk_GetElementBorderWidthProc *getBorderWidth; - /* Return the element's internal border width. - * Mostly useful for widgets. */ - Tk_DrawElementProc *draw; /* Draw the element in the given bounding - * box. */ -} Tk_ElementSpec; - -/* - * Element state flags. Can be OR'ed. - */ - -#define TK_ELEMENT_STATE_ACTIVE 1<<0 -#define TK_ELEMENT_STATE_DISABLED 1<<1 -#define TK_ELEMENT_STATE_FOCUS 1<<2 -#define TK_ELEMENT_STATE_PRESSED 1<<3 - -/* - *---------------------------------------------------------------------- - * - * The definitions below provide backward compatibility for functions and - * types related to event handling that used to be in Tk but have moved to - * Tcl. - * - *---------------------------------------------------------------------- - */ - -#define TK_READABLE TCL_READABLE -#define TK_WRITABLE TCL_WRITABLE -#define TK_EXCEPTION TCL_EXCEPTION - -#define TK_DONT_WAIT TCL_DONT_WAIT -#define TK_X_EVENTS TCL_WINDOW_EVENTS -#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS -#define TK_FILE_EVENTS TCL_FILE_EVENTS -#define TK_TIMER_EVENTS TCL_TIMER_EVENTS -#define TK_IDLE_EVENTS TCL_IDLE_EVENTS -#define TK_ALL_EVENTS TCL_ALL_EVENTS - -#define Tk_IdleProc Tcl_IdleProc -#define Tk_FileProc Tcl_FileProc -#define Tk_TimerProc Tcl_TimerProc -#define Tk_TimerToken Tcl_TimerToken - -#define Tk_BackgroundError Tcl_BackgroundError -#define Tk_CancelIdleCall Tcl_CancelIdleCall -#define Tk_CreateFileHandler Tcl_CreateFileHandler -#define Tk_CreateTimerHandler Tcl_CreateTimerHandler -#define Tk_DeleteFileHandler Tcl_DeleteFileHandler -#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler -#define Tk_DoOneEvent Tcl_DoOneEvent -#define Tk_DoWhenIdle Tcl_DoWhenIdle -#define Tk_Sleep Tcl_Sleep - -/* Additional stuff that has moved to Tcl: */ - -#define Tk_EventuallyFree Tcl_EventuallyFree -#define Tk_FreeProc Tcl_FreeProc -#define Tk_Preserve Tcl_Preserve -#define Tk_Release Tcl_Release - -/* Removed Tk_Main, use macro instead */ -#if TCL_MINOR_VERSION > 5 -#if defined(_WIN32) || defined(__CYGWIN__) -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(0), (Tcl_CreateInterp)())) -#else -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) -#endif -#else -#define Tk_Main(argc, argv, proc) \ - Tk_MainEx(argc, argv, proc, (Tcl_CreateInterp)()) -#endif - -const char * Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - const char *version, int exact)); -EXTERN const char * Tk_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, - const char *version, int exact)); - -#ifndef USE_TK_STUBS -#define Tk_InitStubs(interp, version, exact) \ - Tk_PkgInitStubsCheck(interp, version, exact) -#endif /* USE_TK_STUBS */ - -#define Tk_InitImageArgs(interp, argc, argv) /**/ - -/* - *---------------------------------------------------------------------- - * - * Additional procedure types defined by Tk. - * - *---------------------------------------------------------------------- - */ - -typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, - XErrorEvent *errEventPtr)); -typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_ClientMessageProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); -typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, char *portion)); -typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); -typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( - ClientData clientData, XEvent *eventPtr)); -typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, - int offset, char *buffer, int maxBytes)); - -/* - *---------------------------------------------------------------------- - * - * Platform independent exported procedures and variables. - * - *---------------------------------------------------------------------- - */ - -#include "tkDecls.h" - -#ifdef USE_OLD_IMAGE -#undef Tk_CreateImageType -#define Tk_CreateImageType Tk_CreateOldImageType -#undef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat -#endif /* USE_OLD_IMAGE */ - -/* - *---------------------------------------------------------------------- - * - * Allow users to say that they don't want to alter their source to add extra - * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. - * - * This goes after the inclusion of the stubbed-decls so that the declarations - * of what is actually there can be correct. - */ - -#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite -# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE -#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic -# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ -#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoExpand -# undef Tk_PhotoExpand -# endif -# define Tk_PhotoExpand Tk_PhotoExpand_Panic -# ifdef Tk_PhotoSetSize -# undef Tk_PhotoSetSize -# endif -# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic -#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TK */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkDecls.h deleted file mode 100644 index 00a3dde61..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkDecls.h +++ /dev/null @@ -1,3095 +0,0 @@ -/* - * tkDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKDECLS -#define _TKDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef Tk_MainLoop_TCL_DECLARED -#define Tk_MainLoop_TCL_DECLARED -/* 0 */ -EXTERN void Tk_MainLoop(void); -#endif -#ifndef Tk_3DBorderColor_TCL_DECLARED -#define Tk_3DBorderColor_TCL_DECLARED -/* 1 */ -EXTERN XColor * Tk_3DBorderColor(Tk_3DBorder border); -#endif -#ifndef Tk_3DBorderGC_TCL_DECLARED -#define Tk_3DBorderGC_TCL_DECLARED -/* 2 */ -EXTERN GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border, - int which); -#endif -#ifndef Tk_3DHorizontalBevel_TCL_DECLARED -#define Tk_3DHorizontalBevel_TCL_DECLARED -/* 3 */ -EXTERN void Tk_3DHorizontalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief); -#endif -#ifndef Tk_3DVerticalBevel_TCL_DECLARED -#define Tk_3DVerticalBevel_TCL_DECLARED -/* 4 */ -EXTERN void Tk_3DVerticalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief); -#endif -#ifndef Tk_AddOption_TCL_DECLARED -#define Tk_AddOption_TCL_DECLARED -/* 5 */ -EXTERN void Tk_AddOption(Tk_Window tkwin, CONST char *name, - CONST char *value, int priority); -#endif -#ifndef Tk_BindEvent_TCL_DECLARED -#define Tk_BindEvent_TCL_DECLARED -/* 6 */ -EXTERN void Tk_BindEvent(Tk_BindingTable bindingTable, - XEvent *eventPtr, Tk_Window tkwin, - int numObjects, ClientData *objectPtr); -#endif -#ifndef Tk_CanvasDrawableCoords_TCL_DECLARED -#define Tk_CanvasDrawableCoords_TCL_DECLARED -/* 7 */ -EXTERN void Tk_CanvasDrawableCoords(Tk_Canvas canvas, double x, - double y, short *drawableXPtr, - short *drawableYPtr); -#endif -#ifndef Tk_CanvasEventuallyRedraw_TCL_DECLARED -#define Tk_CanvasEventuallyRedraw_TCL_DECLARED -/* 8 */ -EXTERN void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, - int y1, int x2, int y2); -#endif -#ifndef Tk_CanvasGetCoord_TCL_DECLARED -#define Tk_CanvasGetCoord_TCL_DECLARED -/* 9 */ -EXTERN int Tk_CanvasGetCoord(Tcl_Interp *interp, - Tk_Canvas canvas, CONST char *str, - double *doublePtr); -#endif -#ifndef Tk_CanvasGetTextInfo_TCL_DECLARED -#define Tk_CanvasGetTextInfo_TCL_DECLARED -/* 10 */ -EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo(Tk_Canvas canvas); -#endif -#ifndef Tk_CanvasPsBitmap_TCL_DECLARED -#define Tk_CanvasPsBitmap_TCL_DECLARED -/* 11 */ -EXTERN int Tk_CanvasPsBitmap(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap, int x, - int y, int width, int height); -#endif -#ifndef Tk_CanvasPsColor_TCL_DECLARED -#define Tk_CanvasPsColor_TCL_DECLARED -/* 12 */ -EXTERN int Tk_CanvasPsColor(Tcl_Interp *interp, - Tk_Canvas canvas, XColor *colorPtr); -#endif -#ifndef Tk_CanvasPsFont_TCL_DECLARED -#define Tk_CanvasPsFont_TCL_DECLARED -/* 13 */ -EXTERN int Tk_CanvasPsFont(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Font font); -#endif -#ifndef Tk_CanvasPsPath_TCL_DECLARED -#define Tk_CanvasPsPath_TCL_DECLARED -/* 14 */ -EXTERN void Tk_CanvasPsPath(Tcl_Interp *interp, Tk_Canvas canvas, - double *coordPtr, int numPoints); -#endif -#ifndef Tk_CanvasPsStipple_TCL_DECLARED -#define Tk_CanvasPsStipple_TCL_DECLARED -/* 15 */ -EXTERN int Tk_CanvasPsStipple(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap); -#endif -#ifndef Tk_CanvasPsY_TCL_DECLARED -#define Tk_CanvasPsY_TCL_DECLARED -/* 16 */ -EXTERN double Tk_CanvasPsY(Tk_Canvas canvas, double y); -#endif -#ifndef Tk_CanvasSetStippleOrigin_TCL_DECLARED -#define Tk_CanvasSetStippleOrigin_TCL_DECLARED -/* 17 */ -EXTERN void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc); -#endif -#ifndef Tk_CanvasTagsParseProc_TCL_DECLARED -#define Tk_CanvasTagsParseProc_TCL_DECLARED -/* 18 */ -EXTERN int Tk_CanvasTagsParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef Tk_CanvasTagsPrintProc_TCL_DECLARED -#define Tk_CanvasTagsPrintProc_TCL_DECLARED -/* 19 */ -EXTERN char * Tk_CanvasTagsPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef Tk_CanvasTkwin_TCL_DECLARED -#define Tk_CanvasTkwin_TCL_DECLARED -/* 20 */ -EXTERN Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas); -#endif -#ifndef Tk_CanvasWindowCoords_TCL_DECLARED -#define Tk_CanvasWindowCoords_TCL_DECLARED -/* 21 */ -EXTERN void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, - double y, short *screenXPtr, - short *screenYPtr); -#endif -#ifndef Tk_ChangeWindowAttributes_TCL_DECLARED -#define Tk_ChangeWindowAttributes_TCL_DECLARED -/* 22 */ -EXTERN void Tk_ChangeWindowAttributes(Tk_Window tkwin, - unsigned long valueMask, - XSetWindowAttributes *attsPtr); -#endif -#ifndef Tk_CharBbox_TCL_DECLARED -#define Tk_CharBbox_TCL_DECLARED -/* 23 */ -EXTERN int Tk_CharBbox(Tk_TextLayout layout, int index, - int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_ClearSelection_TCL_DECLARED -#define Tk_ClearSelection_TCL_DECLARED -/* 24 */ -EXTERN void Tk_ClearSelection(Tk_Window tkwin, Atom selection); -#endif -#ifndef Tk_ClipboardAppend_TCL_DECLARED -#define Tk_ClipboardAppend_TCL_DECLARED -/* 25 */ -EXTERN int Tk_ClipboardAppend(Tcl_Interp *interp, - Tk_Window tkwin, Atom target, Atom format, - char *buffer); -#endif -#ifndef Tk_ClipboardClear_TCL_DECLARED -#define Tk_ClipboardClear_TCL_DECLARED -/* 26 */ -EXTERN int Tk_ClipboardClear(Tcl_Interp *interp, - Tk_Window tkwin); -#endif -#ifndef Tk_ConfigureInfo_TCL_DECLARED -#define Tk_ConfigureInfo_TCL_DECLARED -/* 27 */ -EXTERN int Tk_ConfigureInfo(Tcl_Interp *interp, Tk_Window tkwin, - Tk_ConfigSpec *specs, char *widgRec, - CONST char *argvName, int flags); -#endif -#ifndef Tk_ConfigureValue_TCL_DECLARED -#define Tk_ConfigureValue_TCL_DECLARED -/* 28 */ -EXTERN int Tk_ConfigureValue(Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - char *widgRec, CONST char *argvName, - int flags); -#endif -#ifndef Tk_ConfigureWidget_TCL_DECLARED -#define Tk_ConfigureWidget_TCL_DECLARED -/* 29 */ -EXTERN int Tk_ConfigureWidget(Tcl_Interp *interp, - Tk_Window tkwin, Tk_ConfigSpec *specs, - int argc, CONST84 char **argv, char *widgRec, - int flags); -#endif -#ifndef Tk_ConfigureWindow_TCL_DECLARED -#define Tk_ConfigureWindow_TCL_DECLARED -/* 30 */ -EXTERN void Tk_ConfigureWindow(Tk_Window tkwin, - unsigned int valueMask, - XWindowChanges *valuePtr); -#endif -#ifndef Tk_ComputeTextLayout_TCL_DECLARED -#define Tk_ComputeTextLayout_TCL_DECLARED -/* 31 */ -EXTERN Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font, CONST char *str, - int numChars, int wrapLength, - Tk_Justify justify, int flags, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_CoordsToWindow_TCL_DECLARED -#define Tk_CoordsToWindow_TCL_DECLARED -/* 32 */ -EXTERN Tk_Window Tk_CoordsToWindow(int rootX, int rootY, - Tk_Window tkwin); -#endif -#ifndef Tk_CreateBinding_TCL_DECLARED -#define Tk_CreateBinding_TCL_DECLARED -/* 33 */ -EXTERN unsigned long Tk_CreateBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventStr, - CONST char *command, int append); -#endif -#ifndef Tk_CreateBindingTable_TCL_DECLARED -#define Tk_CreateBindingTable_TCL_DECLARED -/* 34 */ -EXTERN Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp); -#endif -#ifndef Tk_CreateErrorHandler_TCL_DECLARED -#define Tk_CreateErrorHandler_TCL_DECLARED -/* 35 */ -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler(Display *display, int errNum, - int request, int minorCode, - Tk_ErrorProc *errorProc, - ClientData clientData); -#endif -#ifndef Tk_CreateEventHandler_TCL_DECLARED -#define Tk_CreateEventHandler_TCL_DECLARED -/* 36 */ -EXTERN void Tk_CreateEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -#endif -#ifndef Tk_CreateGenericHandler_TCL_DECLARED -#define Tk_CreateGenericHandler_TCL_DECLARED -/* 37 */ -EXTERN void Tk_CreateGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -#endif -#ifndef Tk_CreateImageType_TCL_DECLARED -#define Tk_CreateImageType_TCL_DECLARED -/* 38 */ -EXTERN void Tk_CreateImageType(Tk_ImageType *typePtr); -#endif -#ifndef Tk_CreateItemType_TCL_DECLARED -#define Tk_CreateItemType_TCL_DECLARED -/* 39 */ -EXTERN void Tk_CreateItemType(Tk_ItemType *typePtr); -#endif -#ifndef Tk_CreatePhotoImageFormat_TCL_DECLARED -#define Tk_CreatePhotoImageFormat_TCL_DECLARED -/* 40 */ -EXTERN void Tk_CreatePhotoImageFormat( - Tk_PhotoImageFormat *formatPtr); -#endif -#ifndef Tk_CreateSelHandler_TCL_DECLARED -#define Tk_CreateSelHandler_TCL_DECLARED -/* 41 */ -EXTERN void Tk_CreateSelHandler(Tk_Window tkwin, Atom selection, - Atom target, Tk_SelectionProc *proc, - ClientData clientData, Atom format); -#endif -#ifndef Tk_CreateWindow_TCL_DECLARED -#define Tk_CreateWindow_TCL_DECLARED -/* 42 */ -EXTERN Tk_Window Tk_CreateWindow(Tcl_Interp *interp, Tk_Window parent, - CONST char *name, CONST char *screenName); -#endif -#ifndef Tk_CreateWindowFromPath_TCL_DECLARED -#define Tk_CreateWindowFromPath_TCL_DECLARED -/* 43 */ -EXTERN Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *pathName, - CONST char *screenName); -#endif -#ifndef Tk_DefineBitmap_TCL_DECLARED -#define Tk_DefineBitmap_TCL_DECLARED -/* 44 */ -EXTERN int Tk_DefineBitmap(Tcl_Interp *interp, CONST char *name, - CONST char *source, int width, int height); -#endif -#ifndef Tk_DefineCursor_TCL_DECLARED -#define Tk_DefineCursor_TCL_DECLARED -/* 45 */ -EXTERN void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor); -#endif -#ifndef Tk_DeleteAllBindings_TCL_DECLARED -#define Tk_DeleteAllBindings_TCL_DECLARED -/* 46 */ -EXTERN void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, - ClientData object); -#endif -#ifndef Tk_DeleteBinding_TCL_DECLARED -#define Tk_DeleteBinding_TCL_DECLARED -/* 47 */ -EXTERN int Tk_DeleteBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventStr); -#endif -#ifndef Tk_DeleteBindingTable_TCL_DECLARED -#define Tk_DeleteBindingTable_TCL_DECLARED -/* 48 */ -EXTERN void Tk_DeleteBindingTable(Tk_BindingTable bindingTable); -#endif -#ifndef Tk_DeleteErrorHandler_TCL_DECLARED -#define Tk_DeleteErrorHandler_TCL_DECLARED -/* 49 */ -EXTERN void Tk_DeleteErrorHandler(Tk_ErrorHandler handler); -#endif -#ifndef Tk_DeleteEventHandler_TCL_DECLARED -#define Tk_DeleteEventHandler_TCL_DECLARED -/* 50 */ -EXTERN void Tk_DeleteEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -#endif -#ifndef Tk_DeleteGenericHandler_TCL_DECLARED -#define Tk_DeleteGenericHandler_TCL_DECLARED -/* 51 */ -EXTERN void Tk_DeleteGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -#endif -#ifndef Tk_DeleteImage_TCL_DECLARED -#define Tk_DeleteImage_TCL_DECLARED -/* 52 */ -EXTERN void Tk_DeleteImage(Tcl_Interp *interp, CONST char *name); -#endif -#ifndef Tk_DeleteSelHandler_TCL_DECLARED -#define Tk_DeleteSelHandler_TCL_DECLARED -/* 53 */ -EXTERN void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, - Atom target); -#endif -#ifndef Tk_DestroyWindow_TCL_DECLARED -#define Tk_DestroyWindow_TCL_DECLARED -/* 54 */ -EXTERN void Tk_DestroyWindow(Tk_Window tkwin); -#endif -#ifndef Tk_DisplayName_TCL_DECLARED -#define Tk_DisplayName_TCL_DECLARED -/* 55 */ -EXTERN CONST84_RETURN char * Tk_DisplayName(Tk_Window tkwin); -#endif -#ifndef Tk_DistanceToTextLayout_TCL_DECLARED -#define Tk_DistanceToTextLayout_TCL_DECLARED -/* 56 */ -EXTERN int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, - int y); -#endif -#ifndef Tk_Draw3DPolygon_TCL_DECLARED -#define Tk_Draw3DPolygon_TCL_DECLARED -/* 57 */ -EXTERN void Tk_Draw3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -#endif -#ifndef Tk_Draw3DRectangle_TCL_DECLARED -#define Tk_Draw3DRectangle_TCL_DECLARED -/* 58 */ -EXTERN void Tk_Draw3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -#endif -#ifndef Tk_DrawChars_TCL_DECLARED -#define Tk_DrawChars_TCL_DECLARED -/* 59 */ -EXTERN void Tk_DrawChars(Display *display, Drawable drawable, - GC gc, Tk_Font tkfont, CONST char *source, - int numBytes, int x, int y); -#endif -#ifndef Tk_DrawFocusHighlight_TCL_DECLARED -#define Tk_DrawFocusHighlight_TCL_DECLARED -/* 60 */ -EXTERN void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable); -#endif -#ifndef Tk_DrawTextLayout_TCL_DECLARED -#define Tk_DrawTextLayout_TCL_DECLARED -/* 61 */ -EXTERN void Tk_DrawTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int firstChar, int lastChar); -#endif -#ifndef Tk_Fill3DPolygon_TCL_DECLARED -#define Tk_Fill3DPolygon_TCL_DECLARED -/* 62 */ -EXTERN void Tk_Fill3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -#endif -#ifndef Tk_Fill3DRectangle_TCL_DECLARED -#define Tk_Fill3DRectangle_TCL_DECLARED -/* 63 */ -EXTERN void Tk_Fill3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -#endif -#ifndef Tk_FindPhoto_TCL_DECLARED -#define Tk_FindPhoto_TCL_DECLARED -/* 64 */ -EXTERN Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, - CONST char *imageName); -#endif -#ifndef Tk_FontId_TCL_DECLARED -#define Tk_FontId_TCL_DECLARED -/* 65 */ -EXTERN Font Tk_FontId(Tk_Font font); -#endif -#ifndef Tk_Free3DBorder_TCL_DECLARED -#define Tk_Free3DBorder_TCL_DECLARED -/* 66 */ -EXTERN void Tk_Free3DBorder(Tk_3DBorder border); -#endif -#ifndef Tk_FreeBitmap_TCL_DECLARED -#define Tk_FreeBitmap_TCL_DECLARED -/* 67 */ -EXTERN void Tk_FreeBitmap(Display *display, Pixmap bitmap); -#endif -#ifndef Tk_FreeColor_TCL_DECLARED -#define Tk_FreeColor_TCL_DECLARED -/* 68 */ -EXTERN void Tk_FreeColor(XColor *colorPtr); -#endif -#ifndef Tk_FreeColormap_TCL_DECLARED -#define Tk_FreeColormap_TCL_DECLARED -/* 69 */ -EXTERN void Tk_FreeColormap(Display *display, Colormap colormap); -#endif -#ifndef Tk_FreeCursor_TCL_DECLARED -#define Tk_FreeCursor_TCL_DECLARED -/* 70 */ -EXTERN void Tk_FreeCursor(Display *display, Tk_Cursor cursor); -#endif -#ifndef Tk_FreeFont_TCL_DECLARED -#define Tk_FreeFont_TCL_DECLARED -/* 71 */ -EXTERN void Tk_FreeFont(Tk_Font f); -#endif -#ifndef Tk_FreeGC_TCL_DECLARED -#define Tk_FreeGC_TCL_DECLARED -/* 72 */ -EXTERN void Tk_FreeGC(Display *display, GC gc); -#endif -#ifndef Tk_FreeImage_TCL_DECLARED -#define Tk_FreeImage_TCL_DECLARED -/* 73 */ -EXTERN void Tk_FreeImage(Tk_Image image); -#endif -#ifndef Tk_FreeOptions_TCL_DECLARED -#define Tk_FreeOptions_TCL_DECLARED -/* 74 */ -EXTERN void Tk_FreeOptions(Tk_ConfigSpec *specs, char *widgRec, - Display *display, int needFlags); -#endif -#ifndef Tk_FreePixmap_TCL_DECLARED -#define Tk_FreePixmap_TCL_DECLARED -/* 75 */ -EXTERN void Tk_FreePixmap(Display *display, Pixmap pixmap); -#endif -#ifndef Tk_FreeTextLayout_TCL_DECLARED -#define Tk_FreeTextLayout_TCL_DECLARED -/* 76 */ -EXTERN void Tk_FreeTextLayout(Tk_TextLayout textLayout); -#endif -#ifndef Tk_FreeXId_TCL_DECLARED -#define Tk_FreeXId_TCL_DECLARED -/* 77 */ -EXTERN void Tk_FreeXId(Display *display, XID xid); -#endif -#ifndef Tk_GCForColor_TCL_DECLARED -#define Tk_GCForColor_TCL_DECLARED -/* 78 */ -EXTERN GC Tk_GCForColor(XColor *colorPtr, Drawable drawable); -#endif -#ifndef Tk_GeometryRequest_TCL_DECLARED -#define Tk_GeometryRequest_TCL_DECLARED -/* 79 */ -EXTERN void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, - int reqHeight); -#endif -#ifndef Tk_Get3DBorder_TCL_DECLARED -#define Tk_Get3DBorder_TCL_DECLARED -/* 80 */ -EXTERN Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid colorName); -#endif -#ifndef Tk_GetAllBindings_TCL_DECLARED -#define Tk_GetAllBindings_TCL_DECLARED -/* 81 */ -EXTERN void Tk_GetAllBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object); -#endif -#ifndef Tk_GetAnchor_TCL_DECLARED -#define Tk_GetAnchor_TCL_DECLARED -/* 82 */ -EXTERN int Tk_GetAnchor(Tcl_Interp *interp, CONST char *str, - Tk_Anchor *anchorPtr); -#endif -#ifndef Tk_GetAtomName_TCL_DECLARED -#define Tk_GetAtomName_TCL_DECLARED -/* 83 */ -EXTERN CONST84_RETURN char * Tk_GetAtomName(Tk_Window tkwin, Atom atom); -#endif -#ifndef Tk_GetBinding_TCL_DECLARED -#define Tk_GetBinding_TCL_DECLARED -/* 84 */ -EXTERN CONST84_RETURN char * Tk_GetBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventStr); -#endif -#ifndef Tk_GetBitmap_TCL_DECLARED -#define Tk_GetBitmap_TCL_DECLARED -/* 85 */ -EXTERN Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str); -#endif -#ifndef Tk_GetBitmapFromData_TCL_DECLARED -#define Tk_GetBitmapFromData_TCL_DECLARED -/* 86 */ -EXTERN Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *source, - int width, int height); -#endif -#ifndef Tk_GetCapStyle_TCL_DECLARED -#define Tk_GetCapStyle_TCL_DECLARED -/* 87 */ -EXTERN int Tk_GetCapStyle(Tcl_Interp *interp, CONST char *str, - int *capPtr); -#endif -#ifndef Tk_GetColor_TCL_DECLARED -#define Tk_GetColor_TCL_DECLARED -/* 88 */ -EXTERN XColor * Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid name); -#endif -#ifndef Tk_GetColorByValue_TCL_DECLARED -#define Tk_GetColorByValue_TCL_DECLARED -/* 89 */ -EXTERN XColor * Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr); -#endif -#ifndef Tk_GetColormap_TCL_DECLARED -#define Tk_GetColormap_TCL_DECLARED -/* 90 */ -EXTERN Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str); -#endif -#ifndef Tk_GetCursor_TCL_DECLARED -#define Tk_GetCursor_TCL_DECLARED -/* 91 */ -EXTERN Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid str); -#endif -#ifndef Tk_GetCursorFromData_TCL_DECLARED -#define Tk_GetCursorFromData_TCL_DECLARED -/* 92 */ -EXTERN Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *source, - CONST char *mask, int width, int height, - int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); -#endif -#ifndef Tk_GetFont_TCL_DECLARED -#define Tk_GetFont_TCL_DECLARED -/* 93 */ -EXTERN Tk_Font Tk_GetFont(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str); -#endif -#ifndef Tk_GetFontFromObj_TCL_DECLARED -#define Tk_GetFontFromObj_TCL_DECLARED -/* 94 */ -EXTERN Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetFontMetrics_TCL_DECLARED -#define Tk_GetFontMetrics_TCL_DECLARED -/* 95 */ -EXTERN void Tk_GetFontMetrics(Tk_Font font, - Tk_FontMetrics *fmPtr); -#endif -#ifndef Tk_GetGC_TCL_DECLARED -#define Tk_GetGC_TCL_DECLARED -/* 96 */ -EXTERN GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, - XGCValues *valuePtr); -#endif -#ifndef Tk_GetImage_TCL_DECLARED -#define Tk_GetImage_TCL_DECLARED -/* 97 */ -EXTERN Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *name, - Tk_ImageChangedProc *changeProc, - ClientData clientData); -#endif -#ifndef Tk_GetImageMasterData_TCL_DECLARED -#define Tk_GetImageMasterData_TCL_DECLARED -/* 98 */ -EXTERN ClientData Tk_GetImageMasterData(Tcl_Interp *interp, - CONST char *name, Tk_ImageType **typePtrPtr); -#endif -#ifndef Tk_GetItemTypes_TCL_DECLARED -#define Tk_GetItemTypes_TCL_DECLARED -/* 99 */ -EXTERN Tk_ItemType * Tk_GetItemTypes(void); -#endif -#ifndef Tk_GetJoinStyle_TCL_DECLARED -#define Tk_GetJoinStyle_TCL_DECLARED -/* 100 */ -EXTERN int Tk_GetJoinStyle(Tcl_Interp *interp, CONST char *str, - int *joinPtr); -#endif -#ifndef Tk_GetJustify_TCL_DECLARED -#define Tk_GetJustify_TCL_DECLARED -/* 101 */ -EXTERN int Tk_GetJustify(Tcl_Interp *interp, CONST char *str, - Tk_Justify *justifyPtr); -#endif -#ifndef Tk_GetNumMainWindows_TCL_DECLARED -#define Tk_GetNumMainWindows_TCL_DECLARED -/* 102 */ -EXTERN int Tk_GetNumMainWindows(void); -#endif -#ifndef Tk_GetOption_TCL_DECLARED -#define Tk_GetOption_TCL_DECLARED -/* 103 */ -EXTERN Tk_Uid Tk_GetOption(Tk_Window tkwin, CONST char *name, - CONST char *className); -#endif -#ifndef Tk_GetPixels_TCL_DECLARED -#define Tk_GetPixels_TCL_DECLARED -/* 104 */ -EXTERN int Tk_GetPixels(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str, int *intPtr); -#endif -#ifndef Tk_GetPixmap_TCL_DECLARED -#define Tk_GetPixmap_TCL_DECLARED -/* 105 */ -EXTERN Pixmap Tk_GetPixmap(Display *display, Drawable d, int width, - int height, int depth); -#endif -#ifndef Tk_GetRelief_TCL_DECLARED -#define Tk_GetRelief_TCL_DECLARED -/* 106 */ -EXTERN int Tk_GetRelief(Tcl_Interp *interp, CONST char *name, - int *reliefPtr); -#endif -#ifndef Tk_GetRootCoords_TCL_DECLARED -#define Tk_GetRootCoords_TCL_DECLARED -/* 107 */ -EXTERN void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -#endif -#ifndef Tk_GetScrollInfo_TCL_DECLARED -#define Tk_GetScrollInfo_TCL_DECLARED -/* 108 */ -EXTERN int Tk_GetScrollInfo(Tcl_Interp *interp, int argc, - CONST84 char **argv, double *dblPtr, - int *intPtr); -#endif -#ifndef Tk_GetScreenMM_TCL_DECLARED -#define Tk_GetScreenMM_TCL_DECLARED -/* 109 */ -EXTERN int Tk_GetScreenMM(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str, double *doublePtr); -#endif -#ifndef Tk_GetSelection_TCL_DECLARED -#define Tk_GetSelection_TCL_DECLARED -/* 110 */ -EXTERN int Tk_GetSelection(Tcl_Interp *interp, Tk_Window tkwin, - Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData); -#endif -#ifndef Tk_GetUid_TCL_DECLARED -#define Tk_GetUid_TCL_DECLARED -/* 111 */ -EXTERN Tk_Uid Tk_GetUid(CONST char *str); -#endif -#ifndef Tk_GetVisual_TCL_DECLARED -#define Tk_GetVisual_TCL_DECLARED -/* 112 */ -EXTERN Visual * Tk_GetVisual(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *str, int *depthPtr, - Colormap *colormapPtr); -#endif -#ifndef Tk_GetVRootGeometry_TCL_DECLARED -#define Tk_GetVRootGeometry_TCL_DECLARED -/* 113 */ -EXTERN void Tk_GetVRootGeometry(Tk_Window tkwin, int *xPtr, - int *yPtr, int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_Grab_TCL_DECLARED -#define Tk_Grab_TCL_DECLARED -/* 114 */ -EXTERN int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, - int grabGlobal); -#endif -#ifndef Tk_HandleEvent_TCL_DECLARED -#define Tk_HandleEvent_TCL_DECLARED -/* 115 */ -EXTERN void Tk_HandleEvent(XEvent *eventPtr); -#endif -#ifndef Tk_IdToWindow_TCL_DECLARED -#define Tk_IdToWindow_TCL_DECLARED -/* 116 */ -EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window); -#endif -#ifndef Tk_ImageChanged_TCL_DECLARED -#define Tk_ImageChanged_TCL_DECLARED -/* 117 */ -EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y, - int width, int height, int imageWidth, - int imageHeight); -#endif -#ifndef Tk_Init_TCL_DECLARED -#define Tk_Init_TCL_DECLARED -/* 118 */ -EXTERN int Tk_Init(Tcl_Interp *interp); -#endif -#ifndef Tk_InternAtom_TCL_DECLARED -#define Tk_InternAtom_TCL_DECLARED -/* 119 */ -EXTERN Atom Tk_InternAtom(Tk_Window tkwin, CONST char *name); -#endif -#ifndef Tk_IntersectTextLayout_TCL_DECLARED -#define Tk_IntersectTextLayout_TCL_DECLARED -/* 120 */ -EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, - int y, int width, int height); -#endif -#ifndef Tk_MaintainGeometry_TCL_DECLARED -#define Tk_MaintainGeometry_TCL_DECLARED -/* 121 */ -EXTERN void Tk_MaintainGeometry(Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height); -#endif -#ifndef Tk_MainWindow_TCL_DECLARED -#define Tk_MainWindow_TCL_DECLARED -/* 122 */ -EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp); -#endif -#ifndef Tk_MakeWindowExist_TCL_DECLARED -#define Tk_MakeWindowExist_TCL_DECLARED -/* 123 */ -EXTERN void Tk_MakeWindowExist(Tk_Window tkwin); -#endif -#ifndef Tk_ManageGeometry_TCL_DECLARED -#define Tk_ManageGeometry_TCL_DECLARED -/* 124 */ -EXTERN void Tk_ManageGeometry(Tk_Window tkwin, - CONST Tk_GeomMgr *mgrPtr, - ClientData clientData); -#endif -#ifndef Tk_MapWindow_TCL_DECLARED -#define Tk_MapWindow_TCL_DECLARED -/* 125 */ -EXTERN void Tk_MapWindow(Tk_Window tkwin); -#endif -#ifndef Tk_MeasureChars_TCL_DECLARED -#define Tk_MeasureChars_TCL_DECLARED -/* 126 */ -EXTERN int Tk_MeasureChars(Tk_Font tkfont, CONST char *source, - int numBytes, int maxPixels, int flags, - int *lengthPtr); -#endif -#ifndef Tk_MoveResizeWindow_TCL_DECLARED -#define Tk_MoveResizeWindow_TCL_DECLARED -/* 127 */ -EXTERN void Tk_MoveResizeWindow(Tk_Window tkwin, int x, int y, - int width, int height); -#endif -#ifndef Tk_MoveWindow_TCL_DECLARED -#define Tk_MoveWindow_TCL_DECLARED -/* 128 */ -EXTERN void Tk_MoveWindow(Tk_Window tkwin, int x, int y); -#endif -#ifndef Tk_MoveToplevelWindow_TCL_DECLARED -#define Tk_MoveToplevelWindow_TCL_DECLARED -/* 129 */ -EXTERN void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y); -#endif -#ifndef Tk_NameOf3DBorder_TCL_DECLARED -#define Tk_NameOf3DBorder_TCL_DECLARED -/* 130 */ -EXTERN CONST84_RETURN char * Tk_NameOf3DBorder(Tk_3DBorder border); -#endif -#ifndef Tk_NameOfAnchor_TCL_DECLARED -#define Tk_NameOfAnchor_TCL_DECLARED -/* 131 */ -EXTERN CONST84_RETURN char * Tk_NameOfAnchor(Tk_Anchor anchor); -#endif -#ifndef Tk_NameOfBitmap_TCL_DECLARED -#define Tk_NameOfBitmap_TCL_DECLARED -/* 132 */ -EXTERN CONST84_RETURN char * Tk_NameOfBitmap(Display *display, Pixmap bitmap); -#endif -#ifndef Tk_NameOfCapStyle_TCL_DECLARED -#define Tk_NameOfCapStyle_TCL_DECLARED -/* 133 */ -EXTERN CONST84_RETURN char * Tk_NameOfCapStyle(int cap); -#endif -#ifndef Tk_NameOfColor_TCL_DECLARED -#define Tk_NameOfColor_TCL_DECLARED -/* 134 */ -EXTERN CONST84_RETURN char * Tk_NameOfColor(XColor *colorPtr); -#endif -#ifndef Tk_NameOfCursor_TCL_DECLARED -#define Tk_NameOfCursor_TCL_DECLARED -/* 135 */ -EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display, - Tk_Cursor cursor); -#endif -#ifndef Tk_NameOfFont_TCL_DECLARED -#define Tk_NameOfFont_TCL_DECLARED -/* 136 */ -EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font); -#endif -#ifndef Tk_NameOfImage_TCL_DECLARED -#define Tk_NameOfImage_TCL_DECLARED -/* 137 */ -EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster); -#endif -#ifndef Tk_NameOfJoinStyle_TCL_DECLARED -#define Tk_NameOfJoinStyle_TCL_DECLARED -/* 138 */ -EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join); -#endif -#ifndef Tk_NameOfJustify_TCL_DECLARED -#define Tk_NameOfJustify_TCL_DECLARED -/* 139 */ -EXTERN CONST84_RETURN char * Tk_NameOfJustify(Tk_Justify justify); -#endif -#ifndef Tk_NameOfRelief_TCL_DECLARED -#define Tk_NameOfRelief_TCL_DECLARED -/* 140 */ -EXTERN CONST84_RETURN char * Tk_NameOfRelief(int relief); -#endif -#ifndef Tk_NameToWindow_TCL_DECLARED -#define Tk_NameToWindow_TCL_DECLARED -/* 141 */ -EXTERN Tk_Window Tk_NameToWindow(Tcl_Interp *interp, - CONST char *pathName, Tk_Window tkwin); -#endif -#ifndef Tk_OwnSelection_TCL_DECLARED -#define Tk_OwnSelection_TCL_DECLARED -/* 142 */ -EXTERN void Tk_OwnSelection(Tk_Window tkwin, Atom selection, - Tk_LostSelProc *proc, ClientData clientData); -#endif -#ifndef Tk_ParseArgv_TCL_DECLARED -#define Tk_ParseArgv_TCL_DECLARED -/* 143 */ -EXTERN int Tk_ParseArgv(Tcl_Interp *interp, Tk_Window tkwin, - int *argcPtr, CONST84 char **argv, - Tk_ArgvInfo *argTable, int flags); -#endif -#ifndef Tk_PhotoPutBlock_NoComposite_TCL_DECLARED -#define Tk_PhotoPutBlock_NoComposite_TCL_DECLARED -/* 144 */ -EXTERN void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height); -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED -/* 145 */ -EXTERN void Tk_PhotoPutZoomedBlock_NoComposite( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY); -#endif -#ifndef Tk_PhotoGetImage_TCL_DECLARED -#define Tk_PhotoGetImage_TCL_DECLARED -/* 146 */ -EXTERN int Tk_PhotoGetImage(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr); -#endif -#ifndef Tk_PhotoBlank_TCL_DECLARED -#define Tk_PhotoBlank_TCL_DECLARED -/* 147 */ -EXTERN void Tk_PhotoBlank(Tk_PhotoHandle handle); -#endif -#ifndef Tk_PhotoExpand_Panic_TCL_DECLARED -#define Tk_PhotoExpand_Panic_TCL_DECLARED -/* 148 */ -EXTERN void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, - int width, int height); -#endif -#ifndef Tk_PhotoGetSize_TCL_DECLARED -#define Tk_PhotoGetSize_TCL_DECLARED -/* 149 */ -EXTERN void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_PhotoSetSize_Panic_TCL_DECLARED -#define Tk_PhotoSetSize_Panic_TCL_DECLARED -/* 150 */ -EXTERN void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, - int width, int height); -#endif -#ifndef Tk_PointToChar_TCL_DECLARED -#define Tk_PointToChar_TCL_DECLARED -/* 151 */ -EXTERN int Tk_PointToChar(Tk_TextLayout layout, int x, int y); -#endif -#ifndef Tk_PostscriptFontName_TCL_DECLARED -#define Tk_PostscriptFontName_TCL_DECLARED -/* 152 */ -EXTERN int Tk_PostscriptFontName(Tk_Font tkfont, - Tcl_DString *dsPtr); -#endif -#ifndef Tk_PreserveColormap_TCL_DECLARED -#define Tk_PreserveColormap_TCL_DECLARED -/* 153 */ -EXTERN void Tk_PreserveColormap(Display *display, - Colormap colormap); -#endif -#ifndef Tk_QueueWindowEvent_TCL_DECLARED -#define Tk_QueueWindowEvent_TCL_DECLARED -/* 154 */ -EXTERN void Tk_QueueWindowEvent(XEvent *eventPtr, - Tcl_QueuePosition position); -#endif -#ifndef Tk_RedrawImage_TCL_DECLARED -#define Tk_RedrawImage_TCL_DECLARED -/* 155 */ -EXTERN void Tk_RedrawImage(Tk_Image image, int imageX, - int imageY, int width, int height, - Drawable drawable, int drawableX, - int drawableY); -#endif -#ifndef Tk_ResizeWindow_TCL_DECLARED -#define Tk_ResizeWindow_TCL_DECLARED -/* 156 */ -EXTERN void Tk_ResizeWindow(Tk_Window tkwin, int width, - int height); -#endif -#ifndef Tk_RestackWindow_TCL_DECLARED -#define Tk_RestackWindow_TCL_DECLARED -/* 157 */ -EXTERN int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, - Tk_Window other); -#endif -#ifndef Tk_RestrictEvents_TCL_DECLARED -#define Tk_RestrictEvents_TCL_DECLARED -/* 158 */ -EXTERN Tk_RestrictProc * Tk_RestrictEvents(Tk_RestrictProc *proc, - ClientData arg, ClientData *prevArgPtr); -#endif -#ifndef Tk_SafeInit_TCL_DECLARED -#define Tk_SafeInit_TCL_DECLARED -/* 159 */ -EXTERN int Tk_SafeInit(Tcl_Interp *interp); -#endif -#ifndef Tk_SetAppName_TCL_DECLARED -#define Tk_SetAppName_TCL_DECLARED -/* 160 */ -EXTERN CONST char * Tk_SetAppName(Tk_Window tkwin, CONST char *name); -#endif -#ifndef Tk_SetBackgroundFromBorder_TCL_DECLARED -#define Tk_SetBackgroundFromBorder_TCL_DECLARED -/* 161 */ -EXTERN void Tk_SetBackgroundFromBorder(Tk_Window tkwin, - Tk_3DBorder border); -#endif -#ifndef Tk_SetClass_TCL_DECLARED -#define Tk_SetClass_TCL_DECLARED -/* 162 */ -EXTERN void Tk_SetClass(Tk_Window tkwin, CONST char *className); -#endif -#ifndef Tk_SetGrid_TCL_DECLARED -#define Tk_SetGrid_TCL_DECLARED -/* 163 */ -EXTERN void Tk_SetGrid(Tk_Window tkwin, int reqWidth, - int reqHeight, int gridWidth, int gridHeight); -#endif -#ifndef Tk_SetInternalBorder_TCL_DECLARED -#define Tk_SetInternalBorder_TCL_DECLARED -/* 164 */ -EXTERN void Tk_SetInternalBorder(Tk_Window tkwin, int width); -#endif -#ifndef Tk_SetWindowBackground_TCL_DECLARED -#define Tk_SetWindowBackground_TCL_DECLARED -/* 165 */ -EXTERN void Tk_SetWindowBackground(Tk_Window tkwin, - unsigned long pixel); -#endif -#ifndef Tk_SetWindowBackgroundPixmap_TCL_DECLARED -#define Tk_SetWindowBackgroundPixmap_TCL_DECLARED -/* 166 */ -EXTERN void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, - Pixmap pixmap); -#endif -#ifndef Tk_SetWindowBorder_TCL_DECLARED -#define Tk_SetWindowBorder_TCL_DECLARED -/* 167 */ -EXTERN void Tk_SetWindowBorder(Tk_Window tkwin, - unsigned long pixel); -#endif -#ifndef Tk_SetWindowBorderWidth_TCL_DECLARED -#define Tk_SetWindowBorderWidth_TCL_DECLARED -/* 168 */ -EXTERN void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width); -#endif -#ifndef Tk_SetWindowBorderPixmap_TCL_DECLARED -#define Tk_SetWindowBorderPixmap_TCL_DECLARED -/* 169 */ -EXTERN void Tk_SetWindowBorderPixmap(Tk_Window tkwin, - Pixmap pixmap); -#endif -#ifndef Tk_SetWindowColormap_TCL_DECLARED -#define Tk_SetWindowColormap_TCL_DECLARED -/* 170 */ -EXTERN void Tk_SetWindowColormap(Tk_Window tkwin, - Colormap colormap); -#endif -#ifndef Tk_SetWindowVisual_TCL_DECLARED -#define Tk_SetWindowVisual_TCL_DECLARED -/* 171 */ -EXTERN int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, - int depth, Colormap colormap); -#endif -#ifndef Tk_SizeOfBitmap_TCL_DECLARED -#define Tk_SizeOfBitmap_TCL_DECLARED -/* 172 */ -EXTERN void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, - int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_SizeOfImage_TCL_DECLARED -#define Tk_SizeOfImage_TCL_DECLARED -/* 173 */ -EXTERN void Tk_SizeOfImage(Tk_Image image, int *widthPtr, - int *heightPtr); -#endif -#ifndef Tk_StrictMotif_TCL_DECLARED -#define Tk_StrictMotif_TCL_DECLARED -/* 174 */ -EXTERN int Tk_StrictMotif(Tk_Window tkwin); -#endif -#ifndef Tk_TextLayoutToPostscript_TCL_DECLARED -#define Tk_TextLayoutToPostscript_TCL_DECLARED -/* 175 */ -EXTERN void Tk_TextLayoutToPostscript(Tcl_Interp *interp, - Tk_TextLayout layout); -#endif -#ifndef Tk_TextWidth_TCL_DECLARED -#define Tk_TextWidth_TCL_DECLARED -/* 176 */ -EXTERN int Tk_TextWidth(Tk_Font font, CONST char *str, - int numBytes); -#endif -#ifndef Tk_UndefineCursor_TCL_DECLARED -#define Tk_UndefineCursor_TCL_DECLARED -/* 177 */ -EXTERN void Tk_UndefineCursor(Tk_Window window); -#endif -#ifndef Tk_UnderlineChars_TCL_DECLARED -#define Tk_UnderlineChars_TCL_DECLARED -/* 178 */ -EXTERN void Tk_UnderlineChars(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char *source, int x, int y, - int firstByte, int lastByte); -#endif -#ifndef Tk_UnderlineTextLayout_TCL_DECLARED -#define Tk_UnderlineTextLayout_TCL_DECLARED -/* 179 */ -EXTERN void Tk_UnderlineTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline); -#endif -#ifndef Tk_Ungrab_TCL_DECLARED -#define Tk_Ungrab_TCL_DECLARED -/* 180 */ -EXTERN void Tk_Ungrab(Tk_Window tkwin); -#endif -#ifndef Tk_UnmaintainGeometry_TCL_DECLARED -#define Tk_UnmaintainGeometry_TCL_DECLARED -/* 181 */ -EXTERN void Tk_UnmaintainGeometry(Tk_Window slave, - Tk_Window master); -#endif -#ifndef Tk_UnmapWindow_TCL_DECLARED -#define Tk_UnmapWindow_TCL_DECLARED -/* 182 */ -EXTERN void Tk_UnmapWindow(Tk_Window tkwin); -#endif -#ifndef Tk_UnsetGrid_TCL_DECLARED -#define Tk_UnsetGrid_TCL_DECLARED -/* 183 */ -EXTERN void Tk_UnsetGrid(Tk_Window tkwin); -#endif -#ifndef Tk_UpdatePointer_TCL_DECLARED -#define Tk_UpdatePointer_TCL_DECLARED -/* 184 */ -EXTERN void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, - int state); -#endif -#ifndef Tk_AllocBitmapFromObj_TCL_DECLARED -#define Tk_AllocBitmapFromObj_TCL_DECLARED -/* 185 */ -EXTERN Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_Alloc3DBorderFromObj_TCL_DECLARED -#define Tk_Alloc3DBorderFromObj_TCL_DECLARED -/* 186 */ -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_AllocColorFromObj_TCL_DECLARED -#define Tk_AllocColorFromObj_TCL_DECLARED -/* 187 */ -EXTERN XColor * Tk_AllocColorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_AllocCursorFromObj_TCL_DECLARED -#define Tk_AllocCursorFromObj_TCL_DECLARED -/* 188 */ -EXTERN Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_AllocFontFromObj_TCL_DECLARED -#define Tk_AllocFontFromObj_TCL_DECLARED -/* 189 */ -EXTERN Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_CreateOptionTable_TCL_DECLARED -#define Tk_CreateOptionTable_TCL_DECLARED -/* 190 */ -EXTERN Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp, - CONST Tk_OptionSpec *templatePtr); -#endif -#ifndef Tk_DeleteOptionTable_TCL_DECLARED -#define Tk_DeleteOptionTable_TCL_DECLARED -/* 191 */ -EXTERN void Tk_DeleteOptionTable(Tk_OptionTable optionTable); -#endif -#ifndef Tk_Free3DBorderFromObj_TCL_DECLARED -#define Tk_Free3DBorderFromObj_TCL_DECLARED -/* 192 */ -EXTERN void Tk_Free3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeBitmapFromObj_TCL_DECLARED -#define Tk_FreeBitmapFromObj_TCL_DECLARED -/* 193 */ -EXTERN void Tk_FreeBitmapFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeColorFromObj_TCL_DECLARED -#define Tk_FreeColorFromObj_TCL_DECLARED -/* 194 */ -EXTERN void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeConfigOptions_TCL_DECLARED -#define Tk_FreeConfigOptions_TCL_DECLARED -/* 195 */ -EXTERN void Tk_FreeConfigOptions(char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -#endif -#ifndef Tk_FreeSavedOptions_TCL_DECLARED -#define Tk_FreeSavedOptions_TCL_DECLARED -/* 196 */ -EXTERN void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr); -#endif -#ifndef Tk_FreeCursorFromObj_TCL_DECLARED -#define Tk_FreeCursorFromObj_TCL_DECLARED -/* 197 */ -EXTERN void Tk_FreeCursorFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeFontFromObj_TCL_DECLARED -#define Tk_FreeFontFromObj_TCL_DECLARED -/* 198 */ -EXTERN void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_Get3DBorderFromObj_TCL_DECLARED -#define Tk_Get3DBorderFromObj_TCL_DECLARED -/* 199 */ -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetAnchorFromObj_TCL_DECLARED -#define Tk_GetAnchorFromObj_TCL_DECLARED -/* 200 */ -EXTERN int Tk_GetAnchorFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); -#endif -#ifndef Tk_GetBitmapFromObj_TCL_DECLARED -#define Tk_GetBitmapFromObj_TCL_DECLARED -/* 201 */ -EXTERN Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetColorFromObj_TCL_DECLARED -#define Tk_GetColorFromObj_TCL_DECLARED -/* 202 */ -EXTERN XColor * Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetCursorFromObj_TCL_DECLARED -#define Tk_GetCursorFromObj_TCL_DECLARED -/* 203 */ -EXTERN Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetOptionInfo_TCL_DECLARED -#define Tk_GetOptionInfo_TCL_DECLARED -/* 204 */ -EXTERN Tcl_Obj * Tk_GetOptionInfo(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, Tcl_Obj *namePtr, - Tk_Window tkwin); -#endif -#ifndef Tk_GetOptionValue_TCL_DECLARED -#define Tk_GetOptionValue_TCL_DECLARED -/* 205 */ -EXTERN Tcl_Obj * Tk_GetOptionValue(Tcl_Interp *interp, - char *recordPtr, Tk_OptionTable optionTable, - Tcl_Obj *namePtr, Tk_Window tkwin); -#endif -#ifndef Tk_GetJustifyFromObj_TCL_DECLARED -#define Tk_GetJustifyFromObj_TCL_DECLARED -/* 206 */ -EXTERN int Tk_GetJustifyFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Justify *justifyPtr); -#endif -#ifndef Tk_GetMMFromObj_TCL_DECLARED -#define Tk_GetMMFromObj_TCL_DECLARED -/* 207 */ -EXTERN int Tk_GetMMFromObj(Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj *objPtr, double *doublePtr); -#endif -#ifndef Tk_GetPixelsFromObj_TCL_DECLARED -#define Tk_GetPixelsFromObj_TCL_DECLARED -/* 208 */ -EXTERN int Tk_GetPixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *intPtr); -#endif -#ifndef Tk_GetReliefFromObj_TCL_DECLARED -#define Tk_GetReliefFromObj_TCL_DECLARED -/* 209 */ -EXTERN int Tk_GetReliefFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *resultPtr); -#endif -#ifndef Tk_GetScrollInfoObj_TCL_DECLARED -#define Tk_GetScrollInfoObj_TCL_DECLARED -/* 210 */ -EXTERN int Tk_GetScrollInfoObj(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], double *dblPtr, - int *intPtr); -#endif -#ifndef Tk_InitOptions_TCL_DECLARED -#define Tk_InitOptions_TCL_DECLARED -/* 211 */ -EXTERN int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -#endif -#ifndef Tk_MainEx_TCL_DECLARED -#define Tk_MainEx_TCL_DECLARED -/* 212 */ -EXTERN void Tk_MainEx(int argc, char **argv, - Tcl_AppInitProc *appInitProc, - Tcl_Interp *interp); -#endif -#ifndef Tk_RestoreSavedOptions_TCL_DECLARED -#define Tk_RestoreSavedOptions_TCL_DECLARED -/* 213 */ -EXTERN void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr); -#endif -#ifndef Tk_SetOptions_TCL_DECLARED -#define Tk_SetOptions_TCL_DECLARED -/* 214 */ -EXTERN int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, int objc, - Tcl_Obj *CONST objv[], Tk_Window tkwin, - Tk_SavedOptions *savePtr, int *maskPtr); -#endif -#ifndef Tk_InitConsoleChannels_TCL_DECLARED -#define Tk_InitConsoleChannels_TCL_DECLARED -/* 215 */ -EXTERN void Tk_InitConsoleChannels(Tcl_Interp *interp); -#endif -#ifndef Tk_CreateConsoleWindow_TCL_DECLARED -#define Tk_CreateConsoleWindow_TCL_DECLARED -/* 216 */ -EXTERN int Tk_CreateConsoleWindow(Tcl_Interp *interp); -#endif -#ifndef Tk_CreateSmoothMethod_TCL_DECLARED -#define Tk_CreateSmoothMethod_TCL_DECLARED -/* 217 */ -EXTERN void Tk_CreateSmoothMethod(Tcl_Interp *interp, - Tk_SmoothMethod *method); -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash_TCL_DECLARED -#define Tk_GetDash_TCL_DECLARED -/* 220 */ -EXTERN int Tk_GetDash(Tcl_Interp *interp, CONST char *value, - Tk_Dash *dash); -#endif -#ifndef Tk_CreateOutline_TCL_DECLARED -#define Tk_CreateOutline_TCL_DECLARED -/* 221 */ -EXTERN void Tk_CreateOutline(Tk_Outline *outline); -#endif -#ifndef Tk_DeleteOutline_TCL_DECLARED -#define Tk_DeleteOutline_TCL_DECLARED -/* 222 */ -EXTERN void Tk_DeleteOutline(Display *display, - Tk_Outline *outline); -#endif -#ifndef Tk_ConfigOutlineGC_TCL_DECLARED -#define Tk_ConfigOutlineGC_TCL_DECLARED -/* 223 */ -EXTERN int Tk_ConfigOutlineGC(XGCValues *gcValues, - Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_ChangeOutlineGC_TCL_DECLARED -#define Tk_ChangeOutlineGC_TCL_DECLARED -/* 224 */ -EXTERN int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_ResetOutlineGC_TCL_DECLARED -#define Tk_ResetOutlineGC_TCL_DECLARED -/* 225 */ -EXTERN int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_CanvasPsOutline_TCL_DECLARED -#define Tk_CanvasPsOutline_TCL_DECLARED -/* 226 */ -EXTERN int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -#endif -#ifndef Tk_SetTSOrigin_TCL_DECLARED -#define Tk_SetTSOrigin_TCL_DECLARED -/* 227 */ -EXTERN void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y); -#endif -#ifndef Tk_CanvasGetCoordFromObj_TCL_DECLARED -#define Tk_CanvasGetCoordFromObj_TCL_DECLARED -/* 228 */ -EXTERN int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -#endif -#ifndef Tk_CanvasSetOffset_TCL_DECLARED -#define Tk_CanvasSetOffset_TCL_DECLARED -/* 229 */ -EXTERN void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, - Tk_TSOffset *offset); -#endif -#ifndef Tk_DitherPhoto_TCL_DECLARED -#define Tk_DitherPhoto_TCL_DECLARED -/* 230 */ -EXTERN void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, - int width, int height); -#endif -#ifndef Tk_PostscriptBitmap_TCL_DECLARED -#define Tk_PostscriptBitmap_TCL_DECLARED -/* 231 */ -EXTERN int Tk_PostscriptBitmap(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap, int startX, int startY, - int width, int height); -#endif -#ifndef Tk_PostscriptColor_TCL_DECLARED -#define Tk_PostscriptColor_TCL_DECLARED -/* 232 */ -EXTERN int Tk_PostscriptColor(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, XColor *colorPtr); -#endif -#ifndef Tk_PostscriptFont_TCL_DECLARED -#define Tk_PostscriptFont_TCL_DECLARED -/* 233 */ -EXTERN int Tk_PostscriptFont(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, Tk_Font font); -#endif -#ifndef Tk_PostscriptImage_TCL_DECLARED -#define Tk_PostscriptImage_TCL_DECLARED -/* 234 */ -EXTERN int Tk_PostscriptImage(Tk_Image image, - Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psinfo, int x, int y, - int width, int height, int prepass); -#endif -#ifndef Tk_PostscriptPath_TCL_DECLARED -#define Tk_PostscriptPath_TCL_DECLARED -/* 235 */ -EXTERN void Tk_PostscriptPath(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, double *coordPtr, - int numPoints); -#endif -#ifndef Tk_PostscriptStipple_TCL_DECLARED -#define Tk_PostscriptStipple_TCL_DECLARED -/* 236 */ -EXTERN int Tk_PostscriptStipple(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap); -#endif -#ifndef Tk_PostscriptY_TCL_DECLARED -#define Tk_PostscriptY_TCL_DECLARED -/* 237 */ -EXTERN double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo); -#endif -#ifndef Tk_PostscriptPhoto_TCL_DECLARED -#define Tk_PostscriptPhoto_TCL_DECLARED -/* 238 */ -EXTERN int Tk_PostscriptPhoto(Tcl_Interp *interp, - Tk_PhotoImageBlock *blockPtr, - Tk_PostscriptInfo psInfo, int width, - int height); -#endif -#ifndef Tk_CreateClientMessageHandler_TCL_DECLARED -#define Tk_CreateClientMessageHandler_TCL_DECLARED -/* 239 */ -EXTERN void Tk_CreateClientMessageHandler( - Tk_ClientMessageProc *proc); -#endif -#ifndef Tk_DeleteClientMessageHandler_TCL_DECLARED -#define Tk_DeleteClientMessageHandler_TCL_DECLARED -/* 240 */ -EXTERN void Tk_DeleteClientMessageHandler( - Tk_ClientMessageProc *proc); -#endif -#ifndef Tk_CreateAnonymousWindow_TCL_DECLARED -#define Tk_CreateAnonymousWindow_TCL_DECLARED -/* 241 */ -EXTERN Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp, - Tk_Window parent, CONST char *screenName); -#endif -#ifndef Tk_SetClassProcs_TCL_DECLARED -#define Tk_SetClassProcs_TCL_DECLARED -/* 242 */ -EXTERN void Tk_SetClassProcs(Tk_Window tkwin, - Tk_ClassProcs *procs, - ClientData instanceData); -#endif -#ifndef Tk_SetInternalBorderEx_TCL_DECLARED -#define Tk_SetInternalBorderEx_TCL_DECLARED -/* 243 */ -EXTERN void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, - int right, int top, int bottom); -#endif -#ifndef Tk_SetMinimumRequestSize_TCL_DECLARED -#define Tk_SetMinimumRequestSize_TCL_DECLARED -/* 244 */ -EXTERN void Tk_SetMinimumRequestSize(Tk_Window tkwin, - int minWidth, int minHeight); -#endif -#ifndef Tk_SetCaretPos_TCL_DECLARED -#define Tk_SetCaretPos_TCL_DECLARED -/* 245 */ -EXTERN void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, - int height); -#endif -#ifndef Tk_PhotoPutBlock_Panic_TCL_DECLARED -#define Tk_PhotoPutBlock_Panic_TCL_DECLARED -/* 246 */ -EXTERN void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -#endif -#ifndef Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED -/* 247 */ -EXTERN void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -#endif -#ifndef Tk_CollapseMotionEvents_TCL_DECLARED -#define Tk_CollapseMotionEvents_TCL_DECLARED -/* 248 */ -EXTERN int Tk_CollapseMotionEvents(Display *display, - int collapse); -#endif -#ifndef Tk_RegisterStyleEngine_TCL_DECLARED -#define Tk_RegisterStyleEngine_TCL_DECLARED -/* 249 */ -EXTERN Tk_StyleEngine Tk_RegisterStyleEngine(CONST char *name, - Tk_StyleEngine parent); -#endif -#ifndef Tk_GetStyleEngine_TCL_DECLARED -#define Tk_GetStyleEngine_TCL_DECLARED -/* 250 */ -EXTERN Tk_StyleEngine Tk_GetStyleEngine(CONST char *name); -#endif -#ifndef Tk_RegisterStyledElement_TCL_DECLARED -#define Tk_RegisterStyledElement_TCL_DECLARED -/* 251 */ -EXTERN int Tk_RegisterStyledElement(Tk_StyleEngine engine, - Tk_ElementSpec *templatePtr); -#endif -#ifndef Tk_GetElementId_TCL_DECLARED -#define Tk_GetElementId_TCL_DECLARED -/* 252 */ -EXTERN int Tk_GetElementId(CONST char *name); -#endif -#ifndef Tk_CreateStyle_TCL_DECLARED -#define Tk_CreateStyle_TCL_DECLARED -/* 253 */ -EXTERN Tk_Style Tk_CreateStyle(CONST char *name, - Tk_StyleEngine engine, ClientData clientData); -#endif -#ifndef Tk_GetStyle_TCL_DECLARED -#define Tk_GetStyle_TCL_DECLARED -/* 254 */ -EXTERN Tk_Style Tk_GetStyle(Tcl_Interp *interp, CONST char *name); -#endif -#ifndef Tk_FreeStyle_TCL_DECLARED -#define Tk_FreeStyle_TCL_DECLARED -/* 255 */ -EXTERN void Tk_FreeStyle(Tk_Style style); -#endif -#ifndef Tk_NameOfStyle_TCL_DECLARED -#define Tk_NameOfStyle_TCL_DECLARED -/* 256 */ -EXTERN CONST char * Tk_NameOfStyle(Tk_Style style); -#endif -#ifndef Tk_AllocStyleFromObj_TCL_DECLARED -#define Tk_AllocStyleFromObj_TCL_DECLARED -/* 257 */ -EXTERN Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetStyleFromObj_TCL_DECLARED -#define Tk_GetStyleFromObj_TCL_DECLARED -/* 258 */ -EXTERN Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr); -#endif -#ifndef Tk_FreeStyleFromObj_TCL_DECLARED -#define Tk_FreeStyleFromObj_TCL_DECLARED -/* 259 */ -EXTERN void Tk_FreeStyleFromObj(Tcl_Obj *objPtr); -#endif -#ifndef Tk_GetStyledElement_TCL_DECLARED -#define Tk_GetStyledElement_TCL_DECLARED -/* 260 */ -EXTERN Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId, - Tk_OptionTable optionTable); -#endif -#ifndef Tk_GetElementSize_TCL_DECLARED -#define Tk_GetElementSize_TCL_DECLARED -/* 261 */ -EXTERN void Tk_GetElementSize(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int width, int height, - int inner, int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_GetElementBox_TCL_DECLARED -#define Tk_GetElementBox_TCL_DECLARED -/* 262 */ -EXTERN void Tk_GetElementBox(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int x, int y, int width, - int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr); -#endif -#ifndef Tk_GetElementBorderWidth_TCL_DECLARED -#define Tk_GetElementBorderWidth_TCL_DECLARED -/* 263 */ -EXTERN int Tk_GetElementBorderWidth(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin); -#endif -#ifndef Tk_DrawElement_TCL_DECLARED -#define Tk_DrawElement_TCL_DECLARED -/* 264 */ -EXTERN void Tk_DrawElement(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, Drawable d, int x, int y, - int width, int height, int state); -#endif -#ifndef Tk_PhotoExpand_TCL_DECLARED -#define Tk_PhotoExpand_TCL_DECLARED -/* 265 */ -EXTERN int Tk_PhotoExpand(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -#endif -#ifndef Tk_PhotoPutBlock_TCL_DECLARED -#define Tk_PhotoPutBlock_TCL_DECLARED -/* 266 */ -EXTERN int Tk_PhotoPutBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -#endif -#ifndef Tk_PhotoPutZoomedBlock_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_TCL_DECLARED -/* 267 */ -EXTERN int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -#endif -#ifndef Tk_PhotoSetSize_TCL_DECLARED -#define Tk_PhotoSetSize_TCL_DECLARED -/* 268 */ -EXTERN int Tk_PhotoSetSize(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -#endif -#ifndef Tk_GetUserInactiveTime_TCL_DECLARED -#define Tk_GetUserInactiveTime_TCL_DECLARED -/* 269 */ -EXTERN long Tk_GetUserInactiveTime(Display *dpy); -#endif -#ifndef Tk_ResetUserInactiveTime_TCL_DECLARED -#define Tk_ResetUserInactiveTime_TCL_DECLARED -/* 270 */ -EXTERN void Tk_ResetUserInactiveTime(Display *dpy); -#endif -#ifndef Tk_Interp_TCL_DECLARED -#define Tk_Interp_TCL_DECLARED -/* 271 */ -EXTERN Tcl_Interp * Tk_Interp(Tk_Window tkwin); -#endif -#ifndef Tk_CreateOldImageType_TCL_DECLARED -#define Tk_CreateOldImageType_TCL_DECLARED -/* 272 */ -EXTERN void Tk_CreateOldImageType(Tk_ImageType *typePtr); -#endif -#ifndef Tk_CreateOldPhotoImageFormat_TCL_DECLARED -#define Tk_CreateOldPhotoImageFormat_TCL_DECLARED -/* 273 */ -EXTERN void Tk_CreateOldPhotoImageFormat( - Tk_PhotoImageFormat *formatPtr); -#endif -/* Slot 274 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 275 */ -EXTERN void TkUnusedStubEntry(void); -#endif - -typedef struct TkStubHooks { - struct TkPlatStubs *tkPlatStubs; - struct TkIntStubs *tkIntStubs; - struct TkIntPlatStubs *tkIntPlatStubs; - struct TkIntXlibStubs *tkIntXlibStubs; -} TkStubHooks; - -typedef struct TkStubs { - int magic; - struct TkStubHooks *hooks; - - void (*tk_MainLoop) (void); /* 0 */ - XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ - GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ - void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ - void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ - void (*tk_AddOption) (Tk_Window tkwin, CONST char *name, CONST char *value, int priority); /* 5 */ - void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr); /* 6 */ - void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr); /* 7 */ - void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ - int (*tk_CanvasGetCoord) (Tcl_Interp *interp, Tk_Canvas canvas, CONST char *str, double *doublePtr); /* 9 */ - Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ - int (*tk_CanvasPsBitmap) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ - int (*tk_CanvasPsColor) (Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr); /* 12 */ - int (*tk_CanvasPsFont) (Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ - void (*tk_CanvasPsPath) (Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints); /* 14 */ - int (*tk_CanvasPsStipple) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ - double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ - void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ - int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 18 */ - char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 19 */ - Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ - void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr); /* 21 */ - void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr); /* 22 */ - int (*tk_CharBbox) (Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 23 */ - void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ - int (*tk_ClipboardAppend) (Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, char *buffer); /* 25 */ - int (*tk_ClipboardClear) (Tcl_Interp *interp, Tk_Window tkwin); /* 26 */ - int (*tk_ConfigureInfo) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags); /* 27 */ - int (*tk_ConfigureValue) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags); /* 28 */ - int (*tk_ConfigureWidget) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags); /* 29 */ - void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr); /* 30 */ - Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, CONST char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr); /* 31 */ - Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ - unsigned long (*tk_CreateBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr, CONST char *command, int append); /* 33 */ - Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp *interp); /* 34 */ - Tk_ErrorHandler (*tk_CreateErrorHandler) (Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData); /* 35 */ - void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 36 */ - void (*tk_CreateGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 37 */ - void (*tk_CreateImageType) (Tk_ImageType *typePtr); /* 38 */ - void (*tk_CreateItemType) (Tk_ItemType *typePtr); /* 39 */ - void (*tk_CreatePhotoImageFormat) (Tk_PhotoImageFormat *formatPtr); /* 40 */ - void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format); /* 41 */ - Tk_Window (*tk_CreateWindow) (Tcl_Interp *interp, Tk_Window parent, CONST char *name, CONST char *screenName); /* 42 */ - Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *pathName, CONST char *screenName); /* 43 */ - int (*tk_DefineBitmap) (Tcl_Interp *interp, CONST char *name, CONST char *source, int width, int height); /* 44 */ - void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ - void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ - int (*tk_DeleteBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr); /* 47 */ - void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ - void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ - void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 50 */ - void (*tk_DeleteGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 51 */ - void (*tk_DeleteImage) (Tcl_Interp *interp, CONST char *name); /* 52 */ - void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ - void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ - CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ - int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ - void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ - void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ - void (*tk_DrawChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int numBytes, int x, int y); /* 59 */ - void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ - void (*tk_DrawTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ - void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ - void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ - Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp *interp, CONST char *imageName); /* 64 */ - Font (*tk_FontId) (Tk_Font font); /* 65 */ - void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ - void (*tk_FreeBitmap) (Display *display, Pixmap bitmap); /* 67 */ - void (*tk_FreeColor) (XColor *colorPtr); /* 68 */ - void (*tk_FreeColormap) (Display *display, Colormap colormap); /* 69 */ - void (*tk_FreeCursor) (Display *display, Tk_Cursor cursor); /* 70 */ - void (*tk_FreeFont) (Tk_Font f); /* 71 */ - void (*tk_FreeGC) (Display *display, GC gc); /* 72 */ - void (*tk_FreeImage) (Tk_Image image); /* 73 */ - void (*tk_FreeOptions) (Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags); /* 74 */ - void (*tk_FreePixmap) (Display *display, Pixmap pixmap); /* 75 */ - void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ - void (*tk_FreeXId) (Display *display, XID xid); /* 77 */ - GC (*tk_GCForColor) (XColor *colorPtr, Drawable drawable); /* 78 */ - void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ - Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ - void (*tk_GetAllBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ - int (*tk_GetAnchor) (Tcl_Interp *interp, CONST char *str, Tk_Anchor *anchorPtr); /* 82 */ - CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ - CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr); /* 84 */ - Pixmap (*tk_GetBitmap) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 85 */ - Pixmap (*tk_GetBitmapFromData) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, int width, int height); /* 86 */ - int (*tk_GetCapStyle) (Tcl_Interp *interp, CONST char *str, int *capPtr); /* 87 */ - XColor * (*tk_GetColor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ - XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor *colorPtr); /* 89 */ - Colormap (*tk_GetColormap) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 90 */ - Tk_Cursor (*tk_GetCursor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ - Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, CONST char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ - Tk_Font (*tk_GetFont) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 93 */ - Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 94 */ - void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics *fmPtr); /* 95 */ - GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr); /* 96 */ - Tk_Image (*tk_GetImage) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *name, Tk_ImageChangedProc *changeProc, ClientData clientData); /* 97 */ - ClientData (*tk_GetImageMasterData) (Tcl_Interp *interp, CONST char *name, Tk_ImageType **typePtrPtr); /* 98 */ - Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ - int (*tk_GetJoinStyle) (Tcl_Interp *interp, CONST char *str, int *joinPtr); /* 100 */ - int (*tk_GetJustify) (Tcl_Interp *interp, CONST char *str, Tk_Justify *justifyPtr); /* 101 */ - int (*tk_GetNumMainWindows) (void); /* 102 */ - Tk_Uid (*tk_GetOption) (Tk_Window tkwin, CONST char *name, CONST char *className); /* 103 */ - int (*tk_GetPixels) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *intPtr); /* 104 */ - Pixmap (*tk_GetPixmap) (Display *display, Drawable d, int width, int height, int depth); /* 105 */ - int (*tk_GetRelief) (Tcl_Interp *interp, CONST char *name, int *reliefPtr); /* 106 */ - void (*tk_GetRootCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 107 */ - int (*tk_GetScrollInfo) (Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr); /* 108 */ - int (*tk_GetScreenMM) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, double *doublePtr); /* 109 */ - int (*tk_GetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 110 */ - Tk_Uid (*tk_GetUid) (CONST char *str); /* 111 */ - Visual * (*tk_GetVisual) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *depthPtr, Colormap *colormapPtr); /* 112 */ - void (*tk_GetVRootGeometry) (Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 113 */ - int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */ - void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */ - Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */ - void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ - int (*tk_Init) (Tcl_Interp *interp); /* 118 */ - Atom (*tk_InternAtom) (Tk_Window tkwin, CONST char *name); /* 119 */ - int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ - void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ - Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */ - void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ - void (*tk_ManageGeometry) (Tk_Window tkwin, CONST Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */ - void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ - int (*tk_MeasureChars) (Tk_Font tkfont, CONST char *source, int numBytes, int maxPixels, int flags, int *lengthPtr); /* 126 */ - void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ - void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ - void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ - CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ - CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ - CONST84_RETURN char * (*tk_NameOfBitmap) (Display *display, Pixmap bitmap); /* 132 */ - CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ - CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */ - CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */ - CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ - CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ - CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ - CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ - CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ - Tk_Window (*tk_NameToWindow) (Tcl_Interp *interp, CONST char *pathName, Tk_Window tkwin); /* 141 */ - void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData); /* 142 */ - int (*tk_ParseArgv) (Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, Tk_ArgvInfo *argTable, int flags); /* 143 */ - void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height); /* 144 */ - void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ - int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr); /* 146 */ - void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ - void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ - void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr); /* 149 */ - void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ - int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ - int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString *dsPtr); /* 152 */ - void (*tk_PreserveColormap) (Display *display, Colormap colormap); /* 153 */ - void (*tk_QueueWindowEvent) (XEvent *eventPtr, Tcl_QueuePosition position); /* 154 */ - void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ - void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ - int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ - Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr); /* 158 */ - int (*tk_SafeInit) (Tcl_Interp *interp); /* 159 */ - CONST char * (*tk_SetAppName) (Tk_Window tkwin, CONST char *name); /* 160 */ - void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ - void (*tk_SetClass) (Tk_Window tkwin, CONST char *className); /* 162 */ - void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ - void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ - void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ - void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ - void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ - void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ - void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ - void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ - int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual *visual, int depth, Colormap colormap); /* 171 */ - void (*tk_SizeOfBitmap) (Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr); /* 172 */ - void (*tk_SizeOfImage) (Tk_Image image, int *widthPtr, int *heightPtr); /* 173 */ - int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ - void (*tk_TextLayoutToPostscript) (Tcl_Interp *interp, Tk_TextLayout layout); /* 175 */ - int (*tk_TextWidth) (Tk_Font font, CONST char *str, int numBytes); /* 176 */ - void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ - void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int x, int y, int firstByte, int lastByte); /* 178 */ - void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ - void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ - void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ - void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ - void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ - void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ - Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 185 */ - Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 186 */ - XColor * (*tk_AllocColorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 187 */ - Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 188 */ - Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 189 */ - Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp *interp, CONST Tk_OptionSpec *templatePtr); /* 190 */ - void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ - void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 192 */ - void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 193 */ - void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 194 */ - void (*tk_FreeConfigOptions) (char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ - void (*tk_FreeSavedOptions) (Tk_SavedOptions *savePtr); /* 196 */ - void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 197 */ - void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 198 */ - Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 199 */ - int (*tk_GetAnchorFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); /* 200 */ - Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 201 */ - XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 202 */ - Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 203 */ - Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 204 */ - Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 205 */ - int (*tk_GetJustifyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr); /* 206 */ - int (*tk_GetMMFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr); /* 207 */ - int (*tk_GetPixelsFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr); /* 208 */ - int (*tk_GetReliefFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr); /* 209 */ - int (*tk_GetScrollInfoObj) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], double *dblPtr, int *intPtr); /* 210 */ - int (*tk_InitOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ - void (*tk_MainEx) (int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); /* 212 */ - void (*tk_RestoreSavedOptions) (Tk_SavedOptions *savePtr); /* 213 */ - int (*tk_SetOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr); /* 214 */ - void (*tk_InitConsoleChannels) (Tcl_Interp *interp); /* 215 */ - int (*tk_CreateConsoleWindow) (Tcl_Interp *interp); /* 216 */ - void (*tk_CreateSmoothMethod) (Tcl_Interp *interp, Tk_SmoothMethod *method); /* 217 */ - VOID *reserved218; - VOID *reserved219; - int (*tk_GetDash) (Tcl_Interp *interp, CONST char *value, Tk_Dash *dash); /* 220 */ - void (*tk_CreateOutline) (Tk_Outline *outline); /* 221 */ - void (*tk_DeleteOutline) (Display *display, Tk_Outline *outline); /* 222 */ - int (*tk_ConfigOutlineGC) (XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 223 */ - int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 224 */ - int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 225 */ - int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 226 */ - void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ - int (*tk_CanvasGetCoordFromObj) (Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr); /* 228 */ - void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset *offset); /* 229 */ - void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ - int (*tk_PostscriptBitmap) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ - int (*tk_PostscriptColor) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr); /* 232 */ - int (*tk_PostscriptFont) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ - int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ - void (*tk_PostscriptPath) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints); /* 235 */ - int (*tk_PostscriptStipple) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ - double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ - int (*tk_PostscriptPhoto) (Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ - void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc *proc); /* 239 */ - void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc *proc); /* 240 */ - Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp *interp, Tk_Window parent, CONST char *screenName); /* 241 */ - void (*tk_SetClassProcs) (Tk_Window tkwin, Tk_ClassProcs *procs, ClientData instanceData); /* 242 */ - void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ - void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ - void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ - void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ - void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ - int (*tk_CollapseMotionEvents) (Display *display, int collapse); /* 248 */ - Tk_StyleEngine (*tk_RegisterStyleEngine) (CONST char *name, Tk_StyleEngine parent); /* 249 */ - Tk_StyleEngine (*tk_GetStyleEngine) (CONST char *name); /* 250 */ - int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec *templatePtr); /* 251 */ - int (*tk_GetElementId) (CONST char *name); /* 252 */ - Tk_Style (*tk_CreateStyle) (CONST char *name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ - Tk_Style (*tk_GetStyle) (Tcl_Interp *interp, CONST char *name); /* 254 */ - void (*tk_FreeStyle) (Tk_Style style); /* 255 */ - CONST char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ - Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 257 */ - Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj *objPtr); /* 258 */ - void (*tk_FreeStyleFromObj) (Tcl_Obj *objPtr); /* 259 */ - Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ - void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr); /* 261 */ - void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 262 */ - int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin); /* 263 */ - void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ - int (*tk_PhotoExpand) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ - int (*tk_PhotoPutBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ - int (*tk_PhotoPutZoomedBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ - int (*tk_PhotoSetSize) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ - long (*tk_GetUserInactiveTime) (Display *dpy); /* 269 */ - void (*tk_ResetUserInactiveTime) (Display *dpy); /* 270 */ - Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ - void (*tk_CreateOldImageType) (Tk_ImageType *typePtr); /* 272 */ - void (*tk_CreateOldPhotoImageFormat) (Tk_PhotoImageFormat *formatPtr); /* 273 */ - VOID *reserved274; - void (*tkUnusedStubEntry) (void); /* 275 */ -} TkStubs; - -extern TkStubs *tkStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tk_MainLoop -#define Tk_MainLoop \ - (tkStubsPtr->tk_MainLoop) /* 0 */ -#endif -#ifndef Tk_3DBorderColor -#define Tk_3DBorderColor \ - (tkStubsPtr->tk_3DBorderColor) /* 1 */ -#endif -#ifndef Tk_3DBorderGC -#define Tk_3DBorderGC \ - (tkStubsPtr->tk_3DBorderGC) /* 2 */ -#endif -#ifndef Tk_3DHorizontalBevel -#define Tk_3DHorizontalBevel \ - (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ -#endif -#ifndef Tk_3DVerticalBevel -#define Tk_3DVerticalBevel \ - (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ -#endif -#ifndef Tk_AddOption -#define Tk_AddOption \ - (tkStubsPtr->tk_AddOption) /* 5 */ -#endif -#ifndef Tk_BindEvent -#define Tk_BindEvent \ - (tkStubsPtr->tk_BindEvent) /* 6 */ -#endif -#ifndef Tk_CanvasDrawableCoords -#define Tk_CanvasDrawableCoords \ - (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ -#endif -#ifndef Tk_CanvasEventuallyRedraw -#define Tk_CanvasEventuallyRedraw \ - (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ -#endif -#ifndef Tk_CanvasGetCoord -#define Tk_CanvasGetCoord \ - (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ -#endif -#ifndef Tk_CanvasGetTextInfo -#define Tk_CanvasGetTextInfo \ - (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ -#endif -#ifndef Tk_CanvasPsBitmap -#define Tk_CanvasPsBitmap \ - (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ -#endif -#ifndef Tk_CanvasPsColor -#define Tk_CanvasPsColor \ - (tkStubsPtr->tk_CanvasPsColor) /* 12 */ -#endif -#ifndef Tk_CanvasPsFont -#define Tk_CanvasPsFont \ - (tkStubsPtr->tk_CanvasPsFont) /* 13 */ -#endif -#ifndef Tk_CanvasPsPath -#define Tk_CanvasPsPath \ - (tkStubsPtr->tk_CanvasPsPath) /* 14 */ -#endif -#ifndef Tk_CanvasPsStipple -#define Tk_CanvasPsStipple \ - (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ -#endif -#ifndef Tk_CanvasPsY -#define Tk_CanvasPsY \ - (tkStubsPtr->tk_CanvasPsY) /* 16 */ -#endif -#ifndef Tk_CanvasSetStippleOrigin -#define Tk_CanvasSetStippleOrigin \ - (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ -#endif -#ifndef Tk_CanvasTagsParseProc -#define Tk_CanvasTagsParseProc \ - (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ -#endif -#ifndef Tk_CanvasTagsPrintProc -#define Tk_CanvasTagsPrintProc \ - (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ -#endif -#ifndef Tk_CanvasTkwin -#define Tk_CanvasTkwin \ - (tkStubsPtr->tk_CanvasTkwin) /* 20 */ -#endif -#ifndef Tk_CanvasWindowCoords -#define Tk_CanvasWindowCoords \ - (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ -#endif -#ifndef Tk_ChangeWindowAttributes -#define Tk_ChangeWindowAttributes \ - (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ -#endif -#ifndef Tk_CharBbox -#define Tk_CharBbox \ - (tkStubsPtr->tk_CharBbox) /* 23 */ -#endif -#ifndef Tk_ClearSelection -#define Tk_ClearSelection \ - (tkStubsPtr->tk_ClearSelection) /* 24 */ -#endif -#ifndef Tk_ClipboardAppend -#define Tk_ClipboardAppend \ - (tkStubsPtr->tk_ClipboardAppend) /* 25 */ -#endif -#ifndef Tk_ClipboardClear -#define Tk_ClipboardClear \ - (tkStubsPtr->tk_ClipboardClear) /* 26 */ -#endif -#ifndef Tk_ConfigureInfo -#define Tk_ConfigureInfo \ - (tkStubsPtr->tk_ConfigureInfo) /* 27 */ -#endif -#ifndef Tk_ConfigureValue -#define Tk_ConfigureValue \ - (tkStubsPtr->tk_ConfigureValue) /* 28 */ -#endif -#ifndef Tk_ConfigureWidget -#define Tk_ConfigureWidget \ - (tkStubsPtr->tk_ConfigureWidget) /* 29 */ -#endif -#ifndef Tk_ConfigureWindow -#define Tk_ConfigureWindow \ - (tkStubsPtr->tk_ConfigureWindow) /* 30 */ -#endif -#ifndef Tk_ComputeTextLayout -#define Tk_ComputeTextLayout \ - (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ -#endif -#ifndef Tk_CoordsToWindow -#define Tk_CoordsToWindow \ - (tkStubsPtr->tk_CoordsToWindow) /* 32 */ -#endif -#ifndef Tk_CreateBinding -#define Tk_CreateBinding \ - (tkStubsPtr->tk_CreateBinding) /* 33 */ -#endif -#ifndef Tk_CreateBindingTable -#define Tk_CreateBindingTable \ - (tkStubsPtr->tk_CreateBindingTable) /* 34 */ -#endif -#ifndef Tk_CreateErrorHandler -#define Tk_CreateErrorHandler \ - (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ -#endif -#ifndef Tk_CreateEventHandler -#define Tk_CreateEventHandler \ - (tkStubsPtr->tk_CreateEventHandler) /* 36 */ -#endif -#ifndef Tk_CreateGenericHandler -#define Tk_CreateGenericHandler \ - (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ -#endif -#ifndef Tk_CreateImageType -#define Tk_CreateImageType \ - (tkStubsPtr->tk_CreateImageType) /* 38 */ -#endif -#ifndef Tk_CreateItemType -#define Tk_CreateItemType \ - (tkStubsPtr->tk_CreateItemType) /* 39 */ -#endif -#ifndef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat \ - (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ -#endif -#ifndef Tk_CreateSelHandler -#define Tk_CreateSelHandler \ - (tkStubsPtr->tk_CreateSelHandler) /* 41 */ -#endif -#ifndef Tk_CreateWindow -#define Tk_CreateWindow \ - (tkStubsPtr->tk_CreateWindow) /* 42 */ -#endif -#ifndef Tk_CreateWindowFromPath -#define Tk_CreateWindowFromPath \ - (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ -#endif -#ifndef Tk_DefineBitmap -#define Tk_DefineBitmap \ - (tkStubsPtr->tk_DefineBitmap) /* 44 */ -#endif -#ifndef Tk_DefineCursor -#define Tk_DefineCursor \ - (tkStubsPtr->tk_DefineCursor) /* 45 */ -#endif -#ifndef Tk_DeleteAllBindings -#define Tk_DeleteAllBindings \ - (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ -#endif -#ifndef Tk_DeleteBinding -#define Tk_DeleteBinding \ - (tkStubsPtr->tk_DeleteBinding) /* 47 */ -#endif -#ifndef Tk_DeleteBindingTable -#define Tk_DeleteBindingTable \ - (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ -#endif -#ifndef Tk_DeleteErrorHandler -#define Tk_DeleteErrorHandler \ - (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ -#endif -#ifndef Tk_DeleteEventHandler -#define Tk_DeleteEventHandler \ - (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ -#endif -#ifndef Tk_DeleteGenericHandler -#define Tk_DeleteGenericHandler \ - (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ -#endif -#ifndef Tk_DeleteImage -#define Tk_DeleteImage \ - (tkStubsPtr->tk_DeleteImage) /* 52 */ -#endif -#ifndef Tk_DeleteSelHandler -#define Tk_DeleteSelHandler \ - (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ -#endif -#ifndef Tk_DestroyWindow -#define Tk_DestroyWindow \ - (tkStubsPtr->tk_DestroyWindow) /* 54 */ -#endif -#ifndef Tk_DisplayName -#define Tk_DisplayName \ - (tkStubsPtr->tk_DisplayName) /* 55 */ -#endif -#ifndef Tk_DistanceToTextLayout -#define Tk_DistanceToTextLayout \ - (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ -#endif -#ifndef Tk_Draw3DPolygon -#define Tk_Draw3DPolygon \ - (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ -#endif -#ifndef Tk_Draw3DRectangle -#define Tk_Draw3DRectangle \ - (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ -#endif -#ifndef Tk_DrawChars -#define Tk_DrawChars \ - (tkStubsPtr->tk_DrawChars) /* 59 */ -#endif -#ifndef Tk_DrawFocusHighlight -#define Tk_DrawFocusHighlight \ - (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ -#endif -#ifndef Tk_DrawTextLayout -#define Tk_DrawTextLayout \ - (tkStubsPtr->tk_DrawTextLayout) /* 61 */ -#endif -#ifndef Tk_Fill3DPolygon -#define Tk_Fill3DPolygon \ - (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ -#endif -#ifndef Tk_Fill3DRectangle -#define Tk_Fill3DRectangle \ - (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ -#endif -#ifndef Tk_FindPhoto -#define Tk_FindPhoto \ - (tkStubsPtr->tk_FindPhoto) /* 64 */ -#endif -#ifndef Tk_FontId -#define Tk_FontId \ - (tkStubsPtr->tk_FontId) /* 65 */ -#endif -#ifndef Tk_Free3DBorder -#define Tk_Free3DBorder \ - (tkStubsPtr->tk_Free3DBorder) /* 66 */ -#endif -#ifndef Tk_FreeBitmap -#define Tk_FreeBitmap \ - (tkStubsPtr->tk_FreeBitmap) /* 67 */ -#endif -#ifndef Tk_FreeColor -#define Tk_FreeColor \ - (tkStubsPtr->tk_FreeColor) /* 68 */ -#endif -#ifndef Tk_FreeColormap -#define Tk_FreeColormap \ - (tkStubsPtr->tk_FreeColormap) /* 69 */ -#endif -#ifndef Tk_FreeCursor -#define Tk_FreeCursor \ - (tkStubsPtr->tk_FreeCursor) /* 70 */ -#endif -#ifndef Tk_FreeFont -#define Tk_FreeFont \ - (tkStubsPtr->tk_FreeFont) /* 71 */ -#endif -#ifndef Tk_FreeGC -#define Tk_FreeGC \ - (tkStubsPtr->tk_FreeGC) /* 72 */ -#endif -#ifndef Tk_FreeImage -#define Tk_FreeImage \ - (tkStubsPtr->tk_FreeImage) /* 73 */ -#endif -#ifndef Tk_FreeOptions -#define Tk_FreeOptions \ - (tkStubsPtr->tk_FreeOptions) /* 74 */ -#endif -#ifndef Tk_FreePixmap -#define Tk_FreePixmap \ - (tkStubsPtr->tk_FreePixmap) /* 75 */ -#endif -#ifndef Tk_FreeTextLayout -#define Tk_FreeTextLayout \ - (tkStubsPtr->tk_FreeTextLayout) /* 76 */ -#endif -#ifndef Tk_FreeXId -#define Tk_FreeXId \ - (tkStubsPtr->tk_FreeXId) /* 77 */ -#endif -#ifndef Tk_GCForColor -#define Tk_GCForColor \ - (tkStubsPtr->tk_GCForColor) /* 78 */ -#endif -#ifndef Tk_GeometryRequest -#define Tk_GeometryRequest \ - (tkStubsPtr->tk_GeometryRequest) /* 79 */ -#endif -#ifndef Tk_Get3DBorder -#define Tk_Get3DBorder \ - (tkStubsPtr->tk_Get3DBorder) /* 80 */ -#endif -#ifndef Tk_GetAllBindings -#define Tk_GetAllBindings \ - (tkStubsPtr->tk_GetAllBindings) /* 81 */ -#endif -#ifndef Tk_GetAnchor -#define Tk_GetAnchor \ - (tkStubsPtr->tk_GetAnchor) /* 82 */ -#endif -#ifndef Tk_GetAtomName -#define Tk_GetAtomName \ - (tkStubsPtr->tk_GetAtomName) /* 83 */ -#endif -#ifndef Tk_GetBinding -#define Tk_GetBinding \ - (tkStubsPtr->tk_GetBinding) /* 84 */ -#endif -#ifndef Tk_GetBitmap -#define Tk_GetBitmap \ - (tkStubsPtr->tk_GetBitmap) /* 85 */ -#endif -#ifndef Tk_GetBitmapFromData -#define Tk_GetBitmapFromData \ - (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ -#endif -#ifndef Tk_GetCapStyle -#define Tk_GetCapStyle \ - (tkStubsPtr->tk_GetCapStyle) /* 87 */ -#endif -#ifndef Tk_GetColor -#define Tk_GetColor \ - (tkStubsPtr->tk_GetColor) /* 88 */ -#endif -#ifndef Tk_GetColorByValue -#define Tk_GetColorByValue \ - (tkStubsPtr->tk_GetColorByValue) /* 89 */ -#endif -#ifndef Tk_GetColormap -#define Tk_GetColormap \ - (tkStubsPtr->tk_GetColormap) /* 90 */ -#endif -#ifndef Tk_GetCursor -#define Tk_GetCursor \ - (tkStubsPtr->tk_GetCursor) /* 91 */ -#endif -#ifndef Tk_GetCursorFromData -#define Tk_GetCursorFromData \ - (tkStubsPtr->tk_GetCursorFromData) /* 92 */ -#endif -#ifndef Tk_GetFont -#define Tk_GetFont \ - (tkStubsPtr->tk_GetFont) /* 93 */ -#endif -#ifndef Tk_GetFontFromObj -#define Tk_GetFontFromObj \ - (tkStubsPtr->tk_GetFontFromObj) /* 94 */ -#endif -#ifndef Tk_GetFontMetrics -#define Tk_GetFontMetrics \ - (tkStubsPtr->tk_GetFontMetrics) /* 95 */ -#endif -#ifndef Tk_GetGC -#define Tk_GetGC \ - (tkStubsPtr->tk_GetGC) /* 96 */ -#endif -#ifndef Tk_GetImage -#define Tk_GetImage \ - (tkStubsPtr->tk_GetImage) /* 97 */ -#endif -#ifndef Tk_GetImageMasterData -#define Tk_GetImageMasterData \ - (tkStubsPtr->tk_GetImageMasterData) /* 98 */ -#endif -#ifndef Tk_GetItemTypes -#define Tk_GetItemTypes \ - (tkStubsPtr->tk_GetItemTypes) /* 99 */ -#endif -#ifndef Tk_GetJoinStyle -#define Tk_GetJoinStyle \ - (tkStubsPtr->tk_GetJoinStyle) /* 100 */ -#endif -#ifndef Tk_GetJustify -#define Tk_GetJustify \ - (tkStubsPtr->tk_GetJustify) /* 101 */ -#endif -#ifndef Tk_GetNumMainWindows -#define Tk_GetNumMainWindows \ - (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ -#endif -#ifndef Tk_GetOption -#define Tk_GetOption \ - (tkStubsPtr->tk_GetOption) /* 103 */ -#endif -#ifndef Tk_GetPixels -#define Tk_GetPixels \ - (tkStubsPtr->tk_GetPixels) /* 104 */ -#endif -#ifndef Tk_GetPixmap -#define Tk_GetPixmap \ - (tkStubsPtr->tk_GetPixmap) /* 105 */ -#endif -#ifndef Tk_GetRelief -#define Tk_GetRelief \ - (tkStubsPtr->tk_GetRelief) /* 106 */ -#endif -#ifndef Tk_GetRootCoords -#define Tk_GetRootCoords \ - (tkStubsPtr->tk_GetRootCoords) /* 107 */ -#endif -#ifndef Tk_GetScrollInfo -#define Tk_GetScrollInfo \ - (tkStubsPtr->tk_GetScrollInfo) /* 108 */ -#endif -#ifndef Tk_GetScreenMM -#define Tk_GetScreenMM \ - (tkStubsPtr->tk_GetScreenMM) /* 109 */ -#endif -#ifndef Tk_GetSelection -#define Tk_GetSelection \ - (tkStubsPtr->tk_GetSelection) /* 110 */ -#endif -#ifndef Tk_GetUid -#define Tk_GetUid \ - (tkStubsPtr->tk_GetUid) /* 111 */ -#endif -#ifndef Tk_GetVisual -#define Tk_GetVisual \ - (tkStubsPtr->tk_GetVisual) /* 112 */ -#endif -#ifndef Tk_GetVRootGeometry -#define Tk_GetVRootGeometry \ - (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ -#endif -#ifndef Tk_Grab -#define Tk_Grab \ - (tkStubsPtr->tk_Grab) /* 114 */ -#endif -#ifndef Tk_HandleEvent -#define Tk_HandleEvent \ - (tkStubsPtr->tk_HandleEvent) /* 115 */ -#endif -#ifndef Tk_IdToWindow -#define Tk_IdToWindow \ - (tkStubsPtr->tk_IdToWindow) /* 116 */ -#endif -#ifndef Tk_ImageChanged -#define Tk_ImageChanged \ - (tkStubsPtr->tk_ImageChanged) /* 117 */ -#endif -#ifndef Tk_Init -#define Tk_Init \ - (tkStubsPtr->tk_Init) /* 118 */ -#endif -#ifndef Tk_InternAtom -#define Tk_InternAtom \ - (tkStubsPtr->tk_InternAtom) /* 119 */ -#endif -#ifndef Tk_IntersectTextLayout -#define Tk_IntersectTextLayout \ - (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ -#endif -#ifndef Tk_MaintainGeometry -#define Tk_MaintainGeometry \ - (tkStubsPtr->tk_MaintainGeometry) /* 121 */ -#endif -#ifndef Tk_MainWindow -#define Tk_MainWindow \ - (tkStubsPtr->tk_MainWindow) /* 122 */ -#endif -#ifndef Tk_MakeWindowExist -#define Tk_MakeWindowExist \ - (tkStubsPtr->tk_MakeWindowExist) /* 123 */ -#endif -#ifndef Tk_ManageGeometry -#define Tk_ManageGeometry \ - (tkStubsPtr->tk_ManageGeometry) /* 124 */ -#endif -#ifndef Tk_MapWindow -#define Tk_MapWindow \ - (tkStubsPtr->tk_MapWindow) /* 125 */ -#endif -#ifndef Tk_MeasureChars -#define Tk_MeasureChars \ - (tkStubsPtr->tk_MeasureChars) /* 126 */ -#endif -#ifndef Tk_MoveResizeWindow -#define Tk_MoveResizeWindow \ - (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ -#endif -#ifndef Tk_MoveWindow -#define Tk_MoveWindow \ - (tkStubsPtr->tk_MoveWindow) /* 128 */ -#endif -#ifndef Tk_MoveToplevelWindow -#define Tk_MoveToplevelWindow \ - (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ -#endif -#ifndef Tk_NameOf3DBorder -#define Tk_NameOf3DBorder \ - (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ -#endif -#ifndef Tk_NameOfAnchor -#define Tk_NameOfAnchor \ - (tkStubsPtr->tk_NameOfAnchor) /* 131 */ -#endif -#ifndef Tk_NameOfBitmap -#define Tk_NameOfBitmap \ - (tkStubsPtr->tk_NameOfBitmap) /* 132 */ -#endif -#ifndef Tk_NameOfCapStyle -#define Tk_NameOfCapStyle \ - (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ -#endif -#ifndef Tk_NameOfColor -#define Tk_NameOfColor \ - (tkStubsPtr->tk_NameOfColor) /* 134 */ -#endif -#ifndef Tk_NameOfCursor -#define Tk_NameOfCursor \ - (tkStubsPtr->tk_NameOfCursor) /* 135 */ -#endif -#ifndef Tk_NameOfFont -#define Tk_NameOfFont \ - (tkStubsPtr->tk_NameOfFont) /* 136 */ -#endif -#ifndef Tk_NameOfImage -#define Tk_NameOfImage \ - (tkStubsPtr->tk_NameOfImage) /* 137 */ -#endif -#ifndef Tk_NameOfJoinStyle -#define Tk_NameOfJoinStyle \ - (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ -#endif -#ifndef Tk_NameOfJustify -#define Tk_NameOfJustify \ - (tkStubsPtr->tk_NameOfJustify) /* 139 */ -#endif -#ifndef Tk_NameOfRelief -#define Tk_NameOfRelief \ - (tkStubsPtr->tk_NameOfRelief) /* 140 */ -#endif -#ifndef Tk_NameToWindow -#define Tk_NameToWindow \ - (tkStubsPtr->tk_NameToWindow) /* 141 */ -#endif -#ifndef Tk_OwnSelection -#define Tk_OwnSelection \ - (tkStubsPtr->tk_OwnSelection) /* 142 */ -#endif -#ifndef Tk_ParseArgv -#define Tk_ParseArgv \ - (tkStubsPtr->tk_ParseArgv) /* 143 */ -#endif -#ifndef Tk_PhotoPutBlock_NoComposite -#define Tk_PhotoPutBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite -#define Tk_PhotoPutZoomedBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ -#endif -#ifndef Tk_PhotoGetImage -#define Tk_PhotoGetImage \ - (tkStubsPtr->tk_PhotoGetImage) /* 146 */ -#endif -#ifndef Tk_PhotoBlank -#define Tk_PhotoBlank \ - (tkStubsPtr->tk_PhotoBlank) /* 147 */ -#endif -#ifndef Tk_PhotoExpand_Panic -#define Tk_PhotoExpand_Panic \ - (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ -#endif -#ifndef Tk_PhotoGetSize -#define Tk_PhotoGetSize \ - (tkStubsPtr->tk_PhotoGetSize) /* 149 */ -#endif -#ifndef Tk_PhotoSetSize_Panic -#define Tk_PhotoSetSize_Panic \ - (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ -#endif -#ifndef Tk_PointToChar -#define Tk_PointToChar \ - (tkStubsPtr->tk_PointToChar) /* 151 */ -#endif -#ifndef Tk_PostscriptFontName -#define Tk_PostscriptFontName \ - (tkStubsPtr->tk_PostscriptFontName) /* 152 */ -#endif -#ifndef Tk_PreserveColormap -#define Tk_PreserveColormap \ - (tkStubsPtr->tk_PreserveColormap) /* 153 */ -#endif -#ifndef Tk_QueueWindowEvent -#define Tk_QueueWindowEvent \ - (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ -#endif -#ifndef Tk_RedrawImage -#define Tk_RedrawImage \ - (tkStubsPtr->tk_RedrawImage) /* 155 */ -#endif -#ifndef Tk_ResizeWindow -#define Tk_ResizeWindow \ - (tkStubsPtr->tk_ResizeWindow) /* 156 */ -#endif -#ifndef Tk_RestackWindow -#define Tk_RestackWindow \ - (tkStubsPtr->tk_RestackWindow) /* 157 */ -#endif -#ifndef Tk_RestrictEvents -#define Tk_RestrictEvents \ - (tkStubsPtr->tk_RestrictEvents) /* 158 */ -#endif -#ifndef Tk_SafeInit -#define Tk_SafeInit \ - (tkStubsPtr->tk_SafeInit) /* 159 */ -#endif -#ifndef Tk_SetAppName -#define Tk_SetAppName \ - (tkStubsPtr->tk_SetAppName) /* 160 */ -#endif -#ifndef Tk_SetBackgroundFromBorder -#define Tk_SetBackgroundFromBorder \ - (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ -#endif -#ifndef Tk_SetClass -#define Tk_SetClass \ - (tkStubsPtr->tk_SetClass) /* 162 */ -#endif -#ifndef Tk_SetGrid -#define Tk_SetGrid \ - (tkStubsPtr->tk_SetGrid) /* 163 */ -#endif -#ifndef Tk_SetInternalBorder -#define Tk_SetInternalBorder \ - (tkStubsPtr->tk_SetInternalBorder) /* 164 */ -#endif -#ifndef Tk_SetWindowBackground -#define Tk_SetWindowBackground \ - (tkStubsPtr->tk_SetWindowBackground) /* 165 */ -#endif -#ifndef Tk_SetWindowBackgroundPixmap -#define Tk_SetWindowBackgroundPixmap \ - (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ -#endif -#ifndef Tk_SetWindowBorder -#define Tk_SetWindowBorder \ - (tkStubsPtr->tk_SetWindowBorder) /* 167 */ -#endif -#ifndef Tk_SetWindowBorderWidth -#define Tk_SetWindowBorderWidth \ - (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ -#endif -#ifndef Tk_SetWindowBorderPixmap -#define Tk_SetWindowBorderPixmap \ - (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ -#endif -#ifndef Tk_SetWindowColormap -#define Tk_SetWindowColormap \ - (tkStubsPtr->tk_SetWindowColormap) /* 170 */ -#endif -#ifndef Tk_SetWindowVisual -#define Tk_SetWindowVisual \ - (tkStubsPtr->tk_SetWindowVisual) /* 171 */ -#endif -#ifndef Tk_SizeOfBitmap -#define Tk_SizeOfBitmap \ - (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ -#endif -#ifndef Tk_SizeOfImage -#define Tk_SizeOfImage \ - (tkStubsPtr->tk_SizeOfImage) /* 173 */ -#endif -#ifndef Tk_StrictMotif -#define Tk_StrictMotif \ - (tkStubsPtr->tk_StrictMotif) /* 174 */ -#endif -#ifndef Tk_TextLayoutToPostscript -#define Tk_TextLayoutToPostscript \ - (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ -#endif -#ifndef Tk_TextWidth -#define Tk_TextWidth \ - (tkStubsPtr->tk_TextWidth) /* 176 */ -#endif -#ifndef Tk_UndefineCursor -#define Tk_UndefineCursor \ - (tkStubsPtr->tk_UndefineCursor) /* 177 */ -#endif -#ifndef Tk_UnderlineChars -#define Tk_UnderlineChars \ - (tkStubsPtr->tk_UnderlineChars) /* 178 */ -#endif -#ifndef Tk_UnderlineTextLayout -#define Tk_UnderlineTextLayout \ - (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ -#endif -#ifndef Tk_Ungrab -#define Tk_Ungrab \ - (tkStubsPtr->tk_Ungrab) /* 180 */ -#endif -#ifndef Tk_UnmaintainGeometry -#define Tk_UnmaintainGeometry \ - (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ -#endif -#ifndef Tk_UnmapWindow -#define Tk_UnmapWindow \ - (tkStubsPtr->tk_UnmapWindow) /* 182 */ -#endif -#ifndef Tk_UnsetGrid -#define Tk_UnsetGrid \ - (tkStubsPtr->tk_UnsetGrid) /* 183 */ -#endif -#ifndef Tk_UpdatePointer -#define Tk_UpdatePointer \ - (tkStubsPtr->tk_UpdatePointer) /* 184 */ -#endif -#ifndef Tk_AllocBitmapFromObj -#define Tk_AllocBitmapFromObj \ - (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ -#endif -#ifndef Tk_Alloc3DBorderFromObj -#define Tk_Alloc3DBorderFromObj \ - (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ -#endif -#ifndef Tk_AllocColorFromObj -#define Tk_AllocColorFromObj \ - (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ -#endif -#ifndef Tk_AllocCursorFromObj -#define Tk_AllocCursorFromObj \ - (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ -#endif -#ifndef Tk_AllocFontFromObj -#define Tk_AllocFontFromObj \ - (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ -#endif -#ifndef Tk_CreateOptionTable -#define Tk_CreateOptionTable \ - (tkStubsPtr->tk_CreateOptionTable) /* 190 */ -#endif -#ifndef Tk_DeleteOptionTable -#define Tk_DeleteOptionTable \ - (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ -#endif -#ifndef Tk_Free3DBorderFromObj -#define Tk_Free3DBorderFromObj \ - (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ -#endif -#ifndef Tk_FreeBitmapFromObj -#define Tk_FreeBitmapFromObj \ - (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ -#endif -#ifndef Tk_FreeColorFromObj -#define Tk_FreeColorFromObj \ - (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ -#endif -#ifndef Tk_FreeConfigOptions -#define Tk_FreeConfigOptions \ - (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ -#endif -#ifndef Tk_FreeSavedOptions -#define Tk_FreeSavedOptions \ - (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ -#endif -#ifndef Tk_FreeCursorFromObj -#define Tk_FreeCursorFromObj \ - (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ -#endif -#ifndef Tk_FreeFontFromObj -#define Tk_FreeFontFromObj \ - (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ -#endif -#ifndef Tk_Get3DBorderFromObj -#define Tk_Get3DBorderFromObj \ - (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ -#endif -#ifndef Tk_GetAnchorFromObj -#define Tk_GetAnchorFromObj \ - (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ -#endif -#ifndef Tk_GetBitmapFromObj -#define Tk_GetBitmapFromObj \ - (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ -#endif -#ifndef Tk_GetColorFromObj -#define Tk_GetColorFromObj \ - (tkStubsPtr->tk_GetColorFromObj) /* 202 */ -#endif -#ifndef Tk_GetCursorFromObj -#define Tk_GetCursorFromObj \ - (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ -#endif -#ifndef Tk_GetOptionInfo -#define Tk_GetOptionInfo \ - (tkStubsPtr->tk_GetOptionInfo) /* 204 */ -#endif -#ifndef Tk_GetOptionValue -#define Tk_GetOptionValue \ - (tkStubsPtr->tk_GetOptionValue) /* 205 */ -#endif -#ifndef Tk_GetJustifyFromObj -#define Tk_GetJustifyFromObj \ - (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ -#endif -#ifndef Tk_GetMMFromObj -#define Tk_GetMMFromObj \ - (tkStubsPtr->tk_GetMMFromObj) /* 207 */ -#endif -#ifndef Tk_GetPixelsFromObj -#define Tk_GetPixelsFromObj \ - (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ -#endif -#ifndef Tk_GetReliefFromObj -#define Tk_GetReliefFromObj \ - (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ -#endif -#ifndef Tk_GetScrollInfoObj -#define Tk_GetScrollInfoObj \ - (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ -#endif -#ifndef Tk_InitOptions -#define Tk_InitOptions \ - (tkStubsPtr->tk_InitOptions) /* 211 */ -#endif -#ifndef Tk_MainEx -#define Tk_MainEx \ - (tkStubsPtr->tk_MainEx) /* 212 */ -#endif -#ifndef Tk_RestoreSavedOptions -#define Tk_RestoreSavedOptions \ - (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ -#endif -#ifndef Tk_SetOptions -#define Tk_SetOptions \ - (tkStubsPtr->tk_SetOptions) /* 214 */ -#endif -#ifndef Tk_InitConsoleChannels -#define Tk_InitConsoleChannels \ - (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ -#endif -#ifndef Tk_CreateConsoleWindow -#define Tk_CreateConsoleWindow \ - (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ -#endif -#ifndef Tk_CreateSmoothMethod -#define Tk_CreateSmoothMethod \ - (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash -#define Tk_GetDash \ - (tkStubsPtr->tk_GetDash) /* 220 */ -#endif -#ifndef Tk_CreateOutline -#define Tk_CreateOutline \ - (tkStubsPtr->tk_CreateOutline) /* 221 */ -#endif -#ifndef Tk_DeleteOutline -#define Tk_DeleteOutline \ - (tkStubsPtr->tk_DeleteOutline) /* 222 */ -#endif -#ifndef Tk_ConfigOutlineGC -#define Tk_ConfigOutlineGC \ - (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ -#endif -#ifndef Tk_ChangeOutlineGC -#define Tk_ChangeOutlineGC \ - (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ -#endif -#ifndef Tk_ResetOutlineGC -#define Tk_ResetOutlineGC \ - (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ -#endif -#ifndef Tk_CanvasPsOutline -#define Tk_CanvasPsOutline \ - (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ -#endif -#ifndef Tk_SetTSOrigin -#define Tk_SetTSOrigin \ - (tkStubsPtr->tk_SetTSOrigin) /* 227 */ -#endif -#ifndef Tk_CanvasGetCoordFromObj -#define Tk_CanvasGetCoordFromObj \ - (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ -#endif -#ifndef Tk_CanvasSetOffset -#define Tk_CanvasSetOffset \ - (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ -#endif -#ifndef Tk_DitherPhoto -#define Tk_DitherPhoto \ - (tkStubsPtr->tk_DitherPhoto) /* 230 */ -#endif -#ifndef Tk_PostscriptBitmap -#define Tk_PostscriptBitmap \ - (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ -#endif -#ifndef Tk_PostscriptColor -#define Tk_PostscriptColor \ - (tkStubsPtr->tk_PostscriptColor) /* 232 */ -#endif -#ifndef Tk_PostscriptFont -#define Tk_PostscriptFont \ - (tkStubsPtr->tk_PostscriptFont) /* 233 */ -#endif -#ifndef Tk_PostscriptImage -#define Tk_PostscriptImage \ - (tkStubsPtr->tk_PostscriptImage) /* 234 */ -#endif -#ifndef Tk_PostscriptPath -#define Tk_PostscriptPath \ - (tkStubsPtr->tk_PostscriptPath) /* 235 */ -#endif -#ifndef Tk_PostscriptStipple -#define Tk_PostscriptStipple \ - (tkStubsPtr->tk_PostscriptStipple) /* 236 */ -#endif -#ifndef Tk_PostscriptY -#define Tk_PostscriptY \ - (tkStubsPtr->tk_PostscriptY) /* 237 */ -#endif -#ifndef Tk_PostscriptPhoto -#define Tk_PostscriptPhoto \ - (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ -#endif -#ifndef Tk_CreateClientMessageHandler -#define Tk_CreateClientMessageHandler \ - (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ -#endif -#ifndef Tk_DeleteClientMessageHandler -#define Tk_DeleteClientMessageHandler \ - (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ -#endif -#ifndef Tk_CreateAnonymousWindow -#define Tk_CreateAnonymousWindow \ - (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ -#endif -#ifndef Tk_SetClassProcs -#define Tk_SetClassProcs \ - (tkStubsPtr->tk_SetClassProcs) /* 242 */ -#endif -#ifndef Tk_SetInternalBorderEx -#define Tk_SetInternalBorderEx \ - (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ -#endif -#ifndef Tk_SetMinimumRequestSize -#define Tk_SetMinimumRequestSize \ - (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ -#endif -#ifndef Tk_SetCaretPos -#define Tk_SetCaretPos \ - (tkStubsPtr->tk_SetCaretPos) /* 245 */ -#endif -#ifndef Tk_PhotoPutBlock_Panic -#define Tk_PhotoPutBlock_Panic \ - (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_Panic -#define Tk_PhotoPutZoomedBlock_Panic \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ -#endif -#ifndef Tk_CollapseMotionEvents -#define Tk_CollapseMotionEvents \ - (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ -#endif -#ifndef Tk_RegisterStyleEngine -#define Tk_RegisterStyleEngine \ - (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ -#endif -#ifndef Tk_GetStyleEngine -#define Tk_GetStyleEngine \ - (tkStubsPtr->tk_GetStyleEngine) /* 250 */ -#endif -#ifndef Tk_RegisterStyledElement -#define Tk_RegisterStyledElement \ - (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ -#endif -#ifndef Tk_GetElementId -#define Tk_GetElementId \ - (tkStubsPtr->tk_GetElementId) /* 252 */ -#endif -#ifndef Tk_CreateStyle -#define Tk_CreateStyle \ - (tkStubsPtr->tk_CreateStyle) /* 253 */ -#endif -#ifndef Tk_GetStyle -#define Tk_GetStyle \ - (tkStubsPtr->tk_GetStyle) /* 254 */ -#endif -#ifndef Tk_FreeStyle -#define Tk_FreeStyle \ - (tkStubsPtr->tk_FreeStyle) /* 255 */ -#endif -#ifndef Tk_NameOfStyle -#define Tk_NameOfStyle \ - (tkStubsPtr->tk_NameOfStyle) /* 256 */ -#endif -#ifndef Tk_AllocStyleFromObj -#define Tk_AllocStyleFromObj \ - (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ -#endif -#ifndef Tk_GetStyleFromObj -#define Tk_GetStyleFromObj \ - (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ -#endif -#ifndef Tk_FreeStyleFromObj -#define Tk_FreeStyleFromObj \ - (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ -#endif -#ifndef Tk_GetStyledElement -#define Tk_GetStyledElement \ - (tkStubsPtr->tk_GetStyledElement) /* 260 */ -#endif -#ifndef Tk_GetElementSize -#define Tk_GetElementSize \ - (tkStubsPtr->tk_GetElementSize) /* 261 */ -#endif -#ifndef Tk_GetElementBox -#define Tk_GetElementBox \ - (tkStubsPtr->tk_GetElementBox) /* 262 */ -#endif -#ifndef Tk_GetElementBorderWidth -#define Tk_GetElementBorderWidth \ - (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ -#endif -#ifndef Tk_DrawElement -#define Tk_DrawElement \ - (tkStubsPtr->tk_DrawElement) /* 264 */ -#endif -#ifndef Tk_PhotoExpand -#define Tk_PhotoExpand \ - (tkStubsPtr->tk_PhotoExpand) /* 265 */ -#endif -#ifndef Tk_PhotoPutBlock -#define Tk_PhotoPutBlock \ - (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock -#define Tk_PhotoPutZoomedBlock \ - (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ -#endif -#ifndef Tk_PhotoSetSize -#define Tk_PhotoSetSize \ - (tkStubsPtr->tk_PhotoSetSize) /* 268 */ -#endif -#ifndef Tk_GetUserInactiveTime -#define Tk_GetUserInactiveTime \ - (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ -#endif -#ifndef Tk_ResetUserInactiveTime -#define Tk_ResetUserInactiveTime \ - (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ -#endif -#ifndef Tk_Interp -#define Tk_Interp \ - (tkStubsPtr->tk_Interp) /* 271 */ -#endif -#ifndef Tk_CreateOldImageType -#define Tk_CreateOldImageType \ - (tkStubsPtr->tk_CreateOldImageType) /* 272 */ -#endif -#ifndef Tk_CreateOldPhotoImageFormat -#define Tk_CreateOldPhotoImageFormat \ - (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ -#endif -/* Slot 274 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkStubsPtr->tkUnusedStubEntry) /* 275 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TkUnusedStubEntry - -#endif /* _TKDECLS */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkFont.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkFont.h deleted file mode 100644 index ef6336c6f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkFont.h +++ /dev/null @@ -1,226 +0,0 @@ -/* - * tkFont.h -- - * - * Declarations for interfaces between the generic and platform-specific - * parts of the font package. This information is not visible outside of - * the font package. - * - * Copyright (c) 1996-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKFONT -#define _TKFONT - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * The following structure keeps track of the attributes of a font. It can be - * used to keep track of either the desired attributes or the actual - * attributes gotten when the font was instantiated. - */ - -struct TkFontAttributes { - Tk_Uid family; /* Font family, or NULL to represent plaform- - * specific default system font. */ - int size; /* Pointsize of font, 0 for default size, or - * negative number meaning pixel size. */ - int weight; /* Weight flag; see below for def'n. */ - int slant; /* Slant flag; see below for def'n. */ - int underline; /* Non-zero for underline font. */ - int overstrike; /* Non-zero for overstrike font. */ -}; - -/* - * Possible values for the "weight" field in a TkFontAttributes structure. - * Weight is a subjective term and depends on what the company that created - * the font considers bold. - */ - -#define TK_FW_NORMAL 0 -#define TK_FW_BOLD 1 - -#define TK_FW_UNKNOWN -1 /* Unknown weight. This value is used for - * error checking and is never actually stored - * in the weight field. */ - -/* - * Possible values for the "slant" field in a TkFontAttributes structure. - */ - -#define TK_FS_ROMAN 0 -#define TK_FS_ITALIC 1 -#define TK_FS_OBLIQUE 2 /* This value is only used when parsing X font - * names to determine the closest match. It is - * only stored in the XLFDAttributes - * structure, never in the slant field of the - * TkFontAttributes. */ - -#define TK_FS_UNKNOWN -1 /* Unknown slant. This value is used for error - * checking and is never actually stored in - * the slant field. */ - -/* - * The following structure keeps track of the metrics for an instantiated - * font. The metrics are the physical properties of the font itself. - */ - -typedef struct TkFontMetrics { - int ascent; /* From baseline to top of font. */ - int descent; /* From baseline to bottom of font. */ - int maxWidth; /* Width of widest character in font. */ - int fixed; /* Non-zero if this is a fixed-width font, - * 0 otherwise. */ -} TkFontMetrics; - -/* - * The following structure is used to keep track of the generic information - * about a font. Each platform-specific font is represented by a structure - * with the following structure at its beginning, plus any platform-specific - * stuff after that. - */ - -typedef struct TkFont { - /* - * Fields used and maintained exclusively by generic code. - */ - - int resourceRefCount; /* Number of active uses of this font (each - * active use corresponds to a call to - * Tk_AllocFontFromTable or Tk_GetFont). If - * this count is 0, then this TkFont structure - * is no longer valid and it isn't present in - * a hash table: it is being kept around only - * because there are objects referring to it. - * The structure is freed when - * resourceRefCount and objRefCount are both - * 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - Tcl_HashEntry *cacheHashPtr;/* Entry in font cache for this structure, - * used when deleting it. */ - Tcl_HashEntry *namedHashPtr;/* Pointer to hash table entry that - * corresponds to the named font that the - * tkfont was based on, or NULL if the tkfont - * was not based on a named font. */ - Screen *screen; /* The screen where this font is valid. */ - int tabWidth; /* Width of tabs in this font (pixels). */ - int underlinePos; /* Offset from baseline to origin of underline - * bar (used for drawing underlines on a - * non-underlined font). */ - int underlineHeight; /* Height of underline bar (used for drawing - * underlines on a non-underlined font). */ - - /* - * Fields used in the generic code that are filled in by - * platform-specific code. - */ - - Font fid; /* For backwards compatibility with XGCValues - * structures. Remove when TkGCValues is - * implemented. */ - TkFontAttributes fa; /* Actual font attributes obtained when the - * the font was created, as opposed to the - * desired attributes passed in to - * TkpGetFontFromAttributes(). The desired - * metrics can be determined from the string - * that was used to create this font. */ - TkFontMetrics fm; /* Font metrics determined when font was - * created. */ - struct TkFont *nextPtr; /* Points to the next TkFont structure with - * the same name. All fonts with the same name - * (but different displays) are chained - * together off a single entry in a hash - * table. */ -} TkFont; - -/* - * The following structure is used to return attributes when parsing an XLFD. - * The extra information is of interest to the Unix-specific code when - * attempting to find the closest matching font. - */ - -typedef struct TkXLFDAttributes { - Tk_Uid foundry; /* The foundry of the font. */ - int slant; /* The tristate value for the slant, which is - * significant under X. */ - int setwidth; /* The proportionate width, see below for - * definition. */ - Tk_Uid charset; /* The actual charset string. */ -} TkXLFDAttributes; - -/* - * Possible values for the "setwidth" field in a TkXLFDAttributes structure. - * The setwidth is whether characters are considered wider or narrower than - * normal. - */ - -#define TK_SW_NORMAL 0 -#define TK_SW_CONDENSE 1 -#define TK_SW_EXPAND 2 -#define TK_SW_UNKNOWN 3 /* Unknown setwidth. This value may be stored - * in the setwidth field. */ - -/* - * The following defines specify the meaning of the fields in a fully - * qualified XLFD. - */ - -#define XLFD_FOUNDRY 0 -#define XLFD_FAMILY 1 -#define XLFD_WEIGHT 2 -#define XLFD_SLANT 3 -#define XLFD_SETWIDTH 4 -#define XLFD_ADD_STYLE 5 -#define XLFD_PIXEL_SIZE 6 -#define XLFD_POINT_SIZE 7 -#define XLFD_RESOLUTION_X 8 -#define XLFD_RESOLUTION_Y 9 -#define XLFD_SPACING 10 -#define XLFD_AVERAGE_WIDTH 11 -#define XLFD_CHARSET 12 -#define XLFD_NUMFIELDS 13 /* Number of fields in XLFD. */ - -/* - * Low-level API exported by generic code to platform-specific code. - */ - -#define TkInitFontAttributes(fa) memset((fa), 0, sizeof(TkFontAttributes)); -#define TkInitXLFDAttributes(xa) memset((xa), 0, sizeof(TkXLFDAttributes)); - -MODULE_SCOPE int TkFontParseXLFD(CONST char *string, - TkFontAttributes *faPtr, TkXLFDAttributes *xaPtr); -MODULE_SCOPE char ** TkFontGetAliasList(CONST char *faceName); -MODULE_SCOPE char *** TkFontGetFallbacks(void); -MODULE_SCOPE int TkFontGetPixels(Tk_Window tkwin, int size); -MODULE_SCOPE int TkFontGetPoints(Tk_Window tkwin, int size); -MODULE_SCOPE char ** TkFontGetGlobalClass(void); -MODULE_SCOPE char ** TkFontGetSymbolClass(void); -MODULE_SCOPE int TkCreateNamedFont(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *name, TkFontAttributes *faPtr); -MODULE_SCOPE int TkDeleteNamedFont(Tcl_Interp *interp, - Tk_Window tkwin, CONST char *name); -MODULE_SCOPE int TkFontGetFirstTextLayout(Tk_TextLayout layout, - Tk_Font *font, char *dst); - -/* - * Low-level API exported by platform-specific code to generic code. - */ - -MODULE_SCOPE void TkpDeleteFont(TkFont *tkFontPtr); -MODULE_SCOPE void TkpFontPkgInit(TkMainInfo *mainPtr); -MODULE_SCOPE TkFont * TkpGetFontFromAttributes(TkFont *tkFontPtr, - Tk_Window tkwin, CONST TkFontAttributes *faPtr); -MODULE_SCOPE void TkpGetFontFamilies(Tcl_Interp *interp, - Tk_Window tkwin); -MODULE_SCOPE TkFont * TkpGetNativeFont(Tk_Window tkwin, CONST char *name); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKFONT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkInt.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkInt.h deleted file mode 100644 index 15a01c531..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkInt.h +++ /dev/null @@ -1,1207 +0,0 @@ -/* - * tkInt.h -- - * - * Declarations for things used internally by the Tk functions but not - * exported outside the module. - * - * Copyright (c) 1990-1994 The Regents of the University of California. - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * Copyright (c) 1998 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINT -#define _TKINT - -#ifndef _TK -#include "tk.h" -#endif -#ifndef _TCL -#include "tcl.h" -#endif -#ifndef _TKPORT -#include "tkPort.h" -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correcly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void*)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void*)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void*)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void*)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -/* - * Opaque type declarations: - */ - -typedef struct TkColormap TkColormap; -typedef struct TkFontAttributes TkFontAttributes; -typedef struct TkGrabEvent TkGrabEvent; -typedef struct TkpCursor_ *TkpCursor; -typedef struct TkRegion_ *TkRegion; -typedef struct TkStressedCmap TkStressedCmap; -typedef struct TkBindInfo_ *TkBindInfo; - -/* - * Function types. - */ - -typedef int (TkBindEvalProc)(ClientData clientData, Tcl_Interp *interp, - XEvent *eventPtr, Tk_Window tkwin, KeySym keySym); -typedef void (TkBindFreeProc)(ClientData clientData); - -/* - * One of the following structures is maintained for each cursor in use in the - * system. This structure is used by tkCursor.c and the various system - * specific cursor files. - */ - -typedef struct TkCursor { - Tk_Cursor cursor; /* System specific identifier for cursor. */ - Display *display; /* Display containing cursor. Needed for - * disposal and retrieval of cursors. */ - int resourceRefCount; /* Number of active uses of this cursor (each - * active use corresponds to a call to - * Tk_AllocPreserveFromObj or Tk_Preserve). If - * this count is 0, then this structure is no - * longer valid and it isn't present in a hash - * table: it is being kept around only because - * there are objects referring to it. The - * structure is freed when resourceRefCount - * and objRefCount are both 0. */ - int objRefCount; /* Number of Tcl objects that reference this - * structure.. */ - Tcl_HashTable *otherTable; /* Second table (other than idTable) used to - * index this entry. */ - Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure - * (needed when deleting). */ - Tcl_HashEntry *idHashPtr; /* Entry in idTable for this structure (needed - * when deleting). */ - struct TkCursor *nextPtr; /* Points to the next TkCursor structure with - * the same name. Cursors with the same name - * but different displays are chained together - * off a single hash table entry. */ -} TkCursor; - -/* - * The following structure is kept one-per-TkDisplay to maintain information - * about the caret (cursor location) on this display. This is used to dictate - * global focus location (Windows Accessibility guidelines) and to position - * the IME or XIM over-the-spot window. - */ - -typedef struct TkCaret { - struct TkWindow *winPtr; /* The window on which we requested caret - * placement. */ - int x; /* Relative x coord of the caret. */ - int y; /* Relative y coord of the caret. */ - int height; /* Specified height of the window. */ -} TkCaret; - -/* - * One of the following structures is maintained for each display containing a - * window managed by Tk. In part, the structure is used to store thread- - * specific data, since each thread will have its own TkDisplay structure. - */ - -typedef struct TkDisplay { - Display *display; /* Xlib's info about display. */ - struct TkDisplay *nextPtr; /* Next in list of all displays. */ - char *name; /* Name of display (with any screen identifier - * removed). Malloc-ed. */ - Time lastEventTime; /* Time of last event received for this - * display. */ - - /* - * Information used primarily by tk3d.c: - */ - - int borderInit; /* 0 means borderTable needs initializing. */ - Tcl_HashTable borderTable; /* Maps from color name to TkBorder - * structure. */ - - /* - * Information used by tkAtom.c only: - */ - - int atomInit; /* 0 means stuff below hasn't been initialized - * yet. */ - Tcl_HashTable nameTable; /* Maps from names to Atom's. */ - Tcl_HashTable atomTable; /* Maps from Atom's back to names. */ - - /* - * Information used primarily by tkBind.c: - */ - - int bindInfoStale; /* Non-zero means the variables in this part - * of the structure are potentially incorrect - * and should be recomputed. */ - unsigned int modeModMask; /* Has one bit set to indicate the modifier - * corresponding to "mode shift". If no such - * modifier, than this is zero. */ - unsigned int metaModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - unsigned int altModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage; - /* Indicates how to interpret lock - * modifier. */ - int numModKeyCodes; /* Number of entries in modKeyCodes array - * below. */ - KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for all - * of the keys that have modifiers associated - * with them. Malloc'ed, but may be NULL. */ - - /* - * Information used by tkBitmap.c only: - */ - - int bitmapInit; /* 0 means tables above need initializing. */ - int bitmapAutoNumber; /* Used to number bitmaps. */ - Tcl_HashTable bitmapNameTable; - /* Maps from name of bitmap to the first - * TkBitmap record for that name. */ - Tcl_HashTable bitmapIdTable;/* Maps from bitmap id to the TkBitmap - * structure for the bitmap. */ - Tcl_HashTable bitmapDataTable; - /* Used by Tk_GetBitmapFromData to map from a - * collection of in-core data about a bitmap - * to a reference giving an automatically- - * generated name for the bitmap. */ - - /* - * Information used by tkCanvas.c only: - */ - - int numIdSearches; - int numSlowSearches; - - /* - * Used by tkColor.c only: - */ - - int colorInit; /* 0 means color module needs initializing. */ - TkStressedCmap *stressPtr; /* First in list of colormaps that have filled - * up, so we have to pick an approximate - * color. */ - Tcl_HashTable colorNameTable; - /* Maps from color name to TkColor structure - * for that color. */ - Tcl_HashTable colorValueTable; - /* Maps from integer RGB values to TkColor - * structures. */ - - /* - * Used by tkCursor.c only: - */ - - int cursorInit; /* 0 means cursor module need initializing. */ - Tcl_HashTable cursorNameTable; - /* Maps from a string name to a cursor to the - * TkCursor record for the cursor. */ - Tcl_HashTable cursorDataTable; - /* Maps from a collection of in-core data - * about a cursor to a TkCursor structure. */ - Tcl_HashTable cursorIdTable; - /* Maps from a cursor id to the TkCursor - * structure for the cursor. */ - char cursorString[20]; /* Used to store a cursor id string. */ - Font cursorFont; /* Font to use for standard cursors. None - * means font not loaded yet. */ - - /* - * Information used by tkError.c only: - */ - - struct TkErrorHandler *errorPtr; - /* First in list of error handlers for this - * display. NULL means no handlers exist at - * present. */ - int deleteCount; /* Counts # of handlers deleted since last - * time inactive handlers were garbage- - * collected. When this number gets big, - * handlers get cleaned up. */ - - /* - * Used by tkEvent.c only: - */ - - struct TkWindowEvent *delayedMotionPtr; - /* Points to a malloc-ed motion event whose - * processing has been delayed in the hopes - * that another motion event will come along - * right away and we can merge the two of them - * together. NULL means that there is no - * delayed motion event. */ - - /* - * Information used by tkFocus.c only: - */ - - int focusDebug; /* 1 means collect focus debugging - * statistics. */ - struct TkWindow *implicitWinPtr; - /* If the focus arrived at a toplevel window - * implicitly via an Enter event (rather than - * via a FocusIn event), this points to the - * toplevel window. Otherwise it is NULL. */ - struct TkWindow *focusPtr; /* Points to the window on this display that - * should be receiving keyboard events. When - * multiple applications on the display have - * the focus, this will refer to the innermost - * window in the innermost application. This - * information isn't used on Windows, but it's - * needed on the Mac, and also on X11 when XIM - * processing is being done. */ - - /* - * Information used by tkGC.c only: - */ - - Tcl_HashTable gcValueTable; /* Maps from a GC's values to a TkGC structure - * describing a GC with those values. */ - Tcl_HashTable gcIdTable; /* Maps from a GC to a TkGC. */ - int gcInit; /* 0 means the tables below need - * initializing. */ - - /* - * Information used by tkGeometry.c only: - */ - - Tcl_HashTable maintainHashTable; - /* Hash table that maps from a master's - * Tk_Window token to a list of slaves managed - * by that master. */ - int geomInit; - - /* - * Information used by tkGet.c only: - */ - - Tcl_HashTable uidTable; /* Stores all Tk_Uid used in a thread. */ - int uidInit; /* 0 means uidTable needs initializing. */ - - /* - * Information used by tkGrab.c only: - */ - - struct TkWindow *grabWinPtr;/* Window in which the pointer is currently - * grabbed, or NULL if none. */ - struct TkWindow *eventualGrabWinPtr; - /* Value that grabWinPtr will have once the - * grab event queue (below) has been - * completely emptied. */ - struct TkWindow *buttonWinPtr; - /* Window in which first mouse button was - * pressed while grab was in effect, or NULL - * if no such press in effect. */ - struct TkWindow *serverWinPtr; - /* If no application contains the pointer then - * this is NULL. Otherwise it contains the - * last window for which we've gotten an Enter - * or Leave event from the server (i.e. the - * last window known to have contained the - * pointer). Doesn't reflect events that were - * synthesized in tkGrab.c. */ - TkGrabEvent *firstGrabEventPtr; - /* First in list of enter/leave events - * synthesized by grab code. These events must - * be processed in order before any other - * events are processed. NULL means no such - * events. */ - TkGrabEvent *lastGrabEventPtr; - /* Last in list of synthesized events, or NULL - * if list is empty. */ - int grabFlags; /* Miscellaneous flag values. See definitions - * in tkGrab.c. */ - - /* - * Information used by tkGrid.c only: - */ - - int gridInit; /* 0 means table below needs initializing. */ - Tcl_HashTable gridHashTable;/* Maps from Tk_Window tokens to corresponding - * Grid structures. */ - - /* - * Information used by tkImage.c only: - */ - - int imageId; /* Value used to number image ids. */ - - /* - * Information used by tkMacWinMenu.c only: - */ - - int postCommandGeneration; - - /* - * Information used by tkOption.c only. - */ - - /* - * Information used by tkPack.c only. - */ - - int packInit; /* 0 means table below needs initializing. */ - Tcl_HashTable packerHashTable; - /* Maps from Tk_Window tokens to corresponding - * Packer structures. */ - - /* - * Information used by tkPlace.c only. - */ - - int placeInit; /* 0 means tables below need initializing. */ - Tcl_HashTable masterTable; /* Maps from Tk_Window toke to the Master - * structure for the window, if it exists. */ - Tcl_HashTable slaveTable; /* Maps from Tk_Window toke to the Slave - * structure for the window, if it exists. */ - - /* - * Information used by tkSelect.c and tkClipboard.c only: - */ - - struct TkSelectionInfo *selectionInfoPtr; - /* First in list of selection information - * records. Each entry contains information - * about the current owner of a particular - * selection on this display. */ - Atom multipleAtom; /* Atom for MULTIPLE. None means selection - * stuff isn't initialized. */ - Atom incrAtom; /* Atom for INCR. */ - Atom targetsAtom; /* Atom for TARGETS. */ - Atom timestampAtom; /* Atom for TIMESTAMP. */ - Atom textAtom; /* Atom for TEXT. */ - Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */ - Atom applicationAtom; /* Atom for TK_APPLICATION. */ - Atom windowAtom; /* Atom for TK_WINDOW. */ - Atom clipboardAtom; /* Atom for CLIPBOARD. */ - Atom utf8Atom; /* Atom for UTF8_STRING. */ - - Tk_Window clipWindow; /* Window used for clipboard ownership and to - * retrieve selections between processes. NULL - * means clipboard info hasn't been - * initialized. */ - int clipboardActive; /* 1 means we currently own the clipboard - * selection, 0 means we don't. */ - struct TkMainInfo *clipboardAppPtr; - /* Last application that owned clipboard. */ - struct TkClipboardTarget *clipTargetPtr; - /* First in list of clipboard type information - * records. Each entry contains information - * about the buffers for a given selection - * target. */ - - /* - * Information used by tkSend.c only: - */ - - Tk_Window commTkwin; /* Window used for communication between - * interpreters during "send" commands. NULL - * means send info hasn't been initialized - * yet. */ - Atom commProperty; /* X's name for comm property. */ - Atom registryProperty; /* X's name for property containing registry - * of interpreter names. */ - Atom appNameProperty; /* X's name for property used to hold the - * application name on each comm window. */ - - /* - * Information used by tkXId.c only: - */ - - struct TkIdStack *idStackPtr; - /* First in list of chunks of free resource - * identifiers, or NULL if there are no free - * resources. */ - XID (*defaultAllocProc) (Display *display); - /* Default resource allocator for display. */ - struct TkIdStack *windowStackPtr; - /* First in list of chunks of window ids that - * can't be reused right now. */ - Tcl_TimerToken idCleanupScheduled; - /* If set, it means a call to WindowIdCleanup - * has already been scheduled, 0 means it - * hasn't. */ - - /* - * Information used by tkUnixWm.c and tkWinWm.c only: - */ - - struct TkWmInfo *firstWmPtr;/* Points to first top-level window. */ - struct TkWmInfo *foregroundWmPtr; - /* Points to the foreground window. */ - - /* - * Information maintained by tkWindow.c for use later on by tkXId.c: - */ - - int destroyCount; /* Number of Tk_DestroyWindow operations in - * progress. */ - unsigned long lastDestroyRequest; - /* Id of most recent XDestroyWindow request; - * can re-use ids in windowStackPtr when - * server has seen this request and event - * queue is empty. */ - - /* - * Information used by tkVisual.c only: - */ - - TkColormap *cmapPtr; /* First in list of all non-default colormaps - * allocated for this display. */ - - /* - * Miscellaneous information: - */ - -#ifdef TK_USE_INPUT_METHODS - XIM inputMethod; /* Input method for this display. */ - XIMStyle inputStyle; /* Input style selected for this display. */ - XFontSet inputXfs; /* XFontSet cached for over-the-spot XIM. */ -#endif /* TK_USE_INPUT_METHODS */ - Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */ - - int refCount; /* Reference count of how many Tk applications - * are using this display. Used to clean up - * the display when we no longer have any Tk - * applications using it. */ - - /* - * The following field were all added for Tk8.3 - */ - - int mouseButtonState; /* Current mouse button state for this - * display. */ - Window mouseButtonWindow; /* Window the button state was set in, added - * in Tk 8.4. */ - Window warpWindow; - int warpX; - int warpY; - - /* - * The following field(s) were all added for Tk8.4 - */ - - unsigned int flags; /* Various flag values: these are all defined - * in below. */ - TkCaret caret; /* Information about the caret for this - * display. This is not a pointer. */ - - int iconDataSize; /* Size of default iconphoto image data. */ - unsigned char *iconDataPtr; /* Default iconphoto image data, if set. */ -} TkDisplay; - -/* - * Flag values for TkDisplay flags. - * TK_DISPLAY_COLLAPSE_MOTION_EVENTS: (default on) - * Indicates that we should collapse motion events on this display - * TK_DISPLAY_USE_IM: (default on, set via tk.tcl) - * Whether to use input methods for this display - * TK_DISPLAY_WM_TRACING: (default off) - * Whether we should do wm tracing on this display. - * TK_DISPLAY_IN_WARP: (default off) - * Indicates that we are in a pointer warp - */ - -#define TK_DISPLAY_COLLAPSE_MOTION_EVENTS (1 << 0) -#define TK_DISPLAY_USE_IM (1 << 1) -#define TK_DISPLAY_WM_TRACING (1 << 3) -#define TK_DISPLAY_IN_WARP (1 << 4) -#define TK_DISPLAY_USE_XKB (1 << 5) - -/* - * One of the following structures exists for each error handler created by a - * call to Tk_CreateErrorHandler. The structure is managed by tkError.c. - */ - -typedef struct TkErrorHandler { - TkDisplay *dispPtr; /* Display to which handler applies. */ - unsigned long firstRequest; /* Only errors with serial numbers >= to this - * are considered. */ - unsigned long lastRequest; /* Only errors with serial numbers <= to this - * are considered. This field is filled in - * when XUnhandle is called. -1 means - * XUnhandle hasn't been called yet. */ - int error; /* Consider only errors with this error_code - * (-1 means consider all errors). */ - int request; /* Consider only errors with this major - * request code (-1 means consider all major - * codes). */ - int minorCode; /* Consider only errors with this minor - * request code (-1 means consider all minor - * codes). */ - Tk_ErrorProc *errorProc; /* Function to invoke when a matching error - * occurs. NULL means just ignore errors. */ - ClientData clientData; /* Arbitrary value to pass to errorProc. */ - struct TkErrorHandler *nextPtr; - /* Pointer to next older handler for this - * display, or NULL for end of list. */ -} TkErrorHandler; - -/* - * One of the following structures exists for each event handler created by - * calling Tk_CreateEventHandler. This information is used by tkEvent.c only. - */ - -typedef struct TkEventHandler { - unsigned long mask; /* Events for which to invoke proc. */ - Tk_EventProc *proc; /* Function to invoke when an event in mask - * occurs. */ - ClientData clientData; /* Argument to pass to proc. */ - struct TkEventHandler *nextPtr; - /* Next in list of handlers associated with - * window (NULL means end of list). */ -} TkEventHandler; - -/* - * Tk keeps one of the following data structures for each main window (created - * by a call to TkCreateMainWindow). It stores information that is shared by - * all of the windows associated with a particular main window. - */ - -typedef struct TkMainInfo { - int refCount; /* Number of windows whose "mainPtr" fields - * point here. When this becomes zero, can - * free up the structure (the reference count - * is zero because windows can get deleted in - * almost any order; the main window isn't - * necessarily the last one deleted). */ - struct TkWindow *winPtr; /* Pointer to main window. */ - Tcl_Interp *interp; /* Interpreter associated with application. */ - Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow - * structs for all windows related to this - * main window. Managed by tkWindow.c. */ - long deletionEpoch; /* Incremented by window deletions. */ - Tk_BindingTable bindingTable; - /* Used in conjunction with "bind" command to - * bind events to Tcl commands. */ - TkBindInfo bindInfo; /* Information used by tkBind.c on a per - * application basis. */ - struct TkFontInfo *fontInfoPtr; - /* Information used by tkFont.c on a per - * application basis. */ - - /* - * Information used only by tkFocus.c and tk*Embed.c: - */ - - struct TkToplevelFocusInfo *tlFocusPtr; - /* First in list of records containing focus - * information for each top-level in the - * application. Used only by tkFocus.c. */ - struct TkDisplayFocusInfo *displayFocusPtr; - /* First in list of records containing focus - * information for each display that this - * application has ever used. Used only by - * tkFocus.c. */ - - struct ElArray *optionRootPtr; - /* Top level of option hierarchy for this main - * window. NULL means uninitialized. Managed - * by tkOption.c. */ - Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster - * structures. Managed by tkImage.c. */ - int strictMotif; /* This is linked to the tk_strictMotif global - * variable. */ - int alwaysShowSelection; /* This is linked to the - * ::tk::AlwaysShowSelection variable. */ - struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by - * this process. */ -} TkMainInfo; - -/* - * Tk keeps the following data structure for each of it's builtin bitmaps. - * This structure is only used by tkBitmap.c and other platform specific - * bitmap files. - */ - -typedef struct { - const char *source; /* Bits for bitmap. */ - int width, height; /* Dimensions of bitmap. */ - int native; /* 0 means generic (X style) bitmap, 1 means - * native style bitmap. */ -} TkPredefBitmap; - -/* - * Tk keeps one of the following structures for each window. Some of the - * information (like size and location) is a shadow of information managed by - * the X server, and some is special information used here, such as event and - * geometry management information. This information is (mostly) managed by - * tkWindow.c. WARNING: the declaration below must be kept consistent with the - * Tk_FakeWin structure in tk.h. If you change one, be sure to change the - * other! - */ - -typedef struct TkWindow { - /* - * Structural information: - */ - - Display *display; /* Display containing window. */ - TkDisplay *dispPtr; /* Tk's information about display for - * window. */ - int screenNum; /* Index of screen for window, among all those - * for dispPtr. */ - Visual *visual; /* Visual to use for window. If not default, - * MUST be set before X window is created. */ - int depth; /* Number of bits/pixel. */ - Window window; /* X's id for window. NULL means window hasn't - * actually been created yet, or it's been - * deleted. */ - struct TkWindow *childList; /* First in list of child windows, or NULL if - * no children. List is in stacking order, - * lowest window first.*/ - struct TkWindow *lastChildPtr; - /* Last in list of child windows (highest in - * stacking order), or NULL if no children. */ - struct TkWindow *parentPtr; /* Pointer to parent window (logical parent, - * not necessarily X parent). NULL means - * either this is the main window, or the - * window's parent has already been deleted. */ - struct TkWindow *nextPtr; /* Next higher sibling (in stacking order) in - * list of children with same parent. NULL - * means end of list. */ - TkMainInfo *mainPtr; /* Information shared by all windows - * associated with a particular main window. - * NULL means this window is a rogue that is - * not associated with any application (at - * present, this only happens for the dummy - * windows used for "send" communication). */ - - /* - * Name and type information for the window: - */ - - char *pathName; /* Path name of window (concatenation of all - * names between this window and its top-level - * ancestor). This is a pointer into an entry - * in mainPtr->nameTable. NULL means that the - * window hasn't been completely created - * yet. */ - Tk_Uid nameUid; /* Name of the window within its parent - * (unique within the parent). */ - Tk_Uid classUid; /* Class of the window. NULL means window - * hasn't been given a class yet. */ - - /* - * Geometry and other attributes of window. This information may not be - * updated on the server immediately; stuff that hasn't been reflected in - * the server yet is called "dirty". At present, information can be dirty - * only if the window hasn't yet been created. - */ - - XWindowChanges changes; /* Geometry and other info about window. */ - unsigned int dirtyChanges; /* Bits indicate fields of "changes" that are - * dirty. */ - XSetWindowAttributes atts; /* Current attributes of window. */ - unsigned long dirtyAtts; /* Bits indicate fields of "atts" that are - * dirty. */ - - unsigned int flags; /* Various flag values: these are all defined - * in tk.h (confusing, but they're needed - * there for some query macros). */ - - /* - * Information kept by the event manager (tkEvent.c): - */ - - TkEventHandler *handlerList;/* First in list of event handlers declared - * for this window, or NULL if none. */ -#ifdef TK_USE_INPUT_METHODS - XIC inputContext; /* XIM input context. */ -#endif /* TK_USE_INPUT_METHODS */ - - /* - * Information used for event bindings (see "bind" and "bindtags" commands - * in tkCmds.c): - */ - - ClientData *tagPtr; /* Points to array of tags used for bindings - * on this window. Each tag is a Tk_Uid. - * Malloc'ed. NULL means no tags. */ - int numTags; /* Number of tags at *tagPtr. */ - - /* - * Information used by tkOption.c to manage options for the window. - */ - - int optionLevel; /* -1 means no option information is currently - * cached for this window. Otherwise this - * gives the level in the option stack at - * which info is cached. */ - /* - * Information used by tkSelect.c to manage the selection. - */ - - struct TkSelHandler *selHandlerList; - /* First in list of handlers for returning the - * selection in various forms. */ - - /* - * Information used by tkGeometry.c for geometry management. - */ - - const Tk_GeomMgr *geomMgrPtr; /* Information about geometry manager for this - * window. */ - ClientData geomData; /* Argument for geometry manager functions. */ - int reqWidth, reqHeight; /* Arguments from last call to - * Tk_GeometryRequest, or 0's if - * Tk_GeometryRequest hasn't been called. */ - int internalBorderLeft; /* Width of internal border of window (0 means - * no internal border). Geometry managers - * should not normally place children on top - * of the border. Fields for the other three - * sides are found below. */ - - /* - * Information maintained by tkWm.c for window manager communication. - */ - - struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also for special - * Unix menubar and wrapper windows), points - * to structure with wm-related info (see - * tkWm.c). For other windows, this is NULL. */ - - /* - * Information used by widget classes. - */ - - Tk_ClassProcs *classProcsPtr; - ClientData instanceData; - - /* - * Platform specific information private to each port. - */ - - struct TkWindowPrivate *privatePtr; - - /* - * More information used by tkGeometry.c for geometry management. - */ - - /* The remaining fields of internal border. */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - - int minReqWidth; /* Minimum requested width. */ - int minReqHeight; /* Minimum requested height. */ -} TkWindow; - -/* - * Real definition of some events. Note that these events come from outside - * but have internally generated pieces added to them. - */ - -typedef struct { - XKeyEvent keyEvent; /* The real event from X11. */ - char *charValuePtr; /* A pointer to a string that holds the key's - * %A substitution text (before backslash - * adding), or NULL if that has not been - * computed yet. If non-NULL, this string was - * allocated with ckalloc(). */ - int charValueLen; /* Length of string in charValuePtr when that - * is non-NULL. */ - KeySym keysym; /* Key symbol computed after input methods - * have been invoked */ -} TkKeyEvent; - -/* - * The following structure is used as a two way map between integers and - * strings, usually to map between an internal C representation and the - * strings used in Tcl. - */ - -typedef struct TkStateMap { - int numKey; /* Integer representation of a value. */ - const char *strKey; /* String representation of a value. */ -} TkStateMap; - -/* - * This structure is used by the Mac and Window porting layers as the internal - * representation of a clip_mask in a GC. - */ - -typedef struct TkpClipMask { - int type; /* TKP_CLIP_PIXMAP or TKP_CLIP_REGION. */ - union { - Pixmap pixmap; - TkRegion region; - } value; -} TkpClipMask; - -#define TKP_CLIP_PIXMAP 0 -#define TKP_CLIP_REGION 1 - -/* - * Pointer to first entry in list of all displays currently known. - */ - -extern TkDisplay *tkDisplayList; - -/* - * Return values from TkGrabState: - */ - -#define TK_GRAB_NONE 0 -#define TK_GRAB_IN_TREE 1 -#define TK_GRAB_ANCESTOR 2 -#define TK_GRAB_EXCLUDED 3 - -/* - * Additional flag for TkpMeasureCharsInContext. Coordinate with other flags - * for this routine, but don't make public until TkpMeasureCharsInContext is - * made public, too. - */ - -#define TK_ISOLATE_END 32 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace(). - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * The following symbol is used in the mode field of FocusIn events generated - * by an embedded application to request the input focus from its container. - */ - -#define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20) - -/* - * The following special modifier mask bits are defined, to indicate logical - * modifiers such as Meta and Alt that may float among the actual modifier - * bits. - */ - -#define META_MASK (AnyModifier<<1) -#define ALT_MASK (AnyModifier<<2) -#define EXTENDED_MASK (AnyModifier<<3) - -/* - * Object types not declared in tkObj.c need to be mentioned here so they can - * be properly registered with Tcl: - */ - -MODULE_SCOPE Tcl_ObjType tkBorderObjType; -MODULE_SCOPE Tcl_ObjType tkBitmapObjType; -MODULE_SCOPE Tcl_ObjType tkColorObjType; -MODULE_SCOPE Tcl_ObjType tkCursorObjType; -MODULE_SCOPE Tcl_ObjType tkFontObjType; -MODULE_SCOPE Tcl_ObjType tkOptionObjType; -MODULE_SCOPE Tcl_ObjType tkStateKeyObjType; -MODULE_SCOPE Tcl_ObjType tkTextIndexType; - -/* - * Miscellaneous variables shared among Tk modules but not exported to the - * outside world: - */ - -MODULE_SCOPE Tk_SmoothMethod tkBezierSmoothMethod; -MODULE_SCOPE Tk_ImageType tkBitmapImageType; -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtGIF; -MODULE_SCOPE void (*tkHandleEventProc) (XEvent* eventPtr); -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtPPM; -MODULE_SCOPE TkMainInfo *tkMainWindowList; -MODULE_SCOPE Tk_ImageType tkPhotoImageType; -MODULE_SCOPE Tcl_HashTable tkPredefBitmapTable; - -MODULE_SCOPE CONST char *const tkWebColors[20]; - -#include "tkIntDecls.h" - -/* - * Themed widget set init function: - */ - -MODULE_SCOPE int Ttk_Init(Tcl_Interp *interp); - -/* - * Internal functions shared among Tk modules but not exported to the outside - * world: - */ - -MODULE_SCOPE int Tk_BellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindtagsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ButtonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CanvasObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CheckbuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ClipboardObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseColorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseDirectoryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseFontObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_DestroyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EntryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FrameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FocusObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FontObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetOpenFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetSaveFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GrabObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GridObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ImageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelframeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ListboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LowerObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MenubuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageBoxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PanedWindowObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_OptionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PackObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PlaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RadiobuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RaiseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScaleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScrollbarCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); -MODULE_SCOPE int Tk_SelectionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SendCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); -MODULE_SCOPE int Tk_SendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SpinboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TextObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TkObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TkwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ToplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WinfoObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WmObjCmd(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); - -MODULE_SCOPE int Tk_GetDoublePixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - double *doublePtr); - -MODULE_SCOPE void TkEventInit(void); -MODULE_SCOPE void TkRegisterObjTypes(void); -MODULE_SCOPE int TkCreateMenuCmd(Tcl_Interp *interp); -MODULE_SCOPE int TkDeadAppCmd(ClientData clientData, - Tcl_Interp *interp, int argc, const char **argv); -MODULE_SCOPE int TkCanvasGetCoordObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -MODULE_SCOPE int TkGetDoublePixels(Tcl_Interp *interp, Tk_Window tkwin, - const char *string, double *doublePtr); -MODULE_SCOPE int TkPostscriptImage(Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psInfo, XImage *ximage, - int x, int y, int width, int height); -MODULE_SCOPE void TkMapTopFrame(Tk_Window tkwin); -MODULE_SCOPE XEvent * TkpGetBindingXEvent(Tcl_Interp *interp); -MODULE_SCOPE void TkCreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TkDeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE Tcl_ExitProc TkFinalize; -MODULE_SCOPE Tcl_ExitProc TkFinalizeThread; -MODULE_SCOPE void TkpBuildRegionFromAlphaData(TkRegion region, - unsigned x, unsigned y, unsigned width, - unsigned height, unsigned char *dataPtr, - unsigned pixelStride, unsigned lineStride); -MODULE_SCOPE void TkPrintPadAmount(Tcl_Interp *interp, - char *buffer, int pad1, int pad2); -MODULE_SCOPE int TkParsePadAmount(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *pad1Ptr, int *pad2Ptr); -MODULE_SCOPE void TkFocusSplit(TkWindow *winPtr); -MODULE_SCOPE void TkFocusJoin(TkWindow *winPtr); -MODULE_SCOPE int TkpAlwaysShowSelection(Tk_Window tkwin); -MODULE_SCOPE void TkpDrawCharsInContext(Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int x, int y); -MODULE_SCOPE int TkpMeasureCharsInContext(Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int maxLength, int flags, - int *lengthPtr); -MODULE_SCOPE void TkUnderlineCharsInContext(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *string, int numBytes, int x, int y, - int firstByte, int lastByte); -MODULE_SCOPE void TkpGetFontAttrsForChar(Tk_Window tkwin, Tk_Font tkfont, - Tcl_UniChar c, struct TkFontAttributes *faPtr); -#ifdef __WIN32__ -#define TkParseColor XParseColor -#else -MODULE_SCOPE Status TkParseColor (Display * display, - Colormap map, CONST char* spec, - XColor * colorPtr); -#endif -#ifdef HAVE_XFT -MODULE_SCOPE void TkUnixSetXftClipRegion(TkRegion clipRegion); -#endif - -/* - * Unsupported commands. - */ - -MODULE_SCOPE int TkUnsupported1ObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -#endif /* _TKINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntDecls.h deleted file mode 100644 index 9dea8d489..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntDecls.h +++ /dev/null @@ -1,1912 +0,0 @@ -/* - * tkIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINTDECLS -#define _TKINTDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#ifndef TkAllocWindow_TCL_DECLARED -#define TkAllocWindow_TCL_DECLARED -/* 0 */ -EXTERN TkWindow * TkAllocWindow(TkDisplay *dispPtr, int screenNum, - TkWindow *parentPtr); -#endif -#ifndef TkBezierPoints_TCL_DECLARED -#define TkBezierPoints_TCL_DECLARED -/* 1 */ -EXTERN void TkBezierPoints(double control[], int numSteps, - double *coordPtr); -#endif -#ifndef TkBezierScreenPoints_TCL_DECLARED -#define TkBezierScreenPoints_TCL_DECLARED -/* 2 */ -EXTERN void TkBezierScreenPoints(Tk_Canvas canvas, - double control[], int numSteps, - XPoint *xPointPtr); -#endif -#ifndef TkBindDeadWindow_TCL_DECLARED -#define TkBindDeadWindow_TCL_DECLARED -/* 3 */ -EXTERN void TkBindDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkBindEventProc_TCL_DECLARED -#define TkBindEventProc_TCL_DECLARED -/* 4 */ -EXTERN void TkBindEventProc(TkWindow *winPtr, XEvent *eventPtr); -#endif -#ifndef TkBindFree_TCL_DECLARED -#define TkBindFree_TCL_DECLARED -/* 5 */ -EXTERN void TkBindFree(TkMainInfo *mainPtr); -#endif -#ifndef TkBindInit_TCL_DECLARED -#define TkBindInit_TCL_DECLARED -/* 6 */ -EXTERN void TkBindInit(TkMainInfo *mainPtr); -#endif -#ifndef TkChangeEventWindow_TCL_DECLARED -#define TkChangeEventWindow_TCL_DECLARED -/* 7 */ -EXTERN void TkChangeEventWindow(XEvent *eventPtr, - TkWindow *winPtr); -#endif -#ifndef TkClipInit_TCL_DECLARED -#define TkClipInit_TCL_DECLARED -/* 8 */ -EXTERN int TkClipInit(Tcl_Interp *interp, TkDisplay *dispPtr); -#endif -#ifndef TkComputeAnchor_TCL_DECLARED -#define TkComputeAnchor_TCL_DECLARED -/* 9 */ -EXTERN void TkComputeAnchor(Tk_Anchor anchor, Tk_Window tkwin, - int padX, int padY, int innerWidth, - int innerHeight, int *xPtr, int *yPtr); -#endif -#ifndef TkCopyAndGlobalEval_TCL_DECLARED -#define TkCopyAndGlobalEval_TCL_DECLARED -/* 10 */ -EXTERN int TkCopyAndGlobalEval(Tcl_Interp *interp, char *script); -#endif -#ifndef TkCreateBindingProcedure_TCL_DECLARED -#define TkCreateBindingProcedure_TCL_DECLARED -/* 11 */ -EXTERN unsigned long TkCreateBindingProcedure(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char *eventString, - TkBindEvalProc *evalProc, - TkBindFreeProc *freeProc, - ClientData clientData); -#endif -#ifndef TkCreateCursorFromData_TCL_DECLARED -#define TkCreateCursorFromData_TCL_DECLARED -/* 12 */ -EXTERN TkCursor * TkCreateCursorFromData(Tk_Window tkwin, - CONST char *source, CONST char *mask, - int width, int height, int xHot, int yHot, - XColor fg, XColor bg); -#endif -#ifndef TkCreateFrame_TCL_DECLARED -#define TkCreateFrame_TCL_DECLARED -/* 13 */ -EXTERN int TkCreateFrame(ClientData clientData, - Tcl_Interp *interp, int argc, char **argv, - int toplevel, char *appName); -#endif -#ifndef TkCreateMainWindow_TCL_DECLARED -#define TkCreateMainWindow_TCL_DECLARED -/* 14 */ -EXTERN Tk_Window TkCreateMainWindow(Tcl_Interp *interp, - CONST char *screenName, char *baseName); -#endif -#ifndef TkCurrentTime_TCL_DECLARED -#define TkCurrentTime_TCL_DECLARED -/* 15 */ -EXTERN Time TkCurrentTime(TkDisplay *dispPtr); -#endif -#ifndef TkDeleteAllImages_TCL_DECLARED -#define TkDeleteAllImages_TCL_DECLARED -/* 16 */ -EXTERN void TkDeleteAllImages(TkMainInfo *mainPtr); -#endif -#ifndef TkDoConfigureNotify_TCL_DECLARED -#define TkDoConfigureNotify_TCL_DECLARED -/* 17 */ -EXTERN void TkDoConfigureNotify(TkWindow *winPtr); -#endif -#ifndef TkDrawInsetFocusHighlight_TCL_DECLARED -#define TkDrawInsetFocusHighlight_TCL_DECLARED -/* 18 */ -EXTERN void TkDrawInsetFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable, int padding); -#endif -#ifndef TkEventDeadWindow_TCL_DECLARED -#define TkEventDeadWindow_TCL_DECLARED -/* 19 */ -EXTERN void TkEventDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkFillPolygon_TCL_DECLARED -#define TkFillPolygon_TCL_DECLARED -/* 20 */ -EXTERN void TkFillPolygon(Tk_Canvas canvas, double *coordPtr, - int numPoints, Display *display, - Drawable drawable, GC gc, GC outlineGC); -#endif -#ifndef TkFindStateNum_TCL_DECLARED -#define TkFindStateNum_TCL_DECLARED -/* 21 */ -EXTERN int TkFindStateNum(Tcl_Interp *interp, - CONST char *option, CONST TkStateMap *mapPtr, - CONST char *strKey); -#endif -#ifndef TkFindStateString_TCL_DECLARED -#define TkFindStateString_TCL_DECLARED -/* 22 */ -EXTERN char * TkFindStateString(CONST TkStateMap *mapPtr, - int numKey); -#endif -#ifndef TkFocusDeadWindow_TCL_DECLARED -#define TkFocusDeadWindow_TCL_DECLARED -/* 23 */ -EXTERN void TkFocusDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkFocusFilterEvent_TCL_DECLARED -#define TkFocusFilterEvent_TCL_DECLARED -/* 24 */ -EXTERN int TkFocusFilterEvent(TkWindow *winPtr, - XEvent *eventPtr); -#endif -#ifndef TkFocusKeyEvent_TCL_DECLARED -#define TkFocusKeyEvent_TCL_DECLARED -/* 25 */ -EXTERN TkWindow * TkFocusKeyEvent(TkWindow *winPtr, XEvent *eventPtr); -#endif -#ifndef TkFontPkgInit_TCL_DECLARED -#define TkFontPkgInit_TCL_DECLARED -/* 26 */ -EXTERN void TkFontPkgInit(TkMainInfo *mainPtr); -#endif -#ifndef TkFontPkgFree_TCL_DECLARED -#define TkFontPkgFree_TCL_DECLARED -/* 27 */ -EXTERN void TkFontPkgFree(TkMainInfo *mainPtr); -#endif -#ifndef TkFreeBindingTags_TCL_DECLARED -#define TkFreeBindingTags_TCL_DECLARED -/* 28 */ -EXTERN void TkFreeBindingTags(TkWindow *winPtr); -#endif -#ifndef TkpFreeCursor_TCL_DECLARED -#define TkpFreeCursor_TCL_DECLARED -/* 29 */ -EXTERN void TkpFreeCursor(TkCursor *cursorPtr); -#endif -#ifndef TkGetBitmapData_TCL_DECLARED -#define TkGetBitmapData_TCL_DECLARED -/* 30 */ -EXTERN char * TkGetBitmapData(Tcl_Interp *interp, char *string, - char *fileName, int *widthPtr, - int *heightPtr, int *hotXPtr, int *hotYPtr); -#endif -#ifndef TkGetButtPoints_TCL_DECLARED -#define TkGetButtPoints_TCL_DECLARED -/* 31 */ -EXTERN void TkGetButtPoints(double p1[], double p2[], - double width, int project, double m1[], - double m2[]); -#endif -#ifndef TkGetCursorByName_TCL_DECLARED -#define TkGetCursorByName_TCL_DECLARED -/* 32 */ -EXTERN TkCursor * TkGetCursorByName(Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string); -#endif -#ifndef TkGetDefaultScreenName_TCL_DECLARED -#define TkGetDefaultScreenName_TCL_DECLARED -/* 33 */ -EXTERN CONST84_RETURN char * TkGetDefaultScreenName(Tcl_Interp *interp, - CONST char *screenName); -#endif -#ifndef TkGetDisplay_TCL_DECLARED -#define TkGetDisplay_TCL_DECLARED -/* 34 */ -EXTERN TkDisplay * TkGetDisplay(Display *display); -#endif -#ifndef TkGetDisplayOf_TCL_DECLARED -#define TkGetDisplayOf_TCL_DECLARED -/* 35 */ -EXTERN int TkGetDisplayOf(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], Tk_Window *tkwinPtr); -#endif -#ifndef TkGetFocusWin_TCL_DECLARED -#define TkGetFocusWin_TCL_DECLARED -/* 36 */ -EXTERN TkWindow * TkGetFocusWin(TkWindow *winPtr); -#endif -#ifndef TkGetInterpNames_TCL_DECLARED -#define TkGetInterpNames_TCL_DECLARED -/* 37 */ -EXTERN int TkGetInterpNames(Tcl_Interp *interp, Tk_Window tkwin); -#endif -#ifndef TkGetMiterPoints_TCL_DECLARED -#define TkGetMiterPoints_TCL_DECLARED -/* 38 */ -EXTERN int TkGetMiterPoints(double p1[], double p2[], - double p3[], double width, double m1[], - double m2[]); -#endif -#ifndef TkGetPointerCoords_TCL_DECLARED -#define TkGetPointerCoords_TCL_DECLARED -/* 39 */ -EXTERN void TkGetPointerCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -#endif -#ifndef TkGetServerInfo_TCL_DECLARED -#define TkGetServerInfo_TCL_DECLARED -/* 40 */ -EXTERN void TkGetServerInfo(Tcl_Interp *interp, Tk_Window tkwin); -#endif -#ifndef TkGrabDeadWindow_TCL_DECLARED -#define TkGrabDeadWindow_TCL_DECLARED -/* 41 */ -EXTERN void TkGrabDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkGrabState_TCL_DECLARED -#define TkGrabState_TCL_DECLARED -/* 42 */ -EXTERN int TkGrabState(TkWindow *winPtr); -#endif -#ifndef TkIncludePoint_TCL_DECLARED -#define TkIncludePoint_TCL_DECLARED -/* 43 */ -EXTERN void TkIncludePoint(Tk_Item *itemPtr, double *pointPtr); -#endif -#ifndef TkInOutEvents_TCL_DECLARED -#define TkInOutEvents_TCL_DECLARED -/* 44 */ -EXTERN void TkInOutEvents(XEvent *eventPtr, TkWindow *sourcePtr, - TkWindow *destPtr, int leaveType, - int enterType, Tcl_QueuePosition position); -#endif -#ifndef TkInstallFrameMenu_TCL_DECLARED -#define TkInstallFrameMenu_TCL_DECLARED -/* 45 */ -EXTERN void TkInstallFrameMenu(Tk_Window tkwin); -#endif -#ifndef TkKeysymToString_TCL_DECLARED -#define TkKeysymToString_TCL_DECLARED -/* 46 */ -EXTERN char * TkKeysymToString(KeySym keysym); -#endif -#ifndef TkLineToArea_TCL_DECLARED -#define TkLineToArea_TCL_DECLARED -/* 47 */ -EXTERN int TkLineToArea(double end1Ptr[], double end2Ptr[], - double rectPtr[]); -#endif -#ifndef TkLineToPoint_TCL_DECLARED -#define TkLineToPoint_TCL_DECLARED -/* 48 */ -EXTERN double TkLineToPoint(double end1Ptr[], double end2Ptr[], - double pointPtr[]); -#endif -#ifndef TkMakeBezierCurve_TCL_DECLARED -#define TkMakeBezierCurve_TCL_DECLARED -/* 49 */ -EXTERN int TkMakeBezierCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -#endif -#ifndef TkMakeBezierPostscript_TCL_DECLARED -#define TkMakeBezierPostscript_TCL_DECLARED -/* 50 */ -EXTERN void TkMakeBezierPostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -#endif -#ifndef TkOptionClassChanged_TCL_DECLARED -#define TkOptionClassChanged_TCL_DECLARED -/* 51 */ -EXTERN void TkOptionClassChanged(TkWindow *winPtr); -#endif -#ifndef TkOptionDeadWindow_TCL_DECLARED -#define TkOptionDeadWindow_TCL_DECLARED -/* 52 */ -EXTERN void TkOptionDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkOvalToArea_TCL_DECLARED -#define TkOvalToArea_TCL_DECLARED -/* 53 */ -EXTERN int TkOvalToArea(double *ovalPtr, double *rectPtr); -#endif -#ifndef TkOvalToPoint_TCL_DECLARED -#define TkOvalToPoint_TCL_DECLARED -/* 54 */ -EXTERN double TkOvalToPoint(double ovalPtr[], double width, - int filled, double pointPtr[]); -#endif -#ifndef TkpChangeFocus_TCL_DECLARED -#define TkpChangeFocus_TCL_DECLARED -/* 55 */ -EXTERN int TkpChangeFocus(TkWindow *winPtr, int force); -#endif -#ifndef TkpCloseDisplay_TCL_DECLARED -#define TkpCloseDisplay_TCL_DECLARED -/* 56 */ -EXTERN void TkpCloseDisplay(TkDisplay *dispPtr); -#endif -#ifndef TkpClaimFocus_TCL_DECLARED -#define TkpClaimFocus_TCL_DECLARED -/* 57 */ -EXTERN void TkpClaimFocus(TkWindow *topLevelPtr, int force); -#endif -#ifndef TkpDisplayWarning_TCL_DECLARED -#define TkpDisplayWarning_TCL_DECLARED -/* 58 */ -EXTERN void TkpDisplayWarning(CONST char *msg, CONST char *title); -#endif -#ifndef TkpGetAppName_TCL_DECLARED -#define TkpGetAppName_TCL_DECLARED -/* 59 */ -EXTERN void TkpGetAppName(Tcl_Interp *interp, Tcl_DString *name); -#endif -#ifndef TkpGetOtherWindow_TCL_DECLARED -#define TkpGetOtherWindow_TCL_DECLARED -/* 60 */ -EXTERN TkWindow * TkpGetOtherWindow(TkWindow *winPtr); -#endif -#ifndef TkpGetWrapperWindow_TCL_DECLARED -#define TkpGetWrapperWindow_TCL_DECLARED -/* 61 */ -EXTERN TkWindow * TkpGetWrapperWindow(TkWindow *winPtr); -#endif -#ifndef TkpInit_TCL_DECLARED -#define TkpInit_TCL_DECLARED -/* 62 */ -EXTERN int TkpInit(Tcl_Interp *interp); -#endif -#ifndef TkpInitializeMenuBindings_TCL_DECLARED -#define TkpInitializeMenuBindings_TCL_DECLARED -/* 63 */ -EXTERN void TkpInitializeMenuBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable); -#endif -#ifndef TkpMakeContainer_TCL_DECLARED -#define TkpMakeContainer_TCL_DECLARED -/* 64 */ -EXTERN void TkpMakeContainer(Tk_Window tkwin); -#endif -#ifndef TkpMakeMenuWindow_TCL_DECLARED -#define TkpMakeMenuWindow_TCL_DECLARED -/* 65 */ -EXTERN void TkpMakeMenuWindow(Tk_Window tkwin, int transient); -#endif -#ifndef TkpMakeWindow_TCL_DECLARED -#define TkpMakeWindow_TCL_DECLARED -/* 66 */ -EXTERN Window TkpMakeWindow(TkWindow *winPtr, Window parent); -#endif -#ifndef TkpMenuNotifyToplevelCreate_TCL_DECLARED -#define TkpMenuNotifyToplevelCreate_TCL_DECLARED -/* 67 */ -EXTERN void TkpMenuNotifyToplevelCreate(Tcl_Interp *interp, - char *menuName); -#endif -#ifndef TkpOpenDisplay_TCL_DECLARED -#define TkpOpenDisplay_TCL_DECLARED -/* 68 */ -EXTERN TkDisplay * TkpOpenDisplay(CONST char *display_name); -#endif -#ifndef TkPointerEvent_TCL_DECLARED -#define TkPointerEvent_TCL_DECLARED -/* 69 */ -EXTERN int TkPointerEvent(XEvent *eventPtr, TkWindow *winPtr); -#endif -#ifndef TkPolygonToArea_TCL_DECLARED -#define TkPolygonToArea_TCL_DECLARED -/* 70 */ -EXTERN int TkPolygonToArea(double *polyPtr, int numPoints, - double *rectPtr); -#endif -#ifndef TkPolygonToPoint_TCL_DECLARED -#define TkPolygonToPoint_TCL_DECLARED -/* 71 */ -EXTERN double TkPolygonToPoint(double *polyPtr, int numPoints, - double *pointPtr); -#endif -#ifndef TkPositionInTree_TCL_DECLARED -#define TkPositionInTree_TCL_DECLARED -/* 72 */ -EXTERN int TkPositionInTree(TkWindow *winPtr, TkWindow *treePtr); -#endif -#ifndef TkpRedirectKeyEvent_TCL_DECLARED -#define TkpRedirectKeyEvent_TCL_DECLARED -/* 73 */ -EXTERN void TkpRedirectKeyEvent(TkWindow *winPtr, - XEvent *eventPtr); -#endif -#ifndef TkpSetMainMenubar_TCL_DECLARED -#define TkpSetMainMenubar_TCL_DECLARED -/* 74 */ -EXTERN void TkpSetMainMenubar(Tcl_Interp *interp, - Tk_Window tkwin, char *menuName); -#endif -#ifndef TkpUseWindow_TCL_DECLARED -#define TkpUseWindow_TCL_DECLARED -/* 75 */ -EXTERN int TkpUseWindow(Tcl_Interp *interp, Tk_Window tkwin, - CONST char *string); -#endif -#ifndef TkpWindowWasRecentlyDeleted_TCL_DECLARED -#define TkpWindowWasRecentlyDeleted_TCL_DECLARED -/* 76 */ -EXTERN int TkpWindowWasRecentlyDeleted(Window win, - TkDisplay *dispPtr); -#endif -#ifndef TkQueueEventForAllChildren_TCL_DECLARED -#define TkQueueEventForAllChildren_TCL_DECLARED -/* 77 */ -EXTERN void TkQueueEventForAllChildren(TkWindow *winPtr, - XEvent *eventPtr); -#endif -#ifndef TkReadBitmapFile_TCL_DECLARED -#define TkReadBitmapFile_TCL_DECLARED -/* 78 */ -EXTERN int TkReadBitmapFile(Display *display, Drawable d, - CONST char *filename, - unsigned int *width_return, - unsigned int *height_return, - Pixmap *bitmap_return, int *x_hot_return, - int *y_hot_return); -#endif -#ifndef TkScrollWindow_TCL_DECLARED -#define TkScrollWindow_TCL_DECLARED -/* 79 */ -EXTERN int TkScrollWindow(Tk_Window tkwin, GC gc, int x, int y, - int width, int height, int dx, int dy, - TkRegion damageRgn); -#endif -#ifndef TkSelDeadWindow_TCL_DECLARED -#define TkSelDeadWindow_TCL_DECLARED -/* 80 */ -EXTERN void TkSelDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkSelEventProc_TCL_DECLARED -#define TkSelEventProc_TCL_DECLARED -/* 81 */ -EXTERN void TkSelEventProc(Tk_Window tkwin, XEvent *eventPtr); -#endif -#ifndef TkSelInit_TCL_DECLARED -#define TkSelInit_TCL_DECLARED -/* 82 */ -EXTERN void TkSelInit(Tk_Window tkwin); -#endif -#ifndef TkSelPropProc_TCL_DECLARED -#define TkSelPropProc_TCL_DECLARED -/* 83 */ -EXTERN void TkSelPropProc(XEvent *eventPtr); -#endif -/* Slot 84 is reserved */ -#ifndef TkSetWindowMenuBar_TCL_DECLARED -#define TkSetWindowMenuBar_TCL_DECLARED -/* 85 */ -EXTERN void TkSetWindowMenuBar(Tcl_Interp *interp, - Tk_Window tkwin, char *oldMenuName, - char *menuName); -#endif -#ifndef TkStringToKeysym_TCL_DECLARED -#define TkStringToKeysym_TCL_DECLARED -/* 86 */ -EXTERN KeySym TkStringToKeysym(char *name); -#endif -#ifndef TkThickPolyLineToArea_TCL_DECLARED -#define TkThickPolyLineToArea_TCL_DECLARED -/* 87 */ -EXTERN int TkThickPolyLineToArea(double *coordPtr, - int numPoints, double width, int capStyle, - int joinStyle, double *rectPtr); -#endif -#ifndef TkWmAddToColormapWindows_TCL_DECLARED -#define TkWmAddToColormapWindows_TCL_DECLARED -/* 88 */ -EXTERN void TkWmAddToColormapWindows(TkWindow *winPtr); -#endif -#ifndef TkWmDeadWindow_TCL_DECLARED -#define TkWmDeadWindow_TCL_DECLARED -/* 89 */ -EXTERN void TkWmDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkWmFocusToplevel_TCL_DECLARED -#define TkWmFocusToplevel_TCL_DECLARED -/* 90 */ -EXTERN TkWindow * TkWmFocusToplevel(TkWindow *winPtr); -#endif -#ifndef TkWmMapWindow_TCL_DECLARED -#define TkWmMapWindow_TCL_DECLARED -/* 91 */ -EXTERN void TkWmMapWindow(TkWindow *winPtr); -#endif -#ifndef TkWmNewWindow_TCL_DECLARED -#define TkWmNewWindow_TCL_DECLARED -/* 92 */ -EXTERN void TkWmNewWindow(TkWindow *winPtr); -#endif -#ifndef TkWmProtocolEventProc_TCL_DECLARED -#define TkWmProtocolEventProc_TCL_DECLARED -/* 93 */ -EXTERN void TkWmProtocolEventProc(TkWindow *winPtr, - XEvent *evenvPtr); -#endif -#ifndef TkWmRemoveFromColormapWindows_TCL_DECLARED -#define TkWmRemoveFromColormapWindows_TCL_DECLARED -/* 94 */ -EXTERN void TkWmRemoveFromColormapWindows(TkWindow *winPtr); -#endif -#ifndef TkWmRestackToplevel_TCL_DECLARED -#define TkWmRestackToplevel_TCL_DECLARED -/* 95 */ -EXTERN void TkWmRestackToplevel(TkWindow *winPtr, int aboveBelow, - TkWindow *otherPtr); -#endif -#ifndef TkWmSetClass_TCL_DECLARED -#define TkWmSetClass_TCL_DECLARED -/* 96 */ -EXTERN void TkWmSetClass(TkWindow *winPtr); -#endif -#ifndef TkWmUnmapWindow_TCL_DECLARED -#define TkWmUnmapWindow_TCL_DECLARED -/* 97 */ -EXTERN void TkWmUnmapWindow(TkWindow *winPtr); -#endif -#ifndef TkDebugBitmap_TCL_DECLARED -#define TkDebugBitmap_TCL_DECLARED -/* 98 */ -EXTERN Tcl_Obj * TkDebugBitmap(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugBorder_TCL_DECLARED -#define TkDebugBorder_TCL_DECLARED -/* 99 */ -EXTERN Tcl_Obj * TkDebugBorder(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugCursor_TCL_DECLARED -#define TkDebugCursor_TCL_DECLARED -/* 100 */ -EXTERN Tcl_Obj * TkDebugCursor(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugColor_TCL_DECLARED -#define TkDebugColor_TCL_DECLARED -/* 101 */ -EXTERN Tcl_Obj * TkDebugColor(Tk_Window tkwin, char *name); -#endif -#ifndef TkDebugConfig_TCL_DECLARED -#define TkDebugConfig_TCL_DECLARED -/* 102 */ -EXTERN Tcl_Obj * TkDebugConfig(Tcl_Interp *interp, - Tk_OptionTable table); -#endif -#ifndef TkDebugFont_TCL_DECLARED -#define TkDebugFont_TCL_DECLARED -/* 103 */ -EXTERN Tcl_Obj * TkDebugFont(Tk_Window tkwin, char *name); -#endif -#ifndef TkFindStateNumObj_TCL_DECLARED -#define TkFindStateNumObj_TCL_DECLARED -/* 104 */ -EXTERN int TkFindStateNumObj(Tcl_Interp *interp, - Tcl_Obj *optionPtr, CONST TkStateMap *mapPtr, - Tcl_Obj *keyPtr); -#endif -#ifndef TkGetBitmapPredefTable_TCL_DECLARED -#define TkGetBitmapPredefTable_TCL_DECLARED -/* 105 */ -EXTERN Tcl_HashTable * TkGetBitmapPredefTable(void); -#endif -#ifndef TkGetDisplayList_TCL_DECLARED -#define TkGetDisplayList_TCL_DECLARED -/* 106 */ -EXTERN TkDisplay * TkGetDisplayList(void); -#endif -#ifndef TkGetMainInfoList_TCL_DECLARED -#define TkGetMainInfoList_TCL_DECLARED -/* 107 */ -EXTERN TkMainInfo * TkGetMainInfoList(void); -#endif -#ifndef TkGetWindowFromObj_TCL_DECLARED -#define TkGetWindowFromObj_TCL_DECLARED -/* 108 */ -EXTERN int TkGetWindowFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - Tk_Window *windowPtr); -#endif -#ifndef TkpGetString_TCL_DECLARED -#define TkpGetString_TCL_DECLARED -/* 109 */ -EXTERN char * TkpGetString(TkWindow *winPtr, XEvent *eventPtr, - Tcl_DString *dsPtr); -#endif -#ifndef TkpGetSubFonts_TCL_DECLARED -#define TkpGetSubFonts_TCL_DECLARED -/* 110 */ -EXTERN void TkpGetSubFonts(Tcl_Interp *interp, Tk_Font tkfont); -#endif -#ifndef TkpGetSystemDefault_TCL_DECLARED -#define TkpGetSystemDefault_TCL_DECLARED -/* 111 */ -EXTERN Tcl_Obj * TkpGetSystemDefault(Tk_Window tkwin, - CONST char *dbName, CONST char *className); -#endif -#ifndef TkpMenuThreadInit_TCL_DECLARED -#define TkpMenuThreadInit_TCL_DECLARED -/* 112 */ -EXTERN void TkpMenuThreadInit(void); -#endif -#ifndef TkClipBox_TCL_DECLARED -#define TkClipBox_TCL_DECLARED -/* 113 */ -EXTERN void TkClipBox(TkRegion rgn, XRectangle *rect_return); -#endif -#ifndef TkCreateRegion_TCL_DECLARED -#define TkCreateRegion_TCL_DECLARED -/* 114 */ -EXTERN TkRegion TkCreateRegion(void); -#endif -#ifndef TkDestroyRegion_TCL_DECLARED -#define TkDestroyRegion_TCL_DECLARED -/* 115 */ -EXTERN void TkDestroyRegion(TkRegion rgn); -#endif -#ifndef TkIntersectRegion_TCL_DECLARED -#define TkIntersectRegion_TCL_DECLARED -/* 116 */ -EXTERN void TkIntersectRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -#endif -#ifndef TkRectInRegion_TCL_DECLARED -#define TkRectInRegion_TCL_DECLARED -/* 117 */ -EXTERN int TkRectInRegion(TkRegion rgn, int x, int y, - unsigned int width, unsigned int height); -#endif -#ifndef TkSetRegion_TCL_DECLARED -#define TkSetRegion_TCL_DECLARED -/* 118 */ -EXTERN void TkSetRegion(Display *display, GC gc, TkRegion rgn); -#endif -#ifndef TkUnionRectWithRegion_TCL_DECLARED -#define TkUnionRectWithRegion_TCL_DECLARED -/* 119 */ -EXTERN void TkUnionRectWithRegion(XRectangle *rect, TkRegion src, - TkRegion dr_return); -#endif -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpCreateNativeBitmap_TCL_DECLARED -#define TkpCreateNativeBitmap_TCL_DECLARED -/* 121 */ -EXTERN Pixmap TkpCreateNativeBitmap(Display *display, - CONST char *source); -#endif -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpDefineNativeBitmaps_TCL_DECLARED -#define TkpDefineNativeBitmaps_TCL_DECLARED -/* 122 */ -EXTERN void TkpDefineNativeBitmaps(void); -#endif -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpGetNativeAppBitmap_TCL_DECLARED -#define TkpGetNativeAppBitmap_TCL_DECLARED -/* 124 */ -EXTERN Pixmap TkpGetNativeAppBitmap(Display *display, - CONST char *name, int *width, int *height); -#endif -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#ifndef TkpDrawHighlightBorder_TCL_DECLARED -#define TkpDrawHighlightBorder_TCL_DECLARED -/* 135 */ -EXTERN void TkpDrawHighlightBorder(Tk_Window tkwin, GC fgGC, - GC bgGC, int highlightWidth, - Drawable drawable); -#endif -#ifndef TkSetFocusWin_TCL_DECLARED -#define TkSetFocusWin_TCL_DECLARED -/* 136 */ -EXTERN void TkSetFocusWin(TkWindow *winPtr, int force); -#endif -#ifndef TkpSetKeycodeAndState_TCL_DECLARED -#define TkpSetKeycodeAndState_TCL_DECLARED -/* 137 */ -EXTERN void TkpSetKeycodeAndState(Tk_Window tkwin, KeySym keySym, - XEvent *eventPtr); -#endif -#ifndef TkpGetKeySym_TCL_DECLARED -#define TkpGetKeySym_TCL_DECLARED -/* 138 */ -EXTERN KeySym TkpGetKeySym(TkDisplay *dispPtr, XEvent *eventPtr); -#endif -#ifndef TkpInitKeymapInfo_TCL_DECLARED -#define TkpInitKeymapInfo_TCL_DECLARED -/* 139 */ -EXTERN void TkpInitKeymapInfo(TkDisplay *dispPtr); -#endif -#ifndef TkPhotoGetValidRegion_TCL_DECLARED -#define TkPhotoGetValidRegion_TCL_DECLARED -/* 140 */ -EXTERN TkRegion TkPhotoGetValidRegion(Tk_PhotoHandle handle); -#endif -#ifndef TkWmStackorderToplevel_TCL_DECLARED -#define TkWmStackorderToplevel_TCL_DECLARED -/* 141 */ -EXTERN TkWindow ** TkWmStackorderToplevel(TkWindow *parentPtr); -#endif -#ifndef TkFocusFree_TCL_DECLARED -#define TkFocusFree_TCL_DECLARED -/* 142 */ -EXTERN void TkFocusFree(TkMainInfo *mainPtr); -#endif -#ifndef TkClipCleanup_TCL_DECLARED -#define TkClipCleanup_TCL_DECLARED -/* 143 */ -EXTERN void TkClipCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkGCCleanup_TCL_DECLARED -#define TkGCCleanup_TCL_DECLARED -/* 144 */ -EXTERN void TkGCCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkSubtractRegion_TCL_DECLARED -#define TkSubtractRegion_TCL_DECLARED -/* 145 */ -EXTERN void TkSubtractRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -#endif -#ifndef TkStylePkgInit_TCL_DECLARED -#define TkStylePkgInit_TCL_DECLARED -/* 146 */ -EXTERN void TkStylePkgInit(TkMainInfo *mainPtr); -#endif -#ifndef TkStylePkgFree_TCL_DECLARED -#define TkStylePkgFree_TCL_DECLARED -/* 147 */ -EXTERN void TkStylePkgFree(TkMainInfo *mainPtr); -#endif -#ifndef TkToplevelWindowForCommand_TCL_DECLARED -#define TkToplevelWindowForCommand_TCL_DECLARED -/* 148 */ -EXTERN Tk_Window TkToplevelWindowForCommand(Tcl_Interp *interp, - CONST char *cmdName); -#endif -#ifndef TkGetOptionSpec_TCL_DECLARED -#define TkGetOptionSpec_TCL_DECLARED -/* 149 */ -EXTERN CONST Tk_OptionSpec * TkGetOptionSpec(CONST char *name, - Tk_OptionTable optionTable); -#endif -#ifndef TkMakeRawCurve_TCL_DECLARED -#define TkMakeRawCurve_TCL_DECLARED -/* 150 */ -EXTERN int TkMakeRawCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -#endif -#ifndef TkMakeRawCurvePostscript_TCL_DECLARED -#define TkMakeRawCurvePostscript_TCL_DECLARED -/* 151 */ -EXTERN void TkMakeRawCurvePostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -#endif -#ifndef TkpDrawFrame_TCL_DECLARED -#define TkpDrawFrame_TCL_DECLARED -/* 152 */ -EXTERN void TkpDrawFrame(Tk_Window tkwin, Tk_3DBorder border, - int highlightWidth, int borderWidth, - int relief); -#endif -#ifndef TkCreateThreadExitHandler_TCL_DECLARED -#define TkCreateThreadExitHandler_TCL_DECLARED -/* 153 */ -EXTERN void TkCreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -#ifndef TkDeleteThreadExitHandler_TCL_DECLARED -#define TkDeleteThreadExitHandler_TCL_DECLARED -/* 154 */ -EXTERN void TkDeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -#endif -/* Slot 155 is reserved */ -#ifndef TkpTestembedCmd_TCL_DECLARED -#define TkpTestembedCmd_TCL_DECLARED -/* 156 */ -EXTERN int TkpTestembedCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST char **argv); -#endif -#ifndef TkpTesttextCmd_TCL_DECLARED -#define TkpTesttextCmd_TCL_DECLARED -/* 157 */ -EXTERN int TkpTesttextCmd(ClientData dummy, Tcl_Interp *interp, - int argc, CONST char **argv); -#endif -/* Slot 158 is reserved */ -/* Slot 159 is reserved */ -/* Slot 160 is reserved */ -/* Slot 161 is reserved */ -/* Slot 162 is reserved */ -/* Slot 163 is reserved */ -/* Slot 164 is reserved */ -/* Slot 165 is reserved */ -/* Slot 166 is reserved */ -/* Slot 167 is reserved */ -/* Slot 168 is reserved */ -#ifndef TkStateParseProc_TCL_DECLARED -#define TkStateParseProc_TCL_DECLARED -/* 169 */ -EXTERN int TkStateParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkStatePrintProc_TCL_DECLARED -#define TkStatePrintProc_TCL_DECLARED -/* 170 */ -EXTERN char * TkStatePrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkCanvasDashParseProc_TCL_DECLARED -#define TkCanvasDashParseProc_TCL_DECLARED -/* 171 */ -EXTERN int TkCanvasDashParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkCanvasDashPrintProc_TCL_DECLARED -#define TkCanvasDashPrintProc_TCL_DECLARED -/* 172 */ -EXTERN char * TkCanvasDashPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkOffsetParseProc_TCL_DECLARED -#define TkOffsetParseProc_TCL_DECLARED -/* 173 */ -EXTERN int TkOffsetParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkOffsetPrintProc_TCL_DECLARED -#define TkOffsetPrintProc_TCL_DECLARED -/* 174 */ -EXTERN char * TkOffsetPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkPixelParseProc_TCL_DECLARED -#define TkPixelParseProc_TCL_DECLARED -/* 175 */ -EXTERN int TkPixelParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkPixelPrintProc_TCL_DECLARED -#define TkPixelPrintProc_TCL_DECLARED -/* 176 */ -EXTERN char * TkPixelPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkOrientParseProc_TCL_DECLARED -#define TkOrientParseProc_TCL_DECLARED -/* 177 */ -EXTERN int TkOrientParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkOrientPrintProc_TCL_DECLARED -#define TkOrientPrintProc_TCL_DECLARED -/* 178 */ -EXTERN char * TkOrientPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -#ifndef TkSmoothParseProc_TCL_DECLARED -#define TkSmoothParseProc_TCL_DECLARED -/* 179 */ -EXTERN int TkSmoothParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - CONST char *value, char *widgRec, int offset); -#endif -#ifndef TkSmoothPrintProc_TCL_DECLARED -#define TkSmoothPrintProc_TCL_DECLARED -/* 180 */ -EXTERN char * TkSmoothPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -#endif -/* Slot 181 is reserved */ -/* Slot 182 is reserved */ -/* Slot 183 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 184 */ -EXTERN void TkUnusedStubEntry(void); -#endif - -typedef struct TkIntStubs { - int magic; - struct TkIntStubHooks *hooks; - - TkWindow * (*tkAllocWindow) (TkDisplay *dispPtr, int screenNum, TkWindow *parentPtr); /* 0 */ - void (*tkBezierPoints) (double control[], int numSteps, double *coordPtr); /* 1 */ - void (*tkBezierScreenPoints) (Tk_Canvas canvas, double control[], int numSteps, XPoint *xPointPtr); /* 2 */ - void (*tkBindDeadWindow) (TkWindow *winPtr); /* 3 */ - void (*tkBindEventProc) (TkWindow *winPtr, XEvent *eventPtr); /* 4 */ - void (*tkBindFree) (TkMainInfo *mainPtr); /* 5 */ - void (*tkBindInit) (TkMainInfo *mainPtr); /* 6 */ - void (*tkChangeEventWindow) (XEvent *eventPtr, TkWindow *winPtr); /* 7 */ - int (*tkClipInit) (Tcl_Interp *interp, TkDisplay *dispPtr); /* 8 */ - void (*tkComputeAnchor) (Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int *xPtr, int *yPtr); /* 9 */ - int (*tkCopyAndGlobalEval) (Tcl_Interp *interp, char *script); /* 10 */ - unsigned long (*tkCreateBindingProcedure) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventString, TkBindEvalProc *evalProc, TkBindFreeProc *freeProc, ClientData clientData); /* 11 */ - TkCursor * (*tkCreateCursorFromData) (Tk_Window tkwin, CONST char *source, CONST char *mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg); /* 12 */ - int (*tkCreateFrame) (ClientData clientData, Tcl_Interp *interp, int argc, char **argv, int toplevel, char *appName); /* 13 */ - Tk_Window (*tkCreateMainWindow) (Tcl_Interp *interp, CONST char *screenName, char *baseName); /* 14 */ - Time (*tkCurrentTime) (TkDisplay *dispPtr); /* 15 */ - void (*tkDeleteAllImages) (TkMainInfo *mainPtr); /* 16 */ - void (*tkDoConfigureNotify) (TkWindow *winPtr); /* 17 */ - void (*tkDrawInsetFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding); /* 18 */ - void (*tkEventDeadWindow) (TkWindow *winPtr); /* 19 */ - void (*tkFillPolygon) (Tk_Canvas canvas, double *coordPtr, int numPoints, Display *display, Drawable drawable, GC gc, GC outlineGC); /* 20 */ - int (*tkFindStateNum) (Tcl_Interp *interp, CONST char *option, CONST TkStateMap *mapPtr, CONST char *strKey); /* 21 */ - char * (*tkFindStateString) (CONST TkStateMap *mapPtr, int numKey); /* 22 */ - void (*tkFocusDeadWindow) (TkWindow *winPtr); /* 23 */ - int (*tkFocusFilterEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 24 */ - TkWindow * (*tkFocusKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 25 */ - void (*tkFontPkgInit) (TkMainInfo *mainPtr); /* 26 */ - void (*tkFontPkgFree) (TkMainInfo *mainPtr); /* 27 */ - void (*tkFreeBindingTags) (TkWindow *winPtr); /* 28 */ - void (*tkpFreeCursor) (TkCursor *cursorPtr); /* 29 */ - char * (*tkGetBitmapData) (Tcl_Interp *interp, char *string, char *fileName, int *widthPtr, int *heightPtr, int *hotXPtr, int *hotYPtr); /* 30 */ - void (*tkGetButtPoints) (double p1[], double p2[], double width, int project, double m1[], double m2[]); /* 31 */ - TkCursor * (*tkGetCursorByName) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid string); /* 32 */ - CONST84_RETURN char * (*tkGetDefaultScreenName) (Tcl_Interp *interp, CONST char *screenName); /* 33 */ - TkDisplay * (*tkGetDisplay) (Display *display); /* 34 */ - int (*tkGetDisplayOf) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Tk_Window *tkwinPtr); /* 35 */ - TkWindow * (*tkGetFocusWin) (TkWindow *winPtr); /* 36 */ - int (*tkGetInterpNames) (Tcl_Interp *interp, Tk_Window tkwin); /* 37 */ - int (*tkGetMiterPoints) (double p1[], double p2[], double p3[], double width, double m1[], double m2[]); /* 38 */ - void (*tkGetPointerCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 39 */ - void (*tkGetServerInfo) (Tcl_Interp *interp, Tk_Window tkwin); /* 40 */ - void (*tkGrabDeadWindow) (TkWindow *winPtr); /* 41 */ - int (*tkGrabState) (TkWindow *winPtr); /* 42 */ - void (*tkIncludePoint) (Tk_Item *itemPtr, double *pointPtr); /* 43 */ - void (*tkInOutEvents) (XEvent *eventPtr, TkWindow *sourcePtr, TkWindow *destPtr, int leaveType, int enterType, Tcl_QueuePosition position); /* 44 */ - void (*tkInstallFrameMenu) (Tk_Window tkwin); /* 45 */ - char * (*tkKeysymToString) (KeySym keysym); /* 46 */ - int (*tkLineToArea) (double end1Ptr[], double end2Ptr[], double rectPtr[]); /* 47 */ - double (*tkLineToPoint) (double end1Ptr[], double end2Ptr[], double pointPtr[]); /* 48 */ - int (*tkMakeBezierCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 49 */ - void (*tkMakeBezierPostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 50 */ - void (*tkOptionClassChanged) (TkWindow *winPtr); /* 51 */ - void (*tkOptionDeadWindow) (TkWindow *winPtr); /* 52 */ - int (*tkOvalToArea) (double *ovalPtr, double *rectPtr); /* 53 */ - double (*tkOvalToPoint) (double ovalPtr[], double width, int filled, double pointPtr[]); /* 54 */ - int (*tkpChangeFocus) (TkWindow *winPtr, int force); /* 55 */ - void (*tkpCloseDisplay) (TkDisplay *dispPtr); /* 56 */ - void (*tkpClaimFocus) (TkWindow *topLevelPtr, int force); /* 57 */ - void (*tkpDisplayWarning) (CONST char *msg, CONST char *title); /* 58 */ - void (*tkpGetAppName) (Tcl_Interp *interp, Tcl_DString *name); /* 59 */ - TkWindow * (*tkpGetOtherWindow) (TkWindow *winPtr); /* 60 */ - TkWindow * (*tkpGetWrapperWindow) (TkWindow *winPtr); /* 61 */ - int (*tkpInit) (Tcl_Interp *interp); /* 62 */ - void (*tkpInitializeMenuBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable); /* 63 */ - void (*tkpMakeContainer) (Tk_Window tkwin); /* 64 */ - void (*tkpMakeMenuWindow) (Tk_Window tkwin, int transient); /* 65 */ - Window (*tkpMakeWindow) (TkWindow *winPtr, Window parent); /* 66 */ - void (*tkpMenuNotifyToplevelCreate) (Tcl_Interp *interp, char *menuName); /* 67 */ - TkDisplay * (*tkpOpenDisplay) (CONST char *display_name); /* 68 */ - int (*tkPointerEvent) (XEvent *eventPtr, TkWindow *winPtr); /* 69 */ - int (*tkPolygonToArea) (double *polyPtr, int numPoints, double *rectPtr); /* 70 */ - double (*tkPolygonToPoint) (double *polyPtr, int numPoints, double *pointPtr); /* 71 */ - int (*tkPositionInTree) (TkWindow *winPtr, TkWindow *treePtr); /* 72 */ - void (*tkpRedirectKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 73 */ - void (*tkpSetMainMenubar) (Tcl_Interp *interp, Tk_Window tkwin, char *menuName); /* 74 */ - int (*tkpUseWindow) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *string); /* 75 */ - int (*tkpWindowWasRecentlyDeleted) (Window win, TkDisplay *dispPtr); /* 76 */ - void (*tkQueueEventForAllChildren) (TkWindow *winPtr, XEvent *eventPtr); /* 77 */ - int (*tkReadBitmapFile) (Display *display, Drawable d, CONST char *filename, unsigned int *width_return, unsigned int *height_return, Pixmap *bitmap_return, int *x_hot_return, int *y_hot_return); /* 78 */ - int (*tkScrollWindow) (Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn); /* 79 */ - void (*tkSelDeadWindow) (TkWindow *winPtr); /* 80 */ - void (*tkSelEventProc) (Tk_Window tkwin, XEvent *eventPtr); /* 81 */ - void (*tkSelInit) (Tk_Window tkwin); /* 82 */ - void (*tkSelPropProc) (XEvent *eventPtr); /* 83 */ - VOID *reserved84; - void (*tkSetWindowMenuBar) (Tcl_Interp *interp, Tk_Window tkwin, char *oldMenuName, char *menuName); /* 85 */ - KeySym (*tkStringToKeysym) (char *name); /* 86 */ - int (*tkThickPolyLineToArea) (double *coordPtr, int numPoints, double width, int capStyle, int joinStyle, double *rectPtr); /* 87 */ - void (*tkWmAddToColormapWindows) (TkWindow *winPtr); /* 88 */ - void (*tkWmDeadWindow) (TkWindow *winPtr); /* 89 */ - TkWindow * (*tkWmFocusToplevel) (TkWindow *winPtr); /* 90 */ - void (*tkWmMapWindow) (TkWindow *winPtr); /* 91 */ - void (*tkWmNewWindow) (TkWindow *winPtr); /* 92 */ - void (*tkWmProtocolEventProc) (TkWindow *winPtr, XEvent *evenvPtr); /* 93 */ - void (*tkWmRemoveFromColormapWindows) (TkWindow *winPtr); /* 94 */ - void (*tkWmRestackToplevel) (TkWindow *winPtr, int aboveBelow, TkWindow *otherPtr); /* 95 */ - void (*tkWmSetClass) (TkWindow *winPtr); /* 96 */ - void (*tkWmUnmapWindow) (TkWindow *winPtr); /* 97 */ - Tcl_Obj * (*tkDebugBitmap) (Tk_Window tkwin, char *name); /* 98 */ - Tcl_Obj * (*tkDebugBorder) (Tk_Window tkwin, char *name); /* 99 */ - Tcl_Obj * (*tkDebugCursor) (Tk_Window tkwin, char *name); /* 100 */ - Tcl_Obj * (*tkDebugColor) (Tk_Window tkwin, char *name); /* 101 */ - Tcl_Obj * (*tkDebugConfig) (Tcl_Interp *interp, Tk_OptionTable table); /* 102 */ - Tcl_Obj * (*tkDebugFont) (Tk_Window tkwin, char *name); /* 103 */ - int (*tkFindStateNumObj) (Tcl_Interp *interp, Tcl_Obj *optionPtr, CONST TkStateMap *mapPtr, Tcl_Obj *keyPtr); /* 104 */ - Tcl_HashTable * (*tkGetBitmapPredefTable) (void); /* 105 */ - TkDisplay * (*tkGetDisplayList) (void); /* 106 */ - TkMainInfo * (*tkGetMainInfoList) (void); /* 107 */ - int (*tkGetWindowFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, Tk_Window *windowPtr); /* 108 */ - char * (*tkpGetString) (TkWindow *winPtr, XEvent *eventPtr, Tcl_DString *dsPtr); /* 109 */ - void (*tkpGetSubFonts) (Tcl_Interp *interp, Tk_Font tkfont); /* 110 */ - Tcl_Obj * (*tkpGetSystemDefault) (Tk_Window tkwin, CONST char *dbName, CONST char *className); /* 111 */ - void (*tkpMenuThreadInit) (void); /* 112 */ - void (*tkClipBox) (TkRegion rgn, XRectangle *rect_return); /* 113 */ - TkRegion (*tkCreateRegion) (void); /* 114 */ - void (*tkDestroyRegion) (TkRegion rgn); /* 115 */ - void (*tkIntersectRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 116 */ - int (*tkRectInRegion) (TkRegion rgn, int x, int y, unsigned int width, unsigned int height); /* 117 */ - void (*tkSetRegion) (Display *display, GC gc, TkRegion rgn); /* 118 */ - void (*tkUnionRectWithRegion) (XRectangle *rect, TkRegion src, TkRegion dr_return); /* 119 */ - VOID *reserved120; -#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */ - VOID *reserved121; -#endif /* X11 */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved121; -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - VOID *reserved121; /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpCreateNativeBitmap) (Display *display, CONST char *source); /* 121 */ -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */ - VOID *reserved122; -#endif /* X11 */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved122; -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - VOID *reserved122; /* Dummy entry for stubs table backwards compatibility */ - void (*tkpDefineNativeBitmaps) (void); /* 122 */ -#endif /* AQUA */ - VOID *reserved123; -#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */ - VOID *reserved124; -#endif /* X11 */ -#if defined(__WIN32__) /* WIN */ - VOID *reserved124; -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - VOID *reserved124; /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpGetNativeAppBitmap) (Display *display, CONST char *name, int *width, int *height); /* 124 */ -#endif /* AQUA */ - VOID *reserved125; - VOID *reserved126; - VOID *reserved127; - VOID *reserved128; - VOID *reserved129; - VOID *reserved130; - VOID *reserved131; - VOID *reserved132; - VOID *reserved133; - VOID *reserved134; - void (*tkpDrawHighlightBorder) (Tk_Window tkwin, GC fgGC, GC bgGC, int highlightWidth, Drawable drawable); /* 135 */ - void (*tkSetFocusWin) (TkWindow *winPtr, int force); /* 136 */ - void (*tkpSetKeycodeAndState) (Tk_Window tkwin, KeySym keySym, XEvent *eventPtr); /* 137 */ - KeySym (*tkpGetKeySym) (TkDisplay *dispPtr, XEvent *eventPtr); /* 138 */ - void (*tkpInitKeymapInfo) (TkDisplay *dispPtr); /* 139 */ - TkRegion (*tkPhotoGetValidRegion) (Tk_PhotoHandle handle); /* 140 */ - TkWindow ** (*tkWmStackorderToplevel) (TkWindow *parentPtr); /* 141 */ - void (*tkFocusFree) (TkMainInfo *mainPtr); /* 142 */ - void (*tkClipCleanup) (TkDisplay *dispPtr); /* 143 */ - void (*tkGCCleanup) (TkDisplay *dispPtr); /* 144 */ - void (*tkSubtractRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 145 */ - void (*tkStylePkgInit) (TkMainInfo *mainPtr); /* 146 */ - void (*tkStylePkgFree) (TkMainInfo *mainPtr); /* 147 */ - Tk_Window (*tkToplevelWindowForCommand) (Tcl_Interp *interp, CONST char *cmdName); /* 148 */ - CONST Tk_OptionSpec * (*tkGetOptionSpec) (CONST char *name, Tk_OptionTable optionTable); /* 149 */ - int (*tkMakeRawCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 150 */ - void (*tkMakeRawCurvePostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 151 */ - void (*tkpDrawFrame) (Tk_Window tkwin, Tk_3DBorder border, int highlightWidth, int borderWidth, int relief); /* 152 */ - void (*tkCreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 153 */ - void (*tkDeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 154 */ - VOID *reserved155; - int (*tkpTestembedCmd) (ClientData clientData, Tcl_Interp *interp, int argc, CONST char **argv); /* 156 */ - int (*tkpTesttextCmd) (ClientData dummy, Tcl_Interp *interp, int argc, CONST char **argv); /* 157 */ - VOID *reserved158; - VOID *reserved159; - VOID *reserved160; - VOID *reserved161; - VOID *reserved162; - VOID *reserved163; - VOID *reserved164; - VOID *reserved165; - VOID *reserved166; - VOID *reserved167; - VOID *reserved168; - int (*tkStateParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 169 */ - char * (*tkStatePrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 170 */ - int (*tkCanvasDashParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 171 */ - char * (*tkCanvasDashPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 172 */ - int (*tkOffsetParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 173 */ - char * (*tkOffsetPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 174 */ - int (*tkPixelParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 175 */ - char * (*tkPixelPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 176 */ - int (*tkOrientParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 177 */ - char * (*tkOrientPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 178 */ - int (*tkSmoothParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 179 */ - char * (*tkSmoothPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 180 */ - VOID *reserved181; - VOID *reserved182; - VOID *reserved183; - void (*tkUnusedStubEntry) (void); /* 184 */ -} TkIntStubs; - -extern TkIntStubs *tkIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TkAllocWindow -#define TkAllocWindow \ - (tkIntStubsPtr->tkAllocWindow) /* 0 */ -#endif -#ifndef TkBezierPoints -#define TkBezierPoints \ - (tkIntStubsPtr->tkBezierPoints) /* 1 */ -#endif -#ifndef TkBezierScreenPoints -#define TkBezierScreenPoints \ - (tkIntStubsPtr->tkBezierScreenPoints) /* 2 */ -#endif -#ifndef TkBindDeadWindow -#define TkBindDeadWindow \ - (tkIntStubsPtr->tkBindDeadWindow) /* 3 */ -#endif -#ifndef TkBindEventProc -#define TkBindEventProc \ - (tkIntStubsPtr->tkBindEventProc) /* 4 */ -#endif -#ifndef TkBindFree -#define TkBindFree \ - (tkIntStubsPtr->tkBindFree) /* 5 */ -#endif -#ifndef TkBindInit -#define TkBindInit \ - (tkIntStubsPtr->tkBindInit) /* 6 */ -#endif -#ifndef TkChangeEventWindow -#define TkChangeEventWindow \ - (tkIntStubsPtr->tkChangeEventWindow) /* 7 */ -#endif -#ifndef TkClipInit -#define TkClipInit \ - (tkIntStubsPtr->tkClipInit) /* 8 */ -#endif -#ifndef TkComputeAnchor -#define TkComputeAnchor \ - (tkIntStubsPtr->tkComputeAnchor) /* 9 */ -#endif -#ifndef TkCopyAndGlobalEval -#define TkCopyAndGlobalEval \ - (tkIntStubsPtr->tkCopyAndGlobalEval) /* 10 */ -#endif -#ifndef TkCreateBindingProcedure -#define TkCreateBindingProcedure \ - (tkIntStubsPtr->tkCreateBindingProcedure) /* 11 */ -#endif -#ifndef TkCreateCursorFromData -#define TkCreateCursorFromData \ - (tkIntStubsPtr->tkCreateCursorFromData) /* 12 */ -#endif -#ifndef TkCreateFrame -#define TkCreateFrame \ - (tkIntStubsPtr->tkCreateFrame) /* 13 */ -#endif -#ifndef TkCreateMainWindow -#define TkCreateMainWindow \ - (tkIntStubsPtr->tkCreateMainWindow) /* 14 */ -#endif -#ifndef TkCurrentTime -#define TkCurrentTime \ - (tkIntStubsPtr->tkCurrentTime) /* 15 */ -#endif -#ifndef TkDeleteAllImages -#define TkDeleteAllImages \ - (tkIntStubsPtr->tkDeleteAllImages) /* 16 */ -#endif -#ifndef TkDoConfigureNotify -#define TkDoConfigureNotify \ - (tkIntStubsPtr->tkDoConfigureNotify) /* 17 */ -#endif -#ifndef TkDrawInsetFocusHighlight -#define TkDrawInsetFocusHighlight \ - (tkIntStubsPtr->tkDrawInsetFocusHighlight) /* 18 */ -#endif -#ifndef TkEventDeadWindow -#define TkEventDeadWindow \ - (tkIntStubsPtr->tkEventDeadWindow) /* 19 */ -#endif -#ifndef TkFillPolygon -#define TkFillPolygon \ - (tkIntStubsPtr->tkFillPolygon) /* 20 */ -#endif -#ifndef TkFindStateNum -#define TkFindStateNum \ - (tkIntStubsPtr->tkFindStateNum) /* 21 */ -#endif -#ifndef TkFindStateString -#define TkFindStateString \ - (tkIntStubsPtr->tkFindStateString) /* 22 */ -#endif -#ifndef TkFocusDeadWindow -#define TkFocusDeadWindow \ - (tkIntStubsPtr->tkFocusDeadWindow) /* 23 */ -#endif -#ifndef TkFocusFilterEvent -#define TkFocusFilterEvent \ - (tkIntStubsPtr->tkFocusFilterEvent) /* 24 */ -#endif -#ifndef TkFocusKeyEvent -#define TkFocusKeyEvent \ - (tkIntStubsPtr->tkFocusKeyEvent) /* 25 */ -#endif -#ifndef TkFontPkgInit -#define TkFontPkgInit \ - (tkIntStubsPtr->tkFontPkgInit) /* 26 */ -#endif -#ifndef TkFontPkgFree -#define TkFontPkgFree \ - (tkIntStubsPtr->tkFontPkgFree) /* 27 */ -#endif -#ifndef TkFreeBindingTags -#define TkFreeBindingTags \ - (tkIntStubsPtr->tkFreeBindingTags) /* 28 */ -#endif -#ifndef TkpFreeCursor -#define TkpFreeCursor \ - (tkIntStubsPtr->tkpFreeCursor) /* 29 */ -#endif -#ifndef TkGetBitmapData -#define TkGetBitmapData \ - (tkIntStubsPtr->tkGetBitmapData) /* 30 */ -#endif -#ifndef TkGetButtPoints -#define TkGetButtPoints \ - (tkIntStubsPtr->tkGetButtPoints) /* 31 */ -#endif -#ifndef TkGetCursorByName -#define TkGetCursorByName \ - (tkIntStubsPtr->tkGetCursorByName) /* 32 */ -#endif -#ifndef TkGetDefaultScreenName -#define TkGetDefaultScreenName \ - (tkIntStubsPtr->tkGetDefaultScreenName) /* 33 */ -#endif -#ifndef TkGetDisplay -#define TkGetDisplay \ - (tkIntStubsPtr->tkGetDisplay) /* 34 */ -#endif -#ifndef TkGetDisplayOf -#define TkGetDisplayOf \ - (tkIntStubsPtr->tkGetDisplayOf) /* 35 */ -#endif -#ifndef TkGetFocusWin -#define TkGetFocusWin \ - (tkIntStubsPtr->tkGetFocusWin) /* 36 */ -#endif -#ifndef TkGetInterpNames -#define TkGetInterpNames \ - (tkIntStubsPtr->tkGetInterpNames) /* 37 */ -#endif -#ifndef TkGetMiterPoints -#define TkGetMiterPoints \ - (tkIntStubsPtr->tkGetMiterPoints) /* 38 */ -#endif -#ifndef TkGetPointerCoords -#define TkGetPointerCoords \ - (tkIntStubsPtr->tkGetPointerCoords) /* 39 */ -#endif -#ifndef TkGetServerInfo -#define TkGetServerInfo \ - (tkIntStubsPtr->tkGetServerInfo) /* 40 */ -#endif -#ifndef TkGrabDeadWindow -#define TkGrabDeadWindow \ - (tkIntStubsPtr->tkGrabDeadWindow) /* 41 */ -#endif -#ifndef TkGrabState -#define TkGrabState \ - (tkIntStubsPtr->tkGrabState) /* 42 */ -#endif -#ifndef TkIncludePoint -#define TkIncludePoint \ - (tkIntStubsPtr->tkIncludePoint) /* 43 */ -#endif -#ifndef TkInOutEvents -#define TkInOutEvents \ - (tkIntStubsPtr->tkInOutEvents) /* 44 */ -#endif -#ifndef TkInstallFrameMenu -#define TkInstallFrameMenu \ - (tkIntStubsPtr->tkInstallFrameMenu) /* 45 */ -#endif -#ifndef TkKeysymToString -#define TkKeysymToString \ - (tkIntStubsPtr->tkKeysymToString) /* 46 */ -#endif -#ifndef TkLineToArea -#define TkLineToArea \ - (tkIntStubsPtr->tkLineToArea) /* 47 */ -#endif -#ifndef TkLineToPoint -#define TkLineToPoint \ - (tkIntStubsPtr->tkLineToPoint) /* 48 */ -#endif -#ifndef TkMakeBezierCurve -#define TkMakeBezierCurve \ - (tkIntStubsPtr->tkMakeBezierCurve) /* 49 */ -#endif -#ifndef TkMakeBezierPostscript -#define TkMakeBezierPostscript \ - (tkIntStubsPtr->tkMakeBezierPostscript) /* 50 */ -#endif -#ifndef TkOptionClassChanged -#define TkOptionClassChanged \ - (tkIntStubsPtr->tkOptionClassChanged) /* 51 */ -#endif -#ifndef TkOptionDeadWindow -#define TkOptionDeadWindow \ - (tkIntStubsPtr->tkOptionDeadWindow) /* 52 */ -#endif -#ifndef TkOvalToArea -#define TkOvalToArea \ - (tkIntStubsPtr->tkOvalToArea) /* 53 */ -#endif -#ifndef TkOvalToPoint -#define TkOvalToPoint \ - (tkIntStubsPtr->tkOvalToPoint) /* 54 */ -#endif -#ifndef TkpChangeFocus -#define TkpChangeFocus \ - (tkIntStubsPtr->tkpChangeFocus) /* 55 */ -#endif -#ifndef TkpCloseDisplay -#define TkpCloseDisplay \ - (tkIntStubsPtr->tkpCloseDisplay) /* 56 */ -#endif -#ifndef TkpClaimFocus -#define TkpClaimFocus \ - (tkIntStubsPtr->tkpClaimFocus) /* 57 */ -#endif -#ifndef TkpDisplayWarning -#define TkpDisplayWarning \ - (tkIntStubsPtr->tkpDisplayWarning) /* 58 */ -#endif -#ifndef TkpGetAppName -#define TkpGetAppName \ - (tkIntStubsPtr->tkpGetAppName) /* 59 */ -#endif -#ifndef TkpGetOtherWindow -#define TkpGetOtherWindow \ - (tkIntStubsPtr->tkpGetOtherWindow) /* 60 */ -#endif -#ifndef TkpGetWrapperWindow -#define TkpGetWrapperWindow \ - (tkIntStubsPtr->tkpGetWrapperWindow) /* 61 */ -#endif -#ifndef TkpInit -#define TkpInit \ - (tkIntStubsPtr->tkpInit) /* 62 */ -#endif -#ifndef TkpInitializeMenuBindings -#define TkpInitializeMenuBindings \ - (tkIntStubsPtr->tkpInitializeMenuBindings) /* 63 */ -#endif -#ifndef TkpMakeContainer -#define TkpMakeContainer \ - (tkIntStubsPtr->tkpMakeContainer) /* 64 */ -#endif -#ifndef TkpMakeMenuWindow -#define TkpMakeMenuWindow \ - (tkIntStubsPtr->tkpMakeMenuWindow) /* 65 */ -#endif -#ifndef TkpMakeWindow -#define TkpMakeWindow \ - (tkIntStubsPtr->tkpMakeWindow) /* 66 */ -#endif -#ifndef TkpMenuNotifyToplevelCreate -#define TkpMenuNotifyToplevelCreate \ - (tkIntStubsPtr->tkpMenuNotifyToplevelCreate) /* 67 */ -#endif -#ifndef TkpOpenDisplay -#define TkpOpenDisplay \ - (tkIntStubsPtr->tkpOpenDisplay) /* 68 */ -#endif -#ifndef TkPointerEvent -#define TkPointerEvent \ - (tkIntStubsPtr->tkPointerEvent) /* 69 */ -#endif -#ifndef TkPolygonToArea -#define TkPolygonToArea \ - (tkIntStubsPtr->tkPolygonToArea) /* 70 */ -#endif -#ifndef TkPolygonToPoint -#define TkPolygonToPoint \ - (tkIntStubsPtr->tkPolygonToPoint) /* 71 */ -#endif -#ifndef TkPositionInTree -#define TkPositionInTree \ - (tkIntStubsPtr->tkPositionInTree) /* 72 */ -#endif -#ifndef TkpRedirectKeyEvent -#define TkpRedirectKeyEvent \ - (tkIntStubsPtr->tkpRedirectKeyEvent) /* 73 */ -#endif -#ifndef TkpSetMainMenubar -#define TkpSetMainMenubar \ - (tkIntStubsPtr->tkpSetMainMenubar) /* 74 */ -#endif -#ifndef TkpUseWindow -#define TkpUseWindow \ - (tkIntStubsPtr->tkpUseWindow) /* 75 */ -#endif -#ifndef TkpWindowWasRecentlyDeleted -#define TkpWindowWasRecentlyDeleted \ - (tkIntStubsPtr->tkpWindowWasRecentlyDeleted) /* 76 */ -#endif -#ifndef TkQueueEventForAllChildren -#define TkQueueEventForAllChildren \ - (tkIntStubsPtr->tkQueueEventForAllChildren) /* 77 */ -#endif -#ifndef TkReadBitmapFile -#define TkReadBitmapFile \ - (tkIntStubsPtr->tkReadBitmapFile) /* 78 */ -#endif -#ifndef TkScrollWindow -#define TkScrollWindow \ - (tkIntStubsPtr->tkScrollWindow) /* 79 */ -#endif -#ifndef TkSelDeadWindow -#define TkSelDeadWindow \ - (tkIntStubsPtr->tkSelDeadWindow) /* 80 */ -#endif -#ifndef TkSelEventProc -#define TkSelEventProc \ - (tkIntStubsPtr->tkSelEventProc) /* 81 */ -#endif -#ifndef TkSelInit -#define TkSelInit \ - (tkIntStubsPtr->tkSelInit) /* 82 */ -#endif -#ifndef TkSelPropProc -#define TkSelPropProc \ - (tkIntStubsPtr->tkSelPropProc) /* 83 */ -#endif -/* Slot 84 is reserved */ -#ifndef TkSetWindowMenuBar -#define TkSetWindowMenuBar \ - (tkIntStubsPtr->tkSetWindowMenuBar) /* 85 */ -#endif -#ifndef TkStringToKeysym -#define TkStringToKeysym \ - (tkIntStubsPtr->tkStringToKeysym) /* 86 */ -#endif -#ifndef TkThickPolyLineToArea -#define TkThickPolyLineToArea \ - (tkIntStubsPtr->tkThickPolyLineToArea) /* 87 */ -#endif -#ifndef TkWmAddToColormapWindows -#define TkWmAddToColormapWindows \ - (tkIntStubsPtr->tkWmAddToColormapWindows) /* 88 */ -#endif -#ifndef TkWmDeadWindow -#define TkWmDeadWindow \ - (tkIntStubsPtr->tkWmDeadWindow) /* 89 */ -#endif -#ifndef TkWmFocusToplevel -#define TkWmFocusToplevel \ - (tkIntStubsPtr->tkWmFocusToplevel) /* 90 */ -#endif -#ifndef TkWmMapWindow -#define TkWmMapWindow \ - (tkIntStubsPtr->tkWmMapWindow) /* 91 */ -#endif -#ifndef TkWmNewWindow -#define TkWmNewWindow \ - (tkIntStubsPtr->tkWmNewWindow) /* 92 */ -#endif -#ifndef TkWmProtocolEventProc -#define TkWmProtocolEventProc \ - (tkIntStubsPtr->tkWmProtocolEventProc) /* 93 */ -#endif -#ifndef TkWmRemoveFromColormapWindows -#define TkWmRemoveFromColormapWindows \ - (tkIntStubsPtr->tkWmRemoveFromColormapWindows) /* 94 */ -#endif -#ifndef TkWmRestackToplevel -#define TkWmRestackToplevel \ - (tkIntStubsPtr->tkWmRestackToplevel) /* 95 */ -#endif -#ifndef TkWmSetClass -#define TkWmSetClass \ - (tkIntStubsPtr->tkWmSetClass) /* 96 */ -#endif -#ifndef TkWmUnmapWindow -#define TkWmUnmapWindow \ - (tkIntStubsPtr->tkWmUnmapWindow) /* 97 */ -#endif -#ifndef TkDebugBitmap -#define TkDebugBitmap \ - (tkIntStubsPtr->tkDebugBitmap) /* 98 */ -#endif -#ifndef TkDebugBorder -#define TkDebugBorder \ - (tkIntStubsPtr->tkDebugBorder) /* 99 */ -#endif -#ifndef TkDebugCursor -#define TkDebugCursor \ - (tkIntStubsPtr->tkDebugCursor) /* 100 */ -#endif -#ifndef TkDebugColor -#define TkDebugColor \ - (tkIntStubsPtr->tkDebugColor) /* 101 */ -#endif -#ifndef TkDebugConfig -#define TkDebugConfig \ - (tkIntStubsPtr->tkDebugConfig) /* 102 */ -#endif -#ifndef TkDebugFont -#define TkDebugFont \ - (tkIntStubsPtr->tkDebugFont) /* 103 */ -#endif -#ifndef TkFindStateNumObj -#define TkFindStateNumObj \ - (tkIntStubsPtr->tkFindStateNumObj) /* 104 */ -#endif -#ifndef TkGetBitmapPredefTable -#define TkGetBitmapPredefTable \ - (tkIntStubsPtr->tkGetBitmapPredefTable) /* 105 */ -#endif -#ifndef TkGetDisplayList -#define TkGetDisplayList \ - (tkIntStubsPtr->tkGetDisplayList) /* 106 */ -#endif -#ifndef TkGetMainInfoList -#define TkGetMainInfoList \ - (tkIntStubsPtr->tkGetMainInfoList) /* 107 */ -#endif -#ifndef TkGetWindowFromObj -#define TkGetWindowFromObj \ - (tkIntStubsPtr->tkGetWindowFromObj) /* 108 */ -#endif -#ifndef TkpGetString -#define TkpGetString \ - (tkIntStubsPtr->tkpGetString) /* 109 */ -#endif -#ifndef TkpGetSubFonts -#define TkpGetSubFonts \ - (tkIntStubsPtr->tkpGetSubFonts) /* 110 */ -#endif -#ifndef TkpGetSystemDefault -#define TkpGetSystemDefault \ - (tkIntStubsPtr->tkpGetSystemDefault) /* 111 */ -#endif -#ifndef TkpMenuThreadInit -#define TkpMenuThreadInit \ - (tkIntStubsPtr->tkpMenuThreadInit) /* 112 */ -#endif -#ifndef TkClipBox -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#endif -#ifndef TkCreateRegion -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#endif -#ifndef TkDestroyRegion -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#endif -#ifndef TkIntersectRegion -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#endif -#ifndef TkRectInRegion -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#endif -#ifndef TkSetRegion -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#endif -#ifndef TkUnionRectWithRegion -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -#endif -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpCreateNativeBitmap -#define TkpCreateNativeBitmap \ - (tkIntStubsPtr->tkpCreateNativeBitmap) /* 121 */ -#endif -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpDefineNativeBitmaps -#define TkpDefineNativeBitmaps \ - (tkIntStubsPtr->tkpDefineNativeBitmaps) /* 122 */ -#endif -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkpGetNativeAppBitmap -#define TkpGetNativeAppBitmap \ - (tkIntStubsPtr->tkpGetNativeAppBitmap) /* 124 */ -#endif -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#ifndef TkpDrawHighlightBorder -#define TkpDrawHighlightBorder \ - (tkIntStubsPtr->tkpDrawHighlightBorder) /* 135 */ -#endif -#ifndef TkSetFocusWin -#define TkSetFocusWin \ - (tkIntStubsPtr->tkSetFocusWin) /* 136 */ -#endif -#ifndef TkpSetKeycodeAndState -#define TkpSetKeycodeAndState \ - (tkIntStubsPtr->tkpSetKeycodeAndState) /* 137 */ -#endif -#ifndef TkpGetKeySym -#define TkpGetKeySym \ - (tkIntStubsPtr->tkpGetKeySym) /* 138 */ -#endif -#ifndef TkpInitKeymapInfo -#define TkpInitKeymapInfo \ - (tkIntStubsPtr->tkpInitKeymapInfo) /* 139 */ -#endif -#ifndef TkPhotoGetValidRegion -#define TkPhotoGetValidRegion \ - (tkIntStubsPtr->tkPhotoGetValidRegion) /* 140 */ -#endif -#ifndef TkWmStackorderToplevel -#define TkWmStackorderToplevel \ - (tkIntStubsPtr->tkWmStackorderToplevel) /* 141 */ -#endif -#ifndef TkFocusFree -#define TkFocusFree \ - (tkIntStubsPtr->tkFocusFree) /* 142 */ -#endif -#ifndef TkClipCleanup -#define TkClipCleanup \ - (tkIntStubsPtr->tkClipCleanup) /* 143 */ -#endif -#ifndef TkGCCleanup -#define TkGCCleanup \ - (tkIntStubsPtr->tkGCCleanup) /* 144 */ -#endif -#ifndef TkSubtractRegion -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#endif -#ifndef TkStylePkgInit -#define TkStylePkgInit \ - (tkIntStubsPtr->tkStylePkgInit) /* 146 */ -#endif -#ifndef TkStylePkgFree -#define TkStylePkgFree \ - (tkIntStubsPtr->tkStylePkgFree) /* 147 */ -#endif -#ifndef TkToplevelWindowForCommand -#define TkToplevelWindowForCommand \ - (tkIntStubsPtr->tkToplevelWindowForCommand) /* 148 */ -#endif -#ifndef TkGetOptionSpec -#define TkGetOptionSpec \ - (tkIntStubsPtr->tkGetOptionSpec) /* 149 */ -#endif -#ifndef TkMakeRawCurve -#define TkMakeRawCurve \ - (tkIntStubsPtr->tkMakeRawCurve) /* 150 */ -#endif -#ifndef TkMakeRawCurvePostscript -#define TkMakeRawCurvePostscript \ - (tkIntStubsPtr->tkMakeRawCurvePostscript) /* 151 */ -#endif -#ifndef TkpDrawFrame -#define TkpDrawFrame \ - (tkIntStubsPtr->tkpDrawFrame) /* 152 */ -#endif -#ifndef TkCreateThreadExitHandler -#define TkCreateThreadExitHandler \ - (tkIntStubsPtr->tkCreateThreadExitHandler) /* 153 */ -#endif -#ifndef TkDeleteThreadExitHandler -#define TkDeleteThreadExitHandler \ - (tkIntStubsPtr->tkDeleteThreadExitHandler) /* 154 */ -#endif -/* Slot 155 is reserved */ -#ifndef TkpTestembedCmd -#define TkpTestembedCmd \ - (tkIntStubsPtr->tkpTestembedCmd) /* 156 */ -#endif -#ifndef TkpTesttextCmd -#define TkpTesttextCmd \ - (tkIntStubsPtr->tkpTesttextCmd) /* 157 */ -#endif -/* Slot 158 is reserved */ -/* Slot 159 is reserved */ -/* Slot 160 is reserved */ -/* Slot 161 is reserved */ -/* Slot 162 is reserved */ -/* Slot 163 is reserved */ -/* Slot 164 is reserved */ -/* Slot 165 is reserved */ -/* Slot 166 is reserved */ -/* Slot 167 is reserved */ -/* Slot 168 is reserved */ -#ifndef TkStateParseProc -#define TkStateParseProc \ - (tkIntStubsPtr->tkStateParseProc) /* 169 */ -#endif -#ifndef TkStatePrintProc -#define TkStatePrintProc \ - (tkIntStubsPtr->tkStatePrintProc) /* 170 */ -#endif -#ifndef TkCanvasDashParseProc -#define TkCanvasDashParseProc \ - (tkIntStubsPtr->tkCanvasDashParseProc) /* 171 */ -#endif -#ifndef TkCanvasDashPrintProc -#define TkCanvasDashPrintProc \ - (tkIntStubsPtr->tkCanvasDashPrintProc) /* 172 */ -#endif -#ifndef TkOffsetParseProc -#define TkOffsetParseProc \ - (tkIntStubsPtr->tkOffsetParseProc) /* 173 */ -#endif -#ifndef TkOffsetPrintProc -#define TkOffsetPrintProc \ - (tkIntStubsPtr->tkOffsetPrintProc) /* 174 */ -#endif -#ifndef TkPixelParseProc -#define TkPixelParseProc \ - (tkIntStubsPtr->tkPixelParseProc) /* 175 */ -#endif -#ifndef TkPixelPrintProc -#define TkPixelPrintProc \ - (tkIntStubsPtr->tkPixelPrintProc) /* 176 */ -#endif -#ifndef TkOrientParseProc -#define TkOrientParseProc \ - (tkIntStubsPtr->tkOrientParseProc) /* 177 */ -#endif -#ifndef TkOrientPrintProc -#define TkOrientPrintProc \ - (tkIntStubsPtr->tkOrientPrintProc) /* 178 */ -#endif -#ifndef TkSmoothParseProc -#define TkSmoothParseProc \ - (tkIntStubsPtr->tkSmoothParseProc) /* 179 */ -#endif -#ifndef TkSmoothPrintProc -#define TkSmoothPrintProc \ - (tkIntStubsPtr->tkSmoothPrintProc) /* 180 */ -#endif -/* Slot 181 is reserved */ -/* Slot 182 is reserved */ -/* Slot 183 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkIntStubsPtr->tkUnusedStubEntry) /* 184 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TK) - -/* - * These macros are just wrappers for the equivalent X Region calls. - */ -# undef TkClipBox -# undef TkCreateRegion -# undef TkDestroyRegion -# undef TkIntersectRegion -# undef TkRectInRegion -# undef TkSetRegion -# undef TkSubtractRegion -# undef TkUnionRectWithRegion - -# define TkClipBox(rgn, rect) XClipBox((Region) (rgn), (rect)) -# define TkCreateRegion() (TkRegion) XCreateRegion() -# define TkDestroyRegion(rgn) XDestroyRegion((Region) (rgn)) -# define TkIntersectRegion(a, b, r) XIntersectRegion((Region) (a), \ -(Region) (b), (Region) (r)) -# define TkRectInRegion(r, x, y, w, h) XRectInRegion((Region) (r), (x), (y), (w), (h)) -# define TkSetRegion(d, gc, rgn) XSetRegion((d), (gc), (Region) (rgn)) -# define TkSubtractRegion(a, b, r) XSubtractRegion((Region) (a), \ -(Region) (b), (Region) (r)) -# define TkUnionRectWithRegion(rect, src, ret) XUnionRectWithRegion((rect), \ -(Region) (src), (Region) (ret)) -#endif /* !__CYGWIN__*/ - -#undef TkUnusedStubEntry -#if defined(__CYGWIN__) && defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) -# undef TkBindDeadWindow -# define TkBindDeadWindow(winPtr) /* Removed from Cygwins stub table, just do nothing */ -#endif - -#endif /* _TKINTDECLS */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntPlatDecls.h deleted file mode 100644 index 86127fed5..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntPlatDecls.h +++ /dev/null @@ -1,1228 +0,0 @@ -/* - * tkIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTPLATDECLS -#define _TKINTPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TkAlignImageData_TCL_DECLARED -#define TkAlignImageData_TCL_DECLARED -/* 0 */ -EXTERN char * TkAlignImageData(XImage *image, int alignment, - int bitOrder); -#endif -/* Slot 1 is reserved */ -#ifndef TkGenerateActivateEvents_TCL_DECLARED -#define TkGenerateActivateEvents_TCL_DECLARED -/* 2 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -#endif -#ifndef TkpGetMS_TCL_DECLARED -#define TkpGetMS_TCL_DECLARED -/* 3 */ -EXTERN unsigned long TkpGetMS(void); -#endif -#ifndef TkPointerDeadWindow_TCL_DECLARED -#define TkPointerDeadWindow_TCL_DECLARED -/* 4 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkpPrintWindowId_TCL_DECLARED -#define TkpPrintWindowId_TCL_DECLARED -/* 5 */ -EXTERN void TkpPrintWindowId(char *buf, Window window); -#endif -#ifndef TkpScanWindowId_TCL_DECLARED -#define TkpScanWindowId_TCL_DECLARED -/* 6 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - CONST char *string, Window *idPtr); -#endif -#ifndef TkpSetCapture_TCL_DECLARED -#define TkpSetCapture_TCL_DECLARED -/* 7 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -#endif -#ifndef TkpSetCursor_TCL_DECLARED -#define TkpSetCursor_TCL_DECLARED -/* 8 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -#endif -#ifndef TkpWmSetState_TCL_DECLARED -#define TkpWmSetState_TCL_DECLARED -/* 9 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -#endif -#ifndef TkSetPixmapColormap_TCL_DECLARED -#define TkSetPixmapColormap_TCL_DECLARED -/* 10 */ -EXTERN void TkSetPixmapColormap(Pixmap pixmap, Colormap colormap); -#endif -#ifndef TkWinCancelMouseTimer_TCL_DECLARED -#define TkWinCancelMouseTimer_TCL_DECLARED -/* 11 */ -EXTERN void TkWinCancelMouseTimer(void); -#endif -#ifndef TkWinClipboardRender_TCL_DECLARED -#define TkWinClipboardRender_TCL_DECLARED -/* 12 */ -EXTERN void TkWinClipboardRender(TkDisplay *dispPtr, UINT format); -#endif -#ifndef TkWinEmbeddedEventProc_TCL_DECLARED -#define TkWinEmbeddedEventProc_TCL_DECLARED -/* 13 */ -EXTERN LRESULT TkWinEmbeddedEventProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -#endif -#ifndef TkWinFillRect_TCL_DECLARED -#define TkWinFillRect_TCL_DECLARED -/* 14 */ -EXTERN void TkWinFillRect(HDC dc, int x, int y, int width, - int height, int pixel); -#endif -#ifndef TkWinGetBorderPixels_TCL_DECLARED -#define TkWinGetBorderPixels_TCL_DECLARED -/* 15 */ -EXTERN COLORREF TkWinGetBorderPixels(Tk_Window tkwin, - Tk_3DBorder border, int which); -#endif -#ifndef TkWinGetDrawableDC_TCL_DECLARED -#define TkWinGetDrawableDC_TCL_DECLARED -/* 16 */ -EXTERN HDC TkWinGetDrawableDC(Display *display, Drawable d, - TkWinDCState *state); -#endif -#ifndef TkWinGetModifierState_TCL_DECLARED -#define TkWinGetModifierState_TCL_DECLARED -/* 17 */ -EXTERN int TkWinGetModifierState(void); -#endif -#ifndef TkWinGetSystemPalette_TCL_DECLARED -#define TkWinGetSystemPalette_TCL_DECLARED -/* 18 */ -EXTERN HPALETTE TkWinGetSystemPalette(void); -#endif -#ifndef TkWinGetWrapperWindow_TCL_DECLARED -#define TkWinGetWrapperWindow_TCL_DECLARED -/* 19 */ -EXTERN HWND TkWinGetWrapperWindow(Tk_Window tkwin); -#endif -#ifndef TkWinHandleMenuEvent_TCL_DECLARED -#define TkWinHandleMenuEvent_TCL_DECLARED -/* 20 */ -EXTERN int TkWinHandleMenuEvent(HWND *phwnd, UINT *pMessage, - WPARAM *pwParam, LPARAM *plParam, - LRESULT *plResult); -#endif -#ifndef TkWinIndexOfColor_TCL_DECLARED -#define TkWinIndexOfColor_TCL_DECLARED -/* 21 */ -EXTERN int TkWinIndexOfColor(XColor *colorPtr); -#endif -#ifndef TkWinReleaseDrawableDC_TCL_DECLARED -#define TkWinReleaseDrawableDC_TCL_DECLARED -/* 22 */ -EXTERN void TkWinReleaseDrawableDC(Drawable d, HDC hdc, - TkWinDCState *state); -#endif -#ifndef TkWinResendEvent_TCL_DECLARED -#define TkWinResendEvent_TCL_DECLARED -/* 23 */ -EXTERN LRESULT TkWinResendEvent(WNDPROC wndproc, HWND hwnd, - XEvent *eventPtr); -#endif -#ifndef TkWinSelectPalette_TCL_DECLARED -#define TkWinSelectPalette_TCL_DECLARED -/* 24 */ -EXTERN HPALETTE TkWinSelectPalette(HDC dc, Colormap colormap); -#endif -#ifndef TkWinSetMenu_TCL_DECLARED -#define TkWinSetMenu_TCL_DECLARED -/* 25 */ -EXTERN void TkWinSetMenu(Tk_Window tkwin, HMENU hMenu); -#endif -#ifndef TkWinSetWindowPos_TCL_DECLARED -#define TkWinSetWindowPos_TCL_DECLARED -/* 26 */ -EXTERN void TkWinSetWindowPos(HWND hwnd, HWND siblingHwnd, - int pos); -#endif -#ifndef TkWinWmCleanup_TCL_DECLARED -#define TkWinWmCleanup_TCL_DECLARED -/* 27 */ -EXTERN void TkWinWmCleanup(HINSTANCE hInstance); -#endif -#ifndef TkWinXCleanup_TCL_DECLARED -#define TkWinXCleanup_TCL_DECLARED -/* 28 */ -EXTERN void TkWinXCleanup(ClientData clientData); -#endif -#ifndef TkWinXInit_TCL_DECLARED -#define TkWinXInit_TCL_DECLARED -/* 29 */ -EXTERN void TkWinXInit(HINSTANCE hInstance); -#endif -#ifndef TkWinSetForegroundWindow_TCL_DECLARED -#define TkWinSetForegroundWindow_TCL_DECLARED -/* 30 */ -EXTERN void TkWinSetForegroundWindow(TkWindow *winPtr); -#endif -#ifndef TkWinDialogDebug_TCL_DECLARED -#define TkWinDialogDebug_TCL_DECLARED -/* 31 */ -EXTERN void TkWinDialogDebug(int debug); -#endif -#ifndef TkWinGetMenuSystemDefault_TCL_DECLARED -#define TkWinGetMenuSystemDefault_TCL_DECLARED -/* 32 */ -EXTERN Tcl_Obj * TkWinGetMenuSystemDefault(Tk_Window tkwin, - CONST char *dbName, CONST char *className); -#endif -#ifndef TkWinGetPlatformId_TCL_DECLARED -#define TkWinGetPlatformId_TCL_DECLARED -/* 33 */ -EXTERN int TkWinGetPlatformId(void); -#endif -#ifndef TkWinSetHINSTANCE_TCL_DECLARED -#define TkWinSetHINSTANCE_TCL_DECLARED -/* 34 */ -EXTERN void TkWinSetHINSTANCE(HINSTANCE hInstance); -#endif -#ifndef TkWinGetPlatformTheme_TCL_DECLARED -#define TkWinGetPlatformTheme_TCL_DECLARED -/* 35 */ -EXTERN int TkWinGetPlatformTheme(void); -#endif -#ifndef TkWinChildProc_TCL_DECLARED -#define TkWinChildProc_TCL_DECLARED -/* 36 */ -EXTERN LRESULT __stdcall TkWinChildProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -#endif -#ifndef TkCreateXEventSource_TCL_DECLARED -#define TkCreateXEventSource_TCL_DECLARED -/* 37 */ -EXTERN void TkCreateXEventSource(void); -#endif -#ifndef TkpCmapStressed_TCL_DECLARED -#define TkpCmapStressed_TCL_DECLARED -/* 38 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -#endif -#ifndef TkpSync_TCL_DECLARED -#define TkpSync_TCL_DECLARED -/* 39 */ -EXTERN void TkpSync(Display *display); -#endif -#ifndef TkUnixContainerId_TCL_DECLARED -#define TkUnixContainerId_TCL_DECLARED -/* 40 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -#endif -#ifndef TkUnixDoOneXEvent_TCL_DECLARED -#define TkUnixDoOneXEvent_TCL_DECLARED -/* 41 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -#endif -#ifndef TkUnixSetMenubar_TCL_DECLARED -#define TkUnixSetMenubar_TCL_DECLARED -/* 42 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -#endif -#ifndef TkWmCleanup_TCL_DECLARED -#define TkWmCleanup_TCL_DECLARED -/* 43 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkSendCleanup_TCL_DECLARED -#define TkSendCleanup_TCL_DECLARED -/* 44 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkpTestsendCmd_TCL_DECLARED -#define TkpTestsendCmd_TCL_DECLARED -/* 45 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST char **argv); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkGenerateActivateEvents_TCL_DECLARED -#define TkGenerateActivateEvents_TCL_DECLARED -/* 0 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -#endif -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TkPointerDeadWindow_TCL_DECLARED -#define TkPointerDeadWindow_TCL_DECLARED -/* 3 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -#endif -#ifndef TkpSetCapture_TCL_DECLARED -#define TkpSetCapture_TCL_DECLARED -/* 4 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -#endif -#ifndef TkpSetCursor_TCL_DECLARED -#define TkpSetCursor_TCL_DECLARED -/* 5 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -#endif -#ifndef TkpWmSetState_TCL_DECLARED -#define TkpWmSetState_TCL_DECLARED -/* 6 */ -EXTERN void TkpWmSetState(TkWindow *winPtr, int state); -#endif -#ifndef TkAboutDlg_TCL_DECLARED -#define TkAboutDlg_TCL_DECLARED -/* 7 */ -EXTERN void TkAboutDlg(void); -#endif -#ifndef TkMacOSXButtonKeyState_TCL_DECLARED -#define TkMacOSXButtonKeyState_TCL_DECLARED -/* 8 */ -EXTERN unsigned int TkMacOSXButtonKeyState(void); -#endif -#ifndef TkMacOSXClearMenubarActive_TCL_DECLARED -#define TkMacOSXClearMenubarActive_TCL_DECLARED -/* 9 */ -EXTERN void TkMacOSXClearMenubarActive(void); -#endif -#ifndef TkMacOSXDispatchMenuEvent_TCL_DECLARED -#define TkMacOSXDispatchMenuEvent_TCL_DECLARED -/* 10 */ -EXTERN int TkMacOSXDispatchMenuEvent(int menuID, int index); -#endif -#ifndef TkMacOSXInstallCursor_TCL_DECLARED -#define TkMacOSXInstallCursor_TCL_DECLARED -/* 11 */ -EXTERN void TkMacOSXInstallCursor(int resizeOverride); -#endif -#ifndef TkMacOSXHandleTearoffMenu_TCL_DECLARED -#define TkMacOSXHandleTearoffMenu_TCL_DECLARED -/* 12 */ -EXTERN void TkMacOSXHandleTearoffMenu(void); -#endif -/* Slot 13 is reserved */ -#ifndef TkMacOSXDoHLEvent_TCL_DECLARED -#define TkMacOSXDoHLEvent_TCL_DECLARED -/* 14 */ -EXTERN int TkMacOSXDoHLEvent(VOID *theEvent); -#endif -/* Slot 15 is reserved */ -#ifndef TkMacOSXGetXWindow_TCL_DECLARED -#define TkMacOSXGetXWindow_TCL_DECLARED -/* 16 */ -EXTERN Window TkMacOSXGetXWindow(VOID *macWinPtr); -#endif -#ifndef TkMacOSXGrowToplevel_TCL_DECLARED -#define TkMacOSXGrowToplevel_TCL_DECLARED -/* 17 */ -EXTERN int TkMacOSXGrowToplevel(VOID *whichWindow, XPoint start); -#endif -#ifndef TkMacOSXHandleMenuSelect_TCL_DECLARED -#define TkMacOSXHandleMenuSelect_TCL_DECLARED -/* 18 */ -EXTERN void TkMacOSXHandleMenuSelect(short theMenu, - unsigned short theItem, int optionKeyPressed); -#endif -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#ifndef TkMacOSXInvalidateWindow_TCL_DECLARED -#define TkMacOSXInvalidateWindow_TCL_DECLARED -/* 21 */ -EXTERN void TkMacOSXInvalidateWindow(MacDrawable *macWin, - int flag); -#endif -#ifndef TkMacOSXIsCharacterMissing_TCL_DECLARED -#define TkMacOSXIsCharacterMissing_TCL_DECLARED -/* 22 */ -EXTERN int TkMacOSXIsCharacterMissing(Tk_Font tkfont, - unsigned int searchChar); -#endif -#ifndef TkMacOSXMakeRealWindowExist_TCL_DECLARED -#define TkMacOSXMakeRealWindowExist_TCL_DECLARED -/* 23 */ -EXTERN void TkMacOSXMakeRealWindowExist(TkWindow *winPtr); -#endif -#ifndef TkMacOSXMakeStippleMap_TCL_DECLARED -#define TkMacOSXMakeStippleMap_TCL_DECLARED -/* 24 */ -EXTERN VOID * TkMacOSXMakeStippleMap(Drawable d1, Drawable d2); -#endif -#ifndef TkMacOSXMenuClick_TCL_DECLARED -#define TkMacOSXMenuClick_TCL_DECLARED -/* 25 */ -EXTERN void TkMacOSXMenuClick(void); -#endif -#ifndef TkMacOSXRegisterOffScreenWindow_TCL_DECLARED -#define TkMacOSXRegisterOffScreenWindow_TCL_DECLARED -/* 26 */ -EXTERN void TkMacOSXRegisterOffScreenWindow(Window window, - VOID *portPtr); -#endif -#ifndef TkMacOSXResizable_TCL_DECLARED -#define TkMacOSXResizable_TCL_DECLARED -/* 27 */ -EXTERN int TkMacOSXResizable(TkWindow *winPtr); -#endif -#ifndef TkMacOSXSetHelpMenuItemCount_TCL_DECLARED -#define TkMacOSXSetHelpMenuItemCount_TCL_DECLARED -/* 28 */ -EXTERN void TkMacOSXSetHelpMenuItemCount(void); -#endif -#ifndef TkMacOSXSetScrollbarGrow_TCL_DECLARED -#define TkMacOSXSetScrollbarGrow_TCL_DECLARED -/* 29 */ -EXTERN void TkMacOSXSetScrollbarGrow(TkWindow *winPtr, int flag); -#endif -#ifndef TkMacOSXSetUpClippingRgn_TCL_DECLARED -#define TkMacOSXSetUpClippingRgn_TCL_DECLARED -/* 30 */ -EXTERN void TkMacOSXSetUpClippingRgn(Drawable drawable); -#endif -#ifndef TkMacOSXSetUpGraphicsPort_TCL_DECLARED -#define TkMacOSXSetUpGraphicsPort_TCL_DECLARED -/* 31 */ -EXTERN void TkMacOSXSetUpGraphicsPort(GC gc, VOID *destPort); -#endif -#ifndef TkMacOSXUpdateClipRgn_TCL_DECLARED -#define TkMacOSXUpdateClipRgn_TCL_DECLARED -/* 32 */ -EXTERN void TkMacOSXUpdateClipRgn(TkWindow *winPtr); -#endif -#ifndef TkMacOSXUnregisterMacWindow_TCL_DECLARED -#define TkMacOSXUnregisterMacWindow_TCL_DECLARED -/* 33 */ -EXTERN void TkMacOSXUnregisterMacWindow(VOID *portPtr); -#endif -#ifndef TkMacOSXUseMenuID_TCL_DECLARED -#define TkMacOSXUseMenuID_TCL_DECLARED -/* 34 */ -EXTERN int TkMacOSXUseMenuID(short macID); -#endif -#ifndef TkMacOSXVisableClipRgn_TCL_DECLARED -#define TkMacOSXVisableClipRgn_TCL_DECLARED -/* 35 */ -EXTERN TkRegion TkMacOSXVisableClipRgn(TkWindow *winPtr); -#endif -#ifndef TkMacOSXWinBounds_TCL_DECLARED -#define TkMacOSXWinBounds_TCL_DECLARED -/* 36 */ -EXTERN void TkMacOSXWinBounds(TkWindow *winPtr, VOID *geometry); -#endif -#ifndef TkMacOSXWindowOffset_TCL_DECLARED -#define TkMacOSXWindowOffset_TCL_DECLARED -/* 37 */ -EXTERN void TkMacOSXWindowOffset(VOID *wRef, int *xOffset, - int *yOffset); -#endif -#ifndef TkSetMacColor_TCL_DECLARED -#define TkSetMacColor_TCL_DECLARED -/* 38 */ -EXTERN int TkSetMacColor(unsigned long pixel, VOID *macColor); -#endif -#ifndef TkSetWMName_TCL_DECLARED -#define TkSetWMName_TCL_DECLARED -/* 39 */ -EXTERN void TkSetWMName(TkWindow *winPtr, Tk_Uid titleUid); -#endif -#ifndef TkSuspendClipboard_TCL_DECLARED -#define TkSuspendClipboard_TCL_DECLARED -/* 40 */ -EXTERN void TkSuspendClipboard(void); -#endif -#ifndef TkMacOSXZoomToplevel_TCL_DECLARED -#define TkMacOSXZoomToplevel_TCL_DECLARED -/* 41 */ -EXTERN int TkMacOSXZoomToplevel(VOID *whichWindow, - short zoomPart); -#endif -#ifndef Tk_TopCoordsToWindow_TCL_DECLARED -#define Tk_TopCoordsToWindow_TCL_DECLARED -/* 42 */ -EXTERN Tk_Window Tk_TopCoordsToWindow(Tk_Window tkwin, int rootX, - int rootY, int *newX, int *newY); -#endif -#ifndef TkMacOSXContainerId_TCL_DECLARED -#define TkMacOSXContainerId_TCL_DECLARED -/* 43 */ -EXTERN MacDrawable * TkMacOSXContainerId(TkWindow *winPtr); -#endif -#ifndef TkMacOSXGetHostToplevel_TCL_DECLARED -#define TkMacOSXGetHostToplevel_TCL_DECLARED -/* 44 */ -EXTERN MacDrawable * TkMacOSXGetHostToplevel(TkWindow *winPtr); -#endif -#ifndef TkMacOSXPreprocessMenu_TCL_DECLARED -#define TkMacOSXPreprocessMenu_TCL_DECLARED -/* 45 */ -EXTERN void TkMacOSXPreprocessMenu(void); -#endif -#ifndef TkpIsWindowFloating_TCL_DECLARED -#define TkpIsWindowFloating_TCL_DECLARED -/* 46 */ -EXTERN int TkpIsWindowFloating(VOID *window); -#endif -#ifndef TkMacOSXGetCapture_TCL_DECLARED -#define TkMacOSXGetCapture_TCL_DECLARED -/* 47 */ -EXTERN Tk_Window TkMacOSXGetCapture(void); -#endif -/* Slot 48 is reserved */ -#ifndef TkGetTransientMaster_TCL_DECLARED -#define TkGetTransientMaster_TCL_DECLARED -/* 49 */ -EXTERN Window TkGetTransientMaster(TkWindow *winPtr); -#endif -#ifndef TkGenerateButtonEvent_TCL_DECLARED -#define TkGenerateButtonEvent_TCL_DECLARED -/* 50 */ -EXTERN int TkGenerateButtonEvent(int x, int y, Window window, - unsigned int state); -#endif -#ifndef TkGenWMDestroyEvent_TCL_DECLARED -#define TkGenWMDestroyEvent_TCL_DECLARED -/* 51 */ -EXTERN void TkGenWMDestroyEvent(Tk_Window tkwin); -#endif -#ifndef TkMacOSXSetDrawingEnabled_TCL_DECLARED -#define TkMacOSXSetDrawingEnabled_TCL_DECLARED -/* 52 */ -EXTERN void TkMacOSXSetDrawingEnabled(TkWindow *winPtr, int flag); -#endif -#ifndef TkpGetMS_TCL_DECLARED -#define TkpGetMS_TCL_DECLARED -/* 53 */ -EXTERN unsigned long TkpGetMS(void); -#endif -#ifndef TkMacOSXDrawable_TCL_DECLARED -#define TkMacOSXDrawable_TCL_DECLARED -/* 54 */ -EXTERN VOID * TkMacOSXDrawable(Drawable drawable); -#endif -#ifndef TkpScanWindowId_TCL_DECLARED -#define TkpScanWindowId_TCL_DECLARED -/* 55 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - CONST char *string, Window *idPtr); -#endif -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -#ifndef TkCreateXEventSource_TCL_DECLARED -#define TkCreateXEventSource_TCL_DECLARED -/* 0 */ -EXTERN void TkCreateXEventSource(void); -#endif -#ifndef TkFreeWindowId_TCL_DECLARED -#define TkFreeWindowId_TCL_DECLARED -/* 1 */ -EXTERN void TkFreeWindowId(TkDisplay *dispPtr, Window w); -#endif -#ifndef TkInitXId_TCL_DECLARED -#define TkInitXId_TCL_DECLARED -/* 2 */ -EXTERN void TkInitXId(TkDisplay *dispPtr); -#endif -#ifndef TkpCmapStressed_TCL_DECLARED -#define TkpCmapStressed_TCL_DECLARED -/* 3 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -#endif -#ifndef TkpSync_TCL_DECLARED -#define TkpSync_TCL_DECLARED -/* 4 */ -EXTERN void TkpSync(Display *display); -#endif -#ifndef TkUnixContainerId_TCL_DECLARED -#define TkUnixContainerId_TCL_DECLARED -/* 5 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -#endif -#ifndef TkUnixDoOneXEvent_TCL_DECLARED -#define TkUnixDoOneXEvent_TCL_DECLARED -/* 6 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -#endif -#ifndef TkUnixSetMenubar_TCL_DECLARED -#define TkUnixSetMenubar_TCL_DECLARED -/* 7 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -#endif -#ifndef TkpScanWindowId_TCL_DECLARED -#define TkpScanWindowId_TCL_DECLARED -/* 8 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - CONST char *string, Window *idPtr); -#endif -#ifndef TkWmCleanup_TCL_DECLARED -#define TkWmCleanup_TCL_DECLARED -/* 9 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkSendCleanup_TCL_DECLARED -#define TkSendCleanup_TCL_DECLARED -/* 10 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -#endif -#ifndef TkFreeXId_TCL_DECLARED -#define TkFreeXId_TCL_DECLARED -/* 11 */ -EXTERN void TkFreeXId(TkDisplay *dispPtr); -#endif -#ifndef TkpWmSetState_TCL_DECLARED -#define TkpWmSetState_TCL_DECLARED -/* 12 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -#endif -#ifndef TkpTestsendCmd_TCL_DECLARED -#define TkpTestsendCmd_TCL_DECLARED -/* 13 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST char **argv); -#endif -#endif /* X11 */ - -typedef struct TkIntPlatStubs { - int magic; - struct TkIntPlatStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - char * (*tkAlignImageData) (XImage *image, int alignment, int bitOrder); /* 0 */ - VOID *reserved1; - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 2 */ - unsigned long (*tkpGetMS) (void); /* 3 */ - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 4 */ - void (*tkpPrintWindowId) (char *buf, Window window); /* 5 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, CONST char *string, Window *idPtr); /* 6 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 7 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 8 */ - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 9 */ - void (*tkSetPixmapColormap) (Pixmap pixmap, Colormap colormap); /* 10 */ - void (*tkWinCancelMouseTimer) (void); /* 11 */ - void (*tkWinClipboardRender) (TkDisplay *dispPtr, UINT format); /* 12 */ - LRESULT (*tkWinEmbeddedEventProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 13 */ - void (*tkWinFillRect) (HDC dc, int x, int y, int width, int height, int pixel); /* 14 */ - COLORREF (*tkWinGetBorderPixels) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 15 */ - HDC (*tkWinGetDrawableDC) (Display *display, Drawable d, TkWinDCState *state); /* 16 */ - int (*tkWinGetModifierState) (void); /* 17 */ - HPALETTE (*tkWinGetSystemPalette) (void); /* 18 */ - HWND (*tkWinGetWrapperWindow) (Tk_Window tkwin); /* 19 */ - int (*tkWinHandleMenuEvent) (HWND *phwnd, UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, LRESULT *plResult); /* 20 */ - int (*tkWinIndexOfColor) (XColor *colorPtr); /* 21 */ - void (*tkWinReleaseDrawableDC) (Drawable d, HDC hdc, TkWinDCState *state); /* 22 */ - LRESULT (*tkWinResendEvent) (WNDPROC wndproc, HWND hwnd, XEvent *eventPtr); /* 23 */ - HPALETTE (*tkWinSelectPalette) (HDC dc, Colormap colormap); /* 24 */ - void (*tkWinSetMenu) (Tk_Window tkwin, HMENU hMenu); /* 25 */ - void (*tkWinSetWindowPos) (HWND hwnd, HWND siblingHwnd, int pos); /* 26 */ - void (*tkWinWmCleanup) (HINSTANCE hInstance); /* 27 */ - void (*tkWinXCleanup) (ClientData clientData); /* 28 */ - void (*tkWinXInit) (HINSTANCE hInstance); /* 29 */ - void (*tkWinSetForegroundWindow) (TkWindow *winPtr); /* 30 */ - void (*tkWinDialogDebug) (int debug); /* 31 */ - Tcl_Obj * (*tkWinGetMenuSystemDefault) (Tk_Window tkwin, CONST char *dbName, CONST char *className); /* 32 */ - int (*tkWinGetPlatformId) (void); /* 33 */ - void (*tkWinSetHINSTANCE) (HINSTANCE hInstance); /* 34 */ - int (*tkWinGetPlatformTheme) (void); /* 35 */ - LRESULT (__stdcall *tkWinChildProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 36 */ - void (*tkCreateXEventSource) (void); /* 37 */ - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 38 */ - void (*tkpSync) (Display *display); /* 39 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 40 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 41 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 42 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 43 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 44 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int argc, CONST char **argv); /* 45 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 0 */ - VOID *reserved1; - VOID *reserved2; - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 3 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 4 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 5 */ - void (*tkpWmSetState) (TkWindow *winPtr, int state); /* 6 */ - void (*tkAboutDlg) (void); /* 7 */ - unsigned int (*tkMacOSXButtonKeyState) (void); /* 8 */ - void (*tkMacOSXClearMenubarActive) (void); /* 9 */ - int (*tkMacOSXDispatchMenuEvent) (int menuID, int index); /* 10 */ - void (*tkMacOSXInstallCursor) (int resizeOverride); /* 11 */ - void (*tkMacOSXHandleTearoffMenu) (void); /* 12 */ - VOID *reserved13; - int (*tkMacOSXDoHLEvent) (VOID *theEvent); /* 14 */ - VOID *reserved15; - Window (*tkMacOSXGetXWindow) (VOID *macWinPtr); /* 16 */ - int (*tkMacOSXGrowToplevel) (VOID *whichWindow, XPoint start); /* 17 */ - void (*tkMacOSXHandleMenuSelect) (short theMenu, unsigned short theItem, int optionKeyPressed); /* 18 */ - VOID *reserved19; - VOID *reserved20; - void (*tkMacOSXInvalidateWindow) (MacDrawable *macWin, int flag); /* 21 */ - int (*tkMacOSXIsCharacterMissing) (Tk_Font tkfont, unsigned int searchChar); /* 22 */ - void (*tkMacOSXMakeRealWindowExist) (TkWindow *winPtr); /* 23 */ - VOID * (*tkMacOSXMakeStippleMap) (Drawable d1, Drawable d2); /* 24 */ - void (*tkMacOSXMenuClick) (void); /* 25 */ - void (*tkMacOSXRegisterOffScreenWindow) (Window window, VOID *portPtr); /* 26 */ - int (*tkMacOSXResizable) (TkWindow *winPtr); /* 27 */ - void (*tkMacOSXSetHelpMenuItemCount) (void); /* 28 */ - void (*tkMacOSXSetScrollbarGrow) (TkWindow *winPtr, int flag); /* 29 */ - void (*tkMacOSXSetUpClippingRgn) (Drawable drawable); /* 30 */ - void (*tkMacOSXSetUpGraphicsPort) (GC gc, VOID *destPort); /* 31 */ - void (*tkMacOSXUpdateClipRgn) (TkWindow *winPtr); /* 32 */ - void (*tkMacOSXUnregisterMacWindow) (VOID *portPtr); /* 33 */ - int (*tkMacOSXUseMenuID) (short macID); /* 34 */ - TkRegion (*tkMacOSXVisableClipRgn) (TkWindow *winPtr); /* 35 */ - void (*tkMacOSXWinBounds) (TkWindow *winPtr, VOID *geometry); /* 36 */ - void (*tkMacOSXWindowOffset) (VOID *wRef, int *xOffset, int *yOffset); /* 37 */ - int (*tkSetMacColor) (unsigned long pixel, VOID *macColor); /* 38 */ - void (*tkSetWMName) (TkWindow *winPtr, Tk_Uid titleUid); /* 39 */ - void (*tkSuspendClipboard) (void); /* 40 */ - int (*tkMacOSXZoomToplevel) (VOID *whichWindow, short zoomPart); /* 41 */ - Tk_Window (*tk_TopCoordsToWindow) (Tk_Window tkwin, int rootX, int rootY, int *newX, int *newY); /* 42 */ - MacDrawable * (*tkMacOSXContainerId) (TkWindow *winPtr); /* 43 */ - MacDrawable * (*tkMacOSXGetHostToplevel) (TkWindow *winPtr); /* 44 */ - void (*tkMacOSXPreprocessMenu) (void); /* 45 */ - int (*tkpIsWindowFloating) (VOID *window); /* 46 */ - Tk_Window (*tkMacOSXGetCapture) (void); /* 47 */ - VOID *reserved48; - Window (*tkGetTransientMaster) (TkWindow *winPtr); /* 49 */ - int (*tkGenerateButtonEvent) (int x, int y, Window window, unsigned int state); /* 50 */ - void (*tkGenWMDestroyEvent) (Tk_Window tkwin); /* 51 */ - void (*tkMacOSXSetDrawingEnabled) (TkWindow *winPtr, int flag); /* 52 */ - unsigned long (*tkpGetMS) (void); /* 53 */ - VOID * (*tkMacOSXDrawable) (Drawable drawable); /* 54 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, CONST char *string, Window *idPtr); /* 55 */ -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ - void (*tkCreateXEventSource) (void); /* 0 */ - void (*tkFreeWindowId) (TkDisplay *dispPtr, Window w); /* 1 */ - void (*tkInitXId) (TkDisplay *dispPtr); /* 2 */ - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 3 */ - void (*tkpSync) (Display *display); /* 4 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 5 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 6 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 7 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, CONST char *string, Window *idPtr); /* 8 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 9 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 10 */ - void (*tkFreeXId) (TkDisplay *dispPtr); /* 11 */ - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 12 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int argc, CONST char **argv); /* 13 */ -#endif /* X11 */ -} TkIntPlatStubs; - -extern TkIntPlatStubs *tkIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef TkAlignImageData -#define TkAlignImageData \ - (tkIntPlatStubsPtr->tkAlignImageData) /* 0 */ -#endif -/* Slot 1 is reserved */ -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 2 */ -#endif -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 3 */ -#endif -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 4 */ -#endif -#ifndef TkpPrintWindowId -#define TkpPrintWindowId \ - (tkIntPlatStubsPtr->tkpPrintWindowId) /* 5 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 6 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 7 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 8 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 9 */ -#endif -#ifndef TkSetPixmapColormap -#define TkSetPixmapColormap \ - (tkIntPlatStubsPtr->tkSetPixmapColormap) /* 10 */ -#endif -#ifndef TkWinCancelMouseTimer -#define TkWinCancelMouseTimer \ - (tkIntPlatStubsPtr->tkWinCancelMouseTimer) /* 11 */ -#endif -#ifndef TkWinClipboardRender -#define TkWinClipboardRender \ - (tkIntPlatStubsPtr->tkWinClipboardRender) /* 12 */ -#endif -#ifndef TkWinEmbeddedEventProc -#define TkWinEmbeddedEventProc \ - (tkIntPlatStubsPtr->tkWinEmbeddedEventProc) /* 13 */ -#endif -#ifndef TkWinFillRect -#define TkWinFillRect \ - (tkIntPlatStubsPtr->tkWinFillRect) /* 14 */ -#endif -#ifndef TkWinGetBorderPixels -#define TkWinGetBorderPixels \ - (tkIntPlatStubsPtr->tkWinGetBorderPixels) /* 15 */ -#endif -#ifndef TkWinGetDrawableDC -#define TkWinGetDrawableDC \ - (tkIntPlatStubsPtr->tkWinGetDrawableDC) /* 16 */ -#endif -#ifndef TkWinGetModifierState -#define TkWinGetModifierState \ - (tkIntPlatStubsPtr->tkWinGetModifierState) /* 17 */ -#endif -#ifndef TkWinGetSystemPalette -#define TkWinGetSystemPalette \ - (tkIntPlatStubsPtr->tkWinGetSystemPalette) /* 18 */ -#endif -#ifndef TkWinGetWrapperWindow -#define TkWinGetWrapperWindow \ - (tkIntPlatStubsPtr->tkWinGetWrapperWindow) /* 19 */ -#endif -#ifndef TkWinHandleMenuEvent -#define TkWinHandleMenuEvent \ - (tkIntPlatStubsPtr->tkWinHandleMenuEvent) /* 20 */ -#endif -#ifndef TkWinIndexOfColor -#define TkWinIndexOfColor \ - (tkIntPlatStubsPtr->tkWinIndexOfColor) /* 21 */ -#endif -#ifndef TkWinReleaseDrawableDC -#define TkWinReleaseDrawableDC \ - (tkIntPlatStubsPtr->tkWinReleaseDrawableDC) /* 22 */ -#endif -#ifndef TkWinResendEvent -#define TkWinResendEvent \ - (tkIntPlatStubsPtr->tkWinResendEvent) /* 23 */ -#endif -#ifndef TkWinSelectPalette -#define TkWinSelectPalette \ - (tkIntPlatStubsPtr->tkWinSelectPalette) /* 24 */ -#endif -#ifndef TkWinSetMenu -#define TkWinSetMenu \ - (tkIntPlatStubsPtr->tkWinSetMenu) /* 25 */ -#endif -#ifndef TkWinSetWindowPos -#define TkWinSetWindowPos \ - (tkIntPlatStubsPtr->tkWinSetWindowPos) /* 26 */ -#endif -#ifndef TkWinWmCleanup -#define TkWinWmCleanup \ - (tkIntPlatStubsPtr->tkWinWmCleanup) /* 27 */ -#endif -#ifndef TkWinXCleanup -#define TkWinXCleanup \ - (tkIntPlatStubsPtr->tkWinXCleanup) /* 28 */ -#endif -#ifndef TkWinXInit -#define TkWinXInit \ - (tkIntPlatStubsPtr->tkWinXInit) /* 29 */ -#endif -#ifndef TkWinSetForegroundWindow -#define TkWinSetForegroundWindow \ - (tkIntPlatStubsPtr->tkWinSetForegroundWindow) /* 30 */ -#endif -#ifndef TkWinDialogDebug -#define TkWinDialogDebug \ - (tkIntPlatStubsPtr->tkWinDialogDebug) /* 31 */ -#endif -#ifndef TkWinGetMenuSystemDefault -#define TkWinGetMenuSystemDefault \ - (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault) /* 32 */ -#endif -#ifndef TkWinGetPlatformId -#define TkWinGetPlatformId \ - (tkIntPlatStubsPtr->tkWinGetPlatformId) /* 33 */ -#endif -#ifndef TkWinSetHINSTANCE -#define TkWinSetHINSTANCE \ - (tkIntPlatStubsPtr->tkWinSetHINSTANCE) /* 34 */ -#endif -#ifndef TkWinGetPlatformTheme -#define TkWinGetPlatformTheme \ - (tkIntPlatStubsPtr->tkWinGetPlatformTheme) /* 35 */ -#endif -#ifndef TkWinChildProc -#define TkWinChildProc \ - (tkIntPlatStubsPtr->tkWinChildProc) /* 36 */ -#endif -#ifndef TkCreateXEventSource -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 37 */ -#endif -#ifndef TkpCmapStressed -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 38 */ -#endif -#ifndef TkpSync -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 39 */ -#endif -#ifndef TkUnixContainerId -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 40 */ -#endif -#ifndef TkUnixDoOneXEvent -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 41 */ -#endif -#ifndef TkUnixSetMenubar -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 42 */ -#endif -#ifndef TkWmCleanup -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 43 */ -#endif -#ifndef TkSendCleanup -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 44 */ -#endif -#ifndef TkpTestsendCmd -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 45 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 0 */ -#endif -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 3 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 4 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 5 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 6 */ -#endif -#ifndef TkAboutDlg -#define TkAboutDlg \ - (tkIntPlatStubsPtr->tkAboutDlg) /* 7 */ -#endif -#ifndef TkMacOSXButtonKeyState -#define TkMacOSXButtonKeyState \ - (tkIntPlatStubsPtr->tkMacOSXButtonKeyState) /* 8 */ -#endif -#ifndef TkMacOSXClearMenubarActive -#define TkMacOSXClearMenubarActive \ - (tkIntPlatStubsPtr->tkMacOSXClearMenubarActive) /* 9 */ -#endif -#ifndef TkMacOSXDispatchMenuEvent -#define TkMacOSXDispatchMenuEvent \ - (tkIntPlatStubsPtr->tkMacOSXDispatchMenuEvent) /* 10 */ -#endif -#ifndef TkMacOSXInstallCursor -#define TkMacOSXInstallCursor \ - (tkIntPlatStubsPtr->tkMacOSXInstallCursor) /* 11 */ -#endif -#ifndef TkMacOSXHandleTearoffMenu -#define TkMacOSXHandleTearoffMenu \ - (tkIntPlatStubsPtr->tkMacOSXHandleTearoffMenu) /* 12 */ -#endif -/* Slot 13 is reserved */ -#ifndef TkMacOSXDoHLEvent -#define TkMacOSXDoHLEvent \ - (tkIntPlatStubsPtr->tkMacOSXDoHLEvent) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TkMacOSXGetXWindow -#define TkMacOSXGetXWindow \ - (tkIntPlatStubsPtr->tkMacOSXGetXWindow) /* 16 */ -#endif -#ifndef TkMacOSXGrowToplevel -#define TkMacOSXGrowToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGrowToplevel) /* 17 */ -#endif -#ifndef TkMacOSXHandleMenuSelect -#define TkMacOSXHandleMenuSelect \ - (tkIntPlatStubsPtr->tkMacOSXHandleMenuSelect) /* 18 */ -#endif -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#ifndef TkMacOSXInvalidateWindow -#define TkMacOSXInvalidateWindow \ - (tkIntPlatStubsPtr->tkMacOSXInvalidateWindow) /* 21 */ -#endif -#ifndef TkMacOSXIsCharacterMissing -#define TkMacOSXIsCharacterMissing \ - (tkIntPlatStubsPtr->tkMacOSXIsCharacterMissing) /* 22 */ -#endif -#ifndef TkMacOSXMakeRealWindowExist -#define TkMacOSXMakeRealWindowExist \ - (tkIntPlatStubsPtr->tkMacOSXMakeRealWindowExist) /* 23 */ -#endif -#ifndef TkMacOSXMakeStippleMap -#define TkMacOSXMakeStippleMap \ - (tkIntPlatStubsPtr->tkMacOSXMakeStippleMap) /* 24 */ -#endif -#ifndef TkMacOSXMenuClick -#define TkMacOSXMenuClick \ - (tkIntPlatStubsPtr->tkMacOSXMenuClick) /* 25 */ -#endif -#ifndef TkMacOSXRegisterOffScreenWindow -#define TkMacOSXRegisterOffScreenWindow \ - (tkIntPlatStubsPtr->tkMacOSXRegisterOffScreenWindow) /* 26 */ -#endif -#ifndef TkMacOSXResizable -#define TkMacOSXResizable \ - (tkIntPlatStubsPtr->tkMacOSXResizable) /* 27 */ -#endif -#ifndef TkMacOSXSetHelpMenuItemCount -#define TkMacOSXSetHelpMenuItemCount \ - (tkIntPlatStubsPtr->tkMacOSXSetHelpMenuItemCount) /* 28 */ -#endif -#ifndef TkMacOSXSetScrollbarGrow -#define TkMacOSXSetScrollbarGrow \ - (tkIntPlatStubsPtr->tkMacOSXSetScrollbarGrow) /* 29 */ -#endif -#ifndef TkMacOSXSetUpClippingRgn -#define TkMacOSXSetUpClippingRgn \ - (tkIntPlatStubsPtr->tkMacOSXSetUpClippingRgn) /* 30 */ -#endif -#ifndef TkMacOSXSetUpGraphicsPort -#define TkMacOSXSetUpGraphicsPort \ - (tkIntPlatStubsPtr->tkMacOSXSetUpGraphicsPort) /* 31 */ -#endif -#ifndef TkMacOSXUpdateClipRgn -#define TkMacOSXUpdateClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXUpdateClipRgn) /* 32 */ -#endif -#ifndef TkMacOSXUnregisterMacWindow -#define TkMacOSXUnregisterMacWindow \ - (tkIntPlatStubsPtr->tkMacOSXUnregisterMacWindow) /* 33 */ -#endif -#ifndef TkMacOSXUseMenuID -#define TkMacOSXUseMenuID \ - (tkIntPlatStubsPtr->tkMacOSXUseMenuID) /* 34 */ -#endif -#ifndef TkMacOSXVisableClipRgn -#define TkMacOSXVisableClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXVisableClipRgn) /* 35 */ -#endif -#ifndef TkMacOSXWinBounds -#define TkMacOSXWinBounds \ - (tkIntPlatStubsPtr->tkMacOSXWinBounds) /* 36 */ -#endif -#ifndef TkMacOSXWindowOffset -#define TkMacOSXWindowOffset \ - (tkIntPlatStubsPtr->tkMacOSXWindowOffset) /* 37 */ -#endif -#ifndef TkSetMacColor -#define TkSetMacColor \ - (tkIntPlatStubsPtr->tkSetMacColor) /* 38 */ -#endif -#ifndef TkSetWMName -#define TkSetWMName \ - (tkIntPlatStubsPtr->tkSetWMName) /* 39 */ -#endif -#ifndef TkSuspendClipboard -#define TkSuspendClipboard \ - (tkIntPlatStubsPtr->tkSuspendClipboard) /* 40 */ -#endif -#ifndef TkMacOSXZoomToplevel -#define TkMacOSXZoomToplevel \ - (tkIntPlatStubsPtr->tkMacOSXZoomToplevel) /* 41 */ -#endif -#ifndef Tk_TopCoordsToWindow -#define Tk_TopCoordsToWindow \ - (tkIntPlatStubsPtr->tk_TopCoordsToWindow) /* 42 */ -#endif -#ifndef TkMacOSXContainerId -#define TkMacOSXContainerId \ - (tkIntPlatStubsPtr->tkMacOSXContainerId) /* 43 */ -#endif -#ifndef TkMacOSXGetHostToplevel -#define TkMacOSXGetHostToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGetHostToplevel) /* 44 */ -#endif -#ifndef TkMacOSXPreprocessMenu -#define TkMacOSXPreprocessMenu \ - (tkIntPlatStubsPtr->tkMacOSXPreprocessMenu) /* 45 */ -#endif -#ifndef TkpIsWindowFloating -#define TkpIsWindowFloating \ - (tkIntPlatStubsPtr->tkpIsWindowFloating) /* 46 */ -#endif -#ifndef TkMacOSXGetCapture -#define TkMacOSXGetCapture \ - (tkIntPlatStubsPtr->tkMacOSXGetCapture) /* 47 */ -#endif -/* Slot 48 is reserved */ -#ifndef TkGetTransientMaster -#define TkGetTransientMaster \ - (tkIntPlatStubsPtr->tkGetTransientMaster) /* 49 */ -#endif -#ifndef TkGenerateButtonEvent -#define TkGenerateButtonEvent \ - (tkIntPlatStubsPtr->tkGenerateButtonEvent) /* 50 */ -#endif -#ifndef TkGenWMDestroyEvent -#define TkGenWMDestroyEvent \ - (tkIntPlatStubsPtr->tkGenWMDestroyEvent) /* 51 */ -#endif -#ifndef TkMacOSXSetDrawingEnabled -#define TkMacOSXSetDrawingEnabled \ - (tkIntPlatStubsPtr->tkMacOSXSetDrawingEnabled) /* 52 */ -#endif -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 53 */ -#endif -#ifndef TkMacOSXDrawable -#define TkMacOSXDrawable \ - (tkIntPlatStubsPtr->tkMacOSXDrawable) /* 54 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 55 */ -#endif -#endif /* AQUA */ -#if !(defined(__WIN32__) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -#ifndef TkCreateXEventSource -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 0 */ -#endif -#ifndef TkFreeWindowId -#define TkFreeWindowId \ - (tkIntPlatStubsPtr->tkFreeWindowId) /* 1 */ -#endif -#ifndef TkInitXId -#define TkInitXId \ - (tkIntPlatStubsPtr->tkInitXId) /* 2 */ -#endif -#ifndef TkpCmapStressed -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 3 */ -#endif -#ifndef TkpSync -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 4 */ -#endif -#ifndef TkUnixContainerId -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 5 */ -#endif -#ifndef TkUnixDoOneXEvent -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 6 */ -#endif -#ifndef TkUnixSetMenubar -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 7 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 8 */ -#endif -#ifndef TkWmCleanup -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 9 */ -#endif -#ifndef TkSendCleanup -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 10 */ -#endif -#ifndef TkFreeXId -#define TkFreeXId \ - (tkIntPlatStubsPtr->tkFreeXId) /* 11 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 12 */ -#endif -#ifndef TkpTestsendCmd -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 13 */ -#endif -#endif /* X11 */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#ifdef __CYGWIN__ - void TkFreeXId(TkDisplay *dispPtr); - void TkFreeWindowId(TkDisplay *dispPtr, Window w); - void TkInitXId(TkDisplay *dispPtr); -#endif - -#ifdef __WIN32__ -#undef TkpCmapStressed -#undef TkpSync -#define TkpCmapStressed(tkwin,colormap) (0) -#define TkpSync(display) -#endif - -#endif /* _TKINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntXlibDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntXlibDecls.h deleted file mode 100644 index 010dd9cc0..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkIntXlibDecls.h +++ /dev/null @@ -1,2743 +0,0 @@ -/* - * tkIntXlibDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTXLIBDECLS -#define _TKINTXLIBDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -#ifdef MAC_TCL -#include "Xutil.h" -#else -#include "X11/Xutil.h" -#endif - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ - Display* /* display */ -); - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef XSetDashes_TCL_DECLARED -#define XSetDashes_TCL_DECLARED -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -#endif -#ifndef XGetModifierMapping_TCL_DECLARED -#define XGetModifierMapping_TCL_DECLARED -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -#endif -#ifndef XCreateImage_TCL_DECLARED -#define XCreateImage_TCL_DECLARED -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -#endif -#ifndef XGetImage_TCL_DECLARED -#define XGetImage_TCL_DECLARED -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -#endif -#ifndef XGetAtomName_TCL_DECLARED -#define XGetAtomName_TCL_DECLARED -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -#endif -#ifndef XKeysymToString_TCL_DECLARED -#define XKeysymToString_TCL_DECLARED -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -#endif -#ifndef XCreateColormap_TCL_DECLARED -#define XCreateColormap_TCL_DECLARED -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -#endif -#ifndef XCreatePixmapCursor_TCL_DECLARED -#define XCreatePixmapCursor_TCL_DECLARED -/* 7 */ -EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2, - XColor *x1, XColor *x2, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XCreateGlyphCursor_TCL_DECLARED -#define XCreateGlyphCursor_TCL_DECLARED -/* 8 */ -EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2, - unsigned int ui1, unsigned int ui2, - XColor _Xconst *x1, XColor _Xconst *x2); -#endif -#ifndef XGContextFromGC_TCL_DECLARED -#define XGContextFromGC_TCL_DECLARED -/* 9 */ -EXTERN GContext XGContextFromGC(GC g); -#endif -#ifndef XListHosts_TCL_DECLARED -#define XListHosts_TCL_DECLARED -/* 10 */ -EXTERN XHostAddress * XListHosts(Display *d, int *i, Bool *b); -#endif -#ifndef XKeycodeToKeysym_TCL_DECLARED -#define XKeycodeToKeysym_TCL_DECLARED -/* 11 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, unsigned int k, int i); -#endif -#ifndef XStringToKeysym_TCL_DECLARED -#define XStringToKeysym_TCL_DECLARED -/* 12 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -#endif -#ifndef XRootWindow_TCL_DECLARED -#define XRootWindow_TCL_DECLARED -/* 13 */ -EXTERN Window XRootWindow(Display *d, int i); -#endif -#ifndef XSetErrorHandler_TCL_DECLARED -#define XSetErrorHandler_TCL_DECLARED -/* 14 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -#endif -#ifndef XIconifyWindow_TCL_DECLARED -#define XIconifyWindow_TCL_DECLARED -/* 15 */ -EXTERN Status XIconifyWindow(Display *d, Window w, int i); -#endif -#ifndef XWithdrawWindow_TCL_DECLARED -#define XWithdrawWindow_TCL_DECLARED -/* 16 */ -EXTERN Status XWithdrawWindow(Display *d, Window w, int i); -#endif -#ifndef XGetWMColormapWindows_TCL_DECLARED -#define XGetWMColormapWindows_TCL_DECLARED -/* 17 */ -EXTERN Status XGetWMColormapWindows(Display *d, Window w, - Window **wpp, int *ip); -#endif -#ifndef XAllocColor_TCL_DECLARED -#define XAllocColor_TCL_DECLARED -/* 18 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -#endif -#ifndef XBell_TCL_DECLARED -#define XBell_TCL_DECLARED -/* 19 */ -EXTERN int XBell(Display *d, int i); -#endif -#ifndef XChangeProperty_TCL_DECLARED -#define XChangeProperty_TCL_DECLARED -/* 20 */ -EXTERN int XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -#endif -#ifndef XChangeWindowAttributes_TCL_DECLARED -#define XChangeWindowAttributes_TCL_DECLARED -/* 21 */ -EXTERN int XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -#endif -#ifndef XClearWindow_TCL_DECLARED -#define XClearWindow_TCL_DECLARED -/* 22 */ -EXTERN int XClearWindow(Display *d, Window w); -#endif -#ifndef XConfigureWindow_TCL_DECLARED -#define XConfigureWindow_TCL_DECLARED -/* 23 */ -EXTERN int XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -#endif -#ifndef XCopyArea_TCL_DECLARED -#define XCopyArea_TCL_DECLARED -/* 24 */ -EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -#endif -#ifndef XCopyPlane_TCL_DECLARED -#define XCopyPlane_TCL_DECLARED -/* 25 */ -EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -#endif -#ifndef XCreateBitmapFromData_TCL_DECLARED -#define XCreateBitmapFromData_TCL_DECLARED -/* 26 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -#endif -#ifndef XDefineCursor_TCL_DECLARED -#define XDefineCursor_TCL_DECLARED -/* 27 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -#endif -#ifndef XDeleteProperty_TCL_DECLARED -#define XDeleteProperty_TCL_DECLARED -/* 28 */ -EXTERN int XDeleteProperty(Display *d, Window w, Atom a); -#endif -#ifndef XDestroyWindow_TCL_DECLARED -#define XDestroyWindow_TCL_DECLARED -/* 29 */ -EXTERN int XDestroyWindow(Display *d, Window w); -#endif -#ifndef XDrawArc_TCL_DECLARED -#define XDrawArc_TCL_DECLARED -/* 30 */ -EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XDrawLines_TCL_DECLARED -#define XDrawLines_TCL_DECLARED -/* 31 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -#endif -#ifndef XDrawRectangle_TCL_DECLARED -#define XDrawRectangle_TCL_DECLARED -/* 32 */ -EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XFillArc_TCL_DECLARED -#define XFillArc_TCL_DECLARED -/* 33 */ -EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XFillPolygon_TCL_DECLARED -#define XFillPolygon_TCL_DECLARED -/* 34 */ -EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -#endif -#ifndef XFillRectangles_TCL_DECLARED -#define XFillRectangles_TCL_DECLARED -/* 35 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -#endif -#ifndef XForceScreenSaver_TCL_DECLARED -#define XForceScreenSaver_TCL_DECLARED -/* 36 */ -EXTERN int XForceScreenSaver(Display *d, int i); -#endif -#ifndef XFreeColormap_TCL_DECLARED -#define XFreeColormap_TCL_DECLARED -/* 37 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -#endif -#ifndef XFreeColors_TCL_DECLARED -#define XFreeColors_TCL_DECLARED -/* 38 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -#endif -#ifndef XFreeCursor_TCL_DECLARED -#define XFreeCursor_TCL_DECLARED -/* 39 */ -EXTERN int XFreeCursor(Display *d, Cursor c); -#endif -#ifndef XFreeModifiermap_TCL_DECLARED -#define XFreeModifiermap_TCL_DECLARED -/* 40 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -#endif -#ifndef XGetGeometry_TCL_DECLARED -#define XGetGeometry_TCL_DECLARED -/* 41 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -#endif -#ifndef XGetInputFocus_TCL_DECLARED -#define XGetInputFocus_TCL_DECLARED -/* 42 */ -EXTERN int XGetInputFocus(Display *d, Window *w, int *i); -#endif -#ifndef XGetWindowProperty_TCL_DECLARED -#define XGetWindowProperty_TCL_DECLARED -/* 43 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -#endif -#ifndef XGetWindowAttributes_TCL_DECLARED -#define XGetWindowAttributes_TCL_DECLARED -/* 44 */ -EXTERN Status XGetWindowAttributes(Display *d, Window w, - XWindowAttributes *x); -#endif -#ifndef XGrabKeyboard_TCL_DECLARED -#define XGrabKeyboard_TCL_DECLARED -/* 45 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -#endif -#ifndef XGrabPointer_TCL_DECLARED -#define XGrabPointer_TCL_DECLARED -/* 46 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -#endif -#ifndef XKeysymToKeycode_TCL_DECLARED -#define XKeysymToKeycode_TCL_DECLARED -/* 47 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -#endif -#ifndef XLookupColor_TCL_DECLARED -#define XLookupColor_TCL_DECLARED -/* 48 */ -EXTERN Status XLookupColor(Display *d, Colormap c1, - _Xconst char *c2, XColor *x1, XColor *x2); -#endif -#ifndef XMapWindow_TCL_DECLARED -#define XMapWindow_TCL_DECLARED -/* 49 */ -EXTERN int XMapWindow(Display *d, Window w); -#endif -#ifndef XMoveResizeWindow_TCL_DECLARED -#define XMoveResizeWindow_TCL_DECLARED -/* 50 */ -EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XMoveWindow_TCL_DECLARED -#define XMoveWindow_TCL_DECLARED -/* 51 */ -EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); -#endif -#ifndef XNextEvent_TCL_DECLARED -#define XNextEvent_TCL_DECLARED -/* 52 */ -EXTERN int XNextEvent(Display *d, XEvent *x); -#endif -#ifndef XPutBackEvent_TCL_DECLARED -#define XPutBackEvent_TCL_DECLARED -/* 53 */ -EXTERN int XPutBackEvent(Display *d, XEvent *x); -#endif -#ifndef XQueryColors_TCL_DECLARED -#define XQueryColors_TCL_DECLARED -/* 54 */ -EXTERN int XQueryColors(Display *d, Colormap c, XColor *x, - int i); -#endif -#ifndef XQueryPointer_TCL_DECLARED -#define XQueryPointer_TCL_DECLARED -/* 55 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -#endif -#ifndef XQueryTree_TCL_DECLARED -#define XQueryTree_TCL_DECLARED -/* 56 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -#endif -#ifndef XRaiseWindow_TCL_DECLARED -#define XRaiseWindow_TCL_DECLARED -/* 57 */ -EXTERN int XRaiseWindow(Display *d, Window w); -#endif -#ifndef XRefreshKeyboardMapping_TCL_DECLARED -#define XRefreshKeyboardMapping_TCL_DECLARED -/* 58 */ -EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); -#endif -#ifndef XResizeWindow_TCL_DECLARED -#define XResizeWindow_TCL_DECLARED -/* 59 */ -EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XSelectInput_TCL_DECLARED -#define XSelectInput_TCL_DECLARED -/* 60 */ -EXTERN int XSelectInput(Display *d, Window w, long l); -#endif -#ifndef XSendEvent_TCL_DECLARED -#define XSendEvent_TCL_DECLARED -/* 61 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -#endif -#ifndef XSetCommand_TCL_DECLARED -#define XSetCommand_TCL_DECLARED -/* 62 */ -EXTERN int XSetCommand(Display *d, Window w, char **c, int i); -#endif -#ifndef XSetIconName_TCL_DECLARED -#define XSetIconName_TCL_DECLARED -/* 63 */ -EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); -#endif -#ifndef XSetInputFocus_TCL_DECLARED -#define XSetInputFocus_TCL_DECLARED -/* 64 */ -EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); -#endif -#ifndef XSetSelectionOwner_TCL_DECLARED -#define XSetSelectionOwner_TCL_DECLARED -/* 65 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -#endif -#ifndef XSetWindowBackground_TCL_DECLARED -#define XSetWindowBackground_TCL_DECLARED -/* 66 */ -EXTERN int XSetWindowBackground(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED -#define XSetWindowBackgroundPixmap_TCL_DECLARED -/* 67 */ -EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorder_TCL_DECLARED -#define XSetWindowBorder_TCL_DECLARED -/* 68 */ -EXTERN int XSetWindowBorder(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBorderPixmap_TCL_DECLARED -#define XSetWindowBorderPixmap_TCL_DECLARED -/* 69 */ -EXTERN int XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorderWidth_TCL_DECLARED -#define XSetWindowBorderWidth_TCL_DECLARED -/* 70 */ -EXTERN int XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -#endif -#ifndef XSetWindowColormap_TCL_DECLARED -#define XSetWindowColormap_TCL_DECLARED -/* 71 */ -EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); -#endif -#ifndef XTranslateCoordinates_TCL_DECLARED -#define XTranslateCoordinates_TCL_DECLARED -/* 72 */ -EXTERN Bool XTranslateCoordinates(Display *d, Window w1, - Window w2, int i1, int i2, int *i3, int *i4, - Window *w3); -#endif -#ifndef XUngrabKeyboard_TCL_DECLARED -#define XUngrabKeyboard_TCL_DECLARED -/* 73 */ -EXTERN int XUngrabKeyboard(Display *d, Time t); -#endif -#ifndef XUngrabPointer_TCL_DECLARED -#define XUngrabPointer_TCL_DECLARED -/* 74 */ -EXTERN int XUngrabPointer(Display *d, Time t); -#endif -#ifndef XUnmapWindow_TCL_DECLARED -#define XUnmapWindow_TCL_DECLARED -/* 75 */ -EXTERN int XUnmapWindow(Display *d, Window w); -#endif -#ifndef XWindowEvent_TCL_DECLARED -#define XWindowEvent_TCL_DECLARED -/* 76 */ -EXTERN int XWindowEvent(Display *d, Window w, long l, XEvent *x); -#endif -#ifndef XDestroyIC_TCL_DECLARED -#define XDestroyIC_TCL_DECLARED -/* 77 */ -EXTERN void XDestroyIC(XIC x); -#endif -#ifndef XFilterEvent_TCL_DECLARED -#define XFilterEvent_TCL_DECLARED -/* 78 */ -EXTERN Bool XFilterEvent(XEvent *x, Window w); -#endif -#ifndef XmbLookupString_TCL_DECLARED -#define XmbLookupString_TCL_DECLARED -/* 79 */ -EXTERN int XmbLookupString(XIC xi, XKeyPressedEvent *xk, - char *c, int i, KeySym *k, Status *s); -#endif -#ifndef TkPutImage_TCL_DECLARED -#define TkPutImage_TCL_DECLARED -/* 80 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor_TCL_DECLARED -#define XParseColor_TCL_DECLARED -/* 82 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -#endif -#ifndef XCreateGC_TCL_DECLARED -#define XCreateGC_TCL_DECLARED -/* 83 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -#endif -#ifndef XFreeGC_TCL_DECLARED -#define XFreeGC_TCL_DECLARED -/* 84 */ -EXTERN int XFreeGC(Display *display, GC gc); -#endif -#ifndef XInternAtom_TCL_DECLARED -#define XInternAtom_TCL_DECLARED -/* 85 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -#endif -#ifndef XSetBackground_TCL_DECLARED -#define XSetBackground_TCL_DECLARED -/* 86 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetForeground_TCL_DECLARED -#define XSetForeground_TCL_DECLARED -/* 87 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetClipMask_TCL_DECLARED -#define XSetClipMask_TCL_DECLARED -/* 88 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -#endif -#ifndef XSetClipOrigin_TCL_DECLARED -#define XSetClipOrigin_TCL_DECLARED -/* 89 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -#endif -#ifndef XSetTSOrigin_TCL_DECLARED -#define XSetTSOrigin_TCL_DECLARED -/* 90 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -#endif -#ifndef XChangeGC_TCL_DECLARED -#define XChangeGC_TCL_DECLARED -/* 91 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -#endif -#ifndef XSetFont_TCL_DECLARED -#define XSetFont_TCL_DECLARED -/* 92 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -#endif -#ifndef XSetArcMode_TCL_DECLARED -#define XSetArcMode_TCL_DECLARED -/* 93 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -#endif -#ifndef XSetStipple_TCL_DECLARED -#define XSetStipple_TCL_DECLARED -/* 94 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -#endif -#ifndef XSetFillRule_TCL_DECLARED -#define XSetFillRule_TCL_DECLARED -/* 95 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -#endif -#ifndef XSetFillStyle_TCL_DECLARED -#define XSetFillStyle_TCL_DECLARED -/* 96 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -#endif -#ifndef XSetFunction_TCL_DECLARED -#define XSetFunction_TCL_DECLARED -/* 97 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -#endif -#ifndef XSetLineAttributes_TCL_DECLARED -#define XSetLineAttributes_TCL_DECLARED -/* 98 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -#endif -#ifndef _XInitImageFuncPtrs_TCL_DECLARED -#define _XInitImageFuncPtrs_TCL_DECLARED -/* 99 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -#endif -#ifndef XCreateIC_TCL_DECLARED -#define XCreateIC_TCL_DECLARED -/* 100 */ -EXTERN XIC XCreateIC(XIM xim, ...); -#endif -#ifndef XGetVisualInfo_TCL_DECLARED -#define XGetVisualInfo_TCL_DECLARED -/* 101 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -#endif -#ifndef XSetWMClientMachine_TCL_DECLARED -#define XSetWMClientMachine_TCL_DECLARED -/* 102 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -#endif -#ifndef XStringListToTextProperty_TCL_DECLARED -#define XStringListToTextProperty_TCL_DECLARED -/* 103 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -#endif -#ifndef XDrawLine_TCL_DECLARED -#define XDrawLine_TCL_DECLARED -/* 104 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -#endif -#ifndef XWarpPointer_TCL_DECLARED -#define XWarpPointer_TCL_DECLARED -/* 105 */ -EXTERN int XWarpPointer(Display *d, Window s, Window dw, int sx, - int sy, unsigned int sw, unsigned int sh, - int dx, int dy); -#endif -#ifndef XFillRectangle_TCL_DECLARED -#define XFillRectangle_TCL_DECLARED -/* 106 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -#endif -#ifndef XFlush_TCL_DECLARED -#define XFlush_TCL_DECLARED -/* 107 */ -EXTERN int XFlush(Display *display); -#endif -#ifndef XGrabServer_TCL_DECLARED -#define XGrabServer_TCL_DECLARED -/* 108 */ -EXTERN int XGrabServer(Display *display); -#endif -#ifndef XUngrabServer_TCL_DECLARED -#define XUngrabServer_TCL_DECLARED -/* 109 */ -EXTERN int XUngrabServer(Display *display); -#endif -#ifndef XFree_TCL_DECLARED -#define XFree_TCL_DECLARED -/* 110 */ -EXTERN int XFree(VOID *data); -#endif -#ifndef XNoOp_TCL_DECLARED -#define XNoOp_TCL_DECLARED -/* 111 */ -EXTERN int XNoOp(Display *display); -#endif -#ifndef XSynchronize_TCL_DECLARED -#define XSynchronize_TCL_DECLARED -/* 112 */ -EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); -#endif -#ifndef XSync_TCL_DECLARED -#define XSync_TCL_DECLARED -/* 113 */ -EXTERN int XSync(Display *display, Bool discard); -#endif -#ifndef XVisualIDFromVisual_TCL_DECLARED -#define XVisualIDFromVisual_TCL_DECLARED -/* 114 */ -EXTERN VisualID XVisualIDFromVisual(Visual *visual); -#endif -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -#ifndef XDrawSegments_TCL_DECLARED -#define XDrawSegments_TCL_DECLARED -/* 133 */ -EXTERN int XDrawSegments(Display *d, Drawable dr, GC gc, - XSegment *s, int n); -#endif -#ifndef XDrawPoint_TCL_DECLARED -#define XDrawPoint_TCL_DECLARED -/* 134 */ -EXTERN int XDrawPoint(Display *d, Drawable dr, GC gc, int x, - int y); -#endif -#ifndef XDrawPoints_TCL_DECLARED -#define XDrawPoints_TCL_DECLARED -/* 135 */ -EXTERN int XDrawPoints(Display *d, Drawable dr, GC gc, - XPoint *p, int n, int m); -#endif -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef XSetDashes_TCL_DECLARED -#define XSetDashes_TCL_DECLARED -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -#endif -#ifndef XGetModifierMapping_TCL_DECLARED -#define XGetModifierMapping_TCL_DECLARED -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -#endif -#ifndef XCreateImage_TCL_DECLARED -#define XCreateImage_TCL_DECLARED -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -#endif -#ifndef XGetImage_TCL_DECLARED -#define XGetImage_TCL_DECLARED -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -#endif -#ifndef XGetAtomName_TCL_DECLARED -#define XGetAtomName_TCL_DECLARED -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -#endif -#ifndef XKeysymToString_TCL_DECLARED -#define XKeysymToString_TCL_DECLARED -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -#endif -#ifndef XCreateColormap_TCL_DECLARED -#define XCreateColormap_TCL_DECLARED -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -#endif -#ifndef XGContextFromGC_TCL_DECLARED -#define XGContextFromGC_TCL_DECLARED -/* 7 */ -EXTERN GContext XGContextFromGC(GC g); -#endif -#ifndef XKeycodeToKeysym_TCL_DECLARED -#define XKeycodeToKeysym_TCL_DECLARED -/* 8 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, KeyCode k, int i); -#endif -#ifndef XStringToKeysym_TCL_DECLARED -#define XStringToKeysym_TCL_DECLARED -/* 9 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -#endif -#ifndef XRootWindow_TCL_DECLARED -#define XRootWindow_TCL_DECLARED -/* 10 */ -EXTERN Window XRootWindow(Display *d, int i); -#endif -#ifndef XSetErrorHandler_TCL_DECLARED -#define XSetErrorHandler_TCL_DECLARED -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -#endif -#ifndef XAllocColor_TCL_DECLARED -#define XAllocColor_TCL_DECLARED -/* 12 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -#endif -#ifndef XBell_TCL_DECLARED -#define XBell_TCL_DECLARED -/* 13 */ -EXTERN int XBell(Display *d, int i); -#endif -#ifndef XChangeProperty_TCL_DECLARED -#define XChangeProperty_TCL_DECLARED -/* 14 */ -EXTERN void XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -#endif -#ifndef XChangeWindowAttributes_TCL_DECLARED -#define XChangeWindowAttributes_TCL_DECLARED -/* 15 */ -EXTERN void XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -#endif -#ifndef XConfigureWindow_TCL_DECLARED -#define XConfigureWindow_TCL_DECLARED -/* 16 */ -EXTERN void XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -#endif -#ifndef XCopyArea_TCL_DECLARED -#define XCopyArea_TCL_DECLARED -/* 17 */ -EXTERN void XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -#endif -#ifndef XCopyPlane_TCL_DECLARED -#define XCopyPlane_TCL_DECLARED -/* 18 */ -EXTERN void XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -#endif -#ifndef XCreateBitmapFromData_TCL_DECLARED -#define XCreateBitmapFromData_TCL_DECLARED -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -#endif -#ifndef XDefineCursor_TCL_DECLARED -#define XDefineCursor_TCL_DECLARED -/* 20 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -#endif -#ifndef XDestroyWindow_TCL_DECLARED -#define XDestroyWindow_TCL_DECLARED -/* 21 */ -EXTERN void XDestroyWindow(Display *d, Window w); -#endif -#ifndef XDrawArc_TCL_DECLARED -#define XDrawArc_TCL_DECLARED -/* 22 */ -EXTERN void XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XDrawLines_TCL_DECLARED -#define XDrawLines_TCL_DECLARED -/* 23 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -#endif -#ifndef XDrawRectangle_TCL_DECLARED -#define XDrawRectangle_TCL_DECLARED -/* 24 */ -EXTERN void XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XFillArc_TCL_DECLARED -#define XFillArc_TCL_DECLARED -/* 25 */ -EXTERN void XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XFillPolygon_TCL_DECLARED -#define XFillPolygon_TCL_DECLARED -/* 26 */ -EXTERN void XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -#endif -#ifndef XFillRectangles_TCL_DECLARED -#define XFillRectangles_TCL_DECLARED -/* 27 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -#endif -#ifndef XFreeColormap_TCL_DECLARED -#define XFreeColormap_TCL_DECLARED -/* 28 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -#endif -#ifndef XFreeColors_TCL_DECLARED -#define XFreeColors_TCL_DECLARED -/* 29 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -#endif -#ifndef XFreeModifiermap_TCL_DECLARED -#define XFreeModifiermap_TCL_DECLARED -/* 30 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -#endif -#ifndef XGetGeometry_TCL_DECLARED -#define XGetGeometry_TCL_DECLARED -/* 31 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -#endif -#ifndef XGetWindowProperty_TCL_DECLARED -#define XGetWindowProperty_TCL_DECLARED -/* 32 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -#endif -#ifndef XGrabKeyboard_TCL_DECLARED -#define XGrabKeyboard_TCL_DECLARED -/* 33 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -#endif -#ifndef XGrabPointer_TCL_DECLARED -#define XGrabPointer_TCL_DECLARED -/* 34 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -#endif -#ifndef XKeysymToKeycode_TCL_DECLARED -#define XKeysymToKeycode_TCL_DECLARED -/* 35 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -#endif -#ifndef XMapWindow_TCL_DECLARED -#define XMapWindow_TCL_DECLARED -/* 36 */ -EXTERN void XMapWindow(Display *d, Window w); -#endif -#ifndef XMoveResizeWindow_TCL_DECLARED -#define XMoveResizeWindow_TCL_DECLARED -/* 37 */ -EXTERN void XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XMoveWindow_TCL_DECLARED -#define XMoveWindow_TCL_DECLARED -/* 38 */ -EXTERN void XMoveWindow(Display *d, Window w, int i1, int i2); -#endif -#ifndef XQueryPointer_TCL_DECLARED -#define XQueryPointer_TCL_DECLARED -/* 39 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -#endif -#ifndef XRaiseWindow_TCL_DECLARED -#define XRaiseWindow_TCL_DECLARED -/* 40 */ -EXTERN void XRaiseWindow(Display *d, Window w); -#endif -#ifndef XRefreshKeyboardMapping_TCL_DECLARED -#define XRefreshKeyboardMapping_TCL_DECLARED -/* 41 */ -EXTERN void XRefreshKeyboardMapping(XMappingEvent *x); -#endif -#ifndef XResizeWindow_TCL_DECLARED -#define XResizeWindow_TCL_DECLARED -/* 42 */ -EXTERN void XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XSelectInput_TCL_DECLARED -#define XSelectInput_TCL_DECLARED -/* 43 */ -EXTERN void XSelectInput(Display *d, Window w, long l); -#endif -#ifndef XSendEvent_TCL_DECLARED -#define XSendEvent_TCL_DECLARED -/* 44 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -#endif -#ifndef XSetIconName_TCL_DECLARED -#define XSetIconName_TCL_DECLARED -/* 45 */ -EXTERN void XSetIconName(Display *d, Window w, _Xconst char *c); -#endif -#ifndef XSetInputFocus_TCL_DECLARED -#define XSetInputFocus_TCL_DECLARED -/* 46 */ -EXTERN void XSetInputFocus(Display *d, Window w, int i, Time t); -#endif -#ifndef XSetSelectionOwner_TCL_DECLARED -#define XSetSelectionOwner_TCL_DECLARED -/* 47 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -#endif -#ifndef XSetWindowBackground_TCL_DECLARED -#define XSetWindowBackground_TCL_DECLARED -/* 48 */ -EXTERN void XSetWindowBackground(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED -#define XSetWindowBackgroundPixmap_TCL_DECLARED -/* 49 */ -EXTERN void XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorder_TCL_DECLARED -#define XSetWindowBorder_TCL_DECLARED -/* 50 */ -EXTERN void XSetWindowBorder(Display *d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBorderPixmap_TCL_DECLARED -#define XSetWindowBorderPixmap_TCL_DECLARED -/* 51 */ -EXTERN void XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorderWidth_TCL_DECLARED -#define XSetWindowBorderWidth_TCL_DECLARED -/* 52 */ -EXTERN void XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -#endif -#ifndef XSetWindowColormap_TCL_DECLARED -#define XSetWindowColormap_TCL_DECLARED -/* 53 */ -EXTERN void XSetWindowColormap(Display *d, Window w, Colormap c); -#endif -#ifndef XUngrabKeyboard_TCL_DECLARED -#define XUngrabKeyboard_TCL_DECLARED -/* 54 */ -EXTERN void XUngrabKeyboard(Display *d, Time t); -#endif -#ifndef XUngrabPointer_TCL_DECLARED -#define XUngrabPointer_TCL_DECLARED -/* 55 */ -EXTERN int XUngrabPointer(Display *d, Time t); -#endif -#ifndef XUnmapWindow_TCL_DECLARED -#define XUnmapWindow_TCL_DECLARED -/* 56 */ -EXTERN void XUnmapWindow(Display *d, Window w); -#endif -#ifndef TkPutImage_TCL_DECLARED -#define TkPutImage_TCL_DECLARED -/* 57 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -#endif -#ifndef XParseColor_TCL_DECLARED -#define XParseColor_TCL_DECLARED -/* 58 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -#endif -#ifndef XCreateGC_TCL_DECLARED -#define XCreateGC_TCL_DECLARED -/* 59 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -#endif -#ifndef XFreeGC_TCL_DECLARED -#define XFreeGC_TCL_DECLARED -/* 60 */ -EXTERN int XFreeGC(Display *display, GC gc); -#endif -#ifndef XInternAtom_TCL_DECLARED -#define XInternAtom_TCL_DECLARED -/* 61 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -#endif -#ifndef XSetBackground_TCL_DECLARED -#define XSetBackground_TCL_DECLARED -/* 62 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetForeground_TCL_DECLARED -#define XSetForeground_TCL_DECLARED -/* 63 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetClipMask_TCL_DECLARED -#define XSetClipMask_TCL_DECLARED -/* 64 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -#endif -#ifndef XSetClipOrigin_TCL_DECLARED -#define XSetClipOrigin_TCL_DECLARED -/* 65 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -#endif -#ifndef XSetTSOrigin_TCL_DECLARED -#define XSetTSOrigin_TCL_DECLARED -/* 66 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -#endif -#ifndef XChangeGC_TCL_DECLARED -#define XChangeGC_TCL_DECLARED -/* 67 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -#endif -#ifndef XSetFont_TCL_DECLARED -#define XSetFont_TCL_DECLARED -/* 68 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -#endif -#ifndef XSetArcMode_TCL_DECLARED -#define XSetArcMode_TCL_DECLARED -/* 69 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -#endif -#ifndef XSetStipple_TCL_DECLARED -#define XSetStipple_TCL_DECLARED -/* 70 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -#endif -#ifndef XSetFillRule_TCL_DECLARED -#define XSetFillRule_TCL_DECLARED -/* 71 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -#endif -#ifndef XSetFillStyle_TCL_DECLARED -#define XSetFillStyle_TCL_DECLARED -/* 72 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -#endif -#ifndef XSetFunction_TCL_DECLARED -#define XSetFunction_TCL_DECLARED -/* 73 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -#endif -#ifndef XSetLineAttributes_TCL_DECLARED -#define XSetLineAttributes_TCL_DECLARED -/* 74 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -#endif -#ifndef _XInitImageFuncPtrs_TCL_DECLARED -#define _XInitImageFuncPtrs_TCL_DECLARED -/* 75 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -#endif -#ifndef XCreateIC_TCL_DECLARED -#define XCreateIC_TCL_DECLARED -/* 76 */ -EXTERN XIC XCreateIC(void); -#endif -#ifndef XGetVisualInfo_TCL_DECLARED -#define XGetVisualInfo_TCL_DECLARED -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -#endif -#ifndef XSetWMClientMachine_TCL_DECLARED -#define XSetWMClientMachine_TCL_DECLARED -/* 78 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -#endif -#ifndef XStringListToTextProperty_TCL_DECLARED -#define XStringListToTextProperty_TCL_DECLARED -/* 79 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -#endif -#ifndef XDrawSegments_TCL_DECLARED -#define XDrawSegments_TCL_DECLARED -/* 80 */ -EXTERN int XDrawSegments(Display *display, Drawable d, GC gc, - XSegment *segments, int nsegments); -#endif -#ifndef XForceScreenSaver_TCL_DECLARED -#define XForceScreenSaver_TCL_DECLARED -/* 81 */ -EXTERN void XForceScreenSaver(Display *display, int mode); -#endif -#ifndef XDrawLine_TCL_DECLARED -#define XDrawLine_TCL_DECLARED -/* 82 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -#endif -#ifndef XFillRectangle_TCL_DECLARED -#define XFillRectangle_TCL_DECLARED -/* 83 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -#endif -#ifndef XClearWindow_TCL_DECLARED -#define XClearWindow_TCL_DECLARED -/* 84 */ -EXTERN void XClearWindow(Display *d, Window w); -#endif -#ifndef XDrawPoint_TCL_DECLARED -#define XDrawPoint_TCL_DECLARED -/* 85 */ -EXTERN int XDrawPoint(Display *display, Drawable d, GC gc, - int x, int y); -#endif -#ifndef XDrawPoints_TCL_DECLARED -#define XDrawPoints_TCL_DECLARED -/* 86 */ -EXTERN int XDrawPoints(Display *display, Drawable d, GC gc, - XPoint *points, int npoints, int mode); -#endif -#ifndef XWarpPointer_TCL_DECLARED -#define XWarpPointer_TCL_DECLARED -/* 87 */ -EXTERN int XWarpPointer(Display *display, Window src_w, - Window dest_w, int src_x, int src_y, - unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y); -#endif -#ifndef XQueryColor_TCL_DECLARED -#define XQueryColor_TCL_DECLARED -/* 88 */ -EXTERN void XQueryColor(Display *display, Colormap colormap, - XColor *def_in_out); -#endif -#ifndef XQueryColors_TCL_DECLARED -#define XQueryColors_TCL_DECLARED -/* 89 */ -EXTERN void XQueryColors(Display *display, Colormap colormap, - XColor *defs_in_out, int ncolors); -#endif -#ifndef XQueryTree_TCL_DECLARED -#define XQueryTree_TCL_DECLARED -/* 90 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -#endif -#ifndef XSync_TCL_DECLARED -#define XSync_TCL_DECLARED -/* 91 */ -EXTERN int XSync(Display *display, Bool flag); -#endif -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* Slot 108 is reserved */ -/* Slot 109 is reserved */ -/* Slot 110 is reserved */ -/* Slot 111 is reserved */ -/* Slot 112 is reserved */ -/* Slot 113 is reserved */ -/* Slot 114 is reserved */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry_TCL_DECLARED -#define TkUnusedStubEntry_TCL_DECLARED -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif -#endif /* AQUA */ - -typedef struct TkIntXlibStubs { - int magic; - struct TkIntXlibStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 7 */ - Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 8 */ - GContext (*xGContextFromGC) (GC g); /* 9 */ - XHostAddress * (*xListHosts) (Display *d, int *i, Bool *b); /* 10 */ - KeySym (*xKeycodeToKeysym) (Display *d, unsigned int k, int i); /* 11 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 12 */ - Window (*xRootWindow) (Display *d, int i); /* 13 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ - Status (*xIconifyWindow) (Display *d, Window w, int i); /* 15 */ - Status (*xWithdrawWindow) (Display *d, Window w, int i); /* 16 */ - Status (*xGetWMColormapWindows) (Display *d, Window w, Window **wpp, int *ip); /* 17 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 18 */ - int (*xBell) (Display *d, int i); /* 19 */ - int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 20 */ - int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 21 */ - int (*xClearWindow) (Display *d, Window w); /* 22 */ - int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 23 */ - int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ - int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 26 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 27 */ - int (*xDeleteProperty) (Display *d, Window w, Atom a); /* 28 */ - int (*xDestroyWindow) (Display *d, Window w); /* 29 */ - int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 31 */ - int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ - int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ - int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 34 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 35 */ - int (*xForceScreenSaver) (Display *d, int i); /* 36 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 37 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 38 */ - int (*xFreeCursor) (Display *d, Cursor c); /* 39 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 40 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 41 */ - int (*xGetInputFocus) (Display *d, Window *w, int *i); /* 42 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 43 */ - Status (*xGetWindowAttributes) (Display *d, Window w, XWindowAttributes *x); /* 44 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 47 */ - Status (*xLookupColor) (Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2); /* 48 */ - int (*xMapWindow) (Display *d, Window w); /* 49 */ - int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ - int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 51 */ - int (*xNextEvent) (Display *d, XEvent *x); /* 52 */ - int (*xPutBackEvent) (Display *d, XEvent *x); /* 53 */ - int (*xQueryColors) (Display *d, Colormap c, XColor *x, int i); /* 54 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 55 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 56 */ - int (*xRaiseWindow) (Display *d, Window w); /* 57 */ - int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 58 */ - int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ - int (*xSelectInput) (Display *d, Window w, long l); /* 60 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 61 */ - int (*xSetCommand) (Display *d, Window w, char **c, int i); /* 62 */ - int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 63 */ - int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 64 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 65 */ - int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 66 */ - int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 67 */ - int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 68 */ - int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 69 */ - int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 70 */ - int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 71 */ - Bool (*xTranslateCoordinates) (Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3); /* 72 */ - int (*xUngrabKeyboard) (Display *d, Time t); /* 73 */ - int (*xUngrabPointer) (Display *d, Time t); /* 74 */ - int (*xUnmapWindow) (Display *d, Window w); /* 75 */ - int (*xWindowEvent) (Display *d, Window w, long l, XEvent *x); /* 76 */ - void (*xDestroyIC) (XIC x); /* 77 */ - Bool (*xFilterEvent) (XEvent *x, Window w); /* 78 */ - int (*xmbLookupString) (XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s); /* 79 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ - VOID *reserved81; - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 82 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 83 */ - int (*xFreeGC) (Display *display, GC gc); /* 84 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 85 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 86 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 87 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 88 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 91 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 92 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 93 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 94 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 95 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 96 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 97 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 99 */ - XIC (*xCreateIC) (XIM xim, ...); /* 100 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 101 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 102 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 103 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ - int (*xWarpPointer) (Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ - int (*xFlush) (Display *display); /* 107 */ - int (*xGrabServer) (Display *display); /* 108 */ - int (*xUngrabServer) (Display *display); /* 109 */ - int (*xFree) (VOID *data); /* 110 */ - int (*xNoOp) (Display *display); /* 111 */ - XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ - int (*xSync) (Display *display, Bool discard); /* 113 */ - VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ - VOID *reserved115; - VOID *reserved116; - VOID *reserved117; - VOID *reserved118; - VOID *reserved119; - VOID *reserved120; - VOID *reserved121; - VOID *reserved122; - VOID *reserved123; - VOID *reserved124; - VOID *reserved125; - VOID *reserved126; - VOID *reserved127; - VOID *reserved128; - VOID *reserved129; - VOID *reserved130; - VOID *reserved131; - VOID *reserved132; - int (*xDrawSegments) (Display *d, Drawable dr, GC gc, XSegment *s, int n); /* 133 */ - int (*xDrawPoint) (Display *d, Drawable dr, GC gc, int x, int y); /* 134 */ - int (*xDrawPoints) (Display *d, Drawable dr, GC gc, XPoint *p, int n, int m); /* 135 */ - VOID *reserved136; - VOID *reserved137; - VOID *reserved138; - VOID *reserved139; - VOID *reserved140; - VOID *reserved141; - VOID *reserved142; - VOID *reserved143; - VOID *reserved144; - VOID *reserved145; - VOID *reserved146; - VOID *reserved147; - VOID *reserved148; - VOID *reserved149; - VOID *reserved150; - VOID *reserved151; - VOID *reserved152; - VOID *reserved153; - VOID *reserved154; - VOID *reserved155; - VOID *reserved156; - VOID *reserved157; - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - GContext (*xGContextFromGC) (GC g); /* 7 */ - KeySym (*xKeycodeToKeysym) (Display *d, KeyCode k, int i); /* 8 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 9 */ - Window (*xRootWindow) (Display *d, int i); /* 10 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 12 */ - int (*xBell) (Display *d, int i); /* 13 */ - void (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 14 */ - void (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 15 */ - void (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 16 */ - void (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ - void (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 19 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 20 */ - void (*xDestroyWindow) (Display *d, Window w); /* 21 */ - void (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 23 */ - void (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ - void (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ - void (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 26 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 27 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 28 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 29 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 30 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 31 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 32 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 35 */ - void (*xMapWindow) (Display *d, Window w); /* 36 */ - void (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ - void (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 38 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 39 */ - void (*xRaiseWindow) (Display *d, Window w); /* 40 */ - void (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 41 */ - void (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ - void (*xSelectInput) (Display *d, Window w, long l); /* 43 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 44 */ - void (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 45 */ - void (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 46 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 47 */ - void (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 48 */ - void (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 49 */ - void (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 50 */ - void (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 51 */ - void (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 52 */ - void (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 53 */ - void (*xUngrabKeyboard) (Display *d, Time t); /* 54 */ - int (*xUngrabPointer) (Display *d, Time t); /* 55 */ - void (*xUnmapWindow) (Display *d, Window w); /* 56 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 58 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 59 */ - int (*xFreeGC) (Display *display, GC gc); /* 60 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 61 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 62 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 63 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 64 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 67 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 68 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 69 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 70 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 71 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 72 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 73 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 75 */ - XIC (*xCreateIC) (void); /* 76 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 77 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 78 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 79 */ - int (*xDrawSegments) (Display *display, Drawable d, GC gc, XSegment *segments, int nsegments); /* 80 */ - void (*xForceScreenSaver) (Display *display, int mode); /* 81 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ - void (*xClearWindow) (Display *d, Window w); /* 84 */ - int (*xDrawPoint) (Display *display, Drawable d, GC gc, int x, int y); /* 85 */ - int (*xDrawPoints) (Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode); /* 86 */ - int (*xWarpPointer) (Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ - void (*xQueryColor) (Display *display, Colormap colormap, XColor *def_in_out); /* 88 */ - void (*xQueryColors) (Display *display, Colormap colormap, XColor *defs_in_out, int ncolors); /* 89 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 90 */ - int (*xSync) (Display *display, Bool flag); /* 91 */ - VOID *reserved92; - VOID *reserved93; - VOID *reserved94; - VOID *reserved95; - VOID *reserved96; - VOID *reserved97; - VOID *reserved98; - VOID *reserved99; - VOID *reserved100; - VOID *reserved101; - VOID *reserved102; - VOID *reserved103; - VOID *reserved104; - VOID *reserved105; - VOID *reserved106; - VOID *reserved107; - VOID *reserved108; - VOID *reserved109; - VOID *reserved110; - VOID *reserved111; - VOID *reserved112; - VOID *reserved113; - VOID *reserved114; - VOID *reserved115; - VOID *reserved116; - VOID *reserved117; - VOID *reserved118; - VOID *reserved119; - VOID *reserved120; - VOID *reserved121; - VOID *reserved122; - VOID *reserved123; - VOID *reserved124; - VOID *reserved125; - VOID *reserved126; - VOID *reserved127; - VOID *reserved128; - VOID *reserved129; - VOID *reserved130; - VOID *reserved131; - VOID *reserved132; - VOID *reserved133; - VOID *reserved134; - VOID *reserved135; - VOID *reserved136; - VOID *reserved137; - VOID *reserved138; - VOID *reserved139; - VOID *reserved140; - VOID *reserved141; - VOID *reserved142; - VOID *reserved143; - VOID *reserved144; - VOID *reserved145; - VOID *reserved146; - VOID *reserved147; - VOID *reserved148; - VOID *reserved149; - VOID *reserved150; - VOID *reserved151; - VOID *reserved152; - VOID *reserved153; - VOID *reserved154; - VOID *reserved155; - VOID *reserved156; - VOID *reserved157; - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* AQUA */ -} TkIntXlibStubs; - -extern TkIntXlibStubs *tkIntXlibStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XCreatePixmapCursor -#define XCreatePixmapCursor \ - (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ -#endif -#ifndef XCreateGlyphCursor -#define XCreateGlyphCursor \ - (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ -#endif -#ifndef XListHosts -#define XListHosts \ - (tkIntXlibStubsPtr->xListHosts) /* 10 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 13 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ -#endif -#ifndef XIconifyWindow -#define XIconifyWindow \ - (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ -#endif -#ifndef XWithdrawWindow -#define XWithdrawWindow \ - (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ -#endif -#ifndef XGetWMColormapWindows -#define XGetWMColormapWindows \ - (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 18 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 19 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 22 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 24 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ -#endif -#ifndef XDeleteProperty -#define XDeleteProperty \ - (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 30 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 31 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 33 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 38 */ -#endif -#ifndef XFreeCursor -#define XFreeCursor \ - (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ -#endif -#ifndef XGetInputFocus -#define XGetInputFocus \ - (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ -#endif -#ifndef XGetWindowAttributes -#define XGetWindowAttributes \ - (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ -#endif -#ifndef XLookupColor -#define XLookupColor \ - (tkIntXlibStubsPtr->xLookupColor) /* 48 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 49 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ -#endif -#ifndef XNextEvent -#define XNextEvent \ - (tkIntXlibStubsPtr->xNextEvent) /* 52 */ -#endif -#ifndef XPutBackEvent -#define XPutBackEvent \ - (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 54 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 56 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 60 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 61 */ -#endif -#ifndef XSetCommand -#define XSetCommand \ - (tkIntXlibStubsPtr->xSetCommand) /* 62 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 63 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ -#endif -#ifndef XTranslateCoordinates -#define XTranslateCoordinates \ - (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ -#endif -#ifndef XWindowEvent -#define XWindowEvent \ - (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ -#endif -#ifndef XDestroyIC -#define XDestroyIC \ - (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ -#endif -#ifndef XFilterEvent -#define XFilterEvent \ - (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ -#endif -#ifndef XmbLookupString -#define XmbLookupString \ - (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 80 */ -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 82 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 83 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 84 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 85 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 86 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 87 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 91 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 92 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 94 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 97 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 100 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 104 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ -#endif -#ifndef XFlush -#define XFlush \ - (tkIntXlibStubsPtr->xFlush) /* 107 */ -#endif -#ifndef XGrabServer -#define XGrabServer \ - (tkIntXlibStubsPtr->xGrabServer) /* 108 */ -#endif -#ifndef XUngrabServer -#define XUngrabServer \ - (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ -#endif -#ifndef XFree -#define XFree \ - (tkIntXlibStubsPtr->xFree) /* 110 */ -#endif -#ifndef XNoOp -#define XNoOp \ - (tkIntXlibStubsPtr->xNoOp) /* 111 */ -#endif -#ifndef XSynchronize -#define XSynchronize \ - (tkIntXlibStubsPtr->xSynchronize) /* 112 */ -#endif -#ifndef XSync -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 113 */ -#endif -#ifndef XVisualIDFromVisual -#define XVisualIDFromVisual \ - (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ -#endif -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 133 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 134 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 135 */ -#endif -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#endif -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#endif -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#endif -#ifndef XQueryColor -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#endif -#ifndef XSync -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 91 */ -#endif -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* Slot 108 is reserved */ -/* Slot 109 is reserved */ -/* Slot 110 is reserved */ -/* Slot 111 is reserved */ -/* Slot 112 is reserved */ -/* Slot 113 is reserved */ -/* Slot 114 is reserved */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#ifndef TkUnusedStubEntry -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TkUnusedStubEntry - -#if defined(__WIN32__) - -#undef XFlush -#undef XGrabServer -#undef XUngrabServer -#undef XFree -#undef XNoOp -#undef XSynchronize -#undef XSync -#undef XVisualIDFromVisual - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) -/* - * The following stubs implement various calls that don't do anything - * under Windows. In win32 tclsh 8.4 and 8.5 holds: - * tkIntStubsPtr->tkBindDeadWindow != NULL - * Then the following macros don't do anything. But when running Tcl win32 - * version 8.6 or Cygwin (8.4, 8.5 or 8.6) then the functions are available in - * the stub table. The real function from the stub table will be called, - * even though it might be doing nothing. - */ - -#define XFlush(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xFlush(display)) -#define XGrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xGrabServer(display)) -#define XUngrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xUngrabServer(display)) - -/* - * The following functions are implemented as macros under Windows. - */ - - -#define XFree(data) (tkIntStubsPtr->tkBindDeadWindow? ((data)? (ckfree((char *) (data)), 0): 0): tkIntXlibStubsPtr->xFree(data)) -#define XNoOp(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xNoOp(display)) -#define XSynchronize(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSynchronize(display, bool)) -#define XSync(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSync(display, bool)) -#define XVisualIDFromVisual(visual) (tkIntStubsPtr->tkBindDeadWindow? ((visual)->visualid): tkIntXlibStubsPtr->xVisualIDFromVisual(visual)) - -#else /* !USE_TK_STUBS */ -/* - * The following stubs implement various calls that don't do anything - * under Windows. - */ - -#define XFlush(display) -#define XGrabServer(display) -#define XUngrabServer(display) - -/* - * The following functions are implemented as macros under Windows. - */ - -#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));} -#define XNoOp(display) {display->request++;} -#define XSynchronize(display, bool) {display->request++;} -#define XSync(display, bool) {display->request++;} -#define XVisualIDFromVisual(visual) (visual->visualid) - -#endif /* !USE_TK_STUBS */ - -#endif /* __WIN32__ */ - -#endif /* _TKINTXLIBDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkPlatDecls.h deleted file mode 100644 index eb3d74da4..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkPlatDecls.h +++ /dev/null @@ -1,253 +0,0 @@ -/* - * tkPlatDecls.h -- - * - * Declarations of functions in the platform-specific public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPLATDECLS -#define _TKPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tk_AttachHWND_TCL_DECLARED -#define Tk_AttachHWND_TCL_DECLARED -/* 0 */ -EXTERN Window Tk_AttachHWND(Tk_Window tkwin, HWND hwnd); -#endif -#ifndef Tk_GetHINSTANCE_TCL_DECLARED -#define Tk_GetHINSTANCE_TCL_DECLARED -/* 1 */ -EXTERN HINSTANCE Tk_GetHINSTANCE(void); -#endif -#ifndef Tk_GetHWND_TCL_DECLARED -#define Tk_GetHWND_TCL_DECLARED -/* 2 */ -EXTERN HWND Tk_GetHWND(Window window); -#endif -#ifndef Tk_HWNDToWindow_TCL_DECLARED -#define Tk_HWNDToWindow_TCL_DECLARED -/* 3 */ -EXTERN Tk_Window Tk_HWNDToWindow(HWND hwnd); -#endif -#ifndef Tk_PointerEvent_TCL_DECLARED -#define Tk_PointerEvent_TCL_DECLARED -/* 4 */ -EXTERN void Tk_PointerEvent(HWND hwnd, int x, int y); -#endif -#ifndef Tk_TranslateWinEvent_TCL_DECLARED -#define Tk_TranslateWinEvent_TCL_DECLARED -/* 5 */ -EXTERN int Tk_TranslateWinEvent(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam, - LRESULT *result); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef Tk_MacOSXSetEmbedHandler_TCL_DECLARED -#define Tk_MacOSXSetEmbedHandler_TCL_DECLARED -/* 0 */ -EXTERN void Tk_MacOSXSetEmbedHandler( - Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, - Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, - Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, - Tk_MacOSXEmbedGetClipProc *getClipProc, - Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); -#endif -#ifndef Tk_MacOSXTurnOffMenus_TCL_DECLARED -#define Tk_MacOSXTurnOffMenus_TCL_DECLARED -/* 1 */ -EXTERN void Tk_MacOSXTurnOffMenus(void); -#endif -#ifndef Tk_MacOSXTkOwnsCursor_TCL_DECLARED -#define Tk_MacOSXTkOwnsCursor_TCL_DECLARED -/* 2 */ -EXTERN void Tk_MacOSXTkOwnsCursor(int tkOwnsIt); -#endif -#ifndef TkMacOSXInitMenus_TCL_DECLARED -#define TkMacOSXInitMenus_TCL_DECLARED -/* 3 */ -EXTERN void TkMacOSXInitMenus(Tcl_Interp *interp); -#endif -#ifndef TkMacOSXInitAppleEvents_TCL_DECLARED -#define TkMacOSXInitAppleEvents_TCL_DECLARED -/* 4 */ -EXTERN void TkMacOSXInitAppleEvents(Tcl_Interp *interp); -#endif -#ifndef TkGenWMConfigureEvent_TCL_DECLARED -#define TkGenWMConfigureEvent_TCL_DECLARED -/* 5 */ -EXTERN void TkGenWMConfigureEvent(Tk_Window tkwin, int x, int y, - int width, int height, int flags); -#endif -#ifndef TkMacOSXInvalClipRgns_TCL_DECLARED -#define TkMacOSXInvalClipRgns_TCL_DECLARED -/* 6 */ -EXTERN void TkMacOSXInvalClipRgns(Tk_Window tkwin); -#endif -#ifndef TkMacOSXGetDrawablePort_TCL_DECLARED -#define TkMacOSXGetDrawablePort_TCL_DECLARED -/* 7 */ -EXTERN VOID * TkMacOSXGetDrawablePort(Drawable drawable); -#endif -#ifndef TkMacOSXGetRootControl_TCL_DECLARED -#define TkMacOSXGetRootControl_TCL_DECLARED -/* 8 */ -EXTERN VOID * TkMacOSXGetRootControl(Drawable drawable); -#endif -#ifndef Tk_MacOSXSetupTkNotifier_TCL_DECLARED -#define Tk_MacOSXSetupTkNotifier_TCL_DECLARED -/* 9 */ -EXTERN void Tk_MacOSXSetupTkNotifier(void); -#endif -#ifndef Tk_MacOSXIsAppInFront_TCL_DECLARED -#define Tk_MacOSXIsAppInFront_TCL_DECLARED -/* 10 */ -EXTERN int Tk_MacOSXIsAppInFront(void); -#endif -#endif /* AQUA */ - -typedef struct TkPlatStubs { - int magic; - struct TkPlatStubHooks *hooks; - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ - Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ - HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ - HWND (*tk_GetHWND) (Window window); /* 2 */ - Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ - void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ - int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result); /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); /* 0 */ - void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ - void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ - void (*tkMacOSXInitMenus) (Tcl_Interp *interp); /* 3 */ - void (*tkMacOSXInitAppleEvents) (Tcl_Interp *interp); /* 4 */ - void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ - void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ - VOID * (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ - VOID * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ - void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ - int (*tk_MacOSXIsAppInFront) (void); /* 10 */ -#endif /* AQUA */ -} TkPlatStubs; - -extern TkPlatStubs *tkPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ -#ifndef Tk_AttachHWND -#define Tk_AttachHWND \ - (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ -#endif -#ifndef Tk_GetHINSTANCE -#define Tk_GetHINSTANCE \ - (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ -#endif -#ifndef Tk_GetHWND -#define Tk_GetHWND \ - (tkPlatStubsPtr->tk_GetHWND) /* 2 */ -#endif -#ifndef Tk_HWNDToWindow -#define Tk_HWNDToWindow \ - (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ -#endif -#ifndef Tk_PointerEvent -#define Tk_PointerEvent \ - (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ -#endif -#ifndef Tk_TranslateWinEvent -#define Tk_TranslateWinEvent \ - (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef Tk_MacOSXSetEmbedHandler -#define Tk_MacOSXSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ -#endif -#ifndef Tk_MacOSXTurnOffMenus -#define Tk_MacOSXTurnOffMenus \ - (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ -#endif -#ifndef Tk_MacOSXTkOwnsCursor -#define Tk_MacOSXTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ -#endif -#ifndef TkMacOSXInitMenus -#define TkMacOSXInitMenus \ - (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ -#endif -#ifndef TkMacOSXInitAppleEvents -#define TkMacOSXInitAppleEvents \ - (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ -#endif -#ifndef TkGenWMConfigureEvent -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ -#endif -#ifndef TkMacOSXInvalClipRgns -#define TkMacOSXInvalClipRgns \ - (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ -#endif -#ifndef TkMacOSXGetDrawablePort -#define TkMacOSXGetDrawablePort \ - (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ -#endif -#ifndef TkMacOSXGetRootControl -#define TkMacOSXGetRootControl \ - (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ -#endif -#ifndef Tk_MacOSXSetupTkNotifier -#define Tk_MacOSXSetupTkNotifier \ - (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ -#endif -#ifndef Tk_MacOSXIsAppInFront -#define Tk_MacOSXIsAppInFront \ - (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ -#endif -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkPort.h deleted file mode 100644 index 00c49fd7f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkPort.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * tkPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPORT -#define _TKPORT - -#ifndef _TK -#include "tk.h" -#endif -#ifndef _TCL -#include "tcl.h" -#endif - -#if defined(__WIN32__) || defined(_WIN32) -# include "tkWinPort.h" -#else -# if defined(MAC_OSX_TK) -# include "tkMacOSXPort.h" -# else -# include "tkUnixPort.h" -# endif -#endif - -#endif /* _TKPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWin.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWin.h deleted file mode 100644 index 00d348682..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWin.h +++ /dev/null @@ -1,89 +0,0 @@ -/* - * tkWin.h -- - * - * Declarations of public types and interfaces that are only - * available under Windows. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWIN -#define _TKWIN - -/* - * We must specify the lower version we intend to support. In particular - * the SystemParametersInfo API doesn't like to receive structures that - * are larger than it expects which affects the font assignements. - * - * WINVER = 0x0410 means Windows 98 and above - */ - -#ifndef WINVER -#define WINVER 0x0500 -#endif -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif - -#ifndef _TK -#include -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * The following messages are used to communicate between a Tk toplevel - * and its container window. A Tk container may not be able to provide - * service to all of the following requests at the moment. But an embedded - * Tk window will send out these requests to support external Tk container - * application. - */ - -#define TK_CLAIMFOCUS (WM_USER) /* an embedded window requests to focus */ -#define TK_GEOMETRYREQ (WM_USER+1) /* an embedded window requests to change size */ -#define TK_ATTACHWINDOW (WM_USER+2) /* an embedded window requests to attach */ -#define TK_DETACHWINDOW (WM_USER+3) /* an embedded window requests to detach */ -#define TK_MOVEWINDOW (WM_USER+4) /* an embedded window requests to move */ -#define TK_RAISEWINDOW (WM_USER+5) /* an embedded window requests to raise */ -#define TK_ICONIFY (WM_USER+6) /* an embedded window requests to iconify */ -#define TK_DEICONIFY (WM_USER+7) /* an embedded window requests to deiconify */ -#define TK_WITHDRAW (WM_USER+8) /* an embedded window requests to withdraw */ -#define TK_GETFRAMEWID (WM_USER+9) /* an embedded window requests a frame window id */ -#define TK_OVERRIDEREDIRECT (WM_USER+10) /* an embedded window requests to overrideredirect */ -#define TK_SETMENU (WM_USER+11) /* an embedded window requests to setup menu */ -#define TK_STATE (WM_USER+12) /* an embedded window sets/gets state */ -#define TK_INFO (WM_USER+13) /* an embedded window requests a container's info */ - -/* - * The following are sub-messages (wParam) for TK_INFO. An embedded window may - * send a TK_INFO message with one of the sub-messages to query a container - * for verification and availability - */ -#define TK_CONTAINER_VERIFY 0x01 -#define TK_CONTAINER_ISAVAILABLE 0x02 - - -/* - *-------------------------------------------------------------- - * - * Exported procedures defined for the Windows platform only. - * - *-------------------------------------------------------------- - */ - -#include "tkPlatDecls.h" - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKWIN */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWinInt.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWinInt.h deleted file mode 100644 index abac7b030..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWinInt.h +++ /dev/null @@ -1,291 +0,0 @@ -/* - * tkWinInt.h -- - * - * This file contains declarations that are shared among the - * Windows-specific parts of Tk, but aren't used by the rest of Tk. - * - * Copyright (c) 1995-1997 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWININT -#define _TKWININT - -#ifndef _TKINT -#include "tkInt.h" -#endif - -/* - * Include platform specific public interfaces. - */ - -#ifndef _TKWIN -#include "tkWin.h" -#endif - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -/* - * Define constants missing from older Win32 SDK header files. - */ - -#ifndef WS_EX_TOOLWINDOW -#define WS_EX_TOOLWINDOW 0x00000080L -#endif -#ifndef SPI_SETKEYBOARDCUES -#define SPI_SETKEYBOARDCUES 0x100B -#endif - -/* - * The TkWinDCState is used to save the state of a device context so that it - * can be restored later. - */ - -typedef struct TkWinDCState { - HPALETTE palette; - int bkmode; -} TkWinDCState; - -/* - * The TkWinDrawable is the internal implementation of an X Drawable (either a - * Window or a Pixmap). The following constants define the valid Drawable - * types. - */ - -#define TWD_BITMAP 1 -#define TWD_WINDOW 2 -#define TWD_WINDC 3 - -typedef struct { - int type; - HWND handle; - TkWindow *winPtr; -} TkWinWindow; - -typedef struct { - int type; - HBITMAP handle; - Colormap colormap; - int depth; -} TkWinBitmap; - -typedef struct { - int type; - HDC hdc; -}TkWinDC; - -typedef union { - int type; - TkWinWindow window; - TkWinBitmap bitmap; - TkWinDC winDC; -} TkWinDrawable; - -/* - * The following macros are used to retrieve internal values from a Drawable. - */ - -#define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle) -#define TkWinGetWinPtr(w) (((TkWinDrawable *) w)->window.winPtr) -#define TkWinGetHBITMAP(w) (((TkWinDrawable *) w)->bitmap.handle) -#define TkWinGetColormap(w) (((TkWinDrawable *) w)->bitmap.colormap) -#define TkWinGetHDC(w) (((TkWinDrawable *) w)->winDC.hdc) - -/* - * The following structure is used to encapsulate palette information. - */ - -typedef struct { - HPALETTE palette; /* Palette handle used when drawing. */ - UINT size; /* Number of entries in the palette. */ - int stale; /* 1 if palette needs to be realized, - * otherwise 0. If the palette is stale, then - * an idle handler is scheduled to realize the - * palette. */ - Tcl_HashTable refCounts; /* Hash table of palette entry reference - * counts indexed by pixel value. */ -} TkWinColormap; - -/* - * The following macro retrieves the Win32 palette from a colormap. - */ - -#define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette) - -/* - * The following macros define the class names for Tk Window types. - */ - -#define TK_WIN_TOPLEVEL_CLASS_NAME "TkTopLevel" -#define TK_WIN_CHILD_CLASS_NAME "TkChild" - -/* - * The following variable is a translation table between X gc functions and - * Win32 raster and BitBlt op modes. - */ - -MODULE_SCOPE const int tkpWinRopModes[]; -MODULE_SCOPE const int tkpWinBltModes[]; - -/* - * The following defines are used with TkWinGetBorderPixels to get the extra 2 - * border colors from a Tk_3DBorder. - */ - -#define TK_3D_LIGHT2 TK_3D_DARK_GC+1 -#define TK_3D_DARK2 TK_3D_DARK_GC+2 - -/* - * Internal functions used by more than one source file. - */ - -#include "tkIntPlatDecls.h" - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Special proc needed as tsd accessor function between - * tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard - */ - -EXTERN void TkWinUpdatingClipboard(int mode); - -/* - * Used by tkWinDialog.c to associate the right icon with tk_messageBox - */ - -EXTERN HICON TkWinGetIcon(Tk_Window tkw, DWORD iconsize); - -/* - * Used by tkWinX.c on for certain system display change messages and cleanup - * up containers - */ - -EXTERN void TkWinDisplayChanged(Display *display); -MODULE_SCOPE void TkWinCleanupContainerList(void); - -/* - * Used by tkWinWm.c for embedded menu handling. May become public. - */ - -EXTERN HWND Tk_GetMenuHWND(Tk_Window tkwin); -EXTERN HWND Tk_GetEmbeddedMenuHWND(Tk_Window tkwin); - -/* - * The following structure keeps track of whether we are using the multi-byte - * or the wide-character interfaces to the operating system. System calls - * should be made through the following function table. - * - * While some system calls need to use this A/W jump-table, it is not - * necessary for all calls to do it, which is why you won't see this used - * throughout the Tk code, but only in key areas. -- hobbs - */ - -typedef struct TkWinProcs { - int useWide; - LRESULT (WINAPI *callWindowProc)(WNDPROC lpPrevWndFunc, HWND hWnd, - UINT Msg, WPARAM wParam, LPARAM lParam); - LRESULT (WINAPI *defWindowProc)(HWND hWnd, UINT Msg, WPARAM wParam, - LPARAM lParam); - ATOM (WINAPI *registerClass)(const WNDCLASS *lpWndClass); - BOOL (WINAPI *setWindowText)(HWND hWnd, LPCTSTR lpString); - HWND (WINAPI *createWindowEx)(DWORD dwExStyle, LPCTSTR lpClassName, - LPCTSTR lpWindowName, DWORD dwStyle, int x, int y, - int nWidth, int nHeight, HWND hWndParent, HMENU hMenu, - HINSTANCE hInstance, LPVOID lpParam); - BOOL (WINAPI *insertMenu)(HMENU hMenu, UINT uPosition, UINT uFlags, - UINT uIDNewItem, LPCTSTR lpNewItem); - int (WINAPI *getWindowText)(HWND hWnd, LPCTSTR lpString, int nMaxCount); -} TkWinProcs; - -EXTERN TkWinProcs *tkWinProcs; - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -/* - * The following allows us to cache these encoding for multiple functions. - */ - - -MODULE_SCOPE Tcl_Encoding TkWinGetKeyInputEncoding(void); -MODULE_SCOPE Tcl_Encoding TkWinGetUnicodeEncoding(void); -MODULE_SCOPE void TkWinSetupSystemFonts(TkMainInfo *mainPtr); - -/* - * Values returned by TkWinGetPlatformTheme. - */ - -#define TK_THEME_WIN_CLASSIC 1 -#define TK_THEME_WIN_XP 2 - -/* - * The following is implemented in tkWinWm and used by tkWinEmbed.c - */ - -void TkpWinToplevelWithDraw(TkWindow *winPtr); -void TkpWinToplevelIconify(TkWindow *winPtr); -void TkpWinToplevelDeiconify(TkWindow *winPtr); -long TkpWinToplevelIsControlledByWm(TkWindow *winPtr); -long TkpWinToplevelMove(TkWindow *winPtr, int x, int y); -long TkpWinToplevelOverrideRedirect(TkWindow *winPtr, - int reqValue); -void TkpWinToplevelDetachWindow(TkWindow *winPtr); -int TkpWmGetState(TkWindow *winPtr); - -/* - * The following functions are not present in old versions of Windows - * API headers but are used in the Tk source to ensure 64bit - * compatability. - */ - -#ifndef GetClassLongPtr -# define GetClassLongPtrA GetClassLongA -# define GetClassLongPtrW GetClassLongW -# define SetClassLongPtrA SetClassLongA -# define SetClassLongPtrW SetClassLongW -# ifdef UNICODE -# define GetClassLongPtr GetClassLongPtrW -# define SetClassLongPtr SetClassLongPtrW -# else -# define GetClassLongPtr GetClassLongPtrA -# define SetClassLongPtr SetClassLongPtrA -# endif /* !UNICODE */ -#endif /* !GetClassLongPtr */ -#ifndef GCLP_HICON -# define GCLP_HICON GCL_HICON -#endif /* !GCLP_HICON */ -#ifndef GCLP_HICONSM -# define GCLP_HICONSM (-34) -#endif /* !GCLP_HICONSM */ - -#ifndef GetWindowLongPtr -# define GetWindowLongPtrA GetWindowLongA -# define GetWindowLongPtrW GetWindowLongW -# define SetWindowLongPtrA SetWindowLongA -# define SetWindowLongPtrW SetWindowLongW -# ifdef UNICODE -# define GetWindowLongPtr GetWindowLongPtrW -# define SetWindowLongPtr SetWindowLongPtrW -# else -# define GetWindowLongPtr GetWindowLongPtrW -# define SetWindowLongPtr SetWindowLongPtrW -# endif /* !UNICODE */ -#endif /* !GetWindowLongPtr */ -#ifndef GWLP_WNDPROC -#define GWLP_WNDPROC GWL_WNDPROC -#define GWLP_HINSTANCE GWL_HINSTANCE -#define GWLP_HWNDPARENT GWL_HWNDPARENT -#define GWLP_USERDATA GWL_USERDATA -#define GWLP_ID GWL_ID -#endif /* !GWLP_WNDPROC */ - -#endif /* _TKWININT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWinPort.h deleted file mode 100644 index 2925dae5f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tkWinPort.h +++ /dev/null @@ -1,129 +0,0 @@ -/* - * tkWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1995-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _WINPORT -#define _WINPORT - -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* - * Need to block out this include for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#endif - -#include - -#ifdef _MSC_VER -# ifndef hypot -# define hypot _hypot -# endif -#endif /* _MSC_VER */ - -/* - * Pull in the typedef of TCHAR for windows. - */ -#include -#ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -#endif -#if defined(_MSC_VER) && defined(__STDC__) - /* VS2005 SP1 misses this. See [Bug #3110161] */ - typedef _TCHAR TCHAR; -#endif - - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -#define NBBY 8 - -#ifndef OPEN_MAX -#define OPEN_MAX 32 -#endif - -/* - * The following define causes Tk to use its internal keysym hash table - */ - -#define REDO_KEYSYM_LOOKUP - -/* - * See ticket [916c1095438eae56]: GetVersionExW triggers warnings - */ -#if defined(_MSC_VER) -# pragma warning(disable:4047) -# pragma warning(disable:4267) -# pragma warning(disable:4244) -# pragma warning(disable:4311) -# pragma warning(disable:4312) -# pragma warning(disable:4996) -#endif - -/* - * The following macro checks to see whether there is buffered - * input data available for a stdio FILE. - */ - -#ifdef _MSC_VER -# define TK_READ_DATA_PENDING(f) ((f)->_cnt > 0) -#else /* _MSC_VER */ -# define TK_READ_DATA_PENDING(f) ((f)->level > 0) -#endif /* _MSC_VER */ - -/* - * The following stubs implement various calls that don't do anything - * under Windows. - */ - -#define TkFreeWindowId(dispPtr,w) -#define TkInitXId(dispPtr) - -/* - * The following Tk functions are implemented as macros under Windows. - */ - -#define TkpGetPixel(p) (((((p)->red >> 8) & 0xff) \ - | ((p)->green & 0xff00) | (((p)->blue << 8) & 0xff0000)) | 0x20000000) - -/* - * These calls implement native bitmaps which are not currently - * supported under Windows. The macros eliminate the calls. - */ - -#define TkpDefineNativeBitmaps() -#define TkpCreateNativeBitmap(display, source) None -#define TkpGetNativeAppBitmap(display, name, w, h) None - -#endif /* _WINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tommath_class.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tommath_class.h deleted file mode 100644 index b9cc9024c..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tommath_class.h +++ /dev/null @@ -1,995 +0,0 @@ -#if !(defined(LTM1) && defined(LTM2) && defined(LTM3)) -#if defined(LTM2) -#define LTM3 -#endif -#if defined(LTM1) -#define LTM2 -#endif -#define LTM1 - -#if defined(LTM_ALL) -#define BN_ERROR_C -#define BN_FAST_MP_INVMOD_C -#define BN_FAST_MP_MONTGOMERY_REDUCE_C -#define BN_FAST_S_MP_MUL_DIGS_C -#define BN_FAST_S_MP_MUL_HIGH_DIGS_C -#define BN_FAST_S_MP_SQR_C -#define BN_MP_2EXPT_C -#define BN_MP_ABS_C -#define BN_MP_ADD_C -#define BN_MP_ADD_D_C -#define BN_MP_ADDMOD_C -#define BN_MP_AND_C -#define BN_MP_CLAMP_C -#define BN_MP_CLEAR_C -#define BN_MP_CLEAR_MULTI_C -#define BN_MP_CMP_C -#define BN_MP_CMP_D_C -#define BN_MP_CMP_MAG_C -#define BN_MP_CNT_LSB_C -#define BN_MP_COPY_C -#define BN_MP_COUNT_BITS_C -#define BN_MP_DIV_C -#define BN_MP_DIV_2_C -#define BN_MP_DIV_2D_C -#define BN_MP_DIV_3_C -#define BN_MP_DIV_D_C -#define BN_MP_DR_IS_MODULUS_C -#define BN_MP_DR_REDUCE_C -#define BN_MP_DR_SETUP_C -#define BN_MP_EXCH_C -#define BN_MP_EXPT_D_C -#define BN_MP_EXPTMOD_C -#define BN_MP_EXPTMOD_FAST_C -#define BN_MP_EXTEUCLID_C -#define BN_MP_FREAD_C -#define BN_MP_FWRITE_C -#define BN_MP_GCD_C -#define BN_MP_GET_INT_C -#define BN_MP_GROW_C -#define BN_MP_INIT_C -#define BN_MP_INIT_COPY_C -#define BN_MP_INIT_MULTI_C -#define BN_MP_INIT_SET_C -#define BN_MP_INIT_SET_INT_C -#define BN_MP_INIT_SIZE_C -#define BN_MP_INVMOD_C -#define BN_MP_INVMOD_SLOW_C -#define BN_MP_IS_SQUARE_C -#define BN_MP_JACOBI_C -#define BN_MP_KARATSUBA_MUL_C -#define BN_MP_KARATSUBA_SQR_C -#define BN_MP_LCM_C -#define BN_MP_LSHD_C -#define BN_MP_MOD_C -#define BN_MP_MOD_2D_C -#define BN_MP_MOD_D_C -#define BN_MP_MONTGOMERY_CALC_NORMALIZATION_C -#define BN_MP_MONTGOMERY_REDUCE_C -#define BN_MP_MONTGOMERY_SETUP_C -#define BN_MP_MUL_C -#define BN_MP_MUL_2_C -#define BN_MP_MUL_2D_C -#define BN_MP_MUL_D_C -#define BN_MP_MULMOD_C -#define BN_MP_N_ROOT_C -#define BN_MP_NEG_C -#define BN_MP_OR_C -#define BN_MP_PRIME_FERMAT_C -#define BN_MP_PRIME_IS_DIVISIBLE_C -#define BN_MP_PRIME_IS_PRIME_C -#define BN_MP_PRIME_MILLER_RABIN_C -#define BN_MP_PRIME_NEXT_PRIME_C -#define BN_MP_PRIME_RABIN_MILLER_TRIALS_C -#define BN_MP_PRIME_RANDOM_EX_C -#define BN_MP_RADIX_SIZE_C -#define BN_MP_RADIX_SMAP_C -#define BN_MP_RAND_C -#define BN_MP_READ_RADIX_C -#define BN_MP_READ_SIGNED_BIN_C -#define BN_MP_READ_UNSIGNED_BIN_C -#define BN_MP_REDUCE_C -#define BN_MP_REDUCE_2K_C -#define BN_MP_REDUCE_2K_L_C -#define BN_MP_REDUCE_2K_SETUP_C -#define BN_MP_REDUCE_2K_SETUP_L_C -#define BN_MP_REDUCE_IS_2K_C -#define BN_MP_REDUCE_IS_2K_L_C -#define BN_MP_REDUCE_SETUP_C -#define BN_MP_RSHD_C -#define BN_MP_SET_C -#define BN_MP_SET_INT_C -#define BN_MP_SHRINK_C -#define BN_MP_SIGNED_BIN_SIZE_C -#define BN_MP_SQR_C -#define BN_MP_SQRMOD_C -#define BN_MP_SQRT_C -#define BN_MP_SUB_C -#define BN_MP_SUB_D_C -#define BN_MP_SUBMOD_C -#define BN_MP_TO_SIGNED_BIN_C -#define BN_MP_TO_SIGNED_BIN_N_C -#define BN_MP_TO_UNSIGNED_BIN_C -#define BN_MP_TO_UNSIGNED_BIN_N_C -#define BN_MP_TOOM_MUL_C -#define BN_MP_TOOM_SQR_C -#define BN_MP_TORADIX_C -#define BN_MP_TORADIX_N_C -#define BN_MP_UNSIGNED_BIN_SIZE_C -#define BN_MP_XOR_C -#define BN_MP_ZERO_C -#define BN_PRIME_TAB_C -#define BN_REVERSE_C -#define BN_S_MP_ADD_C -#define BN_S_MP_EXPTMOD_C -#define BN_S_MP_MUL_DIGS_C -#define BN_S_MP_MUL_HIGH_DIGS_C -#define BN_S_MP_SQR_C -#define BN_S_MP_SUB_C -#define BNCORE_C -#endif - -#if defined(BN_ERROR_C) - #define BN_MP_ERROR_TO_STRING_C -#endif - -#if defined(BN_FAST_MP_INVMOD_C) - #define BN_MP_ISEVEN_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_COPY_C - #define BN_MP_MOD_C - #define BN_MP_SET_C - #define BN_MP_DIV_2_C - #define BN_MP_ISODD_C - #define BN_MP_SUB_C - #define BN_MP_CMP_C - #define BN_MP_ISZERO_C - #define BN_MP_CMP_D_C - #define BN_MP_ADD_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_FAST_MP_MONTGOMERY_REDUCE_C) - #define BN_MP_GROW_C - #define BN_MP_RSHD_C - #define BN_MP_CLAMP_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_FAST_S_MP_MUL_DIGS_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_FAST_S_MP_MUL_HIGH_DIGS_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_FAST_S_MP_SQR_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_2EXPT_C) - #define BN_MP_ZERO_C - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_ABS_C) - #define BN_MP_COPY_C -#endif - -#if defined(BN_MP_ADD_C) - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_ADD_D_C) - #define BN_MP_GROW_C - #define BN_MP_SUB_D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_ADDMOD_C) - #define BN_MP_INIT_C - #define BN_MP_ADD_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_AND_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_CLAMP_C) -#endif - -#if defined(BN_MP_CLEAR_C) -#endif - -#if defined(BN_MP_CLEAR_MULTI_C) - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_CMP_C) - #define BN_MP_CMP_MAG_C -#endif - -#if defined(BN_MP_CMP_D_C) -#endif - -#if defined(BN_MP_CMP_MAG_C) -#endif - -#if defined(BN_MP_CNT_LSB_C) - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_COPY_C) - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_COUNT_BITS_C) -#endif - -#if defined(BN_MP_DIV_C) - #define BN_MP_ISZERO_C - #define BN_MP_CMP_MAG_C - #define BN_MP_COPY_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_SET_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_ABS_C - #define BN_MP_MUL_2D_C - #define BN_MP_CMP_C - #define BN_MP_SUB_C - #define BN_MP_ADD_C - #define BN_MP_DIV_2D_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_INIT_C - #define BN_MP_INIT_COPY_C - #define BN_MP_LSHD_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_D_C - #define BN_MP_CLAMP_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DIV_2_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_DIV_2D_C) - #define BN_MP_COPY_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_C - #define BN_MP_MOD_2D_C - #define BN_MP_CLEAR_C - #define BN_MP_RSHD_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_DIV_3_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DIV_D_C) - #define BN_MP_ISZERO_C - #define BN_MP_COPY_C - #define BN_MP_DIV_2D_C - #define BN_MP_DIV_3_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DR_IS_MODULUS_C) -#endif - -#if defined(BN_MP_DR_REDUCE_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_DR_SETUP_C) -#endif - -#if defined(BN_MP_EXCH_C) -#endif - -#if defined(BN_MP_EXPT_D_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_SET_C - #define BN_MP_SQR_C - #define BN_MP_CLEAR_C - #define BN_MP_MUL_C -#endif - -#if defined(BN_MP_EXPTMOD_C) - #define BN_MP_INIT_C - #define BN_MP_INVMOD_C - #define BN_MP_CLEAR_C - #define BN_MP_ABS_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_REDUCE_IS_2K_L_C - #define BN_S_MP_EXPTMOD_C - #define BN_MP_DR_IS_MODULUS_C - #define BN_MP_REDUCE_IS_2K_C - #define BN_MP_ISODD_C - #define BN_MP_EXPTMOD_FAST_C -#endif - -#if defined(BN_MP_EXPTMOD_FAST_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C - #define BN_MP_MONTGOMERY_SETUP_C - #define BN_FAST_MP_MONTGOMERY_REDUCE_C - #define BN_MP_MONTGOMERY_REDUCE_C - #define BN_MP_DR_SETUP_C - #define BN_MP_DR_REDUCE_C - #define BN_MP_REDUCE_2K_SETUP_C - #define BN_MP_REDUCE_2K_C - #define BN_MP_MONTGOMERY_CALC_NORMALIZATION_C - #define BN_MP_MULMOD_C - #define BN_MP_SET_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_SQR_C - #define BN_MP_MUL_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_EXTEUCLID_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_SET_C - #define BN_MP_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_C - #define BN_MP_MUL_C - #define BN_MP_SUB_C - #define BN_MP_NEG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_FREAD_C) - #define BN_MP_ZERO_C - #define BN_MP_S_RMAP_C - #define BN_MP_MUL_D_C - #define BN_MP_ADD_D_C - #define BN_MP_CMP_D_C -#endif - -#if defined(BN_MP_FWRITE_C) - #define BN_MP_RADIX_SIZE_C - #define BN_MP_TORADIX_C -#endif - -#if defined(BN_MP_GCD_C) - #define BN_MP_ISZERO_C - #define BN_MP_ABS_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_S_MP_SUB_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_GET_INT_C) -#endif - -#if defined(BN_MP_GROW_C) -#endif - -#if defined(BN_MP_INIT_C) -#endif - -#if defined(BN_MP_INIT_COPY_C) - #define BN_MP_COPY_C -#endif - -#if defined(BN_MP_INIT_MULTI_C) - #define BN_MP_ERR_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_INIT_SET_C) - #define BN_MP_INIT_C - #define BN_MP_SET_C -#endif - -#if defined(BN_MP_INIT_SET_INT_C) - #define BN_MP_INIT_C - #define BN_MP_SET_INT_C -#endif - -#if defined(BN_MP_INIT_SIZE_C) - #define BN_MP_INIT_C -#endif - -#if defined(BN_MP_INVMOD_C) - #define BN_MP_ISZERO_C - #define BN_MP_ISODD_C - #define BN_FAST_MP_INVMOD_C - #define BN_MP_INVMOD_SLOW_C -#endif - -#if defined(BN_MP_INVMOD_SLOW_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_ISEVEN_C - #define BN_MP_SET_C - #define BN_MP_DIV_2_C - #define BN_MP_ISODD_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_CMP_C - #define BN_MP_CMP_D_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_IS_SQUARE_C) - #define BN_MP_MOD_D_C - #define BN_MP_INIT_SET_INT_C - #define BN_MP_MOD_C - #define BN_MP_GET_INT_C - #define BN_MP_SQRT_C - #define BN_MP_SQR_C - #define BN_MP_CMP_MAG_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_JACOBI_C) - #define BN_MP_CMP_D_C - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_MOD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_KARATSUBA_MUL_C) - #define BN_MP_MUL_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_SUB_C - #define BN_MP_ADD_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_KARATSUBA_SQR_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_SQR_C - #define BN_MP_SUB_C - #define BN_S_MP_ADD_C - #define BN_MP_LSHD_C - #define BN_MP_ADD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_LCM_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_GCD_C - #define BN_MP_CMP_MAG_C - #define BN_MP_DIV_C - #define BN_MP_MUL_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_LSHD_C) - #define BN_MP_GROW_C - #define BN_MP_RSHD_C -#endif - -#if defined(BN_MP_MOD_C) - #define BN_MP_INIT_C - #define BN_MP_DIV_C - #define BN_MP_CLEAR_C - #define BN_MP_ADD_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_MOD_2D_C) - #define BN_MP_ZERO_C - #define BN_MP_COPY_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MOD_D_C) - #define BN_MP_DIV_D_C -#endif - -#if defined(BN_MP_MONTGOMERY_CALC_NORMALIZATION_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_2EXPT_C - #define BN_MP_SET_C - #define BN_MP_MUL_2_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_MONTGOMERY_REDUCE_C) - #define BN_FAST_MP_MONTGOMERY_REDUCE_C - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C - #define BN_MP_RSHD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_MONTGOMERY_SETUP_C) -#endif - -#if defined(BN_MP_MUL_C) - #define BN_MP_TOOM_MUL_C - #define BN_MP_KARATSUBA_MUL_C - #define BN_FAST_S_MP_MUL_DIGS_C - #define BN_S_MP_MUL_C - #define BN_S_MP_MUL_DIGS_C -#endif - -#if defined(BN_MP_MUL_2_C) - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_MUL_2D_C) - #define BN_MP_COPY_C - #define BN_MP_GROW_C - #define BN_MP_LSHD_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MUL_D_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MULMOD_C) - #define BN_MP_INIT_C - #define BN_MP_MUL_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_N_ROOT_C) - #define BN_MP_INIT_C - #define BN_MP_SET_C - #define BN_MP_COPY_C - #define BN_MP_EXPT_D_C - #define BN_MP_MUL_C - #define BN_MP_SUB_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_C - #define BN_MP_CMP_C - #define BN_MP_SUB_D_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_NEG_C) - #define BN_MP_COPY_C - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_OR_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_FERMAT_C) - #define BN_MP_CMP_D_C - #define BN_MP_INIT_C - #define BN_MP_EXPTMOD_C - #define BN_MP_CMP_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_IS_DIVISIBLE_C) - #define BN_MP_MOD_D_C -#endif - -#if defined(BN_MP_PRIME_IS_PRIME_C) - #define BN_MP_CMP_D_C - #define BN_MP_PRIME_IS_DIVISIBLE_C - #define BN_MP_INIT_C - #define BN_MP_SET_C - #define BN_MP_PRIME_MILLER_RABIN_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_MILLER_RABIN_C) - #define BN_MP_CMP_D_C - #define BN_MP_INIT_COPY_C - #define BN_MP_SUB_D_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_EXPTMOD_C - #define BN_MP_CMP_C - #define BN_MP_SQRMOD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_NEXT_PRIME_C) - #define BN_MP_CMP_D_C - #define BN_MP_SET_C - #define BN_MP_SUB_D_C - #define BN_MP_ISEVEN_C - #define BN_MP_MOD_D_C - #define BN_MP_INIT_C - #define BN_MP_ADD_D_C - #define BN_MP_PRIME_MILLER_RABIN_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_RABIN_MILLER_TRIALS_C) -#endif - -#if defined(BN_MP_PRIME_RANDOM_EX_C) - #define BN_MP_READ_UNSIGNED_BIN_C - #define BN_MP_PRIME_IS_PRIME_C - #define BN_MP_SUB_D_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_D_C -#endif - -#if defined(BN_MP_RADIX_SIZE_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_RADIX_SMAP_C) - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_RAND_C) - #define BN_MP_ZERO_C - #define BN_MP_ADD_D_C - #define BN_MP_LSHD_C -#endif - -#if defined(BN_MP_READ_RADIX_C) - #define BN_MP_ZERO_C - #define BN_MP_S_RMAP_C - #define BN_MP_RADIX_SMAP_C - #define BN_MP_MUL_D_C - #define BN_MP_ADD_D_C - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_READ_SIGNED_BIN_C) - #define BN_MP_READ_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_READ_UNSIGNED_BIN_C) - #define BN_MP_GROW_C - #define BN_MP_ZERO_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_REDUCE_C) - #define BN_MP_REDUCE_SETUP_C - #define BN_MP_INIT_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_C - #define BN_S_MP_MUL_HIGH_DIGS_C - #define BN_FAST_S_MP_MUL_HIGH_DIGS_C - #define BN_MP_MOD_2D_C - #define BN_S_MP_MUL_DIGS_C - #define BN_MP_SUB_C - #define BN_MP_CMP_D_C - #define BN_MP_SET_C - #define BN_MP_LSHD_C - #define BN_MP_ADD_C - #define BN_MP_CMP_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_DIV_2D_C - #define BN_MP_MUL_D_C - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_L_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_DIV_2D_C - #define BN_MP_MUL_C - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_SETUP_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_2EXPT_C - #define BN_MP_CLEAR_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_REDUCE_2K_SETUP_L_C) - #define BN_MP_INIT_C - #define BN_MP_2EXPT_C - #define BN_MP_COUNT_BITS_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_IS_2K_C) - #define BN_MP_REDUCE_2K_C - #define BN_MP_COUNT_BITS_C -#endif - -#if defined(BN_MP_REDUCE_IS_2K_L_C) -#endif - -#if defined(BN_MP_REDUCE_SETUP_C) - #define BN_MP_2EXPT_C - #define BN_MP_DIV_C -#endif - -#if defined(BN_MP_RSHD_C) - #define BN_MP_ZERO_C -#endif - -#if defined(BN_MP_SET_C) - #define BN_MP_ZERO_C -#endif - -#if defined(BN_MP_SET_INT_C) - #define BN_MP_ZERO_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_SHRINK_C) -#endif - -#if defined(BN_MP_SIGNED_BIN_SIZE_C) - #define BN_MP_UNSIGNED_BIN_SIZE_C -#endif - -#if defined(BN_MP_SQR_C) - #define BN_MP_TOOM_SQR_C - #define BN_MP_KARATSUBA_SQR_C - #define BN_FAST_S_MP_SQR_C - #define BN_S_MP_SQR_C -#endif - -#if defined(BN_MP_SQRMOD_C) - #define BN_MP_INIT_C - #define BN_MP_SQR_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_SQRT_C) - #define BN_MP_N_ROOT_C - #define BN_MP_ISZERO_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_DIV_C - #define BN_MP_ADD_C - #define BN_MP_DIV_2_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_SUB_C) - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_SUB_D_C) - #define BN_MP_GROW_C - #define BN_MP_ADD_D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_SUBMOD_C) - #define BN_MP_INIT_C - #define BN_MP_SUB_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_TO_SIGNED_BIN_C) - #define BN_MP_TO_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_TO_SIGNED_BIN_N_C) - #define BN_MP_SIGNED_BIN_SIZE_C - #define BN_MP_TO_SIGNED_BIN_C -#endif - -#if defined(BN_MP_TO_UNSIGNED_BIN_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_2D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_TO_UNSIGNED_BIN_N_C) - #define BN_MP_UNSIGNED_BIN_SIZE_C - #define BN_MP_TO_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_TOOM_MUL_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_2D_C - #define BN_MP_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2D_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_3_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_TOOM_SQR_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_2D_C - #define BN_MP_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_SQR_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2D_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_3_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_TORADIX_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_TORADIX_N_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_UNSIGNED_BIN_SIZE_C) - #define BN_MP_COUNT_BITS_C -#endif - -#if defined(BN_MP_XOR_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_ZERO_C) -#endif - -#if defined(BN_PRIME_TAB_C) -#endif - -#if defined(BN_REVERSE_C) -#endif - -#if defined(BN_S_MP_ADD_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_S_MP_EXPTMOD_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C - #define BN_MP_REDUCE_SETUP_C - #define BN_MP_REDUCE_C - #define BN_MP_REDUCE_2K_SETUP_L_C - #define BN_MP_REDUCE_2K_L_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_SQR_C - #define BN_MP_MUL_C - #define BN_MP_SET_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_S_MP_MUL_DIGS_C) - #define BN_FAST_S_MP_MUL_DIGS_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_MUL_HIGH_DIGS_C) - #define BN_FAST_S_MP_MUL_HIGH_DIGS_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_SQR_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_SUB_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BNCORE_C) -#endif - -#ifdef LTM3 -#define LTM_LAST -#endif -#include -#include -#else -#define LTM_LAST -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tommath_superclass.h b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tommath_superclass.h deleted file mode 100644 index e3926df05..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/include/tommath_superclass.h +++ /dev/null @@ -1,72 +0,0 @@ -/* super class file for PK algos */ - -/* default ... include all MPI */ -#define LTM_ALL - -/* RSA only (does not support DH/DSA/ECC) */ -/* #define SC_RSA_1 */ - -/* For reference.... On an Athlon64 optimizing for speed... - - LTM's mpi.o with all functions [striped] is 142KiB in size. - -*/ - -/* Works for RSA only, mpi.o is 68KiB */ -#ifdef SC_RSA_1 - #define BN_MP_SHRINK_C - #define BN_MP_LCM_C - #define BN_MP_PRIME_RANDOM_EX_C - #define BN_MP_INVMOD_C - #define BN_MP_GCD_C - #define BN_MP_MOD_C - #define BN_MP_MULMOD_C - #define BN_MP_ADDMOD_C - #define BN_MP_EXPTMOD_C - #define BN_MP_SET_INT_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_UNSIGNED_BIN_SIZE_C - #define BN_MP_TO_UNSIGNED_BIN_C - #define BN_MP_MOD_D_C - #define BN_MP_PRIME_RABIN_MILLER_TRIALS_C - #define BN_REVERSE_C - #define BN_PRIME_TAB_C - - /* other modifiers */ - #define BN_MP_DIV_SMALL /* Slower division, not critical */ - - /* here we are on the last pass so we turn things off. The functions classes are still there - * but we remove them specifically from the build. This also invokes tweaks in functions - * like removing support for even moduli, etc... - */ -#ifdef LTM_LAST - #undef BN_MP_TOOM_MUL_C - #undef BN_MP_TOOM_SQR_C - #undef BN_MP_KARATSUBA_MUL_C - #undef BN_MP_KARATSUBA_SQR_C - #undef BN_MP_REDUCE_C - #undef BN_MP_REDUCE_SETUP_C - #undef BN_MP_DR_IS_MODULUS_C - #undef BN_MP_DR_SETUP_C - #undef BN_MP_DR_REDUCE_C - #undef BN_MP_REDUCE_IS_2K_C - #undef BN_MP_REDUCE_2K_SETUP_C - #undef BN_MP_REDUCE_2K_C - #undef BN_S_MP_EXPTMOD_C - #undef BN_MP_DIV_3_C - #undef BN_S_MP_MUL_HIGH_DIGS_C - #undef BN_FAST_S_MP_MUL_HIGH_DIGS_C - #undef BN_FAST_MP_INVMOD_C - - /* To safely undefine these you have to make sure your RSA key won't exceed the Comba threshold - * which is roughly 255 digits [7140 bits for 32-bit machines, 15300 bits for 64-bit machines] - * which means roughly speaking you can handle upto 2536-bit RSA keys with these defined without - * trouble. - */ - #undef BN_S_MP_MUL_DIGS_C - #undef BN_S_MP_SQR_C - #undef BN_MP_MONTGOMERY_REDUCE_C -#endif - -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/lib/tclstub85.lib b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/lib/tclstub85.lib deleted file mode 100644 index 94395a270..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/lib/tclstub85.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/lib/tkstub85.lib b/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/lib/tkstub85.lib deleted file mode 100644 index 458906cb3..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.5/tcltk64/lib/tkstub85.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.5/update_SnapPy.sh b/opengl/Togl2.1-SnapPy/win-tk8.5/update_SnapPy.sh deleted file mode 100644 index 95e2b112e..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.5/update_SnapPy.sh +++ /dev/null @@ -1,19 +0,0 @@ -#! /bin/bash -if [ "$1" == "AMD64" ] ; then - SOURCE_DIR="Release_VC1900_AMD64/Togl" - TARGET_DIR="../../../python/togl/win32VC-x86_64-tk8.5" -elif [ "$1" == "X86" ] ; then - SOURCE_DIR="Release_VC1900_X86/Togl" - TARGET_DIR="../../../python/togl/win32VC-tk8.5" -else - echo "usage: update_SnapPy.sh AMD64|X86" - exit 1 -fi -echo cp $SOURCE_DIR/Toglstub21.lib $TARGET_DIR -cp $SOURCE_DIR/Toglstub21.lib $TARGET_DIR -for file in pkgIndex.tcl Togl21.dll Togl21.lib ; -do - echo cp $SOURCE_DIR/$file $TARGET_DIR/Togl2.1 - cp $SOURCE_DIR/$file $TARGET_DIR/Togl2.1 -done - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/README.VC2015 b/opengl/Togl2.1-SnapPy/win-tk8.6/README.VC2015 deleted file mode 100644 index f39ff054c..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/README.VC2015 +++ /dev/null @@ -1,27 +0,0 @@ -Here are the steps for building Togl for Tk8.6 using the VS2015 -Community Edition. - -VS 2015 provides several command prompts with preset environments -which we take advantage of when building Togl. Use "VS2015 x64 Native -Tools Command Prompt" for 64-bit builds and "VS2015 x86 Native Tools -Command Prompt" for 32-bit builds. - -The build command is simply: -> nmake -f makefile.vc - -All information needed for the build will be deduced from the preset -environment of the Command Prompt. - -To copy the Togl packages to the SnapPy source tree, use bash in your -msys2 system as follows: - -$ bash update_SnapPy.sh X86 -$ bash update_SnapPy.sh AMD64 - -To remove the build directories run: -> nmake if makefile.vc clean - -If you read the code, don't forget to enjoy the way that Microsoft -names things. The directory for 64 bit shared libraries on a Windows -system is System32 while the 32 bit shared libraries go in SysWOW64. -The 64 bit CPU is named X64 while the 32 bit CPU is named X86. \ No newline at end of file diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/README.txt b/opengl/Togl2.1-SnapPy/win-tk8.6/README.txt deleted file mode 100644 index 5106f5033..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/README.txt +++ /dev/null @@ -1,29 +0,0 @@ -This directory allows building the Togl extension for Windows using -Visual Studio 10.0. This is the compiler used to build the python.org -distributions of Python 3.4. It can be installed for free on a -Windows 7 system. (The install will fail on Windows 10 because it is -impossible to install the required version 4.0 of the .NET Framework.) -Download links and instructions are here: - https://wiki.python.org/moin/WindowsCompilers -Note that the link for the .NET Framework is not correct. Instead use: - https://www.microsoft.com/en-us/download/details.aspx?id=17851 - -The tcltk and tcltk64 subdirectories contain the needed headers and -libraries from the python.org distribution of Python 2.7.9. - -To build Togl 2.1: - * Open a "command prompt". (Press or run "cmd" in the Msys shell.) - * Change to this directory. (Running cmd in Msys preserves the cwd.) - * To build for 32-bit: - >make-togl.bat /x86 - * The Togl 2.0 installation will be in win32VC-tk8.6 - * To build for 64-bit: - >make-togl.bat /x64 - * The Togl 2.0 installation will be in win32VC-x86_64-tk8.6 - * To remove intermediate files: - >make-togl.bat /x86 clean - >make-togl.bat /x64 clean - * To remove all generated files: - >make-togl.bat /x86 distclean - >make-togl.bat /x64 distclean - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/make-togl.bat b/opengl/Togl2.1-SnapPy/win-tk8.6/make-togl.bat deleted file mode 100755 index aebd71711..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/make-togl.bat +++ /dev/null @@ -1,578 +0,0 @@ -@ECHO OFF -:: -------------------------------------------------------------------------------------------- -:: File : SetEnv.cmd -:: -:: Abstract: This batch file sets the appropriate environment variables for the Windows SDK -:: build environment with respect to OS and platform type. -:: -:: Usage : Setenv [/Debug | /Release][/x86 | /x64 | /ia64 ][/vista | /xp | /2003 | /2008 | /win7][-h | /?] -:: -:: /Debug - Create a Debug configuration build environment -:: /Release - Create a Release configuration build environment -:: /x86 - Create 32-bit x86 applications -:: /x64 - Create 64-bit x64 applications -:: /ia64 - Create 64-bit ia64 applications -:: /vista - Windows Vista applications -:: /xp - Create Windows XP SP2 applications -:: /2003 - Create Windows Server 2003 applications -:: /2008 - Create Windows Server 2008 or Vista SP1 applications -:: /win7 - Create Windows 7 applications -:: -:: Note: This file makes use of delayed expansion to get around the limitations -:: of the current expansion which happens when a line of text is read , not when it is executed. -:: For more information about delayed expansion type: SET /? from the command line -:: -------------------------------------------------------------------------------------------- - - -:: -------------------------------------------------------------------------------------------- -:: Set the default value for target and current CPU based on processor architecture. -:: -------------------------------------------------------------------------------------------- -::SET "CURRENT_CPU=x86" -::SET "TARGET_CPU=x86" -SET "Configuration=Release" -::SET "TARGET_PLATFORM=WIN7" - -IF "x%TARGET_CPU%x"=="xx" ( -IF /I "%PROCESSOR_ARCHITECTURE%"=="x86" SET "TARGET_CPU=x86" & SET "CURRENT_CPU=x86" -IF /I "%PROCESSOR_ARCHITEW6432%"=="x86" SET "TARGET_CPU=x86" & SET "CURRENT_CPU=x86" -IF /I "%PROCESSOR_ARCHITECTURE%"=="AMD64" SET "TARGET_CPU=x64" & SET "CURRENT_CPU=x64" -IF /I "%PROCESSOR_ARCHITEW6432%"=="AMD64" SET "TARGET_CPU=x64" & SET "CURRENT_CPU=x64" -IF /I "%PROCESSOR_ARCHITECTURE%"=="x64" SET "TARGET_CPU=x64" & SET "CURRENT_CPU=x64" -IF /I "%PROCESSOR_ARCHITECTURE%"=="IA64" SET "TARGET_CPU=IA64" & SET "CURRENT_CPU=IA64" -IF /I "%PROCESSOR_ARCHITEW6432%"=="IA64" SET "TARGET_CPU=IA64" & SET "CURRENT_CPU=IA64" -GOTO Parse_Args -) -:: -------------------------------------------------------------------------------------------- -:: Parse command line argument values. -:: Note: For ambiguous arguments the last one wins (ex: /debug /release) -:: -------------------------------------------------------------------------------------------- -:Parse_Args -IF /I "%~1"=="/debug" SET "Configuration=Debug" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/release" SET "Configuration=Release" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/x86" SET "TARGET_CPU=x86" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/x64" SET "TARGET_CPU=x64" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/ia64" SET "TARGET_CPU=IA64" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/vista" SET "TARGET_PLATFORM=LH" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/xp" SET "TARGET_PLATFORM=XP" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/2003" SET "TARGET_PLATFORM=SRV" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/2008" SET "TARGET_PLATFORM=LHS" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="/win7" SET "TARGET_PLATFORM=WIN7" & SHIFT & GOTO Parse_Args -IF /I "%~1"=="-h" GOTO Error_Usage -IF /I "%~1"=="/?" GOTO Error_Usage -IF "x%~1"=="x" GOTO Done_Args - -ECHO Unknown command-line switch: %~1 -GOTO Error_Usage - -:Done_Args - -:: -------------------------------------------------------------------------------------------- -:: Prevent path duplication if setenv is run multiple times within a single command session -:: -------------------------------------------------------------------------------------------- -IF "x%ORIGINALPATH%x"=="xx" ( - SET "ORIGINALPATH=%PATH%" -) ELSE ( - SET "PATH=%ORIGINALPATH%" -) - -:: -------------------------------------------------------------------------------------------- -:: Default the build configuration to DEBUG if one is not specified. -:: Set the command prompt text color based on the build configuration. -:: -------------------------------------------------------------------------------------------- -IF "x%Configuration%"=="x" SET Configuration=Debug -IF "%Configuration%"=="Debug" ( - SET DEBUG=1 - SET DEBUGMSG=Debug - COLOR 03 -) ELSE IF "%Configuration%"=="Release" ( - SET DEBUG=0 - SET DEBUGMSG=Release - COLOR 02 -) ELSE GOTO Error_Usage - -:: -------------------------------------------------------------------------------------------- -:: Default to LHS if no target type specified and configure for appropriate target -:: -------------------------------------------------------------------------------------------- -IF "x%TARGET_PLATFORM%"=="x" ( -FOR /F "tokens=1,2,3 delims=;." %%i IN ('Cmd /c Ver') DO ( - IF "%%i"=="Microsoft Windows XP [Version 5" ( - SET TARGET_PLATFORM=XP - ) ELSE IF "%%i"=="Microsoft Windows [Version 5" ( - SET TARGET_PLATFORM=SRV - ) ELSE IF "%%i"=="Microsoft Windows [Version 6" ( - IF "%%k" == "6000]" ( - SET TARGET_PLATFORM=LH - ) ELSE IF "%%k" == "6001]" ( - SET TARGET_PLATFORM=LHS - ) ELSE IF "%%k" == "7600]" ( - SET TARGET_PLATFORM=WIN7 - ) ELSE ( - SET TARGET_PLATFORM=WIN7 - ) - ) ELSE ( - SET TARGET_PLATFORM=WIN7 - ) - ) -) - -:: -------------------------------------------------------------------------------------------- -:: Set the PlatformToolset that is used by MSBuild 4.0 -:: To use the Visual Studio 2010 tools/headers/libraries, "set PlatformToolset=100" -:: -------------------------------------------------------------------------------------------- - -SET PlatformToolset=Windows7.1SDK -SET ToolsVersion=4.0 -SET WindowsSDKVersionOverride=v7.1 - -:: -------------------------------------------------------------------------------------------- -:: Determine which registry keys to look at based on architecture type. Set default values for -:: VC and VS root, which would be used if one or both the corresponding registry keys are not -:: found. -:: -------------------------------------------------------------------------------------------- -SET RegKeyPath=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\SxS\VC7 -SET VSRegKeyPath=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\SxS\VS7 -SET WinSDKRegKeyPath=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SDKs\Windows\v7.1 -:: find platform for default paths -IF "%CURRENT_CPU%"=="x86" ( - SET Path32=%ProgramFiles% -) ELSE ( - SET Path32=%ProgramFiles(x86)% -) -:: set VS default paths -SET "VCINSTALLDIR=%Path32%\Microsoft Visual Studio 10.0\VC\" -SET "VSINSTALLDIR=%Path32%\Microsoft Visual Studio 10.0\" - -:: clear the temp variable -SET Path32= - -:: set WinSDK default dir -SET WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v7.1\ - -IF EXIST "%WinDir%\Microsoft.NET\Framework\msbuild.exe" SET "FrameworkDir32=%WinDir%\Microsoft.NET\Framework\" -IF EXIST "%WinDir%\Microsoft.NET\Framework64\msbuild.exe" SET "FrameworkDir64=%WinDir%\Microsoft.NET\Framework64" - -IF EXIST "%WinDir%\Microsoft.NET\Framework\v3.5\MSBuild.exe" SET "Framework35Version=v3.5" - -:: Set the WindowsSdkDir path -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%WinSDKRegKeyPath%" /v InstallationFolder') DO SET WindowsSDKDir=%%B -SET "sdkdir=%WindowsSDKDir%" - -:: Set the framework paths and versions -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%RegKeyPath%" /v FrameworkDir32') DO SET FrameworkDir32=%%B -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%RegKeyPath%" /v FrameworkDir64') DO SET FrameworkDir64=%%B -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%RegKeyPath%" /v FrameworkVer32') DO SET FrameworkVersion32=%%B -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%RegKeyPath%" /v FrameworkVer64') DO SET FrameworkVersion64=%%B - -SET FrameworkDir32=%WinDir%\Microsoft.NET\Framework\ -SET "FrameworkDir=%FrameworkDir32%" -SET "FrameworkVersion=%FrameworkVersion32%" - -IF NOT "%CURRENT_CPU%"=="x86" GOTO SetRegPathFor64Bit - -GOTO Done_SetRegPath - -:SetRegPathFor64Bit -SET RegKeyPath=HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\VisualStudio\SxS\VC7 -SET VSRegKeyPath=HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\VisualStudio\SxS\VS7 -SET "VCINSTALLDIR=%ProgramFiles(x86)%\Microsoft Visual Studio 10.0\VC\" -SET "VSINSTALLDIR=%ProgramFiles(x86)%\Microsoft Visual Studio 10.0\" -:: if 64 bit -IF EXIST "%FrameworkDir64%" ( - SET "FrameworkDir=%FrameworkDir64%" - SET "FrameworkVersion=%FrameworkVersion64%" -) - -:Done_SetRegPath -:: -------------------------------------------------------------------------------------------- -:: Set the CL.exe option to find the framework for linking -:: -------------------------------------------------------------------------------------------- -IF "%CURRENT_CPU%"=="x86" ( - SET CL=/AI %FrameworkDir%%FrameworkVersion% -) ELSE ( - SET CL=/AI %FrameworkDir%\%FrameworkVersion% -) - -:: -------------------------------------------------------------------------------------------- -:: Save the default values for VCINSTALLDIR and VSINSTALLDIR just in case we get unexpected output from -:: the calls to REG in the next section -:: -------------------------------------------------------------------------------------------- -SET "VCINSTALLDIR_Orig=%VCINSTALLDIR%" -SET "VSINSTALLDIR_Orig=%VSINSTALLDIR%" - -:: -------------------------------------------------------------------------------------------- -:: Read the value for VCINSTALLDIR and VSINSTALLDIR from the registry. -:: Note: The second call to REG will fail if VS is not installed. These calls to REG are -:: checking to see if VS is installed in a custom location. This behavior is expected in -:: this scenario. -:: -------------------------------------------------------------------------------------------- -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%RegKeyPath%" /v 10.0') DO SET VCINSTALLDIR=%%B -FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "%VSRegKeyPath%" /v 10.0') DO SET VSINSTALLDIR=%%B - -:: -------------------------------------------------------------------------------------------- -:: Hide the error output from the call to 'REG' since VCINSTALLDIR and VSINSTALLDIR have already been set -:: to a default value. -:: -------------------------------------------------------------------------------------------- -CLS - -:: -------------------------------------------------------------------------------------------- -:: Versions of Reg.exe on XP SP2 and SP3 have different output than other versions. Detect -:: incorrect output and reset VCINSTALLDIR and VSINSTALLDIR as needed -:: -------------------------------------------------------------------------------------------- -IF "%VCINSTALLDIR%"=="VERSION 3.0" SET "VCINSTALLDIR=%VCINSTALLDIR_Orig%" -IF "%VSINSTALLDIR%"=="VERSION 3.0" SET "VSINSTALLDIR=%VSINSTALLDIR_Orig%" - -:: -------------------------------------------------------------------------------------------- -:: Setup our VCTools environment path based on target CPU and processor architecture -:: When the native compilers are not installed for the specified CPU, attempt to locate the -:: cross-tools for non-native compilation. -:: -------------------------------------------------------------------------------------------- -SET "VCTools=%VCINSTALLDIR%Bin" - -IF "%CURRENT_CPU%" =="x64" ( - IF "%TARGET_CPU%" == "x64" ( - IF EXIST "%VCTools%\amd64\cl.exe" ( - SET "VCTools=%VCTools%\amd64;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools\x64;%WindowsSdkDir%Bin\x64;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir64%\%FrameworkVersion%;%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework64\v3.5;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The x64 compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) ELSE IF "%TARGET_CPU%" == "IA64" ( - IF EXIST "%VCTools%\x86_ia64\cl.exe" ( - SET "VCTools=%VCTools%\x86_ia64;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools\x64;%WindowsSdkDir%Bin\x64;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir64%\%FrameworkVersion%;%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework64\v3.5;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The IA64 compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) ELSE IF "%TARGET_CPU%" == "x86" ( - IF EXIST "%VCTools%\cl.exe" ( - SET "VCTools=%VCTools%;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The x86 compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) -) ELSE IF "%CURRENT_CPU%" =="IA64" ( - IF "%TARGET_CPU%" == "IA64" ( - IF EXIST "%VCTools%\IA64\cl.exe" ( - SET "VCTools=%VCTools%\IA64;%VCTools%;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools\IA64;%WindowsSdkDir%Bin\IA64;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir64%\%FrameworkVersion%;%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework64\v3.5;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The IA64 compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) ELSE IF "%TARGET_CPU%" == "x64" ( - IF EXIST "%VCTools%\x86_amd64\cl.exe" ( - SET "VCTools=%VCTools%\x86_amd64;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools\IA64;%WindowsSdkDir%Bin\IA64;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir64%\%FrameworkVersion%;%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework64\v3.5;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The VC compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) ELSE IF "%TARGET_CPU%" == "x86" ( - IF EXIST "%VCTools%\cl.exe" ( - SET "VCTools=%VCTools%;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The x86 compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) -) ELSE IF "%CURRENT_CPU%"=="x86" ( - IF "%TARGET_CPU%" == "x64" ( - IF EXIST "%VCTools%\x86_amd64\cl.exe" ( - SET "VCTools=%VCTools%\x86_amd64;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The x64 cross compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) ELSE IF "%TARGET_CPU%" == "IA64" ( - IF EXIST "%VCTools%\x86_IA64\cl.exe" ( - SET "VCTools=%VCTools%\x86_IA64;%VCTools%;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The IA64 compilers are not currently installed. - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) ELSE IF "%TARGET_CPU%" == "x86" ( - IF EXIST "%VCTools%\cl.exe" ( - SET "VCTools=%VCTools%;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework\v3.5;" - ) ELSE ( - SET VCTools= - ECHO The x86 compilers are not currently installed. x86-x86 - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . - ) - ) -) ELSE IF EXIST "%VCTools%\cl.exe" ( - SET "VCTools=%VCTools%;%VCTools%\VCPackages;" - SET "SdkTools=%WindowsSdkDir%Bin\NETFX 4.0 Tools;%WindowsSdkDir%Bin;" - SET "FxTools=%FrameworkDir32%%FrameworkVersion%;%windir%\Microsoft.NET\Framework\v3.5;" -) ELSE ( - SET VCTools= - ECHO The x86 compilers are not currently installed. default - ECHO Please go to Add/Remove Programs to update your installation. - ECHO . -) - -:: -------------------------------------------------------------------------------------------- -:: Set the values for VS directories. -:: -------------------------------------------------------------------------------------------- -SET "DevEnvDir=%VSINSTALLDIR%Common7\IDE" -SET "VSTools=%VSINSTALLDIR%Common7\IDE;%VSINSTALLDIR%Common7\Tools;" -SET "VCLibraries=%VCINSTALLDIR%Lib" -SET "VCIncludes=%VCINSTALLDIR%INCLUDE" - -:: -------------------------------------------------------------------------------------------- -:: Display SDK environment information -:: -------------------------------------------------------------------------------------------- -SET OSLibraries=%WindowsSdkDir%Lib -SET OSIncludes=%WindowsSdkDir%INCLUDE;%WindowsSdkDir%INCLUDE\gl - -ECHO Setting SDK environment relative to %WindowsSdkDir%. -:: -------------------------------------------------------------------------------------------- -:: Set whether this is a cross-compile enviornment -:: -------------------------------------------------------------------------------------------- -IF "%CURRENT_CPU%"=="%TARGET_CPU%" ( - SET CommandPromptType=Native -) ELSE ( - SET CommandPromptType=Cross -) - -SET Path=%FxTools%;%VSTools%;%VCTools%;%SdkTools%;%Path% - -:: Clear the paths -SET LIB= -SET LIBPATH= -SET INCLUDE= - -GOTO Set_%TARGET_CPU% - -:Set_x86 -IF NOT "x!VCINSTALLDIR!x"=="xx" ( - IF EXIST "!VCINSTALLDIR!ATLMFC" ( - SET "INCLUDE=!VCINSTALLDIR!ATLMFC\INCLUDE;%INCLUDE%" - SET "LIB=!VCINSTALLDIR!ATLMFC\LIB;%LIB%" - ) -) - -SET "LIB=%VCLibraries%;%OSLibraries%;%FxTools%;%LIB%" -SET "LIBPATH=%FxTools%;%VCLibraries%;%LIBPATH%" -SET "INCLUDE=%VCIncludes%;%OSIncludes%;%INCLUDE%" - - -GOTO Set_%TARGET_PLATFORM% - -:Set_x64 -IF NOT "x!VCINSTALLDIR!x"=="xx" ( - IF EXIST "!VCINSTALLDIR!ATLMFC\LIB\AMD64" ( - SET "INCLUDE=!VCINSTALLDIR!ATLMFC\INCLUDE;%INCLUDE%" - SET "LIB=!VCINSTALLDIR!ATLMFC\LIB\AMD64;%LIB%" - ) -) - -SET "LIB=%VCLibraries%\amd64;%OSLibraries%\X64;%LIB%" -SET "LIBPATH=%FxTools%;%VCLibraries%\amd64;%LIBPATH%" -SET "INCLUDE=%VCIncludes%;%OSIncludes%;%INCLUDE%" - - -GOTO Set_%TARGET_PLATFORM% - -:Set_IA64 -IF NOT "x!VCINSTALLDIR!x"=="xx" ( - IF EXIST "!VCINSTALLDIR!ATLMFC\LIB\IA64" ( - SET "INCLUDE=!VCINSTALLDIR!ATLMFC\INCLUDE;%INCLUDE%" - SET "LIB=!VCINSTALLDIR!ATLMFC\LIB\IA64;%LIB%" - ) -) - -SET "LIB=%VCLibraries%\IA64;%OSLibraries%\IA64;%LIB%" -SET "LIBPATH=%FxTools%;%VCLibraries%\ia64;%LIBPATH%" -SET "INCLUDE=%VCIncludes%;%OSIncludes%;%INCLUDE%" - - -GOTO Set_%TARGET_PLATFORM% - -:: -------------------------------------------------------------------------------------------- -:: Set Windows 7 specific variables -:: -------------------------------------------------------------------------------------------- -:Set_WIN7 -ECHO Targeting Windows 7 %TARGET_CPU% %DEBUGMSG% -ECHO. -SET APPVER=6.1 -TITLE Microsoft Windows 7 %TARGET_CPU% %DEBUGMSG% Build Environment -GOTO End_Success - -:: -------------------------------------------------------------------------------------------- -:: Set Windows Server 2008 specific variables -:: -------------------------------------------------------------------------------------------- -:Set_LHS -ECHO Targeting Windows Server 2008 %TARGET_CPU% %DEBUGMSG% -ECHO. -SET APPVER=6.0 -TITLE Microsoft Windows Server 2008 %TARGET_CPU% %DEBUGMSG% Build Environment -GOTO End_Success - -:: -------------------------------------------------------------------------------------------- -:: Set Windows Vista specific variables -:: -------------------------------------------------------------------------------------------- -:Set_LH -ECHO Targeting Windows Vista %TARGET_CPU% %DEBUGMSG% -ECHO. -SET APPVER=6.0 -TITLE Microsoft Windows Vista %TARGET_CPU% %DEBUGMSG% Build Environment -GOTO End_Success - -:: -------------------------------------------------------------------------------------------- -:: Set Windows Server 2003 specific variables -:: -------------------------------------------------------------------------------------------- -:Set_SRV -ECHO Targeting Windows Server 2003 %TARGET_CPU% %DEBUGMSG% -ECHO. -SET APPVER=5.02 -TITLE Microsoft Windows Server 2003 %TARGET_CPU% %DEBUGMSG% Build Environment -GOTO End_Success - -:: -------------------------------------------------------------------------------------------- -:: Set Windows XP specific variables -:: -------------------------------------------------------------------------------------------- -:Set_XP -ECHO Targeting Windows XP %TARGET_CPU% %DEBUGMSG% -ECHO. -SET APPVER=5.01 -TITLE Microsoft Windows XP %TARGET_CPU% %DEBUGMSG% Build Environment -GOTO End_Success - -:: -------------------------------------------------------------------------------------------- -:: Display command usage and goto cleanup code. -:: -------------------------------------------------------------------------------------------- -:Error_Usage -ECHO Usage: "Setenv [/Debug | /Release][/x86 | /x64 | /ia64][/vista | /xp | /2003 | /2008 | /win7][-h | /?]" -ECHO. -ECHO /Debug - Create a Debug configuration build environment -ECHO /Release - Create a Release configuration build environment -ECHO /x86 - Create 32-bit x86 applications -ECHO /x64 - Create 64-bit x64 applications -ECHO /ia64 - Create 64-bit ia64 applications -ECHO /vista - Windows Vista applications -ECHO /xp - Create Windows XP SP2 applications -ECHO /2003 - Create Windows Server 2003 applications -ECHO /2008 - Create Windows Server 2008 or Vista SP1 applications -ECHO /win7 - Create Windows 7 applications -ECHO. -ECHO Note: -ECHO * Platform(x86/x64/ia64) and PlatformToolSet(v90/v100/WindowsSDK7.1) set in project or solution will override the environment -ECHO * To upgrade VC6 or later projects to VC2010 format use the VCUpgrade.exe tool. -SET VCBUILD_DEFAULT_OPTIONS= -GOTO CleanUp - -:: -------------------------------------------------------------------------------------------- -:: End Successfully. -:: If Windows 7 headers,libs and tools are not used, display a warning message. -:: If necessary, display warning about compiling on Windows 9x platforms. -:: -------------------------------------------------------------------------------------------- -:End_Success - -IF "x%OS%x" == "xWindows_NTx" SET "DEBUGMSG=" & GOTO CleanUp - -ECHO *** WARNING *** -ECHO You are currently building on a Windows 9x based platform. Most samples have -ECHO NMAKE create a destination directory for created objects and executables. -ECHO There is a known issue with the OS where NMAKE fails to create this destination -ECHO directory when the current directory is several directories deep. To fix this -ECHO problem, you must create the destination directory by hand from the command -ECHO line before calling NMAKE. -ECHO. - -:DisplayWarningMsg_NoVersion -ECHO ********************************************************************************** -ECHO WARNING: The VC++ Compiler Toolset is not using Windows SDK v7.1. -ECHO ********************************************************************************** -EXIT /B 0 -:: ------------------------------------------------------------------- -:: Persist Old Values and -:: ------------------------------------------------------------------- -::SET TARGET_PLATFORM= -::SET Configuration= -::SET CURRENT_CPU= -::SET TARGET_CPU= -:: ------------------------------------------------------------------- -:: Clean up -:: ------------------------------------------------------------------- -:CleanUp -echo CURRENT_CPU = %CURRENT_CPU% -IF /I "%TARGET_CPU%"=="x86" GOTO x86 -IF /I "%TARGET_CPU%"=="x64" GOTO x64 - -:x86 -ECHO Building for x86 -SET TCLDIR=tcltk -SET MACHINE=IX86 -SET INSTALLDIR=./win32VC-tk8.6 -GOTO run - -:x64 -ECHO Building for x64 -SET TCLDIR=tcltk64 -SET MACHINE=X64 -SET INSTALLDIR=./win32VC-x86_64-tk8.6 -GOTO run - -:run -nmake -f makefile.vc MACHINE=%MACHINE% DEBUG=%DEBUG% -nmake -f makefile.vc install DEBUG=%DEBUG% INSTALLDIR=%INSTALLDIR% - -SET OSLibraries= -SET OSIncludes= -SET VCINSTALLDIR_Orig= -SET VSINSTALLDIR_Orig= -SET VCTools= -SET VSTools= -SET FxTools= -SET SdkTools= -SET VCLibraries= -SET VCIncludes= -SET CurrentSdkVersion= -SET RegKeyPath= -SET VSRegKeyPath= -SET WinSDKRegKeyPath= -Set VCLibraries= -Set VCIncludes= -SET VCINSTALLDIR= -SET VSINSTALLDIR= -SET DevEnvDir= -SET FrameworkDir= -SET FrameworkDir64= -SET FrameworkVersion32= -SET FrameworkVersion64= -SET FrameworkDir32= -SET Framework35Version= diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/makefile.vc b/opengl/Togl2.1-SnapPy/win-tk8.6/makefile.vc deleted file mode 100644 index 724c9a0fa..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/makefile.vc +++ /dev/null @@ -1,471 +0,0 @@ - -# makefile.vc -- -*- Makefile -*- -# -# Microsoft Visual C++ makefile for use with nmake.exe v1.62+ (VC++ 5.0+) -# -# This makefile is based upon the Tcl 8.4 Makefile.vc and modified to -# make it suitable as a general package makefile. Look for the word EDIT -# which marks sections that may need modification. As a minumum you will -# need to change the PROJECT, DOTVERSION and DLLOBJS variables to values -# relevant to your package. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# Copyright (c) 1995-1996 Sun Microsystems, Inc. -# Copyright (c) 1998-2000 Ajuba Solutions. -# Copyright (c) 2001 ActiveState Corporation. -# Copyright (c) 2001-2002 David Gravereaux. -# Copyright (c) 2003-2006 Pat Thoyts -# - -# Check to see we are configured to build with MSVC (MSDEVDIR or MSVCDIR) -# or with the MS Platform SDK (MSSDK). Visual Studio .NET 2003 and 2005 define -# VCINSTALLDIR instead. The MSVC Toolkit release defines yet another. -!if !defined(MSVCDIR) -MSG = ^ -You need to run setup-env.batvcvars32.bat first to setup the environment.^ -Jump to this line to read the build instructions.^ -!error $(MSG) -!endif - -#------------------------------------------------------------------------------ -# HOW TO USE this makefile: -# -# 1) It is now necessary to have %MSVCDir% set in the environment. This is -# used as a check to see if vcvars32.bat had been run prior to running -# nmake or during the installation of Microsoft Visual C++, MSVCDir had -# been set globally and the PATH adjusted. Either way is valid. -# -# You'll need to run vcvars32.bat contained in the MsDev's vc(98)/bin -# directory to setup the proper environment, if needed, for your current -# setup. This is a needed bootstrap requirement and allows the swapping of -# different environments to be easier. -# -# 2) To use the Platform SDK (not expressly needed), run setenv.bat after -# vcvars32.bat according to the instructions for it. This can also turn on -# the 64-bit compiler, if your SDK has it. -# -# 3) Targets are: -# all -- Builds everything. -# -- Builds the project (eg: nmake sample) -# test -- Builds and runs the test suite. -# install -- Installs the built binaries and libraries to $(INSTALLDIR) -# in an appropriate subdirectory. -# clean/realclean/distclean -- varying levels of cleaning. -# -# 4) Macros usable on the commandline: -# INSTALLDIR= -# Sets where to install Tcl from the built binaries. -# The default is ./win32VC-tk8.6 -# -# OPTS=static,msvcrt,staticpkg,threads,symbols,profile,loimpact,none -# Sets special options for the core. The default is for none. -# Any combination of the above may be used (comma separated). -# 'none' will over-ride everything to nothing. -# -# static = Builds a static library of the core instead of a -# dll. The shell will be static (and large), as well. -# msvcrt = Effects the static option only to switch it from -# using libcmt(d) as the C runtime [by default] to -# msvcrt(d). This is useful for static embedding -# support. -# staticpkg = Effects the static option only to switch -# tclshXX.exe to have the dde and reg extension linked -# inside it. -# nothreads = Turns off multithreading support (not recommended) -# thrdalloc = Use the thread allocator (shared global free pool). -# symbols = Adds symbols for step debugging. -# profile = Adds profiling hooks. Map file is assumed. -# loimpact = Adds a flag for how NT treats the heap to keep memory -# in use, low. This is said to impact alloc performance. -# -# STATS=memdbg,compdbg,none -# Sets optional memory and bytecode compiler debugging code added -# to the core. The default is for none. Any combination of the -# above may be used (comma separated). 'none' will over-ride -# everything to nothing. -# -# memdbg = Enables the debugging memory allocator. -# compdbg = Enables byte compilation logging. -# -# MACHINE=(IX86|X64) -# Set the machine type used for the compiler, linker, and -# resource compiler. This hook is needed to tell the tools -# when alternate platforms are requested. IX86 is the default -# when not specified. If the CPU environment variable has been -# set (ie: recent Platform SDK) then MACHINE is set from CPU. -# -# TMP_DIR= -# OUT_DIR= -# Hooks to allow the intermediate and output directories to be -# changed. $(OUT_DIR) is assumed to be -# $(BINROOT)\(Release|Debug) based on if symbols are requested. -# $(TMP_DIR) will de $(OUT_DIR)\ by default. -# -# TESTPAT= -# Reads the tests requested to be run from this file. -# -# CFG_ENCODING=encoding -# name of encoding for configuration information. Defaults -# to cp1252 -# -# 5) Examples: -# -# Basic syntax of calling nmake looks like this: -# nmake [-nologo] -f makefile.vc [target|macrodef [target|macrodef] [...]] -# -# Standard (no frills) -# c:\tcl_src\win\>c:\progra~1\micros~1\vc98\bin\vcvars32.bat -# Setting environment for using Microsoft Visual C++ tools. -# c:\tcl_src\win\>nmake -f makefile.vc all -# c:\tcl_src\win\>nmake -f makefile.vc install INSTALLDIR=c:\progra~1\tcl -# -# Building for Win64 -# c:\tcl_src\win\>c:\progra~1\micros~1\vc98\bin\vcvars32.bat -# Setting environment for using Microsoft Visual C++ tools. -# c:\tcl_src\win\>c:\progra~1\platfo~1\setenv.bat /pre64 /RETAIL -# Targeting Windows pre64 RETAIL -# c:\tcl_src\win\>nmake -f makefile.vc MACHINE=X64 -# -#------------------------------------------------------------------------------ -#============================================================================== -############################################################################### -#------------------------------------------------------------------------------ - -!if !exist("makefile.vc") -MSG = ^ -You must run this makefile only from the directory it is in.^ -Please `cd` to its location first. -!error $(MSG) -!endif - -#------------------------------------------------------------------------- -# Project specific information (EDIT) -# -# You should edit this with the name and version of your project. This -# information is used to generate the name of the package library and -# it's install location. -# -# For example, the sample extension is going to build sample05.dll and -# would install it into $(INSTALLDIR)\lib\sample05 -# -# You need to specify the object files that need to be linked into your -# binary here. -# -#------------------------------------------------------------------------- -PROJECT = Togl - -# Uncomment the following line if this is a Tk extension. -PROJECT_REQUIRES_TK=1 - -!include "rules.vc" - -DOTVERSION = 2.1 -VERSION = $(DOTVERSION:.=) -STUBPREFIX = $(PROJECT)stub - -DLLOBJS = \ - $(TMP_DIRFULL)\toglStubInit.obj \ - $(TMP_DIRFULL)\toglProcAddr.obj \ - $(TMP_DIRFULL)\togl.obj \ - -PRJSTUBOBJS = \ - $(TMP_DIRFULL)\toglStubLib.obj \ - -#!if !$(STATIC_BUILD) -# $(TMP_DIRFULL)\togl.res -#!endif - -#------------------------------------------------------------------------- -# Target names and paths ( shouldn't need changing ) -#------------------------------------------------------------------------- - -BINROOT = . -ROOT = .. - -PRJIMPLIB = $(OUT_DIR)\$(PROJECT)$(VERSION)$(SUFX).lib -PRJLIBNAME = $(PROJECT)$(VERSION)$(SUFX).$(EXT) -PRJLIB = $(OUT_DIR)\$(PRJLIBNAME) - -PRJSTUBLIBNAME = $(STUBPREFIX)$(VERSION).lib -PRJSTUBLIB = $(OUT_DIR)\$(PRJSTUBLIBNAME) - -### Make sure we use backslash only. -PRJ_INSTALL_DIR = $(_INSTALLDIR)\$(PROJECT)$(DOTVERSION) -LIB_INSTALL_DIR = $(PRJ_INSTALL_DIR) -BIN_INSTALL_DIR = $(PRJ_INSTALL_DIR) -DOC_INSTALL_DIR = $(PRJ_INSTALL_DIR) -SCRIPT_INSTALL_DIR = $(PRJ_INSTALL_DIR) -INCLUDE_INSTALL_DIR = $(_TCLDIR)\include - -### The following paths CANNOT have spaces in them. -WINDIR = $(ROOT)\win -LIBDIR = $(ROOT)\library -DOCDIR = $(ROOT)\doc - -#--------------------------------------------------------------------- -# Compile flags -#--------------------------------------------------------------------- - -!if !$(DEBUG) -!if $(OPTIMIZING) -### This cranks the optimization level to maximize speed -cdebug = $(OPTIMIZATIONS) -!else -cdebug = -!endif -!else if "$(MACHINE)" == "X64" || "$(MACHINE)" == "AMD64" -### Warnings are too many, can't support warnings into errors. -cdebug = -Zi -Od $(DEBUGFLAGS) -!else -cdebug = -Zi -WX $(DEBUGFLAGS) -!endif - -### Declarations common to all compiler options -cwarn = $(WARNINGS) -D _CRT_SECURE_NO_DEPRECATE -D _CRT_NONSTDC_NO_DEPRECATE -cflags = -nologo -c $(COMPILERFLAGS) -DSTDC_HEADERS -DBUILD_Togl $(cwarn) -Fo$(TMP_DIRFULL)^\ - -!if $(MSVCRT) -!if $(DEBUG) && !$(UNCHECKED) -crt = -MDd -!else -crt = -MT -!endif -!else -!if $(DEBUG) && !$(UNCHECKED) -crt = -MTd -!else -crt = -MT -!endif -!endif - -!if !$(STATIC_BUILD) -cflags = $(cflags) -DUSE_TCL_STUBS -!if defined(TKSTUBLIB) -cflags = $(cflags) -DUSE_TK_STUBS -!endif -!endif - -!if "$(MACHINE)" == "IX86" -cflags = $(cflags) -D _USE_32BIT_TIME_T -!endif - -INCLUDES = $(TCL_INCLUDES) -I"$(ROOT)" -BASE_CFLAGS = $(cflags) $(cdebug) $(crt) $(INCLUDES) -CON_CFLAGS = $(cflags) $(cdebug) $(crt) -DCONSOLE -TCL_CFLAGS = -DPACKAGE_NAME="\"$(PROJECT)\"" \ - -DPACKAGE_VERSION="\"$(DOTVERSION)\"" \ - -DBUILD_$(PROJECT) \ - $(BASE_CFLAGS) $(OPTDEFINES) - -#--------------------------------------------------------------------- -# Link flags -#--------------------------------------------------------------------- - -!if $(DEBUG) -ldebug = -debugtype:cv -!if $(MSVCRT) -ldebug = $(ldebug) -nodefaultlib:msvcrt -!endif -!else -ldebug = -release -opt:ref -opt:icf,3 -!endif - -### Declarations common to all linker options -lflags = -nologo -machine:$(MACHINE) $(LINKERFLAGS) $(ldebug) - -!if $(PROFILE) -lflags = $(lflags) -profile -!endif - -!if $(LOIMPACT) -lflags = $(lflags) -ws:aggressive -!endif - -dlllflags = $(lflags) -dll -conlflags = $(lflags) -subsystem:console -guilflags = $(lflags) -subsystem:windows -!if !$(STATIC_BUILD) -baselibs = $(TCLSTUBLIB) -!if defined(TKSTUBLIB) -baselibs = $(baselibs) $(TKSTUBLIB) -!endif -!endif - -# Avoid 'unresolved external symbol __security_cookie' errors. -# c.f. http://support.microsoft.com/?id=894573 -!if "$(MACHINE)" == "X64" || "$(MACHINE)" == "AMD64" -!if $(VCVERSION) >= 1400 && $(VCVERSION) < 1500 -baselibs = $(baselibs) bufferoverflowU.lib -!endif -!endif - -baselibs = $(baselibs) user32.lib gdi32.lib opengl32.lib glu32.lib - -#--------------------------------------------------------------------- -# TclTest flags -#--------------------------------------------------------------------- - -!IF "$(TESTPAT)" != "" -TESTFLAGS = $(TESTFLAGS) -file $(TESTPAT) -!ENDIF - -#--------------------------------------------------------------------- -# Project specific targets (EDIT) -#--------------------------------------------------------------------- - -{$(ROOT)}.c{$(TMP_DIRFULL)}.obj: - $(CC) $(BASE_CFLAGS) $< - -all: setup $(PROJECT) -$(PROJECT): setup pkgIndex $(PRJSTUBLIB) $(PRJLIB) -install: install-binaries install-libraries -pkgIndex: $(OUT_DIR)\pkgIndex.tcl - -test: setup $(PROJECT) - @set TCL_LIBRARY=$(TCL_LIBRARY:\=/) - @set TCLLIBPATH=$(OUT_DIR_PATH:\=/) -!if $(TCLINSTALL) - @set PATH=$(_TCLDIR)\bin;$(PATH) -!else - @set PATH=$(_TCLDIR)\win\$(BUILDDIRTOP);$(PATH) -!endif -!if "$(OS)" == "Windows_NT" || "$(MSVCDIR)" == "IDE" - $(DEBUGGER) $(TCLSH) "$(ROOT)/tests/all.tcl" $(TESTFLAGS) -!else - @echo Please wait while the tests are collected... - $(DEBUGGER) $(TCLSH) "$(ROOT)/tests/all.tcl" $(TESTFLAGS) > tests.log - type tests.log | more -!endif - -shell: setup $(PROJECT) - @set VLERQ_LIBRARY=$(LIBDIR:\=/) - @set TCL_LIBRARY=$(TCL_LIBRARY:\=/) - @set TCLLIBPATH=$(OUT_DIR_PATH:\=/) -!if $(TCLINSTALL) - @set PATH=$(_TCLDIR)\bin;$(PATH) -!else - @set PATH=$(_TCLDIR)\win\$(BUILDDIRTOP);$(PATH) -!endif - $(DEBUGGER) $(TCLSH) $(SCRIPT) - -setup: - @if not exist $(OUT_DIR)\nul mkdir $(OUT_DIR) - @if not exist $(TMP_DIR)\nul mkdir $(TMP_DIR) - -# See /win/coffbase.txt for extension base addresses. -$(PRJLIB): $(DLLOBJS) -!if $(STATIC_BUILD) - $(lib32) -nologo -out:$@ @<< -$** -<< -!else - $(link32) $(dlllflags) -base:0x10000000 -out:$@ $(baselibs) @<< -$** -<< - $(_VC_MANIFEST_EMBED_DLL) - -@del $*.exp -!endif - -$(PRJSTUBLIB): $(PRJSTUBOBJS) - $(lib32) -nologo -out:$@ $(PRJSTUBOBJS) - -#--------------------------------------------------------------------- -# Implicit rules -#--------------------------------------------------------------------- - -{$(WINDIR)}.c{$(TMP_DIR)}.obj:: - $(cc32) $(TCL_CFLAGS) -DBUILD_$(PROJECT) -Fo$(TMP_DIR)\ @<< -$< -<< - -{$(GENERICDIR)}.c{$(TMP_DIR)}.obj:: - $(cc32) $(TCL_CFLAGS) -DBUILD_$(PROJECT) -Fo$(TMP_DIR)\ @<< -$< -<< - -{$(COMPATDIR)}.c{$(TMP_DIR)}.obj:: - $(cc32) $(TCL_CFLAGS) -DBUILD_$(PROJECT) -Fo$(TMP_DIR)\ @<< -$< -<< - -{$(WINDIR)}.rc{$(TMP_DIR)}.res: - $(rc32) -fo $@ -r -i "$(GENERICDIR)" -D__WIN32__ \ - -DCOMMAVERSION=$(DOTVERSION:.=,),0,0 \ - -DDOTVERSION=\"$(DOTVERSION)\" \ - -DVERSION=\"$(VERSION)$(SUFX)\" \ -!if $(DEBUG) - -d DEBUG \ -!endif -!if $(TCL_THREADS) - -d TCL_THREADS \ -!endif -!if $(STATIC_BUILD) - -d STATIC_BUILD \ -!endif - $< - -.SUFFIXES: -.SUFFIXES:.c .rc - -#------------------------------------------------------------------------- -# Explicit dependency rules -# -#------------------------------------------------------------------------- - -$(OUT_DIR)\pkgIndex.tcl: $(ROOT)\pkgIndex.tcl.in - @nmakehlp -s << $** > $@ -@PACKAGE_VERSION@ $(DOTVERSION) -@PACKAGE_NAME@ $(PROJECT) -@PKG_LIB_FILE@ $(PRJLIBNAME) -<< - @echo package ifneeded Togl $(DOTVERSION) \ - [list load [file join $$dir $(PRJLIBNAME)] Togl] >> $@ - -#--------------------------------------------------------------------- -# Installation. (EDIT) -# -# You may need to modify this section to reflect the final distribution -# of your files and possibly to generate documentation. -# -#--------------------------------------------------------------------- - -install-binaries: - @echo Installing binaries to '$(PRJ_INSTALL_DIR)' - @if not exist "$(PRJ_INSTALL_DIR)" mkdir "$(PRJ_INSTALL_DIR)" - @$(CPY) $(PRJLIB) "$(PRJ_INSTALL_DIR)" >NUL - @$(CPY) $(PRJIMPLIB) "$(PRJ_INSTALL_DIR)" >NUL - @echo Installing package index in '$(PRJ_INSTALL_DIR)' - @$(CPY) $(OUT_DIR)\pkgIndex.tcl $(PRJ_INSTALL_DIR) - @echo Copying LICENSE file to '$(PRJ_INSTALL_DIR)' - @$(CPY) $(WINDIR)\..\LICENSE $(PRJ_INSTALL_DIR) - -install-libraries: $(OUT_DIR)\pkgIndex.tcl - @echo Installing $(PRJSTUBLIB) to '$(_INSTALLDIR)' - @$(CPY) $(PRJSTUBLIB) "$(_INSTALLDIR)" - -install-docs: - @echo Installing documentation files to '$(DOC_INSTALL_DIR)' - @if exist $(DOCDIR) $(CPY) $(DOCDIR)\*.n "$(DOC_INSTALL_DIR)" - -#--------------------------------------------------------------------- -# Clean up -#--------------------------------------------------------------------- - -clean: - @echo Removing $(BUILDDIRTOP) - @if exist $(BUILDDIRTOP)\nul $(RMDIR) $(BUILDDIRTOP) - @echo Cleaning up $(WINDIR) - @if exist $(WINDIR)\version.vc del $(WINDIR)\version.vc - @if exist $(WINDIR)\vercl.i del $(WINDIR)\vercl.i - @if exist $(WINDIR)\vercl.x del $(WINDIR)\vercl.x - @if exist $(WINDIR)\_junk.pch del $(WINDIR)\_junk.pch - -realclean: clean - @if exist $(OUT_DIR)\nul $(RMDIR) $(OUT_DIR) - -distclean: realclean - @if exist $(WINDIR)\nmakehlp.exe del $(WINDIR)\nmakehlp.exe - @if exist $(WINDIR)\nmakehlp.obj del $(WINDIR)\nmakehlp.obj - @if exist $(_INSTALLDIR)\nul $(RMDIR) $(_INSTALLDIR) diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/nmakehlp.c b/opengl/Togl2.1-SnapPy/win-tk8.6/nmakehlp.c deleted file mode 100644 index 2ab259a2d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/nmakehlp.c +++ /dev/null @@ -1,767 +0,0 @@ -/* - * ---------------------------------------------------------------------------- - * nmakehlp.c -- - * - * This is used to fix limitations within nmake and the environment. - * - * Copyright (c) 2002 by David Gravereaux. - * Copyright (c) 2006 by Pat Thoyts - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * ---------------------------------------------------------------------------- - * RCS: @(#) $Id: nmakehlp.c,v 1.7 2008/06/18 11:01:42 patthoyts Exp $ - * ---------------------------------------------------------------------------- - */ - -#define _CRT_SECURE_NO_DEPRECATE -#include -#define NO_SHLWAPI_GDI -#define NO_SHLWAPI_STREAM -#define NO_SHLWAPI_REG -#include -#pragma comment (lib, "user32.lib") -#pragma comment (lib, "kernel32.lib") -#pragma comment (lib, "shlwapi.lib") -#include -#include - -/* - * This library is required for x64 builds with _some_ versions of MSVC - */ -#if defined(_M_IA64) || defined(_M_AMD64) -#if _MSC_VER >= 1400 && _MSC_VER < 1500 -#pragma comment(lib, "bufferoverflowU") -#endif -#endif - -/* ISO hack for dumb VC++ */ -#ifdef _MSC_VER -#define snprintf _snprintf -#endif - - - -/* protos */ - -int CheckForCompilerFeature(const char *option); -int CheckForLinkerFeature(const char *option); -int IsIn(const char *string, const char *substring); -int GrepForDefine(const char *file, const char *string); -int SubstituteFile(const char *substs, const char *filename); -int QualifyPath(const char *path); -const char * GetVersionFromFile(const char *filename, const char *match); -DWORD WINAPI ReadFromPipe(LPVOID args); - -/* globals */ - -#define CHUNK 25 -#define STATICBUFFERSIZE 1000 -typedef struct { - HANDLE pipe; - char buffer[STATICBUFFERSIZE]; -} pipeinfo; - -pipeinfo Out = {INVALID_HANDLE_VALUE, '\0'}; -pipeinfo Err = {INVALID_HANDLE_VALUE, '\0'}; - -/* - * exitcodes: 0 == no, 1 == yes, 2 == error - */ - -int -main( - int argc, - char *argv[]) -{ - char msg[300]; - DWORD dwWritten; - int chars; - - /* - * Make sure children (cl.exe and link.exe) are kept quiet. - */ - - SetErrorMode(SEM_FAILCRITICALERRORS | SEM_NOOPENFILEERRORBOX); - - /* - * Make sure the compiler and linker aren't effected by the outside world. - */ - - SetEnvironmentVariable("CL", ""); - SetEnvironmentVariable("LINK", ""); - - if (argc > 1 && *argv[1] == '-') { - switch (*(argv[1]+1)) { - case 'c': - if (argc != 3) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -c \n" - "Tests for whether cl.exe supports an option\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return CheckForCompilerFeature(argv[2]); - case 'l': - if (argc != 3) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -l \n" - "Tests for whether link.exe supports an option\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return CheckForLinkerFeature(argv[2]); - case 'f': - if (argc == 2) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -f \n" - "Find a substring within another\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } else if (argc == 3) { - /* - * If the string is blank, there is no match. - */ - - return 0; - } else { - return IsIn(argv[2], argv[3]); - } - case 'g': - if (argc == 2) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -g \n" - "grep for a #define\n" - "exitcodes: integer of the found string (no decimals)\n", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return GrepForDefine(argv[2], argv[3]); - case 's': - if (argc == 2) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -s \n" - "Perform a set of string map type substutitions on a file\n" - "exitcodes: 0\n", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return SubstituteFile(argv[2], argv[3]); - case 'V': - if (argc != 4) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -V filename matchstring\n" - "Extract a version from a file:\n" - "eg: pkgIndex.tcl \"package ifneeded http\"", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 0; - } - printf("%s\n", GetVersionFromFile(argv[2], argv[3])); - return 0; - case 'Q': - if (argc != 3) { - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -q path\n" - "Emit the fully qualified path\n" - "exitcodes: 0 == no, 1 == yes, 2 == error\n", argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, - &dwWritten, NULL); - return 2; - } - return QualifyPath(argv[2]); - } - } - chars = snprintf(msg, sizeof(msg) - 1, - "usage: %s -c|-l|-f|-g|-V|-s|-Q ...\n" - "This is a little helper app to equalize shell differences between WinNT and\n" - "Win9x and get nmake.exe to accomplish its job.\n", - argv[0]); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg, chars, &dwWritten, NULL); - return 2; -} - -int -CheckForCompilerFeature( - const char *option) -{ - STARTUPINFO si; - PROCESS_INFORMATION pi; - SECURITY_ATTRIBUTES sa; - DWORD threadID; - char msg[300]; - BOOL ok; - HANDLE hProcess, h, pipeThreads[2]; - char cmdline[100]; - - hProcess = GetCurrentProcess(); - - ZeroMemory(&pi, sizeof(PROCESS_INFORMATION)); - ZeroMemory(&si, sizeof(STARTUPINFO)); - si.cb = sizeof(STARTUPINFO); - si.dwFlags = STARTF_USESTDHANDLES; - si.hStdInput = INVALID_HANDLE_VALUE; - - ZeroMemory(&sa, sizeof(SECURITY_ATTRIBUTES)); - sa.nLength = sizeof(SECURITY_ATTRIBUTES); - sa.lpSecurityDescriptor = NULL; - sa.bInheritHandle = FALSE; - - /* - * Create a non-inheritible pipe. - */ - - CreatePipe(&Out.pipe, &h, &sa, 0); - - /* - * Dupe the write side, make it inheritible, and close the original. - */ - - DuplicateHandle(hProcess, h, hProcess, &si.hStdOutput, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Same as above, but for the error side. - */ - - CreatePipe(&Err.pipe, &h, &sa, 0); - DuplicateHandle(hProcess, h, hProcess, &si.hStdError, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Base command line. - */ - - lstrcpy(cmdline, "cl.exe -nologo -c -TC -Zs -X -Fp.\\_junk.pch "); - - /* - * Append our option for testing - */ - - lstrcat(cmdline, option); - - /* - * Filename to compile, which exists, but is nothing and empty. - */ - - lstrcat(cmdline, " .\\nul"); - - ok = CreateProcess( - NULL, /* Module name. */ - cmdline, /* Command line. */ - NULL, /* Process handle not inheritable. */ - NULL, /* Thread handle not inheritable. */ - TRUE, /* yes, inherit handles. */ - DETACHED_PROCESS, /* No console for you. */ - NULL, /* Use parent's environment block. */ - NULL, /* Use parent's starting directory. */ - &si, /* Pointer to STARTUPINFO structure. */ - &pi); /* Pointer to PROCESS_INFORMATION structure. */ - - if (!ok) { - DWORD err = GetLastError(); - int chars = snprintf(msg, sizeof(msg) - 1, - "Tried to launch: \"%s\", but got error [%u]: ", cmdline, err); - - FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS| - FORMAT_MESSAGE_MAX_WIDTH_MASK, 0L, err, 0, (LPVOID)&msg[chars], - (300-chars), 0); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg,lstrlen(msg), &err,NULL); - return 2; - } - - /* - * Close our references to the write handles that have now been inherited. - */ - - CloseHandle(si.hStdOutput); - CloseHandle(si.hStdError); - - WaitForInputIdle(pi.hProcess, 5000); - CloseHandle(pi.hThread); - - /* - * Start the pipe reader threads. - */ - - pipeThreads[0] = CreateThread(NULL, 0, ReadFromPipe, &Out, 0, &threadID); - pipeThreads[1] = CreateThread(NULL, 0, ReadFromPipe, &Err, 0, &threadID); - - /* - * Block waiting for the process to end. - */ - - WaitForSingleObject(pi.hProcess, INFINITE); - CloseHandle(pi.hProcess); - - /* - * Wait for our pipe to get done reading, should it be a little slow. - */ - - WaitForMultipleObjects(2, pipeThreads, TRUE, 500); - CloseHandle(pipeThreads[0]); - CloseHandle(pipeThreads[1]); - - /* - * Look for the commandline warning code in both streams. - * - in MSVC 6 & 7 we get D4002, in MSVC 8 we get D9002. - */ - - return !(strstr(Out.buffer, "D4002") != NULL - || strstr(Err.buffer, "D4002") != NULL - || strstr(Out.buffer, "D9002") != NULL - || strstr(Err.buffer, "D9002") != NULL - || strstr(Out.buffer, "D2021") != NULL - || strstr(Err.buffer, "D2021") != NULL); -} - -int -CheckForLinkerFeature( - const char *option) -{ - STARTUPINFO si; - PROCESS_INFORMATION pi; - SECURITY_ATTRIBUTES sa; - DWORD threadID; - char msg[300]; - BOOL ok; - HANDLE hProcess, h, pipeThreads[2]; - char cmdline[100]; - - hProcess = GetCurrentProcess(); - - ZeroMemory(&pi, sizeof(PROCESS_INFORMATION)); - ZeroMemory(&si, sizeof(STARTUPINFO)); - si.cb = sizeof(STARTUPINFO); - si.dwFlags = STARTF_USESTDHANDLES; - si.hStdInput = INVALID_HANDLE_VALUE; - - ZeroMemory(&sa, sizeof(SECURITY_ATTRIBUTES)); - sa.nLength = sizeof(SECURITY_ATTRIBUTES); - sa.lpSecurityDescriptor = NULL; - sa.bInheritHandle = TRUE; - - /* - * Create a non-inheritible pipe. - */ - - CreatePipe(&Out.pipe, &h, &sa, 0); - - /* - * Dupe the write side, make it inheritible, and close the original. - */ - - DuplicateHandle(hProcess, h, hProcess, &si.hStdOutput, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Same as above, but for the error side. - */ - - CreatePipe(&Err.pipe, &h, &sa, 0); - DuplicateHandle(hProcess, h, hProcess, &si.hStdError, 0, TRUE, - DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE); - - /* - * Base command line. - */ - - lstrcpy(cmdline, "link.exe -nologo "); - - /* - * Append our option for testing. - */ - - lstrcat(cmdline, option); - - ok = CreateProcess( - NULL, /* Module name. */ - cmdline, /* Command line. */ - NULL, /* Process handle not inheritable. */ - NULL, /* Thread handle not inheritable. */ - TRUE, /* yes, inherit handles. */ - DETACHED_PROCESS, /* No console for you. */ - NULL, /* Use parent's environment block. */ - NULL, /* Use parent's starting directory. */ - &si, /* Pointer to STARTUPINFO structure. */ - &pi); /* Pointer to PROCESS_INFORMATION structure. */ - - if (!ok) { - DWORD err = GetLastError(); - int chars = snprintf(msg, sizeof(msg) - 1, - "Tried to launch: \"%s\", but got error [%u]: ", cmdline, err); - - FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS| - FORMAT_MESSAGE_MAX_WIDTH_MASK, 0L, err, 0, (LPVOID)&msg[chars], - (300-chars), 0); - WriteFile(GetStdHandle(STD_ERROR_HANDLE), msg,lstrlen(msg), &err,NULL); - return 2; - } - - /* - * Close our references to the write handles that have now been inherited. - */ - - CloseHandle(si.hStdOutput); - CloseHandle(si.hStdError); - - WaitForInputIdle(pi.hProcess, 5000); - CloseHandle(pi.hThread); - - /* - * Start the pipe reader threads. - */ - - pipeThreads[0] = CreateThread(NULL, 0, ReadFromPipe, &Out, 0, &threadID); - pipeThreads[1] = CreateThread(NULL, 0, ReadFromPipe, &Err, 0, &threadID); - - /* - * Block waiting for the process to end. - */ - - WaitForSingleObject(pi.hProcess, INFINITE); - CloseHandle(pi.hProcess); - - /* - * Wait for our pipe to get done reading, should it be a little slow. - */ - - WaitForMultipleObjects(2, pipeThreads, TRUE, 500); - CloseHandle(pipeThreads[0]); - CloseHandle(pipeThreads[1]); - - /* - * Look for the commandline warning code in the stderr stream. - */ - - return !(strstr(Out.buffer, "LNK1117") != NULL || - strstr(Err.buffer, "LNK1117") != NULL || - strstr(Out.buffer, "LNK4044") != NULL || - strstr(Err.buffer, "LNK4044") != NULL); -} - -DWORD WINAPI -ReadFromPipe( - LPVOID args) -{ - pipeinfo *pi = (pipeinfo *) args; - char *lastBuf = pi->buffer; - DWORD dwRead; - BOOL ok; - - again: - if (lastBuf - pi->buffer + CHUNK > STATICBUFFERSIZE) { - CloseHandle(pi->pipe); - return (DWORD)-1; - } - ok = ReadFile(pi->pipe, lastBuf, CHUNK, &dwRead, 0L); - if (!ok || dwRead == 0) { - CloseHandle(pi->pipe); - return 0; - } - lastBuf += dwRead; - goto again; - - return 0; /* makes the compiler happy */ -} - -int -IsIn( - const char *string, - const char *substring) -{ - return (strstr(string, substring) != NULL); -} - -/* - * Find a specified #define by name. - * - * If the line is '#define TCL_VERSION "8.5"', it returns 85 as the result. - */ - -int -GrepForDefine( - const char *file, - const char *string) -{ - char s1[51], s2[51], s3[51]; - FILE *f = fopen(file, "rt"); - - if (f == NULL) { - return 0; - } - - do { - int r = fscanf(f, "%50s", s1); - - if (r == 1 && !strcmp(s1, "#define")) { - /* - * Get next two words. - */ - - r = fscanf(f, "%50s %50s", s2, s3); - if (r != 2) { - continue; - } - - /* - * Is the first word what we're looking for? - */ - - if (!strcmp(s2, string)) { - double d1; - - fclose(f); - - /* - * Add 1 past first double quote char. "8.5" - */ - - d1 = atof(s3 + 1); /* 8.5 */ - while (floor(d1) != d1) { - d1 *= 10.0; - } - return ((int) d1); /* 85 */ - } - } - } while (!feof(f)); - - fclose(f); - return 0; -} - -/* - * GetVersionFromFile -- - * Looks for a match string in a file and then returns the version - * following the match where a version is anything acceptable to - * package provide or package ifneeded. - */ - -const char * -GetVersionFromFile( - const char *filename, - const char *match) -{ - size_t cbBuffer = 100; - static char szBuffer[100]; - char *szResult = NULL; - FILE *fp = fopen(filename, "rt"); - - if (fp != NULL) { - /* - * Read data until we see our match string. - */ - - while (fgets(szBuffer, cbBuffer, fp) != NULL) { - LPSTR p, q; - - p = strstr(szBuffer, match); - if (p != NULL) { - /* - * Skip to first digit. - */ - - while (*p && !isdigit(*p)) { - ++p; - } - - /* - * Find ending whitespace. - */ - - q = p; - while (*q && (isalnum(*q) || *q == '.')) { - ++q; - } - - memcpy(szBuffer, p, q - p); - szBuffer[q-p] = 0; - szResult = szBuffer; - break; - } - } - fclose(fp); - } - return szResult; -} - -/* - * List helpers for the SubstituteFile function - */ - -typedef struct list_item_t { - struct list_item_t *nextPtr; - char * key; - char * value; -} list_item_t; - -/* insert a list item into the list (list may be null) */ -static list_item_t * -list_insert(list_item_t **listPtrPtr, const char *key, const char *value) -{ - list_item_t *itemPtr = malloc(sizeof(list_item_t)); - if (itemPtr) { - itemPtr->key = strdup(key); - itemPtr->value = strdup(value); - itemPtr->nextPtr = NULL; - - while(*listPtrPtr) { - listPtrPtr = &(*listPtrPtr)->nextPtr; - } - *listPtrPtr = itemPtr; - } - return itemPtr; -} - -static void -list_free(list_item_t **listPtrPtr) -{ - list_item_t *tmpPtr, *listPtr = *listPtrPtr; - while (listPtr) { - tmpPtr = listPtr; - listPtr = listPtr->nextPtr; - free(tmpPtr->key); - free(tmpPtr->value); - free(tmpPtr); - } -} - -/* - * SubstituteFile -- - * As windows doesn't provide anything useful like sed and it's unreliable - * to use the tclsh you are building against (consider x-platform builds - - * eg compiling AMD64 target from IX86) we provide a simple substitution - * option here to handle autoconf style substitutions. - * The substitution file is whitespace and line delimited. The file should - * consist of lines matching the regular expression: - * \s*\S+\s+\S*$ - * - * Usage is something like: - * nmakehlp -S << $** > $@ - * @PACKAGE_NAME@ $(PACKAGE_NAME) - * @PACKAGE_VERSION@ $(PACKAGE_VERSION) - * << - */ - -int -SubstituteFile( - const char *substitutions, - const char *filename) -{ - size_t cbBuffer = 1024; - static char szBuffer[1024], szCopy[1024]; - char *szResult = NULL; - list_item_t *substPtr = NULL; - FILE *fp, *sp; - - fp = fopen(filename, "rt"); - if (fp != NULL) { - - /* - * Build a list of substutitions from the first filename - */ - - sp = fopen(substitutions, "rt"); - if (sp != NULL) { - while (fgets(szBuffer, cbBuffer, sp) != NULL) { - char *ks, *ke, *vs, *ve; - ks = szBuffer; - while (ks && *ks && isspace(*ks)) ++ks; - ke = ks; - while (ke && *ke && !isspace(*ke)) ++ke; - vs = ke; - while (vs && *vs && isspace(*vs)) ++vs; - ve = vs; - while (ve && *ve && !(*ve == '\r' || *ve == '\n')) ++ve; - *ke = 0, *ve = 0; - list_insert(&substPtr, ks, vs); - } - fclose(sp); - } - - /* debug: dump the list */ -#ifdef _DEBUG - { - int n = 0; - list_item_t *p = NULL; - for (p = substPtr; p != NULL; p = p->nextPtr, ++n) { - fprintf(stderr, "% 3d '%s' => '%s'\n", n, p->key, p->value); - } - } -#endif - - /* - * Run the substitutions over each line of the input - */ - - while (fgets(szBuffer, cbBuffer, fp) != NULL) { - list_item_t *p = NULL; - for (p = substPtr; p != NULL; p = p->nextPtr) { - char *m = strstr(szBuffer, p->key); - if (m) { - char *cp, *op, *sp; - cp = szCopy; - op = szBuffer; - while (op != m) *cp++ = *op++; - sp = p->value; - while (sp && *sp) *cp++ = *sp++; - op += strlen(p->key); - while (*op) *cp++ = *op++; - *cp = 0; - memcpy(szBuffer, szCopy, sizeof(szCopy)); - } - } - printf(szBuffer); - } - - list_free(&substPtr); - } - fclose(fp); - return 0; -} - -/* - * QualifyPath -- - * - * This composes the current working directory with a provided path - * and returns the fully qualified and normalized path. - * Mostly needed to setup paths for testing. - */ - -int -QualifyPath( - const char *szPath) -{ - char szCwd[MAX_PATH + 1]; - char szTmp[MAX_PATH + 1]; - char *p; - GetCurrentDirectory(MAX_PATH, szCwd); - while ((p = strchr(szPath, '/')) && *p) - *p = '\\'; - PathCombine(szTmp, szCwd, szPath); - PathCanonicalize(szCwd, szTmp); - printf("%s\n", szCwd); - return 0; -} - -/* - * Local variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * indent-tabs-mode: t - * tab-width: 8 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/rules.vc b/opengl/Togl2.1-SnapPy/win-tk8.6/rules.vc deleted file mode 100644 index 9ea3e1c56..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/rules.vc +++ /dev/null @@ -1,624 +0,0 @@ -#------------------------------------------------------------- -*- Makefile -*- -# rules.vc -- -# -# Microsoft Visual C++ makefile include for decoding the commandline -# macros. This file does not need editing to build Tcl. -# -# This version is modified from the Tcl source version to support -# building extensions using nmake. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# Copyright (c) 2001-2002 David Gravereaux. -# Copyright (c) 2003-2008 Patrick Thoyts -# -#------------------------------------------------------------------------------ -# RCS: @(#) $Id: rules.vc,v 1.9 2009/05/04 23:47:55 patthoyts Exp $ -#------------------------------------------------------------------------------ - -!ifndef _RULES_VC -_RULES_VC = 1 - -cc32 = $(CC) # built-in default. -link32 = link -lib32 = lib -rc32 = $(RC) # built-in default. - -!ifndef INSTALLDIR -### Assume the normal default. -_INSTALLDIR = .\win32VC-tk8.6 -!else -### Fix the path separators. -_INSTALLDIR = $(INSTALLDIR:/=\) -!endif - -!ifndef MACHINE -!if "$(PLATFORM)" == "X64" -MACHINE = AMD64 -!else -MACHINE = X86 -!endif -!endif - -!ifndef TCLDIR -!if "$(PLATFORM)" == "X64" -TCLDIR = tcltk64 -!else -TCLDIR = tcltk -!endif -!endif - -!ifndef CFG_ENCODING -CFG_ENCODING = \"cp1252\" -!endif - -#---------------------------------------------------------- -# Set the proper copy method to avoid overwrite questions -# to the user when copying files and selecting the right -# "delete all" method. -#---------------------------------------------------------- - -!if "$(OS)" == "Windows_NT" -RMDIR = rmdir /S /Q -ERRNULL = 2>NUL -!if ![ver | find "4.0" > nul] -CPY = echo y | xcopy /i >NUL -COPY = copy >NUL -!else -CPY = xcopy /i /y >NUL -COPY = copy /y >NUL -!endif -!else # "$(OS)" != "Windows_NT" -CPY = xcopy /i >_JUNK.OUT # On Win98 NUL does not work here. -COPY = copy >_JUNK.OUT # On Win98 NUL does not work here. -RMDIR = deltree /Y -NULL = \NUL # Used in testing directory existence -ERRNULL = >NUL # Win9x shell cannot redirect stderr -!endif -MKDIR = mkdir - -!message =============================================================================== - -#---------------------------------------------------------- -# build the helper app we need to overcome nmake's limiting -# environment. -#---------------------------------------------------------- - -!if !exist(nmakehlp.exe) -!if [$(cc32) -nologo nmakehlp.c -link -subsystem:console > nul] -!endif -!endif - -#---------------------------------------------------------- -# Test for compiler features -#---------------------------------------------------------- - -### test for optimizations -!if [nmakehlp -c -Ot] -!message *** Compiler has 'Optimizations' -OPTIMIZING = 1 -!else -!message *** Compiler does not have 'Optimizations' -OPTIMIZING = 0 -!endif - -OPTIMIZATIONS = - -!if [nmakehlp -c -Ot] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Ot -!endif - -!if [nmakehlp -c -Oi] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Oi -!endif - -!if [nmakehlp -c -Op] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Op -!endif - -!if [nmakehlp -c -fp:strict] -OPTIMIZATIONS = $(OPTIMIZATIONS) -fp:strict -!endif - -!if [nmakehlp -c -Gs] -OPTIMIZATIONS = $(OPTIMIZATIONS) -Gs -!endif - -!if [nmakehlp -c -GS] -OPTIMIZATIONS = $(OPTIMIZATIONS) -GS- -!endif - -!if [nmakehlp -c -GL] -OPTIMIZATIONS = $(OPTIMIZATIONS) -GL -!endif - -DEBUGFLAGS = - -!if [nmakehlp -c -RTC1] -DEBUGFLAGS = $(DEBUGFLAGS) -RTC1 -!elseif [nmakehlp -c -GZ] -DEBUGFLAGS = $(DEBUGFLAGS) -GZ -!endif - -COMPILERFLAGS =-W3 - -# In v13 -GL and -YX are incompatible. -!if [nmakehlp -c -YX] -!if ![nmakehlp -c -GL] -OPTIMIZATIONS = $(OPTIMIZATIONS) -YX -!endif -!endif - -!if "$(MACHINE)" == "X86" -### test for pentium errata -!if [nmakehlp -c -QI0f] -!message *** Compiler has 'Pentium 0x0f fix' -COMPILERFLAGS = $(COMPILERFLAGSS) -QI0f -!else -!message *** Compiler does not have 'Pentium 0x0f fix' -!endif -!endif - -!if "$(MACHINE)" == "IA64" -### test for Itanium errata -!if [nmakehlp -c -QIA64_Bx] -!message *** Compiler has 'B-stepping errata workarounds' -COMPILERFLAGS = $(COMPILERFLAGS) -QIA64_Bx -!else -!message *** Compiler does not have 'B-stepping errata workarounds' -!endif -!endif - -!if "$(MACHINE)" == "X86" -### test for -align:4096, when align:512 will do. -!if [nmakehlp -l -opt:nowin98] -!message *** Linker has 'Win98 alignment problem' -ALIGN98_HACK = 1 -!else -!message *** Linker does not have 'Win98 alignment problem' -ALIGN98_HACK = 0 -!endif -!else -ALIGN98_HACK = 0 -!endif - -LINKERFLAGS = - -!if [nmakehlp -l -ltcg] -LINKERFLAGS =-ltcg -!endif - -#---------------------------------------------------------- -# MSVC8 (ships with Visual Studio 2005) generates a manifest -# file that we should link into the binaries. This is how. -#---------------------------------------------------------- - -_VC_MANIFEST_EMBED_EXE= -_VC_MANIFEST_EMBED_DLL= -VCVER=0 -!if ![echo VCVERSION=_MSC_VER > vercl.x] \ - && ![cl -nologo -TC -P vercl.x $(ERRNULL)] -!include vercl.i -VCVER=$(VCVERSION) -!endif - -# Since MSVC8 we must deal with manifest resources. -!if $(VCVERSION) < 1600 -!if $(VCVERSION) >= 1400 -_VC_MANIFEST_EMBED_EXE=if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;1 -_VC_MANIFEST_EMBED_DLL=if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;2 -!endif -!endif - -#---------------------------------------------------------- -# Decode the options requested. -#---------------------------------------------------------- - -!if "$(OPTS)" == "" || [nmakehlp -f "$(OPTS)" "none"] -STATIC_BUILD = 0 -TCL_THREADS = 1 -DEBUG = 0 -PROFILE = 0 -MSVCRT = 0 -LOIMPACT = 0 -TCL_USE_STATIC_PACKAGES = 0 -USE_THREAD_ALLOC = 1 -USE_THREAD_STORAGE = 1 -UNCHECKED = 0 -!else -!if [nmakehlp -f $(OPTS) "static"] -!message *** Doing static -STATIC_BUILD = 1 -!else -STATIC_BUILD = 0 -!endif -!if [nmakehlp -f $(OPTS) "msvcrt"] -!message *** Doing msvcrt -MSVCRT = 1 -!else -MSVCRT = 0 -!endif -!if [nmakehlp -f $(OPTS) "staticpkg"] -!message *** Doing staticpkg -TCL_USE_STATIC_PACKAGES = 1 -!else -TCL_USE_STATIC_PACKAGES = 0 -!endif -!if [nmakehlp -f $(OPTS) "nothreads"] -!message *** Compile explicitly for non-threaded tcl -TCL_THREADS = 0 -!else -TCL_THREADS = 1 -!endif -!if [nmakehlp -f $(OPTS) "symbols"] -!message *** Doing symbols -DEBUG = 1 -!else -DEBUG = 0 -!endif -!if [nmakehlp -f $(OPTS) "profile"] -!message *** Doing profile -PROFILE = 1 -!else -PROFILE = 0 -!endif -!if [nmakehlp -f $(OPTS) "loimpact"] -!message *** Doing loimpact -LOIMPACT = 1 -!else -LOIMPACT = 0 -!endif -!if [nmakehlp -f $(OPTS) "thrdalloc"] -!message *** Doing thrdalloc -USE_THREAD_ALLOC = 1 -!else -USE_THREAD_ALLOC = 0 -!endif -!if [nmakehlp -f $(OPTS) "thrdstorage"] -!message *** Doing thrdstorage -USE_THREAD_STORAGE = 1 -!else -USE_THREAD_STORAGE = 0 -!endif -!if [nmakehlp -f $(OPTS) "unchecked"] -!message *** Doing unchecked -UNCHECKED = 1 -!else -UNCHECKED = 0 -!endif -!endif - - -!if !$(STATIC_BUILD) -# Make sure we don't build overly fat DLLs. -MSVCRT = 1 -# We shouldn't statically put the extensions inside the shell when dynamic. -TCL_USE_STATIC_PACKAGES = 0 -!endif - - -#---------------------------------------------------------- -# Figure-out how to name our intermediate and output directories. -# We wouldn't want different builds to use the same .obj files -# by accident. -#---------------------------------------------------------- - -#---------------------------------------- -# Naming convention: -# t = full thread support. -# s = static library (as opposed to an -# import library) -# g = linked to the debug enabled C -# run-time. -# x = special static build when it -# links to the dynamic C run-time. -#---------------------------------------- -SUFX = sgx - -!if $(DEBUG) -BUILDDIRTOP = Debug -!else -BUILDDIRTOP = Release -!endif - -!if $(VCVER) > 6 -BUILDDIRTOP =$(BUILDDIRTOP)_VC$(VCVER)_$(MACHINE) -!endif - -!if !$(DEBUG) || $(DEBUG) && $(UNCHECKED) -SUFX = $(SUFX:g=) -!endif - -TMP_DIRFULL = .\$(BUILDDIRTOP)\$(PROJECT)_ThreadedDynamicStaticZ -!if [echo TMP_DIRFULL is $(TMP_DIRFULL)] -!endif - -!if !$(STATIC_BUILD) -TMP_DIRFULL = $(TMP_DIRFULL:Static=) -SUFX = $(SUFX:s=) -EXT = dll -!if $(MSVCRT) -TMP_DIRFULL = $(TMP_DIRFULL:Z=) -SUFX = $(SUFX:x=) -!endif -!else -TMP_DIRFULL = $(TMP_DIRFULL:Dynamic=) -EXT = lib -!if !$(MSVCRT) -TMP_DIRFULL = $(TMP_DIRFULL:Z=) -SUFX = $(SUFX:x=) -!endif -!endif - -!if !$(TCL_THREADS) -TMP_DIRFULL = $(TMP_DIRFULL:Threaded=) -SUFX = $(SUFX:t=) -!endif - -!ifndef TMP_DIR -TMP_DIR = $(TMP_DIRFULL) -!ifndef OUT_DIR -#OUT_DIR = .\$(BUILDDIRTOP) -OUT_DIR = .\$(BUILDDIRTOP)\Togl -!endif -!else -!ifndef OUT_DIR -OUT_DIR = $(TMP_DIR)\..\Togl -!endif -!endif - - -#---------------------------------------------------------- -# Decode the statistics requested. -#---------------------------------------------------------- - -!if "$(STATS)" == "" || [nmakehlp -f "$(STATS)" "none"] -TCL_MEM_DEBUG = 0 -TCL_COMPILE_DEBUG = 0 -!else -!if [nmakehlp -f $(STATS) "memdbg"] -!message *** Doing memdbg -TCL_MEM_DEBUG = 1 -!else -TCL_MEM_DEBUG = 0 -!endif -!if [nmakehlp -f $(STATS) "compdbg"] -!message *** Doing compdbg -TCL_COMPILE_DEBUG = 1 -!else -TCL_COMPILE_DEBUG = 0 -!endif -!endif - - -#---------------------------------------------------------- -# Decode the checks requested. -#---------------------------------------------------------- - -!if "$(CHECKS)" == "" || [nmakehlp -f "$(CHECKS)" "none"] -TCL_NO_DEPRECATED = 0 -WARNINGS = -W3 -!else -!if [nmakehlp -f $(CHECKS) "nodep"] -!message *** Doing nodep check -TCL_NO_DEPRECATED = 1 -!else -TCL_NO_DEPRECATED = 0 -!endif -!if [nmakehlp -f $(CHECKS) "fullwarn"] -!message *** Doing full warnings check -WARNINGS = -W4 -!if [nmakehlp -l -warn:3] -LINKERFLAGS = $(LINKERFLAGS) -warn:3 -!endif -!else -WARNINGS = -W3 -!endif -!if [nmakehlp -f $(CHECKS) "64bit"] && [nmakehlp -c -Wp64] -!message *** Doing 64bit portability warnings -WARNINGS = $(WARNINGS) -Wp64 -!endif -!endif - -#---------------------------------------------------------- -# Set our defines now armed with our options. -#---------------------------------------------------------- - -OPTDEFINES = -DTCL_CFGVAL_ENCODING=$(CFG_ENCODING) -DSTDC_HEADERS - -!if $(TCL_MEM_DEBUG) -OPTDEFINES = $(OPTDEFINES) -DTCL_MEM_DEBUG -!endif -!if $(TCL_COMPILE_DEBUG) -OPTDEFINES = $(OPTDEFINES) -DTCL_COMPILE_DEBUG -DTCL_COMPILE_STATS -!endif -!if $(TCL_THREADS) -OPTDEFINES = $(OPTDEFINES) -DTCL_THREADS=1 -!if $(USE_THREAD_ALLOC) -OPTDEFINES = $(OPTDEFINES) -DUSE_THREAD_ALLOC=1 -!endif -!if $(USE_THREAD_STORAGE) -OPTDEFINES = $(OPTDEFINES) -DUSE_THREAD_STORAGE=1 -!endif -!endif -!if $(STATIC_BUILD) -OPTDEFINES = $(OPTDEFINES) -DSTATIC_BUILD -!endif -!if $(TCL_NO_DEPRECATED) -OPTDEFINES = $(OPTDEFINES) -DTCL_NO_DEPRECATED -!endif - -!if $(DEBUG) -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_DEBUG -!elseif $(OPTIMIZING) -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_OPTIMIZED -!endif -!if $(PROFILE) -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_PROFILED -!endif -!if "$(MACHINE)" == "IA64" || "$(MACHINE)" == "AMD64" -OPTDEFINES = $(OPTDEFINES) -DTCL_CFG_DO64BIT -!endif - - -#---------------------------------------------------------- -# Get common info used when building extensions. -#---------------------------------------------------------- - -!if "$(PROJECT)" != "tcl" - -# If INSTALLDIR set to tcl root dir then reset to the lib dir. -!if exist("$(_INSTALLDIR)\include\tcl.h") -_INSTALLDIR=$(_INSTALLDIR)\lib -!endif - -!if !defined(TCLDIR) -!if exist("$(_INSTALLDIR)\..\include\tcl.h") -TCLINSTALL = 1 -_TCLDIR = $(_INSTALLDIR)\.. -_TCL_H = $(_INSTALLDIR)\..\include\tcl.h -TCLDIR = $(_INSTALLDIR)\.. -!else -MSG=^ -Failed to find tcl.h. Set the TCLDIR macro. -!error $(MSG) -!endif -!else -_TCLDIR = $(TCLDIR:/=\) -!if exist("$(_TCLDIR)\include\tcl.h") -TCLINSTALL = 1 -_TCL_H = $(_TCLDIR)\include\tcl.h -!elseif exist("$(_TCLDIR)\generic\tcl.h") -TCLINSTALL = 0 -_TCL_H = $(_TCLDIR)\generic\tcl.h -!else -MSG =^ -Failed to find tcl.h in $(_TCLDIR) Fix the TCLDIR macro. -!error $(MSG) -!endif -!endif - -!if [echo REM = This file is generated from rules.vc > version.vc] -!endif -!if exist("$(_TCL_H)") -!if [echo TCL_DOTVERSION = \>> version.vc] \ - && [nmakehlp -V "$(_TCL_H)" TCL_VERSION >> version.vc] -!endif -!endif -!include version.vc -TCL_VERSION = $(TCL_DOTVERSION:.=) - -!if $(TCLINSTALL) -TCLSH = "$(_TCLDIR)\bin\tclsh$(TCL_VERSION)$(SUFX).exe" -!if !exist($(TCLSH)) && $(TCL_THREADS) -TCLSH = "$(_TCLDIR)\bin\tclsh$(TCL_VERSION)t$(SUFX).exe" -!endif -TCLSTUBLIB = "$(_TCLDIR)\lib\tclstub$(TCL_VERSION).lib" -TCLIMPLIB = "$(_TCLDIR)\lib\tcl$(TCL_VERSION)$(SUFX).lib" -TCL_LIBRARY = $(_TCLDIR)\lib -TCL_INCLUDES = -I"$(_TCLDIR)\include" -!else -TCLSH = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tclsh$(TCL_VERSION)$(SUFX).exe" -!if !exist($(TCLSH)) && $(TCL_THREADS) -TCLSH = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tclsh$(TCL_VERSION)t$(SUFX).exe" -!endif -TCLSTUBLIB = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tclstub$(TCL_VERSION).lib" -TCLIMPLIB = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tcl$(TCL_VERSION)$(SUFX).lib" -TCL_LIBRARY = $(_TCLDIR)\library -TCL_INCLUDES = -I"$(_TCLDIR)\generic" -I"$(_TCLDIR)\win" -!endif - -!endif - -#---------------------------------------------------------- -# Optionally check for Tk info for building extensions. -#---------------------------------------------------------- - -!ifdef PROJECT_REQUIRES_TK -!if "$(PROJECT)" != "tcl" && "$(PROJECT)" != "tk" - -!if !defined(TKDIR) -!if exist("$(_INSTALLDIR)\..\include\tk.h") -TKINSTALL = 1 -_TKDIR = $(_INSTALLDIR)\.. -_TK_H = $(_TKDIR)\include\tk.h -TKDIR = $(_TKDIR) -!elseif exist("$(_TCLDIR)\include\tk.h") -TKINSTALL = 1 -_TKDIR = $(_TCLDIR) -_TK_H = $(_TKDIR)\include\tk.h -TKDIR = $(_TKDIR) -!endif -!else -_TKDIR = $(TKDIR:/=\) -!if exist("$(_TKDIR)\include\tk.h") -TKINSTALL = 1 -_TK_H = $(_TKDIR)\include\tk.h -!elseif exist("$(_TKDIR)\generic\tk.h") -TKINSTALL = 0 -_TK_H = $(_TKDIR)\generic\tk.h -!else -MSG =^ -Failed to find tk.h. The TKDIR macro does not appear correct. -!error $(MSG) -!endif -!endif - -!if defined(TKDIR) -TK_DOTVERSION = 8.4 -!if exist("$(_TK_H)") -!if [echo TK_DOTVERSION = \>> version.vc] \ - && [nmakehlp -V "$(_TK_H)" TK_VERSION >> version.vc] -!endif -!endif -!include version.vc -TK_VERSION = $(TK_DOTVERSION:.=) - -!if $(TKINSTALL) -WISH = "$(_TKDIR)\bin\wish$(TK_VERSION)$(SUFX).exe" -!if !exist($(WISH)) && $(TCL_THREADS) -WISH = "$(_TKDIR)\bin\wish$(TK_VERSION)t$(SUFX).exe" -!endif -TKSTUBLIB = "$(_TKDIR)\lib\tkstub$(TK_VERSION).lib" -TKIMPLIB = "$(_TKDIR)\lib\tk$(TK_VERSION)$(SUFX).lib" -TK_INCLUDES = -I"$(_TKDIR)\include" -TK_LIBRARY = $(_TKDIR)\lib -!else -WISH = "$(_TKDIR)\win\$(BUILDDIRTOP)\wish$(TCL_VERSION)$(SUFX).exe" -!if !exist($(WISH)) && $(TCL_THREADS) -WISH = "$(_TKDIR)\win\$(BUILDDIRTOP)\wish$(TCL_VERSION)t$(SUFX).exe" -!endif -TKSTUBLIB = "$(_TKDIR)\win\$(BUILDDIRTOP)\tkstub$(TCL_VERSION).lib" -TKIMPLIB = "$(_TKDIR)\win\$(BUILDDIRTOP)\tk$(TCL_VERSION)$(SUFX).lib" -TK_INCLUDES = -I"$(_TKDIR)\generic" -I"$(_TKDIR)\win" -I"$(_TKDIR)\xlib" -TK_LIBRARY = $(_TKDIR)\library -!endif - -!endif -!endif -!endif - - -#---------------------------------------------------------- -# Setup the fully qualified OUT_DIR path as OUT_DIR_PATH -#---------------------------------------------------------- -!if [echo OUT_DIR_PATH = \>> version.vc] \ - && [nmakehlp -Q "$(OUT_DIR)" >> version.vc] -!endif -!include version.vc - - -#---------------------------------------------------------- -# Display stats being used. -#---------------------------------------------------------- - -!message *** Intermediate directory will be '$(TMP_DIR)' -!message *** Output directory will be '$(OUT_DIR)' -!message *** Suffix for binaries will be '$(SUFX)' -!message *** Optional defines are '$(OPTDEFINES)' -!message *** Compiler version $(VCVER). Target machine is $(MACHINE) -!message *** Compiler options '$(COMPILERFLAGS) $(OPTIMIZATIONS) $(DEBUGFLAGS) $(WARNINGS)' -!message *** Link options '$(LINKERFLAGS)' - -!endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/DECkeysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/DECkeysym.h deleted file mode 100644 index d9e23c4be..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/DECkeysym.h +++ /dev/null @@ -1,65 +0,0 @@ -/*********************************************************** - -Copyright 1988, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from The Open Group. - - -Copyright 1988 by Digital Equipment Corporation, Maynard, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the name of Digital not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* - * DEC private keysyms - * (29th bit set) - */ - -/* two-key compose sequence initiators, chosen to map to Latin1 characters */ - -#define DXK_ring_accent 0x1000FEB0 -#define DXK_circumflex_accent 0x1000FE5E -#define DXK_cedilla_accent 0x1000FE2C -#define DXK_acute_accent 0x1000FE27 -#define DXK_grave_accent 0x1000FE60 -#define DXK_tilde 0x1000FE7E -#define DXK_diaeresis 0x1000FE22 - -/* special keysym for LK2** "Remove" key on editing keypad */ - -#define DXK_Remove 0x1000FF00 /* Remove */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/HPkeysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/HPkeysym.h deleted file mode 100644 index 4a0655a23..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/HPkeysym.h +++ /dev/null @@ -1,164 +0,0 @@ -/* - -Copyright 1987, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included -in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall -not be used in advertising or otherwise to promote the sale, use or -other dealings in this Software without prior written authorization -from The Open Group. - -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Hewlett Packard -or Digital not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -HEWLETT-PACKARD MAKES NO WARRANTY OF ANY KIND WITH REGARD -TO THIS SOFWARE, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. Hewlett-Packard shall not be liable for errors -contained herein or direct, indirect, special, incidental or -consequential damages in connection with the furnishing, -performance, or use of this material. - -*/ - -#ifndef _HPKEYSYM_H - -#define _HPKEYSYM_H - -#define hpXK_ClearLine 0x1000FF6F -#define hpXK_InsertLine 0x1000FF70 -#define hpXK_DeleteLine 0x1000FF71 -#define hpXK_InsertChar 0x1000FF72 -#define hpXK_DeleteChar 0x1000FF73 -#define hpXK_BackTab 0x1000FF74 -#define hpXK_KP_BackTab 0x1000FF75 -#define hpXK_Modelock1 0x1000FF48 -#define hpXK_Modelock2 0x1000FF49 -#define hpXK_Reset 0x1000FF6C -#define hpXK_System 0x1000FF6D -#define hpXK_User 0x1000FF6E -#define hpXK_mute_acute 0x100000A8 -#define hpXK_mute_grave 0x100000A9 -#define hpXK_mute_asciicircum 0x100000AA -#define hpXK_mute_diaeresis 0x100000AB -#define hpXK_mute_asciitilde 0x100000AC -#define hpXK_lira 0x100000AF -#define hpXK_guilder 0x100000BE -#define hpXK_Ydiaeresis 0x100000EE -#define hpXK_IO 0x100000EE -#define hpXK_longminus 0x100000F6 -#define hpXK_block 0x100000FC - - -#ifndef _OSF_Keysyms -#define _OSF_Keysyms - -#define osfXK_Copy 0x1004FF02 -#define osfXK_Cut 0x1004FF03 -#define osfXK_Paste 0x1004FF04 -#define osfXK_BackTab 0x1004FF07 -#define osfXK_BackSpace 0x1004FF08 -#define osfXK_Clear 0x1004FF0B -#define osfXK_Escape 0x1004FF1B -#define osfXK_AddMode 0x1004FF31 -#define osfXK_PrimaryPaste 0x1004FF32 -#define osfXK_QuickPaste 0x1004FF33 -#define osfXK_PageLeft 0x1004FF40 -#define osfXK_PageUp 0x1004FF41 -#define osfXK_PageDown 0x1004FF42 -#define osfXK_PageRight 0x1004FF43 -#define osfXK_Activate 0x1004FF44 -#define osfXK_MenuBar 0x1004FF45 -#define osfXK_Left 0x1004FF51 -#define osfXK_Up 0x1004FF52 -#define osfXK_Right 0x1004FF53 -#define osfXK_Down 0x1004FF54 -#define osfXK_EndLine 0x1004FF57 -#define osfXK_BeginLine 0x1004FF58 -#define osfXK_EndData 0x1004FF59 -#define osfXK_BeginData 0x1004FF5A -#define osfXK_PrevMenu 0x1004FF5B -#define osfXK_NextMenu 0x1004FF5C -#define osfXK_PrevField 0x1004FF5D -#define osfXK_NextField 0x1004FF5E -#define osfXK_Select 0x1004FF60 -#define osfXK_Insert 0x1004FF63 -#define osfXK_Undo 0x1004FF65 -#define osfXK_Menu 0x1004FF67 -#define osfXK_Cancel 0x1004FF69 -#define osfXK_Help 0x1004FF6A -#define osfXK_SelectAll 0x1004FF71 -#define osfXK_DeselectAll 0x1004FF72 -#define osfXK_Reselect 0x1004FF73 -#define osfXK_Extend 0x1004FF74 -#define osfXK_Restore 0x1004FF78 -#define osfXK_Delete 0x1004FFFF - -#endif /* _OSF_Keysyms */ - - -/************************************************************** - * The use of the following macros is deprecated. - * They are listed below only for backwards compatibility. - */ -#define XK_Reset 0x1000FF6C -#define XK_System 0x1000FF6D -#define XK_User 0x1000FF6E -#define XK_ClearLine 0x1000FF6F -#define XK_InsertLine 0x1000FF70 -#define XK_DeleteLine 0x1000FF71 -#define XK_InsertChar 0x1000FF72 -#define XK_DeleteChar 0x1000FF73 -#define XK_BackTab 0x1000FF74 -#define XK_KP_BackTab 0x1000FF75 -#define XK_Ext16bit_L 0x1000FF76 -#define XK_Ext16bit_R 0x1000FF77 -#define XK_mute_acute 0x100000a8 -#define XK_mute_grave 0x100000a9 -#define XK_mute_asciicircum 0x100000aa -#define XK_mute_diaeresis 0x100000ab -#define XK_mute_asciitilde 0x100000ac -#define XK_lira 0x100000af -#define XK_guilder 0x100000be -#ifndef XK_Ydiaeresis -#define XK_Ydiaeresis 0x100000ee -#endif -#define XK_IO 0x100000ee -#define XK_longminus 0x100000f6 -#define XK_block 0x100000fc - -#endif /* _HPKEYSYM_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Sunkeysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Sunkeysym.h deleted file mode 100644 index 78d1286bb..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Sunkeysym.h +++ /dev/null @@ -1,106 +0,0 @@ -/* - * Copyright (c) 1991, Oracle and/or its affiliates. All rights reserved. - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice (including the next - * paragraph) shall be included in all copies or substantial portions of the - * Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - */ -/************************************************************ - -Copyright 1991, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from The Open Group. - -***********************************************************/ - -/* - * Floating Accent - */ - -#define SunXK_FA_Grave 0x1005FF00 -#define SunXK_FA_Circum 0x1005FF01 -#define SunXK_FA_Tilde 0x1005FF02 -#define SunXK_FA_Acute 0x1005FF03 -#define SunXK_FA_Diaeresis 0x1005FF04 -#define SunXK_FA_Cedilla 0x1005FF05 - -/* - * Miscellaneous Functions - */ - -#define SunXK_F36 0x1005FF10 /* Labeled F11 */ -#define SunXK_F37 0x1005FF11 /* Labeled F12 */ - -#define SunXK_Sys_Req 0x1005FF60 -#define SunXK_Print_Screen 0x0000FF61 /* Same as XK_Print */ - -/* - * International & Multi-Key Character Composition - */ - -#define SunXK_Compose 0x0000FF20 /* Same as XK_Multi_key */ -#define SunXK_AltGraph 0x0000FF7E /* Same as XK_Mode_switch */ - -/* - * Cursor Control - */ - -#define SunXK_PageUp 0x0000FF55 /* Same as XK_Prior */ -#define SunXK_PageDown 0x0000FF56 /* Same as XK_Next */ - -/* - * Open Look Functions - */ - -#define SunXK_Undo 0x0000FF65 /* Same as XK_Undo */ -#define SunXK_Again 0x0000FF66 /* Same as XK_Redo */ -#define SunXK_Find 0x0000FF68 /* Same as XK_Find */ -#define SunXK_Stop 0x0000FF69 /* Same as XK_Cancel */ -#define SunXK_Props 0x1005FF70 -#define SunXK_Front 0x1005FF71 -#define SunXK_Copy 0x1005FF72 -#define SunXK_Open 0x1005FF73 -#define SunXK_Paste 0x1005FF74 -#define SunXK_Cut 0x1005FF75 - -#define SunXK_PowerSwitch 0x1005FF76 -#define SunXK_AudioLowerVolume 0x1005FF77 -#define SunXK_AudioMute 0x1005FF78 -#define SunXK_AudioRaiseVolume 0x1005FF79 -#define SunXK_VideoDegauss 0x1005FF7A -#define SunXK_VideoLowerBrightness 0x1005FF7B -#define SunXK_VideoRaiseBrightness 0x1005FF7C -#define SunXK_PowerSwitchShift 0x1005FF7D diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/X.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/X.h deleted file mode 100644 index c2c57afff..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/X.h +++ /dev/null @@ -1,686 +0,0 @@ -/* - * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ - */ - -/* Definitions for the X window system likely to be used by applications */ - -#ifndef X_H -#define X_H - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ -#define X_PROTOCOL 11 /* current protocol version */ -#define X_PROTOCOL_REVISION 0 /* current minor version */ - -#if defined(MAC_OSX_TK) -# define Cursor XCursor -# define Region XRegion -#endif - -/* Resources */ - -#ifdef _WIN64 -typedef unsigned __int64 XID; -#else -typedef unsigned long XID; -#endif - -typedef XID Window; -typedef XID Drawable; -typedef XID Font; -typedef XID Pixmap; -typedef XID Cursor; -typedef XID Colormap; -typedef XID GContext; -typedef XID KeySym; - -typedef unsigned long Mask; - -typedef unsigned long Atom; - -typedef unsigned long VisualID; - -typedef unsigned long Time; - -typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs - * to pack 3 bytes into the keyCode field in - * the XEvent. In the real X.h, a KeyCode is - * defined as a short, which wouldn't be big - * enough. */ - -/***************************************************************** - * RESERVED RESOURCE AND CONSTANT DEFINITIONS - *****************************************************************/ - -#ifndef _WIN32 -# define None 0L /* See bug [9e31fd9449] and below */ -#endif - -#define ParentRelative 1L /* background pixmap in CreateWindow - and ChangeWindowAttributes */ - -#define CopyFromParent 0L /* border pixmap in CreateWindow - and ChangeWindowAttributes - special VisualID and special window - class passed to CreateWindow */ - -#define PointerWindow 0L /* destination window in SendEvent */ -#define InputFocus 1L /* destination window in SendEvent */ - -#define PointerRoot 1L /* focus window in SetInputFocus */ - -#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ - -#define AnyKey 0L /* special Key Code, passed to GrabKey */ - -#define AnyButton 0L /* special Button Code, passed to GrabButton */ - -#define AllTemporary 0L /* special Resource ID passed to KillClient */ - -#define CurrentTime 0L /* special Time */ - -#define NoSymbol 0L /* special KeySym */ - -/***************************************************************** - * EVENT DEFINITIONS - *****************************************************************/ - -/* Input Event Masks. Used as event-mask window attribute and as arguments - to Grab requests. Not to be confused with event names. */ - -#define NoEventMask 0L -#define KeyPressMask (1L<<0) -#define KeyReleaseMask (1L<<1) -#define ButtonPressMask (1L<<2) -#define ButtonReleaseMask (1L<<3) -#define EnterWindowMask (1L<<4) -#define LeaveWindowMask (1L<<5) -#define PointerMotionMask (1L<<6) -#define PointerMotionHintMask (1L<<7) -#define Button1MotionMask (1L<<8) -#define Button2MotionMask (1L<<9) -#define Button3MotionMask (1L<<10) -#define Button4MotionMask (1L<<11) -#define Button5MotionMask (1L<<12) -#define ButtonMotionMask (1L<<13) -#define KeymapStateMask (1L<<14) -#define ExposureMask (1L<<15) -#define VisibilityChangeMask (1L<<16) -#define StructureNotifyMask (1L<<17) -#define ResizeRedirectMask (1L<<18) -#define SubstructureNotifyMask (1L<<19) -#define SubstructureRedirectMask (1L<<20) -#define FocusChangeMask (1L<<21) -#define PropertyChangeMask (1L<<22) -#define ColormapChangeMask (1L<<23) -#define OwnerGrabButtonMask (1L<<24) - -/* Event names. Used in "type" field in XEvent structures. Not to be -confused with event masks above. They start from 2 because 0 and 1 -are reserved in the protocol for errors and replies. */ - -#define KeyPress 2 -#define KeyRelease 3 -#define ButtonPress 4 -#define ButtonRelease 5 -#define MotionNotify 6 -#define EnterNotify 7 -#define LeaveNotify 8 -#define FocusIn 9 -#define FocusOut 10 -#define KeymapNotify 11 -#define Expose 12 -#define GraphicsExpose 13 -#define NoExpose 14 -#define VisibilityNotify 15 -#define CreateNotify 16 -#define DestroyNotify 17 -#define UnmapNotify 18 -#define MapNotify 19 -#define MapRequest 20 -#define ReparentNotify 21 -#define ConfigureNotify 22 -#define ConfigureRequest 23 -#define GravityNotify 24 -#define ResizeRequest 25 -#define CirculateNotify 26 -#define CirculateRequest 27 -#define PropertyNotify 28 -#define SelectionClear 29 -#define SelectionRequest 30 -#define SelectionNotify 31 -#define ColormapNotify 32 -#define ClientMessage 33 -#define MappingNotify 34 -#define LASTEvent 35 /* must be bigger than any event # */ - - -/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, - state in various key-, mouse-, and button-related events. */ - -#define ShiftMask (1<<0) -#define LockMask (1<<1) -#ifndef _WIN32 -# define ControlMask (1<<2) /* See bug [9e31fd9449] and below */ -#endif -#define Mod1Mask (1<<3) -#define Mod2Mask (1<<4) -#define Mod3Mask (1<<5) -#define Mod4Mask (1<<6) -#define Mod5Mask (1<<7) - -/* See bug [9e31fd9449], this way prevents conflicts with Win32 headers */ -#ifdef _WIN32 -enum _Bug9e31fd9449 { None = 0, ControlMask = (1<<2) }; -#endif - -/* modifier names. Used to build a SetModifierMapping request or - to read a GetModifierMapping request. These correspond to the - masks defined above. */ -#define ShiftMapIndex 0 -#define LockMapIndex 1 -#define ControlMapIndex 2 -#define Mod1MapIndex 3 -#define Mod2MapIndex 4 -#define Mod3MapIndex 5 -#define Mod4MapIndex 6 -#define Mod5MapIndex 7 - - -/* button masks. Used in same manner as Key masks above. Not to be confused - with button names below. */ - -#define Button1Mask (1<<8) -#define Button2Mask (1<<9) -#define Button3Mask (1<<10) -#define Button4Mask (1<<11) -#define Button5Mask (1<<12) - -#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ - - -/* button names. Used as arguments to GrabButton and as detail in ButtonPress - and ButtonRelease events. Not to be confused with button masks above. - Note that 0 is already defined above as "AnyButton". */ - -#define Button1 1 -#define Button2 2 -#define Button3 3 -#define Button4 4 -#define Button5 5 - -/* Notify modes */ - -#define NotifyNormal 0 -#define NotifyGrab 1 -#define NotifyUngrab 2 -#define NotifyWhileGrabbed 3 - -#define NotifyHint 1 /* for MotionNotify events */ - -/* Notify detail */ - -#define NotifyAncestor 0 -#define NotifyVirtual 1 -#define NotifyInferior 2 -#define NotifyNonlinear 3 -#define NotifyNonlinearVirtual 4 -#define NotifyPointer 5 -#define NotifyPointerRoot 6 -#define NotifyDetailNone 7 - -/* Visibility notify */ - -#define VisibilityUnobscured 0 -#define VisibilityPartiallyObscured 1 -#define VisibilityFullyObscured 2 - -/* Circulation request */ - -#define PlaceOnTop 0 -#define PlaceOnBottom 1 - -/* protocol families */ - -#define FamilyInternet 0 -#define FamilyDECnet 1 -#define FamilyChaos 2 - -/* Property notification */ - -#define PropertyNewValue 0 -#define PropertyDelete 1 - -/* Color Map notification */ - -#define ColormapUninstalled 0 -#define ColormapInstalled 1 - -/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ - -#define GrabModeSync 0 -#define GrabModeAsync 1 - -/* GrabPointer, GrabKeyboard reply status */ - -#define GrabSuccess 0 -#define AlreadyGrabbed 1 -#define GrabInvalidTime 2 -#define GrabNotViewable 3 -#define GrabFrozen 4 - -/* AllowEvents modes */ - -#define AsyncPointer 0 -#define SyncPointer 1 -#define ReplayPointer 2 -#define AsyncKeyboard 3 -#define SyncKeyboard 4 -#define ReplayKeyboard 5 -#define AsyncBoth 6 -#define SyncBoth 7 - -/* Used in SetInputFocus, GetInputFocus */ - -#define RevertToNone (int)None -#define RevertToPointerRoot (int)PointerRoot -#define RevertToParent 2 - -/***************************************************************** - * ERROR CODES - *****************************************************************/ - -#define Success 0 /* everything's okay */ -#define BadRequest 1 /* bad request code */ -#define BadValue 2 /* int parameter out of range */ -#define BadWindow 3 /* parameter not a Window */ -#define BadPixmap 4 /* parameter not a Pixmap */ -#define BadAtom 5 /* parameter not an Atom */ -#define BadCursor 6 /* parameter not a Cursor */ -#define BadFont 7 /* parameter not a Font */ -#define BadMatch 8 /* parameter mismatch */ -#define BadDrawable 9 /* parameter not a Pixmap or Window */ -#define BadAccess 10 /* depending on context: - - key/button already grabbed - - attempt to free an illegal - cmap entry - - attempt to store into a read-only - color map entry. - - attempt to modify the access control - list from other than the local host. - */ -#define BadAlloc 11 /* insufficient resources */ -#define BadColor 12 /* no such colormap */ -#define BadGC 13 /* parameter not a GC */ -#define BadIDChoice 14 /* choice not in range or already used */ -#define BadName 15 /* font or color name doesn't exist */ -#define BadLength 16 /* Request length incorrect */ -#define BadImplementation 17 /* server is defective */ - -#define FirstExtensionError 128 -#define LastExtensionError 255 - -/***************************************************************** - * WINDOW DEFINITIONS - *****************************************************************/ - -/* Window classes used by CreateWindow */ -/* Note that CopyFromParent is already defined as 0 above */ - -#define InputOutput 1 -#define InputOnly 2 - -/* Window attributes for CreateWindow and ChangeWindowAttributes */ - -#define CWBackPixmap (1L<<0) -#define CWBackPixel (1L<<1) -#define CWBorderPixmap (1L<<2) -#define CWBorderPixel (1L<<3) -#define CWBitGravity (1L<<4) -#define CWWinGravity (1L<<5) -#define CWBackingStore (1L<<6) -#define CWBackingPlanes (1L<<7) -#define CWBackingPixel (1L<<8) -#define CWOverrideRedirect (1L<<9) -#define CWSaveUnder (1L<<10) -#define CWEventMask (1L<<11) -#define CWDontPropagate (1L<<12) -#define CWColormap (1L<<13) -#define CWCursor (1L<<14) - -/* ConfigureWindow structure */ - -#define CWX (1<<0) -#define CWY (1<<1) -#define CWWidth (1<<2) -#define CWHeight (1<<3) -#define CWBorderWidth (1<<4) -#define CWSibling (1<<5) -#define CWStackMode (1<<6) - - -/* Bit Gravity */ - -#define ForgetGravity 0 -#define NorthWestGravity 1 -#define NorthGravity 2 -#define NorthEastGravity 3 -#define WestGravity 4 -#define CenterGravity 5 -#define EastGravity 6 -#define SouthWestGravity 7 -#define SouthGravity 8 -#define SouthEastGravity 9 -#define StaticGravity 10 - -/* Window gravity + bit gravity above */ - -#define UnmapGravity 0 - -/* Used in CreateWindow for backing-store hint */ - -#define NotUseful 0 -#define WhenMapped 1 -#define Always 2 - -/* Used in GetWindowAttributes reply */ - -#define IsUnmapped 0 -#define IsUnviewable 1 -#define IsViewable 2 - -/* Used in ChangeSaveSet */ - -#define SetModeInsert 0 -#define SetModeDelete 1 - -/* Used in ChangeCloseDownMode */ - -#define DestroyAll 0 -#define RetainPermanent 1 -#define RetainTemporary 2 - -/* Window stacking method (in configureWindow) */ - -#define Above 0 -#define Below 1 -#define TopIf 2 -#define BottomIf 3 -#define Opposite 4 - -/* Circulation direction */ - -#define RaiseLowest 0 -#define LowerHighest 1 - -/* Property modes */ - -#define PropModeReplace 0 -#define PropModePrepend 1 -#define PropModeAppend 2 - -/***************************************************************** - * GRAPHICS DEFINITIONS - *****************************************************************/ - -/* graphics functions, as in GC.alu */ - -#define GXclear 0x0 /* 0 */ -#define GXand 0x1 /* src AND dst */ -#define GXandReverse 0x2 /* src AND NOT dst */ -#define GXcopy 0x3 /* src */ -#define GXandInverted 0x4 /* NOT src AND dst */ -#define GXnoop 0x5 /* dst */ -#define GXxor 0x6 /* src XOR dst */ -#define GXor 0x7 /* src OR dst */ -#define GXnor 0x8 /* NOT src AND NOT dst */ -#define GXequiv 0x9 /* NOT src XOR dst */ -#define GXinvert 0xa /* NOT dst */ -#define GXorReverse 0xb /* src OR NOT dst */ -#define GXcopyInverted 0xc /* NOT src */ -#define GXorInverted 0xd /* NOT src OR dst */ -#define GXnand 0xe /* NOT src OR NOT dst */ -#define GXset 0xf /* 1 */ - -/* LineStyle */ - -#define LineSolid 0 -#define LineOnOffDash 1 -#define LineDoubleDash 2 - -/* capStyle */ - -#define CapNotLast 0 -#define CapButt 1 -#define CapRound 2 -#define CapProjecting 3 - -/* joinStyle */ - -#define JoinMiter 0 -#define JoinRound 1 -#define JoinBevel 2 - -/* fillStyle */ - -#define FillSolid 0 -#define FillTiled 1 -#define FillStippled 2 -#define FillOpaqueStippled 3 - -/* fillRule */ - -#define EvenOddRule 0 -#define WindingRule 1 - -/* subwindow mode */ - -#define ClipByChildren 0 -#define IncludeInferiors 1 - -/* SetClipRectangles ordering */ - -#define Unsorted 0 -#define YSorted 1 -#define YXSorted 2 -#define YXBanded 3 - -/* CoordinateMode for drawing routines */ - -#define CoordModeOrigin 0 /* relative to the origin */ -#define CoordModePrevious 1 /* relative to previous point */ - -/* Polygon shapes */ - -#define Complex 0 /* paths may intersect */ -#define Nonconvex 1 /* no paths intersect, but not convex */ -#define Convex 2 /* wholly convex */ - -/* Arc modes for PolyFillArc */ - -#define ArcChord 0 /* join endpoints of arc */ -#define ArcPieSlice 1 /* join endpoints to center of arc */ - -/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into - GC.stateChanges */ - -#define GCFunction (1L<<0) -#define GCPlaneMask (1L<<1) -#define GCForeground (1L<<2) -#define GCBackground (1L<<3) -#define GCLineWidth (1L<<4) -#define GCLineStyle (1L<<5) -#define GCCapStyle (1L<<6) -#define GCJoinStyle (1L<<7) -#define GCFillStyle (1L<<8) -#define GCFillRule (1L<<9) -#define GCTile (1L<<10) -#define GCStipple (1L<<11) -#define GCTileStipXOrigin (1L<<12) -#define GCTileStipYOrigin (1L<<13) -#define GCFont (1L<<14) -#define GCSubwindowMode (1L<<15) -#define GCGraphicsExposures (1L<<16) -#define GCClipXOrigin (1L<<17) -#define GCClipYOrigin (1L<<18) -#define GCClipMask (1L<<19) -#define GCDashOffset (1L<<20) -#define GCDashList (1L<<21) -#define GCArcMode (1L<<22) - -#define GCLastBit 22 -/***************************************************************** - * FONTS - *****************************************************************/ - -/* used in QueryFont -- draw direction */ - -#define FontLeftToRight 0 -#define FontRightToLeft 1 - -#define FontChange 255 - -/***************************************************************** - * IMAGING - *****************************************************************/ - -/* ImageFormat -- PutImage, GetImage */ - -#define XYBitmap 0 /* depth 1, XYFormat */ -#define XYPixmap 1 /* depth == drawable depth */ -#define ZPixmap 2 /* depth == drawable depth */ - -/***************************************************************** - * COLOR MAP STUFF - *****************************************************************/ - -/* For CreateColormap */ - -#define AllocNone 0 /* create map with no entries */ -#define AllocAll 1 /* allocate entire map writeable */ - - -/* Flags used in StoreNamedColor, StoreColors */ - -#define DoRed (1<<0) -#define DoGreen (1<<1) -#define DoBlue (1<<2) - -/***************************************************************** - * CURSOR STUFF - *****************************************************************/ - -/* QueryBestSize Class */ - -#define CursorShape 0 /* largest size that can be displayed */ -#define TileShape 1 /* size tiled fastest */ -#define StippleShape 2 /* size stippled fastest */ - -/***************************************************************** - * KEYBOARD/POINTER STUFF - *****************************************************************/ - -#define AutoRepeatModeOff 0 -#define AutoRepeatModeOn 1 -#define AutoRepeatModeDefault 2 - -#define LedModeOff 0 -#define LedModeOn 1 - -/* masks for ChangeKeyboardControl */ - -#define KBKeyClickPercent (1L<<0) -#define KBBellPercent (1L<<1) -#define KBBellPitch (1L<<2) -#define KBBellDuration (1L<<3) -#define KBLed (1L<<4) -#define KBLedMode (1L<<5) -#define KBKey (1L<<6) -#define KBAutoRepeatMode (1L<<7) - -#define MappingSuccess 0 -#define MappingBusy 1 -#define MappingFailed 2 - -#define MappingModifier 0 -#define MappingKeyboard 1 -#define MappingPointer 2 - -/***************************************************************** - * SCREEN SAVER STUFF - *****************************************************************/ - -#define DontPreferBlanking 0 -#define PreferBlanking 1 -#define DefaultBlanking 2 - -#define DisableScreenSaver 0 -#define DisableScreenInterval 0 - -#define DontAllowExposures 0 -#define AllowExposures 1 -#define DefaultExposures 2 - -/* for ForceScreenSaver */ - -#define ScreenSaverReset 0 -#define ScreenSaverActive 1 - -/***************************************************************** - * HOSTS AND CONNECTIONS - *****************************************************************/ - -/* for ChangeHosts */ - -#define HostInsert 0 -#define HostDelete 1 - -/* for ChangeAccessControl */ - -#define EnableAccess 1 -#define DisableAccess 0 - -/* Display classes used in opening the connection - * Note that the statically allocated ones are even numbered and the - * dynamically changeable ones are odd numbered */ - -#define StaticGray 0 -#define GrayScale 1 -#define StaticColor 2 -#define PseudoColor 3 -#define TrueColor 4 -#define DirectColor 5 - - -/* Byte order used in imageByteOrder and bitmapBitOrder */ - -#define LSBFirst 0 -#define MSBFirst 1 - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* X_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/XF86keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/XF86keysym.h deleted file mode 100644 index dd287e249..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/XF86keysym.h +++ /dev/null @@ -1,230 +0,0 @@ -/* - * XFree86 vendor specific keysyms. - * - * The XFree86 keysym range is 0x10080001 - 0x1008FFFF. - * - * X.Org will not be adding to the XF86 set of keysyms, though they have - * been adopted and are considered a "standard" part of X keysym definitions. - * XFree86 never properly commented these keysyms, so we have done our - * best to explain the semantic meaning of these keys. - * - * XFree86 has removed their mail archives of the period, that might have - * shed more light on some of these definitions. Until/unless we resurrect - * these archives, these are from memory and usage. - */ - -/* - * ModeLock - * - * This one is old, and not really used any more since XKB offers this - * functionality. - */ - -#define XF86XK_ModeLock 0x1008FF01 /* Mode Switch Lock */ - -/* Backlight controls. */ -#define XF86XK_MonBrightnessUp 0x1008FF02 /* Monitor/panel brightness */ -#define XF86XK_MonBrightnessDown 0x1008FF03 /* Monitor/panel brightness */ -#define XF86XK_KbdLightOnOff 0x1008FF04 /* Keyboards may be lit */ -#define XF86XK_KbdBrightnessUp 0x1008FF05 /* Keyboards may be lit */ -#define XF86XK_KbdBrightnessDown 0x1008FF06 /* Keyboards may be lit */ -#define XF86XK_MonBrightnessCycle 0x1008FF07 /* Monitor/panel brightness */ - -/* - * Keys found on some "Internet" keyboards. - */ -#define XF86XK_Standby 0x1008FF10 /* System into standby mode */ -#define XF86XK_AudioLowerVolume 0x1008FF11 /* Volume control down */ -#define XF86XK_AudioMute 0x1008FF12 /* Mute sound from the system */ -#define XF86XK_AudioRaiseVolume 0x1008FF13 /* Volume control up */ -#define XF86XK_AudioPlay 0x1008FF14 /* Start playing of audio > */ -#define XF86XK_AudioStop 0x1008FF15 /* Stop playing audio */ -#define XF86XK_AudioPrev 0x1008FF16 /* Previous track */ -#define XF86XK_AudioNext 0x1008FF17 /* Next track */ -#define XF86XK_HomePage 0x1008FF18 /* Display user's home page */ -#define XF86XK_Mail 0x1008FF19 /* Invoke user's mail program */ -#define XF86XK_Start 0x1008FF1A /* Start application */ -#define XF86XK_Search 0x1008FF1B /* Search */ -#define XF86XK_AudioRecord 0x1008FF1C /* Record audio application */ - -/* These are sometimes found on PDA's (e.g. Palm, PocketPC or elsewhere) */ -#define XF86XK_Calculator 0x1008FF1D /* Invoke calculator program */ -#define XF86XK_Memo 0x1008FF1E /* Invoke Memo taking program */ -#define XF86XK_ToDoList 0x1008FF1F /* Invoke To Do List program */ -#define XF86XK_Calendar 0x1008FF20 /* Invoke Calendar program */ -#define XF86XK_PowerDown 0x1008FF21 /* Deep sleep the system */ -#define XF86XK_ContrastAdjust 0x1008FF22 /* Adjust screen contrast */ -#define XF86XK_RockerUp 0x1008FF23 /* Rocker switches exist up */ -#define XF86XK_RockerDown 0x1008FF24 /* and down */ -#define XF86XK_RockerEnter 0x1008FF25 /* and let you press them */ - -/* Some more "Internet" keyboard symbols */ -#define XF86XK_Back 0x1008FF26 /* Like back on a browser */ -#define XF86XK_Forward 0x1008FF27 /* Like forward on a browser */ -#define XF86XK_Stop 0x1008FF28 /* Stop current operation */ -#define XF86XK_Refresh 0x1008FF29 /* Refresh the page */ -#define XF86XK_PowerOff 0x1008FF2A /* Power off system entirely */ -#define XF86XK_WakeUp 0x1008FF2B /* Wake up system from sleep */ -#define XF86XK_Eject 0x1008FF2C /* Eject device (e.g. DVD) */ -#define XF86XK_ScreenSaver 0x1008FF2D /* Invoke screensaver */ -#define XF86XK_WWW 0x1008FF2E /* Invoke web browser */ -#define XF86XK_Sleep 0x1008FF2F /* Put system to sleep */ -#define XF86XK_Favorites 0x1008FF30 /* Show favorite locations */ -#define XF86XK_AudioPause 0x1008FF31 /* Pause audio playing */ -#define XF86XK_AudioMedia 0x1008FF32 /* Launch media collection app */ -#define XF86XK_MyComputer 0x1008FF33 /* Display "My Computer" window */ -#define XF86XK_VendorHome 0x1008FF34 /* Display vendor home web site */ -#define XF86XK_LightBulb 0x1008FF35 /* Light bulb keys exist */ -#define XF86XK_Shop 0x1008FF36 /* Display shopping web site */ -#define XF86XK_History 0x1008FF37 /* Show history of web surfing */ -#define XF86XK_OpenURL 0x1008FF38 /* Open selected URL */ -#define XF86XK_AddFavorite 0x1008FF39 /* Add URL to favorites list */ -#define XF86XK_HotLinks 0x1008FF3A /* Show "hot" links */ -#define XF86XK_BrightnessAdjust 0x1008FF3B /* Invoke brightness adj. UI */ -#define XF86XK_Finance 0x1008FF3C /* Display financial site */ -#define XF86XK_Community 0x1008FF3D /* Display user's community */ -#define XF86XK_AudioRewind 0x1008FF3E /* "rewind" audio track */ -#define XF86XK_BackForward 0x1008FF3F /* ??? */ -#define XF86XK_Launch0 0x1008FF40 /* Launch Application */ -#define XF86XK_Launch1 0x1008FF41 /* Launch Application */ -#define XF86XK_Launch2 0x1008FF42 /* Launch Application */ -#define XF86XK_Launch3 0x1008FF43 /* Launch Application */ -#define XF86XK_Launch4 0x1008FF44 /* Launch Application */ -#define XF86XK_Launch5 0x1008FF45 /* Launch Application */ -#define XF86XK_Launch6 0x1008FF46 /* Launch Application */ -#define XF86XK_Launch7 0x1008FF47 /* Launch Application */ -#define XF86XK_Launch8 0x1008FF48 /* Launch Application */ -#define XF86XK_Launch9 0x1008FF49 /* Launch Application */ -#define XF86XK_LaunchA 0x1008FF4A /* Launch Application */ -#define XF86XK_LaunchB 0x1008FF4B /* Launch Application */ -#define XF86XK_LaunchC 0x1008FF4C /* Launch Application */ -#define XF86XK_LaunchD 0x1008FF4D /* Launch Application */ -#define XF86XK_LaunchE 0x1008FF4E /* Launch Application */ -#define XF86XK_LaunchF 0x1008FF4F /* Launch Application */ - -#define XF86XK_ApplicationLeft 0x1008FF50 /* switch to application, left */ -#define XF86XK_ApplicationRight 0x1008FF51 /* switch to application, right*/ -#define XF86XK_Book 0x1008FF52 /* Launch bookreader */ -#define XF86XK_CD 0x1008FF53 /* Launch CD/DVD player */ -#define XF86XK_Calculater 0x1008FF54 /* Launch Calculater */ -#define XF86XK_Clear 0x1008FF55 /* Clear window, screen */ -#define XF86XK_Close 0x1008FF56 /* Close window */ -#define XF86XK_Copy 0x1008FF57 /* Copy selection */ -#define XF86XK_Cut 0x1008FF58 /* Cut selection */ -#define XF86XK_Display 0x1008FF59 /* Output switch key */ -#define XF86XK_DOS 0x1008FF5A /* Launch DOS (emulation) */ -#define XF86XK_Documents 0x1008FF5B /* Open documents window */ -#define XF86XK_Excel 0x1008FF5C /* Launch spread sheet */ -#define XF86XK_Explorer 0x1008FF5D /* Launch file explorer */ -#define XF86XK_Game 0x1008FF5E /* Launch game */ -#define XF86XK_Go 0x1008FF5F /* Go to URL */ -#define XF86XK_iTouch 0x1008FF60 /* Logitech iTouch- don't use */ -#define XF86XK_LogOff 0x1008FF61 /* Log off system */ -#define XF86XK_Market 0x1008FF62 /* ?? */ -#define XF86XK_Meeting 0x1008FF63 /* enter meeting in calendar */ -#define XF86XK_MenuKB 0x1008FF65 /* distinguish keyboard from PB */ -#define XF86XK_MenuPB 0x1008FF66 /* distinguish PB from keyboard */ -#define XF86XK_MySites 0x1008FF67 /* Favourites */ -#define XF86XK_New 0x1008FF68 /* New (folder, document... */ -#define XF86XK_News 0x1008FF69 /* News */ -#define XF86XK_OfficeHome 0x1008FF6A /* Office home (old Staroffice)*/ -#define XF86XK_Open 0x1008FF6B /* Open */ -#define XF86XK_Option 0x1008FF6C /* ?? */ -#define XF86XK_Paste 0x1008FF6D /* Paste */ -#define XF86XK_Phone 0x1008FF6E /* Launch phone; dial number */ -#define XF86XK_Q 0x1008FF70 /* Compaq's Q - don't use */ -#define XF86XK_Reply 0x1008FF72 /* Reply e.g., mail */ -#define XF86XK_Reload 0x1008FF73 /* Reload web page, file, etc. */ -#define XF86XK_RotateWindows 0x1008FF74 /* Rotate windows e.g. xrandr */ -#define XF86XK_RotationPB 0x1008FF75 /* don't use */ -#define XF86XK_RotationKB 0x1008FF76 /* don't use */ -#define XF86XK_Save 0x1008FF77 /* Save (file, document, state */ -#define XF86XK_ScrollUp 0x1008FF78 /* Scroll window/contents up */ -#define XF86XK_ScrollDown 0x1008FF79 /* Scrool window/contentd down */ -#define XF86XK_ScrollClick 0x1008FF7A /* Use XKB mousekeys instead */ -#define XF86XK_Send 0x1008FF7B /* Send mail, file, object */ -#define XF86XK_Spell 0x1008FF7C /* Spell checker */ -#define XF86XK_SplitScreen 0x1008FF7D /* Split window or screen */ -#define XF86XK_Support 0x1008FF7E /* Get support (??) */ -#define XF86XK_TaskPane 0x1008FF7F /* Show tasks */ -#define XF86XK_Terminal 0x1008FF80 /* Launch terminal emulator */ -#define XF86XK_Tools 0x1008FF81 /* toolbox of desktop/app. */ -#define XF86XK_Travel 0x1008FF82 /* ?? */ -#define XF86XK_UserPB 0x1008FF84 /* ?? */ -#define XF86XK_User1KB 0x1008FF85 /* ?? */ -#define XF86XK_User2KB 0x1008FF86 /* ?? */ -#define XF86XK_Video 0x1008FF87 /* Launch video player */ -#define XF86XK_WheelButton 0x1008FF88 /* button from a mouse wheel */ -#define XF86XK_Word 0x1008FF89 /* Launch word processor */ -#define XF86XK_Xfer 0x1008FF8A -#define XF86XK_ZoomIn 0x1008FF8B /* zoom in view, map, etc. */ -#define XF86XK_ZoomOut 0x1008FF8C /* zoom out view, map, etc. */ - -#define XF86XK_Away 0x1008FF8D /* mark yourself as away */ -#define XF86XK_Messenger 0x1008FF8E /* as in instant messaging */ -#define XF86XK_WebCam 0x1008FF8F /* Launch web camera app. */ -#define XF86XK_MailForward 0x1008FF90 /* Forward in mail */ -#define XF86XK_Pictures 0x1008FF91 /* Show pictures */ -#define XF86XK_Music 0x1008FF92 /* Launch music application */ - -#define XF86XK_Battery 0x1008FF93 /* Display battery information */ -#define XF86XK_Bluetooth 0x1008FF94 /* Enable/disable Bluetooth */ -#define XF86XK_WLAN 0x1008FF95 /* Enable/disable WLAN */ -#define XF86XK_UWB 0x1008FF96 /* Enable/disable UWB */ - -#define XF86XK_AudioForward 0x1008FF97 /* fast-forward audio track */ -#define XF86XK_AudioRepeat 0x1008FF98 /* toggle repeat mode */ -#define XF86XK_AudioRandomPlay 0x1008FF99 /* toggle shuffle mode */ -#define XF86XK_Subtitle 0x1008FF9A /* cycle through subtitle */ -#define XF86XK_AudioCycleTrack 0x1008FF9B /* cycle through audio tracks */ -#define XF86XK_CycleAngle 0x1008FF9C /* cycle through angles */ -#define XF86XK_FrameBack 0x1008FF9D /* video: go one frame back */ -#define XF86XK_FrameForward 0x1008FF9E /* video: go one frame forward */ -#define XF86XK_Time 0x1008FF9F /* display, or shows an entry for time seeking */ -#define XF86XK_Select 0x1008FFA0 /* Select button on joypads and remotes */ -#define XF86XK_View 0x1008FFA1 /* Show a view options/properties */ -#define XF86XK_TopMenu 0x1008FFA2 /* Go to a top-level menu in a video */ - -#define XF86XK_Red 0x1008FFA3 /* Red button */ -#define XF86XK_Green 0x1008FFA4 /* Green button */ -#define XF86XK_Yellow 0x1008FFA5 /* Yellow button */ -#define XF86XK_Blue 0x1008FFA6 /* Blue button */ - -#define XF86XK_Suspend 0x1008FFA7 /* Sleep to RAM */ -#define XF86XK_Hibernate 0x1008FFA8 /* Sleep to disk */ -#define XF86XK_TouchpadToggle 0x1008FFA9 /* Toggle between touchpad/trackstick */ -#define XF86XK_TouchpadOn 0x1008FFB0 /* The touchpad got switched on */ -#define XF86XK_TouchpadOff 0x1008FFB1 /* The touchpad got switched off */ - -#define XF86XK_AudioMicMute 0x1008FFB2 /* Mute the Mic from the system */ - -#define XF86XK_Keyboard 0x1008FFB3 /* User defined keyboard related action */ - -#define XF86XK_WWAN 0x1008FFB4 /* Toggle WWAN (LTE, UMTS, etc.) radio */ -#define XF86XK_RFKill 0x1008FFB5 /* Toggle radios on/off */ - -#define XF86XK_AudioPreset 0x1008FFB6 /* Select equalizer preset, e.g. theatre-mode */ - -#define XF86XK_RotationLockToggle 0x1008FFB7 /* Toggle screen rotation lock on/off */ - -/* Keys for special action keys (hot keys) */ -/* Virtual terminals on some operating systems */ -#define XF86XK_Switch_VT_1 0x1008FE01 -#define XF86XK_Switch_VT_2 0x1008FE02 -#define XF86XK_Switch_VT_3 0x1008FE03 -#define XF86XK_Switch_VT_4 0x1008FE04 -#define XF86XK_Switch_VT_5 0x1008FE05 -#define XF86XK_Switch_VT_6 0x1008FE06 -#define XF86XK_Switch_VT_7 0x1008FE07 -#define XF86XK_Switch_VT_8 0x1008FE08 -#define XF86XK_Switch_VT_9 0x1008FE09 -#define XF86XK_Switch_VT_10 0x1008FE0A -#define XF86XK_Switch_VT_11 0x1008FE0B -#define XF86XK_Switch_VT_12 0x1008FE0C - -#define XF86XK_Ungrab 0x1008FE20 /* force ungrab */ -#define XF86XK_ClearGrab 0x1008FE21 /* kill application with grab */ -#define XF86XK_Next_VMode 0x1008FE22 /* next video mode available */ -#define XF86XK_Prev_VMode 0x1008FE23 /* prev. video mode available */ -#define XF86XK_LogWindowTree 0x1008FE24 /* print window tree to log */ -#define XF86XK_LogGrabInfo 0x1008FE25 /* print all active grabs to log */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xatom.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xatom.h deleted file mode 100644 index 485a4236d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xatom.h +++ /dev/null @@ -1,79 +0,0 @@ -#ifndef XATOM_H -#define XATOM_H 1 - -/* THIS IS A GENERATED FILE - * - * Do not change! Changing this file implies a protocol change! - */ - -#define XA_PRIMARY ((Atom) 1) -#define XA_SECONDARY ((Atom) 2) -#define XA_ARC ((Atom) 3) -#define XA_ATOM ((Atom) 4) -#define XA_BITMAP ((Atom) 5) -#define XA_CARDINAL ((Atom) 6) -#define XA_COLORMAP ((Atom) 7) -#define XA_CURSOR ((Atom) 8) -#define XA_CUT_BUFFER0 ((Atom) 9) -#define XA_CUT_BUFFER1 ((Atom) 10) -#define XA_CUT_BUFFER2 ((Atom) 11) -#define XA_CUT_BUFFER3 ((Atom) 12) -#define XA_CUT_BUFFER4 ((Atom) 13) -#define XA_CUT_BUFFER5 ((Atom) 14) -#define XA_CUT_BUFFER6 ((Atom) 15) -#define XA_CUT_BUFFER7 ((Atom) 16) -#define XA_DRAWABLE ((Atom) 17) -#define XA_FONT ((Atom) 18) -#define XA_INTEGER ((Atom) 19) -#define XA_PIXMAP ((Atom) 20) -#define XA_POINT ((Atom) 21) -#define XA_RECTANGLE ((Atom) 22) -#define XA_RESOURCE_MANAGER ((Atom) 23) -#define XA_RGB_COLOR_MAP ((Atom) 24) -#define XA_RGB_BEST_MAP ((Atom) 25) -#define XA_RGB_BLUE_MAP ((Atom) 26) -#define XA_RGB_DEFAULT_MAP ((Atom) 27) -#define XA_RGB_GRAY_MAP ((Atom) 28) -#define XA_RGB_GREEN_MAP ((Atom) 29) -#define XA_RGB_RED_MAP ((Atom) 30) -#define XA_STRING ((Atom) 31) -#define XA_VISUALID ((Atom) 32) -#define XA_WINDOW ((Atom) 33) -#define XA_WM_COMMAND ((Atom) 34) -#define XA_WM_HINTS ((Atom) 35) -#define XA_WM_CLIENT_MACHINE ((Atom) 36) -#define XA_WM_ICON_NAME ((Atom) 37) -#define XA_WM_ICON_SIZE ((Atom) 38) -#define XA_WM_NAME ((Atom) 39) -#define XA_WM_NORMAL_HINTS ((Atom) 40) -#define XA_WM_SIZE_HINTS ((Atom) 41) -#define XA_WM_ZOOM_HINTS ((Atom) 42) -#define XA_MIN_SPACE ((Atom) 43) -#define XA_NORM_SPACE ((Atom) 44) -#define XA_MAX_SPACE ((Atom) 45) -#define XA_END_SPACE ((Atom) 46) -#define XA_SUPERSCRIPT_X ((Atom) 47) -#define XA_SUPERSCRIPT_Y ((Atom) 48) -#define XA_SUBSCRIPT_X ((Atom) 49) -#define XA_SUBSCRIPT_Y ((Atom) 50) -#define XA_UNDERLINE_POSITION ((Atom) 51) -#define XA_UNDERLINE_THICKNESS ((Atom) 52) -#define XA_STRIKEOUT_ASCENT ((Atom) 53) -#define XA_STRIKEOUT_DESCENT ((Atom) 54) -#define XA_ITALIC_ANGLE ((Atom) 55) -#define XA_X_HEIGHT ((Atom) 56) -#define XA_QUAD_WIDTH ((Atom) 57) -#define XA_WEIGHT ((Atom) 58) -#define XA_POINT_SIZE ((Atom) 59) -#define XA_RESOLUTION ((Atom) 60) -#define XA_COPYRIGHT ((Atom) 61) -#define XA_NOTICE ((Atom) 62) -#define XA_FONT_NAME ((Atom) 63) -#define XA_FAMILY_NAME ((Atom) 64) -#define XA_FULL_NAME ((Atom) 65) -#define XA_CAP_HEIGHT ((Atom) 66) -#define XA_WM_CLASS ((Atom) 67) -#define XA_WM_TRANSIENT_FOR ((Atom) 68) - -#define XA_LAST_PREDEFINED ((Atom) 68) -#endif /* XATOM_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xfuncproto.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xfuncproto.h deleted file mode 100644 index 6d63002ef..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xfuncproto.h +++ /dev/null @@ -1,60 +0,0 @@ -/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ -/* - * Copyright 1989, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - */ - -/* Definitions to make function prototypes manageable */ - -#ifndef _XFUNCPROTO_H_ -#define _XFUNCPROTO_H_ - -#ifndef NeedFunctionPrototypes -#define NeedFunctionPrototypes 1 -#endif /* NeedFunctionPrototypes */ - -#ifndef NeedVarargsPrototypes -#define NeedVarargsPrototypes 0 -#endif /* NeedVarargsPrototypes */ - -#if NeedFunctionPrototypes - -#ifndef NeedNestedPrototypes -#define NeedNestedPrototypes 1 -#endif /* NeedNestedPrototypes */ - -#ifndef _Xconst -#define _Xconst const -#endif /* _Xconst */ - -#ifndef NeedWidePrototypes -#ifdef NARROWPROTO -#define NeedWidePrototypes 0 -#else -#define NeedWidePrototypes 1 /* default to make interropt. easier */ -#endif -#endif /* NeedWidePrototypes */ - -#endif /* NeedFunctionPrototypes */ - -#ifdef __cplusplus -#define _XFUNCPROTOBEGIN extern "C" { -#define _XFUNCPROTOEND } -#endif - -#ifndef _XFUNCPROTOBEGIN -#define _XFUNCPROTOBEGIN -#define _XFUNCPROTOEND -#endif /* _XFUNCPROTOBEGIN */ - -#endif /* _XFUNCPROTO_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xlib.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xlib.h deleted file mode 100644 index af8f706f9..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xlib.h +++ /dev/null @@ -1,1208 +0,0 @@ -/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ -/* - * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - * X Window System is a Trademark of MIT. - * - */ - - -/* - * Xlib.h - Header definition and support file for the C subroutine - * interface library (Xlib) to the X Window System Protocol (V11). - * Structures and symbols starting with "_" are private to the library. - */ -#ifndef _XLIB_H_ -#define _XLIB_H_ - -#define XlibSpecificationRelease 5 - -#if !defined(MAC_OSX_TK) -# include -#endif -#ifdef MAC_OSX_TK -# include -# define Cursor XCursor -# define Region XRegion -#endif - -/* applications should not depend on these two headers being included! */ -#include - -#ifndef X_WCHAR -#ifdef X_NOT_STDC_ENV -#define X_WCHAR -#endif -#endif - -#ifndef X_WCHAR -#include -#else -/* replace this with #include or typedef appropriate for your system */ -typedef unsigned long wchar_t; -#endif - -typedef char *XPointer; - -#define Bool int -#if defined(MAC_OSX_TK) -/* Use define rather than typedef, since may need to undefine this later */ -#define Status int -#else -typedef int Status; -#endif -#define True 1 -#define False 0 - -#define QueuedAlready 0 -#define QueuedAfterReading 1 -#define QueuedAfterFlush 2 - -#define ConnectionNumber(dpy) ((dpy)->fd) -#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) -#define DefaultScreen(dpy) ((dpy)->default_screen) -#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) -#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) -#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) -#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) -#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) -#define AllPlanes ((unsigned long)~0L) -#define QLength(dpy) ((dpy)->qlen) -#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) -#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) -#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) -#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) -#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) -#define ScreenCount(dpy) ((dpy)->nscreens) -#define ServerVendor(dpy) ((dpy)->vendor) -#define ProtocolVersion(dpy) ((dpy)->proto_major_version) -#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) -#define VendorRelease(dpy) ((dpy)->release) -#define DisplayString(dpy) ((dpy)->display_name) -#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) -#define BitmapUnit(dpy) ((dpy)->bitmap_unit) -#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) -#define BitmapPad(dpy) ((dpy)->bitmap_pad) -#define ImageByteOrder(dpy) ((dpy)->byte_order) -#define NextRequest(dpy) ((dpy)->request + 1) -#define LastKnownRequestProcessed(dpy) ((dpy)->request) - -/* macros for screen oriented applications (toolkit) */ -#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) -#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) -#define DisplayOfScreen(s) ((s)->display) -#define RootWindowOfScreen(s) ((s)->root) -#define BlackPixelOfScreen(s) ((s)->black_pixel) -#define WhitePixelOfScreen(s) ((s)->white_pixel) -#define DefaultColormapOfScreen(s)((s)->cmap) -#define DefaultDepthOfScreen(s) ((s)->root_depth) -#define DefaultGCOfScreen(s) ((s)->default_gc) -#define DefaultVisualOfScreen(s)((s)->root_visual) -#define WidthOfScreen(s) ((s)->width) -#define HeightOfScreen(s) ((s)->height) -#define WidthMMOfScreen(s) ((s)->mwidth) -#define HeightMMOfScreen(s) ((s)->mheight) -#define PlanesOfScreen(s) ((s)->root_depth) -#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) -#define MinCmapsOfScreen(s) ((s)->min_maps) -#define MaxCmapsOfScreen(s) ((s)->max_maps) -#define DoesSaveUnders(s) ((s)->save_unders) -#define DoesBackingStore(s) ((s)->backing_store) -#define EventMaskOfScreen(s) ((s)->root_input_mask) - -/* - * Extensions need a way to hang private data on some structures. - */ -typedef struct _XExtData { - int number; /* number returned by XRegisterExtension */ - struct _XExtData *next; /* next item on list of data for structure */ - int (*free_private)(); /* called to free private storage */ - XPointer private_data; /* data private to this extension. */ -} XExtData; - -/* - * This file contains structures used by the extension mechanism. - */ -typedef struct { /* public to extension, cannot be changed */ - int extension; /* extension number */ - int major_opcode; /* major op-code assigned by server */ - int first_event; /* first event number for the extension */ - int first_error; /* first error number for the extension */ -} XExtCodes; - -/* - * Data structure for retrieving info about pixmap formats. - */ - -typedef struct { - int depth; - int bits_per_pixel; - int scanline_pad; -} XPixmapFormatValues; - - -/* - * Data structure for setting graphics context. - */ -typedef struct { - int function; /* logical operation */ - unsigned long plane_mask;/* plane mask */ - unsigned long foreground;/* foreground pixel */ - unsigned long background;/* background pixel */ - int line_width; /* line width */ - int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ - int cap_style; /* CapNotLast, CapButt, - CapRound, CapProjecting */ - int join_style; /* JoinMiter, JoinRound, JoinBevel */ - int fill_style; /* FillSolid, FillTiled, - FillStippled, FillOpaeueStippled */ - int fill_rule; /* EvenOddRule, WindingRule */ - int arc_mode; /* ArcChord, ArcPieSlice */ - Pixmap tile; /* tile pixmap for tiling operations */ - Pixmap stipple; /* stipple 1 plane pixmap for stipping */ - int ts_x_origin; /* offset for tile or stipple operations */ - int ts_y_origin; - Font font; /* default text font for text operations */ - int subwindow_mode; /* ClipByChildren, IncludeInferiors */ - Bool graphics_exposures;/* boolean, should exposures be generated */ - int clip_x_origin; /* origin for clipping */ - int clip_y_origin; - Pixmap clip_mask; /* bitmap clipping; other calls for rects */ - int dash_offset; /* patterned/dashed line information */ - char dashes; -} XGCValues; - -/* - * Graphics context. The contents of this structure are implementation - * dependent. A GC should be treated as opaque by application code. - */ - -typedef XGCValues *GC; - -/* - * Visual structure; contains information about colormapping possible. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - VisualID visualid; /* visual id of this visual */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ class of screen (monochrome, etc.) */ -#else - int class; /* class of screen (monochrome, etc.) */ -#endif - unsigned long red_mask, green_mask, blue_mask; /* mask values */ - int bits_per_rgb; /* log base 2 of distinct color values */ - int map_entries; /* color map entries */ -} Visual; - -/* - * Depth structure; contains information for each possible depth. - */ -typedef struct { - int depth; /* this depth (Z) of the depth */ - int nvisuals; /* number of Visual types at this depth */ - Visual *visuals; /* list of visuals possible at this depth */ -} Depth; - -/* - * Information about the screen. The contents of this structure are - * implementation dependent. A Screen should be treated as opaque - * by application code. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XDisplay *display;/* back pointer to display structure */ - Window root; /* Root window id. */ - int width, height; /* width and height of screen */ - int mwidth, mheight; /* width and height of in millimeters */ - int ndepths; /* number of depths possible */ - Depth *depths; /* list of allowable depths on the screen */ - int root_depth; /* bits per pixel */ - Visual *root_visual; /* root visual */ - GC default_gc; /* GC for the root root visual */ - Colormap cmap; /* default color map */ - unsigned long white_pixel; - unsigned long black_pixel; /* White and Black pixel values */ - int max_maps, min_maps; /* max and min color maps */ - int backing_store; /* Never, WhenMapped, Always */ - Bool save_unders; - long root_input_mask; /* initial root input mask */ -} Screen; - -/* - * Format structure; describes ZFormat data the screen will understand. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - int depth; /* depth of this image format */ - int bits_per_pixel; /* bits/pixel at this depth */ - int scanline_pad; /* scanline must padded to this multiple */ -} ScreenFormat; - -/* - * Data structure for setting window attributes. - */ -typedef struct { - Pixmap background_pixmap; /* background or None or ParentRelative */ - unsigned long background_pixel; /* background pixel */ - Pixmap border_pixmap; /* border of the window */ - unsigned long border_pixel; /* border pixel value */ - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preseved if possible */ - unsigned long backing_pixel;/* value to use in restoring planes */ - Bool save_under; /* should bits under be saved? (popups) */ - long event_mask; /* set of events that should be saved */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Colormap colormap; /* color map to be associated with window */ - Cursor cursor; /* cursor to be displayed (or None) */ -} XSetWindowAttributes; - -typedef struct { - int x, y; /* location of window */ - int width, height; /* width and height of window */ - int border_width; /* border width of window */ - int depth; /* depth of window */ - Visual *visual; /* the associated visual structure */ - Window root; /* root of screen containing window */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ InputOutput, InputOnly*/ -#else - int class; /* InputOutput, InputOnly*/ -#endif - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preserved if possible */ - unsigned long backing_pixel;/* value to be used when restoring planes */ - Bool save_under; /* boolean, should bits under be saved? */ - Colormap colormap; /* color map to be associated with window */ - Bool map_installed; /* boolean, is color map currently installed*/ - int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ - long all_event_masks; /* set of events all people have interest in*/ - long your_event_mask; /* my event mask */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Screen *screen; /* back pointer to correct screen */ -} XWindowAttributes; - -/* - * Data structure for host setting; getting routines. - * - */ - -typedef struct { - int family; /* for example FamilyInternet */ - int length; /* length of address, in bytes */ - char *address; /* pointer to where to find the bytes */ -} XHostAddress; - -/* - * Data structure for "image" data, used by image manipulation routines. - */ -typedef struct _XImage { - int width, height; /* size of image */ - int xoffset; /* number of pixels offset in X direction */ - int format; /* XYBitmap, XYPixmap, ZPixmap */ - char *data; /* pointer to image data */ - int byte_order; /* data byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* quant. of scanline 8, 16, 32 */ - int bitmap_bit_order; /* LSBFirst, MSBFirst */ - int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ - int depth; /* depth of image */ - int bytes_per_line; /* accelarator to next line */ - int bits_per_pixel; /* bits per pixel (ZPixmap) */ - unsigned long red_mask; /* bits in z arrangment */ - unsigned long green_mask; - unsigned long blue_mask; - XPointer obdata; /* hook for the object routines to hang on */ -#if defined(MAC_OSX_TK) - int pixelpower; /* n such that pixels are 2^n x 2^n blocks*/ -#endif - struct funcs { /* image manipulation routines */ - struct _XImage *(*create_image)(); -#if NeedFunctionPrototypes - int (*destroy_image) (struct _XImage *); - unsigned long (*get_pixel) (struct _XImage *, int, int); - int (*put_pixel) (struct _XImage *, int, int, unsigned long); - struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); - int (*add_pixel) (struct _XImage *, long); -#else - int (*destroy_image)(); - unsigned long (*get_pixel)(); - int (*put_pixel)(); - struct _XImage *(*sub_image)(); - int (*add_pixel)(); -#endif - } f; -} XImage; - -/* - * Data structure for XReconfigureWindow - */ -typedef struct { - int x, y; - int width, height; - int border_width; - Window sibling; - int stack_mode; -} XWindowChanges; - -/* - * Data structure used by color operations - */ -typedef struct { - unsigned long pixel; - unsigned short red, green, blue; - char flags; /* do_red, do_green, do_blue */ - char pad; -} XColor; - -/* - * Data structures for graphics operations. On most machines, these are - * congruent with the wire protocol structures, so reformatting the data - * can be avoided on these architectures. - */ -typedef struct { - short x1, y1, x2, y2; -} XSegment; - -typedef struct { - short x, y; -} XPoint; - -typedef struct { - short x, y; - unsigned short width, height; -} XRectangle; - -typedef struct { - short x, y; - unsigned short width, height; - short angle1, angle2; -} XArc; - - -/* Data structure for XChangeKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - int bell_pitch; - int bell_duration; - int led; - int led_mode; - int key; - int auto_repeat_mode; /* On, Off, Default */ -} XKeyboardControl; - -/* Data structure for XGetKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - unsigned int bell_pitch, bell_duration; - unsigned long led_mask; - int global_auto_repeat; - char auto_repeats[32]; -} XKeyboardState; - -/* Data structure for XGetMotionEvents. */ - -typedef struct { - Time time; - short x, y; -} XTimeCoord; - -/* Data structure for X{Set,Get}ModifierMapping */ - -typedef struct { - int max_keypermod; /* The server's max # of keys per modifier */ - KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ -} XModifierKeymap; - - -/* - * Display datatype maintaining display specific data. - * The contents of this structure are implementation dependent. - * A Display should be treated as opaque by application code. - */ -typedef struct _XDisplay { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XFreeFuncs *free_funcs; /* internal free functions */ - int fd; /* Network socket. */ - int conn_checker; /* ugly thing used by _XEventsQueued */ - int proto_major_version;/* maj. version of server's X protocol */ - int proto_minor_version;/* minor version of servers X protocol */ - char *vendor; /* vendor of the server hardware */ - XID resource_base; /* resource ID base */ - XID resource_mask; /* resource ID mask bits */ - XID resource_id; /* allocator current ID */ - int resource_shift; /* allocator shift to correct bits */ - XID (*resource_alloc)(); /* allocator function */ - int byte_order; /* screen byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* padding and data requirements */ - int bitmap_pad; /* padding requirements on bitmaps */ - int bitmap_bit_order; /* LeastSignificant or MostSignificant */ - int nformats; /* number of pixmap formats in list */ - ScreenFormat *pixmap_format; /* pixmap format list */ - int vnumber; /* Xlib's X protocol version number. */ - int release; /* release of the server */ - struct _XSQEvent *head, *tail; /* Input event queue. */ - int qlen; /* Length of input event queue */ - unsigned long request; /* sequence number of last request. */ - char *last_req; /* beginning of last request, or dummy */ - char *buffer; /* Output buffer starting address. */ - char *bufptr; /* Output buffer index pointer. */ - char *bufmax; /* Output buffer maximum+1 address. */ - unsigned max_request_size; /* maximum number 32 bit words in request*/ - struct _XrmHashBucketRec *db; - int (*synchandler)(); /* Synchronization handler */ - char *display_name; /* "host:display" string used on this connect*/ - int default_screen; /* default screen for operations */ - int nscreens; /* number of screens on this server*/ - Screen *screens; /* pointer to list of screens */ - unsigned long motion_buffer; /* size of motion buffer */ - unsigned long flags; /* internal connection flags */ - int min_keycode; /* minimum defined keycode */ - int max_keycode; /* maximum defined keycode */ - KeySym *keysyms; /* This server's keysyms */ - XModifierKeymap *modifiermap; /* This server's modifier keymap */ - int keysyms_per_keycode;/* number of rows */ - char *xdefaults; /* contents of defaults from server */ - char *scratch_buffer; /* place to hang scratch buffer */ - unsigned long scratch_length; /* length of scratch buffer */ - int ext_number; /* extension number on this display */ - struct _XExten *ext_procs; /* extensions initialized on this display */ - /* - * the following can be fixed size, as the protocol defines how - * much address space is available. - * While this could be done using the extension vector, there - * may be MANY events processed, so a search through the extension - * list to find the right procedure for each event might be - * expensive if many extensions are being used. - */ - Bool (*event_vec[128])(); /* vector for wire to event */ - Status (*wire_vec[128])(); /* vector for event to wire */ - KeySym lock_meaning; /* for XLookupString */ - struct _XLockInfo *lock; /* multi-thread state, display lock */ - struct _XInternalAsync *async_handlers; /* for internal async */ - unsigned long bigreq_size; /* max size of big requests */ - struct _XLockPtrs *lock_fns; /* pointers to threads functions */ - /* things above this line should not move, for binary compatibility */ - struct _XKeytrans *key_bindings; /* for XLookupString */ - Font cursor_font; /* for XCreateFontCursor */ - struct _XDisplayAtoms *atoms; /* for XInternAtom */ - unsigned int mode_switch; /* keyboard group modifiers */ - struct _XContextDB *context_db; /* context database */ - Bool (**error_vec)(); /* vector for wire to error */ - /* - * Xcms information - */ - struct { - XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ - XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ - XPointer perVisualIntensityMaps; - /* linked list of XcmsIntensityMap */ - } cms; - struct _XIMFilter *im_filters; - struct _XSQEvent *qfree; /* unallocated event queue elements */ - unsigned long next_event_serial_num; /* inserted into next queue elt */ - int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ -} Display; - -#if NeedFunctionPrototypes /* prototypes require event type definitions */ -#undef _XEVENT_ -#endif -#ifndef _XEVENT_ - -#define XMaxTransChars 7 - -/* - * Definitions of specific events. - */ -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int keycode; /* detail */ - Bool same_screen; /* same screen flag */ - char trans_chars[XMaxTransChars]; - /* translated characters */ - unsigned char nbytes; -} XKeyEvent; -typedef XKeyEvent XKeyPressedEvent; -typedef XKeyEvent XKeyReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int button; /* detail */ - Bool same_screen; /* same screen flag */ -} XButtonEvent; -typedef XButtonEvent XButtonPressedEvent; -typedef XButtonEvent XButtonReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - char is_hint; /* detail */ - Bool same_screen; /* same screen flag */ -} XMotionEvent; -typedef XMotionEvent XPointerMovedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual - */ - Bool same_screen; /* same screen flag */ - Bool focus; /* boolean focus */ - unsigned int state; /* key or button mask */ -} XCrossingEvent; -typedef XCrossingEvent XEnterWindowEvent; -typedef XCrossingEvent XLeaveWindowEvent; - -typedef struct { - int type; /* FocusIn or FocusOut */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* window of event */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, - * NotifyPointerRoot, NotifyDetailNone - */ -} XFocusChangeEvent; -typedef XFocusChangeEvent XFocusInEvent; -typedef XFocusChangeEvent XFocusOutEvent; - -/* generated on EnterWindow and FocusIn when KeyMapState selected */ -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - char key_vector[32]; -} XKeymapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ -} XExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XGraphicsExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XNoExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int state; /* Visibility state */ -} XVisibilityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; /* parent of the window */ - Window window; /* window id of window created */ - int x, y; /* window location */ - int width, height; /* size of window */ - int border_width; /* border width */ - Bool override_redirect; /* creation should be overridden */ -} XCreateWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; -} XDestroyWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool from_configure; -} XUnmapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool override_redirect; /* boolean, is override set... */ -} XMapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; -} XMapRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Window parent; - int x, y; - Bool override_redirect; -} XReparentEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - Bool override_redirect; -} XConfigureEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; -} XGravityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int width, height; -} XResizeRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - int detail; /* Above, Below, TopIf, BottomIf, Opposite */ - unsigned long value_mask; -} XConfigureRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom atom; - Time time; - int state; /* NewValue, Deleted */ -} XPropertyEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom selection; - Time time; -} XSelectionClearEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window owner; - Window requestor; - Atom selection; - Atom target; - Atom property; - Time time; -} XSelectionRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window requestor; - Atom selection; - Atom target; - Atom property; /* ATOM or None */ - Time time; -} XSelectionEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Colormap colormap; /* COLORMAP or None */ -#if defined(__cplusplus) || defined(c_plusplus) - Bool c_new; /* C++ */ -#else - Bool new; -#endif - int state; /* ColormapInstalled, ColormapUninstalled */ -} XColormapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom message_type; - int format; - union { - char b[20]; - short s[10]; - long l[5]; - } data; -} XClientMessageEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* unused */ - int request; /* one of MappingModifier, MappingKeyboard, - MappingPointer */ - int first_keycode; /* first keycode */ - int count; /* defines range of change w. first_keycode*/ -} XMappingEvent; - -typedef struct { - int type; - Display *display; /* Display the event was read from */ - XID resourceid; /* resource id */ - unsigned long serial; /* serial number of failed request */ - unsigned char error_code; /* error code of failed request */ - unsigned char request_code; /* Major op-code of failed request */ - unsigned char minor_code; /* Minor op-code of failed request */ -} XErrorEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display;/* Display the event was read from */ - Window window; /* window on which event was requested in event mask */ -} XAnyEvent; - -/* - * this union is defined so Xlib can always use the same sized - * event structure internally, to avoid memory fragmentation. - */ -typedef union _XEvent { - int type; /* must not be changed; first element */ - XAnyEvent xany; - XKeyEvent xkey; - XButtonEvent xbutton; - XMotionEvent xmotion; - XCrossingEvent xcrossing; - XFocusChangeEvent xfocus; - XExposeEvent xexpose; - XGraphicsExposeEvent xgraphicsexpose; - XNoExposeEvent xnoexpose; - XVisibilityEvent xvisibility; - XCreateWindowEvent xcreatewindow; - XDestroyWindowEvent xdestroywindow; - XUnmapEvent xunmap; - XMapEvent xmap; - XMapRequestEvent xmaprequest; - XReparentEvent xreparent; - XConfigureEvent xconfigure; - XGravityEvent xgravity; - XResizeRequestEvent xresizerequest; - XConfigureRequestEvent xconfigurerequest; - XCirculateEvent xcirculate; - XCirculateRequestEvent xcirculaterequest; - XPropertyEvent xproperty; - XSelectionClearEvent xselectionclear; - XSelectionRequestEvent xselectionrequest; - XSelectionEvent xselection; - XColormapEvent xcolormap; - XClientMessageEvent xclient; - XMappingEvent xmapping; - XErrorEvent xerror; - XKeymapEvent xkeymap; - XID pad[24]; -} XEvent; -#endif - -#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) - -/* - * per character font metric information. - */ -typedef struct { - short lbearing; /* origin to left edge of raster */ - short rbearing; /* origin to right edge of raster */ - short width; /* advance to next char's origin */ - short ascent; /* baseline to top edge of raster */ - short descent; /* baseline to bottom edge of raster */ - unsigned short attributes; /* per char flags (not predefined) */ -} XCharStruct; - -/* - * To allow arbitrary information with fonts, there are additional properties - * returned. - */ -typedef struct { - Atom name; - unsigned long card32; -} XFontProp; - -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - Font fid; /* Font id for this font */ - unsigned direction; /* hint about direction the font is painted */ - unsigned min_char_or_byte2;/* first character */ - unsigned max_char_or_byte2;/* last character */ - unsigned min_byte1; /* first row that exists */ - unsigned max_byte1; /* last row that exists */ - Bool all_chars_exist;/* flag if all characters have non-zero size*/ - unsigned default_char; /* char to print for undefined character */ - int n_properties; /* how many properties there are */ - XFontProp *properties; /* pointer to array of additional properties*/ - XCharStruct min_bounds; /* minimum bounds over all existing char*/ - XCharStruct max_bounds; /* maximum bounds over all existing char*/ - XCharStruct *per_char; /* first_char to last_char information */ - int ascent; /* log. extent above baseline for spacing */ - int descent; /* log. descent below baseline for spacing */ -} XFontStruct; - -/* - * PolyText routines take these as arguments. - */ -typedef struct { - char *chars; /* pointer to string */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem; - -typedef struct { /* normal 16 bit characters are two bytes */ - unsigned char byte1; - unsigned char byte2; -} XChar2b; - -typedef struct { - XChar2b *chars; /* two byte characters */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem16; - - -typedef union { Display *display; - GC gc; - Visual *visual; - Screen *screen; - ScreenFormat *pixmap_format; - XFontStruct *font; } XEDataObject; - -typedef struct { - XRectangle max_ink_extent; - XRectangle max_logical_extent; -} XFontSetExtents; - -typedef struct _XFontSet *XFontSet; - -typedef struct { - char *chars; - int nchars; - int delta; - XFontSet font_set; -} XmbTextItem; - -typedef struct { - wchar_t *chars; - int nchars; - int delta; - XFontSet font_set; -} XwcTextItem; - -typedef void (*XIMProc)(); - -typedef struct _XIM *XIM; -typedef struct _XIC *XIC; - -typedef unsigned long XIMStyle; - -typedef struct { - unsigned short count_styles; - XIMStyle *supported_styles; -} XIMStyles; - -#define XIMPreeditArea 0x0001L -#define XIMPreeditCallbacks 0x0002L -#define XIMPreeditPosition 0x0004L -#define XIMPreeditNothing 0x0008L -#define XIMPreeditNone 0x0010L -#define XIMStatusArea 0x0100L -#define XIMStatusCallbacks 0x0200L -#define XIMStatusNothing 0x0400L -#define XIMStatusNone 0x0800L - -#define XNVaNestedList "XNVaNestedList" -#define XNClientWindow "clientWindow" -#define XNInputStyle "inputStyle" -#define XNFocusWindow "focusWindow" -#define XNResourceName "resourceName" -#define XNResourceClass "resourceClass" -#define XNGeometryCallback "geometryCallback" -#define XNFilterEvents "filterEvents" -#define XNPreeditStartCallback "preeditStartCallback" -#define XNPreeditDoneCallback "preeditDoneCallback" -#define XNPreeditDrawCallback "preeditDrawCallback" -#define XNPreeditCaretCallback "preeditCaretCallback" -#define XNPreeditAttributes "preeditAttributes" -#define XNStatusStartCallback "statusStartCallback" -#define XNStatusDoneCallback "statusDoneCallback" -#define XNStatusDrawCallback "statusDrawCallback" -#define XNStatusAttributes "statusAttributes" -#define XNArea "area" -#define XNAreaNeeded "areaNeeded" -#define XNSpotLocation "spotLocation" -#define XNColormap "colorMap" -#define XNStdColormap "stdColorMap" -#define XNForeground "foreground" -#define XNBackground "background" -#define XNBackgroundPixmap "backgroundPixmap" -#define XNFontSet "fontSet" -#define XNLineSpace "lineSpace" -#define XNCursor "cursor" - -#define XBufferOverflow -1 -#define XLookupNone 1 -#define XLookupChars 2 -#define XLookupKeySym 3 -#define XLookupBoth 4 - -#if NeedFunctionPrototypes -typedef void *XVaNestedList; -#else -typedef XPointer XVaNestedList; -#endif - -typedef struct { - XPointer client_data; - XIMProc callback; -} XIMCallback; - -typedef unsigned long XIMFeedback; - -#define XIMReverse 1 -#define XIMUnderline (1<<1) -#define XIMHighlight (1<<2) -#define XIMPrimary (1<<5) -#define XIMSecondary (1<<6) -#define XIMTertiary (1<<7) - -typedef struct _XIMText { - unsigned short length; - XIMFeedback *feedback; - Bool encoding_is_wchar; - union { - char *multi_byte; - wchar_t *wide_char; - } string; -} XIMText; - -typedef struct _XIMPreeditDrawCallbackStruct { - int caret; /* Cursor offset within pre-edit string */ - int chg_first; /* Starting change position */ - int chg_length; /* Length of the change in character count */ - XIMText *text; -} XIMPreeditDrawCallbackStruct; - -typedef enum { - XIMForwardChar, XIMBackwardChar, - XIMForwardWord, XIMBackwardWord, - XIMCaretUp, XIMCaretDown, - XIMNextLine, XIMPreviousLine, - XIMLineStart, XIMLineEnd, - XIMAbsolutePosition, - XIMDontChange -} XIMCaretDirection; - -typedef enum { - XIMIsInvisible, /* Disable caret feedback */ - XIMIsPrimary, /* UI defined caret feedback */ - XIMIsSecondary /* UI defined caret feedback */ -} XIMCaretStyle; - -typedef struct _XIMPreeditCaretCallbackStruct { - int position; /* Caret offset within pre-edit string */ - XIMCaretDirection direction; /* Caret moves direction */ - XIMCaretStyle style; /* Feedback of the caret */ -} XIMPreeditCaretCallbackStruct; - -typedef enum { - XIMTextType, - XIMBitmapType -} XIMStatusDataType; - -typedef struct _XIMStatusDrawCallbackStruct { - XIMStatusDataType type; - union { - XIMText *text; - Pixmap bitmap; - } data; -} XIMStatusDrawCallbackStruct; - -typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */, - XErrorEvent* /* error_event */ -#endif -); - -_XFUNCPROTOBEGIN - - - -#include "tkIntXlibDecls.h" - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* _XLIB_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xutil.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xutil.h deleted file mode 100644 index bf372fb0f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/Xutil.h +++ /dev/null @@ -1,855 +0,0 @@ -/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#ifndef _XUTIL_H_ -#define _XUTIL_H_ - -/* You must include before including this file */ - -#if defined(MAC_OSX_TK) -# define Region XRegion -#endif - -/* - * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding - * value (x, y, width, height) was found in the parsed string. - */ -#define NoValue 0x0000 -#define XValue 0x0001 -#define YValue 0x0002 -#define WidthValue 0x0004 -#define HeightValue 0x0008 -#define AllValues 0x000F -#define XNegative 0x0010 -#define YNegative 0x0020 - -/* - * new version containing base_width, base_height, and win_gravity fields; - * used with WM_NORMAL_HINTS. - */ -typedef struct { - long flags; /* marks which fields in this structure are defined */ - int x, y; /* obsolete for new window mgrs, but clients */ - int width, height; /* should set so old wm's don't mess up */ - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; - struct { - int x; /* numerator */ - int y; /* denominator */ - } min_aspect, max_aspect; - int base_width, base_height; /* added by ICCCM version 1 */ - int win_gravity; /* added by ICCCM version 1 */ -} XSizeHints; - -/* - * The next block of definitions are for window manager properties that - * clients and applications use for communication. - */ - -/* flags argument in size hints */ -#define USPosition (1L << 0) /* user specified x, y */ -#define USSize (1L << 1) /* user specified width, height */ - -#define PPosition (1L << 2) /* program specified position */ -#define PSize (1L << 3) /* program specified size */ -#define PMinSize (1L << 4) /* program specified minimum size */ -#define PMaxSize (1L << 5) /* program specified maximum size */ -#define PResizeInc (1L << 6) /* program specified resize increments */ -#define PAspect (1L << 7) /* program specified min and max aspect ratios */ -#define PBaseSize (1L << 8) /* program specified base for incrementing */ -#define PWinGravity (1L << 9) /* program specified window gravity */ - -/* obsolete */ -#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) - - - -typedef struct { - long flags; /* marks which fields in this structure are defined */ - Bool input; /* does this application rely on the window manager to - get keyboard input? */ - int initial_state; /* see below */ - Pixmap icon_pixmap; /* pixmap to be used as icon */ - Window icon_window; /* window to be used as icon */ - int icon_x, icon_y; /* initial position of icon */ - Pixmap icon_mask; /* icon mask bitmap */ - XID window_group; /* id of related window group */ - /* this structure may be extended in the future */ -} XWMHints; - -/* definition for flags of XWMHints */ - -#define InputHint (1L << 0) -#define StateHint (1L << 1) -#define IconPixmapHint (1L << 2) -#define IconWindowHint (1L << 3) -#define IconPositionHint (1L << 4) -#define IconMaskHint (1L << 5) -#define WindowGroupHint (1L << 6) -#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ -IconPositionHint|IconMaskHint|WindowGroupHint) - -/* definitions for initial window state */ -#define WithdrawnState 0 /* for windows that are not mapped */ -#define NormalState 1 /* most applications want to start this way */ -#define IconicState 3 /* application wants to start as an icon */ - -/* - * Obsolete states no longer defined by ICCCM - */ -#define DontCareState 0 /* don't know or care */ -#define ZoomState 2 /* application wants to start zoomed */ -#define InactiveState 4 /* application believes it is seldom used; */ - /* some wm's may put it on inactive menu */ - - -/* - * new structure for manipulating TEXT properties; used with WM_NAME, - * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. - */ -typedef struct { - unsigned char *value; /* same as Property routines */ - Atom encoding; /* prop type */ - int format; /* prop data format: 8, 16, or 32 */ - unsigned long nitems; /* number of data items in value */ -} XTextProperty; - -#define XNoMemory -1 -#define XLocaleNotSupported -2 -#define XConverterNotFound -3 - -typedef enum { - XStringStyle, /* STRING */ - XCompoundTextStyle, /* COMPOUND_TEXT */ - XTextStyle, /* text in owner's encoding (current locale)*/ - XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ -} XICCEncodingStyle; - -typedef struct { - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; -} XIconSize; - -typedef struct { - char *res_name; - char *res_class; -} XClassHint; - -/* - * These macros are used to give some sugar to the image routines so that - * naive people are more comfortable with them. - */ -#define XDestroyImage(ximage) \ - ((*((ximage)->f.destroy_image))((ximage))) -#define XGetPixel(ximage, x, y) \ - ((*((ximage)->f.get_pixel))((ximage), (x), (y))) -#define XPutPixel(ximage, x, y, pixel) \ - ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) -#define XSubImage(ximage, x, y, width, height) \ - ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) -#define XAddPixel(ximage, value) \ - ((*((ximage)->f.add_pixel))((ximage), (value))) - -/* - * Compose sequence status structure, used in calling XLookupString. - */ -typedef struct _XComposeStatus { - XPointer compose_ptr; /* state table pointer */ - int chars_matched; /* match state */ -} XComposeStatus; - -/* - * Keysym macros, used on Keysyms to test for classes of symbols - */ -#define IsKeypadKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) - -#define IsCursorKey(keysym) \ - (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) - -#define IsPFKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) - -#define IsFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) - -#define IsMiscFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) - -#define IsModifierKey(keysym) \ - ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ - || ((unsigned)(keysym) == XK_Mode_switch) \ - || ((unsigned)(keysym) == XK_Num_Lock)) -/* - * opaque reference to Region data type - */ -typedef struct _XRegion *Region; - -/* Return values from XRectInRegion() */ - -#define RectangleOut 0 -#define RectangleIn 1 -#define RectanglePart 2 - - -/* - * Information used by the visual utility routines to find desired visual - * type from the many visuals a display may support. - */ - -typedef struct { - Visual *visual; - VisualID visualid; - int screen; - int depth; -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ */ -#else - int class; -#endif - unsigned long red_mask; - unsigned long green_mask; - unsigned long blue_mask; - int colormap_size; - int bits_per_rgb; -} XVisualInfo; - -#define VisualNoMask 0x0 -#define VisualIDMask 0x1 -#define VisualScreenMask 0x2 -#define VisualDepthMask 0x4 -#define VisualClassMask 0x8 -#define VisualRedMaskMask 0x10 -#define VisualGreenMaskMask 0x20 -#define VisualBlueMaskMask 0x40 -#define VisualColormapSizeMask 0x80 -#define VisualBitsPerRGBMask 0x100 -#define VisualAllMask 0x1FF - -/* - * This defines a window manager property that clients may use to - * share standard color maps of type RGB_COLOR_MAP: - */ -typedef struct { - Colormap colormap; - unsigned long red_max; - unsigned long red_mult; - unsigned long green_max; - unsigned long green_mult; - unsigned long blue_max; - unsigned long blue_mult; - unsigned long base_pixel; - VisualID visualid; /* added by ICCCM version 1 */ - XID killid; /* added by ICCCM version 1 */ -} XStandardColormap; - -#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ - - -/* - * return codes for XReadBitmapFile and XWriteBitmapFile - */ -#define BitmapSuccess 0 -#define BitmapOpenFailed 1 -#define BitmapFileInvalid 2 -#define BitmapNoMemory 3 - -/**************************************************************** - * - * Context Management - * - ****************************************************************/ - - -/* Associative lookup table return codes */ - -#define XCSUCCESS 0 /* No error. */ -#define XCNOMEM 1 /* Out of memory */ -#define XCNOENT 2 /* No entry in table */ - -typedef int XContext; - -#define XUniqueContext() ((XContext) XrmUniqueQuark()) -#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) - -_XFUNCPROTOBEGIN - -/* The following declarations are alphabetized. */ - -extern XClassHint *XAllocClassHint ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XIconSize *XAllocIconSize ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XSizeHints *XAllocSizeHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XStandardColormap *XAllocStandardColormap ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XWMHints *XAllocWMHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern void XClipBox( -#if NeedFunctionPrototypes - Region /* r */, - XRectangle* /* rect_return */ -#endif -); - -extern Region XCreateRegion( -#if NeedFunctionPrototypes - void -#endif -); - -extern char *XDefaultString( -#if NeedFunctionPrototypes - void -#endif -); - -extern int XDeleteContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */ -#endif -); - -extern void XDestroyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEmptyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEqualRegion( -#if NeedFunctionPrototypes - Region /* r1 */, - Region /* r2 */ -#endif -); - -extern int XFindContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - XPointer* /* data_return */ -#endif -); - -extern Status XGetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints_return */ -#endif -); - -extern Status XGetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize** /* size_list_return */, - int* /* count_return */ -#endif -); - -extern Status XGetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */ -#endif -); - -extern Status XGetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap** /* stdcmap_return */, - int* /* count_return */, - Atom /* property */ -#endif -); - -extern Status XGetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - Atom /* property */ -#endif -); - -extern Status XGetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap_return */, - Atom /* property */ -#endif -); - -extern Status XGetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* window */, - XTextProperty* /* text_prop_return */, - Atom /* property */ -#endif -); - - -extern Status XGetWMClientMachine( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern XWMHints *XGetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern Status XGetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */ -#endif -); - -extern Status XGetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */, - Atom /* property */ -#endif -); - -extern Status XGetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints_return */ -#endif -); - -extern void XIntersectRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XLookupString( -#if NeedFunctionPrototypes - XKeyEvent* /* event_struct */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - XComposeStatus* /* status_in_out */ -#endif -); - -extern Status XMatchVisualInfo( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen */, - int /* depth */, - int /* class */, - XVisualInfo* /* vinfo_return */ -#endif -); - -extern int XOffsetRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern Bool XPointInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */ -#endif -); - -extern Region XPolygonRegion( -#if NeedFunctionPrototypes - XPoint* /* points */, - int /* n */, - int /* fill_rule */ -#endif -); - -extern int XRectInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern int XSaveContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - _Xconst char* /* data */ -#endif -); - -extern void XSetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize* /* size_list */, - int /* count */ -#endif -); - -extern void XSetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* stdcmaps */, - int /* count */, - Atom /* property */ -#endif -); - -extern void XSetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetStandardProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - Pixmap /* icon_pixmap */, - char** /* argv */, - int /* argc */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */, - Atom /* property */ -#endif -); - -extern void XSetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XWMHints* /* wm_hints */ -#endif -); - -extern void XSetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* window_name */, - XTextProperty* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XmbSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetRegion( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Region /* r */ -#endif -); - -extern void XSetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap */, - Atom /* property */ -#endif -); - -extern void XSetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints */ -#endif -); - -extern void XShrinkRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern void XSubtractRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XmbTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - char** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern int XwcTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - wchar_t** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern void XwcFreeStringList( -#if NeedFunctionPrototypes - wchar_t** /* list */ -#endif -); - -extern Status XTextPropertyToStringList( -#if NeedFunctionPrototypes - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XmbTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XwcTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - wchar_t*** /* list_return */, - int* /* count_return */ -#endif -); - -extern void XUnionRectWithRegion( -#if NeedFunctionPrototypes - XRectangle* /* rectangle */, - Region /* src_region */, - Region /* dest_region_return */ -#endif -); - -extern int XUnionRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XWMGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */, - _Xconst char* /* user_geometry */, - _Xconst char* /* default_geometry */, - unsigned int /* border_width */, - XSizeHints* /* hints */, - int* /* x_return */, - int* /* y_return */, - int* /* width_return */, - int* /* height_return */, - int* /* gravity_return */ -#endif -); - -extern void XXorRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Region -#endif - -#endif /* _XUTIL_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/ap_keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/ap_keysym.h deleted file mode 100644 index 76cbde2d0..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/ap_keysym.h +++ /dev/null @@ -1,51 +0,0 @@ -/****************************************************************** -Copyright 1987 by Apollo Computer Inc., Chelmsford, Massachusetts. -Copyright 1989 by Hewlett-Packard Company. - - All Rights Reserved - -Permission to use, duplicate, change, and distribute this software and -its documentation for any purpose and without fee is granted, provided -that the above copyright notice appear in such copy and that this -copyright notice appear in all supporting documentation, and that the -names of Apollo Computer Inc., the Hewlett-Packard Company, or the X -Consortium not be used in advertising or publicity pertaining to -distribution of the software without written prior permission. - -HEWLETT-PACKARD MAKES NO WARRANTY OF ANY KIND WITH REGARD -TO THIS SOFWARE, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. Hewlett-Packard shall not be liable for errors -contained herein or direct, indirect, special, incidental or -consequential damages in connection with the furnishing, -performance, or use of this material. - -This software is not subject to any license of the American -Telephone and Telegraph Company or of the Regents of the -University of California. -******************************************************************/ - -#define apXK_LineDel 0x1000FF00 -#define apXK_CharDel 0x1000FF01 -#define apXK_Copy 0x1000FF02 -#define apXK_Cut 0x1000FF03 -#define apXK_Paste 0x1000FF04 -#define apXK_Move 0x1000FF05 -#define apXK_Grow 0x1000FF06 -#define apXK_Cmd 0x1000FF07 -#define apXK_Shell 0x1000FF08 -#define apXK_LeftBar 0x1000FF09 -#define apXK_RightBar 0x1000FF0A -#define apXK_LeftBox 0x1000FF0B -#define apXK_RightBox 0x1000FF0C -#define apXK_UpBox 0x1000FF0D -#define apXK_DownBox 0x1000FF0E -#define apXK_Pop 0x1000FF0F -#define apXK_Read 0x1000FF10 -#define apXK_Edit 0x1000FF11 -#define apXK_Save 0x1000FF12 -#define apXK_Exit 0x1000FF13 -#define apXK_Repeat 0x1000FF14 - -#define apXK_KP_parenleft 0x1000FFA8 -#define apXK_KP_parenright 0x1000FFA9 diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/cursorfont.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/cursorfont.h deleted file mode 100644 index 617274fa8..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/cursorfont.h +++ /dev/null @@ -1,79 +0,0 @@ -/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ -#define XC_num_glyphs 154 -#define XC_X_cursor 0 -#define XC_arrow 2 -#define XC_based_arrow_down 4 -#define XC_based_arrow_up 6 -#define XC_boat 8 -#define XC_bogosity 10 -#define XC_bottom_left_corner 12 -#define XC_bottom_right_corner 14 -#define XC_bottom_side 16 -#define XC_bottom_tee 18 -#define XC_box_spiral 20 -#define XC_center_ptr 22 -#define XC_circle 24 -#define XC_clock 26 -#define XC_coffee_mug 28 -#define XC_cross 30 -#define XC_cross_reverse 32 -#define XC_crosshair 34 -#define XC_diamond_cross 36 -#define XC_dot 38 -#define XC_dotbox 40 -#define XC_double_arrow 42 -#define XC_draft_large 44 -#define XC_draft_small 46 -#define XC_draped_box 48 -#define XC_exchange 50 -#define XC_fleur 52 -#define XC_gobbler 54 -#define XC_gumby 56 -#define XC_hand1 58 -#define XC_hand2 60 -#define XC_heart 62 -#define XC_icon 64 -#define XC_iron_cross 66 -#define XC_left_ptr 68 -#define XC_left_side 70 -#define XC_left_tee 72 -#define XC_leftbutton 74 -#define XC_ll_angle 76 -#define XC_lr_angle 78 -#define XC_man 80 -#define XC_middlebutton 82 -#define XC_mouse 84 -#define XC_pencil 86 -#define XC_pirate 88 -#define XC_plus 90 -#define XC_question_arrow 92 -#define XC_right_ptr 94 -#define XC_right_side 96 -#define XC_right_tee 98 -#define XC_rightbutton 100 -#define XC_rtl_logo 102 -#define XC_sailboat 104 -#define XC_sb_down_arrow 106 -#define XC_sb_h_double_arrow 108 -#define XC_sb_left_arrow 110 -#define XC_sb_right_arrow 112 -#define XC_sb_up_arrow 114 -#define XC_sb_v_double_arrow 116 -#define XC_shuttle 118 -#define XC_sizing 120 -#define XC_spider 122 -#define XC_spraycan 124 -#define XC_star 126 -#define XC_target 128 -#define XC_tcross 130 -#define XC_top_left_arrow 132 -#define XC_top_left_corner 134 -#define XC_top_right_corner 136 -#define XC_top_side 138 -#define XC_top_tee 140 -#define XC_trek 142 -#define XC_ul_angle 144 -#define XC_umbrella 146 -#define XC_ur_angle 148 -#define XC_watch 150 -#define XC_xterm 152 diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/keysym.h deleted file mode 100644 index 550b76dba..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/keysym.h +++ /dev/null @@ -1,35 +0,0 @@ -/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* default keysyms */ -#define XK_MISCELLANY -#define XK_LATIN1 -#define XK_LATIN2 -#define XK_LATIN3 -#define XK_LATIN4 -#define XK_GREEK - -#include diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/keysymdef.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/keysymdef.h deleted file mode 100644 index 460c72d22..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/X11/keysymdef.h +++ /dev/null @@ -1,1183 +0,0 @@ -/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#define XK_VoidSymbol 0xFFFFFF /* void symbol */ - -#ifdef XK_MISCELLANY -/* - * TTY Functions, cleverly chosen to map to ascii, for convenience of - * programming, but could have been arbitrary (at the cost of lookup - * tables in client code. - */ - -#define XK_BackSpace 0xFF08 /* back space, back char */ -#define XK_Tab 0xFF09 -#define XK_Linefeed 0xFF0A /* Linefeed, LF */ -#define XK_Clear 0xFF0B -#define XK_Return 0xFF0D /* Return, enter */ -#define XK_Pause 0xFF13 /* Pause, hold */ -#define XK_Scroll_Lock 0xFF14 -#define XK_Sys_Req 0xFF15 -#define XK_Escape 0xFF1B -#define XK_Delete 0xFFFF /* Delete, rubout */ - - - -/* International & multi-key character composition */ - -#define XK_Multi_key 0xFF20 /* Multi-key character compose */ - -/* Japanese keyboard support */ - -#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ -#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ -#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ -#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ -#define XK_Romaji 0xFF24 /* to Romaji */ -#define XK_Hiragana 0xFF25 /* to Hiragana */ -#define XK_Katakana 0xFF26 /* to Katakana */ -#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ -#define XK_Zenkaku 0xFF28 /* to Zenkaku */ -#define XK_Hankaku 0xFF29 /* to Hankaku */ -#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ -#define XK_Touroku 0xFF2B /* Add to Dictionary */ -#define XK_Massyo 0xFF2C /* Delete from Dictionary */ -#define XK_Kana_Lock 0xFF2D /* Kana Lock */ -#define XK_Kana_Shift 0xFF2E /* Kana Shift */ -#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ -#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ - -/* Cursor control & motion */ - -#define XK_Home 0xFF50 -#define XK_Left 0xFF51 /* Move left, left arrow */ -#define XK_Up 0xFF52 /* Move up, up arrow */ -#define XK_Right 0xFF53 /* Move right, right arrow */ -#define XK_Down 0xFF54 /* Move down, down arrow */ -#define XK_Prior 0xFF55 /* Prior, previous */ -#define XK_Page_Up 0xFF55 -#define XK_Next 0xFF56 /* Next */ -#define XK_Page_Down 0xFF56 -#define XK_End 0xFF57 /* EOL */ -#define XK_Begin 0xFF58 /* BOL */ - -/* Special Windows keyboard keys */ - -#define XK_Win_L 0xFF5B /* Left-hand Windows */ -#define XK_Win_R 0xFF5C /* Right-hand Windows */ -#define XK_App 0xFF5D /* Menu key */ - -/* Misc Functions */ - -#define XK_Select 0xFF60 /* Select, mark */ -#define XK_Print 0xFF61 -#define XK_Execute 0xFF62 /* Execute, run, do */ -#define XK_Insert 0xFF63 /* Insert, insert here */ -#define XK_Undo 0xFF65 /* Undo, oops */ -#define XK_Redo 0xFF66 /* redo, again */ -#define XK_Menu 0xFF67 -#define XK_Find 0xFF68 /* Find, search */ -#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ -#define XK_Help 0xFF6A /* Help, ? */ -#define XK_Break 0xFF6B -#define XK_Mode_switch 0xFF7E /* Character set switch */ -#define XK_script_switch 0xFF7E /* Alias for mode_switch */ -#define XK_Num_Lock 0xFF7F - -/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ - -#define XK_KP_Space 0xFF80 /* space */ -#define XK_KP_Tab 0xFF89 -#define XK_KP_Enter 0xFF8D /* enter */ -#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ -#define XK_KP_F2 0xFF92 -#define XK_KP_F3 0xFF93 -#define XK_KP_F4 0xFF94 -#define XK_KP_Home 0xFF95 -#define XK_KP_Left 0xFF96 -#define XK_KP_Up 0xFF97 -#define XK_KP_Right 0xFF98 -#define XK_KP_Down 0xFF99 -#define XK_KP_Prior 0xFF9A -#define XK_KP_Page_Up 0xFF9A -#define XK_KP_Next 0xFF9B -#define XK_KP_Page_Down 0xFF9B -#define XK_KP_End 0xFF9C -#define XK_KP_Begin 0xFF9D -#define XK_KP_Insert 0xFF9E -#define XK_KP_Delete 0xFF9F -#define XK_KP_Equal 0xFFBD /* equals */ -#define XK_KP_Multiply 0xFFAA -#define XK_KP_Add 0xFFAB -#define XK_KP_Separator 0xFFAC /* separator, often comma */ -#define XK_KP_Subtract 0xFFAD -#define XK_KP_Decimal 0xFFAE -#define XK_KP_Divide 0xFFAF - -#define XK_KP_0 0xFFB0 -#define XK_KP_1 0xFFB1 -#define XK_KP_2 0xFFB2 -#define XK_KP_3 0xFFB3 -#define XK_KP_4 0xFFB4 -#define XK_KP_5 0xFFB5 -#define XK_KP_6 0xFFB6 -#define XK_KP_7 0xFFB7 -#define XK_KP_8 0xFFB8 -#define XK_KP_9 0xFFB9 - - - -/* - * Auxilliary Functions; note the duplicate definitions for left and right - * function keys; Sun keyboards and a few other manufactures have such - * function key groups on the left and/or right sides of the keyboard. - * We've not found a keyboard with more than 35 function keys total. - */ - -#define XK_F1 0xFFBE -#define XK_F2 0xFFBF -#define XK_F3 0xFFC0 -#define XK_F4 0xFFC1 -#define XK_F5 0xFFC2 -#define XK_F6 0xFFC3 -#define XK_F7 0xFFC4 -#define XK_F8 0xFFC5 -#define XK_F9 0xFFC6 -#define XK_F10 0xFFC7 -#define XK_F11 0xFFC8 -#define XK_L1 0xFFC8 -#define XK_F12 0xFFC9 -#define XK_L2 0xFFC9 -#define XK_F13 0xFFCA -#define XK_L3 0xFFCA -#define XK_F14 0xFFCB -#define XK_L4 0xFFCB -#define XK_F15 0xFFCC -#define XK_L5 0xFFCC -#define XK_F16 0xFFCD -#define XK_L6 0xFFCD -#define XK_F17 0xFFCE -#define XK_L7 0xFFCE -#define XK_F18 0xFFCF -#define XK_L8 0xFFCF -#define XK_F19 0xFFD0 -#define XK_L9 0xFFD0 -#define XK_F20 0xFFD1 -#define XK_L10 0xFFD1 -#define XK_F21 0xFFD2 -#define XK_R1 0xFFD2 -#define XK_F22 0xFFD3 -#define XK_R2 0xFFD3 -#define XK_F23 0xFFD4 -#define XK_R3 0xFFD4 -#define XK_F24 0xFFD5 -#define XK_R4 0xFFD5 -#define XK_F25 0xFFD6 -#define XK_R5 0xFFD6 -#define XK_F26 0xFFD7 -#define XK_R6 0xFFD7 -#define XK_F27 0xFFD8 -#define XK_R7 0xFFD8 -#define XK_F28 0xFFD9 -#define XK_R8 0xFFD9 -#define XK_F29 0xFFDA -#define XK_R9 0xFFDA -#define XK_F30 0xFFDB -#define XK_R10 0xFFDB -#define XK_F31 0xFFDC -#define XK_R11 0xFFDC -#define XK_F32 0xFFDD -#define XK_R12 0xFFDD -#define XK_F33 0xFFDE -#define XK_R13 0xFFDE -#define XK_F34 0xFFDF -#define XK_R14 0xFFDF -#define XK_F35 0xFFE0 -#define XK_R15 0xFFE0 - -/* Modifiers */ - -#define XK_Shift_L 0xFFE1 /* Left shift */ -#define XK_Shift_R 0xFFE2 /* Right shift */ -#define XK_Control_L 0xFFE3 /* Left control */ -#define XK_Control_R 0xFFE4 /* Right control */ -#define XK_Caps_Lock 0xFFE5 /* Caps lock */ -#define XK_Shift_Lock 0xFFE6 /* Shift lock */ - -#define XK_Meta_L 0xFFE7 /* Left meta */ -#define XK_Meta_R 0xFFE8 /* Right meta */ -#define XK_Alt_L 0xFFE9 /* Left alt */ -#define XK_Alt_R 0xFFEA /* Right alt */ -#define XK_Super_L 0xFFEB /* Left super */ -#define XK_Super_R 0xFFEC /* Right super */ -#define XK_Hyper_L 0xFFED /* Left hyper */ -#define XK_Hyper_R 0xFFEE /* Right hyper */ -#endif /* XK_MISCELLANY */ - -/* - * Latin 1 - * Byte 3 = 0 - */ -#ifdef XK_LATIN1 -#define XK_space 0x020 -#define XK_exclam 0x021 -#define XK_quotedbl 0x022 -#define XK_numbersign 0x023 -#define XK_dollar 0x024 -#define XK_percent 0x025 -#define XK_ampersand 0x026 -#define XK_apostrophe 0x027 -#define XK_quoteright 0x027 /* deprecated */ -#define XK_parenleft 0x028 -#define XK_parenright 0x029 -#define XK_asterisk 0x02a -#define XK_plus 0x02b -#define XK_comma 0x02c -#define XK_minus 0x02d -#define XK_period 0x02e -#define XK_slash 0x02f -#define XK_0 0x030 -#define XK_1 0x031 -#define XK_2 0x032 -#define XK_3 0x033 -#define XK_4 0x034 -#define XK_5 0x035 -#define XK_6 0x036 -#define XK_7 0x037 -#define XK_8 0x038 -#define XK_9 0x039 -#define XK_colon 0x03a -#define XK_semicolon 0x03b -#define XK_less 0x03c -#define XK_equal 0x03d -#define XK_greater 0x03e -#define XK_question 0x03f -#define XK_at 0x040 -#define XK_A 0x041 -#define XK_B 0x042 -#define XK_C 0x043 -#define XK_D 0x044 -#define XK_E 0x045 -#define XK_F 0x046 -#define XK_G 0x047 -#define XK_H 0x048 -#define XK_I 0x049 -#define XK_J 0x04a -#define XK_K 0x04b -#define XK_L 0x04c -#define XK_M 0x04d -#define XK_N 0x04e -#define XK_O 0x04f -#define XK_P 0x050 -#define XK_Q 0x051 -#define XK_R 0x052 -#define XK_S 0x053 -#define XK_T 0x054 -#define XK_U 0x055 -#define XK_V 0x056 -#define XK_W 0x057 -#define XK_X 0x058 -#define XK_Y 0x059 -#define XK_Z 0x05a -#define XK_bracketleft 0x05b -#define XK_backslash 0x05c -#define XK_bracketright 0x05d -#define XK_asciicircum 0x05e -#define XK_underscore 0x05f -#define XK_grave 0x060 -#define XK_quoteleft 0x060 /* deprecated */ -#define XK_a 0x061 -#define XK_b 0x062 -#define XK_c 0x063 -#define XK_d 0x064 -#define XK_e 0x065 -#define XK_f 0x066 -#define XK_g 0x067 -#define XK_h 0x068 -#define XK_i 0x069 -#define XK_j 0x06a -#define XK_k 0x06b -#define XK_l 0x06c -#define XK_m 0x06d -#define XK_n 0x06e -#define XK_o 0x06f -#define XK_p 0x070 -#define XK_q 0x071 -#define XK_r 0x072 -#define XK_s 0x073 -#define XK_t 0x074 -#define XK_u 0x075 -#define XK_v 0x076 -#define XK_w 0x077 -#define XK_x 0x078 -#define XK_y 0x079 -#define XK_z 0x07a -#define XK_braceleft 0x07b -#define XK_bar 0x07c -#define XK_braceright 0x07d -#define XK_asciitilde 0x07e - -#define XK_nobreakspace 0x0a0 -#define XK_exclamdown 0x0a1 -#define XK_cent 0x0a2 -#define XK_sterling 0x0a3 -#define XK_currency 0x0a4 -#define XK_yen 0x0a5 -#define XK_brokenbar 0x0a6 -#define XK_section 0x0a7 -#define XK_diaeresis 0x0a8 -#define XK_copyright 0x0a9 -#define XK_ordfeminine 0x0aa -#define XK_guillemotleft 0x0ab /* left angle quotation mark */ -#define XK_notsign 0x0ac -#define XK_hyphen 0x0ad -#define XK_registered 0x0ae -#define XK_macron 0x0af -#define XK_degree 0x0b0 -#define XK_plusminus 0x0b1 -#define XK_twosuperior 0x0b2 -#define XK_threesuperior 0x0b3 -#define XK_acute 0x0b4 -#define XK_mu 0x0b5 -#define XK_paragraph 0x0b6 -#define XK_periodcentered 0x0b7 -#define XK_cedilla 0x0b8 -#define XK_onesuperior 0x0b9 -#define XK_masculine 0x0ba -#define XK_guillemotright 0x0bb /* right angle quotation mark */ -#define XK_onequarter 0x0bc -#define XK_onehalf 0x0bd -#define XK_threequarters 0x0be -#define XK_questiondown 0x0bf -#define XK_Agrave 0x0c0 -#define XK_Aacute 0x0c1 -#define XK_Acircumflex 0x0c2 -#define XK_Atilde 0x0c3 -#define XK_Adiaeresis 0x0c4 -#define XK_Aring 0x0c5 -#define XK_AE 0x0c6 -#define XK_Ccedilla 0x0c7 -#define XK_Egrave 0x0c8 -#define XK_Eacute 0x0c9 -#define XK_Ecircumflex 0x0ca -#define XK_Ediaeresis 0x0cb -#define XK_Igrave 0x0cc -#define XK_Iacute 0x0cd -#define XK_Icircumflex 0x0ce -#define XK_Idiaeresis 0x0cf -#define XK_ETH 0x0d0 -#define XK_Eth 0x0d0 /* deprecated */ -#define XK_Ntilde 0x0d1 -#define XK_Ograve 0x0d2 -#define XK_Oacute 0x0d3 -#define XK_Ocircumflex 0x0d4 -#define XK_Otilde 0x0d5 -#define XK_Odiaeresis 0x0d6 -#define XK_multiply 0x0d7 -#define XK_Oslash 0x0d8 -#define XK_Ooblique 0x0d8 -#define XK_Ugrave 0x0d9 -#define XK_Uacute 0x0da -#define XK_Ucircumflex 0x0db -#define XK_Udiaeresis 0x0dc -#define XK_Yacute 0x0dd -#define XK_THORN 0x0de -#define XK_Thorn 0x0de /* deprecated */ -#define XK_ssharp 0x0df -#define XK_agrave 0x0e0 -#define XK_aacute 0x0e1 -#define XK_acircumflex 0x0e2 -#define XK_atilde 0x0e3 -#define XK_adiaeresis 0x0e4 -#define XK_aring 0x0e5 -#define XK_ae 0x0e6 -#define XK_ccedilla 0x0e7 -#define XK_egrave 0x0e8 -#define XK_eacute 0x0e9 -#define XK_ecircumflex 0x0ea -#define XK_ediaeresis 0x0eb -#define XK_igrave 0x0ec -#define XK_iacute 0x0ed -#define XK_icircumflex 0x0ee -#define XK_idiaeresis 0x0ef -#define XK_eth 0x0f0 -#define XK_ntilde 0x0f1 -#define XK_ograve 0x0f2 -#define XK_oacute 0x0f3 -#define XK_ocircumflex 0x0f4 -#define XK_otilde 0x0f5 -#define XK_odiaeresis 0x0f6 -#define XK_division 0x0f7 -#define XK_oslash 0x0f8 -#define XK_ugrave 0x0f9 -#define XK_uacute 0x0fa -#define XK_ucircumflex 0x0fb -#define XK_udiaeresis 0x0fc -#define XK_yacute 0x0fd -#define XK_thorn 0x0fe -#define XK_ydiaeresis 0x0ff -#endif /* XK_LATIN1 */ - -/* - * Latin 2 - * Byte 3 = 1 - */ - -#ifdef XK_LATIN2 -#define XK_Aogonek 0x1a1 -#define XK_breve 0x1a2 -#define XK_Lstroke 0x1a3 -#define XK_Lcaron 0x1a5 -#define XK_Sacute 0x1a6 -#define XK_Scaron 0x1a9 -#define XK_Scedilla 0x1aa -#define XK_Tcaron 0x1ab -#define XK_Zacute 0x1ac -#define XK_Zcaron 0x1ae -#define XK_Zabovedot 0x1af -#define XK_aogonek 0x1b1 -#define XK_ogonek 0x1b2 -#define XK_lstroke 0x1b3 -#define XK_lcaron 0x1b5 -#define XK_sacute 0x1b6 -#define XK_caron 0x1b7 -#define XK_scaron 0x1b9 -#define XK_scedilla 0x1ba -#define XK_tcaron 0x1bb -#define XK_zacute 0x1bc -#define XK_doubleacute 0x1bd -#define XK_zcaron 0x1be -#define XK_zabovedot 0x1bf -#define XK_Racute 0x1c0 -#define XK_Abreve 0x1c3 -#define XK_Lacute 0x1c5 -#define XK_Cacute 0x1c6 -#define XK_Ccaron 0x1c8 -#define XK_Eogonek 0x1ca -#define XK_Ecaron 0x1cc -#define XK_Dcaron 0x1cf -#define XK_Dstroke 0x1d0 -#define XK_Nacute 0x1d1 -#define XK_Ncaron 0x1d2 -#define XK_Odoubleacute 0x1d5 -#define XK_Rcaron 0x1d8 -#define XK_Uring 0x1d9 -#define XK_Udoubleacute 0x1db -#define XK_Tcedilla 0x1de -#define XK_racute 0x1e0 -#define XK_abreve 0x1e3 -#define XK_lacute 0x1e5 -#define XK_cacute 0x1e6 -#define XK_ccaron 0x1e8 -#define XK_eogonek 0x1ea -#define XK_ecaron 0x1ec -#define XK_dcaron 0x1ef -#define XK_dstroke 0x1f0 -#define XK_nacute 0x1f1 -#define XK_ncaron 0x1f2 -#define XK_odoubleacute 0x1f5 -#define XK_udoubleacute 0x1fb -#define XK_rcaron 0x1f8 -#define XK_uring 0x1f9 -#define XK_tcedilla 0x1fe -#define XK_abovedot 0x1ff -#endif /* XK_LATIN2 */ - -/* - * Latin 3 - * Byte 3 = 2 - */ - -#ifdef XK_LATIN3 -#define XK_Hstroke 0x2a1 -#define XK_Hcircumflex 0x2a6 -#define XK_Iabovedot 0x2a9 -#define XK_Gbreve 0x2ab -#define XK_Jcircumflex 0x2ac -#define XK_hstroke 0x2b1 -#define XK_hcircumflex 0x2b6 -#define XK_idotless 0x2b9 -#define XK_gbreve 0x2bb -#define XK_jcircumflex 0x2bc -#define XK_Cabovedot 0x2c5 -#define XK_Ccircumflex 0x2c6 -#define XK_Gabovedot 0x2d5 -#define XK_Gcircumflex 0x2d8 -#define XK_Ubreve 0x2dd -#define XK_Scircumflex 0x2de -#define XK_cabovedot 0x2e5 -#define XK_ccircumflex 0x2e6 -#define XK_gabovedot 0x2f5 -#define XK_gcircumflex 0x2f8 -#define XK_ubreve 0x2fd -#define XK_scircumflex 0x2fe -#endif /* XK_LATIN3 */ - - -/* - * Latin 4 - * Byte 3 = 3 - */ - -#ifdef XK_LATIN4 -#define XK_kra 0x3a2 -#define XK_kappa 0x3a2 /* deprecated */ -#define XK_Rcedilla 0x3a3 -#define XK_Itilde 0x3a5 -#define XK_Lcedilla 0x3a6 -#define XK_Emacron 0x3aa -#define XK_Gcedilla 0x3ab -#define XK_Tslash 0x3ac -#define XK_rcedilla 0x3b3 -#define XK_itilde 0x3b5 -#define XK_lcedilla 0x3b6 -#define XK_emacron 0x3ba -#define XK_gcedilla 0x3bb -#define XK_tslash 0x3bc -#define XK_ENG 0x3bd -#define XK_eng 0x3bf -#define XK_Amacron 0x3c0 -#define XK_Iogonek 0x3c7 -#define XK_Eabovedot 0x3cc -#define XK_Imacron 0x3cf -#define XK_Ncedilla 0x3d1 -#define XK_Omacron 0x3d2 -#define XK_Kcedilla 0x3d3 -#define XK_Uogonek 0x3d9 -#define XK_Utilde 0x3dd -#define XK_Umacron 0x3de -#define XK_amacron 0x3e0 -#define XK_iogonek 0x3e7 -#define XK_eabovedot 0x3ec -#define XK_imacron 0x3ef -#define XK_ncedilla 0x3f1 -#define XK_omacron 0x3f2 -#define XK_kcedilla 0x3f3 -#define XK_uogonek 0x3f9 -#define XK_utilde 0x3fd -#define XK_umacron 0x3fe -#endif /* XK_LATIN4 */ - -/* - * Katakana - * Byte 3 = 4 - */ - -#ifdef XK_KATAKANA -#define XK_overline 0x47e -#define XK_kana_fullstop 0x4a1 -#define XK_kana_openingbracket 0x4a2 -#define XK_kana_closingbracket 0x4a3 -#define XK_kana_comma 0x4a4 -#define XK_kana_conjunctive 0x4a5 -#define XK_kana_middledot 0x4a5 /* deprecated */ -#define XK_kana_WO 0x4a6 -#define XK_kana_a 0x4a7 -#define XK_kana_i 0x4a8 -#define XK_kana_u 0x4a9 -#define XK_kana_e 0x4aa -#define XK_kana_o 0x4ab -#define XK_kana_ya 0x4ac -#define XK_kana_yu 0x4ad -#define XK_kana_yo 0x4ae -#define XK_kana_tsu 0x4af -#define XK_kana_tu 0x4af /* deprecated */ -#define XK_prolongedsound 0x4b0 -#define XK_kana_A 0x4b1 -#define XK_kana_I 0x4b2 -#define XK_kana_U 0x4b3 -#define XK_kana_E 0x4b4 -#define XK_kana_O 0x4b5 -#define XK_kana_KA 0x4b6 -#define XK_kana_KI 0x4b7 -#define XK_kana_KU 0x4b8 -#define XK_kana_KE 0x4b9 -#define XK_kana_KO 0x4ba -#define XK_kana_SA 0x4bb -#define XK_kana_SHI 0x4bc -#define XK_kana_SU 0x4bd -#define XK_kana_SE 0x4be -#define XK_kana_SO 0x4bf -#define XK_kana_TA 0x4c0 -#define XK_kana_CHI 0x4c1 -#define XK_kana_TI 0x4c1 /* deprecated */ -#define XK_kana_TSU 0x4c2 -#define XK_kana_TU 0x4c2 /* deprecated */ -#define XK_kana_TE 0x4c3 -#define XK_kana_TO 0x4c4 -#define XK_kana_NA 0x4c5 -#define XK_kana_NI 0x4c6 -#define XK_kana_NU 0x4c7 -#define XK_kana_NE 0x4c8 -#define XK_kana_NO 0x4c9 -#define XK_kana_HA 0x4ca -#define XK_kana_HI 0x4cb -#define XK_kana_FU 0x4cc -#define XK_kana_HU 0x4cc /* deprecated */ -#define XK_kana_HE 0x4cd -#define XK_kana_HO 0x4ce -#define XK_kana_MA 0x4cf -#define XK_kana_MI 0x4d0 -#define XK_kana_MU 0x4d1 -#define XK_kana_ME 0x4d2 -#define XK_kana_MO 0x4d3 -#define XK_kana_YA 0x4d4 -#define XK_kana_YU 0x4d5 -#define XK_kana_YO 0x4d6 -#define XK_kana_RA 0x4d7 -#define XK_kana_RI 0x4d8 -#define XK_kana_RU 0x4d9 -#define XK_kana_RE 0x4da -#define XK_kana_RO 0x4db -#define XK_kana_WA 0x4dc -#define XK_kana_N 0x4dd -#define XK_voicedsound 0x4de -#define XK_semivoicedsound 0x4df -#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_KATAKANA */ - -/* - * Arabic - * Byte 3 = 5 - */ - -#ifdef XK_ARABIC -#define XK_Arabic_comma 0x5ac -#define XK_Arabic_semicolon 0x5bb -#define XK_Arabic_question_mark 0x5bf -#define XK_Arabic_hamza 0x5c1 -#define XK_Arabic_maddaonalef 0x5c2 -#define XK_Arabic_hamzaonalef 0x5c3 -#define XK_Arabic_hamzaonwaw 0x5c4 -#define XK_Arabic_hamzaunderalef 0x5c5 -#define XK_Arabic_hamzaonyeh 0x5c6 -#define XK_Arabic_alef 0x5c7 -#define XK_Arabic_beh 0x5c8 -#define XK_Arabic_tehmarbuta 0x5c9 -#define XK_Arabic_teh 0x5ca -#define XK_Arabic_theh 0x5cb -#define XK_Arabic_jeem 0x5cc -#define XK_Arabic_hah 0x5cd -#define XK_Arabic_khah 0x5ce -#define XK_Arabic_dal 0x5cf -#define XK_Arabic_thal 0x5d0 -#define XK_Arabic_ra 0x5d1 -#define XK_Arabic_zain 0x5d2 -#define XK_Arabic_seen 0x5d3 -#define XK_Arabic_sheen 0x5d4 -#define XK_Arabic_sad 0x5d5 -#define XK_Arabic_dad 0x5d6 -#define XK_Arabic_tah 0x5d7 -#define XK_Arabic_zah 0x5d8 -#define XK_Arabic_ain 0x5d9 -#define XK_Arabic_ghain 0x5da -#define XK_Arabic_tatweel 0x5e0 -#define XK_Arabic_feh 0x5e1 -#define XK_Arabic_qaf 0x5e2 -#define XK_Arabic_kaf 0x5e3 -#define XK_Arabic_lam 0x5e4 -#define XK_Arabic_meem 0x5e5 -#define XK_Arabic_noon 0x5e6 -#define XK_Arabic_ha 0x5e7 -#define XK_Arabic_heh 0x5e7 /* deprecated */ -#define XK_Arabic_waw 0x5e8 -#define XK_Arabic_alefmaksura 0x5e9 -#define XK_Arabic_yeh 0x5ea -#define XK_Arabic_fathatan 0x5eb -#define XK_Arabic_dammatan 0x5ec -#define XK_Arabic_kasratan 0x5ed -#define XK_Arabic_fatha 0x5ee -#define XK_Arabic_damma 0x5ef -#define XK_Arabic_kasra 0x5f0 -#define XK_Arabic_shadda 0x5f1 -#define XK_Arabic_sukun 0x5f2 -#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_ARABIC */ - -/* - * Cyrillic - * Byte 3 = 6 - */ -#ifdef XK_CYRILLIC -#define XK_Serbian_dje 0x6a1 -#define XK_Macedonia_gje 0x6a2 -#define XK_Cyrillic_io 0x6a3 -#define XK_Ukrainian_ie 0x6a4 -#define XK_Ukranian_je 0x6a4 /* deprecated */ -#define XK_Macedonia_dse 0x6a5 -#define XK_Ukrainian_i 0x6a6 -#define XK_Ukranian_i 0x6a6 /* deprecated */ -#define XK_Ukrainian_yi 0x6a7 -#define XK_Ukranian_yi 0x6a7 /* deprecated */ -#define XK_Cyrillic_je 0x6a8 -#define XK_Serbian_je 0x6a8 /* deprecated */ -#define XK_Cyrillic_lje 0x6a9 -#define XK_Serbian_lje 0x6a9 /* deprecated */ -#define XK_Cyrillic_nje 0x6aa -#define XK_Serbian_nje 0x6aa /* deprecated */ -#define XK_Serbian_tshe 0x6ab -#define XK_Macedonia_kje 0x6ac -#define XK_Byelorussian_shortu 0x6ae -#define XK_Cyrillic_dzhe 0x6af -#define XK_Serbian_dze 0x6af /* deprecated */ -#define XK_numerosign 0x6b0 -#define XK_Serbian_DJE 0x6b1 -#define XK_Macedonia_GJE 0x6b2 -#define XK_Cyrillic_IO 0x6b3 -#define XK_Ukrainian_IE 0x6b4 -#define XK_Ukranian_JE 0x6b4 /* deprecated */ -#define XK_Macedonia_DSE 0x6b5 -#define XK_Ukrainian_I 0x6b6 -#define XK_Ukranian_I 0x6b6 /* deprecated */ -#define XK_Ukrainian_YI 0x6b7 -#define XK_Ukranian_YI 0x6b7 /* deprecated */ -#define XK_Cyrillic_JE 0x6b8 -#define XK_Serbian_JE 0x6b8 /* deprecated */ -#define XK_Cyrillic_LJE 0x6b9 -#define XK_Serbian_LJE 0x6b9 /* deprecated */ -#define XK_Cyrillic_NJE 0x6ba -#define XK_Serbian_NJE 0x6ba /* deprecated */ -#define XK_Serbian_TSHE 0x6bb -#define XK_Macedonia_KJE 0x6bc -#define XK_Byelorussian_SHORTU 0x6be -#define XK_Cyrillic_DZHE 0x6bf -#define XK_Serbian_DZE 0x6bf /* deprecated */ -#define XK_Cyrillic_yu 0x6c0 -#define XK_Cyrillic_a 0x6c1 -#define XK_Cyrillic_be 0x6c2 -#define XK_Cyrillic_tse 0x6c3 -#define XK_Cyrillic_de 0x6c4 -#define XK_Cyrillic_ie 0x6c5 -#define XK_Cyrillic_ef 0x6c6 -#define XK_Cyrillic_ghe 0x6c7 -#define XK_Cyrillic_ha 0x6c8 -#define XK_Cyrillic_i 0x6c9 -#define XK_Cyrillic_shorti 0x6ca -#define XK_Cyrillic_ka 0x6cb -#define XK_Cyrillic_el 0x6cc -#define XK_Cyrillic_em 0x6cd -#define XK_Cyrillic_en 0x6ce -#define XK_Cyrillic_o 0x6cf -#define XK_Cyrillic_pe 0x6d0 -#define XK_Cyrillic_ya 0x6d1 -#define XK_Cyrillic_er 0x6d2 -#define XK_Cyrillic_es 0x6d3 -#define XK_Cyrillic_te 0x6d4 -#define XK_Cyrillic_u 0x6d5 -#define XK_Cyrillic_zhe 0x6d6 -#define XK_Cyrillic_ve 0x6d7 -#define XK_Cyrillic_softsign 0x6d8 -#define XK_Cyrillic_yeru 0x6d9 -#define XK_Cyrillic_ze 0x6da -#define XK_Cyrillic_sha 0x6db -#define XK_Cyrillic_e 0x6dc -#define XK_Cyrillic_shcha 0x6dd -#define XK_Cyrillic_che 0x6de -#define XK_Cyrillic_hardsign 0x6df -#define XK_Cyrillic_YU 0x6e0 -#define XK_Cyrillic_A 0x6e1 -#define XK_Cyrillic_BE 0x6e2 -#define XK_Cyrillic_TSE 0x6e3 -#define XK_Cyrillic_DE 0x6e4 -#define XK_Cyrillic_IE 0x6e5 -#define XK_Cyrillic_EF 0x6e6 -#define XK_Cyrillic_GHE 0x6e7 -#define XK_Cyrillic_HA 0x6e8 -#define XK_Cyrillic_I 0x6e9 -#define XK_Cyrillic_SHORTI 0x6ea -#define XK_Cyrillic_KA 0x6eb -#define XK_Cyrillic_EL 0x6ec -#define XK_Cyrillic_EM 0x6ed -#define XK_Cyrillic_EN 0x6ee -#define XK_Cyrillic_O 0x6ef -#define XK_Cyrillic_PE 0x6f0 -#define XK_Cyrillic_YA 0x6f1 -#define XK_Cyrillic_ER 0x6f2 -#define XK_Cyrillic_ES 0x6f3 -#define XK_Cyrillic_TE 0x6f4 -#define XK_Cyrillic_U 0x6f5 -#define XK_Cyrillic_ZHE 0x6f6 -#define XK_Cyrillic_VE 0x6f7 -#define XK_Cyrillic_SOFTSIGN 0x6f8 -#define XK_Cyrillic_YERU 0x6f9 -#define XK_Cyrillic_ZE 0x6fa -#define XK_Cyrillic_SHA 0x6fb -#define XK_Cyrillic_E 0x6fc -#define XK_Cyrillic_SHCHA 0x6fd -#define XK_Cyrillic_CHE 0x6fe -#define XK_Cyrillic_HARDSIGN 0x6ff -#endif /* XK_CYRILLIC */ - -/* - * Greek - * Byte 3 = 7 - */ - -#ifdef XK_GREEK -#define XK_Greek_ALPHAaccent 0x7a1 -#define XK_Greek_EPSILONaccent 0x7a2 -#define XK_Greek_ETAaccent 0x7a3 -#define XK_Greek_IOTAaccent 0x7a4 -#define XK_Greek_IOTAdieresis 0x7a5 -#define XK_Greek_IOTAdiaeresis 0x7a5 -#define XK_Greek_OMICRONaccent 0x7a7 -#define XK_Greek_UPSILONaccent 0x7a8 -#define XK_Greek_UPSILONdieresis 0x7a9 -#define XK_Greek_OMEGAaccent 0x7ab -#define XK_Greek_accentdieresis 0x7ae -#define XK_Greek_horizbar 0x7af -#define XK_Greek_alphaaccent 0x7b1 -#define XK_Greek_epsilonaccent 0x7b2 -#define XK_Greek_etaaccent 0x7b3 -#define XK_Greek_iotaaccent 0x7b4 -#define XK_Greek_iotadieresis 0x7b5 -#define XK_Greek_iotaaccentdieresis 0x7b6 -#define XK_Greek_omicronaccent 0x7b7 -#define XK_Greek_upsilonaccent 0x7b8 -#define XK_Greek_upsilondieresis 0x7b9 -#define XK_Greek_upsilonaccentdieresis 0x7ba -#define XK_Greek_omegaaccent 0x7bb -#define XK_Greek_ALPHA 0x7c1 -#define XK_Greek_BETA 0x7c2 -#define XK_Greek_GAMMA 0x7c3 -#define XK_Greek_DELTA 0x7c4 -#define XK_Greek_EPSILON 0x7c5 -#define XK_Greek_ZETA 0x7c6 -#define XK_Greek_ETA 0x7c7 -#define XK_Greek_THETA 0x7c8 -#define XK_Greek_IOTA 0x7c9 -#define XK_Greek_KAPPA 0x7ca -#define XK_Greek_LAMDA 0x7cb -#define XK_Greek_LAMBDA 0x7cb -#define XK_Greek_MU 0x7cc -#define XK_Greek_NU 0x7cd -#define XK_Greek_XI 0x7ce -#define XK_Greek_OMICRON 0x7cf -#define XK_Greek_PI 0x7d0 -#define XK_Greek_RHO 0x7d1 -#define XK_Greek_SIGMA 0x7d2 -#define XK_Greek_TAU 0x7d4 -#define XK_Greek_UPSILON 0x7d5 -#define XK_Greek_PHI 0x7d6 -#define XK_Greek_CHI 0x7d7 -#define XK_Greek_PSI 0x7d8 -#define XK_Greek_OMEGA 0x7d9 -#define XK_Greek_alpha 0x7e1 -#define XK_Greek_beta 0x7e2 -#define XK_Greek_gamma 0x7e3 -#define XK_Greek_delta 0x7e4 -#define XK_Greek_epsilon 0x7e5 -#define XK_Greek_zeta 0x7e6 -#define XK_Greek_eta 0x7e7 -#define XK_Greek_theta 0x7e8 -#define XK_Greek_iota 0x7e9 -#define XK_Greek_kappa 0x7ea -#define XK_Greek_lamda 0x7eb -#define XK_Greek_lambda 0x7eb -#define XK_Greek_mu 0x7ec -#define XK_Greek_nu 0x7ed -#define XK_Greek_xi 0x7ee -#define XK_Greek_omicron 0x7ef -#define XK_Greek_pi 0x7f0 -#define XK_Greek_rho 0x7f1 -#define XK_Greek_sigma 0x7f2 -#define XK_Greek_finalsmallsigma 0x7f3 -#define XK_Greek_tau 0x7f4 -#define XK_Greek_upsilon 0x7f5 -#define XK_Greek_phi 0x7f6 -#define XK_Greek_chi 0x7f7 -#define XK_Greek_psi 0x7f8 -#define XK_Greek_omega 0x7f9 -#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_GREEK */ - -/* - * Technical - * Byte 3 = 8 - */ - -#ifdef XK_TECHNICAL -#define XK_leftradical 0x8a1 -#define XK_topleftradical 0x8a2 -#define XK_horizconnector 0x8a3 -#define XK_topintegral 0x8a4 -#define XK_botintegral 0x8a5 -#define XK_vertconnector 0x8a6 -#define XK_topleftsqbracket 0x8a7 -#define XK_botleftsqbracket 0x8a8 -#define XK_toprightsqbracket 0x8a9 -#define XK_botrightsqbracket 0x8aa -#define XK_topleftparens 0x8ab -#define XK_botleftparens 0x8ac -#define XK_toprightparens 0x8ad -#define XK_botrightparens 0x8ae -#define XK_leftmiddlecurlybrace 0x8af -#define XK_rightmiddlecurlybrace 0x8b0 -#define XK_topleftsummation 0x8b1 -#define XK_botleftsummation 0x8b2 -#define XK_topvertsummationconnector 0x8b3 -#define XK_botvertsummationconnector 0x8b4 -#define XK_toprightsummation 0x8b5 -#define XK_botrightsummation 0x8b6 -#define XK_rightmiddlesummation 0x8b7 -#define XK_lessthanequal 0x8bc -#define XK_notequal 0x8bd -#define XK_greaterthanequal 0x8be -#define XK_integral 0x8bf -#define XK_therefore 0x8c0 -#define XK_variation 0x8c1 -#define XK_infinity 0x8c2 -#define XK_nabla 0x8c5 -#define XK_approximate 0x8c8 -#define XK_similarequal 0x8c9 -#define XK_ifonlyif 0x8cd -#define XK_implies 0x8ce -#define XK_identical 0x8cf -#define XK_radical 0x8d6 -#define XK_includedin 0x8da -#define XK_includes 0x8db -#define XK_intersection 0x8dc -#define XK_union 0x8dd -#define XK_logicaland 0x8de -#define XK_logicalor 0x8df -#define XK_partialderivative 0x8ef -#define XK_function 0x8f6 -#define XK_leftarrow 0x8fb -#define XK_uparrow 0x8fc -#define XK_rightarrow 0x8fd -#define XK_downarrow 0x8fe -#endif /* XK_TECHNICAL */ - -/* - * Special - * Byte 3 = 9 - */ - -#ifdef XK_SPECIAL -#define XK_blank 0x9df -#define XK_soliddiamond 0x9e0 -#define XK_checkerboard 0x9e1 -#define XK_ht 0x9e2 -#define XK_ff 0x9e3 -#define XK_cr 0x9e4 -#define XK_lf 0x9e5 -#define XK_nl 0x9e8 -#define XK_vt 0x9e9 -#define XK_lowrightcorner 0x9ea -#define XK_uprightcorner 0x9eb -#define XK_upleftcorner 0x9ec -#define XK_lowleftcorner 0x9ed -#define XK_crossinglines 0x9ee -#define XK_horizlinescan1 0x9ef -#define XK_horizlinescan3 0x9f0 -#define XK_horizlinescan5 0x9f1 -#define XK_horizlinescan7 0x9f2 -#define XK_horizlinescan9 0x9f3 -#define XK_leftt 0x9f4 -#define XK_rightt 0x9f5 -#define XK_bott 0x9f6 -#define XK_topt 0x9f7 -#define XK_vertbar 0x9f8 -#endif /* XK_SPECIAL */ - -/* - * Publishing - * Byte 3 = a - */ - -#ifdef XK_PUBLISHING -#define XK_emspace 0xaa1 -#define XK_enspace 0xaa2 -#define XK_em3space 0xaa3 -#define XK_em4space 0xaa4 -#define XK_digitspace 0xaa5 -#define XK_punctspace 0xaa6 -#define XK_thinspace 0xaa7 -#define XK_hairspace 0xaa8 -#define XK_emdash 0xaa9 -#define XK_endash 0xaaa -#define XK_signifblank 0xaac -#define XK_ellipsis 0xaae -#define XK_doubbaselinedot 0xaaf -#define XK_onethird 0xab0 -#define XK_twothirds 0xab1 -#define XK_onefifth 0xab2 -#define XK_twofifths 0xab3 -#define XK_threefifths 0xab4 -#define XK_fourfifths 0xab5 -#define XK_onesixth 0xab6 -#define XK_fivesixths 0xab7 -#define XK_careof 0xab8 -#define XK_figdash 0xabb -#define XK_leftanglebracket 0xabc -#define XK_decimalpoint 0xabd -#define XK_rightanglebracket 0xabe -#define XK_marker 0xabf -#define XK_oneeighth 0xac3 -#define XK_threeeighths 0xac4 -#define XK_fiveeighths 0xac5 -#define XK_seveneighths 0xac6 -#define XK_trademark 0xac9 -#define XK_signaturemark 0xaca -#define XK_trademarkincircle 0xacb -#define XK_leftopentriangle 0xacc -#define XK_rightopentriangle 0xacd -#define XK_emopencircle 0xace -#define XK_emopenrectangle 0xacf -#define XK_leftsinglequotemark 0xad0 -#define XK_rightsinglequotemark 0xad1 -#define XK_leftdoublequotemark 0xad2 -#define XK_rightdoublequotemark 0xad3 -#define XK_prescription 0xad4 -#define XK_minutes 0xad6 -#define XK_seconds 0xad7 -#define XK_latincross 0xad9 -#define XK_hexagram 0xada -#define XK_filledrectbullet 0xadb -#define XK_filledlefttribullet 0xadc -#define XK_filledrighttribullet 0xadd -#define XK_emfilledcircle 0xade -#define XK_emfilledrect 0xadf -#define XK_enopencircbullet 0xae0 -#define XK_enopensquarebullet 0xae1 -#define XK_openrectbullet 0xae2 -#define XK_opentribulletup 0xae3 -#define XK_opentribulletdown 0xae4 -#define XK_openstar 0xae5 -#define XK_enfilledcircbullet 0xae6 -#define XK_enfilledsqbullet 0xae7 -#define XK_filledtribulletup 0xae8 -#define XK_filledtribulletdown 0xae9 -#define XK_leftpointer 0xaea -#define XK_rightpointer 0xaeb -#define XK_club 0xaec -#define XK_diamond 0xaed -#define XK_heart 0xaee -#define XK_maltesecross 0xaf0 -#define XK_dagger 0xaf1 -#define XK_doubledagger 0xaf2 -#define XK_checkmark 0xaf3 -#define XK_ballotcross 0xaf4 -#define XK_musicalsharp 0xaf5 -#define XK_musicalflat 0xaf6 -#define XK_malesymbol 0xaf7 -#define XK_femalesymbol 0xaf8 -#define XK_telephone 0xaf9 -#define XK_telephonerecorder 0xafa -#define XK_phonographcopyright 0xafb -#define XK_caret 0xafc -#define XK_singlelowquotemark 0xafd -#define XK_doublelowquotemark 0xafe -#define XK_cursor 0xaff -#endif /* XK_PUBLISHING */ - -/* - * APL - * Byte 3 = b - */ - -#ifdef XK_APL -#define XK_leftcaret 0xba3 -#define XK_rightcaret 0xba6 -#define XK_downcaret 0xba8 -#define XK_upcaret 0xba9 -#define XK_overbar 0xbc0 -#define XK_downtack 0xbc2 -#define XK_upshoe 0xbc3 -#define XK_downstile 0xbc4 -#define XK_underbar 0xbc6 -#define XK_jot 0xbca -#define XK_quad 0xbcc -#define XK_uptack 0xbce -#define XK_circle 0xbcf -#define XK_upstile 0xbd3 -#define XK_downshoe 0xbd6 -#define XK_rightshoe 0xbd8 -#define XK_leftshoe 0xbda -#define XK_lefttack 0xbdc -#define XK_righttack 0xbfc -#endif /* XK_APL */ - -/* - * Hebrew - * Byte 3 = c - */ - -#ifdef XK_HEBREW -#define XK_hebrew_doublelowline 0xcdf -#define XK_hebrew_aleph 0xce0 -#define XK_hebrew_bet 0xce1 -#define XK_hebrew_beth 0xce1 /* deprecated */ -#define XK_hebrew_gimel 0xce2 -#define XK_hebrew_gimmel 0xce2 /* deprecated */ -#define XK_hebrew_dalet 0xce3 -#define XK_hebrew_daleth 0xce3 /* deprecated */ -#define XK_hebrew_he 0xce4 -#define XK_hebrew_waw 0xce5 -#define XK_hebrew_zain 0xce6 -#define XK_hebrew_zayin 0xce6 /* deprecated */ -#define XK_hebrew_chet 0xce7 -#define XK_hebrew_het 0xce7 /* deprecated */ -#define XK_hebrew_tet 0xce8 -#define XK_hebrew_teth 0xce8 /* deprecated */ -#define XK_hebrew_yod 0xce9 -#define XK_hebrew_finalkaph 0xcea -#define XK_hebrew_kaph 0xceb -#define XK_hebrew_lamed 0xcec -#define XK_hebrew_finalmem 0xced -#define XK_hebrew_mem 0xcee -#define XK_hebrew_finalnun 0xcef -#define XK_hebrew_nun 0xcf0 -#define XK_hebrew_samech 0xcf1 -#define XK_hebrew_samekh 0xcf1 /* deprecated */ -#define XK_hebrew_ayin 0xcf2 -#define XK_hebrew_finalpe 0xcf3 -#define XK_hebrew_pe 0xcf4 -#define XK_hebrew_finalzade 0xcf5 -#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ -#define XK_hebrew_zade 0xcf6 -#define XK_hebrew_zadi 0xcf6 /* deprecated */ -#define XK_hebrew_qoph 0xcf7 -#define XK_hebrew_kuf 0xcf7 /* deprecated */ -#define XK_hebrew_resh 0xcf8 -#define XK_hebrew_shin 0xcf9 -#define XK_hebrew_taw 0xcfa -#define XK_hebrew_taf 0xcfa /* deprecated */ -#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_HEBREW */ - -/* Multimedia keys, defined same as on Linux - * /usr/include/pkg/libxkbcommon/xkbcommon/xkbcommon-keysyms.h - */ - -#define XK_XF86AudioLowerVolume 0x1008FF11 /* Volume control down */ -#define XK_XF86AudioMute 0x1008FF12 /* Mute sound from the system */ -#define XK_XF86AudioRaiseVolume 0x1008FF13 /* Volume control up */ -#define XK_XF86AudioPlay 0x1008FF14 /* Start playing of audio > */ -#define XK_XF86AudioStop 0x1008FF15 /* Stop playing audio */ -#define XK_XF86AudioPrev 0x1008FF16 /* Previous track */ -#define XK_XF86AudioNext 0x1008FF17 /* Next track */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tcl.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tcl.h deleted file mode 100644 index 458072aeb..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tcl.h +++ /dev/null @@ -1,2662 +0,0 @@ -/* - * tcl.h -- - * - * This header file describes the externally-visible facilities of the - * Tcl interpreter. - * - * Copyright (c) 1987-1994 The Regents of the University of California. - * Copyright (c) 1993-1996 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCL -#define _TCL - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * The following defines are used to indicate the various release levels. - */ - -#define TCL_ALPHA_RELEASE 0 -#define TCL_BETA_RELEASE 1 -#define TCL_FINAL_RELEASE 2 - -/* - * When version numbers change here, must also go into the following files and - * update the version numbers: - * - * library/init.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/tcl.m4 (not patchlevel) - * README (sections 0 and 2, with and without separator) - * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) (sections 0 and 2) - * unix/tcl.spec (1 LOC patch) - * tools/tcl.hpj.in (not patchlevel, for windows installer) - */ - -#define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 6 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 10 - -#define TCL_VERSION "8.6" -#define TCL_PATCH_LEVEL "8.6.10" - -/* - *---------------------------------------------------------------------------- - * The following definitions set up the proper options for Windows compilers. - * We use this method because there is no autoconf equivalent. - */ - -#ifdef _WIN32 -# ifndef __WIN32__ -# define __WIN32__ -# endif -# ifndef WIN32 -# define WIN32 -# endif -#endif - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * A special definition used to allow this header file to be included from - * windows resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool. - * - * Resource compilers don't like all the C stuff, like typedefs and function - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -/* - * Special macro to define mutexes, that doesn't do anything if we are not - * using threads. - */ - -#ifdef TCL_THREADS -#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; -#else -#define TCL_DECLARE_MUTEX(name) -#endif - -/* - * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and - * SEEK_END, all #define'd by stdio.h . - * - * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h - * providing it for them rather than #include-ing it themselves as they - * should, so also for their sake, we keep the #include to be consistent with - * prior Tcl releases. - */ - -#include - -/* - *---------------------------------------------------------------------------- - * Support for functions with a variable number of arguments. - * - * The following TCL_VARARGS* macros are to support old extensions - * written for older versions of Tcl where the macros permitted - * support for the varargs.h system as well as stdarg.h . - * - * New code should just directly be written to use stdarg.h conventions. - */ - -#include -#ifndef TCL_NO_DEPRECATED -# define TCL_VARARGS(type, name) (type name, ...) -# define TCL_VARARGS_DEF(type, name) (type name, ...) -# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) -#endif -#if defined(__GNUC__) && (__GNUC__ > 2) -# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b))) -# define TCL_NORETURN __attribute__ ((noreturn)) -# if defined(BUILD_tcl) || defined(BUILD_tk) -# define TCL_NORETURN1 __attribute__ ((noreturn)) -# else -# define TCL_NORETURN1 /* nothing */ -# endif -#else -# define TCL_FORMAT_PRINTF(a,b) -# if defined(_MSC_VER) && (_MSC_VER >= 1310) -# define TCL_NORETURN _declspec(noreturn) -# else -# define TCL_NORETURN /* nothing */ -# endif -# define TCL_NORETURN1 /* nothing */ -#endif - -/* - * Allow a part of Tcl's API to be explicitly marked as deprecated. - * - * Used to make TIP 330/336 generate moans even if people use the - * compatibility macros. Change your code, guys! We won't support you forever. - */ - -#if defined(__GNUC__) && ((__GNUC__ >= 4) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1))) -# if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 5)) -# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg))) -# else -# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__)) -# endif -#else -# define TCL_DEPRECATED_API(msg) /* nothing portable */ -#endif - -/* - *---------------------------------------------------------------------------- - * Macros used to declare a function to be exported by a DLL. Used by Windows, - * maps to no-op declarations on non-Windows systems. The default build on - * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be - * nonempty. To build a static library, the macro STATIC_BUILD should be - * defined. - * - * Note: when building static but linking dynamically to MSVCRT we must still - * correctly decorate the C library imported function. Use CRTIMPORT - * for this purpose. _DLL is defined by the compiler when linking to - * MSVCRT. - */ - -#if (defined(_WIN32) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) -# define HAVE_DECLSPEC 1 -# ifdef STATIC_BUILD -# define DLLIMPORT -# define DLLEXPORT -# ifdef _DLL -# define CRTIMPORT __declspec(dllimport) -# else -# define CRTIMPORT -# endif -# else -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# define CRTIMPORT __declspec(dllimport) -# endif -#else -# define DLLIMPORT -# if defined(__GNUC__) && __GNUC__ > 3 -# define DLLEXPORT __attribute__ ((visibility("default"))) -# else -# define DLLEXPORT -# endif -# define CRTIMPORT -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the name of - * a library we are building, is set on the compile line for sources that are - * to be placed in the library. When this macro is set, the storage class will - * be set to DLLEXPORT. At the end of the header file, the storage class will - * be reset to DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * The following _ANSI_ARGS_ macro is to support old extensions - * written for older versions of Tcl where it permitted support - * for compilers written in the pre-prototype era of C. - * - * New code should use prototypes. - */ - -#ifndef TCL_NO_DEPRECATED -# undef _ANSI_ARGS_ -# define _ANSI_ARGS_(x) x -#endif - -/* - * Definitions that allow this header file to be used either with or without - * ANSI C features. - */ - -#ifndef INLINE -# define INLINE -#endif - -#ifdef NO_CONST -# ifndef const -# define const -# endif -#endif -#ifndef CONST -# define CONST const -#endif - -#ifdef USE_NON_CONST -# ifdef USE_COMPAT_CONST -# error define at most one of USE_NON_CONST and USE_COMPAT_CONST -# endif -# define CONST84 -# define CONST84_RETURN -#else -# ifdef USE_COMPAT_CONST -# define CONST84 -# define CONST84_RETURN const -# else -# define CONST84 const -# define CONST84_RETURN const -# endif -#endif - -#ifndef CONST86 -# define CONST86 CONST84 -#endif - -/* - * Make sure EXTERN isn't defined elsewhere. - */ - -#ifdef EXTERN -# undef EXTERN -#endif /* EXTERN */ - -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - *---------------------------------------------------------------------------- - * The following code is copied from winnt.h. If we don't replicate it here, - * then can't be included after tcl.h, since tcl.h also defines - * VOID. This block is skipped under Cygwin and Mingw. - */ - -#if defined(_WIN32) && !defined(HAVE_WINNT_IGNORE_VOID) -#ifndef VOID -#define VOID void -typedef char CHAR; -typedef short SHORT; -typedef long LONG; -#endif -#endif /* _WIN32 && !HAVE_WINNT_IGNORE_VOID */ - -/* - * Macro to use instead of "void" for arguments that must have type "void *" - * in ANSI C; maps them to type "char *" in non-ANSI systems. - */ - -#ifndef __VXWORKS__ -# ifndef NO_VOID -# define VOID void -# else -# define VOID char -# endif -#endif - -/* - * Miscellaneous declarations. - */ - -#ifndef _CLIENTDATA -# ifndef NO_VOID - typedef void *ClientData; -# else - typedef int *ClientData; -# endif -# define _CLIENTDATA -#endif - -/* - * Darwin specific configure overrides (to support fat compiles, where - * configure runs only once for multiple architectures): - */ - -#ifdef __APPLE__ -# ifdef __LP64__ -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_IS_LONG 1 -# define TCL_CFG_DO64BIT 1 -# else /* !__LP64__ */ -# define TCL_WIDE_INT_TYPE long long -# undef TCL_WIDE_INT_IS_LONG -# undef TCL_CFG_DO64BIT -# endif /* __LP64__ */ -# undef HAVE_STRUCT_STAT64 -#endif /* __APPLE__ */ - -/* - * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define - * Tcl_WideUInt to be the unsigned variant of that type (assuming that where - * we have one, we can have the other.) - * - * Also defines the following macros: - * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a - * LP64 system such as modern Solaris or Linux ... not including Win64) - * Tcl_WideAsLong - forgetful converter from wideInt to long. - * Tcl_LongAsWide - sign-extending converter from long to wideInt. - * Tcl_WideAsDouble - converter from wideInt to double. - * Tcl_DoubleAsWide - converter from double to wideInt. - * - * The following invariant should hold for any long value 'longVal': - * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) - * - * Note on converting between Tcl_WideInt and strings. This implementation (in - * tclObj.c) depends on the function - * sprintf(...,"%" TCL_LL_MODIFIER "d",...). - */ - -#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) -# if defined(_WIN32) -# define TCL_WIDE_INT_TYPE __int64 -# ifdef __BORLANDC__ -# define TCL_LL_MODIFIER "L" -# else /* __BORLANDC__ */ -# define TCL_LL_MODIFIER "I64" -# endif /* __BORLANDC__ */ -# elif defined(__GNUC__) -# define TCL_WIDE_INT_TYPE long long -# define TCL_LL_MODIFIER "ll" -# else /* ! _WIN32 && ! __GNUC__ */ -/* - * Don't know what platform it is and configure hasn't discovered what is - * going on for us. Try to guess... - */ -# include -# if (INT_MAX < LONG_MAX) -# define TCL_WIDE_INT_IS_LONG 1 -# else -# define TCL_WIDE_INT_TYPE long long -# endif -# endif /* _WIN32 */ -#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ -#ifdef TCL_WIDE_INT_IS_LONG -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_TYPE long -#endif /* TCL_WIDE_INT_IS_LONG */ - -typedef TCL_WIDE_INT_TYPE Tcl_WideInt; -typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; - -#ifdef TCL_WIDE_INT_IS_LONG -# define Tcl_WideAsLong(val) ((long)(val)) -# define Tcl_LongAsWide(val) ((long)(val)) -# define Tcl_WideAsDouble(val) ((double)((long)(val))) -# define Tcl_DoubleAsWide(val) ((long)((double)(val))) -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "l" -# endif /* !TCL_LL_MODIFIER */ -#else /* TCL_WIDE_INT_IS_LONG */ -/* - * The next short section of defines are only done when not running on Windows - * or some other strange platform. - */ -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "ll" -# endif /* !TCL_LL_MODIFIER */ -# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) -# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) -# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) -# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -#if defined(_WIN32) -# ifdef __BORLANDC__ - typedef struct stati64 Tcl_StatBuf; -# elif defined(_WIN64) || defined(_USE_64BIT_TIME_T) - typedef struct __stat64 Tcl_StatBuf; -# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) - typedef struct _stati64 Tcl_StatBuf; -# else - typedef struct _stat32i64 Tcl_StatBuf; -# endif /* _MSC_VER < 1400 */ -#elif defined(__CYGWIN__) - typedef struct { - dev_t st_dev; - unsigned short st_ino; - unsigned short st_mode; - short st_nlink; - short st_uid; - short st_gid; - /* Here is a 2-byte gap */ - dev_t st_rdev; - /* Here is a 4-byte gap */ - long long st_size; - struct {long tv_sec;} st_atim; - struct {long tv_sec;} st_mtim; - struct {long tv_sec;} st_ctim; - /* Here is a 4-byte gap */ - } Tcl_StatBuf; -#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) - typedef struct stat64 Tcl_StatBuf; -#else - typedef struct stat Tcl_StatBuf; -#endif - -/* - *---------------------------------------------------------------------------- - * Data structures defined opaquely in this module. The definitions below just - * provide dummy types. A few fields are made visible in Tcl_Interp - * structures, namely those used for returning a string result from commands. - * Direct access to the result field is discouraged in Tcl 8.0. The - * interpreter result is either an object or a string, and the two values are - * kept consistent unless some C code sets interp->result directly. - * Programmers should use either the function Tcl_GetObjResult() or - * Tcl_GetStringResult() to read the interpreter's result. See the SetResult - * man page for details. - * - * Note: any change to the Tcl_Interp definition below must be mirrored in the - * "real" definition in tclInt.h. - * - * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. - * Instead, they set a Tcl_Obj member in the "real" structure that can be - * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). - */ - -typedef struct Tcl_Interp -#ifndef TCL_NO_DEPRECATED -{ - /* TIP #330: Strongly discourage extensions from using the string - * result. */ -#ifdef USE_INTERP_RESULT - char *result TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); - /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) (char *blockPtr) - TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); - /* Zero means the string result is statically - * allocated. TCL_DYNAMIC means it was - * allocated with ckalloc and should be freed - * with ckfree. Other values give the address - * of function to invoke to free the result. - * Tcl_Eval must free it before executing next - * command. */ -#else - char *resultDontUse; /* Don't use in extensions! */ - void (*freeProcDontUse) (char *); /* Don't use in extensions! */ -#endif -#ifdef USE_INTERP_ERRORLINE - int errorLine TCL_DEPRECATED_API("use Tcl_GetErrorLine/Tcl_SetErrorLine"); - /* When TCL_ERROR is returned, this gives the - * line number within the command where the - * error occurred (1 if first line). */ -#else - int errorLineDontUse; /* Don't use in extensions! */ -#endif -} -#endif /* TCL_NO_DEPRECATED */ -Tcl_Interp; - -typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; -typedef struct Tcl_Channel_ *Tcl_Channel; -typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_Command_ *Tcl_Command; -typedef struct Tcl_Condition_ *Tcl_Condition; -typedef struct Tcl_Dict_ *Tcl_Dict; -typedef struct Tcl_EncodingState_ *Tcl_EncodingState; -typedef struct Tcl_Encoding_ *Tcl_Encoding; -typedef struct Tcl_Event Tcl_Event; -typedef struct Tcl_InterpState_ *Tcl_InterpState; -typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; -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_ZLibStream_ *Tcl_ZlibStream; - -/* - *---------------------------------------------------------------------------- - * Definition of the interface to functions implementing threads. A function - * following this definition is given to each call of 'Tcl_CreateThread' and - * will be called as the main fuction of the new thread created by that call. - */ - -#if defined _WIN32 -typedef unsigned (__stdcall Tcl_ThreadCreateProc) (ClientData clientData); -#else -typedef void (Tcl_ThreadCreateProc) (ClientData clientData); -#endif - -/* - * Threading function return types used for abstracting away platform - * differences when writing a Tcl_ThreadCreateProc. See the NewThread function - * in generic/tclThreadTest.c for it's usage. - */ - -#if defined _WIN32 -# define Tcl_ThreadCreateType unsigned __stdcall -# define TCL_THREAD_CREATE_RETURN return 0 -#else -# define Tcl_ThreadCreateType void -# define TCL_THREAD_CREATE_RETURN -#endif - -/* - * Definition of values for default stacksize and the possible flags to be - * given to Tcl_CreateThread. - */ - -#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */ -#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default - * behaviour. */ -#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */ - -/* - * Flag values passed to Tcl_StringCaseMatch. - */ - -#define TCL_MATCH_NOCASE (1<<0) - -/* - * Flag values passed to Tcl_GetRegExpFromObj. - */ - -#define TCL_REG_BASIC 000000 /* BREs (convenience). */ -#define TCL_REG_EXTENDED 000001 /* EREs. */ -#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */ -#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */ -#define TCL_REG_QUOTE 000004 /* No special characters, none. */ -#define TCL_REG_NOCASE 000010 /* Ignore case. */ -#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */ -#define TCL_REG_EXPANDED 000040 /* Expanded format, white space & - * comments. */ -#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ -#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */ -#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */ -#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited - * matches. */ - -/* - * Flags values passed to Tcl_RegExpExecObj. - */ - -#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ -#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ - -/* - * Structures filled in by Tcl_RegExpInfo. Note that all offset values are - * relative to the start of the match string, not the beginning of the entire - * string. - */ - -typedef struct Tcl_RegExpIndices { - long start; /* Character offset of first character in - * match. */ - long end; /* Character offset of first character after - * the match. */ -} Tcl_RegExpIndices; - -typedef struct Tcl_RegExpInfo { - int nsubs; /* Number of subexpressions in the compiled - * expression. */ - Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ - long extendStart; /* The offset at which a subsequent match - * might begin. */ - long reserved; /* Reserved for later use. */ -} Tcl_RegExpInfo; - -/* - * Picky compilers complain if this typdef doesn't appear before the struct's - * reference in tclDecls.h. - */ - -typedef Tcl_StatBuf *Tcl_Stat_; -typedef struct stat *Tcl_OldStat_; - -/* - *---------------------------------------------------------------------------- - * When a TCL command returns, the interpreter contains a result from the - * command. Programmers are strongly encouraged to use one of the functions - * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's - * result. See the SetResult man page for details. Besides this result, the - * command function returns an integer code, which is one of the following: - * - * TCL_OK Command completed normally; the interpreter's result - * contains the command's result. - * TCL_ERROR The command couldn't be completed successfully; the - * interpreter's result describes what went wrong. - * TCL_RETURN The command requests that the current function return; - * the interpreter's result contains the function's - * return value. - * TCL_BREAK The command requests that the innermost loop be - * exited; the interpreter's result is meaningless. - * TCL_CONTINUE Go on to the next iteration of the current loop; the - * interpreter's result is meaningless. - */ - -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 - -#define TCL_RESULT_SIZE 200 - -/* - *---------------------------------------------------------------------------- - * Flags to control what substitutions are performed by Tcl_SubstObj(): - */ - -#define TCL_SUBST_COMMANDS 001 -#define TCL_SUBST_VARIABLES 002 -#define TCL_SUBST_BACKSLASHES 004 -#define TCL_SUBST_ALL 007 - -/* - * Argument descriptors for math function callbacks in expressions: - */ - -typedef enum { - TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT -} Tcl_ValueType; - -typedef struct Tcl_Value { - Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, - * or both. */ - long intValue; /* Integer value. */ - double doubleValue; /* Double-precision floating value. */ - Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ -} Tcl_Value; - -/* - * Forward declaration of Tcl_Obj to prevent an error when the forward - * reference to Tcl_Obj is encountered in the function types declared below. - */ - -struct Tcl_Obj; - -/* - *---------------------------------------------------------------------------- - * Function types defined by Tcl: - */ - -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, CONST84 char *argv[]); -typedef void (Tcl_CmdTraceProc) (ClientData clientData, Tcl_Interp *interp, - int level, char *command, Tcl_CmdProc *proc, - ClientData cmdClientData, int argc, CONST84 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 int (Tcl_PackageUnloadProc) (Tcl_Interp *interp, int flags); -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, - CONST84 char *part1, CONST84 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); - -/* - *---------------------------------------------------------------------------- - * The following structure represents a type of object, which is a particular - * internal representation for an object plus a set of functions that provide - * standard operations on objects of that type. - */ - -typedef struct Tcl_ObjType { - const char *name; /* Name of the type, e.g. "int". */ - Tcl_FreeInternalRepProc *freeIntRepProc; - /* Called to free any storage for the type's - * internal rep. NULL if the internal rep does - * not need freeing. */ - Tcl_DupInternalRepProc *dupIntRepProc; - /* Called to create a new object as a copy of - * an existing object. */ - Tcl_UpdateStringProc *updateStringProc; - /* Called to update the string rep from the - * type's internal representation. */ - Tcl_SetFromAnyProc *setFromAnyProc; - /* Called to convert the object's internal rep - * to this type. Frees the internal rep of the - * old type. Returns TCL_ERROR on failure. */ -} Tcl_ObjType; - -/* - * One of the following structures exists for each object in the Tcl system. - * An object stores a value as either a string, some internal representation, - * or both. - */ - -typedef struct Tcl_Obj { - int refCount; /* When 0 the object will be freed. */ - char *bytes; /* This points to the first byte of the - * object's string representation. The array - * must be followed by a null byte (i.e., at - * offset length) but may also contain - * embedded null characters. The array's - * storage is allocated by ckalloc. NULL means - * the string rep is invalid and must be - * regenerated from the internal rep. Clients - * should use Tcl_GetStringFromObj or - * Tcl_GetString to get a pointer to the byte - * array as a readonly value. */ - int length; /* The number of bytes at *bytes, not - * including the terminating null. */ - const Tcl_ObjType *typePtr; /* Denotes the object's type. Always - * corresponds to the type of the object's - * internal rep. NULL indicates the object has - * no internal rep (has no type). */ - union { /* The internal representation: */ - long longValue; /* - an long integer value. */ - double doubleValue; /* - a double-precision floating value. */ - void *otherValuePtr; /* - another, type-specific value, - not used internally any more. */ - Tcl_WideInt wideValue; /* - a long long value. */ - struct { /* - internal rep as two pointers. - * the main use of which is a bignum's - * tightly packed fields, where the alloc, - * used and signum flags are packed into - * ptr2 with everything else hung off ptr1. */ - void *ptr1; - void *ptr2; - } twoPtrValue; - struct { /* - internal rep as a pointer and a long, - not used internally any more. */ - void *ptr; - unsigned long value; - } ptrAndLongRep; - } internalRep; -} Tcl_Obj; - -/* - * Macros to increment and decrement a Tcl_Obj's reference count, and to test - * whether an object is shared (i.e. has reference count > 1). Note: clients - * should use Tcl_DecrRefCount() when they are finished using an object, and - * should never call TclFreeObj() directly. TclFreeObj() is only defined and - * made public in tcl.h to support Tcl_DecrRefCount's macro definition. - */ - -void Tcl_IncrRefCount(Tcl_Obj *objPtr); -void Tcl_DecrRefCount(Tcl_Obj *objPtr); -int Tcl_IsShared(Tcl_Obj *objPtr); - -/* - *---------------------------------------------------------------------------- - * The following structure contains the state needed by Tcl_SaveResult. No-one - * outside of Tcl should access any of these fields. This structure is - * typically allocated on the stack. - */ - -typedef struct Tcl_SavedResult { - char *result; - Tcl_FreeProc *freeProc; - Tcl_Obj *objResultPtr; - char *appendResult; - int appendAvl; - int appendUsed; - char resultSpace[TCL_RESULT_SIZE+1]; -} Tcl_SavedResult; - -/* - *---------------------------------------------------------------------------- - * The following definitions support Tcl's namespace facility. Note: the first - * five fields must match exactly the fields in a Namespace structure (see - * tclInt.h). - */ - -typedef struct Tcl_Namespace { - char *name; /* The namespace's name within its parent - * namespace. This contains no ::'s. The name - * of the global namespace is "" although "::" - * is an synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* Arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Function invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Tcl_Namespace *parentPtr; - /* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -} Tcl_Namespace; - -/* - *---------------------------------------------------------------------------- - * The following structure represents a call frame, or activation record. A - * call frame defines a naming context for a procedure call: its local scope - * (for local variables) and its namespace scope (used for non-local - * variables; often the global :: namespace). A call frame can also define the - * naming context for a namespace eval or namespace inscope command: the - * namespace in which the command's code should execute. The Tcl_CallFrame - * structures exist only while procedures or namespace eval/inscope's are - * being executed, and provide a Tcl call stack. - * - * A call frame is initialized and pushed using Tcl_PushCallFrame and popped - * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the - * Tcl_PushCallFrame caller, and callers typically allocate them on the C call - * stack for efficiency. For this reason, Tcl_CallFrame is defined as a - * structure and not as an opaque token. However, most Tcl_CallFrame fields - * are hidden since applications should not access them directly; others are - * declared as "dummyX". - * - * WARNING!! The structure definition must be kept consistent with the - * CallFrame structure in tclInt.h. If you change one, change the other. - */ - -typedef struct Tcl_CallFrame { - Tcl_Namespace *nsPtr; - int dummy1; - int dummy2; - void *dummy3; - void *dummy4; - void *dummy5; - int dummy6; - void *dummy7; - void *dummy8; - int dummy9; - void *dummy10; - void *dummy11; - void *dummy12; - void *dummy13; -} Tcl_CallFrame; - -/* - *---------------------------------------------------------------------------- - * Information about commands that is returned by Tcl_GetCommandInfo and - * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command - * function while proc is a traditional Tcl argc/argv string-based function. - * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and - * proc are non-NULL and can be called to execute the command. However, it may - * be faster to call one instead of the other. The member isNativeObjectProc - * is set to 1 if an object-based function was registered by - * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by - * Tcl_CreateCommand. The other function is typically set to a compatibility - * wrapper that does string-to-object or object-to-string argument conversions - * then calls the other function. - */ - -typedef struct Tcl_CmdInfo { - int isNativeObjectProc; /* 1 if objProc was registered by a call to - * Tcl_CreateObjCommand; 0 otherwise. - * Tcl_SetCmdInfo does not modify this - * field. */ - Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ - ClientData objClientData; /* ClientData for object proc. */ - Tcl_CmdProc *proc; /* Command's string-based function. */ - ClientData clientData; /* ClientData for string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Function to call when command is - * deleted. */ - ClientData deleteData; /* Value to pass to deleteProc (usually the - * same as clientData). */ - Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this - * command. Note that Tcl_SetCmdInfo will not - * change a command's namespace; use - * TclRenameCommand or Tcl_Eval (of 'rename') - * to do that. */ -} Tcl_CmdInfo; - -/* - *---------------------------------------------------------------------------- - * The structure defined below is used to hold dynamic strings. The only - * fields that clients should use are string and length, accessible via the - * macros Tcl_DStringValue and Tcl_DStringLength. - */ - -#define TCL_DSTRING_STATIC_SIZE 200 -typedef struct Tcl_DString { - char *string; /* Points to beginning of string: either - * staticSpace below or a malloced array. */ - int length; /* Number of non-NULL characters in the - * string. */ - int spaceAvl; /* Total number of bytes available for the - * string and its terminating NULL char. */ - char staticSpace[TCL_DSTRING_STATIC_SIZE]; - /* Space to use in common case where string is - * small. */ -} Tcl_DString; - -#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) -#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#define Tcl_DStringTrunc Tcl_DStringSetLength - -/* - * Definitions for the maximum number of digits of precision that may be - * specified in the "tcl_precision" variable, and the number of bytes of - * buffer space required by Tcl_PrintDouble. - */ - -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) - -/* - * Definition for a number of bytes of buffer space sufficient to hold the - * string representation of an integer in base 10 (assuming the existence of - * 64-bit integers). - */ - -#define TCL_INTEGER_SPACE 24 - -/* - * Flag values passed to Tcl_ConvertElement. - * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to - * use backslash quoting instead. - * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It - * is safe to leave the hash unquoted when the element is not the first - * element of a list, and this flag can be used by the caller to indicate - * that condition. - */ - -#define TCL_DONT_USE_BRACES 1 -#define TCL_DONT_QUOTE_HASH 8 - -/* - * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow - * abbreviated strings. - */ - -#define TCL_EXACT 1 - -/* - *---------------------------------------------------------------------------- - * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. - * WARNING: these bit choices must not conflict with the bit choices for - * evalFlag bits in tclInt.h! - * - * Meanings: - * TCL_NO_EVAL: Just record this command - * TCL_EVAL_GLOBAL: Execute script in global namespace - * TCL_EVAL_DIRECT: Do not compile this script - * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles - * o Run in iPtr->lookupNsPtr or global namespace - * o Cut out of error traces - * o Don't reset the flags controlling ensemble - * error message rewriting. - * TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the - * stack for the script in progress to be - * completely unwound. - * TCL_EVAL_NOERR: Do no exception reporting at all, just return - * as the caller will report. - */ - -#define TCL_NO_EVAL 0x010000 -#define TCL_EVAL_GLOBAL 0x020000 -#define TCL_EVAL_DIRECT 0x040000 -#define TCL_EVAL_INVOKE 0x080000 -#define TCL_CANCEL_UNWIND 0x100000 -#define TCL_EVAL_NOERR 0x200000 - -/* - * Special freeProc values that may be passed to Tcl_SetResult (see the man - * page for details): - */ - -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) - -/* - * Flag values passed to variable-related functions. - * WARNING: these bit choices must not conflict with the bit choice for - * TCL_CANCEL_UNWIND, above. - */ - -#define TCL_GLOBAL_ONLY 1 -#define TCL_NAMESPACE_ONLY 2 -#define TCL_APPEND_VALUE 4 -#define TCL_LIST_ELEMENT 8 -#define TCL_TRACE_READS 0x10 -#define TCL_TRACE_WRITES 0x20 -#define TCL_TRACE_UNSETS 0x40 -#define TCL_TRACE_DESTROYED 0x80 -#define TCL_INTERP_DESTROYED 0x100 -#define TCL_LEAVE_ERR_MSG 0x200 -#define TCL_TRACE_ARRAY 0x800 -#ifndef TCL_REMOVE_OBSOLETE_TRACES -/* Required to support old variable/vdelete/vinfo traces. */ -#define TCL_TRACE_OLD_STYLE 0x1000 -#endif -/* Indicate the semantics of the result of a trace. */ -#define TCL_TRACE_RESULT_DYNAMIC 0x8000 -#define TCL_TRACE_RESULT_OBJECT 0x10000 - -/* - * Flag values for ensemble commands. - */ - -#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow - * unambiguous prefixes of commands or to - * require exact matches for command names. */ - -/* - * Flag values passed to command-related functions. - */ - -#define TCL_TRACE_RENAME 0x2000 -#define TCL_TRACE_DELETE 0x4000 - -#define TCL_ALLOW_INLINE_COMPILATION 0x20000 - -/* - * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now - * always parsed whenever the part2 is NULL. (This is to avoid a common error - * when converting code to use the new object based APIs and forgetting to - * give the flag) - */ - -#ifndef TCL_NO_DEPRECATED -# define TCL_PARSE_PART1 0x400 -#endif - -/* - * Types for linked variables: - */ - -#define TCL_LINK_INT 1 -#define TCL_LINK_DOUBLE 2 -#define TCL_LINK_BOOLEAN 3 -#define TCL_LINK_STRING 4 -#define TCL_LINK_WIDE_INT 5 -#define TCL_LINK_CHAR 6 -#define TCL_LINK_UCHAR 7 -#define TCL_LINK_SHORT 8 -#define TCL_LINK_USHORT 9 -#define TCL_LINK_UINT 10 -#define TCL_LINK_LONG 11 -#define TCL_LINK_ULONG 12 -#define TCL_LINK_FLOAT 13 -#define TCL_LINK_WIDE_UINT 14 -#define TCL_LINK_READ_ONLY 0x80 - -/* - *---------------------------------------------------------------------------- - * Forward declarations of Tcl_HashTable and related types. - */ - -typedef struct Tcl_HashKeyType Tcl_HashKeyType; -typedef struct Tcl_HashTable Tcl_HashTable; -typedef struct Tcl_HashEntry Tcl_HashEntry; - -typedef unsigned (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); - -/* - * This flag controls whether the hash table stores the hash of a key, or - * recalculates it. There should be no reason for turning this flag off as it - * is completely binary and source compatible unless you directly access the - * bucketPtr member of the Tcl_HashTableEntry structure. This member has been - * removed and the space used to store the hash value. - */ - -#ifndef TCL_HASH_KEY_STORE_HASH -# define TCL_HASH_KEY_STORE_HASH 1 -#endif - -/* - * Structure definition for an entry in a hash table. No-one outside Tcl - * should access any of these fields directly; use the macros defined below. - */ - -struct Tcl_HashEntry { - Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, - * or NULL for end of chain. */ - Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ -#if TCL_HASH_KEY_STORE_HASH - void *hash; /* Hash value, stored as pointer to ensure - * that the offsets of the fields in this - * structure are not changed. */ -#else - Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first - * entry in this entry's chain: used for - * deleting the entry. */ -#endif - ClientData clientData; /* Application stores something here with - * Tcl_SetHashValue. */ - union { /* Key has one of these forms: */ - char *oneWordValue; /* One-word value for key. */ - Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ - int words[1]; /* Multiple integer words for key. The actual - * size will be as large as necessary for this - * table's keys. */ - char string[1]; /* String for key. The actual size will be as - * large as needed to hold the key. */ - } key; /* MUST BE LAST FIELD IN RECORD!! */ -}; - -/* - * Flags used in Tcl_HashKeyType. - * - * TCL_HASH_KEY_RANDOMIZE_HASH - - * There are some things, pointers for example - * which don't hash well because they do not use - * the lower bits. If this flag is set then the - * hash table will attempt to rectify this by - * randomising the bits and then using the upper - * N bits as the index into the table. - * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally - * allocated for the hash table that is not for an - * entry will use the system heap. - */ - -#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 -#define TCL_HASH_KEY_SYSTEM_HASH 0x2 - -/* - * Structure definition for the methods associated with a hash table key type. - */ - -#define TCL_HASH_KEY_TYPE_VERSION 1 -struct Tcl_HashKeyType { - int version; /* Version of the table. If this structure is - * extended in future then the version can be - * used to distinguish between different - * structures. */ - int flags; /* Flags, see above for details. */ - Tcl_HashKeyProc *hashKeyProc; - /* Calculates a hash value for the key. If - * this is NULL then the pointer itself is - * used as a hash value. */ - Tcl_CompareHashKeysProc *compareKeysProc; - /* Compares two keys and returns zero if they - * do not match, and non-zero if they do. If - * this is NULL then the pointers are - * compared. */ - Tcl_AllocHashEntryProc *allocEntryProc; - /* Called to allocate memory for a new entry, - * i.e. if the key is a string then this could - * allocate a single block which contains - * enough space for both the entry and the - * string. Only the key field of the allocated - * Tcl_HashEntry structure needs to be filled - * in. If something else needs to be done to - * the key, i.e. incrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Alloc is - * used to allocate enough space for a - * Tcl_HashEntry and the key pointer is - * assigned to key.oneWordValue. */ - Tcl_FreeHashEntryProc *freeEntryProc; - /* Called to free memory associated with an - * entry. If something else needs to be done - * to the key, i.e. decrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Free is - * used to free the Tcl_HashEntry. */ -}; - -/* - * Structure definition for a hash table. Must be in tcl.h so clients can - * allocate space for these structures, but clients should never access any - * fields in this structure. - */ - -#define TCL_SMALL_HASH_TABLE 4 -struct Tcl_HashTable { - Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables (to - * avoid mallocs and frees). */ - int numBuckets; /* Total number of buckets allocated at - * **bucketPtr. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int downShift; /* Shift count used in hashing function. - * Designed to use high-order bits of - * randomized keys. */ - int mask; /* Mask value used in hashing function. */ - int keyType; /* Type of keys used in this table. It's - * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, - * TCL_ONE_WORD_KEYS, or an integer giving the - * number of ints that is the size of the - * key. */ - Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key); - Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key, - int *newPtr); - const Tcl_HashKeyType *typePtr; - /* Type of the keys used in the - * Tcl_HashTable. */ -}; - -/* - * Structure definition for information used to keep track of searches through - * hash tables: - */ - -typedef struct Tcl_HashSearch { - Tcl_HashTable *tablePtr; /* Table being searched. */ - int nextIndex; /* Index of next bucket to be enumerated after - * present one. */ - Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current - * bucket. */ -} Tcl_HashSearch; - -/* - * Acceptable key types for hash tables: - * - * TCL_STRING_KEYS: The keys are strings, they are copied into the - * entry. - * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored - * in the entry. - * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied - * into the entry. - * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the - * pointer is stored in the entry. - * - * While maintaining binary compatibility the above have to be distinct values - * as they are used to differentiate between old versions of the hash table - * which don't have a typePtr and new ones which do. Once binary compatibility - * is discarded in favour of making more wide spread changes TCL_STRING_KEYS - * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the - * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is - * accessed from the entry and not the behaviour. - */ - -#define TCL_STRING_KEYS (0) -#define TCL_ONE_WORD_KEYS (1) -#define TCL_CUSTOM_TYPE_KEYS (-2) -#define TCL_CUSTOM_PTR_KEYS (-1) - -/* - * Structure definition for information used to keep track of searches through - * dictionaries. These fields should not be accessed by code outside - * tclDictObj.c - */ - -typedef struct { - void *next; /* Search position for underlying hash - * table. */ - int epoch; /* Epoch marker for dictionary being searched, - * or -1 if search has terminated. */ - Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ -} Tcl_DictSearch; - -/* - *---------------------------------------------------------------------------- - * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of - * events: - */ - -#define TCL_DONT_WAIT (1<<1) -#define TCL_WINDOW_EVENTS (1<<2) -#define TCL_FILE_EVENTS (1<<3) -#define TCL_TIMER_EVENTS (1<<4) -#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ -#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) - -/* - * The following structure defines a generic event for the Tcl event system. - * These are the things that are queued in calls to Tcl_QueueEvent and - * serviced later by Tcl_DoOneEvent. There can be many different kinds of - * events with different fields, corresponding to window events, timer events, - * etc. The structure for a particular event consists of a Tcl_Event header - * followed by additional information specific to that event. - */ - -struct Tcl_Event { - Tcl_EventProc *proc; /* Function to call to service this event. */ - struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ -}; - -/* - * Positions to pass to Tcl_QueueEvent: - */ - -typedef enum { - TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK -} Tcl_QueuePosition; - -/* - * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier - * event routines. - */ - -#define TCL_SERVICE_NONE 0 -#define TCL_SERVICE_ALL 1 - -/* - * The following structure keeps is used to hold a time value, either as an - * absolute time (the number of seconds from the epoch) or as an elapsed time. - * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. - */ - -typedef struct Tcl_Time { - long sec; /* Seconds. */ - long usec; /* Microseconds. */ -} Tcl_Time; - -typedef void (Tcl_SetTimerProc) (CONST86 Tcl_Time *timePtr); -typedef int (Tcl_WaitForEventProc) (CONST86 Tcl_Time *timePtr); - -/* - * TIP #233 (Virtualized Time) - */ - -typedef void (Tcl_GetTimeProc) (Tcl_Time *timebuf, ClientData clientData); -typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, ClientData clientData); - -/* - *---------------------------------------------------------------------------- - * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to - * indicate what sorts of events are of interest: - */ - -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) - -/* - * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition - * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in - * Tcl_GetStdChannel. - */ - -#define TCL_STDIN (1<<1) -#define TCL_STDOUT (1<<2) -#define TCL_STDERR (1<<3) -#define TCL_ENFORCE_MODE (1<<4) - -/* - * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel - * should be closed. - */ - -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) - -/* - * Value to use as the closeProc for a channel that supports the close2Proc - * interface. - */ - -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) - -/* - * Channel version tag. This was introduced in 8.3.2/8.4. - */ - -#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) -#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) -#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) -#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) -#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) - -/* - * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. - */ - -#define TCL_CHANNEL_THREAD_INSERT (0) -#define TCL_CHANNEL_THREAD_REMOVE (1) - -/* - * Typedefs for the various operations in a channel type: - */ - -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, - CONST84 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, CONST84 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); -/* - * TIP #218, Channel Thread Actions - */ -typedef void (Tcl_DriverThreadActionProc) (ClientData instanceData, - int action); -/* - * TIP #208, File Truncation (etc.) - */ -typedef int (Tcl_DriverTruncateProc) (ClientData instanceData, - Tcl_WideInt length); - -/* - * struct Tcl_ChannelType: - * - * One such structure exists for each type (kind) of channel. It collects - * together in one place all the functions that are part of the specific - * channel type. - * - * It is recommend that the Tcl_Channel* functions are used to access elements - * of this structure, instead of direct accessing. - */ - -typedef struct Tcl_ChannelType { - const char *typeName; /* The name of the channel type in Tcl - * commands. This storage is owned by channel - * type. */ - Tcl_ChannelTypeVersion version; - /* Version of the channel type. */ - Tcl_DriverCloseProc *closeProc; - /* Function to call to close the channel, or - * TCL_CLOSE2PROC if the close2Proc should be - * used instead. */ - Tcl_DriverInputProc *inputProc; - /* Function to call for input on channel. */ - Tcl_DriverOutputProc *outputProc; - /* Function to call for output on channel. */ - Tcl_DriverSeekProc *seekProc; - /* Function to call to seek on the channel. - * May be NULL. */ - Tcl_DriverSetOptionProc *setOptionProc; - /* Set an option on a channel. */ - Tcl_DriverGetOptionProc *getOptionProc; - /* Get an option from a channel. */ - Tcl_DriverWatchProc *watchProc; - /* Set up the notifier to watch for events on - * this channel. */ - Tcl_DriverGetHandleProc *getHandleProc; - /* Get an OS handle from the channel or NULL - * if not supported. */ - Tcl_DriverClose2Proc *close2Proc; - /* Function to call to close the channel if - * the device supports closing the read & - * write sides independently. */ - Tcl_DriverBlockModeProc *blockModeProc; - /* Set blocking mode for the raw channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_2 channels or later. - */ - Tcl_DriverFlushProc *flushProc; - /* Function to call to flush a channel. May be - * NULL. */ - Tcl_DriverHandlerProc *handlerProc; - /* Function to call to handle a channel event. - * This will be passed up the stacked channel - * chain. */ - /* - * Only valid in TCL_CHANNEL_VERSION_3 channels or later. - */ - Tcl_DriverWideSeekProc *wideSeekProc; - /* Function to call to seek on the channel - * which can handle 64-bit offsets. May be - * NULL, and must be NULL if seekProc is - * NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_4 channels or later. - * TIP #218, Channel Thread Actions. - */ - Tcl_DriverThreadActionProc *threadActionProc; - /* Function to call to notify the driver of - * thread specific activity for a channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_5 channels or later. - * TIP #208, File Truncation. - */ - Tcl_DriverTruncateProc *truncateProc; - /* Function to call to truncate the underlying - * file to a particular length. May be NULL if - * the channel does not support truncation. */ -} Tcl_ChannelType; - -/* - * The following flags determine whether the blockModeProc above should set - * the channel into blocking or nonblocking mode. They are passed as arguments - * to the blockModeProc function in the above structure. - */ - -#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ -#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking - * mode. */ - -/* - *---------------------------------------------------------------------------- - * Enum for different types of file paths. - */ - -typedef enum Tcl_PathType { - TCL_PATH_ABSOLUTE, - TCL_PATH_RELATIVE, - TCL_PATH_VOLUME_RELATIVE -} Tcl_PathType; - -/* - * The following structure is used to pass glob type data amongst the various - * glob routines and Tcl_FSMatchInDirectory. - */ - -typedef struct Tcl_GlobTypeData { - int type; /* Corresponds to bcdpfls as in 'find -t'. */ - int perm; /* Corresponds to file permissions. */ - Tcl_Obj *macType; /* Acceptable Mac type. */ - Tcl_Obj *macCreator; /* Acceptable Mac creator. */ -} Tcl_GlobTypeData; - -/* - * Type and permission definitions for glob command. - */ - -#define TCL_GLOB_TYPE_BLOCK (1<<0) -#define TCL_GLOB_TYPE_CHAR (1<<1) -#define TCL_GLOB_TYPE_DIR (1<<2) -#define TCL_GLOB_TYPE_PIPE (1<<3) -#define TCL_GLOB_TYPE_FILE (1<<4) -#define TCL_GLOB_TYPE_LINK (1<<5) -#define TCL_GLOB_TYPE_SOCK (1<<6) -#define TCL_GLOB_TYPE_MOUNT (1<<7) - -#define TCL_GLOB_PERM_RONLY (1<<0) -#define TCL_GLOB_PERM_HIDDEN (1<<1) -#define TCL_GLOB_PERM_R (1<<2) -#define TCL_GLOB_PERM_W (1<<3) -#define TCL_GLOB_PERM_X (1<<4) - -/* - * Flags for the unload callback function. - */ - -#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) -#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) - -/* - * Typedefs for the various filesystem operations: - */ - -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); -/* We have to declare the utime structure here. */ -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 *CONST86 * (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; - -/* - *---------------------------------------------------------------------------- - * Data structures related to hooking into the filesystem - */ - -/* - * Filesystem version tag. This was introduced in 8.4. - */ - -#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) - -/* - * struct Tcl_Filesystem: - * - * One such structure exists for each type (kind) of filesystem. It collects - * together in one place all the functions that are part of the specific - * filesystem. Tcl always accesses the filesystem through one of these - * structures. - * - * Not all entries need be non-NULL; any which are NULL are simply ignored. - * However, a complete filesystem should provide all of these functions. The - * explanations in the structure show the importance of each function. - */ - -typedef struct Tcl_Filesystem { - const char *typeName; /* The name of the filesystem. */ - int structureLength; /* Length of this structure, so future binary - * compatibility can be assured. */ - Tcl_FSVersion version; /* Version of the filesystem type. */ - Tcl_FSPathInFilesystemProc *pathInFilesystemProc; - /* Function to check whether a path is in this - * filesystem. This is the most important - * filesystem function. */ - Tcl_FSDupInternalRepProc *dupInternalRepProc; - /* Function to duplicate internal fs rep. May - * be NULL (but then fs is less efficient). */ - Tcl_FSFreeInternalRepProc *freeInternalRepProc; - /* Function to free internal fs rep. Must be - * implemented if internal representations - * need freeing, otherwise it can be NULL. */ - Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; - /* Function to convert internal representation - * to a normalized path. Only required if the - * fs creates pure path objects with no - * string/path representation. */ - Tcl_FSCreateInternalRepProc *createInternalRepProc; - /* Function to create a filesystem-specific - * internal representation. May be NULL if - * paths have no internal representation, or - * if the Tcl_FSPathInFilesystemProc for this - * filesystem always immediately creates an - * internal representation for paths it - * accepts. */ - Tcl_FSNormalizePathProc *normalizePathProc; - /* Function to normalize a path. Should be - * implemented for all filesystems which can - * have multiple string representations for - * the same path object. */ - Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; - /* Function to determine the type of a path in - * this filesystem. May be NULL. */ - Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; - /* Function to return the separator - * character(s) for this filesystem. Must be - * implemented. */ - Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. - * Must be implemented for any reasonable - * filesystem. */ - Tcl_FSAccessProc *accessProc; - /* Function to process a 'Tcl_FSAccess()' - * call. Must be implemented for any - * reasonable filesystem. */ - Tcl_FSOpenFileChannelProc *openFileChannelProc; - /* Function to process a - * 'Tcl_FSOpenFileChannel()' call. Must be - * implemented for any reasonable - * filesystem. */ - Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; - /* Function to process a - * 'Tcl_FSMatchInDirectory()'. If not - * implemented, then glob and recursive copy - * functionality will be lacking in the - * filesystem. */ - Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. - * Required to allow setting (not reading) of - * times with 'file mtime', 'file atime' and - * the open-r/open-w/fcopy implementation of - * 'file copy'. */ - Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. - * Should be implemented only if the - * filesystem supports links (reading or - * creating). */ - Tcl_FSListVolumesProc *listVolumesProc; - /* Function to list any filesystem volumes - * added by this filesystem. Should be - * implemented only if the filesystem adds - * volumes at the head of the filesystem. */ - Tcl_FSFileAttrStringsProc *fileAttrStringsProc; - /* Function to list all attributes strings - * which are valid for this filesystem. If not - * implemented the filesystem will not support - * the 'file attributes' command. This allows - * arbitrary additional information to be - * attached to files in the filesystem. */ - Tcl_FSFileAttrsGetProc *fileAttrsGetProc; - /* Function to process a - * 'Tcl_FSFileAttrsGet()' call, used by 'file - * attributes'. */ - Tcl_FSFileAttrsSetProc *fileAttrsSetProc; - /* Function to process a - * 'Tcl_FSFileAttrsSet()' call, used by 'file - * attributes'. */ - Tcl_FSCreateDirectoryProc *createDirectoryProc; - /* Function to process a - * 'Tcl_FSCreateDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSRemoveDirectoryProc *removeDirectoryProc; - /* Function to process a - * 'Tcl_FSRemoveDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSDeleteFileProc *deleteFileProc; - /* Function to process a 'Tcl_FSDeleteFile()' - * call. Should be implemented unless the FS - * is read-only. */ - Tcl_FSCopyFileProc *copyFileProc; - /* Function to process a 'Tcl_FSCopyFile()' - * call. If not implemented Tcl will fall back - * on open-r, open-w and fcopy as a copying - * mechanism, for copying actions initiated in - * Tcl (not C). */ - Tcl_FSRenameFileProc *renameFileProc; - /* Function to process a 'Tcl_FSRenameFile()' - * call. If not implemented, Tcl will fall - * back on a copy and delete mechanism, for - * rename actions initiated in Tcl (not C). */ - Tcl_FSCopyDirectoryProc *copyDirectoryProc; - /* Function to process a - * 'Tcl_FSCopyDirectory()' call. If not - * implemented, Tcl will fall back on a - * recursive create-dir, file copy mechanism, - * for copying actions initiated in Tcl (not - * C). */ - Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. - * If not implemented, Tcl will attempt to use - * the 'statProc' defined above instead. */ - Tcl_FSLoadFileProc *loadFileProc; - /* Function to process a 'Tcl_FSLoadFile()' - * call. If not implemented, Tcl will fall - * back on a copy to native-temp followed by a - * Tcl_FSLoadFile on that temporary copy. */ - Tcl_FSGetCwdProc *getCwdProc; - /* Function to process a 'Tcl_FSGetCwd()' - * call. Most filesystems need not implement - * this. It will usually only be called once, - * if 'getcwd' is called before 'chdir'. May - * be NULL. */ - Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. - * If filesystems do not implement this, it - * will be emulated by a series of directory - * access checks. Otherwise, virtual - * filesystems which do implement it need only - * respond with a positive return result if - * the dirName is a valid directory in their - * filesystem. They need not remember the - * result, since that will be automatically - * remembered for use by GetCwd. Real - * filesystems should carry out the correct - * action (i.e. call the correct system - * 'chdir' api). If not implemented, then 'cd' - * and 'pwd' will fail inside the - * filesystem. */ -} Tcl_Filesystem; - -/* - * The following definitions are used as values for the 'linkAction' flag to - * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can - * be given. For link creation, the linkProc should create a link which - * matches any of the types given. - * - * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. - * TCL_CREATE_HARD_LINK - Create a hard link. - */ - -#define TCL_CREATE_SYMBOLIC_LINK 0x01 -#define TCL_CREATE_HARD_LINK 0x02 - -/* - *---------------------------------------------------------------------------- - * The following structure represents the Notifier functions that you can - * override with the Tcl_SetNotifier call. - */ - -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; - -/* - *---------------------------------------------------------------------------- - * The following data structures and declarations are for the new Tcl parser. - * - * For each word of a command, and for each piece of a word such as a variable - * reference, one of the following structures is created to describe the - * token. - */ - -typedef struct Tcl_Token { - int type; /* Type of token, such as TCL_TOKEN_WORD; see - * below for valid types. */ - const char *start; /* First character in token. */ - int size; /* Number of bytes in token. */ - int numComponents; /* If this token is composed of other tokens, - * this field tells how many of them there are - * (including components of components, etc.). - * The component tokens immediately follow - * this one. */ -} Tcl_Token; - -/* - * Type values defined for Tcl_Token structures. These values are defined as - * mask bits so that it's easy to check for collections of types. - * - * TCL_TOKEN_WORD - The token describes one word of a command, - * from the first non-blank character of the word - * (which may be " or {) up to but not including - * the space, semicolon, or bracket that - * terminates the word. NumComponents counts the - * total number of sub-tokens that make up the - * word. This includes, for example, sub-tokens - * of TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except - * that the word is guaranteed to consist of a - * single TCL_TOKEN_TEXT sub-token. - * TCL_TOKEN_TEXT - The token describes a range of literal text - * that is part of a word. NumComponents is - * always 0. - * TCL_TOKEN_BS - The token describes a backslash sequence that - * must be collapsed. NumComponents is always 0. - * TCL_TOKEN_COMMAND - The token describes a command whose result - * must be substituted into the word. The token - * includes the enclosing brackets. NumComponents - * is always 0. - * TCL_TOKEN_VARIABLE - The token describes a variable substitution, - * including the dollar sign, variable name, and - * array index (if there is one) up through the - * right parentheses. NumComponents tells how - * many additional tokens follow to represent the - * variable name. The first token will be a - * TCL_TOKEN_TEXT token that describes the - * variable name. If the variable is an array - * reference then there will be one or more - * additional tokens, of type TCL_TOKEN_TEXT, - * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and - * TCL_TOKEN_VARIABLE, that describe the array - * index; numComponents counts the total number - * of nested tokens that make up the variable - * reference, including sub-tokens of - * TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an - * expression, from the first non-blank character - * of the subexpression up to but not including - * the space, brace, or bracket that terminates - * the subexpression. NumComponents counts the - * total number of following subtokens that make - * up the subexpression; this includes all - * subtokens for any nested TCL_TOKEN_SUB_EXPR - * tokens. For example, a numeric value used as a - * primitive operand is described by a - * TCL_TOKEN_SUB_EXPR token followed by a - * TCL_TOKEN_TEXT token. A binary subexpression - * is described by a TCL_TOKEN_SUB_EXPR token - * followed by the TCL_TOKEN_OPERATOR token for - * the operator, then TCL_TOKEN_SUB_EXPR tokens - * for the left then the right operands. - * TCL_TOKEN_OPERATOR - The token describes one expression operator. - * An operator might be the name of a math - * function such as "abs". A TCL_TOKEN_OPERATOR - * token is always preceded by one - * TCL_TOKEN_SUB_EXPR token for the operator's - * subexpression, and is followed by zero or more - * TCL_TOKEN_SUB_EXPR tokens for the operator's - * operands. NumComponents is always 0. - * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except - * that it marks a word that began with the - * literal character prefix "{*}". This word is - * marked to be expanded - that is, broken into - * words after substitution is complete. - */ - -#define TCL_TOKEN_WORD 1 -#define TCL_TOKEN_SIMPLE_WORD 2 -#define TCL_TOKEN_TEXT 4 -#define TCL_TOKEN_BS 8 -#define TCL_TOKEN_COMMAND 16 -#define TCL_TOKEN_VARIABLE 32 -#define TCL_TOKEN_SUB_EXPR 64 -#define TCL_TOKEN_OPERATOR 128 -#define TCL_TOKEN_EXPAND_WORD 256 - -/* - * Parsing error types. On any parsing error, one of these values will be - * stored in the error field of the Tcl_Parse structure defined below. - */ - -#define TCL_PARSE_SUCCESS 0 -#define TCL_PARSE_QUOTE_EXTRA 1 -#define TCL_PARSE_BRACE_EXTRA 2 -#define TCL_PARSE_MISSING_BRACE 3 -#define TCL_PARSE_MISSING_BRACKET 4 -#define TCL_PARSE_MISSING_PAREN 5 -#define TCL_PARSE_MISSING_QUOTE 6 -#define TCL_PARSE_MISSING_VAR_BRACE 7 -#define TCL_PARSE_SYNTAX 8 -#define TCL_PARSE_BAD_NUMBER 9 - -/* - * A structure of the following type is filled in by Tcl_ParseCommand. It - * describes a single command parsed from an input string. - */ - -#define NUM_STATIC_TOKENS 20 - -typedef struct Tcl_Parse { - const char *commentStart; /* Pointer to # that begins the first of one - * or more comments preceding the command. */ - int commentSize; /* Number of bytes in comments (up through - * newline character that terminates the last - * comment). If there were no comments, this - * field is 0. */ - const char *commandStart; /* First character in first word of - * command. */ - int commandSize; /* Number of bytes in command, including first - * character of first word, up through the - * terminating newline, close bracket, or - * semicolon. */ - int numWords; /* Total number of words in command. May be - * 0. */ - Tcl_Token *tokenPtr; /* Pointer to first token representing the - * words of the command. Initially points to - * staticTokens, but may change to point to - * malloc-ed space if command exceeds space in - * staticTokens. */ - int numTokens; /* Total number of tokens in command. */ - int tokensAvailable; /* Total number of tokens available at - * *tokenPtr. */ - int errorType; /* One of the parsing error types defined - * above. */ - - /* - * The fields below are intended only for the private use of the parser. - * They should not be used by functions that invoke Tcl_ParseCommand. - */ - - const char *string; /* The original command string passed to - * Tcl_ParseCommand. */ - const char *end; /* Points to the character just after the last - * one in the command string. */ - Tcl_Interp *interp; /* Interpreter to use for error reporting, or - * NULL. */ - const char *term; /* Points to character in string that - * terminated most recent token. Filled in by - * ParseTokens. If an error occurs, points to - * beginning of region where the error - * occurred (e.g. the open brace if the close - * brace is missing). */ - int incomplete; /* This field is set to 1 by Tcl_ParseCommand - * if the command appears to be incomplete. - * This information is used by - * Tcl_CommandComplete. */ - Tcl_Token staticTokens[NUM_STATIC_TOKENS]; - /* Initial space for tokens for command. This - * space should be large enough to accommodate - * most commands; dynamic space is allocated - * for very large commands that don't fit - * here. */ -} Tcl_Parse; - -/* - *---------------------------------------------------------------------------- - * The following structure represents a user-defined encoding. It collects - * together all the functions that are used by the specific encoding. - */ - -typedef struct Tcl_EncodingType { - const char *encodingName; /* The name of the encoding, e.g. "euc-jp". - * This name is the unique key for this - * encoding type. */ - Tcl_EncodingConvertProc *toUtfProc; - /* Function to convert from external encoding - * into UTF-8. */ - Tcl_EncodingConvertProc *fromUtfProc; - /* Function to convert from UTF-8 into - * external encoding. */ - Tcl_EncodingFreeProc *freeProc; - /* If non-NULL, function to call when this - * encoding is deleted. */ - ClientData clientData; /* Arbitrary value associated with encoding - * type. Passed to conversion functions. */ - int nullSize; /* Number of zero bytes that signify - * end-of-string in this encoding. This number - * is used to determine the source string - * length when the srcLen argument is - * negative. Must be 1 or 2. */ -} Tcl_EncodingType; - -/* - * The following definitions are used as values for the conversion control - * flags argument when converting text from one character set to another: - * - * TCL_ENCODING_START - Signifies that the source buffer is the first - * block in a (potentially multi-block) input - * stream. Tells the conversion function to reset - * to an initial state and perform any - * initialization that needs to occur before the - * first byte is converted. If the source buffer - * contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_END - Signifies that the source buffer is the last - * block in a (potentially multi-block) input - * stream. Tells the conversion routine to - * perform any finalization that needs to occur - * after the last byte is converted and then to - * reset to an initial state. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_STOPONERROR - If set, then the converter will return - * immediately upon encountering an invalid byte - * sequence or a source character that has no - * mapping in the target encoding. If clear, then - * the converter will skip the problem, - * substituting one or more "close" characters in - * the destination buffer and then continue to - * convert the source. - * TCL_ENCODING_NO_TERMINATE - If set, Tcl_ExternalToUtf will not append a - * terminating NUL byte. Knowing that it will - * not need space to do so, it will fill all - * dstLen bytes with encoded UTF-8 content, as - * other circumstances permit. If clear, the - * default behavior is to reserve a byte in - * the dst space for NUL termination, and to - * append the NUL byte. - * TCL_ENCODING_CHAR_LIMIT - If set and dstCharsPtr is not NULL, then - * Tcl_ExternalToUtf takes the initial value - * of *dstCharsPtr is taken as a limit of the - * maximum number of chars to produce in the - * encoded UTF-8 content. Otherwise, the - * number of chars produced is controlled only - * by other limiting factors. - */ - -#define TCL_ENCODING_START 0x01 -#define TCL_ENCODING_END 0x02 -#define TCL_ENCODING_STOPONERROR 0x04 -#define TCL_ENCODING_NO_TERMINATE 0x08 -#define TCL_ENCODING_CHAR_LIMIT 0x10 - -/* - * The following definitions are the error codes returned by the conversion - * routines: - * - * TCL_OK - All characters were converted. - * TCL_CONVERT_NOSPACE - The output buffer would not have been large - * enough for all of the converted data; as many - * characters as could fit were converted though. - * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were - * the beginning of a multibyte sequence, but - * more bytes were needed to complete this - * sequence. A subsequent call to the conversion - * routine should pass the beginning of this - * unconverted sequence plus additional bytes - * from the source stream to properly convert the - * formerly split-up multibyte sequence. - * TCL_CONVERT_SYNTAX - The source stream contained an invalid - * character sequence. This may occur if the - * input stream has been damaged or if the input - * encoding method was misidentified. This error - * is reported only if TCL_ENCODING_STOPONERROR - * was specified. - * TCL_CONVERT_UNKNOWN - The source string contained a character that - * could not be represented in the target - * encoding. This error is reported only if - * TCL_ENCODING_STOPONERROR was specified. - */ - -#define TCL_CONVERT_MULTIBYTE (-1) -#define TCL_CONVERT_SYNTAX (-2) -#define TCL_CONVERT_UNKNOWN (-3) -#define TCL_CONVERT_NOSPACE (-4) - -/* - * The maximum number of bytes that are necessary to represent a single - * Unicode character in UTF-8. The valid values should be 3, 4 or 6 - * (or perhaps 1 if we want to support a non-unicode enabled core). If 3 or - * 4, then Tcl_UniChar must be 2-bytes in size (UCS-2) (the default). If 6, - * then Tcl_UniChar must be 4-bytes in size (UCS-4). At this time UCS-2 mode - * is the default and recommended mode. UCS-4 is experimental and not - * recommended. It works for the core, but most extensions expect UCS-2. - */ - -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 3 -#endif - -/* - * This represents a Unicode character. Any changes to this should also be - * reflected in regcustom.h. - */ - -#if TCL_UTF_MAX > 4 - /* - * unsigned int isn't 100% accurate as it should be a strict 4-byte value - * (perhaps wchar_t). 64-bit systems may have troubles. The size of this - * value must be reflected correctly in regcustom.h and - * in tclEncoding.c. - * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode - * XXX: string rep that Tcl_UniChar represents. Changing the size - * XXX: of Tcl_UniChar is /not/ supported. - */ -typedef unsigned int Tcl_UniChar; -#else -typedef unsigned short Tcl_UniChar; -#endif - -/* - *---------------------------------------------------------------------------- - * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to - * provide the system with the embedded configuration data. - */ - -typedef struct Tcl_Config { - const char *key; /* Configuration key to register. ASCII - * encoded, thus UTF-8. */ - const char *value; /* The value associated with the key. System - * encoding. */ -} Tcl_Config; - -/* - *---------------------------------------------------------------------------- - * Flags for TIP#143 limits, detailing which limits are active in an - * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. - */ - -#define TCL_LIMIT_COMMANDS 0x01 -#define TCL_LIMIT_TIME 0x02 - -/* - * Structure containing information about a limit handler to be called when a - * command- or time-limit is exceeded by an interpreter. - */ - -typedef void (Tcl_LimitHandlerProc) (ClientData clientData, Tcl_Interp *interp); -typedef void (Tcl_LimitHandlerDeleteProc) (ClientData clientData); - -/* - *---------------------------------------------------------------------------- - * Override definitions for libtommath. - */ - -typedef struct mp_int mp_int; -#define MP_INT_DECLARED -typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED - -/* - *---------------------------------------------------------------------------- - * Definitions needed for Tcl_ParseArgvObj routines. - * Based on tkArgv.c. - * Modifications from the original are copyright (c) Sam Bromley 2006 - */ - -typedef struct { - int type; /* Indicates the option type; see below. */ - const char *keyStr; /* The key string that flags the option in the - * argv array. */ - void *srcPtr; /* Value to be used in setting dst; usage - * depends on type.*/ - void *dstPtr; /* Address of value to be modified; usage - * depends on type.*/ - const char *helpStr; /* Documentation message describing this - * option. */ - ClientData clientData; /* Word to pass to function callbacks. */ -} Tcl_ArgvInfo; - -/* - * Legal values for the type field of a Tcl_ArgInfo: see the user - * documentation for details. - */ - -#define TCL_ARGV_CONSTANT 15 -#define TCL_ARGV_INT 16 -#define TCL_ARGV_STRING 17 -#define TCL_ARGV_REST 18 -#define TCL_ARGV_FLOAT 19 -#define TCL_ARGV_FUNC 20 -#define TCL_ARGV_GENFUNC 21 -#define TCL_ARGV_HELP 22 -#define TCL_ARGV_END 23 - -/* - * Types of callback functions for the TCL_ARGV_FUNC and TCL_ARGV_GENFUNC - * argument types: - */ - -typedef int (Tcl_ArgvFuncProc)(ClientData clientData, Tcl_Obj *objPtr, - void *dstPtr); -typedef int (Tcl_ArgvGenFuncProc)(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const *objv, void *dstPtr); - -/* - * Shorthand for commonly used argTable entries. - */ - -#define TCL_ARGV_AUTO_HELP \ - {TCL_ARGV_HELP, "-help", NULL, NULL, \ - "Print summary of command-line options and abort", NULL} -#define TCL_ARGV_AUTO_REST \ - {TCL_ARGV_REST, "--", NULL, NULL, \ - "Marks the end of the options", NULL} -#define TCL_ARGV_TABLE_END \ - {TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL} - -/* - *---------------------------------------------------------------------------- - * Definitions needed for Tcl_Zlib routines. [TIP #234] - * - * Constants for the format flags describing what sort of data format is - * desired/expected for the Tcl_ZlibDeflate, Tcl_ZlibInflate and - * Tcl_ZlibStreamInit functions. - */ - -#define TCL_ZLIB_FORMAT_RAW 1 -#define TCL_ZLIB_FORMAT_ZLIB 2 -#define TCL_ZLIB_FORMAT_GZIP 4 -#define TCL_ZLIB_FORMAT_AUTO 8 - -/* - * Constants that describe whether the stream is to operate in compressing or - * decompressing mode. - */ - -#define TCL_ZLIB_STREAM_DEFLATE 16 -#define TCL_ZLIB_STREAM_INFLATE 32 - -/* - * Constants giving compression levels. Use of TCL_ZLIB_COMPRESS_DEFAULT is - * recommended. - */ - -#define TCL_ZLIB_COMPRESS_NONE 0 -#define TCL_ZLIB_COMPRESS_FAST 1 -#define TCL_ZLIB_COMPRESS_BEST 9 -#define TCL_ZLIB_COMPRESS_DEFAULT (-1) - -/* - * Constants for types of flushing, used with Tcl_ZlibFlush. - */ - -#define TCL_ZLIB_NO_FLUSH 0 -#define TCL_ZLIB_FLUSH 2 -#define TCL_ZLIB_FULLFLUSH 3 -#define TCL_ZLIB_FINALIZE 4 - -/* - *---------------------------------------------------------------------------- - * Definitions needed for the Tcl_LoadFile function. [TIP #416] - */ - -#define TCL_LOAD_GLOBAL 1 -#define TCL_LOAD_LAZY 2 - -/* - *---------------------------------------------------------------------------- - * Single public declaration for NRE. - */ - -typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, - int result); - -/* - *---------------------------------------------------------------------------- - * The following constant is used to test for older versions of Tcl in the - * stubs tables. - * - * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different - * value since the stubs tables don't match. - */ - -#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) - -/* - * The following function is required to be defined in all stubs aware - * extensions. The function is actually implemented in the stub library, not - * the main Tcl library, although there is a trivial implementation in the - * main library in case an extension is statically linked into an application. - */ - -const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, - int exact); -const char * TclTomMathInitializeStubs(Tcl_Interp *interp, - const char *version, int epoch, int revision); - -/* - * When not using stubs, make it a macro. - */ - -#ifndef USE_TCL_STUBS -#define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgInitStubsCheck(interp, version, exact) -#endif - -/* - * TODO - tommath stubs export goes here! - */ - -/* - * Public functions that are not accessible via the stubs table. - * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] - */ - -#define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - ((Tcl_CreateInterp)())) -EXTERN void Tcl_MainEx(int argc, char **argv, - Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); -EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, - const char *version, int exact); -EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); - -/* - *---------------------------------------------------------------------------- - * Include the public function declarations that are accessible via the stubs - * table. - */ - -#include "tclDecls.h" - -/* - * Include platform specific public function declarations that are accessible - * via the stubs table. Make all TclOO symbols MODULE_SCOPE (which only - * has effect on building it as a shared library). See ticket [3010352]. - */ - -#if defined(BUILD_tcl) -# undef TCLAPI -# define TCLAPI MODULE_SCOPE -#endif - -#include "tclPlatDecls.h" - -/* - *---------------------------------------------------------------------------- - * The following declarations either map ckalloc and ckfree to malloc and - * free, or they map them to functions with all sorts of debugging hooks - * defined in tclCkalloc.c. - */ - -#ifdef TCL_MEM_DEBUG - -# define ckalloc(x) \ - ((void *) Tcl_DbCkalloc((unsigned)(x), __FILE__, __LINE__)) -# define ckfree(x) \ - Tcl_DbCkfree((char *)(x), __FILE__, __LINE__) -# define ckrealloc(x,y) \ - ((void *) Tcl_DbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE__)) -# define attemptckalloc(x) \ - ((void *) Tcl_AttemptDbCkalloc((unsigned)(x), __FILE__, __LINE__)) -# define attemptckrealloc(x,y) \ - ((void *) Tcl_AttemptDbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE__)) - -#else /* !TCL_MEM_DEBUG */ - -/* - * If we are not using the debugging allocator, we should call the Tcl_Alloc, - * et al. routines in order to guarantee that every module is using the same - * memory allocator both inside and outside of the Tcl library. - */ - -# define ckalloc(x) \ - ((void *) Tcl_Alloc((unsigned)(x))) -# define ckfree(x) \ - Tcl_Free((char *)(x)) -# define ckrealloc(x,y) \ - ((void *) Tcl_Realloc((char *)(x), (unsigned)(y))) -# define attemptckalloc(x) \ - ((void *) Tcl_AttemptAlloc((unsigned)(x))) -# define attemptckrealloc(x,y) \ - ((void *) Tcl_AttemptRealloc((char *)(x), (unsigned)(y))) -# undef Tcl_InitMemory -# define Tcl_InitMemory(x) -# undef Tcl_DumpActiveMemory -# define Tcl_DumpActiveMemory(x) -# undef Tcl_ValidateAllMemory -# define Tcl_ValidateAllMemory(x,y) - -#endif /* !TCL_MEM_DEBUG */ - -#ifdef TCL_MEM_DEBUG -# define Tcl_IncrRefCount(objPtr) \ - Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_DecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_IsShared(objPtr) \ - Tcl_DbIsShared(objPtr, __FILE__, __LINE__) -#else -# define Tcl_IncrRefCount(objPtr) \ - ++(objPtr)->refCount - /* - * Use do/while0 idiom for optimum correctness without compiler warnings. - * http://c2.com/cgi/wiki?TrivialDoWhileLoop - */ -# define Tcl_DecrRefCount(objPtr) \ - do { \ - Tcl_Obj *_objPtr = (objPtr); \ - if ((_objPtr)->refCount-- <= 1) { \ - TclFreeObj(_objPtr); \ - } \ - } while(0) -# define Tcl_IsShared(objPtr) \ - ((objPtr)->refCount > 1) -#endif - -/* - * Macros and definitions that help to debug the use of Tcl objects. When - * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call - * debugging versions of the object creation functions. - */ - -#ifdef TCL_MEM_DEBUG -# undef Tcl_NewBignumObj -# define Tcl_NewBignumObj(val) \ - Tcl_DbNewBignumObj(val, __FILE__, __LINE__) -# undef Tcl_NewBooleanObj -# define Tcl_NewBooleanObj(val) \ - Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) -# undef Tcl_NewByteArrayObj -# define Tcl_NewByteArrayObj(bytes, len) \ - Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewDoubleObj -# define Tcl_NewDoubleObj(val) \ - Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) -# undef Tcl_NewIntObj -# define Tcl_NewIntObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewListObj -# define Tcl_NewListObj(objc, objv) \ - Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) -# undef Tcl_NewLongObj -# define Tcl_NewLongObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewObj -# define Tcl_NewObj() \ - Tcl_DbNewObj(__FILE__, __LINE__) -# undef Tcl_NewStringObj -# define Tcl_NewStringObj(bytes, len) \ - Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewWideIntObj -# define Tcl_NewWideIntObj(val) \ - Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) -#endif /* TCL_MEM_DEBUG */ - -/* - *---------------------------------------------------------------------------- - * Macros for clients to use to access fields of hash entries: - */ - -#define Tcl_GetHashValue(h) ((h)->clientData) -#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) -#define Tcl_GetHashKey(tablePtr, h) \ - ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ - (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) - -/* - * Macros to use for clients to use to invoke find and create functions for - * hash tables: - */ - -#undef Tcl_FindHashEntry -#define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, (const char *)(key)) -#undef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr) - -/* - *---------------------------------------------------------------------------- - * Macros that eliminate the overhead of the thread synchronization functions - * when compiling without thread support. - */ - -#ifndef TCL_THREADS -#undef Tcl_MutexLock -#define Tcl_MutexLock(mutexPtr) -#undef Tcl_MutexUnlock -#define Tcl_MutexUnlock(mutexPtr) -#undef Tcl_MutexFinalize -#define Tcl_MutexFinalize(mutexPtr) -#undef Tcl_ConditionNotify -#define Tcl_ConditionNotify(condPtr) -#undef Tcl_ConditionWait -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#undef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize(condPtr) -#endif /* TCL_THREADS */ - -/* - *---------------------------------------------------------------------------- - * Deprecated Tcl functions: - */ - -#ifndef TCL_NO_DEPRECATED -/* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibility. - */ - -# define Tcl_Ckalloc Tcl_Alloc -# define Tcl_Ckfree Tcl_Free -# define Tcl_Ckrealloc Tcl_Realloc -# define Tcl_Return Tcl_SetResult -# define Tcl_TildeSubst Tcl_TranslateFileName -#if !defined(__APPLE__) /* On OSX, there is a conflict with "mach/mach.h" */ -# define panic Tcl_Panic -#endif -# define panicVA Tcl_PanicVA -#endif /* !TCL_NO_DEPRECATED */ - -/* - *---------------------------------------------------------------------------- - * Convenience declaration of Tcl_AppInit for backwards compatibility. This - * function is not *implemented* by the tcl library, so the storage class is - * neither DLLEXPORT nor DLLIMPORT. - */ - -extern Tcl_AppInitProc Tcl_AppInit; - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TCL */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclDecls.h deleted file mode 100644 index a49121a74..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclDecls.h +++ /dev/null @@ -1,3975 +0,0 @@ -/* - * tclDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLDECLS -#define _TCLDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, - const char *name, const char *version, - const void *clientData); -/* 1 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, - const char *name, const char *version, - int exact, void *clientDataPtr); -/* 2 */ -EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); -/* 3 */ -EXTERN char * Tcl_Alloc(unsigned int size); -/* 4 */ -EXTERN void Tcl_Free(char *ptr); -/* 5 */ -EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); -/* 6 */ -EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file, - int line); -/* 7 */ -EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line); -/* 8 */ -EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, - const char *file, int line); -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif /* MACOSX */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif /* MACOSX */ -/* 11 */ -EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr); -/* 12 */ -EXTERN void Tcl_Sleep(int ms); -/* 13 */ -EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr); -/* 14 */ -EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 15 */ -EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); -/* 16 */ -EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes, - int length); -/* 17 */ -EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]); -/* 18 */ -EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, - Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); -/* 19 */ -EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, - int line); -/* 20 */ -EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file, - int line); -/* 21 */ -EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file, - int line); -/* 22 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file, - int line); -/* 23 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes, - int length, const char *file, int line); -/* 24 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, - const char *file, int line); -/* 25 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv, - const char *file, int line); -/* 26 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file, - int line); -/* 27 */ -EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line); -/* 28 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length, - const char *file, int line); -/* 29 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); -/* 30 */ -EXTERN void TclFreeObj(Tcl_Obj *objPtr); -/* 31 */ -EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src, - int *boolPtr); -/* 32 */ -EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *boolPtr); -/* 33 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -/* 34 */ -EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src, - double *doublePtr); -/* 35 */ -EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *doublePtr); -/* 36 */ -EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, - CONST84 char *const *tablePtr, - const char *msg, int flags, int *indexPtr); -/* 37 */ -EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src, - int *intPtr); -/* 38 */ -EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *intPtr); -/* 39 */ -EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, long *longPtr); -/* 40 */ -EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName); -/* 41 */ -EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); -/* 42 */ -EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); -/* 43 */ -EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); -/* 44 */ -EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *objPtr); -/* 45 */ -EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *objcPtr, - Tcl_Obj ***objvPtr); -/* 46 */ -EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj **objPtrPtr); -/* 47 */ -EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *lengthPtr); -/* 48 */ -EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, - Tcl_Obj *listPtr, int first, int count, - int objc, Tcl_Obj *const objv[]); -/* 49 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); -/* 50 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes, - int length); -/* 51 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); -/* 52 */ -EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); -/* 53 */ -EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]); -/* 54 */ -EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); -/* 55 */ -EXTERN Tcl_Obj * Tcl_NewObj(void); -/* 56 */ -EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length); -/* 57 */ -EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); -/* 58 */ -EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); -/* 59 */ -EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, - const unsigned char *bytes, int length); -/* 60 */ -EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); -/* 61 */ -EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); -/* 62 */ -EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, - Tcl_Obj *const objv[]); -/* 63 */ -EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); -/* 64 */ -EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); -/* 65 */ -EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes, - int length); -/* 66 */ -EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, - const char *message); -/* 67 */ -EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, - const char *message, int length); -/* 68 */ -EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); -/* 69 */ -EXTERN void Tcl_AppendElement(Tcl_Interp *interp, - const char *element); -/* 70 */ -EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); -/* 71 */ -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, - ClientData clientData); -/* 72 */ -EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); -/* 73 */ -EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); -/* 74 */ -EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); -/* 75 */ -EXTERN int Tcl_AsyncReady(void); -/* 76 */ -EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); -/* 77 */ -EXTERN char Tcl_Backslash(const char *src, int *readPtr); -/* 78 */ -EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, - const char *optionName, - const char *optionList); -/* 79 */ -EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -/* 80 */ -EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, - ClientData clientData); -/* 81 */ -EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); -/* 82 */ -EXTERN int Tcl_CommandComplete(const char *cmd); -/* 83 */ -EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv); -/* 84 */ -EXTERN int Tcl_ConvertElement(const char *src, char *dst, - int flags); -/* 85 */ -EXTERN int Tcl_ConvertCountedElement(const char *src, - int length, char *dst, int flags); -/* 86 */ -EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, - const char *slaveCmd, Tcl_Interp *target, - const char *targetCmd, int argc, - CONST84 char *const *argv); -/* 87 */ -EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, - const char *slaveCmd, Tcl_Interp *target, - const char *targetCmd, int objc, - Tcl_Obj *const objv[]); -/* 88 */ -EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, - const char *chanName, - ClientData instanceData, int mask); -/* 89 */ -EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, - Tcl_ChannelProc *proc, ClientData clientData); -/* 90 */ -EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -/* 91 */ -EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_CmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -/* 92 */ -EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -/* 93 */ -EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 94 */ -EXTERN Tcl_Interp * Tcl_CreateInterp(void); -/* 95 */ -EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, - const char *name, int numArgs, - Tcl_ValueType *argTypes, Tcl_MathProc *proc, - ClientData clientData); -/* 96 */ -EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -/* 97 */ -EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, - const char *slaveName, int isSafe); -/* 98 */ -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, - Tcl_TimerProc *proc, ClientData clientData); -/* 99 */ -EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, - Tcl_CmdTraceProc *proc, - ClientData clientData); -/* 100 */ -EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, - const char *name); -/* 101 */ -EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, - Tcl_ChannelProc *proc, ClientData clientData); -/* 102 */ -EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -/* 103 */ -EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, - const char *cmdName); -/* 104 */ -EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, - Tcl_Command command); -/* 105 */ -EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, - ClientData clientData); -/* 106 */ -EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -/* 107 */ -EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 108 */ -EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); -/* 109 */ -EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); -/* 110 */ -EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); -/* 111 */ -EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); -/* 112 */ -EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); -/* 113 */ -EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); -/* 114 */ -EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -/* 115 */ -EXTERN int Tcl_DoOneEvent(int flags); -/* 116 */ -EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, - ClientData clientData); -/* 117 */ -EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, - const char *bytes, int length); -/* 118 */ -EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, - const char *element); -/* 119 */ -EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); -/* 120 */ -EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); -/* 121 */ -EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -/* 122 */ -EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); -/* 123 */ -EXTERN void Tcl_DStringResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -/* 124 */ -EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); -/* 125 */ -EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); -/* 126 */ -EXTERN int Tcl_Eof(Tcl_Channel chan); -/* 127 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); -/* 128 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); -/* 129 */ -EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script); -/* 130 */ -EXTERN int Tcl_EvalFile(Tcl_Interp *interp, - const char *fileName); -/* 131 */ -EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); -/* 132 */ -EXTERN void Tcl_EventuallyFree(ClientData clientData, - Tcl_FreeProc *freeProc); -/* 133 */ -EXTERN TCL_NORETURN void Tcl_Exit(int status); -/* 134 */ -EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, - const char *hiddenCmdToken, - const char *cmdName); -/* 135 */ -EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr, - int *ptr); -/* 136 */ -EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *ptr); -/* 137 */ -EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr, - double *ptr); -/* 138 */ -EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *ptr); -/* 139 */ -EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr, - long *ptr); -/* 140 */ -EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - long *ptr); -/* 141 */ -EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Obj **resultPtrPtr); -/* 142 */ -EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr); -/* 143 */ -EXTERN void Tcl_Finalize(void); -/* 144 */ -EXTERN void Tcl_FindExecutable(const char *argv0); -/* 145 */ -EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, - Tcl_HashSearch *searchPtr); -/* 146 */ -EXTERN int Tcl_Flush(Tcl_Channel chan); -/* 147 */ -EXTERN void Tcl_FreeResult(Tcl_Interp *interp); -/* 148 */ -EXTERN int Tcl_GetAlias(Tcl_Interp *interp, - const char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *argcPtr, - CONST84 char ***argvPtr); -/* 149 */ -EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, - const char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *objcPtr, - Tcl_Obj ***objv); -/* 150 */ -EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, - const char *name, - Tcl_InterpDeleteProc **procPtr); -/* 151 */ -EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, - const char *chanName, int *modePtr); -/* 152 */ -EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); -/* 153 */ -EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, - ClientData *handlePtr); -/* 154 */ -EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); -/* 155 */ -EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); -/* 156 */ -EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); -/* 157 */ -EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, const char *optionName, - Tcl_DString *dsPtr); -/* 158 */ -EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); -/* 159 */ -EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, - const char *cmdName, Tcl_CmdInfo *infoPtr); -/* 160 */ -EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, - Tcl_Command command); -/* 161 */ -EXTERN int Tcl_GetErrno(void); -/* 162 */ -EXTERN CONST84_RETURN char * Tcl_GetHostName(void); -/* 163 */ -EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, - Tcl_Interp *slaveInterp); -/* 164 */ -EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); -/* 165 */ -EXTERN const char * Tcl_GetNameOfExecutable(void); -/* 166 */ -EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - const char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - const char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif /* MACOSX */ -/* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType(const char *path); -/* 169 */ -EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); -/* 170 */ -EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); -/* 171 */ -EXTERN int Tcl_GetServiceMode(void); -/* 172 */ -EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, - const char *slaveName); -/* 173 */ -EXTERN Tcl_Channel Tcl_GetStdChannel(int type); -/* 174 */ -EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); -/* 175 */ -EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, - const char *varName, int flags); -/* 176 */ -EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, - const char *part1, const char *part2, - int flags); -/* 177 */ -EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, - const char *command); -/* 178 */ -EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 179 */ -EXTERN int Tcl_HideCommand(Tcl_Interp *interp, - const char *cmdName, - const char *hiddenCmdToken); -/* 180 */ -EXTERN int Tcl_Init(Tcl_Interp *interp); -/* 181 */ -EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, - int keyType); -/* 182 */ -EXTERN int Tcl_InputBlocked(Tcl_Channel chan); -/* 183 */ -EXTERN int Tcl_InputBuffered(Tcl_Channel chan); -/* 184 */ -EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); -/* 185 */ -EXTERN int Tcl_IsSafe(Tcl_Interp *interp); -/* 186 */ -EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv, - Tcl_DString *resultPtr); -/* 187 */ -EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName, - char *addr, int type); -/* Slot 188 is reserved */ -/* 189 */ -EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); -/* 190 */ -EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); -/* 191 */ -EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); -/* 192 */ -EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv); -/* 193 */ -EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); -/* 194 */ -EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); -/* 195 */ -EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, int flags); -/* 196 */ -EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - int flags); -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, - CONST84 char **argv, int flags); -/* 198 */ -EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, - const char *fileName, const char *modeString, - int permissions); -/* 199 */ -EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, - const char *address, const char *myaddr, - int myport, int async); -/* 200 */ -EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, - const char *host, - Tcl_TcpAcceptProc *acceptProc, - ClientData callbackData); -/* 201 */ -EXTERN void Tcl_Preserve(ClientData data); -/* 202 */ -EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, - char *dst); -/* 203 */ -EXTERN int Tcl_PutEnv(const char *assignment); -/* 204 */ -EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); -/* 205 */ -EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, - Tcl_QueuePosition position); -/* 206 */ -EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs(void); -/* 208 */ -EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, - const char *cmd, int flags); -/* 209 */ -EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, - Tcl_Obj *cmdPtr, int flags); -/* 210 */ -EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -/* 211 */ -EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr); -/* 212 */ -EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, - const char *pattern); -/* 213 */ -EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, - const char *text, const char *start); -/* 214 */ -EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text, - const char *pattern); -/* 215 */ -EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, - CONST84 char **startPtr, - CONST84 char **endPtr); -/* 216 */ -EXTERN void Tcl_Release(ClientData clientData); -/* 217 */ -EXTERN void Tcl_ResetResult(Tcl_Interp *interp); -/* 218 */ -EXTERN int Tcl_ScanElement(const char *src, int *flagPtr); -/* 219 */ -EXTERN int Tcl_ScanCountedElement(const char *src, int length, - int *flagPtr); -/* 220 */ -EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); -/* 221 */ -EXTERN int Tcl_ServiceAll(void); -/* 222 */ -EXTERN int Tcl_ServiceEvent(int flags); -/* 223 */ -EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, - const char *name, Tcl_InterpDeleteProc *proc, - ClientData clientData); -/* 224 */ -EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); -/* 225 */ -EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, const char *optionName, - const char *newValue); -/* 226 */ -EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, - const char *cmdName, - const Tcl_CmdInfo *infoPtr); -/* 227 */ -EXTERN void Tcl_SetErrno(int err); -/* 228 */ -EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); -/* 229 */ -EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr); -/* 230 */ -EXTERN void Tcl_SetPanicProc( - TCL_NORETURN1 Tcl_PanicProc *panicProc); -/* 231 */ -EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); -/* 232 */ -EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, - Tcl_FreeProc *freeProc); -/* 233 */ -EXTERN int Tcl_SetServiceMode(int mode); -/* 234 */ -EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, - Tcl_Obj *errorObjPtr); -/* 235 */ -EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, - Tcl_Obj *resultObjPtr); -/* 236 */ -EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); -/* 237 */ -EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, - const char *varName, const char *newValue, - int flags); -/* 238 */ -EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, - const char *part1, const char *part2, - const char *newValue, int flags); -/* 239 */ -EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); -/* 240 */ -EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); -/* 241 */ -EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); -/* 242 */ -EXTERN int Tcl_SplitList(Tcl_Interp *interp, - const char *listStr, int *argcPtr, - CONST84 char ***argvPtr); -/* 243 */ -EXTERN void Tcl_SplitPath(const char *path, int *argcPtr, - CONST84 char ***argvPtr); -/* 244 */ -EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, - const char *pkgName, - Tcl_PackageInitProc *initProc, - Tcl_PackageInitProc *safeInitProc); -/* 245 */ -EXTERN int Tcl_StringMatch(const char *str, const char *pattern); -/* 246 */ -EXTERN int Tcl_TellOld(Tcl_Channel chan); -/* 247 */ -EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -/* 248 */ -EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1, - const char *part2, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -/* 249 */ -EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, - const char *name, Tcl_DString *bufferPtr); -/* 250 */ -EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str, - int len, int atHead); -/* 251 */ -EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, - const char *varName); -/* 252 */ -EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -/* 253 */ -EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName, - int flags); -/* 254 */ -EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1, - const char *part2, int flags); -/* 255 */ -EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -/* 256 */ -EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, - const char *part1, const char *part2, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -/* 257 */ -EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, - const char *varName); -/* 258 */ -EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName, - const char *varName, const char *localName, - int flags); -/* 259 */ -EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName, - const char *part1, const char *part2, - const char *localName, int flags); -/* 260 */ -EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); -/* 261 */ -EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -/* 262 */ -EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, - const char *part1, const char *part2, - int flags, Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -/* 263 */ -EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen); -/* 264 */ -EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], const char *message); -/* 265 */ -EXTERN int Tcl_DumpActiveMemory(const char *fileName); -/* 266 */ -EXTERN void Tcl_ValidateAllMemory(const char *file, int line); -/* 267 */ -EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, - va_list argList); -/* 268 */ -EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, - va_list argList); -/* 269 */ -EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); -/* 270 */ -EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, - const char *start, CONST84 char **termPtr); -/* 271 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, - const char *name, const char *version, - int exact); -/* 272 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, - const char *name, const char *version, - int exact, void *clientDataPtr); -/* 273 */ -EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, - const char *version); -/* 274 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, - const char *name, const char *version, - int exact); -/* 275 */ -EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, - va_list argList); -/* 276 */ -EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); -/* 277 */ -EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); -/* 278 */ -EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList); -/* 279 */ -EXTERN void Tcl_GetVersion(int *major, int *minor, - int *patchLevel, int *type); -/* 280 */ -EXTERN void Tcl_InitMemory(Tcl_Interp *interp); -/* 281 */ -EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, - const Tcl_ChannelType *typePtr, - ClientData instanceData, int mask, - Tcl_Channel prevChan); -/* 282 */ -EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, - Tcl_Channel chan); -/* 283 */ -EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); -/* 284 */ -EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); -/* Slot 285 is reserved */ -/* 286 */ -EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, - Tcl_Obj *appendObjPtr); -/* 287 */ -EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr); -/* 288 */ -EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 289 */ -EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 290 */ -EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); -/* 291 */ -EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script, - int numBytes, int flags); -/* 292 */ -EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags); -/* 293 */ -EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 294 */ -EXTERN void Tcl_ExitThread(int status); -/* 295 */ -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); -/* 296 */ -EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, - const char *src, int srcLen, - Tcl_DString *dsPtr); -/* 297 */ -EXTERN void Tcl_FinalizeThread(void); -/* 298 */ -EXTERN void Tcl_FinalizeNotifier(ClientData clientData); -/* 299 */ -EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); -/* 300 */ -EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); -/* 301 */ -EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name); -/* 302 */ -EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); -/* 303 */ -EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); -/* 304 */ -EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, - Tcl_Obj *objPtr, const void *tablePtr, - int offset, const char *msg, int flags, - int *indexPtr); -/* 305 */ -EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, - int size); -/* 306 */ -EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1, - const char *part2, int flags); -/* 307 */ -EXTERN ClientData Tcl_InitNotifier(void); -/* 308 */ -EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); -/* 309 */ -EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); -/* 310 */ -EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); -/* 311 */ -EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, - Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); -/* 312 */ -EXTERN int Tcl_NumUtfChars(const char *src, int length); -/* 313 */ -EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, - int charsToRead, int appendFlag); -/* 314 */ -EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -/* 315 */ -EXTERN void Tcl_SaveResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -/* 316 */ -EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, - const char *name); -/* 317 */ -EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1, - const char *part2, Tcl_Obj *newValuePtr, - int flags); -/* 318 */ -EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); -/* 319 */ -EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, - Tcl_Event *evPtr, Tcl_QueuePosition position); -/* 320 */ -EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index); -/* 321 */ -EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); -/* 322 */ -EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); -/* 323 */ -EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); -/* 324 */ -EXTERN int Tcl_UniCharToUtf(int ch, char *buf); -/* 325 */ -EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index); -/* 326 */ -EXTERN int Tcl_UtfCharComplete(const char *src, int length); -/* 327 */ -EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr, - char *dst); -/* 328 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch); -/* 329 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch); -/* 330 */ -EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src); -/* 331 */ -EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start); -/* 332 */ -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); -/* 333 */ -EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, - const char *src, int srcLen, - Tcl_DString *dsPtr); -/* 334 */ -EXTERN int Tcl_UtfToLower(char *src); -/* 335 */ -EXTERN int Tcl_UtfToTitle(char *src); -/* 336 */ -EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr); -/* 337 */ -EXTERN int Tcl_UtfToUpper(char *src); -/* 338 */ -EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src, - int srcLen); -/* 339 */ -EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); -/* 340 */ -EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); -/* 341 */ -EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); -/* 342 */ -EXTERN void Tcl_SetDefaultEncodingDir(const char *path); -/* 343 */ -EXTERN void Tcl_AlertNotifier(ClientData clientData); -/* 344 */ -EXTERN void Tcl_ServiceModeHook(int mode); -/* 345 */ -EXTERN int Tcl_UniCharIsAlnum(int ch); -/* 346 */ -EXTERN int Tcl_UniCharIsAlpha(int ch); -/* 347 */ -EXTERN int Tcl_UniCharIsDigit(int ch); -/* 348 */ -EXTERN int Tcl_UniCharIsLower(int ch); -/* 349 */ -EXTERN int Tcl_UniCharIsSpace(int ch); -/* 350 */ -EXTERN int Tcl_UniCharIsUpper(int ch); -/* 351 */ -EXTERN int Tcl_UniCharIsWordChar(int ch); -/* 352 */ -EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr); -/* 353 */ -EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs, - const Tcl_UniChar *uct, - unsigned long numChars); -/* 354 */ -EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr, - int uniLength, Tcl_DString *dsPtr); -/* 355 */ -EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length, - Tcl_DString *dsPtr); -/* 356 */ -EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, - Tcl_Obj *patObj, int flags); -/* 357 */ -EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -/* 358 */ -EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); -/* 359 */ -EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, - const char *script, const char *command, - int length); -/* 360 */ -EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, - const char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -/* 361 */ -EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, - const char *start, int numBytes, int nested, - Tcl_Parse *parsePtr); -/* 362 */ -EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start, - int numBytes, Tcl_Parse *parsePtr); -/* 363 */ -EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, - const char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -/* 364 */ -EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, - const char *start, int numBytes, - Tcl_Parse *parsePtr, int append); -/* 365 */ -EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); -/* 366 */ -EXTERN int Tcl_Chdir(const char *dirName); -/* 367 */ -EXTERN int Tcl_Access(const char *path, int mode); -/* 368 */ -EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr); -/* 369 */ -EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, - unsigned long n); -/* 370 */ -EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2, - unsigned long n); -/* 371 */ -EXTERN int Tcl_StringCaseMatch(const char *str, - const char *pattern, int nocase); -/* 372 */ -EXTERN int Tcl_UniCharIsControl(int ch); -/* 373 */ -EXTERN int Tcl_UniCharIsGraph(int ch); -/* 374 */ -EXTERN int Tcl_UniCharIsPrint(int ch); -/* 375 */ -EXTERN int Tcl_UniCharIsPunct(int ch); -/* 376 */ -EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, - Tcl_RegExp regexp, Tcl_Obj *textObj, - int offset, int nmatches, int flags); -/* 377 */ -EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, - Tcl_RegExpInfo *infoPtr); -/* 378 */ -EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode, - int numChars); -/* 379 */ -EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, - const Tcl_UniChar *unicode, int numChars); -/* 380 */ -EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); -/* 381 */ -EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); -/* 382 */ -EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); -/* 383 */ -EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); -/* 384 */ -EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, - const Tcl_UniChar *unicode, int length); -/* 385 */ -EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, - Tcl_Obj *textObj, Tcl_Obj *patternObj); -/* 386 */ -EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); -/* 387 */ -EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); -/* 388 */ -EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); -/* 389 */ -EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, - const char *pattern); -/* 390 */ -EXTERN int Tcl_ProcObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 391 */ -EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); -/* 392 */ -EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); -/* 393 */ -EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc *proc, - ClientData clientData, int stackSize, - int flags); -/* 394 */ -EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, - int bytesToRead); -/* 395 */ -EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src, - int srcLen); -/* 396 */ -EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); -/* 397 */ -EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); -/* 398 */ -EXTERN CONST84_RETURN char * Tcl_ChannelName( - const Tcl_ChannelType *chanTypePtr); -/* 399 */ -EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( - const Tcl_ChannelType *chanTypePtr); -/* 400 */ -EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( - const Tcl_ChannelType *chanTypePtr); -/* 401 */ -EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( - const Tcl_ChannelType *chanTypePtr); -/* 402 */ -EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( - const Tcl_ChannelType *chanTypePtr); -/* 403 */ -EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( - const Tcl_ChannelType *chanTypePtr); -/* 404 */ -EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( - const Tcl_ChannelType *chanTypePtr); -/* 405 */ -EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( - const Tcl_ChannelType *chanTypePtr); -/* 406 */ -EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( - const Tcl_ChannelType *chanTypePtr); -/* 407 */ -EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( - const Tcl_ChannelType *chanTypePtr); -/* 408 */ -EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( - const Tcl_ChannelType *chanTypePtr); -/* 409 */ -EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( - const Tcl_ChannelType *chanTypePtr); -/* 410 */ -EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( - const Tcl_ChannelType *chanTypePtr); -/* 411 */ -EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( - const Tcl_ChannelType *chanTypePtr); -/* 412 */ -EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); -/* 413 */ -EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); -/* 414 */ -EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, - Tcl_Channel channel); -/* 415 */ -EXTERN void Tcl_CutChannel(Tcl_Channel channel); -/* 416 */ -EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); -/* 417 */ -EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); -/* 418 */ -EXTERN int Tcl_IsChannelExisting(const char *channelName); -/* 419 */ -EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs, - const Tcl_UniChar *uct, - unsigned long numChars); -/* 420 */ -EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr, - const Tcl_UniChar *uniPattern, int nocase); -/* 421 */ -EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, - const void *key); -/* 422 */ -EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, - const void *key, int *newPtr); -/* 423 */ -EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, - int keyType, const Tcl_HashKeyType *typePtr); -/* 424 */ -EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); -/* 425 */ -EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_CommandTraceProc *procPtr, - ClientData prevClientData); -/* 426 */ -EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -/* 427 */ -EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -/* 428 */ -EXTERN char * Tcl_AttemptAlloc(unsigned int size); -/* 429 */ -EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, - const char *file, int line); -/* 430 */ -EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); -/* 431 */ -EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, - const char *file, int line); -/* 432 */ -EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); -/* 433 */ -EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); -/* 434 */ -EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -/* 435 */ -EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, - const char *name, int *numArgsPtr, - Tcl_ValueType **argTypesPtr, - Tcl_MathProc **procPtr, - ClientData *clientDataPtr); -/* 436 */ -EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, - const char *pattern); -/* 437 */ -EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 438 */ -EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, - Tcl_Channel channel); -/* 439 */ -EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); -/* 440 */ -EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 441 */ -EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -/* 442 */ -EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); -/* 443 */ -EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); -/* 444 */ -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); -/* 445 */ -EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, - const char *pattern, Tcl_GlobTypeData *types); -/* 446 */ -EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkAction); -/* 447 */ -EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -/* 448 */ -EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 449 */ -EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -/* 450 */ -EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -/* 451 */ -EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); -/* 452 */ -EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj *objPtr); -/* 453 */ -EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, - Tcl_Obj **objPtrRef); -/* 454 */ -EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -/* 455 */ -EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); -/* 456 */ -EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, const char *modeString, - int permissions); -/* 457 */ -EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); -/* 458 */ -EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); -/* 459 */ -EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 460 */ -EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); -/* 461 */ -EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -/* 462 */ -EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, - Tcl_Obj *secondPtr); -/* 463 */ -EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 464 */ -EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, - Tcl_Obj *const objv[]); -/* 465 */ -EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, - const Tcl_Filesystem *fsPtr); -/* 466 */ -EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 467 */ -EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); -/* 468 */ -EXTERN Tcl_Obj * Tcl_FSNewNativePath( - const Tcl_Filesystem *fromFilesystem, - ClientData clientData); -/* 469 */ -EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); -/* 470 */ -EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); -/* 471 */ -EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); -/* 472 */ -EXTERN Tcl_Obj * Tcl_FSListVolumes(void); -/* 473 */ -EXTERN int Tcl_FSRegister(ClientData clientData, - const Tcl_Filesystem *fsPtr); -/* 474 */ -EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr); -/* 475 */ -EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr); -/* 476 */ -EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 477 */ -EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); -/* 478 */ -EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); -/* 479 */ -EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); -/* 480 */ -EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr); -/* 481 */ -EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -/* 482 */ -EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); -/* 483 */ -EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, - int flags, Tcl_CmdObjTraceProc *objProc, - ClientData clientData, - Tcl_CmdObjTraceDeleteProc *delProc); -/* 484 */ -EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, - Tcl_CmdInfo *infoPtr); -/* 485 */ -EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, - const Tcl_CmdInfo *infoPtr); -/* 486 */ -EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, - const char *file, int line); -/* 487 */ -EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_WideInt *widePtr); -/* 488 */ -EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); -/* 489 */ -EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, - Tcl_WideInt wideValue); -/* 490 */ -EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); -/* 491 */ -EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, - int mode); -/* 492 */ -EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); -/* 493 */ -EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( - const Tcl_ChannelType *chanTypePtr); -/* 494 */ -EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); -/* 495 */ -EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); -/* 496 */ -EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); -/* 497 */ -EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int *sizePtr); -/* 498 */ -EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -/* 499 */ -EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -/* 500 */ -EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); -/* 501 */ -EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); -/* 502 */ -EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *const *keyv); -/* 503 */ -EXTERN Tcl_Obj * Tcl_NewDictObj(void); -/* 504 */ -EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line); -/* 505 */ -EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, - const char *pkgName, - const Tcl_Config *configuration, - const char *valEncoding); -/* 506 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - const char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -/* 507 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -/* 508 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -/* 509 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int resetListFirst); -/* 510 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int allowOverwrite); -/* 511 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, const char *pattern); -/* 512 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -/* 513 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -/* 514 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 515 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 516 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 517 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -/* 518 */ -EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, - Tcl_Obj *fileName, const char *encodingName); -/* 519 */ -EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc); -/* 520 */ -EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData, - Tcl_LimitHandlerDeleteProc *deleteProc); -/* 521 */ -EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData); -/* 522 */ -EXTERN int Tcl_LimitReady(Tcl_Interp *interp); -/* 523 */ -EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); -/* 524 */ -EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); -/* 525 */ -EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, - int commandLimit); -/* 526 */ -EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -/* 527 */ -EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, - int granularity); -/* 528 */ -EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); -/* 529 */ -EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); -/* 530 */ -EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); -/* 531 */ -EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); -/* 532 */ -EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); -/* 533 */ -EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -/* 534 */ -EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); -/* 535 */ -EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); -/* 536 */ -EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, - Tcl_InterpState state); -/* 537 */ -EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); -/* 538 */ -EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, - Tcl_Obj *options); -/* 539 */ -EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); -/* 540 */ -EXTERN int Tcl_IsEnsemble(Tcl_Command token); -/* 541 */ -EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *namespacePtr, int flags); -/* 542 */ -EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, - Tcl_Obj *cmdNameObj, int flags); -/* 543 */ -EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *subcmdList); -/* 544 */ -EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *mapDict); -/* 545 */ -EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *unknownList); -/* 546 */ -EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int flags); -/* 547 */ -EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **subcmdListPtr); -/* 548 */ -EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **mapDictPtr); -/* 549 */ -EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **unknownListPtr); -/* 550 */ -EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int *flagsPtr); -/* 551 */ -EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, - Tcl_Command token, - Tcl_Namespace **namespacePtrPtr); -/* 552 */ -EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, - Tcl_ScaleTimeProc *scaleProc, - ClientData clientData); -/* 553 */ -EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, - Tcl_ScaleTimeProc **scaleProc, - ClientData *clientData); -/* 554 */ -EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( - const Tcl_ChannelType *chanTypePtr); -/* 555 */ -EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); -/* 556 */ -EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file, - int line); -/* 557 */ -EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); -/* 558 */ -EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -/* 559 */ -EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -/* 560 */ -EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, - Tcl_WideInt length); -/* 561 */ -EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( - const Tcl_ChannelType *chanTypePtr); -/* 562 */ -EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj *msg); -/* 563 */ -EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj **msg); -/* 564 */ -EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); -/* 565 */ -EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); -/* 566 */ -EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, - double initval, mp_int *toInit); -/* 567 */ -EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr); -/* 568 */ -EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); -/* 569 */ -EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); -/* 570 */ -EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); -/* 571 */ -EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); -/* 572 */ -EXTERN const char * Tcl_GetEncodingNameFromEnvironment( - Tcl_DString *bufPtr); -/* 573 */ -EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, - const char *name, int objc, - Tcl_Obj *const objv[], void *clientDataPtr); -/* 574 */ -EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 575 */ -EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, - const char *bytes, int length, int limit, - const char *ellipsis); -/* 576 */ -EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format, - int objc, Tcl_Obj *const objv[]); -/* 577 */ -EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, const char *format, - int objc, Tcl_Obj *const objv[]); -/* 578 */ -EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); -/* 579 */ -EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, - const char *format, ...) TCL_FORMAT_PRINTF(2, 3); -/* 580 */ -EXTERN int Tcl_CancelEval(Tcl_Interp *interp, - Tcl_Obj *resultObjPtr, ClientData clientData, - int flags); -/* 581 */ -EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags); -/* 582 */ -EXTERN int Tcl_CreatePipe(Tcl_Interp *interp, - Tcl_Channel *rchan, Tcl_Channel *wchan, - int flags); -/* 583 */ -EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_ObjCmdProc *proc, - Tcl_ObjCmdProc *nreProc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -/* 584 */ -EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 585 */ -EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags); -/* 586 */ -EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd, - int objc, Tcl_Obj *const objv[], int flags); -/* 587 */ -EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp, - Tcl_NRPostProc *postProcPtr, - ClientData data0, ClientData data1, - ClientData data2, ClientData data3); -/* 588 */ -EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp, - Tcl_ObjCmdProc *objProc, - ClientData clientData, int objc, - Tcl_Obj *const objv[]); -/* 589 */ -EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr); -/* 590 */ -EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr); -/* 591 */ -EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr); -/* 592 */ -EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr); -/* 593 */ -EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr); -/* 594 */ -EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr); -/* 595 */ -EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr); -/* 596 */ -EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr); -/* 597 */ -EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat( - const Tcl_StatBuf *statPtr); -/* 598 */ -EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr); -/* 599 */ -EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr); -/* 600 */ -EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr); -/* 601 */ -EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr); -/* 602 */ -EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *paramList); -/* 603 */ -EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **paramListPtr); -/* 604 */ -EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp, - const Tcl_ArgvInfo *argTable, int *objcPtr, - Tcl_Obj *const *objv, Tcl_Obj ***remObjv); -/* 605 */ -EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp); -/* 606 */ -EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum); -/* 607 */ -EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp, - int code, Tcl_Interp *targetInterp); -/* 608 */ -EXTERN int Tcl_InterpActive(Tcl_Interp *interp); -/* 609 */ -EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code); -/* 610 */ -EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format, - Tcl_Obj *data, int level, - Tcl_Obj *gzipHeaderDictObj); -/* 611 */ -EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format, - Tcl_Obj *data, int buffersize, - Tcl_Obj *gzipHeaderDictObj); -/* 612 */ -EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc, - const unsigned char *buf, int len); -/* 613 */ -EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler, - const unsigned char *buf, int len); -/* 614 */ -EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode, - int format, int level, Tcl_Obj *dictObj, - Tcl_ZlibStream *zshandle); -/* 615 */ -EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle); -/* 616 */ -EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle); -/* 617 */ -EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle); -/* 618 */ -EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle, - Tcl_Obj *data, int flush); -/* 619 */ -EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle, - Tcl_Obj *data, int count); -/* 620 */ -EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle); -/* 621 */ -EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle); -/* 622 */ -EXTERN void Tcl_SetStartupScript(Tcl_Obj *path, - const char *encoding); -/* 623 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr); -/* 624 */ -EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, - int flags); -/* 625 */ -EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Obj *resultPtr); -/* 626 */ -EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 627 */ -EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - const char *const symv[], int flags, - void *procPtrs, Tcl_LoadHandle *handlePtr); -/* 628 */ -EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp, - Tcl_LoadHandle handle, const char *symbol); -/* 629 */ -EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, - Tcl_LoadHandle handlePtr); -/* 630 */ -EXTERN void Tcl_ZlibStreamSetCompressionDictionary( - Tcl_ZlibStream zhandle, - Tcl_Obj *compressionDictionaryObj); -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -/* 648 */ -EXTERN void TclUnusedStubEntry(void); - -typedef struct { - const struct TclPlatStubs *tclPlatStubs; - const struct TclIntStubs *tclIntStubs; - const struct TclIntPlatStubs *tclIntPlatStubs; -} TclStubHooks; - -typedef struct TclStubs { - int magic; - const TclStubHooks *hooks; - - int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */ - CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */ - TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */ - char * (*tcl_Alloc) (unsigned int size); /* 3 */ - void (*tcl_Free) (char *ptr); /* 4 */ - char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ - char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */ - void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */ - char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* UNIX */ -#if defined(_WIN32) /* WIN */ - void (*reserved9)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* MACOSX */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* UNIX */ -#if defined(_WIN32) /* WIN */ - void (*reserved10)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* MACOSX */ - void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */ - void (*tcl_Sleep) (int ms); /* 12 */ - int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */ - int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ - void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ - void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */ - Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */ - int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */ - void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */ - void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */ - int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */ - Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */ - Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */ - Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */ - Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */ - Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ - void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ - int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */ - int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ - unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */ - int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */ - int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */ - int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */ - int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */ - int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */ - int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */ - CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */ - char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ - void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ - int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */ - int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ - int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ - int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */ - int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */ - int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */ - Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ - Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */ - Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ - Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ - Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */ - Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ - Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ - Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */ - void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ - unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */ - void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */ - void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */ - void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ - void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */ - void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ - void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ - void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */ - void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */ - void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */ - void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ - void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */ - void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */ - void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ - int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ - void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ - int (*tcl_AsyncReady) (void); /* 75 */ - void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ - char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */ - int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */ - void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ - void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ - int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ - int (*tcl_CommandComplete) (const char *cmd); /* 82 */ - char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */ - int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */ - int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */ - int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */ - int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */ - Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */ - void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */ - void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ - Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */ - void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */ - void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */ - Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ - void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */ - Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */ - Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveName, int isSafe); /* 97 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */ - Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */ - void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */ - void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */ - void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ - int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */ - int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */ - void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */ - void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */ - void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */ - void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ - void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ - void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ - void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ - void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */ - void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */ - int (*tcl_DoOneEvent) (int flags); /* 115 */ - void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ - char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */ - char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */ - void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ - void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ - void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ - void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ - void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ - void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */ - void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ - int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ - CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ - CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ - int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */ - int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */ - int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ - void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */ - TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */ - int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */ - int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */ - int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */ - int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */ - int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */ - int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */ - int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */ - int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */ - int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */ - void (*tcl_Finalize) (void); /* 143 */ - void (*tcl_FindExecutable) (const char *argv0); /* 144 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ - int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ - void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ - int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */ - int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ - ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ - Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */ - int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ - int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */ - ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ - int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ - CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ - int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */ - CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ - int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */ - CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */ - int (*tcl_GetErrno) (void); /* 161 */ - CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ - int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */ - Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ - const char * (*tcl_GetNameOfExecutable) (void); /* 165 */ - Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* UNIX */ -#if defined(_WIN32) /* WIN */ - void (*reserved167)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* MACOSX */ - Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */ - int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ - int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ - int (*tcl_GetServiceMode) (void); /* 171 */ - Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName); /* 172 */ - Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ - CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */ - CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */ - CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */ - int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */ - int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ - int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */ - int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ - void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */ - int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ - int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ - int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ - int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ - char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */ - int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */ - void (*reserved188)(void); - Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ - int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ - char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */ - Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */ - void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ - Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */ - Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */ - Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */ - Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */ - Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */ - void (*tcl_Preserve) (ClientData data); /* 201 */ - void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ - int (*tcl_PutEnv) (const char *assignment); /* 203 */ - CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ - void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ - int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ - int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */ - int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ - void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ - void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */ - Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */ - int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */ - int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */ - void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ - void (*tcl_Release) (ClientData clientData); /* 216 */ - void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ - int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */ - int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ - int (*tcl_ServiceAll) (void); /* 221 */ - int (*tcl_ServiceEvent) (int flags); /* 222 */ - void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */ - void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ - int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */ - int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */ - void (*tcl_SetErrno) (int err); /* 227 */ - void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ - void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */ - void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */ - int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ - void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */ - int (*tcl_SetServiceMode) (int mode); /* 233 */ - void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ - void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */ - void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ - CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */ - CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */ - CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ - CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ - void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ - int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */ - void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */ - void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ - int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */ - int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ - int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ - int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */ - char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */ - int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */ - void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */ - int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ - int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */ - int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */ - void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ - void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */ - void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */ - int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */ - int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */ - int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ - ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */ - ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */ - int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */ - void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */ - int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */ - void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */ - void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */ - void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ - char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ - CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */ - CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */ - CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */ - int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */ - CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */ - void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */ - int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ - Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ - TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */ - void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */ - void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ - Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ - int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */ - Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ - void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ - void (*reserved285)(void); - void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ - Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */ - void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */ - void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */ - void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ - int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */ - int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */ - int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ - void (*tcl_ExitThread) (int status); /* 294 */ - 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); /* 295 */ - char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */ - void (*tcl_FinalizeThread) (void); /* 297 */ - void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ - void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ - Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ - Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */ - CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ - void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ - int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */ - void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */ - Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */ - ClientData (*tcl_InitNotifier) (void); /* 307 */ - void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ - void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ - void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ - void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */ - int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */ - int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */ - void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */ - void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ - int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */ - Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ - void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ - void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ - Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */ - Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ - Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ - Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ - int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ - CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */ - int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */ - int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */ - CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */ - CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */ - CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */ - CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */ - 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); /* 332 */ - char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */ - int (*tcl_UtfToLower) (char *src); /* 334 */ - int (*tcl_UtfToTitle) (char *src); /* 335 */ - int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */ - int (*tcl_UtfToUpper) (char *src); /* 337 */ - int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */ - int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ - char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ - CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ - void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */ - void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ - void (*tcl_ServiceModeHook) (int mode); /* 344 */ - int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ - int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ - int (*tcl_UniCharIsDigit) (int ch); /* 347 */ - int (*tcl_UniCharIsLower) (int ch); /* 348 */ - int (*tcl_UniCharIsSpace) (int ch); /* 349 */ - int (*tcl_UniCharIsUpper) (int ch); /* 350 */ - int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ - int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */ - int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */ - char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */ - Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */ - Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */ - Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */ - void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ - void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */ - int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ - int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */ - int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */ - int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */ - int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */ - char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ - int (*tcl_Chdir) (const char *dirName); /* 366 */ - int (*tcl_Access) (const char *path, int mode); /* 367 */ - int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */ - int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */ - int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */ - int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */ - int (*tcl_UniCharIsControl) (int ch); /* 372 */ - int (*tcl_UniCharIsGraph) (int ch); /* 373 */ - int (*tcl_UniCharIsPrint) (int ch); /* 374 */ - int (*tcl_UniCharIsPunct) (int ch); /* 375 */ - int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */ - void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ - Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */ - void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */ - int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ - Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ - Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ - Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */ - void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */ - int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ - void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ - Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ - int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ - int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */ - int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */ - void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ - void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ - int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */ - int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */ - int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */ - Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ - int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ - CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */ - Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */ - Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */ - Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */ - Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */ - Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */ - Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */ - Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */ - Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */ - Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */ - Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */ - Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */ - Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */ - Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */ - int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ - int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ - int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */ - void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ - void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ - void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ - int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */ - int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */ - int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */ - Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */ - Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */ - void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */ - void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ - ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */ - int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ - void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ - char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ - char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */ - char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ - char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */ - int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ - Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ - Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */ - int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */ - Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */ - Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */ - int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ - int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ - int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */ - int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ - int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ - int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ - 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); /* 444 */ - int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */ - Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */ - int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ - int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ - int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ - int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ - int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */ - int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */ - const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */ - int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ - int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ - Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */ - Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ - int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ - int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ - Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ - Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ - int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ - Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */ - Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */ - ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */ - Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ - int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ - Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ - const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ - Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ - Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ - Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ - int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */ - int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */ - ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */ - const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */ - CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */ - Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ - int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ - void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */ - int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ - void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ - Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */ - int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */ - int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */ - Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */ - int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */ - Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ - void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ - Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ - Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ - Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ - Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */ - int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */ - int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ - int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ - int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */ - int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */ - void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ - void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ - int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */ - int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */ - Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ - Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */ - void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */ - int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */ - Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */ - void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */ - void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */ - int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ - int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ - int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ - void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ - void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ - void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */ - int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ - int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */ - void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */ - void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ - int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ - void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ - int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */ - Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */ - int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */ - void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ - int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ - Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ - int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ - Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */ - Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */ - int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */ - int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */ - int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */ - int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ - int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */ - int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */ - int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */ - int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ - int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ - void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */ - void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ - Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */ - Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ - Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */ - void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ - int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */ - int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ - int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ - Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */ - void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */ - void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ - void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ - void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */ - int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */ - Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */ - int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ - int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */ - Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ - int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ - const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */ - int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */ - void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ - void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */ - Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */ - int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */ - Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */ - void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */ - int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */ - int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */ - int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */ - Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */ - int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */ - int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */ - int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */ - void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */ - int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */ - unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */ - unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */ - unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */ - int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */ - int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */ - int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */ - int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */ - Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */ - Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */ - Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */ - Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */ - Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */ - unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */ - int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */ - int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */ - int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */ - int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */ - void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */ - void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */ - int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */ - void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */ - int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */ - int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */ - unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */ - unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */ - int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */ - Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */ - int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */ - int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */ - int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */ - int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */ - int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */ - int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */ - void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */ - Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */ - int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */ - int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */ - int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */ - int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */ - void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */ - int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */ - void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */ - void (*reserved631)(void); - void (*reserved632)(void); - void (*reserved633)(void); - void (*reserved634)(void); - void (*reserved635)(void); - void (*reserved636)(void); - void (*reserved637)(void); - void (*reserved638)(void); - void (*reserved639)(void); - void (*reserved640)(void); - void (*reserved641)(void); - void (*reserved642)(void); - void (*reserved643)(void); - void (*reserved644)(void); - void (*reserved645)(void); - void (*reserved646)(void); - void (*reserved647)(void); - void (*tclUnusedStubEntry) (void); /* 648 */ -} TclStubs; - -extern const TclStubs *tclStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#define Tcl_PkgProvideEx \ - (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ -#define Tcl_PkgRequireEx \ - (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 2 */ -#define Tcl_Alloc \ - (tclStubsPtr->tcl_Alloc) /* 3 */ -#define Tcl_Free \ - (tclStubsPtr->tcl_Free) /* 4 */ -#define Tcl_Realloc \ - (tclStubsPtr->tcl_Realloc) /* 5 */ -#define Tcl_DbCkalloc \ - (tclStubsPtr->tcl_DbCkalloc) /* 6 */ -#define Tcl_DbCkfree \ - (tclStubsPtr->tcl_DbCkfree) /* 7 */ -#define Tcl_DbCkrealloc \ - (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif /* MACOSX */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif /* MACOSX */ -#define Tcl_SetTimer \ - (tclStubsPtr->tcl_SetTimer) /* 11 */ -#define Tcl_Sleep \ - (tclStubsPtr->tcl_Sleep) /* 12 */ -#define Tcl_WaitForEvent \ - (tclStubsPtr->tcl_WaitForEvent) /* 13 */ -#define Tcl_AppendAllObjTypes \ - (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ -#define Tcl_AppendToObj \ - (tclStubsPtr->tcl_AppendToObj) /* 16 */ -#define Tcl_ConcatObj \ - (tclStubsPtr->tcl_ConcatObj) /* 17 */ -#define Tcl_ConvertToType \ - (tclStubsPtr->tcl_ConvertToType) /* 18 */ -#define Tcl_DbDecrRefCount \ - (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ -#define Tcl_DbIncrRefCount \ - (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ -#define Tcl_DbIsShared \ - (tclStubsPtr->tcl_DbIsShared) /* 21 */ -#define Tcl_DbNewBooleanObj \ - (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ -#define Tcl_DbNewByteArrayObj \ - (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ -#define Tcl_DbNewDoubleObj \ - (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ -#define Tcl_DbNewListObj \ - (tclStubsPtr->tcl_DbNewListObj) /* 25 */ -#define Tcl_DbNewLongObj \ - (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ -#define Tcl_DbNewObj \ - (tclStubsPtr->tcl_DbNewObj) /* 27 */ -#define Tcl_DbNewStringObj \ - (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ -#define Tcl_DuplicateObj \ - (tclStubsPtr->tcl_DuplicateObj) /* 29 */ -#define TclFreeObj \ - (tclStubsPtr->tclFreeObj) /* 30 */ -#define Tcl_GetBoolean \ - (tclStubsPtr->tcl_GetBoolean) /* 31 */ -#define Tcl_GetBooleanFromObj \ - (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ -#define Tcl_GetByteArrayFromObj \ - (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ -#define Tcl_GetDouble \ - (tclStubsPtr->tcl_GetDouble) /* 34 */ -#define Tcl_GetDoubleFromObj \ - (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ -#define Tcl_GetIndexFromObj \ - (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ -#define Tcl_GetInt \ - (tclStubsPtr->tcl_GetInt) /* 37 */ -#define Tcl_GetIntFromObj \ - (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ -#define Tcl_GetLongFromObj \ - (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ -#define Tcl_GetObjType \ - (tclStubsPtr->tcl_GetObjType) /* 40 */ -#define Tcl_GetStringFromObj \ - (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ -#define Tcl_InvalidateStringRep \ - (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ -#define Tcl_ListObjAppendList \ - (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ -#define Tcl_ListObjAppendElement \ - (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ -#define Tcl_ListObjGetElements \ - (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ -#define Tcl_ListObjIndex \ - (tclStubsPtr->tcl_ListObjIndex) /* 46 */ -#define Tcl_ListObjLength \ - (tclStubsPtr->tcl_ListObjLength) /* 47 */ -#define Tcl_ListObjReplace \ - (tclStubsPtr->tcl_ListObjReplace) /* 48 */ -#define Tcl_NewBooleanObj \ - (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ -#define Tcl_NewByteArrayObj \ - (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ -#define Tcl_NewDoubleObj \ - (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ -#define Tcl_NewIntObj \ - (tclStubsPtr->tcl_NewIntObj) /* 52 */ -#define Tcl_NewListObj \ - (tclStubsPtr->tcl_NewListObj) /* 53 */ -#define Tcl_NewLongObj \ - (tclStubsPtr->tcl_NewLongObj) /* 54 */ -#define Tcl_NewObj \ - (tclStubsPtr->tcl_NewObj) /* 55 */ -#define Tcl_NewStringObj \ - (tclStubsPtr->tcl_NewStringObj) /* 56 */ -#define Tcl_SetBooleanObj \ - (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ -#define Tcl_SetByteArrayLength \ - (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ -#define Tcl_SetByteArrayObj \ - (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ -#define Tcl_SetDoubleObj \ - (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ -#define Tcl_SetIntObj \ - (tclStubsPtr->tcl_SetIntObj) /* 61 */ -#define Tcl_SetListObj \ - (tclStubsPtr->tcl_SetListObj) /* 62 */ -#define Tcl_SetLongObj \ - (tclStubsPtr->tcl_SetLongObj) /* 63 */ -#define Tcl_SetObjLength \ - (tclStubsPtr->tcl_SetObjLength) /* 64 */ -#define Tcl_SetStringObj \ - (tclStubsPtr->tcl_SetStringObj) /* 65 */ -#define Tcl_AddErrorInfo \ - (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ -#define Tcl_AddObjErrorInfo \ - (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ -#define Tcl_AllowExceptions \ - (tclStubsPtr->tcl_AllowExceptions) /* 68 */ -#define Tcl_AppendElement \ - (tclStubsPtr->tcl_AppendElement) /* 69 */ -#define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 70 */ -#define Tcl_AsyncCreate \ - (tclStubsPtr->tcl_AsyncCreate) /* 71 */ -#define Tcl_AsyncDelete \ - (tclStubsPtr->tcl_AsyncDelete) /* 72 */ -#define Tcl_AsyncInvoke \ - (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ -#define Tcl_AsyncMark \ - (tclStubsPtr->tcl_AsyncMark) /* 74 */ -#define Tcl_AsyncReady \ - (tclStubsPtr->tcl_AsyncReady) /* 75 */ -#define Tcl_BackgroundError \ - (tclStubsPtr->tcl_BackgroundError) /* 76 */ -#define Tcl_Backslash \ - (tclStubsPtr->tcl_Backslash) /* 77 */ -#define Tcl_BadChannelOption \ - (tclStubsPtr->tcl_BadChannelOption) /* 78 */ -#define Tcl_CallWhenDeleted \ - (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ -#define Tcl_CancelIdleCall \ - (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ -#define Tcl_Close \ - (tclStubsPtr->tcl_Close) /* 81 */ -#define Tcl_CommandComplete \ - (tclStubsPtr->tcl_CommandComplete) /* 82 */ -#define Tcl_Concat \ - (tclStubsPtr->tcl_Concat) /* 83 */ -#define Tcl_ConvertElement \ - (tclStubsPtr->tcl_ConvertElement) /* 84 */ -#define Tcl_ConvertCountedElement \ - (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ -#define Tcl_CreateAlias \ - (tclStubsPtr->tcl_CreateAlias) /* 86 */ -#define Tcl_CreateAliasObj \ - (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ -#define Tcl_CreateChannel \ - (tclStubsPtr->tcl_CreateChannel) /* 88 */ -#define Tcl_CreateChannelHandler \ - (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ -#define Tcl_CreateCloseHandler \ - (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ -#define Tcl_CreateCommand \ - (tclStubsPtr->tcl_CreateCommand) /* 91 */ -#define Tcl_CreateEventSource \ - (tclStubsPtr->tcl_CreateEventSource) /* 92 */ -#define Tcl_CreateExitHandler \ - (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ -#define Tcl_CreateInterp \ - (tclStubsPtr->tcl_CreateInterp) /* 94 */ -#define Tcl_CreateMathFunc \ - (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ -#define Tcl_CreateObjCommand \ - (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ -#define Tcl_CreateSlave \ - (tclStubsPtr->tcl_CreateSlave) /* 97 */ -#define Tcl_CreateTimerHandler \ - (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ -#define Tcl_CreateTrace \ - (tclStubsPtr->tcl_CreateTrace) /* 99 */ -#define Tcl_DeleteAssocData \ - (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ -#define Tcl_DeleteChannelHandler \ - (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ -#define Tcl_DeleteCloseHandler \ - (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ -#define Tcl_DeleteCommand \ - (tclStubsPtr->tcl_DeleteCommand) /* 103 */ -#define Tcl_DeleteCommandFromToken \ - (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ -#define Tcl_DeleteEvents \ - (tclStubsPtr->tcl_DeleteEvents) /* 105 */ -#define Tcl_DeleteEventSource \ - (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ -#define Tcl_DeleteExitHandler \ - (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ -#define Tcl_DeleteHashEntry \ - (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ -#define Tcl_DeleteHashTable \ - (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ -#define Tcl_DeleteInterp \ - (tclStubsPtr->tcl_DeleteInterp) /* 110 */ -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#define Tcl_DeleteTimerHandler \ - (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ -#define Tcl_DeleteTrace \ - (tclStubsPtr->tcl_DeleteTrace) /* 113 */ -#define Tcl_DontCallWhenDeleted \ - (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ -#define Tcl_DoOneEvent \ - (tclStubsPtr->tcl_DoOneEvent) /* 115 */ -#define Tcl_DoWhenIdle \ - (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ -#define Tcl_DStringAppend \ - (tclStubsPtr->tcl_DStringAppend) /* 117 */ -#define Tcl_DStringAppendElement \ - (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ -#define Tcl_DStringEndSublist \ - (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ -#define Tcl_DStringFree \ - (tclStubsPtr->tcl_DStringFree) /* 120 */ -#define Tcl_DStringGetResult \ - (tclStubsPtr->tcl_DStringGetResult) /* 121 */ -#define Tcl_DStringInit \ - (tclStubsPtr->tcl_DStringInit) /* 122 */ -#define Tcl_DStringResult \ - (tclStubsPtr->tcl_DStringResult) /* 123 */ -#define Tcl_DStringSetLength \ - (tclStubsPtr->tcl_DStringSetLength) /* 124 */ -#define Tcl_DStringStartSublist \ - (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ -#define Tcl_Eof \ - (tclStubsPtr->tcl_Eof) /* 126 */ -#define Tcl_ErrnoId \ - (tclStubsPtr->tcl_ErrnoId) /* 127 */ -#define Tcl_ErrnoMsg \ - (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ -#define Tcl_Eval \ - (tclStubsPtr->tcl_Eval) /* 129 */ -#define Tcl_EvalFile \ - (tclStubsPtr->tcl_EvalFile) /* 130 */ -#define Tcl_EvalObj \ - (tclStubsPtr->tcl_EvalObj) /* 131 */ -#define Tcl_EventuallyFree \ - (tclStubsPtr->tcl_EventuallyFree) /* 132 */ -#define Tcl_Exit \ - (tclStubsPtr->tcl_Exit) /* 133 */ -#define Tcl_ExposeCommand \ - (tclStubsPtr->tcl_ExposeCommand) /* 134 */ -#define Tcl_ExprBoolean \ - (tclStubsPtr->tcl_ExprBoolean) /* 135 */ -#define Tcl_ExprBooleanObj \ - (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ -#define Tcl_ExprDouble \ - (tclStubsPtr->tcl_ExprDouble) /* 137 */ -#define Tcl_ExprDoubleObj \ - (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ -#define Tcl_ExprLong \ - (tclStubsPtr->tcl_ExprLong) /* 139 */ -#define Tcl_ExprLongObj \ - (tclStubsPtr->tcl_ExprLongObj) /* 140 */ -#define Tcl_ExprObj \ - (tclStubsPtr->tcl_ExprObj) /* 141 */ -#define Tcl_ExprString \ - (tclStubsPtr->tcl_ExprString) /* 142 */ -#define Tcl_Finalize \ - (tclStubsPtr->tcl_Finalize) /* 143 */ -#define Tcl_FindExecutable \ - (tclStubsPtr->tcl_FindExecutable) /* 144 */ -#define Tcl_FirstHashEntry \ - (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ -#define Tcl_Flush \ - (tclStubsPtr->tcl_Flush) /* 146 */ -#define Tcl_FreeResult \ - (tclStubsPtr->tcl_FreeResult) /* 147 */ -#define Tcl_GetAlias \ - (tclStubsPtr->tcl_GetAlias) /* 148 */ -#define Tcl_GetAliasObj \ - (tclStubsPtr->tcl_GetAliasObj) /* 149 */ -#define Tcl_GetAssocData \ - (tclStubsPtr->tcl_GetAssocData) /* 150 */ -#define Tcl_GetChannel \ - (tclStubsPtr->tcl_GetChannel) /* 151 */ -#define Tcl_GetChannelBufferSize \ - (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ -#define Tcl_GetChannelHandle \ - (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ -#define Tcl_GetChannelInstanceData \ - (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ -#define Tcl_GetChannelMode \ - (tclStubsPtr->tcl_GetChannelMode) /* 155 */ -#define Tcl_GetChannelName \ - (tclStubsPtr->tcl_GetChannelName) /* 156 */ -#define Tcl_GetChannelOption \ - (tclStubsPtr->tcl_GetChannelOption) /* 157 */ -#define Tcl_GetChannelType \ - (tclStubsPtr->tcl_GetChannelType) /* 158 */ -#define Tcl_GetCommandInfo \ - (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ -#define Tcl_GetCommandName \ - (tclStubsPtr->tcl_GetCommandName) /* 160 */ -#define Tcl_GetErrno \ - (tclStubsPtr->tcl_GetErrno) /* 161 */ -#define Tcl_GetHostName \ - (tclStubsPtr->tcl_GetHostName) /* 162 */ -#define Tcl_GetInterpPath \ - (tclStubsPtr->tcl_GetInterpPath) /* 163 */ -#define Tcl_GetMaster \ - (tclStubsPtr->tcl_GetMaster) /* 164 */ -#define Tcl_GetNameOfExecutable \ - (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ -#define Tcl_GetObjResult \ - (tclStubsPtr->tcl_GetObjResult) /* 166 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif /* MACOSX */ -#define Tcl_GetPathType \ - (tclStubsPtr->tcl_GetPathType) /* 168 */ -#define Tcl_Gets \ - (tclStubsPtr->tcl_Gets) /* 169 */ -#define Tcl_GetsObj \ - (tclStubsPtr->tcl_GetsObj) /* 170 */ -#define Tcl_GetServiceMode \ - (tclStubsPtr->tcl_GetServiceMode) /* 171 */ -#define Tcl_GetSlave \ - (tclStubsPtr->tcl_GetSlave) /* 172 */ -#define Tcl_GetStdChannel \ - (tclStubsPtr->tcl_GetStdChannel) /* 173 */ -#define Tcl_GetStringResult \ - (tclStubsPtr->tcl_GetStringResult) /* 174 */ -#define Tcl_GetVar \ - (tclStubsPtr->tcl_GetVar) /* 175 */ -#define Tcl_GetVar2 \ - (tclStubsPtr->tcl_GetVar2) /* 176 */ -#define Tcl_GlobalEval \ - (tclStubsPtr->tcl_GlobalEval) /* 177 */ -#define Tcl_GlobalEvalObj \ - (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ -#define Tcl_HideCommand \ - (tclStubsPtr->tcl_HideCommand) /* 179 */ -#define Tcl_Init \ - (tclStubsPtr->tcl_Init) /* 180 */ -#define Tcl_InitHashTable \ - (tclStubsPtr->tcl_InitHashTable) /* 181 */ -#define Tcl_InputBlocked \ - (tclStubsPtr->tcl_InputBlocked) /* 182 */ -#define Tcl_InputBuffered \ - (tclStubsPtr->tcl_InputBuffered) /* 183 */ -#define Tcl_InterpDeleted \ - (tclStubsPtr->tcl_InterpDeleted) /* 184 */ -#define Tcl_IsSafe \ - (tclStubsPtr->tcl_IsSafe) /* 185 */ -#define Tcl_JoinPath \ - (tclStubsPtr->tcl_JoinPath) /* 186 */ -#define Tcl_LinkVar \ - (tclStubsPtr->tcl_LinkVar) /* 187 */ -/* Slot 188 is reserved */ -#define Tcl_MakeFileChannel \ - (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ -#define Tcl_MakeSafe \ - (tclStubsPtr->tcl_MakeSafe) /* 190 */ -#define Tcl_MakeTcpClientChannel \ - (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ -#define Tcl_Merge \ - (tclStubsPtr->tcl_Merge) /* 192 */ -#define Tcl_NextHashEntry \ - (tclStubsPtr->tcl_NextHashEntry) /* 193 */ -#define Tcl_NotifyChannel \ - (tclStubsPtr->tcl_NotifyChannel) /* 194 */ -#define Tcl_ObjGetVar2 \ - (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ -#define Tcl_ObjSetVar2 \ - (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#define Tcl_OpenFileChannel \ - (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ -#define Tcl_OpenTcpClient \ - (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ -#define Tcl_OpenTcpServer \ - (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ -#define Tcl_Preserve \ - (tclStubsPtr->tcl_Preserve) /* 201 */ -#define Tcl_PrintDouble \ - (tclStubsPtr->tcl_PrintDouble) /* 202 */ -#define Tcl_PutEnv \ - (tclStubsPtr->tcl_PutEnv) /* 203 */ -#define Tcl_PosixError \ - (tclStubsPtr->tcl_PosixError) /* 204 */ -#define Tcl_QueueEvent \ - (tclStubsPtr->tcl_QueueEvent) /* 205 */ -#define Tcl_Read \ - (tclStubsPtr->tcl_Read) /* 206 */ -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#define Tcl_RecordAndEval \ - (tclStubsPtr->tcl_RecordAndEval) /* 208 */ -#define Tcl_RecordAndEvalObj \ - (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ -#define Tcl_RegisterChannel \ - (tclStubsPtr->tcl_RegisterChannel) /* 210 */ -#define Tcl_RegisterObjType \ - (tclStubsPtr->tcl_RegisterObjType) /* 211 */ -#define Tcl_RegExpCompile \ - (tclStubsPtr->tcl_RegExpCompile) /* 212 */ -#define Tcl_RegExpExec \ - (tclStubsPtr->tcl_RegExpExec) /* 213 */ -#define Tcl_RegExpMatch \ - (tclStubsPtr->tcl_RegExpMatch) /* 214 */ -#define Tcl_RegExpRange \ - (tclStubsPtr->tcl_RegExpRange) /* 215 */ -#define Tcl_Release \ - (tclStubsPtr->tcl_Release) /* 216 */ -#define Tcl_ResetResult \ - (tclStubsPtr->tcl_ResetResult) /* 217 */ -#define Tcl_ScanElement \ - (tclStubsPtr->tcl_ScanElement) /* 218 */ -#define Tcl_ScanCountedElement \ - (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ -#define Tcl_SeekOld \ - (tclStubsPtr->tcl_SeekOld) /* 220 */ -#define Tcl_ServiceAll \ - (tclStubsPtr->tcl_ServiceAll) /* 221 */ -#define Tcl_ServiceEvent \ - (tclStubsPtr->tcl_ServiceEvent) /* 222 */ -#define Tcl_SetAssocData \ - (tclStubsPtr->tcl_SetAssocData) /* 223 */ -#define Tcl_SetChannelBufferSize \ - (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ -#define Tcl_SetChannelOption \ - (tclStubsPtr->tcl_SetChannelOption) /* 225 */ -#define Tcl_SetCommandInfo \ - (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ -#define Tcl_SetErrno \ - (tclStubsPtr->tcl_SetErrno) /* 227 */ -#define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 228 */ -#define Tcl_SetMaxBlockTime \ - (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ -#define Tcl_SetPanicProc \ - (tclStubsPtr->tcl_SetPanicProc) /* 230 */ -#define Tcl_SetRecursionLimit \ - (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ -#define Tcl_SetResult \ - (tclStubsPtr->tcl_SetResult) /* 232 */ -#define Tcl_SetServiceMode \ - (tclStubsPtr->tcl_SetServiceMode) /* 233 */ -#define Tcl_SetObjErrorCode \ - (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ -#define Tcl_SetObjResult \ - (tclStubsPtr->tcl_SetObjResult) /* 235 */ -#define Tcl_SetStdChannel \ - (tclStubsPtr->tcl_SetStdChannel) /* 236 */ -#define Tcl_SetVar \ - (tclStubsPtr->tcl_SetVar) /* 237 */ -#define Tcl_SetVar2 \ - (tclStubsPtr->tcl_SetVar2) /* 238 */ -#define Tcl_SignalId \ - (tclStubsPtr->tcl_SignalId) /* 239 */ -#define Tcl_SignalMsg \ - (tclStubsPtr->tcl_SignalMsg) /* 240 */ -#define Tcl_SourceRCFile \ - (tclStubsPtr->tcl_SourceRCFile) /* 241 */ -#define Tcl_SplitList \ - (tclStubsPtr->tcl_SplitList) /* 242 */ -#define Tcl_SplitPath \ - (tclStubsPtr->tcl_SplitPath) /* 243 */ -#define Tcl_StaticPackage \ - (tclStubsPtr->tcl_StaticPackage) /* 244 */ -#define Tcl_StringMatch \ - (tclStubsPtr->tcl_StringMatch) /* 245 */ -#define Tcl_TellOld \ - (tclStubsPtr->tcl_TellOld) /* 246 */ -#define Tcl_TraceVar \ - (tclStubsPtr->tcl_TraceVar) /* 247 */ -#define Tcl_TraceVar2 \ - (tclStubsPtr->tcl_TraceVar2) /* 248 */ -#define Tcl_TranslateFileName \ - (tclStubsPtr->tcl_TranslateFileName) /* 249 */ -#define Tcl_Ungets \ - (tclStubsPtr->tcl_Ungets) /* 250 */ -#define Tcl_UnlinkVar \ - (tclStubsPtr->tcl_UnlinkVar) /* 251 */ -#define Tcl_UnregisterChannel \ - (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ -#define Tcl_UnsetVar \ - (tclStubsPtr->tcl_UnsetVar) /* 253 */ -#define Tcl_UnsetVar2 \ - (tclStubsPtr->tcl_UnsetVar2) /* 254 */ -#define Tcl_UntraceVar \ - (tclStubsPtr->tcl_UntraceVar) /* 255 */ -#define Tcl_UntraceVar2 \ - (tclStubsPtr->tcl_UntraceVar2) /* 256 */ -#define Tcl_UpdateLinkedVar \ - (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ -#define Tcl_UpVar \ - (tclStubsPtr->tcl_UpVar) /* 258 */ -#define Tcl_UpVar2 \ - (tclStubsPtr->tcl_UpVar2) /* 259 */ -#define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 260 */ -#define Tcl_VarTraceInfo \ - (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ -#define Tcl_VarTraceInfo2 \ - (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ -#define Tcl_Write \ - (tclStubsPtr->tcl_Write) /* 263 */ -#define Tcl_WrongNumArgs \ - (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ -#define Tcl_DumpActiveMemory \ - (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ -#define Tcl_ValidateAllMemory \ - (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ -#define Tcl_AppendResultVA \ - (tclStubsPtr->tcl_AppendResultVA) /* 267 */ -#define Tcl_AppendStringsToObjVA \ - (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ -#define Tcl_HashStats \ - (tclStubsPtr->tcl_HashStats) /* 269 */ -#define Tcl_ParseVar \ - (tclStubsPtr->tcl_ParseVar) /* 270 */ -#define Tcl_PkgPresent \ - (tclStubsPtr->tcl_PkgPresent) /* 271 */ -#define Tcl_PkgPresentEx \ - (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ -#define Tcl_PkgProvide \ - (tclStubsPtr->tcl_PkgProvide) /* 273 */ -#define Tcl_PkgRequire \ - (tclStubsPtr->tcl_PkgRequire) /* 274 */ -#define Tcl_SetErrorCodeVA \ - (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ -#define Tcl_VarEvalVA \ - (tclStubsPtr->tcl_VarEvalVA) /* 276 */ -#define Tcl_WaitPid \ - (tclStubsPtr->tcl_WaitPid) /* 277 */ -#define Tcl_PanicVA \ - (tclStubsPtr->tcl_PanicVA) /* 278 */ -#define Tcl_GetVersion \ - (tclStubsPtr->tcl_GetVersion) /* 279 */ -#define Tcl_InitMemory \ - (tclStubsPtr->tcl_InitMemory) /* 280 */ -#define Tcl_StackChannel \ - (tclStubsPtr->tcl_StackChannel) /* 281 */ -#define Tcl_UnstackChannel \ - (tclStubsPtr->tcl_UnstackChannel) /* 282 */ -#define Tcl_GetStackedChannel \ - (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ -#define Tcl_SetMainLoop \ - (tclStubsPtr->tcl_SetMainLoop) /* 284 */ -/* Slot 285 is reserved */ -#define Tcl_AppendObjToObj \ - (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ -#define Tcl_CreateEncoding \ - (tclStubsPtr->tcl_CreateEncoding) /* 287 */ -#define Tcl_CreateThreadExitHandler \ - (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ -#define Tcl_DeleteThreadExitHandler \ - (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ -#define Tcl_DiscardResult \ - (tclStubsPtr->tcl_DiscardResult) /* 290 */ -#define Tcl_EvalEx \ - (tclStubsPtr->tcl_EvalEx) /* 291 */ -#define Tcl_EvalObjv \ - (tclStubsPtr->tcl_EvalObjv) /* 292 */ -#define Tcl_EvalObjEx \ - (tclStubsPtr->tcl_EvalObjEx) /* 293 */ -#define Tcl_ExitThread \ - (tclStubsPtr->tcl_ExitThread) /* 294 */ -#define Tcl_ExternalToUtf \ - (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ -#define Tcl_ExternalToUtfDString \ - (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ -#define Tcl_FinalizeThread \ - (tclStubsPtr->tcl_FinalizeThread) /* 297 */ -#define Tcl_FinalizeNotifier \ - (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ -#define Tcl_FreeEncoding \ - (tclStubsPtr->tcl_FreeEncoding) /* 299 */ -#define Tcl_GetCurrentThread \ - (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ -#define Tcl_GetEncoding \ - (tclStubsPtr->tcl_GetEncoding) /* 301 */ -#define Tcl_GetEncodingName \ - (tclStubsPtr->tcl_GetEncodingName) /* 302 */ -#define Tcl_GetEncodingNames \ - (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ -#define Tcl_GetIndexFromObjStruct \ - (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ -#define Tcl_GetThreadData \ - (tclStubsPtr->tcl_GetThreadData) /* 305 */ -#define Tcl_GetVar2Ex \ - (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ -#define Tcl_InitNotifier \ - (tclStubsPtr->tcl_InitNotifier) /* 307 */ -#define Tcl_MutexLock \ - (tclStubsPtr->tcl_MutexLock) /* 308 */ -#define Tcl_MutexUnlock \ - (tclStubsPtr->tcl_MutexUnlock) /* 309 */ -#define Tcl_ConditionNotify \ - (tclStubsPtr->tcl_ConditionNotify) /* 310 */ -#define Tcl_ConditionWait \ - (tclStubsPtr->tcl_ConditionWait) /* 311 */ -#define Tcl_NumUtfChars \ - (tclStubsPtr->tcl_NumUtfChars) /* 312 */ -#define Tcl_ReadChars \ - (tclStubsPtr->tcl_ReadChars) /* 313 */ -#define Tcl_RestoreResult \ - (tclStubsPtr->tcl_RestoreResult) /* 314 */ -#define Tcl_SaveResult \ - (tclStubsPtr->tcl_SaveResult) /* 315 */ -#define Tcl_SetSystemEncoding \ - (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ -#define Tcl_SetVar2Ex \ - (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ -#define Tcl_ThreadAlert \ - (tclStubsPtr->tcl_ThreadAlert) /* 318 */ -#define Tcl_ThreadQueueEvent \ - (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ -#define Tcl_UniCharAtIndex \ - (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ -#define Tcl_UniCharToLower \ - (tclStubsPtr->tcl_UniCharToLower) /* 321 */ -#define Tcl_UniCharToTitle \ - (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ -#define Tcl_UniCharToUpper \ - (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ -#define Tcl_UniCharToUtf \ - (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ -#define Tcl_UtfAtIndex \ - (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ -#define Tcl_UtfCharComplete \ - (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ -#define Tcl_UtfBackslash \ - (tclStubsPtr->tcl_UtfBackslash) /* 327 */ -#define Tcl_UtfFindFirst \ - (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ -#define Tcl_UtfFindLast \ - (tclStubsPtr->tcl_UtfFindLast) /* 329 */ -#define Tcl_UtfNext \ - (tclStubsPtr->tcl_UtfNext) /* 330 */ -#define Tcl_UtfPrev \ - (tclStubsPtr->tcl_UtfPrev) /* 331 */ -#define Tcl_UtfToExternal \ - (tclStubsPtr->tcl_UtfToExternal) /* 332 */ -#define Tcl_UtfToExternalDString \ - (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ -#define Tcl_UtfToLower \ - (tclStubsPtr->tcl_UtfToLower) /* 334 */ -#define Tcl_UtfToTitle \ - (tclStubsPtr->tcl_UtfToTitle) /* 335 */ -#define Tcl_UtfToUniChar \ - (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ -#define Tcl_UtfToUpper \ - (tclStubsPtr->tcl_UtfToUpper) /* 337 */ -#define Tcl_WriteChars \ - (tclStubsPtr->tcl_WriteChars) /* 338 */ -#define Tcl_WriteObj \ - (tclStubsPtr->tcl_WriteObj) /* 339 */ -#define Tcl_GetString \ - (tclStubsPtr->tcl_GetString) /* 340 */ -#define Tcl_GetDefaultEncodingDir \ - (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ -#define Tcl_SetDefaultEncodingDir \ - (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ -#define Tcl_AlertNotifier \ - (tclStubsPtr->tcl_AlertNotifier) /* 343 */ -#define Tcl_ServiceModeHook \ - (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ -#define Tcl_UniCharIsAlnum \ - (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ -#define Tcl_UniCharIsAlpha \ - (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ -#define Tcl_UniCharIsDigit \ - (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ -#define Tcl_UniCharIsLower \ - (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ -#define Tcl_UniCharIsSpace \ - (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ -#define Tcl_UniCharIsUpper \ - (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ -#define Tcl_UniCharIsWordChar \ - (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ -#define Tcl_UniCharLen \ - (tclStubsPtr->tcl_UniCharLen) /* 352 */ -#define Tcl_UniCharNcmp \ - (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ -#define Tcl_UniCharToUtfDString \ - (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ -#define Tcl_UtfToUniCharDString \ - (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ -#define Tcl_GetRegExpFromObj \ - (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ -#define Tcl_EvalTokens \ - (tclStubsPtr->tcl_EvalTokens) /* 357 */ -#define Tcl_FreeParse \ - (tclStubsPtr->tcl_FreeParse) /* 358 */ -#define Tcl_LogCommandInfo \ - (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ -#define Tcl_ParseBraces \ - (tclStubsPtr->tcl_ParseBraces) /* 360 */ -#define Tcl_ParseCommand \ - (tclStubsPtr->tcl_ParseCommand) /* 361 */ -#define Tcl_ParseExpr \ - (tclStubsPtr->tcl_ParseExpr) /* 362 */ -#define Tcl_ParseQuotedString \ - (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ -#define Tcl_ParseVarName \ - (tclStubsPtr->tcl_ParseVarName) /* 364 */ -#define Tcl_GetCwd \ - (tclStubsPtr->tcl_GetCwd) /* 365 */ -#define Tcl_Chdir \ - (tclStubsPtr->tcl_Chdir) /* 366 */ -#define Tcl_Access \ - (tclStubsPtr->tcl_Access) /* 367 */ -#define Tcl_Stat \ - (tclStubsPtr->tcl_Stat) /* 368 */ -#define Tcl_UtfNcmp \ - (tclStubsPtr->tcl_UtfNcmp) /* 369 */ -#define Tcl_UtfNcasecmp \ - (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ -#define Tcl_StringCaseMatch \ - (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ -#define Tcl_UniCharIsControl \ - (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ -#define Tcl_UniCharIsGraph \ - (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ -#define Tcl_UniCharIsPrint \ - (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ -#define Tcl_UniCharIsPunct \ - (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ -#define Tcl_RegExpExecObj \ - (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ -#define Tcl_RegExpGetInfo \ - (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ -#define Tcl_NewUnicodeObj \ - (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ -#define Tcl_SetUnicodeObj \ - (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ -#define Tcl_GetCharLength \ - (tclStubsPtr->tcl_GetCharLength) /* 380 */ -#define Tcl_GetUniChar \ - (tclStubsPtr->tcl_GetUniChar) /* 381 */ -#define Tcl_GetUnicode \ - (tclStubsPtr->tcl_GetUnicode) /* 382 */ -#define Tcl_GetRange \ - (tclStubsPtr->tcl_GetRange) /* 383 */ -#define Tcl_AppendUnicodeToObj \ - (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ -#define Tcl_RegExpMatchObj \ - (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ -#define Tcl_SetNotifier \ - (tclStubsPtr->tcl_SetNotifier) /* 386 */ -#define Tcl_GetAllocMutex \ - (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ -#define Tcl_GetChannelNames \ - (tclStubsPtr->tcl_GetChannelNames) /* 388 */ -#define Tcl_GetChannelNamesEx \ - (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ -#define Tcl_ProcObjCmd \ - (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ -#define Tcl_ConditionFinalize \ - (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ -#define Tcl_MutexFinalize \ - (tclStubsPtr->tcl_MutexFinalize) /* 392 */ -#define Tcl_CreateThread \ - (tclStubsPtr->tcl_CreateThread) /* 393 */ -#define Tcl_ReadRaw \ - (tclStubsPtr->tcl_ReadRaw) /* 394 */ -#define Tcl_WriteRaw \ - (tclStubsPtr->tcl_WriteRaw) /* 395 */ -#define Tcl_GetTopChannel \ - (tclStubsPtr->tcl_GetTopChannel) /* 396 */ -#define Tcl_ChannelBuffered \ - (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ -#define Tcl_ChannelName \ - (tclStubsPtr->tcl_ChannelName) /* 398 */ -#define Tcl_ChannelVersion \ - (tclStubsPtr->tcl_ChannelVersion) /* 399 */ -#define Tcl_ChannelBlockModeProc \ - (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ -#define Tcl_ChannelCloseProc \ - (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ -#define Tcl_ChannelClose2Proc \ - (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ -#define Tcl_ChannelInputProc \ - (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ -#define Tcl_ChannelOutputProc \ - (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ -#define Tcl_ChannelSeekProc \ - (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ -#define Tcl_ChannelSetOptionProc \ - (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ -#define Tcl_ChannelGetOptionProc \ - (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ -#define Tcl_ChannelWatchProc \ - (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ -#define Tcl_ChannelGetHandleProc \ - (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ -#define Tcl_ChannelFlushProc \ - (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ -#define Tcl_ChannelHandlerProc \ - (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ -#define Tcl_JoinThread \ - (tclStubsPtr->tcl_JoinThread) /* 412 */ -#define Tcl_IsChannelShared \ - (tclStubsPtr->tcl_IsChannelShared) /* 413 */ -#define Tcl_IsChannelRegistered \ - (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ -#define Tcl_CutChannel \ - (tclStubsPtr->tcl_CutChannel) /* 415 */ -#define Tcl_SpliceChannel \ - (tclStubsPtr->tcl_SpliceChannel) /* 416 */ -#define Tcl_ClearChannelHandlers \ - (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ -#define Tcl_IsChannelExisting \ - (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ -#define Tcl_UniCharNcasecmp \ - (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ -#define Tcl_UniCharCaseMatch \ - (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ -#define Tcl_FindHashEntry \ - (tclStubsPtr->tcl_FindHashEntry) /* 421 */ -#define Tcl_CreateHashEntry \ - (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ -#define Tcl_InitCustomHashTable \ - (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ -#define Tcl_InitObjHashTable \ - (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ -#define Tcl_CommandTraceInfo \ - (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ -#define Tcl_TraceCommand \ - (tclStubsPtr->tcl_TraceCommand) /* 426 */ -#define Tcl_UntraceCommand \ - (tclStubsPtr->tcl_UntraceCommand) /* 427 */ -#define Tcl_AttemptAlloc \ - (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ -#define Tcl_AttemptDbCkalloc \ - (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ -#define Tcl_AttemptRealloc \ - (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ -#define Tcl_AttemptDbCkrealloc \ - (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ -#define Tcl_AttemptSetObjLength \ - (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ -#define Tcl_GetChannelThread \ - (tclStubsPtr->tcl_GetChannelThread) /* 433 */ -#define Tcl_GetUnicodeFromObj \ - (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ -#define Tcl_GetMathFuncInfo \ - (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ -#define Tcl_ListMathFuncs \ - (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ -#define Tcl_SubstObj \ - (tclStubsPtr->tcl_SubstObj) /* 437 */ -#define Tcl_DetachChannel \ - (tclStubsPtr->tcl_DetachChannel) /* 438 */ -#define Tcl_IsStandardChannel \ - (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ -#define Tcl_FSCopyFile \ - (tclStubsPtr->tcl_FSCopyFile) /* 440 */ -#define Tcl_FSCopyDirectory \ - (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ -#define Tcl_FSCreateDirectory \ - (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ -#define Tcl_FSDeleteFile \ - (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ -#define Tcl_FSLoadFile \ - (tclStubsPtr->tcl_FSLoadFile) /* 444 */ -#define Tcl_FSMatchInDirectory \ - (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ -#define Tcl_FSLink \ - (tclStubsPtr->tcl_FSLink) /* 446 */ -#define Tcl_FSRemoveDirectory \ - (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ -#define Tcl_FSRenameFile \ - (tclStubsPtr->tcl_FSRenameFile) /* 448 */ -#define Tcl_FSLstat \ - (tclStubsPtr->tcl_FSLstat) /* 449 */ -#define Tcl_FSUtime \ - (tclStubsPtr->tcl_FSUtime) /* 450 */ -#define Tcl_FSFileAttrsGet \ - (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ -#define Tcl_FSFileAttrsSet \ - (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ -#define Tcl_FSFileAttrStrings \ - (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ -#define Tcl_FSStat \ - (tclStubsPtr->tcl_FSStat) /* 454 */ -#define Tcl_FSAccess \ - (tclStubsPtr->tcl_FSAccess) /* 455 */ -#define Tcl_FSOpenFileChannel \ - (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ -#define Tcl_FSGetCwd \ - (tclStubsPtr->tcl_FSGetCwd) /* 457 */ -#define Tcl_FSChdir \ - (tclStubsPtr->tcl_FSChdir) /* 458 */ -#define Tcl_FSConvertToPathType \ - (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ -#define Tcl_FSJoinPath \ - (tclStubsPtr->tcl_FSJoinPath) /* 460 */ -#define Tcl_FSSplitPath \ - (tclStubsPtr->tcl_FSSplitPath) /* 461 */ -#define Tcl_FSEqualPaths \ - (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ -#define Tcl_FSGetNormalizedPath \ - (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ -#define Tcl_FSJoinToPath \ - (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ -#define Tcl_FSGetInternalRep \ - (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ -#define Tcl_FSGetTranslatedPath \ - (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ -#define Tcl_FSEvalFile \ - (tclStubsPtr->tcl_FSEvalFile) /* 467 */ -#define Tcl_FSNewNativePath \ - (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ -#define Tcl_FSFileSystemInfo \ - (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ -#define Tcl_FSPathSeparator \ - (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ -#define Tcl_FSListVolumes \ - (tclStubsPtr->tcl_FSListVolumes) /* 472 */ -#define Tcl_FSRegister \ - (tclStubsPtr->tcl_FSRegister) /* 473 */ -#define Tcl_FSUnregister \ - (tclStubsPtr->tcl_FSUnregister) /* 474 */ -#define Tcl_FSData \ - (tclStubsPtr->tcl_FSData) /* 475 */ -#define Tcl_FSGetTranslatedStringPath \ - (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ -#define Tcl_FSGetFileSystemForPath \ - (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ -#define Tcl_FSGetPathType \ - (tclStubsPtr->tcl_FSGetPathType) /* 478 */ -#define Tcl_OutputBuffered \ - (tclStubsPtr->tcl_OutputBuffered) /* 479 */ -#define Tcl_FSMountsChanged \ - (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ -#define Tcl_EvalTokensStandard \ - (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ -#define Tcl_GetTime \ - (tclStubsPtr->tcl_GetTime) /* 482 */ -#define Tcl_CreateObjTrace \ - (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ -#define Tcl_GetCommandInfoFromToken \ - (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ -#define Tcl_SetCommandInfoFromToken \ - (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ -#define Tcl_DbNewWideIntObj \ - (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ -#define Tcl_GetWideIntFromObj \ - (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ -#define Tcl_NewWideIntObj \ - (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ -#define Tcl_SetWideIntObj \ - (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ -#define Tcl_AllocStatBuf \ - (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ -#define Tcl_Seek \ - (tclStubsPtr->tcl_Seek) /* 491 */ -#define Tcl_Tell \ - (tclStubsPtr->tcl_Tell) /* 492 */ -#define Tcl_ChannelWideSeekProc \ - (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ -#define Tcl_DictObjPut \ - (tclStubsPtr->tcl_DictObjPut) /* 494 */ -#define Tcl_DictObjGet \ - (tclStubsPtr->tcl_DictObjGet) /* 495 */ -#define Tcl_DictObjRemove \ - (tclStubsPtr->tcl_DictObjRemove) /* 496 */ -#define Tcl_DictObjSize \ - (tclStubsPtr->tcl_DictObjSize) /* 497 */ -#define Tcl_DictObjFirst \ - (tclStubsPtr->tcl_DictObjFirst) /* 498 */ -#define Tcl_DictObjNext \ - (tclStubsPtr->tcl_DictObjNext) /* 499 */ -#define Tcl_DictObjDone \ - (tclStubsPtr->tcl_DictObjDone) /* 500 */ -#define Tcl_DictObjPutKeyList \ - (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ -#define Tcl_DictObjRemoveKeyList \ - (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ -#define Tcl_NewDictObj \ - (tclStubsPtr->tcl_NewDictObj) /* 503 */ -#define Tcl_DbNewDictObj \ - (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ -#define Tcl_RegisterConfig \ - (tclStubsPtr->tcl_RegisterConfig) /* 505 */ -#define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -#define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -#define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -#define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -#define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -#define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -#define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -#define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -#define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -#define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -#define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -#define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#define Tcl_FSEvalFileEx \ - (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ -#define Tcl_SetExitProc \ - (tclStubsPtr->tcl_SetExitProc) /* 519 */ -#define Tcl_LimitAddHandler \ - (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ -#define Tcl_LimitRemoveHandler \ - (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ -#define Tcl_LimitReady \ - (tclStubsPtr->tcl_LimitReady) /* 522 */ -#define Tcl_LimitCheck \ - (tclStubsPtr->tcl_LimitCheck) /* 523 */ -#define Tcl_LimitExceeded \ - (tclStubsPtr->tcl_LimitExceeded) /* 524 */ -#define Tcl_LimitSetCommands \ - (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ -#define Tcl_LimitSetTime \ - (tclStubsPtr->tcl_LimitSetTime) /* 526 */ -#define Tcl_LimitSetGranularity \ - (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ -#define Tcl_LimitTypeEnabled \ - (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ -#define Tcl_LimitTypeExceeded \ - (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ -#define Tcl_LimitTypeSet \ - (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ -#define Tcl_LimitTypeReset \ - (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ -#define Tcl_LimitGetCommands \ - (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ -#define Tcl_LimitGetTime \ - (tclStubsPtr->tcl_LimitGetTime) /* 533 */ -#define Tcl_LimitGetGranularity \ - (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ -#define Tcl_SaveInterpState \ - (tclStubsPtr->tcl_SaveInterpState) /* 535 */ -#define Tcl_RestoreInterpState \ - (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ -#define Tcl_DiscardInterpState \ - (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ -#define Tcl_SetReturnOptions \ - (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ -#define Tcl_GetReturnOptions \ - (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ -#define Tcl_IsEnsemble \ - (tclStubsPtr->tcl_IsEnsemble) /* 540 */ -#define Tcl_CreateEnsemble \ - (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ -#define Tcl_FindEnsemble \ - (tclStubsPtr->tcl_FindEnsemble) /* 542 */ -#define Tcl_SetEnsembleSubcommandList \ - (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ -#define Tcl_SetEnsembleMappingDict \ - (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ -#define Tcl_SetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ -#define Tcl_SetEnsembleFlags \ - (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ -#define Tcl_GetEnsembleSubcommandList \ - (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ -#define Tcl_GetEnsembleMappingDict \ - (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ -#define Tcl_GetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ -#define Tcl_GetEnsembleFlags \ - (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ -#define Tcl_GetEnsembleNamespace \ - (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ -#define Tcl_SetTimeProc \ - (tclStubsPtr->tcl_SetTimeProc) /* 552 */ -#define Tcl_QueryTimeProc \ - (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ -#define Tcl_ChannelThreadActionProc \ - (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ -#define Tcl_NewBignumObj \ - (tclStubsPtr->tcl_NewBignumObj) /* 555 */ -#define Tcl_DbNewBignumObj \ - (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ -#define Tcl_SetBignumObj \ - (tclStubsPtr->tcl_SetBignumObj) /* 557 */ -#define Tcl_GetBignumFromObj \ - (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ -#define Tcl_TakeBignumFromObj \ - (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ -#define Tcl_TruncateChannel \ - (tclStubsPtr->tcl_TruncateChannel) /* 560 */ -#define Tcl_ChannelTruncateProc \ - (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ -#define Tcl_SetChannelErrorInterp \ - (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ -#define Tcl_GetChannelErrorInterp \ - (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ -#define Tcl_SetChannelError \ - (tclStubsPtr->tcl_SetChannelError) /* 564 */ -#define Tcl_GetChannelError \ - (tclStubsPtr->tcl_GetChannelError) /* 565 */ -#define Tcl_InitBignumFromDouble \ - (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ -#define Tcl_GetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ -#define Tcl_SetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ -#define Tcl_GetEncodingFromObj \ - (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ -#define Tcl_GetEncodingSearchPath \ - (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ -#define Tcl_SetEncodingSearchPath \ - (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ -#define Tcl_GetEncodingNameFromEnvironment \ - (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ -#define Tcl_PkgRequireProc \ - (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ -#define Tcl_AppendObjToErrorInfo \ - (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ -#define Tcl_AppendLimitedToObj \ - (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ -#define Tcl_Format \ - (tclStubsPtr->tcl_Format) /* 576 */ -#define Tcl_AppendFormatToObj \ - (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ -#define Tcl_ObjPrintf \ - (tclStubsPtr->tcl_ObjPrintf) /* 578 */ -#define Tcl_AppendPrintfToObj \ - (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ -#define Tcl_CancelEval \ - (tclStubsPtr->tcl_CancelEval) /* 580 */ -#define Tcl_Canceled \ - (tclStubsPtr->tcl_Canceled) /* 581 */ -#define Tcl_CreatePipe \ - (tclStubsPtr->tcl_CreatePipe) /* 582 */ -#define Tcl_NRCreateCommand \ - (tclStubsPtr->tcl_NRCreateCommand) /* 583 */ -#define Tcl_NREvalObj \ - (tclStubsPtr->tcl_NREvalObj) /* 584 */ -#define Tcl_NREvalObjv \ - (tclStubsPtr->tcl_NREvalObjv) /* 585 */ -#define Tcl_NRCmdSwap \ - (tclStubsPtr->tcl_NRCmdSwap) /* 586 */ -#define Tcl_NRAddCallback \ - (tclStubsPtr->tcl_NRAddCallback) /* 587 */ -#define Tcl_NRCallObjProc \ - (tclStubsPtr->tcl_NRCallObjProc) /* 588 */ -#define Tcl_GetFSDeviceFromStat \ - (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */ -#define Tcl_GetFSInodeFromStat \ - (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */ -#define Tcl_GetModeFromStat \ - (tclStubsPtr->tcl_GetModeFromStat) /* 591 */ -#define Tcl_GetLinkCountFromStat \ - (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */ -#define Tcl_GetUserIdFromStat \ - (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */ -#define Tcl_GetGroupIdFromStat \ - (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */ -#define Tcl_GetDeviceTypeFromStat \ - (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */ -#define Tcl_GetAccessTimeFromStat \ - (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */ -#define Tcl_GetModificationTimeFromStat \ - (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */ -#define Tcl_GetChangeTimeFromStat \ - (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */ -#define Tcl_GetSizeFromStat \ - (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */ -#define Tcl_GetBlocksFromStat \ - (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */ -#define Tcl_GetBlockSizeFromStat \ - (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */ -#define Tcl_SetEnsembleParameterList \ - (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */ -#define Tcl_GetEnsembleParameterList \ - (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */ -#define Tcl_ParseArgsObjv \ - (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */ -#define Tcl_GetErrorLine \ - (tclStubsPtr->tcl_GetErrorLine) /* 605 */ -#define Tcl_SetErrorLine \ - (tclStubsPtr->tcl_SetErrorLine) /* 606 */ -#define Tcl_TransferResult \ - (tclStubsPtr->tcl_TransferResult) /* 607 */ -#define Tcl_InterpActive \ - (tclStubsPtr->tcl_InterpActive) /* 608 */ -#define Tcl_BackgroundException \ - (tclStubsPtr->tcl_BackgroundException) /* 609 */ -#define Tcl_ZlibDeflate \ - (tclStubsPtr->tcl_ZlibDeflate) /* 610 */ -#define Tcl_ZlibInflate \ - (tclStubsPtr->tcl_ZlibInflate) /* 611 */ -#define Tcl_ZlibCRC32 \ - (tclStubsPtr->tcl_ZlibCRC32) /* 612 */ -#define Tcl_ZlibAdler32 \ - (tclStubsPtr->tcl_ZlibAdler32) /* 613 */ -#define Tcl_ZlibStreamInit \ - (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */ -#define Tcl_ZlibStreamGetCommandName \ - (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */ -#define Tcl_ZlibStreamEof \ - (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */ -#define Tcl_ZlibStreamChecksum \ - (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */ -#define Tcl_ZlibStreamPut \ - (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */ -#define Tcl_ZlibStreamGet \ - (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */ -#define Tcl_ZlibStreamClose \ - (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */ -#define Tcl_ZlibStreamReset \ - (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */ -#define Tcl_SetStartupScript \ - (tclStubsPtr->tcl_SetStartupScript) /* 622 */ -#define Tcl_GetStartupScript \ - (tclStubsPtr->tcl_GetStartupScript) /* 623 */ -#define Tcl_CloseEx \ - (tclStubsPtr->tcl_CloseEx) /* 624 */ -#define Tcl_NRExprObj \ - (tclStubsPtr->tcl_NRExprObj) /* 625 */ -#define Tcl_NRSubstObj \ - (tclStubsPtr->tcl_NRSubstObj) /* 626 */ -#define Tcl_LoadFile \ - (tclStubsPtr->tcl_LoadFile) /* 627 */ -#define Tcl_FindSymbol \ - (tclStubsPtr->tcl_FindSymbol) /* 628 */ -#define Tcl_FSUnloadFile \ - (tclStubsPtr->tcl_FSUnloadFile) /* 629 */ -#define Tcl_ZlibStreamSetCompressionDictionary \ - (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */ -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -#define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 648 */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TclUnusedStubEntry - -#if defined(USE_TCL_STUBS) -# undef Tcl_CreateInterp -# undef Tcl_FindExecutable -# undef Tcl_GetStringResult -# undef Tcl_Init -# undef Tcl_SetPanicProc -# undef Tcl_SetVar -# undef Tcl_ObjSetVar2 -# undef Tcl_StaticPackage -# define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp()) -# define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp)) -# define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp)) -# define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc)) -# define Tcl_SetVar(interp, varName, newValue, flags) \ - (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) -# define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \ - (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags)) -#endif - -#if defined(_WIN32) && defined(UNICODE) -# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) -# define Tcl_MainEx Tcl_MainExW - EXTERN void Tcl_MainExW(int argc, wchar_t **argv, - Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef Tcl_SeekOld -#undef Tcl_TellOld - -#undef Tcl_PkgPresent -#define Tcl_PkgPresent(interp, name, version, exact) \ - Tcl_PkgPresentEx(interp, name, version, exact, NULL) -#undef Tcl_PkgProvide -#define Tcl_PkgProvide(interp, name, version) \ - Tcl_PkgProvideEx(interp, name, version, NULL) -#undef Tcl_PkgRequire -#define Tcl_PkgRequire(interp, name, version, exact) \ - Tcl_PkgRequireEx(interp, name, version, exact, NULL) -#undef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ - Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ - sizeof(char *), msg, flags, indexPtr) -#undef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj(boolValue) \ - Tcl_NewIntObj((boolValue)!=0) -#undef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj(boolValue, file, line) \ - Tcl_DbNewLongObj((boolValue)!=0, file, line) -#undef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj(objPtr, boolValue) \ - Tcl_SetIntObj((objPtr), (boolValue)!=0) -#undef Tcl_SetVar -#define Tcl_SetVar(interp, varName, newValue, flags) \ - Tcl_SetVar2(interp, varName, NULL, newValue, flags) -#undef Tcl_UnsetVar -#define Tcl_UnsetVar(interp, varName, flags) \ - Tcl_UnsetVar2(interp, varName, NULL, flags) -#undef Tcl_GetVar -#define Tcl_GetVar(interp, varName, flags) \ - Tcl_GetVar2(interp, varName, NULL, flags) -#undef Tcl_TraceVar -#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ - Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_UntraceVar -#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ - Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ - Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) -#undef Tcl_UpVar -#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ - Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) -# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) -/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore - * we have to make sure that all stub entries on Cygwin64 follow the - * Win64 signature. Cygwin64 stubbed extensions cannot use those stub - * entries any more, they should use the 64-bit alternatives where - * possible. Tcl 9 must find a better solution, but that cannot be done - * without introducing a binary incompatibility. - */ -# undef Tcl_DbNewLongObj -# undef Tcl_GetLongFromObj -# undef Tcl_NewLongObj -# undef Tcl_SetLongObj -# undef Tcl_ExprLong -# undef Tcl_ExprLongObj -# undef Tcl_UniCharNcmp -# undef Tcl_UtfNcmp -# undef Tcl_UtfNcasecmp -# undef Tcl_UniCharNcasecmp -# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj) -# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj) -# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj) -# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj) -# define Tcl_ExprLong TclExprLong - static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_ExprLongObj TclExprLongObj - static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_UniCharNcmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) -# define Tcl_UtfNcmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UtfNcasecmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UniCharNcasecmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) -# endif -#endif - -/* - * Deprecated Tcl procedures: - */ - -#undef Tcl_EvalObj -#define Tcl_EvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),0) -#undef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) - -#endif /* _TCLDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclInt.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclInt.h deleted file mode 100644 index 39fb740a4..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclInt.h +++ /dev/null @@ -1,4946 +0,0 @@ -/* - * tclInt.h -- - * - * Declarations of things used internally by the Tcl interpreter. - * - * Copyright (c) 1987-1993 The Regents of the University of California. - * Copyright (c) 1993-1997 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-1999 by Scriptics Corporation. - * Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. - * Copyright (c) 2007 Daniel A. Steffen - * Copyright (c) 2006-2008 by Joe Mistachkin. All rights reserved. - * Copyright (c) 2008 by Miguel Sofer. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINT -#define _TCLINT - -/* - * Some numerics configuration options. - */ - -#undef ACCEPT_NAN - -/* - * Common include files needed by most of the Tcl source files are included - * here, so that system-dependent personalizations for the include files only - * have to be made in once place. This results in a few extra includes, but - * greater modularity. The order of the three groups of #includes is - * important. For example, stdio.h is needed by tcl.h. - */ - -#include "tclPort.h" - -#include - -#include -#ifdef NO_STDLIB_H -# include "../compat/stdlib.h" -#else -# include -#endif -#ifdef NO_STRING_H -#include "../compat/string.h" -#else -#include -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -#include -#else -typedef int ptrdiff_t; -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correctly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void *)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void *)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void *)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void *)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -#if defined(_WIN32) && defined(_MSC_VER) -# define vsnprintf _vsnprintf -#endif - -/* - * The following procedures allow namespaces to be customized to support - * special name resolution rules for commands/variables. - */ - -struct Tcl_ResolvedVarInfo; - -typedef Tcl_Var (Tcl_ResolveRuntimeVarProc)(Tcl_Interp *interp, - struct Tcl_ResolvedVarInfo *vinfoPtr); - -typedef void (Tcl_ResolveVarDeleteProc)(struct Tcl_ResolvedVarInfo *vinfoPtr); - -/* - * The following structure encapsulates the routines needed to resolve a - * variable reference at runtime. Any variable specific state will typically - * be appended to this structure. - */ - -typedef struct Tcl_ResolvedVarInfo { - Tcl_ResolveRuntimeVarProc *fetchProc; - Tcl_ResolveVarDeleteProc *deleteProc; -} Tcl_ResolvedVarInfo; - -typedef int (Tcl_ResolveCompiledVarProc)(Tcl_Interp *interp, - CONST84 char *name, int length, Tcl_Namespace *context, - Tcl_ResolvedVarInfo **rPtr); - -typedef int (Tcl_ResolveVarProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Var *rPtr); - -typedef int (Tcl_ResolveCmdProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Command *rPtr); - -typedef struct Tcl_ResolverInfo { - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ -} Tcl_ResolverInfo; - -/* - * This flag bit should not interfere with TCL_GLOBAL_ONLY, - * TCL_NAMESPACE_ONLY, or TCL_LEAVE_ERR_MSG; it signals that the variable - * lookup is performed for upvar (or similar) purposes, with slightly - * different rules: - * - Bug #696893 - variable is either proc-local or in the current - * namespace; never follow the second (global) resolution path - * - Bug #631741 - do not use special namespace or interp resolvers - * - * It should also not collide with the (deprecated) TCL_PARSE_PART1 flag - * (Bug #835020) - */ - -#define TCL_AVOID_RESOLVERS 0x40000 - -/* - *---------------------------------------------------------------- - * Data structures related to namespaces. - *---------------------------------------------------------------- - */ - -typedef struct Tcl_Ensemble Tcl_Ensemble; -typedef struct NamespacePathEntry NamespacePathEntry; - -/* - * Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr - * field added at the end: in this way variables can find their namespace - * without having to copy a pointer in their struct: they can access it via - * their hPtr->tablePtr. - */ - -typedef struct TclVarHashTable { - Tcl_HashTable table; - struct Namespace *nsPtr; -} TclVarHashTable; - -/* - * This is for itcl - it likes to search our varTables directly :( - */ - -#define TclVarHashFindVar(tablePtr, key) \ - TclVarHashCreateVar((tablePtr), (key), NULL) - -/* - * Define this to reduce the amount of space that the average namespace - * consumes by only allocating the table of child namespaces when necessary. - * Defining it breaks compatibility for Tcl extensions (e.g., itcl) which - * reach directly into the Namespace structure. - */ - -#undef BREAK_NAMESPACE_COMPAT - -/* - * The structure below defines a namespace. - * Note: the first five fields must match exactly the fields in a - * Tcl_Namespace structure (see tcl.h). If you change one, be sure to change - * the other. - */ - -typedef struct Namespace { - char *name; /* The namespace's simple (unqualified) name. - * This contains no ::'s. The name of the - * global namespace is "" although "::" is an - * synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* An arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Procedure invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Namespace *parentPtr;/* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -#ifndef BREAK_NAMESPACE_COMPAT - Tcl_HashTable childTable; /* Contains any child namespaces. Indexed by - * strings; values have type (Namespace *). */ -#else - Tcl_HashTable *childTablePtr; - /* Contains any child namespaces. Indexed by - * strings; values have type (Namespace *). If - * NULL, there are no children. */ -#endif - long nsId; /* Unique id for the namespace. */ - Tcl_Interp *interp; /* The interpreter containing this - * namespace. */ - int flags; /* OR-ed combination of the namespace status - * flags NS_DYING and NS_DEAD listed below. */ - int activationCount; /* Number of "activations" or active call - * frames for this namespace that are on the - * Tcl call stack. The namespace won't be - * freed until activationCount becomes zero. */ - int refCount; /* Count of references by namespaceName - * objects. The namespace can't be freed until - * refCount becomes zero. */ - Tcl_HashTable cmdTable; /* Contains all the commands currently - * registered in the namespace. Indexed by - * strings; values have type (Command *). - * Commands imported by Tcl_Import have - * Command structures that point (via an - * ImportedCmdRef structure) to the Command - * structure in the source namespace's command - * table. */ - TclVarHashTable varTable; /* Contains all the (global) variables - * currently in this namespace. Indexed by - * strings; values have type (Var *). */ - char **exportArrayPtr; /* Points to an array of string patterns - * specifying which commands are exported. A - * pattern may include "string match" style - * wildcard characters to specify multiple - * commands; however, no namespace qualifiers - * are allowed. NULL if no export patterns are - * registered. */ - int numExportPatterns; /* Number of export patterns currently - * registered using "namespace export". */ - int maxExportPatterns; /* Mumber of export patterns for which space - * is currently allocated. */ - int cmdRefEpoch; /* Incremented if a newly added command - * shadows a command for which this namespace - * has already cached a Command* pointer; this - * causes all its cached Command* pointers to - * be invalidated. */ - int resolverEpoch; /* Incremented whenever (a) the name - * resolution rules change for this namespace - * or (b) a newly added command shadows a - * command that is compiled to bytecodes. This - * invalidates all byte codes compiled in the - * namespace, causing the code to be - * recompiled under the new rules.*/ - Tcl_ResolveCmdProc *cmdResProc; - /* If non-null, this procedure overrides the - * usual command resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindCommand to resolve all command - * references within the namespace. */ - Tcl_ResolveVarProc *varResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindNamespaceVar to resolve all - * variable references within the namespace at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * LookupCompiledLocal to resolve variable - * references within the namespace at compile - * time. */ - int exportLookupEpoch; /* Incremented whenever a command is added to - * a namespace, removed from a namespace or - * the exports of a namespace are changed. - * Allows TIP#112-driven command lists to be - * validated efficiently. */ - Tcl_Ensemble *ensembles; /* List of structures that contain the details - * of the ensembles that are implemented on - * top of this namespace. */ - Tcl_Obj *unknownHandlerPtr; /* A script fragment to be used when command - * resolution in this namespace fails. TIP - * 181. */ - int commandPathLength; /* The length of the explicit path. */ - NamespacePathEntry *commandPathArray; - /* The explicit path of the namespace as an - * array. */ - NamespacePathEntry *commandPathSourceList; - /* Linked list of path entries that point to - * this namespace. */ - Tcl_NamespaceDeleteProc *earlyDeleteProc; - /* Just like the deleteProc field (and called - * with the same clientData) but called at the - * start of the deletion process, so there is - * a chance for code to do stuff inside the - * namespace before deletion completes. */ -} Namespace; - -/* - * An entry on a namespace's command resolution path. - */ - -struct NamespacePathEntry { - Namespace *nsPtr; /* What does this path entry point to? If it - * is NULL, this path entry points is - * redundant and should be skipped. */ - Namespace *creatorNsPtr; /* Where does this path entry point from? This - * allows for efficient invalidation of - * references when the path entry's target - * updates its current list of defined - * commands. */ - NamespacePathEntry *prevPtr, *nextPtr; - /* Linked list pointers or NULL at either end - * of the list that hangs off Namespace's - * commandPathSourceList field. */ -}; - -/* - * Flags used to represent the status of a namespace: - * - * NS_DYING - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace but there are still active call frames on the Tcl - * stack that refer to the namespace. When the last call frame - * referring to it has been popped, it's variables and command - * will be destroyed and it will be marked "dead" (NS_DEAD). The - * namespace can no longer be looked up by name. - * NS_DEAD - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace and no call frames still refer to it. Its variables - * and command have already been destroyed. This bit allows the - * namespace resolution code to recognize that the namespace is - * "deleted". When the last namespaceName object in any byte code - * unit that refers to the namespace has been freed (i.e., when - * the namespace's refCount is 0), the namespace's storage will - * be freed. - * NS_KILLED - 1 means that TclTeardownNamespace has already been called on - * this namespace and it should not be called again [Bug 1355942] - * NS_SUPPRESS_COMPILATION - - * Marks the commands in this namespace for not being compiled, - * forcing them to be looked up every time. - */ - -#define NS_DYING 0x01 -#define NS_DEAD 0x02 -#define NS_KILLED 0x04 -#define NS_SUPPRESS_COMPILATION 0x08 - -/* - * Flags passed to TclGetNamespaceForQualName: - * - * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns. - * TCL_NAMESPACE_ONLY - (see tcl.h) Look only in the context ns. - * TCL_CREATE_NS_IF_UNKNOWN - Create unknown namespaces. - * TCL_FIND_ONLY_NS - The name sought is a namespace name. - */ - -#define TCL_CREATE_NS_IF_UNKNOWN 0x800 -#define TCL_FIND_ONLY_NS 0x1000 - -/* - * The client data for an ensemble command. This consists of the table of - * commands that are actually exported by the namespace, and an epoch counter - * that, combined with the exportLookupEpoch field of the namespace structure, - * defines whether the table contains valid data or will need to be recomputed - * next time the ensemble command is called. - */ - -typedef struct EnsembleConfig { - Namespace *nsPtr; /* The namespace backing this ensemble up. */ - Tcl_Command token; /* The token for the command that provides - * ensemble support for the namespace, or NULL - * if the command has been deleted (or never - * existed; the global namespace never has an - * ensemble command.) */ - int epoch; /* The epoch at which this ensemble's table of - * exported commands is valid. */ - char **subcommandArrayPtr; /* Array of ensemble subcommand names. At all - * consistent points, this will have the same - * number of entries as there are entries in - * the subcommandTable hash. */ - Tcl_HashTable subcommandTable; - /* Hash table of ensemble subcommand names, - * which are its keys so this also provides - * the storage management for those subcommand - * names. The contents of the entry values are - * object version the prefix lists to use when - * substituting for the command/subcommand to - * build the ensemble implementation command. - * Has to be stored here as well as in - * subcommandDict because that field is NULL - * when we are deriving the ensemble from the - * namespace exports list. FUTURE WORK: use - * object hash table here. */ - struct EnsembleConfig *next;/* The next ensemble in the linked list of - * ensembles associated with a namespace. If - * this field points to this ensemble, the - * structure has already been unlinked from - * all lists, and cannot be found by scanning - * the list from the namespace's ensemble - * field. */ - int flags; /* ORed combo of TCL_ENSEMBLE_PREFIX, - * ENSEMBLE_DEAD and ENSEMBLE_COMPILE. */ - - /* OBJECT FIELDS FOR ENSEMBLE CONFIGURATION */ - - Tcl_Obj *subcommandDict; /* Dictionary providing mapping from - * subcommands to their implementing command - * prefixes, or NULL if we are to build the - * map automatically from the namespace - * exports. */ - Tcl_Obj *subcmdList; /* List of commands that this ensemble - * actually provides, and whose implementation - * will be built using the subcommandDict (if - * present and defined) and by simple mapping - * to the namespace otherwise. If NULL, - * indicates that we are using the (dynamic) - * list of currently exported commands. */ - Tcl_Obj *unknownHandler; /* Script prefix used to handle the case when - * no match is found (according to the rule - * defined by flag bit TCL_ENSEMBLE_PREFIX) or - * NULL to use the default error-generating - * behaviour. The script execution gets all - * the arguments to the ensemble command - * (including objv[0]) and will have the - * results passed directly back to the caller - * (including the error code) unless the code - * is TCL_CONTINUE in which case the - * subcommand will be reparsed by the ensemble - * core, presumably because the ensemble - * itself has been updated. */ - Tcl_Obj *parameterList; /* List of ensemble parameter names. */ - int numParameters; /* Cached number of parameters. This is either - * 0 (if the parameterList field is NULL) or - * the length of the list in the parameterList - * field. */ -} EnsembleConfig; - -/* - * Various bits for the EnsembleConfig.flags field. - */ - -#define ENSEMBLE_DEAD 0x1 /* Flag value to say that the ensemble is dead - * and on its way out. */ -#define ENSEMBLE_COMPILE 0x4 /* Flag to enable bytecode compilation of an - * ensemble. */ - -/* - *---------------------------------------------------------------- - * Data structures related to variables. These are used primarily in tclVar.c - *---------------------------------------------------------------- - */ - -/* - * The following structure defines a variable trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * variable. - */ - -typedef struct VarTrace { - Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given by - * flags are performed on variable. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_READS, TCL_TRACE_WRITES, - * TCL_TRACE_UNSETS and TCL_TRACE_ARRAY. */ - struct VarTrace *nextPtr; /* Next in list of traces associated with a - * particular variable. */ -} VarTrace; - -/* - * The following structure defines a command trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * command. - */ - -typedef struct CommandTrace { - Tcl_CommandTraceProc *traceProc; - /* Procedure to call when operations given by - * flags are performed on command. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ - struct CommandTrace *nextPtr; - /* Next in list of traces associated with a - * particular command. */ - int refCount; /* Used to ensure this structure is not - * deleted too early. Keeps track of how many - * pieces of code have a pointer to this - * structure. */ -} CommandTrace; - -/* - * When a command trace is active (i.e. its associated procedure is executing) - * one of the following structures is linked into a list associated with the - * command's interpreter. The information in the structure is needed in order - * for Tcl to behave reasonably if traces are deleted while traces are active. - */ - -typedef struct ActiveCommandTrace { - struct Command *cmdPtr; /* Command that's being traced. */ - struct ActiveCommandTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - CommandTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveCommandTrace; - -/* - * When a variable trace is active (i.e. its associated procedure is - * executing) one of the following structures is linked into a list associated - * with the variable's interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveVarTrace { - struct Var *varPtr; /* Variable that's being traced. */ - struct ActiveVarTrace *nextPtr; - /* Next in list of all active variable traces - * for the interpreter, or NULL if no more. */ - VarTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ -} ActiveVarTrace; - -/* - * The structure below defines a variable, which associates a string name with - * a Tcl_Obj value. These structures are kept in procedure call frames (for - * local variables recognized by the compiler) or in the heap (for global - * variables and any variable not known to the compiler). For each Var - * structure in the heap, a hash table entry holds the variable name and a - * pointer to the Var structure. - */ - -typedef struct Var { - int flags; /* Miscellaneous bits of information about - * variable. See below for definitions. */ - union { - Tcl_Obj *objPtr; /* The variable's object value. Used for - * scalar variables and array elements. */ - TclVarHashTable *tablePtr;/* For array variables, this points to - * information about the hash table used to - * implement the associative array. Points to - * ckalloc-ed data. */ - struct Var *linkPtr; /* If this is a global variable being referred - * to in a procedure, or a variable created by - * "upvar", this field points to the - * referenced variable's Var struct. */ - } value; -} Var; - -typedef struct VarInHash { - Var var; - int refCount; /* Counts number of active uses of this - * variable: 1 for the entry in the hash - * table, 1 for each additional variable whose - * linkPtr points here, 1 for each nested - * trace active on variable, and 1 if the - * variable is a namespace variable. This - * record can't be deleted until refCount - * becomes 0. */ - Tcl_HashEntry entry; /* The hash table entry that refers to this - * variable. This is used to find the name of - * the variable and to delete it from its - * hashtable if it is no longer needed. It - * also holds the variable's name. */ -} VarInHash; - -/* - * Flag bits for variables. The first two (VAR_ARRAY and VAR_LINK) are - * mutually exclusive and give the "type" of the variable. If none is set, - * this is a scalar variable. - * - * VAR_ARRAY - 1 means this is an array variable rather than - * a scalar variable or link. The "tablePtr" - * field points to the array's hashtable for its - * elements. - * VAR_LINK - 1 means this Var structure contains a pointer - * to another Var structure that either has the - * real value or is itself another VAR_LINK - * pointer. Variables like this come about - * through "upvar" and "global" commands, or - * through references to variables in enclosing - * namespaces. - * - * Flags that indicate the type and status of storage; none is set for - * compiled local variables (Var structs). - * - * VAR_IN_HASHTABLE - 1 means this variable is in a hashtable and - * the Var structure is malloced. 0 if it is a - * local variable that was assigned a slot in a - * procedure frame by the compiler so the Var - * storage is part of the call frame. - * VAR_DEAD_HASH 1 means that this var's entry in the hashtable - * has already been deleted. - * VAR_ARRAY_ELEMENT - 1 means that this variable is an array - * element, so it is not legal for it to be an - * array itself (the VAR_ARRAY flag had better - * not be set). - * VAR_NAMESPACE_VAR - 1 means that this variable was declared as a - * namespace variable. This flag ensures it - * persists until its namespace is destroyed or - * until the variable is unset; it will persist - * even if it has not been initialized and is - * marked undefined. The variable's refCount is - * incremented to reflect the "reference" from - * its namespace. - * - * Flag values relating to the variable's trace and search status. - * - * VAR_TRACED_READ - * VAR_TRACED_WRITE - * VAR_TRACED_UNSET - * VAR_TRACED_ARRAY - * VAR_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a read or write access, so new - * read or write accesses should not cause trace - * procedures to be called and the variable can't - * be deleted. - * VAR_SEARCH_ACTIVE - * - * The following additional flags are used with the CompiledLocal type defined - * below: - * - * VAR_ARGUMENT - 1 means that this variable holds a procedure - * argument. - * VAR_TEMPORARY - 1 if the local variable is an anonymous - * temporary variable. Temporaries have a NULL - * name. - * VAR_RESOLVED - 1 if name resolution has been done for this - * variable. - * VAR_IS_ARGS 1 if this variable is the last argument and is - * named "args". - */ - -/* - * FLAGS RENUMBERED: everything breaks already, make things simpler. - * - * IMPORTANT: skip the values 0x10, 0x20, 0x40, 0x800 corresponding to - * TCL_TRACE_(READS/WRITES/UNSETS/ARRAY): makes code simpler in tclTrace.c - * - * Keep the flag values for VAR_ARGUMENT and VAR_TEMPORARY so that old values - * in precompiled scripts keep working. - */ - -/* Type of value (0 is scalar) */ -#define VAR_ARRAY 0x1 -#define VAR_LINK 0x2 - -/* Type of storage (0 is compiled local) */ -#define VAR_IN_HASHTABLE 0x4 -#define VAR_DEAD_HASH 0x8 -#define VAR_ARRAY_ELEMENT 0x1000 -#define VAR_NAMESPACE_VAR 0x80 /* KEEP OLD VALUE for Itcl */ - -#define VAR_ALL_HASH \ - (VAR_IN_HASHTABLE|VAR_DEAD_HASH|VAR_NAMESPACE_VAR|VAR_ARRAY_ELEMENT) - -/* Trace and search state. */ - -#define VAR_TRACED_READ 0x10 /* TCL_TRACE_READS */ -#define VAR_TRACED_WRITE 0x20 /* TCL_TRACE_WRITES */ -#define VAR_TRACED_UNSET 0x40 /* TCL_TRACE_UNSETS */ -#define VAR_TRACED_ARRAY 0x800 /* TCL_TRACE_ARRAY */ -#define VAR_TRACE_ACTIVE 0x2000 -#define VAR_SEARCH_ACTIVE 0x4000 -#define VAR_ALL_TRACES \ - (VAR_TRACED_READ|VAR_TRACED_WRITE|VAR_TRACED_ARRAY|VAR_TRACED_UNSET) - -/* Special handling on initialisation (only CompiledLocal). */ -#define VAR_ARGUMENT 0x100 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_TEMPORARY 0x200 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_IS_ARGS 0x400 -#define VAR_RESOLVED 0x8000 - -/* - * Macros to ensure that various flag bits are set properly for variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetVarScalar(Var *varPtr); - * MODULE_SCOPE void TclSetVarArray(Var *varPtr); - * MODULE_SCOPE void TclSetVarLink(Var *varPtr); - * MODULE_SCOPE void TclSetVarArrayElement(Var *varPtr); - * MODULE_SCOPE void TclSetVarUndefined(Var *varPtr); - * MODULE_SCOPE void TclClearVarUndefined(Var *varPtr); - */ - -#define TclSetVarScalar(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK) - -#define TclSetVarArray(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_LINK) | VAR_ARRAY - -#define TclSetVarLink(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_LINK - -#define TclSetVarArrayElement(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_ARRAY_ELEMENT - -#define TclSetVarUndefined(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK);\ - (varPtr)->value.objPtr = NULL - -#define TclClearVarUndefined(varPtr) - -#define TclSetVarTraceActive(varPtr) \ - (varPtr)->flags |= VAR_TRACE_ACTIVE - -#define TclClearVarTraceActive(varPtr) \ - (varPtr)->flags &= ~VAR_TRACE_ACTIVE - -#define TclSetVarNamespaceVar(varPtr) \ - if (!TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags |= VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount++;\ - }\ - } - -#define TclClearVarNamespaceVar(varPtr) \ - if (TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags &= ~VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount--;\ - }\ - } - -/* - * Macros to read various flag bits of variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsVarScalar(Var *varPtr); - * MODULE_SCOPE int TclIsVarLink(Var *varPtr); - * MODULE_SCOPE int TclIsVarArray(Var *varPtr); - * MODULE_SCOPE int TclIsVarUndefined(Var *varPtr); - * MODULE_SCOPE int TclIsVarArrayElement(Var *varPtr); - * MODULE_SCOPE int TclIsVarTemporary(Var *varPtr); - * MODULE_SCOPE int TclIsVarArgument(Var *varPtr); - * MODULE_SCOPE int TclIsVarResolved(Var *varPtr); - */ - -#define TclIsVarScalar(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK)) - -#define TclIsVarLink(varPtr) \ - ((varPtr)->flags & VAR_LINK) - -#define TclIsVarArray(varPtr) \ - ((varPtr)->flags & VAR_ARRAY) - -#define TclIsVarUndefined(varPtr) \ - ((varPtr)->value.objPtr == NULL) - -#define TclIsVarArrayElement(varPtr) \ - ((varPtr)->flags & VAR_ARRAY_ELEMENT) - -#define TclIsVarNamespaceVar(varPtr) \ - ((varPtr)->flags & VAR_NAMESPACE_VAR) - -#define TclIsVarTemporary(varPtr) \ - ((varPtr)->flags & VAR_TEMPORARY) - -#define TclIsVarArgument(varPtr) \ - ((varPtr)->flags & VAR_ARGUMENT) - -#define TclIsVarResolved(varPtr) \ - ((varPtr)->flags & VAR_RESOLVED) - -#define TclIsVarTraceActive(varPtr) \ - ((varPtr)->flags & VAR_TRACE_ACTIVE) - -#define TclIsVarTraced(varPtr) \ - ((varPtr)->flags & VAR_ALL_TRACES) - -#define TclIsVarInHash(varPtr) \ - ((varPtr)->flags & VAR_IN_HASHTABLE) - -#define TclIsVarDeadHash(varPtr) \ - ((varPtr)->flags & VAR_DEAD_HASH) - -#define TclGetVarNsPtr(varPtr) \ - (TclIsVarInHash(varPtr) \ - ? ((TclVarHashTable *) ((((VarInHash *) (varPtr))->entry.tablePtr)))->nsPtr \ - : NULL) - -#define VarHashRefCount(varPtr) \ - ((VarInHash *) (varPtr))->refCount - -/* - * Macros for direct variable access by TEBC. - */ - -#define TclIsVarDirectReadable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectWritable(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_WRITE|VAR_DEAD_HASH)) - -#define TclIsVarDirectUnsettable(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ|VAR_TRACED_WRITE|VAR_TRACED_UNSET|VAR_DEAD_HASH)) - -#define TclIsVarDirectModifyable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ|VAR_TRACED_WRITE)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectReadable2(varPtr, arrayPtr) \ - (TclIsVarDirectReadable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_READ))) - -#define TclIsVarDirectWritable2(varPtr, arrayPtr) \ - (TclIsVarDirectWritable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_WRITE))) - -#define TclIsVarDirectModifyable2(varPtr, arrayPtr) \ - (TclIsVarDirectModifyable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & (VAR_TRACED_READ|VAR_TRACED_WRITE)))) - -/* - *---------------------------------------------------------------- - * Data structures related to procedures. These are used primarily in - * tclProc.c, tclCompile.c, and tclExecute.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent an error when the forward reference to - * Command is encountered in the Proc and ImportRef types declared below. - */ - -struct Command; - -/* - * The variable-length structure below describes a local variable of a - * procedure that was recognized by the compiler. These variables have a name, - * an element in the array of compiler-assigned local variables in the - * procedure's call frame, and various other items of information. If the - * local variable is a formal argument, it may also have a default value. The - * compiler can't recognize local variables whose names are expressions (these - * names are only known at runtime when the expressions are evaluated) or - * local variables that are created as a result of an "upvar" or "uplevel" - * command. These other local variables are kept separately in a hash table in - * the call frame. - */ - -typedef struct CompiledLocal { - struct CompiledLocal *nextPtr; - /* Next compiler-recognized local variable for - * this procedure, or NULL if this is the last - * local. */ - int nameLength; /* The number of bytes in local variable's name. - * Among others used to speed up var lookups. */ - int frameIndex; /* Index in the array of compiler-assigned - * variables in the procedure call frame. */ - int flags; /* Flag bits for the local variable. Same as - * the flags for the Var structure above, - * although only VAR_ARGUMENT, VAR_TEMPORARY, - * and VAR_RESOLVED make sense. */ - Tcl_Obj *defValuePtr; /* Pointer to the default value of an - * argument, if any. NULL if not an argument - * or, if an argument, no default value. */ - Tcl_ResolvedVarInfo *resolveInfo; - /* Customized variable resolution info - * supplied by the Tcl_ResolveCompiledVarProc - * associated with a namespace. Each variable - * is marked by a unique ClientData tag during - * compilation, and that same tag is used to - * find the variable at runtime. */ - char name[1]; /* Name of the local variable starts here. If - * the name is NULL, this will just be '\0'. - * The actual size of this field will be large - * enough to hold the name. MUST BE THE LAST - * FIELD IN THE STRUCTURE! */ -} CompiledLocal; - -/* - * The structure below defines a command procedure, which consists of a - * collection of Tcl commands plus information about arguments and other local - * variables recognized at compile time. - */ - -typedef struct Proc { - struct Interp *iPtr; /* Interpreter for which this command is - * defined. */ - int refCount; /* Reference count: 1 if still present in - * command table plus 1 for each call to the - * procedure that is currently active. This - * structure can be freed when refCount - * becomes zero. */ - struct Command *cmdPtr; /* Points to the Command structure for this - * procedure. This is used to get the - * namespace in which to execute the - * procedure. */ - Tcl_Obj *bodyPtr; /* Points to the ByteCode object for - * procedure's body command. */ - int numArgs; /* Number of formal parameters. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments and - * temporaries. */ - CompiledLocal *firstLocalPtr; - /* Pointer to first of the procedure's - * compiler-allocated local variables, or NULL - * if none. The first numArgs entries in this - * list describe the procedure's formal - * arguments. */ - CompiledLocal *lastLocalPtr;/* Pointer to the last allocated local - * variable or NULL if none. This has frame - * index (numCompiledLocals-1). */ -} Proc; - -/* - * The type of functions called to process errors found during the execution - * of a procedure (or lambda term or ...). - */ - -typedef void (ProcErrorProc)(Tcl_Interp *interp, Tcl_Obj *procNameObj); - -/* - * The structure below defines a command trace. This is used to allow Tcl - * clients to find out whenever a command is about to be executed. - */ - -typedef struct Trace { - int level; /* Only trace commands at nesting level less - * than or equal to this. */ - Tcl_CmdObjTraceProc *proc; /* Procedure to call to trace command. */ - ClientData clientData; /* Arbitrary value to pass to proc. */ - struct Trace *nextPtr; /* Next in list of traces for this interp. */ - int flags; /* Flags governing the trace - see - * Tcl_CreateObjTrace for details. */ - Tcl_CmdObjTraceDeleteProc *delProc; - /* Procedure to call when trace is deleted. */ -} Trace; - -/* - * When an interpreter trace is active (i.e. its associated procedure is - * executing), one of the following structures is linked into a list - * associated with the interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveInterpTrace { - struct ActiveInterpTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - Trace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveInterpTrace; - -/* - * Flag values designating types of execution traces. See tclTrace.c for - * related flag values. - * - * TCL_TRACE_ENTER_EXEC - triggers enter/enterstep traces. - * - passed to Tcl_CreateObjTrace to set up - * "enterstep" traces. - * TCL_TRACE_LEAVE_EXEC - triggers leave/leavestep traces. - * - passed to Tcl_CreateObjTrace to set up - * "leavestep" traces. - */ - -#define TCL_TRACE_ENTER_EXEC 1 -#define TCL_TRACE_LEAVE_EXEC 2 - -/* - * The structure below defines an entry in the assocData hash table which is - * associated with an interpreter. The entry contains a pointer to a function - * to call when the interpreter is deleted, and a pointer to a user-defined - * piece of data. - */ - -typedef struct AssocData { - Tcl_InterpDeleteProc *proc; /* Proc to call when deleting. */ - ClientData clientData; /* Value to pass to proc. */ -} AssocData; - -/* - * The structure below defines a call frame. A call frame defines a naming - * context for a procedure call: its local naming scope (for local variables) - * and its global naming scope (a namespace, perhaps the global :: namespace). - * A call frame can also define the naming context for a namespace eval or - * namespace inscope command: the namespace in which the command's code should - * execute. The Tcl_CallFrame structures exist only while procedures or - * namespace eval/inscope's are being executed, and provide a kind of Tcl call - * stack. - * - * WARNING!! The structure definition must be kept consistent with the - * Tcl_CallFrame structure in tcl.h. If you change one, change the other. - */ - -/* - * Will be grown to contain: pointers to the varnames (allocated at the end), - * plus the init values for each variable (suitable to be memcopied on init) - */ - -typedef struct LocalCache { - int refCount; - int numVars; - Tcl_Obj *varName0; -} LocalCache; - -#define localName(framePtr, i) \ - ((&((framePtr)->localCachePtr->varName0))[(i)]) - -MODULE_SCOPE void TclFreeLocalCache(Tcl_Interp *interp, - LocalCache *localCachePtr); - -typedef struct CallFrame { - Namespace *nsPtr; /* Points to the namespace used to resolve - * commands and global variables. */ - int isProcCallFrame; /* If 0, the frame was pushed to execute a - * namespace command and var references are - * treated as references to namespace vars; - * varTablePtr and compiledLocals are ignored. - * If FRAME_IS_PROC is set, the frame was - * pushed to execute a Tcl procedure and may - * have local vars. */ - int objc; /* This and objv below describe the arguments - * for this procedure call. */ - Tcl_Obj *const *objv; /* Array of argument objects. */ - struct CallFrame *callerPtr; - /* Value of interp->framePtr when this - * procedure was invoked (i.e. next higher in - * stack of all active procedures). */ - struct CallFrame *callerVarPtr; - /* Value of interp->varFramePtr when this - * procedure was invoked (i.e. determines - * variable scoping within caller). Same as - * callerPtr unless an "uplevel" command or - * something equivalent was active in the - * caller). */ - int level; /* Level of this procedure, for "uplevel" - * purposes (i.e. corresponds to nesting of - * callerVarPtr's, not callerPtr's). 1 for - * outermost procedure, 0 for top-level. */ - Proc *procPtr; /* Points to the structure defining the called - * procedure. Used to get information such as - * the number of compiled local variables - * (local variables assigned entries ["slots"] - * in the compiledLocals array below). */ - TclVarHashTable *varTablePtr; - /* Hash table containing local variables not - * recognized by the compiler, or created at - * execution time through, e.g., upvar. - * Initially NULL and created if needed. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments. */ - Var *compiledLocals; /* Points to the array of local variables - * recognized by the compiler. The compiler - * emits code that refers to these variables - * using an index into this array. */ - ClientData clientData; /* Pointer to some context that is used by - * object systems. The meaning of the contents - * of this field is defined by the code that - * sets it, and it should only ever be set by - * the code that is pushing the frame. In that - * case, the code that sets it should also - * have some means of discovering what the - * meaning of the value is, which we do not - * specify. */ - LocalCache *localCachePtr; - Tcl_Obj *tailcallPtr; - /* NULL if no tailcall is scheduled */ -} CallFrame; - -#define FRAME_IS_PROC 0x1 -#define FRAME_IS_LAMBDA 0x2 -#define FRAME_IS_METHOD 0x4 /* The frame is a method body, and the frame's - * clientData field contains a CallContext - * reference. Part of TIP#257. */ -#define FRAME_IS_OO_DEFINE 0x8 /* The frame is part of the inside workings of - * the [oo::define] command; the clientData - * field contains an Object reference that has - * been confirmed to refer to a class. Part of - * TIP#257. */ - -/* - * TIP #280 - * The structure below defines a command frame. A command frame provides - * location information for all commands executing a tcl script (source, eval, - * uplevel, procedure bodies, ...). The runtime structure essentially contains - * the stack trace as it would be if the currently executing command were to - * throw an error. - * - * For commands where it makes sense it refers to the associated CallFrame as - * well. - * - * The structures are chained in a single list, with the top of the stack - * anchored in the Interp structure. - * - * Instances can be allocated on the C stack, or the heap, the former making - * cleanup a bit simpler. - */ - -typedef struct CmdFrame { - /* - * General data. Always available. - */ - - int type; /* Values see below. */ - int level; /* Number of frames in stack, prevent O(n) - * scan of list. */ - int *line; /* Lines the words of the command start on. */ - int nline; - CallFrame *framePtr; /* Procedure activation record, may be - * NULL. */ - struct CmdFrame *nextPtr; /* Link to calling frame. */ - /* - * Data needed for Eval vs TEBC - * - * EXECUTION CONTEXTS and usage of CmdFrame - * - * Field TEBC EvalEx - * ======= ==== ====== - * level yes yes - * type BC/PREBC SRC/EVAL - * line0 yes yes - * framePtr yes yes - * ======= ==== ====== - * - * ======= ==== ========= union data - * line1 - yes - * line3 - yes - * path - yes - * ------- ---- ------ - * codePtr yes - - * pc yes - - * ======= ==== ====== - * - * ======= ==== ========= union cmd - * str.cmd yes yes - * str.len yes yes - * ------- ---- ------ - */ - - union { - struct { - Tcl_Obj *path; /* Path of the sourced file the command is - * in. */ - } eval; - struct { - const void *codePtr;/* Byte code currently executed... */ - const char *pc; /* ... and instruction pointer. */ - } tebc; - } data; - Tcl_Obj *cmdObj; - const char *cmd; /* The executed command, if possible... */ - int len; /* ... and its length. */ - const struct CFWordBC *litarg; - /* Link to set of literal arguments which have - * ben pushed on the lineLABCPtr stack by - * TclArgumentBCEnter(). These will be removed - * by TclArgumentBCRelease. */ -} CmdFrame; - -typedef struct CFWord { - CmdFrame *framePtr; /* CmdFrame to access. */ - int word; /* Index of the word in the command. */ - int refCount; /* Number of times the word is on the - * stack. */ -} CFWord; - -typedef struct CFWordBC { - CmdFrame *framePtr; /* CmdFrame to access. */ - int pc; /* Instruction pointer of a command in - * ExtCmdLoc.loc[.] */ - int word; /* Index of word in - * ExtCmdLoc.loc[cmd]->line[.] */ - struct CFWordBC *prevPtr; /* Previous entry in stack for same Tcl_Obj. */ - struct CFWordBC *nextPtr; /* Next entry for same command call. See - * CmdFrame litarg field for the list start. */ - Tcl_Obj *obj; /* Back reference to hashtable key */ -} CFWordBC; - -/* - * Structure to record the locations of invisible continuation lines in - * literal scripts, as character offset from the beginning of the script. Both - * compiler and direct evaluator use this information to adjust their line - * counters when tracking through the script, because when it is invoked the - * continuation line marker as a whole has been removed already, meaning that - * the \n which was part of it is gone as well, breaking regular line - * tracking. - * - * These structures are allocated and filled by both the function - * TclSubstTokens() in the file "tclParse.c" and its caller TclEvalEx() in the - * file "tclBasic.c", and stored in the thread-global hashtable "lineCLPtr" in - * file "tclObj.c". They are used by the functions TclSetByteCodeFromAny() and - * TclCompileScript(), both found in the file "tclCompile.c". Their memory is - * released by the function TclFreeObj(), in the file "tclObj.c", and also by - * the function TclThreadFinalizeObjects(), in the same file. - */ - -#define CLL_END (-1) - -typedef struct ContLineLoc { - int num; /* Number of entries in loc, not counting the - * final -1 marker entry. */ - int loc[1]; /* Table of locations, as character offsets. - * The table is allocated as part of the - * structure, extending behind the nominal end - * of the structure. An entry containing the - * value -1 is put after the last location, as - * end-marker/sentinel. */ -} ContLineLoc; - -/* - * The following macros define the allowed values for the type field of the - * CmdFrame structure above. Some of the values occur only in the extended - * location data referenced via the 'baseLocPtr'. - * - * TCL_LOCATION_EVAL : Frame is for a script evaluated by EvalEx. - * TCL_LOCATION_BC : Frame is for bytecode. - * TCL_LOCATION_PREBC : Frame is for precompiled bytecode. - * TCL_LOCATION_SOURCE : Frame is for a script evaluated by EvalEx, from a - * sourced file. - * TCL_LOCATION_PROC : Frame is for bytecode of a procedure. - * - * A TCL_LOCATION_BC type in a frame can be overridden by _SOURCE and _PROC - * types, per the context of the byte code in execution. - */ - -#define TCL_LOCATION_EVAL (0) /* Location in a dynamic eval script. */ -#define TCL_LOCATION_BC (2) /* Location in byte code. */ -#define TCL_LOCATION_PREBC (3) /* Location in precompiled byte code, no - * location. */ -#define TCL_LOCATION_SOURCE (4) /* Location in a file. */ -#define TCL_LOCATION_PROC (5) /* Location in a dynamic proc. */ -#define TCL_LOCATION_LAST (6) /* Number of values in the enum. */ - -/* - * Structure passed to describe procedure-like "procedures" that are not - * procedures (e.g. a lambda) so that their details can be reported correctly - * by [info frame]. Contains a sub-structure for each extra field. - */ - -typedef Tcl_Obj * (GetFrameInfoValueProc)(ClientData clientData); -typedef struct { - const char *name; /* Name of this field. */ - GetFrameInfoValueProc *proc; /* Function to generate a Tcl_Obj* from the - * clientData, or just use the clientData - * directly (after casting) if NULL. */ - ClientData clientData; /* Context for above function, or Tcl_Obj* if - * proc field is NULL. */ -} ExtraFrameInfoField; -typedef struct { - int length; /* Length of array. */ - ExtraFrameInfoField fields[2]; - /* Really as long as necessary, but this is - * long enough for nearly anything. */ -} ExtraFrameInfo; - -/* - *---------------------------------------------------------------- - * Data structures and procedures related to TclHandles, which are a very - * lightweight method of preserving enough information to determine if an - * arbitrary malloc'd block has been deleted. - *---------------------------------------------------------------- - */ - -typedef void **TclHandle; - -/* - *---------------------------------------------------------------- - * Experimental flag value passed to Tcl_GetRegExpFromObj. Intended for use - * only by Expect. It will probably go away in a later release. - *---------------------------------------------------------------- - */ - -#define TCL_REG_BOSONLY 002000 /* Prepend \A to pattern so it only matches at - * the beginning of the string. */ - -/* - * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet - * when threads are used, or an emulation if there are no threads. These are - * really internal and Tcl clients should use Tcl_GetThreadData. - */ - -MODULE_SCOPE void * TclThreadDataKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclThreadDataKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); - -/* - * This is a convenience macro used to initialize a thread local storage ptr. - */ - -#define TCL_TSD_INIT(keyPtr) \ - (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) - -/* - *---------------------------------------------------------------- - * Data structures related to bytecode compilation and execution. These are - * used primarily in tclCompile.c, tclExecute.c, and tclBasic.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent errors when the forward references to - * Tcl_Parse and CompileEnv are encountered in the procedure type CompileProc - * declared below. - */ - -struct CompileEnv; - -/* - * The type of procedures called by the Tcl bytecode compiler to compile - * commands. Pointers to these procedures are kept in the Command structure - * describing each command. The integer value returned by a CompileProc must - * be one of the following: - * - * TCL_OK Compilation completed normally. - * TCL_ERROR Compilation could not be completed. This can be just a - * judgment by the CompileProc that the command is too - * complex to compile effectively, or it can indicate - * that in the current state of the interp, the command - * would raise an error. The bytecode compiler will not - * do any error reporting at compiler time. Error - * reporting is deferred until the actual runtime, - * because by then changes in the interp state may allow - * the command to be successfully evaluated. - * TCL_OUT_LINE_COMPILE A source-compatible alias for TCL_ERROR, kept for the - * sake of old code only. - */ - -#define TCL_OUT_LINE_COMPILE TCL_ERROR - -typedef int (CompileProc)(Tcl_Interp *interp, Tcl_Parse *parsePtr, - struct Command *cmdPtr, struct CompileEnv *compEnvPtr); - -/* - * The type of procedure called from the compilation hook point in - * SetByteCodeFromAny. - */ - -typedef int (CompileHookProc)(Tcl_Interp *interp, - struct CompileEnv *compEnvPtr, ClientData clientData); - -/* - * The data structure for a (linked list of) execution stacks. - */ - -typedef struct ExecStack { - struct ExecStack *prevPtr; - struct ExecStack *nextPtr; - Tcl_Obj **markerPtr; - Tcl_Obj **endPtr; - Tcl_Obj **tosPtr; - Tcl_Obj *stackWords[1]; -} ExecStack; - -/* - * The data structure defining the execution environment for ByteCode's. - * There is one ExecEnv structure per Tcl interpreter. It holds the evaluation - * stack that holds command operands and results. The stack grows towards - * increasing addresses. The member stackPtr points to the stackItems of the - * currently active execution stack. - */ - -typedef struct CorContext { - struct CallFrame *framePtr; - struct CallFrame *varFramePtr; - struct CmdFrame *cmdFramePtr; /* See Interp.cmdFramePtr */ - Tcl_HashTable *lineLABCPtr; /* See Interp.lineLABCPtr */ -} CorContext; - -typedef struct CoroutineData { - struct Command *cmdPtr; /* The command handle for the coroutine. */ - struct ExecEnv *eePtr; /* The special execution environment (stacks, - * etc.) for the coroutine. */ - struct ExecEnv *callerEEPtr;/* The execution environment for the caller of - * the coroutine, which might be the - * interpreter global environment or another - * coroutine. */ - CorContext caller; - CorContext running; - Tcl_HashTable *lineLABCPtr; /* See Interp.lineLABCPtr */ - void *stackLevel; - int auxNumLevels; /* While the coroutine is running the - * numLevels of the create/resume command is - * stored here; for suspended coroutines it - * holds the nesting numLevels at yield. */ - int nargs; /* Number of args required for resuming this - * coroutine; -2 means "0 or 1" (default), -1 - * means "any" */ -} CoroutineData; - -typedef struct ExecEnv { - ExecStack *execStackPtr; /* Points to the first item in the evaluation - * stack on the heap. */ - Tcl_Obj *constants[2]; /* Pointers to constant "0" and "1" objs. */ - struct Tcl_Interp *interp; - struct NRE_callback *callbackPtr; - /* Top callback in NRE's stack. */ - struct CoroutineData *corPtr; - int rewind; -} ExecEnv; - -#define COR_IS_SUSPENDED(corPtr) \ - ((corPtr)->stackLevel == NULL) - -/* - * The definitions for the LiteralTable and LiteralEntry structures. Each - * interpreter contains a LiteralTable. It is used to reduce the storage - * needed for all the Tcl objects that hold the literals of scripts compiled - * by the interpreter. A literal's object is shared by all the ByteCodes that - * refer to the literal. Each distinct literal has one LiteralEntry entry in - * the LiteralTable. A literal table is a specialized hash table that is - * indexed by the literal's string representation, which may contain null - * characters. - * - * Note that we reduce the space needed for literals by sharing literal - * objects both within a ByteCode (each ByteCode contains a local - * LiteralTable) and across all an interpreter's ByteCodes (with the - * interpreter's global LiteralTable). - */ - -typedef struct LiteralEntry { - struct LiteralEntry *nextPtr; - /* Points to next entry in this hash bucket or - * NULL if end of chain. */ - Tcl_Obj *objPtr; /* Points to Tcl object that holds the - * literal's bytes and length. */ - int refCount; /* If in an interpreter's global literal - * table, the number of ByteCode structures - * that share the literal object; the literal - * entry can be freed when refCount drops to - * 0. If in a local literal table, -1. */ - Namespace *nsPtr; /* Namespace in which this literal is used. We - * try to avoid sharing literal non-FQ command - * names among different namespaces to reduce - * shimmering. */ -} LiteralEntry; - -typedef struct LiteralTable { - LiteralEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - LiteralEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables to avoid - * mallocs and frees. */ - int numBuckets; /* Total number of buckets allocated at - * **buckets. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int mask; /* Mask value used in hashing function. */ -} LiteralTable; - -/* - * The following structure defines for each Tcl interpreter various - * statistics-related information about the bytecode compiler and - * interpreter's operation in that interpreter. - */ - -#ifdef TCL_COMPILE_STATS -typedef struct ByteCodeStats { - long numExecutions; /* Number of ByteCodes executed. */ - long numCompilations; /* Number of ByteCodes created. */ - long numByteCodesFreed; /* Number of ByteCodes destroyed. */ - long instructionCount[256]; /* Number of times each instruction was - * executed. */ - - double totalSrcBytes; /* Total source bytes ever compiled. */ - double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ - double currentSrcBytes; /* Src bytes for all current ByteCodes. */ - double currentByteCodeBytes;/* Code bytes in all current ByteCodes. */ - - long srcCount[32]; /* Source size distribution: # of srcs of - * size [2**(n-1)..2**n), n in [0..32). */ - long byteCodeCount[32]; /* ByteCode size distribution. */ - long lifetimeCount[32]; /* ByteCode lifetime distribution (ms). */ - - double currentInstBytes; /* Instruction bytes-current ByteCodes. */ - double currentLitBytes; /* Current literal bytes. */ - double currentExceptBytes; /* Current exception table bytes. */ - double currentAuxBytes; /* Current auxiliary information bytes. */ - double currentCmdMapBytes; /* Current src<->code map bytes. */ - - long numLiteralsCreated; /* Total literal objects ever compiled. */ - double totalLitStringBytes; /* Total string bytes in all literals. */ - double currentLitStringBytes; - /* String bytes in current literals. */ - long literalCount[32]; /* Distribution of literal string sizes. */ -} ByteCodeStats; -#endif /* TCL_COMPILE_STATS */ - -/* - * Structure used in implementation of those core ensembles which are - * partially compiled. Used as an array of these, with a terminating field - * whose 'name' is NULL. - */ - -typedef struct { - const char *name; /* The name of the subcommand. */ - Tcl_ObjCmdProc *proc; /* The implementation of the subcommand. */ - CompileProc *compileProc; /* The compiler for the subcommand. */ - Tcl_ObjCmdProc *nreProc; /* NRE implementation of this command. */ - ClientData clientData; /* Any clientData to give the command. */ - int unsafe; /* Whether this command is to be hidden by - * default in a safe interpreter. */ -} EnsembleImplMap; - -/* - *---------------------------------------------------------------- - * Data structures related to commands. - *---------------------------------------------------------------- - */ - -/* - * An imported command is created in an namespace when it imports a "real" - * command from another namespace. An imported command has a Command structure - * that points (via its ClientData value) to the "real" Command structure in - * the source namespace's command table. The real command records all the - * imported commands that refer to it in a list of ImportRef structures so - * that they can be deleted when the real command is deleted. - */ - -typedef struct ImportRef { - struct Command *importedCmdPtr; - /* Points to the imported command created in - * an importing namespace; this command - * redirects its invocations to the "real" - * command. */ - struct ImportRef *nextPtr; /* Next element on the linked list of imported - * commands that refer to the "real" command. - * The real command deletes these imported - * commands on this list when it is - * deleted. */ -} ImportRef; - -/* - * Data structure used as the ClientData of imported commands: commands - * created in an namespace when it imports a "real" command from another - * namespace. - */ - -typedef struct ImportedCmdData { - struct Command *realCmdPtr; /* "Real" command that this imported command - * refers to. */ - struct Command *selfPtr; /* Pointer to this imported command. Needed - * only when deleting it in order to remove it - * from the real command's linked list of - * imported commands that refer to it. */ -} ImportedCmdData; - -/* - * A Command structure exists for each command in a namespace. The Tcl_Command - * opaque type actually refers to these structures. - */ - -typedef struct Command { - Tcl_HashEntry *hPtr; /* Pointer to the hash table entry that refers - * to this command. The hash table is either a - * namespace's command table or an - * interpreter's hidden command table. This - * pointer is used to get a command's name - * from its Tcl_Command handle. NULL means - * that the hash table entry has been removed - * already (this can happen if deleteProc - * causes the command to be deleted or - * recreated). */ - Namespace *nsPtr; /* Points to the namespace containing this - * command. */ - int refCount; /* 1 if in command hashtable plus 1 for each - * reference from a CmdName Tcl object - * representing a command's name in a ByteCode - * instruction sequence. This structure can be - * freed when refCount becomes zero. */ - int cmdEpoch; /* Incremented to invalidate any references - * that point to this command when it is - * renamed, deleted, hidden, or exposed. */ - CompileProc *compileProc; /* Procedure called to compile command. NULL - * if no compile proc exists for command. */ - Tcl_ObjCmdProc *objProc; /* Object-based command procedure. */ - ClientData objClientData; /* Arbitrary value passed to object proc. */ - Tcl_CmdProc *proc; /* String-based command procedure. */ - ClientData clientData; /* Arbitrary value passed to string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Procedure invoked when deleting command to, - * e.g., free all client data. */ - ClientData deleteData; /* Arbitrary value passed to deleteProc. */ - int flags; /* Miscellaneous bits of information about - * command. See below for definitions. */ - ImportRef *importRefPtr; /* List of each imported Command created in - * another namespace when this command is - * imported. These imported commands redirect - * invocations back to this command. The list - * is used to remove all those imported - * commands when deleting this "real" - * command. */ - CommandTrace *tracePtr; /* First in list of all traces set for this - * command. */ - Tcl_ObjCmdProc *nreProc; /* NRE implementation of this command. */ -} Command; - -/* - * Flag bits for commands. - * - * CMD_IS_DELETED - Means that the command is in the process of - * being deleted (its deleteProc is currently - * executing). Other attempts to delete the - * command should be ignored. - * CMD_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a rename/delete change. See the - * two flags below for which is currently being - * processed. - * CMD_HAS_EXEC_TRACES - 1 means that this command has at least one - * execution trace (as opposed to simple - * delete/rename traces) in its tracePtr list. - * CMD_COMPILES_EXPANDED - 1 means that this command has a compiler that - * can handle expansion (provided it is not the - * first word). - * TCL_TRACE_RENAME - A rename trace is in progress. Further - * recursive renames will not be traced. - * TCL_TRACE_DELETE - A delete trace is in progress. Further - * recursive deletes will not be traced. - * (these last two flags are defined in tcl.h) - */ - -#define CMD_IS_DELETED 0x01 -#define CMD_TRACE_ACTIVE 0x02 -#define CMD_HAS_EXEC_TRACES 0x04 -#define CMD_COMPILES_EXPANDED 0x08 -#define CMD_REDEF_IN_PROGRESS 0x10 -#define CMD_VIA_RESOLVER 0x20 - - -/* - *---------------------------------------------------------------- - * Data structures related to name resolution procedures. - *---------------------------------------------------------------- - */ - -/* - * The interpreter keeps a linked list of name resolution schemes. The scheme - * for a namespace is consulted first, followed by the list of schemes in an - * interpreter, followed by the default name resolution in Tcl. Schemes are - * added/removed from the interpreter's list by calling Tcl_AddInterpResolver - * and Tcl_RemoveInterpResolver. - */ - -typedef struct ResolverScheme { - char *name; /* Name identifying this scheme. */ - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ - - struct ResolverScheme *nextPtr; - /* Pointer to next record in linked list. */ -} ResolverScheme; - -/* - * Forward declaration of the TIP#143 limit handler structure. - */ - -typedef struct LimitHandler LimitHandler; - -/* - * TIP #268. - * Values for the selection mode, i.e the package require preferences. - */ - -enum PkgPreferOptions { - PKG_PREFER_LATEST, PKG_PREFER_STABLE -}; - -/* - *---------------------------------------------------------------- - * This structure shadows the first few fields of the memory cache for the - * allocator defined in tclThreadAlloc.c; it has to be kept in sync with the - * definition there. - * Some macros require knowledge of some fields in the struct in order to - * avoid hitting the TSD unnecessarily. In order to facilitate this, a pointer - * to the relevant fields is kept in the allocCache field in struct Interp. - *---------------------------------------------------------------- - */ - -typedef struct AllocCache { - struct Cache *nextPtr; /* Linked list of cache entries. */ - Tcl_ThreadId owner; /* Which thread's cache is this? */ - Tcl_Obj *firstObjPtr; /* List of free objects for thread. */ - int numObjects; /* Number of objects for thread. */ -} AllocCache; - -/* - *---------------------------------------------------------------- - * This structure defines an interpreter, which is a collection of commands - * plus other state information related to interpreting commands, such as - * variable storage. Primary responsibility for this data structure is in - * tclBasic.c, but almost every Tcl source file uses something in here. - *---------------------------------------------------------------- - */ - -typedef struct Interp { - /* - * Note: the first three fields must match exactly the fields in a - * Tcl_Interp struct (see tcl.h). If you change one, be sure to change the - * other. - * - * The interpreter's result is held in both the string and the - * objResultPtr fields. These fields hold, respectively, the result's - * string or object value. The interpreter's result is always in the - * result field if that is non-empty, otherwise it is in objResultPtr. - * The two fields are kept consistent unless some C code sets - * interp->result directly. Programs should not access result and - * objResultPtr directly; instead, they should always get and set the - * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, and - * Tcl_GetStringResult. See the SetResult man page for details. - */ - - char *result; /* If the last command returned a string - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_FreeProc *freeProc; /* Zero means a string result is statically - * allocated. TCL_DYNAMIC means string result - * was allocated with ckalloc and should be - * freed with ckfree. Other values give - * address of procedure to invoke to free the - * string result. Tcl_Eval must free it before - * executing next command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number in the command where the error - * occurred (1 means first line). */ - const struct TclStubs *stubTable; - /* Pointer to the exported Tcl stub table. On - * previous versions of Tcl this is a pointer - * to the objResultPtr or a pointer to a - * buckets array in a hash table. We therefore - * have to do some careful checking before we - * can use this. */ - - TclHandle handle; /* Handle used to keep track of when this - * interp is deleted. */ - - Namespace *globalNsPtr; /* The interpreter's global namespace. */ - Tcl_HashTable *hiddenCmdTablePtr; - /* Hash table used by tclBasic.c to keep track - * of hidden commands on a per-interp - * basis. */ - ClientData interpInfo; /* Information used by tclInterp.c to keep - * track of master/slave interps on a - * per-interp basis. */ - union { - void (*optimizer)(void *envPtr); - Tcl_HashTable unused2; /* No longer used (was mathFuncTable). The - * unused space in interp was repurposed for - * pluggable bytecode optimizers. The core - * contains one optimizer, which can be - * selectively overridden by extensions. */ - } extra; - - /* - * Information related to procedures and variables. See tclProc.c and - * tclVar.c for usage. - */ - - int numLevels; /* Keeps track of how many nested calls to - * Tcl_Eval are in progress for this - * interpreter. It's used to delay deletion of - * the table until all Tcl_Eval invocations - * are completed. */ - int maxNestingDepth; /* If numLevels exceeds this value then Tcl - * assumes that infinite recursion has - * occurred and it generates an error. */ - CallFrame *framePtr; /* Points to top-most in stack of all nested - * procedure invocations. */ - CallFrame *varFramePtr; /* Points to the call frame whose variables - * are currently in use (same as framePtr - * unless an "uplevel" command is - * executing). */ - ActiveVarTrace *activeVarTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - int returnCode; /* [return -code] parameter. */ - CallFrame *rootFramePtr; /* Global frame pointer for this - * interpreter. */ - Namespace *lookupNsPtr; /* Namespace to use ONLY on the next - * TCL_EVAL_INVOKE call to Tcl_EvalObjv. */ - - /* - * Information used by Tcl_AppendResult to keep track of partial results. - * See Tcl_AppendResult code for details. - */ - - char *appendResult; /* Storage space for results generated by - * Tcl_AppendResult. Ckalloc-ed. NULL means - * not yet allocated. */ - int appendAvl; /* Total amount of space available at - * partialResult. */ - int appendUsed; /* Number of non-null bytes currently stored - * at partialResult. */ - - /* - * Information about packages. Used only in tclPkg.c. - */ - - Tcl_HashTable packageTable; /* Describes all of the packages loaded in or - * available to this interpreter. Keys are - * package names, values are (Package *) - * pointers. */ - char *packageUnknown; /* Command to invoke during "package require" - * commands for packages that aren't described - * in packageTable. Ckalloc'ed, may be - * NULL. */ - /* - * Miscellaneous information: - */ - - int cmdCount; /* Total number of times a command procedure - * has been called for this interpreter. */ - int evalFlags; /* Flags to control next call to Tcl_Eval. - * Normally zero, but may be set before - * calling Tcl_Eval. See below for valid - * values. */ - int unused1; /* No longer used (was termOffset) */ - LiteralTable literalTable; /* Contains LiteralEntry's describing all Tcl - * objects holding literals of scripts - * compiled by the interpreter. Indexed by the - * string representations of literals. Used to - * avoid creating duplicate objects. */ - int compileEpoch; /* Holds the current "compilation epoch" for - * this interpreter. This is incremented to - * invalidate existing ByteCodes when, e.g., a - * command with a compile procedure is - * redefined. */ - Proc *compiledProcPtr; /* If a procedure is being compiled, a pointer - * to its Proc structure; otherwise, this is - * NULL. Set by ObjInterpProc in tclProc.c and - * used by tclCompile.c to process local - * variables appropriately. */ - ResolverScheme *resolverPtr; - /* Linked list of name resolution schemes - * added to this interpreter. Schemes are - * added and removed by calling - * Tcl_AddInterpResolvers and - * Tcl_RemoveInterpResolver respectively. */ - Tcl_Obj *scriptFile; /* NULL means there is no nested source - * command active; otherwise this points to - * pathPtr of the file being sourced. */ - int flags; /* Various flag bits. See below. */ - long randSeed; /* Seed used for rand() function. */ - Trace *tracePtr; /* List of traces for this interpreter. */ - Tcl_HashTable *assocData; /* Hash table for associating data with this - * interpreter. Cleaned up when this - * interpreter is deleted. */ - struct ExecEnv *execEnvPtr; /* Execution environment for Tcl bytecode - * execution. Contains a pointer to the Tcl - * evaluation stack. */ - Tcl_Obj *emptyObjPtr; /* Points to an object holding an empty - * string. Returned by Tcl_ObjSetVar2 when - * variable traces change a variable in a - * gross way. */ - char resultSpace[TCL_RESULT_SIZE+1]; - /* Static space holding small results. */ - Tcl_Obj *objResultPtr; /* If the last command returned an object - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_ThreadId threadId; /* ID of thread that owns the interpreter. */ - - ActiveCommandTrace *activeCmdTracePtr; - /* First in list of active command traces for - * interp, or NULL if no active traces. */ - ActiveInterpTrace *activeInterpTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - - int tracesForbiddingInline; /* Count of traces (in the list headed by - * tracePtr) that forbid inline bytecode - * compilation. */ - - /* - * Fields used to manage extensible return options (TIP 90). - */ - - Tcl_Obj *returnOpts; /* A dictionary holding the options to the - * last [return] command. */ - - Tcl_Obj *errorInfo; /* errorInfo value (now as a Tcl_Obj). */ - Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable. */ - Tcl_Obj *errorCode; /* errorCode value (now as a Tcl_Obj). */ - Tcl_Obj *ecVar; /* cached ref to ::errorInfo variable. */ - int returnLevel; /* [return -level] parameter. */ - - /* - * Resource limiting framework support (TIP#143). - */ - - struct { - int active; /* Flag values defining which limits have been - * set. */ - int granularityTicker; /* Counter used to determine how often to - * check the limits. */ - int exceeded; /* Which limits have been exceeded, described - * as flag values the same as the 'active' - * field. */ - - int cmdCount; /* Limit for how many commands to execute in - * the interpreter. */ - LimitHandler *cmdHandlers; - /* Handlers to execute when the limit is - * reached. */ - int cmdGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - - Tcl_Time time; /* Time limit for execution within the - * interpreter. */ - LimitHandler *timeHandlers; - /* Handlers to execute when the limit is - * reached. */ - int timeGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - Tcl_TimerToken timeEvent; - /* Handle for a timer callback that will occur - * when the time-limit is exceeded. */ - - Tcl_HashTable callbacks;/* Mapping from (interp,type) pair to data - * used to install a limit handler callback to - * run in _this_ interp when the limit is - * exceeded. */ - } limit; - - /* - * Information for improved default error generation from ensembles - * (TIP#112). - */ - - struct { - Tcl_Obj *const *sourceObjs; - /* What arguments were actually input into the - * *root* ensemble command? (Nested ensembles - * don't rewrite this.) NULL if we're not - * processing an ensemble. */ - int numRemovedObjs; /* How many arguments have been stripped off - * because of ensemble processing. */ - int numInsertedObjs; /* How many of the current arguments were - * inserted by an ensemble. */ - } ensembleRewrite; - - /* - * TIP #219: Global info for the I/O system. - */ - - Tcl_Obj *chanMsg; /* Error message set by channel drivers, for - * the propagation of arbitrary Tcl errors. - * This information, if present (chanMsg not - * NULL), takes precedence over a POSIX error - * code returned by a channel operation. */ - - /* - * Source code origin information (TIP #280). - */ - - CmdFrame *cmdFramePtr; /* Points to the command frame containing the - * location information for the current - * command. */ - const CmdFrame *invokeCmdFramePtr; - /* Points to the command frame which is the - * invoking context of the bytecode compiler. - * NULL when the byte code compiler is not - * active. */ - int invokeWord; /* Index of the word in the command which - * is getting compiled. */ - Tcl_HashTable *linePBodyPtr;/* This table remembers for each statically - * defined procedure the location information - * for its body. It is keyed by the address of - * the Proc structure for a procedure. The - * values are "struct CmdFrame*". */ - Tcl_HashTable *lineBCPtr; /* This table remembers for each ByteCode - * object the location information for its - * body. It is keyed by the address of the - * Proc structure for a procedure. The values - * are "struct ExtCmdLoc*". (See - * tclCompile.h) */ - Tcl_HashTable *lineLABCPtr; - Tcl_HashTable *lineLAPtr; /* This table remembers for each argument of a - * command on the execution stack the index of - * the argument in the command, and the - * location data of the command. It is keyed - * by the address of the Tcl_Obj containing - * the argument. The values are "struct - * CFWord*" (See tclBasic.c). This allows - * commands like uplevel, eval, etc. to find - * location information for their arguments, - * if they are a proper literal argument to an - * invoking command. Alt view: An index to the - * CmdFrame stack keyed by command argument - * holders. */ - ContLineLoc *scriptCLLocPtr;/* This table points to the location data for - * invisible continuation lines in the script, - * if any. This pointer is set by the function - * TclEvalObjEx() in file "tclBasic.c", and - * used by function ...() in the same file. - * It does for the eval/direct path of script - * execution what CompileEnv.clLoc does for - * the bytecode compiler. - */ - /* - * TIP #268. The currently active selection mode, i.e. the package require - * preferences. - */ - - int packagePrefer; /* Current package selection mode. */ - - /* - * Hashtables for variable traces and searches. - */ - - Tcl_HashTable varTraces; /* Hashtable holding the start of a variable's - * active trace list; varPtr is the key. */ - Tcl_HashTable varSearches; /* Hashtable holding the start of a variable's - * active searches list; varPtr is the key. */ - /* - * The thread-specific data ekeko: cache pointers or values that - * (a) do not change during the thread's lifetime - * (b) require access to TSD to determine at runtime - * (c) are accessed very often (e.g., at each command call) - * - * Note that these are the same for all interps in the same thread. They - * just have to be initialised for the thread's master interp, slaves - * inherit the value. - * - * They are used by the macros defined below. - */ - - AllocCache *allocCache; - void *pendingObjDataPtr; /* Pointer to the Cache and PendingObjData - * structs for this interp's thread; see - * tclObj.c and tclThreadAlloc.c */ - int *asyncReadyPtr; /* Pointer to the asyncReady indicator for - * this interp's thread; see tclAsync.c */ - /* - * The pointer to the object system root ekeko. c.f. TIP #257. - */ - void *objectFoundation; /* Pointer to the Foundation structure of the - * object system, which contains things like - * references to key namespaces. See - * tclOOInt.h and tclOO.c for real definition - * and setup. */ - - struct NRE_callback *deferredCallbacks; - /* Callbacks that are set previous to a call - * to some Eval function but that actually - * belong to the command that is about to be - * called - i.e., they should be run *before* - * any tailcall is invoked. */ - - /* - * TIP #285, Script cancellation support. - */ - - Tcl_AsyncHandler asyncCancel; - /* Async handler token for Tcl_CancelEval. */ - Tcl_Obj *asyncCancelMsg; /* Error message set by async cancel handler - * for the propagation of arbitrary Tcl - * errors. This information, if present - * (asyncCancelMsg not NULL), takes precedence - * over the default error messages returned by - * a script cancellation operation. */ - - /* - * TIP #348 IMPLEMENTATION - Substituted error stack - */ - Tcl_Obj *errorStack; /* [info errorstack] value (as a Tcl_Obj). */ - Tcl_Obj *upLiteral; /* "UP" literal for [info errorstack] */ - Tcl_Obj *callLiteral; /* "CALL" literal for [info errorstack] */ - Tcl_Obj *innerLiteral; /* "INNER" literal for [info errorstack] */ - Tcl_Obj *innerContext; /* cached list for fast reallocation */ - int resetErrorStack; /* controls cleaning up of ::errorStack */ - -#ifdef TCL_COMPILE_STATS - /* - * Statistical information about the bytecode compiler and interpreter's - * operation. This should be the last field of Interp. - */ - - ByteCodeStats stats; /* Holds compilation and execution statistics - * for this interpreter. */ -#endif /* TCL_COMPILE_STATS */ -} Interp; - -/* - * Macros that use the TSD-ekeko. - */ - -#define TclAsyncReady(iPtr) \ - *((iPtr)->asyncReadyPtr) - -/* - * Macros for script cancellation support (TIP #285). - */ - -#define TclCanceled(iPtr) \ - (((iPtr)->flags & CANCELED) || ((iPtr)->flags & TCL_CANCEL_UNWIND)) - -#define TclSetCancelFlags(iPtr, cancelFlags) \ - (iPtr)->flags |= CANCELED; \ - if ((cancelFlags) & TCL_CANCEL_UNWIND) { \ - (iPtr)->flags |= TCL_CANCEL_UNWIND; \ - } - -#define TclUnsetCancelFlags(iPtr) \ - (iPtr)->flags &= (~(CANCELED | TCL_CANCEL_UNWIND)) - -/* - * Macros for splicing into and out of doubly linked lists. They assume - * existence of struct items 'prevPtr' and 'nextPtr'. - * - * a = element to add or remove. - * b = list head. - * - * TclSpliceIn adds to the head of the list. - */ - -#define TclSpliceIn(a,b) \ - (a)->nextPtr = (b); \ - if ((b) != NULL) { \ - (b)->prevPtr = (a); \ - } \ - (a)->prevPtr = NULL, (b) = (a); - -#define TclSpliceOut(a,b) \ - if ((a)->prevPtr != NULL) { \ - (a)->prevPtr->nextPtr = (a)->nextPtr; \ - } else { \ - (b) = (a)->nextPtr; \ - } \ - if ((a)->nextPtr != NULL) { \ - (a)->nextPtr->prevPtr = (a)->prevPtr; \ - } - -/* - * EvalFlag bits for Interp structures: - * - * TCL_ALLOW_EXCEPTIONS 1 means it's OK for the script to terminate with a - * code other than TCL_OK or TCL_ERROR; 0 means codes - * other than these should be turned into errors. - */ - -#define TCL_ALLOW_EXCEPTIONS 0x04 -#define TCL_EVAL_FILE 0x02 -#define TCL_EVAL_SOURCE_IN_FRAME 0x10 -#define TCL_EVAL_NORESOLVE 0x20 -#define TCL_EVAL_DISCARD_RESULT 0x40 - -/* - * Flag bits for Interp structures: - * - * DELETED: Non-zero means the interpreter has been deleted: - * don't process any more commands for it, and destroy - * the structure as soon as all nested invocations of - * Tcl_Eval are done. - * ERR_ALREADY_LOGGED: Non-zero means information has already been logged in - * iPtr->errorInfo for the current Tcl_Eval instance, so - * Tcl_Eval needn't log it (used to implement the "error - * message log" command). - * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler should - * not compile any commands into an inline sequence of - * instructions. This is set 1, for example, when command - * traces are requested. - * RAND_SEED_INITIALIZED: Non-zero means that the randSeed value of the interp - * has not be initialized. This is set 1 when we first - * use the rand() or srand() functions. - * SAFE_INTERP: Non zero means that the current interp is a safe - * interp (i.e. it has only the safe commands installed, - * less privilege than a regular interp). - * INTERP_DEBUG_FRAME: Used for switching on various extra interpreter - * debug/info mechanisms (e.g. info frame eval/uplevel - * tracing) which are performance intensive. - * INTERP_TRACE_IN_PROGRESS: Non-zero means that an interp trace is currently - * active; so no further trace callbacks should be - * invoked. - * INTERP_ALTERNATE_WRONG_ARGS: Used for listing second and subsequent forms - * of the wrong-num-args string in Tcl_WrongNumArgs. - * Makes it append instead of replacing and uses - * different intermediate text. - * CANCELED: Non-zero means that the script in progress should be - * canceled as soon as possible. This can be checked by - * extensions (and the core itself) by calling - * Tcl_Canceled and checking if TCL_ERROR is returned. - * This is a one-shot flag that is reset immediately upon - * being detected; however, if the TCL_CANCEL_UNWIND flag - * is set Tcl_Canceled will continue to report that the - * script in progress has been canceled thereby allowing - * the evaluation stack for the interp to be fully - * unwound. - * - * WARNING: For the sake of some extensions that have made use of former - * internal values, do not re-use the flag values 2 (formerly ERR_IN_PROGRESS) - * or 8 (formerly ERROR_CODE_SET). - */ - -#define DELETED 1 -#define ERR_ALREADY_LOGGED 4 -#define INTERP_DEBUG_FRAME 0x10 -#define DONT_COMPILE_CMDS_INLINE 0x20 -#define RAND_SEED_INITIALIZED 0x40 -#define SAFE_INTERP 0x80 -#define INTERP_TRACE_IN_PROGRESS 0x200 -#define INTERP_ALTERNATE_WRONG_ARGS 0x400 -#define ERR_LEGACY_COPY 0x800 -#define CANCELED 0x1000 - -/* - * Maximum number of levels of nesting permitted in Tcl commands (used to - * catch infinite recursion). - */ - -#define MAX_NESTING_DEPTH 1000 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace. - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * This macro is used to properly align the memory allocated by Tcl, giving - * the same alignment as the native malloc. - */ - -#if defined(__APPLE__) -#define TCL_ALLOCALIGN 16 -#else -#define TCL_ALLOCALIGN (2*sizeof(void *)) -#endif - -/* - * This macro is used to determine the offset needed to safely allocate any - * data structure in memory. Given a starting offset or size, it "rounds up" - * or "aligns" the offset to the next 8-byte boundary so that any data - * structure can be placed at the resulting offset without fear of an - * alignment error. - * - * WARNING!! DO NOT USE THIS MACRO TO ALIGN POINTERS: it will produce the - * wrong result on platforms that allocate addresses that are divisible by 4 - * or 2. Only use it for offsets or sizes. - * - * This macro is only used by tclCompile.c in the core (Bug 926445). It - * however not be made file static, as extensions that touch bytecodes - * (notably tbcload) require it. - */ - -#define TCL_ALIGN(x) (((int)(x) + 7) & ~7) - -/* - * The following enum values are used to specify the runtime platform setting - * of the tclPlatform variable. - */ - -typedef enum { - TCL_PLATFORM_UNIX = 0, /* Any Unix-like OS. */ - TCL_PLATFORM_WINDOWS = 2 /* Any Microsoft Windows OS. */ -} TclPlatformType; - -/* - * The following enum values are used to indicate the translation of a Tcl - * channel. Declared here so that each platform can define - * TCL_PLATFORM_TRANSLATION to the native translation on that platform. - */ - -typedef enum TclEolTranslation { - TCL_TRANSLATE_AUTO, /* Eol == \r, \n and \r\n. */ - TCL_TRANSLATE_CR, /* Eol == \r. */ - TCL_TRANSLATE_LF, /* Eol == \n. */ - TCL_TRANSLATE_CRLF /* Eol == \r\n. */ -} TclEolTranslation; - -/* - * Flags for TclInvoke: - * - * TCL_INVOKE_HIDDEN Invoke a hidden command; if not set, invokes - * an exposed command. - * TCL_INVOKE_NO_UNKNOWN If set, "unknown" is not invoked if the - * command to be invoked is not found. Only has - * an effect if invoking an exposed command, - * i.e. if TCL_INVOKE_HIDDEN is not also set. - * TCL_INVOKE_NO_TRACEBACK Does not record traceback information if the - * invoked command returns an error. Used if the - * caller plans on recording its own traceback - * information. - */ - -#define TCL_INVOKE_HIDDEN (1<<0) -#define TCL_INVOKE_NO_UNKNOWN (1<<1) -#define TCL_INVOKE_NO_TRACEBACK (1<<2) - -/* - * The structure used as the internal representation of Tcl list objects. This - * struct is grown (reallocated and copied) as necessary to hold all the - * list's element pointers. The struct might contain more slots than currently - * used to hold all element pointers. This is done to make append operations - * faster. - */ - -typedef struct List { - int refCount; - int maxElemCount; /* Total number of element array slots. */ - int elemCount; /* Current number of list elements. */ - int canonicalFlag; /* Set if the string representation was - * derived from the list representation. May - * be ignored if there is no string rep at - * all.*/ - Tcl_Obj *elements; /* First list element; the struct is grown to - * accommodate all elements. */ -} List; - -#define LIST_MAX \ - (1 + (int)(((size_t)UINT_MAX - sizeof(List))/sizeof(Tcl_Obj *))) -#define LIST_SIZE(numElems) \ - (unsigned)(sizeof(List) + (((numElems) - 1) * sizeof(Tcl_Obj *))) - -/* - * Macro used to get the elements of a list object. - */ - -#define ListRepPtr(listPtr) \ - ((List *) (listPtr)->internalRep.twoPtrValue.ptr1) - -#define ListSetIntRep(objPtr, listRepPtr) \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *)(listRepPtr), \ - (objPtr)->internalRep.twoPtrValue.ptr2 = NULL, \ - (listRepPtr)->refCount++, \ - (objPtr)->typePtr = &tclListType - -#define ListObjGetElements(listPtr, objc, objv) \ - ((objv) = &(ListRepPtr(listPtr)->elements), \ - (objc) = ListRepPtr(listPtr)->elemCount) - -#define ListObjLength(listPtr, len) \ - ((len) = ListRepPtr(listPtr)->elemCount) - -#define ListObjIsCanonical(listPtr) \ - (((listPtr)->bytes == NULL) || ListRepPtr(listPtr)->canonicalFlag) - -#define TclListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjGetElements((listPtr), *(objcPtr), *(objvPtr))), TCL_OK)\ - : Tcl_ListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr))) - -#define TclListObjLength(interp, listPtr, lenPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjLength((listPtr), *(lenPtr))), TCL_OK)\ - : Tcl_ListObjLength((interp), (listPtr), (lenPtr))) - -#define TclListObjIsCanonical(listPtr) \ - (((listPtr)->typePtr == &tclListType) ? ListObjIsCanonical((listPtr)) : 0) - -/* - * Modes for collecting (or not) in the implementations of TclNRForeachCmd, - * TclNRLmapCmd and their compilations. - */ - -#define TCL_EACH_KEEP_NONE 0 /* Discard iteration result like [foreach] */ -#define TCL_EACH_COLLECT 1 /* Collect iteration result like [lmap] */ - -/* - * Macros providing a faster path to integers: Tcl_GetLongFromObj, - * Tcl_GetIntFromObj and TclGetIntForIndex. - * - * WARNING: these macros eval their args more than once. - */ - -#define TclGetLongFromObj(interp, objPtr, longPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(longPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetLongFromObj((interp), (objPtr), (longPtr))) - -#if (LONG_MAX == INT_MAX) -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(intPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetIntFromObj((interp), (objPtr), (intPtr))) -#define TclGetIntForIndexM(interp, objPtr, endValue, idxPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(idxPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : TclGetIntForIndex((interp), (objPtr), (endValue), (idxPtr))) -#else -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - (((objPtr)->typePtr == &tclIntType \ - && (objPtr)->internalRep.longValue >= -(Tcl_WideInt)(UINT_MAX) \ - && (objPtr)->internalRep.longValue <= (Tcl_WideInt)(UINT_MAX)) \ - ? ((*(intPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetIntFromObj((interp), (objPtr), (intPtr))) -#define TclGetIntForIndexM(interp, objPtr, endValue, idxPtr) \ - (((objPtr)->typePtr == &tclIntType \ - && (objPtr)->internalRep.longValue >= INT_MIN \ - && (objPtr)->internalRep.longValue <= INT_MAX) \ - ? ((*(idxPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : TclGetIntForIndex((interp), (objPtr), (endValue), (idxPtr))) -#endif - -/* - * Macro used to save a function call for common uses of - * Tcl_GetWideIntFromObj(). The ANSI C "prototype" is: - * - * MODULE_SCOPE int TclGetWideIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - * Tcl_WideInt *wideIntPtr); - */ - -#ifdef TCL_WIDE_INT_IS_LONG -#define TclGetWideIntFromObj(interp, objPtr, wideIntPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? (*(wideIntPtr) = (Tcl_WideInt) \ - ((objPtr)->internalRep.longValue), TCL_OK) : \ - Tcl_GetWideIntFromObj((interp), (objPtr), (wideIntPtr))) -#else /* !TCL_WIDE_INT_IS_LONG */ -#define TclGetWideIntFromObj(interp, objPtr, wideIntPtr) \ - (((objPtr)->typePtr == &tclWideIntType) \ - ? (*(wideIntPtr) = (objPtr)->internalRep.wideValue, TCL_OK) : \ - ((objPtr)->typePtr == &tclIntType) \ - ? (*(wideIntPtr) = (Tcl_WideInt) \ - ((objPtr)->internalRep.longValue), TCL_OK) : \ - Tcl_GetWideIntFromObj((interp), (objPtr), (wideIntPtr))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -/* - * Flag values for TclTraceDictPath(). - * - * DICT_PATH_READ indicates that all entries on the path must exist but no - * updates will be needed. - * - * DICT_PATH_UPDATE indicates that we are going to be doing an update at the - * tip of the path, so duplication of shared objects should be done along the - * way. - * - * DICT_PATH_EXISTS indicates that we are performing an existence test and a - * lookup failure should therefore not be an error. If (and only if) this flag - * is set, TclTraceDictPath() will return the special value - * DICT_PATH_NON_EXISTENT if the path is not traceable. - * - * DICT_PATH_CREATE (which also requires the DICT_PATH_UPDATE bit to be set) - * indicates that we are to create non-existent dictionaries on the path. - */ - -#define DICT_PATH_READ 0 -#define DICT_PATH_UPDATE 1 -#define DICT_PATH_EXISTS 2 -#define DICT_PATH_CREATE 5 - -#define DICT_PATH_NON_EXISTENT ((Tcl_Obj *) (void *) 1) - -/* - *---------------------------------------------------------------- - * Data structures related to the filesystem internals - *---------------------------------------------------------------- - */ - -/* - * The version_2 filesystem is private to Tcl. As and when these changes have - * been thoroughly tested and investigated a new public filesystem interface - * will be released. The aim is more versatile virtual filesystem interfaces, - * more efficiency in 'path' manipulation and usage, and cleaner filesystem - * code internally. - */ - -#define TCL_FILESYSTEM_VERSION_2 ((Tcl_FSVersion) 0x2) -typedef ClientData (TclFSGetCwdProc2)(ClientData clientData); -typedef int (Tcl_FSLoadFileProc2) (Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr, int flags); - -/* - * The following types are used for getting and storing platform-specific file - * attributes in tclFCmd.c and the various platform-versions of that file. - * This is done to have as much common code as possible in the file attributes - * code. For more information about the callbacks, see TclFileAttrsCmd in - * tclFCmd.c. - */ - -typedef int (TclGetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj **attrObjPtrPtr); -typedef int (TclSetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj *attrObjPtr); - -typedef struct TclFileAttrProcs { - TclGetFileAttrProc *getProc;/* The procedure for getting attrs. */ - TclSetFileAttrProc *setProc;/* The procedure for setting attrs. */ -} TclFileAttrProcs; - -/* - * Opaque handle used in pipeline routines to encapsulate platform-dependent - * state. - */ - -typedef struct TclFile_ *TclFile; - -/* - * The "globParameters" argument of the function TclGlob is an or'ed - * combination of the following values: - */ - -#define TCL_GLOBMODE_NO_COMPLAIN 1 -#define TCL_GLOBMODE_JOIN 2 -#define TCL_GLOBMODE_DIR 4 -#define TCL_GLOBMODE_TAILS 8 - -typedef enum Tcl_PathPart { - TCL_PATH_DIRNAME, - TCL_PATH_TAIL, - TCL_PATH_EXTENSION, - TCL_PATH_ROOT -} Tcl_PathPart; - -/* - *---------------------------------------------------------------- - * Data structures related to obsolete filesystem hooks - *---------------------------------------------------------------- - */ - -typedef int (TclStatProc_)(const char *path, struct stat *buf); -typedef int (TclAccessProc_)(const char *path, int mode); -typedef Tcl_Channel (TclOpenFileChannelProc_)(Tcl_Interp *interp, - const char *fileName, const char *modeString, int permissions); - -/* - *---------------------------------------------------------------- - * Data structures related to procedures - *---------------------------------------------------------------- - */ - -typedef Tcl_CmdProc *TclCmdProcType; -typedef Tcl_ObjCmdProc *TclObjCmdProcType; - -/* - *---------------------------------------------------------------- - * Data structures for process-global values. - *---------------------------------------------------------------- - */ - -typedef void (TclInitProcessGlobalValueProc)(char **valuePtr, int *lengthPtr, - Tcl_Encoding *encodingPtr); - -/* - * A ProcessGlobalValue struct exists for each internal value in Tcl that is - * to be shared among several threads. Each thread sees a (Tcl_Obj) copy of - * the value, and the master is kept as a counted string, with epoch and mutex - * control. Each ProcessGlobalValue struct should be a static variable in some - * file. - */ - -typedef struct ProcessGlobalValue { - int epoch; /* Epoch counter to detect changes in the - * master value. */ - int numBytes; /* Length of the master string. */ - char *value; /* The master string value. */ - Tcl_Encoding encoding; /* system encoding when master string was - * initialized. */ - TclInitProcessGlobalValueProc *proc; - /* A procedure to initialize the master string - * copy when a "get" request comes in before - * any "set" request has been received. */ - Tcl_Mutex mutex; /* Enforce orderly access from multiple - * threads. */ - Tcl_ThreadDataKey key; /* Key for per-thread data holding the - * (Tcl_Obj) copy for each thread. */ -} ProcessGlobalValue; - -/* - *---------------------------------------------------------------------- - * Flags for TclParseNumber - *---------------------------------------------------------------------- - */ - -#define TCL_PARSE_DECIMAL_ONLY 1 - /* Leading zero doesn't denote octal or - * hex. */ -#define TCL_PARSE_OCTAL_ONLY 2 - /* Parse octal even without prefix. */ -#define TCL_PARSE_HEXADECIMAL_ONLY 4 - /* Parse hexadecimal even without prefix. */ -#define TCL_PARSE_INTEGER_ONLY 8 - /* Disable floating point parsing. */ -#define TCL_PARSE_SCAN_PREFIXES 16 - /* Use [scan] rules dealing with 0? - * prefixes. */ -#define TCL_PARSE_NO_WHITESPACE 32 - /* Reject leading/trailing whitespace. */ -#define TCL_PARSE_BINARY_ONLY 64 - /* Parse binary even without prefix. */ - -/* - *---------------------------------------------------------------------- - * Type values TclGetNumberFromObj - *---------------------------------------------------------------------- - */ - -#define TCL_NUMBER_LONG 1 -#define TCL_NUMBER_WIDE 2 -#define TCL_NUMBER_BIG 3 -#define TCL_NUMBER_DOUBLE 4 -#define TCL_NUMBER_NAN 5 - -/* - *---------------------------------------------------------------- - * Variables shared among Tcl modules but not used by the outside world. - *---------------------------------------------------------------- - */ - -MODULE_SCOPE char *tclNativeExecutableName; -MODULE_SCOPE int tclFindExecutableSearchDone; -MODULE_SCOPE char *tclMemDumpFileName; -MODULE_SCOPE TclPlatformType tclPlatform; -MODULE_SCOPE Tcl_NotifierProcs tclNotifierHooks; - -MODULE_SCOPE Tcl_Encoding tclIdentityEncoding; - -/* - * TIP #233 (Virtualized Time) - * Data for the time hooks, if any. - */ - -MODULE_SCOPE Tcl_GetTimeProc *tclGetTimeProcPtr; -MODULE_SCOPE Tcl_ScaleTimeProc *tclScaleTimeProcPtr; -MODULE_SCOPE ClientData tclTimeClientData; - -/* - * Variables denoting the Tcl object types defined in the core. - */ - -MODULE_SCOPE const Tcl_ObjType tclBignumType; -MODULE_SCOPE const Tcl_ObjType tclBooleanType; -MODULE_SCOPE const Tcl_ObjType tclByteArrayType; -MODULE_SCOPE const Tcl_ObjType tclByteCodeType; -MODULE_SCOPE const Tcl_ObjType tclDoubleType; -MODULE_SCOPE const Tcl_ObjType tclEndOffsetType; -MODULE_SCOPE const Tcl_ObjType tclIntType; -MODULE_SCOPE const Tcl_ObjType tclListType; -MODULE_SCOPE const Tcl_ObjType tclDictType; -MODULE_SCOPE const Tcl_ObjType tclProcBodyType; -MODULE_SCOPE const Tcl_ObjType tclStringType; -MODULE_SCOPE const Tcl_ObjType tclArraySearchType; -MODULE_SCOPE const Tcl_ObjType tclEnsembleCmdType; -#ifndef TCL_WIDE_INT_IS_LONG -MODULE_SCOPE const Tcl_ObjType tclWideIntType; -#endif -MODULE_SCOPE const Tcl_ObjType tclRegexpType; -MODULE_SCOPE Tcl_ObjType tclCmdNameType; - -/* - * Variables denoting the hash key types defined in the core. - */ - -MODULE_SCOPE const Tcl_HashKeyType tclArrayHashKeyType; -MODULE_SCOPE const Tcl_HashKeyType tclOneWordHashKeyType; -MODULE_SCOPE const Tcl_HashKeyType tclStringHashKeyType; -MODULE_SCOPE const Tcl_HashKeyType tclObjHashKeyType; - -/* - * The head of the list of free Tcl objects, and the total number of Tcl - * objects ever allocated and freed. - */ - -MODULE_SCOPE Tcl_Obj * tclFreeObjList; - -#ifdef TCL_COMPILE_STATS -MODULE_SCOPE long tclObjsAlloced; -MODULE_SCOPE long tclObjsFreed; -#define TCL_MAX_SHARED_OBJ_STATS 5 -MODULE_SCOPE long tclObjsShared[TCL_MAX_SHARED_OBJ_STATS]; -#endif /* TCL_COMPILE_STATS */ - -/* - * Pointer to a heap-allocated string of length zero that the Tcl core uses as - * the value of an empty string representation for an object. This value is - * shared by all new objects allocated by Tcl_NewObj. - */ - -MODULE_SCOPE char * tclEmptyStringRep; -MODULE_SCOPE char tclEmptyString; - -enum CheckEmptyStringResult { - TCL_EMPTYSTRING_UNKNOWN = -1, TCL_EMPTYSTRING_NO, TCL_EMPTYSTRING_YES -}; - -/* - *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside world, - * introduced by/for NRE. - *---------------------------------------------------------------- - */ - -MODULE_SCOPE Tcl_ObjCmdProc TclNRApplyObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNREvalObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRCatchObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRExprObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRForObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRForeachCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRIfObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRLmapCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRPackageObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRSourceObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRSubstObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRSwitchObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRTryObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRUplevelObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRWhileObjCmd; - -MODULE_SCOPE Tcl_NRPostProc TclNRForIterCallback; -MODULE_SCOPE Tcl_NRPostProc TclNRCoroutineActivateCallback; -MODULE_SCOPE Tcl_ObjCmdProc TclNRTailcallObjCmd; -MODULE_SCOPE Tcl_NRPostProc TclNRTailcallEval; -MODULE_SCOPE Tcl_ObjCmdProc TclNRCoroutineObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldmObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldToObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRInvoke; -MODULE_SCOPE Tcl_NRPostProc TclNRReleaseValues; - -MODULE_SCOPE void TclSetTailcall(Tcl_Interp *interp, Tcl_Obj *tailcallPtr); -MODULE_SCOPE void TclPushTailcallPoint(Tcl_Interp *interp); - -/* These two can be considered for the public api */ -MODULE_SCOPE void TclMarkTailcall(Tcl_Interp *interp); -MODULE_SCOPE void TclSkipTailcall(Tcl_Interp *interp); - -/* - * This structure holds the data for the various iteration callbacks used to - * NRE the 'for' and 'while' commands. We need a separate structure because we - * have more than the 4 client data entries we can provide directly thorugh - * the callback API. It is the 'word' information which puts us over the - * limit. It is needed because the loop body is argument 4 of 'for' and - * argument 2 of 'while'. Not providing the correct index confuses the #280 - * code. We TclSmallAlloc/Free this. - */ - -typedef struct ForIterData { - Tcl_Obj *cond; /* Loop condition expression. */ - Tcl_Obj *body; /* Loop body. */ - Tcl_Obj *next; /* Loop step script, NULL for 'while'. */ - const char *msg; /* Error message part. */ - int word; /* Index of the body script in the command */ -} ForIterData; - -/* TIP #357 - Structure doing the bookkeeping of handles for Tcl_LoadFile - * and Tcl_FindSymbol. This structure corresponds to an opaque - * typedef in tcl.h */ - -typedef void* TclFindSymbolProc(Tcl_Interp* interp, Tcl_LoadHandle loadHandle, - const char* symbol); -struct Tcl_LoadHandle_ { - ClientData clientData; /* Client data is the load handle in the - * native filesystem if a module was loaded - * there, or an opaque pointer to a structure - * for further bookkeeping on load-from-VFS - * and load-from-memory */ - TclFindSymbolProc* findSymbolProcPtr; - /* Procedure that resolves symbols in a - * loaded module */ - Tcl_FSUnloadFileProc* unloadFileProcPtr; - /* Procedure that unloads a loaded module */ -}; - -/* Flags for conversion of doubles to digit strings */ - -#define TCL_DD_SHORTEST 0x4 - /* Use the shortest possible string */ -#define TCL_DD_STEELE 0x5 - /* Use the original Steele&White algorithm */ -#define TCL_DD_E_FORMAT 0x2 - /* Use a fixed-length string of digits, - * suitable for E format*/ -#define TCL_DD_F_FORMAT 0x3 - /* Use a fixed number of digits after the - * decimal point, suitable for F format */ - -#define TCL_DD_SHORTEN_FLAG 0x4 - /* Allow return of a shorter digit string - * if it converts losslessly */ -#define TCL_DD_NO_QUICK 0x8 - /* Debug flag: forbid quick FP conversion */ - -#define TCL_DD_CONVERSION_TYPE_MASK 0x3 - /* Mask to isolate the conversion type */ -#define TCL_DD_STEELE0 0x1 - /* 'Steele&White' after masking */ -#define TCL_DD_SHORTEST0 0x0 - /* 'Shortest possible' after masking */ - -/* - *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside world: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE void TclAppendBytesToByteArray(Tcl_Obj *objPtr, - const unsigned char *bytes, int len); -MODULE_SCOPE int TclNREvalCmd(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -MODULE_SCOPE void TclAdvanceContinuations(int *line, int **next, - int loc); -MODULE_SCOPE void TclAdvanceLines(int *line, const char *start, - const char *end); -MODULE_SCOPE void TclArgumentEnter(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc, CmdFrame *cf); -MODULE_SCOPE void TclArgumentRelease(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc); -MODULE_SCOPE void TclArgumentBCEnter(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc, - void *codePtr, CmdFrame *cfPtr, int cmd, int pc); -MODULE_SCOPE void TclArgumentBCRelease(Tcl_Interp *interp, - CmdFrame *cfPtr); -MODULE_SCOPE void TclArgumentGet(Tcl_Interp *interp, Tcl_Obj *obj, - CmdFrame **cfPtrPtr, int *wordPtr); -MODULE_SCOPE double TclBignumToDouble(const mp_int *bignum); -MODULE_SCOPE int TclByteArrayMatch(const unsigned char *string, - int strLen, const unsigned char *pattern, - int ptnLen, int flags); -MODULE_SCOPE double TclCeil(const mp_int *a); -MODULE_SCOPE void TclChannelPreserve(Tcl_Channel chan); -MODULE_SCOPE void TclChannelRelease(Tcl_Channel chan); -MODULE_SCOPE int TclCheckArrayTraces(Tcl_Interp *interp, Var *varPtr, - Var *arrayPtr, Tcl_Obj *name, int index); -MODULE_SCOPE int TclCheckBadOctal(Tcl_Interp *interp, - const char *value); -MODULE_SCOPE int TclCheckEmptyString(Tcl_Obj *objPtr); -MODULE_SCOPE int TclChanCaughtErrorBypass(Tcl_Interp *interp, - Tcl_Channel chan); -MODULE_SCOPE Tcl_ObjCmdProc TclChannelNamesCmd; -MODULE_SCOPE Tcl_NRPostProc TclClearRootEnsemble; -MODULE_SCOPE ContLineLoc *TclContinuationsEnter(Tcl_Obj *objPtr, int num, - int *loc); -MODULE_SCOPE void TclContinuationsEnterDerived(Tcl_Obj *objPtr, - int start, int *clNext); -MODULE_SCOPE ContLineLoc *TclContinuationsGet(Tcl_Obj *objPtr); -MODULE_SCOPE void TclContinuationsCopy(Tcl_Obj *objPtr, - Tcl_Obj *originObjPtr); -MODULE_SCOPE int TclConvertElement(const char *src, int length, - char *dst, int flags); -MODULE_SCOPE Tcl_Command TclCreateObjCommandInNs ( - Tcl_Interp *interp, - const char *cmdName, - Tcl_Namespace *nsPtr, - Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -MODULE_SCOPE Tcl_Command TclCreateEnsembleInNs( - Tcl_Interp *interp, - const char *name, - Tcl_Namespace *nameNamespacePtr, - Tcl_Namespace *ensembleNamespacePtr, - int flags); -MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); -MODULE_SCOPE int TclFindDictElement(Tcl_Interp *interp, - const char *dict, int dictLength, - const char **elementPtr, const char **nextPtr, - int *sizePtr, int *literalPtr); -/* TIP #280 - Modified token based evulation, with line information. */ -MODULE_SCOPE int TclEvalEx(Tcl_Interp *interp, const char *script, - int numBytes, int flags, int line, - int *clNextOuter, const char *outerScript); -MODULE_SCOPE Tcl_ObjCmdProc TclFileAttrsCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileCopyCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileDeleteCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileLinkCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileMakeDirsCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileReadLinkCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileRenameCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileTemporaryCmd; -MODULE_SCOPE void TclCreateLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TclDeleteLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE char * TclDStringAppendObj(Tcl_DString *dsPtr, - Tcl_Obj *objPtr); -MODULE_SCOPE char * TclDStringAppendDString(Tcl_DString *dsPtr, - Tcl_DString *toAppendPtr); -MODULE_SCOPE Tcl_Obj * TclDStringToObj(Tcl_DString *dsPtr); -MODULE_SCOPE Tcl_Obj *const * TclFetchEnsembleRoot(Tcl_Interp *interp, - Tcl_Obj *const *objv, int objc, int *objcPtr); -MODULE_SCOPE Tcl_Namespace * TclEnsureNamespace( - Tcl_Interp *interp, - Tcl_Namespace *namespacePtr); - -MODULE_SCOPE void TclFinalizeAllocSubsystem(void); -MODULE_SCOPE void TclFinalizeAsync(void); -MODULE_SCOPE void TclFinalizeDoubleConversion(void); -MODULE_SCOPE void TclFinalizeEncodingSubsystem(void); -MODULE_SCOPE void TclFinalizeEnvironment(void); -MODULE_SCOPE void TclFinalizeEvaluation(void); -MODULE_SCOPE void TclFinalizeExecution(void); -MODULE_SCOPE void TclFinalizeIOSubsystem(void); -MODULE_SCOPE void TclFinalizeFilesystem(void); -MODULE_SCOPE void TclResetFilesystem(void); -MODULE_SCOPE void TclFinalizeLoad(void); -MODULE_SCOPE void TclFinalizeLock(void); -MODULE_SCOPE void TclFinalizeMemorySubsystem(void); -MODULE_SCOPE void TclFinalizeNotifier(void); -MODULE_SCOPE void TclFinalizeObjects(void); -MODULE_SCOPE void TclFinalizePreserve(void); -MODULE_SCOPE void TclFinalizeSynchronization(void); -MODULE_SCOPE void TclFinalizeThreadAlloc(void); -MODULE_SCOPE void TclFinalizeThreadAllocThread(void); -MODULE_SCOPE void TclFinalizeThreadData(int quick); -MODULE_SCOPE void TclFinalizeThreadObjects(void); -MODULE_SCOPE double TclFloor(const mp_int *a); -MODULE_SCOPE void TclFormatNaN(double value, char *buffer); -MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, - const char *attributeName, int *indexPtr); -MODULE_SCOPE Tcl_Command TclNRCreateCommandInNs ( - Tcl_Interp *interp, - const char *cmdName, - Tcl_Namespace *nsPtr, - Tcl_ObjCmdProc *proc, - Tcl_ObjCmdProc *nreProc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); - -MODULE_SCOPE int TclNREvalFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - const char *encodingName); -MODULE_SCOPE void TclFSUnloadTempFile(Tcl_LoadHandle loadHandle); -MODULE_SCOPE int * TclGetAsyncReadyPtr(void); -MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler(Tcl_Interp *interp); -MODULE_SCOPE int TclGetChannelFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Channel *chanPtr, - int *modePtr, int flags); -MODULE_SCOPE CmdFrame * TclGetCmdFrameForProcedure(Proc *procPtr); -MODULE_SCOPE int TclGetCompletionCodeFromObj(Tcl_Interp *interp, - Tcl_Obj *value, int *code); -MODULE_SCOPE int TclGetNumberFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, ClientData *clientDataPtr, - int *typePtr); -MODULE_SCOPE int TclGetOpenModeEx(Tcl_Interp *interp, - const char *modeString, int *seekFlagPtr, - int *binaryPtr); -MODULE_SCOPE Tcl_Obj * TclGetProcessGlobalValue(ProcessGlobalValue *pgvPtr); -MODULE_SCOPE Tcl_Obj * TclGetSourceFromFrame(CmdFrame *cfPtr, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE char * TclGetStringStorage(Tcl_Obj *objPtr, - unsigned int *sizePtr); -MODULE_SCOPE int TclGlob(Tcl_Interp *interp, char *pattern, - Tcl_Obj *unquotedPrefix, int globFlags, - Tcl_GlobTypeData *types); -MODULE_SCOPE int TclIncrObj(Tcl_Interp *interp, Tcl_Obj *valuePtr, - Tcl_Obj *incrPtr); -MODULE_SCOPE Tcl_Obj * TclIncrObjVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, int flags); -MODULE_SCOPE int TclInfoExistsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoCoroutineCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Obj * TclInfoFrame(Tcl_Interp *interp, CmdFrame *framePtr); -MODULE_SCOPE int TclInfoGlobalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoLocalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoVarsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclInitAlloc(void); -MODULE_SCOPE void TclInitDbCkalloc(void); -MODULE_SCOPE void TclInitDoubleConversion(void); -MODULE_SCOPE void TclInitEmbeddedConfigurationInformation( - Tcl_Interp *interp); -MODULE_SCOPE void TclInitEncodingSubsystem(void); -MODULE_SCOPE void TclInitIOSubsystem(void); -MODULE_SCOPE void TclInitLimitSupport(Tcl_Interp *interp); -MODULE_SCOPE void TclInitNamespaceSubsystem(void); -MODULE_SCOPE void TclInitNotifier(void); -MODULE_SCOPE void TclInitObjSubsystem(void); -MODULE_SCOPE void TclInitSubsystems(void); -MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); -MODULE_SCOPE int TclIsSpaceProc(int byte); -MODULE_SCOPE int TclIsBareword(int byte); -MODULE_SCOPE Tcl_Obj * TclJoinPath(int elements, Tcl_Obj * const objv[], - int forceRelative); -MODULE_SCOPE int TclJoinThread(Tcl_ThreadId id, int *result); -MODULE_SCOPE void TclLimitRemoveAllHandlers(Tcl_Interp *interp); -MODULE_SCOPE Tcl_Obj * TclLindexList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *argPtr); -MODULE_SCOPE Tcl_Obj * TclLindexFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[]); -/* TIP #280 */ -MODULE_SCOPE void TclListLines(Tcl_Obj *listObj, int line, int n, - int *lines, Tcl_Obj *const *elems); -MODULE_SCOPE Tcl_Obj * TclListObjCopy(Tcl_Interp *interp, Tcl_Obj *listPtr); -MODULE_SCOPE Tcl_Obj * TclLsetList(Tcl_Interp *interp, Tcl_Obj *listPtr, - Tcl_Obj *indexPtr, Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Obj * TclLsetFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[], - Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Command TclMakeEnsemble(Tcl_Interp *interp, const char *name, - const EnsembleImplMap map[]); -MODULE_SCOPE int TclMaxListLength(const char *bytes, int numBytes, - const char **endPtr); -MODULE_SCOPE int TclMergeReturnOptions(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Tcl_Obj **optionsPtrPtr, - int *codePtr, int *levelPtr); -MODULE_SCOPE Tcl_Obj * TclNoErrorStack(Tcl_Interp *interp, Tcl_Obj *options); -MODULE_SCOPE int TclNokia770Doubles(void); -MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); -MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); -MODULE_SCOPE int TclNamespaceDeleted(Namespace *nsPtr); -MODULE_SCOPE void TclObjVarErrMsg(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const char *operation, - const char *reason, int index); -MODULE_SCOPE int TclObjInvokeNamespace(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], - Tcl_Namespace *nsPtr, int flags); -MODULE_SCOPE int TclObjUnsetVar2(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); -MODULE_SCOPE int TclParseBackslash(const char *src, - int numBytes, int *readPtr, char *dst); -MODULE_SCOPE int TclParseHex(const char *src, int numBytes, - int *resultPtr); -MODULE_SCOPE int TclParseNumber(Tcl_Interp *interp, Tcl_Obj *objPtr, - const char *expected, const char *bytes, - int numBytes, const char **endPtrPtr, int flags); -MODULE_SCOPE void TclParseInit(Tcl_Interp *interp, const char *string, - int numBytes, Tcl_Parse *parsePtr); -MODULE_SCOPE int TclParseAllWhiteSpace(const char *src, int numBytes); -MODULE_SCOPE int TclProcessReturn(Tcl_Interp *interp, - int code, int level, Tcl_Obj *returnOpts); -MODULE_SCOPE int TclpObjLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -MODULE_SCOPE Tcl_Obj * TclpTempFileName(void); -MODULE_SCOPE Tcl_Obj * TclpTempFileNameForLibrary(Tcl_Interp *interp, Tcl_Obj* pathPtr); -MODULE_SCOPE Tcl_Obj * TclNewFSPathObj(Tcl_Obj *dirPtr, const char *addStrRep, - int len); -MODULE_SCOPE int TclpDeleteFile(const void *path); -MODULE_SCOPE void TclpFinalizeCondition(Tcl_Condition *condPtr); -MODULE_SCOPE void TclpFinalizeMutex(Tcl_Mutex *mutexPtr); -MODULE_SCOPE void TclpFinalizePipes(void); -MODULE_SCOPE void TclpFinalizeSockets(void); -MODULE_SCOPE int TclCreateSocketAddress(Tcl_Interp *interp, - struct addrinfo **addrlist, - const char *host, int port, int willBind, - const char **errorMsgPtr); -MODULE_SCOPE int TclpThreadCreate(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc *proc, ClientData clientData, - int stackSize, int flags); -MODULE_SCOPE int TclpFindVariable(const char *name, int *lengthPtr); -MODULE_SCOPE void TclpInitLibraryPath(char **valuePtr, - int *lengthPtr, Tcl_Encoding *encodingPtr); -MODULE_SCOPE void TclpInitLock(void); -MODULE_SCOPE void TclpInitPlatform(void); -MODULE_SCOPE void TclpInitUnlock(void); -MODULE_SCOPE Tcl_Obj * TclpObjListVolumes(void); -MODULE_SCOPE void TclpMasterLock(void); -MODULE_SCOPE void TclpMasterUnlock(void); -MODULE_SCOPE int TclpMatchFiles(Tcl_Interp *interp, char *separators, - Tcl_DString *dirPtr, char *pattern, char *tail); -MODULE_SCOPE int TclpObjNormalizePath(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint); -MODULE_SCOPE void TclpNativeJoinPath(Tcl_Obj *prefix, const char *joining); -MODULE_SCOPE Tcl_Obj * TclpNativeSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -MODULE_SCOPE Tcl_PathType TclpGetNativePathType(Tcl_Obj *pathPtr, - int *driveNameLengthPtr, Tcl_Obj **driveNameRef); -MODULE_SCOPE int TclCrossFilesystemCopy(Tcl_Interp *interp, - Tcl_Obj *source, Tcl_Obj *target); -MODULE_SCOPE int TclpMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *resultPtr, Tcl_Obj *pathPtr, - const char *pattern, Tcl_GlobTypeData *types); -MODULE_SCOPE ClientData TclpGetNativeCwd(ClientData clientData); -MODULE_SCOPE Tcl_FSDupInternalRepProc TclNativeDupInternalRep; -MODULE_SCOPE Tcl_Obj * TclpObjLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkType); -MODULE_SCOPE int TclpObjChdir(Tcl_Obj *pathPtr); -MODULE_SCOPE Tcl_Channel TclpOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -MODULE_SCOPE Tcl_Obj * TclPathPart(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_PathPart portion); -MODULE_SCOPE char * TclpReadlink(const char *fileName, - Tcl_DString *linkPtr); -MODULE_SCOPE void TclpSetInterfaces(void); -MODULE_SCOPE void TclpSetVariables(Tcl_Interp *interp); -MODULE_SCOPE void * TclThreadStorageKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclThreadStorageKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); -MODULE_SCOPE void TclpThreadExit(int status); -MODULE_SCOPE void TclRememberCondition(Tcl_Condition *mutex); -MODULE_SCOPE void TclRememberJoinableThread(Tcl_ThreadId id); -MODULE_SCOPE void TclRememberMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclRemoveScriptLimitCallbacks(Tcl_Interp *interp); -MODULE_SCOPE int TclReToGlob(Tcl_Interp *interp, const char *reStr, - int reStrLen, Tcl_DString *dsPtr, int *flagsPtr, - int *quantifiersFoundPtr); -MODULE_SCOPE int TclScanElement(const char *string, int length, - char *flagPtr); -MODULE_SCOPE void TclSetBgErrorHandler(Tcl_Interp *interp, - Tcl_Obj *cmdPrefix); -MODULE_SCOPE void TclSetBignumIntRep(Tcl_Obj *objPtr, - mp_int *bignumValue); -MODULE_SCOPE int TclSetBooleanFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); -MODULE_SCOPE void TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Command *cmdPtr); -MODULE_SCOPE void TclSetDuplicateObj(Tcl_Obj *dupPtr, Tcl_Obj *objPtr); -MODULE_SCOPE void TclSetProcessGlobalValue(ProcessGlobalValue *pgvPtr, - Tcl_Obj *newValue, Tcl_Encoding encoding); -MODULE_SCOPE void TclSignalExitThread(Tcl_ThreadId id, int result); -MODULE_SCOPE void TclSpellFix(Tcl_Interp *interp, - Tcl_Obj *const *objv, int objc, int subIdx, - Tcl_Obj *bad, Tcl_Obj *fix); -MODULE_SCOPE void * TclStackRealloc(Tcl_Interp *interp, void *ptr, - int numBytes); - -typedef int (*memCmpFn_t)(const void*, const void*, size_t); -MODULE_SCOPE int TclStringCmp (Tcl_Obj *value1Ptr, Tcl_Obj *value2Ptr, - int checkEq, int nocase, int reqlength); -MODULE_SCOPE int TclStringCmpOpts (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], - int *nocase, int *reqlength); -MODULE_SCOPE int TclStringMatch(const char *str, int strLen, - const char *pattern, int ptnLen, int flags); -MODULE_SCOPE int TclStringMatchObj(Tcl_Obj *stringObj, - Tcl_Obj *patternObj, int flags); -MODULE_SCOPE Tcl_Obj * TclStringObjReverse(Tcl_Obj *objPtr); -MODULE_SCOPE void TclSubstCompile(Tcl_Interp *interp, const char *bytes, - int numBytes, int flags, int line, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclSubstOptions(Tcl_Interp *interp, int numOpts, - Tcl_Obj *const opts[], int *flagPtr); -MODULE_SCOPE void TclSubstParse(Tcl_Interp *interp, const char *bytes, - int numBytes, int flags, Tcl_Parse *parsePtr, - Tcl_InterpState *statePtr); -MODULE_SCOPE int TclSubstTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr, - int count, int *tokensLeftPtr, int line, - int *clNextOuter, const char *outerScript); -MODULE_SCOPE int TclTrim(const char *bytes, int numBytes, - const char *trim, int numTrim, int *trimRight); -MODULE_SCOPE int TclTrimLeft(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE int TclTrimRight(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE int TclUtfCasecmp(const char *cs, const char *ct); -MODULE_SCOPE Tcl_Obj * TclpNativeToNormalized(ClientData clientData); -MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); -MODULE_SCOPE int TclpDlopen(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr, int flags); -MODULE_SCOPE int TclpUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -#ifdef TCL_LOAD_FROM_MEMORY -MODULE_SCOPE void * TclpLoadMemoryGetBuffer(Tcl_Interp *interp, int size); -MODULE_SCOPE int TclpLoadMemory(Tcl_Interp *interp, void *buffer, - int size, int codeSize, Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr, int flags); -#endif -MODULE_SCOPE void TclInitThreadStorage(void); -MODULE_SCOPE void TclFinalizeThreadDataThread(void); -MODULE_SCOPE void TclFinalizeThreadStorage(void); - -/* TclWideMUInt -- wide integer used for measurement calculations: */ -#if (!defined(_WIN32) || !defined(_MSC_VER) || (_MSC_VER >= 1400)) -# define TclWideMUInt Tcl_WideUInt -#else -/* older MSVS may not allow conversions between unsigned __int64 and double) */ -# define TclWideMUInt Tcl_WideInt -#endif -#ifdef TCL_WIDE_CLICKS -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClicksToNanoseconds(Tcl_WideInt clicks); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -#else -# ifdef _WIN32 -# define TCL_WIDE_CLICKS 1 -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -# define TclpWideClicksToNanoseconds(clicks) \ - ((double)(clicks) * TclpWideClickInMicrosec() * 1000) -# endif -#endif -MODULE_SCOPE Tcl_WideInt TclpGetMicroseconds(void); - -MODULE_SCOPE int TclZlibInit(Tcl_Interp *interp); -MODULE_SCOPE void * TclpThreadCreateKey(void); -MODULE_SCOPE void TclpThreadDeleteKey(void *keyPtr); -MODULE_SCOPE void TclpThreadSetMasterTSD(void *tsdKeyPtr, void *ptr); -MODULE_SCOPE void * TclpThreadGetMasterTSD(void *tsdKeyPtr); - -MODULE_SCOPE void TclErrorStackResetIf(Tcl_Interp *interp, const char *msg, int length); - -/* - *---------------------------------------------------------------- - * Command procedures in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int Tcl_AfterObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_AppendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ApplyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitArrayCmd(Tcl_Interp *interp); -MODULE_SCOPE Tcl_Command TclInitBinaryCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_BreakObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CaseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CatchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitChanCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclChanCreateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPostEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPopObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPushObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclClockInit(Tcl_Interp *interp); -MODULE_SCOPE int TclClockOldscanObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CloseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ConcatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ContinueObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_TimerToken TclCreateAbsoluteTimerHandler( - Tcl_Time *timePtr, Tcl_TimerProc *proc, - ClientData clientData); -MODULE_SCOPE int TclDefaultBgErrorHandlerObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitDictCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclDictWithFinish(Tcl_Interp *interp, Var *varPtr, - Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, int index, int pathc, - Tcl_Obj *const pathv[], Tcl_Obj *keysPtr); -MODULE_SCOPE Tcl_Obj * TclDictWithInit(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int pathc, Tcl_Obj *const pathv[]); -MODULE_SCOPE int Tcl_DisassembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* Assemble command function */ -MODULE_SCOPE int Tcl_AssembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclNRAssembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitEncodingCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclMakeEncodingCommandSafe(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_EofObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ErrorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EvalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExecObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExprObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FblockedObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FconfigureObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FcopyObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitFileCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclMakeFileCommandSafe(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_FileEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FlushObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForeachObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FormatObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GetsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IfObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IncrObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitInfoCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_InterpObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_JoinObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LappendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LassignObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LindexObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LinsertObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LlengthObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ListObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LmapObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LoadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrangeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrepeatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreplaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreverseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsearchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsortObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitNamespaceCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclNamespaceEnsembleCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_OpenObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PackageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PidObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitPrefixCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_PutsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PwdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegexpObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegsubObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RenameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RepresentationCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReturnObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ScanObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SeekObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SplitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SocketObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SourceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitStringCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_SubstObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SwitchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ThrowObjCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeRateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TraceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnloadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpvarObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VariableObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_WhileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* - *---------------------------------------------------------------- - * Compilation procedures for commands in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int TclCompileAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileArrayExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileArraySetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileArrayUnsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBreakCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileCatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileClockClicksCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileClockReadingCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileConcatCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileContinueCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictCreateCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictGetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictMapCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictMergeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictUnsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictUpdateCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictWithCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEnsemble(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileErrorCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileExprCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForeachCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileFormatCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGlobalCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIfCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoCommandsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoCoroutineCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoLevelCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoObjectClassCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoObjectIsACmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoObjectNamespaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLassignCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLindexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLinsertCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileListCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLlengthCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLmapCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLrangeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLreplaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceCodeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceCurrentCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceOriginCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceQualifiersCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceTailCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceUpvarCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceWhichCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNoOp(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileObjectNextCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileObjectNextToCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileObjectSelfCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileRegexpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileRegsubCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileReturnCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringCatCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringCmpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringEqualCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringFirstCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringIndexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringIsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringLastCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringLenCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringMapCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringMatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringRangeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringReplaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringToLowerCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringToTitleCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringToUpperCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringTrimCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringTrimLCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringTrimRCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSubstCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSwitchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileTailcallCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileThrowCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileTryCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileUnsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileUpvarCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileVariableCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileWhileCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileYieldCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileYieldToCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic0ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic1ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic3ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic0Or1ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic1Or2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic2Or3ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic0To2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic1To3ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasicMin0ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasicMin1ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasicMin2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -MODULE_SCOPE int TclInvertOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInvertOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNotOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNotOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAddOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAddOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMulOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMulOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAndOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAndOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclOrOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileOrOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclXorOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileXorOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclPowOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompilePowOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclLshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileLshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclRshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileRshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclModOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileModOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNeqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclStrneqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileStrneqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclInOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNiOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNiOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMinusOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMinusOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclDivOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileDivOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLessOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGreaterOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStreqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -MODULE_SCOPE int TclCompileAssembleCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -/* - * Functions defined in generic/tclVar.c and currently exported only for use - * by the bytecode compiler and engine. Some of these could later be placed in - * the public interface. - */ - -MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags, - const char *msg, const int createPart1, - const int createPart2, Var **arrayPtrPtr); -MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp, - Tcl_Obj *arrayNamePtr, Tcl_Obj *elNamePtr, - const int flags, const char *msg, - const int createPart1, const int createPart2, - Var *arrayPtr, int index); -MODULE_SCOPE Tcl_Obj * TclPtrGetVarIdx(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrSetVarIdx(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrIncrObjVarIdx(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags, int index); -MODULE_SCOPE int TclPtrObjMakeUpvarIdx(Tcl_Interp *interp, - Var *otherPtr, Tcl_Obj *myNamePtr, int myFlags, - int index); -MODULE_SCOPE int TclPtrUnsetVarIdx(Tcl_Interp *interp, Var *varPtr, - Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, - int index); -MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr); -MODULE_SCOPE void TclFindArrayPtrElements(Var *arrayPtr, - Tcl_HashTable *tablePtr); - -/* - * The new extended interface to the variable traces. - */ - -MODULE_SCOPE int TclObjCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, - int flags, int leaveErrMsg, int index); - -/* - * So tclObj.c and tclDictObj.c can share these implementations. - */ - -MODULE_SCOPE int TclCompareObjKeys(void *keyPtr, Tcl_HashEntry *hPtr); -MODULE_SCOPE void TclFreeObjEntry(Tcl_HashEntry *hPtr); -MODULE_SCOPE unsigned TclHashObjKey(Tcl_HashTable *tablePtr, void *keyPtr); - -MODULE_SCOPE int TclFullFinalizationRequested(void); - -/* - * Utility routines for encoding index values as integers. Used by both - * some of the command compilers and by [lsort] and [lsearch]. - */ - -MODULE_SCOPE int TclIndexEncode(Tcl_Interp *interp, Tcl_Obj *objPtr, - int before, int after, int *indexPtr); -MODULE_SCOPE int TclIndexDecode(int encoded, int endValue); - -MODULE_SCOPE void TclBN_s_mp_reverse(unsigned char *s, size_t len); - -/* Constants used in index value encoding routines. */ -#define TCL_INDEX_END (-2) -#define TCL_INDEX_BEFORE (-1) -#define TCL_INDEX_START (0) -#define TCL_INDEX_AFTER (INT_MAX) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and release Tcl objects. - * TclNewObj(objPtr) creates a new object denoting an empty string. - * TclDecrRefCount(objPtr) decrements the object's reference count, and frees - * the object if its reference count is zero. These macros are inline versions - * of Tcl_NewObj() and Tcl_DecrRefCount(). Notice that the names differ in not - * having a "_" after the "Tcl". Notice also that these macros reference their - * argument more than once, so you should avoid calling them with an - * expression that is expensive to compute or has side effects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewObj(Tcl_Obj *objPtr); - * MODULE_SCOPE void TclDecrRefCount(Tcl_Obj *objPtr); - * - * These macros are defined in terms of two macros that depend on memory - * allocator in use: TclAllocObjStorage, TclFreeObjStorage. They are defined - * below. - *---------------------------------------------------------------- - */ - -/* - * DTrace object allocation probe macros. - */ - -#ifdef USE_DTRACE -#ifndef _TCLDTRACE_H -#include "tclDTrace.h" -#endif -#define TCL_DTRACE_OBJ_CREATE(objPtr) TCL_OBJ_CREATE(objPtr) -#define TCL_DTRACE_OBJ_FREE(objPtr) TCL_OBJ_FREE(objPtr) -#else /* USE_DTRACE */ -#define TCL_DTRACE_OBJ_CREATE(objPtr) {} -#define TCL_DTRACE_OBJ_FREE(objPtr) {} -#endif /* USE_DTRACE */ - -#ifdef TCL_COMPILE_STATS -# define TclIncrObjsAllocated() \ - tclObjsAlloced++ -# define TclIncrObjsFreed() \ - tclObjsFreed++ -#else -# define TclIncrObjsAllocated() -# define TclIncrObjsFreed() -#endif /* TCL_COMPILE_STATS */ - -# define TclAllocObjStorage(objPtr) \ - TclAllocObjStorageEx(NULL, (objPtr)) - -# define TclFreeObjStorage(objPtr) \ - TclFreeObjStorageEx(NULL, (objPtr)) - -#ifndef TCL_MEM_DEBUG -# define TclNewObj(objPtr) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -/* - * Invalidate the string rep first so we can use the bytes value for our - * pointer chain, and signal an obj deletion (as opposed to shimmering) with - * 'length == -1'. - * Use empty 'if ; else' to handle use in unbraced outer if/else conditions. - */ - -# define TclDecrRefCount(objPtr) \ - if ((objPtr)->refCount-- > 1) ; else { \ - if (!(objPtr)->typePtr || !(objPtr)->typePtr->freeIntRepProc) { \ - TCL_DTRACE_OBJ_FREE(objPtr); \ - if ((objPtr)->bytes \ - && ((objPtr)->bytes != tclEmptyStringRep)) { \ - ckfree((char *) (objPtr)->bytes); \ - } \ - (objPtr)->length = -1; \ - TclFreeObjStorage(objPtr); \ - TclIncrObjsFreed(); \ - } else { \ - TclFreeObj(objPtr); \ - } \ - } - -#if defined(PURIFY) - -/* - * The PURIFY mode is like the regular mode, but instead of doing block - * Tcl_Obj allocation and keeping a freed list for efficiency, it always - * allocates and frees a single Tcl_Obj so that tools like Purify can better - * track memory leaks. - */ - -# define TclAllocObjStorageEx(interp, objPtr) \ - (objPtr) = (Tcl_Obj *) ckalloc(sizeof(Tcl_Obj)) - -# define TclFreeObjStorageEx(interp, objPtr) \ - ckfree((char *) (objPtr)) - -#undef USE_THREAD_ALLOC -#undef USE_TCLALLOC -#elif defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) - -/* - * The TCL_THREADS mode is like the regular mode but allocates Tcl_Obj's from - * per-thread caches. - */ - -MODULE_SCOPE Tcl_Obj * TclThreadAllocObj(void); -MODULE_SCOPE void TclThreadFreeObj(Tcl_Obj *); -MODULE_SCOPE Tcl_Mutex *TclpNewAllocMutex(void); -MODULE_SCOPE void TclFreeAllocCache(void *); -MODULE_SCOPE void * TclpGetAllocCache(void); -MODULE_SCOPE void TclpSetAllocCache(void *); -MODULE_SCOPE void TclpFreeAllocMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclpFreeAllocCache(void *); - -/* - * These macros need to be kept in sync with the code of TclThreadAllocObj() - * and TclThreadFreeObj(). - * - * Note that the optimiser should resolve the case (interp==NULL) at compile - * time. - */ - -# define ALLOC_NOBJHIGH 1200 - -# define TclAllocObjStorageEx(interp, objPtr) \ - do { \ - AllocCache *cachePtr; \ - if (((interp) == NULL) || \ - ((cachePtr = ((Interp *)(interp))->allocCache), \ - (cachePtr->numObjects == 0))) { \ - (objPtr) = TclThreadAllocObj(); \ - } else { \ - (objPtr) = cachePtr->firstObjPtr; \ - cachePtr->firstObjPtr = (objPtr)->internalRep.twoPtrValue.ptr1; \ - --cachePtr->numObjects; \ - } \ - } while (0) - -# define TclFreeObjStorageEx(interp, objPtr) \ - do { \ - AllocCache *cachePtr; \ - if (((interp) == NULL) || \ - ((cachePtr = ((Interp *)(interp))->allocCache), \ - ((cachePtr->numObjects == 0) || \ - (cachePtr->numObjects >= ALLOC_NOBJHIGH)))) { \ - TclThreadFreeObj(objPtr); \ - } else { \ - (objPtr)->internalRep.twoPtrValue.ptr1 = cachePtr->firstObjPtr; \ - cachePtr->firstObjPtr = objPtr; \ - ++cachePtr->numObjects; \ - } \ - } while (0) - -#else /* not PURIFY or USE_THREAD_ALLOC */ - -#if defined(USE_TCLALLOC) && USE_TCLALLOC - MODULE_SCOPE void TclFinalizeAllocSubsystem(); - MODULE_SCOPE void TclInitAlloc(); -#else -# define USE_TCLALLOC 0 -#endif - -#ifdef TCL_THREADS -/* declared in tclObj.c */ -MODULE_SCOPE Tcl_Mutex tclObjMutex; -#endif - -# define TclAllocObjStorageEx(interp, objPtr) \ - do { \ - Tcl_MutexLock(&tclObjMutex); \ - if (tclFreeObjList == NULL) { \ - TclAllocateFreeObjects(); \ - } \ - (objPtr) = tclFreeObjList; \ - tclFreeObjList = (Tcl_Obj *) \ - tclFreeObjList->internalRep.twoPtrValue.ptr1; \ - Tcl_MutexUnlock(&tclObjMutex); \ - } while (0) - -# define TclFreeObjStorageEx(interp, objPtr) \ - do { \ - Tcl_MutexLock(&tclObjMutex); \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *) tclFreeObjList; \ - tclFreeObjList = (objPtr); \ - Tcl_MutexUnlock(&tclObjMutex); \ - } while (0) -#endif - -#else /* TCL_MEM_DEBUG */ -MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, - int line); - -# define TclDbNewObj(objPtr, file, line) \ - do { \ - TclIncrObjsAllocated(); \ - (objPtr) = (Tcl_Obj *) \ - Tcl_DbCkalloc(sizeof(Tcl_Obj), (file), (line)); \ - TclDbInitNewObj((objPtr), (file), (line)); \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -# define TclNewObj(objPtr) \ - TclDbNewObj(objPtr, __FILE__, __LINE__); - -# define TclDecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) - -# define TclNewListObjDirect(objc, objv) \ - TclDbNewListObjDirect(objc, objv, __FILE__, __LINE__) - -#undef USE_THREAD_ALLOC -#endif /* TCL_MEM_DEBUG */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to set a Tcl_Obj's string representation to a - * copy of the "len" bytes starting at "bytePtr". This code works even if the - * byte array contains NULLs as long as the length is correct. Because "len" - * is referenced multiple times, it should be as simple an expression as - * possible. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInitStringRep(Tcl_Obj *objPtr, char *bytePtr, int len); - * - * This macro should only be called on an unshared objPtr where - * objPtr->typePtr->freeIntRepProc == NULL - *---------------------------------------------------------------- - */ - -#define TclInitStringRep(objPtr, bytePtr, len) \ - if ((len) == 0) { \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - } else { \ - (objPtr)->bytes = (char *) ckalloc((unsigned) ((len) + 1)); \ - memcpy((objPtr)->bytes, (bytePtr), (unsigned) (len)); \ - (objPtr)->bytes[len] = '\0'; \ - (objPtr)->length = (len); \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to get the string representation's byte array - * pointer from a Tcl_Obj. This is an inline version of Tcl_GetString(). The - * macro's expression result is the string rep's byte pointer which might be - * NULL. The bytes referenced by this pointer must not be modified by the - * caller. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE char * TclGetString(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclGetString(objPtr) \ - ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr))) - -#define TclGetStringFromObj(objPtr, lenPtr) \ - ((objPtr)->bytes \ - ? (*(lenPtr) = (objPtr)->length, (objPtr)->bytes) \ - : Tcl_GetStringFromObj((objPtr), (lenPtr))) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's internal - * representation. Does not actually reset the rep's bytes. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclFreeIntRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclFreeIntRep(objPtr) \ - if ((objPtr)->typePtr != NULL) { \ - if ((objPtr)->typePtr->freeIntRepProc != NULL) { \ - (objPtr)->typePtr->freeIntRepProc(objPtr); \ - } \ - (objPtr)->typePtr = NULL; \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's string representation. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateStringRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateStringRep(objPtr) \ - if (objPtr->bytes != NULL) { \ - if (objPtr->bytes != tclEmptyStringRep) { \ - ckfree((char *) objPtr->bytes); \ - } \ - objPtr->bytes = NULL; \ - } - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to grow Tcl_Token arrays. They use the same - * growth algorithm as used in tclStringObj.c for growing strings. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclGrowTokenArray(Tcl_Token *tokenPtr, int used, - * int available, int append, - * Tcl_Token *staticPtr); - * MODULE_SCOPE void TclGrowParseTokenArray(Tcl_Parse *parsePtr, - * int append); - *---------------------------------------------------------------- - */ - -/* General tuning for minimum growth in Tcl growth algorithms */ -#ifndef TCL_MIN_GROWTH -# ifdef TCL_GROWTH_MIN_ALLOC - /* Support for any legacy tuners */ -# define TCL_MIN_GROWTH TCL_GROWTH_MIN_ALLOC -# else -# define TCL_MIN_GROWTH 1024 -# endif -#endif - -/* Token growth tuning, default to the general value. */ -#ifndef TCL_MIN_TOKEN_GROWTH -#define TCL_MIN_TOKEN_GROWTH TCL_MIN_GROWTH/sizeof(Tcl_Token) -#endif - -#define TCL_MAX_TOKENS (int)(UINT_MAX / sizeof(Tcl_Token)) -#define TclGrowTokenArray(tokenPtr, used, available, append, staticPtr) \ - do { \ - int _needed = (used) + (append); \ - if (_needed > TCL_MAX_TOKENS) { \ - Tcl_Panic("max # of tokens for a Tcl parse (%d) exceeded", \ - TCL_MAX_TOKENS); \ - } \ - if (_needed > (available)) { \ - int allocated = 2 * _needed; \ - Tcl_Token *oldPtr = (tokenPtr); \ - Tcl_Token *newPtr; \ - if (oldPtr == (staticPtr)) { \ - oldPtr = NULL; \ - } \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) attemptckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - if (newPtr == NULL) { \ - allocated = _needed + (append) + TCL_MIN_TOKEN_GROWTH; \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) ckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - } \ - (available) = allocated; \ - if (oldPtr == NULL) { \ - memcpy(newPtr, staticPtr, \ - (size_t) ((used) * sizeof(Tcl_Token))); \ - } \ - (tokenPtr) = newPtr; \ - } \ - } while (0) - -#define TclGrowParseTokenArray(parsePtr, append) \ - TclGrowTokenArray((parsePtr)->tokenPtr, (parsePtr)->numTokens, \ - (parsePtr)->tokensAvailable, (append), \ - (parsePtr)->staticTokens) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core get a unicode char from a utf string. It checks - * to see if we have a one-byte utf char before calling the real - * Tcl_UtfToUniChar, as this will save a lot of time for primarily ASCII - * string handling. The macro's expression result is 1 for the 1-byte case or - * the result of Tcl_UtfToUniChar. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclUtfToUniChar(const char *string, Tcl_UniChar *ch); - *---------------------------------------------------------------- - */ - -#define TclUtfToUniChar(str, chPtr) \ - ((((unsigned char) *(str)) < 0x80) ? \ - ((*(chPtr) = (unsigned char) *(str)), 1) \ - : Tcl_UtfToUniChar(str, chPtr)) - -/* - *---------------------------------------------------------------- - * Macro counterpart of the Tcl_NumUtfChars() function. To be used in speed- - * -sensitive points where it pays to avoid a function call in the common case - * of counting along a string of all one-byte characters. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclNumUtfChars(int numChars, const char *bytes, - * int numBytes); - *---------------------------------------------------------------- - */ - -#define TclNumUtfChars(numChars, bytes, numBytes) \ - do { \ - int _count, _i = (numBytes); \ - unsigned char *_str = (unsigned char *) (bytes); \ - while (_i && (*_str < 0xC0)) { _i--; _str++; } \ - _count = (numBytes) - _i; \ - if (_i) { \ - _count += Tcl_NumUtfChars((bytes) + _count, _i); \ - } \ - (numChars) = _count; \ - } while (0); - -/* - *---------------------------------------------------------------- - * Macro that encapsulates the logic that determines when it is safe to - * interpret a string as a byte array directly. In summary, the object must be - * a byte array and must not have a string representation (as the operations - * that it is used in are defined on strings, not byte arrays). Theoretically - * it is possible to also be efficient in the case where the object's bytes - * field is filled by generation from the byte array (c.f. list canonicality) - * but we don't do that at the moment since this is purely about efficiency. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclIsPureByteArray(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclIsPureByteArray(objPtr) \ - (((objPtr)->typePtr==&tclByteArrayType) && ((objPtr)->bytes==NULL)) -#define TclIsPureDict(objPtr) \ - (((objPtr)->bytes==NULL) && ((objPtr)->typePtr==&tclDictType)) - -#define TclIsPureList(objPtr) \ - (((objPtr)->bytes==NULL) && ((objPtr)->typePtr==&tclListType)) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to compare Unicode strings. On big-endian - * systems we can use the more efficient memcmp, but this would not be - * lexically correct on little-endian systems. The ANSI C "prototype" for - * this macro is: - * - * MODULE_SCOPE int TclUniCharNcmp(const Tcl_UniChar *cs, - * const Tcl_UniChar *ct, unsigned long n); - *---------------------------------------------------------------- - */ - -#ifdef WORDS_BIGENDIAN -# define TclUniCharNcmp(cs,ct,n) memcmp((cs),(ct),(n)*sizeof(Tcl_UniChar)) -#else /* !WORDS_BIGENDIAN */ -# define TclUniCharNcmp Tcl_UniCharNcmp -#endif /* WORDS_BIGENDIAN */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to increment a namespace's export epoch - * counter. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateNsCmdLookup(Namespace *nsPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateNsCmdLookup(nsPtr) \ - if ((nsPtr)->numExportPatterns) { \ - (nsPtr)->exportLookupEpoch++; \ - } \ - if ((nsPtr)->commandPathLength) { \ - (nsPtr)->cmdRefEpoch++; \ - } - -/* - *---------------------------------------------------------------------- - * - * Core procedure added to libtommath for bignum manipulation. - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE Tcl_PackageInitProc TclTommath_Init; - -/* - *---------------------------------------------------------------------- - * - * External (platform specific) initialization routine, these declarations - * explicitly don't use EXTERN since this code does not get compiled into the - * library: - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE Tcl_PackageInitProc TclplatformtestInit; -MODULE_SCOPE Tcl_PackageInitProc TclObjTest_Init; -MODULE_SCOPE Tcl_PackageInitProc TclThread_Init; -MODULE_SCOPE Tcl_PackageInitProc Procbodytest_Init; -MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to check whether a pattern has any characters - * special to [string match]. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclMatchIsTrivial(const char *pattern); - *---------------------------------------------------------------- - */ - -#define TclMatchIsTrivial(pattern) \ - (strpbrk((pattern), "*[?\\") == NULL) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to set a Tcl_Obj's numeric representation - * avoiding the corresponding function calls in time critical parts of the - * core. They should only be called on unshared objects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetIntObj(Tcl_Obj *objPtr, int intValue); - * MODULE_SCOPE void TclSetLongObj(Tcl_Obj *objPtr, long longValue); - * MODULE_SCOPE void TclSetBooleanObj(Tcl_Obj *objPtr, long boolValue); - * MODULE_SCOPE void TclSetWideIntObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclSetDoubleObj(Tcl_Obj *objPtr, double d); - *---------------------------------------------------------------- - */ - -#define TclSetLongObj(objPtr, i) \ - do { \ - TclInvalidateStringRep(objPtr); \ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType; \ - } while (0) - -#define TclSetIntObj(objPtr, l) \ - TclSetLongObj(objPtr, l) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. Boolean values set - * programmatically go straight to being "int" Tcl_Obj's, with value 0 or 1. - * The only "boolean" Tcl_Obj's shall be those holding the cached boolean - * value of strings like: "yes", "no", "true", "false", "on", "off". - */ - -#define TclSetBooleanObj(objPtr, b) \ - TclSetLongObj(objPtr, (b)!=0); - -#ifndef TCL_WIDE_INT_IS_LONG -#define TclSetWideIntObj(objPtr, w) \ - do { \ - TclInvalidateStringRep(objPtr); \ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.wideValue = (Tcl_WideInt)(w); \ - (objPtr)->typePtr = &tclWideIntType; \ - } while (0) -#endif - -#define TclSetDoubleObj(objPtr, d) \ - do { \ - TclInvalidateStringRep(objPtr); \ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType; \ - } while (0) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and initialise objects of standard - * types, avoiding the corresponding function calls in time critical parts of - * the core. The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewIntObj(Tcl_Obj *objPtr, int i); - * MODULE_SCOPE void TclNewLongObj(Tcl_Obj *objPtr, long l); - * MODULE_SCOPE void TclNewBooleanObj(Tcl_Obj *objPtr, int b); - * MODULE_SCOPE void TclNewWideObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclNewDoubleObj(Tcl_Obj *objPtr, double d); - * MODULE_SCOPE void TclNewStringObj(Tcl_Obj *objPtr, char *s, int len); - * MODULE_SCOPE void TclNewLiteralStringObj(Tcl_Obj*objPtr, char*sLiteral); - * - *---------------------------------------------------------------- - */ - -#ifndef TCL_MEM_DEBUG -#define TclNewLongObj(objPtr, i) \ - do { \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType; \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -#define TclNewIntObj(objPtr, l) \ - TclNewLongObj(objPtr, l) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. - * See comment above TclSetBooleanObj macro above. - */ -#define TclNewBooleanObj(objPtr, b) \ - TclNewLongObj((objPtr), (b)!=0) - -#define TclNewDoubleObj(objPtr, d) \ - do { \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType; \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -#define TclNewStringObj(objPtr, s, len) \ - do { \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - TclInitStringRep((objPtr), (s), (len)); \ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -#else /* TCL_MEM_DEBUG */ -#define TclNewIntObj(objPtr, i) \ - (objPtr) = Tcl_NewIntObj(i) - -#define TclNewLongObj(objPtr, l) \ - (objPtr) = Tcl_NewLongObj(l) - -#define TclNewBooleanObj(objPtr, b) \ - (objPtr) = Tcl_NewBooleanObj(b) - -#define TclNewDoubleObj(objPtr, d) \ - (objPtr) = Tcl_NewDoubleObj(d) - -#define TclNewStringObj(objPtr, s, len) \ - (objPtr) = Tcl_NewStringObj((s), (len)) -#endif /* TCL_MEM_DEBUG */ - -/* - * The sLiteral argument *must* be a string literal; the incantation with - * sizeof(sLiteral "") will fail to compile otherwise. - */ -#define TclNewLiteralStringObj(objPtr, sLiteral) \ - TclNewStringObj((objPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) - -/* - *---------------------------------------------------------------- - * Convenience macros for DStrings. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE char * TclDStringAppendLiteral(Tcl_DString *dsPtr, - * const char *sLiteral); - * MODULE_SCOPE void TclDStringClear(Tcl_DString *dsPtr); - */ - -#define TclDStringAppendLiteral(dsPtr, sLiteral) \ - Tcl_DStringAppend((dsPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) -#define TclDStringClear(dsPtr) \ - Tcl_DStringSetLength((dsPtr), 0) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to test for some special double values. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsInfinite(double d); - * MODULE_SCOPE int TclIsNaN(double d); - */ - -#ifdef _MSC_VER -# define TclIsInfinite(d) (!(_finite((d)))) -# define TclIsNaN(d) (_isnan((d))) -#else -# define TclIsInfinite(d) ((d) > DBL_MAX || (d) < -DBL_MAX) -# ifdef NO_ISNAN -# define TclIsNaN(d) ((d) != (d)) -# else -# define TclIsNaN(d) (isnan(d)) -# endif -#endif - -/* - * ---------------------------------------------------------------------- - * Macro to use to find the offset of a field in a structure. Computes number - * of bytes from beginning of structure to a given field. - */ - -#ifdef offsetof -#define TclOffset(type, field) ((int) offsetof(type, field)) -#else -#define TclOffset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -/* - *---------------------------------------------------------------- - * Inline version of Tcl_GetCurrentNamespace and Tcl_GetGlobalNamespace. - */ - -#define TclGetCurrentNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->varFramePtr->nsPtr - -#define TclGetGlobalNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->globalNsPtr - -/* - *---------------------------------------------------------------- - * Inline version of TclCleanupCommand; still need the function as it is in - * the internal stubs, but the core can use the macro instead. - */ - -#define TclCleanupCommandMacro(cmdPtr) \ - if ((cmdPtr)->refCount-- <= 1) { \ - ckfree((char *) (cmdPtr));\ - } - -/* - *---------------------------------------------------------------- - * Inline versions of Tcl_LimitReady() and Tcl_LimitExceeded to limit number - * of calls out of the critical path. Note that this code isn't particularly - * readable; the non-inline version (in tclInterp.c) is much easier to - * understand. Note also that these macros takes different args (iPtr->limit) - * to the non-inline version. - */ - -#define TclLimitExceeded(limit) ((limit).exceeded != 0) - -#define TclLimitReady(limit) \ - (((limit).active == 0) ? 0 : \ - (++(limit).granularityTicker, \ - ((((limit).active & TCL_LIMIT_COMMANDS) && \ - (((limit).cmdGranularity == 1) || \ - ((limit).granularityTicker % (limit).cmdGranularity == 0))) \ - ? 1 : \ - (((limit).active & TCL_LIMIT_TIME) && \ - (((limit).timeGranularity == 1) || \ - ((limit).granularityTicker % (limit).timeGranularity == 0)))\ - ? 1 : 0))) - -/* - * Compile-time assertions: these produce a compile time error if the - * expression is not known to be true at compile time. If the assertion is - * known to be false, the compiler (or optimizer?) will error out with - * "division by zero". If the assertion cannot be evaluated at compile time, - * the compiler will error out with "non-static initializer". - * - * Adapted with permission from - * http://www.pixelbeat.org/programming/gcc/static_assert.html - */ - -#define TCL_CT_ASSERT(e) \ - {enum { ct_assert_value = 1/(!!(e)) };} - -/* - *---------------------------------------------------------------- - * Allocator for small structs (<=sizeof(Tcl_Obj)) using the Tcl_Obj pool. - * Only checked at compile time. - * - * ONLY USE FOR CONSTANT nBytes. - * - * DO NOT LET THEM CROSS THREAD BOUNDARIES - *---------------------------------------------------------------- - */ - -#define TclSmallAlloc(nbytes, memPtr) \ - TclSmallAllocEx(NULL, (nbytes), (memPtr)) - -#define TclSmallFree(memPtr) \ - TclSmallFreeEx(NULL, (memPtr)) - -#ifndef TCL_MEM_DEBUG -#define TclSmallAllocEx(interp, nbytes, memPtr) \ - do { \ - Tcl_Obj *_objPtr; \ - TCL_CT_ASSERT((nbytes)<=sizeof(Tcl_Obj)); \ - TclIncrObjsAllocated(); \ - TclAllocObjStorageEx((interp), (_objPtr)); \ - memPtr = (ClientData) (_objPtr); \ - } while (0) - -#define TclSmallFreeEx(interp, memPtr) \ - do { \ - TclFreeObjStorageEx((interp), (Tcl_Obj *) (memPtr)); \ - TclIncrObjsFreed(); \ - } while (0) - -#else /* TCL_MEM_DEBUG */ -#define TclSmallAllocEx(interp, nbytes, memPtr) \ - do { \ - Tcl_Obj *_objPtr; \ - TCL_CT_ASSERT((nbytes)<=sizeof(Tcl_Obj)); \ - TclNewObj(_objPtr); \ - memPtr = (ClientData) _objPtr; \ - } while (0) - -#define TclSmallFreeEx(interp, memPtr) \ - do { \ - Tcl_Obj *_objPtr = (Tcl_Obj *) memPtr; \ - _objPtr->bytes = NULL; \ - _objPtr->typePtr = NULL; \ - _objPtr->refCount = 1; \ - TclDecrRefCount(_objPtr); \ - } while (0) -#endif /* TCL_MEM_DEBUG */ - -/* - * Support for Clang Static Analyzer - */ - -#if defined(PURIFY) && defined(__clang__) -#if __has_feature(attribute_analyzer_noreturn) && \ - !defined(Tcl_Panic) && defined(Tcl_Panic_TCL_DECLARED) -void Tcl_Panic(const char *, ...) __attribute__((analyzer_noreturn)); -#endif -#if !defined(CLANG_ASSERT) -#include -#define CLANG_ASSERT(x) assert(x) -#endif -#elif !defined(CLANG_ASSERT) -#define CLANG_ASSERT(x) -#endif /* PURIFY && __clang__ */ - -/* - *---------------------------------------------------------------- - * Parameters, structs and macros for the non-recursive engine (NRE) - *---------------------------------------------------------------- - */ - -#define NRE_USE_SMALL_ALLOC 1 /* Only turn off for debugging purposes. */ -#ifndef NRE_ENABLE_ASSERTS -#define NRE_ENABLE_ASSERTS 0 -#endif - -/* - * This is the main data struct for representing NR commands. It is designed - * to fit in sizeof(Tcl_Obj) in order to exploit the fastest memory allocator - * available. - */ - -typedef struct NRE_callback { - Tcl_NRPostProc *procPtr; - ClientData data[4]; - struct NRE_callback *nextPtr; -} NRE_callback; - -#define TOP_CB(iPtr) (((Interp *)(iPtr))->execEnvPtr->callbackPtr) - -/* - * Inline version of Tcl_NRAddCallback. - */ - -#define TclNRAddCallback(interp,postProcPtr,data0,data1,data2,data3) \ - do { \ - NRE_callback *_callbackPtr; \ - TCLNR_ALLOC((interp), (_callbackPtr)); \ - _callbackPtr->procPtr = (postProcPtr); \ - _callbackPtr->data[0] = (ClientData)(data0); \ - _callbackPtr->data[1] = (ClientData)(data1); \ - _callbackPtr->data[2] = (ClientData)(data2); \ - _callbackPtr->data[3] = (ClientData)(data3); \ - _callbackPtr->nextPtr = TOP_CB(interp); \ - TOP_CB(interp) = _callbackPtr; \ - } while (0) - -#if NRE_USE_SMALL_ALLOC -#define TCLNR_ALLOC(interp, ptr) \ - TclSmallAllocEx(interp, sizeof(NRE_callback), (ptr)) -#define TCLNR_FREE(interp, ptr) TclSmallFreeEx((interp), (ptr)) -#else -#define TCLNR_ALLOC(interp, ptr) \ - (ptr = ((ClientData) ckalloc(sizeof(NRE_callback)))) -#define TCLNR_FREE(interp, ptr) ckfree((char *) (ptr)) -#endif - -#if NRE_ENABLE_ASSERTS -#define NRE_ASSERT(expr) assert((expr)) -#else -#define NRE_ASSERT(expr) -#endif - -#include "tclIntDecls.h" -#include "tclIntPlatDecls.h" -#include "tclTomMathDecls.h" - -#if !defined(USE_TCL_STUBS) && !defined(TCL_MEM_DEBUG) -#define Tcl_AttemptAlloc(size) TclpAlloc(size) -#define Tcl_AttemptRealloc(ptr, size) TclpRealloc((ptr), (size)) -#define Tcl_Free(ptr) TclpFree(ptr) -#endif - -#endif /* _TCLINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclIntDecls.h deleted file mode 100644 index 437bb5288..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclIntDecls.h +++ /dev/null @@ -1,1417 +0,0 @@ -/* - * tclIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINTDECLS -#define _TCLINTDECLS - - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */ -#undef Tcl_CreateNamespace -#undef Tcl_DeleteNamespace -#undef Tcl_AppendExportList -#undef Tcl_Export -#undef Tcl_Import -#undef Tcl_ForgetImport -#undef Tcl_GetCurrentNamespace -#undef Tcl_GetGlobalNamespace -#undef Tcl_FindNamespace -#undef Tcl_FindCommand -#undef Tcl_GetCommandFromObj -#undef Tcl_GetCommandFullName -#undef Tcl_SetStartupScript -#undef Tcl_GetStartupScript - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN void TclAllocateFreeObjects(void); -/* Slot 4 is reserved */ -/* 5 */ -EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids, - Tcl_Pid *pidPtr, Tcl_Channel errorChan); -/* 6 */ -EXTERN void TclCleanupCommand(Command *cmdPtr); -/* 7 */ -EXTERN int TclCopyAndCollapse(int count, const char *src, - char *dst); -/* 8 */ -EXTERN int TclCopyChannelOld(Tcl_Interp *interp, - Tcl_Channel inChan, Tcl_Channel outChan, - int toRead, Tcl_Obj *cmdPtr); -/* 9 */ -EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc, - const char **argv, Tcl_Pid **pidArrayPtr, - TclFile *inPipePtr, TclFile *outPipePtr, - TclFile *errFilePtr); -/* 10 */ -EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, - const char *procName, Tcl_Obj *argsPtr, - Tcl_Obj *bodyPtr, Proc **procPtrPtr); -/* 11 */ -EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr, - CallFrame *framePtr); -/* 12 */ -EXTERN void TclDeleteVars(Interp *iPtr, - TclVarHashTable *tablePtr); -/* Slot 13 is reserved */ -/* 14 */ -EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN void TclExprFloatError(Tcl_Interp *interp, double value); -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* 22 */ -EXTERN int TclFindElement(Tcl_Interp *interp, - const char *listStr, int listLength, - const char **elementPtr, - const char **nextPtr, int *sizePtr, - int *bracePtr); -/* 23 */ -EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName); -/* 24 */ -EXTERN int TclFormatInt(char *buffer, long n); -/* 25 */ -EXTERN void TclFreePackageInfo(Interp *iPtr); -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* 28 */ -EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type); -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -/* 31 */ -EXTERN const char * TclGetExtension(const char *name); -/* 32 */ -EXTERN int TclGetFrame(Tcl_Interp *interp, const char *str, - CallFrame **framePtrPtr); -/* Slot 33 is reserved */ -/* 34 */ -EXTERN int TclGetIntForIndex(Tcl_Interp *interp, - Tcl_Obj *objPtr, int endValue, int *indexPtr); -/* Slot 35 is reserved */ -/* Slot 36 is reserved */ -/* 37 */ -EXTERN int TclGetLoadedPackages(Tcl_Interp *interp, - const char *targetName); -/* 38 */ -EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, - const char *qualName, Namespace *cxtNsPtr, - int flags, Namespace **nsPtrPtr, - Namespace **altNsPtrPtr, - Namespace **actualCxtPtrPtr, - const char **simpleNamePtr); -/* 39 */ -EXTERN TclObjCmdProcType TclGetObjInterpProc(void); -/* 40 */ -EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str, - int *seekFlagPtr); -/* 41 */ -EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); -/* 42 */ -EXTERN CONST86 char * TclpGetUserHome(const char *name, - Tcl_DString *bufferPtr); -/* Slot 43 is reserved */ -/* 44 */ -EXTERN int TclGuessPackageName(const char *fileName, - Tcl_DString *bufPtr); -/* 45 */ -EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp); -/* 46 */ -EXTERN int TclInExit(void); -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -/* 50 */ -EXTERN void TclInitCompiledLocals(Tcl_Interp *interp, - CallFrame *framePtr, Namespace *nsPtr); -/* 51 */ -EXTERN int TclInterpInit(Tcl_Interp *interp); -/* Slot 52 is reserved */ -/* 53 */ -EXTERN int TclInvokeObjectCommand(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST84 char **argv); -/* 54 */ -EXTERN int TclInvokeStringCommand(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 55 */ -EXTERN Proc * TclIsProc(Command *cmdPtr); -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -/* 58 */ -EXTERN Var * TclLookupVar(Tcl_Interp *interp, const char *part1, - const char *part2, int flags, - const char *msg, int createPart1, - int createPart2, Var **arrayPtrPtr); -/* Slot 59 is reserved */ -/* 60 */ -EXTERN int TclNeedSpace(const char *start, const char *end); -/* 61 */ -EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr); -/* 62 */ -EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr); -/* 63 */ -EXTERN int TclObjInterpProc(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 64 */ -EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags); -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -/* 69 */ -EXTERN char * TclpAlloc(unsigned int size); -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* 74 */ -EXTERN void TclpFree(char *ptr); -/* 75 */ -EXTERN unsigned long TclpGetClicks(void); -/* 76 */ -EXTERN unsigned long TclpGetSeconds(void); -/* 77 */ -EXTERN void TclpGetTime(Tcl_Time *time); -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -/* 81 */ -EXTERN char * TclpRealloc(char *ptr, unsigned int size); -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -/* 88 */ -EXTERN char * TclPrecTraceProc(ClientData clientData, - Tcl_Interp *interp, const char *name1, - const char *name2, int flags); -/* 89 */ -EXTERN int TclPreventAliasLoop(Tcl_Interp *interp, - Tcl_Interp *cmdInterp, Tcl_Command cmd); -/* Slot 90 is reserved */ -/* 91 */ -EXTERN void TclProcCleanupProc(Proc *procPtr); -/* 92 */ -EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, - Tcl_Obj *bodyPtr, Namespace *nsPtr, - const char *description, - const char *procName); -/* 93 */ -EXTERN void TclProcDeleteProc(ClientData clientData); -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* 96 */ -EXTERN int TclRenameCommand(Tcl_Interp *interp, - const char *oldName, const char *newName); -/* 97 */ -EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp, - Command *newCmdPtr); -/* 98 */ -EXTERN int TclServiceIdle(void); -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* 101 */ -EXTERN CONST86 char * TclSetPreInitScript(const char *string); -/* 102 */ -EXTERN void TclSetupEnv(Tcl_Interp *interp); -/* 103 */ -EXTERN int TclSockGetPort(Tcl_Interp *interp, const char *str, - const char *proto, int *portPtr); -/* 104 */ -EXTERN int TclSockMinimumBuffersOld(int sock, int size); -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* 108 */ -EXTERN void TclTeardownNamespace(Namespace *nsPtr); -/* 109 */ -EXTERN int TclUpdateReturnInfo(Interp *iPtr); -/* 110 */ -EXTERN int TclSockMinimumBuffers(void *sock, int size); -/* 111 */ -EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp, - const char *name, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -/* 112 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -/* 113 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - const char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -/* 114 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -/* 115 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int resetListFirst); -/* 116 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 117 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 118 */ -EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp, - const char *name, Tcl_ResolverInfo *resInfo); -/* 119 */ -EXTERN int Tcl_GetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolverInfo *resInfo); -/* 120 */ -EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 121 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, const char *pattern); -/* 122 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 123 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -/* 124 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -/* 125 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -/* 126 */ -EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp, - Tcl_Var variable, Tcl_Obj *objPtr); -/* 127 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int allowOverwrite); -/* 128 */ -EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp); -/* 129 */ -EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp, - Tcl_CallFrame *framePtr, - Tcl_Namespace *nsPtr, int isProcCallFrame); -/* 130 */ -EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, - const char *name); -/* 131 */ -EXTERN void Tcl_SetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -/* 132 */ -EXTERN int TclpHasSockets(Tcl_Interp *interp); -/* 133 */ -EXTERN struct tm * TclpGetDate(const time_t *time, int useGMT); -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* 138 */ -EXTERN CONST84_RETURN char * TclGetEnv(const char *name, - Tcl_DString *valuePtr); -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* 141 */ -EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp, - Tcl_DString *cwdPtr); -/* 142 */ -EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp, - Tcl_Obj *objPtr, CompileHookProc *hookProc, - ClientData clientData); -/* 143 */ -EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr, - Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); -/* 144 */ -EXTERN void TclHideLiteral(Tcl_Interp *interp, - struct CompileEnv *envPtr, int index); -/* 145 */ -EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName); -/* 146 */ -EXTERN TclHandle TclHandleCreate(void *ptr); -/* 147 */ -EXTERN void TclHandleFree(TclHandle handle); -/* 148 */ -EXTERN TclHandle TclHandlePreserve(TclHandle handle); -/* 149 */ -EXTERN void TclHandleRelease(TclHandle handle); -/* 150 */ -EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re); -/* 151 */ -EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index, - int *startPtr, int *endPtr); -/* 152 */ -EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr); -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath(void); -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* 156 */ -EXTERN void TclRegError(Tcl_Interp *interp, const char *msg, - int status); -/* 157 */ -EXTERN Var * TclVarTraceExists(Tcl_Interp *interp, - const char *varName); -/* 158 */ -EXTERN void TclSetStartupScriptFileName(const char *filename); -/* 159 */ -EXTERN const char * TclGetStartupScriptFileName(void); -/* Slot 160 is reserved */ -/* 161 */ -EXTERN int TclChannelTransform(Tcl_Interp *interp, - Tcl_Channel chan, Tcl_Obj *cmdObjPtr); -/* 162 */ -EXTERN void TclChannelEventScriptInvoker(ClientData clientData, - int flags); -/* 163 */ -EXTERN const void * TclGetInstructionTable(void); -/* 164 */ -EXTERN void TclExpandCodeArray(void *envPtr); -/* 165 */ -EXTERN void TclpSetInitialEncodings(void); -/* 166 */ -EXTERN int TclListObjSetElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj *valuePtr); -/* 167 */ -EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr); -/* 168 */ -EXTERN Tcl_Obj * TclGetStartupScriptPath(void); -/* 169 */ -EXTERN int TclpUtfNcmp2(const char *s1, const char *s2, - unsigned long n); -/* 170 */ -EXTERN int TclCheckInterpTraces(Tcl_Interp *interp, - const char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *const objv[]); -/* 171 */ -EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp, - const char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *const objv[]); -/* 172 */ -EXTERN int TclInThreadExit(void); -/* 173 */ -EXTERN int TclUniCharMatch(const Tcl_UniChar *string, - int strLen, const Tcl_UniChar *pattern, - int ptnLen, int flags); -/* Slot 174 is reserved */ -/* 175 */ -EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, const char *part1, - const char *part2, int flags, - int leaveErrMsg); -/* 176 */ -EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr); -/* 177 */ -EXTERN void TclVarErrMsg(Tcl_Interp *interp, const char *part1, - const char *part2, const char *operation, - const char *reason); -/* 178 */ -EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr, - const char *encodingName); -/* 179 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingNamePtr); -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -/* 182 */ -EXTERN struct tm * TclpLocaltime(const time_t *clock); -/* 183 */ -EXTERN struct tm * TclpGmtime(const time_t *clock); -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -/* 198 */ -EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, - CallFrame **framePtrPtr); -/* Slot 199 is reserved */ -/* 200 */ -EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -/* 201 */ -EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -/* 202 */ -EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr); -/* 203 */ -EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr); -/* 204 */ -EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 205 */ -EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 206 */ -EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -/* 207 */ -EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode); -/* 208 */ -EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int mode, int permissions); -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -/* 212 */ -EXTERN void TclpFindExecutable(const char *argv0); -/* 213 */ -EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void); -/* 214 */ -EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name, - Tcl_Encoding encoding); -/* 215 */ -EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes); -/* 216 */ -EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr); -/* 217 */ -EXTERN int TclPushStackFrame(Tcl_Interp *interp, - Tcl_CallFrame **framePtrPtr, - Tcl_Namespace *namespacePtr, - int isProcCallFrame); -/* 218 */ -EXTERN void TclPopStackFrame(Tcl_Interp *interp); -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -/* 224 */ -EXTERN TclPlatformType * TclGetPlatform(void); -/* 225 */ -EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp, - Tcl_Obj *rootPtr, int keyc, - Tcl_Obj *const keyv[], int flags); -/* 226 */ -EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr); -/* 227 */ -EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength, - Tcl_Namespace *pathAry[]); -/* Slot 228 is reserved */ -/* 229 */ -EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, - const char *myName, int myFlags, int index); -/* 230 */ -EXTERN Var * TclObjLookupVar(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, const char *part2, - int flags, const char *msg, - const int createPart1, const int createPart2, - Var **arrayPtrPtr); -/* 231 */ -EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); -/* 232 */ -EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags, const CmdFrame *invoker, int word); -/* 233 */ -EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr); -/* 234 */ -EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr, - const char *key, int *newPtr); -/* 235 */ -EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr, - Namespace *nsPtr); -/* 236 */ -EXTERN void TclBackgroundException(Tcl_Interp *interp, int code); -/* 237 */ -EXTERN int TclResetCancellation(Tcl_Interp *interp, int force); -/* 238 */ -EXTERN int TclNRInterpProc(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 239 */ -EXTERN int TclNRInterpProcCore(Tcl_Interp *interp, - Tcl_Obj *procNameObj, int skip, - ProcErrorProc *errorProc); -/* 240 */ -EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result, - struct NRE_callback *rootPtr); -/* 241 */ -EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags, const CmdFrame *invoker, int word); -/* 242 */ -EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags, - Command *cmdPtr); -/* 243 */ -EXTERN void TclDbDumpActiveObjects(FILE *outFile); -/* 244 */ -EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr); -/* 245 */ -EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr); -/* 246 */ -EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp, - int numRemoved, int numInserted, - Tcl_Obj *const *objv); -/* 247 */ -EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp, - int isRootEnsemble); -/* 248 */ -EXTERN int TclCopyChannel(Tcl_Interp *interp, - Tcl_Channel inChan, Tcl_Channel outChan, - Tcl_WideInt toRead, Tcl_Obj *cmdPtr); -/* 249 */ -EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags, - int *decpt, int *signum, char **endPtr); -/* 250 */ -EXTERN void TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags, - int force); -/* 251 */ -EXTERN int TclRegisterLiteral(void *envPtr, char *bytes, - int length, int flags); -/* 252 */ -EXTERN Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags); -/* 253 */ -EXTERN Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags); -/* 254 */ -EXTERN Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags); -/* 255 */ -EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp, - Tcl_Var otherPtr, Tcl_Obj *myNamePtr, - int myFlags); -/* 256 */ -EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags); -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -/* 259 */ -EXTERN void TclUnusedStubEntry(void); - -typedef struct TclIntStubs { - int magic; - void *hooks; - - void (*reserved0)(void); - void (*reserved1)(void); - void (*reserved2)(void); - void (*tclAllocateFreeObjects) (void); /* 3 */ - void (*reserved4)(void); - int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */ - void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */ - int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */ - int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */ - int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */ - int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */ - void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */ - void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */ - void (*reserved13)(void); - int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */ - void (*reserved15)(void); - void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */ - void (*reserved17)(void); - void (*reserved18)(void); - void (*reserved19)(void); - void (*reserved20)(void); - void (*reserved21)(void); - int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */ - Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */ - int (*tclFormatInt) (char *buffer, long n); /* 24 */ - void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */ - void (*reserved26)(void); - void (*reserved27)(void); - Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */ - void (*reserved29)(void); - void (*reserved30)(void); - const char * (*tclGetExtension) (const char *name); /* 31 */ - int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */ - void (*reserved33)(void); - int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */ - void (*reserved35)(void); - void (*reserved36)(void); - int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */ - int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */ - TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ - int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */ - Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ - CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */ - void (*reserved43)(void); - int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */ - int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ - int (*tclInExit) (void); /* 46 */ - void (*reserved47)(void); - void (*reserved48)(void); - void (*reserved49)(void); - void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */ - int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ - void (*reserved52)(void); - int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */ - int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */ - Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */ - void (*reserved56)(void); - void (*reserved57)(void); - Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */ - void (*reserved59)(void); - int (*tclNeedSpace) (const char *start, const char *end); /* 60 */ - Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */ - int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */ - int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */ - int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */ - void (*reserved65)(void); - void (*reserved66)(void); - void (*reserved67)(void); - void (*reserved68)(void); - char * (*tclpAlloc) (unsigned int size); /* 69 */ - void (*reserved70)(void); - void (*reserved71)(void); - void (*reserved72)(void); - void (*reserved73)(void); - void (*tclpFree) (char *ptr); /* 74 */ - unsigned long (*tclpGetClicks) (void); /* 75 */ - unsigned long (*tclpGetSeconds) (void); /* 76 */ - void (*tclpGetTime) (Tcl_Time *time); /* 77 */ - void (*reserved78)(void); - void (*reserved79)(void); - void (*reserved80)(void); - char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */ - void (*reserved82)(void); - void (*reserved83)(void); - void (*reserved84)(void); - void (*reserved85)(void); - void (*reserved86)(void); - void (*reserved87)(void); - char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */ - int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */ - void (*reserved90)(void); - void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */ - int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */ - void (*tclProcDeleteProc) (ClientData clientData); /* 93 */ - void (*reserved94)(void); - void (*reserved95)(void); - int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */ - void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */ - int (*tclServiceIdle) (void); /* 98 */ - void (*reserved99)(void); - void (*reserved100)(void); - CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */ - void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */ - int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */ - int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */ - void (*reserved105)(void); - void (*reserved106)(void); - void (*reserved107)(void); - void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */ - int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */ - int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */ - void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */ - int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */ - int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */ - Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */ - void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */ - void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */ - int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */ - int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */ - void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */ - int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */ - struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */ - void (*reserved134)(void); - void (*reserved135)(void); - void (*reserved136)(void); - void (*reserved137)(void); - CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */ - void (*reserved139)(void); - void (*reserved140)(void); - CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */ - int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */ - int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */ - void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */ - const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */ - TclHandle (*tclHandleCreate) (void *ptr); /* 146 */ - void (*tclHandleFree) (TclHandle handle); /* 147 */ - TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */ - void (*tclHandleRelease) (TclHandle handle); /* 149 */ - int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */ - void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */ - void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ - void (*reserved154)(void); - void (*reserved155)(void); - void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */ - Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */ - void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */ - const char * (*tclGetStartupScriptFileName) (void); /* 159 */ - void (*reserved160)(void); - int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */ - void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */ - const void * (*tclGetInstructionTable) (void); /* 163 */ - void (*tclExpandCodeArray) (void *envPtr); /* 164 */ - void (*tclpSetInitialEncodings) (void); /* 165 */ - int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */ - void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */ - Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */ - int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */ - int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 170 */ - int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 171 */ - int (*tclInThreadExit) (void); /* 172 */ - int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */ - void (*reserved174)(void); - int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */ - void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */ - void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */ - void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */ - Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */ - void (*reserved180)(void); - void (*reserved181)(void); - struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */ - struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */ - void (*reserved184)(void); - void (*reserved185)(void); - void (*reserved186)(void); - void (*reserved187)(void); - void (*reserved188)(void); - void (*reserved189)(void); - void (*reserved190)(void); - void (*reserved191)(void); - void (*reserved192)(void); - void (*reserved193)(void); - void (*reserved194)(void); - void (*reserved195)(void); - void (*reserved196)(void); - void (*reserved197)(void); - int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */ - void (*reserved199)(void); - int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */ - int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */ - int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */ - int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */ - int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */ - int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */ - int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */ - int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */ - Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */ - void (*reserved209)(void); - void (*reserved210)(void); - void (*reserved211)(void); - void (*tclpFindExecutable) (const char *argv0); /* 212 */ - Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */ - void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */ - void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */ - void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */ - int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */ - void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */ - void (*reserved219)(void); - void (*reserved220)(void); - void (*reserved221)(void); - void (*reserved222)(void); - void (*reserved223)(void); - TclPlatformType * (*tclGetPlatform) (void); /* 224 */ - Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */ - int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ - void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */ - void (*reserved228)(void); - int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */ - Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, const char *part2, int flags, const char *msg, const int createPart1, const int createPart2, Var **arrayPtrPtr); /* 230 */ - int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */ - int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */ - void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */ - Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */ - void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */ - void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */ - int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */ - int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */ - int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */ - int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */ - int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */ - int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */ - void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */ - Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */ - Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */ - int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */ - void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */ - int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */ - char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */ - void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */ - int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */ - Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 252 */ - Tcl_Obj * (*tclPtrSetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags); /* 253 */ - Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */ - int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */ - int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */ - void (*reserved257)(void); - void (*reserved258)(void); - void (*tclUnusedStubEntry) (void); /* 259 */ -} TclIntStubs; - -extern const TclIntStubs *tclIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#define TclAllocateFreeObjects \ - (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -/* Slot 4 is reserved */ -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#define TclCleanupCommand \ - (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#define TclCopyAndCollapse \ - (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#define TclCopyChannelOld \ - (tclIntStubsPtr->tclCopyChannelOld) /* 8 */ -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#define TclCreateProc \ - (tclIntStubsPtr->tclCreateProc) /* 10 */ -#define TclDeleteCompiledLocalVars \ - (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ -#define TclDeleteVars \ - (tclIntStubsPtr->tclDeleteVars) /* 12 */ -/* Slot 13 is reserved */ -#define TclDumpMemoryInfo \ - (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ -/* Slot 15 is reserved */ -#define TclExprFloatError \ - (tclIntStubsPtr->tclExprFloatError) /* 16 */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#define TclFindElement \ - (tclIntStubsPtr->tclFindElement) /* 22 */ -#define TclFindProc \ - (tclIntStubsPtr->tclFindProc) /* 23 */ -#define TclFormatInt \ - (tclIntStubsPtr->tclFormatInt) /* 24 */ -#define TclFreePackageInfo \ - (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -#define TclpGetDefaultStdChannel \ - (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#define TclGetExtension \ - (tclIntStubsPtr->tclGetExtension) /* 31 */ -#define TclGetFrame \ - (tclIntStubsPtr->tclGetFrame) /* 32 */ -/* Slot 33 is reserved */ -#define TclGetIntForIndex \ - (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ -/* Slot 35 is reserved */ -/* Slot 36 is reserved */ -#define TclGetLoadedPackages \ - (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ -#define TclGetNamespaceForQualName \ - (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ -#define TclGetObjInterpProc \ - (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ -#define TclGetOpenMode \ - (tclIntStubsPtr->tclGetOpenMode) /* 40 */ -#define TclGetOriginalCommand \ - (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ -#define TclpGetUserHome \ - (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -/* Slot 43 is reserved */ -#define TclGuessPackageName \ - (tclIntStubsPtr->tclGuessPackageName) /* 44 */ -#define TclHideUnsafeCommands \ - (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ -#define TclInExit \ - (tclIntStubsPtr->tclInExit) /* 46 */ -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ -#define TclInterpInit \ - (tclIntStubsPtr->tclInterpInit) /* 51 */ -/* Slot 52 is reserved */ -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ -#define TclIsProc \ - (tclIntStubsPtr->tclIsProc) /* 55 */ -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#define TclLookupVar \ - (tclIntStubsPtr->tclLookupVar) /* 58 */ -/* Slot 59 is reserved */ -#define TclNeedSpace \ - (tclIntStubsPtr->tclNeedSpace) /* 60 */ -#define TclNewProcBodyObj \ - (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ -#define TclObjCommandComplete \ - (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ -#define TclObjInterpProc \ - (tclIntStubsPtr->tclObjInterpProc) /* 63 */ -#define TclObjInvoke \ - (tclIntStubsPtr->tclObjInvoke) /* 64 */ -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -#define TclpAlloc \ - (tclIntStubsPtr->tclpAlloc) /* 69 */ -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#define TclpFree \ - (tclIntStubsPtr->tclpFree) /* 74 */ -#define TclpGetClicks \ - (tclIntStubsPtr->tclpGetClicks) /* 75 */ -#define TclpGetSeconds \ - (tclIntStubsPtr->tclpGetSeconds) /* 76 */ -#define TclpGetTime \ - (tclIntStubsPtr->tclpGetTime) /* 77 */ -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#define TclpRealloc \ - (tclIntStubsPtr->tclpRealloc) /* 81 */ -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#define TclPrecTraceProc \ - (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ -#define TclPreventAliasLoop \ - (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ -/* Slot 90 is reserved */ -#define TclProcCleanupProc \ - (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ -#define TclProcCompileProc \ - (tclIntStubsPtr->tclProcCompileProc) /* 92 */ -#define TclProcDeleteProc \ - (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -#define TclRenameCommand \ - (tclIntStubsPtr->tclRenameCommand) /* 96 */ -#define TclResetShadowedCmdRefs \ - (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ -#define TclServiceIdle \ - (tclIntStubsPtr->tclServiceIdle) /* 98 */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#define TclSetupEnv \ - (tclIntStubsPtr->tclSetupEnv) /* 102 */ -#define TclSockGetPort \ - (tclIntStubsPtr->tclSockGetPort) /* 103 */ -#define TclSockMinimumBuffersOld \ - (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -#define TclTeardownNamespace \ - (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ -#define TclUpdateReturnInfo \ - (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */ -#define Tcl_AddInterpResolvers \ - (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ -#define Tcl_AppendExportList \ - (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ -#define Tcl_CreateNamespace \ - (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ -#define Tcl_DeleteNamespace \ - (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ -#define Tcl_Export \ - (tclIntStubsPtr->tcl_Export) /* 115 */ -#define Tcl_FindCommand \ - (tclIntStubsPtr->tcl_FindCommand) /* 116 */ -#define Tcl_FindNamespace \ - (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ -#define Tcl_GetInterpResolvers \ - (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ -#define Tcl_GetNamespaceResolvers \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ -#define Tcl_FindNamespaceVar \ - (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ -#define Tcl_ForgetImport \ - (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ -#define Tcl_GetCommandFromObj \ - (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ -#define Tcl_GetCommandFullName \ - (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ -#define Tcl_GetCurrentNamespace \ - (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ -#define Tcl_GetGlobalNamespace \ - (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ -#define Tcl_GetVariableFullName \ - (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ -#define Tcl_Import \ - (tclIntStubsPtr->tcl_Import) /* 127 */ -#define Tcl_PopCallFrame \ - (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ -#define Tcl_PushCallFrame \ - (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ -#define Tcl_RemoveInterpResolvers \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ -#define Tcl_SetNamespaceResolvers \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ -#define TclpHasSockets \ - (tclIntStubsPtr->tclpHasSockets) /* 132 */ -#define TclpGetDate \ - (tclIntStubsPtr->tclpGetDate) /* 133 */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#define TclGetEnv \ - (tclIntStubsPtr->tclGetEnv) /* 138 */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -#define TclpGetCwd \ - (tclIntStubsPtr->tclpGetCwd) /* 141 */ -#define TclSetByteCodeFromAny \ - (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ -#define TclAddLiteralObj \ - (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ -#define TclHideLiteral \ - (tclIntStubsPtr->tclHideLiteral) /* 144 */ -#define TclGetAuxDataType \ - (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ -#define TclHandleCreate \ - (tclIntStubsPtr->tclHandleCreate) /* 146 */ -#define TclHandleFree \ - (tclIntStubsPtr->tclHandleFree) /* 147 */ -#define TclHandlePreserve \ - (tclIntStubsPtr->tclHandlePreserve) /* 148 */ -#define TclHandleRelease \ - (tclIntStubsPtr->tclHandleRelease) /* 149 */ -#define TclRegAbout \ - (tclIntStubsPtr->tclRegAbout) /* 150 */ -#define TclRegExpRangeUniChar \ - (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#define TclRegError \ - (tclIntStubsPtr->tclRegError) /* 156 */ -#define TclVarTraceExists \ - (tclIntStubsPtr->tclVarTraceExists) /* 157 */ -#define TclSetStartupScriptFileName \ - (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ -#define TclGetStartupScriptFileName \ - (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ -/* Slot 160 is reserved */ -#define TclChannelTransform \ - (tclIntStubsPtr->tclChannelTransform) /* 161 */ -#define TclChannelEventScriptInvoker \ - (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ -#define TclGetInstructionTable \ - (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ -#define TclExpandCodeArray \ - (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ -#define TclpSetInitialEncodings \ - (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ -#define TclListObjSetElement \ - (tclIntStubsPtr->tclListObjSetElement) /* 166 */ -#define TclSetStartupScriptPath \ - (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ -#define TclGetStartupScriptPath \ - (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ -#define TclpUtfNcmp2 \ - (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ -#define TclCheckInterpTraces \ - (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ -#define TclCheckExecutionTraces \ - (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ -#define TclInThreadExit \ - (tclIntStubsPtr->tclInThreadExit) /* 172 */ -#define TclUniCharMatch \ - (tclIntStubsPtr->tclUniCharMatch) /* 173 */ -/* Slot 174 is reserved */ -#define TclCallVarTraces \ - (tclIntStubsPtr->tclCallVarTraces) /* 175 */ -#define TclCleanupVar \ - (tclIntStubsPtr->tclCleanupVar) /* 176 */ -#define TclVarErrMsg \ - (tclIntStubsPtr->tclVarErrMsg) /* 177 */ -#define Tcl_SetStartupScript \ - (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ -#define Tcl_GetStartupScript \ - (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -#define TclpLocaltime \ - (tclIntStubsPtr->tclpLocaltime) /* 182 */ -#define TclpGmtime \ - (tclIntStubsPtr->tclpGmtime) /* 183 */ -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -#define TclObjGetFrame \ - (tclIntStubsPtr->tclObjGetFrame) /* 198 */ -/* Slot 199 is reserved */ -#define TclpObjRemoveDirectory \ - (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */ -#define TclpObjCopyDirectory \ - (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */ -#define TclpObjCreateDirectory \ - (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */ -#define TclpObjDeleteFile \ - (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */ -#define TclpObjCopyFile \ - (tclIntStubsPtr->tclpObjCopyFile) /* 204 */ -#define TclpObjRenameFile \ - (tclIntStubsPtr->tclpObjRenameFile) /* 205 */ -#define TclpObjStat \ - (tclIntStubsPtr->tclpObjStat) /* 206 */ -#define TclpObjAccess \ - (tclIntStubsPtr->tclpObjAccess) /* 207 */ -#define TclpOpenFileChannel \ - (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -#define TclpFindExecutable \ - (tclIntStubsPtr->tclpFindExecutable) /* 212 */ -#define TclGetObjNameOfExecutable \ - (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */ -#define TclSetObjNameOfExecutable \ - (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */ -#define TclStackAlloc \ - (tclIntStubsPtr->tclStackAlloc) /* 215 */ -#define TclStackFree \ - (tclIntStubsPtr->tclStackFree) /* 216 */ -#define TclPushStackFrame \ - (tclIntStubsPtr->tclPushStackFrame) /* 217 */ -#define TclPopStackFrame \ - (tclIntStubsPtr->tclPopStackFrame) /* 218 */ -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -#define TclGetPlatform \ - (tclIntStubsPtr->tclGetPlatform) /* 224 */ -#define TclTraceDictPath \ - (tclIntStubsPtr->tclTraceDictPath) /* 225 */ -#define TclObjBeingDeleted \ - (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */ -#define TclSetNsPath \ - (tclIntStubsPtr->tclSetNsPath) /* 227 */ -/* Slot 228 is reserved */ -#define TclPtrMakeUpvar \ - (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */ -#define TclObjLookupVar \ - (tclIntStubsPtr->tclObjLookupVar) /* 230 */ -#define TclGetNamespaceFromObj \ - (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */ -#define TclEvalObjEx \ - (tclIntStubsPtr->tclEvalObjEx) /* 232 */ -#define TclGetSrcInfoForPc \ - (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */ -#define TclVarHashCreateVar \ - (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ -#define TclInitVarHashTable \ - (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ -#define TclBackgroundException \ - (tclIntStubsPtr->tclBackgroundException) /* 236 */ -#define TclResetCancellation \ - (tclIntStubsPtr->tclResetCancellation) /* 237 */ -#define TclNRInterpProc \ - (tclIntStubsPtr->tclNRInterpProc) /* 238 */ -#define TclNRInterpProcCore \ - (tclIntStubsPtr->tclNRInterpProcCore) /* 239 */ -#define TclNRRunCallbacks \ - (tclIntStubsPtr->tclNRRunCallbacks) /* 240 */ -#define TclNREvalObjEx \ - (tclIntStubsPtr->tclNREvalObjEx) /* 241 */ -#define TclNREvalObjv \ - (tclIntStubsPtr->tclNREvalObjv) /* 242 */ -#define TclDbDumpActiveObjects \ - (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ -#define TclGetNamespaceChildTable \ - (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */ -#define TclGetNamespaceCommandTable \ - (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */ -#define TclInitRewriteEnsemble \ - (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */ -#define TclResetRewriteEnsemble \ - (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */ -#define TclCopyChannel \ - (tclIntStubsPtr->tclCopyChannel) /* 248 */ -#define TclDoubleDigits \ - (tclIntStubsPtr->tclDoubleDigits) /* 249 */ -#define TclSetSlaveCancelFlags \ - (tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */ -#define TclRegisterLiteral \ - (tclIntStubsPtr->tclRegisterLiteral) /* 251 */ -#define TclPtrGetVar \ - (tclIntStubsPtr->tclPtrGetVar) /* 252 */ -#define TclPtrSetVar \ - (tclIntStubsPtr->tclPtrSetVar) /* 253 */ -#define TclPtrIncrObjVar \ - (tclIntStubsPtr->tclPtrIncrObjVar) /* 254 */ -#define TclPtrObjMakeUpvar \ - (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */ -#define TclPtrUnsetVar \ - (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */ -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -#define TclUnusedStubEntry \ - (tclIntStubsPtr->tclUnusedStubEntry) /* 259 */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TclGetStartupScriptFileName -#undef TclSetStartupScriptFileName -#undef TclGetStartupScriptPath -#undef TclSetStartupScriptPath -#undef TclBackgroundException - -#if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED) -# undef Tcl_SetStartupScript -# define Tcl_SetStartupScript \ - (tclStubsPtr->tcl_SetStartupScript) /* 622 */ -# undef Tcl_GetStartupScript -# define Tcl_GetStartupScript \ - (tclStubsPtr->tcl_GetStartupScript) /* 623 */ -# undef Tcl_CreateNamespace -# define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -# undef Tcl_DeleteNamespace -# define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -# undef Tcl_AppendExportList -# define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -# undef Tcl_Export -# define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -# undef Tcl_Import -# define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -# undef Tcl_ForgetImport -# define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -# undef Tcl_GetCurrentNamespace -# define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -# undef Tcl_GetGlobalNamespace -# define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -# undef Tcl_FindNamespace -# define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -# undef Tcl_FindCommand -# define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -# undef Tcl_GetCommandFromObj -# define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -# undef Tcl_GetCommandFullName -# define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif - -#undef TclCopyChannelOld -#undef TclSockMinimumBuffersOld - -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclIntPlatDecls.h deleted file mode 100644 index 903327fdc..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclIntPlatDecls.h +++ /dev/null @@ -1,562 +0,0 @@ -/* - * tclIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLINTPLATDECLS -#define _TCLINTPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - const char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -/* 7 */ -EXTERN TclFile TclpOpenFile(const char *fname, int mode); -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -/* 9 */ -EXTERN TclFile TclpCreateTempFile(const char *contents); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(const time_t *clock); -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(const time_t *clock); -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -/* 14 */ -EXTERN int TclUnixCopyFile(const char *src, const char *dst, - const Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -/* 30 */ -EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -#endif /* UNIX */ -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN void TclWinConvertError(DWORD errCode); -/* 1 */ -EXTERN void TclWinConvertWSAError(DWORD errCode); -/* 2 */ -EXTERN struct servent * TclWinGetServByName(const char *nm, - const char *proto); -/* 3 */ -EXTERN int TclWinGetSockOpt(SOCKET s, int level, int optname, - char *optval, int *optlen); -/* 4 */ -EXTERN HINSTANCE TclWinGetTclInstance(void); -/* 5 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -/* 6 */ -EXTERN unsigned short TclWinNToHS(unsigned short ns); -/* 7 */ -EXTERN int TclWinSetSockOpt(SOCKET s, int level, int optname, - const char *optval, int optlen); -/* 8 */ -EXTERN int TclpGetPid(Tcl_Pid pid); -/* 9 */ -EXTERN int TclWinGetPlatformId(void); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -/* 11 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -/* 12 */ -EXTERN int TclpCloseFile(TclFile file); -/* 13 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -/* 14 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -/* 15 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - const char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -/* 16 */ -EXTERN int TclpIsAtty(int fd); -/* 17 */ -EXTERN int TclUnixCopyFile(const char *src, const char *dst, - const Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -/* 18 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -/* 19 */ -EXTERN TclFile TclpOpenFile(const char *fname, int mode); -/* 20 */ -EXTERN void TclWinAddProcess(HANDLE hProcess, DWORD id); -/* 21 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -/* 22 */ -EXTERN TclFile TclpCreateTempFile(const char *contents); -/* Slot 23 is reserved */ -/* 24 */ -EXTERN char * TclWinNoBackslash(char *path); -/* Slot 25 is reserved */ -/* 26 */ -EXTERN void TclWinSetInterfaces(int wide); -/* 27 */ -EXTERN void TclWinFlushDirtyChannels(void); -/* 28 */ -EXTERN void TclWinResetInterfaces(void); -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -/* 30 */ -EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - const char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -/* 7 */ -EXTERN TclFile TclpOpenFile(const char *fname, int mode); -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -/* 9 */ -EXTERN TclFile TclpCreateTempFile(const char *contents); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(const time_t *clock); -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(const time_t *clock); -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -/* 14 */ -EXTERN int TclUnixCopyFile(const char *src, const char *dst, - const Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -/* 15 */ -EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj **attributePtrPtr); -/* 16 */ -EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj *attributePtr); -/* 17 */ -EXTERN int TclMacOSXCopyFileAttributes(const char *src, - const char *dst, - const Tcl_StatBuf *statBufPtr); -/* 18 */ -EXTERN int TclMacOSXMatchType(Tcl_Interp *interp, - const char *pathName, const char *fileName, - Tcl_StatBuf *statBufPtr, - Tcl_GlobTypeData *types); -/* 19 */ -EXTERN void TclMacOSXNotifierAddRunLoopMode( - const void *runLoopMode); -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -/* 30 */ -EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -#endif /* MACOSX */ - -typedef struct TclIntPlatStubs { - int magic; - void *hooks; - -#if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - void (*reserved5)(void); - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - void (*reserved15)(void); - void (*reserved16)(void); - void (*reserved17)(void); - void (*reserved18)(void); - void (*reserved19)(void); - void (*reserved20)(void); - void (*reserved21)(void); - void (*reserved22)(void); - void (*reserved23)(void); - void (*reserved24)(void); - void (*reserved25)(void); - void (*reserved26)(void); - void (*reserved27)(void); - void (*reserved28)(void); - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ - int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */ -#endif /* UNIX */ -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - void (*tclWinConvertError) (DWORD errCode); /* 0 */ - void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */ - struct servent * (*tclWinGetServByName) (const char *nm, const char *proto); /* 2 */ - int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */ - HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */ - unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */ - int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, const char *optval, int optlen); /* 7 */ - int (*tclpGetPid) (Tcl_Pid pid); /* 8 */ - int (*tclWinGetPlatformId) (void); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */ - int (*tclpCloseFile) (TclFile file); /* 12 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */ - int (*tclpIsAtty) (int fd); /* 16 */ - int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */ - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */ - TclFile (*tclpOpenFile) (const char *fname, int mode); /* 19 */ - void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */ - TclFile (*tclpCreateTempFile) (const char *contents); /* 22 */ - void (*reserved23)(void); - char * (*tclWinNoBackslash) (char *path); /* 24 */ - void (*reserved25)(void); - void (*tclWinSetInterfaces) (int wide); /* 26 */ - void (*tclWinFlushDirtyChannels) (void); /* 27 */ - void (*tclWinResetInterfaces) (void); /* 28 */ - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ - int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - void (*reserved5)(void); - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */ - int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */ - int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */ - int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */ - void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */ - void (*reserved20)(void); - void (*reserved21)(void); - void (*reserved22)(void); - void (*reserved23)(void); - void (*reserved24)(void); - void (*reserved25)(void); - void (*reserved26)(void); - void (*reserved27)(void); - void (*reserved28)(void); - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ - int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */ -#endif /* MACOSX */ -} TclIntPlatStubs; - -extern const TclIntPlatStubs *tclIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -/* Slot 5 is reserved */ -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#define TclUnixOpenTemporaryFile \ - (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */ -#endif /* UNIX */ -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define TclWinConvertError \ - (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ -#define TclWinConvertWSAError \ - (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ -#define TclWinGetServByName \ - (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ -#define TclWinGetSockOpt \ - (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ -#define TclWinGetTclInstance \ - (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */ -#define TclWinNToHS \ - (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ -#define TclWinSetSockOpt \ - (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ -#define TclpGetPid \ - (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ -#define TclWinGetPlatformId \ - (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ -#define TclpIsAtty \ - (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */ -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */ -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ -#define TclWinAddProcess \ - (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */ -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ -/* Slot 23 is reserved */ -#define TclWinNoBackslash \ - (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ -/* Slot 25 is reserved */ -#define TclWinSetInterfaces \ - (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ -#define TclWinFlushDirtyChannels \ - (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ -#define TclWinResetInterfaces \ - (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#define TclUnixOpenTemporaryFile \ - (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -/* Slot 5 is reserved */ -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -#define TclMacOSXGetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */ -#define TclMacOSXSetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */ -#define TclMacOSXCopyFileAttributes \ - (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */ -#define TclMacOSXMatchType \ - (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */ -#define TclMacOSXNotifierAddRunLoopMode \ - (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#define TclUnixOpenTemporaryFile \ - (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */ -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT -#undef TclpLocaltime_unix -#undef TclpGmtime_unix -#undef TclWinConvertWSAError -#define TclWinConvertWSAError TclWinConvertError -#undef TclpInetNtoa -#define TclpInetNtoa inet_ntoa - -#if defined(_WIN32) -# undef TclWinNToHS -# undef TclWinGetServByName -# undef TclWinGetSockOpt -# undef TclWinSetSockOpt -# define TclWinNToHS ntohs -# define TclWinGetServByName getservbyname -# define TclWinGetSockOpt getsockopt -# define TclWinSetSockOpt setsockopt -#else -# undef TclpGetPid -# define TclpGetPid(pid) ((unsigned long) (pid)) -#endif - -#endif /* _TCLINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclOO.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclOO.h deleted file mode 100644 index 32afbf154..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclOO.h +++ /dev/null @@ -1,147 +0,0 @@ -/* - * tclOO.h -- - * - * This file contains the public API definitions and some of the function - * declarations for the object-system (NB: not Tcl_Obj, but ::oo). - * - * Copyright (c) 2006-2010 by Donal K. Fellows - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef TCLOO_H_INCLUDED -#define TCLOO_H_INCLUDED - -/* - * Be careful when it comes to versioning; need to make sure that the - * standalone TclOO version matches. Also make sure that this matches the - * version in the files: - * - * tests/oo.test - * tests/ooNext2.test - * unix/tclooConfig.sh - * win/tclooConfig.sh - */ - -#define TCLOO_VERSION "1.1.0" -#define TCLOO_PATCHLEVEL TCLOO_VERSION - -#include "tcl.h" - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -extern const char *TclOOInitializeStubs( - Tcl_Interp *, const char *version); -#define Tcl_OOInitStubs(interp) \ - TclOOInitializeStubs((interp), TCLOO_VERSION) -#ifndef USE_TCL_STUBS -# define TclOOInitializeStubs(interp, version) (TCLOO_PATCHLEVEL) -#endif - -/* - * These are opaque types. - */ - -typedef struct Tcl_Class_ *Tcl_Class; -typedef struct Tcl_Method_ *Tcl_Method; -typedef struct Tcl_Object_ *Tcl_Object; -typedef struct Tcl_ObjectContext_ *Tcl_ObjectContext; - -/* - * Public datatypes for callbacks and structures used in the TIP#257 (OO) - * implementation. These are used to implement custom types of method calls - * and to allow the attachment of arbitrary data to objects and classes. - */ - -typedef int (Tcl_MethodCallProc)(ClientData clientData, Tcl_Interp *interp, - Tcl_ObjectContext objectContext, int objc, Tcl_Obj *const *objv); -typedef void (Tcl_MethodDeleteProc)(ClientData clientData); -typedef int (Tcl_CloneProc)(Tcl_Interp *interp, ClientData oldClientData, - ClientData *newClientData); -typedef void (Tcl_ObjectMetadataDeleteProc)(ClientData clientData); -typedef int (Tcl_ObjectMapMethodNameProc)(Tcl_Interp *interp, - Tcl_Object object, Tcl_Class *startClsPtr, Tcl_Obj *methodNameObj); - -/* - * The type of a method implementation. This describes how to call the method - * implementation, how to delete it (when the object or class is deleted) and - * how to create a clone of it (when the object or class is copied). - */ - -typedef struct { - int version; /* Structure version field. Always to be equal - * to TCL_OO_METHOD_VERSION_CURRENT in - * declarations. */ - const char *name; /* Name of this type of method, mostly for - * debugging purposes. */ - Tcl_MethodCallProc *callProc; - /* How to invoke this method. */ - Tcl_MethodDeleteProc *deleteProc; - /* How to delete this method's type-specific - * data, or NULL if the type-specific data - * does not need deleting. */ - Tcl_CloneProc *cloneProc; /* How to copy this method's type-specific - * data, or NULL if the type-specific data can - * be copied directly. */ -} Tcl_MethodType; - -/* - * The correct value for the version field of the Tcl_MethodType structure. - * This allows new versions of the structure to be introduced without breaking - * binary compatability. - */ - -#define TCL_OO_METHOD_VERSION_CURRENT 1 - -/* - * The type of some object (or class) metadata. This describes how to delete - * the metadata (when the object or class is deleted) and how to create a - * clone of it (when the object or class is copied). - */ - -typedef struct { - int version; /* Structure version field. Always to be equal - * to TCL_OO_METADATA_VERSION_CURRENT in - * declarations. */ - const char *name; - Tcl_ObjectMetadataDeleteProc *deleteProc; - /* How to delete the metadata. This must not - * be NULL. */ - Tcl_CloneProc *cloneProc; /* How to copy the metadata, or NULL if the - * type-specific data can be copied - * directly. */ -} Tcl_ObjectMetadataType; - -/* - * The correct value for the version field of the Tcl_ObjectMetadataType - * structure. This allows new versions of the structure to be introduced - * without breaking binary compatability. - */ - -#define TCL_OO_METADATA_VERSION_CURRENT 1 - -/* - * Include all the public API, generated from tclOO.decls. - */ - -#include "tclOODecls.h" - -#ifdef __cplusplus -} -#endif -#endif - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclOODecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclOODecls.h deleted file mode 100644 index 9fd62ec66..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclOODecls.h +++ /dev/null @@ -1,234 +0,0 @@ -/* - * This file is (mostly) automatically generated from tclOO.decls. - */ - -#ifndef _TCLOODECLS -#define _TCLOODECLS - -#ifndef TCLAPI -# ifdef BUILD_tcl -# define TCLAPI extern DLLEXPORT -# else -# define TCLAPI extern DLLIMPORT -# endif -#endif - -#ifdef USE_TCL_STUBS -# undef USE_TCLOO_STUBS -# define USE_TCLOO_STUBS -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -TCLAPI Tcl_Object Tcl_CopyObjectInstance(Tcl_Interp *interp, - Tcl_Object sourceObject, - const char *targetName, - const char *targetNamespaceName); -/* 1 */ -TCLAPI Tcl_Object Tcl_GetClassAsObject(Tcl_Class clazz); -/* 2 */ -TCLAPI Tcl_Class Tcl_GetObjectAsClass(Tcl_Object object); -/* 3 */ -TCLAPI Tcl_Command Tcl_GetObjectCommand(Tcl_Object object); -/* 4 */ -TCLAPI Tcl_Object Tcl_GetObjectFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 5 */ -TCLAPI Tcl_Namespace * Tcl_GetObjectNamespace(Tcl_Object object); -/* 6 */ -TCLAPI Tcl_Class Tcl_MethodDeclarerClass(Tcl_Method method); -/* 7 */ -TCLAPI Tcl_Object Tcl_MethodDeclarerObject(Tcl_Method method); -/* 8 */ -TCLAPI int Tcl_MethodIsPublic(Tcl_Method method); -/* 9 */ -TCLAPI int Tcl_MethodIsType(Tcl_Method method, - const Tcl_MethodType *typePtr, - ClientData *clientDataPtr); -/* 10 */ -TCLAPI Tcl_Obj * Tcl_MethodName(Tcl_Method method); -/* 11 */ -TCLAPI Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp, - Tcl_Object object, Tcl_Obj *nameObj, - int isPublic, const Tcl_MethodType *typePtr, - ClientData clientData); -/* 12 */ -TCLAPI Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls, - Tcl_Obj *nameObj, int isPublic, - const Tcl_MethodType *typePtr, - ClientData clientData); -/* 13 */ -TCLAPI Tcl_Object Tcl_NewObjectInstance(Tcl_Interp *interp, - Tcl_Class cls, const char *nameStr, - const char *nsNameStr, int objc, - Tcl_Obj *const *objv, int skip); -/* 14 */ -TCLAPI int Tcl_ObjectDeleted(Tcl_Object object); -/* 15 */ -TCLAPI int Tcl_ObjectContextIsFiltering( - Tcl_ObjectContext context); -/* 16 */ -TCLAPI Tcl_Method Tcl_ObjectContextMethod(Tcl_ObjectContext context); -/* 17 */ -TCLAPI Tcl_Object Tcl_ObjectContextObject(Tcl_ObjectContext context); -/* 18 */ -TCLAPI int Tcl_ObjectContextSkippedArgs( - Tcl_ObjectContext context); -/* 19 */ -TCLAPI ClientData Tcl_ClassGetMetadata(Tcl_Class clazz, - const Tcl_ObjectMetadataType *typePtr); -/* 20 */ -TCLAPI void Tcl_ClassSetMetadata(Tcl_Class clazz, - const Tcl_ObjectMetadataType *typePtr, - ClientData metadata); -/* 21 */ -TCLAPI ClientData Tcl_ObjectGetMetadata(Tcl_Object object, - const Tcl_ObjectMetadataType *typePtr); -/* 22 */ -TCLAPI void Tcl_ObjectSetMetadata(Tcl_Object object, - const Tcl_ObjectMetadataType *typePtr, - ClientData metadata); -/* 23 */ -TCLAPI int Tcl_ObjectContextInvokeNext(Tcl_Interp *interp, - Tcl_ObjectContext context, int objc, - Tcl_Obj *const *objv, int skip); -/* 24 */ -TCLAPI Tcl_ObjectMapMethodNameProc * Tcl_ObjectGetMethodNameMapper( - Tcl_Object object); -/* 25 */ -TCLAPI void Tcl_ObjectSetMethodNameMapper(Tcl_Object object, - Tcl_ObjectMapMethodNameProc *mapMethodNameProc); -/* 26 */ -TCLAPI void Tcl_ClassSetConstructor(Tcl_Interp *interp, - Tcl_Class clazz, Tcl_Method method); -/* 27 */ -TCLAPI void Tcl_ClassSetDestructor(Tcl_Interp *interp, - Tcl_Class clazz, Tcl_Method method); -/* 28 */ -TCLAPI Tcl_Obj * Tcl_GetObjectName(Tcl_Interp *interp, - Tcl_Object object); - -typedef struct { - const struct TclOOIntStubs *tclOOIntStubs; -} TclOOStubHooks; - -typedef struct TclOOStubs { - int magic; - const TclOOStubHooks *hooks; - - Tcl_Object (*tcl_CopyObjectInstance) (Tcl_Interp *interp, Tcl_Object sourceObject, const char *targetName, const char *targetNamespaceName); /* 0 */ - Tcl_Object (*tcl_GetClassAsObject) (Tcl_Class clazz); /* 1 */ - Tcl_Class (*tcl_GetObjectAsClass) (Tcl_Object object); /* 2 */ - Tcl_Command (*tcl_GetObjectCommand) (Tcl_Object object); /* 3 */ - Tcl_Object (*tcl_GetObjectFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 4 */ - Tcl_Namespace * (*tcl_GetObjectNamespace) (Tcl_Object object); /* 5 */ - Tcl_Class (*tcl_MethodDeclarerClass) (Tcl_Method method); /* 6 */ - Tcl_Object (*tcl_MethodDeclarerObject) (Tcl_Method method); /* 7 */ - int (*tcl_MethodIsPublic) (Tcl_Method method); /* 8 */ - int (*tcl_MethodIsType) (Tcl_Method method, const Tcl_MethodType *typePtr, ClientData *clientDataPtr); /* 9 */ - Tcl_Obj * (*tcl_MethodName) (Tcl_Method method); /* 10 */ - Tcl_Method (*tcl_NewInstanceMethod) (Tcl_Interp *interp, Tcl_Object object, Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, ClientData clientData); /* 11 */ - Tcl_Method (*tcl_NewMethod) (Tcl_Interp *interp, Tcl_Class cls, Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, ClientData clientData); /* 12 */ - Tcl_Object (*tcl_NewObjectInstance) (Tcl_Interp *interp, Tcl_Class cls, const char *nameStr, const char *nsNameStr, int objc, Tcl_Obj *const *objv, int skip); /* 13 */ - int (*tcl_ObjectDeleted) (Tcl_Object object); /* 14 */ - int (*tcl_ObjectContextIsFiltering) (Tcl_ObjectContext context); /* 15 */ - Tcl_Method (*tcl_ObjectContextMethod) (Tcl_ObjectContext context); /* 16 */ - Tcl_Object (*tcl_ObjectContextObject) (Tcl_ObjectContext context); /* 17 */ - int (*tcl_ObjectContextSkippedArgs) (Tcl_ObjectContext context); /* 18 */ - ClientData (*tcl_ClassGetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType *typePtr); /* 19 */ - void (*tcl_ClassSetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType *typePtr, ClientData metadata); /* 20 */ - ClientData (*tcl_ObjectGetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType *typePtr); /* 21 */ - void (*tcl_ObjectSetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType *typePtr, ClientData metadata); /* 22 */ - int (*tcl_ObjectContextInvokeNext) (Tcl_Interp *interp, Tcl_ObjectContext context, int objc, Tcl_Obj *const *objv, int skip); /* 23 */ - Tcl_ObjectMapMethodNameProc * (*tcl_ObjectGetMethodNameMapper) (Tcl_Object object); /* 24 */ - void (*tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMapMethodNameProc *mapMethodNameProc); /* 25 */ - void (*tcl_ClassSetConstructor) (Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method); /* 26 */ - void (*tcl_ClassSetDestructor) (Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method); /* 27 */ - Tcl_Obj * (*tcl_GetObjectName) (Tcl_Interp *interp, Tcl_Object object); /* 28 */ -} TclOOStubs; - -extern const TclOOStubs *tclOOStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCLOO_STUBS) - -/* - * Inline function declarations: - */ - -#define Tcl_CopyObjectInstance \ - (tclOOStubsPtr->tcl_CopyObjectInstance) /* 0 */ -#define Tcl_GetClassAsObject \ - (tclOOStubsPtr->tcl_GetClassAsObject) /* 1 */ -#define Tcl_GetObjectAsClass \ - (tclOOStubsPtr->tcl_GetObjectAsClass) /* 2 */ -#define Tcl_GetObjectCommand \ - (tclOOStubsPtr->tcl_GetObjectCommand) /* 3 */ -#define Tcl_GetObjectFromObj \ - (tclOOStubsPtr->tcl_GetObjectFromObj) /* 4 */ -#define Tcl_GetObjectNamespace \ - (tclOOStubsPtr->tcl_GetObjectNamespace) /* 5 */ -#define Tcl_MethodDeclarerClass \ - (tclOOStubsPtr->tcl_MethodDeclarerClass) /* 6 */ -#define Tcl_MethodDeclarerObject \ - (tclOOStubsPtr->tcl_MethodDeclarerObject) /* 7 */ -#define Tcl_MethodIsPublic \ - (tclOOStubsPtr->tcl_MethodIsPublic) /* 8 */ -#define Tcl_MethodIsType \ - (tclOOStubsPtr->tcl_MethodIsType) /* 9 */ -#define Tcl_MethodName \ - (tclOOStubsPtr->tcl_MethodName) /* 10 */ -#define Tcl_NewInstanceMethod \ - (tclOOStubsPtr->tcl_NewInstanceMethod) /* 11 */ -#define Tcl_NewMethod \ - (tclOOStubsPtr->tcl_NewMethod) /* 12 */ -#define Tcl_NewObjectInstance \ - (tclOOStubsPtr->tcl_NewObjectInstance) /* 13 */ -#define Tcl_ObjectDeleted \ - (tclOOStubsPtr->tcl_ObjectDeleted) /* 14 */ -#define Tcl_ObjectContextIsFiltering \ - (tclOOStubsPtr->tcl_ObjectContextIsFiltering) /* 15 */ -#define Tcl_ObjectContextMethod \ - (tclOOStubsPtr->tcl_ObjectContextMethod) /* 16 */ -#define Tcl_ObjectContextObject \ - (tclOOStubsPtr->tcl_ObjectContextObject) /* 17 */ -#define Tcl_ObjectContextSkippedArgs \ - (tclOOStubsPtr->tcl_ObjectContextSkippedArgs) /* 18 */ -#define Tcl_ClassGetMetadata \ - (tclOOStubsPtr->tcl_ClassGetMetadata) /* 19 */ -#define Tcl_ClassSetMetadata \ - (tclOOStubsPtr->tcl_ClassSetMetadata) /* 20 */ -#define Tcl_ObjectGetMetadata \ - (tclOOStubsPtr->tcl_ObjectGetMetadata) /* 21 */ -#define Tcl_ObjectSetMetadata \ - (tclOOStubsPtr->tcl_ObjectSetMetadata) /* 22 */ -#define Tcl_ObjectContextInvokeNext \ - (tclOOStubsPtr->tcl_ObjectContextInvokeNext) /* 23 */ -#define Tcl_ObjectGetMethodNameMapper \ - (tclOOStubsPtr->tcl_ObjectGetMethodNameMapper) /* 24 */ -#define Tcl_ObjectSetMethodNameMapper \ - (tclOOStubsPtr->tcl_ObjectSetMethodNameMapper) /* 25 */ -#define Tcl_ClassSetConstructor \ - (tclOOStubsPtr->tcl_ClassSetConstructor) /* 26 */ -#define Tcl_ClassSetDestructor \ - (tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */ -#define Tcl_GetObjectName \ - (tclOOStubsPtr->tcl_GetObjectName) /* 28 */ - -#endif /* defined(USE_TCLOO_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLOODECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclPlatDecls.h deleted file mode 100644 index abc8ee817..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclPlatDecls.h +++ /dev/null @@ -1,122 +0,0 @@ -/* - * tclPlatDecls.h -- - * - * Declarations of platform specific Tcl APIs. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLPLATDECLS -#define _TCLPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* - * TCHAR is needed here for win32, so if it is not defined yet do it here. - * This way, we don't need to include just for one define. - */ -#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) -# if defined(_UNICODE) - typedef wchar_t TCHAR; -# else - typedef char TCHAR; -# endif -# define _TCHAR_DEFINED -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len, - Tcl_DString *dsPtr); -/* 1 */ -EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len, - Tcl_DString *dsPtr); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 0 */ -EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, - const char *bundleName, int hasResourceFile, - int maxPathLen, char *libraryPath); -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources( - Tcl_Interp *interp, const char *bundleName, - const char *bundleVersion, - int hasResourceFile, int maxPathLen, - char *libraryPath); -#endif /* MACOSX */ - -typedef struct TclPlatStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - TCHAR * (*tcl_WinUtfToTChar) (const char *str, int len, Tcl_DString *dsPtr); /* 0 */ - char * (*tcl_WinTCharToUtf) (const TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, const char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ - int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */ -#endif /* MACOSX */ -} TclPlatStubs; - -extern const TclPlatStubs *tclPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define Tcl_WinUtfToTChar \ - (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ -#define Tcl_WinTCharToUtf \ - (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_MacOSXOpenBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLPLATDECLS */ - - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclPort.h deleted file mode 100644 index 94855677d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclPort.h +++ /dev/null @@ -1,46 +0,0 @@ -/* - * tclPort.h -- - * - * This header file handles porting issues that occur because - * of differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1994-1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLPORT -#define _TCLPORT - -#ifdef HAVE_TCL_CONFIG_H -#include "tclConfig.h" -#endif -#if defined(_WIN32) -# include "tclWinPort.h" -#else -# include "tclUnixPort.h" -#endif -#include "tcl.h" - -#if !defined(LLONG_MIN) -# ifdef TCL_WIDE_INT_IS_LONG -# define LLONG_MIN LONG_MIN -# else -# ifdef LLONG_BIT -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<(LLONG_BIT-1))) -# else -/* Assume we're on a system with a 64-bit 'long long' type */ -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<63)) -# endif -# endif -/* Assume that if LLONG_MIN is undefined, then so is LLONG_MAX */ -# define LLONG_MAX (~LLONG_MIN) -#endif - -#define UWIDE_MAX ((Tcl_WideUInt)-1) -#define WIDE_MAX ((Tcl_WideInt)(UWIDE_MAX >> 1)) -#define WIDE_MIN ((Tcl_WideInt)((Tcl_WideUInt)WIDE_MAX+1)) - -#endif /* _TCLPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclTomMath.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclTomMath.h deleted file mode 100644 index 85b0b4b64..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclTomMath.h +++ /dev/null @@ -1,1122 +0,0 @@ -/* LibTomMath, multiple-precision integer library -- Tom St Denis */ -/* SPDX-License-Identifier: Unlicense */ - -#ifndef BN_H_ -#define BN_H_ - -#ifndef MODULE_SCOPE -#define MODULE_SCOPE extern -#endif - - - -#ifdef __cplusplus -extern "C" { -#endif - -/* MS Visual C++ doesn't have a 128bit type for words, so fall back to 32bit MPI's (where words are 64bit) */ -#if (defined(_WIN32) || defined(__LLP64__) || defined(__e2k__) || defined(__LCC__)) && !defined(MP_64BIT) -# define MP_32BIT -#endif - -/* detect 64-bit mode if possible */ -#if defined(NEVER) -# if !(defined(MP_32BIT) || defined(MP_16BIT) || defined(MP_8BIT)) -# if defined(__GNUC__) -/* we support 128bit integers only via: __attribute__((mode(TI))) */ -# define MP_64BIT -# else -/* otherwise we fall back to MP_32BIT even on 64bit platforms */ -# define MP_32BIT -# endif -# endif -#endif - -#ifdef MP_DIGIT_BIT -# error Defining MP_DIGIT_BIT is disallowed, use MP_8/16/31/32/64BIT -#endif - -/* some default configurations. - * - * A "mp_digit" must be able to hold MP_DIGIT_BIT + 1 bits - * A "mp_word" must be able to hold 2*MP_DIGIT_BIT + 1 bits - * - * At the very least a mp_digit must be able to hold 7 bits - * [any size beyond that is ok provided it doesn't overflow the data type] - */ - -#ifdef MP_8BIT -#ifndef MP_DIGIT_DECLARED -typedef unsigned char mp_digit; -#define MP_DIGIT_DECLARED -#endif -#ifndef MP_WORD_DECLARED -typedef unsigned short private_mp_word; -#define MP_WORD_DECLARED -#endif -# define MP_SIZEOF_MP_DIGIT 1 -# ifdef MP_DIGIT_BIT -# error You must not define MP_DIGIT_BIT when using MP_8BIT -# endif -#elif defined(MP_16BIT) -#ifndef MP_DIGIT_DECLARED -typedef unsigned short mp_digit; -#define MP_DIGIT_DECLARED -#endif -#ifndef MP_WORD_DECLARED -typedef unsigned int private_mp_word; -#define MP_WORD_DECLARED -#endif -# define MP_SIZEOF_MP_DIGIT 2 -# ifdef MP_DIGIT_BIT -# error You must not define MP_DIGIT_BIT when using MP_16BIT -# endif -#elif defined(MP_64BIT) -/* for GCC only on supported platforms */ -#ifndef MP_DIGIT_DECLARED -typedef unsigned long long mp_digit; -#define MP_DIGIT_DECLARED -#endif -typedef unsigned long private_mp_word __attribute__((mode(TI))); -# define MP_DIGIT_BIT 60 -#else -/* this is the default case, 28-bit digits */ - -/* this is to make porting into LibTomCrypt easier :-) */ -#ifndef MP_DIGIT_DECLARED -typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED -#endif -#ifndef MP_WORD_DECLARED -#ifdef _WIN32 -typedef unsigned __int64 private_mp_word; -#else -typedef unsigned long long private_mp_word; -#endif -#define MP_WORD_DECLARED -#endif - -# ifdef MP_31BIT -/* - * This is an extension that uses 31-bit digits. - * Please be aware that not all functions support this size, especially s_mp_mul_digs_fast - * will be reduced to work on small numbers only: - * Up to 8 limbs, 248 bits instead of up to 512 limbs, 15872 bits with MP_28BIT. - */ -# define MP_DIGIT_BIT 31 -# else -/* default case is 28-bit digits, defines MP_28BIT as a handy macro to test */ -# define MP_DIGIT_BIT 28 -# define MP_28BIT -# endif -#endif - -/* otherwise the bits per digit is calculated automatically from the size of a mp_digit */ -#ifndef MP_DIGIT_BIT -# define MP_DIGIT_BIT (((CHAR_BIT * MP_SIZEOF_MP_DIGIT) - 1)) /* bits per digit */ -#endif - -#define MP_MASK ((((mp_digit)1)<<((mp_digit)MP_DIGIT_BIT))-((mp_digit)1)) -#define MP_DIGIT_MAX MP_MASK - -/* Primality generation flags */ -#define MP_PRIME_BBS 0x0001 /* BBS style prime */ -#define MP_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */ -#define MP_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */ - -#define LTM_PRIME_BBS (MP_DEPRECATED_PRAGMA("LTM_PRIME_BBS has been deprecated, use MP_PRIME_BBS") MP_PRIME_BBS) -#define LTM_PRIME_SAFE (MP_DEPRECATED_PRAGMA("LTM_PRIME_SAFE has been deprecated, use MP_PRIME_SAFE") MP_PRIME_SAFE) -#define LTM_PRIME_2MSB_ON (MP_DEPRECATED_PRAGMA("LTM_PRIME_2MSB_ON has been deprecated, use MP_PRIME_2MSB_ON") MP_PRIME_2MSB_ON) - -#ifdef MP_USE_ENUMS -typedef enum { - MP_ZPOS = 0, /* positive */ - MP_NEG = 1 /* negative */ -} mp_sign; -typedef enum { - MP_LT = -1, /* less than */ - MP_EQ = 0, /* equal */ - MP_GT = 1 /* greater than */ -} mp_ord; -typedef enum { - MP_NO = 0, - MP_YES = 1 -} mp_bool; -typedef enum { - MP_OKAY = 0, /* no error */ - MP_ERR = -1, /* unknown error */ - MP_MEM = -2, /* out of mem */ - MP_VAL = -3, /* invalid input */ - MP_ITER = -4, /* maximum iterations reached */ - MP_BUF = -5 /* buffer overflow, supplied buffer too small */ -} mp_err; -typedef enum { - MP_LSB_FIRST = -1, - MP_MSB_FIRST = 1 -} mp_order; -typedef enum { - MP_LITTLE_ENDIAN = -1, - MP_NATIVE_ENDIAN = 0, - MP_BIG_ENDIAN = 1 -} mp_endian; -#else -typedef int mp_sign; -#define MP_ZPOS 0 /* positive integer */ -#define MP_NEG 1 /* negative */ -typedef int mp_ord; -#define MP_LT -1 /* less than */ -#define MP_EQ 0 /* equal to */ -#define MP_GT 1 /* greater than */ -typedef int mp_bool; -#define MP_YES 1 -#define MP_NO 0 -typedef int mp_err; -#define MP_OKAY 0 /* no error */ -#define MP_ERR -1 /* unknown error */ -#define MP_MEM -2 /* out of mem */ -#define MP_VAL -3 /* invalid input */ -#define MP_RANGE (MP_DEPRECATED_PRAGMA("MP_RANGE has been deprecated in favor of MP_VAL") MP_VAL) -#define MP_ITER -4 /* maximum iterations reached */ -#define MP_BUF -5 /* buffer overflow, supplied buffer too small */ -typedef int mp_order; -#define MP_LSB_FIRST -1 -#define MP_MSB_FIRST 1 -typedef int mp_endian; -#define MP_LITTLE_ENDIAN -1 -#define MP_NATIVE_ENDIAN 0 -#define MP_BIG_ENDIAN 1 -#endif - -/* tunable cutoffs */ - -#ifndef MP_FIXED_CUTOFFS -extern int -KARATSUBA_MUL_CUTOFF, -KARATSUBA_SQR_CUTOFF, -TOOM_MUL_CUTOFF, -TOOM_SQR_CUTOFF; -#endif - -/* define this to use lower memory usage routines (exptmods mostly) */ -/* #define MP_LOW_MEM */ - -/* default precision */ -#ifndef MP_PREC -# ifndef MP_LOW_MEM -# define MP_PREC 32 /* default digits of precision */ -# elif defined(MP_8BIT) -# define MP_PREC 16 /* default digits of precision */ -# else -# define MP_PREC 8 /* default digits of precision */ -# endif -#endif - -/* size of comba arrays, should be at least 2 * 2**(BITS_PER_WORD - BITS_PER_DIGIT*2) */ -#define PRIVATE_MP_WARRAY (int)(1 << (((CHAR_BIT * sizeof(private_mp_word)) - (2 * MP_DIGIT_BIT)) + 1)) - -#if defined(__GNUC__) && __GNUC__ >= 4 -# define MP_NULL_TERMINATED __attribute__((sentinel)) -#else -# define MP_NULL_TERMINATED -#endif - -/* - * MP_WUR - warn unused result - * --------------------------- - * - * The result of functions annotated with MP_WUR must be - * checked and cannot be ignored. - * - * Most functions in libtommath return an error code. - * This error code must be checked in order to prevent crashes or invalid - * results. - * - * If you still want to avoid the error checks for quick and dirty programs - * without robustness guarantees, you can `#define MP_WUR` before including - * tommath.h, disabling the warnings. - */ -#ifndef MP_WUR -# if defined(__GNUC__) && __GNUC__ >= 4 -# define MP_WUR __attribute__((warn_unused_result)) -# else -# define MP_WUR -# endif -#endif - -#if defined(__GNUC__) && (__GNUC__ * 100 + __GNUC_MINOR__ >= 405) -# define MP_DEPRECATED(x) __attribute__((deprecated("replaced by " #x))) -# define PRIVATE_MP_DEPRECATED_PRAGMA(s) _Pragma(#s) -# define MP_DEPRECATED_PRAGMA(s) PRIVATE_MP_DEPRECATED_PRAGMA(GCC warning s) -#elif defined(_MSC_VER) && _MSC_VER >= 1500 -# define MP_DEPRECATED(x) __declspec(deprecated("replaced by " #x)) -# define MP_DEPRECATED_PRAGMA(s) __pragma(message(s)) -#else -# define MP_DEPRECATED(s) -# define MP_DEPRECATED_PRAGMA(s) -#endif - -#define DIGIT_BIT MP_DIGIT_BIT -#define USED(m) ((m)->used) -#define DIGIT(m,k) ((m)->dp[(k)]) -#define SIGN(m) ((m)->sign) - -/* the infamous mp_int structure */ -#ifndef MP_INT_DECLARED -#define MP_INT_DECLARED -typedef struct mp_int mp_int; -#endif -struct mp_int { - int used, alloc; - mp_sign sign; - mp_digit *dp; -}; - -/* callback for mp_prime_random, should fill dst with random bytes and return how many read [upto len] */ -typedef int private_mp_prime_callback(unsigned char *dst, int len, void *dat); -typedef private_mp_prime_callback MP_DEPRECATED(mp_rand_source) ltm_prime_callback; - -/* error code to char* string */ -/* -const char *mp_error_to_string(mp_err code) MP_WUR; -*/ - -/* ---> init and deinit bignum functions <--- */ -/* init a bignum */ -/* -mp_err mp_init(mp_int *a) MP_WUR; -*/ - -/* free a bignum */ -/* -void mp_clear(mp_int *a); -*/ - -/* init a null terminated series of arguments */ -/* -mp_err mp_init_multi(mp_int *mp, ...) MP_NULL_TERMINATED MP_WUR; -*/ - -/* clear a null terminated series of arguments */ -/* -void mp_clear_multi(mp_int *mp, ...) MP_NULL_TERMINATED; -*/ - -/* exchange two ints */ -/* -void mp_exch(mp_int *a, mp_int *b); -*/ - -/* shrink ram required for a bignum */ -/* -mp_err mp_shrink(mp_int *a) MP_WUR; -*/ - -/* grow an int to a given size */ -/* -mp_err mp_grow(mp_int *a, int size) MP_WUR; -*/ - -/* init to a given number of digits */ -/* -mp_err mp_init_size(mp_int *a, int size) MP_WUR; -*/ - -/* ---> Basic Manipulations <--- */ -#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO) -#define mp_isodd(a) (((a)->used != 0 && (((a)->dp[0] & 1) == 1)) ? MP_YES : MP_NO) -#define mp_iseven(a) (((a)->used == 0 || (((a)->dp[0] & 1) == 0)) ? MP_YES : MP_NO) -#define mp_isneg(a) (((a)->sign != MP_ZPOS) ? MP_YES : MP_NO) - -/* set to zero */ -/* -void mp_zero(mp_int *a); -*/ - -/* get and set doubles */ -/* -double mp_get_double(const mp_int *a) MP_WUR; -*/ -/* -mp_err mp_set_double(mp_int *a, double b) MP_WUR; -*/ - -/* get integer, set integer and init with integer (int32_t) */ -#ifndef MP_NO_STDINT -/* -int32_t mp_get_i32(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_i32(mp_int *a, int32_t b); -*/ -/* -mp_err mp_init_i32(mp_int *a, int32_t b) MP_WUR; -*/ - -/* get integer, set integer and init with integer, behaves like two complement for negative numbers (uint32_t) */ -#define mp_get_u32(a) ((uint32_t)mp_get_i32(a)) -/* -void mp_set_u32(mp_int *a, uint32_t b); -*/ -/* -mp_err mp_init_u32(mp_int *a, uint32_t b) MP_WUR; -*/ - -/* get integer, set integer and init with integer (int64_t) */ -/* -int64_t mp_get_i64(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_i64(mp_int *a, int64_t b); -*/ -/* -mp_err mp_init_i64(mp_int *a, int64_t b) MP_WUR; -*/ - -/* get integer, set integer and init with integer, behaves like two complement for negative numbers (uint64_t) */ -#define mp_get_u64(a) ((uint64_t)mp_get_i64(a)) -/* -void mp_set_u64(mp_int *a, uint64_t b); -*/ -/* -mp_err mp_init_u64(mp_int *a, uint64_t b) MP_WUR; -*/ - -/* get magnitude */ -/* -uint32_t mp_get_mag_u32(const mp_int *a) MP_WUR; -*/ -/* -uint64_t mp_get_mag_u64(const mp_int *a) MP_WUR; -*/ -#endif -/* -unsigned long mp_get_mag_ul(const mp_int *a) MP_WUR; -*/ -/* -Tcl_WideUInt mp_get_mag_ull(const mp_int *a) MP_WUR; -*/ - -/* get integer, set integer (long) */ -/* -long mp_get_l(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_l(mp_int *a, long b); -*/ -/* -mp_err mp_init_l(mp_int *a, long b) MP_WUR; -*/ - -/* get integer, set integer (unsigned long) */ -#define mp_get_ul(a) ((unsigned long)mp_get_l(a)) -/* -void mp_set_ul(mp_int *a, unsigned long b); -*/ -/* -mp_err mp_init_ul(mp_int *a, unsigned long b) MP_WUR; -*/ - -/* get integer, set integer (Tcl_WideInt) */ -/* -Tcl_WideInt mp_get_ll(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_ll(mp_int *a, Tcl_WideInt b); -*/ -/* -mp_err mp_init_ll(mp_int *a, Tcl_WideInt b) MP_WUR; -*/ - -/* get integer, set integer (Tcl_WideUInt) */ -#define mp_get_ull(a) ((Tcl_WideUInt)mp_get_ll(a)) -/* -void mp_set_ull(mp_int *a, Tcl_WideUInt b); -*/ -/* -mp_err mp_init_ull(mp_int *a, Tcl_WideUInt b) MP_WUR; -*/ - -/* set to single unsigned digit, up to MP_DIGIT_MAX */ -/* -void mp_set(mp_int *a, mp_digit b); -*/ -/* -mp_err mp_init_set(mp_int *a, mp_digit b) MP_WUR; -*/ - -/* get integer, set integer and init with integer (deprecated) */ -/* -MP_DEPRECATED(mp_get_mag_u32/mp_get_u32) unsigned long mp_get_int(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_get_mag_ul/mp_get_ul) unsigned long mp_get_long(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_get_mag_ull/mp_get_ull) Tcl_WideUInt mp_get_long_long(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_set_ul) mp_err mp_set_int(mp_int *a, unsigned long b); -*/ -/* -MP_DEPRECATED(mp_set_ul) mp_err mp_set_long(mp_int *a, unsigned long b); -*/ -/* -MP_DEPRECATED(mp_set_ull) mp_err mp_set_long_long(mp_int *a, Tcl_WideUInt b); -*/ -/* -MP_DEPRECATED(mp_init_ul) mp_err mp_init_set_int(mp_int *a, unsigned long b) MP_WUR; -*/ - -/* copy, b = a */ -/* -mp_err mp_copy(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* inits and copies, a = b */ -/* -mp_err mp_init_copy(mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* trim unused digits */ -/* -void mp_clamp(mp_int *a); -*/ - -/* export binary data */ -/* -MP_DEPRECATED(mp_pack) mp_err mp_export(void *rop, size_t *countp, int order, size_t size, - int endian, size_t nails, const mp_int *op) MP_WUR; -*/ - -/* import binary data */ -/* -MP_DEPRECATED(mp_unpack) mp_err mp_import(mp_int *rop, size_t count, int order, - size_t size, int endian, size_t nails, - const void *op) MP_WUR; -*/ - -/* unpack binary data */ -/* -mp_err mp_unpack(mp_int *rop, size_t count, mp_order order, size_t size, mp_endian endian, - size_t nails, const void *op) MP_WUR; -*/ - -/* pack binary data */ -/* -size_t mp_pack_count(const mp_int *a, size_t nails, size_t size) MP_WUR; -*/ -/* -mp_err mp_pack(void *rop, size_t maxcount, size_t *written, mp_order order, size_t size, - mp_endian endian, size_t nails, const mp_int *op) MP_WUR; -*/ - -/* ---> digit manipulation <--- */ - -/* right shift by "b" digits */ -/* -void mp_rshd(mp_int *a, int b); -*/ - -/* left shift by "b" digits */ -/* -mp_err mp_lshd(mp_int *a, int b) MP_WUR; -*/ - -/* c = a / 2**b, implemented as c = a >> b */ -/* -mp_err mp_div_2d(const mp_int *a, int b, mp_int *c, mp_int *d) MP_WUR; -*/ - -/* b = a/2 */ -/* -mp_err mp_div_2(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* a/3 => 3c + d == a */ -/* -mp_err mp_div_3(const mp_int *a, mp_int *c, mp_digit *d) MP_WUR; -*/ - -/* c = a * 2**b, implemented as c = a << b */ -/* -mp_err mp_mul_2d(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ - -/* b = a*2 */ -/* -mp_err mp_mul_2(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* c = a mod 2**b */ -/* -mp_err mp_mod_2d(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ - -/* computes a = 2**b */ -/* -mp_err mp_2expt(mp_int *a, int b) MP_WUR; -*/ - -/* Counts the number of lsbs which are zero before the first zero bit */ -/* -int mp_cnt_lsb(const mp_int *a) MP_WUR; -*/ - -/* I Love Earth! */ - -/* makes a pseudo-random mp_int of a given size */ -/* -mp_err mp_rand(mp_int *a, int digits) MP_WUR; -*/ -/* makes a pseudo-random small int of a given size */ -/* -MP_DEPRECATED(mp_rand) mp_err mp_rand_digit(mp_digit *r) MP_WUR; -*/ -/* use custom random data source instead of source provided the platform */ -/* -void mp_rand_source(mp_err(*source)(void *out, size_t size)); -*/ - -#ifdef MP_PRNG_ENABLE_LTM_RNG -/* A last resort to provide random data on systems without any of the other - * implemented ways to gather entropy. - * It is compatible with `rng_get_bytes()` from libtomcrypt so you could - * provide that one and then set `ltm_rng = rng_get_bytes;` */ -extern unsigned long (*ltm_rng)(unsigned char *out, unsigned long outlen, void (*callback)(void)); -extern void (*ltm_rng_callback)(void); -#endif - -/* ---> binary operations <--- */ - -/* Checks the bit at position b and returns MP_YES - * if the bit is 1, MP_NO if it is 0 and MP_VAL - * in case of error - */ -/* -MP_DEPRECATED(s_mp_get_bit) int mp_get_bit(const mp_int *a, int b) MP_WUR; -*/ - -/* c = a XOR b (two complement) */ -/* -MP_DEPRECATED(mp_xor) mp_err mp_tc_xor(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_xor(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a OR b (two complement) */ -/* -MP_DEPRECATED(mp_or) mp_err mp_tc_or(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_or(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a AND b (two complement) */ -/* -MP_DEPRECATED(mp_and) mp_err mp_tc_and(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_and(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* b = ~a (bitwise not, two complement) */ -/* -mp_err mp_complement(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* right shift with sign extension */ -/* -MP_DEPRECATED(mp_signed_rsh) mp_err mp_tc_div_2d(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_signed_rsh(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ - -/* ---> Basic arithmetic <--- */ - -/* b = -a */ -/* -mp_err mp_neg(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* b = |a| */ -/* -mp_err mp_abs(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* compare a to b */ -/* -mp_ord mp_cmp(const mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* compare |a| to |b| */ -/* -mp_ord mp_cmp_mag(const mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* c = a + b */ -/* -mp_err mp_add(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a - b */ -/* -mp_err mp_sub(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a * b */ -/* -mp_err mp_mul(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* b = a*a */ -/* -mp_err mp_sqr(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* a/b => cb + d == a */ -/* -mp_err mp_div(const mp_int *a, const mp_int *b, mp_int *c, mp_int *d) MP_WUR; -*/ - -/* c = a mod b, 0 <= c < b */ -/* -mp_err mp_mod(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* Increment "a" by one like "a++". Changes input! */ -/* -mp_err mp_incr(mp_int *a) MP_WUR; -*/ - -/* Decrement "a" by one like "a--". Changes input! */ -/* -mp_err mp_decr(mp_int *a) MP_WUR; -*/ - -/* ---> single digit functions <--- */ - -/* compare against a single digit */ -/* -mp_ord mp_cmp_d(const mp_int *a, mp_digit b) MP_WUR; -*/ - -/* c = a + b */ -/* -mp_err mp_add_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ - -/* c = a - b */ -/* -mp_err mp_sub_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ - -/* c = a * b */ -/* -mp_err mp_mul_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ - -/* a/b => cb + d == a */ -/* -mp_err mp_div_d(const mp_int *a, mp_digit b, mp_int *c, mp_digit *d) MP_WUR; -*/ - -/* c = a mod b, 0 <= c < b */ -/* -mp_err mp_mod_d(const mp_int *a, mp_digit b, mp_digit *c) MP_WUR; -*/ - -/* ---> number theory <--- */ - -/* d = a + b (mod c) */ -/* -mp_err mp_addmod(const mp_int *a, const mp_int *b, const mp_int *c, mp_int *d) MP_WUR; -*/ - -/* d = a - b (mod c) */ -/* -mp_err mp_submod(const mp_int *a, const mp_int *b, const mp_int *c, mp_int *d) MP_WUR; -*/ - -/* d = a * b (mod c) */ -/* -mp_err mp_mulmod(const mp_int *a, const mp_int *b, const mp_int *c, mp_int *d) MP_WUR; -*/ - -/* c = a * a (mod b) */ -/* -mp_err mp_sqrmod(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = 1/a (mod b) */ -/* -mp_err mp_invmod(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = (a, b) */ -/* -mp_err mp_gcd(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* produces value such that U1*a + U2*b = U3 */ -/* -mp_err mp_exteuclid(const mp_int *a, const mp_int *b, mp_int *U1, mp_int *U2, mp_int *U3) MP_WUR; -*/ - -/* c = [a, b] or (a*b)/(a, b) */ -/* -mp_err mp_lcm(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* finds one of the b'th root of a, such that |c|**b <= |a| - * - * returns error if a < 0 and b is even - */ -/* -mp_err mp_root_u32(const mp_int *a, unsigned int b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_root_u32) mp_err mp_n_root(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_root_u32) mp_err mp_n_root_ex(const mp_int *a, mp_digit b, mp_int *c, int fast) MP_WUR; -*/ - -/* special sqrt algo */ -/* -mp_err mp_sqrt(const mp_int *arg, mp_int *ret) MP_WUR; -*/ - -/* special sqrt (mod prime) */ -/* -mp_err mp_sqrtmod_prime(const mp_int *n, const mp_int *prime, mp_int *ret) MP_WUR; -*/ - -/* is number a square? */ -/* -mp_err mp_is_square(const mp_int *arg, mp_bool *ret) MP_WUR; -*/ - -/* computes the jacobi c = (a | n) (or Legendre if b is prime) */ -/* -MP_DEPRECATED(mp_kronecker) mp_err mp_jacobi(const mp_int *a, const mp_int *n, int *c) MP_WUR; -*/ - -/* computes the Kronecker symbol c = (a | p) (like jacobi() but with {a,p} in Z */ -/* -mp_err mp_kronecker(const mp_int *a, const mp_int *p, int *c) MP_WUR; -*/ - -/* used to setup the Barrett reduction for a given modulus b */ -/* -mp_err mp_reduce_setup(mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* Barrett Reduction, computes a (mod b) with a precomputed value c - * - * Assumes that 0 < x <= m*m, note if 0 > x > -(m*m) then you can merely - * compute the reduction as -1 * mp_reduce(mp_abs(x)) [pseudo code]. - */ -/* -mp_err mp_reduce(mp_int *x, const mp_int *m, const mp_int *mu) MP_WUR; -*/ - -/* setups the montgomery reduction */ -/* -mp_err mp_montgomery_setup(const mp_int *n, mp_digit *rho) MP_WUR; -*/ - -/* computes a = B**n mod b without division or multiplication useful for - * normalizing numbers in a Montgomery system. - */ -/* -mp_err mp_montgomery_calc_normalization(mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* computes x/R == x (mod N) via Montgomery Reduction */ -/* -mp_err mp_montgomery_reduce(mp_int *x, const mp_int *n, mp_digit rho) MP_WUR; -*/ - -/* returns 1 if a is a valid DR modulus */ -/* -mp_bool mp_dr_is_modulus(const mp_int *a) MP_WUR; -*/ - -/* sets the value of "d" required for mp_dr_reduce */ -/* -void mp_dr_setup(const mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo n using the Diminished Radix method */ -/* -mp_err mp_dr_reduce(mp_int *x, const mp_int *n, mp_digit k) MP_WUR; -*/ - -/* returns true if a can be reduced with mp_reduce_2k */ -/* -mp_bool mp_reduce_is_2k(const mp_int *a) MP_WUR; -*/ - -/* determines k value for 2k reduction */ -/* -mp_err mp_reduce_2k_setup(const mp_int *a, mp_digit *d) MP_WUR; -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -mp_err mp_reduce_2k(mp_int *a, const mp_int *n, mp_digit d) MP_WUR; -*/ - -/* returns true if a can be reduced with mp_reduce_2k_l */ -/* -mp_bool mp_reduce_is_2k_l(const mp_int *a) MP_WUR; -*/ - -/* determines k value for 2k reduction */ -/* -mp_err mp_reduce_2k_setup_l(const mp_int *a, mp_int *d) MP_WUR; -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -mp_err mp_reduce_2k_l(mp_int *a, const mp_int *n, const mp_int *d) MP_WUR; -*/ - -/* Y = G**X (mod P) */ -/* -mp_err mp_exptmod(const mp_int *G, const mp_int *X, const mp_int *P, mp_int *Y) MP_WUR; -*/ - -/* ---> Primes <--- */ - -/* number of primes */ -#ifdef MP_8BIT -# define PRIVATE_MP_PRIME_TAB_SIZE 31 -#else -# define PRIVATE_MP_PRIME_TAB_SIZE 256 -#endif -#define PRIME_SIZE (MP_DEPRECATED_PRAGMA("PRIME_SIZE has been made internal") PRIVATE_MP_PRIME_TAB_SIZE) - -/* table of first PRIME_SIZE primes */ -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const mp_digit ltm_prime_tab[PRIVATE_MP_PRIME_TAB_SIZE]; -#endif - -/* result=1 if a is divisible by one of the first PRIME_SIZE primes */ -/* -MP_DEPRECATED(mp_prime_is_prime) mp_err mp_prime_is_divisible(const mp_int *a, mp_bool *result) MP_WUR; -*/ - -/* performs one Fermat test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_fermat(const mp_int *a, const mp_int *b, mp_bool *result) MP_WUR; -*/ - -/* performs one Miller-Rabin test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_miller_rabin(const mp_int *a, const mp_int *b, mp_bool *result) MP_WUR; -*/ - -/* This gives [for a given bit size] the number of trials required - * such that Miller-Rabin gives a prob of failure lower than 2^-96 - */ -/* -int mp_prime_rabin_miller_trials(int size) MP_WUR; -*/ - -/* performs one strong Lucas-Selfridge test of "a". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_strong_lucas_selfridge(const mp_int *a, mp_bool *result) MP_WUR; -*/ - -/* performs one Frobenius test of "a" as described by Paul Underwood. - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_frobenius_underwood(const mp_int *N, mp_bool *result) MP_WUR; -*/ - -/* performs t random rounds of Miller-Rabin on "a" additional to - * bases 2 and 3. Also performs an initial sieve of trial - * division. Determines if "a" is prime with probability - * of error no more than (1/4)**t. - * Both a strong Lucas-Selfridge to complete the BPSW test - * and a separate Frobenius test are available at compile time. - * With t<0 a deterministic test is run for primes up to - * 318665857834031151167461. With t<13 (abs(t)-13) additional - * tests with sequential small primes are run starting at 43. - * Is Fips 186.4 compliant if called with t as computed by - * mp_prime_rabin_miller_trials(); - * - * Sets result to 1 if probably prime, 0 otherwise - */ -/* -mp_err mp_prime_is_prime(const mp_int *a, int t, mp_bool *result) MP_WUR; -*/ - -/* finds the next prime after the number "a" using "t" trials - * of Miller-Rabin. - * - * bbs_style = 1 means the prime must be congruent to 3 mod 4 - */ -/* -mp_err mp_prime_next_prime(mp_int *a, int t, int bbs_style) MP_WUR; -*/ - -/* makes a truly random prime of a given size (bytes), - * call with bbs = 1 if you want it to be congruent to 3 mod 4 - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - * The prime generated will be larger than 2^(8*size). - */ -#define mp_prime_random(a, t, size, bbs, cb, dat) (MP_DEPRECATED_PRAGMA("mp_prime_random has been deprecated, use mp_prime_rand instead") mp_prime_random_ex(a, t, ((size) * 8) + 1, (bbs==1)?MP_PRIME_BBS:0, cb, dat)) - -/* makes a truly random prime of a given size (bits), - * - * Flags are as follows: - * - * MP_PRIME_BBS - make prime congruent to 3 mod 4 - * MP_PRIME_SAFE - make sure (p-1)/2 is prime as well (implies MP_PRIME_BBS) - * MP_PRIME_2MSB_ON - make the 2nd highest bit one - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - */ -/* -MP_DEPRECATED(mp_prime_rand) mp_err mp_prime_random_ex(mp_int *a, int t, int size, int flags, - private_mp_prime_callback cb, void *dat) MP_WUR; -*/ -/* -mp_err mp_prime_rand(mp_int *a, int t, int size, int flags) MP_WUR; -*/ - -/* Integer logarithm to integer base */ -/* -mp_err mp_log_u32(const mp_int *a, unsigned int base, unsigned int *c) MP_WUR; -*/ - -/* c = a**b */ -/* -mp_err mp_expt_u32(const mp_int *a, unsigned int b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_expt_u32) mp_err mp_expt_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_expt_u32) mp_err mp_expt_d_ex(const mp_int *a, mp_digit b, mp_int *c, int fast) MP_WUR; -*/ - -/* ---> radix conversion <--- */ -/* -int mp_count_bits(const mp_int *a) MP_WUR; -*/ - - -/* -MP_DEPRECATED(mp_ubin_size) int mp_unsigned_bin_size(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_from_ubin) mp_err mp_read_unsigned_bin(mp_int *a, const unsigned char *b, int c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_ubin) mp_err mp_to_unsigned_bin(const mp_int *a, unsigned char *b) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_ubin) mp_err mp_to_unsigned_bin_n(const mp_int *a, unsigned char *b, unsigned long *outlen) MP_WUR; -*/ - -/* -MP_DEPRECATED(mp_sbin_size) int mp_signed_bin_size(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_from_sbin) mp_err mp_read_signed_bin(mp_int *a, const unsigned char *b, int c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_sbin) mp_err mp_to_signed_bin(const mp_int *a, unsigned char *b) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_sbin) mp_err mp_to_signed_bin_n(const mp_int *a, unsigned char *b, unsigned long *outlen) MP_WUR; -*/ - -/* -size_t mp_ubin_size(const mp_int *a) MP_WUR; -*/ -/* -mp_err mp_from_ubin(mp_int *a, const unsigned char *buf, size_t size) MP_WUR; -*/ -/* -mp_err mp_to_ubin(const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written) MP_WUR; -*/ - -/* -size_t mp_sbin_size(const mp_int *a) MP_WUR; -*/ -/* -mp_err mp_from_sbin(mp_int *a, const unsigned char *buf, size_t size) MP_WUR; -*/ -/* -mp_err mp_to_sbin(const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written) MP_WUR; -*/ - -/* -mp_err mp_read_radix(mp_int *a, const char *str, int radix) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_radix) mp_err mp_toradix(const mp_int *a, char *str, int radix) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_radix) mp_err mp_toradix_n(const mp_int *a, char *str, int radix, int maxlen) MP_WUR; -*/ -/* -mp_err mp_to_radix(const mp_int *a, char *str, size_t maxlen, size_t *written, int radix) MP_WUR; -*/ -/* -mp_err mp_radix_size(const mp_int *a, int radix, int *size) MP_WUR; -*/ - -#ifndef MP_NO_FILE -/* -mp_err mp_fread(mp_int *a, int radix, FILE *stream) MP_WUR; -*/ -/* -mp_err mp_fwrite(const mp_int *a, int radix, FILE *stream) MP_WUR; -*/ -#endif - -#define mp_read_raw(mp, str, len) (MP_DEPRECATED_PRAGMA("replaced by mp_read_signed_bin") mp_read_signed_bin((mp), (str), (len))) -#define mp_raw_size(mp) (MP_DEPRECATED_PRAGMA("replaced by mp_signed_bin_size") mp_signed_bin_size(mp)) -#define mp_toraw(mp, str) (MP_DEPRECATED_PRAGMA("replaced by mp_to_signed_bin") mp_to_signed_bin((mp), (str))) -#define mp_read_mag(mp, str, len) (MP_DEPRECATED_PRAGMA("replaced by mp_read_unsigned_bin") mp_read_unsigned_bin((mp), (str), (len)) -#define mp_mag_size(mp) (MP_DEPRECATED_PRAGMA("replaced by mp_unsigned_bin_size") mp_unsigned_bin_size(mp)) -#define mp_tomag(mp, str) (MP_DEPRECATED_PRAGMA("replaced by mp_to_unsigned_bin") mp_to_unsigned_bin((mp), (str))) - -#define mp_tobinary(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_binary") mp_toradix((M), (S), 2)) -#define mp_tooctal(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_octal") mp_toradix((M), (S), 8)) -#define mp_todecimal(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_decimal") mp_toradix((M), (S), 10)) -#define mp_tohex(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_hex") mp_toradix((M), (S), 16)) - -#define mp_to_binary(M, S, N) mp_to_radix((M), (S), (N), NULL, 2) -#define mp_to_octal(M, S, N) mp_to_radix((M), (S), (N), NULL, 8) -#define mp_to_decimal(M, S, N) mp_to_radix((M), (S), (N), NULL, 10) -#define mp_to_hex(M, S, N) mp_to_radix((M), (S), (N), NULL, 16) - -#ifdef __cplusplus -} -#endif - -#include "tclTomMathDecls.h" - -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclTomMathDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclTomMathDecls.h deleted file mode 100644 index 699164359..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclTomMathDecls.h +++ /dev/null @@ -1,669 +0,0 @@ -/* - *---------------------------------------------------------------------- - * - * tclTomMathDecls.h -- - * - * This file contains the declarations for the 'libtommath' - * functions that are exported by the Tcl library. - * - * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLTOMMATHDECLS -#define _TCLTOMMATHDECLS - -#include "tcl.h" -#ifndef BN_H_ -#include "tclTomMath.h" -#endif - -/* - * Define the version of the Stubs table that's exported for tommath - */ - -#define TCLTOMMATH_EPOCH 0 -#define TCLTOMMATH_REVISION 0 - -#define Tcl_TomMath_InitStubs(interp,version) \ - (TclTomMathInitializeStubs((interp),(version),\ - TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION)) - -/* Define custom memory allocation for libtommath */ - -/* MODULE_SCOPE void* TclBNAlloc( size_t ); */ -#define TclBNAlloc(s) ((void*)ckalloc((size_t)(s))) -/* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */ -#define TclBNCalloc(m,s) memset(ckalloc((size_t)(m)*(size_t)(s)),0,(size_t)(m)*(size_t)(s)) -/* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */ -#define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s))) -/* MODULE_SCOPE void TclBNFree( void* ); */ -#define TclBNFree(x) (ckfree((char*)(x))) - -#define MP_MALLOC(size) TclBNAlloc(size) -#define MP_CALLOC(nmemb, size) TclBNCalloc(nmemb, size) -#define MP_REALLOC(mem, oldsize, newsize) TclBNRealloc(mem, newsize) -#define MP_FREE(mem, size) TclBNFree(mem) - - -/* Rename the global symbols in libtommath to avoid linkage conflicts */ - -#define bn_reverse TclBN_reverse -#define mp_add TclBN_mp_add -#define mp_add_d TclBN_mp_add_d -#define mp_and TclBN_mp_and -#define mp_clamp TclBN_mp_clamp -#define mp_clear TclBN_mp_clear -#define mp_clear_multi TclBN_mp_clear_multi -#define mp_cmp TclBN_mp_cmp -#define mp_cmp_d TclBN_mp_cmp_d -#define mp_cmp_mag TclBN_mp_cmp_mag -#define mp_cnt_lsb TclBN_mp_cnt_lsb -#define mp_copy TclBN_mp_copy -#define mp_count_bits TclBN_mp_count_bits -#define mp_div TclBN_mp_div -#define mp_div_2 TclBN_mp_div_2 -#define mp_div_2d TclBN_mp_div_2d -#define mp_div_3 TclBN_mp_div_3 -#define mp_div_d TclBN_mp_div_d -#define mp_exch TclBN_mp_exch -#define mp_expt_d TclBN_mp_expt_d -#define mp_expt_d_ex TclBN_mp_expt_d_ex -#define mp_expt_u32 TclBN_mp_expt_d -#define mp_get_mag_ull TclBN_mp_get_mag_ull -#define mp_grow TclBN_mp_grow -#define mp_init TclBN_mp_init -#define mp_init_copy TclBN_mp_init_copy -#define mp_init_multi TclBN_mp_init_multi -#define mp_init_set TclBN_mp_init_set -#define mp_init_set_int TclBN_mp_init_set_int -#define mp_init_size TclBN_mp_init_size -#define mp_lshd TclBN_mp_lshd -#define mp_mod TclBN_mp_mod -#define mp_mod_2d TclBN_mp_mod_2d -#define mp_mul TclBN_mp_mul -#define mp_mul_2 TclBN_mp_mul_2 -#define mp_mul_2d TclBN_mp_mul_2d -#define mp_mul_d TclBN_mp_mul_d -#define mp_neg TclBN_mp_neg -#define mp_or TclBN_mp_or -#define mp_radix_size TclBN_mp_radix_size -#define mp_read_radix TclBN_mp_read_radix -#define mp_rshd TclBN_mp_rshd -#define mp_set TclBN_mp_set -#define mp_set_int(a,b) (TclBN_mp_set_int(a,(unsigned int)(b)),MP_OKAY) -#define mp_set_ll TclBN_mp_set_ll -#define mp_set_long(a,b) (TclBN_mp_set_int(a,b),MP_OKAY) -#define mp_set_ul(a,b) (void)TclBN_mp_set_int(a,b) -#define mp_set_ull TclBN_mp_set_ull -#define mp_set_u64 TclBN_mp_set_ull -#define mp_shrink TclBN_mp_shrink -#define mp_sqr TclBN_mp_sqr -#define mp_sqrt TclBN_mp_sqrt -#define mp_sub TclBN_mp_sub -#define mp_sub_d TclBN_mp_sub_d -#define mp_signed_rsh TclBN_mp_signed_rsh -#define mp_tc_and TclBN_mp_and -#define mp_tc_div_2d TclBN_mp_signed_rsh -#define mp_tc_or TclBN_mp_or -#define mp_tc_xor TclBN_mp_xor -#define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin -#define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n -#define mp_toradix_n TclBN_mp_toradix_n -#define mp_to_radix TclBN_mp_to_radix -#define mp_to_ubin TclBN_mp_to_ubin -#define mp_ubin_size TclBN_mp_unsigned_bin_size -#define mp_unsigned_bin_size(a) ((int)TclBN_mp_unsigned_bin_size(a)) -#define mp_xor TclBN_mp_xor -#define mp_zero TclBN_mp_zero -#define s_mp_add TclBN_s_mp_add -#define s_mp_balance_mul TclBN_mp_balance_mul -#define s_mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define s_mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define s_mp_mul_digs TclBN_s_mp_mul_digs -#define s_mp_mul_digs_fast TclBN_fast_s_mp_mul_digs -#define s_mp_reverse TclBN_s_mp_reverse -#define s_mp_sqr TclBN_s_mp_sqr -#define s_mp_sqr_fast TclBN_fast_s_mp_sqr -#define s_mp_sub TclBN_s_mp_sub -#define s_mp_toom_mul TclBN_mp_toom_mul -#define s_mp_toom_sqr TclBN_mp_toom_sqr - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN int TclBN_epoch(void); -/* 1 */ -EXTERN int TclBN_revision(void); -/* 2 */ -EXTERN mp_err TclBN_mp_add(const mp_int *a, const mp_int *b, - mp_int *c); -/* 3 */ -EXTERN mp_err TclBN_mp_add_d(const mp_int *a, mp_digit b, - mp_int *c); -/* 4 */ -EXTERN mp_err TclBN_mp_and(const mp_int *a, const mp_int *b, - mp_int *c); -/* 5 */ -EXTERN void TclBN_mp_clamp(mp_int *a); -/* 6 */ -EXTERN void TclBN_mp_clear(mp_int *a); -/* 7 */ -EXTERN void TclBN_mp_clear_multi(mp_int *a, ...); -/* 8 */ -EXTERN mp_ord TclBN_mp_cmp(const mp_int *a, const mp_int *b); -/* 9 */ -EXTERN mp_ord TclBN_mp_cmp_d(const mp_int *a, mp_digit b); -/* 10 */ -EXTERN mp_ord TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b); -/* 11 */ -EXTERN mp_err TclBN_mp_copy(const mp_int *a, mp_int *b); -/* 12 */ -EXTERN int TclBN_mp_count_bits(const mp_int *a); -/* 13 */ -EXTERN mp_err TclBN_mp_div(const mp_int *a, const mp_int *b, - mp_int *q, mp_int *r); -/* 14 */ -EXTERN mp_err TclBN_mp_div_d(const mp_int *a, mp_digit b, - mp_int *q, mp_digit *r); -/* 15 */ -EXTERN mp_err TclBN_mp_div_2(const mp_int *a, mp_int *q); -/* 16 */ -EXTERN mp_err TclBN_mp_div_2d(const mp_int *a, int b, mp_int *q, - mp_int *r); -/* 17 */ -EXTERN mp_err TclBN_mp_div_3(const mp_int *a, mp_int *q, - mp_digit *r); -/* 18 */ -EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b); -/* 19 */ -EXTERN mp_err TclBN_mp_expt_d(const mp_int *a, unsigned int b, - mp_int *c); -/* 20 */ -EXTERN mp_err TclBN_mp_grow(mp_int *a, int size); -/* 21 */ -EXTERN mp_err TclBN_mp_init(mp_int *a); -/* 22 */ -EXTERN mp_err TclBN_mp_init_copy(mp_int *a, const mp_int *b); -/* 23 */ -EXTERN mp_err TclBN_mp_init_multi(mp_int *a, ...); -/* 24 */ -EXTERN mp_err TclBN_mp_init_set(mp_int *a, mp_digit b); -/* 25 */ -EXTERN mp_err TclBN_mp_init_size(mp_int *a, int size); -/* 26 */ -EXTERN mp_err TclBN_mp_lshd(mp_int *a, int shift); -/* 27 */ -EXTERN mp_err TclBN_mp_mod(const mp_int *a, const mp_int *b, - mp_int *r); -/* 28 */ -EXTERN mp_err TclBN_mp_mod_2d(const mp_int *a, int b, mp_int *r); -/* 29 */ -EXTERN mp_err TclBN_mp_mul(const mp_int *a, const mp_int *b, - mp_int *p); -/* 30 */ -EXTERN mp_err TclBN_mp_mul_d(const mp_int *a, mp_digit b, - mp_int *p); -/* 31 */ -EXTERN mp_err TclBN_mp_mul_2(const mp_int *a, mp_int *p); -/* 32 */ -EXTERN mp_err TclBN_mp_mul_2d(const mp_int *a, int d, mp_int *p); -/* 33 */ -EXTERN mp_err TclBN_mp_neg(const mp_int *a, mp_int *b); -/* 34 */ -EXTERN mp_err TclBN_mp_or(const mp_int *a, const mp_int *b, - mp_int *c); -/* 35 */ -EXTERN mp_err TclBN_mp_radix_size(const mp_int *a, int radix, - int *size); -/* 36 */ -EXTERN mp_err TclBN_mp_read_radix(mp_int *a, const char *str, - int radix); -/* 37 */ -EXTERN void TclBN_mp_rshd(mp_int *a, int shift); -/* 38 */ -EXTERN mp_err TclBN_mp_shrink(mp_int *a); -/* 39 */ -EXTERN void TclBN_mp_set(mp_int *a, mp_digit b); -/* 40 */ -EXTERN mp_err TclBN_mp_sqr(const mp_int *a, mp_int *b); -/* 41 */ -EXTERN mp_err TclBN_mp_sqrt(const mp_int *a, mp_int *b); -/* 42 */ -EXTERN mp_err TclBN_mp_sub(const mp_int *a, const mp_int *b, - mp_int *c); -/* 43 */ -EXTERN mp_err TclBN_mp_sub_d(const mp_int *a, mp_digit b, - mp_int *c); -/* 44 */ -EXTERN mp_err TclBN_mp_to_unsigned_bin(const mp_int *a, - unsigned char *b); -/* 45 */ -EXTERN mp_err TclBN_mp_to_unsigned_bin_n(const mp_int *a, - unsigned char *b, unsigned long *outlen); -/* 46 */ -EXTERN mp_err TclBN_mp_toradix_n(const mp_int *a, char *str, - int radix, int maxlen); -/* 47 */ -EXTERN size_t TclBN_mp_unsigned_bin_size(const mp_int *a); -/* 48 */ -EXTERN mp_err TclBN_mp_xor(const mp_int *a, const mp_int *b, - mp_int *c); -/* 49 */ -EXTERN void TclBN_mp_zero(mp_int *a); -/* 50 */ -EXTERN void TclBN_reverse(unsigned char *s, int len); -/* 51 */ -EXTERN mp_err TclBN_fast_s_mp_mul_digs(const mp_int *a, - const mp_int *b, mp_int *c, int digs); -/* 52 */ -EXTERN mp_err TclBN_fast_s_mp_sqr(const mp_int *a, mp_int *b); -/* 53 */ -EXTERN mp_err TclBN_mp_karatsuba_mul(const mp_int *a, - const mp_int *b, mp_int *c); -/* 54 */ -EXTERN mp_err TclBN_mp_karatsuba_sqr(const mp_int *a, mp_int *b); -/* 55 */ -EXTERN mp_err TclBN_mp_toom_mul(const mp_int *a, const mp_int *b, - mp_int *c); -/* 56 */ -EXTERN mp_err TclBN_mp_toom_sqr(const mp_int *a, mp_int *b); -/* 57 */ -EXTERN mp_err TclBN_s_mp_add(const mp_int *a, const mp_int *b, - mp_int *c); -/* 58 */ -EXTERN mp_err TclBN_s_mp_mul_digs(const mp_int *a, const mp_int *b, - mp_int *c, int digs); -/* 59 */ -EXTERN mp_err TclBN_s_mp_sqr(const mp_int *a, mp_int *b); -/* 60 */ -EXTERN mp_err TclBN_s_mp_sub(const mp_int *a, const mp_int *b, - mp_int *c); -/* 61 */ -EXTERN mp_err TclBN_mp_init_set_int(mp_int *a, unsigned long i); -/* 62 */ -EXTERN mp_err TclBN_mp_set_int(mp_int *a, unsigned long i); -/* 63 */ -EXTERN int TclBN_mp_cnt_lsb(const mp_int *a); -/* 64 */ -EXTERN int TclBNInitBignumFromLong(mp_int *bignum, long initVal); -/* 65 */ -EXTERN int TclBNInitBignumFromWideInt(mp_int *bignum, - Tcl_WideInt initVal); -/* 66 */ -EXTERN int TclBNInitBignumFromWideUInt(mp_int *bignum, - Tcl_WideUInt initVal); -/* 67 */ -EXTERN mp_err TclBN_mp_expt_d_ex(const mp_int *a, mp_digit b, - mp_int *c, int fast); -/* 68 */ -EXTERN void TclBN_mp_set_ull(mp_int *a, Tcl_WideUInt i); -/* 69 */ -EXTERN Tcl_WideUInt TclBN_mp_get_mag_ull(const mp_int *a); -/* 70 */ -EXTERN void TclBN_mp_set_ll(mp_int *a, Tcl_WideInt i); -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* 73 */ -EXTERN mp_err TclBN_mp_tc_and(const mp_int *a, const mp_int *b, - mp_int *c); -/* 74 */ -EXTERN mp_err TclBN_mp_tc_or(const mp_int *a, const mp_int *b, - mp_int *c); -/* 75 */ -EXTERN mp_err TclBN_mp_tc_xor(const mp_int *a, const mp_int *b, - mp_int *c); -/* 76 */ -EXTERN mp_err TclBN_mp_signed_rsh(const mp_int *a, int b, - mp_int *c); -/* Slot 77 is reserved */ -/* 78 */ -EXTERN int TclBN_mp_to_ubin(const mp_int *a, unsigned char *buf, - size_t maxlen, size_t *written); -/* 79 */ -EXTERN mp_err TclBN_mp_div_ld(const mp_int *a, Tcl_WideUInt b, - mp_int *q, Tcl_WideUInt *r); -/* 80 */ -EXTERN int TclBN_mp_to_radix(const mp_int *a, char *str, - size_t maxlen, size_t *written, int radix); - -typedef struct TclTomMathStubs { - int magic; - void *hooks; - - int (*tclBN_epoch) (void); /* 0 */ - int (*tclBN_revision) (void); /* 1 */ - mp_err (*tclBN_mp_add) (const mp_int *a, const mp_int *b, mp_int *c); /* 2 */ - mp_err (*tclBN_mp_add_d) (const mp_int *a, mp_digit b, mp_int *c); /* 3 */ - mp_err (*tclBN_mp_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 4 */ - void (*tclBN_mp_clamp) (mp_int *a); /* 5 */ - void (*tclBN_mp_clear) (mp_int *a); /* 6 */ - void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */ - mp_ord (*tclBN_mp_cmp) (const mp_int *a, const mp_int *b); /* 8 */ - mp_ord (*tclBN_mp_cmp_d) (const mp_int *a, mp_digit b); /* 9 */ - mp_ord (*tclBN_mp_cmp_mag) (const mp_int *a, const mp_int *b); /* 10 */ - mp_err (*tclBN_mp_copy) (const mp_int *a, mp_int *b); /* 11 */ - int (*tclBN_mp_count_bits) (const mp_int *a); /* 12 */ - mp_err (*tclBN_mp_div) (const mp_int *a, const mp_int *b, mp_int *q, mp_int *r); /* 13 */ - mp_err (*tclBN_mp_div_d) (const mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */ - mp_err (*tclBN_mp_div_2) (const mp_int *a, mp_int *q); /* 15 */ - mp_err (*tclBN_mp_div_2d) (const mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */ - mp_err (*tclBN_mp_div_3) (const mp_int *a, mp_int *q, mp_digit *r); /* 17 */ - void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */ - mp_err (*tclBN_mp_expt_d) (const mp_int *a, unsigned int b, mp_int *c); /* 19 */ - mp_err (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */ - mp_err (*tclBN_mp_init) (mp_int *a); /* 21 */ - mp_err (*tclBN_mp_init_copy) (mp_int *a, const mp_int *b); /* 22 */ - mp_err (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */ - mp_err (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */ - mp_err (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */ - mp_err (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ - mp_err (*tclBN_mp_mod) (const mp_int *a, const mp_int *b, mp_int *r); /* 27 */ - mp_err (*tclBN_mp_mod_2d) (const mp_int *a, int b, mp_int *r); /* 28 */ - mp_err (*tclBN_mp_mul) (const mp_int *a, const mp_int *b, mp_int *p); /* 29 */ - mp_err (*tclBN_mp_mul_d) (const mp_int *a, mp_digit b, mp_int *p); /* 30 */ - mp_err (*tclBN_mp_mul_2) (const mp_int *a, mp_int *p); /* 31 */ - mp_err (*tclBN_mp_mul_2d) (const mp_int *a, int d, mp_int *p); /* 32 */ - mp_err (*tclBN_mp_neg) (const mp_int *a, mp_int *b); /* 33 */ - mp_err (*tclBN_mp_or) (const mp_int *a, const mp_int *b, mp_int *c); /* 34 */ - mp_err (*tclBN_mp_radix_size) (const mp_int *a, int radix, int *size); /* 35 */ - mp_err (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix); /* 36 */ - void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ - mp_err (*tclBN_mp_shrink) (mp_int *a); /* 38 */ - void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ - mp_err (*tclBN_mp_sqr) (const mp_int *a, mp_int *b); /* 40 */ - mp_err (*tclBN_mp_sqrt) (const mp_int *a, mp_int *b); /* 41 */ - mp_err (*tclBN_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c); /* 42 */ - mp_err (*tclBN_mp_sub_d) (const mp_int *a, mp_digit b, mp_int *c); /* 43 */ - mp_err (*tclBN_mp_to_unsigned_bin) (const mp_int *a, unsigned char *b); /* 44 */ - mp_err (*tclBN_mp_to_unsigned_bin_n) (const mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */ - mp_err (*tclBN_mp_toradix_n) (const mp_int *a, char *str, int radix, int maxlen); /* 46 */ - size_t (*tclBN_mp_unsigned_bin_size) (const mp_int *a); /* 47 */ - mp_err (*tclBN_mp_xor) (const mp_int *a, const mp_int *b, mp_int *c); /* 48 */ - void (*tclBN_mp_zero) (mp_int *a); /* 49 */ - void (*tclBN_reverse) (unsigned char *s, int len); /* 50 */ - mp_err (*tclBN_fast_s_mp_mul_digs) (const mp_int *a, const mp_int *b, mp_int *c, int digs); /* 51 */ - mp_err (*tclBN_fast_s_mp_sqr) (const mp_int *a, mp_int *b); /* 52 */ - mp_err (*tclBN_mp_karatsuba_mul) (const mp_int *a, const mp_int *b, mp_int *c); /* 53 */ - mp_err (*tclBN_mp_karatsuba_sqr) (const mp_int *a, mp_int *b); /* 54 */ - mp_err (*tclBN_mp_toom_mul) (const mp_int *a, const mp_int *b, mp_int *c); /* 55 */ - mp_err (*tclBN_mp_toom_sqr) (const mp_int *a, mp_int *b); /* 56 */ - mp_err (*tclBN_s_mp_add) (const mp_int *a, const mp_int *b, mp_int *c); /* 57 */ - mp_err (*tclBN_s_mp_mul_digs) (const mp_int *a, const mp_int *b, mp_int *c, int digs); /* 58 */ - mp_err (*tclBN_s_mp_sqr) (const mp_int *a, mp_int *b); /* 59 */ - mp_err (*tclBN_s_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c); /* 60 */ - mp_err (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ - mp_err (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ - int (*tclBN_mp_cnt_lsb) (const mp_int *a); /* 63 */ - int (*tclBNInitBignumFromLong) (mp_int *bignum, long initVal); /* 64 */ - int (*tclBNInitBignumFromWideInt) (mp_int *bignum, Tcl_WideInt initVal); /* 65 */ - int (*tclBNInitBignumFromWideUInt) (mp_int *bignum, Tcl_WideUInt initVal); /* 66 */ - mp_err (*tclBN_mp_expt_d_ex) (const mp_int *a, mp_digit b, mp_int *c, int fast); /* 67 */ - void (*tclBN_mp_set_ull) (mp_int *a, Tcl_WideUInt i); /* 68 */ - Tcl_WideUInt (*tclBN_mp_get_mag_ull) (const mp_int *a); /* 69 */ - void (*tclBN_mp_set_ll) (mp_int *a, Tcl_WideInt i); /* 70 */ - void (*reserved71)(void); - void (*reserved72)(void); - mp_err (*tclBN_mp_tc_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 73 */ - mp_err (*tclBN_mp_tc_or) (const mp_int *a, const mp_int *b, mp_int *c); /* 74 */ - mp_err (*tclBN_mp_tc_xor) (const mp_int *a, const mp_int *b, mp_int *c); /* 75 */ - mp_err (*tclBN_mp_signed_rsh) (const mp_int *a, int b, mp_int *c); /* 76 */ - void (*reserved77)(void); - int (*tclBN_mp_to_ubin) (const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written); /* 78 */ - mp_err (*tclBN_mp_div_ld) (const mp_int *a, Tcl_WideUInt b, mp_int *q, Tcl_WideUInt *r); /* 79 */ - int (*tclBN_mp_to_radix) (const mp_int *a, char *str, size_t maxlen, size_t *written, int radix); /* 80 */ -} TclTomMathStubs; - -extern const TclTomMathStubs *tclTomMathStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#define TclBN_epoch \ - (tclTomMathStubsPtr->tclBN_epoch) /* 0 */ -#define TclBN_revision \ - (tclTomMathStubsPtr->tclBN_revision) /* 1 */ -#define TclBN_mp_add \ - (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ -#define TclBN_mp_add_d \ - (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ -#define TclBN_mp_and \ - (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ -#define TclBN_mp_clamp \ - (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ -#define TclBN_mp_clear \ - (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ -#define TclBN_mp_clear_multi \ - (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ -#define TclBN_mp_cmp \ - (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ -#define TclBN_mp_cmp_d \ - (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ -#define TclBN_mp_cmp_mag \ - (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ -#define TclBN_mp_copy \ - (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ -#define TclBN_mp_count_bits \ - (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ -#define TclBN_mp_div \ - (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ -#define TclBN_mp_div_d \ - (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ -#define TclBN_mp_div_2 \ - (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ -#define TclBN_mp_div_2d \ - (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ -#define TclBN_mp_div_3 \ - (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ -#define TclBN_mp_exch \ - (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ -#define TclBN_mp_expt_d \ - (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ -#define TclBN_mp_grow \ - (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ -#define TclBN_mp_init \ - (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ -#define TclBN_mp_init_copy \ - (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ -#define TclBN_mp_init_multi \ - (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ -#define TclBN_mp_init_set \ - (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ -#define TclBN_mp_init_size \ - (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ -#define TclBN_mp_lshd \ - (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ -#define TclBN_mp_mod \ - (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ -#define TclBN_mp_mod_2d \ - (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ -#define TclBN_mp_mul \ - (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ -#define TclBN_mp_mul_d \ - (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ -#define TclBN_mp_mul_2 \ - (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ -#define TclBN_mp_mul_2d \ - (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ -#define TclBN_mp_neg \ - (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ -#define TclBN_mp_or \ - (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ -#define TclBN_mp_radix_size \ - (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ -#define TclBN_mp_read_radix \ - (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ -#define TclBN_mp_rshd \ - (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ -#define TclBN_mp_shrink \ - (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ -#define TclBN_mp_set \ - (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ -#define TclBN_mp_sqr \ - (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ -#define TclBN_mp_sqrt \ - (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ -#define TclBN_mp_sub \ - (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ -#define TclBN_mp_sub_d \ - (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ -#define TclBN_mp_to_unsigned_bin \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ -#define TclBN_mp_to_unsigned_bin_n \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ -#define TclBN_mp_toradix_n \ - (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ -#define TclBN_mp_unsigned_bin_size \ - (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ -#define TclBN_mp_xor \ - (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ -#define TclBN_mp_zero \ - (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ -#define TclBN_reverse \ - (tclTomMathStubsPtr->tclBN_reverse) /* 50 */ -#define TclBN_fast_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ -#define TclBN_fast_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ -#define TclBN_mp_karatsuba_mul \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ -#define TclBN_mp_karatsuba_sqr \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ -#define TclBN_mp_toom_mul \ - (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ -#define TclBN_mp_toom_sqr \ - (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ -#define TclBN_s_mp_add \ - (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ -#define TclBN_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ -#define TclBN_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ -#define TclBN_s_mp_sub \ - (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ -#define TclBN_mp_init_set_int \ - (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ -#define TclBN_mp_set_int \ - (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ -#define TclBN_mp_cnt_lsb \ - (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ -#define TclBNInitBignumFromLong \ - (tclTomMathStubsPtr->tclBNInitBignumFromLong) /* 64 */ -#define TclBNInitBignumFromWideInt \ - (tclTomMathStubsPtr->tclBNInitBignumFromWideInt) /* 65 */ -#define TclBNInitBignumFromWideUInt \ - (tclTomMathStubsPtr->tclBNInitBignumFromWideUInt) /* 66 */ -#define TclBN_mp_expt_d_ex \ - (tclTomMathStubsPtr->tclBN_mp_expt_d_ex) /* 67 */ -#define TclBN_mp_set_ull \ - (tclTomMathStubsPtr->tclBN_mp_set_ull) /* 68 */ -#define TclBN_mp_get_mag_ull \ - (tclTomMathStubsPtr->tclBN_mp_get_mag_ull) /* 69 */ -#define TclBN_mp_set_ll \ - (tclTomMathStubsPtr->tclBN_mp_set_ll) /* 70 */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -#define TclBN_mp_tc_and \ - (tclTomMathStubsPtr->tclBN_mp_tc_and) /* 73 */ -#define TclBN_mp_tc_or \ - (tclTomMathStubsPtr->tclBN_mp_tc_or) /* 74 */ -#define TclBN_mp_tc_xor \ - (tclTomMathStubsPtr->tclBN_mp_tc_xor) /* 75 */ -#define TclBN_mp_signed_rsh \ - (tclTomMathStubsPtr->tclBN_mp_signed_rsh) /* 76 */ -/* Slot 77 is reserved */ -#define TclBN_mp_to_ubin \ - (tclTomMathStubsPtr->tclBN_mp_to_ubin) /* 78 */ -#define TclBN_mp_div_ld \ - (tclTomMathStubsPtr->tclBN_mp_div_ld) /* 79 */ -#define TclBN_mp_to_radix \ - (tclTomMathStubsPtr->tclBN_mp_to_radix) /* 80 */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#ifdef USE_TCL_STUBS -#undef TclBNInitBignumFromLong -#define TclBNInitBignumFromLong(a,b) \ - do { \ - (a)->dp = NULL; \ - (void)tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(b)); \ - if ((a)->dp == NULL) { \ - Tcl_Panic("initialization failure in TclBNInitBignumFromLong"); \ - } \ - } while (0) -#undef TclBNInitBignumFromWideInt -#define TclBNInitBignumFromWideInt(a,b) \ - do { \ - (a)->dp = NULL; \ - (void)tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)); \ - if ((a)->dp == NULL) { \ - Tcl_Panic("initialization failure in TclBNInitBignumFromWideInt"); \ - } \ - } while (0) -#undef TclBNInitBignumFromWideUInt -#define TclBNInitBignumFromWideUInt(a,b) \ - do { \ - (a)->dp = NULL; \ - (void)tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)); \ - if ((a)->dp == NULL) { \ - Tcl_Panic("initialization failure in TclBNInitBignumFromWideUInt"); \ - } \ - } while (0) -#define mp_init_i32(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(int32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_l(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ll(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_i64(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u32(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(uint32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ul(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(unsigned long)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ull(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u64(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#else -#define mp_init_i32(a,b) (((a)->dp=NULL,(TclBNInitBignumFromLong)((a),(int32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_l(a,b) (((a)->dp=NULL,(TclBNInitBignumFromLong)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ll(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_i64(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u32(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(uint32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ul(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(unsigned long)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ull(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u64(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#endif /* USE_TCL_STUBS */ -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclWinPort.h deleted file mode 100644 index ea8fd7e33..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tclWinPort.h +++ /dev/null @@ -1,581 +0,0 @@ -/* - * tclWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLWINPORT -#define _TCLWINPORT - - -#if !defined(_WIN64) && !defined(__MINGW_USE_VC2005_COMPAT) -/* See [Bug 3354324]: file mtime sets wrong time */ -# define __MINGW_USE_VC2005_COMPAT -#endif - -/* - * We must specify the lower version we intend to support. - * - * WINVER = 0x0500 means Windows 2000 and above - */ - -#ifndef WINVER -# define WINVER 0x0501 -#endif -#ifndef _WIN32_WINNT -# define _WIN32_WINNT 0x0501 -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -/* Compatibility to older visual studio / windows platform SDK */ -#if !defined(MAXULONG_PTR) -typedef DWORD DWORD_PTR; -typedef DWORD_PTR * PDWORD_PTR; -#endif - -/* - * Ask for the winsock function typedefs, also. - */ -#define INCL_WINSOCK_API_TYPEDEFS 1 -#include -#include -#ifdef HAVE_WSPIAPI_H -# include -#endif - -#ifdef CHECK_UNICODE_CALLS -# define _UNICODE -# define UNICODE -# define __TCHAR_DEFINED - typedef float *_TCHAR; -# define _TCHAR_DEFINED - typedef float *TCHAR; -#endif /* CHECK_UNICODE_CALLS */ - -/* - * Pull in the typedef of TCHAR for windows. - */ -#include -#ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -#endif -#if defined(_MSC_VER) && defined(__STDC__) - /* VS2005 SP1 misses this. See [Bug #3110161] */ - typedef _TCHAR TCHAR; -#endif - -/* - *--------------------------------------------------------------------------- - * The following sets of #includes and #ifdefs are required to get Tcl to - * compile under the windows compilers. - *--------------------------------------------------------------------------- - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#ifdef HAVE_INTTYPES_H -# include -#endif -#include - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -/* - * Need to block out these includes for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#include -# ifdef __BORLANDC__ -# include -# else -# include -# endif /* __BORLANDC__ */ -#endif /* __MWERKS__ */ - -/* - * The following defines redefine the Windows Socket errors as - * BSD errors so Tcl_PosixError can do the right thing. - */ - -#ifndef ENOTEMPTY -# define ENOTEMPTY 41 /* Directory not empty */ -#endif -#ifndef EREMOTE -# define EREMOTE 66 /* The object is remote */ -#endif -#ifndef EPFNOSUPPORT -# define EPFNOSUPPORT 96 /* Protocol family not supported */ -#endif -#ifndef EADDRINUSE -# define EADDRINUSE 100 /* Address already in use */ -#endif -#ifndef EADDRNOTAVAIL -# define EADDRNOTAVAIL 101 /* Can't assign requested address */ -#endif -#ifndef EAFNOSUPPORT -# define EAFNOSUPPORT 102 /* Address family not supported */ -#endif -#ifndef EALREADY -# define EALREADY 103 /* Operation already in progress */ -#endif -#ifndef EBADMSG -# define EBADMSG 104 /* Not a data message */ -#endif -#ifndef ECANCELED -# define ECANCELED 105 /* Canceled */ -#endif -#ifndef ECONNABORTED -# define ECONNABORTED 106 /* Software caused connection abort */ -#endif -#ifndef ECONNREFUSED -# define ECONNREFUSED 107 /* Connection refused */ -#endif -#ifndef ECONNRESET -# define ECONNRESET 108 /* Connection reset by peer */ -#endif -#ifndef EDESTADDRREQ -# define EDESTADDRREQ 109 /* Destination address required */ -#endif -#ifndef EHOSTUNREACH -# define EHOSTUNREACH 110 /* No route to host */ -#endif -#ifndef EIDRM -# define EIDRM 111 /* Identifier removed */ -#endif -#ifndef EINPROGRESS -# define EINPROGRESS 112 /* Operation now in progress */ -#endif -#ifndef EISCONN -# define EISCONN 113 /* Socket is already connected */ -#endif -#ifndef ELOOP -# define ELOOP 114 /* Symbolic link loop */ -#endif -#ifndef EMSGSIZE -# define EMSGSIZE 115 /* Message too long */ -#endif -#ifndef ENETDOWN -# define ENETDOWN 116 /* Network is down */ -#endif -#ifndef ENETRESET -# define ENETRESET 117 /* Network dropped connection on reset */ -#endif -#ifndef ENETUNREACH -# define ENETUNREACH 118 /* Network is unreachable */ -#endif -#ifndef ENOBUFS -# define ENOBUFS 119 /* No buffer space available */ -#endif -#ifndef ENODATA -# define ENODATA 120 /* No data available */ -#endif -#ifndef ENOLINK -# define ENOLINK 121 /* Link has be severed */ -#endif -#ifndef ENOMSG -# define ENOMSG 122 /* No message of desired type */ -#endif -#ifndef ENOPROTOOPT -# define ENOPROTOOPT 123 /* Protocol not available */ -#endif -#ifndef ENOSR -# define ENOSR 124 /* Out of stream resources */ -#endif -#ifndef ENOSTR -# define ENOSTR 125 /* Not a stream device */ -#endif -#ifndef ENOTCONN -# define ENOTCONN 126 /* Socket is not connected */ -#endif -#ifndef ENOTRECOVERABLE -# define ENOTRECOVERABLE 127 /* Not recoverable */ -#endif -#ifndef ENOTSOCK -# define ENOTSOCK 128 /* Socket operation on non-socket */ -#endif -#ifndef ENOTSUP -# define ENOTSUP 129 /* Operation not supported */ -#endif -#ifndef EOPNOTSUPP -# define EOPNOTSUPP 130 /* Operation not supported on socket */ -#endif -#ifndef EOTHER -# define EOTHER 131 /* Other error */ -#endif -#ifndef EOVERFLOW -# define EOVERFLOW 132 /* File too big */ -#endif -#ifndef EOWNERDEAD -# define EOWNERDEAD 133 /* Owner dead */ -#endif -#ifndef EPROTO -# define EPROTO 134 /* Protocol error */ -#endif -#ifndef EPROTONOSUPPORT -# define EPROTONOSUPPORT 135 /* Protocol not supported */ -#endif -#ifndef EPROTOTYPE -# define EPROTOTYPE 136 /* Protocol wrong type for socket */ -#endif -#ifndef ETIME -# define ETIME 137 /* Timer expired */ -#endif -#ifndef ETIMEDOUT -# define ETIMEDOUT 138 /* Connection timed out */ -#endif -#ifndef ETXTBSY -# define ETXTBSY 139 /* Text file or pseudo-device busy */ -#endif -#ifndef EWOULDBLOCK -# define EWOULDBLOCK 140 /* Operation would block */ -#endif - - -/* Visual Studio doesn't have these, so just choose some high numbers */ -#ifndef ESOCKTNOSUPPORT -# define ESOCKTNOSUPPORT 240 /* Socket type not supported */ -#endif -#ifndef ESHUTDOWN -# define ESHUTDOWN 241 /* Can't send after socket shutdown */ -#endif -#ifndef ETOOMANYREFS -# define ETOOMANYREFS 242 /* Too many references: can't splice */ -#endif -#ifndef EHOSTDOWN -# define EHOSTDOWN 243 /* Host is down */ -#endif -#ifndef EUSERS -# define EUSERS 244 /* Too many users (for UFS) */ -#endif -#ifndef EDQUOT -# define EDQUOT 245 /* Disc quota exceeded */ -#endif -#ifndef ESTALE -# define ESTALE 246 /* Stale NFS file handle */ -#endif - -/* - * Signals not known to the standard ANSI signal.h. These are used - * by Tcl_WaitPid() and generic/tclPosixStr.c - */ - -#ifndef SIGTRAP -# define SIGTRAP 5 -#endif -#ifndef SIGBUS -# define SIGBUS 10 -#endif - -/* - * Supply definitions for macros to query wait status, if not already - * defined in header files above. - */ - -#if TCL_UNION_WAIT -# define WAIT_STATUS_TYPE union wait -#else -# define WAIT_STATUS_TYPE int -#endif /* TCL_UNION_WAIT */ - -#ifndef WIFEXITED -# define WIFEXITED(stat) (((*((int *) &(stat))) & 0xC0000000) == 0) -#endif - -#ifndef WEXITSTATUS -# define WEXITSTATUS(stat) (*((int *) &(stat))) -#endif - -#ifndef WIFSIGNALED -# define WIFSIGNALED(stat) ((*((int *) &(stat))) & 0xC0000000) -#endif - -#ifndef WTERMSIG -# define WTERMSIG(stat) ((*((int *) &(stat))) & 0x7f) -#endif - -#ifndef WIFSTOPPED -# define WIFSTOPPED(stat) 0 -#endif - -#ifndef WSTOPSIG -# define WSTOPSIG(stat) (((*((int *) &(stat))) >> 8) & 0xff) -#endif - -/* - * Define constants for waitpid() system call if they aren't defined - * by a system header file. - */ - -#ifndef WNOHANG -# define WNOHANG 1 -#endif -#ifndef WUNTRACED -# define WUNTRACED 2 -#endif - -/* - * Define access mode constants if they aren't already defined. - */ - -#ifndef F_OK -# define F_OK 00 -#endif -#ifndef X_OK -# define X_OK 01 -#endif -#ifndef W_OK -# define W_OK 02 -#endif -#ifndef R_OK -# define R_OK 04 -#endif - -/* - * Define macros to query file type bits, if they're not already - * defined. - */ - -#ifndef S_IFLNK -# define S_IFLNK 0120000 /* Symbolic Link */ -#endif - -/* - * Windows compilers do not define S_IFBLK. However, Tcl uses it in - * GetTypeFromMode to identify blockSpecial devices based on the - * value in the statsbuf st_mode field. We have no other way to pass this - * from NativeStat on Windows so are forced to define it here. - * The definition here is essentially what is seen on Linux and MingW. - * XXX - the root problem is Tcl using Unix definitions instead of - * abstracting the structure into a platform independent one. Sigh - perhaps - * Tcl 9 - */ -#ifndef S_IFBLK -# define S_IFBLK (S_IFDIR | S_IFCHR) -#endif - -#ifndef S_ISREG -# ifdef S_IFREG -# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) -# else -# define S_ISREG(m) 0 -# endif -#endif /* !S_ISREG */ -#ifndef S_ISDIR -# ifdef S_IFDIR -# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) -# else -# define S_ISDIR(m) 0 -# endif -#endif /* !S_ISDIR */ -#ifndef S_ISCHR -# ifdef S_IFCHR -# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) -# else -# define S_ISCHR(m) 0 -# endif -#endif /* !S_ISCHR */ -#ifndef S_ISBLK -# ifdef S_IFBLK -# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) -# else -# define S_ISBLK(m) 0 -# endif -#endif /* !S_ISBLK */ -#ifndef S_ISFIFO -# ifdef S_IFIFO -# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) -# else -# define S_ISFIFO(m) 0 -# endif -#endif /* !S_ISFIFO */ -#ifndef S_ISLNK -# ifdef S_IFLNK -# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) -# else -# define S_ISLNK(m) 0 -# endif -#endif /* !S_ISLNK */ - - -/* - * Define MAXPATHLEN in terms of MAXPATH if available - */ - -#ifndef MAXPATH -# define MAXPATH MAX_PATH -#endif /* MAXPATH */ - -#ifndef MAXPATHLEN -# define MAXPATHLEN MAXPATH -#endif /* MAXPATHLEN */ - -/* - * Define pid_t and uid_t if they're not already defined. - */ - -#if ! TCL_PID_T -# define pid_t int -#endif /* !TCL_PID_T */ -#if ! TCL_UID_T -# define uid_t int -#endif /* !TCL_UID_T */ - -/* - * Visual C++ has some odd names for common functions, so we need to - * define a few macros to handle them. Also, it defines EDEADLOCK and - * EDEADLK as the same value, which confuses Tcl_ErrnoId(). - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define environ _environ -# if defined(_MSC_VER) && (_MSC_VER < 1600) -# define hypot _hypot -# endif -# define exception _exception -# undef EDEADLOCK -# if defined(_MSC_VER) && (_MSC_VER >= 1700) -# define timezone _timezone -# endif -#endif /* _MSC_VER || __MSVCRT__ */ - -/* - * Borland's timezone and environ functions. - */ - -#ifdef __BORLANDC__ -# define timezone _timezone -# define environ _environ -#endif /* __BORLANDC__ */ - -#ifdef __WATCOMC__ -# if !defined(__CHAR_SIGNED__) -# error "You must use the -j switch to ensure char is signed." -# endif -#endif - - -/* - * MSVC 8.0 started to mark many standard C library functions depreciated - * including the *printf family and others. Tell it to shut up. - * (_MSC_VER is 1200 for VC6, 1300 or 1310 for vc7.net, 1400 for 8.0) - */ -#if defined(_MSC_VER) -# pragma warning(disable:4146) -# pragma warning(disable:4244) -# if _MSC_VER >= 1400 -# pragma warning(disable:4267) -# pragma warning(disable:4996) -# endif -#endif - -/* - *--------------------------------------------------------------------------- - * The following macros and declarations represent the interface between - * generic and windows-specific parts of Tcl. Some of the macros may - * override functions declared in tclInt.h. - *--------------------------------------------------------------------------- - */ - -/* - * The default platform eol translation on Windows is TCL_TRANSLATE_CRLF: - */ - -#define TCL_PLATFORM_TRANSLATION TCL_TRANSLATE_CRLF - -/* - * Declare dynamic loading extension macro. - */ - -#define TCL_SHLIB_EXT ".dll" - -/* - * The following define ensures that we use the native putenv - * implementation to modify the environment array. This keeps - * the C level environment in synch with the system level environment. - */ - -#define USE_PUTENV 1 -#define USE_PUTENV_FOR_UNSET 1 - -/* - * Msvcrt's putenv() copies the string rather than takes ownership of it. - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define HAVE_PUTENV_THAT_COPIES 1 -#endif - -/* - * Older version of Mingw are known to lack a MWMO_ALERTABLE define. - */ -#if !defined(MWMO_ALERTABLE) -# define MWMO_ALERTABLE 2 -#endif - -/* - * The following defines wrap the system memory allocation routines for - * use by tclAlloc.c. - */ - -#define TclpSysAlloc(size, isBin) ((void*)HeapAlloc(GetProcessHeap(), \ - (DWORD)0, (DWORD)size)) -#define TclpSysFree(ptr) (HeapFree(GetProcessHeap(), \ - (DWORD)0, (HGLOBAL)ptr)) -#define TclpSysRealloc(ptr, size) ((void*)HeapReAlloc(GetProcessHeap(), \ - (DWORD)0, (LPVOID)ptr, (DWORD)size)) - -/* This type is not defined in the Windows headers */ -#define socklen_t int - - -/* - * The following macros have trivial definitions, allowing generic code to - * address platform-specific issues. - */ - -#define TclpReleaseFile(file) ckfree((char *) file) - -/* - * The following macros and declarations wrap the C runtime library - * functions. - */ - -#define TclpExit exit - -#ifndef INVALID_SET_FILE_POINTER -#define INVALID_SET_FILE_POINTER 0xFFFFFFFF -#endif /* INVALID_SET_FILE_POINTER */ - -#ifndef LABEL_SECURITY_INFORMATION -# define LABEL_SECURITY_INFORMATION (0x00000010L) -#endif - -#define Tcl_DirEntry void -#define TclDIR void - -#endif /* _TCLWINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tk.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tk.h deleted file mode 100644 index ce5902d94..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tk.h +++ /dev/null @@ -1,1624 +0,0 @@ -/* - * tk.h -- - * - * Declarations for Tk-related things that are visible outside of the Tk - * module itself. - * - * Copyright (c) 1989-1994 The Regents of the University of California. - * Copyright (c) 1994 The Australian National University. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 Ajuba Solutions. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TK -#define _TK - -#include -#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION < 6) -# error Tk 8.6 must be compiled with tcl.h from Tcl 8.6 or better -#endif - -#ifndef CONST84 -# define CONST84 const -# define CONST84_RETURN const -#endif -#ifndef CONST86 -# define CONST86 CONST84 -#endif -#ifndef EXTERN -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * When version numbers change here, you must also go into the following files - * and update the version numbers: - * - * library/tk.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * README (sections 0 and 1) - * macosx/Tk-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) - * unix/README (not patchlevel) - * unix/tk.spec (1 LOC patch) - * win/tcl.m4 (not patchlevel) - * - * You may also need to update some of these files when the numbers change for - * the version of Tcl that this release of Tk is compiled against. - */ - -#define TK_MAJOR_VERSION 8 -#define TK_MINOR_VERSION 6 -#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TK_RELEASE_SERIAL 10 - -#define TK_VERSION "8.6" -#define TK_PATCH_LEVEL "8.6.10" - -/* - * A special definition used to allow this header file to be included from - * windows or mac resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool and manually set - * for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and procedure - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -#if !defined(_XLIB_H) && !defined(_X11_XLIB_H_) -# include -# ifdef MAC_OSX_TK -# include -# endif -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -# include -#endif - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - *---------------------------------------------------------------------- - * - * Decide whether or not to use input methods. - */ - -#ifdef XNQueryInputStyle -#define TK_USE_INPUT_METHODS -#endif - -/* - * Dummy types that are used by clients: - */ - -typedef struct Tk_BindingTable_ *Tk_BindingTable; -typedef struct Tk_Canvas_ *Tk_Canvas; -typedef struct Tk_Cursor_ *Tk_Cursor; -typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; -typedef struct Tk_Font_ *Tk_Font; -typedef struct Tk_Image__ *Tk_Image; -typedef struct Tk_ImageMaster_ *Tk_ImageMaster; -typedef struct Tk_OptionTable_ *Tk_OptionTable; -typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; -typedef struct Tk_TextLayout_ *Tk_TextLayout; -typedef struct Tk_Window_ *Tk_Window; -typedef struct Tk_3DBorder_ *Tk_3DBorder; -typedef struct Tk_Style_ *Tk_Style; -typedef struct Tk_StyleEngine_ *Tk_StyleEngine; -typedef struct Tk_StyledElement_ *Tk_StyledElement; - -/* - * Additional types exported to clients. - */ - -typedef const char *Tk_Uid; - -/* - *---------------------------------------------------------------------- - * - * The enum below defines the valid types for Tk configuration options as - * implemented by Tk_InitOptions, Tk_SetOptions, etc. - */ - -typedef enum { - TK_OPTION_BOOLEAN, - TK_OPTION_INT, - TK_OPTION_DOUBLE, - TK_OPTION_STRING, - TK_OPTION_STRING_TABLE, - TK_OPTION_COLOR, - TK_OPTION_FONT, - TK_OPTION_BITMAP, - TK_OPTION_BORDER, - TK_OPTION_RELIEF, - TK_OPTION_CURSOR, - TK_OPTION_JUSTIFY, - TK_OPTION_ANCHOR, - TK_OPTION_SYNONYM, - TK_OPTION_PIXELS, - TK_OPTION_WINDOW, - TK_OPTION_END, - TK_OPTION_CUSTOM, - TK_OPTION_STYLE -} Tk_OptionType; - -/* - * Structures of the following type are used by widgets to specify their - * configuration options. Typically each widget has a static array of these - * structures, where each element of the array describes a single - * configuration option. The array is passed to Tk_CreateOptionTable. - */ - -typedef struct Tk_OptionSpec { - Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; - * see definitions above. Last option in table - * must have type TK_OPTION_END. */ - const char *optionName; /* Name used to specify option in Tcl - * commands. */ - const char *dbName; /* Name for option in option database. */ - const char *dbClass; /* Class for option in database. */ - const char *defValue; /* Default value for option if not specified - * in command line, the option database, or - * the system. */ - int objOffset; /* Where in record to store a Tcl_Obj * that - * holds the value of this option, specified - * as an offset in bytes from the start of the - * record. Use the Tk_Offset macro to generate - * values for this. -1 means don't store the - * Tcl_Obj in the record. */ - int internalOffset; /* Where in record to store the internal - * representation of the value of this option, - * such as an int or XColor *. This field is - * specified as an offset in bytes from the - * start of the record. Use the Tk_Offset - * macro to generate values for it. -1 means - * don't store the internal representation in - * the record. */ - int flags; /* Any combination of the values defined - * below. */ - const void *clientData; /* An alternate place to put option-specific - * data. Used for the monochrome default value - * for colors, etc. */ - int typeMask; /* An arbitrary bit mask defined by the class - * manager; typically bits correspond to - * certain kinds of options such as all those - * that require a redisplay when they change. - * Tk_SetOptions returns the bit-wise OR of - * the typeMasks of all options that were - * changed. */ -} Tk_OptionSpec; - -/* - * Flag values for Tk_OptionSpec structures. These flags are shared by - * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. - */ - -#define TK_OPTION_NULL_OK (1 << 0) -#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) - -/* - * The following structure and function types are used by TK_OPTION_CUSTOM - * options; the structure holds pointers to the functions needed by the Tk - * option config code to handle a custom option. - */ - -typedef int (Tk_CustomOptionSetProc) (ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, - int offset, char *saveInternalPtr, int flags); -typedef Tcl_Obj *(Tk_CustomOptionGetProc) (ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset); -typedef void (Tk_CustomOptionRestoreProc) (ClientData clientData, - Tk_Window tkwin, char *internalPtr, char *saveInternalPtr); -typedef void (Tk_CustomOptionFreeProc) (ClientData clientData, Tk_Window tkwin, - char *internalPtr); - -typedef struct Tk_ObjCustomOption { - const char *name; /* Name of the custom option. */ - Tk_CustomOptionSetProc *setProc; - /* Function to use to set a record's option - * value from a Tcl_Obj */ - Tk_CustomOptionGetProc *getProc; - /* Function to use to get a Tcl_Obj - * representation from an internal - * representation of an option. */ - Tk_CustomOptionRestoreProc *restoreProc; - /* Function to use to restore a saved value - * for the internal representation. */ - Tk_CustomOptionFreeProc *freeProc; - /* Function to use to free the internal - * representation of an option. */ - ClientData clientData; /* Arbitrary one-word value passed to the - * handling procs. */ -} Tk_ObjCustomOption; - -/* - * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. - * Computes number of bytes from beginning of structure to a given field. - */ - -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -/* Workaround for platforms missing offsetof(), e.g. VC++ 6.0 */ -#ifndef offsetof -# define offsetof(type, field) ((size_t) ((char *) &((type *) 0)->field)) -#endif - -/* - * The following two structures are used for error handling. When config - * options are being modified, the old values are saved in a Tk_SavedOptions - * structure. If an error occurs, then the contents of the structure can be - * used to restore all of the old values. The contents of this structure are - * for the private use Tk. No-one outside Tk should ever read or write any of - * the fields of these structures. - */ - -typedef struct Tk_SavedOption { - struct TkOption *optionPtr; /* Points to information that describes the - * option. */ - Tcl_Obj *valuePtr; /* The old value of the option, in the form of - * a Tcl object; may be NULL if the value was - * not saved as an object. */ - double internalForm; /* The old value of the option, in some - * internal representation such as an int or - * (XColor *). Valid only if the field - * optionPtr->specPtr->objOffset is < 0. The - * space must be large enough to accommodate a - * double, a long, or a pointer; right now it - * looks like a double (i.e., 8 bytes) is big - * enough. Also, using a double guarantees - * that the field is properly aligned for - * storing large values. */ -} Tk_SavedOption; - -#ifdef TCL_MEM_DEBUG -# define TK_NUM_SAVED_OPTIONS 2 -#else -# define TK_NUM_SAVED_OPTIONS 20 -#endif - -typedef struct Tk_SavedOptions { - char *recordPtr; /* The data structure in which to restore - * configuration options. */ - Tk_Window tkwin; /* Window associated with recordPtr; needed to - * restore certain options. */ - int numItems; /* The number of valid items in items field. */ - Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; - /* Items used to hold old values. */ - struct Tk_SavedOptions *nextPtr; - /* Points to next structure in list; needed if - * too many options changed to hold all the - * old values in a single structure. NULL - * means no more structures. */ -} Tk_SavedOptions; - -/* - * Structure used to describe application-specific configuration options: - * indicates procedures to call to parse an option and to return a text string - * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES - * LISTED ABOVE. - */ - -/* - * This is a temporary flag used while tkObjConfig and new widgets are in - * development. - */ - -#ifndef __NO_OLD_CONFIG - -typedef int (Tk_OptionParseProc) (ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, CONST84 char *value, char *widgRec, int offset); -typedef CONST86 char *(Tk_OptionPrintProc) (ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); - -typedef struct Tk_CustomOption { - Tk_OptionParseProc *parseProc; - /* Procedure to call to parse an option and - * store it in converted form. */ - Tk_OptionPrintProc *printProc; - /* Procedure to return a printable string - * describing an existing option. */ - ClientData clientData; /* Arbitrary one-word value used by option - * parser: passed to parseProc and - * printProc. */ -} Tk_CustomOption; - -/* - * Structure used to specify information for Tk_ConfigureWidget. Each - * structure gives complete information for one option, including how the - * option is specified on the command line, where it appears in the option - * database, etc. - */ - -typedef struct Tk_ConfigSpec { - int type; /* Type of option, such as TK_CONFIG_COLOR; - * see definitions below. Last option in table - * must have type TK_CONFIG_END. */ - CONST86 char *argvName; /* Switch used to specify option in argv. NULL - * means this spec is part of a group. */ - Tk_Uid dbName; /* Name for option in option database. */ - Tk_Uid dbClass; /* Class for option in database. */ - Tk_Uid defValue; /* Default value for option if not specified - * in command line or database. */ - int offset; /* Where in widget record to store value; use - * Tk_Offset macro to generate values for - * this. */ - int specFlags; /* Any combination of the values defined - * below; other bits are used internally by - * tkConfig.c. */ - CONST86 Tk_CustomOption *customPtr; - /* If type is TK_CONFIG_CUSTOM then this is a - * pointer to info about how to parse and - * print the option. Otherwise it is - * irrelevant. */ -} Tk_ConfigSpec; - -/* - * Type values for Tk_ConfigSpec structures. See the user documentation for - * details. - */ - -typedef enum { - TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, - TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, - TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, - TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, - TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, - TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, - TK_CONFIG_END -} Tk_ConfigTypes; - -/* - * Possible values for flags argument to Tk_ConfigureWidget: - */ - -#define TK_CONFIG_ARGV_ONLY 1 -#define TK_CONFIG_OBJS 0x80 - -/* - * Possible flag values for Tk_ConfigSpec structures. Any bits at or above - * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. - * Before changing any values here, coordinate with tkOldConfig.c - * (internal-use-only flags are defined there). - */ - -#define TK_CONFIG_NULL_OK (1 << 0) -#define TK_CONFIG_COLOR_ONLY (1 << 1) -#define TK_CONFIG_MONO_ONLY (1 << 2) -#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) -#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) -#define TK_CONFIG_USER_BIT 0x100 -#endif /* __NO_OLD_CONFIG */ - -/* - * Structure used to specify how to handle argv options. - */ - -typedef struct { - CONST86 char *key; /* The key string that flags the option in the - * argv array. */ - int type; /* Indicates option type; see below. */ - char *src; /* Value to be used in setting dst; usage - * depends on type. */ - char *dst; /* Address of value to be modified; usage - * depends on type. */ - CONST86 char *help; /* Documentation message describing this - * option. */ -} Tk_ArgvInfo; - -/* - * Legal values for the type field of a Tk_ArgvInfo: see the user - * documentation for details. - */ - -#define TK_ARGV_CONSTANT 15 -#define TK_ARGV_INT 16 -#define TK_ARGV_STRING 17 -#define TK_ARGV_UID 18 -#define TK_ARGV_REST 19 -#define TK_ARGV_FLOAT 20 -#define TK_ARGV_FUNC 21 -#define TK_ARGV_GENFUNC 22 -#define TK_ARGV_HELP 23 -#define TK_ARGV_CONST_OPTION 24 -#define TK_ARGV_OPTION_VALUE 25 -#define TK_ARGV_OPTION_NAME_VALUE 26 -#define TK_ARGV_END 27 - -/* - * Flag bits for passing to Tk_ParseArgv: - */ - -#define TK_ARGV_NO_DEFAULTS 0x1 -#define TK_ARGV_NO_LEFTOVERS 0x2 -#define TK_ARGV_NO_ABBREV 0x4 -#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 - -/* - * Enumerated type for describing actions to be taken in response to a - * restrictProc established by Tk_RestrictEvents. - */ - -typedef enum { - TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT -} Tk_RestrictAction; - -/* - * Priority levels to pass to Tk_AddOption: - */ - -#define TK_WIDGET_DEFAULT_PRIO 20 -#define TK_STARTUP_FILE_PRIO 40 -#define TK_USER_DEFAULT_PRIO 60 -#define TK_INTERACTIVE_PRIO 80 -#define TK_MAX_PRIO 100 - -/* - * Relief values returned by Tk_GetRelief: - */ - -#define TK_RELIEF_NULL -1 -#define TK_RELIEF_FLAT 0 -#define TK_RELIEF_GROOVE 1 -#define TK_RELIEF_RAISED 2 -#define TK_RELIEF_RIDGE 3 -#define TK_RELIEF_SOLID 4 -#define TK_RELIEF_SUNKEN 5 - -/* - * "Which" argument values for Tk_3DBorderGC: - */ - -#define TK_3D_FLAT_GC 1 -#define TK_3D_LIGHT_GC 2 -#define TK_3D_DARK_GC 3 - -/* - * Special EnterNotify/LeaveNotify "mode" for use in events generated by - * tkShare.c. Pick a high enough value that it's unlikely to conflict with - * existing values (like NotifyNormal) or any new values defined in the - * future. - */ - -#define TK_NOTIFY_SHARE 20 - -/* - * Enumerated type for describing a point by which to anchor something: - */ - -typedef enum { - TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, - TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, - TK_ANCHOR_CENTER -} Tk_Anchor; - -/* - * Enumerated type for describing a style of justification: - */ - -typedef enum { - TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER -} Tk_Justify; - -/* - * The following structure is used by Tk_GetFontMetrics() to return - * information about the properties of a Tk_Font. - */ - -typedef struct Tk_FontMetrics { - int ascent; /* The amount in pixels that the tallest - * letter sticks up above the baseline, plus - * any extra blank space added by the designer - * of the font. */ - int descent; /* The largest amount in pixels that any - * letter sticks below the baseline, plus any - * extra blank space added by the designer of - * the font. */ - int linespace; /* The sum of the ascent and descent. How far - * apart two lines of text in the same font - * should be placed so that none of the - * characters in one line overlap any of the - * characters in the other line. */ -} Tk_FontMetrics; - -/* - * Flags passed to Tk_MeasureChars: - */ - -#define TK_WHOLE_WORDS 1 -#define TK_AT_LEAST_ONE 2 -#define TK_PARTIAL_OK 4 - -/* - * Flags passed to Tk_ComputeTextLayout: - */ - -#define TK_IGNORE_TABS 8 -#define TK_IGNORE_NEWLINES 16 - -/* - * Widget class procedures used to implement platform specific widget - * behavior. - */ - -typedef Window (Tk_ClassCreateProc) (Tk_Window tkwin, Window parent, - ClientData instanceData); -typedef void (Tk_ClassWorldChangedProc) (ClientData instanceData); -typedef void (Tk_ClassModalProc) (Tk_Window tkwin, XEvent *eventPtr); - -typedef struct Tk_ClassProcs { - unsigned int size; - Tk_ClassWorldChangedProc *worldChangedProc; - /* Procedure to invoke when the widget needs - * to respond in some way to a change in the - * world (font changes, etc.) */ - Tk_ClassCreateProc *createProc; - /* Procedure to invoke when the platform- - * dependent window needs to be created. */ - Tk_ClassModalProc *modalProc; - /* Procedure to invoke after all bindings on a - * widget have been triggered in order to - * handle a modal loop. */ -} Tk_ClassProcs; - -/* - * Simple accessor for Tk_ClassProcs structure. Checks that the structure is - * not NULL, then checks the size field and returns either the requested - * field, if present, or NULL if the structure is too small to have the field - * (or NULL if the structure is NULL). - * - * A more general version of this function may be useful if other - * size-versioned structure pop up in the future: - * - * #define Tk_GetField(name, who, which) \ - * (((who) == NULL) ? NULL : - * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) - */ - -#define Tk_GetClassProc(procs, which) \ - (((procs) == NULL) ? NULL : \ - (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) - -/* - * Each geometry manager (the packer, the placer, etc.) is represented by a - * structure of the following form, which indicates procedures to invoke in - * the geometry manager to carry out certain functions. - */ - -typedef void (Tk_GeomRequestProc) (ClientData clientData, Tk_Window tkwin); -typedef void (Tk_GeomLostSlaveProc) (ClientData clientData, Tk_Window tkwin); - -typedef struct Tk_GeomMgr { - const char *name; /* Name of the geometry manager (command used - * to invoke it, or name of widget class that - * allows embedded widgets). */ - Tk_GeomRequestProc *requestProc; - /* Procedure to invoke when a slave's - * requested geometry changes. */ - Tk_GeomLostSlaveProc *lostSlaveProc; - /* Procedure to invoke when a slave is taken - * away from one geometry manager by another. - * NULL means geometry manager doesn't care - * when slaves are lost. */ -} Tk_GeomMgr; - -/* - * Result values returned by Tk_GetScrollInfo: - */ - -#define TK_SCROLL_MOVETO 1 -#define TK_SCROLL_PAGES 2 -#define TK_SCROLL_UNITS 3 -#define TK_SCROLL_ERROR 4 - -/* - *---------------------------------------------------------------------- - * - * Extensions to the X event set - * - *---------------------------------------------------------------------- - */ - -#define VirtualEvent (MappingNotify + 1) -#define ActivateNotify (MappingNotify + 2) -#define DeactivateNotify (MappingNotify + 3) -#define MouseWheelEvent (MappingNotify + 4) -#define TK_LASTEVENT (MappingNotify + 5) - -#define MouseWheelMask (1L << 28) -#define ActivateMask (1L << 29) -#define VirtualEventMask (1L << 30) - -/* - * A virtual event shares most of its fields with the XKeyEvent and - * XButtonEvent structures. 99% of the time a virtual event will be an - * abstraction of a key or button event, so this structure provides the most - * information to the user. The only difference is the changing of the detail - * field for a virtual event so that it holds the name of the virtual event - * being triggered. - * - * When using this structure, you should ensure that you zero out all the - * fields first using memset() or bzero(). - */ - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window event; /* Window on which event was requested. */ - Window root; /* Root window that the event occurred on. */ - Window subwindow; /* Child window. */ - Time time; /* Milliseconds. */ - int x, y; /* Pointer x, y coordinates in event - * window. */ - int x_root, y_root; /* Coordinates relative to root. */ - unsigned int state; /* Key or button mask */ - Tk_Uid name; /* Name of virtual event. */ - Bool same_screen; /* Same screen flag. */ - Tcl_Obj *user_data; /* Application-specific data reference; Tk - * will decrement the reference count *once* - * when it has finished processing the - * event. */ -} XVirtualEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window window; /* Window in which event occurred. */ -} XActivateDeactivateEvent; -typedef XActivateDeactivateEvent XActivateEvent; -typedef XActivateDeactivateEvent XDeactivateEvent; - -/* - *---------------------------------------------------------------------- - * - * Macros for querying Tk_Window structures. See the manual entries for - * documentation. - * - *---------------------------------------------------------------------- - */ - -#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) -#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) -#define Tk_Screen(tkwin) \ - (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) -#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) -#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) -#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) -#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) -#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) -#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) -#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) -#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) -#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) -#define Tk_Height(tkwin) \ - (((Tk_FakeWin *) (tkwin))->changes.height) -#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) -#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) -#define Tk_IsEmbedded(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) -#define Tk_IsContainer(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) -#define Tk_IsMapped(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) -#define Tk_IsTopLevel(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) -#define Tk_HasWrapper(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) -#define Tk_WinManaged(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) -#define Tk_TopWinHierarchy(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) -#define Tk_IsManageable(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WM_MANAGEABLE) -#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) -#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) -/* Tk_InternalBorderWidth is deprecated */ -#define Tk_InternalBorderWidth(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderLeft(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderRight(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderRight) -#define Tk_InternalBorderTop(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderTop) -#define Tk_InternalBorderBottom(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderBottom) -#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) -#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) -#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) -#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) - -/* - * The structure below is needed by the macros above so that they can access - * the fields of a Tk_Window. The fields not needed by the macros are declared - * as "dummyX". The structure has its own type in order to prevent apps from - * accessing Tk_Window fields except using official macros. WARNING!! The - * structure definition must be kept consistent with the TkWindow structure in - * tkInt.h. If you change one, then change the other. See the declaration in - * tkInt.h for documentation on what the fields are used for internally. - */ - -typedef struct Tk_FakeWin { - Display *display; - char *dummy1; /* dispPtr */ - int screenNum; - Visual *visual; - int depth; - Window window; - char *dummy2; /* childList */ - char *dummy3; /* lastChildPtr */ - Tk_Window parentPtr; /* parentPtr */ - char *dummy4; /* nextPtr */ - char *dummy5; /* mainPtr */ - char *pathName; - Tk_Uid nameUid; - Tk_Uid classUid; - XWindowChanges changes; - unsigned int dummy6; /* dirtyChanges */ - XSetWindowAttributes atts; - unsigned long dummy7; /* dirtyAtts */ - unsigned int flags; - char *dummy8; /* handlerList */ -#ifdef TK_USE_INPUT_METHODS - XIC dummy9; /* inputContext */ -#endif /* TK_USE_INPUT_METHODS */ - ClientData *dummy10; /* tagPtr */ - int dummy11; /* numTags */ - int dummy12; /* optionLevel */ - char *dummy13; /* selHandlerList */ - char *dummy14; /* geomMgrPtr */ - ClientData dummy15; /* geomData */ - int reqWidth, reqHeight; - int internalBorderLeft; - char *dummy16; /* wmInfoPtr */ - char *dummy17; /* classProcPtr */ - ClientData dummy18; /* instanceData */ - char *dummy19; /* privatePtr */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - int minReqWidth; - int minReqHeight; -#ifdef TK_USE_INPUT_METHODS - int dummy20; -#endif /* TK_USE_INPUT_METHODS */ - char *dummy21; /* geomMgrName */ - Tk_Window dummy22; /* maintainerPtr */ -} Tk_FakeWin; - -/* - * Flag values for TkWindow (and Tk_FakeWin) structures are: - * - * TK_MAPPED: 1 means window is currently mapped, - * 0 means unmapped. - * TK_TOP_LEVEL: 1 means this is a top-level widget. - * TK_ALREADY_DEAD: 1 means the window is in the process of - * being destroyed already. - * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured - * before it was made to exist. At the time of - * making it exist a ConfigureNotify event needs - * to be generated. - * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details - * TK_CHECKED_IC: 1 means we've already tried to get an input - * context for this window; if the ic field is - * NULL it means that there isn't a context for - * the field. - * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not - * invoke XDestroyWindow to destroy this widget's - * X window. The flag is set when the window has - * already been destroyed elsewhere (e.g. by - * another application) or when it will be - * destroyed later (e.g. by destroying its parent) - * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time - * appeared in the WM_COLORMAP_WINDOWS property - * for its toplevel, so we have to remove it from - * that property if the window is deleted and the - * toplevel isn't. - * TK_EMBEDDED: 1 means that this window (which must be a - * toplevel) is not a free-standing window but - * rather is embedded in some other application. - * TK_CONTAINER: 1 means that this window is a container, and - * that some other application (either in this - * process or elsewhere) may be embedding itself - * inside the window. - * TK_BOTH_HALVES: 1 means that this window is used for - * application embedding (either as container or - * embedded application), and both the containing - * and embedded halves are associated with - * windows in this particular process. - * TK_WRAPPER: 1 means that this window is the extra wrapper - * window created around a toplevel to hold the - * menubar under Unix. See tkUnixWm.c for more - * information. - * TK_REPARENTED: 1 means that this window has been reparented - * so that as far as the window system is - * concerned it isn't a child of its Tk parent. - * Initially this is used only for special Unix - * menubar windows. - * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is - * thus not accessible from Tk. - * TK_HAS_WRAPPER 1 means that this window has a wrapper window - * TK_WIN_MANAGED 1 means that this window is a child of the root - * window, and is managed by the window manager. - * TK_TOP_HIERARCHY 1 means this window is at the top of a physical - * window hierarchy within this process, i.e. the - * window's parent either doesn't exist or is not - * owned by this Tk application. - * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the - * window's children should propagate up to this - * window. - * TK_WM_MANAGEABLE 1 marks a window as capable of being converted - * into a toplevel using [wm manage]. - */ - -#define TK_MAPPED 1 -#define TK_TOP_LEVEL 2 -#define TK_ALREADY_DEAD 4 -#define TK_NEED_CONFIG_NOTIFY 8 -#define TK_GRAB_FLAG 0x10 -#define TK_CHECKED_IC 0x20 -#define TK_DONT_DESTROY_WINDOW 0x40 -#define TK_WM_COLORMAP_WINDOW 0x80 -#define TK_EMBEDDED 0x100 -#define TK_CONTAINER 0x200 -#define TK_BOTH_HALVES 0x400 -#define TK_WRAPPER 0x1000 -#define TK_REPARENTED 0x2000 -#define TK_ANONYMOUS_WINDOW 0x4000 -#define TK_HAS_WRAPPER 0x8000 -#define TK_WIN_MANAGED 0x10000 -#define TK_TOP_HIERARCHY 0x20000 -#define TK_PROP_PROPCHANGE 0x40000 -#define TK_WM_MANAGEABLE 0x80000 - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for defining new canvas items: - * - *---------------------------------------------------------------------- - */ - -typedef enum { - TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, - TK_STATE_NORMAL, TK_STATE_HIDDEN -} Tk_State; - -typedef struct Tk_SmoothMethod { - CONST86 char *name; - int (*coordProc) (Tk_Canvas canvas, double *pointPtr, int numPoints, - int numSteps, XPoint xPoints[], double dblPoints[]); - void (*postscriptProc) (Tcl_Interp *interp, Tk_Canvas canvas, - double *coordPtr, int numPoints, int numSteps); -} Tk_SmoothMethod; - -/* - * For each item in a canvas widget there exists one record with the following - * structure. Each actual item is represented by a record with the following - * stuff at its beginning, plus additional type-specific stuff after that. - */ - -#define TK_TAG_SPACE 3 - -typedef struct Tk_Item { - int id; /* Unique identifier for this item (also - * serves as first tag for item). */ - struct Tk_Item *nextPtr; /* Next in display list of all items in this - * canvas. Later items in list are drawn on - * top of earlier ones. */ - Tk_Uid staticTagSpace[TK_TAG_SPACE]; - /* Built-in space for limited # of tags. */ - Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to - * staticTagSpace, but may point to malloc-ed - * space if there are lots of tags. */ - int tagSpace; /* Total amount of tag space available at - * tagPtr. */ - int numTags; /* Number of tag slots actually used at - * *tagPtr. */ - struct Tk_ItemType *typePtr;/* Table of procedures that implement this - * type of item. */ - int x1, y1, x2, y2; /* Bounding box for item, in integer canvas - * units. Set by item-specific code and - * guaranteed to contain every pixel drawn in - * item. Item area includes x1 and y1 but not - * x2 and y2. */ - struct Tk_Item *prevPtr; /* Previous in display list of all items in - * this canvas. Later items in list are drawn - * just below earlier ones. */ - Tk_State state; /* State of item. */ - char *reserved1; /* reserved for future use */ - int redraw_flags; /* Some flags used in the canvas */ - - /* - *------------------------------------------------------------------ - * Starting here is additional type-specific stuff; see the declarations - * for individual types to see what is part of each type. The actual space - * below is determined by the "itemInfoSize" of the type's Tk_ItemType - * record. - *------------------------------------------------------------------ - */ -} Tk_Item; - -/* - * Flag bits for canvases (redraw_flags): - * - * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the - * canvas state changes. - * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been - * prepared, so the general canvas code doesn't - * need to do that any more. - */ - -#define TK_ITEM_STATE_DEPENDANT 1 -#define TK_ITEM_DONT_REDRAW 2 - -/* - * Records of the following type are used to describe a type of item (e.g. - * lines, circles, etc.) that can form part of a canvas widget. - */ - -#ifdef USE_OLD_CANVAS -typedef int (Tk_ItemCreateProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, char **argv); -typedef int (Tk_ItemConfigureProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, char **argv, int flags); -typedef int (Tk_ItemCoordProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, char **argv); -#else -typedef int (Tk_ItemCreateProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, Tcl_Obj *const objv[]); -typedef int (Tk_ItemConfigureProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, Tcl_Obj *const objv[], - int flags); -typedef int (Tk_ItemCoordProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, Tcl_Obj *const argv[]); -#endif /* USE_OLD_CANVAS */ -typedef void (Tk_ItemDeleteProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - Display *display); -typedef void (Tk_ItemDisplayProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - Display *display, Drawable dst, int x, int y, int width, - int height); -typedef double (Tk_ItemPointProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double *pointPtr); -typedef int (Tk_ItemAreaProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double *rectPtr); -typedef int (Tk_ItemPostscriptProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int prepass); -typedef void (Tk_ItemScaleProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double originX, double originY, double scaleX, - double scaleY); -typedef void (Tk_ItemTranslateProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double deltaX, double deltaY); -#ifdef USE_OLD_CANVAS -typedef int (Tk_ItemIndexProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, char *indexString, int *indexPtr); -#else -typedef int (Tk_ItemIndexProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, Tcl_Obj *indexString, int *indexPtr); -#endif /* USE_OLD_CANVAS */ -typedef void (Tk_ItemCursorProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int index); -typedef int (Tk_ItemSelectionProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int offset, char *buffer, int maxBytes); -#ifdef USE_OLD_CANVAS -typedef void (Tk_ItemInsertProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int beforeThis, char *string); -#else -typedef void (Tk_ItemInsertProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int beforeThis, Tcl_Obj *string); -#endif /* USE_OLD_CANVAS */ -typedef void (Tk_ItemDCharsProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int first, int last); - -#ifndef __NO_OLD_CONFIG - -typedef struct Tk_ItemType { - CONST86 char *name; /* The name of this type of item, such as - * "line". */ - int itemSize; /* Total amount of space needed for item's - * record. */ - Tk_ItemCreateProc *createProc; - /* Procedure to create a new item of this - * type. */ - CONST86 Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for - * this type. Used for returning configuration - * info. */ - Tk_ItemConfigureProc *configProc; - /* Procedure to call to change configuration - * options. */ - Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's - * coordinates. */ - Tk_ItemDeleteProc *deleteProc; - /* Procedure to delete existing item of this - * type. */ - Tk_ItemDisplayProc *displayProc; - /* Procedure to display items of this type. */ - int alwaysRedraw; /* Non-zero means displayProc should be called - * even when the item has been moved - * off-screen. */ - Tk_ItemPointProc *pointProc;/* Computes distance from item to a given - * point. */ - Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, - * or overlapping an area. */ - Tk_ItemPostscriptProc *postscriptProc; - /* Procedure to write a Postscript description - * for items of this type. */ - Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ - Tk_ItemTranslateProc *translateProc; - /* Procedure to translate items of this - * type. */ - Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated - * character. NULL if item doesn't support - * indexing. */ - Tk_ItemCursorProc *icursorProc; - /* Procedure to set insert cursor posn to just - * before a given position. */ - Tk_ItemSelectionProc *selectionProc; - /* Procedure to return selection (in STRING - * format) when it is in this item. */ - Tk_ItemInsertProc *insertProc; - /* Procedure to insert something into an - * item. */ - Tk_ItemDCharsProc *dCharsProc; - /* Procedure to delete characters from an - * item. */ - struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ - char *reserved1; /* Reserved for future extension. */ - int reserved2; /* Carefully compatible with */ - char *reserved3; /* Jan Nijtmans dash patch */ - char *reserved4; -} Tk_ItemType; - -/* - * Flag (used in the alwaysRedraw field) to say whether an item supports - * point-level manipulation like the line and polygon items. - */ - -#define TK_MOVABLE_POINTS 2 - -#endif /* __NO_OLD_CONFIG */ - -/* - * The following structure provides information about the selection and the - * insertion cursor. It is needed by only a few items, such as those that - * display text. It is shared by the generic canvas code and the item-specific - * code, but most of the fields should be written only by the canvas generic - * code. - */ - -typedef struct Tk_CanvasTextInfo { - Tk_3DBorder selBorder; /* Border and background for selected - * characters. Read-only to items.*/ - int selBorderWidth; /* Width of border around selection. Read-only - * to items. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * Read-only to items. */ - Tk_Item *selItemPtr; /* Pointer to selected item. NULL means - * selection isn't in this canvas. Writable by - * items. */ - int selectFirst; /* Character index of first selected - * character. Writable by items. */ - int selectLast; /* Character index of last selected character. - * Writable by items. */ - Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not - * necessarily selItemPtr. Read-only to - * items. */ - int selectAnchor; /* Character index of fixed end of selection - * (i.e. "select to" operation will use this - * as one end of the selection). Writable by - * items. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. Read-only to items. */ - int insertWidth; /* Total width of insertion cursor. Read-only - * to items. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. - * Read-only to items. */ - Tk_Item *focusItemPtr; /* Item that currently has the input focus, or - * NULL if no such item. Read-only to items. */ - int gotFocus; /* Non-zero means that the canvas widget has - * the input focus. Read-only to items.*/ - int cursorOn; /* Non-zero means that an insertion cursor - * should be displayed in focusItemPtr. - * Read-only to items.*/ -} Tk_CanvasTextInfo; - -/* - * Structures used for Dashing and Outline. - */ - -typedef struct Tk_Dash { - int number; - union { - char *pt; - char array[sizeof(char *)]; - } pattern; -} Tk_Dash; - -typedef struct Tk_TSOffset { - int flags; /* Flags; see below for possible values */ - int xoffset; /* x offset */ - int yoffset; /* y offset */ -} Tk_TSOffset; - -/* - * Bit fields in Tk_TSOffset->flags: - */ - -#define TK_OFFSET_INDEX 1 -#define TK_OFFSET_RELATIVE 2 -#define TK_OFFSET_LEFT 4 -#define TK_OFFSET_CENTER 8 -#define TK_OFFSET_RIGHT 16 -#define TK_OFFSET_TOP 32 -#define TK_OFFSET_MIDDLE 64 -#define TK_OFFSET_BOTTOM 128 - -typedef struct Tk_Outline { - GC gc; /* Graphics context. */ - double width; /* Width of outline. */ - double activeWidth; /* Width of outline. */ - double disabledWidth; /* Width of outline. */ - int offset; /* Dash offset. */ - Tk_Dash dash; /* Dash pattern. */ - Tk_Dash activeDash; /* Dash pattern if state is active. */ - Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ - void *reserved1; /* Reserved for future expansion. */ - void *reserved2; - void *reserved3; - Tk_TSOffset tsoffset; /* Stipple offset for outline. */ - XColor *color; /* Outline color. */ - XColor *activeColor; /* Outline color if state is active. */ - XColor *disabledColor; /* Outline color if state is disabled. */ - Pixmap stipple; /* Outline Stipple pattern. */ - Pixmap activeStipple; /* Outline Stipple pattern if state is - * active. */ - Pixmap disabledStipple; /* Outline Stipple pattern if state is - * disabled. */ -} Tk_Outline; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing images: - * - *---------------------------------------------------------------------- - */ - -typedef struct Tk_ImageType Tk_ImageType; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, char *name, int argc, - char **argv, Tk_ImageType *typePtr, Tk_ImageMaster master, - ClientData *masterDataPtr); -#else -typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, CONST86 char *name, int objc, - Tcl_Obj *const objv[], CONST86 Tk_ImageType *typePtr, Tk_ImageMaster master, - ClientData *masterDataPtr); -#endif /* USE_OLD_IMAGE */ -typedef ClientData (Tk_ImageGetProc) (Tk_Window tkwin, ClientData masterData); -typedef void (Tk_ImageDisplayProc) (ClientData instanceData, Display *display, - Drawable drawable, int imageX, int imageY, int width, int height, - int drawableX, int drawableY); -typedef void (Tk_ImageFreeProc) (ClientData instanceData, Display *display); -typedef void (Tk_ImageDeleteProc) (ClientData masterData); -typedef void (Tk_ImageChangedProc) (ClientData clientData, int x, int y, - int width, int height, int imageWidth, int imageHeight); -typedef int (Tk_ImagePostscriptProc) (ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, - int x, int y, int width, int height, int prepass); - -/* - * The following structure represents a particular type of image (bitmap, xpm - * image, etc.). It provides information common to all images of that type, - * such as the type name and a collection of procedures in the image manager - * that respond to various events. Each image manager is represented by one of - * these structures. - */ - -struct Tk_ImageType { - CONST86 char *name; /* Name of image type. */ - Tk_ImageCreateProc *createProc; - /* Procedure to call to create a new image of - * this type. */ - Tk_ImageGetProc *getProc; /* Procedure to call the first time - * Tk_GetImage is called in a new way (new - * visual or screen). */ - Tk_ImageDisplayProc *displayProc; - /* Call to draw image, in response to - * Tk_RedrawImage calls. */ - Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is - * called to release an instance of an - * image. */ - Tk_ImageDeleteProc *deleteProc; - /* Procedure to call to delete image. It will - * not be called until after freeProc has been - * called for each instance of the image. */ - Tk_ImagePostscriptProc *postscriptProc; - /* Procedure to call to produce postscript - * output for the image. */ - struct Tk_ImageType *nextPtr; - /* Next in list of all image types currently - * known. Filled in by Tk, not by image - * manager. */ - char *reserved; /* reserved for future expansion */ -}; - -/* - *---------------------------------------------------------------------- - * - * Additional definitions used to manage images of type "photo". - * - *---------------------------------------------------------------------- - */ - -/* - * The following type is used to identify a particular photo image to be - * manipulated: - */ - -typedef void *Tk_PhotoHandle; - -/* - * The following structure describes a block of pixels in memory: - */ - -typedef struct Tk_PhotoImageBlock { - unsigned char *pixelPtr; /* Pointer to the first pixel. */ - int width; /* Width of block, in pixels. */ - int height; /* Height of block, in pixels. */ - int pitch; /* Address difference between corresponding - * pixels in successive lines. */ - int pixelSize; /* Address difference between successive - * pixels in the same line. */ - int offset[4]; /* Address differences between the red, green, - * blue and alpha components of the pixel and - * the pixel as a whole. */ -} Tk_PhotoImageBlock; - -/* - * The following values control how blocks are combined into photo images when - * the alpha component of a pixel is not 255, a.k.a. the compositing rule. - */ - -#define TK_PHOTO_COMPOSITE_OVERLAY 0 -#define TK_PHOTO_COMPOSITE_SET 1 - -/* - * Procedure prototypes and structures used in reading and writing photo - * images: - */ - -typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageFileMatchProc) (Tcl_Channel chan, char *fileName, - char *formatString, int *widthPtr, int *heightPtr); -typedef int (Tk_ImageStringMatchProc) (char *string, char *formatString, - int *widthPtr, int *heightPtr); -typedef int (Tk_ImageFileReadProc) (Tcl_Interp *interp, Tcl_Channel chan, - char *fileName, char *formatString, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); -typedef int (Tk_ImageStringReadProc) (Tcl_Interp *interp, char *string, - char *formatString, Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY); -typedef int (Tk_ImageFileWriteProc) (Tcl_Interp *interp, char *fileName, - char *formatString, Tk_PhotoImageBlock *blockPtr); -typedef int (Tk_ImageStringWriteProc) (Tcl_Interp *interp, - Tcl_DString *dataPtr, char *formatString, Tk_PhotoImageBlock *blockPtr); -#else -typedef int (Tk_ImageFileMatchProc) (Tcl_Channel chan, const char *fileName, - Tcl_Obj *format, int *widthPtr, int *heightPtr, Tcl_Interp *interp); -typedef int (Tk_ImageStringMatchProc) (Tcl_Obj *dataObj, Tcl_Obj *format, - int *widthPtr, int *heightPtr, Tcl_Interp *interp); -typedef int (Tk_ImageFileReadProc) (Tcl_Interp *interp, Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); -typedef int (Tk_ImageStringReadProc) (Tcl_Interp *interp, Tcl_Obj *dataObj, - Tcl_Obj *format, Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY); -typedef int (Tk_ImageFileWriteProc) (Tcl_Interp *interp, const char *fileName, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr); -typedef int (Tk_ImageStringWriteProc) (Tcl_Interp *interp, Tcl_Obj *format, - Tk_PhotoImageBlock *blockPtr); -#endif /* USE_OLD_IMAGE */ - -/* - * The following structure represents a particular file format for storing - * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image - * files of that format to be recognized and read into a photo image. - */ - -struct Tk_PhotoImageFormat { - CONST86 char *name; /* Name of image file format */ - Tk_ImageFileMatchProc *fileMatchProc; - /* Procedure to call to determine whether an - * image file matches this format. */ - Tk_ImageStringMatchProc *stringMatchProc; - /* Procedure to call to determine whether the - * data in a string matches this format. */ - Tk_ImageFileReadProc *fileReadProc; - /* Procedure to call to read data from an - * image file into a photo image. */ - Tk_ImageStringReadProc *stringReadProc; - /* Procedure to call to read data from a - * string into a photo image. */ - Tk_ImageFileWriteProc *fileWriteProc; - /* Procedure to call to write data from a - * photo image to a file. */ - Tk_ImageStringWriteProc *stringWriteProc; - /* Procedure to call to obtain a string - * representation of the data in a photo - * image.*/ - struct Tk_PhotoImageFormat *nextPtr; - /* Next in list of all photo image formats - * currently known. Filled in by Tk, not by - * image format handler. */ -}; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing styles: - * - *---------------------------------------------------------------------- - */ - -/* - * Style support version tag. - */ - -#define TK_STYLE_VERSION_1 0x1 -#define TK_STYLE_VERSION TK_STYLE_VERSION_1 - -/* - * The following structures and prototypes are used as static templates to - * declare widget elements. - */ - -typedef void (Tk_GetElementSizeProc) (ClientData clientData, char *recordPtr, - const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, int width, - int height, int inner, int *widthPtr, int *heightPtr); -typedef void (Tk_GetElementBoxProc) (ClientData clientData, char *recordPtr, - const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, int x, int y, - int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr); -typedef int (Tk_GetElementBorderWidthProc) (ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin); -typedef void (Tk_DrawElementProc) (ClientData clientData, char *recordPtr, - const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, Drawable d, int x, - int y, int width, int height, int state); - -typedef struct Tk_ElementOptionSpec { - char *name; /* Name of the required option. */ - Tk_OptionType type; /* Accepted option type. TK_OPTION_END means - * any. */ -} Tk_ElementOptionSpec; - -typedef struct Tk_ElementSpec { - int version; /* Version of the style support. */ - char *name; /* Name of element. */ - Tk_ElementOptionSpec *options; - /* List of required options. Last one's name - * must be NULL. */ - Tk_GetElementSizeProc *getSize; - /* Compute the external (resp. internal) size - * of the element from its desired internal - * (resp. external) size. */ - Tk_GetElementBoxProc *getBox; - /* Compute the inscribed or bounding boxes - * within a given area. */ - Tk_GetElementBorderWidthProc *getBorderWidth; - /* Return the element's internal border width. - * Mostly useful for widgets. */ - Tk_DrawElementProc *draw; /* Draw the element in the given bounding - * box. */ -} Tk_ElementSpec; - -/* - * Element state flags. Can be OR'ed. - */ - -#define TK_ELEMENT_STATE_ACTIVE 1<<0 -#define TK_ELEMENT_STATE_DISABLED 1<<1 -#define TK_ELEMENT_STATE_FOCUS 1<<2 -#define TK_ELEMENT_STATE_PRESSED 1<<3 - -/* - *---------------------------------------------------------------------- - * - * The definitions below provide backward compatibility for functions and - * types related to event handling that used to be in Tk but have moved to - * Tcl. - * - *---------------------------------------------------------------------- - */ - -#define TK_READABLE TCL_READABLE -#define TK_WRITABLE TCL_WRITABLE -#define TK_EXCEPTION TCL_EXCEPTION - -#define TK_DONT_WAIT TCL_DONT_WAIT -#define TK_X_EVENTS TCL_WINDOW_EVENTS -#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS -#define TK_FILE_EVENTS TCL_FILE_EVENTS -#define TK_TIMER_EVENTS TCL_TIMER_EVENTS -#define TK_IDLE_EVENTS TCL_IDLE_EVENTS -#define TK_ALL_EVENTS TCL_ALL_EVENTS - -#define Tk_IdleProc Tcl_IdleProc -#define Tk_FileProc Tcl_FileProc -#define Tk_TimerProc Tcl_TimerProc -#define Tk_TimerToken Tcl_TimerToken - -#define Tk_BackgroundError Tcl_BackgroundError -#define Tk_CancelIdleCall Tcl_CancelIdleCall -#define Tk_CreateFileHandler Tcl_CreateFileHandler -#define Tk_CreateTimerHandler Tcl_CreateTimerHandler -#define Tk_DeleteFileHandler Tcl_DeleteFileHandler -#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler -#define Tk_DoOneEvent Tcl_DoOneEvent -#define Tk_DoWhenIdle Tcl_DoWhenIdle -#define Tk_Sleep Tcl_Sleep - -/* Additional stuff that has moved to Tcl: */ - -#define Tk_EventuallyFree Tcl_EventuallyFree -#define Tk_FreeProc Tcl_FreeProc -#define Tk_Preserve Tcl_Preserve -#define Tk_Release Tcl_Release - -/* Removed Tk_Main, use macro instead */ -#if defined(_WIN32) || defined(__CYGWIN__) -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(0), (Tcl_CreateInterp)())) -#else -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) -#endif -const char * Tk_InitStubs(Tcl_Interp *interp, const char *version, - int exact); -EXTERN const char * Tk_PkgInitStubsCheck(Tcl_Interp *interp, - const char *version, int exact); - -#ifndef USE_TK_STUBS -#define Tk_InitStubs(interp, version, exact) \ - Tk_PkgInitStubsCheck(interp, version, exact) -#endif /* USE_TK_STUBS */ - -#define Tk_InitImageArgs(interp, argc, argv) /**/ - -/* - *---------------------------------------------------------------------- - * - * Additional procedure types defined by Tk. - * - *---------------------------------------------------------------------- - */ - -typedef int (Tk_ErrorProc) (ClientData clientData, XErrorEvent *errEventPtr); -typedef void (Tk_EventProc) (ClientData clientData, XEvent *eventPtr); -typedef int (Tk_GenericProc) (ClientData clientData, XEvent *eventPtr); -typedef int (Tk_ClientMessageProc) (Tk_Window tkwin, XEvent *eventPtr); -typedef int (Tk_GetSelProc) (ClientData clientData, Tcl_Interp *interp, - CONST86 char *portion); -typedef void (Tk_LostSelProc) (ClientData clientData); -typedef Tk_RestrictAction (Tk_RestrictProc) (ClientData clientData, - XEvent *eventPtr); -typedef int (Tk_SelectionProc) (ClientData clientData, int offset, - char *buffer, int maxBytes); - -/* - *---------------------------------------------------------------------- - * - * Platform independent exported procedures and variables. - * - *---------------------------------------------------------------------- - */ - -#include "tkDecls.h" - -#ifdef USE_OLD_IMAGE -#undef Tk_CreateImageType -#define Tk_CreateImageType Tk_CreateOldImageType -#undef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat -#endif /* USE_OLD_IMAGE */ - -/* - *---------------------------------------------------------------------- - * - * Allow users to say that they don't want to alter their source to add extra - * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. - * - * This goes after the inclusion of the stubbed-decls so that the declarations - * of what is actually there can be correct. - */ - -#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite -# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE -#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic -# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ -#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoExpand -# undef Tk_PhotoExpand -# endif -# define Tk_PhotoExpand Tk_PhotoExpand_Panic -# ifdef Tk_PhotoSetSize -# undef Tk_PhotoSetSize -# endif -# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic -#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TK */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkDecls.h deleted file mode 100644 index 64c32cd2a..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkDecls.h +++ /dev/null @@ -1,1733 +0,0 @@ -/* - * tkDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKDECLS -#define _TKDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN void Tk_MainLoop(void); -/* 1 */ -EXTERN XColor * Tk_3DBorderColor(Tk_3DBorder border); -/* 2 */ -EXTERN GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border, - int which); -/* 3 */ -EXTERN void Tk_3DHorizontalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief); -/* 4 */ -EXTERN void Tk_3DVerticalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief); -/* 5 */ -EXTERN void Tk_AddOption(Tk_Window tkwin, const char *name, - const char *value, int priority); -/* 6 */ -EXTERN void Tk_BindEvent(Tk_BindingTable bindingTable, - XEvent *eventPtr, Tk_Window tkwin, - int numObjects, ClientData *objectPtr); -/* 7 */ -EXTERN void Tk_CanvasDrawableCoords(Tk_Canvas canvas, double x, - double y, short *drawableXPtr, - short *drawableYPtr); -/* 8 */ -EXTERN void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, - int y1, int x2, int y2); -/* 9 */ -EXTERN int Tk_CanvasGetCoord(Tcl_Interp *interp, - Tk_Canvas canvas, const char *str, - double *doublePtr); -/* 10 */ -EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo(Tk_Canvas canvas); -/* 11 */ -EXTERN int Tk_CanvasPsBitmap(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap, int x, - int y, int width, int height); -/* 12 */ -EXTERN int Tk_CanvasPsColor(Tcl_Interp *interp, - Tk_Canvas canvas, XColor *colorPtr); -/* 13 */ -EXTERN int Tk_CanvasPsFont(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Font font); -/* 14 */ -EXTERN void Tk_CanvasPsPath(Tcl_Interp *interp, Tk_Canvas canvas, - double *coordPtr, int numPoints); -/* 15 */ -EXTERN int Tk_CanvasPsStipple(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap); -/* 16 */ -EXTERN double Tk_CanvasPsY(Tk_Canvas canvas, double y); -/* 17 */ -EXTERN void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc); -/* 18 */ -EXTERN int Tk_CanvasTagsParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 19 */ -EXTERN CONST86 char * Tk_CanvasTagsPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 20 */ -EXTERN Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas); -/* 21 */ -EXTERN void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, - double y, short *screenXPtr, - short *screenYPtr); -/* 22 */ -EXTERN void Tk_ChangeWindowAttributes(Tk_Window tkwin, - unsigned long valueMask, - XSetWindowAttributes *attsPtr); -/* 23 */ -EXTERN int Tk_CharBbox(Tk_TextLayout layout, int index, - int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr); -/* 24 */ -EXTERN void Tk_ClearSelection(Tk_Window tkwin, Atom selection); -/* 25 */ -EXTERN int Tk_ClipboardAppend(Tcl_Interp *interp, - Tk_Window tkwin, Atom target, Atom format, - const char *buffer); -/* 26 */ -EXTERN int Tk_ClipboardClear(Tcl_Interp *interp, - Tk_Window tkwin); -/* 27 */ -EXTERN int Tk_ConfigureInfo(Tcl_Interp *interp, Tk_Window tkwin, - const Tk_ConfigSpec *specs, char *widgRec, - const char *argvName, int flags); -/* 28 */ -EXTERN int Tk_ConfigureValue(Tcl_Interp *interp, - Tk_Window tkwin, const Tk_ConfigSpec *specs, - char *widgRec, const char *argvName, - int flags); -/* 29 */ -EXTERN int Tk_ConfigureWidget(Tcl_Interp *interp, - Tk_Window tkwin, const Tk_ConfigSpec *specs, - int argc, CONST84 char **argv, char *widgRec, - int flags); -/* 30 */ -EXTERN void Tk_ConfigureWindow(Tk_Window tkwin, - unsigned int valueMask, - XWindowChanges *valuePtr); -/* 31 */ -EXTERN Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font, const char *str, - int numChars, int wrapLength, - Tk_Justify justify, int flags, int *widthPtr, - int *heightPtr); -/* 32 */ -EXTERN Tk_Window Tk_CoordsToWindow(int rootX, int rootY, - Tk_Window tkwin); -/* 33 */ -EXTERN unsigned long Tk_CreateBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, const char *eventStr, - const char *script, int append); -/* 34 */ -EXTERN Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp); -/* 35 */ -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler(Display *display, int errNum, - int request, int minorCode, - Tk_ErrorProc *errorProc, - ClientData clientData); -/* 36 */ -EXTERN void Tk_CreateEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -/* 37 */ -EXTERN void Tk_CreateGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -/* 38 */ -EXTERN void Tk_CreateImageType(const Tk_ImageType *typePtr); -/* 39 */ -EXTERN void Tk_CreateItemType(Tk_ItemType *typePtr); -/* 40 */ -EXTERN void Tk_CreatePhotoImageFormat( - const Tk_PhotoImageFormat *formatPtr); -/* 41 */ -EXTERN void Tk_CreateSelHandler(Tk_Window tkwin, Atom selection, - Atom target, Tk_SelectionProc *proc, - ClientData clientData, Atom format); -/* 42 */ -EXTERN Tk_Window Tk_CreateWindow(Tcl_Interp *interp, Tk_Window parent, - const char *name, const char *screenName); -/* 43 */ -EXTERN Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, - Tk_Window tkwin, const char *pathName, - const char *screenName); -/* 44 */ -EXTERN int Tk_DefineBitmap(Tcl_Interp *interp, const char *name, - const void *source, int width, int height); -/* 45 */ -EXTERN void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor); -/* 46 */ -EXTERN void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, - ClientData object); -/* 47 */ -EXTERN int Tk_DeleteBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, const char *eventStr); -/* 48 */ -EXTERN void Tk_DeleteBindingTable(Tk_BindingTable bindingTable); -/* 49 */ -EXTERN void Tk_DeleteErrorHandler(Tk_ErrorHandler handler); -/* 50 */ -EXTERN void Tk_DeleteEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -/* 51 */ -EXTERN void Tk_DeleteGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -/* 52 */ -EXTERN void Tk_DeleteImage(Tcl_Interp *interp, const char *name); -/* 53 */ -EXTERN void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, - Atom target); -/* 54 */ -EXTERN void Tk_DestroyWindow(Tk_Window tkwin); -/* 55 */ -EXTERN CONST84_RETURN char * Tk_DisplayName(Tk_Window tkwin); -/* 56 */ -EXTERN int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, - int y); -/* 57 */ -EXTERN void Tk_Draw3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -/* 58 */ -EXTERN void Tk_Draw3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -/* 59 */ -EXTERN void Tk_DrawChars(Display *display, Drawable drawable, - GC gc, Tk_Font tkfont, const char *source, - int numBytes, int x, int y); -/* 60 */ -EXTERN void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable); -/* 61 */ -EXTERN void Tk_DrawTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int firstChar, int lastChar); -/* 62 */ -EXTERN void Tk_Fill3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -/* 63 */ -EXTERN void Tk_Fill3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -/* 64 */ -EXTERN Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, - const char *imageName); -/* 65 */ -EXTERN Font Tk_FontId(Tk_Font font); -/* 66 */ -EXTERN void Tk_Free3DBorder(Tk_3DBorder border); -/* 67 */ -EXTERN void Tk_FreeBitmap(Display *display, Pixmap bitmap); -/* 68 */ -EXTERN void Tk_FreeColor(XColor *colorPtr); -/* 69 */ -EXTERN void Tk_FreeColormap(Display *display, Colormap colormap); -/* 70 */ -EXTERN void Tk_FreeCursor(Display *display, Tk_Cursor cursor); -/* 71 */ -EXTERN void Tk_FreeFont(Tk_Font f); -/* 72 */ -EXTERN void Tk_FreeGC(Display *display, GC gc); -/* 73 */ -EXTERN void Tk_FreeImage(Tk_Image image); -/* 74 */ -EXTERN void Tk_FreeOptions(const Tk_ConfigSpec *specs, - char *widgRec, Display *display, - int needFlags); -/* 75 */ -EXTERN void Tk_FreePixmap(Display *display, Pixmap pixmap); -/* 76 */ -EXTERN void Tk_FreeTextLayout(Tk_TextLayout textLayout); -/* 77 */ -EXTERN void Tk_FreeXId(Display *display, XID xid); -/* 78 */ -EXTERN GC Tk_GCForColor(XColor *colorPtr, Drawable drawable); -/* 79 */ -EXTERN void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, - int reqHeight); -/* 80 */ -EXTERN Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid colorName); -/* 81 */ -EXTERN void Tk_GetAllBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object); -/* 82 */ -EXTERN int Tk_GetAnchor(Tcl_Interp *interp, const char *str, - Tk_Anchor *anchorPtr); -/* 83 */ -EXTERN CONST84_RETURN char * Tk_GetAtomName(Tk_Window tkwin, Atom atom); -/* 84 */ -EXTERN CONST84_RETURN char * Tk_GetBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, const char *eventStr); -/* 85 */ -EXTERN Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, - const char *str); -/* 86 */ -EXTERN Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp, - Tk_Window tkwin, const void *source, - int width, int height); -/* 87 */ -EXTERN int Tk_GetCapStyle(Tcl_Interp *interp, const char *str, - int *capPtr); -/* 88 */ -EXTERN XColor * Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid name); -/* 89 */ -EXTERN XColor * Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr); -/* 90 */ -EXTERN Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin, - const char *str); -/* 91 */ -EXTERN Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid str); -/* 92 */ -EXTERN Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp, - Tk_Window tkwin, const char *source, - const char *mask, int width, int height, - int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); -/* 93 */ -EXTERN Tk_Font Tk_GetFont(Tcl_Interp *interp, Tk_Window tkwin, - const char *str); -/* 94 */ -EXTERN Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 95 */ -EXTERN void Tk_GetFontMetrics(Tk_Font font, - Tk_FontMetrics *fmPtr); -/* 96 */ -EXTERN GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, - XGCValues *valuePtr); -/* 97 */ -EXTERN Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, - const char *name, - Tk_ImageChangedProc *changeProc, - ClientData clientData); -/* 98 */ -EXTERN ClientData Tk_GetImageMasterData(Tcl_Interp *interp, - const char *name, - CONST86 Tk_ImageType **typePtrPtr); -/* 99 */ -EXTERN Tk_ItemType * Tk_GetItemTypes(void); -/* 100 */ -EXTERN int Tk_GetJoinStyle(Tcl_Interp *interp, const char *str, - int *joinPtr); -/* 101 */ -EXTERN int Tk_GetJustify(Tcl_Interp *interp, const char *str, - Tk_Justify *justifyPtr); -/* 102 */ -EXTERN int Tk_GetNumMainWindows(void); -/* 103 */ -EXTERN Tk_Uid Tk_GetOption(Tk_Window tkwin, const char *name, - const char *className); -/* 104 */ -EXTERN int Tk_GetPixels(Tcl_Interp *interp, Tk_Window tkwin, - const char *str, int *intPtr); -/* 105 */ -EXTERN Pixmap Tk_GetPixmap(Display *display, Drawable d, int width, - int height, int depth); -/* 106 */ -EXTERN int Tk_GetRelief(Tcl_Interp *interp, const char *name, - int *reliefPtr); -/* 107 */ -EXTERN void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -/* 108 */ -EXTERN int Tk_GetScrollInfo(Tcl_Interp *interp, int argc, - CONST84 char **argv, double *dblPtr, - int *intPtr); -/* 109 */ -EXTERN int Tk_GetScreenMM(Tcl_Interp *interp, Tk_Window tkwin, - const char *str, double *doublePtr); -/* 110 */ -EXTERN int Tk_GetSelection(Tcl_Interp *interp, Tk_Window tkwin, - Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData); -/* 111 */ -EXTERN Tk_Uid Tk_GetUid(const char *str); -/* 112 */ -EXTERN Visual * Tk_GetVisual(Tcl_Interp *interp, Tk_Window tkwin, - const char *str, int *depthPtr, - Colormap *colormapPtr); -/* 113 */ -EXTERN void Tk_GetVRootGeometry(Tk_Window tkwin, int *xPtr, - int *yPtr, int *widthPtr, int *heightPtr); -/* 114 */ -EXTERN int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, - int grabGlobal); -/* 115 */ -EXTERN void Tk_HandleEvent(XEvent *eventPtr); -/* 116 */ -EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window); -/* 117 */ -EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y, - int width, int height, int imageWidth, - int imageHeight); -/* 118 */ -EXTERN int Tk_Init(Tcl_Interp *interp); -/* 119 */ -EXTERN Atom Tk_InternAtom(Tk_Window tkwin, const char *name); -/* 120 */ -EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, - int y, int width, int height); -/* 121 */ -EXTERN void Tk_MaintainGeometry(Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height); -/* 122 */ -EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp); -/* 123 */ -EXTERN void Tk_MakeWindowExist(Tk_Window tkwin); -/* 124 */ -EXTERN void Tk_ManageGeometry(Tk_Window tkwin, - const Tk_GeomMgr *mgrPtr, - ClientData clientData); -/* 125 */ -EXTERN void Tk_MapWindow(Tk_Window tkwin); -/* 126 */ -EXTERN int Tk_MeasureChars(Tk_Font tkfont, const char *source, - int numBytes, int maxPixels, int flags, - int *lengthPtr); -/* 127 */ -EXTERN void Tk_MoveResizeWindow(Tk_Window tkwin, int x, int y, - int width, int height); -/* 128 */ -EXTERN void Tk_MoveWindow(Tk_Window tkwin, int x, int y); -/* 129 */ -EXTERN void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y); -/* 130 */ -EXTERN CONST84_RETURN char * Tk_NameOf3DBorder(Tk_3DBorder border); -/* 131 */ -EXTERN CONST84_RETURN char * Tk_NameOfAnchor(Tk_Anchor anchor); -/* 132 */ -EXTERN CONST84_RETURN char * Tk_NameOfBitmap(Display *display, Pixmap bitmap); -/* 133 */ -EXTERN CONST84_RETURN char * Tk_NameOfCapStyle(int cap); -/* 134 */ -EXTERN CONST84_RETURN char * Tk_NameOfColor(XColor *colorPtr); -/* 135 */ -EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display, - Tk_Cursor cursor); -/* 136 */ -EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font); -/* 137 */ -EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster); -/* 138 */ -EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join); -/* 139 */ -EXTERN CONST84_RETURN char * Tk_NameOfJustify(Tk_Justify justify); -/* 140 */ -EXTERN CONST84_RETURN char * Tk_NameOfRelief(int relief); -/* 141 */ -EXTERN Tk_Window Tk_NameToWindow(Tcl_Interp *interp, - const char *pathName, Tk_Window tkwin); -/* 142 */ -EXTERN void Tk_OwnSelection(Tk_Window tkwin, Atom selection, - Tk_LostSelProc *proc, ClientData clientData); -/* 143 */ -EXTERN int Tk_ParseArgv(Tcl_Interp *interp, Tk_Window tkwin, - int *argcPtr, CONST84 char **argv, - const Tk_ArgvInfo *argTable, int flags); -/* 144 */ -EXTERN void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height); -/* 145 */ -EXTERN void Tk_PhotoPutZoomedBlock_NoComposite( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY); -/* 146 */ -EXTERN int Tk_PhotoGetImage(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr); -/* 147 */ -EXTERN void Tk_PhotoBlank(Tk_PhotoHandle handle); -/* 148 */ -EXTERN void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, - int width, int height); -/* 149 */ -EXTERN void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, - int *heightPtr); -/* 150 */ -EXTERN void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, - int width, int height); -/* 151 */ -EXTERN int Tk_PointToChar(Tk_TextLayout layout, int x, int y); -/* 152 */ -EXTERN int Tk_PostscriptFontName(Tk_Font tkfont, - Tcl_DString *dsPtr); -/* 153 */ -EXTERN void Tk_PreserveColormap(Display *display, - Colormap colormap); -/* 154 */ -EXTERN void Tk_QueueWindowEvent(XEvent *eventPtr, - Tcl_QueuePosition position); -/* 155 */ -EXTERN void Tk_RedrawImage(Tk_Image image, int imageX, - int imageY, int width, int height, - Drawable drawable, int drawableX, - int drawableY); -/* 156 */ -EXTERN void Tk_ResizeWindow(Tk_Window tkwin, int width, - int height); -/* 157 */ -EXTERN int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, - Tk_Window other); -/* 158 */ -EXTERN Tk_RestrictProc * Tk_RestrictEvents(Tk_RestrictProc *proc, - ClientData arg, ClientData *prevArgPtr); -/* 159 */ -EXTERN int Tk_SafeInit(Tcl_Interp *interp); -/* 160 */ -EXTERN const char * Tk_SetAppName(Tk_Window tkwin, const char *name); -/* 161 */ -EXTERN void Tk_SetBackgroundFromBorder(Tk_Window tkwin, - Tk_3DBorder border); -/* 162 */ -EXTERN void Tk_SetClass(Tk_Window tkwin, const char *className); -/* 163 */ -EXTERN void Tk_SetGrid(Tk_Window tkwin, int reqWidth, - int reqHeight, int gridWidth, int gridHeight); -/* 164 */ -EXTERN void Tk_SetInternalBorder(Tk_Window tkwin, int width); -/* 165 */ -EXTERN void Tk_SetWindowBackground(Tk_Window tkwin, - unsigned long pixel); -/* 166 */ -EXTERN void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, - Pixmap pixmap); -/* 167 */ -EXTERN void Tk_SetWindowBorder(Tk_Window tkwin, - unsigned long pixel); -/* 168 */ -EXTERN void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width); -/* 169 */ -EXTERN void Tk_SetWindowBorderPixmap(Tk_Window tkwin, - Pixmap pixmap); -/* 170 */ -EXTERN void Tk_SetWindowColormap(Tk_Window tkwin, - Colormap colormap); -/* 171 */ -EXTERN int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, - int depth, Colormap colormap); -/* 172 */ -EXTERN void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, - int *widthPtr, int *heightPtr); -/* 173 */ -EXTERN void Tk_SizeOfImage(Tk_Image image, int *widthPtr, - int *heightPtr); -/* 174 */ -EXTERN int Tk_StrictMotif(Tk_Window tkwin); -/* 175 */ -EXTERN void Tk_TextLayoutToPostscript(Tcl_Interp *interp, - Tk_TextLayout layout); -/* 176 */ -EXTERN int Tk_TextWidth(Tk_Font font, const char *str, - int numBytes); -/* 177 */ -EXTERN void Tk_UndefineCursor(Tk_Window window); -/* 178 */ -EXTERN void Tk_UnderlineChars(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int x, int y, - int firstByte, int lastByte); -/* 179 */ -EXTERN void Tk_UnderlineTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline); -/* 180 */ -EXTERN void Tk_Ungrab(Tk_Window tkwin); -/* 181 */ -EXTERN void Tk_UnmaintainGeometry(Tk_Window slave, - Tk_Window master); -/* 182 */ -EXTERN void Tk_UnmapWindow(Tk_Window tkwin); -/* 183 */ -EXTERN void Tk_UnsetGrid(Tk_Window tkwin); -/* 184 */ -EXTERN void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, - int state); -/* 185 */ -EXTERN Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 186 */ -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 187 */ -EXTERN XColor * Tk_AllocColorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 188 */ -EXTERN Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 189 */ -EXTERN Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 190 */ -EXTERN Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp, - const Tk_OptionSpec *templatePtr); -/* 191 */ -EXTERN void Tk_DeleteOptionTable(Tk_OptionTable optionTable); -/* 192 */ -EXTERN void Tk_Free3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 193 */ -EXTERN void Tk_FreeBitmapFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 194 */ -EXTERN void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 195 */ -EXTERN void Tk_FreeConfigOptions(char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -/* 196 */ -EXTERN void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr); -/* 197 */ -EXTERN void Tk_FreeCursorFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 198 */ -EXTERN void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 199 */ -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 200 */ -EXTERN int Tk_GetAnchorFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); -/* 201 */ -EXTERN Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 202 */ -EXTERN XColor * Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 203 */ -EXTERN Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 204 */ -EXTERN Tcl_Obj * Tk_GetOptionInfo(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, Tcl_Obj *namePtr, - Tk_Window tkwin); -/* 205 */ -EXTERN Tcl_Obj * Tk_GetOptionValue(Tcl_Interp *interp, - char *recordPtr, Tk_OptionTable optionTable, - Tcl_Obj *namePtr, Tk_Window tkwin); -/* 206 */ -EXTERN int Tk_GetJustifyFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Justify *justifyPtr); -/* 207 */ -EXTERN int Tk_GetMMFromObj(Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj *objPtr, double *doublePtr); -/* 208 */ -EXTERN int Tk_GetPixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *intPtr); -/* 209 */ -EXTERN int Tk_GetReliefFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *resultPtr); -/* 210 */ -EXTERN int Tk_GetScrollInfoObj(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], double *dblPtr, - int *intPtr); -/* 211 */ -EXTERN int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -/* 212 */ -EXTERN void Tk_MainEx(int argc, char **argv, - Tcl_AppInitProc *appInitProc, - Tcl_Interp *interp); -/* 213 */ -EXTERN void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr); -/* 214 */ -EXTERN int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, int objc, - Tcl_Obj *const objv[], Tk_Window tkwin, - Tk_SavedOptions *savePtr, int *maskPtr); -/* 215 */ -EXTERN void Tk_InitConsoleChannels(Tcl_Interp *interp); -/* 216 */ -EXTERN int Tk_CreateConsoleWindow(Tcl_Interp *interp); -/* 217 */ -EXTERN void Tk_CreateSmoothMethod(Tcl_Interp *interp, - const Tk_SmoothMethod *method); -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -/* 220 */ -EXTERN int Tk_GetDash(Tcl_Interp *interp, const char *value, - Tk_Dash *dash); -/* 221 */ -EXTERN void Tk_CreateOutline(Tk_Outline *outline); -/* 222 */ -EXTERN void Tk_DeleteOutline(Display *display, - Tk_Outline *outline); -/* 223 */ -EXTERN int Tk_ConfigOutlineGC(XGCValues *gcValues, - Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 224 */ -EXTERN int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 225 */ -EXTERN int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 226 */ -EXTERN int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 227 */ -EXTERN void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y); -/* 228 */ -EXTERN int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -/* 229 */ -EXTERN void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, - Tk_TSOffset *offset); -/* 230 */ -EXTERN void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, - int width, int height); -/* 231 */ -EXTERN int Tk_PostscriptBitmap(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap, int startX, int startY, - int width, int height); -/* 232 */ -EXTERN int Tk_PostscriptColor(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, XColor *colorPtr); -/* 233 */ -EXTERN int Tk_PostscriptFont(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, Tk_Font font); -/* 234 */ -EXTERN int Tk_PostscriptImage(Tk_Image image, - Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psinfo, int x, int y, - int width, int height, int prepass); -/* 235 */ -EXTERN void Tk_PostscriptPath(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, double *coordPtr, - int numPoints); -/* 236 */ -EXTERN int Tk_PostscriptStipple(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap); -/* 237 */ -EXTERN double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo); -/* 238 */ -EXTERN int Tk_PostscriptPhoto(Tcl_Interp *interp, - Tk_PhotoImageBlock *blockPtr, - Tk_PostscriptInfo psInfo, int width, - int height); -/* 239 */ -EXTERN void Tk_CreateClientMessageHandler( - Tk_ClientMessageProc *proc); -/* 240 */ -EXTERN void Tk_DeleteClientMessageHandler( - Tk_ClientMessageProc *proc); -/* 241 */ -EXTERN Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp, - Tk_Window parent, const char *screenName); -/* 242 */ -EXTERN void Tk_SetClassProcs(Tk_Window tkwin, - const Tk_ClassProcs *procs, - ClientData instanceData); -/* 243 */ -EXTERN void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, - int right, int top, int bottom); -/* 244 */ -EXTERN void Tk_SetMinimumRequestSize(Tk_Window tkwin, - int minWidth, int minHeight); -/* 245 */ -EXTERN void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, - int height); -/* 246 */ -EXTERN void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -/* 247 */ -EXTERN void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -/* 248 */ -EXTERN int Tk_CollapseMotionEvents(Display *display, - int collapse); -/* 249 */ -EXTERN Tk_StyleEngine Tk_RegisterStyleEngine(const char *name, - Tk_StyleEngine parent); -/* 250 */ -EXTERN Tk_StyleEngine Tk_GetStyleEngine(const char *name); -/* 251 */ -EXTERN int Tk_RegisterStyledElement(Tk_StyleEngine engine, - Tk_ElementSpec *templatePtr); -/* 252 */ -EXTERN int Tk_GetElementId(const char *name); -/* 253 */ -EXTERN Tk_Style Tk_CreateStyle(const char *name, - Tk_StyleEngine engine, ClientData clientData); -/* 254 */ -EXTERN Tk_Style Tk_GetStyle(Tcl_Interp *interp, const char *name); -/* 255 */ -EXTERN void Tk_FreeStyle(Tk_Style style); -/* 256 */ -EXTERN const char * Tk_NameOfStyle(Tk_Style style); -/* 257 */ -EXTERN Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 258 */ -EXTERN Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr); -/* 259 */ -EXTERN void Tk_FreeStyleFromObj(Tcl_Obj *objPtr); -/* 260 */ -EXTERN Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId, - Tk_OptionTable optionTable); -/* 261 */ -EXTERN void Tk_GetElementSize(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int width, int height, - int inner, int *widthPtr, int *heightPtr); -/* 262 */ -EXTERN void Tk_GetElementBox(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int x, int y, int width, - int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr); -/* 263 */ -EXTERN int Tk_GetElementBorderWidth(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin); -/* 264 */ -EXTERN void Tk_DrawElement(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, Drawable d, int x, int y, - int width, int height, int state); -/* 265 */ -EXTERN int Tk_PhotoExpand(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -/* 266 */ -EXTERN int Tk_PhotoPutBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -/* 267 */ -EXTERN int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -/* 268 */ -EXTERN int Tk_PhotoSetSize(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -/* 269 */ -EXTERN long Tk_GetUserInactiveTime(Display *dpy); -/* 270 */ -EXTERN void Tk_ResetUserInactiveTime(Display *dpy); -/* 271 */ -EXTERN Tcl_Interp * Tk_Interp(Tk_Window tkwin); -/* 272 */ -EXTERN void Tk_CreateOldImageType(const Tk_ImageType *typePtr); -/* 273 */ -EXTERN void Tk_CreateOldPhotoImageFormat( - const Tk_PhotoImageFormat *formatPtr); - -typedef struct { - const struct TkPlatStubs *tkPlatStubs; - const struct TkIntStubs *tkIntStubs; - const struct TkIntPlatStubs *tkIntPlatStubs; - const struct TkIntXlibStubs *tkIntXlibStubs; -} TkStubHooks; - -typedef struct TkStubs { - int magic; - const TkStubHooks *hooks; - - void (*tk_MainLoop) (void); /* 0 */ - XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ - GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ - void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ - void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ - void (*tk_AddOption) (Tk_Window tkwin, const char *name, const char *value, int priority); /* 5 */ - void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr); /* 6 */ - void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr); /* 7 */ - void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ - int (*tk_CanvasGetCoord) (Tcl_Interp *interp, Tk_Canvas canvas, const char *str, double *doublePtr); /* 9 */ - Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ - int (*tk_CanvasPsBitmap) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ - int (*tk_CanvasPsColor) (Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr); /* 12 */ - int (*tk_CanvasPsFont) (Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ - void (*tk_CanvasPsPath) (Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints); /* 14 */ - int (*tk_CanvasPsStipple) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ - double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ - void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ - int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 18 */ - CONST86 char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 19 */ - Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ - void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr); /* 21 */ - void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr); /* 22 */ - int (*tk_CharBbox) (Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 23 */ - void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ - int (*tk_ClipboardAppend) (Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, const char *buffer); /* 25 */ - int (*tk_ClipboardClear) (Tcl_Interp *interp, Tk_Window tkwin); /* 26 */ - int (*tk_ConfigureInfo) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, char *widgRec, const char *argvName, int flags); /* 27 */ - int (*tk_ConfigureValue) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, char *widgRec, const char *argvName, int flags); /* 28 */ - int (*tk_ConfigureWidget) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags); /* 29 */ - void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr); /* 30 */ - Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, const char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr); /* 31 */ - Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ - unsigned long (*tk_CreateBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr, const char *script, int append); /* 33 */ - Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp *interp); /* 34 */ - Tk_ErrorHandler (*tk_CreateErrorHandler) (Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData); /* 35 */ - void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 36 */ - void (*tk_CreateGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 37 */ - void (*tk_CreateImageType) (const Tk_ImageType *typePtr); /* 38 */ - void (*tk_CreateItemType) (Tk_ItemType *typePtr); /* 39 */ - void (*tk_CreatePhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 40 */ - void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format); /* 41 */ - Tk_Window (*tk_CreateWindow) (Tcl_Interp *interp, Tk_Window parent, const char *name, const char *screenName); /* 42 */ - Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp *interp, Tk_Window tkwin, const char *pathName, const char *screenName); /* 43 */ - int (*tk_DefineBitmap) (Tcl_Interp *interp, const char *name, const void *source, int width, int height); /* 44 */ - void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ - void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ - int (*tk_DeleteBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr); /* 47 */ - void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ - void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ - void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 50 */ - void (*tk_DeleteGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 51 */ - void (*tk_DeleteImage) (Tcl_Interp *interp, const char *name); /* 52 */ - void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ - void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ - CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ - int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ - void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ - void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ - void (*tk_DrawChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int numBytes, int x, int y); /* 59 */ - void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ - void (*tk_DrawTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ - void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ - void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ - Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp *interp, const char *imageName); /* 64 */ - Font (*tk_FontId) (Tk_Font font); /* 65 */ - void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ - void (*tk_FreeBitmap) (Display *display, Pixmap bitmap); /* 67 */ - void (*tk_FreeColor) (XColor *colorPtr); /* 68 */ - void (*tk_FreeColormap) (Display *display, Colormap colormap); /* 69 */ - void (*tk_FreeCursor) (Display *display, Tk_Cursor cursor); /* 70 */ - void (*tk_FreeFont) (Tk_Font f); /* 71 */ - void (*tk_FreeGC) (Display *display, GC gc); /* 72 */ - void (*tk_FreeImage) (Tk_Image image); /* 73 */ - void (*tk_FreeOptions) (const Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags); /* 74 */ - void (*tk_FreePixmap) (Display *display, Pixmap pixmap); /* 75 */ - void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ - void (*tk_FreeXId) (Display *display, XID xid); /* 77 */ - GC (*tk_GCForColor) (XColor *colorPtr, Drawable drawable); /* 78 */ - void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ - Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ - void (*tk_GetAllBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ - int (*tk_GetAnchor) (Tcl_Interp *interp, const char *str, Tk_Anchor *anchorPtr); /* 82 */ - CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ - CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr); /* 84 */ - Pixmap (*tk_GetBitmap) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 85 */ - Pixmap (*tk_GetBitmapFromData) (Tcl_Interp *interp, Tk_Window tkwin, const void *source, int width, int height); /* 86 */ - int (*tk_GetCapStyle) (Tcl_Interp *interp, const char *str, int *capPtr); /* 87 */ - XColor * (*tk_GetColor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ - XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor *colorPtr); /* 89 */ - Colormap (*tk_GetColormap) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 90 */ - Tk_Cursor (*tk_GetCursor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ - Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp *interp, Tk_Window tkwin, const char *source, const char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ - Tk_Font (*tk_GetFont) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 93 */ - Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 94 */ - void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics *fmPtr); /* 95 */ - GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr); /* 96 */ - Tk_Image (*tk_GetImage) (Tcl_Interp *interp, Tk_Window tkwin, const char *name, Tk_ImageChangedProc *changeProc, ClientData clientData); /* 97 */ - ClientData (*tk_GetImageMasterData) (Tcl_Interp *interp, const char *name, CONST86 Tk_ImageType **typePtrPtr); /* 98 */ - Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ - int (*tk_GetJoinStyle) (Tcl_Interp *interp, const char *str, int *joinPtr); /* 100 */ - int (*tk_GetJustify) (Tcl_Interp *interp, const char *str, Tk_Justify *justifyPtr); /* 101 */ - int (*tk_GetNumMainWindows) (void); /* 102 */ - Tk_Uid (*tk_GetOption) (Tk_Window tkwin, const char *name, const char *className); /* 103 */ - int (*tk_GetPixels) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, int *intPtr); /* 104 */ - Pixmap (*tk_GetPixmap) (Display *display, Drawable d, int width, int height, int depth); /* 105 */ - int (*tk_GetRelief) (Tcl_Interp *interp, const char *name, int *reliefPtr); /* 106 */ - void (*tk_GetRootCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 107 */ - int (*tk_GetScrollInfo) (Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr); /* 108 */ - int (*tk_GetScreenMM) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, double *doublePtr); /* 109 */ - int (*tk_GetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 110 */ - Tk_Uid (*tk_GetUid) (const char *str); /* 111 */ - Visual * (*tk_GetVisual) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, int *depthPtr, Colormap *colormapPtr); /* 112 */ - void (*tk_GetVRootGeometry) (Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 113 */ - int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */ - void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */ - Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */ - void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ - int (*tk_Init) (Tcl_Interp *interp); /* 118 */ - Atom (*tk_InternAtom) (Tk_Window tkwin, const char *name); /* 119 */ - int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ - void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ - Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */ - void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ - void (*tk_ManageGeometry) (Tk_Window tkwin, const Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */ - void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ - int (*tk_MeasureChars) (Tk_Font tkfont, const char *source, int numBytes, int maxPixels, int flags, int *lengthPtr); /* 126 */ - void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ - void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ - void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ - CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ - CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ - CONST84_RETURN char * (*tk_NameOfBitmap) (Display *display, Pixmap bitmap); /* 132 */ - CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ - CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */ - CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */ - CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ - CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ - CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ - CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ - CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ - Tk_Window (*tk_NameToWindow) (Tcl_Interp *interp, const char *pathName, Tk_Window tkwin); /* 141 */ - void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData); /* 142 */ - int (*tk_ParseArgv) (Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, const Tk_ArgvInfo *argTable, int flags); /* 143 */ - void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height); /* 144 */ - void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ - int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr); /* 146 */ - void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ - void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ - void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr); /* 149 */ - void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ - int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ - int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString *dsPtr); /* 152 */ - void (*tk_PreserveColormap) (Display *display, Colormap colormap); /* 153 */ - void (*tk_QueueWindowEvent) (XEvent *eventPtr, Tcl_QueuePosition position); /* 154 */ - void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ - void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ - int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ - Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr); /* 158 */ - int (*tk_SafeInit) (Tcl_Interp *interp); /* 159 */ - const char * (*tk_SetAppName) (Tk_Window tkwin, const char *name); /* 160 */ - void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ - void (*tk_SetClass) (Tk_Window tkwin, const char *className); /* 162 */ - void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ - void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ - void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ - void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ - void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ - void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ - void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ - void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ - int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual *visual, int depth, Colormap colormap); /* 171 */ - void (*tk_SizeOfBitmap) (Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr); /* 172 */ - void (*tk_SizeOfImage) (Tk_Image image, int *widthPtr, int *heightPtr); /* 173 */ - int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ - void (*tk_TextLayoutToPostscript) (Tcl_Interp *interp, Tk_TextLayout layout); /* 175 */ - int (*tk_TextWidth) (Tk_Font font, const char *str, int numBytes); /* 176 */ - void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ - void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int x, int y, int firstByte, int lastByte); /* 178 */ - void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ - void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ - void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ - void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ - void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ - void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ - Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 185 */ - Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 186 */ - XColor * (*tk_AllocColorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 187 */ - Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 188 */ - Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 189 */ - Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp *interp, const Tk_OptionSpec *templatePtr); /* 190 */ - void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ - void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 192 */ - void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 193 */ - void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 194 */ - void (*tk_FreeConfigOptions) (char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ - void (*tk_FreeSavedOptions) (Tk_SavedOptions *savePtr); /* 196 */ - void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 197 */ - void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 198 */ - Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 199 */ - int (*tk_GetAnchorFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); /* 200 */ - Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 201 */ - XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 202 */ - Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 203 */ - Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 204 */ - Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 205 */ - int (*tk_GetJustifyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr); /* 206 */ - int (*tk_GetMMFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr); /* 207 */ - int (*tk_GetPixelsFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr); /* 208 */ - int (*tk_GetReliefFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr); /* 209 */ - int (*tk_GetScrollInfoObj) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], double *dblPtr, int *intPtr); /* 210 */ - int (*tk_InitOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ - void (*tk_MainEx) (int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); /* 212 */ - void (*tk_RestoreSavedOptions) (Tk_SavedOptions *savePtr); /* 213 */ - int (*tk_SetOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *const objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr); /* 214 */ - void (*tk_InitConsoleChannels) (Tcl_Interp *interp); /* 215 */ - int (*tk_CreateConsoleWindow) (Tcl_Interp *interp); /* 216 */ - void (*tk_CreateSmoothMethod) (Tcl_Interp *interp, const Tk_SmoothMethod *method); /* 217 */ - void (*reserved218)(void); - void (*reserved219)(void); - int (*tk_GetDash) (Tcl_Interp *interp, const char *value, Tk_Dash *dash); /* 220 */ - void (*tk_CreateOutline) (Tk_Outline *outline); /* 221 */ - void (*tk_DeleteOutline) (Display *display, Tk_Outline *outline); /* 222 */ - int (*tk_ConfigOutlineGC) (XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 223 */ - int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 224 */ - int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 225 */ - int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 226 */ - void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ - int (*tk_CanvasGetCoordFromObj) (Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr); /* 228 */ - void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset *offset); /* 229 */ - void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ - int (*tk_PostscriptBitmap) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ - int (*tk_PostscriptColor) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr); /* 232 */ - int (*tk_PostscriptFont) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ - int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ - void (*tk_PostscriptPath) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints); /* 235 */ - int (*tk_PostscriptStipple) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ - double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ - int (*tk_PostscriptPhoto) (Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ - void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc *proc); /* 239 */ - void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc *proc); /* 240 */ - Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp *interp, Tk_Window parent, const char *screenName); /* 241 */ - void (*tk_SetClassProcs) (Tk_Window tkwin, const Tk_ClassProcs *procs, ClientData instanceData); /* 242 */ - void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ - void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ - void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ - void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ - void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ - int (*tk_CollapseMotionEvents) (Display *display, int collapse); /* 248 */ - Tk_StyleEngine (*tk_RegisterStyleEngine) (const char *name, Tk_StyleEngine parent); /* 249 */ - Tk_StyleEngine (*tk_GetStyleEngine) (const char *name); /* 250 */ - int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec *templatePtr); /* 251 */ - int (*tk_GetElementId) (const char *name); /* 252 */ - Tk_Style (*tk_CreateStyle) (const char *name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ - Tk_Style (*tk_GetStyle) (Tcl_Interp *interp, const char *name); /* 254 */ - void (*tk_FreeStyle) (Tk_Style style); /* 255 */ - const char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ - Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 257 */ - Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj *objPtr); /* 258 */ - void (*tk_FreeStyleFromObj) (Tcl_Obj *objPtr); /* 259 */ - Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ - void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr); /* 261 */ - void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 262 */ - int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin); /* 263 */ - void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ - int (*tk_PhotoExpand) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ - int (*tk_PhotoPutBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ - int (*tk_PhotoPutZoomedBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ - int (*tk_PhotoSetSize) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ - long (*tk_GetUserInactiveTime) (Display *dpy); /* 269 */ - void (*tk_ResetUserInactiveTime) (Display *dpy); /* 270 */ - Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ - void (*tk_CreateOldImageType) (const Tk_ImageType *typePtr); /* 272 */ - void (*tk_CreateOldPhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 273 */ -} TkStubs; - -extern const TkStubs *tkStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#define Tk_MainLoop \ - (tkStubsPtr->tk_MainLoop) /* 0 */ -#define Tk_3DBorderColor \ - (tkStubsPtr->tk_3DBorderColor) /* 1 */ -#define Tk_3DBorderGC \ - (tkStubsPtr->tk_3DBorderGC) /* 2 */ -#define Tk_3DHorizontalBevel \ - (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ -#define Tk_3DVerticalBevel \ - (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ -#define Tk_AddOption \ - (tkStubsPtr->tk_AddOption) /* 5 */ -#define Tk_BindEvent \ - (tkStubsPtr->tk_BindEvent) /* 6 */ -#define Tk_CanvasDrawableCoords \ - (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ -#define Tk_CanvasEventuallyRedraw \ - (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ -#define Tk_CanvasGetCoord \ - (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ -#define Tk_CanvasGetTextInfo \ - (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ -#define Tk_CanvasPsBitmap \ - (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ -#define Tk_CanvasPsColor \ - (tkStubsPtr->tk_CanvasPsColor) /* 12 */ -#define Tk_CanvasPsFont \ - (tkStubsPtr->tk_CanvasPsFont) /* 13 */ -#define Tk_CanvasPsPath \ - (tkStubsPtr->tk_CanvasPsPath) /* 14 */ -#define Tk_CanvasPsStipple \ - (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ -#define Tk_CanvasPsY \ - (tkStubsPtr->tk_CanvasPsY) /* 16 */ -#define Tk_CanvasSetStippleOrigin \ - (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ -#define Tk_CanvasTagsParseProc \ - (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ -#define Tk_CanvasTagsPrintProc \ - (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ -#define Tk_CanvasTkwin \ - (tkStubsPtr->tk_CanvasTkwin) /* 20 */ -#define Tk_CanvasWindowCoords \ - (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ -#define Tk_ChangeWindowAttributes \ - (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ -#define Tk_CharBbox \ - (tkStubsPtr->tk_CharBbox) /* 23 */ -#define Tk_ClearSelection \ - (tkStubsPtr->tk_ClearSelection) /* 24 */ -#define Tk_ClipboardAppend \ - (tkStubsPtr->tk_ClipboardAppend) /* 25 */ -#define Tk_ClipboardClear \ - (tkStubsPtr->tk_ClipboardClear) /* 26 */ -#define Tk_ConfigureInfo \ - (tkStubsPtr->tk_ConfigureInfo) /* 27 */ -#define Tk_ConfigureValue \ - (tkStubsPtr->tk_ConfigureValue) /* 28 */ -#define Tk_ConfigureWidget \ - (tkStubsPtr->tk_ConfigureWidget) /* 29 */ -#define Tk_ConfigureWindow \ - (tkStubsPtr->tk_ConfigureWindow) /* 30 */ -#define Tk_ComputeTextLayout \ - (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ -#define Tk_CoordsToWindow \ - (tkStubsPtr->tk_CoordsToWindow) /* 32 */ -#define Tk_CreateBinding \ - (tkStubsPtr->tk_CreateBinding) /* 33 */ -#define Tk_CreateBindingTable \ - (tkStubsPtr->tk_CreateBindingTable) /* 34 */ -#define Tk_CreateErrorHandler \ - (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ -#define Tk_CreateEventHandler \ - (tkStubsPtr->tk_CreateEventHandler) /* 36 */ -#define Tk_CreateGenericHandler \ - (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ -#define Tk_CreateImageType \ - (tkStubsPtr->tk_CreateImageType) /* 38 */ -#define Tk_CreateItemType \ - (tkStubsPtr->tk_CreateItemType) /* 39 */ -#define Tk_CreatePhotoImageFormat \ - (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ -#define Tk_CreateSelHandler \ - (tkStubsPtr->tk_CreateSelHandler) /* 41 */ -#define Tk_CreateWindow \ - (tkStubsPtr->tk_CreateWindow) /* 42 */ -#define Tk_CreateWindowFromPath \ - (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ -#define Tk_DefineBitmap \ - (tkStubsPtr->tk_DefineBitmap) /* 44 */ -#define Tk_DefineCursor \ - (tkStubsPtr->tk_DefineCursor) /* 45 */ -#define Tk_DeleteAllBindings \ - (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ -#define Tk_DeleteBinding \ - (tkStubsPtr->tk_DeleteBinding) /* 47 */ -#define Tk_DeleteBindingTable \ - (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ -#define Tk_DeleteErrorHandler \ - (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ -#define Tk_DeleteEventHandler \ - (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ -#define Tk_DeleteGenericHandler \ - (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ -#define Tk_DeleteImage \ - (tkStubsPtr->tk_DeleteImage) /* 52 */ -#define Tk_DeleteSelHandler \ - (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ -#define Tk_DestroyWindow \ - (tkStubsPtr->tk_DestroyWindow) /* 54 */ -#define Tk_DisplayName \ - (tkStubsPtr->tk_DisplayName) /* 55 */ -#define Tk_DistanceToTextLayout \ - (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ -#define Tk_Draw3DPolygon \ - (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ -#define Tk_Draw3DRectangle \ - (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ -#define Tk_DrawChars \ - (tkStubsPtr->tk_DrawChars) /* 59 */ -#define Tk_DrawFocusHighlight \ - (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ -#define Tk_DrawTextLayout \ - (tkStubsPtr->tk_DrawTextLayout) /* 61 */ -#define Tk_Fill3DPolygon \ - (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ -#define Tk_Fill3DRectangle \ - (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ -#define Tk_FindPhoto \ - (tkStubsPtr->tk_FindPhoto) /* 64 */ -#define Tk_FontId \ - (tkStubsPtr->tk_FontId) /* 65 */ -#define Tk_Free3DBorder \ - (tkStubsPtr->tk_Free3DBorder) /* 66 */ -#define Tk_FreeBitmap \ - (tkStubsPtr->tk_FreeBitmap) /* 67 */ -#define Tk_FreeColor \ - (tkStubsPtr->tk_FreeColor) /* 68 */ -#define Tk_FreeColormap \ - (tkStubsPtr->tk_FreeColormap) /* 69 */ -#define Tk_FreeCursor \ - (tkStubsPtr->tk_FreeCursor) /* 70 */ -#define Tk_FreeFont \ - (tkStubsPtr->tk_FreeFont) /* 71 */ -#define Tk_FreeGC \ - (tkStubsPtr->tk_FreeGC) /* 72 */ -#define Tk_FreeImage \ - (tkStubsPtr->tk_FreeImage) /* 73 */ -#define Tk_FreeOptions \ - (tkStubsPtr->tk_FreeOptions) /* 74 */ -#define Tk_FreePixmap \ - (tkStubsPtr->tk_FreePixmap) /* 75 */ -#define Tk_FreeTextLayout \ - (tkStubsPtr->tk_FreeTextLayout) /* 76 */ -#define Tk_FreeXId \ - (tkStubsPtr->tk_FreeXId) /* 77 */ -#define Tk_GCForColor \ - (tkStubsPtr->tk_GCForColor) /* 78 */ -#define Tk_GeometryRequest \ - (tkStubsPtr->tk_GeometryRequest) /* 79 */ -#define Tk_Get3DBorder \ - (tkStubsPtr->tk_Get3DBorder) /* 80 */ -#define Tk_GetAllBindings \ - (tkStubsPtr->tk_GetAllBindings) /* 81 */ -#define Tk_GetAnchor \ - (tkStubsPtr->tk_GetAnchor) /* 82 */ -#define Tk_GetAtomName \ - (tkStubsPtr->tk_GetAtomName) /* 83 */ -#define Tk_GetBinding \ - (tkStubsPtr->tk_GetBinding) /* 84 */ -#define Tk_GetBitmap \ - (tkStubsPtr->tk_GetBitmap) /* 85 */ -#define Tk_GetBitmapFromData \ - (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ -#define Tk_GetCapStyle \ - (tkStubsPtr->tk_GetCapStyle) /* 87 */ -#define Tk_GetColor \ - (tkStubsPtr->tk_GetColor) /* 88 */ -#define Tk_GetColorByValue \ - (tkStubsPtr->tk_GetColorByValue) /* 89 */ -#define Tk_GetColormap \ - (tkStubsPtr->tk_GetColormap) /* 90 */ -#define Tk_GetCursor \ - (tkStubsPtr->tk_GetCursor) /* 91 */ -#define Tk_GetCursorFromData \ - (tkStubsPtr->tk_GetCursorFromData) /* 92 */ -#define Tk_GetFont \ - (tkStubsPtr->tk_GetFont) /* 93 */ -#define Tk_GetFontFromObj \ - (tkStubsPtr->tk_GetFontFromObj) /* 94 */ -#define Tk_GetFontMetrics \ - (tkStubsPtr->tk_GetFontMetrics) /* 95 */ -#define Tk_GetGC \ - (tkStubsPtr->tk_GetGC) /* 96 */ -#define Tk_GetImage \ - (tkStubsPtr->tk_GetImage) /* 97 */ -#define Tk_GetImageMasterData \ - (tkStubsPtr->tk_GetImageMasterData) /* 98 */ -#define Tk_GetItemTypes \ - (tkStubsPtr->tk_GetItemTypes) /* 99 */ -#define Tk_GetJoinStyle \ - (tkStubsPtr->tk_GetJoinStyle) /* 100 */ -#define Tk_GetJustify \ - (tkStubsPtr->tk_GetJustify) /* 101 */ -#define Tk_GetNumMainWindows \ - (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ -#define Tk_GetOption \ - (tkStubsPtr->tk_GetOption) /* 103 */ -#define Tk_GetPixels \ - (tkStubsPtr->tk_GetPixels) /* 104 */ -#define Tk_GetPixmap \ - (tkStubsPtr->tk_GetPixmap) /* 105 */ -#define Tk_GetRelief \ - (tkStubsPtr->tk_GetRelief) /* 106 */ -#define Tk_GetRootCoords \ - (tkStubsPtr->tk_GetRootCoords) /* 107 */ -#define Tk_GetScrollInfo \ - (tkStubsPtr->tk_GetScrollInfo) /* 108 */ -#define Tk_GetScreenMM \ - (tkStubsPtr->tk_GetScreenMM) /* 109 */ -#define Tk_GetSelection \ - (tkStubsPtr->tk_GetSelection) /* 110 */ -#define Tk_GetUid \ - (tkStubsPtr->tk_GetUid) /* 111 */ -#define Tk_GetVisual \ - (tkStubsPtr->tk_GetVisual) /* 112 */ -#define Tk_GetVRootGeometry \ - (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ -#define Tk_Grab \ - (tkStubsPtr->tk_Grab) /* 114 */ -#define Tk_HandleEvent \ - (tkStubsPtr->tk_HandleEvent) /* 115 */ -#define Tk_IdToWindow \ - (tkStubsPtr->tk_IdToWindow) /* 116 */ -#define Tk_ImageChanged \ - (tkStubsPtr->tk_ImageChanged) /* 117 */ -#define Tk_Init \ - (tkStubsPtr->tk_Init) /* 118 */ -#define Tk_InternAtom \ - (tkStubsPtr->tk_InternAtom) /* 119 */ -#define Tk_IntersectTextLayout \ - (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ -#define Tk_MaintainGeometry \ - (tkStubsPtr->tk_MaintainGeometry) /* 121 */ -#define Tk_MainWindow \ - (tkStubsPtr->tk_MainWindow) /* 122 */ -#define Tk_MakeWindowExist \ - (tkStubsPtr->tk_MakeWindowExist) /* 123 */ -#define Tk_ManageGeometry \ - (tkStubsPtr->tk_ManageGeometry) /* 124 */ -#define Tk_MapWindow \ - (tkStubsPtr->tk_MapWindow) /* 125 */ -#define Tk_MeasureChars \ - (tkStubsPtr->tk_MeasureChars) /* 126 */ -#define Tk_MoveResizeWindow \ - (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ -#define Tk_MoveWindow \ - (tkStubsPtr->tk_MoveWindow) /* 128 */ -#define Tk_MoveToplevelWindow \ - (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ -#define Tk_NameOf3DBorder \ - (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ -#define Tk_NameOfAnchor \ - (tkStubsPtr->tk_NameOfAnchor) /* 131 */ -#define Tk_NameOfBitmap \ - (tkStubsPtr->tk_NameOfBitmap) /* 132 */ -#define Tk_NameOfCapStyle \ - (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ -#define Tk_NameOfColor \ - (tkStubsPtr->tk_NameOfColor) /* 134 */ -#define Tk_NameOfCursor \ - (tkStubsPtr->tk_NameOfCursor) /* 135 */ -#define Tk_NameOfFont \ - (tkStubsPtr->tk_NameOfFont) /* 136 */ -#define Tk_NameOfImage \ - (tkStubsPtr->tk_NameOfImage) /* 137 */ -#define Tk_NameOfJoinStyle \ - (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ -#define Tk_NameOfJustify \ - (tkStubsPtr->tk_NameOfJustify) /* 139 */ -#define Tk_NameOfRelief \ - (tkStubsPtr->tk_NameOfRelief) /* 140 */ -#define Tk_NameToWindow \ - (tkStubsPtr->tk_NameToWindow) /* 141 */ -#define Tk_OwnSelection \ - (tkStubsPtr->tk_OwnSelection) /* 142 */ -#define Tk_ParseArgv \ - (tkStubsPtr->tk_ParseArgv) /* 143 */ -#define Tk_PhotoPutBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ -#define Tk_PhotoPutZoomedBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ -#define Tk_PhotoGetImage \ - (tkStubsPtr->tk_PhotoGetImage) /* 146 */ -#define Tk_PhotoBlank \ - (tkStubsPtr->tk_PhotoBlank) /* 147 */ -#define Tk_PhotoExpand_Panic \ - (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ -#define Tk_PhotoGetSize \ - (tkStubsPtr->tk_PhotoGetSize) /* 149 */ -#define Tk_PhotoSetSize_Panic \ - (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ -#define Tk_PointToChar \ - (tkStubsPtr->tk_PointToChar) /* 151 */ -#define Tk_PostscriptFontName \ - (tkStubsPtr->tk_PostscriptFontName) /* 152 */ -#define Tk_PreserveColormap \ - (tkStubsPtr->tk_PreserveColormap) /* 153 */ -#define Tk_QueueWindowEvent \ - (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ -#define Tk_RedrawImage \ - (tkStubsPtr->tk_RedrawImage) /* 155 */ -#define Tk_ResizeWindow \ - (tkStubsPtr->tk_ResizeWindow) /* 156 */ -#define Tk_RestackWindow \ - (tkStubsPtr->tk_RestackWindow) /* 157 */ -#define Tk_RestrictEvents \ - (tkStubsPtr->tk_RestrictEvents) /* 158 */ -#define Tk_SafeInit \ - (tkStubsPtr->tk_SafeInit) /* 159 */ -#define Tk_SetAppName \ - (tkStubsPtr->tk_SetAppName) /* 160 */ -#define Tk_SetBackgroundFromBorder \ - (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ -#define Tk_SetClass \ - (tkStubsPtr->tk_SetClass) /* 162 */ -#define Tk_SetGrid \ - (tkStubsPtr->tk_SetGrid) /* 163 */ -#define Tk_SetInternalBorder \ - (tkStubsPtr->tk_SetInternalBorder) /* 164 */ -#define Tk_SetWindowBackground \ - (tkStubsPtr->tk_SetWindowBackground) /* 165 */ -#define Tk_SetWindowBackgroundPixmap \ - (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ -#define Tk_SetWindowBorder \ - (tkStubsPtr->tk_SetWindowBorder) /* 167 */ -#define Tk_SetWindowBorderWidth \ - (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ -#define Tk_SetWindowBorderPixmap \ - (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ -#define Tk_SetWindowColormap \ - (tkStubsPtr->tk_SetWindowColormap) /* 170 */ -#define Tk_SetWindowVisual \ - (tkStubsPtr->tk_SetWindowVisual) /* 171 */ -#define Tk_SizeOfBitmap \ - (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ -#define Tk_SizeOfImage \ - (tkStubsPtr->tk_SizeOfImage) /* 173 */ -#define Tk_StrictMotif \ - (tkStubsPtr->tk_StrictMotif) /* 174 */ -#define Tk_TextLayoutToPostscript \ - (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ -#define Tk_TextWidth \ - (tkStubsPtr->tk_TextWidth) /* 176 */ -#define Tk_UndefineCursor \ - (tkStubsPtr->tk_UndefineCursor) /* 177 */ -#define Tk_UnderlineChars \ - (tkStubsPtr->tk_UnderlineChars) /* 178 */ -#define Tk_UnderlineTextLayout \ - (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ -#define Tk_Ungrab \ - (tkStubsPtr->tk_Ungrab) /* 180 */ -#define Tk_UnmaintainGeometry \ - (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ -#define Tk_UnmapWindow \ - (tkStubsPtr->tk_UnmapWindow) /* 182 */ -#define Tk_UnsetGrid \ - (tkStubsPtr->tk_UnsetGrid) /* 183 */ -#define Tk_UpdatePointer \ - (tkStubsPtr->tk_UpdatePointer) /* 184 */ -#define Tk_AllocBitmapFromObj \ - (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ -#define Tk_Alloc3DBorderFromObj \ - (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ -#define Tk_AllocColorFromObj \ - (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ -#define Tk_AllocCursorFromObj \ - (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ -#define Tk_AllocFontFromObj \ - (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ -#define Tk_CreateOptionTable \ - (tkStubsPtr->tk_CreateOptionTable) /* 190 */ -#define Tk_DeleteOptionTable \ - (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ -#define Tk_Free3DBorderFromObj \ - (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ -#define Tk_FreeBitmapFromObj \ - (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ -#define Tk_FreeColorFromObj \ - (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ -#define Tk_FreeConfigOptions \ - (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ -#define Tk_FreeSavedOptions \ - (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ -#define Tk_FreeCursorFromObj \ - (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ -#define Tk_FreeFontFromObj \ - (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ -#define Tk_Get3DBorderFromObj \ - (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ -#define Tk_GetAnchorFromObj \ - (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ -#define Tk_GetBitmapFromObj \ - (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ -#define Tk_GetColorFromObj \ - (tkStubsPtr->tk_GetColorFromObj) /* 202 */ -#define Tk_GetCursorFromObj \ - (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ -#define Tk_GetOptionInfo \ - (tkStubsPtr->tk_GetOptionInfo) /* 204 */ -#define Tk_GetOptionValue \ - (tkStubsPtr->tk_GetOptionValue) /* 205 */ -#define Tk_GetJustifyFromObj \ - (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ -#define Tk_GetMMFromObj \ - (tkStubsPtr->tk_GetMMFromObj) /* 207 */ -#define Tk_GetPixelsFromObj \ - (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ -#define Tk_GetReliefFromObj \ - (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ -#define Tk_GetScrollInfoObj \ - (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ -#define Tk_InitOptions \ - (tkStubsPtr->tk_InitOptions) /* 211 */ -#define Tk_MainEx \ - (tkStubsPtr->tk_MainEx) /* 212 */ -#define Tk_RestoreSavedOptions \ - (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ -#define Tk_SetOptions \ - (tkStubsPtr->tk_SetOptions) /* 214 */ -#define Tk_InitConsoleChannels \ - (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ -#define Tk_CreateConsoleWindow \ - (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ -#define Tk_CreateSmoothMethod \ - (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#define Tk_GetDash \ - (tkStubsPtr->tk_GetDash) /* 220 */ -#define Tk_CreateOutline \ - (tkStubsPtr->tk_CreateOutline) /* 221 */ -#define Tk_DeleteOutline \ - (tkStubsPtr->tk_DeleteOutline) /* 222 */ -#define Tk_ConfigOutlineGC \ - (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ -#define Tk_ChangeOutlineGC \ - (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ -#define Tk_ResetOutlineGC \ - (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ -#define Tk_CanvasPsOutline \ - (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ -#define Tk_SetTSOrigin \ - (tkStubsPtr->tk_SetTSOrigin) /* 227 */ -#define Tk_CanvasGetCoordFromObj \ - (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ -#define Tk_CanvasSetOffset \ - (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ -#define Tk_DitherPhoto \ - (tkStubsPtr->tk_DitherPhoto) /* 230 */ -#define Tk_PostscriptBitmap \ - (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ -#define Tk_PostscriptColor \ - (tkStubsPtr->tk_PostscriptColor) /* 232 */ -#define Tk_PostscriptFont \ - (tkStubsPtr->tk_PostscriptFont) /* 233 */ -#define Tk_PostscriptImage \ - (tkStubsPtr->tk_PostscriptImage) /* 234 */ -#define Tk_PostscriptPath \ - (tkStubsPtr->tk_PostscriptPath) /* 235 */ -#define Tk_PostscriptStipple \ - (tkStubsPtr->tk_PostscriptStipple) /* 236 */ -#define Tk_PostscriptY \ - (tkStubsPtr->tk_PostscriptY) /* 237 */ -#define Tk_PostscriptPhoto \ - (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ -#define Tk_CreateClientMessageHandler \ - (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ -#define Tk_DeleteClientMessageHandler \ - (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ -#define Tk_CreateAnonymousWindow \ - (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ -#define Tk_SetClassProcs \ - (tkStubsPtr->tk_SetClassProcs) /* 242 */ -#define Tk_SetInternalBorderEx \ - (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ -#define Tk_SetMinimumRequestSize \ - (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ -#define Tk_SetCaretPos \ - (tkStubsPtr->tk_SetCaretPos) /* 245 */ -#define Tk_PhotoPutBlock_Panic \ - (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ -#define Tk_PhotoPutZoomedBlock_Panic \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ -#define Tk_CollapseMotionEvents \ - (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ -#define Tk_RegisterStyleEngine \ - (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ -#define Tk_GetStyleEngine \ - (tkStubsPtr->tk_GetStyleEngine) /* 250 */ -#define Tk_RegisterStyledElement \ - (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ -#define Tk_GetElementId \ - (tkStubsPtr->tk_GetElementId) /* 252 */ -#define Tk_CreateStyle \ - (tkStubsPtr->tk_CreateStyle) /* 253 */ -#define Tk_GetStyle \ - (tkStubsPtr->tk_GetStyle) /* 254 */ -#define Tk_FreeStyle \ - (tkStubsPtr->tk_FreeStyle) /* 255 */ -#define Tk_NameOfStyle \ - (tkStubsPtr->tk_NameOfStyle) /* 256 */ -#define Tk_AllocStyleFromObj \ - (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ -#define Tk_GetStyleFromObj \ - (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ -#define Tk_FreeStyleFromObj \ - (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ -#define Tk_GetStyledElement \ - (tkStubsPtr->tk_GetStyledElement) /* 260 */ -#define Tk_GetElementSize \ - (tkStubsPtr->tk_GetElementSize) /* 261 */ -#define Tk_GetElementBox \ - (tkStubsPtr->tk_GetElementBox) /* 262 */ -#define Tk_GetElementBorderWidth \ - (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ -#define Tk_DrawElement \ - (tkStubsPtr->tk_DrawElement) /* 264 */ -#define Tk_PhotoExpand \ - (tkStubsPtr->tk_PhotoExpand) /* 265 */ -#define Tk_PhotoPutBlock \ - (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ -#define Tk_PhotoPutZoomedBlock \ - (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ -#define Tk_PhotoSetSize \ - (tkStubsPtr->tk_PhotoSetSize) /* 268 */ -#define Tk_GetUserInactiveTime \ - (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ -#define Tk_ResetUserInactiveTime \ - (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ -#define Tk_Interp \ - (tkStubsPtr->tk_Interp) /* 271 */ -#define Tk_CreateOldImageType \ - (tkStubsPtr->tk_CreateOldImageType) /* 272 */ -#define Tk_CreateOldPhotoImageFormat \ - (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -/* Functions that don't belong in the stub table */ -#undef Tk_MainEx -#undef Tk_Init -#undef Tk_SafeInit -#undef Tk_CreateConsoleWindow - -#if defined(_WIN32) && defined(UNICODE) -# define Tk_MainEx Tk_MainExW - EXTERN void Tk_MainExW(int argc, wchar_t **argv, - Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkFont.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkFont.h deleted file mode 100644 index de479bf88..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkFont.h +++ /dev/null @@ -1,224 +0,0 @@ -/* - * tkFont.h -- - * - * Declarations for interfaces between the generic and platform-specific - * parts of the font package. This information is not visible outside of - * the font package. - * - * Copyright (c) 1996-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKFONT -#define _TKFONT - -/* - * The following structure keeps track of the attributes of a font. It can be - * used to keep track of either the desired attributes or the actual - * attributes gotten when the font was instantiated. - */ - -struct TkFontAttributes { - Tk_Uid family; /* Font family, or NULL to represent plaform- - * specific default system font. */ - double size; /* Pointsize of font, 0.0 for default size, or - * negative number meaning pixel size. */ - int weight; /* Weight flag; see below for def'n. */ - int slant; /* Slant flag; see below for def'n. */ - int underline; /* Non-zero for underline font. */ - int overstrike; /* Non-zero for overstrike font. */ -}; - -/* - * Possible values for the "weight" field in a TkFontAttributes structure. - * Weight is a subjective term and depends on what the company that created - * the font considers bold. - */ - -#define TK_FW_NORMAL 0 -#define TK_FW_BOLD 1 - -#define TK_FW_UNKNOWN -1 /* Unknown weight. This value is used for - * error checking and is never actually stored - * in the weight field. */ - -/* - * Possible values for the "slant" field in a TkFontAttributes structure. - */ - -#define TK_FS_ROMAN 0 -#define TK_FS_ITALIC 1 -#define TK_FS_OBLIQUE 2 /* This value is only used when parsing X font - * names to determine the closest match. It is - * only stored in the XLFDAttributes - * structure, never in the slant field of the - * TkFontAttributes. */ - -#define TK_FS_UNKNOWN -1 /* Unknown slant. This value is used for error - * checking and is never actually stored in - * the slant field. */ - -/* - * The following structure keeps track of the metrics for an instantiated - * font. The metrics are the physical properties of the font itself. - */ - -typedef struct TkFontMetrics { - int ascent; /* From baseline to top of font. */ - int descent; /* From baseline to bottom of font. */ - int maxWidth; /* Width of widest character in font. */ - int fixed; /* Non-zero if this is a fixed-width font, - * 0 otherwise. */ -} TkFontMetrics; - -/* - * The following structure is used to keep track of the generic information - * about a font. Each platform-specific font is represented by a structure - * with the following structure at its beginning, plus any platform-specific - * stuff after that. - */ - -typedef struct TkFont { - /* - * Fields used and maintained exclusively by generic code. - */ - - int resourceRefCount; /* Number of active uses of this font (each - * active use corresponds to a call to - * Tk_AllocFontFromTable or Tk_GetFont). If - * this count is 0, then this TkFont structure - * is no longer valid and it isn't present in - * a hash table: it is being kept around only - * because there are objects referring to it. - * The structure is freed when - * resourceRefCount and objRefCount are both - * 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - Tcl_HashEntry *cacheHashPtr;/* Entry in font cache for this structure, - * used when deleting it. */ - Tcl_HashEntry *namedHashPtr;/* Pointer to hash table entry that - * corresponds to the named font that the - * tkfont was based on, or NULL if the tkfont - * was not based on a named font. */ - Screen *screen; /* The screen where this font is valid. */ - int tabWidth; /* Width of tabs in this font (pixels). */ - int underlinePos; /* Offset from baseline to origin of underline - * bar (used for drawing underlines on a - * non-underlined font). */ - int underlineHeight; /* Height of underline bar (used for drawing - * underlines on a non-underlined font). */ - - /* - * Fields used in the generic code that are filled in by - * platform-specific code. - */ - - Font fid; /* For backwards compatibility with XGCValues - * structures. Remove when TkGCValues is - * implemented. */ - TkFontAttributes fa; /* Actual font attributes obtained when the - * the font was created, as opposed to the - * desired attributes passed in to - * TkpGetFontFromAttributes(). The desired - * metrics can be determined from the string - * that was used to create this font. */ - TkFontMetrics fm; /* Font metrics determined when font was - * created. */ - struct TkFont *nextPtr; /* Points to the next TkFont structure with - * the same name. All fonts with the same name - * (but different displays) are chained - * together off a single entry in a hash - * table. */ -} TkFont; - -/* - * The following structure is used to return attributes when parsing an XLFD. - * The extra information is of interest to the Unix-specific code when - * attempting to find the closest matching font. - */ - -typedef struct TkXLFDAttributes { - Tk_Uid foundry; /* The foundry of the font. */ - int slant; /* The tristate value for the slant, which is - * significant under X. */ - int setwidth; /* The proportionate width, see below for - * definition. */ - Tk_Uid charset; /* The actual charset string. */ -} TkXLFDAttributes; - -/* - * Possible values for the "setwidth" field in a TkXLFDAttributes structure. - * The setwidth is whether characters are considered wider or narrower than - * normal. - */ - -#define TK_SW_NORMAL 0 -#define TK_SW_CONDENSE 1 -#define TK_SW_EXPAND 2 -#define TK_SW_UNKNOWN 3 /* Unknown setwidth. This value may be stored - * in the setwidth field. */ - -/* - * The following defines specify the meaning of the fields in a fully - * qualified XLFD. - */ - -#define XLFD_FOUNDRY 0 -#define XLFD_FAMILY 1 -#define XLFD_WEIGHT 2 -#define XLFD_SLANT 3 -#define XLFD_SETWIDTH 4 -#define XLFD_ADD_STYLE 5 -#define XLFD_PIXEL_SIZE 6 -#define XLFD_POINT_SIZE 7 -#define XLFD_RESOLUTION_X 8 -#define XLFD_RESOLUTION_Y 9 -#define XLFD_SPACING 10 -#define XLFD_AVERAGE_WIDTH 11 -#define XLFD_CHARSET 12 -#define XLFD_NUMFIELDS 13 /* Number of fields in XLFD. */ - -/* - * Helper macro. How to correctly round a double to a short. - */ - -#define ROUND16(x) ((short) floor((x) + 0.5)) - -/* - * Low-level API exported by generic code to platform-specific code. - */ - -#define TkInitFontAttributes(fa) memset((fa), 0, sizeof(TkFontAttributes)); -#define TkInitXLFDAttributes(xa) memset((xa), 0, sizeof(TkXLFDAttributes)); - -MODULE_SCOPE int TkFontParseXLFD(const char *string, - TkFontAttributes *faPtr, TkXLFDAttributes *xaPtr); -MODULE_SCOPE const char *const * TkFontGetAliasList(const char *faceName); -MODULE_SCOPE const char *const *const * TkFontGetFallbacks(void); -MODULE_SCOPE double TkFontGetPixels(Tk_Window tkwin, double size); -MODULE_SCOPE double TkFontGetPoints(Tk_Window tkwin, double size); -MODULE_SCOPE const char *const * TkFontGetGlobalClass(void); -MODULE_SCOPE const char *const * TkFontGetSymbolClass(void); -MODULE_SCOPE int TkCreateNamedFont(Tcl_Interp *interp, Tk_Window tkwin, - const char *name, TkFontAttributes *faPtr); -MODULE_SCOPE int TkDeleteNamedFont(Tcl_Interp *interp, - Tk_Window tkwin, const char *name); -MODULE_SCOPE int TkFontGetFirstTextLayout(Tk_TextLayout layout, - Tk_Font *font, char *dst); - -/* - * Low-level API exported by platform-specific code to generic code. - */ - -MODULE_SCOPE void TkpDeleteFont(TkFont *tkFontPtr); -MODULE_SCOPE void TkpFontPkgInit(TkMainInfo *mainPtr); -MODULE_SCOPE TkFont * TkpGetFontFromAttributes(TkFont *tkFontPtr, - Tk_Window tkwin, const TkFontAttributes *faPtr); -MODULE_SCOPE void TkpGetFontFamilies(Tcl_Interp *interp, - Tk_Window tkwin); -MODULE_SCOPE TkFont * TkpGetNativeFont(Tk_Window tkwin, const char *name); - -#endif /* _TKFONT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkInt.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkInt.h deleted file mode 100644 index c1bd562d1..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkInt.h +++ /dev/null @@ -1,1311 +0,0 @@ -/* - * tkInt.h -- - * - * Declarations for things used internally by the Tk functions but not - * exported outside the module. - * - * Copyright (c) 1990-1994 The Regents of the University of California. - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * Copyright (c) 1998 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINT -#define _TKINT - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correctly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#include -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void*)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void*)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void*)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void*)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -#ifndef TCL_Z_MODIFIER -# if defined(_WIN64) -# define TCL_Z_MODIFIER "I" -# elif defined(__GNUC__) && !defined(_WIN32) -# define TCL_Z_MODIFIER "z" -# else -# define TCL_Z_MODIFIER "" -# endif -#endif /* !TCL_Z_MODIFIER */ - -/* - * Opaque type declarations: - */ - -typedef struct TkColormap TkColormap; -typedef struct TkFontAttributes TkFontAttributes; -typedef struct TkGrabEvent TkGrabEvent; -typedef struct TkpCursor_ *TkpCursor; -typedef struct TkRegion_ *TkRegion; -typedef struct TkStressedCmap TkStressedCmap; -typedef struct TkBindInfo_ *TkBindInfo; -typedef struct Busy *TkBusy; - -/* - * One of the following structures is maintained for each cursor in use in the - * system. This structure is used by tkCursor.c and the various system- - * specific cursor files. - */ - -typedef struct TkCursor { - Tk_Cursor cursor; /* System specific identifier for cursor. */ - Display *display; /* Display containing cursor. Needed for - * disposal and retrieval of cursors. */ - int resourceRefCount; /* Number of active uses of this cursor (each - * active use corresponds to a call to - * Tk_AllocPreserveFromObj or Tk_Preserve). If - * this count is 0, then this structure is no - * longer valid and it isn't present in a hash - * table: it is being kept around only because - * there are objects referring to it. The - * structure is freed when resourceRefCount - * and objRefCount are both 0. */ - int objRefCount; /* Number of Tcl objects that reference this - * structure.. */ - Tcl_HashTable *otherTable; /* Second table (other than idTable) used to - * index this entry. */ - Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure - * (needed when deleting). */ - Tcl_HashEntry *idHashPtr; /* Entry in idTable for this structure (needed - * when deleting). */ - struct TkCursor *nextPtr; /* Points to the next TkCursor structure with - * the same name. Cursors with the same name - * but different displays are chained together - * off a single hash table entry. */ -} TkCursor; - -/* - * The following structure is kept one-per-TkDisplay to maintain information - * about the caret (cursor location) on this display. This is used to dictate - * global focus location (Windows Accessibility guidelines) and to position - * the IME or XIM over-the-spot window. - */ - -typedef struct TkCaret { - struct TkWindow *winPtr; /* The window on which we requested caret - * placement. */ - int x; /* Relative x coord of the caret. */ - int y; /* Relative y coord of the caret. */ - int height; /* Specified height of the window. */ -} TkCaret; - -/* - * One of the following structures is maintained for each display containing a - * window managed by Tk. In part, the structure is used to store thread- - * specific data, since each thread will have its own TkDisplay structure. - */ - -typedef struct TkDisplay { - Display *display; /* Xlib's info about display. */ - struct TkDisplay *nextPtr; /* Next in list of all displays. */ - char *name; /* Name of display (with any screen identifier - * removed). Malloc-ed. */ - Time lastEventTime; /* Time of last event received for this - * display. */ - - /* - * Information used primarily by tk3d.c: - */ - - int borderInit; /* 0 means borderTable needs initializing. */ - Tcl_HashTable borderTable; /* Maps from color name to TkBorder - * structure. */ - - /* - * Information used by tkAtom.c only: - */ - - int atomInit; /* 0 means stuff below hasn't been initialized - * yet. */ - Tcl_HashTable nameTable; /* Maps from names to Atom's. */ - Tcl_HashTable atomTable; /* Maps from Atom's back to names. */ - - /* - * Information used primarily by tkBind.c: - */ - - int bindInfoStale; /* Non-zero means the variables in this part - * of the structure are potentially incorrect - * and should be recomputed. */ - unsigned int modeModMask; /* Has one bit set to indicate the modifier - * corresponding to "mode shift". If no such - * modifier, than this is zero. */ - unsigned int metaModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - unsigned int altModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage; - /* Indicates how to interpret lock - * modifier. */ - int numModKeyCodes; /* Number of entries in modKeyCodes array - * below. */ - KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for all - * of the keys that have modifiers associated - * with them. Malloc'ed, but may be NULL. */ - - /* - * Information used by tkBitmap.c only: - */ - - int bitmapInit; /* 0 means tables above need initializing. */ - int bitmapAutoNumber; /* Used to number bitmaps. */ - Tcl_HashTable bitmapNameTable; - /* Maps from name of bitmap to the first - * TkBitmap record for that name. */ - Tcl_HashTable bitmapIdTable;/* Maps from bitmap id to the TkBitmap - * structure for the bitmap. */ - Tcl_HashTable bitmapDataTable; - /* Used by Tk_GetBitmapFromData to map from a - * collection of in-core data about a bitmap - * to a reference giving an automatically- - * generated name for the bitmap. */ - - /* - * Information used by tkCanvas.c only: - */ - - int numIdSearches; - int numSlowSearches; - - /* - * Used by tkColor.c only: - */ - - int colorInit; /* 0 means color module needs initializing. */ - TkStressedCmap *stressPtr; /* First in list of colormaps that have filled - * up, so we have to pick an approximate - * color. */ - Tcl_HashTable colorNameTable; - /* Maps from color name to TkColor structure - * for that color. */ - Tcl_HashTable colorValueTable; - /* Maps from integer RGB values to TkColor - * structures. */ - - /* - * Used by tkCursor.c only: - */ - - int cursorInit; /* 0 means cursor module need initializing. */ - Tcl_HashTable cursorNameTable; - /* Maps from a string name to a cursor to the - * TkCursor record for the cursor. */ - Tcl_HashTable cursorDataTable; - /* Maps from a collection of in-core data - * about a cursor to a TkCursor structure. */ - Tcl_HashTable cursorIdTable; - /* Maps from a cursor id to the TkCursor - * structure for the cursor. */ - char cursorString[20]; /* Used to store a cursor id string. */ - Font cursorFont; /* Font to use for standard cursors. None - * means font not loaded yet. */ - - /* - * Information used by tkError.c only: - */ - - struct TkErrorHandler *errorPtr; - /* First in list of error handlers for this - * display. NULL means no handlers exist at - * present. */ - int deleteCount; /* Counts # of handlers deleted since last - * time inactive handlers were garbage- - * collected. When this number gets big, - * handlers get cleaned up. */ - - /* - * Used by tkEvent.c only: - */ - - struct TkWindowEvent *delayedMotionPtr; - /* Points to a malloc-ed motion event whose - * processing has been delayed in the hopes - * that another motion event will come along - * right away and we can merge the two of them - * together. NULL means that there is no - * delayed motion event. */ - - /* - * Information used by tkFocus.c only: - */ - - int focusDebug; /* 1 means collect focus debugging - * statistics. */ - struct TkWindow *implicitWinPtr; - /* If the focus arrived at a toplevel window - * implicitly via an Enter event (rather than - * via a FocusIn event), this points to the - * toplevel window. Otherwise it is NULL. */ - struct TkWindow *focusPtr; /* Points to the window on this display that - * should be receiving keyboard events. When - * multiple applications on the display have - * the focus, this will refer to the innermost - * window in the innermost application. This - * information isn't used on Windows, but it's - * needed on the Mac, and also on X11 when XIM - * processing is being done. */ - - /* - * Information used by tkGC.c only: - */ - - Tcl_HashTable gcValueTable; /* Maps from a GC's values to a TkGC structure - * describing a GC with those values. */ - Tcl_HashTable gcIdTable; /* Maps from a GC to a TkGC. */ - int gcInit; /* 0 means the tables below need - * initializing. */ - - /* - * Information used by tkGeometry.c only: - */ - - Tcl_HashTable maintainHashTable; - /* Hash table that maps from a master's - * Tk_Window token to a list of slaves managed - * by that master. */ - int geomInit; - -#define TkGetGeomMaster(tkwin) (((TkWindow *)tkwin)->maintainerPtr != NULL ? \ - ((TkWindow *)tkwin)->maintainerPtr : ((TkWindow *)tkwin)->parentPtr) - - /* - * Information used by tkGet.c only: - */ - - Tcl_HashTable uidTable; /* Stores all Tk_Uid used in a thread. */ - int uidInit; /* 0 means uidTable needs initializing. */ - - /* - * Information used by tkGrab.c only: - */ - - struct TkWindow *grabWinPtr;/* Window in which the pointer is currently - * grabbed, or NULL if none. */ - struct TkWindow *eventualGrabWinPtr; - /* Value that grabWinPtr will have once the - * grab event queue (below) has been - * completely emptied. */ - struct TkWindow *buttonWinPtr; - /* Window in which first mouse button was - * pressed while grab was in effect, or NULL - * if no such press in effect. */ - struct TkWindow *serverWinPtr; - /* If no application contains the pointer then - * this is NULL. Otherwise it contains the - * last window for which we've gotten an Enter - * or Leave event from the server (i.e. the - * last window known to have contained the - * pointer). Doesn't reflect events that were - * synthesized in tkGrab.c. */ - TkGrabEvent *firstGrabEventPtr; - /* First in list of enter/leave events - * synthesized by grab code. These events must - * be processed in order before any other - * events are processed. NULL means no such - * events. */ - TkGrabEvent *lastGrabEventPtr; - /* Last in list of synthesized events, or NULL - * if list is empty. */ - int grabFlags; /* Miscellaneous flag values. See definitions - * in tkGrab.c. */ - - /* - * Information used by tkGrid.c only: - */ - - int gridInit; /* 0 means table below needs initializing. */ - Tcl_HashTable gridHashTable;/* Maps from Tk_Window tokens to corresponding - * Grid structures. */ - - /* - * Information used by tkImage.c only: - */ - - int imageId; /* Value used to number image ids. */ - - /* - * Information used by tkMacWinMenu.c only: - */ - - int postCommandGeneration; - - /* - * Information used by tkPack.c only. - */ - - int packInit; /* 0 means table below needs initializing. */ - Tcl_HashTable packerHashTable; - /* Maps from Tk_Window tokens to corresponding - * Packer structures. */ - - /* - * Information used by tkPlace.c only. - */ - - int placeInit; /* 0 means tables below need initializing. */ - Tcl_HashTable masterTable; /* Maps from Tk_Window toke to the Master - * structure for the window, if it exists. */ - Tcl_HashTable slaveTable; /* Maps from Tk_Window toke to the Slave - * structure for the window, if it exists. */ - - /* - * Information used by tkSelect.c and tkClipboard.c only: - */ - - struct TkSelectionInfo *selectionInfoPtr; - /* First in list of selection information - * records. Each entry contains information - * about the current owner of a particular - * selection on this display. */ - Atom multipleAtom; /* Atom for MULTIPLE. None means selection - * stuff isn't initialized. */ - Atom incrAtom; /* Atom for INCR. */ - Atom targetsAtom; /* Atom for TARGETS. */ - Atom timestampAtom; /* Atom for TIMESTAMP. */ - Atom textAtom; /* Atom for TEXT. */ - Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */ - Atom applicationAtom; /* Atom for TK_APPLICATION. */ - Atom windowAtom; /* Atom for TK_WINDOW. */ - Atom clipboardAtom; /* Atom for CLIPBOARD. */ - Atom utf8Atom; /* Atom for UTF8_STRING. */ - Atom atomPairAtom; /* Atom for ATOM_PAIR. */ - - Tk_Window clipWindow; /* Window used for clipboard ownership and to - * retrieve selections between processes. NULL - * means clipboard info hasn't been - * initialized. */ - int clipboardActive; /* 1 means we currently own the clipboard - * selection, 0 means we don't. */ - struct TkMainInfo *clipboardAppPtr; - /* Last application that owned clipboard. */ - struct TkClipboardTarget *clipTargetPtr; - /* First in list of clipboard type information - * records. Each entry contains information - * about the buffers for a given selection - * target. */ - - /* - * Information used by tkSend.c only: - */ - - Tk_Window commTkwin; /* Window used for communication between - * interpreters during "send" commands. NULL - * means send info hasn't been initialized - * yet. */ - Atom commProperty; /* X's name for comm property. */ - Atom registryProperty; /* X's name for property containing registry - * of interpreter names. */ - Atom appNameProperty; /* X's name for property used to hold the - * application name on each comm window. */ - - /* - * Information used by tkUnixWm.c and tkWinWm.c only: - */ - - struct TkWmInfo *firstWmPtr;/* Points to first top-level window. */ - struct TkWmInfo *foregroundWmPtr; - /* Points to the foreground window. */ - - /* - * Information used by tkVisual.c only: - */ - - TkColormap *cmapPtr; /* First in list of all non-default colormaps - * allocated for this display. */ - - /* - * Miscellaneous information: - */ - -#ifdef TK_USE_INPUT_METHODS - XIM inputMethod; /* Input method for this display. */ - XIMStyle inputStyle; /* Input style selected for this display. */ - XFontSet inputXfs; /* XFontSet cached for over-the-spot XIM. */ -#endif /* TK_USE_INPUT_METHODS */ - Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */ - - int refCount; /* Reference count of how many Tk applications - * are using this display. Used to clean up - * the display when we no longer have any Tk - * applications using it. */ - - /* - * The following field were all added for Tk8.3 - */ - - int mouseButtonState; /* Current mouse button state for this - * display. NOT USED as of 8.6.10 */ - Window mouseButtonWindow; /* Window the button state was set in, added - * in Tk 8.4. */ - Tk_Window warpWindow; - Tk_Window warpMainwin; /* For finding the root window for warping - * purposes. */ - int warpX; - int warpY; - - /* - * The following field(s) were all added for Tk8.4 - */ - - unsigned int flags; /* Various flag values: these are all defined - * in below. */ - TkCaret caret; /* Information about the caret for this - * display. This is not a pointer. */ - - int iconDataSize; /* Size of default iconphoto image data. */ - unsigned char *iconDataPtr; /* Default iconphoto image data, if set. */ -#ifdef TK_USE_INPUT_METHODS - int ximGeneration; /* Used to invalidate XIC */ -#endif /* TK_USE_INPUT_METHODS */ -} TkDisplay; - -/* - * Flag values for TkDisplay flags. - * TK_DISPLAY_COLLAPSE_MOTION_EVENTS: (default on) - * Indicates that we should collapse motion events on this display - * TK_DISPLAY_USE_IM: (default on, set via tk.tcl) - * Whether to use input methods for this display - * TK_DISPLAY_WM_TRACING: (default off) - * Whether we should do wm tracing on this display. - * TK_DISPLAY_IN_WARP: (default off) - * Indicates that we are in a pointer warp - */ - -#define TK_DISPLAY_COLLAPSE_MOTION_EVENTS (1 << 0) -#define TK_DISPLAY_USE_IM (1 << 1) -#define TK_DISPLAY_WM_TRACING (1 << 3) -#define TK_DISPLAY_IN_WARP (1 << 4) -#define TK_DISPLAY_USE_XKB (1 << 5) - -/* - * One of the following structures exists for each error handler created by a - * call to Tk_CreateErrorHandler. The structure is managed by tkError.c. - */ - -typedef struct TkErrorHandler { - TkDisplay *dispPtr; /* Display to which handler applies. */ - unsigned long firstRequest; /* Only errors with serial numbers >= to this - * are considered. */ - unsigned long lastRequest; /* Only errors with serial numbers <= to this - * are considered. This field is filled in - * when XUnhandle is called. -1 means - * XUnhandle hasn't been called yet. */ - int error; /* Consider only errors with this error_code - * (-1 means consider all errors). */ - int request; /* Consider only errors with this major - * request code (-1 means consider all major - * codes). */ - int minorCode; /* Consider only errors with this minor - * request code (-1 means consider all minor - * codes). */ - Tk_ErrorProc *errorProc; /* Function to invoke when a matching error - * occurs. NULL means just ignore errors. */ - ClientData clientData; /* Arbitrary value to pass to errorProc. */ - struct TkErrorHandler *nextPtr; - /* Pointer to next older handler for this - * display, or NULL for end of list. */ -} TkErrorHandler; - -/* - * One of the following structures exists for each event handler created by - * calling Tk_CreateEventHandler. This information is used by tkEvent.c only. - */ - -typedef struct TkEventHandler { - unsigned long mask; /* Events for which to invoke proc. */ - Tk_EventProc *proc; /* Function to invoke when an event in mask - * occurs. */ - ClientData clientData; /* Argument to pass to proc. */ - struct TkEventHandler *nextPtr; - /* Next in list of handlers associated with - * window (NULL means end of list). */ -} TkEventHandler; - -/* - * Tk keeps one of the following data structures for each main window (created - * by a call to TkCreateMainWindow). It stores information that is shared by - * all of the windows associated with a particular main window. - */ - -typedef struct TkMainInfo { - int refCount; /* Number of windows whose "mainPtr" fields - * point here. When this becomes zero, can - * free up the structure (the reference count - * is zero because windows can get deleted in - * almost any order; the main window isn't - * necessarily the last one deleted). */ - struct TkWindow *winPtr; /* Pointer to main window. */ - Tcl_Interp *interp; /* Interpreter associated with application. */ - Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow - * structs for all windows related to this - * main window. Managed by tkWindow.c. */ - long deletionEpoch; /* Incremented by window deletions. */ - Tk_BindingTable bindingTable; - /* Used in conjunction with "bind" command to - * bind events to Tcl commands. */ - TkBindInfo bindInfo; /* Information used by tkBind.c on a per - * application basis. */ - struct TkFontInfo *fontInfoPtr; - /* Information used by tkFont.c on a per - * application basis. */ - - /* - * Information used only by tkFocus.c and tk*Embed.c: - */ - - struct TkToplevelFocusInfo *tlFocusPtr; - /* First in list of records containing focus - * information for each top-level in the - * application. Used only by tkFocus.c. */ - struct TkDisplayFocusInfo *displayFocusPtr; - /* First in list of records containing focus - * information for each display that this - * application has ever used. Used only by - * tkFocus.c. */ - - struct ElArray *optionRootPtr; - /* Top level of option hierarchy for this main - * window. NULL means uninitialized. Managed - * by tkOption.c. */ - Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster - * structures. Managed by tkImage.c. */ - int strictMotif; /* This is linked to the tk_strictMotif global - * variable. */ - int alwaysShowSelection; /* This is linked to the - * ::tk::AlwaysShowSelection variable. */ - struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by - * this process. */ - Tcl_HashTable busyTable; /* Information used by [tk busy] command. */ -} TkMainInfo; - -/* - * Tk keeps the following data structure for each of it's builtin bitmaps. - * This structure is only used by tkBitmap.c and other platform specific - * bitmap files. - */ - -typedef struct { - const void *source; /* Bits for bitmap. */ - int width, height; /* Dimensions of bitmap. */ - int native; /* 0 means generic (X style) bitmap, 1 means - * native style bitmap. */ -} TkPredefBitmap; - -/* - * Tk keeps one of the following structures for each window. Some of the - * information (like size and location) is a shadow of information managed by - * the X server, and some is special information used here, such as event and - * geometry management information. This information is (mostly) managed by - * tkWindow.c. WARNING: the declaration below must be kept consistent with the - * Tk_FakeWin structure in tk.h. If you change one, be sure to change the - * other! - */ - -typedef struct TkWindow { - /* - * Structural information: - */ - - Display *display; /* Display containing window. */ - TkDisplay *dispPtr; /* Tk's information about display for - * window. */ - int screenNum; /* Index of screen for window, among all those - * for dispPtr. */ - Visual *visual; /* Visual to use for window. If not default, - * MUST be set before X window is created. */ - int depth; /* Number of bits/pixel. */ - Window window; /* X's id for window. NULL means window hasn't - * actually been created yet, or it's been - * deleted. */ - struct TkWindow *childList; /* First in list of child windows, or NULL if - * no children. List is in stacking order, - * lowest window first.*/ - struct TkWindow *lastChildPtr; - /* Last in list of child windows (highest in - * stacking order), or NULL if no children. */ - struct TkWindow *parentPtr; /* Pointer to parent window (logical parent, - * not necessarily X parent). NULL means - * either this is the main window, or the - * window's parent has already been deleted. */ - struct TkWindow *nextPtr; /* Next higher sibling (in stacking order) in - * list of children with same parent. NULL - * means end of list. */ - TkMainInfo *mainPtr; /* Information shared by all windows - * associated with a particular main window. - * NULL means this window is a rogue that is - * not associated with any application (at - * present, this only happens for the dummy - * windows used for "send" communication). */ - - /* - * Name and type information for the window: - */ - - char *pathName; /* Path name of window (concatenation of all - * names between this window and its top-level - * ancestor). This is a pointer into an entry - * in mainPtr->nameTable. NULL means that the - * window hasn't been completely created - * yet. */ - Tk_Uid nameUid; /* Name of the window within its parent - * (unique within the parent). */ - Tk_Uid classUid; /* Class of the window. NULL means window - * hasn't been given a class yet. */ - - /* - * Geometry and other attributes of window. This information may not be - * updated on the server immediately; stuff that hasn't been reflected in - * the server yet is called "dirty". At present, information can be dirty - * only if the window hasn't yet been created. - */ - - XWindowChanges changes; /* Geometry and other info about window. */ - unsigned int dirtyChanges; /* Bits indicate fields of "changes" that are - * dirty. */ - XSetWindowAttributes atts; /* Current attributes of window. */ - unsigned long dirtyAtts; /* Bits indicate fields of "atts" that are - * dirty. */ - - unsigned int flags; /* Various flag values: these are all defined - * in tk.h (confusing, but they're needed - * there for some query macros). */ - - /* - * Information kept by the event manager (tkEvent.c): - */ - - TkEventHandler *handlerList;/* First in list of event handlers declared - * for this window, or NULL if none. */ -#ifdef TK_USE_INPUT_METHODS - XIC inputContext; /* XIM input context. */ -#endif /* TK_USE_INPUT_METHODS */ - - /* - * Information used for event bindings (see "bind" and "bindtags" commands - * in tkCmds.c): - */ - - ClientData *tagPtr; /* Points to array of tags used for bindings - * on this window. Each tag is a Tk_Uid. - * Malloc'ed. NULL means no tags. */ - int numTags; /* Number of tags at *tagPtr. */ - - /* - * Information used by tkOption.c to manage options for the window. - */ - - int optionLevel; /* -1 means no option information is currently - * cached for this window. Otherwise this - * gives the level in the option stack at - * which info is cached. */ - /* - * Information used by tkSelect.c to manage the selection. - */ - - struct TkSelHandler *selHandlerList; - /* First in list of handlers for returning the - * selection in various forms. */ - - /* - * Information used by tkGeometry.c for geometry management. - */ - - const Tk_GeomMgr *geomMgrPtr; - /* Information about geometry manager for this - * window. */ - ClientData geomData; /* Argument for geometry manager functions. */ - int reqWidth, reqHeight; /* Arguments from last call to - * Tk_GeometryRequest, or 0's if - * Tk_GeometryRequest hasn't been called. */ - int internalBorderLeft; /* Width of internal border of window (0 means - * no internal border). Geometry managers - * should not normally place children on top - * of the border. Fields for the other three - * sides are found below. */ - - /* - * Information maintained by tkWm.c for window manager communication. - */ - - struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also for special - * Unix menubar and wrapper windows), points - * to structure with wm-related info (see - * tkWm.c). For other windows, this is - * NULL. */ - - /* - * Information used by widget classes. - */ - - const Tk_ClassProcs *classProcsPtr; - ClientData instanceData; - - /* - * Platform specific information private to each port. - */ - - struct TkWindowPrivate *privatePtr; - - /* - * More information used by tkGeometry.c for geometry management. - */ - - /* The remaining fields of internal border. */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - - int minReqWidth; /* Minimum requested width. */ - int minReqHeight; /* Minimum requested height. */ -#ifdef TK_USE_INPUT_METHODS - int ximGeneration; /* Used to invalidate XIC */ -#endif /* TK_USE_INPUT_METHODS */ - char *geomMgrName; /* Records the name of the geometry manager. */ - struct TkWindow *maintainerPtr; - /* The geometry master for this window. The - * value is NULL if the window has no master or - * if its master is its parent. */ -} TkWindow; - -/* - * Real definition of some events. Note that these events come from outside - * but have internally generated pieces added to them. - */ - -typedef struct { - XKeyEvent keyEvent; /* The real event from X11. */ - char *charValuePtr; /* A pointer to a string that holds the key's - * %A substitution text (before backslash - * adding), or NULL if that has not been - * computed yet. If non-NULL, this string was - * allocated with ckalloc(). */ - int charValueLen; /* Length of string in charValuePtr when that - * is non-NULL. */ - KeySym keysym; /* Key symbol computed after input methods - * have been invoked */ -} TkKeyEvent; - -/* - * Flags passed to TkpMakeMenuWindow's 'transient' argument. - */ - -#define TK_MAKE_MENU_TEAROFF 0 /* Only non-transient case. */ -#define TK_MAKE_MENU_POPUP 1 -#define TK_MAKE_MENU_DROPDOWN 2 - -/* - * The following structure is used with TkMakeEnsemble to create ensemble - * commands and optionally to create sub-ensembles. - */ - -typedef struct TkEnsemble { - const char *name; - Tcl_ObjCmdProc *proc; - const struct TkEnsemble *subensemble; -} TkEnsemble; - -/* - * The following structure is used as a two way map between integers and - * strings, usually to map between an internal C representation and the - * strings used in Tcl. - */ - -typedef struct TkStateMap { - int numKey; /* Integer representation of a value. */ - const char *strKey; /* String representation of a value. */ -} TkStateMap; - -/* - * This structure is used by the Mac and Window porting layers as the internal - * representation of a clip_mask in a GC. - */ - -typedef struct TkpClipMask { - int type; /* TKP_CLIP_PIXMAP or TKP_CLIP_REGION. */ - union { - Pixmap pixmap; - TkRegion region; - } value; -} TkpClipMask; - -#define TKP_CLIP_PIXMAP 0 -#define TKP_CLIP_REGION 1 - -/* - * Return values from TkGrabState: - */ - -#define TK_GRAB_NONE 0 -#define TK_GRAB_IN_TREE 1 -#define TK_GRAB_ANCESTOR 2 -#define TK_GRAB_EXCLUDED 3 - -/* - * Additional flag for TkpMeasureCharsInContext. Coordinate with other flags - * for this routine, but don't make public until TkpMeasureCharsInContext is - * made public, too. - */ - -#define TK_ISOLATE_END 32 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace(). - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * The following symbol is used in the mode field of FocusIn events generated - * by an embedded application to request the input focus from its container. - */ - -#define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20) - -/* - * The following special modifier mask bits are defined, to indicate logical - * modifiers such as Meta and Alt that may float among the actual modifier - * bits. - */ - -#define META_MASK (AnyModifier<<1) -#define ALT_MASK (AnyModifier<<2) -#define EXTENDED_MASK (AnyModifier<<3) - -/* - * Mask that selects any of the state bits corresponding to buttons, plus - * masks that select individual buttons' bits: - */ - -#define ALL_BUTTONS \ - (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask) - - -MODULE_SCOPE unsigned long TkGetButtonMask(unsigned int); - -/* - * Object types not declared in tkObj.c need to be mentioned here so they can - * be properly registered with Tcl: - */ - -MODULE_SCOPE const Tcl_ObjType tkBorderObjType; -MODULE_SCOPE const Tcl_ObjType tkBitmapObjType; -MODULE_SCOPE const Tcl_ObjType tkColorObjType; -MODULE_SCOPE const Tcl_ObjType tkCursorObjType; -MODULE_SCOPE const Tcl_ObjType tkFontObjType; -MODULE_SCOPE const Tcl_ObjType tkStateKeyObjType; -MODULE_SCOPE const Tcl_ObjType tkTextIndexType; - -/* - * Miscellaneous variables shared among Tk modules but not exported to the - * outside world: - */ - -MODULE_SCOPE const Tk_SmoothMethod tkBezierSmoothMethod; -MODULE_SCOPE Tk_ImageType tkBitmapImageType; -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtGIF; -MODULE_SCOPE void (*tkHandleEventProc) (XEvent* eventPtr); -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtPNG; -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtPPM; -MODULE_SCOPE TkMainInfo *tkMainWindowList; -MODULE_SCOPE Tk_ImageType tkPhotoImageType; -MODULE_SCOPE Tcl_HashTable tkPredefBitmapTable; - -MODULE_SCOPE const char *const tkWebColors[20]; - -/* - * The definition of pi, at least from the perspective of double-precision - * floats. - */ - -#ifndef PI -#ifdef M_PI -#define PI M_PI -#else -#define PI 3.14159265358979323846 -#endif -#endif - -/* - * Support for Clang Static Analyzer - */ - -#if defined(PURIFY) && defined(__clang__) -#if __has_feature(attribute_analyzer_noreturn) && \ - !defined(Tcl_Panic) && defined(Tcl_Panic_TCL_DECLARED) -void Tcl_Panic(const char *, ...) __attribute__((analyzer_noreturn)); -#endif -#if !defined(CLANG_ASSERT) -#define CLANG_ASSERT(x) assert(x) -#endif -#elif !defined(CLANG_ASSERT) -#define CLANG_ASSERT(x) -#endif /* PURIFY && __clang__ */ - -/* - * The following magic value is stored in the "send_event" field of FocusIn - * and FocusOut events. This allows us to separate "real" events coming from - * the server from those that we generated. - */ - -#define GENERATED_FOCUS_EVENT_MAGIC ((Bool) 0x547321ac) - -/* - * Exported internals. - */ - -#include "tkIntDecls.h" - -/* - * Themed widget set init function: - */ - -MODULE_SCOPE int Ttk_Init(Tcl_Interp *interp); - -/* - * Internal functions shared among Tk modules but not exported to the outside - * world: - */ - -MODULE_SCOPE int Tk_BellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindtagsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BusyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ButtonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CanvasObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CheckbuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ClipboardObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseColorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseDirectoryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_DestroyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EntryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FrameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FocusObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FontObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetOpenFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetSaveFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GrabObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GridObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ImageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelframeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ListboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LowerObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MenuObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MenubuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageBoxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PanedWindowObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_OptionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PackObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PlaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RadiobuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RaiseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScaleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScrollbarObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SelectionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SendObjCmd(ClientData clientData, - Tcl_Interp *interp,int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SpinboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TextObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TkwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ToplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WinfoObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WmObjCmd(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); - -MODULE_SCOPE int Tk_GetDoublePixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - double *doublePtr); -MODULE_SCOPE int TkSetGeometryMaster(Tcl_Interp *interp, - Tk_Window tkwin, const char *master); -MODULE_SCOPE void TkFreeGeometryMaster(Tk_Window tkwin, - const char *master); - -MODULE_SCOPE void TkEventInit(void); -MODULE_SCOPE void TkRegisterObjTypes(void); -MODULE_SCOPE int TkDeadAppObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const argv[]); -MODULE_SCOPE int TkCanvasGetCoordObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -MODULE_SCOPE int TkGetDoublePixels(Tcl_Interp *interp, Tk_Window tkwin, - const char *string, double *doublePtr); -MODULE_SCOPE int TkPostscriptImage(Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psInfo, XImage *ximage, - int x, int y, int width, int height); -MODULE_SCOPE void TkMapTopFrame(Tk_Window tkwin); -MODULE_SCOPE XEvent * TkpGetBindingXEvent(Tcl_Interp *interp); -MODULE_SCOPE void TkCreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TkDeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE Tcl_ExitProc TkFinalize; -MODULE_SCOPE Tcl_ExitProc TkFinalizeThread; -MODULE_SCOPE void TkpBuildRegionFromAlphaData(TkRegion region, - unsigned x, unsigned y, unsigned width, - unsigned height, unsigned char *dataPtr, - unsigned pixelStride, unsigned lineStride); -MODULE_SCOPE void TkAppendPadAmount(Tcl_Obj *bufferObj, - const char *buffer, int pad1, int pad2); -MODULE_SCOPE int TkParsePadAmount(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *pad1Ptr, int *pad2Ptr); -MODULE_SCOPE void TkFocusSplit(TkWindow *winPtr); -MODULE_SCOPE void TkFocusJoin(TkWindow *winPtr); -MODULE_SCOPE int TkpAlwaysShowSelection(Tk_Window tkwin); -MODULE_SCOPE void TkpDrawCharsInContext(Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int x, int y); -MODULE_SCOPE int TkpMeasureCharsInContext(Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int maxLength, int flags, - int *lengthPtr); -MODULE_SCOPE void TkUnderlineCharsInContext(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *string, int numBytes, int x, int y, - int firstByte, int lastByte); -MODULE_SCOPE void TkpGetFontAttrsForChar(Tk_Window tkwin, Tk_Font tkfont, - int c, struct TkFontAttributes *faPtr); -MODULE_SCOPE Tcl_Obj * TkNewWindowObj(Tk_Window tkwin); -MODULE_SCOPE void TkpShowBusyWindow(TkBusy busy); -MODULE_SCOPE void TkpHideBusyWindow(TkBusy busy); -MODULE_SCOPE void TkpMakeTransparentWindowExist(Tk_Window tkwin, - Window parent); -MODULE_SCOPE void TkpCreateBusy(Tk_FakeWin *winPtr, Tk_Window tkRef, - Window *parentPtr, Tk_Window tkParent, - TkBusy busy); -MODULE_SCOPE int TkBackgroundEvalObjv(Tcl_Interp *interp, - int objc, Tcl_Obj *const *objv, int flags); -MODULE_SCOPE void TkSendVirtualEvent(Tk_Window tgtWin, - const char *eventName, Tcl_Obj *detail); -MODULE_SCOPE Tcl_Command TkMakeEnsemble(Tcl_Interp *interp, - const char *nsname, const char *name, - ClientData clientData, const TkEnsemble *map); -MODULE_SCOPE int TkInitTkCmd(Tcl_Interp *interp, - ClientData clientData); -MODULE_SCOPE int TkInitFontchooser(Tcl_Interp *interp, - ClientData clientData); -MODULE_SCOPE void TkpWarpPointer(TkDisplay *dispPtr); -MODULE_SCOPE void TkpCancelWarp(TkDisplay *dispPtr); -MODULE_SCOPE int TkListCreateFrame(ClientData clientData, - Tcl_Interp *interp, Tcl_Obj *listObj, - int toplevel, Tcl_Obj *nameObj); - -#ifdef _WIN32 -#define TkParseColor XParseColor -#else -MODULE_SCOPE Status TkParseColor (Display * display, - Colormap map, const char* spec, - XColor * colorPtr); -#endif -#ifdef HAVE_XFT -MODULE_SCOPE void TkUnixSetXftClipRegion(TkRegion clipRegion); -#endif - -#if !defined(__cplusplus) && !defined(c_plusplus) -# define c_class class -#endif - -#if TCL_UTF_MAX > 4 -# define TkUtfToUniChar Tcl_UtfToUniChar -# define TkUniCharToUtf Tcl_UniCharToUtf -#else - MODULE_SCOPE int TkUtfToUniChar(const char *, int *); - MODULE_SCOPE int TkUniCharToUtf(int, char *); -#endif - -/* - * Unsupported commands. - */ - -MODULE_SCOPE int TkUnsupported1ObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* - * For Tktest. - */ -MODULE_SCOPE int SquareObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj * const objv[]); -MODULE_SCOPE int TkOldTestInit(Tcl_Interp *interp); -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) -#define TkplatformtestInit(x) TCL_OK -#else -MODULE_SCOPE int TkplatformtestInit(Tcl_Interp *interp); -#endif - -#endif /* _TKINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntDecls.h deleted file mode 100644 index eb32c0073..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntDecls.h +++ /dev/null @@ -1,1179 +0,0 @@ -/* - * tkIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINTDECLS -#define _TKINTDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -struct TkText; -typedef struct TkTextBTree_ *TkTextBTree; -struct TkTextDispChunk; -struct TkTextIndex; -struct TkTextSegment; -struct TkSharedText; - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN TkWindow * TkAllocWindow(TkDisplay *dispPtr, int screenNum, - TkWindow *parentPtr); -/* 1 */ -EXTERN void TkBezierPoints(double control[], int numSteps, - double *coordPtr); -/* 2 */ -EXTERN void TkBezierScreenPoints(Tk_Canvas canvas, - double control[], int numSteps, - XPoint *xPointPtr); -/* Slot 3 is reserved */ -/* 4 */ -EXTERN void TkBindEventProc(TkWindow *winPtr, XEvent *eventPtr); -/* 5 */ -EXTERN void TkBindFree(TkMainInfo *mainPtr); -/* 6 */ -EXTERN void TkBindInit(TkMainInfo *mainPtr); -/* 7 */ -EXTERN void TkChangeEventWindow(XEvent *eventPtr, - TkWindow *winPtr); -/* 8 */ -EXTERN int TkClipInit(Tcl_Interp *interp, TkDisplay *dispPtr); -/* 9 */ -EXTERN void TkComputeAnchor(Tk_Anchor anchor, Tk_Window tkwin, - int padX, int padY, int innerWidth, - int innerHeight, int *xPtr, int *yPtr); -/* Slot 10 is reserved */ -/* Slot 11 is reserved */ -/* 12 */ -EXTERN TkCursor * TkCreateCursorFromData(Tk_Window tkwin, - const char *source, const char *mask, - int width, int height, int xHot, int yHot, - XColor fg, XColor bg); -/* 13 */ -EXTERN int TkCreateFrame(ClientData clientData, - Tcl_Interp *interp, int argc, - const char *const *argv, int toplevel, - const char *appName); -/* 14 */ -EXTERN Tk_Window TkCreateMainWindow(Tcl_Interp *interp, - const char *screenName, const char *baseName); -/* 15 */ -EXTERN Time TkCurrentTime(TkDisplay *dispPtr); -/* 16 */ -EXTERN void TkDeleteAllImages(TkMainInfo *mainPtr); -/* 17 */ -EXTERN void TkDoConfigureNotify(TkWindow *winPtr); -/* 18 */ -EXTERN void TkDrawInsetFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable, int padding); -/* 19 */ -EXTERN void TkEventDeadWindow(TkWindow *winPtr); -/* 20 */ -EXTERN void TkFillPolygon(Tk_Canvas canvas, double *coordPtr, - int numPoints, Display *display, - Drawable drawable, GC gc, GC outlineGC); -/* 21 */ -EXTERN int TkFindStateNum(Tcl_Interp *interp, - const char *option, const TkStateMap *mapPtr, - const char *strKey); -/* 22 */ -EXTERN CONST86 char * TkFindStateString(const TkStateMap *mapPtr, - int numKey); -/* 23 */ -EXTERN void TkFocusDeadWindow(TkWindow *winPtr); -/* 24 */ -EXTERN int TkFocusFilterEvent(TkWindow *winPtr, - XEvent *eventPtr); -/* 25 */ -EXTERN TkWindow * TkFocusKeyEvent(TkWindow *winPtr, XEvent *eventPtr); -/* 26 */ -EXTERN void TkFontPkgInit(TkMainInfo *mainPtr); -/* 27 */ -EXTERN void TkFontPkgFree(TkMainInfo *mainPtr); -/* 28 */ -EXTERN void TkFreeBindingTags(TkWindow *winPtr); -/* 29 */ -EXTERN void TkpFreeCursor(TkCursor *cursorPtr); -/* 30 */ -EXTERN char * TkGetBitmapData(Tcl_Interp *interp, - const char *string, const char *fileName, - int *widthPtr, int *heightPtr, int *hotXPtr, - int *hotYPtr); -/* 31 */ -EXTERN void TkGetButtPoints(double p1[], double p2[], - double width, int project, double m1[], - double m2[]); -/* 32 */ -EXTERN TkCursor * TkGetCursorByName(Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string); -/* 33 */ -EXTERN const char * TkGetDefaultScreenName(Tcl_Interp *interp, - const char *screenName); -/* 34 */ -EXTERN TkDisplay * TkGetDisplay(Display *display); -/* 35 */ -EXTERN int TkGetDisplayOf(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Tk_Window *tkwinPtr); -/* 36 */ -EXTERN TkWindow * TkGetFocusWin(TkWindow *winPtr); -/* 37 */ -EXTERN int TkGetInterpNames(Tcl_Interp *interp, Tk_Window tkwin); -/* 38 */ -EXTERN int TkGetMiterPoints(double p1[], double p2[], - double p3[], double width, double m1[], - double m2[]); -/* 39 */ -EXTERN void TkGetPointerCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -/* 40 */ -EXTERN void TkGetServerInfo(Tcl_Interp *interp, Tk_Window tkwin); -/* 41 */ -EXTERN void TkGrabDeadWindow(TkWindow *winPtr); -/* 42 */ -EXTERN int TkGrabState(TkWindow *winPtr); -/* 43 */ -EXTERN void TkIncludePoint(Tk_Item *itemPtr, double *pointPtr); -/* 44 */ -EXTERN void TkInOutEvents(XEvent *eventPtr, TkWindow *sourcePtr, - TkWindow *destPtr, int leaveType, - int enterType, Tcl_QueuePosition position); -/* 45 */ -EXTERN void TkInstallFrameMenu(Tk_Window tkwin); -/* 46 */ -EXTERN CONST86 char * TkKeysymToString(KeySym keysym); -/* 47 */ -EXTERN int TkLineToArea(double end1Ptr[], double end2Ptr[], - double rectPtr[]); -/* 48 */ -EXTERN double TkLineToPoint(double end1Ptr[], double end2Ptr[], - double pointPtr[]); -/* 49 */ -EXTERN int TkMakeBezierCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -/* 50 */ -EXTERN void TkMakeBezierPostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -/* 51 */ -EXTERN void TkOptionClassChanged(TkWindow *winPtr); -/* 52 */ -EXTERN void TkOptionDeadWindow(TkWindow *winPtr); -/* 53 */ -EXTERN int TkOvalToArea(double *ovalPtr, double *rectPtr); -/* 54 */ -EXTERN double TkOvalToPoint(double ovalPtr[], double width, - int filled, double pointPtr[]); -/* 55 */ -EXTERN int TkpChangeFocus(TkWindow *winPtr, int force); -/* 56 */ -EXTERN void TkpCloseDisplay(TkDisplay *dispPtr); -/* 57 */ -EXTERN void TkpClaimFocus(TkWindow *topLevelPtr, int force); -/* 58 */ -EXTERN void TkpDisplayWarning(const char *msg, const char *title); -/* 59 */ -EXTERN void TkpGetAppName(Tcl_Interp *interp, Tcl_DString *name); -/* 60 */ -EXTERN TkWindow * TkpGetOtherWindow(TkWindow *winPtr); -/* 61 */ -EXTERN TkWindow * TkpGetWrapperWindow(TkWindow *winPtr); -/* 62 */ -EXTERN int TkpInit(Tcl_Interp *interp); -/* 63 */ -EXTERN void TkpInitializeMenuBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable); -/* 64 */ -EXTERN void TkpMakeContainer(Tk_Window tkwin); -/* 65 */ -EXTERN void TkpMakeMenuWindow(Tk_Window tkwin, int transient); -/* 66 */ -EXTERN Window TkpMakeWindow(TkWindow *winPtr, Window parent); -/* 67 */ -EXTERN void TkpMenuNotifyToplevelCreate(Tcl_Interp *interp, - const char *menuName); -/* 68 */ -EXTERN TkDisplay * TkpOpenDisplay(const char *display_name); -/* 69 */ -EXTERN int TkPointerEvent(XEvent *eventPtr, TkWindow *winPtr); -/* 70 */ -EXTERN int TkPolygonToArea(double *polyPtr, int numPoints, - double *rectPtr); -/* 71 */ -EXTERN double TkPolygonToPoint(double *polyPtr, int numPoints, - double *pointPtr); -/* 72 */ -EXTERN int TkPositionInTree(TkWindow *winPtr, TkWindow *treePtr); -/* 73 */ -EXTERN void TkpRedirectKeyEvent(TkWindow *winPtr, - XEvent *eventPtr); -/* 74 */ -EXTERN void TkpSetMainMenubar(Tcl_Interp *interp, - Tk_Window tkwin, const char *menuName); -/* 75 */ -EXTERN int TkpUseWindow(Tcl_Interp *interp, Tk_Window tkwin, - const char *string); -/* Slot 76 is reserved */ -/* 77 */ -EXTERN void TkQueueEventForAllChildren(TkWindow *winPtr, - XEvent *eventPtr); -/* 78 */ -EXTERN int TkReadBitmapFile(Display *display, Drawable d, - const char *filename, - unsigned int *width_return, - unsigned int *height_return, - Pixmap *bitmap_return, int *x_hot_return, - int *y_hot_return); -/* 79 */ -EXTERN int TkScrollWindow(Tk_Window tkwin, GC gc, int x, int y, - int width, int height, int dx, int dy, - TkRegion damageRgn); -/* 80 */ -EXTERN void TkSelDeadWindow(TkWindow *winPtr); -/* 81 */ -EXTERN void TkSelEventProc(Tk_Window tkwin, XEvent *eventPtr); -/* 82 */ -EXTERN void TkSelInit(Tk_Window tkwin); -/* 83 */ -EXTERN void TkSelPropProc(XEvent *eventPtr); -/* Slot 84 is reserved */ -/* 85 */ -EXTERN void TkSetWindowMenuBar(Tcl_Interp *interp, - Tk_Window tkwin, const char *oldMenuName, - const char *menuName); -/* 86 */ -EXTERN KeySym TkStringToKeysym(const char *name); -/* 87 */ -EXTERN int TkThickPolyLineToArea(double *coordPtr, - int numPoints, double width, int capStyle, - int joinStyle, double *rectPtr); -/* 88 */ -EXTERN void TkWmAddToColormapWindows(TkWindow *winPtr); -/* 89 */ -EXTERN void TkWmDeadWindow(TkWindow *winPtr); -/* 90 */ -EXTERN TkWindow * TkWmFocusToplevel(TkWindow *winPtr); -/* 91 */ -EXTERN void TkWmMapWindow(TkWindow *winPtr); -/* 92 */ -EXTERN void TkWmNewWindow(TkWindow *winPtr); -/* 93 */ -EXTERN void TkWmProtocolEventProc(TkWindow *winPtr, - XEvent *evenvPtr); -/* 94 */ -EXTERN void TkWmRemoveFromColormapWindows(TkWindow *winPtr); -/* 95 */ -EXTERN void TkWmRestackToplevel(TkWindow *winPtr, int aboveBelow, - TkWindow *otherPtr); -/* 96 */ -EXTERN void TkWmSetClass(TkWindow *winPtr); -/* 97 */ -EXTERN void TkWmUnmapWindow(TkWindow *winPtr); -/* 98 */ -EXTERN Tcl_Obj * TkDebugBitmap(Tk_Window tkwin, const char *name); -/* 99 */ -EXTERN Tcl_Obj * TkDebugBorder(Tk_Window tkwin, const char *name); -/* 100 */ -EXTERN Tcl_Obj * TkDebugCursor(Tk_Window tkwin, const char *name); -/* 101 */ -EXTERN Tcl_Obj * TkDebugColor(Tk_Window tkwin, const char *name); -/* 102 */ -EXTERN Tcl_Obj * TkDebugConfig(Tcl_Interp *interp, - Tk_OptionTable table); -/* 103 */ -EXTERN Tcl_Obj * TkDebugFont(Tk_Window tkwin, const char *name); -/* 104 */ -EXTERN int TkFindStateNumObj(Tcl_Interp *interp, - Tcl_Obj *optionPtr, const TkStateMap *mapPtr, - Tcl_Obj *keyPtr); -/* 105 */ -EXTERN Tcl_HashTable * TkGetBitmapPredefTable(void); -/* 106 */ -EXTERN TkDisplay * TkGetDisplayList(void); -/* 107 */ -EXTERN TkMainInfo * TkGetMainInfoList(void); -/* 108 */ -EXTERN int TkGetWindowFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - Tk_Window *windowPtr); -/* 109 */ -EXTERN CONST86 char * TkpGetString(TkWindow *winPtr, XEvent *eventPtr, - Tcl_DString *dsPtr); -/* 110 */ -EXTERN void TkpGetSubFonts(Tcl_Interp *interp, Tk_Font tkfont); -/* 111 */ -EXTERN Tcl_Obj * TkpGetSystemDefault(Tk_Window tkwin, - const char *dbName, const char *className); -/* 112 */ -EXTERN void TkpMenuThreadInit(void); -/* 113 */ -EXTERN int TkClipBox(TkRegion rgn, XRectangle *rect_return); -/* 114 */ -EXTERN TkRegion TkCreateRegion(void); -/* 115 */ -EXTERN int TkDestroyRegion(TkRegion rgn); -/* 116 */ -EXTERN int TkIntersectRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -/* 117 */ -EXTERN int TkRectInRegion(TkRegion rgn, int x, int y, - unsigned int width, unsigned int height); -/* 118 */ -EXTERN int TkSetRegion(Display *display, GC gc, TkRegion rgn); -/* 119 */ -EXTERN int TkUnionRectWithRegion(XRectangle *rect, TkRegion src, - TkRegion dr_return); -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 121 */ -EXTERN Pixmap TkpCreateNativeBitmap(Display *display, - const void *source); -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 122 */ -EXTERN void TkpDefineNativeBitmaps(void); -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 124 */ -EXTERN Pixmap TkpGetNativeAppBitmap(Display *display, - const char *name, int *width, int *height); -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* 135 */ -EXTERN void TkpDrawHighlightBorder(Tk_Window tkwin, GC fgGC, - GC bgGC, int highlightWidth, - Drawable drawable); -/* 136 */ -EXTERN void TkSetFocusWin(TkWindow *winPtr, int force); -/* 137 */ -EXTERN void TkpSetKeycodeAndState(Tk_Window tkwin, KeySym keySym, - XEvent *eventPtr); -/* 138 */ -EXTERN KeySym TkpGetKeySym(TkDisplay *dispPtr, XEvent *eventPtr); -/* 139 */ -EXTERN void TkpInitKeymapInfo(TkDisplay *dispPtr); -/* 140 */ -EXTERN TkRegion TkPhotoGetValidRegion(Tk_PhotoHandle handle); -/* 141 */ -EXTERN TkWindow ** TkWmStackorderToplevel(TkWindow *parentPtr); -/* 142 */ -EXTERN void TkFocusFree(TkMainInfo *mainPtr); -/* 143 */ -EXTERN void TkClipCleanup(TkDisplay *dispPtr); -/* 144 */ -EXTERN void TkGCCleanup(TkDisplay *dispPtr); -/* 145 */ -EXTERN int TkSubtractRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -/* 146 */ -EXTERN void TkStylePkgInit(TkMainInfo *mainPtr); -/* 147 */ -EXTERN void TkStylePkgFree(TkMainInfo *mainPtr); -/* 148 */ -EXTERN Tk_Window TkToplevelWindowForCommand(Tcl_Interp *interp, - const char *cmdName); -/* 149 */ -EXTERN const Tk_OptionSpec * TkGetOptionSpec(const char *name, - Tk_OptionTable optionTable); -/* 150 */ -EXTERN int TkMakeRawCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -/* 151 */ -EXTERN void TkMakeRawCurvePostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -/* 152 */ -EXTERN void TkpDrawFrame(Tk_Window tkwin, Tk_3DBorder border, - int highlightWidth, int borderWidth, - int relief); -/* 153 */ -EXTERN void TkCreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 154 */ -EXTERN void TkDeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* Slot 155 is reserved */ -/* 156 */ -EXTERN int TkpTestembedCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 157 */ -EXTERN int TkpTesttextCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -/* 158 */ -EXTERN int TkSelGetSelection(Tcl_Interp *interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData); -/* 159 */ -EXTERN int TkTextGetIndex(Tcl_Interp *interp, - struct TkText *textPtr, const char *string, - struct TkTextIndex *indexPtr); -/* 160 */ -EXTERN int TkTextIndexBackBytes(const struct TkText *textPtr, - const struct TkTextIndex *srcPtr, int count, - struct TkTextIndex *dstPtr); -/* 161 */ -EXTERN int TkTextIndexForwBytes(const struct TkText *textPtr, - const struct TkTextIndex *srcPtr, int count, - struct TkTextIndex *dstPtr); -/* 162 */ -EXTERN struct TkTextIndex * TkTextMakeByteIndex(TkTextBTree tree, - const struct TkText *textPtr, int lineIndex, - int byteIndex, struct TkTextIndex *indexPtr); -/* 163 */ -EXTERN int TkTextPrintIndex(const struct TkText *textPtr, - const struct TkTextIndex *indexPtr, - char *string); -/* 164 */ -EXTERN struct TkTextSegment * TkTextSetMark(struct TkText *textPtr, - const char *name, - struct TkTextIndex *indexPtr); -/* 165 */ -EXTERN int TkTextXviewCmd(struct TkText *textPtr, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 166 */ -EXTERN void TkTextChanged(struct TkSharedText *sharedTextPtr, - struct TkText *textPtr, - const struct TkTextIndex *index1Ptr, - const struct TkTextIndex *index2Ptr); -/* 167 */ -EXTERN int TkBTreeNumLines(TkTextBTree tree, - const struct TkText *textPtr); -/* 168 */ -EXTERN void TkTextInsertDisplayProc(struct TkText *textPtr, - struct TkTextDispChunk *chunkPtr, int x, - int y, int height, int baseline, - Display *display, Drawable dst, int screenY); -/* 169 */ -EXTERN int TkStateParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 170 */ -EXTERN CONST86 char * TkStatePrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 171 */ -EXTERN int TkCanvasDashParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 172 */ -EXTERN CONST86 char * TkCanvasDashPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 173 */ -EXTERN int TkOffsetParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 174 */ -EXTERN CONST86 char * TkOffsetPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 175 */ -EXTERN int TkPixelParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 176 */ -EXTERN CONST86 char * TkPixelPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 177 */ -EXTERN int TkOrientParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 178 */ -EXTERN CONST86 char * TkOrientPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 179 */ -EXTERN int TkSmoothParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 180 */ -EXTERN CONST86 char * TkSmoothPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 181 */ -EXTERN void TkDrawAngledTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - double angle, int firstChar, int lastChar); -/* 182 */ -EXTERN void TkUnderlineAngledTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - double angle, int underline); -/* 183 */ -EXTERN int TkIntersectAngledTextLayout(Tk_TextLayout layout, - int x, int y, int width, int height, - double angle); -/* 184 */ -EXTERN void TkDrawAngledChars(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int numBytes, double x, - double y, double angle); - -typedef struct TkIntStubs { - int magic; - void *hooks; - - TkWindow * (*tkAllocWindow) (TkDisplay *dispPtr, int screenNum, TkWindow *parentPtr); /* 0 */ - void (*tkBezierPoints) (double control[], int numSteps, double *coordPtr); /* 1 */ - void (*tkBezierScreenPoints) (Tk_Canvas canvas, double control[], int numSteps, XPoint *xPointPtr); /* 2 */ - void (*reserved3)(void); - void (*tkBindEventProc) (TkWindow *winPtr, XEvent *eventPtr); /* 4 */ - void (*tkBindFree) (TkMainInfo *mainPtr); /* 5 */ - void (*tkBindInit) (TkMainInfo *mainPtr); /* 6 */ - void (*tkChangeEventWindow) (XEvent *eventPtr, TkWindow *winPtr); /* 7 */ - int (*tkClipInit) (Tcl_Interp *interp, TkDisplay *dispPtr); /* 8 */ - void (*tkComputeAnchor) (Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int *xPtr, int *yPtr); /* 9 */ - void (*reserved10)(void); - void (*reserved11)(void); - TkCursor * (*tkCreateCursorFromData) (Tk_Window tkwin, const char *source, const char *mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg); /* 12 */ - int (*tkCreateFrame) (ClientData clientData, Tcl_Interp *interp, int argc, const char *const *argv, int toplevel, const char *appName); /* 13 */ - Tk_Window (*tkCreateMainWindow) (Tcl_Interp *interp, const char *screenName, const char *baseName); /* 14 */ - Time (*tkCurrentTime) (TkDisplay *dispPtr); /* 15 */ - void (*tkDeleteAllImages) (TkMainInfo *mainPtr); /* 16 */ - void (*tkDoConfigureNotify) (TkWindow *winPtr); /* 17 */ - void (*tkDrawInsetFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding); /* 18 */ - void (*tkEventDeadWindow) (TkWindow *winPtr); /* 19 */ - void (*tkFillPolygon) (Tk_Canvas canvas, double *coordPtr, int numPoints, Display *display, Drawable drawable, GC gc, GC outlineGC); /* 20 */ - int (*tkFindStateNum) (Tcl_Interp *interp, const char *option, const TkStateMap *mapPtr, const char *strKey); /* 21 */ - CONST86 char * (*tkFindStateString) (const TkStateMap *mapPtr, int numKey); /* 22 */ - void (*tkFocusDeadWindow) (TkWindow *winPtr); /* 23 */ - int (*tkFocusFilterEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 24 */ - TkWindow * (*tkFocusKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 25 */ - void (*tkFontPkgInit) (TkMainInfo *mainPtr); /* 26 */ - void (*tkFontPkgFree) (TkMainInfo *mainPtr); /* 27 */ - void (*tkFreeBindingTags) (TkWindow *winPtr); /* 28 */ - void (*tkpFreeCursor) (TkCursor *cursorPtr); /* 29 */ - char * (*tkGetBitmapData) (Tcl_Interp *interp, const char *string, const char *fileName, int *widthPtr, int *heightPtr, int *hotXPtr, int *hotYPtr); /* 30 */ - void (*tkGetButtPoints) (double p1[], double p2[], double width, int project, double m1[], double m2[]); /* 31 */ - TkCursor * (*tkGetCursorByName) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid string); /* 32 */ - const char * (*tkGetDefaultScreenName) (Tcl_Interp *interp, const char *screenName); /* 33 */ - TkDisplay * (*tkGetDisplay) (Display *display); /* 34 */ - int (*tkGetDisplayOf) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], Tk_Window *tkwinPtr); /* 35 */ - TkWindow * (*tkGetFocusWin) (TkWindow *winPtr); /* 36 */ - int (*tkGetInterpNames) (Tcl_Interp *interp, Tk_Window tkwin); /* 37 */ - int (*tkGetMiterPoints) (double p1[], double p2[], double p3[], double width, double m1[], double m2[]); /* 38 */ - void (*tkGetPointerCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 39 */ - void (*tkGetServerInfo) (Tcl_Interp *interp, Tk_Window tkwin); /* 40 */ - void (*tkGrabDeadWindow) (TkWindow *winPtr); /* 41 */ - int (*tkGrabState) (TkWindow *winPtr); /* 42 */ - void (*tkIncludePoint) (Tk_Item *itemPtr, double *pointPtr); /* 43 */ - void (*tkInOutEvents) (XEvent *eventPtr, TkWindow *sourcePtr, TkWindow *destPtr, int leaveType, int enterType, Tcl_QueuePosition position); /* 44 */ - void (*tkInstallFrameMenu) (Tk_Window tkwin); /* 45 */ - CONST86 char * (*tkKeysymToString) (KeySym keysym); /* 46 */ - int (*tkLineToArea) (double end1Ptr[], double end2Ptr[], double rectPtr[]); /* 47 */ - double (*tkLineToPoint) (double end1Ptr[], double end2Ptr[], double pointPtr[]); /* 48 */ - int (*tkMakeBezierCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 49 */ - void (*tkMakeBezierPostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 50 */ - void (*tkOptionClassChanged) (TkWindow *winPtr); /* 51 */ - void (*tkOptionDeadWindow) (TkWindow *winPtr); /* 52 */ - int (*tkOvalToArea) (double *ovalPtr, double *rectPtr); /* 53 */ - double (*tkOvalToPoint) (double ovalPtr[], double width, int filled, double pointPtr[]); /* 54 */ - int (*tkpChangeFocus) (TkWindow *winPtr, int force); /* 55 */ - void (*tkpCloseDisplay) (TkDisplay *dispPtr); /* 56 */ - void (*tkpClaimFocus) (TkWindow *topLevelPtr, int force); /* 57 */ - void (*tkpDisplayWarning) (const char *msg, const char *title); /* 58 */ - void (*tkpGetAppName) (Tcl_Interp *interp, Tcl_DString *name); /* 59 */ - TkWindow * (*tkpGetOtherWindow) (TkWindow *winPtr); /* 60 */ - TkWindow * (*tkpGetWrapperWindow) (TkWindow *winPtr); /* 61 */ - int (*tkpInit) (Tcl_Interp *interp); /* 62 */ - void (*tkpInitializeMenuBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable); /* 63 */ - void (*tkpMakeContainer) (Tk_Window tkwin); /* 64 */ - void (*tkpMakeMenuWindow) (Tk_Window tkwin, int transient); /* 65 */ - Window (*tkpMakeWindow) (TkWindow *winPtr, Window parent); /* 66 */ - void (*tkpMenuNotifyToplevelCreate) (Tcl_Interp *interp, const char *menuName); /* 67 */ - TkDisplay * (*tkpOpenDisplay) (const char *display_name); /* 68 */ - int (*tkPointerEvent) (XEvent *eventPtr, TkWindow *winPtr); /* 69 */ - int (*tkPolygonToArea) (double *polyPtr, int numPoints, double *rectPtr); /* 70 */ - double (*tkPolygonToPoint) (double *polyPtr, int numPoints, double *pointPtr); /* 71 */ - int (*tkPositionInTree) (TkWindow *winPtr, TkWindow *treePtr); /* 72 */ - void (*tkpRedirectKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 73 */ - void (*tkpSetMainMenubar) (Tcl_Interp *interp, Tk_Window tkwin, const char *menuName); /* 74 */ - int (*tkpUseWindow) (Tcl_Interp *interp, Tk_Window tkwin, const char *string); /* 75 */ - void (*reserved76)(void); - void (*tkQueueEventForAllChildren) (TkWindow *winPtr, XEvent *eventPtr); /* 77 */ - int (*tkReadBitmapFile) (Display *display, Drawable d, const char *filename, unsigned int *width_return, unsigned int *height_return, Pixmap *bitmap_return, int *x_hot_return, int *y_hot_return); /* 78 */ - int (*tkScrollWindow) (Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn); /* 79 */ - void (*tkSelDeadWindow) (TkWindow *winPtr); /* 80 */ - void (*tkSelEventProc) (Tk_Window tkwin, XEvent *eventPtr); /* 81 */ - void (*tkSelInit) (Tk_Window tkwin); /* 82 */ - void (*tkSelPropProc) (XEvent *eventPtr); /* 83 */ - void (*reserved84)(void); - void (*tkSetWindowMenuBar) (Tcl_Interp *interp, Tk_Window tkwin, const char *oldMenuName, const char *menuName); /* 85 */ - KeySym (*tkStringToKeysym) (const char *name); /* 86 */ - int (*tkThickPolyLineToArea) (double *coordPtr, int numPoints, double width, int capStyle, int joinStyle, double *rectPtr); /* 87 */ - void (*tkWmAddToColormapWindows) (TkWindow *winPtr); /* 88 */ - void (*tkWmDeadWindow) (TkWindow *winPtr); /* 89 */ - TkWindow * (*tkWmFocusToplevel) (TkWindow *winPtr); /* 90 */ - void (*tkWmMapWindow) (TkWindow *winPtr); /* 91 */ - void (*tkWmNewWindow) (TkWindow *winPtr); /* 92 */ - void (*tkWmProtocolEventProc) (TkWindow *winPtr, XEvent *evenvPtr); /* 93 */ - void (*tkWmRemoveFromColormapWindows) (TkWindow *winPtr); /* 94 */ - void (*tkWmRestackToplevel) (TkWindow *winPtr, int aboveBelow, TkWindow *otherPtr); /* 95 */ - void (*tkWmSetClass) (TkWindow *winPtr); /* 96 */ - void (*tkWmUnmapWindow) (TkWindow *winPtr); /* 97 */ - Tcl_Obj * (*tkDebugBitmap) (Tk_Window tkwin, const char *name); /* 98 */ - Tcl_Obj * (*tkDebugBorder) (Tk_Window tkwin, const char *name); /* 99 */ - Tcl_Obj * (*tkDebugCursor) (Tk_Window tkwin, const char *name); /* 100 */ - Tcl_Obj * (*tkDebugColor) (Tk_Window tkwin, const char *name); /* 101 */ - Tcl_Obj * (*tkDebugConfig) (Tcl_Interp *interp, Tk_OptionTable table); /* 102 */ - Tcl_Obj * (*tkDebugFont) (Tk_Window tkwin, const char *name); /* 103 */ - int (*tkFindStateNumObj) (Tcl_Interp *interp, Tcl_Obj *optionPtr, const TkStateMap *mapPtr, Tcl_Obj *keyPtr); /* 104 */ - Tcl_HashTable * (*tkGetBitmapPredefTable) (void); /* 105 */ - TkDisplay * (*tkGetDisplayList) (void); /* 106 */ - TkMainInfo * (*tkGetMainInfoList) (void); /* 107 */ - int (*tkGetWindowFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, Tk_Window *windowPtr); /* 108 */ - CONST86 char * (*tkpGetString) (TkWindow *winPtr, XEvent *eventPtr, Tcl_DString *dsPtr); /* 109 */ - void (*tkpGetSubFonts) (Tcl_Interp *interp, Tk_Font tkfont); /* 110 */ - Tcl_Obj * (*tkpGetSystemDefault) (Tk_Window tkwin, const char *dbName, const char *className); /* 111 */ - void (*tkpMenuThreadInit) (void); /* 112 */ - int (*tkClipBox) (TkRegion rgn, XRectangle *rect_return); /* 113 */ - TkRegion (*tkCreateRegion) (void); /* 114 */ - int (*tkDestroyRegion) (TkRegion rgn); /* 115 */ - int (*tkIntersectRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 116 */ - int (*tkRectInRegion) (TkRegion rgn, int x, int y, unsigned int width, unsigned int height); /* 117 */ - int (*tkSetRegion) (Display *display, GC gc, TkRegion rgn); /* 118 */ - int (*tkUnionRectWithRegion) (XRectangle *rect, TkRegion src, TkRegion dr_return); /* 119 */ - void (*reserved120)(void); -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) /* X11 */ - void (*reserved121)(void); -#endif /* X11 */ -#if defined(_WIN32) /* WIN */ - void (*reserved121)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*reserved121)(void); /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpCreateNativeBitmap) (Display *display, const void *source); /* 121 */ -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) /* X11 */ - void (*reserved122)(void); -#endif /* X11 */ -#if defined(_WIN32) /* WIN */ - void (*reserved122)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*reserved122)(void); /* Dummy entry for stubs table backwards compatibility */ - void (*tkpDefineNativeBitmaps) (void); /* 122 */ -#endif /* AQUA */ - void (*reserved123)(void); -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) /* X11 */ - void (*reserved124)(void); -#endif /* X11 */ -#if defined(_WIN32) /* WIN */ - void (*reserved124)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*reserved124)(void); /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpGetNativeAppBitmap) (Display *display, const char *name, int *width, int *height); /* 124 */ -#endif /* AQUA */ - void (*reserved125)(void); - void (*reserved126)(void); - void (*reserved127)(void); - void (*reserved128)(void); - void (*reserved129)(void); - void (*reserved130)(void); - void (*reserved131)(void); - void (*reserved132)(void); - void (*reserved133)(void); - void (*reserved134)(void); - void (*tkpDrawHighlightBorder) (Tk_Window tkwin, GC fgGC, GC bgGC, int highlightWidth, Drawable drawable); /* 135 */ - void (*tkSetFocusWin) (TkWindow *winPtr, int force); /* 136 */ - void (*tkpSetKeycodeAndState) (Tk_Window tkwin, KeySym keySym, XEvent *eventPtr); /* 137 */ - KeySym (*tkpGetKeySym) (TkDisplay *dispPtr, XEvent *eventPtr); /* 138 */ - void (*tkpInitKeymapInfo) (TkDisplay *dispPtr); /* 139 */ - TkRegion (*tkPhotoGetValidRegion) (Tk_PhotoHandle handle); /* 140 */ - TkWindow ** (*tkWmStackorderToplevel) (TkWindow *parentPtr); /* 141 */ - void (*tkFocusFree) (TkMainInfo *mainPtr); /* 142 */ - void (*tkClipCleanup) (TkDisplay *dispPtr); /* 143 */ - void (*tkGCCleanup) (TkDisplay *dispPtr); /* 144 */ - int (*tkSubtractRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 145 */ - void (*tkStylePkgInit) (TkMainInfo *mainPtr); /* 146 */ - void (*tkStylePkgFree) (TkMainInfo *mainPtr); /* 147 */ - Tk_Window (*tkToplevelWindowForCommand) (Tcl_Interp *interp, const char *cmdName); /* 148 */ - const Tk_OptionSpec * (*tkGetOptionSpec) (const char *name, Tk_OptionTable optionTable); /* 149 */ - int (*tkMakeRawCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 150 */ - void (*tkMakeRawCurvePostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 151 */ - void (*tkpDrawFrame) (Tk_Window tkwin, Tk_3DBorder border, int highlightWidth, int borderWidth, int relief); /* 152 */ - void (*tkCreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 153 */ - void (*tkDeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 154 */ - void (*reserved155)(void); - int (*tkpTestembedCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 156 */ - int (*tkpTesttextCmd) (ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 157 */ - int (*tkSelGetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 158 */ - int (*tkTextGetIndex) (Tcl_Interp *interp, struct TkText *textPtr, const char *string, struct TkTextIndex *indexPtr); /* 159 */ - int (*tkTextIndexBackBytes) (const struct TkText *textPtr, const struct TkTextIndex *srcPtr, int count, struct TkTextIndex *dstPtr); /* 160 */ - int (*tkTextIndexForwBytes) (const struct TkText *textPtr, const struct TkTextIndex *srcPtr, int count, struct TkTextIndex *dstPtr); /* 161 */ - struct TkTextIndex * (*tkTextMakeByteIndex) (TkTextBTree tree, const struct TkText *textPtr, int lineIndex, int byteIndex, struct TkTextIndex *indexPtr); /* 162 */ - int (*tkTextPrintIndex) (const struct TkText *textPtr, const struct TkTextIndex *indexPtr, char *string); /* 163 */ - struct TkTextSegment * (*tkTextSetMark) (struct TkText *textPtr, const char *name, struct TkTextIndex *indexPtr); /* 164 */ - int (*tkTextXviewCmd) (struct TkText *textPtr, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 165 */ - void (*tkTextChanged) (struct TkSharedText *sharedTextPtr, struct TkText *textPtr, const struct TkTextIndex *index1Ptr, const struct TkTextIndex *index2Ptr); /* 166 */ - int (*tkBTreeNumLines) (TkTextBTree tree, const struct TkText *textPtr); /* 167 */ - void (*tkTextInsertDisplayProc) (struct TkText *textPtr, struct TkTextDispChunk *chunkPtr, int x, int y, int height, int baseline, Display *display, Drawable dst, int screenY); /* 168 */ - int (*tkStateParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 169 */ - CONST86 char * (*tkStatePrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 170 */ - int (*tkCanvasDashParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 171 */ - CONST86 char * (*tkCanvasDashPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 172 */ - int (*tkOffsetParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 173 */ - CONST86 char * (*tkOffsetPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 174 */ - int (*tkPixelParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 175 */ - CONST86 char * (*tkPixelPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 176 */ - int (*tkOrientParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 177 */ - CONST86 char * (*tkOrientPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 178 */ - int (*tkSmoothParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 179 */ - CONST86 char * (*tkSmoothPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 180 */ - void (*tkDrawAngledTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, double angle, int firstChar, int lastChar); /* 181 */ - void (*tkUnderlineAngledTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, double angle, int underline); /* 182 */ - int (*tkIntersectAngledTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height, double angle); /* 183 */ - void (*tkDrawAngledChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int numBytes, double x, double y, double angle); /* 184 */ -} TkIntStubs; - -extern const TkIntStubs *tkIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#define TkAllocWindow \ - (tkIntStubsPtr->tkAllocWindow) /* 0 */ -#define TkBezierPoints \ - (tkIntStubsPtr->tkBezierPoints) /* 1 */ -#define TkBezierScreenPoints \ - (tkIntStubsPtr->tkBezierScreenPoints) /* 2 */ -/* Slot 3 is reserved */ -#define TkBindEventProc \ - (tkIntStubsPtr->tkBindEventProc) /* 4 */ -#define TkBindFree \ - (tkIntStubsPtr->tkBindFree) /* 5 */ -#define TkBindInit \ - (tkIntStubsPtr->tkBindInit) /* 6 */ -#define TkChangeEventWindow \ - (tkIntStubsPtr->tkChangeEventWindow) /* 7 */ -#define TkClipInit \ - (tkIntStubsPtr->tkClipInit) /* 8 */ -#define TkComputeAnchor \ - (tkIntStubsPtr->tkComputeAnchor) /* 9 */ -/* Slot 10 is reserved */ -/* Slot 11 is reserved */ -#define TkCreateCursorFromData \ - (tkIntStubsPtr->tkCreateCursorFromData) /* 12 */ -#define TkCreateFrame \ - (tkIntStubsPtr->tkCreateFrame) /* 13 */ -#define TkCreateMainWindow \ - (tkIntStubsPtr->tkCreateMainWindow) /* 14 */ -#define TkCurrentTime \ - (tkIntStubsPtr->tkCurrentTime) /* 15 */ -#define TkDeleteAllImages \ - (tkIntStubsPtr->tkDeleteAllImages) /* 16 */ -#define TkDoConfigureNotify \ - (tkIntStubsPtr->tkDoConfigureNotify) /* 17 */ -#define TkDrawInsetFocusHighlight \ - (tkIntStubsPtr->tkDrawInsetFocusHighlight) /* 18 */ -#define TkEventDeadWindow \ - (tkIntStubsPtr->tkEventDeadWindow) /* 19 */ -#define TkFillPolygon \ - (tkIntStubsPtr->tkFillPolygon) /* 20 */ -#define TkFindStateNum \ - (tkIntStubsPtr->tkFindStateNum) /* 21 */ -#define TkFindStateString \ - (tkIntStubsPtr->tkFindStateString) /* 22 */ -#define TkFocusDeadWindow \ - (tkIntStubsPtr->tkFocusDeadWindow) /* 23 */ -#define TkFocusFilterEvent \ - (tkIntStubsPtr->tkFocusFilterEvent) /* 24 */ -#define TkFocusKeyEvent \ - (tkIntStubsPtr->tkFocusKeyEvent) /* 25 */ -#define TkFontPkgInit \ - (tkIntStubsPtr->tkFontPkgInit) /* 26 */ -#define TkFontPkgFree \ - (tkIntStubsPtr->tkFontPkgFree) /* 27 */ -#define TkFreeBindingTags \ - (tkIntStubsPtr->tkFreeBindingTags) /* 28 */ -#define TkpFreeCursor \ - (tkIntStubsPtr->tkpFreeCursor) /* 29 */ -#define TkGetBitmapData \ - (tkIntStubsPtr->tkGetBitmapData) /* 30 */ -#define TkGetButtPoints \ - (tkIntStubsPtr->tkGetButtPoints) /* 31 */ -#define TkGetCursorByName \ - (tkIntStubsPtr->tkGetCursorByName) /* 32 */ -#define TkGetDefaultScreenName \ - (tkIntStubsPtr->tkGetDefaultScreenName) /* 33 */ -#define TkGetDisplay \ - (tkIntStubsPtr->tkGetDisplay) /* 34 */ -#define TkGetDisplayOf \ - (tkIntStubsPtr->tkGetDisplayOf) /* 35 */ -#define TkGetFocusWin \ - (tkIntStubsPtr->tkGetFocusWin) /* 36 */ -#define TkGetInterpNames \ - (tkIntStubsPtr->tkGetInterpNames) /* 37 */ -#define TkGetMiterPoints \ - (tkIntStubsPtr->tkGetMiterPoints) /* 38 */ -#define TkGetPointerCoords \ - (tkIntStubsPtr->tkGetPointerCoords) /* 39 */ -#define TkGetServerInfo \ - (tkIntStubsPtr->tkGetServerInfo) /* 40 */ -#define TkGrabDeadWindow \ - (tkIntStubsPtr->tkGrabDeadWindow) /* 41 */ -#define TkGrabState \ - (tkIntStubsPtr->tkGrabState) /* 42 */ -#define TkIncludePoint \ - (tkIntStubsPtr->tkIncludePoint) /* 43 */ -#define TkInOutEvents \ - (tkIntStubsPtr->tkInOutEvents) /* 44 */ -#define TkInstallFrameMenu \ - (tkIntStubsPtr->tkInstallFrameMenu) /* 45 */ -#define TkKeysymToString \ - (tkIntStubsPtr->tkKeysymToString) /* 46 */ -#define TkLineToArea \ - (tkIntStubsPtr->tkLineToArea) /* 47 */ -#define TkLineToPoint \ - (tkIntStubsPtr->tkLineToPoint) /* 48 */ -#define TkMakeBezierCurve \ - (tkIntStubsPtr->tkMakeBezierCurve) /* 49 */ -#define TkMakeBezierPostscript \ - (tkIntStubsPtr->tkMakeBezierPostscript) /* 50 */ -#define TkOptionClassChanged \ - (tkIntStubsPtr->tkOptionClassChanged) /* 51 */ -#define TkOptionDeadWindow \ - (tkIntStubsPtr->tkOptionDeadWindow) /* 52 */ -#define TkOvalToArea \ - (tkIntStubsPtr->tkOvalToArea) /* 53 */ -#define TkOvalToPoint \ - (tkIntStubsPtr->tkOvalToPoint) /* 54 */ -#define TkpChangeFocus \ - (tkIntStubsPtr->tkpChangeFocus) /* 55 */ -#define TkpCloseDisplay \ - (tkIntStubsPtr->tkpCloseDisplay) /* 56 */ -#define TkpClaimFocus \ - (tkIntStubsPtr->tkpClaimFocus) /* 57 */ -#define TkpDisplayWarning \ - (tkIntStubsPtr->tkpDisplayWarning) /* 58 */ -#define TkpGetAppName \ - (tkIntStubsPtr->tkpGetAppName) /* 59 */ -#define TkpGetOtherWindow \ - (tkIntStubsPtr->tkpGetOtherWindow) /* 60 */ -#define TkpGetWrapperWindow \ - (tkIntStubsPtr->tkpGetWrapperWindow) /* 61 */ -#define TkpInit \ - (tkIntStubsPtr->tkpInit) /* 62 */ -#define TkpInitializeMenuBindings \ - (tkIntStubsPtr->tkpInitializeMenuBindings) /* 63 */ -#define TkpMakeContainer \ - (tkIntStubsPtr->tkpMakeContainer) /* 64 */ -#define TkpMakeMenuWindow \ - (tkIntStubsPtr->tkpMakeMenuWindow) /* 65 */ -#define TkpMakeWindow \ - (tkIntStubsPtr->tkpMakeWindow) /* 66 */ -#define TkpMenuNotifyToplevelCreate \ - (tkIntStubsPtr->tkpMenuNotifyToplevelCreate) /* 67 */ -#define TkpOpenDisplay \ - (tkIntStubsPtr->tkpOpenDisplay) /* 68 */ -#define TkPointerEvent \ - (tkIntStubsPtr->tkPointerEvent) /* 69 */ -#define TkPolygonToArea \ - (tkIntStubsPtr->tkPolygonToArea) /* 70 */ -#define TkPolygonToPoint \ - (tkIntStubsPtr->tkPolygonToPoint) /* 71 */ -#define TkPositionInTree \ - (tkIntStubsPtr->tkPositionInTree) /* 72 */ -#define TkpRedirectKeyEvent \ - (tkIntStubsPtr->tkpRedirectKeyEvent) /* 73 */ -#define TkpSetMainMenubar \ - (tkIntStubsPtr->tkpSetMainMenubar) /* 74 */ -#define TkpUseWindow \ - (tkIntStubsPtr->tkpUseWindow) /* 75 */ -/* Slot 76 is reserved */ -#define TkQueueEventForAllChildren \ - (tkIntStubsPtr->tkQueueEventForAllChildren) /* 77 */ -#define TkReadBitmapFile \ - (tkIntStubsPtr->tkReadBitmapFile) /* 78 */ -#define TkScrollWindow \ - (tkIntStubsPtr->tkScrollWindow) /* 79 */ -#define TkSelDeadWindow \ - (tkIntStubsPtr->tkSelDeadWindow) /* 80 */ -#define TkSelEventProc \ - (tkIntStubsPtr->tkSelEventProc) /* 81 */ -#define TkSelInit \ - (tkIntStubsPtr->tkSelInit) /* 82 */ -#define TkSelPropProc \ - (tkIntStubsPtr->tkSelPropProc) /* 83 */ -/* Slot 84 is reserved */ -#define TkSetWindowMenuBar \ - (tkIntStubsPtr->tkSetWindowMenuBar) /* 85 */ -#define TkStringToKeysym \ - (tkIntStubsPtr->tkStringToKeysym) /* 86 */ -#define TkThickPolyLineToArea \ - (tkIntStubsPtr->tkThickPolyLineToArea) /* 87 */ -#define TkWmAddToColormapWindows \ - (tkIntStubsPtr->tkWmAddToColormapWindows) /* 88 */ -#define TkWmDeadWindow \ - (tkIntStubsPtr->tkWmDeadWindow) /* 89 */ -#define TkWmFocusToplevel \ - (tkIntStubsPtr->tkWmFocusToplevel) /* 90 */ -#define TkWmMapWindow \ - (tkIntStubsPtr->tkWmMapWindow) /* 91 */ -#define TkWmNewWindow \ - (tkIntStubsPtr->tkWmNewWindow) /* 92 */ -#define TkWmProtocolEventProc \ - (tkIntStubsPtr->tkWmProtocolEventProc) /* 93 */ -#define TkWmRemoveFromColormapWindows \ - (tkIntStubsPtr->tkWmRemoveFromColormapWindows) /* 94 */ -#define TkWmRestackToplevel \ - (tkIntStubsPtr->tkWmRestackToplevel) /* 95 */ -#define TkWmSetClass \ - (tkIntStubsPtr->tkWmSetClass) /* 96 */ -#define TkWmUnmapWindow \ - (tkIntStubsPtr->tkWmUnmapWindow) /* 97 */ -#define TkDebugBitmap \ - (tkIntStubsPtr->tkDebugBitmap) /* 98 */ -#define TkDebugBorder \ - (tkIntStubsPtr->tkDebugBorder) /* 99 */ -#define TkDebugCursor \ - (tkIntStubsPtr->tkDebugCursor) /* 100 */ -#define TkDebugColor \ - (tkIntStubsPtr->tkDebugColor) /* 101 */ -#define TkDebugConfig \ - (tkIntStubsPtr->tkDebugConfig) /* 102 */ -#define TkDebugFont \ - (tkIntStubsPtr->tkDebugFont) /* 103 */ -#define TkFindStateNumObj \ - (tkIntStubsPtr->tkFindStateNumObj) /* 104 */ -#define TkGetBitmapPredefTable \ - (tkIntStubsPtr->tkGetBitmapPredefTable) /* 105 */ -#define TkGetDisplayList \ - (tkIntStubsPtr->tkGetDisplayList) /* 106 */ -#define TkGetMainInfoList \ - (tkIntStubsPtr->tkGetMainInfoList) /* 107 */ -#define TkGetWindowFromObj \ - (tkIntStubsPtr->tkGetWindowFromObj) /* 108 */ -#define TkpGetString \ - (tkIntStubsPtr->tkpGetString) /* 109 */ -#define TkpGetSubFonts \ - (tkIntStubsPtr->tkpGetSubFonts) /* 110 */ -#define TkpGetSystemDefault \ - (tkIntStubsPtr->tkpGetSystemDefault) /* 111 */ -#define TkpMenuThreadInit \ - (tkIntStubsPtr->tkpMenuThreadInit) /* 112 */ -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkpCreateNativeBitmap \ - (tkIntStubsPtr->tkpCreateNativeBitmap) /* 121 */ -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkpDefineNativeBitmaps \ - (tkIntStubsPtr->tkpDefineNativeBitmaps) /* 122 */ -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkpGetNativeAppBitmap \ - (tkIntStubsPtr->tkpGetNativeAppBitmap) /* 124 */ -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#define TkpDrawHighlightBorder \ - (tkIntStubsPtr->tkpDrawHighlightBorder) /* 135 */ -#define TkSetFocusWin \ - (tkIntStubsPtr->tkSetFocusWin) /* 136 */ -#define TkpSetKeycodeAndState \ - (tkIntStubsPtr->tkpSetKeycodeAndState) /* 137 */ -#define TkpGetKeySym \ - (tkIntStubsPtr->tkpGetKeySym) /* 138 */ -#define TkpInitKeymapInfo \ - (tkIntStubsPtr->tkpInitKeymapInfo) /* 139 */ -#define TkPhotoGetValidRegion \ - (tkIntStubsPtr->tkPhotoGetValidRegion) /* 140 */ -#define TkWmStackorderToplevel \ - (tkIntStubsPtr->tkWmStackorderToplevel) /* 141 */ -#define TkFocusFree \ - (tkIntStubsPtr->tkFocusFree) /* 142 */ -#define TkClipCleanup \ - (tkIntStubsPtr->tkClipCleanup) /* 143 */ -#define TkGCCleanup \ - (tkIntStubsPtr->tkGCCleanup) /* 144 */ -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#define TkStylePkgInit \ - (tkIntStubsPtr->tkStylePkgInit) /* 146 */ -#define TkStylePkgFree \ - (tkIntStubsPtr->tkStylePkgFree) /* 147 */ -#define TkToplevelWindowForCommand \ - (tkIntStubsPtr->tkToplevelWindowForCommand) /* 148 */ -#define TkGetOptionSpec \ - (tkIntStubsPtr->tkGetOptionSpec) /* 149 */ -#define TkMakeRawCurve \ - (tkIntStubsPtr->tkMakeRawCurve) /* 150 */ -#define TkMakeRawCurvePostscript \ - (tkIntStubsPtr->tkMakeRawCurvePostscript) /* 151 */ -#define TkpDrawFrame \ - (tkIntStubsPtr->tkpDrawFrame) /* 152 */ -#define TkCreateThreadExitHandler \ - (tkIntStubsPtr->tkCreateThreadExitHandler) /* 153 */ -#define TkDeleteThreadExitHandler \ - (tkIntStubsPtr->tkDeleteThreadExitHandler) /* 154 */ -/* Slot 155 is reserved */ -#define TkpTestembedCmd \ - (tkIntStubsPtr->tkpTestembedCmd) /* 156 */ -#define TkpTesttextCmd \ - (tkIntStubsPtr->tkpTesttextCmd) /* 157 */ -#define TkSelGetSelection \ - (tkIntStubsPtr->tkSelGetSelection) /* 158 */ -#define TkTextGetIndex \ - (tkIntStubsPtr->tkTextGetIndex) /* 159 */ -#define TkTextIndexBackBytes \ - (tkIntStubsPtr->tkTextIndexBackBytes) /* 160 */ -#define TkTextIndexForwBytes \ - (tkIntStubsPtr->tkTextIndexForwBytes) /* 161 */ -#define TkTextMakeByteIndex \ - (tkIntStubsPtr->tkTextMakeByteIndex) /* 162 */ -#define TkTextPrintIndex \ - (tkIntStubsPtr->tkTextPrintIndex) /* 163 */ -#define TkTextSetMark \ - (tkIntStubsPtr->tkTextSetMark) /* 164 */ -#define TkTextXviewCmd \ - (tkIntStubsPtr->tkTextXviewCmd) /* 165 */ -#define TkTextChanged \ - (tkIntStubsPtr->tkTextChanged) /* 166 */ -#define TkBTreeNumLines \ - (tkIntStubsPtr->tkBTreeNumLines) /* 167 */ -#define TkTextInsertDisplayProc \ - (tkIntStubsPtr->tkTextInsertDisplayProc) /* 168 */ -#define TkStateParseProc \ - (tkIntStubsPtr->tkStateParseProc) /* 169 */ -#define TkStatePrintProc \ - (tkIntStubsPtr->tkStatePrintProc) /* 170 */ -#define TkCanvasDashParseProc \ - (tkIntStubsPtr->tkCanvasDashParseProc) /* 171 */ -#define TkCanvasDashPrintProc \ - (tkIntStubsPtr->tkCanvasDashPrintProc) /* 172 */ -#define TkOffsetParseProc \ - (tkIntStubsPtr->tkOffsetParseProc) /* 173 */ -#define TkOffsetPrintProc \ - (tkIntStubsPtr->tkOffsetPrintProc) /* 174 */ -#define TkPixelParseProc \ - (tkIntStubsPtr->tkPixelParseProc) /* 175 */ -#define TkPixelPrintProc \ - (tkIntStubsPtr->tkPixelPrintProc) /* 176 */ -#define TkOrientParseProc \ - (tkIntStubsPtr->tkOrientParseProc) /* 177 */ -#define TkOrientPrintProc \ - (tkIntStubsPtr->tkOrientPrintProc) /* 178 */ -#define TkSmoothParseProc \ - (tkIntStubsPtr->tkSmoothParseProc) /* 179 */ -#define TkSmoothPrintProc \ - (tkIntStubsPtr->tkSmoothPrintProc) /* 180 */ -#define TkDrawAngledTextLayout \ - (tkIntStubsPtr->tkDrawAngledTextLayout) /* 181 */ -#define TkUnderlineAngledTextLayout \ - (tkIntStubsPtr->tkUnderlineAngledTextLayout) /* 182 */ -#define TkIntersectAngledTextLayout \ - (tkIntStubsPtr->tkIntersectAngledTextLayout) /* 183 */ -#define TkDrawAngledChars \ - (tkIntStubsPtr->tkDrawAngledChars) /* 184 */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -/* - * On X11, these macros are just wrappers for the equivalent X Region calls. - */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ - -#undef TkClipBox -#undef TkCreateRegion -#undef TkDestroyRegion -#undef TkIntersectRegion -#undef TkRectInRegion -#undef TkSetRegion -#undef TkSubtractRegion -#undef TkUnionRectWithRegion - -#define TkClipBox(rgn, rect) XClipBox((Region) rgn, rect) -#define TkCreateRegion() (TkRegion) XCreateRegion() -#define TkDestroyRegion(rgn) XDestroyRegion((Region) rgn) -#define TkIntersectRegion(a, b, r) XIntersectRegion((Region) a, \ - (Region) b, (Region) r) -#define TkRectInRegion(r, x, y, w, h) XRectInRegion((Region) r, x, y, w, h) -#define TkSetRegion(d, gc, rgn) XSetRegion(d, gc, (Region) rgn) -#define TkSubtractRegion(a, b, r) XSubtractRegion((Region) a, \ - (Region) b, (Region) r) -#define TkUnionRectWithRegion(rect, src, ret) XUnionRectWithRegion(rect, \ - (Region) src, (Region) ret) - -#endif /* UNIX */ - -#endif /* _TKINTDECLS */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntPlatDecls.h deleted file mode 100644 index f496e5594..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntPlatDecls.h +++ /dev/null @@ -1,675 +0,0 @@ -/* - * tkIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTPLATDECLS -#define _TKINTPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN char * TkAlignImageData(XImage *image, int alignment, - int bitOrder); -/* Slot 1 is reserved */ -/* 2 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -/* 3 */ -EXTERN unsigned long TkpGetMS(void); -/* 4 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -/* 5 */ -EXTERN void TkpPrintWindowId(char *buf, Window window); -/* 6 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - const char *string, Window *idPtr); -/* 7 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -/* 8 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -/* 9 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -/* 10 */ -EXTERN void TkSetPixmapColormap(Pixmap pixmap, Colormap colormap); -/* 11 */ -EXTERN void TkWinCancelMouseTimer(void); -/* 12 */ -EXTERN void TkWinClipboardRender(TkDisplay *dispPtr, UINT format); -/* 13 */ -EXTERN LRESULT TkWinEmbeddedEventProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -/* 14 */ -EXTERN void TkWinFillRect(HDC dc, int x, int y, int width, - int height, int pixel); -/* 15 */ -EXTERN COLORREF TkWinGetBorderPixels(Tk_Window tkwin, - Tk_3DBorder border, int which); -/* 16 */ -EXTERN HDC TkWinGetDrawableDC(Display *display, Drawable d, - TkWinDCState *state); -/* 17 */ -EXTERN int TkWinGetModifierState(void); -/* 18 */ -EXTERN HPALETTE TkWinGetSystemPalette(void); -/* 19 */ -EXTERN HWND TkWinGetWrapperWindow(Tk_Window tkwin); -/* 20 */ -EXTERN int TkWinHandleMenuEvent(HWND *phwnd, UINT *pMessage, - WPARAM *pwParam, LPARAM *plParam, - LRESULT *plResult); -/* 21 */ -EXTERN int TkWinIndexOfColor(XColor *colorPtr); -/* 22 */ -EXTERN void TkWinReleaseDrawableDC(Drawable d, HDC hdc, - TkWinDCState *state); -/* 23 */ -EXTERN LRESULT TkWinResendEvent(WNDPROC wndproc, HWND hwnd, - XEvent *eventPtr); -/* 24 */ -EXTERN HPALETTE TkWinSelectPalette(HDC dc, Colormap colormap); -/* 25 */ -EXTERN void TkWinSetMenu(Tk_Window tkwin, HMENU hMenu); -/* 26 */ -EXTERN void TkWinSetWindowPos(HWND hwnd, HWND siblingHwnd, - int pos); -/* 27 */ -EXTERN void TkWinWmCleanup(HINSTANCE hInstance); -/* 28 */ -EXTERN void TkWinXCleanup(ClientData clientData); -/* 29 */ -EXTERN void TkWinXInit(HINSTANCE hInstance); -/* 30 */ -EXTERN void TkWinSetForegroundWindow(TkWindow *winPtr); -/* 31 */ -EXTERN void TkWinDialogDebug(int debug); -/* 32 */ -EXTERN Tcl_Obj * TkWinGetMenuSystemDefault(Tk_Window tkwin, - const char *dbName, const char *className); -/* 33 */ -EXTERN int TkWinGetPlatformId(void); -/* 34 */ -EXTERN void TkWinSetHINSTANCE(HINSTANCE hInstance); -/* 35 */ -EXTERN int TkWinGetPlatformTheme(void); -/* 36 */ -EXTERN LRESULT __stdcall TkWinChildProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -/* 37 */ -EXTERN void TkCreateXEventSource(void); -/* 38 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -/* 39 */ -EXTERN void TkpSync(Display *display); -/* 40 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -/* 41 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -/* 42 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -/* 43 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -/* 44 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -/* 45 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* Slot 46 is reserved */ -/* 47 */ -EXTERN Tk_Window TkpGetCapture(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 0 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -/* 4 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -/* 5 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -/* 6 */ -EXTERN void TkpWmSetState(TkWindow *winPtr, int state); -/* 7 */ -EXTERN void TkAboutDlg(void); -/* 8 */ -EXTERN unsigned int TkMacOSXButtonKeyState(void); -/* 9 */ -EXTERN void TkMacOSXClearMenubarActive(void); -/* 10 */ -EXTERN int TkMacOSXDispatchMenuEvent(int menuID, int index); -/* 11 */ -EXTERN void TkMacOSXInstallCursor(int resizeOverride); -/* 12 */ -EXTERN void TkMacOSXHandleTearoffMenu(void); -/* Slot 13 is reserved */ -/* 14 */ -EXTERN int TkMacOSXDoHLEvent(void *theEvent); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN Window TkMacOSXGetXWindow(void *macWinPtr); -/* 17 */ -EXTERN int TkMacOSXGrowToplevel(void *whichWindow, XPoint start); -/* 18 */ -EXTERN void TkMacOSXHandleMenuSelect(short theMenu, - unsigned short theItem, int optionKeyPressed); -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* 21 */ -EXTERN void TkMacOSXInvalidateWindow(MacDrawable *macWin, - int flag); -/* 22 */ -EXTERN int TkMacOSXIsCharacterMissing(Tk_Font tkfont, - unsigned int searchChar); -/* 23 */ -EXTERN void TkMacOSXMakeRealWindowExist(TkWindow *winPtr); -/* 24 */ -EXTERN void * TkMacOSXMakeStippleMap(Drawable d1, Drawable d2); -/* 25 */ -EXTERN void TkMacOSXMenuClick(void); -/* 26 */ -EXTERN void TkMacOSXRegisterOffScreenWindow(Window window, - void *portPtr); -/* 27 */ -EXTERN int TkMacOSXResizable(TkWindow *winPtr); -/* 28 */ -EXTERN void TkMacOSXSetHelpMenuItemCount(void); -/* 29 */ -EXTERN void TkMacOSXSetScrollbarGrow(TkWindow *winPtr, int flag); -/* 30 */ -EXTERN void TkMacOSXSetUpClippingRgn(Drawable drawable); -/* 31 */ -EXTERN void TkMacOSXSetUpGraphicsPort(GC gc, void *destPort); -/* 32 */ -EXTERN void TkMacOSXUpdateClipRgn(TkWindow *winPtr); -/* 33 */ -EXTERN void TkMacOSXUnregisterMacWindow(void *portPtr); -/* 34 */ -EXTERN int TkMacOSXUseMenuID(short macID); -/* 35 */ -EXTERN TkRegion TkMacOSXVisableClipRgn(TkWindow *winPtr); -/* 36 */ -EXTERN void TkMacOSXWinBounds(TkWindow *winPtr, void *geometry); -/* 37 */ -EXTERN void TkMacOSXWindowOffset(void *wRef, int *xOffset, - int *yOffset); -/* 38 */ -EXTERN int TkSetMacColor(unsigned long pixel, void *macColor); -/* 39 */ -EXTERN void TkSetWMName(TkWindow *winPtr, Tk_Uid titleUid); -/* Slot 40 is reserved */ -/* 41 */ -EXTERN int TkMacOSXZoomToplevel(void *whichWindow, - short zoomPart); -/* 42 */ -EXTERN Tk_Window Tk_TopCoordsToWindow(Tk_Window tkwin, int rootX, - int rootY, int *newX, int *newY); -/* 43 */ -EXTERN MacDrawable * TkMacOSXContainerId(TkWindow *winPtr); -/* 44 */ -EXTERN MacDrawable * TkMacOSXGetHostToplevel(TkWindow *winPtr); -/* 45 */ -EXTERN void TkMacOSXPreprocessMenu(void); -/* 46 */ -EXTERN int TkpIsWindowFloating(void *window); -/* 47 */ -EXTERN Tk_Window TkMacOSXGetCapture(void); -/* Slot 48 is reserved */ -/* 49 */ -EXTERN Tk_Window TkGetTransientMaster(TkWindow *winPtr); -/* 50 */ -EXTERN int TkGenerateButtonEvent(int x, int y, Window window, - unsigned int state); -/* 51 */ -EXTERN void TkGenWMDestroyEvent(Tk_Window tkwin); -/* 52 */ -EXTERN void TkMacOSXSetDrawingEnabled(TkWindow *winPtr, int flag); -/* 53 */ -EXTERN unsigned long TkpGetMS(void); -/* 54 */ -EXTERN void * TkMacOSXDrawable(Drawable drawable); -/* 55 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - const char *string, Window *idPtr); -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -/* 0 */ -EXTERN void TkCreateXEventSource(void); -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -/* 4 */ -EXTERN void TkpSync(Display *display); -/* 5 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -/* 6 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -/* 7 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -/* 8 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - const char *string, Window *idPtr); -/* 9 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -/* 10 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -/* Slot 11 is reserved */ -/* 12 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -/* 13 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -#endif /* X11 */ - -typedef struct TkIntPlatStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - char * (*tkAlignImageData) (XImage *image, int alignment, int bitOrder); /* 0 */ - void (*reserved1)(void); - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 2 */ - unsigned long (*tkpGetMS) (void); /* 3 */ - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 4 */ - void (*tkpPrintWindowId) (char *buf, Window window); /* 5 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, const char *string, Window *idPtr); /* 6 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 7 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 8 */ - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 9 */ - void (*tkSetPixmapColormap) (Pixmap pixmap, Colormap colormap); /* 10 */ - void (*tkWinCancelMouseTimer) (void); /* 11 */ - void (*tkWinClipboardRender) (TkDisplay *dispPtr, UINT format); /* 12 */ - LRESULT (*tkWinEmbeddedEventProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 13 */ - void (*tkWinFillRect) (HDC dc, int x, int y, int width, int height, int pixel); /* 14 */ - COLORREF (*tkWinGetBorderPixels) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 15 */ - HDC (*tkWinGetDrawableDC) (Display *display, Drawable d, TkWinDCState *state); /* 16 */ - int (*tkWinGetModifierState) (void); /* 17 */ - HPALETTE (*tkWinGetSystemPalette) (void); /* 18 */ - HWND (*tkWinGetWrapperWindow) (Tk_Window tkwin); /* 19 */ - int (*tkWinHandleMenuEvent) (HWND *phwnd, UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, LRESULT *plResult); /* 20 */ - int (*tkWinIndexOfColor) (XColor *colorPtr); /* 21 */ - void (*tkWinReleaseDrawableDC) (Drawable d, HDC hdc, TkWinDCState *state); /* 22 */ - LRESULT (*tkWinResendEvent) (WNDPROC wndproc, HWND hwnd, XEvent *eventPtr); /* 23 */ - HPALETTE (*tkWinSelectPalette) (HDC dc, Colormap colormap); /* 24 */ - void (*tkWinSetMenu) (Tk_Window tkwin, HMENU hMenu); /* 25 */ - void (*tkWinSetWindowPos) (HWND hwnd, HWND siblingHwnd, int pos); /* 26 */ - void (*tkWinWmCleanup) (HINSTANCE hInstance); /* 27 */ - void (*tkWinXCleanup) (ClientData clientData); /* 28 */ - void (*tkWinXInit) (HINSTANCE hInstance); /* 29 */ - void (*tkWinSetForegroundWindow) (TkWindow *winPtr); /* 30 */ - void (*tkWinDialogDebug) (int debug); /* 31 */ - Tcl_Obj * (*tkWinGetMenuSystemDefault) (Tk_Window tkwin, const char *dbName, const char *className); /* 32 */ - int (*tkWinGetPlatformId) (void); /* 33 */ - void (*tkWinSetHINSTANCE) (HINSTANCE hInstance); /* 34 */ - int (*tkWinGetPlatformTheme) (void); /* 35 */ - LRESULT (__stdcall *tkWinChildProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 36 */ - void (*tkCreateXEventSource) (void); /* 37 */ - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 38 */ - void (*tkpSync) (Display *display); /* 39 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 40 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 41 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 42 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 43 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 44 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 45 */ - void (*reserved46)(void); - Tk_Window (*tkpGetCapture) (void); /* 47 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 0 */ - void (*reserved1)(void); - void (*reserved2)(void); - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 3 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 4 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 5 */ - void (*tkpWmSetState) (TkWindow *winPtr, int state); /* 6 */ - void (*tkAboutDlg) (void); /* 7 */ - unsigned int (*tkMacOSXButtonKeyState) (void); /* 8 */ - void (*tkMacOSXClearMenubarActive) (void); /* 9 */ - int (*tkMacOSXDispatchMenuEvent) (int menuID, int index); /* 10 */ - void (*tkMacOSXInstallCursor) (int resizeOverride); /* 11 */ - void (*tkMacOSXHandleTearoffMenu) (void); /* 12 */ - void (*reserved13)(void); - int (*tkMacOSXDoHLEvent) (void *theEvent); /* 14 */ - void (*reserved15)(void); - Window (*tkMacOSXGetXWindow) (void *macWinPtr); /* 16 */ - int (*tkMacOSXGrowToplevel) (void *whichWindow, XPoint start); /* 17 */ - void (*tkMacOSXHandleMenuSelect) (short theMenu, unsigned short theItem, int optionKeyPressed); /* 18 */ - void (*reserved19)(void); - void (*reserved20)(void); - void (*tkMacOSXInvalidateWindow) (MacDrawable *macWin, int flag); /* 21 */ - int (*tkMacOSXIsCharacterMissing) (Tk_Font tkfont, unsigned int searchChar); /* 22 */ - void (*tkMacOSXMakeRealWindowExist) (TkWindow *winPtr); /* 23 */ - void * (*tkMacOSXMakeStippleMap) (Drawable d1, Drawable d2); /* 24 */ - void (*tkMacOSXMenuClick) (void); /* 25 */ - void (*tkMacOSXRegisterOffScreenWindow) (Window window, void *portPtr); /* 26 */ - int (*tkMacOSXResizable) (TkWindow *winPtr); /* 27 */ - void (*tkMacOSXSetHelpMenuItemCount) (void); /* 28 */ - void (*tkMacOSXSetScrollbarGrow) (TkWindow *winPtr, int flag); /* 29 */ - void (*tkMacOSXSetUpClippingRgn) (Drawable drawable); /* 30 */ - void (*tkMacOSXSetUpGraphicsPort) (GC gc, void *destPort); /* 31 */ - void (*tkMacOSXUpdateClipRgn) (TkWindow *winPtr); /* 32 */ - void (*tkMacOSXUnregisterMacWindow) (void *portPtr); /* 33 */ - int (*tkMacOSXUseMenuID) (short macID); /* 34 */ - TkRegion (*tkMacOSXVisableClipRgn) (TkWindow *winPtr); /* 35 */ - void (*tkMacOSXWinBounds) (TkWindow *winPtr, void *geometry); /* 36 */ - void (*tkMacOSXWindowOffset) (void *wRef, int *xOffset, int *yOffset); /* 37 */ - int (*tkSetMacColor) (unsigned long pixel, void *macColor); /* 38 */ - void (*tkSetWMName) (TkWindow *winPtr, Tk_Uid titleUid); /* 39 */ - void (*reserved40)(void); - int (*tkMacOSXZoomToplevel) (void *whichWindow, short zoomPart); /* 41 */ - Tk_Window (*tk_TopCoordsToWindow) (Tk_Window tkwin, int rootX, int rootY, int *newX, int *newY); /* 42 */ - MacDrawable * (*tkMacOSXContainerId) (TkWindow *winPtr); /* 43 */ - MacDrawable * (*tkMacOSXGetHostToplevel) (TkWindow *winPtr); /* 44 */ - void (*tkMacOSXPreprocessMenu) (void); /* 45 */ - int (*tkpIsWindowFloating) (void *window); /* 46 */ - Tk_Window (*tkMacOSXGetCapture) (void); /* 47 */ - void (*reserved48)(void); - Tk_Window (*tkGetTransientMaster) (TkWindow *winPtr); /* 49 */ - int (*tkGenerateButtonEvent) (int x, int y, Window window, unsigned int state); /* 50 */ - void (*tkGenWMDestroyEvent) (Tk_Window tkwin); /* 51 */ - void (*tkMacOSXSetDrawingEnabled) (TkWindow *winPtr, int flag); /* 52 */ - unsigned long (*tkpGetMS) (void); /* 53 */ - void * (*tkMacOSXDrawable) (Drawable drawable); /* 54 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, const char *string, Window *idPtr); /* 55 */ -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ - void (*tkCreateXEventSource) (void); /* 0 */ - void (*reserved1)(void); - void (*reserved2)(void); - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 3 */ - void (*tkpSync) (Display *display); /* 4 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 5 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 6 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 7 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, const char *string, Window *idPtr); /* 8 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 9 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 10 */ - void (*reserved11)(void); - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 12 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 13 */ -#endif /* X11 */ -} TkIntPlatStubs; - -extern const TkIntPlatStubs *tkIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define TkAlignImageData \ - (tkIntPlatStubsPtr->tkAlignImageData) /* 0 */ -/* Slot 1 is reserved */ -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 2 */ -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 3 */ -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 4 */ -#define TkpPrintWindowId \ - (tkIntPlatStubsPtr->tkpPrintWindowId) /* 5 */ -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 6 */ -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 7 */ -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 8 */ -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 9 */ -#define TkSetPixmapColormap \ - (tkIntPlatStubsPtr->tkSetPixmapColormap) /* 10 */ -#define TkWinCancelMouseTimer \ - (tkIntPlatStubsPtr->tkWinCancelMouseTimer) /* 11 */ -#define TkWinClipboardRender \ - (tkIntPlatStubsPtr->tkWinClipboardRender) /* 12 */ -#define TkWinEmbeddedEventProc \ - (tkIntPlatStubsPtr->tkWinEmbeddedEventProc) /* 13 */ -#define TkWinFillRect \ - (tkIntPlatStubsPtr->tkWinFillRect) /* 14 */ -#define TkWinGetBorderPixels \ - (tkIntPlatStubsPtr->tkWinGetBorderPixels) /* 15 */ -#define TkWinGetDrawableDC \ - (tkIntPlatStubsPtr->tkWinGetDrawableDC) /* 16 */ -#define TkWinGetModifierState \ - (tkIntPlatStubsPtr->tkWinGetModifierState) /* 17 */ -#define TkWinGetSystemPalette \ - (tkIntPlatStubsPtr->tkWinGetSystemPalette) /* 18 */ -#define TkWinGetWrapperWindow \ - (tkIntPlatStubsPtr->tkWinGetWrapperWindow) /* 19 */ -#define TkWinHandleMenuEvent \ - (tkIntPlatStubsPtr->tkWinHandleMenuEvent) /* 20 */ -#define TkWinIndexOfColor \ - (tkIntPlatStubsPtr->tkWinIndexOfColor) /* 21 */ -#define TkWinReleaseDrawableDC \ - (tkIntPlatStubsPtr->tkWinReleaseDrawableDC) /* 22 */ -#define TkWinResendEvent \ - (tkIntPlatStubsPtr->tkWinResendEvent) /* 23 */ -#define TkWinSelectPalette \ - (tkIntPlatStubsPtr->tkWinSelectPalette) /* 24 */ -#define TkWinSetMenu \ - (tkIntPlatStubsPtr->tkWinSetMenu) /* 25 */ -#define TkWinSetWindowPos \ - (tkIntPlatStubsPtr->tkWinSetWindowPos) /* 26 */ -#define TkWinWmCleanup \ - (tkIntPlatStubsPtr->tkWinWmCleanup) /* 27 */ -#define TkWinXCleanup \ - (tkIntPlatStubsPtr->tkWinXCleanup) /* 28 */ -#define TkWinXInit \ - (tkIntPlatStubsPtr->tkWinXInit) /* 29 */ -#define TkWinSetForegroundWindow \ - (tkIntPlatStubsPtr->tkWinSetForegroundWindow) /* 30 */ -#define TkWinDialogDebug \ - (tkIntPlatStubsPtr->tkWinDialogDebug) /* 31 */ -#define TkWinGetMenuSystemDefault \ - (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault) /* 32 */ -#define TkWinGetPlatformId \ - (tkIntPlatStubsPtr->tkWinGetPlatformId) /* 33 */ -#define TkWinSetHINSTANCE \ - (tkIntPlatStubsPtr->tkWinSetHINSTANCE) /* 34 */ -#define TkWinGetPlatformTheme \ - (tkIntPlatStubsPtr->tkWinGetPlatformTheme) /* 35 */ -#define TkWinChildProc \ - (tkIntPlatStubsPtr->tkWinChildProc) /* 36 */ -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 37 */ -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 38 */ -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 39 */ -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 40 */ -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 41 */ -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 42 */ -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 43 */ -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 44 */ -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 45 */ -/* Slot 46 is reserved */ -#define TkpGetCapture \ - (tkIntPlatStubsPtr->tkpGetCapture) /* 47 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 0 */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 3 */ -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 4 */ -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 5 */ -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 6 */ -#define TkAboutDlg \ - (tkIntPlatStubsPtr->tkAboutDlg) /* 7 */ -#define TkMacOSXButtonKeyState \ - (tkIntPlatStubsPtr->tkMacOSXButtonKeyState) /* 8 */ -#define TkMacOSXClearMenubarActive \ - (tkIntPlatStubsPtr->tkMacOSXClearMenubarActive) /* 9 */ -#define TkMacOSXDispatchMenuEvent \ - (tkIntPlatStubsPtr->tkMacOSXDispatchMenuEvent) /* 10 */ -#define TkMacOSXInstallCursor \ - (tkIntPlatStubsPtr->tkMacOSXInstallCursor) /* 11 */ -#define TkMacOSXHandleTearoffMenu \ - (tkIntPlatStubsPtr->tkMacOSXHandleTearoffMenu) /* 12 */ -/* Slot 13 is reserved */ -#define TkMacOSXDoHLEvent \ - (tkIntPlatStubsPtr->tkMacOSXDoHLEvent) /* 14 */ -/* Slot 15 is reserved */ -#define TkMacOSXGetXWindow \ - (tkIntPlatStubsPtr->tkMacOSXGetXWindow) /* 16 */ -#define TkMacOSXGrowToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGrowToplevel) /* 17 */ -#define TkMacOSXHandleMenuSelect \ - (tkIntPlatStubsPtr->tkMacOSXHandleMenuSelect) /* 18 */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#define TkMacOSXInvalidateWindow \ - (tkIntPlatStubsPtr->tkMacOSXInvalidateWindow) /* 21 */ -#define TkMacOSXIsCharacterMissing \ - (tkIntPlatStubsPtr->tkMacOSXIsCharacterMissing) /* 22 */ -#define TkMacOSXMakeRealWindowExist \ - (tkIntPlatStubsPtr->tkMacOSXMakeRealWindowExist) /* 23 */ -#define TkMacOSXMakeStippleMap \ - (tkIntPlatStubsPtr->tkMacOSXMakeStippleMap) /* 24 */ -#define TkMacOSXMenuClick \ - (tkIntPlatStubsPtr->tkMacOSXMenuClick) /* 25 */ -#define TkMacOSXRegisterOffScreenWindow \ - (tkIntPlatStubsPtr->tkMacOSXRegisterOffScreenWindow) /* 26 */ -#define TkMacOSXResizable \ - (tkIntPlatStubsPtr->tkMacOSXResizable) /* 27 */ -#define TkMacOSXSetHelpMenuItemCount \ - (tkIntPlatStubsPtr->tkMacOSXSetHelpMenuItemCount) /* 28 */ -#define TkMacOSXSetScrollbarGrow \ - (tkIntPlatStubsPtr->tkMacOSXSetScrollbarGrow) /* 29 */ -#define TkMacOSXSetUpClippingRgn \ - (tkIntPlatStubsPtr->tkMacOSXSetUpClippingRgn) /* 30 */ -#define TkMacOSXSetUpGraphicsPort \ - (tkIntPlatStubsPtr->tkMacOSXSetUpGraphicsPort) /* 31 */ -#define TkMacOSXUpdateClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXUpdateClipRgn) /* 32 */ -#define TkMacOSXUnregisterMacWindow \ - (tkIntPlatStubsPtr->tkMacOSXUnregisterMacWindow) /* 33 */ -#define TkMacOSXUseMenuID \ - (tkIntPlatStubsPtr->tkMacOSXUseMenuID) /* 34 */ -#define TkMacOSXVisableClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXVisableClipRgn) /* 35 */ -#define TkMacOSXWinBounds \ - (tkIntPlatStubsPtr->tkMacOSXWinBounds) /* 36 */ -#define TkMacOSXWindowOffset \ - (tkIntPlatStubsPtr->tkMacOSXWindowOffset) /* 37 */ -#define TkSetMacColor \ - (tkIntPlatStubsPtr->tkSetMacColor) /* 38 */ -#define TkSetWMName \ - (tkIntPlatStubsPtr->tkSetWMName) /* 39 */ -/* Slot 40 is reserved */ -#define TkMacOSXZoomToplevel \ - (tkIntPlatStubsPtr->tkMacOSXZoomToplevel) /* 41 */ -#define Tk_TopCoordsToWindow \ - (tkIntPlatStubsPtr->tk_TopCoordsToWindow) /* 42 */ -#define TkMacOSXContainerId \ - (tkIntPlatStubsPtr->tkMacOSXContainerId) /* 43 */ -#define TkMacOSXGetHostToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGetHostToplevel) /* 44 */ -#define TkMacOSXPreprocessMenu \ - (tkIntPlatStubsPtr->tkMacOSXPreprocessMenu) /* 45 */ -#define TkpIsWindowFloating \ - (tkIntPlatStubsPtr->tkpIsWindowFloating) /* 46 */ -#define TkMacOSXGetCapture \ - (tkIntPlatStubsPtr->tkMacOSXGetCapture) /* 47 */ -/* Slot 48 is reserved */ -#define TkGetTransientMaster \ - (tkIntPlatStubsPtr->tkGetTransientMaster) /* 49 */ -#define TkGenerateButtonEvent \ - (tkIntPlatStubsPtr->tkGenerateButtonEvent) /* 50 */ -#define TkGenWMDestroyEvent \ - (tkIntPlatStubsPtr->tkGenWMDestroyEvent) /* 51 */ -#define TkMacOSXSetDrawingEnabled \ - (tkIntPlatStubsPtr->tkMacOSXSetDrawingEnabled) /* 52 */ -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 53 */ -#define TkMacOSXDrawable \ - (tkIntPlatStubsPtr->tkMacOSXDrawable) /* 54 */ -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 55 */ -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 0 */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 3 */ -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 4 */ -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 5 */ -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 6 */ -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 7 */ -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 8 */ -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 9 */ -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 10 */ -/* Slot 11 is reserved */ -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 12 */ -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 13 */ -#endif /* X11 */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntXlibDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntXlibDecls.h deleted file mode 100644 index f1b0018a3..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkIntXlibDecls.h +++ /dev/null @@ -1,1682 +0,0 @@ -/* - * tkIntXlibDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTXLIBDECLS -#define _TKINTXLIBDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -#ifndef _TCL -# include -#endif - -/* Some (older) versions of X11/Xutil.h have a wrong signature of those - two functions, so move them out of the way temporarly. */ -#define XOffsetRegion _XOffsetRegion -#define XUnionRegion _XUnionRegion -#include "X11/Xutil.h" -#undef XOffsetRegion -#undef XUnionRegion - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ - Display* /* display */ -); - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -/* 7 */ -EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2, - XColor *x1, XColor *x2, unsigned int ui1, - unsigned int ui2); -/* 8 */ -EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2, - unsigned int ui1, unsigned int ui2, - XColor _Xconst *x1, XColor _Xconst *x2); -/* 9 */ -EXTERN GContext XGContextFromGC(GC g); -/* 10 */ -EXTERN XHostAddress * XListHosts(Display *d, int *i, Bool *b); -/* 11 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, unsigned int k, int i); -/* 12 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -/* 13 */ -EXTERN Window XRootWindow(Display *d, int i); -/* 14 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -/* 15 */ -EXTERN Status XIconifyWindow(Display *d, Window w, int i); -/* 16 */ -EXTERN Status XWithdrawWindow(Display *d, Window w, int i); -/* 17 */ -EXTERN Status XGetWMColormapWindows(Display *d, Window w, - Window **wpp, int *ip); -/* 18 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -/* 19 */ -EXTERN int XBell(Display *d, int i); -/* 20 */ -EXTERN int XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -/* 21 */ -EXTERN int XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -/* 22 */ -EXTERN int XClearWindow(Display *d, Window w); -/* 23 */ -EXTERN int XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -/* 24 */ -EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -/* 25 */ -EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -/* 26 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -/* 27 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -/* 28 */ -EXTERN int XDeleteProperty(Display *d, Window w, Atom a); -/* 29 */ -EXTERN int XDestroyWindow(Display *d, Window w); -/* 30 */ -EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 31 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -/* 32 */ -EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 33 */ -EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 34 */ -EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -/* 35 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -/* 36 */ -EXTERN int XForceScreenSaver(Display *d, int i); -/* 37 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -/* 38 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -/* 39 */ -EXTERN int XFreeCursor(Display *d, Cursor c); -/* 40 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -/* 41 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -/* 42 */ -EXTERN int XGetInputFocus(Display *d, Window *w, int *i); -/* 43 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -/* 44 */ -EXTERN Status XGetWindowAttributes(Display *d, Window w, - XWindowAttributes *x); -/* 45 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -/* 46 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -/* 47 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -/* 48 */ -EXTERN Status XLookupColor(Display *d, Colormap c1, - _Xconst char *c2, XColor *x1, XColor *x2); -/* 49 */ -EXTERN int XMapWindow(Display *d, Window w); -/* 50 */ -EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 51 */ -EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); -/* 52 */ -EXTERN int XNextEvent(Display *d, XEvent *x); -/* 53 */ -EXTERN int XPutBackEvent(Display *d, XEvent *x); -/* 54 */ -EXTERN int XQueryColors(Display *d, Colormap c, XColor *x, - int i); -/* 55 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -/* 56 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -/* 57 */ -EXTERN int XRaiseWindow(Display *d, Window w); -/* 58 */ -EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); -/* 59 */ -EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -/* 60 */ -EXTERN int XSelectInput(Display *d, Window w, long l); -/* 61 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -/* 62 */ -EXTERN int XSetCommand(Display *d, Window w, char **c, int i); -/* 63 */ -EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); -/* 64 */ -EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); -/* 65 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -/* 66 */ -EXTERN int XSetWindowBackground(Display *d, Window w, - unsigned long ul); -/* 67 */ -EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -/* 68 */ -EXTERN int XSetWindowBorder(Display *d, Window w, - unsigned long ul); -/* 69 */ -EXTERN int XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -/* 70 */ -EXTERN int XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -/* 71 */ -EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); -/* 72 */ -EXTERN Bool XTranslateCoordinates(Display *d, Window w1, - Window w2, int i1, int i2, int *i3, int *i4, - Window *w3); -/* 73 */ -EXTERN int XUngrabKeyboard(Display *d, Time t); -/* 74 */ -EXTERN int XUngrabPointer(Display *d, Time t); -/* 75 */ -EXTERN int XUnmapWindow(Display *d, Window w); -/* 76 */ -EXTERN int XWindowEvent(Display *d, Window w, long l, XEvent *x); -/* 77 */ -EXTERN void XDestroyIC(XIC x); -/* 78 */ -EXTERN Bool XFilterEvent(XEvent *x, Window w); -/* 79 */ -EXTERN int XmbLookupString(XIC xi, XKeyPressedEvent *xk, - char *c, int i, KeySym *k, Status *s); -/* 80 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -/* Slot 81 is reserved */ -/* 82 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -/* 83 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -/* 84 */ -EXTERN int XFreeGC(Display *display, GC gc); -/* 85 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -/* 86 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -/* 87 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -/* 88 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -/* 89 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -/* 90 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -/* 91 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -/* 92 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -/* 93 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -/* 94 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -/* 95 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -/* 96 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -/* 97 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -/* 98 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -/* 99 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -/* 100 */ -EXTERN XIC XCreateIC(XIM xim, ...); -/* 101 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -/* 102 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -/* 103 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -/* 104 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -/* 105 */ -EXTERN int XWarpPointer(Display *d, Window s, Window dw, int sx, - int sy, unsigned int sw, unsigned int sh, - int dx, int dy); -/* 106 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -/* 107 */ -EXTERN int XFlush(Display *display); -/* 108 */ -EXTERN int XGrabServer(Display *display); -/* 109 */ -EXTERN int XUngrabServer(Display *display); -/* 110 */ -EXTERN int XFree(void *data); -/* 111 */ -EXTERN int XNoOp(Display *display); -/* 112 */ -EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); -/* 113 */ -EXTERN int XSync(Display *display, Bool discard); -/* 114 */ -EXTERN VisualID XVisualIDFromVisual(Visual *visual); -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* 120 */ -EXTERN int XOffsetRegion(Region rgn, int dx, int dy); -/* 121 */ -EXTERN int XUnionRegion(Region srca, Region srcb, - Region dr_return); -/* 122 */ -EXTERN Window XCreateWindow(Display *display, Window parent, int x, - int y, unsigned int width, - unsigned int height, - unsigned int border_width, int depth, - unsigned int clazz, Visual *visual, - unsigned long value_mask, - XSetWindowAttributes *attributes); -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* 129 */ -EXTERN int XLowerWindow(Display *d, Window w); -/* 130 */ -EXTERN int XFillArcs(Display *d, Drawable dr, GC gc, XArc *a, - int n); -/* 131 */ -EXTERN int XDrawArcs(Display *d, Drawable dr, GC gc, XArc *a, - int n); -/* 132 */ -EXTERN int XDrawRectangles(Display *d, Drawable dr, GC gc, - XRectangle *r, int n); -/* 133 */ -EXTERN int XDrawSegments(Display *d, Drawable dr, GC gc, - XSegment *s, int n); -/* 134 */ -EXTERN int XDrawPoint(Display *d, Drawable dr, GC gc, int x, - int y); -/* 135 */ -EXTERN int XDrawPoints(Display *d, Drawable dr, GC gc, - XPoint *p, int n, int m); -/* 136 */ -EXTERN int XReparentWindow(Display *d, Window w, Window p, - int x, int y); -/* 137 */ -EXTERN int XPutImage(Display *d, Drawable dr, GC gc, XImage *im, - int sx, int sy, int dx, int dy, - unsigned int w, unsigned int h); -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -/* 7 */ -EXTERN GContext XGContextFromGC(GC g); -/* 8 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, KeyCode k, int i); -/* 9 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -/* 10 */ -EXTERN Window XRootWindow(Display *d, int i); -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -/* 12 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -/* 13 */ -EXTERN int XBell(Display *d, int i); -/* 14 */ -EXTERN int XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -/* 15 */ -EXTERN int XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -/* 16 */ -EXTERN int XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -/* 17 */ -EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -/* 18 */ -EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -/* 20 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -/* 21 */ -EXTERN int XDestroyWindow(Display *d, Window w); -/* 22 */ -EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 23 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -/* 24 */ -EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 25 */ -EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 26 */ -EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -/* 27 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -/* 28 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -/* 29 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -/* 30 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -/* 31 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -/* 32 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -/* 33 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -/* 34 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -/* 35 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -/* 36 */ -EXTERN int XMapWindow(Display *d, Window w); -/* 37 */ -EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 38 */ -EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); -/* 39 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -/* 40 */ -EXTERN int XRaiseWindow(Display *d, Window w); -/* 41 */ -EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); -/* 42 */ -EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -/* 43 */ -EXTERN int XSelectInput(Display *d, Window w, long l); -/* 44 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -/* 45 */ -EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); -/* 46 */ -EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); -/* 47 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -/* 48 */ -EXTERN int XSetWindowBackground(Display *d, Window w, - unsigned long ul); -/* 49 */ -EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -/* 50 */ -EXTERN int XSetWindowBorder(Display *d, Window w, - unsigned long ul); -/* 51 */ -EXTERN int XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -/* 52 */ -EXTERN int XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -/* 53 */ -EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); -/* 54 */ -EXTERN int XUngrabKeyboard(Display *d, Time t); -/* 55 */ -EXTERN int XUngrabPointer(Display *d, Time t); -/* 56 */ -EXTERN int XUnmapWindow(Display *d, Window w); -/* 57 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -/* 58 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -/* 59 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -/* 60 */ -EXTERN int XFreeGC(Display *display, GC gc); -/* 61 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -/* 62 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -/* 63 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -/* 64 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -/* 65 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -/* 66 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -/* 67 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -/* 68 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -/* 69 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -/* 70 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -/* 71 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -/* 72 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -/* 73 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -/* 74 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -/* 75 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -/* 76 */ -EXTERN XIC XCreateIC(XIM xim, ...); -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -/* 78 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -/* 79 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -/* 80 */ -EXTERN int XDrawSegments(Display *display, Drawable d, GC gc, - XSegment *segments, int nsegments); -/* 81 */ -EXTERN int XForceScreenSaver(Display *display, int mode); -/* 82 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -/* 83 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -/* 84 */ -EXTERN int XClearWindow(Display *d, Window w); -/* 85 */ -EXTERN int XDrawPoint(Display *display, Drawable d, GC gc, - int x, int y); -/* 86 */ -EXTERN int XDrawPoints(Display *display, Drawable d, GC gc, - XPoint *points, int npoints, int mode); -/* 87 */ -EXTERN int XWarpPointer(Display *display, Window src_w, - Window dest_w, int src_x, int src_y, - unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y); -/* 88 */ -EXTERN int XQueryColor(Display *display, Colormap colormap, - XColor *def_in_out); -/* 89 */ -EXTERN int XQueryColors(Display *display, Colormap colormap, - XColor *defs_in_out, int ncolors); -/* 90 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -/* 91 */ -EXTERN int XSync(Display *display, Bool discard); -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* 107 */ -EXTERN int XFlush(Display *display); -/* 108 */ -EXTERN int XGrabServer(Display *display); -/* 109 */ -EXTERN int XUngrabServer(Display *display); -/* 110 */ -EXTERN int XFree(void *data); -/* 111 */ -EXTERN int XNoOp(Display *display); -/* 112 */ -EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); -/* Slot 113 is reserved */ -/* 114 */ -EXTERN VisualID XVisualIDFromVisual(Visual *visual); -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* 137 */ -EXTERN int XPutImage(Display *d, Drawable dr, GC gc, XImage *im, - int sx, int sy, int dx, int dy, - unsigned int w, unsigned int h); -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif /* AQUA */ - -typedef struct TkIntXlibStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 7 */ - Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 8 */ - GContext (*xGContextFromGC) (GC g); /* 9 */ - XHostAddress * (*xListHosts) (Display *d, int *i, Bool *b); /* 10 */ - KeySym (*xKeycodeToKeysym) (Display *d, unsigned int k, int i); /* 11 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 12 */ - Window (*xRootWindow) (Display *d, int i); /* 13 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ - Status (*xIconifyWindow) (Display *d, Window w, int i); /* 15 */ - Status (*xWithdrawWindow) (Display *d, Window w, int i); /* 16 */ - Status (*xGetWMColormapWindows) (Display *d, Window w, Window **wpp, int *ip); /* 17 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 18 */ - int (*xBell) (Display *d, int i); /* 19 */ - int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 20 */ - int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 21 */ - int (*xClearWindow) (Display *d, Window w); /* 22 */ - int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 23 */ - int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ - int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 26 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 27 */ - int (*xDeleteProperty) (Display *d, Window w, Atom a); /* 28 */ - int (*xDestroyWindow) (Display *d, Window w); /* 29 */ - int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 31 */ - int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ - int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ - int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 34 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 35 */ - int (*xForceScreenSaver) (Display *d, int i); /* 36 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 37 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 38 */ - int (*xFreeCursor) (Display *d, Cursor c); /* 39 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 40 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 41 */ - int (*xGetInputFocus) (Display *d, Window *w, int *i); /* 42 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 43 */ - Status (*xGetWindowAttributes) (Display *d, Window w, XWindowAttributes *x); /* 44 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 47 */ - Status (*xLookupColor) (Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2); /* 48 */ - int (*xMapWindow) (Display *d, Window w); /* 49 */ - int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ - int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 51 */ - int (*xNextEvent) (Display *d, XEvent *x); /* 52 */ - int (*xPutBackEvent) (Display *d, XEvent *x); /* 53 */ - int (*xQueryColors) (Display *d, Colormap c, XColor *x, int i); /* 54 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 55 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 56 */ - int (*xRaiseWindow) (Display *d, Window w); /* 57 */ - int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 58 */ - int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ - int (*xSelectInput) (Display *d, Window w, long l); /* 60 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 61 */ - int (*xSetCommand) (Display *d, Window w, char **c, int i); /* 62 */ - int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 63 */ - int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 64 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 65 */ - int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 66 */ - int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 67 */ - int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 68 */ - int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 69 */ - int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 70 */ - int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 71 */ - Bool (*xTranslateCoordinates) (Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3); /* 72 */ - int (*xUngrabKeyboard) (Display *d, Time t); /* 73 */ - int (*xUngrabPointer) (Display *d, Time t); /* 74 */ - int (*xUnmapWindow) (Display *d, Window w); /* 75 */ - int (*xWindowEvent) (Display *d, Window w, long l, XEvent *x); /* 76 */ - void (*xDestroyIC) (XIC x); /* 77 */ - Bool (*xFilterEvent) (XEvent *x, Window w); /* 78 */ - int (*xmbLookupString) (XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s); /* 79 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ - void (*reserved81)(void); - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 82 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 83 */ - int (*xFreeGC) (Display *display, GC gc); /* 84 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 85 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 86 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 87 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 88 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 91 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 92 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 93 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 94 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 95 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 96 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 97 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 99 */ - XIC (*xCreateIC) (XIM xim, ...); /* 100 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 101 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 102 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 103 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ - int (*xWarpPointer) (Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ - int (*xFlush) (Display *display); /* 107 */ - int (*xGrabServer) (Display *display); /* 108 */ - int (*xUngrabServer) (Display *display); /* 109 */ - int (*xFree) (void *data); /* 110 */ - int (*xNoOp) (Display *display); /* 111 */ - XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ - int (*xSync) (Display *display, Bool discard); /* 113 */ - VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ - void (*reserved115)(void); - void (*reserved116)(void); - void (*reserved117)(void); - void (*reserved118)(void); - void (*reserved119)(void); - int (*xOffsetRegion) (Region rgn, int dx, int dy); /* 120 */ - int (*xUnionRegion) (Region srca, Region srcb, Region dr_return); /* 121 */ - Window (*xCreateWindow) (Display *display, Window parent, int x, int y, unsigned int width, unsigned int height, unsigned int border_width, int depth, unsigned int clazz, Visual *visual, unsigned long value_mask, XSetWindowAttributes *attributes); /* 122 */ - void (*reserved123)(void); - void (*reserved124)(void); - void (*reserved125)(void); - void (*reserved126)(void); - void (*reserved127)(void); - void (*reserved128)(void); - int (*xLowerWindow) (Display *d, Window w); /* 129 */ - int (*xFillArcs) (Display *d, Drawable dr, GC gc, XArc *a, int n); /* 130 */ - int (*xDrawArcs) (Display *d, Drawable dr, GC gc, XArc *a, int n); /* 131 */ - int (*xDrawRectangles) (Display *d, Drawable dr, GC gc, XRectangle *r, int n); /* 132 */ - int (*xDrawSegments) (Display *d, Drawable dr, GC gc, XSegment *s, int n); /* 133 */ - int (*xDrawPoint) (Display *d, Drawable dr, GC gc, int x, int y); /* 134 */ - int (*xDrawPoints) (Display *d, Drawable dr, GC gc, XPoint *p, int n, int m); /* 135 */ - int (*xReparentWindow) (Display *d, Window w, Window p, int x, int y); /* 136 */ - int (*xPutImage) (Display *d, Drawable dr, GC gc, XImage *im, int sx, int sy, int dx, int dy, unsigned int w, unsigned int h); /* 137 */ - void (*reserved138)(void); - void (*reserved139)(void); - void (*reserved140)(void); - void (*reserved141)(void); - void (*reserved142)(void); - void (*reserved143)(void); - void (*reserved144)(void); - void (*reserved145)(void); - void (*reserved146)(void); - void (*reserved147)(void); - void (*reserved148)(void); - void (*reserved149)(void); - void (*reserved150)(void); - void (*reserved151)(void); - void (*reserved152)(void); - void (*reserved153)(void); - void (*reserved154)(void); - void (*reserved155)(void); - void (*reserved156)(void); - void (*reserved157)(void); - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - GContext (*xGContextFromGC) (GC g); /* 7 */ - KeySym (*xKeycodeToKeysym) (Display *d, KeyCode k, int i); /* 8 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 9 */ - Window (*xRootWindow) (Display *d, int i); /* 10 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 12 */ - int (*xBell) (Display *d, int i); /* 13 */ - int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 14 */ - int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 15 */ - int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 16 */ - int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ - int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 19 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 20 */ - int (*xDestroyWindow) (Display *d, Window w); /* 21 */ - int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 23 */ - int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ - int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ - int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 26 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 27 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 28 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 29 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 30 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 31 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 32 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 35 */ - int (*xMapWindow) (Display *d, Window w); /* 36 */ - int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ - int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 38 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 39 */ - int (*xRaiseWindow) (Display *d, Window w); /* 40 */ - int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 41 */ - int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ - int (*xSelectInput) (Display *d, Window w, long l); /* 43 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 44 */ - int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 45 */ - int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 46 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 47 */ - int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 48 */ - int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 49 */ - int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 50 */ - int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 51 */ - int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 52 */ - int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 53 */ - int (*xUngrabKeyboard) (Display *d, Time t); /* 54 */ - int (*xUngrabPointer) (Display *d, Time t); /* 55 */ - int (*xUnmapWindow) (Display *d, Window w); /* 56 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 58 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 59 */ - int (*xFreeGC) (Display *display, GC gc); /* 60 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 61 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 62 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 63 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 64 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 67 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 68 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 69 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 70 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 71 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 72 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 73 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 75 */ - XIC (*xCreateIC) (XIM xim, ...); /* 76 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 77 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 78 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 79 */ - int (*xDrawSegments) (Display *display, Drawable d, GC gc, XSegment *segments, int nsegments); /* 80 */ - int (*xForceScreenSaver) (Display *display, int mode); /* 81 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ - int (*xClearWindow) (Display *d, Window w); /* 84 */ - int (*xDrawPoint) (Display *display, Drawable d, GC gc, int x, int y); /* 85 */ - int (*xDrawPoints) (Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode); /* 86 */ - int (*xWarpPointer) (Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ - int (*xQueryColor) (Display *display, Colormap colormap, XColor *def_in_out); /* 88 */ - int (*xQueryColors) (Display *display, Colormap colormap, XColor *defs_in_out, int ncolors); /* 89 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 90 */ - int (*xSync) (Display *display, Bool discard); /* 91 */ - void (*reserved92)(void); - void (*reserved93)(void); - void (*reserved94)(void); - void (*reserved95)(void); - void (*reserved96)(void); - void (*reserved97)(void); - void (*reserved98)(void); - void (*reserved99)(void); - void (*reserved100)(void); - void (*reserved101)(void); - void (*reserved102)(void); - void (*reserved103)(void); - void (*reserved104)(void); - void (*reserved105)(void); - void (*reserved106)(void); - int (*xFlush) (Display *display); /* 107 */ - int (*xGrabServer) (Display *display); /* 108 */ - int (*xUngrabServer) (Display *display); /* 109 */ - int (*xFree) (void *data); /* 110 */ - int (*xNoOp) (Display *display); /* 111 */ - XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ - void (*reserved113)(void); - VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ - void (*reserved115)(void); - void (*reserved116)(void); - void (*reserved117)(void); - void (*reserved118)(void); - void (*reserved119)(void); - void (*reserved120)(void); - void (*reserved121)(void); - void (*reserved122)(void); - void (*reserved123)(void); - void (*reserved124)(void); - void (*reserved125)(void); - void (*reserved126)(void); - void (*reserved127)(void); - void (*reserved128)(void); - void (*reserved129)(void); - void (*reserved130)(void); - void (*reserved131)(void); - void (*reserved132)(void); - void (*reserved133)(void); - void (*reserved134)(void); - void (*reserved135)(void); - void (*reserved136)(void); - int (*xPutImage) (Display *d, Drawable dr, GC gc, XImage *im, int sx, int sy, int dx, int dy, unsigned int w, unsigned int h); /* 137 */ - void (*reserved138)(void); - void (*reserved139)(void); - void (*reserved140)(void); - void (*reserved141)(void); - void (*reserved142)(void); - void (*reserved143)(void); - void (*reserved144)(void); - void (*reserved145)(void); - void (*reserved146)(void); - void (*reserved147)(void); - void (*reserved148)(void); - void (*reserved149)(void); - void (*reserved150)(void); - void (*reserved151)(void); - void (*reserved152)(void); - void (*reserved153)(void); - void (*reserved154)(void); - void (*reserved155)(void); - void (*reserved156)(void); - void (*reserved157)(void); - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* AQUA */ -} TkIntXlibStubs; - -extern const TkIntXlibStubs *tkIntXlibStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#define XCreatePixmapCursor \ - (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ -#define XCreateGlyphCursor \ - (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ -#define XListHosts \ - (tkIntXlibStubsPtr->xListHosts) /* 10 */ -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 13 */ -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ -#define XIconifyWindow \ - (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ -#define XWithdrawWindow \ - (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ -#define XGetWMColormapWindows \ - (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 18 */ -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 19 */ -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 22 */ -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 24 */ -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ -#define XDeleteProperty \ - (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 30 */ -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 31 */ -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 33 */ -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 38 */ -#define XFreeCursor \ - (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ -#define XGetInputFocus \ - (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ -#define XGetWindowAttributes \ - (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ -#define XLookupColor \ - (tkIntXlibStubsPtr->xLookupColor) /* 48 */ -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 49 */ -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ -#define XNextEvent \ - (tkIntXlibStubsPtr->xNextEvent) /* 52 */ -#define XPutBackEvent \ - (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 54 */ -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 56 */ -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 60 */ -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 61 */ -#define XSetCommand \ - (tkIntXlibStubsPtr->xSetCommand) /* 62 */ -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 63 */ -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ -#define XTranslateCoordinates \ - (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ -#define XWindowEvent \ - (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ -#define XDestroyIC \ - (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ -#define XFilterEvent \ - (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ -#define XmbLookupString \ - (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 80 */ -/* Slot 81 is reserved */ -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 82 */ -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 83 */ -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 84 */ -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 85 */ -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 86 */ -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 87 */ -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 91 */ -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 92 */ -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 94 */ -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 97 */ -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 100 */ -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 104 */ -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ -#define XFlush \ - (tkIntXlibStubsPtr->xFlush) /* 107 */ -#define XGrabServer \ - (tkIntXlibStubsPtr->xGrabServer) /* 108 */ -#define XUngrabServer \ - (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ -#define XFree \ - (tkIntXlibStubsPtr->xFree) /* 110 */ -#define XNoOp \ - (tkIntXlibStubsPtr->xNoOp) /* 111 */ -#define XSynchronize \ - (tkIntXlibStubsPtr->xSynchronize) /* 112 */ -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 113 */ -#define XVisualIDFromVisual \ - (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -#define XOffsetRegion \ - (tkIntXlibStubsPtr->xOffsetRegion) /* 120 */ -#define XUnionRegion \ - (tkIntXlibStubsPtr->xUnionRegion) /* 121 */ -#define XCreateWindow \ - (tkIntXlibStubsPtr->xCreateWindow) /* 122 */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -#define XLowerWindow \ - (tkIntXlibStubsPtr->xLowerWindow) /* 129 */ -#define XFillArcs \ - (tkIntXlibStubsPtr->xFillArcs) /* 130 */ -#define XDrawArcs \ - (tkIntXlibStubsPtr->xDrawArcs) /* 131 */ -#define XDrawRectangles \ - (tkIntXlibStubsPtr->xDrawRectangles) /* 132 */ -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 133 */ -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 134 */ -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 135 */ -#define XReparentWindow \ - (tkIntXlibStubsPtr->xReparentWindow) /* 136 */ -#define XPutImage \ - (tkIntXlibStubsPtr->xPutImage) /* 137 */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 91 */ -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -#define XFlush \ - (tkIntXlibStubsPtr->xFlush) /* 107 */ -#define XGrabServer \ - (tkIntXlibStubsPtr->xGrabServer) /* 108 */ -#define XUngrabServer \ - (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ -#define XFree \ - (tkIntXlibStubsPtr->xFree) /* 110 */ -#define XNoOp \ - (tkIntXlibStubsPtr->xNoOp) /* 111 */ -#define XSynchronize \ - (tkIntXlibStubsPtr->xSynchronize) /* 112 */ -/* Slot 113 is reserved */ -#define XVisualIDFromVisual \ - (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -#define XPutImage \ - (tkIntXlibStubsPtr->xPutImage) /* 137 */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TkUnusedStubEntry - -#endif /* _TKINTXLIBDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkPlatDecls.h deleted file mode 100644 index 1e69c8839..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkPlatDecls.h +++ /dev/null @@ -1,176 +0,0 @@ -/* - * tkPlatDecls.h -- - * - * Declarations of functions in the platform-specific public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPLATDECLS -#define _TKPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN Window Tk_AttachHWND(Tk_Window tkwin, HWND hwnd); -/* 1 */ -EXTERN HINSTANCE Tk_GetHINSTANCE(void); -/* 2 */ -EXTERN HWND Tk_GetHWND(Window window); -/* 3 */ -EXTERN Tk_Window Tk_HWNDToWindow(HWND hwnd); -/* 4 */ -EXTERN void Tk_PointerEvent(HWND hwnd, int x, int y); -/* 5 */ -EXTERN int Tk_TranslateWinEvent(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam, - LRESULT *result); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 0 */ -EXTERN void Tk_MacOSXSetEmbedHandler( - Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, - Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, - Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, - Tk_MacOSXEmbedGetClipProc *getClipProc, - Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); -/* 1 */ -EXTERN void Tk_MacOSXTurnOffMenus(void); -/* 2 */ -EXTERN void Tk_MacOSXTkOwnsCursor(int tkOwnsIt); -/* 3 */ -EXTERN void TkMacOSXInitMenus(Tcl_Interp *interp); -/* 4 */ -EXTERN void TkMacOSXInitAppleEvents(Tcl_Interp *interp); -/* 5 */ -EXTERN void TkGenWMConfigureEvent(Tk_Window tkwin, int x, int y, - int width, int height, int flags); -/* 6 */ -EXTERN void TkMacOSXInvalClipRgns(Tk_Window tkwin); -/* 7 */ -EXTERN void * TkMacOSXGetDrawablePort(Drawable drawable); -/* 8 */ -EXTERN void * TkMacOSXGetRootControl(Drawable drawable); -/* 9 */ -EXTERN void Tk_MacOSXSetupTkNotifier(void); -/* 10 */ -EXTERN int Tk_MacOSXIsAppInFront(void); -#endif /* AQUA */ - -typedef struct TkPlatStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ - HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ - HWND (*tk_GetHWND) (Window window); /* 2 */ - Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ - void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ - int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result); /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); /* 0 */ - void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ - void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ - void (*tkMacOSXInitMenus) (Tcl_Interp *interp); /* 3 */ - void (*tkMacOSXInitAppleEvents) (Tcl_Interp *interp); /* 4 */ - void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ - void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ - void * (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ - void * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ - void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ - int (*tk_MacOSXIsAppInFront) (void); /* 10 */ -#endif /* AQUA */ -} TkPlatStubs; - -extern const TkPlatStubs *tkPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define Tk_AttachHWND \ - (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ -#define Tk_GetHINSTANCE \ - (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ -#define Tk_GetHWND \ - (tkPlatStubsPtr->tk_GetHWND) /* 2 */ -#define Tk_HWNDToWindow \ - (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ -#define Tk_PointerEvent \ - (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ -#define Tk_TranslateWinEvent \ - (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#define Tk_MacOSXSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ -#define Tk_MacOSXTurnOffMenus \ - (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ -#define Tk_MacOSXTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ -#define TkMacOSXInitMenus \ - (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ -#define TkMacOSXInitAppleEvents \ - (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ -#define TkMacOSXInvalClipRgns \ - (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ -#define TkMacOSXGetDrawablePort \ - (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ -#define TkMacOSXGetRootControl \ - (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ -#define Tk_MacOSXSetupTkNotifier \ - (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ -#define Tk_MacOSXIsAppInFront \ - (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#ifdef __cplusplus -} -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkPort.h deleted file mode 100644 index d6db449ec..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkPort.h +++ /dev/null @@ -1,31 +0,0 @@ -/* - * tkPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPORT -#define _TKPORT - -#if defined(_WIN32) -# include "tkWinPort.h" -#endif -#ifndef _TK -# include "tk.h" -#endif -#if !defined(_WIN32) -# if defined(MAC_OSX_TK) -# include "tkMacOSXPort.h" -# else -# include "tkUnixPort.h" -# endif -#endif - -#endif /* _TKPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWin.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWin.h deleted file mode 100644 index 4d278d791..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWin.h +++ /dev/null @@ -1,81 +0,0 @@ -/* - * tkWin.h -- - * - * Declarations of public types and interfaces that are only - * available under Windows. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWIN -#define _TKWIN - -/* - * We must specify the lower version we intend to support. In particular - * the SystemParametersInfo API doesn't like to receive structures that - * are larger than it expects which affects the font assignments. - * - * WINVER = 0x0500 means Windows 2000 and above - */ - -#ifndef WINVER -#define WINVER 0x0500 -#endif -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif - -#ifndef _TK -#include -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -/* - * The following messages are used to communicate between a Tk toplevel - * and its container window. A Tk container may not be able to provide - * service to all of the following requests at the moment. But an embedded - * Tk window will send out these requests to support external Tk container - * application. - */ - -#define TK_CLAIMFOCUS (WM_USER) /* an embedded window requests to focus */ -#define TK_GEOMETRYREQ (WM_USER+1) /* an embedded window requests to change size */ -#define TK_ATTACHWINDOW (WM_USER+2) /* an embedded window requests to attach */ -#define TK_DETACHWINDOW (WM_USER+3) /* an embedded window requests to detach */ -#define TK_MOVEWINDOW (WM_USER+4) /* an embedded window requests to move */ -#define TK_RAISEWINDOW (WM_USER+5) /* an embedded window requests to raise */ -#define TK_ICONIFY (WM_USER+6) /* an embedded window requests to iconify */ -#define TK_DEICONIFY (WM_USER+7) /* an embedded window requests to deiconify */ -#define TK_WITHDRAW (WM_USER+8) /* an embedded window requests to withdraw */ -#define TK_GETFRAMEWID (WM_USER+9) /* an embedded window requests a frame window id */ -#define TK_OVERRIDEREDIRECT (WM_USER+10) /* an embedded window requests to overrideredirect */ -#define TK_SETMENU (WM_USER+11) /* an embedded window requests to setup menu */ -#define TK_STATE (WM_USER+12) /* an embedded window sets/gets state */ -#define TK_INFO (WM_USER+13) /* an embedded window requests a container's info */ - -/* - * The following are sub-messages (wParam) for TK_INFO. An embedded window may - * send a TK_INFO message with one of the sub-messages to query a container - * for verification and availability - */ -#define TK_CONTAINER_VERIFY 0x01 -#define TK_CONTAINER_ISAVAILABLE 0x02 - - -/* - *-------------------------------------------------------------- - * - * Exported procedures defined for the Windows platform only. - * - *-------------------------------------------------------------- - */ - -#include "tkPlatDecls.h" - -#endif /* _TKWIN */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWinInt.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWinInt.h deleted file mode 100644 index ef4f1bd74..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWinInt.h +++ /dev/null @@ -1,244 +0,0 @@ -/* - * tkWinInt.h -- - * - * This file contains declarations that are shared among the - * Windows-specific parts of Tk, but aren't used by the rest of Tk. - * - * Copyright (c) 1995-1997 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWININT -#define _TKWININT - -#ifndef _TKINT -#include "tkInt.h" -#endif - -/* - * Include platform specific public interfaces. - */ - -#ifndef _TKWIN -#include "tkWin.h" -#endif - -/* - * Define constants missing from older Win32 SDK header files. - */ - -#ifndef WS_EX_TOOLWINDOW -#define WS_EX_TOOLWINDOW 0x00000080L -#endif -#ifndef SPI_SETKEYBOARDCUES -#define SPI_SETKEYBOARDCUES 0x100B -#endif - -/* - * The TkWinDCState is used to save the state of a device context so that it - * can be restored later. - */ - -typedef struct TkWinDCState { - HPALETTE palette; - int bkmode; -} TkWinDCState; - -/* - * The TkWinDrawable is the internal implementation of an X Drawable (either a - * Window or a Pixmap). The following constants define the valid Drawable - * types. - */ - -#define TWD_BITMAP 1 -#define TWD_WINDOW 2 -#define TWD_WINDC 3 - -typedef struct { - int type; - HWND handle; - TkWindow *winPtr; -} TkWinWindow; - -typedef struct { - int type; - HBITMAP handle; - Colormap colormap; - int depth; -} TkWinBitmap; - -typedef struct { - int type; - HDC hdc; -}TkWinDC; - -typedef union { - int type; - TkWinWindow window; - TkWinBitmap bitmap; - TkWinDC winDC; -} TkWinDrawable; - -/* - * The following macros are used to retrieve internal values from a Drawable. - */ - -#define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle) -#define TkWinGetWinPtr(w) (((TkWinDrawable *) w)->window.winPtr) -#define TkWinGetHBITMAP(w) (((TkWinDrawable *) w)->bitmap.handle) -#define TkWinGetColormap(w) (((TkWinDrawable *) w)->bitmap.colormap) -#define TkWinGetHDC(w) (((TkWinDrawable *) w)->winDC.hdc) - -/* - * The following structure is used to encapsulate palette information. - */ - -typedef struct { - HPALETTE palette; /* Palette handle used when drawing. */ - UINT size; /* Number of entries in the palette. */ - int stale; /* 1 if palette needs to be realized, - * otherwise 0. If the palette is stale, then - * an idle handler is scheduled to realize the - * palette. */ - Tcl_HashTable refCounts; /* Hash table of palette entry reference - * counts indexed by pixel value. */ -} TkWinColormap; - -/* - * The following macro retrieves the Win32 palette from a colormap. - */ - -#define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette) - -/* - * The following macros define the class names for Tk Window types. - */ - -#define TK_WIN_TOPLEVEL_CLASS_NAME L"TkTopLevel" -#define TK_WIN_CHILD_CLASS_NAME L"TkChild" - -/* - * The following variable is a translation table between X gc functions and - * Win32 raster and BitBlt op modes. - */ - -MODULE_SCOPE const int tkpWinRopModes[]; -MODULE_SCOPE const int tkpWinBltModes[]; - -/* - * The following defines are used with TkWinGetBorderPixels to get the extra 2 - * border colors from a Tk_3DBorder. - */ - -#define TK_3D_LIGHT2 TK_3D_DARK_GC+1 -#define TK_3D_DARK2 TK_3D_DARK_GC+2 - -/* - * Internal functions used by more than one source file. - */ - -#include "tkIntPlatDecls.h" - -/* - * Special proc needed as tsd accessor function between - * tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard - */ - -MODULE_SCOPE void TkWinUpdatingClipboard(int mode); - -/* - * Used by tkWinDialog.c to associate the right icon with tk_messageBox - */ - -MODULE_SCOPE HICON TkWinGetIcon(Tk_Window tkw, DWORD iconsize); - -/* - * Used by tkWinX.c on for certain system display change messages and cleanup - * up containers - */ - -MODULE_SCOPE void TkWinDisplayChanged(Display *display); -MODULE_SCOPE void TkWinCleanupContainerList(void); - -/* - * Used by tkWinWm.c for embedded menu handling. May become public. - */ - -MODULE_SCOPE HWND Tk_GetMenuHWND(Tk_Window tkwin); -MODULE_SCOPE HWND Tk_GetEmbeddedMenuHWND(Tk_Window tkwin); - -/* - * The following allows us to cache these encoding for multiple functions. - */ - - -MODULE_SCOPE Tcl_Encoding TkWinGetKeyInputEncoding(void); -MODULE_SCOPE Tcl_Encoding TkWinGetUnicodeEncoding(void); -MODULE_SCOPE void TkWinSetupSystemFonts(TkMainInfo *mainPtr); - -/* - * Values returned by TkWinGetPlatformTheme. - */ - -#define TK_THEME_WIN_CLASSIC 1 -#define TK_THEME_WIN_XP 2 - -/* - * The following is implemented in tkWinWm and used by tkWinEmbed.c - */ - -MODULE_SCOPE void TkpWinToplevelWithDraw(TkWindow *winPtr); -MODULE_SCOPE void TkpWinToplevelIconify(TkWindow *winPtr); -MODULE_SCOPE void TkpWinToplevelDeiconify(TkWindow *winPtr); -MODULE_SCOPE long TkpWinToplevelIsControlledByWm(TkWindow *winPtr); -MODULE_SCOPE long TkpWinToplevelMove(TkWindow *winPtr, int x, int y); -MODULE_SCOPE long TkpWinToplevelOverrideRedirect(TkWindow *winPtr, - int reqValue); -MODULE_SCOPE void TkpWinToplevelDetachWindow(TkWindow *winPtr); -MODULE_SCOPE int TkpWmGetState(TkWindow *winPtr); - -/* - * The following is implemented in tkWinPointer.c and also used in tkWinWindow.c - */ - -MODULE_SCOPE void TkSetCursorPos(int x, int y); - -/* - * Common routines used in Windows implementation - */ -MODULE_SCOPE Tcl_Obj * TkWin32ErrorObj(HRESULT hrError); - - -/* - * The following functions are not present in old versions of Windows - * API headers but are used in the Tk source to ensure 64bit - * compatibility. - */ - -#ifndef GetClassLongPtr -# define GetClassLongPtrW GetClassLongW -# define SetClassLongPtrW SetClassLongW -#endif /* !GetClassLongPtr */ -#ifndef GCLP_HICON -# define GCLP_HICON GCL_HICON -#endif /* !GCLP_HICON */ -#ifndef GCLP_HICONSM -# define GCLP_HICONSM (-34) -#endif /* !GCLP_HICONSM */ - -#ifndef GetWindowLongPtr -# define GetWindowLongPtrW GetWindowLongW -# define SetWindowLongPtrW SetWindowLongW -#endif /* !GetWindowLongPtr */ -#ifndef GWLP_WNDPROC -#define GWLP_WNDPROC GWL_WNDPROC -#define GWLP_HINSTANCE GWL_HINSTANCE -#define GWLP_HWNDPARENT GWL_HWNDPARENT -#define GWLP_USERDATA GWL_USERDATA -#define GWLP_ID GWL_ID -#endif /* !GWLP_WNDPROC */ - -#endif /* _TKWININT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWinPort.h deleted file mode 100644 index 8cc56778d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/include/tkWinPort.h +++ /dev/null @@ -1,128 +0,0 @@ -/* - * tkWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1995-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _WINPORT -#define _WINPORT - -/* - *--------------------------------------------------------------------------- - * The following sets of #includes and #ifdefs are required to get Tcl to - * compile under the windows compilers. - *--------------------------------------------------------------------------- - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* - * Need to block out this include for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#endif - -#include - -#ifdef _MSC_VER -# ifndef hypot -# define hypot _hypot -# endif -#endif /* _MSC_VER */ - -/* - * Pull in the typedef of TCHAR for windows. - */ -#include -#ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -#endif -#if defined(_MSC_VER) && defined(__STDC__) - /* VS2005 SP1 misses this. See [Bug #3110161] */ - typedef _TCHAR TCHAR; -#endif - -#include -#include -#include -#include -#include - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -#define NBBY 8 - -#ifndef OPEN_MAX -#define OPEN_MAX 32 -#endif - -/* - * The following define causes Tk to use its internal keysym hash table - */ - -#define REDO_KEYSYM_LOOKUP - -/* - * See ticket [916c1095438eae56]: GetVersionExW triggers warnings - */ -#if defined(_MSC_VER) -# pragma warning(disable:4267) -# pragma warning(disable:4244) -# pragma warning(disable:4311) -# pragma warning(disable:4312) -# pragma warning(disable:4996) -#endif - -/* - * The following macro checks to see whether there is buffered - * input data available for a stdio FILE. - */ - -#ifdef _MSC_VER -# define TK_READ_DATA_PENDING(f) ((f)->_cnt > 0) -#else /* _MSC_VER */ -# define TK_READ_DATA_PENDING(f) ((f)->level > 0) -#endif /* _MSC_VER */ - -/* - * The following Tk functions are implemented as macros under Windows. - */ - -#define TkpGetPixel(p) (((((p)->red >> 8) & 0xff) \ - | ((p)->green & 0xff00) | (((p)->blue << 8) & 0xff0000)) | 0x20000000) - -/* - * These calls implement native bitmaps which are not currently - * supported under Windows. The macros eliminate the calls. - */ - -#define TkpDefineNativeBitmaps() -#define TkpCreateNativeBitmap(display, source) None -#define TkpGetNativeAppBitmap(display, name, w, h) None - -#endif /* _WINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/lib/tclstub86.lib b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/lib/tclstub86.lib deleted file mode 100644 index ca0d75098..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/lib/tclstub86.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/lib/tkstub86.lib b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/lib/tkstub86.lib deleted file mode 100644 index 4b3f97c7a..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk/lib/tkstub86.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/DECkeysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/DECkeysym.h deleted file mode 100644 index d9e23c4be..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/DECkeysym.h +++ /dev/null @@ -1,65 +0,0 @@ -/*********************************************************** - -Copyright 1988, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from The Open Group. - - -Copyright 1988 by Digital Equipment Corporation, Maynard, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the name of Digital not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* - * DEC private keysyms - * (29th bit set) - */ - -/* two-key compose sequence initiators, chosen to map to Latin1 characters */ - -#define DXK_ring_accent 0x1000FEB0 -#define DXK_circumflex_accent 0x1000FE5E -#define DXK_cedilla_accent 0x1000FE2C -#define DXK_acute_accent 0x1000FE27 -#define DXK_grave_accent 0x1000FE60 -#define DXK_tilde 0x1000FE7E -#define DXK_diaeresis 0x1000FE22 - -/* special keysym for LK2** "Remove" key on editing keypad */ - -#define DXK_Remove 0x1000FF00 /* Remove */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/HPkeysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/HPkeysym.h deleted file mode 100644 index 4a0655a23..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/HPkeysym.h +++ /dev/null @@ -1,164 +0,0 @@ -/* - -Copyright 1987, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included -in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall -not be used in advertising or otherwise to promote the sale, use or -other dealings in this Software without prior written authorization -from The Open Group. - -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Hewlett Packard -or Digital not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -HEWLETT-PACKARD MAKES NO WARRANTY OF ANY KIND WITH REGARD -TO THIS SOFWARE, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. Hewlett-Packard shall not be liable for errors -contained herein or direct, indirect, special, incidental or -consequential damages in connection with the furnishing, -performance, or use of this material. - -*/ - -#ifndef _HPKEYSYM_H - -#define _HPKEYSYM_H - -#define hpXK_ClearLine 0x1000FF6F -#define hpXK_InsertLine 0x1000FF70 -#define hpXK_DeleteLine 0x1000FF71 -#define hpXK_InsertChar 0x1000FF72 -#define hpXK_DeleteChar 0x1000FF73 -#define hpXK_BackTab 0x1000FF74 -#define hpXK_KP_BackTab 0x1000FF75 -#define hpXK_Modelock1 0x1000FF48 -#define hpXK_Modelock2 0x1000FF49 -#define hpXK_Reset 0x1000FF6C -#define hpXK_System 0x1000FF6D -#define hpXK_User 0x1000FF6E -#define hpXK_mute_acute 0x100000A8 -#define hpXK_mute_grave 0x100000A9 -#define hpXK_mute_asciicircum 0x100000AA -#define hpXK_mute_diaeresis 0x100000AB -#define hpXK_mute_asciitilde 0x100000AC -#define hpXK_lira 0x100000AF -#define hpXK_guilder 0x100000BE -#define hpXK_Ydiaeresis 0x100000EE -#define hpXK_IO 0x100000EE -#define hpXK_longminus 0x100000F6 -#define hpXK_block 0x100000FC - - -#ifndef _OSF_Keysyms -#define _OSF_Keysyms - -#define osfXK_Copy 0x1004FF02 -#define osfXK_Cut 0x1004FF03 -#define osfXK_Paste 0x1004FF04 -#define osfXK_BackTab 0x1004FF07 -#define osfXK_BackSpace 0x1004FF08 -#define osfXK_Clear 0x1004FF0B -#define osfXK_Escape 0x1004FF1B -#define osfXK_AddMode 0x1004FF31 -#define osfXK_PrimaryPaste 0x1004FF32 -#define osfXK_QuickPaste 0x1004FF33 -#define osfXK_PageLeft 0x1004FF40 -#define osfXK_PageUp 0x1004FF41 -#define osfXK_PageDown 0x1004FF42 -#define osfXK_PageRight 0x1004FF43 -#define osfXK_Activate 0x1004FF44 -#define osfXK_MenuBar 0x1004FF45 -#define osfXK_Left 0x1004FF51 -#define osfXK_Up 0x1004FF52 -#define osfXK_Right 0x1004FF53 -#define osfXK_Down 0x1004FF54 -#define osfXK_EndLine 0x1004FF57 -#define osfXK_BeginLine 0x1004FF58 -#define osfXK_EndData 0x1004FF59 -#define osfXK_BeginData 0x1004FF5A -#define osfXK_PrevMenu 0x1004FF5B -#define osfXK_NextMenu 0x1004FF5C -#define osfXK_PrevField 0x1004FF5D -#define osfXK_NextField 0x1004FF5E -#define osfXK_Select 0x1004FF60 -#define osfXK_Insert 0x1004FF63 -#define osfXK_Undo 0x1004FF65 -#define osfXK_Menu 0x1004FF67 -#define osfXK_Cancel 0x1004FF69 -#define osfXK_Help 0x1004FF6A -#define osfXK_SelectAll 0x1004FF71 -#define osfXK_DeselectAll 0x1004FF72 -#define osfXK_Reselect 0x1004FF73 -#define osfXK_Extend 0x1004FF74 -#define osfXK_Restore 0x1004FF78 -#define osfXK_Delete 0x1004FFFF - -#endif /* _OSF_Keysyms */ - - -/************************************************************** - * The use of the following macros is deprecated. - * They are listed below only for backwards compatibility. - */ -#define XK_Reset 0x1000FF6C -#define XK_System 0x1000FF6D -#define XK_User 0x1000FF6E -#define XK_ClearLine 0x1000FF6F -#define XK_InsertLine 0x1000FF70 -#define XK_DeleteLine 0x1000FF71 -#define XK_InsertChar 0x1000FF72 -#define XK_DeleteChar 0x1000FF73 -#define XK_BackTab 0x1000FF74 -#define XK_KP_BackTab 0x1000FF75 -#define XK_Ext16bit_L 0x1000FF76 -#define XK_Ext16bit_R 0x1000FF77 -#define XK_mute_acute 0x100000a8 -#define XK_mute_grave 0x100000a9 -#define XK_mute_asciicircum 0x100000aa -#define XK_mute_diaeresis 0x100000ab -#define XK_mute_asciitilde 0x100000ac -#define XK_lira 0x100000af -#define XK_guilder 0x100000be -#ifndef XK_Ydiaeresis -#define XK_Ydiaeresis 0x100000ee -#endif -#define XK_IO 0x100000ee -#define XK_longminus 0x100000f6 -#define XK_block 0x100000fc - -#endif /* _HPKEYSYM_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Sunkeysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Sunkeysym.h deleted file mode 100644 index 78d1286bb..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Sunkeysym.h +++ /dev/null @@ -1,106 +0,0 @@ -/* - * Copyright (c) 1991, Oracle and/or its affiliates. All rights reserved. - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice (including the next - * paragraph) shall be included in all copies or substantial portions of the - * Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - */ -/************************************************************ - -Copyright 1991, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from The Open Group. - -***********************************************************/ - -/* - * Floating Accent - */ - -#define SunXK_FA_Grave 0x1005FF00 -#define SunXK_FA_Circum 0x1005FF01 -#define SunXK_FA_Tilde 0x1005FF02 -#define SunXK_FA_Acute 0x1005FF03 -#define SunXK_FA_Diaeresis 0x1005FF04 -#define SunXK_FA_Cedilla 0x1005FF05 - -/* - * Miscellaneous Functions - */ - -#define SunXK_F36 0x1005FF10 /* Labeled F11 */ -#define SunXK_F37 0x1005FF11 /* Labeled F12 */ - -#define SunXK_Sys_Req 0x1005FF60 -#define SunXK_Print_Screen 0x0000FF61 /* Same as XK_Print */ - -/* - * International & Multi-Key Character Composition - */ - -#define SunXK_Compose 0x0000FF20 /* Same as XK_Multi_key */ -#define SunXK_AltGraph 0x0000FF7E /* Same as XK_Mode_switch */ - -/* - * Cursor Control - */ - -#define SunXK_PageUp 0x0000FF55 /* Same as XK_Prior */ -#define SunXK_PageDown 0x0000FF56 /* Same as XK_Next */ - -/* - * Open Look Functions - */ - -#define SunXK_Undo 0x0000FF65 /* Same as XK_Undo */ -#define SunXK_Again 0x0000FF66 /* Same as XK_Redo */ -#define SunXK_Find 0x0000FF68 /* Same as XK_Find */ -#define SunXK_Stop 0x0000FF69 /* Same as XK_Cancel */ -#define SunXK_Props 0x1005FF70 -#define SunXK_Front 0x1005FF71 -#define SunXK_Copy 0x1005FF72 -#define SunXK_Open 0x1005FF73 -#define SunXK_Paste 0x1005FF74 -#define SunXK_Cut 0x1005FF75 - -#define SunXK_PowerSwitch 0x1005FF76 -#define SunXK_AudioLowerVolume 0x1005FF77 -#define SunXK_AudioMute 0x1005FF78 -#define SunXK_AudioRaiseVolume 0x1005FF79 -#define SunXK_VideoDegauss 0x1005FF7A -#define SunXK_VideoLowerBrightness 0x1005FF7B -#define SunXK_VideoRaiseBrightness 0x1005FF7C -#define SunXK_PowerSwitchShift 0x1005FF7D diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/X.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/X.h deleted file mode 100644 index c2c57afff..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/X.h +++ /dev/null @@ -1,686 +0,0 @@ -/* - * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ - */ - -/* Definitions for the X window system likely to be used by applications */ - -#ifndef X_H -#define X_H - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ -#define X_PROTOCOL 11 /* current protocol version */ -#define X_PROTOCOL_REVISION 0 /* current minor version */ - -#if defined(MAC_OSX_TK) -# define Cursor XCursor -# define Region XRegion -#endif - -/* Resources */ - -#ifdef _WIN64 -typedef unsigned __int64 XID; -#else -typedef unsigned long XID; -#endif - -typedef XID Window; -typedef XID Drawable; -typedef XID Font; -typedef XID Pixmap; -typedef XID Cursor; -typedef XID Colormap; -typedef XID GContext; -typedef XID KeySym; - -typedef unsigned long Mask; - -typedef unsigned long Atom; - -typedef unsigned long VisualID; - -typedef unsigned long Time; - -typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs - * to pack 3 bytes into the keyCode field in - * the XEvent. In the real X.h, a KeyCode is - * defined as a short, which wouldn't be big - * enough. */ - -/***************************************************************** - * RESERVED RESOURCE AND CONSTANT DEFINITIONS - *****************************************************************/ - -#ifndef _WIN32 -# define None 0L /* See bug [9e31fd9449] and below */ -#endif - -#define ParentRelative 1L /* background pixmap in CreateWindow - and ChangeWindowAttributes */ - -#define CopyFromParent 0L /* border pixmap in CreateWindow - and ChangeWindowAttributes - special VisualID and special window - class passed to CreateWindow */ - -#define PointerWindow 0L /* destination window in SendEvent */ -#define InputFocus 1L /* destination window in SendEvent */ - -#define PointerRoot 1L /* focus window in SetInputFocus */ - -#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ - -#define AnyKey 0L /* special Key Code, passed to GrabKey */ - -#define AnyButton 0L /* special Button Code, passed to GrabButton */ - -#define AllTemporary 0L /* special Resource ID passed to KillClient */ - -#define CurrentTime 0L /* special Time */ - -#define NoSymbol 0L /* special KeySym */ - -/***************************************************************** - * EVENT DEFINITIONS - *****************************************************************/ - -/* Input Event Masks. Used as event-mask window attribute and as arguments - to Grab requests. Not to be confused with event names. */ - -#define NoEventMask 0L -#define KeyPressMask (1L<<0) -#define KeyReleaseMask (1L<<1) -#define ButtonPressMask (1L<<2) -#define ButtonReleaseMask (1L<<3) -#define EnterWindowMask (1L<<4) -#define LeaveWindowMask (1L<<5) -#define PointerMotionMask (1L<<6) -#define PointerMotionHintMask (1L<<7) -#define Button1MotionMask (1L<<8) -#define Button2MotionMask (1L<<9) -#define Button3MotionMask (1L<<10) -#define Button4MotionMask (1L<<11) -#define Button5MotionMask (1L<<12) -#define ButtonMotionMask (1L<<13) -#define KeymapStateMask (1L<<14) -#define ExposureMask (1L<<15) -#define VisibilityChangeMask (1L<<16) -#define StructureNotifyMask (1L<<17) -#define ResizeRedirectMask (1L<<18) -#define SubstructureNotifyMask (1L<<19) -#define SubstructureRedirectMask (1L<<20) -#define FocusChangeMask (1L<<21) -#define PropertyChangeMask (1L<<22) -#define ColormapChangeMask (1L<<23) -#define OwnerGrabButtonMask (1L<<24) - -/* Event names. Used in "type" field in XEvent structures. Not to be -confused with event masks above. They start from 2 because 0 and 1 -are reserved in the protocol for errors and replies. */ - -#define KeyPress 2 -#define KeyRelease 3 -#define ButtonPress 4 -#define ButtonRelease 5 -#define MotionNotify 6 -#define EnterNotify 7 -#define LeaveNotify 8 -#define FocusIn 9 -#define FocusOut 10 -#define KeymapNotify 11 -#define Expose 12 -#define GraphicsExpose 13 -#define NoExpose 14 -#define VisibilityNotify 15 -#define CreateNotify 16 -#define DestroyNotify 17 -#define UnmapNotify 18 -#define MapNotify 19 -#define MapRequest 20 -#define ReparentNotify 21 -#define ConfigureNotify 22 -#define ConfigureRequest 23 -#define GravityNotify 24 -#define ResizeRequest 25 -#define CirculateNotify 26 -#define CirculateRequest 27 -#define PropertyNotify 28 -#define SelectionClear 29 -#define SelectionRequest 30 -#define SelectionNotify 31 -#define ColormapNotify 32 -#define ClientMessage 33 -#define MappingNotify 34 -#define LASTEvent 35 /* must be bigger than any event # */ - - -/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, - state in various key-, mouse-, and button-related events. */ - -#define ShiftMask (1<<0) -#define LockMask (1<<1) -#ifndef _WIN32 -# define ControlMask (1<<2) /* See bug [9e31fd9449] and below */ -#endif -#define Mod1Mask (1<<3) -#define Mod2Mask (1<<4) -#define Mod3Mask (1<<5) -#define Mod4Mask (1<<6) -#define Mod5Mask (1<<7) - -/* See bug [9e31fd9449], this way prevents conflicts with Win32 headers */ -#ifdef _WIN32 -enum _Bug9e31fd9449 { None = 0, ControlMask = (1<<2) }; -#endif - -/* modifier names. Used to build a SetModifierMapping request or - to read a GetModifierMapping request. These correspond to the - masks defined above. */ -#define ShiftMapIndex 0 -#define LockMapIndex 1 -#define ControlMapIndex 2 -#define Mod1MapIndex 3 -#define Mod2MapIndex 4 -#define Mod3MapIndex 5 -#define Mod4MapIndex 6 -#define Mod5MapIndex 7 - - -/* button masks. Used in same manner as Key masks above. Not to be confused - with button names below. */ - -#define Button1Mask (1<<8) -#define Button2Mask (1<<9) -#define Button3Mask (1<<10) -#define Button4Mask (1<<11) -#define Button5Mask (1<<12) - -#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ - - -/* button names. Used as arguments to GrabButton and as detail in ButtonPress - and ButtonRelease events. Not to be confused with button masks above. - Note that 0 is already defined above as "AnyButton". */ - -#define Button1 1 -#define Button2 2 -#define Button3 3 -#define Button4 4 -#define Button5 5 - -/* Notify modes */ - -#define NotifyNormal 0 -#define NotifyGrab 1 -#define NotifyUngrab 2 -#define NotifyWhileGrabbed 3 - -#define NotifyHint 1 /* for MotionNotify events */ - -/* Notify detail */ - -#define NotifyAncestor 0 -#define NotifyVirtual 1 -#define NotifyInferior 2 -#define NotifyNonlinear 3 -#define NotifyNonlinearVirtual 4 -#define NotifyPointer 5 -#define NotifyPointerRoot 6 -#define NotifyDetailNone 7 - -/* Visibility notify */ - -#define VisibilityUnobscured 0 -#define VisibilityPartiallyObscured 1 -#define VisibilityFullyObscured 2 - -/* Circulation request */ - -#define PlaceOnTop 0 -#define PlaceOnBottom 1 - -/* protocol families */ - -#define FamilyInternet 0 -#define FamilyDECnet 1 -#define FamilyChaos 2 - -/* Property notification */ - -#define PropertyNewValue 0 -#define PropertyDelete 1 - -/* Color Map notification */ - -#define ColormapUninstalled 0 -#define ColormapInstalled 1 - -/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ - -#define GrabModeSync 0 -#define GrabModeAsync 1 - -/* GrabPointer, GrabKeyboard reply status */ - -#define GrabSuccess 0 -#define AlreadyGrabbed 1 -#define GrabInvalidTime 2 -#define GrabNotViewable 3 -#define GrabFrozen 4 - -/* AllowEvents modes */ - -#define AsyncPointer 0 -#define SyncPointer 1 -#define ReplayPointer 2 -#define AsyncKeyboard 3 -#define SyncKeyboard 4 -#define ReplayKeyboard 5 -#define AsyncBoth 6 -#define SyncBoth 7 - -/* Used in SetInputFocus, GetInputFocus */ - -#define RevertToNone (int)None -#define RevertToPointerRoot (int)PointerRoot -#define RevertToParent 2 - -/***************************************************************** - * ERROR CODES - *****************************************************************/ - -#define Success 0 /* everything's okay */ -#define BadRequest 1 /* bad request code */ -#define BadValue 2 /* int parameter out of range */ -#define BadWindow 3 /* parameter not a Window */ -#define BadPixmap 4 /* parameter not a Pixmap */ -#define BadAtom 5 /* parameter not an Atom */ -#define BadCursor 6 /* parameter not a Cursor */ -#define BadFont 7 /* parameter not a Font */ -#define BadMatch 8 /* parameter mismatch */ -#define BadDrawable 9 /* parameter not a Pixmap or Window */ -#define BadAccess 10 /* depending on context: - - key/button already grabbed - - attempt to free an illegal - cmap entry - - attempt to store into a read-only - color map entry. - - attempt to modify the access control - list from other than the local host. - */ -#define BadAlloc 11 /* insufficient resources */ -#define BadColor 12 /* no such colormap */ -#define BadGC 13 /* parameter not a GC */ -#define BadIDChoice 14 /* choice not in range or already used */ -#define BadName 15 /* font or color name doesn't exist */ -#define BadLength 16 /* Request length incorrect */ -#define BadImplementation 17 /* server is defective */ - -#define FirstExtensionError 128 -#define LastExtensionError 255 - -/***************************************************************** - * WINDOW DEFINITIONS - *****************************************************************/ - -/* Window classes used by CreateWindow */ -/* Note that CopyFromParent is already defined as 0 above */ - -#define InputOutput 1 -#define InputOnly 2 - -/* Window attributes for CreateWindow and ChangeWindowAttributes */ - -#define CWBackPixmap (1L<<0) -#define CWBackPixel (1L<<1) -#define CWBorderPixmap (1L<<2) -#define CWBorderPixel (1L<<3) -#define CWBitGravity (1L<<4) -#define CWWinGravity (1L<<5) -#define CWBackingStore (1L<<6) -#define CWBackingPlanes (1L<<7) -#define CWBackingPixel (1L<<8) -#define CWOverrideRedirect (1L<<9) -#define CWSaveUnder (1L<<10) -#define CWEventMask (1L<<11) -#define CWDontPropagate (1L<<12) -#define CWColormap (1L<<13) -#define CWCursor (1L<<14) - -/* ConfigureWindow structure */ - -#define CWX (1<<0) -#define CWY (1<<1) -#define CWWidth (1<<2) -#define CWHeight (1<<3) -#define CWBorderWidth (1<<4) -#define CWSibling (1<<5) -#define CWStackMode (1<<6) - - -/* Bit Gravity */ - -#define ForgetGravity 0 -#define NorthWestGravity 1 -#define NorthGravity 2 -#define NorthEastGravity 3 -#define WestGravity 4 -#define CenterGravity 5 -#define EastGravity 6 -#define SouthWestGravity 7 -#define SouthGravity 8 -#define SouthEastGravity 9 -#define StaticGravity 10 - -/* Window gravity + bit gravity above */ - -#define UnmapGravity 0 - -/* Used in CreateWindow for backing-store hint */ - -#define NotUseful 0 -#define WhenMapped 1 -#define Always 2 - -/* Used in GetWindowAttributes reply */ - -#define IsUnmapped 0 -#define IsUnviewable 1 -#define IsViewable 2 - -/* Used in ChangeSaveSet */ - -#define SetModeInsert 0 -#define SetModeDelete 1 - -/* Used in ChangeCloseDownMode */ - -#define DestroyAll 0 -#define RetainPermanent 1 -#define RetainTemporary 2 - -/* Window stacking method (in configureWindow) */ - -#define Above 0 -#define Below 1 -#define TopIf 2 -#define BottomIf 3 -#define Opposite 4 - -/* Circulation direction */ - -#define RaiseLowest 0 -#define LowerHighest 1 - -/* Property modes */ - -#define PropModeReplace 0 -#define PropModePrepend 1 -#define PropModeAppend 2 - -/***************************************************************** - * GRAPHICS DEFINITIONS - *****************************************************************/ - -/* graphics functions, as in GC.alu */ - -#define GXclear 0x0 /* 0 */ -#define GXand 0x1 /* src AND dst */ -#define GXandReverse 0x2 /* src AND NOT dst */ -#define GXcopy 0x3 /* src */ -#define GXandInverted 0x4 /* NOT src AND dst */ -#define GXnoop 0x5 /* dst */ -#define GXxor 0x6 /* src XOR dst */ -#define GXor 0x7 /* src OR dst */ -#define GXnor 0x8 /* NOT src AND NOT dst */ -#define GXequiv 0x9 /* NOT src XOR dst */ -#define GXinvert 0xa /* NOT dst */ -#define GXorReverse 0xb /* src OR NOT dst */ -#define GXcopyInverted 0xc /* NOT src */ -#define GXorInverted 0xd /* NOT src OR dst */ -#define GXnand 0xe /* NOT src OR NOT dst */ -#define GXset 0xf /* 1 */ - -/* LineStyle */ - -#define LineSolid 0 -#define LineOnOffDash 1 -#define LineDoubleDash 2 - -/* capStyle */ - -#define CapNotLast 0 -#define CapButt 1 -#define CapRound 2 -#define CapProjecting 3 - -/* joinStyle */ - -#define JoinMiter 0 -#define JoinRound 1 -#define JoinBevel 2 - -/* fillStyle */ - -#define FillSolid 0 -#define FillTiled 1 -#define FillStippled 2 -#define FillOpaqueStippled 3 - -/* fillRule */ - -#define EvenOddRule 0 -#define WindingRule 1 - -/* subwindow mode */ - -#define ClipByChildren 0 -#define IncludeInferiors 1 - -/* SetClipRectangles ordering */ - -#define Unsorted 0 -#define YSorted 1 -#define YXSorted 2 -#define YXBanded 3 - -/* CoordinateMode for drawing routines */ - -#define CoordModeOrigin 0 /* relative to the origin */ -#define CoordModePrevious 1 /* relative to previous point */ - -/* Polygon shapes */ - -#define Complex 0 /* paths may intersect */ -#define Nonconvex 1 /* no paths intersect, but not convex */ -#define Convex 2 /* wholly convex */ - -/* Arc modes for PolyFillArc */ - -#define ArcChord 0 /* join endpoints of arc */ -#define ArcPieSlice 1 /* join endpoints to center of arc */ - -/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into - GC.stateChanges */ - -#define GCFunction (1L<<0) -#define GCPlaneMask (1L<<1) -#define GCForeground (1L<<2) -#define GCBackground (1L<<3) -#define GCLineWidth (1L<<4) -#define GCLineStyle (1L<<5) -#define GCCapStyle (1L<<6) -#define GCJoinStyle (1L<<7) -#define GCFillStyle (1L<<8) -#define GCFillRule (1L<<9) -#define GCTile (1L<<10) -#define GCStipple (1L<<11) -#define GCTileStipXOrigin (1L<<12) -#define GCTileStipYOrigin (1L<<13) -#define GCFont (1L<<14) -#define GCSubwindowMode (1L<<15) -#define GCGraphicsExposures (1L<<16) -#define GCClipXOrigin (1L<<17) -#define GCClipYOrigin (1L<<18) -#define GCClipMask (1L<<19) -#define GCDashOffset (1L<<20) -#define GCDashList (1L<<21) -#define GCArcMode (1L<<22) - -#define GCLastBit 22 -/***************************************************************** - * FONTS - *****************************************************************/ - -/* used in QueryFont -- draw direction */ - -#define FontLeftToRight 0 -#define FontRightToLeft 1 - -#define FontChange 255 - -/***************************************************************** - * IMAGING - *****************************************************************/ - -/* ImageFormat -- PutImage, GetImage */ - -#define XYBitmap 0 /* depth 1, XYFormat */ -#define XYPixmap 1 /* depth == drawable depth */ -#define ZPixmap 2 /* depth == drawable depth */ - -/***************************************************************** - * COLOR MAP STUFF - *****************************************************************/ - -/* For CreateColormap */ - -#define AllocNone 0 /* create map with no entries */ -#define AllocAll 1 /* allocate entire map writeable */ - - -/* Flags used in StoreNamedColor, StoreColors */ - -#define DoRed (1<<0) -#define DoGreen (1<<1) -#define DoBlue (1<<2) - -/***************************************************************** - * CURSOR STUFF - *****************************************************************/ - -/* QueryBestSize Class */ - -#define CursorShape 0 /* largest size that can be displayed */ -#define TileShape 1 /* size tiled fastest */ -#define StippleShape 2 /* size stippled fastest */ - -/***************************************************************** - * KEYBOARD/POINTER STUFF - *****************************************************************/ - -#define AutoRepeatModeOff 0 -#define AutoRepeatModeOn 1 -#define AutoRepeatModeDefault 2 - -#define LedModeOff 0 -#define LedModeOn 1 - -/* masks for ChangeKeyboardControl */ - -#define KBKeyClickPercent (1L<<0) -#define KBBellPercent (1L<<1) -#define KBBellPitch (1L<<2) -#define KBBellDuration (1L<<3) -#define KBLed (1L<<4) -#define KBLedMode (1L<<5) -#define KBKey (1L<<6) -#define KBAutoRepeatMode (1L<<7) - -#define MappingSuccess 0 -#define MappingBusy 1 -#define MappingFailed 2 - -#define MappingModifier 0 -#define MappingKeyboard 1 -#define MappingPointer 2 - -/***************************************************************** - * SCREEN SAVER STUFF - *****************************************************************/ - -#define DontPreferBlanking 0 -#define PreferBlanking 1 -#define DefaultBlanking 2 - -#define DisableScreenSaver 0 -#define DisableScreenInterval 0 - -#define DontAllowExposures 0 -#define AllowExposures 1 -#define DefaultExposures 2 - -/* for ForceScreenSaver */ - -#define ScreenSaverReset 0 -#define ScreenSaverActive 1 - -/***************************************************************** - * HOSTS AND CONNECTIONS - *****************************************************************/ - -/* for ChangeHosts */ - -#define HostInsert 0 -#define HostDelete 1 - -/* for ChangeAccessControl */ - -#define EnableAccess 1 -#define DisableAccess 0 - -/* Display classes used in opening the connection - * Note that the statically allocated ones are even numbered and the - * dynamically changeable ones are odd numbered */ - -#define StaticGray 0 -#define GrayScale 1 -#define StaticColor 2 -#define PseudoColor 3 -#define TrueColor 4 -#define DirectColor 5 - - -/* Byte order used in imageByteOrder and bitmapBitOrder */ - -#define LSBFirst 0 -#define MSBFirst 1 - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* X_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/XF86keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/XF86keysym.h deleted file mode 100644 index dd287e249..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/XF86keysym.h +++ /dev/null @@ -1,230 +0,0 @@ -/* - * XFree86 vendor specific keysyms. - * - * The XFree86 keysym range is 0x10080001 - 0x1008FFFF. - * - * X.Org will not be adding to the XF86 set of keysyms, though they have - * been adopted and are considered a "standard" part of X keysym definitions. - * XFree86 never properly commented these keysyms, so we have done our - * best to explain the semantic meaning of these keys. - * - * XFree86 has removed their mail archives of the period, that might have - * shed more light on some of these definitions. Until/unless we resurrect - * these archives, these are from memory and usage. - */ - -/* - * ModeLock - * - * This one is old, and not really used any more since XKB offers this - * functionality. - */ - -#define XF86XK_ModeLock 0x1008FF01 /* Mode Switch Lock */ - -/* Backlight controls. */ -#define XF86XK_MonBrightnessUp 0x1008FF02 /* Monitor/panel brightness */ -#define XF86XK_MonBrightnessDown 0x1008FF03 /* Monitor/panel brightness */ -#define XF86XK_KbdLightOnOff 0x1008FF04 /* Keyboards may be lit */ -#define XF86XK_KbdBrightnessUp 0x1008FF05 /* Keyboards may be lit */ -#define XF86XK_KbdBrightnessDown 0x1008FF06 /* Keyboards may be lit */ -#define XF86XK_MonBrightnessCycle 0x1008FF07 /* Monitor/panel brightness */ - -/* - * Keys found on some "Internet" keyboards. - */ -#define XF86XK_Standby 0x1008FF10 /* System into standby mode */ -#define XF86XK_AudioLowerVolume 0x1008FF11 /* Volume control down */ -#define XF86XK_AudioMute 0x1008FF12 /* Mute sound from the system */ -#define XF86XK_AudioRaiseVolume 0x1008FF13 /* Volume control up */ -#define XF86XK_AudioPlay 0x1008FF14 /* Start playing of audio > */ -#define XF86XK_AudioStop 0x1008FF15 /* Stop playing audio */ -#define XF86XK_AudioPrev 0x1008FF16 /* Previous track */ -#define XF86XK_AudioNext 0x1008FF17 /* Next track */ -#define XF86XK_HomePage 0x1008FF18 /* Display user's home page */ -#define XF86XK_Mail 0x1008FF19 /* Invoke user's mail program */ -#define XF86XK_Start 0x1008FF1A /* Start application */ -#define XF86XK_Search 0x1008FF1B /* Search */ -#define XF86XK_AudioRecord 0x1008FF1C /* Record audio application */ - -/* These are sometimes found on PDA's (e.g. Palm, PocketPC or elsewhere) */ -#define XF86XK_Calculator 0x1008FF1D /* Invoke calculator program */ -#define XF86XK_Memo 0x1008FF1E /* Invoke Memo taking program */ -#define XF86XK_ToDoList 0x1008FF1F /* Invoke To Do List program */ -#define XF86XK_Calendar 0x1008FF20 /* Invoke Calendar program */ -#define XF86XK_PowerDown 0x1008FF21 /* Deep sleep the system */ -#define XF86XK_ContrastAdjust 0x1008FF22 /* Adjust screen contrast */ -#define XF86XK_RockerUp 0x1008FF23 /* Rocker switches exist up */ -#define XF86XK_RockerDown 0x1008FF24 /* and down */ -#define XF86XK_RockerEnter 0x1008FF25 /* and let you press them */ - -/* Some more "Internet" keyboard symbols */ -#define XF86XK_Back 0x1008FF26 /* Like back on a browser */ -#define XF86XK_Forward 0x1008FF27 /* Like forward on a browser */ -#define XF86XK_Stop 0x1008FF28 /* Stop current operation */ -#define XF86XK_Refresh 0x1008FF29 /* Refresh the page */ -#define XF86XK_PowerOff 0x1008FF2A /* Power off system entirely */ -#define XF86XK_WakeUp 0x1008FF2B /* Wake up system from sleep */ -#define XF86XK_Eject 0x1008FF2C /* Eject device (e.g. DVD) */ -#define XF86XK_ScreenSaver 0x1008FF2D /* Invoke screensaver */ -#define XF86XK_WWW 0x1008FF2E /* Invoke web browser */ -#define XF86XK_Sleep 0x1008FF2F /* Put system to sleep */ -#define XF86XK_Favorites 0x1008FF30 /* Show favorite locations */ -#define XF86XK_AudioPause 0x1008FF31 /* Pause audio playing */ -#define XF86XK_AudioMedia 0x1008FF32 /* Launch media collection app */ -#define XF86XK_MyComputer 0x1008FF33 /* Display "My Computer" window */ -#define XF86XK_VendorHome 0x1008FF34 /* Display vendor home web site */ -#define XF86XK_LightBulb 0x1008FF35 /* Light bulb keys exist */ -#define XF86XK_Shop 0x1008FF36 /* Display shopping web site */ -#define XF86XK_History 0x1008FF37 /* Show history of web surfing */ -#define XF86XK_OpenURL 0x1008FF38 /* Open selected URL */ -#define XF86XK_AddFavorite 0x1008FF39 /* Add URL to favorites list */ -#define XF86XK_HotLinks 0x1008FF3A /* Show "hot" links */ -#define XF86XK_BrightnessAdjust 0x1008FF3B /* Invoke brightness adj. UI */ -#define XF86XK_Finance 0x1008FF3C /* Display financial site */ -#define XF86XK_Community 0x1008FF3D /* Display user's community */ -#define XF86XK_AudioRewind 0x1008FF3E /* "rewind" audio track */ -#define XF86XK_BackForward 0x1008FF3F /* ??? */ -#define XF86XK_Launch0 0x1008FF40 /* Launch Application */ -#define XF86XK_Launch1 0x1008FF41 /* Launch Application */ -#define XF86XK_Launch2 0x1008FF42 /* Launch Application */ -#define XF86XK_Launch3 0x1008FF43 /* Launch Application */ -#define XF86XK_Launch4 0x1008FF44 /* Launch Application */ -#define XF86XK_Launch5 0x1008FF45 /* Launch Application */ -#define XF86XK_Launch6 0x1008FF46 /* Launch Application */ -#define XF86XK_Launch7 0x1008FF47 /* Launch Application */ -#define XF86XK_Launch8 0x1008FF48 /* Launch Application */ -#define XF86XK_Launch9 0x1008FF49 /* Launch Application */ -#define XF86XK_LaunchA 0x1008FF4A /* Launch Application */ -#define XF86XK_LaunchB 0x1008FF4B /* Launch Application */ -#define XF86XK_LaunchC 0x1008FF4C /* Launch Application */ -#define XF86XK_LaunchD 0x1008FF4D /* Launch Application */ -#define XF86XK_LaunchE 0x1008FF4E /* Launch Application */ -#define XF86XK_LaunchF 0x1008FF4F /* Launch Application */ - -#define XF86XK_ApplicationLeft 0x1008FF50 /* switch to application, left */ -#define XF86XK_ApplicationRight 0x1008FF51 /* switch to application, right*/ -#define XF86XK_Book 0x1008FF52 /* Launch bookreader */ -#define XF86XK_CD 0x1008FF53 /* Launch CD/DVD player */ -#define XF86XK_Calculater 0x1008FF54 /* Launch Calculater */ -#define XF86XK_Clear 0x1008FF55 /* Clear window, screen */ -#define XF86XK_Close 0x1008FF56 /* Close window */ -#define XF86XK_Copy 0x1008FF57 /* Copy selection */ -#define XF86XK_Cut 0x1008FF58 /* Cut selection */ -#define XF86XK_Display 0x1008FF59 /* Output switch key */ -#define XF86XK_DOS 0x1008FF5A /* Launch DOS (emulation) */ -#define XF86XK_Documents 0x1008FF5B /* Open documents window */ -#define XF86XK_Excel 0x1008FF5C /* Launch spread sheet */ -#define XF86XK_Explorer 0x1008FF5D /* Launch file explorer */ -#define XF86XK_Game 0x1008FF5E /* Launch game */ -#define XF86XK_Go 0x1008FF5F /* Go to URL */ -#define XF86XK_iTouch 0x1008FF60 /* Logitech iTouch- don't use */ -#define XF86XK_LogOff 0x1008FF61 /* Log off system */ -#define XF86XK_Market 0x1008FF62 /* ?? */ -#define XF86XK_Meeting 0x1008FF63 /* enter meeting in calendar */ -#define XF86XK_MenuKB 0x1008FF65 /* distinguish keyboard from PB */ -#define XF86XK_MenuPB 0x1008FF66 /* distinguish PB from keyboard */ -#define XF86XK_MySites 0x1008FF67 /* Favourites */ -#define XF86XK_New 0x1008FF68 /* New (folder, document... */ -#define XF86XK_News 0x1008FF69 /* News */ -#define XF86XK_OfficeHome 0x1008FF6A /* Office home (old Staroffice)*/ -#define XF86XK_Open 0x1008FF6B /* Open */ -#define XF86XK_Option 0x1008FF6C /* ?? */ -#define XF86XK_Paste 0x1008FF6D /* Paste */ -#define XF86XK_Phone 0x1008FF6E /* Launch phone; dial number */ -#define XF86XK_Q 0x1008FF70 /* Compaq's Q - don't use */ -#define XF86XK_Reply 0x1008FF72 /* Reply e.g., mail */ -#define XF86XK_Reload 0x1008FF73 /* Reload web page, file, etc. */ -#define XF86XK_RotateWindows 0x1008FF74 /* Rotate windows e.g. xrandr */ -#define XF86XK_RotationPB 0x1008FF75 /* don't use */ -#define XF86XK_RotationKB 0x1008FF76 /* don't use */ -#define XF86XK_Save 0x1008FF77 /* Save (file, document, state */ -#define XF86XK_ScrollUp 0x1008FF78 /* Scroll window/contents up */ -#define XF86XK_ScrollDown 0x1008FF79 /* Scrool window/contentd down */ -#define XF86XK_ScrollClick 0x1008FF7A /* Use XKB mousekeys instead */ -#define XF86XK_Send 0x1008FF7B /* Send mail, file, object */ -#define XF86XK_Spell 0x1008FF7C /* Spell checker */ -#define XF86XK_SplitScreen 0x1008FF7D /* Split window or screen */ -#define XF86XK_Support 0x1008FF7E /* Get support (??) */ -#define XF86XK_TaskPane 0x1008FF7F /* Show tasks */ -#define XF86XK_Terminal 0x1008FF80 /* Launch terminal emulator */ -#define XF86XK_Tools 0x1008FF81 /* toolbox of desktop/app. */ -#define XF86XK_Travel 0x1008FF82 /* ?? */ -#define XF86XK_UserPB 0x1008FF84 /* ?? */ -#define XF86XK_User1KB 0x1008FF85 /* ?? */ -#define XF86XK_User2KB 0x1008FF86 /* ?? */ -#define XF86XK_Video 0x1008FF87 /* Launch video player */ -#define XF86XK_WheelButton 0x1008FF88 /* button from a mouse wheel */ -#define XF86XK_Word 0x1008FF89 /* Launch word processor */ -#define XF86XK_Xfer 0x1008FF8A -#define XF86XK_ZoomIn 0x1008FF8B /* zoom in view, map, etc. */ -#define XF86XK_ZoomOut 0x1008FF8C /* zoom out view, map, etc. */ - -#define XF86XK_Away 0x1008FF8D /* mark yourself as away */ -#define XF86XK_Messenger 0x1008FF8E /* as in instant messaging */ -#define XF86XK_WebCam 0x1008FF8F /* Launch web camera app. */ -#define XF86XK_MailForward 0x1008FF90 /* Forward in mail */ -#define XF86XK_Pictures 0x1008FF91 /* Show pictures */ -#define XF86XK_Music 0x1008FF92 /* Launch music application */ - -#define XF86XK_Battery 0x1008FF93 /* Display battery information */ -#define XF86XK_Bluetooth 0x1008FF94 /* Enable/disable Bluetooth */ -#define XF86XK_WLAN 0x1008FF95 /* Enable/disable WLAN */ -#define XF86XK_UWB 0x1008FF96 /* Enable/disable UWB */ - -#define XF86XK_AudioForward 0x1008FF97 /* fast-forward audio track */ -#define XF86XK_AudioRepeat 0x1008FF98 /* toggle repeat mode */ -#define XF86XK_AudioRandomPlay 0x1008FF99 /* toggle shuffle mode */ -#define XF86XK_Subtitle 0x1008FF9A /* cycle through subtitle */ -#define XF86XK_AudioCycleTrack 0x1008FF9B /* cycle through audio tracks */ -#define XF86XK_CycleAngle 0x1008FF9C /* cycle through angles */ -#define XF86XK_FrameBack 0x1008FF9D /* video: go one frame back */ -#define XF86XK_FrameForward 0x1008FF9E /* video: go one frame forward */ -#define XF86XK_Time 0x1008FF9F /* display, or shows an entry for time seeking */ -#define XF86XK_Select 0x1008FFA0 /* Select button on joypads and remotes */ -#define XF86XK_View 0x1008FFA1 /* Show a view options/properties */ -#define XF86XK_TopMenu 0x1008FFA2 /* Go to a top-level menu in a video */ - -#define XF86XK_Red 0x1008FFA3 /* Red button */ -#define XF86XK_Green 0x1008FFA4 /* Green button */ -#define XF86XK_Yellow 0x1008FFA5 /* Yellow button */ -#define XF86XK_Blue 0x1008FFA6 /* Blue button */ - -#define XF86XK_Suspend 0x1008FFA7 /* Sleep to RAM */ -#define XF86XK_Hibernate 0x1008FFA8 /* Sleep to disk */ -#define XF86XK_TouchpadToggle 0x1008FFA9 /* Toggle between touchpad/trackstick */ -#define XF86XK_TouchpadOn 0x1008FFB0 /* The touchpad got switched on */ -#define XF86XK_TouchpadOff 0x1008FFB1 /* The touchpad got switched off */ - -#define XF86XK_AudioMicMute 0x1008FFB2 /* Mute the Mic from the system */ - -#define XF86XK_Keyboard 0x1008FFB3 /* User defined keyboard related action */ - -#define XF86XK_WWAN 0x1008FFB4 /* Toggle WWAN (LTE, UMTS, etc.) radio */ -#define XF86XK_RFKill 0x1008FFB5 /* Toggle radios on/off */ - -#define XF86XK_AudioPreset 0x1008FFB6 /* Select equalizer preset, e.g. theatre-mode */ - -#define XF86XK_RotationLockToggle 0x1008FFB7 /* Toggle screen rotation lock on/off */ - -/* Keys for special action keys (hot keys) */ -/* Virtual terminals on some operating systems */ -#define XF86XK_Switch_VT_1 0x1008FE01 -#define XF86XK_Switch_VT_2 0x1008FE02 -#define XF86XK_Switch_VT_3 0x1008FE03 -#define XF86XK_Switch_VT_4 0x1008FE04 -#define XF86XK_Switch_VT_5 0x1008FE05 -#define XF86XK_Switch_VT_6 0x1008FE06 -#define XF86XK_Switch_VT_7 0x1008FE07 -#define XF86XK_Switch_VT_8 0x1008FE08 -#define XF86XK_Switch_VT_9 0x1008FE09 -#define XF86XK_Switch_VT_10 0x1008FE0A -#define XF86XK_Switch_VT_11 0x1008FE0B -#define XF86XK_Switch_VT_12 0x1008FE0C - -#define XF86XK_Ungrab 0x1008FE20 /* force ungrab */ -#define XF86XK_ClearGrab 0x1008FE21 /* kill application with grab */ -#define XF86XK_Next_VMode 0x1008FE22 /* next video mode available */ -#define XF86XK_Prev_VMode 0x1008FE23 /* prev. video mode available */ -#define XF86XK_LogWindowTree 0x1008FE24 /* print window tree to log */ -#define XF86XK_LogGrabInfo 0x1008FE25 /* print all active grabs to log */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xatom.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xatom.h deleted file mode 100644 index 485a4236d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xatom.h +++ /dev/null @@ -1,79 +0,0 @@ -#ifndef XATOM_H -#define XATOM_H 1 - -/* THIS IS A GENERATED FILE - * - * Do not change! Changing this file implies a protocol change! - */ - -#define XA_PRIMARY ((Atom) 1) -#define XA_SECONDARY ((Atom) 2) -#define XA_ARC ((Atom) 3) -#define XA_ATOM ((Atom) 4) -#define XA_BITMAP ((Atom) 5) -#define XA_CARDINAL ((Atom) 6) -#define XA_COLORMAP ((Atom) 7) -#define XA_CURSOR ((Atom) 8) -#define XA_CUT_BUFFER0 ((Atom) 9) -#define XA_CUT_BUFFER1 ((Atom) 10) -#define XA_CUT_BUFFER2 ((Atom) 11) -#define XA_CUT_BUFFER3 ((Atom) 12) -#define XA_CUT_BUFFER4 ((Atom) 13) -#define XA_CUT_BUFFER5 ((Atom) 14) -#define XA_CUT_BUFFER6 ((Atom) 15) -#define XA_CUT_BUFFER7 ((Atom) 16) -#define XA_DRAWABLE ((Atom) 17) -#define XA_FONT ((Atom) 18) -#define XA_INTEGER ((Atom) 19) -#define XA_PIXMAP ((Atom) 20) -#define XA_POINT ((Atom) 21) -#define XA_RECTANGLE ((Atom) 22) -#define XA_RESOURCE_MANAGER ((Atom) 23) -#define XA_RGB_COLOR_MAP ((Atom) 24) -#define XA_RGB_BEST_MAP ((Atom) 25) -#define XA_RGB_BLUE_MAP ((Atom) 26) -#define XA_RGB_DEFAULT_MAP ((Atom) 27) -#define XA_RGB_GRAY_MAP ((Atom) 28) -#define XA_RGB_GREEN_MAP ((Atom) 29) -#define XA_RGB_RED_MAP ((Atom) 30) -#define XA_STRING ((Atom) 31) -#define XA_VISUALID ((Atom) 32) -#define XA_WINDOW ((Atom) 33) -#define XA_WM_COMMAND ((Atom) 34) -#define XA_WM_HINTS ((Atom) 35) -#define XA_WM_CLIENT_MACHINE ((Atom) 36) -#define XA_WM_ICON_NAME ((Atom) 37) -#define XA_WM_ICON_SIZE ((Atom) 38) -#define XA_WM_NAME ((Atom) 39) -#define XA_WM_NORMAL_HINTS ((Atom) 40) -#define XA_WM_SIZE_HINTS ((Atom) 41) -#define XA_WM_ZOOM_HINTS ((Atom) 42) -#define XA_MIN_SPACE ((Atom) 43) -#define XA_NORM_SPACE ((Atom) 44) -#define XA_MAX_SPACE ((Atom) 45) -#define XA_END_SPACE ((Atom) 46) -#define XA_SUPERSCRIPT_X ((Atom) 47) -#define XA_SUPERSCRIPT_Y ((Atom) 48) -#define XA_SUBSCRIPT_X ((Atom) 49) -#define XA_SUBSCRIPT_Y ((Atom) 50) -#define XA_UNDERLINE_POSITION ((Atom) 51) -#define XA_UNDERLINE_THICKNESS ((Atom) 52) -#define XA_STRIKEOUT_ASCENT ((Atom) 53) -#define XA_STRIKEOUT_DESCENT ((Atom) 54) -#define XA_ITALIC_ANGLE ((Atom) 55) -#define XA_X_HEIGHT ((Atom) 56) -#define XA_QUAD_WIDTH ((Atom) 57) -#define XA_WEIGHT ((Atom) 58) -#define XA_POINT_SIZE ((Atom) 59) -#define XA_RESOLUTION ((Atom) 60) -#define XA_COPYRIGHT ((Atom) 61) -#define XA_NOTICE ((Atom) 62) -#define XA_FONT_NAME ((Atom) 63) -#define XA_FAMILY_NAME ((Atom) 64) -#define XA_FULL_NAME ((Atom) 65) -#define XA_CAP_HEIGHT ((Atom) 66) -#define XA_WM_CLASS ((Atom) 67) -#define XA_WM_TRANSIENT_FOR ((Atom) 68) - -#define XA_LAST_PREDEFINED ((Atom) 68) -#endif /* XATOM_H */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xfuncproto.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xfuncproto.h deleted file mode 100644 index 6d63002ef..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xfuncproto.h +++ /dev/null @@ -1,60 +0,0 @@ -/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ -/* - * Copyright 1989, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - */ - -/* Definitions to make function prototypes manageable */ - -#ifndef _XFUNCPROTO_H_ -#define _XFUNCPROTO_H_ - -#ifndef NeedFunctionPrototypes -#define NeedFunctionPrototypes 1 -#endif /* NeedFunctionPrototypes */ - -#ifndef NeedVarargsPrototypes -#define NeedVarargsPrototypes 0 -#endif /* NeedVarargsPrototypes */ - -#if NeedFunctionPrototypes - -#ifndef NeedNestedPrototypes -#define NeedNestedPrototypes 1 -#endif /* NeedNestedPrototypes */ - -#ifndef _Xconst -#define _Xconst const -#endif /* _Xconst */ - -#ifndef NeedWidePrototypes -#ifdef NARROWPROTO -#define NeedWidePrototypes 0 -#else -#define NeedWidePrototypes 1 /* default to make interropt. easier */ -#endif -#endif /* NeedWidePrototypes */ - -#endif /* NeedFunctionPrototypes */ - -#ifdef __cplusplus -#define _XFUNCPROTOBEGIN extern "C" { -#define _XFUNCPROTOEND } -#endif - -#ifndef _XFUNCPROTOBEGIN -#define _XFUNCPROTOBEGIN -#define _XFUNCPROTOEND -#endif /* _XFUNCPROTOBEGIN */ - -#endif /* _XFUNCPROTO_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xlib.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xlib.h deleted file mode 100644 index af8f706f9..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xlib.h +++ /dev/null @@ -1,1208 +0,0 @@ -/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ -/* - * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - * X Window System is a Trademark of MIT. - * - */ - - -/* - * Xlib.h - Header definition and support file for the C subroutine - * interface library (Xlib) to the X Window System Protocol (V11). - * Structures and symbols starting with "_" are private to the library. - */ -#ifndef _XLIB_H_ -#define _XLIB_H_ - -#define XlibSpecificationRelease 5 - -#if !defined(MAC_OSX_TK) -# include -#endif -#ifdef MAC_OSX_TK -# include -# define Cursor XCursor -# define Region XRegion -#endif - -/* applications should not depend on these two headers being included! */ -#include - -#ifndef X_WCHAR -#ifdef X_NOT_STDC_ENV -#define X_WCHAR -#endif -#endif - -#ifndef X_WCHAR -#include -#else -/* replace this with #include or typedef appropriate for your system */ -typedef unsigned long wchar_t; -#endif - -typedef char *XPointer; - -#define Bool int -#if defined(MAC_OSX_TK) -/* Use define rather than typedef, since may need to undefine this later */ -#define Status int -#else -typedef int Status; -#endif -#define True 1 -#define False 0 - -#define QueuedAlready 0 -#define QueuedAfterReading 1 -#define QueuedAfterFlush 2 - -#define ConnectionNumber(dpy) ((dpy)->fd) -#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) -#define DefaultScreen(dpy) ((dpy)->default_screen) -#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) -#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) -#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) -#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) -#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) -#define AllPlanes ((unsigned long)~0L) -#define QLength(dpy) ((dpy)->qlen) -#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) -#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) -#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) -#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) -#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) -#define ScreenCount(dpy) ((dpy)->nscreens) -#define ServerVendor(dpy) ((dpy)->vendor) -#define ProtocolVersion(dpy) ((dpy)->proto_major_version) -#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) -#define VendorRelease(dpy) ((dpy)->release) -#define DisplayString(dpy) ((dpy)->display_name) -#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) -#define BitmapUnit(dpy) ((dpy)->bitmap_unit) -#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) -#define BitmapPad(dpy) ((dpy)->bitmap_pad) -#define ImageByteOrder(dpy) ((dpy)->byte_order) -#define NextRequest(dpy) ((dpy)->request + 1) -#define LastKnownRequestProcessed(dpy) ((dpy)->request) - -/* macros for screen oriented applications (toolkit) */ -#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) -#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) -#define DisplayOfScreen(s) ((s)->display) -#define RootWindowOfScreen(s) ((s)->root) -#define BlackPixelOfScreen(s) ((s)->black_pixel) -#define WhitePixelOfScreen(s) ((s)->white_pixel) -#define DefaultColormapOfScreen(s)((s)->cmap) -#define DefaultDepthOfScreen(s) ((s)->root_depth) -#define DefaultGCOfScreen(s) ((s)->default_gc) -#define DefaultVisualOfScreen(s)((s)->root_visual) -#define WidthOfScreen(s) ((s)->width) -#define HeightOfScreen(s) ((s)->height) -#define WidthMMOfScreen(s) ((s)->mwidth) -#define HeightMMOfScreen(s) ((s)->mheight) -#define PlanesOfScreen(s) ((s)->root_depth) -#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) -#define MinCmapsOfScreen(s) ((s)->min_maps) -#define MaxCmapsOfScreen(s) ((s)->max_maps) -#define DoesSaveUnders(s) ((s)->save_unders) -#define DoesBackingStore(s) ((s)->backing_store) -#define EventMaskOfScreen(s) ((s)->root_input_mask) - -/* - * Extensions need a way to hang private data on some structures. - */ -typedef struct _XExtData { - int number; /* number returned by XRegisterExtension */ - struct _XExtData *next; /* next item on list of data for structure */ - int (*free_private)(); /* called to free private storage */ - XPointer private_data; /* data private to this extension. */ -} XExtData; - -/* - * This file contains structures used by the extension mechanism. - */ -typedef struct { /* public to extension, cannot be changed */ - int extension; /* extension number */ - int major_opcode; /* major op-code assigned by server */ - int first_event; /* first event number for the extension */ - int first_error; /* first error number for the extension */ -} XExtCodes; - -/* - * Data structure for retrieving info about pixmap formats. - */ - -typedef struct { - int depth; - int bits_per_pixel; - int scanline_pad; -} XPixmapFormatValues; - - -/* - * Data structure for setting graphics context. - */ -typedef struct { - int function; /* logical operation */ - unsigned long plane_mask;/* plane mask */ - unsigned long foreground;/* foreground pixel */ - unsigned long background;/* background pixel */ - int line_width; /* line width */ - int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ - int cap_style; /* CapNotLast, CapButt, - CapRound, CapProjecting */ - int join_style; /* JoinMiter, JoinRound, JoinBevel */ - int fill_style; /* FillSolid, FillTiled, - FillStippled, FillOpaeueStippled */ - int fill_rule; /* EvenOddRule, WindingRule */ - int arc_mode; /* ArcChord, ArcPieSlice */ - Pixmap tile; /* tile pixmap for tiling operations */ - Pixmap stipple; /* stipple 1 plane pixmap for stipping */ - int ts_x_origin; /* offset for tile or stipple operations */ - int ts_y_origin; - Font font; /* default text font for text operations */ - int subwindow_mode; /* ClipByChildren, IncludeInferiors */ - Bool graphics_exposures;/* boolean, should exposures be generated */ - int clip_x_origin; /* origin for clipping */ - int clip_y_origin; - Pixmap clip_mask; /* bitmap clipping; other calls for rects */ - int dash_offset; /* patterned/dashed line information */ - char dashes; -} XGCValues; - -/* - * Graphics context. The contents of this structure are implementation - * dependent. A GC should be treated as opaque by application code. - */ - -typedef XGCValues *GC; - -/* - * Visual structure; contains information about colormapping possible. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - VisualID visualid; /* visual id of this visual */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ class of screen (monochrome, etc.) */ -#else - int class; /* class of screen (monochrome, etc.) */ -#endif - unsigned long red_mask, green_mask, blue_mask; /* mask values */ - int bits_per_rgb; /* log base 2 of distinct color values */ - int map_entries; /* color map entries */ -} Visual; - -/* - * Depth structure; contains information for each possible depth. - */ -typedef struct { - int depth; /* this depth (Z) of the depth */ - int nvisuals; /* number of Visual types at this depth */ - Visual *visuals; /* list of visuals possible at this depth */ -} Depth; - -/* - * Information about the screen. The contents of this structure are - * implementation dependent. A Screen should be treated as opaque - * by application code. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XDisplay *display;/* back pointer to display structure */ - Window root; /* Root window id. */ - int width, height; /* width and height of screen */ - int mwidth, mheight; /* width and height of in millimeters */ - int ndepths; /* number of depths possible */ - Depth *depths; /* list of allowable depths on the screen */ - int root_depth; /* bits per pixel */ - Visual *root_visual; /* root visual */ - GC default_gc; /* GC for the root root visual */ - Colormap cmap; /* default color map */ - unsigned long white_pixel; - unsigned long black_pixel; /* White and Black pixel values */ - int max_maps, min_maps; /* max and min color maps */ - int backing_store; /* Never, WhenMapped, Always */ - Bool save_unders; - long root_input_mask; /* initial root input mask */ -} Screen; - -/* - * Format structure; describes ZFormat data the screen will understand. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - int depth; /* depth of this image format */ - int bits_per_pixel; /* bits/pixel at this depth */ - int scanline_pad; /* scanline must padded to this multiple */ -} ScreenFormat; - -/* - * Data structure for setting window attributes. - */ -typedef struct { - Pixmap background_pixmap; /* background or None or ParentRelative */ - unsigned long background_pixel; /* background pixel */ - Pixmap border_pixmap; /* border of the window */ - unsigned long border_pixel; /* border pixel value */ - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preseved if possible */ - unsigned long backing_pixel;/* value to use in restoring planes */ - Bool save_under; /* should bits under be saved? (popups) */ - long event_mask; /* set of events that should be saved */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Colormap colormap; /* color map to be associated with window */ - Cursor cursor; /* cursor to be displayed (or None) */ -} XSetWindowAttributes; - -typedef struct { - int x, y; /* location of window */ - int width, height; /* width and height of window */ - int border_width; /* border width of window */ - int depth; /* depth of window */ - Visual *visual; /* the associated visual structure */ - Window root; /* root of screen containing window */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ InputOutput, InputOnly*/ -#else - int class; /* InputOutput, InputOnly*/ -#endif - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preserved if possible */ - unsigned long backing_pixel;/* value to be used when restoring planes */ - Bool save_under; /* boolean, should bits under be saved? */ - Colormap colormap; /* color map to be associated with window */ - Bool map_installed; /* boolean, is color map currently installed*/ - int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ - long all_event_masks; /* set of events all people have interest in*/ - long your_event_mask; /* my event mask */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Screen *screen; /* back pointer to correct screen */ -} XWindowAttributes; - -/* - * Data structure for host setting; getting routines. - * - */ - -typedef struct { - int family; /* for example FamilyInternet */ - int length; /* length of address, in bytes */ - char *address; /* pointer to where to find the bytes */ -} XHostAddress; - -/* - * Data structure for "image" data, used by image manipulation routines. - */ -typedef struct _XImage { - int width, height; /* size of image */ - int xoffset; /* number of pixels offset in X direction */ - int format; /* XYBitmap, XYPixmap, ZPixmap */ - char *data; /* pointer to image data */ - int byte_order; /* data byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* quant. of scanline 8, 16, 32 */ - int bitmap_bit_order; /* LSBFirst, MSBFirst */ - int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ - int depth; /* depth of image */ - int bytes_per_line; /* accelarator to next line */ - int bits_per_pixel; /* bits per pixel (ZPixmap) */ - unsigned long red_mask; /* bits in z arrangment */ - unsigned long green_mask; - unsigned long blue_mask; - XPointer obdata; /* hook for the object routines to hang on */ -#if defined(MAC_OSX_TK) - int pixelpower; /* n such that pixels are 2^n x 2^n blocks*/ -#endif - struct funcs { /* image manipulation routines */ - struct _XImage *(*create_image)(); -#if NeedFunctionPrototypes - int (*destroy_image) (struct _XImage *); - unsigned long (*get_pixel) (struct _XImage *, int, int); - int (*put_pixel) (struct _XImage *, int, int, unsigned long); - struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); - int (*add_pixel) (struct _XImage *, long); -#else - int (*destroy_image)(); - unsigned long (*get_pixel)(); - int (*put_pixel)(); - struct _XImage *(*sub_image)(); - int (*add_pixel)(); -#endif - } f; -} XImage; - -/* - * Data structure for XReconfigureWindow - */ -typedef struct { - int x, y; - int width, height; - int border_width; - Window sibling; - int stack_mode; -} XWindowChanges; - -/* - * Data structure used by color operations - */ -typedef struct { - unsigned long pixel; - unsigned short red, green, blue; - char flags; /* do_red, do_green, do_blue */ - char pad; -} XColor; - -/* - * Data structures for graphics operations. On most machines, these are - * congruent with the wire protocol structures, so reformatting the data - * can be avoided on these architectures. - */ -typedef struct { - short x1, y1, x2, y2; -} XSegment; - -typedef struct { - short x, y; -} XPoint; - -typedef struct { - short x, y; - unsigned short width, height; -} XRectangle; - -typedef struct { - short x, y; - unsigned short width, height; - short angle1, angle2; -} XArc; - - -/* Data structure for XChangeKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - int bell_pitch; - int bell_duration; - int led; - int led_mode; - int key; - int auto_repeat_mode; /* On, Off, Default */ -} XKeyboardControl; - -/* Data structure for XGetKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - unsigned int bell_pitch, bell_duration; - unsigned long led_mask; - int global_auto_repeat; - char auto_repeats[32]; -} XKeyboardState; - -/* Data structure for XGetMotionEvents. */ - -typedef struct { - Time time; - short x, y; -} XTimeCoord; - -/* Data structure for X{Set,Get}ModifierMapping */ - -typedef struct { - int max_keypermod; /* The server's max # of keys per modifier */ - KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ -} XModifierKeymap; - - -/* - * Display datatype maintaining display specific data. - * The contents of this structure are implementation dependent. - * A Display should be treated as opaque by application code. - */ -typedef struct _XDisplay { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XFreeFuncs *free_funcs; /* internal free functions */ - int fd; /* Network socket. */ - int conn_checker; /* ugly thing used by _XEventsQueued */ - int proto_major_version;/* maj. version of server's X protocol */ - int proto_minor_version;/* minor version of servers X protocol */ - char *vendor; /* vendor of the server hardware */ - XID resource_base; /* resource ID base */ - XID resource_mask; /* resource ID mask bits */ - XID resource_id; /* allocator current ID */ - int resource_shift; /* allocator shift to correct bits */ - XID (*resource_alloc)(); /* allocator function */ - int byte_order; /* screen byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* padding and data requirements */ - int bitmap_pad; /* padding requirements on bitmaps */ - int bitmap_bit_order; /* LeastSignificant or MostSignificant */ - int nformats; /* number of pixmap formats in list */ - ScreenFormat *pixmap_format; /* pixmap format list */ - int vnumber; /* Xlib's X protocol version number. */ - int release; /* release of the server */ - struct _XSQEvent *head, *tail; /* Input event queue. */ - int qlen; /* Length of input event queue */ - unsigned long request; /* sequence number of last request. */ - char *last_req; /* beginning of last request, or dummy */ - char *buffer; /* Output buffer starting address. */ - char *bufptr; /* Output buffer index pointer. */ - char *bufmax; /* Output buffer maximum+1 address. */ - unsigned max_request_size; /* maximum number 32 bit words in request*/ - struct _XrmHashBucketRec *db; - int (*synchandler)(); /* Synchronization handler */ - char *display_name; /* "host:display" string used on this connect*/ - int default_screen; /* default screen for operations */ - int nscreens; /* number of screens on this server*/ - Screen *screens; /* pointer to list of screens */ - unsigned long motion_buffer; /* size of motion buffer */ - unsigned long flags; /* internal connection flags */ - int min_keycode; /* minimum defined keycode */ - int max_keycode; /* maximum defined keycode */ - KeySym *keysyms; /* This server's keysyms */ - XModifierKeymap *modifiermap; /* This server's modifier keymap */ - int keysyms_per_keycode;/* number of rows */ - char *xdefaults; /* contents of defaults from server */ - char *scratch_buffer; /* place to hang scratch buffer */ - unsigned long scratch_length; /* length of scratch buffer */ - int ext_number; /* extension number on this display */ - struct _XExten *ext_procs; /* extensions initialized on this display */ - /* - * the following can be fixed size, as the protocol defines how - * much address space is available. - * While this could be done using the extension vector, there - * may be MANY events processed, so a search through the extension - * list to find the right procedure for each event might be - * expensive if many extensions are being used. - */ - Bool (*event_vec[128])(); /* vector for wire to event */ - Status (*wire_vec[128])(); /* vector for event to wire */ - KeySym lock_meaning; /* for XLookupString */ - struct _XLockInfo *lock; /* multi-thread state, display lock */ - struct _XInternalAsync *async_handlers; /* for internal async */ - unsigned long bigreq_size; /* max size of big requests */ - struct _XLockPtrs *lock_fns; /* pointers to threads functions */ - /* things above this line should not move, for binary compatibility */ - struct _XKeytrans *key_bindings; /* for XLookupString */ - Font cursor_font; /* for XCreateFontCursor */ - struct _XDisplayAtoms *atoms; /* for XInternAtom */ - unsigned int mode_switch; /* keyboard group modifiers */ - struct _XContextDB *context_db; /* context database */ - Bool (**error_vec)(); /* vector for wire to error */ - /* - * Xcms information - */ - struct { - XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ - XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ - XPointer perVisualIntensityMaps; - /* linked list of XcmsIntensityMap */ - } cms; - struct _XIMFilter *im_filters; - struct _XSQEvent *qfree; /* unallocated event queue elements */ - unsigned long next_event_serial_num; /* inserted into next queue elt */ - int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ -} Display; - -#if NeedFunctionPrototypes /* prototypes require event type definitions */ -#undef _XEVENT_ -#endif -#ifndef _XEVENT_ - -#define XMaxTransChars 7 - -/* - * Definitions of specific events. - */ -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int keycode; /* detail */ - Bool same_screen; /* same screen flag */ - char trans_chars[XMaxTransChars]; - /* translated characters */ - unsigned char nbytes; -} XKeyEvent; -typedef XKeyEvent XKeyPressedEvent; -typedef XKeyEvent XKeyReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int button; /* detail */ - Bool same_screen; /* same screen flag */ -} XButtonEvent; -typedef XButtonEvent XButtonPressedEvent; -typedef XButtonEvent XButtonReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - char is_hint; /* detail */ - Bool same_screen; /* same screen flag */ -} XMotionEvent; -typedef XMotionEvent XPointerMovedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual - */ - Bool same_screen; /* same screen flag */ - Bool focus; /* boolean focus */ - unsigned int state; /* key or button mask */ -} XCrossingEvent; -typedef XCrossingEvent XEnterWindowEvent; -typedef XCrossingEvent XLeaveWindowEvent; - -typedef struct { - int type; /* FocusIn or FocusOut */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* window of event */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, - * NotifyPointerRoot, NotifyDetailNone - */ -} XFocusChangeEvent; -typedef XFocusChangeEvent XFocusInEvent; -typedef XFocusChangeEvent XFocusOutEvent; - -/* generated on EnterWindow and FocusIn when KeyMapState selected */ -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - char key_vector[32]; -} XKeymapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ -} XExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XGraphicsExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XNoExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int state; /* Visibility state */ -} XVisibilityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; /* parent of the window */ - Window window; /* window id of window created */ - int x, y; /* window location */ - int width, height; /* size of window */ - int border_width; /* border width */ - Bool override_redirect; /* creation should be overridden */ -} XCreateWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; -} XDestroyWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool from_configure; -} XUnmapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool override_redirect; /* boolean, is override set... */ -} XMapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; -} XMapRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Window parent; - int x, y; - Bool override_redirect; -} XReparentEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - Bool override_redirect; -} XConfigureEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; -} XGravityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int width, height; -} XResizeRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - int detail; /* Above, Below, TopIf, BottomIf, Opposite */ - unsigned long value_mask; -} XConfigureRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom atom; - Time time; - int state; /* NewValue, Deleted */ -} XPropertyEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom selection; - Time time; -} XSelectionClearEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window owner; - Window requestor; - Atom selection; - Atom target; - Atom property; - Time time; -} XSelectionRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window requestor; - Atom selection; - Atom target; - Atom property; /* ATOM or None */ - Time time; -} XSelectionEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Colormap colormap; /* COLORMAP or None */ -#if defined(__cplusplus) || defined(c_plusplus) - Bool c_new; /* C++ */ -#else - Bool new; -#endif - int state; /* ColormapInstalled, ColormapUninstalled */ -} XColormapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom message_type; - int format; - union { - char b[20]; - short s[10]; - long l[5]; - } data; -} XClientMessageEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* unused */ - int request; /* one of MappingModifier, MappingKeyboard, - MappingPointer */ - int first_keycode; /* first keycode */ - int count; /* defines range of change w. first_keycode*/ -} XMappingEvent; - -typedef struct { - int type; - Display *display; /* Display the event was read from */ - XID resourceid; /* resource id */ - unsigned long serial; /* serial number of failed request */ - unsigned char error_code; /* error code of failed request */ - unsigned char request_code; /* Major op-code of failed request */ - unsigned char minor_code; /* Minor op-code of failed request */ -} XErrorEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display;/* Display the event was read from */ - Window window; /* window on which event was requested in event mask */ -} XAnyEvent; - -/* - * this union is defined so Xlib can always use the same sized - * event structure internally, to avoid memory fragmentation. - */ -typedef union _XEvent { - int type; /* must not be changed; first element */ - XAnyEvent xany; - XKeyEvent xkey; - XButtonEvent xbutton; - XMotionEvent xmotion; - XCrossingEvent xcrossing; - XFocusChangeEvent xfocus; - XExposeEvent xexpose; - XGraphicsExposeEvent xgraphicsexpose; - XNoExposeEvent xnoexpose; - XVisibilityEvent xvisibility; - XCreateWindowEvent xcreatewindow; - XDestroyWindowEvent xdestroywindow; - XUnmapEvent xunmap; - XMapEvent xmap; - XMapRequestEvent xmaprequest; - XReparentEvent xreparent; - XConfigureEvent xconfigure; - XGravityEvent xgravity; - XResizeRequestEvent xresizerequest; - XConfigureRequestEvent xconfigurerequest; - XCirculateEvent xcirculate; - XCirculateRequestEvent xcirculaterequest; - XPropertyEvent xproperty; - XSelectionClearEvent xselectionclear; - XSelectionRequestEvent xselectionrequest; - XSelectionEvent xselection; - XColormapEvent xcolormap; - XClientMessageEvent xclient; - XMappingEvent xmapping; - XErrorEvent xerror; - XKeymapEvent xkeymap; - XID pad[24]; -} XEvent; -#endif - -#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) - -/* - * per character font metric information. - */ -typedef struct { - short lbearing; /* origin to left edge of raster */ - short rbearing; /* origin to right edge of raster */ - short width; /* advance to next char's origin */ - short ascent; /* baseline to top edge of raster */ - short descent; /* baseline to bottom edge of raster */ - unsigned short attributes; /* per char flags (not predefined) */ -} XCharStruct; - -/* - * To allow arbitrary information with fonts, there are additional properties - * returned. - */ -typedef struct { - Atom name; - unsigned long card32; -} XFontProp; - -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - Font fid; /* Font id for this font */ - unsigned direction; /* hint about direction the font is painted */ - unsigned min_char_or_byte2;/* first character */ - unsigned max_char_or_byte2;/* last character */ - unsigned min_byte1; /* first row that exists */ - unsigned max_byte1; /* last row that exists */ - Bool all_chars_exist;/* flag if all characters have non-zero size*/ - unsigned default_char; /* char to print for undefined character */ - int n_properties; /* how many properties there are */ - XFontProp *properties; /* pointer to array of additional properties*/ - XCharStruct min_bounds; /* minimum bounds over all existing char*/ - XCharStruct max_bounds; /* maximum bounds over all existing char*/ - XCharStruct *per_char; /* first_char to last_char information */ - int ascent; /* log. extent above baseline for spacing */ - int descent; /* log. descent below baseline for spacing */ -} XFontStruct; - -/* - * PolyText routines take these as arguments. - */ -typedef struct { - char *chars; /* pointer to string */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem; - -typedef struct { /* normal 16 bit characters are two bytes */ - unsigned char byte1; - unsigned char byte2; -} XChar2b; - -typedef struct { - XChar2b *chars; /* two byte characters */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem16; - - -typedef union { Display *display; - GC gc; - Visual *visual; - Screen *screen; - ScreenFormat *pixmap_format; - XFontStruct *font; } XEDataObject; - -typedef struct { - XRectangle max_ink_extent; - XRectangle max_logical_extent; -} XFontSetExtents; - -typedef struct _XFontSet *XFontSet; - -typedef struct { - char *chars; - int nchars; - int delta; - XFontSet font_set; -} XmbTextItem; - -typedef struct { - wchar_t *chars; - int nchars; - int delta; - XFontSet font_set; -} XwcTextItem; - -typedef void (*XIMProc)(); - -typedef struct _XIM *XIM; -typedef struct _XIC *XIC; - -typedef unsigned long XIMStyle; - -typedef struct { - unsigned short count_styles; - XIMStyle *supported_styles; -} XIMStyles; - -#define XIMPreeditArea 0x0001L -#define XIMPreeditCallbacks 0x0002L -#define XIMPreeditPosition 0x0004L -#define XIMPreeditNothing 0x0008L -#define XIMPreeditNone 0x0010L -#define XIMStatusArea 0x0100L -#define XIMStatusCallbacks 0x0200L -#define XIMStatusNothing 0x0400L -#define XIMStatusNone 0x0800L - -#define XNVaNestedList "XNVaNestedList" -#define XNClientWindow "clientWindow" -#define XNInputStyle "inputStyle" -#define XNFocusWindow "focusWindow" -#define XNResourceName "resourceName" -#define XNResourceClass "resourceClass" -#define XNGeometryCallback "geometryCallback" -#define XNFilterEvents "filterEvents" -#define XNPreeditStartCallback "preeditStartCallback" -#define XNPreeditDoneCallback "preeditDoneCallback" -#define XNPreeditDrawCallback "preeditDrawCallback" -#define XNPreeditCaretCallback "preeditCaretCallback" -#define XNPreeditAttributes "preeditAttributes" -#define XNStatusStartCallback "statusStartCallback" -#define XNStatusDoneCallback "statusDoneCallback" -#define XNStatusDrawCallback "statusDrawCallback" -#define XNStatusAttributes "statusAttributes" -#define XNArea "area" -#define XNAreaNeeded "areaNeeded" -#define XNSpotLocation "spotLocation" -#define XNColormap "colorMap" -#define XNStdColormap "stdColorMap" -#define XNForeground "foreground" -#define XNBackground "background" -#define XNBackgroundPixmap "backgroundPixmap" -#define XNFontSet "fontSet" -#define XNLineSpace "lineSpace" -#define XNCursor "cursor" - -#define XBufferOverflow -1 -#define XLookupNone 1 -#define XLookupChars 2 -#define XLookupKeySym 3 -#define XLookupBoth 4 - -#if NeedFunctionPrototypes -typedef void *XVaNestedList; -#else -typedef XPointer XVaNestedList; -#endif - -typedef struct { - XPointer client_data; - XIMProc callback; -} XIMCallback; - -typedef unsigned long XIMFeedback; - -#define XIMReverse 1 -#define XIMUnderline (1<<1) -#define XIMHighlight (1<<2) -#define XIMPrimary (1<<5) -#define XIMSecondary (1<<6) -#define XIMTertiary (1<<7) - -typedef struct _XIMText { - unsigned short length; - XIMFeedback *feedback; - Bool encoding_is_wchar; - union { - char *multi_byte; - wchar_t *wide_char; - } string; -} XIMText; - -typedef struct _XIMPreeditDrawCallbackStruct { - int caret; /* Cursor offset within pre-edit string */ - int chg_first; /* Starting change position */ - int chg_length; /* Length of the change in character count */ - XIMText *text; -} XIMPreeditDrawCallbackStruct; - -typedef enum { - XIMForwardChar, XIMBackwardChar, - XIMForwardWord, XIMBackwardWord, - XIMCaretUp, XIMCaretDown, - XIMNextLine, XIMPreviousLine, - XIMLineStart, XIMLineEnd, - XIMAbsolutePosition, - XIMDontChange -} XIMCaretDirection; - -typedef enum { - XIMIsInvisible, /* Disable caret feedback */ - XIMIsPrimary, /* UI defined caret feedback */ - XIMIsSecondary /* UI defined caret feedback */ -} XIMCaretStyle; - -typedef struct _XIMPreeditCaretCallbackStruct { - int position; /* Caret offset within pre-edit string */ - XIMCaretDirection direction; /* Caret moves direction */ - XIMCaretStyle style; /* Feedback of the caret */ -} XIMPreeditCaretCallbackStruct; - -typedef enum { - XIMTextType, - XIMBitmapType -} XIMStatusDataType; - -typedef struct _XIMStatusDrawCallbackStruct { - XIMStatusDataType type; - union { - XIMText *text; - Pixmap bitmap; - } data; -} XIMStatusDrawCallbackStruct; - -typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */, - XErrorEvent* /* error_event */ -#endif -); - -_XFUNCPROTOBEGIN - - - -#include "tkIntXlibDecls.h" - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* _XLIB_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xutil.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xutil.h deleted file mode 100644 index bf372fb0f..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/Xutil.h +++ /dev/null @@ -1,855 +0,0 @@ -/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#ifndef _XUTIL_H_ -#define _XUTIL_H_ - -/* You must include before including this file */ - -#if defined(MAC_OSX_TK) -# define Region XRegion -#endif - -/* - * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding - * value (x, y, width, height) was found in the parsed string. - */ -#define NoValue 0x0000 -#define XValue 0x0001 -#define YValue 0x0002 -#define WidthValue 0x0004 -#define HeightValue 0x0008 -#define AllValues 0x000F -#define XNegative 0x0010 -#define YNegative 0x0020 - -/* - * new version containing base_width, base_height, and win_gravity fields; - * used with WM_NORMAL_HINTS. - */ -typedef struct { - long flags; /* marks which fields in this structure are defined */ - int x, y; /* obsolete for new window mgrs, but clients */ - int width, height; /* should set so old wm's don't mess up */ - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; - struct { - int x; /* numerator */ - int y; /* denominator */ - } min_aspect, max_aspect; - int base_width, base_height; /* added by ICCCM version 1 */ - int win_gravity; /* added by ICCCM version 1 */ -} XSizeHints; - -/* - * The next block of definitions are for window manager properties that - * clients and applications use for communication. - */ - -/* flags argument in size hints */ -#define USPosition (1L << 0) /* user specified x, y */ -#define USSize (1L << 1) /* user specified width, height */ - -#define PPosition (1L << 2) /* program specified position */ -#define PSize (1L << 3) /* program specified size */ -#define PMinSize (1L << 4) /* program specified minimum size */ -#define PMaxSize (1L << 5) /* program specified maximum size */ -#define PResizeInc (1L << 6) /* program specified resize increments */ -#define PAspect (1L << 7) /* program specified min and max aspect ratios */ -#define PBaseSize (1L << 8) /* program specified base for incrementing */ -#define PWinGravity (1L << 9) /* program specified window gravity */ - -/* obsolete */ -#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) - - - -typedef struct { - long flags; /* marks which fields in this structure are defined */ - Bool input; /* does this application rely on the window manager to - get keyboard input? */ - int initial_state; /* see below */ - Pixmap icon_pixmap; /* pixmap to be used as icon */ - Window icon_window; /* window to be used as icon */ - int icon_x, icon_y; /* initial position of icon */ - Pixmap icon_mask; /* icon mask bitmap */ - XID window_group; /* id of related window group */ - /* this structure may be extended in the future */ -} XWMHints; - -/* definition for flags of XWMHints */ - -#define InputHint (1L << 0) -#define StateHint (1L << 1) -#define IconPixmapHint (1L << 2) -#define IconWindowHint (1L << 3) -#define IconPositionHint (1L << 4) -#define IconMaskHint (1L << 5) -#define WindowGroupHint (1L << 6) -#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ -IconPositionHint|IconMaskHint|WindowGroupHint) - -/* definitions for initial window state */ -#define WithdrawnState 0 /* for windows that are not mapped */ -#define NormalState 1 /* most applications want to start this way */ -#define IconicState 3 /* application wants to start as an icon */ - -/* - * Obsolete states no longer defined by ICCCM - */ -#define DontCareState 0 /* don't know or care */ -#define ZoomState 2 /* application wants to start zoomed */ -#define InactiveState 4 /* application believes it is seldom used; */ - /* some wm's may put it on inactive menu */ - - -/* - * new structure for manipulating TEXT properties; used with WM_NAME, - * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. - */ -typedef struct { - unsigned char *value; /* same as Property routines */ - Atom encoding; /* prop type */ - int format; /* prop data format: 8, 16, or 32 */ - unsigned long nitems; /* number of data items in value */ -} XTextProperty; - -#define XNoMemory -1 -#define XLocaleNotSupported -2 -#define XConverterNotFound -3 - -typedef enum { - XStringStyle, /* STRING */ - XCompoundTextStyle, /* COMPOUND_TEXT */ - XTextStyle, /* text in owner's encoding (current locale)*/ - XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ -} XICCEncodingStyle; - -typedef struct { - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; -} XIconSize; - -typedef struct { - char *res_name; - char *res_class; -} XClassHint; - -/* - * These macros are used to give some sugar to the image routines so that - * naive people are more comfortable with them. - */ -#define XDestroyImage(ximage) \ - ((*((ximage)->f.destroy_image))((ximage))) -#define XGetPixel(ximage, x, y) \ - ((*((ximage)->f.get_pixel))((ximage), (x), (y))) -#define XPutPixel(ximage, x, y, pixel) \ - ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) -#define XSubImage(ximage, x, y, width, height) \ - ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) -#define XAddPixel(ximage, value) \ - ((*((ximage)->f.add_pixel))((ximage), (value))) - -/* - * Compose sequence status structure, used in calling XLookupString. - */ -typedef struct _XComposeStatus { - XPointer compose_ptr; /* state table pointer */ - int chars_matched; /* match state */ -} XComposeStatus; - -/* - * Keysym macros, used on Keysyms to test for classes of symbols - */ -#define IsKeypadKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) - -#define IsCursorKey(keysym) \ - (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) - -#define IsPFKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) - -#define IsFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) - -#define IsMiscFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) - -#define IsModifierKey(keysym) \ - ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ - || ((unsigned)(keysym) == XK_Mode_switch) \ - || ((unsigned)(keysym) == XK_Num_Lock)) -/* - * opaque reference to Region data type - */ -typedef struct _XRegion *Region; - -/* Return values from XRectInRegion() */ - -#define RectangleOut 0 -#define RectangleIn 1 -#define RectanglePart 2 - - -/* - * Information used by the visual utility routines to find desired visual - * type from the many visuals a display may support. - */ - -typedef struct { - Visual *visual; - VisualID visualid; - int screen; - int depth; -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ */ -#else - int class; -#endif - unsigned long red_mask; - unsigned long green_mask; - unsigned long blue_mask; - int colormap_size; - int bits_per_rgb; -} XVisualInfo; - -#define VisualNoMask 0x0 -#define VisualIDMask 0x1 -#define VisualScreenMask 0x2 -#define VisualDepthMask 0x4 -#define VisualClassMask 0x8 -#define VisualRedMaskMask 0x10 -#define VisualGreenMaskMask 0x20 -#define VisualBlueMaskMask 0x40 -#define VisualColormapSizeMask 0x80 -#define VisualBitsPerRGBMask 0x100 -#define VisualAllMask 0x1FF - -/* - * This defines a window manager property that clients may use to - * share standard color maps of type RGB_COLOR_MAP: - */ -typedef struct { - Colormap colormap; - unsigned long red_max; - unsigned long red_mult; - unsigned long green_max; - unsigned long green_mult; - unsigned long blue_max; - unsigned long blue_mult; - unsigned long base_pixel; - VisualID visualid; /* added by ICCCM version 1 */ - XID killid; /* added by ICCCM version 1 */ -} XStandardColormap; - -#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ - - -/* - * return codes for XReadBitmapFile and XWriteBitmapFile - */ -#define BitmapSuccess 0 -#define BitmapOpenFailed 1 -#define BitmapFileInvalid 2 -#define BitmapNoMemory 3 - -/**************************************************************** - * - * Context Management - * - ****************************************************************/ - - -/* Associative lookup table return codes */ - -#define XCSUCCESS 0 /* No error. */ -#define XCNOMEM 1 /* Out of memory */ -#define XCNOENT 2 /* No entry in table */ - -typedef int XContext; - -#define XUniqueContext() ((XContext) XrmUniqueQuark()) -#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) - -_XFUNCPROTOBEGIN - -/* The following declarations are alphabetized. */ - -extern XClassHint *XAllocClassHint ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XIconSize *XAllocIconSize ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XSizeHints *XAllocSizeHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XStandardColormap *XAllocStandardColormap ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XWMHints *XAllocWMHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern void XClipBox( -#if NeedFunctionPrototypes - Region /* r */, - XRectangle* /* rect_return */ -#endif -); - -extern Region XCreateRegion( -#if NeedFunctionPrototypes - void -#endif -); - -extern char *XDefaultString( -#if NeedFunctionPrototypes - void -#endif -); - -extern int XDeleteContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */ -#endif -); - -extern void XDestroyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEmptyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern Bool XEqualRegion( -#if NeedFunctionPrototypes - Region /* r1 */, - Region /* r2 */ -#endif -); - -extern int XFindContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - XPointer* /* data_return */ -#endif -); - -extern Status XGetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints_return */ -#endif -); - -extern Status XGetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize** /* size_list_return */, - int* /* count_return */ -#endif -); - -extern Status XGetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */ -#endif -); - -extern Status XGetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap** /* stdcmap_return */, - int* /* count_return */, - Atom /* property */ -#endif -); - -extern Status XGetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - Atom /* property */ -#endif -); - -extern Status XGetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap_return */, - Atom /* property */ -#endif -); - -extern Status XGetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* window */, - XTextProperty* /* text_prop_return */, - Atom /* property */ -#endif -); - - -extern Status XGetWMClientMachine( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern XWMHints *XGetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern Status XGetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */ -#endif -); - -extern Status XGetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */, - Atom /* property */ -#endif -); - -extern Status XGetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints_return */ -#endif -); - -extern void XIntersectRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XLookupString( -#if NeedFunctionPrototypes - XKeyEvent* /* event_struct */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - XComposeStatus* /* status_in_out */ -#endif -); - -extern Status XMatchVisualInfo( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen */, - int /* depth */, - int /* class */, - XVisualInfo* /* vinfo_return */ -#endif -); - -extern int XOffsetRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern Bool XPointInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */ -#endif -); - -extern Region XPolygonRegion( -#if NeedFunctionPrototypes - XPoint* /* points */, - int /* n */, - int /* fill_rule */ -#endif -); - -extern int XRectInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern int XSaveContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - _Xconst char* /* data */ -#endif -); - -extern void XSetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize* /* size_list */, - int /* count */ -#endif -); - -extern void XSetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* stdcmaps */, - int /* count */, - Atom /* property */ -#endif -); - -extern void XSetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetStandardProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - Pixmap /* icon_pixmap */, - char** /* argv */, - int /* argc */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */, - Atom /* property */ -#endif -); - -extern void XSetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XWMHints* /* wm_hints */ -#endif -); - -extern void XSetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* window_name */, - XTextProperty* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XmbSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetRegion( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Region /* r */ -#endif -); - -extern void XSetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap */, - Atom /* property */ -#endif -); - -extern void XSetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints */ -#endif -); - -extern void XShrinkRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern void XSubtractRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XmbTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - char** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern int XwcTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - wchar_t** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern void XwcFreeStringList( -#if NeedFunctionPrototypes - wchar_t** /* list */ -#endif -); - -extern Status XTextPropertyToStringList( -#if NeedFunctionPrototypes - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XmbTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XwcTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - wchar_t*** /* list_return */, - int* /* count_return */ -#endif -); - -extern void XUnionRectWithRegion( -#if NeedFunctionPrototypes - XRectangle* /* rectangle */, - Region /* src_region */, - Region /* dest_region_return */ -#endif -); - -extern int XUnionRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XWMGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */, - _Xconst char* /* user_geometry */, - _Xconst char* /* default_geometry */, - unsigned int /* border_width */, - XSizeHints* /* hints */, - int* /* x_return */, - int* /* y_return */, - int* /* width_return */, - int* /* height_return */, - int* /* gravity_return */ -#endif -); - -extern void XXorRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Region -#endif - -#endif /* _XUTIL_H_ */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/ap_keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/ap_keysym.h deleted file mode 100644 index 76cbde2d0..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/ap_keysym.h +++ /dev/null @@ -1,51 +0,0 @@ -/****************************************************************** -Copyright 1987 by Apollo Computer Inc., Chelmsford, Massachusetts. -Copyright 1989 by Hewlett-Packard Company. - - All Rights Reserved - -Permission to use, duplicate, change, and distribute this software and -its documentation for any purpose and without fee is granted, provided -that the above copyright notice appear in such copy and that this -copyright notice appear in all supporting documentation, and that the -names of Apollo Computer Inc., the Hewlett-Packard Company, or the X -Consortium not be used in advertising or publicity pertaining to -distribution of the software without written prior permission. - -HEWLETT-PACKARD MAKES NO WARRANTY OF ANY KIND WITH REGARD -TO THIS SOFWARE, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. Hewlett-Packard shall not be liable for errors -contained herein or direct, indirect, special, incidental or -consequential damages in connection with the furnishing, -performance, or use of this material. - -This software is not subject to any license of the American -Telephone and Telegraph Company or of the Regents of the -University of California. -******************************************************************/ - -#define apXK_LineDel 0x1000FF00 -#define apXK_CharDel 0x1000FF01 -#define apXK_Copy 0x1000FF02 -#define apXK_Cut 0x1000FF03 -#define apXK_Paste 0x1000FF04 -#define apXK_Move 0x1000FF05 -#define apXK_Grow 0x1000FF06 -#define apXK_Cmd 0x1000FF07 -#define apXK_Shell 0x1000FF08 -#define apXK_LeftBar 0x1000FF09 -#define apXK_RightBar 0x1000FF0A -#define apXK_LeftBox 0x1000FF0B -#define apXK_RightBox 0x1000FF0C -#define apXK_UpBox 0x1000FF0D -#define apXK_DownBox 0x1000FF0E -#define apXK_Pop 0x1000FF0F -#define apXK_Read 0x1000FF10 -#define apXK_Edit 0x1000FF11 -#define apXK_Save 0x1000FF12 -#define apXK_Exit 0x1000FF13 -#define apXK_Repeat 0x1000FF14 - -#define apXK_KP_parenleft 0x1000FFA8 -#define apXK_KP_parenright 0x1000FFA9 diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/cursorfont.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/cursorfont.h deleted file mode 100644 index 617274fa8..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/cursorfont.h +++ /dev/null @@ -1,79 +0,0 @@ -/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ -#define XC_num_glyphs 154 -#define XC_X_cursor 0 -#define XC_arrow 2 -#define XC_based_arrow_down 4 -#define XC_based_arrow_up 6 -#define XC_boat 8 -#define XC_bogosity 10 -#define XC_bottom_left_corner 12 -#define XC_bottom_right_corner 14 -#define XC_bottom_side 16 -#define XC_bottom_tee 18 -#define XC_box_spiral 20 -#define XC_center_ptr 22 -#define XC_circle 24 -#define XC_clock 26 -#define XC_coffee_mug 28 -#define XC_cross 30 -#define XC_cross_reverse 32 -#define XC_crosshair 34 -#define XC_diamond_cross 36 -#define XC_dot 38 -#define XC_dotbox 40 -#define XC_double_arrow 42 -#define XC_draft_large 44 -#define XC_draft_small 46 -#define XC_draped_box 48 -#define XC_exchange 50 -#define XC_fleur 52 -#define XC_gobbler 54 -#define XC_gumby 56 -#define XC_hand1 58 -#define XC_hand2 60 -#define XC_heart 62 -#define XC_icon 64 -#define XC_iron_cross 66 -#define XC_left_ptr 68 -#define XC_left_side 70 -#define XC_left_tee 72 -#define XC_leftbutton 74 -#define XC_ll_angle 76 -#define XC_lr_angle 78 -#define XC_man 80 -#define XC_middlebutton 82 -#define XC_mouse 84 -#define XC_pencil 86 -#define XC_pirate 88 -#define XC_plus 90 -#define XC_question_arrow 92 -#define XC_right_ptr 94 -#define XC_right_side 96 -#define XC_right_tee 98 -#define XC_rightbutton 100 -#define XC_rtl_logo 102 -#define XC_sailboat 104 -#define XC_sb_down_arrow 106 -#define XC_sb_h_double_arrow 108 -#define XC_sb_left_arrow 110 -#define XC_sb_right_arrow 112 -#define XC_sb_up_arrow 114 -#define XC_sb_v_double_arrow 116 -#define XC_shuttle 118 -#define XC_sizing 120 -#define XC_spider 122 -#define XC_spraycan 124 -#define XC_star 126 -#define XC_target 128 -#define XC_tcross 130 -#define XC_top_left_arrow 132 -#define XC_top_left_corner 134 -#define XC_top_right_corner 136 -#define XC_top_side 138 -#define XC_top_tee 140 -#define XC_trek 142 -#define XC_ul_angle 144 -#define XC_umbrella 146 -#define XC_ur_angle 148 -#define XC_watch 150 -#define XC_xterm 152 diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/keysym.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/keysym.h deleted file mode 100644 index 550b76dba..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/keysym.h +++ /dev/null @@ -1,35 +0,0 @@ -/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* default keysyms */ -#define XK_MISCELLANY -#define XK_LATIN1 -#define XK_LATIN2 -#define XK_LATIN3 -#define XK_LATIN4 -#define XK_GREEK - -#include diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/keysymdef.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/keysymdef.h deleted file mode 100644 index 460c72d22..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/X11/keysymdef.h +++ /dev/null @@ -1,1183 +0,0 @@ -/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#define XK_VoidSymbol 0xFFFFFF /* void symbol */ - -#ifdef XK_MISCELLANY -/* - * TTY Functions, cleverly chosen to map to ascii, for convenience of - * programming, but could have been arbitrary (at the cost of lookup - * tables in client code. - */ - -#define XK_BackSpace 0xFF08 /* back space, back char */ -#define XK_Tab 0xFF09 -#define XK_Linefeed 0xFF0A /* Linefeed, LF */ -#define XK_Clear 0xFF0B -#define XK_Return 0xFF0D /* Return, enter */ -#define XK_Pause 0xFF13 /* Pause, hold */ -#define XK_Scroll_Lock 0xFF14 -#define XK_Sys_Req 0xFF15 -#define XK_Escape 0xFF1B -#define XK_Delete 0xFFFF /* Delete, rubout */ - - - -/* International & multi-key character composition */ - -#define XK_Multi_key 0xFF20 /* Multi-key character compose */ - -/* Japanese keyboard support */ - -#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ -#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ -#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ -#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ -#define XK_Romaji 0xFF24 /* to Romaji */ -#define XK_Hiragana 0xFF25 /* to Hiragana */ -#define XK_Katakana 0xFF26 /* to Katakana */ -#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ -#define XK_Zenkaku 0xFF28 /* to Zenkaku */ -#define XK_Hankaku 0xFF29 /* to Hankaku */ -#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ -#define XK_Touroku 0xFF2B /* Add to Dictionary */ -#define XK_Massyo 0xFF2C /* Delete from Dictionary */ -#define XK_Kana_Lock 0xFF2D /* Kana Lock */ -#define XK_Kana_Shift 0xFF2E /* Kana Shift */ -#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ -#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ - -/* Cursor control & motion */ - -#define XK_Home 0xFF50 -#define XK_Left 0xFF51 /* Move left, left arrow */ -#define XK_Up 0xFF52 /* Move up, up arrow */ -#define XK_Right 0xFF53 /* Move right, right arrow */ -#define XK_Down 0xFF54 /* Move down, down arrow */ -#define XK_Prior 0xFF55 /* Prior, previous */ -#define XK_Page_Up 0xFF55 -#define XK_Next 0xFF56 /* Next */ -#define XK_Page_Down 0xFF56 -#define XK_End 0xFF57 /* EOL */ -#define XK_Begin 0xFF58 /* BOL */ - -/* Special Windows keyboard keys */ - -#define XK_Win_L 0xFF5B /* Left-hand Windows */ -#define XK_Win_R 0xFF5C /* Right-hand Windows */ -#define XK_App 0xFF5D /* Menu key */ - -/* Misc Functions */ - -#define XK_Select 0xFF60 /* Select, mark */ -#define XK_Print 0xFF61 -#define XK_Execute 0xFF62 /* Execute, run, do */ -#define XK_Insert 0xFF63 /* Insert, insert here */ -#define XK_Undo 0xFF65 /* Undo, oops */ -#define XK_Redo 0xFF66 /* redo, again */ -#define XK_Menu 0xFF67 -#define XK_Find 0xFF68 /* Find, search */ -#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ -#define XK_Help 0xFF6A /* Help, ? */ -#define XK_Break 0xFF6B -#define XK_Mode_switch 0xFF7E /* Character set switch */ -#define XK_script_switch 0xFF7E /* Alias for mode_switch */ -#define XK_Num_Lock 0xFF7F - -/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ - -#define XK_KP_Space 0xFF80 /* space */ -#define XK_KP_Tab 0xFF89 -#define XK_KP_Enter 0xFF8D /* enter */ -#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ -#define XK_KP_F2 0xFF92 -#define XK_KP_F3 0xFF93 -#define XK_KP_F4 0xFF94 -#define XK_KP_Home 0xFF95 -#define XK_KP_Left 0xFF96 -#define XK_KP_Up 0xFF97 -#define XK_KP_Right 0xFF98 -#define XK_KP_Down 0xFF99 -#define XK_KP_Prior 0xFF9A -#define XK_KP_Page_Up 0xFF9A -#define XK_KP_Next 0xFF9B -#define XK_KP_Page_Down 0xFF9B -#define XK_KP_End 0xFF9C -#define XK_KP_Begin 0xFF9D -#define XK_KP_Insert 0xFF9E -#define XK_KP_Delete 0xFF9F -#define XK_KP_Equal 0xFFBD /* equals */ -#define XK_KP_Multiply 0xFFAA -#define XK_KP_Add 0xFFAB -#define XK_KP_Separator 0xFFAC /* separator, often comma */ -#define XK_KP_Subtract 0xFFAD -#define XK_KP_Decimal 0xFFAE -#define XK_KP_Divide 0xFFAF - -#define XK_KP_0 0xFFB0 -#define XK_KP_1 0xFFB1 -#define XK_KP_2 0xFFB2 -#define XK_KP_3 0xFFB3 -#define XK_KP_4 0xFFB4 -#define XK_KP_5 0xFFB5 -#define XK_KP_6 0xFFB6 -#define XK_KP_7 0xFFB7 -#define XK_KP_8 0xFFB8 -#define XK_KP_9 0xFFB9 - - - -/* - * Auxilliary Functions; note the duplicate definitions for left and right - * function keys; Sun keyboards and a few other manufactures have such - * function key groups on the left and/or right sides of the keyboard. - * We've not found a keyboard with more than 35 function keys total. - */ - -#define XK_F1 0xFFBE -#define XK_F2 0xFFBF -#define XK_F3 0xFFC0 -#define XK_F4 0xFFC1 -#define XK_F5 0xFFC2 -#define XK_F6 0xFFC3 -#define XK_F7 0xFFC4 -#define XK_F8 0xFFC5 -#define XK_F9 0xFFC6 -#define XK_F10 0xFFC7 -#define XK_F11 0xFFC8 -#define XK_L1 0xFFC8 -#define XK_F12 0xFFC9 -#define XK_L2 0xFFC9 -#define XK_F13 0xFFCA -#define XK_L3 0xFFCA -#define XK_F14 0xFFCB -#define XK_L4 0xFFCB -#define XK_F15 0xFFCC -#define XK_L5 0xFFCC -#define XK_F16 0xFFCD -#define XK_L6 0xFFCD -#define XK_F17 0xFFCE -#define XK_L7 0xFFCE -#define XK_F18 0xFFCF -#define XK_L8 0xFFCF -#define XK_F19 0xFFD0 -#define XK_L9 0xFFD0 -#define XK_F20 0xFFD1 -#define XK_L10 0xFFD1 -#define XK_F21 0xFFD2 -#define XK_R1 0xFFD2 -#define XK_F22 0xFFD3 -#define XK_R2 0xFFD3 -#define XK_F23 0xFFD4 -#define XK_R3 0xFFD4 -#define XK_F24 0xFFD5 -#define XK_R4 0xFFD5 -#define XK_F25 0xFFD6 -#define XK_R5 0xFFD6 -#define XK_F26 0xFFD7 -#define XK_R6 0xFFD7 -#define XK_F27 0xFFD8 -#define XK_R7 0xFFD8 -#define XK_F28 0xFFD9 -#define XK_R8 0xFFD9 -#define XK_F29 0xFFDA -#define XK_R9 0xFFDA -#define XK_F30 0xFFDB -#define XK_R10 0xFFDB -#define XK_F31 0xFFDC -#define XK_R11 0xFFDC -#define XK_F32 0xFFDD -#define XK_R12 0xFFDD -#define XK_F33 0xFFDE -#define XK_R13 0xFFDE -#define XK_F34 0xFFDF -#define XK_R14 0xFFDF -#define XK_F35 0xFFE0 -#define XK_R15 0xFFE0 - -/* Modifiers */ - -#define XK_Shift_L 0xFFE1 /* Left shift */ -#define XK_Shift_R 0xFFE2 /* Right shift */ -#define XK_Control_L 0xFFE3 /* Left control */ -#define XK_Control_R 0xFFE4 /* Right control */ -#define XK_Caps_Lock 0xFFE5 /* Caps lock */ -#define XK_Shift_Lock 0xFFE6 /* Shift lock */ - -#define XK_Meta_L 0xFFE7 /* Left meta */ -#define XK_Meta_R 0xFFE8 /* Right meta */ -#define XK_Alt_L 0xFFE9 /* Left alt */ -#define XK_Alt_R 0xFFEA /* Right alt */ -#define XK_Super_L 0xFFEB /* Left super */ -#define XK_Super_R 0xFFEC /* Right super */ -#define XK_Hyper_L 0xFFED /* Left hyper */ -#define XK_Hyper_R 0xFFEE /* Right hyper */ -#endif /* XK_MISCELLANY */ - -/* - * Latin 1 - * Byte 3 = 0 - */ -#ifdef XK_LATIN1 -#define XK_space 0x020 -#define XK_exclam 0x021 -#define XK_quotedbl 0x022 -#define XK_numbersign 0x023 -#define XK_dollar 0x024 -#define XK_percent 0x025 -#define XK_ampersand 0x026 -#define XK_apostrophe 0x027 -#define XK_quoteright 0x027 /* deprecated */ -#define XK_parenleft 0x028 -#define XK_parenright 0x029 -#define XK_asterisk 0x02a -#define XK_plus 0x02b -#define XK_comma 0x02c -#define XK_minus 0x02d -#define XK_period 0x02e -#define XK_slash 0x02f -#define XK_0 0x030 -#define XK_1 0x031 -#define XK_2 0x032 -#define XK_3 0x033 -#define XK_4 0x034 -#define XK_5 0x035 -#define XK_6 0x036 -#define XK_7 0x037 -#define XK_8 0x038 -#define XK_9 0x039 -#define XK_colon 0x03a -#define XK_semicolon 0x03b -#define XK_less 0x03c -#define XK_equal 0x03d -#define XK_greater 0x03e -#define XK_question 0x03f -#define XK_at 0x040 -#define XK_A 0x041 -#define XK_B 0x042 -#define XK_C 0x043 -#define XK_D 0x044 -#define XK_E 0x045 -#define XK_F 0x046 -#define XK_G 0x047 -#define XK_H 0x048 -#define XK_I 0x049 -#define XK_J 0x04a -#define XK_K 0x04b -#define XK_L 0x04c -#define XK_M 0x04d -#define XK_N 0x04e -#define XK_O 0x04f -#define XK_P 0x050 -#define XK_Q 0x051 -#define XK_R 0x052 -#define XK_S 0x053 -#define XK_T 0x054 -#define XK_U 0x055 -#define XK_V 0x056 -#define XK_W 0x057 -#define XK_X 0x058 -#define XK_Y 0x059 -#define XK_Z 0x05a -#define XK_bracketleft 0x05b -#define XK_backslash 0x05c -#define XK_bracketright 0x05d -#define XK_asciicircum 0x05e -#define XK_underscore 0x05f -#define XK_grave 0x060 -#define XK_quoteleft 0x060 /* deprecated */ -#define XK_a 0x061 -#define XK_b 0x062 -#define XK_c 0x063 -#define XK_d 0x064 -#define XK_e 0x065 -#define XK_f 0x066 -#define XK_g 0x067 -#define XK_h 0x068 -#define XK_i 0x069 -#define XK_j 0x06a -#define XK_k 0x06b -#define XK_l 0x06c -#define XK_m 0x06d -#define XK_n 0x06e -#define XK_o 0x06f -#define XK_p 0x070 -#define XK_q 0x071 -#define XK_r 0x072 -#define XK_s 0x073 -#define XK_t 0x074 -#define XK_u 0x075 -#define XK_v 0x076 -#define XK_w 0x077 -#define XK_x 0x078 -#define XK_y 0x079 -#define XK_z 0x07a -#define XK_braceleft 0x07b -#define XK_bar 0x07c -#define XK_braceright 0x07d -#define XK_asciitilde 0x07e - -#define XK_nobreakspace 0x0a0 -#define XK_exclamdown 0x0a1 -#define XK_cent 0x0a2 -#define XK_sterling 0x0a3 -#define XK_currency 0x0a4 -#define XK_yen 0x0a5 -#define XK_brokenbar 0x0a6 -#define XK_section 0x0a7 -#define XK_diaeresis 0x0a8 -#define XK_copyright 0x0a9 -#define XK_ordfeminine 0x0aa -#define XK_guillemotleft 0x0ab /* left angle quotation mark */ -#define XK_notsign 0x0ac -#define XK_hyphen 0x0ad -#define XK_registered 0x0ae -#define XK_macron 0x0af -#define XK_degree 0x0b0 -#define XK_plusminus 0x0b1 -#define XK_twosuperior 0x0b2 -#define XK_threesuperior 0x0b3 -#define XK_acute 0x0b4 -#define XK_mu 0x0b5 -#define XK_paragraph 0x0b6 -#define XK_periodcentered 0x0b7 -#define XK_cedilla 0x0b8 -#define XK_onesuperior 0x0b9 -#define XK_masculine 0x0ba -#define XK_guillemotright 0x0bb /* right angle quotation mark */ -#define XK_onequarter 0x0bc -#define XK_onehalf 0x0bd -#define XK_threequarters 0x0be -#define XK_questiondown 0x0bf -#define XK_Agrave 0x0c0 -#define XK_Aacute 0x0c1 -#define XK_Acircumflex 0x0c2 -#define XK_Atilde 0x0c3 -#define XK_Adiaeresis 0x0c4 -#define XK_Aring 0x0c5 -#define XK_AE 0x0c6 -#define XK_Ccedilla 0x0c7 -#define XK_Egrave 0x0c8 -#define XK_Eacute 0x0c9 -#define XK_Ecircumflex 0x0ca -#define XK_Ediaeresis 0x0cb -#define XK_Igrave 0x0cc -#define XK_Iacute 0x0cd -#define XK_Icircumflex 0x0ce -#define XK_Idiaeresis 0x0cf -#define XK_ETH 0x0d0 -#define XK_Eth 0x0d0 /* deprecated */ -#define XK_Ntilde 0x0d1 -#define XK_Ograve 0x0d2 -#define XK_Oacute 0x0d3 -#define XK_Ocircumflex 0x0d4 -#define XK_Otilde 0x0d5 -#define XK_Odiaeresis 0x0d6 -#define XK_multiply 0x0d7 -#define XK_Oslash 0x0d8 -#define XK_Ooblique 0x0d8 -#define XK_Ugrave 0x0d9 -#define XK_Uacute 0x0da -#define XK_Ucircumflex 0x0db -#define XK_Udiaeresis 0x0dc -#define XK_Yacute 0x0dd -#define XK_THORN 0x0de -#define XK_Thorn 0x0de /* deprecated */ -#define XK_ssharp 0x0df -#define XK_agrave 0x0e0 -#define XK_aacute 0x0e1 -#define XK_acircumflex 0x0e2 -#define XK_atilde 0x0e3 -#define XK_adiaeresis 0x0e4 -#define XK_aring 0x0e5 -#define XK_ae 0x0e6 -#define XK_ccedilla 0x0e7 -#define XK_egrave 0x0e8 -#define XK_eacute 0x0e9 -#define XK_ecircumflex 0x0ea -#define XK_ediaeresis 0x0eb -#define XK_igrave 0x0ec -#define XK_iacute 0x0ed -#define XK_icircumflex 0x0ee -#define XK_idiaeresis 0x0ef -#define XK_eth 0x0f0 -#define XK_ntilde 0x0f1 -#define XK_ograve 0x0f2 -#define XK_oacute 0x0f3 -#define XK_ocircumflex 0x0f4 -#define XK_otilde 0x0f5 -#define XK_odiaeresis 0x0f6 -#define XK_division 0x0f7 -#define XK_oslash 0x0f8 -#define XK_ugrave 0x0f9 -#define XK_uacute 0x0fa -#define XK_ucircumflex 0x0fb -#define XK_udiaeresis 0x0fc -#define XK_yacute 0x0fd -#define XK_thorn 0x0fe -#define XK_ydiaeresis 0x0ff -#endif /* XK_LATIN1 */ - -/* - * Latin 2 - * Byte 3 = 1 - */ - -#ifdef XK_LATIN2 -#define XK_Aogonek 0x1a1 -#define XK_breve 0x1a2 -#define XK_Lstroke 0x1a3 -#define XK_Lcaron 0x1a5 -#define XK_Sacute 0x1a6 -#define XK_Scaron 0x1a9 -#define XK_Scedilla 0x1aa -#define XK_Tcaron 0x1ab -#define XK_Zacute 0x1ac -#define XK_Zcaron 0x1ae -#define XK_Zabovedot 0x1af -#define XK_aogonek 0x1b1 -#define XK_ogonek 0x1b2 -#define XK_lstroke 0x1b3 -#define XK_lcaron 0x1b5 -#define XK_sacute 0x1b6 -#define XK_caron 0x1b7 -#define XK_scaron 0x1b9 -#define XK_scedilla 0x1ba -#define XK_tcaron 0x1bb -#define XK_zacute 0x1bc -#define XK_doubleacute 0x1bd -#define XK_zcaron 0x1be -#define XK_zabovedot 0x1bf -#define XK_Racute 0x1c0 -#define XK_Abreve 0x1c3 -#define XK_Lacute 0x1c5 -#define XK_Cacute 0x1c6 -#define XK_Ccaron 0x1c8 -#define XK_Eogonek 0x1ca -#define XK_Ecaron 0x1cc -#define XK_Dcaron 0x1cf -#define XK_Dstroke 0x1d0 -#define XK_Nacute 0x1d1 -#define XK_Ncaron 0x1d2 -#define XK_Odoubleacute 0x1d5 -#define XK_Rcaron 0x1d8 -#define XK_Uring 0x1d9 -#define XK_Udoubleacute 0x1db -#define XK_Tcedilla 0x1de -#define XK_racute 0x1e0 -#define XK_abreve 0x1e3 -#define XK_lacute 0x1e5 -#define XK_cacute 0x1e6 -#define XK_ccaron 0x1e8 -#define XK_eogonek 0x1ea -#define XK_ecaron 0x1ec -#define XK_dcaron 0x1ef -#define XK_dstroke 0x1f0 -#define XK_nacute 0x1f1 -#define XK_ncaron 0x1f2 -#define XK_odoubleacute 0x1f5 -#define XK_udoubleacute 0x1fb -#define XK_rcaron 0x1f8 -#define XK_uring 0x1f9 -#define XK_tcedilla 0x1fe -#define XK_abovedot 0x1ff -#endif /* XK_LATIN2 */ - -/* - * Latin 3 - * Byte 3 = 2 - */ - -#ifdef XK_LATIN3 -#define XK_Hstroke 0x2a1 -#define XK_Hcircumflex 0x2a6 -#define XK_Iabovedot 0x2a9 -#define XK_Gbreve 0x2ab -#define XK_Jcircumflex 0x2ac -#define XK_hstroke 0x2b1 -#define XK_hcircumflex 0x2b6 -#define XK_idotless 0x2b9 -#define XK_gbreve 0x2bb -#define XK_jcircumflex 0x2bc -#define XK_Cabovedot 0x2c5 -#define XK_Ccircumflex 0x2c6 -#define XK_Gabovedot 0x2d5 -#define XK_Gcircumflex 0x2d8 -#define XK_Ubreve 0x2dd -#define XK_Scircumflex 0x2de -#define XK_cabovedot 0x2e5 -#define XK_ccircumflex 0x2e6 -#define XK_gabovedot 0x2f5 -#define XK_gcircumflex 0x2f8 -#define XK_ubreve 0x2fd -#define XK_scircumflex 0x2fe -#endif /* XK_LATIN3 */ - - -/* - * Latin 4 - * Byte 3 = 3 - */ - -#ifdef XK_LATIN4 -#define XK_kra 0x3a2 -#define XK_kappa 0x3a2 /* deprecated */ -#define XK_Rcedilla 0x3a3 -#define XK_Itilde 0x3a5 -#define XK_Lcedilla 0x3a6 -#define XK_Emacron 0x3aa -#define XK_Gcedilla 0x3ab -#define XK_Tslash 0x3ac -#define XK_rcedilla 0x3b3 -#define XK_itilde 0x3b5 -#define XK_lcedilla 0x3b6 -#define XK_emacron 0x3ba -#define XK_gcedilla 0x3bb -#define XK_tslash 0x3bc -#define XK_ENG 0x3bd -#define XK_eng 0x3bf -#define XK_Amacron 0x3c0 -#define XK_Iogonek 0x3c7 -#define XK_Eabovedot 0x3cc -#define XK_Imacron 0x3cf -#define XK_Ncedilla 0x3d1 -#define XK_Omacron 0x3d2 -#define XK_Kcedilla 0x3d3 -#define XK_Uogonek 0x3d9 -#define XK_Utilde 0x3dd -#define XK_Umacron 0x3de -#define XK_amacron 0x3e0 -#define XK_iogonek 0x3e7 -#define XK_eabovedot 0x3ec -#define XK_imacron 0x3ef -#define XK_ncedilla 0x3f1 -#define XK_omacron 0x3f2 -#define XK_kcedilla 0x3f3 -#define XK_uogonek 0x3f9 -#define XK_utilde 0x3fd -#define XK_umacron 0x3fe -#endif /* XK_LATIN4 */ - -/* - * Katakana - * Byte 3 = 4 - */ - -#ifdef XK_KATAKANA -#define XK_overline 0x47e -#define XK_kana_fullstop 0x4a1 -#define XK_kana_openingbracket 0x4a2 -#define XK_kana_closingbracket 0x4a3 -#define XK_kana_comma 0x4a4 -#define XK_kana_conjunctive 0x4a5 -#define XK_kana_middledot 0x4a5 /* deprecated */ -#define XK_kana_WO 0x4a6 -#define XK_kana_a 0x4a7 -#define XK_kana_i 0x4a8 -#define XK_kana_u 0x4a9 -#define XK_kana_e 0x4aa -#define XK_kana_o 0x4ab -#define XK_kana_ya 0x4ac -#define XK_kana_yu 0x4ad -#define XK_kana_yo 0x4ae -#define XK_kana_tsu 0x4af -#define XK_kana_tu 0x4af /* deprecated */ -#define XK_prolongedsound 0x4b0 -#define XK_kana_A 0x4b1 -#define XK_kana_I 0x4b2 -#define XK_kana_U 0x4b3 -#define XK_kana_E 0x4b4 -#define XK_kana_O 0x4b5 -#define XK_kana_KA 0x4b6 -#define XK_kana_KI 0x4b7 -#define XK_kana_KU 0x4b8 -#define XK_kana_KE 0x4b9 -#define XK_kana_KO 0x4ba -#define XK_kana_SA 0x4bb -#define XK_kana_SHI 0x4bc -#define XK_kana_SU 0x4bd -#define XK_kana_SE 0x4be -#define XK_kana_SO 0x4bf -#define XK_kana_TA 0x4c0 -#define XK_kana_CHI 0x4c1 -#define XK_kana_TI 0x4c1 /* deprecated */ -#define XK_kana_TSU 0x4c2 -#define XK_kana_TU 0x4c2 /* deprecated */ -#define XK_kana_TE 0x4c3 -#define XK_kana_TO 0x4c4 -#define XK_kana_NA 0x4c5 -#define XK_kana_NI 0x4c6 -#define XK_kana_NU 0x4c7 -#define XK_kana_NE 0x4c8 -#define XK_kana_NO 0x4c9 -#define XK_kana_HA 0x4ca -#define XK_kana_HI 0x4cb -#define XK_kana_FU 0x4cc -#define XK_kana_HU 0x4cc /* deprecated */ -#define XK_kana_HE 0x4cd -#define XK_kana_HO 0x4ce -#define XK_kana_MA 0x4cf -#define XK_kana_MI 0x4d0 -#define XK_kana_MU 0x4d1 -#define XK_kana_ME 0x4d2 -#define XK_kana_MO 0x4d3 -#define XK_kana_YA 0x4d4 -#define XK_kana_YU 0x4d5 -#define XK_kana_YO 0x4d6 -#define XK_kana_RA 0x4d7 -#define XK_kana_RI 0x4d8 -#define XK_kana_RU 0x4d9 -#define XK_kana_RE 0x4da -#define XK_kana_RO 0x4db -#define XK_kana_WA 0x4dc -#define XK_kana_N 0x4dd -#define XK_voicedsound 0x4de -#define XK_semivoicedsound 0x4df -#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_KATAKANA */ - -/* - * Arabic - * Byte 3 = 5 - */ - -#ifdef XK_ARABIC -#define XK_Arabic_comma 0x5ac -#define XK_Arabic_semicolon 0x5bb -#define XK_Arabic_question_mark 0x5bf -#define XK_Arabic_hamza 0x5c1 -#define XK_Arabic_maddaonalef 0x5c2 -#define XK_Arabic_hamzaonalef 0x5c3 -#define XK_Arabic_hamzaonwaw 0x5c4 -#define XK_Arabic_hamzaunderalef 0x5c5 -#define XK_Arabic_hamzaonyeh 0x5c6 -#define XK_Arabic_alef 0x5c7 -#define XK_Arabic_beh 0x5c8 -#define XK_Arabic_tehmarbuta 0x5c9 -#define XK_Arabic_teh 0x5ca -#define XK_Arabic_theh 0x5cb -#define XK_Arabic_jeem 0x5cc -#define XK_Arabic_hah 0x5cd -#define XK_Arabic_khah 0x5ce -#define XK_Arabic_dal 0x5cf -#define XK_Arabic_thal 0x5d0 -#define XK_Arabic_ra 0x5d1 -#define XK_Arabic_zain 0x5d2 -#define XK_Arabic_seen 0x5d3 -#define XK_Arabic_sheen 0x5d4 -#define XK_Arabic_sad 0x5d5 -#define XK_Arabic_dad 0x5d6 -#define XK_Arabic_tah 0x5d7 -#define XK_Arabic_zah 0x5d8 -#define XK_Arabic_ain 0x5d9 -#define XK_Arabic_ghain 0x5da -#define XK_Arabic_tatweel 0x5e0 -#define XK_Arabic_feh 0x5e1 -#define XK_Arabic_qaf 0x5e2 -#define XK_Arabic_kaf 0x5e3 -#define XK_Arabic_lam 0x5e4 -#define XK_Arabic_meem 0x5e5 -#define XK_Arabic_noon 0x5e6 -#define XK_Arabic_ha 0x5e7 -#define XK_Arabic_heh 0x5e7 /* deprecated */ -#define XK_Arabic_waw 0x5e8 -#define XK_Arabic_alefmaksura 0x5e9 -#define XK_Arabic_yeh 0x5ea -#define XK_Arabic_fathatan 0x5eb -#define XK_Arabic_dammatan 0x5ec -#define XK_Arabic_kasratan 0x5ed -#define XK_Arabic_fatha 0x5ee -#define XK_Arabic_damma 0x5ef -#define XK_Arabic_kasra 0x5f0 -#define XK_Arabic_shadda 0x5f1 -#define XK_Arabic_sukun 0x5f2 -#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_ARABIC */ - -/* - * Cyrillic - * Byte 3 = 6 - */ -#ifdef XK_CYRILLIC -#define XK_Serbian_dje 0x6a1 -#define XK_Macedonia_gje 0x6a2 -#define XK_Cyrillic_io 0x6a3 -#define XK_Ukrainian_ie 0x6a4 -#define XK_Ukranian_je 0x6a4 /* deprecated */ -#define XK_Macedonia_dse 0x6a5 -#define XK_Ukrainian_i 0x6a6 -#define XK_Ukranian_i 0x6a6 /* deprecated */ -#define XK_Ukrainian_yi 0x6a7 -#define XK_Ukranian_yi 0x6a7 /* deprecated */ -#define XK_Cyrillic_je 0x6a8 -#define XK_Serbian_je 0x6a8 /* deprecated */ -#define XK_Cyrillic_lje 0x6a9 -#define XK_Serbian_lje 0x6a9 /* deprecated */ -#define XK_Cyrillic_nje 0x6aa -#define XK_Serbian_nje 0x6aa /* deprecated */ -#define XK_Serbian_tshe 0x6ab -#define XK_Macedonia_kje 0x6ac -#define XK_Byelorussian_shortu 0x6ae -#define XK_Cyrillic_dzhe 0x6af -#define XK_Serbian_dze 0x6af /* deprecated */ -#define XK_numerosign 0x6b0 -#define XK_Serbian_DJE 0x6b1 -#define XK_Macedonia_GJE 0x6b2 -#define XK_Cyrillic_IO 0x6b3 -#define XK_Ukrainian_IE 0x6b4 -#define XK_Ukranian_JE 0x6b4 /* deprecated */ -#define XK_Macedonia_DSE 0x6b5 -#define XK_Ukrainian_I 0x6b6 -#define XK_Ukranian_I 0x6b6 /* deprecated */ -#define XK_Ukrainian_YI 0x6b7 -#define XK_Ukranian_YI 0x6b7 /* deprecated */ -#define XK_Cyrillic_JE 0x6b8 -#define XK_Serbian_JE 0x6b8 /* deprecated */ -#define XK_Cyrillic_LJE 0x6b9 -#define XK_Serbian_LJE 0x6b9 /* deprecated */ -#define XK_Cyrillic_NJE 0x6ba -#define XK_Serbian_NJE 0x6ba /* deprecated */ -#define XK_Serbian_TSHE 0x6bb -#define XK_Macedonia_KJE 0x6bc -#define XK_Byelorussian_SHORTU 0x6be -#define XK_Cyrillic_DZHE 0x6bf -#define XK_Serbian_DZE 0x6bf /* deprecated */ -#define XK_Cyrillic_yu 0x6c0 -#define XK_Cyrillic_a 0x6c1 -#define XK_Cyrillic_be 0x6c2 -#define XK_Cyrillic_tse 0x6c3 -#define XK_Cyrillic_de 0x6c4 -#define XK_Cyrillic_ie 0x6c5 -#define XK_Cyrillic_ef 0x6c6 -#define XK_Cyrillic_ghe 0x6c7 -#define XK_Cyrillic_ha 0x6c8 -#define XK_Cyrillic_i 0x6c9 -#define XK_Cyrillic_shorti 0x6ca -#define XK_Cyrillic_ka 0x6cb -#define XK_Cyrillic_el 0x6cc -#define XK_Cyrillic_em 0x6cd -#define XK_Cyrillic_en 0x6ce -#define XK_Cyrillic_o 0x6cf -#define XK_Cyrillic_pe 0x6d0 -#define XK_Cyrillic_ya 0x6d1 -#define XK_Cyrillic_er 0x6d2 -#define XK_Cyrillic_es 0x6d3 -#define XK_Cyrillic_te 0x6d4 -#define XK_Cyrillic_u 0x6d5 -#define XK_Cyrillic_zhe 0x6d6 -#define XK_Cyrillic_ve 0x6d7 -#define XK_Cyrillic_softsign 0x6d8 -#define XK_Cyrillic_yeru 0x6d9 -#define XK_Cyrillic_ze 0x6da -#define XK_Cyrillic_sha 0x6db -#define XK_Cyrillic_e 0x6dc -#define XK_Cyrillic_shcha 0x6dd -#define XK_Cyrillic_che 0x6de -#define XK_Cyrillic_hardsign 0x6df -#define XK_Cyrillic_YU 0x6e0 -#define XK_Cyrillic_A 0x6e1 -#define XK_Cyrillic_BE 0x6e2 -#define XK_Cyrillic_TSE 0x6e3 -#define XK_Cyrillic_DE 0x6e4 -#define XK_Cyrillic_IE 0x6e5 -#define XK_Cyrillic_EF 0x6e6 -#define XK_Cyrillic_GHE 0x6e7 -#define XK_Cyrillic_HA 0x6e8 -#define XK_Cyrillic_I 0x6e9 -#define XK_Cyrillic_SHORTI 0x6ea -#define XK_Cyrillic_KA 0x6eb -#define XK_Cyrillic_EL 0x6ec -#define XK_Cyrillic_EM 0x6ed -#define XK_Cyrillic_EN 0x6ee -#define XK_Cyrillic_O 0x6ef -#define XK_Cyrillic_PE 0x6f0 -#define XK_Cyrillic_YA 0x6f1 -#define XK_Cyrillic_ER 0x6f2 -#define XK_Cyrillic_ES 0x6f3 -#define XK_Cyrillic_TE 0x6f4 -#define XK_Cyrillic_U 0x6f5 -#define XK_Cyrillic_ZHE 0x6f6 -#define XK_Cyrillic_VE 0x6f7 -#define XK_Cyrillic_SOFTSIGN 0x6f8 -#define XK_Cyrillic_YERU 0x6f9 -#define XK_Cyrillic_ZE 0x6fa -#define XK_Cyrillic_SHA 0x6fb -#define XK_Cyrillic_E 0x6fc -#define XK_Cyrillic_SHCHA 0x6fd -#define XK_Cyrillic_CHE 0x6fe -#define XK_Cyrillic_HARDSIGN 0x6ff -#endif /* XK_CYRILLIC */ - -/* - * Greek - * Byte 3 = 7 - */ - -#ifdef XK_GREEK -#define XK_Greek_ALPHAaccent 0x7a1 -#define XK_Greek_EPSILONaccent 0x7a2 -#define XK_Greek_ETAaccent 0x7a3 -#define XK_Greek_IOTAaccent 0x7a4 -#define XK_Greek_IOTAdieresis 0x7a5 -#define XK_Greek_IOTAdiaeresis 0x7a5 -#define XK_Greek_OMICRONaccent 0x7a7 -#define XK_Greek_UPSILONaccent 0x7a8 -#define XK_Greek_UPSILONdieresis 0x7a9 -#define XK_Greek_OMEGAaccent 0x7ab -#define XK_Greek_accentdieresis 0x7ae -#define XK_Greek_horizbar 0x7af -#define XK_Greek_alphaaccent 0x7b1 -#define XK_Greek_epsilonaccent 0x7b2 -#define XK_Greek_etaaccent 0x7b3 -#define XK_Greek_iotaaccent 0x7b4 -#define XK_Greek_iotadieresis 0x7b5 -#define XK_Greek_iotaaccentdieresis 0x7b6 -#define XK_Greek_omicronaccent 0x7b7 -#define XK_Greek_upsilonaccent 0x7b8 -#define XK_Greek_upsilondieresis 0x7b9 -#define XK_Greek_upsilonaccentdieresis 0x7ba -#define XK_Greek_omegaaccent 0x7bb -#define XK_Greek_ALPHA 0x7c1 -#define XK_Greek_BETA 0x7c2 -#define XK_Greek_GAMMA 0x7c3 -#define XK_Greek_DELTA 0x7c4 -#define XK_Greek_EPSILON 0x7c5 -#define XK_Greek_ZETA 0x7c6 -#define XK_Greek_ETA 0x7c7 -#define XK_Greek_THETA 0x7c8 -#define XK_Greek_IOTA 0x7c9 -#define XK_Greek_KAPPA 0x7ca -#define XK_Greek_LAMDA 0x7cb -#define XK_Greek_LAMBDA 0x7cb -#define XK_Greek_MU 0x7cc -#define XK_Greek_NU 0x7cd -#define XK_Greek_XI 0x7ce -#define XK_Greek_OMICRON 0x7cf -#define XK_Greek_PI 0x7d0 -#define XK_Greek_RHO 0x7d1 -#define XK_Greek_SIGMA 0x7d2 -#define XK_Greek_TAU 0x7d4 -#define XK_Greek_UPSILON 0x7d5 -#define XK_Greek_PHI 0x7d6 -#define XK_Greek_CHI 0x7d7 -#define XK_Greek_PSI 0x7d8 -#define XK_Greek_OMEGA 0x7d9 -#define XK_Greek_alpha 0x7e1 -#define XK_Greek_beta 0x7e2 -#define XK_Greek_gamma 0x7e3 -#define XK_Greek_delta 0x7e4 -#define XK_Greek_epsilon 0x7e5 -#define XK_Greek_zeta 0x7e6 -#define XK_Greek_eta 0x7e7 -#define XK_Greek_theta 0x7e8 -#define XK_Greek_iota 0x7e9 -#define XK_Greek_kappa 0x7ea -#define XK_Greek_lamda 0x7eb -#define XK_Greek_lambda 0x7eb -#define XK_Greek_mu 0x7ec -#define XK_Greek_nu 0x7ed -#define XK_Greek_xi 0x7ee -#define XK_Greek_omicron 0x7ef -#define XK_Greek_pi 0x7f0 -#define XK_Greek_rho 0x7f1 -#define XK_Greek_sigma 0x7f2 -#define XK_Greek_finalsmallsigma 0x7f3 -#define XK_Greek_tau 0x7f4 -#define XK_Greek_upsilon 0x7f5 -#define XK_Greek_phi 0x7f6 -#define XK_Greek_chi 0x7f7 -#define XK_Greek_psi 0x7f8 -#define XK_Greek_omega 0x7f9 -#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_GREEK */ - -/* - * Technical - * Byte 3 = 8 - */ - -#ifdef XK_TECHNICAL -#define XK_leftradical 0x8a1 -#define XK_topleftradical 0x8a2 -#define XK_horizconnector 0x8a3 -#define XK_topintegral 0x8a4 -#define XK_botintegral 0x8a5 -#define XK_vertconnector 0x8a6 -#define XK_topleftsqbracket 0x8a7 -#define XK_botleftsqbracket 0x8a8 -#define XK_toprightsqbracket 0x8a9 -#define XK_botrightsqbracket 0x8aa -#define XK_topleftparens 0x8ab -#define XK_botleftparens 0x8ac -#define XK_toprightparens 0x8ad -#define XK_botrightparens 0x8ae -#define XK_leftmiddlecurlybrace 0x8af -#define XK_rightmiddlecurlybrace 0x8b0 -#define XK_topleftsummation 0x8b1 -#define XK_botleftsummation 0x8b2 -#define XK_topvertsummationconnector 0x8b3 -#define XK_botvertsummationconnector 0x8b4 -#define XK_toprightsummation 0x8b5 -#define XK_botrightsummation 0x8b6 -#define XK_rightmiddlesummation 0x8b7 -#define XK_lessthanequal 0x8bc -#define XK_notequal 0x8bd -#define XK_greaterthanequal 0x8be -#define XK_integral 0x8bf -#define XK_therefore 0x8c0 -#define XK_variation 0x8c1 -#define XK_infinity 0x8c2 -#define XK_nabla 0x8c5 -#define XK_approximate 0x8c8 -#define XK_similarequal 0x8c9 -#define XK_ifonlyif 0x8cd -#define XK_implies 0x8ce -#define XK_identical 0x8cf -#define XK_radical 0x8d6 -#define XK_includedin 0x8da -#define XK_includes 0x8db -#define XK_intersection 0x8dc -#define XK_union 0x8dd -#define XK_logicaland 0x8de -#define XK_logicalor 0x8df -#define XK_partialderivative 0x8ef -#define XK_function 0x8f6 -#define XK_leftarrow 0x8fb -#define XK_uparrow 0x8fc -#define XK_rightarrow 0x8fd -#define XK_downarrow 0x8fe -#endif /* XK_TECHNICAL */ - -/* - * Special - * Byte 3 = 9 - */ - -#ifdef XK_SPECIAL -#define XK_blank 0x9df -#define XK_soliddiamond 0x9e0 -#define XK_checkerboard 0x9e1 -#define XK_ht 0x9e2 -#define XK_ff 0x9e3 -#define XK_cr 0x9e4 -#define XK_lf 0x9e5 -#define XK_nl 0x9e8 -#define XK_vt 0x9e9 -#define XK_lowrightcorner 0x9ea -#define XK_uprightcorner 0x9eb -#define XK_upleftcorner 0x9ec -#define XK_lowleftcorner 0x9ed -#define XK_crossinglines 0x9ee -#define XK_horizlinescan1 0x9ef -#define XK_horizlinescan3 0x9f0 -#define XK_horizlinescan5 0x9f1 -#define XK_horizlinescan7 0x9f2 -#define XK_horizlinescan9 0x9f3 -#define XK_leftt 0x9f4 -#define XK_rightt 0x9f5 -#define XK_bott 0x9f6 -#define XK_topt 0x9f7 -#define XK_vertbar 0x9f8 -#endif /* XK_SPECIAL */ - -/* - * Publishing - * Byte 3 = a - */ - -#ifdef XK_PUBLISHING -#define XK_emspace 0xaa1 -#define XK_enspace 0xaa2 -#define XK_em3space 0xaa3 -#define XK_em4space 0xaa4 -#define XK_digitspace 0xaa5 -#define XK_punctspace 0xaa6 -#define XK_thinspace 0xaa7 -#define XK_hairspace 0xaa8 -#define XK_emdash 0xaa9 -#define XK_endash 0xaaa -#define XK_signifblank 0xaac -#define XK_ellipsis 0xaae -#define XK_doubbaselinedot 0xaaf -#define XK_onethird 0xab0 -#define XK_twothirds 0xab1 -#define XK_onefifth 0xab2 -#define XK_twofifths 0xab3 -#define XK_threefifths 0xab4 -#define XK_fourfifths 0xab5 -#define XK_onesixth 0xab6 -#define XK_fivesixths 0xab7 -#define XK_careof 0xab8 -#define XK_figdash 0xabb -#define XK_leftanglebracket 0xabc -#define XK_decimalpoint 0xabd -#define XK_rightanglebracket 0xabe -#define XK_marker 0xabf -#define XK_oneeighth 0xac3 -#define XK_threeeighths 0xac4 -#define XK_fiveeighths 0xac5 -#define XK_seveneighths 0xac6 -#define XK_trademark 0xac9 -#define XK_signaturemark 0xaca -#define XK_trademarkincircle 0xacb -#define XK_leftopentriangle 0xacc -#define XK_rightopentriangle 0xacd -#define XK_emopencircle 0xace -#define XK_emopenrectangle 0xacf -#define XK_leftsinglequotemark 0xad0 -#define XK_rightsinglequotemark 0xad1 -#define XK_leftdoublequotemark 0xad2 -#define XK_rightdoublequotemark 0xad3 -#define XK_prescription 0xad4 -#define XK_minutes 0xad6 -#define XK_seconds 0xad7 -#define XK_latincross 0xad9 -#define XK_hexagram 0xada -#define XK_filledrectbullet 0xadb -#define XK_filledlefttribullet 0xadc -#define XK_filledrighttribullet 0xadd -#define XK_emfilledcircle 0xade -#define XK_emfilledrect 0xadf -#define XK_enopencircbullet 0xae0 -#define XK_enopensquarebullet 0xae1 -#define XK_openrectbullet 0xae2 -#define XK_opentribulletup 0xae3 -#define XK_opentribulletdown 0xae4 -#define XK_openstar 0xae5 -#define XK_enfilledcircbullet 0xae6 -#define XK_enfilledsqbullet 0xae7 -#define XK_filledtribulletup 0xae8 -#define XK_filledtribulletdown 0xae9 -#define XK_leftpointer 0xaea -#define XK_rightpointer 0xaeb -#define XK_club 0xaec -#define XK_diamond 0xaed -#define XK_heart 0xaee -#define XK_maltesecross 0xaf0 -#define XK_dagger 0xaf1 -#define XK_doubledagger 0xaf2 -#define XK_checkmark 0xaf3 -#define XK_ballotcross 0xaf4 -#define XK_musicalsharp 0xaf5 -#define XK_musicalflat 0xaf6 -#define XK_malesymbol 0xaf7 -#define XK_femalesymbol 0xaf8 -#define XK_telephone 0xaf9 -#define XK_telephonerecorder 0xafa -#define XK_phonographcopyright 0xafb -#define XK_caret 0xafc -#define XK_singlelowquotemark 0xafd -#define XK_doublelowquotemark 0xafe -#define XK_cursor 0xaff -#endif /* XK_PUBLISHING */ - -/* - * APL - * Byte 3 = b - */ - -#ifdef XK_APL -#define XK_leftcaret 0xba3 -#define XK_rightcaret 0xba6 -#define XK_downcaret 0xba8 -#define XK_upcaret 0xba9 -#define XK_overbar 0xbc0 -#define XK_downtack 0xbc2 -#define XK_upshoe 0xbc3 -#define XK_downstile 0xbc4 -#define XK_underbar 0xbc6 -#define XK_jot 0xbca -#define XK_quad 0xbcc -#define XK_uptack 0xbce -#define XK_circle 0xbcf -#define XK_upstile 0xbd3 -#define XK_downshoe 0xbd6 -#define XK_rightshoe 0xbd8 -#define XK_leftshoe 0xbda -#define XK_lefttack 0xbdc -#define XK_righttack 0xbfc -#endif /* XK_APL */ - -/* - * Hebrew - * Byte 3 = c - */ - -#ifdef XK_HEBREW -#define XK_hebrew_doublelowline 0xcdf -#define XK_hebrew_aleph 0xce0 -#define XK_hebrew_bet 0xce1 -#define XK_hebrew_beth 0xce1 /* deprecated */ -#define XK_hebrew_gimel 0xce2 -#define XK_hebrew_gimmel 0xce2 /* deprecated */ -#define XK_hebrew_dalet 0xce3 -#define XK_hebrew_daleth 0xce3 /* deprecated */ -#define XK_hebrew_he 0xce4 -#define XK_hebrew_waw 0xce5 -#define XK_hebrew_zain 0xce6 -#define XK_hebrew_zayin 0xce6 /* deprecated */ -#define XK_hebrew_chet 0xce7 -#define XK_hebrew_het 0xce7 /* deprecated */ -#define XK_hebrew_tet 0xce8 -#define XK_hebrew_teth 0xce8 /* deprecated */ -#define XK_hebrew_yod 0xce9 -#define XK_hebrew_finalkaph 0xcea -#define XK_hebrew_kaph 0xceb -#define XK_hebrew_lamed 0xcec -#define XK_hebrew_finalmem 0xced -#define XK_hebrew_mem 0xcee -#define XK_hebrew_finalnun 0xcef -#define XK_hebrew_nun 0xcf0 -#define XK_hebrew_samech 0xcf1 -#define XK_hebrew_samekh 0xcf1 /* deprecated */ -#define XK_hebrew_ayin 0xcf2 -#define XK_hebrew_finalpe 0xcf3 -#define XK_hebrew_pe 0xcf4 -#define XK_hebrew_finalzade 0xcf5 -#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ -#define XK_hebrew_zade 0xcf6 -#define XK_hebrew_zadi 0xcf6 /* deprecated */ -#define XK_hebrew_qoph 0xcf7 -#define XK_hebrew_kuf 0xcf7 /* deprecated */ -#define XK_hebrew_resh 0xcf8 -#define XK_hebrew_shin 0xcf9 -#define XK_hebrew_taw 0xcfa -#define XK_hebrew_taf 0xcfa /* deprecated */ -#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_HEBREW */ - -/* Multimedia keys, defined same as on Linux - * /usr/include/pkg/libxkbcommon/xkbcommon/xkbcommon-keysyms.h - */ - -#define XK_XF86AudioLowerVolume 0x1008FF11 /* Volume control down */ -#define XK_XF86AudioMute 0x1008FF12 /* Mute sound from the system */ -#define XK_XF86AudioRaiseVolume 0x1008FF13 /* Volume control up */ -#define XK_XF86AudioPlay 0x1008FF14 /* Start playing of audio > */ -#define XK_XF86AudioStop 0x1008FF15 /* Stop playing audio */ -#define XK_XF86AudioPrev 0x1008FF16 /* Previous track */ -#define XK_XF86AudioNext 0x1008FF17 /* Next track */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tcl.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tcl.h deleted file mode 100644 index 458072aeb..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tcl.h +++ /dev/null @@ -1,2662 +0,0 @@ -/* - * tcl.h -- - * - * This header file describes the externally-visible facilities of the - * Tcl interpreter. - * - * Copyright (c) 1987-1994 The Regents of the University of California. - * Copyright (c) 1993-1996 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCL -#define _TCL - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * The following defines are used to indicate the various release levels. - */ - -#define TCL_ALPHA_RELEASE 0 -#define TCL_BETA_RELEASE 1 -#define TCL_FINAL_RELEASE 2 - -/* - * When version numbers change here, must also go into the following files and - * update the version numbers: - * - * library/init.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/tcl.m4 (not patchlevel) - * README (sections 0 and 2, with and without separator) - * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) (sections 0 and 2) - * unix/tcl.spec (1 LOC patch) - * tools/tcl.hpj.in (not patchlevel, for windows installer) - */ - -#define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 6 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 10 - -#define TCL_VERSION "8.6" -#define TCL_PATCH_LEVEL "8.6.10" - -/* - *---------------------------------------------------------------------------- - * The following definitions set up the proper options for Windows compilers. - * We use this method because there is no autoconf equivalent. - */ - -#ifdef _WIN32 -# ifndef __WIN32__ -# define __WIN32__ -# endif -# ifndef WIN32 -# define WIN32 -# endif -#endif - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * A special definition used to allow this header file to be included from - * windows resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool. - * - * Resource compilers don't like all the C stuff, like typedefs and function - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -/* - * Special macro to define mutexes, that doesn't do anything if we are not - * using threads. - */ - -#ifdef TCL_THREADS -#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; -#else -#define TCL_DECLARE_MUTEX(name) -#endif - -/* - * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and - * SEEK_END, all #define'd by stdio.h . - * - * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h - * providing it for them rather than #include-ing it themselves as they - * should, so also for their sake, we keep the #include to be consistent with - * prior Tcl releases. - */ - -#include - -/* - *---------------------------------------------------------------------------- - * Support for functions with a variable number of arguments. - * - * The following TCL_VARARGS* macros are to support old extensions - * written for older versions of Tcl where the macros permitted - * support for the varargs.h system as well as stdarg.h . - * - * New code should just directly be written to use stdarg.h conventions. - */ - -#include -#ifndef TCL_NO_DEPRECATED -# define TCL_VARARGS(type, name) (type name, ...) -# define TCL_VARARGS_DEF(type, name) (type name, ...) -# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) -#endif -#if defined(__GNUC__) && (__GNUC__ > 2) -# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b))) -# define TCL_NORETURN __attribute__ ((noreturn)) -# if defined(BUILD_tcl) || defined(BUILD_tk) -# define TCL_NORETURN1 __attribute__ ((noreturn)) -# else -# define TCL_NORETURN1 /* nothing */ -# endif -#else -# define TCL_FORMAT_PRINTF(a,b) -# if defined(_MSC_VER) && (_MSC_VER >= 1310) -# define TCL_NORETURN _declspec(noreturn) -# else -# define TCL_NORETURN /* nothing */ -# endif -# define TCL_NORETURN1 /* nothing */ -#endif - -/* - * Allow a part of Tcl's API to be explicitly marked as deprecated. - * - * Used to make TIP 330/336 generate moans even if people use the - * compatibility macros. Change your code, guys! We won't support you forever. - */ - -#if defined(__GNUC__) && ((__GNUC__ >= 4) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1))) -# if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 5)) -# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg))) -# else -# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__)) -# endif -#else -# define TCL_DEPRECATED_API(msg) /* nothing portable */ -#endif - -/* - *---------------------------------------------------------------------------- - * Macros used to declare a function to be exported by a DLL. Used by Windows, - * maps to no-op declarations on non-Windows systems. The default build on - * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be - * nonempty. To build a static library, the macro STATIC_BUILD should be - * defined. - * - * Note: when building static but linking dynamically to MSVCRT we must still - * correctly decorate the C library imported function. Use CRTIMPORT - * for this purpose. _DLL is defined by the compiler when linking to - * MSVCRT. - */ - -#if (defined(_WIN32) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) -# define HAVE_DECLSPEC 1 -# ifdef STATIC_BUILD -# define DLLIMPORT -# define DLLEXPORT -# ifdef _DLL -# define CRTIMPORT __declspec(dllimport) -# else -# define CRTIMPORT -# endif -# else -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# define CRTIMPORT __declspec(dllimport) -# endif -#else -# define DLLIMPORT -# if defined(__GNUC__) && __GNUC__ > 3 -# define DLLEXPORT __attribute__ ((visibility("default"))) -# else -# define DLLEXPORT -# endif -# define CRTIMPORT -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the name of - * a library we are building, is set on the compile line for sources that are - * to be placed in the library. When this macro is set, the storage class will - * be set to DLLEXPORT. At the end of the header file, the storage class will - * be reset to DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * The following _ANSI_ARGS_ macro is to support old extensions - * written for older versions of Tcl where it permitted support - * for compilers written in the pre-prototype era of C. - * - * New code should use prototypes. - */ - -#ifndef TCL_NO_DEPRECATED -# undef _ANSI_ARGS_ -# define _ANSI_ARGS_(x) x -#endif - -/* - * Definitions that allow this header file to be used either with or without - * ANSI C features. - */ - -#ifndef INLINE -# define INLINE -#endif - -#ifdef NO_CONST -# ifndef const -# define const -# endif -#endif -#ifndef CONST -# define CONST const -#endif - -#ifdef USE_NON_CONST -# ifdef USE_COMPAT_CONST -# error define at most one of USE_NON_CONST and USE_COMPAT_CONST -# endif -# define CONST84 -# define CONST84_RETURN -#else -# ifdef USE_COMPAT_CONST -# define CONST84 -# define CONST84_RETURN const -# else -# define CONST84 const -# define CONST84_RETURN const -# endif -#endif - -#ifndef CONST86 -# define CONST86 CONST84 -#endif - -/* - * Make sure EXTERN isn't defined elsewhere. - */ - -#ifdef EXTERN -# undef EXTERN -#endif /* EXTERN */ - -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - *---------------------------------------------------------------------------- - * The following code is copied from winnt.h. If we don't replicate it here, - * then can't be included after tcl.h, since tcl.h also defines - * VOID. This block is skipped under Cygwin and Mingw. - */ - -#if defined(_WIN32) && !defined(HAVE_WINNT_IGNORE_VOID) -#ifndef VOID -#define VOID void -typedef char CHAR; -typedef short SHORT; -typedef long LONG; -#endif -#endif /* _WIN32 && !HAVE_WINNT_IGNORE_VOID */ - -/* - * Macro to use instead of "void" for arguments that must have type "void *" - * in ANSI C; maps them to type "char *" in non-ANSI systems. - */ - -#ifndef __VXWORKS__ -# ifndef NO_VOID -# define VOID void -# else -# define VOID char -# endif -#endif - -/* - * Miscellaneous declarations. - */ - -#ifndef _CLIENTDATA -# ifndef NO_VOID - typedef void *ClientData; -# else - typedef int *ClientData; -# endif -# define _CLIENTDATA -#endif - -/* - * Darwin specific configure overrides (to support fat compiles, where - * configure runs only once for multiple architectures): - */ - -#ifdef __APPLE__ -# ifdef __LP64__ -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_IS_LONG 1 -# define TCL_CFG_DO64BIT 1 -# else /* !__LP64__ */ -# define TCL_WIDE_INT_TYPE long long -# undef TCL_WIDE_INT_IS_LONG -# undef TCL_CFG_DO64BIT -# endif /* __LP64__ */ -# undef HAVE_STRUCT_STAT64 -#endif /* __APPLE__ */ - -/* - * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define - * Tcl_WideUInt to be the unsigned variant of that type (assuming that where - * we have one, we can have the other.) - * - * Also defines the following macros: - * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a - * LP64 system such as modern Solaris or Linux ... not including Win64) - * Tcl_WideAsLong - forgetful converter from wideInt to long. - * Tcl_LongAsWide - sign-extending converter from long to wideInt. - * Tcl_WideAsDouble - converter from wideInt to double. - * Tcl_DoubleAsWide - converter from double to wideInt. - * - * The following invariant should hold for any long value 'longVal': - * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) - * - * Note on converting between Tcl_WideInt and strings. This implementation (in - * tclObj.c) depends on the function - * sprintf(...,"%" TCL_LL_MODIFIER "d",...). - */ - -#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) -# if defined(_WIN32) -# define TCL_WIDE_INT_TYPE __int64 -# ifdef __BORLANDC__ -# define TCL_LL_MODIFIER "L" -# else /* __BORLANDC__ */ -# define TCL_LL_MODIFIER "I64" -# endif /* __BORLANDC__ */ -# elif defined(__GNUC__) -# define TCL_WIDE_INT_TYPE long long -# define TCL_LL_MODIFIER "ll" -# else /* ! _WIN32 && ! __GNUC__ */ -/* - * Don't know what platform it is and configure hasn't discovered what is - * going on for us. Try to guess... - */ -# include -# if (INT_MAX < LONG_MAX) -# define TCL_WIDE_INT_IS_LONG 1 -# else -# define TCL_WIDE_INT_TYPE long long -# endif -# endif /* _WIN32 */ -#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ -#ifdef TCL_WIDE_INT_IS_LONG -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_TYPE long -#endif /* TCL_WIDE_INT_IS_LONG */ - -typedef TCL_WIDE_INT_TYPE Tcl_WideInt; -typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; - -#ifdef TCL_WIDE_INT_IS_LONG -# define Tcl_WideAsLong(val) ((long)(val)) -# define Tcl_LongAsWide(val) ((long)(val)) -# define Tcl_WideAsDouble(val) ((double)((long)(val))) -# define Tcl_DoubleAsWide(val) ((long)((double)(val))) -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "l" -# endif /* !TCL_LL_MODIFIER */ -#else /* TCL_WIDE_INT_IS_LONG */ -/* - * The next short section of defines are only done when not running on Windows - * or some other strange platform. - */ -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "ll" -# endif /* !TCL_LL_MODIFIER */ -# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) -# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) -# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) -# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -#if defined(_WIN32) -# ifdef __BORLANDC__ - typedef struct stati64 Tcl_StatBuf; -# elif defined(_WIN64) || defined(_USE_64BIT_TIME_T) - typedef struct __stat64 Tcl_StatBuf; -# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) - typedef struct _stati64 Tcl_StatBuf; -# else - typedef struct _stat32i64 Tcl_StatBuf; -# endif /* _MSC_VER < 1400 */ -#elif defined(__CYGWIN__) - typedef struct { - dev_t st_dev; - unsigned short st_ino; - unsigned short st_mode; - short st_nlink; - short st_uid; - short st_gid; - /* Here is a 2-byte gap */ - dev_t st_rdev; - /* Here is a 4-byte gap */ - long long st_size; - struct {long tv_sec;} st_atim; - struct {long tv_sec;} st_mtim; - struct {long tv_sec;} st_ctim; - /* Here is a 4-byte gap */ - } Tcl_StatBuf; -#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) - typedef struct stat64 Tcl_StatBuf; -#else - typedef struct stat Tcl_StatBuf; -#endif - -/* - *---------------------------------------------------------------------------- - * Data structures defined opaquely in this module. The definitions below just - * provide dummy types. A few fields are made visible in Tcl_Interp - * structures, namely those used for returning a string result from commands. - * Direct access to the result field is discouraged in Tcl 8.0. The - * interpreter result is either an object or a string, and the two values are - * kept consistent unless some C code sets interp->result directly. - * Programmers should use either the function Tcl_GetObjResult() or - * Tcl_GetStringResult() to read the interpreter's result. See the SetResult - * man page for details. - * - * Note: any change to the Tcl_Interp definition below must be mirrored in the - * "real" definition in tclInt.h. - * - * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. - * Instead, they set a Tcl_Obj member in the "real" structure that can be - * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). - */ - -typedef struct Tcl_Interp -#ifndef TCL_NO_DEPRECATED -{ - /* TIP #330: Strongly discourage extensions from using the string - * result. */ -#ifdef USE_INTERP_RESULT - char *result TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); - /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) (char *blockPtr) - TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); - /* Zero means the string result is statically - * allocated. TCL_DYNAMIC means it was - * allocated with ckalloc and should be freed - * with ckfree. Other values give the address - * of function to invoke to free the result. - * Tcl_Eval must free it before executing next - * command. */ -#else - char *resultDontUse; /* Don't use in extensions! */ - void (*freeProcDontUse) (char *); /* Don't use in extensions! */ -#endif -#ifdef USE_INTERP_ERRORLINE - int errorLine TCL_DEPRECATED_API("use Tcl_GetErrorLine/Tcl_SetErrorLine"); - /* When TCL_ERROR is returned, this gives the - * line number within the command where the - * error occurred (1 if first line). */ -#else - int errorLineDontUse; /* Don't use in extensions! */ -#endif -} -#endif /* TCL_NO_DEPRECATED */ -Tcl_Interp; - -typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; -typedef struct Tcl_Channel_ *Tcl_Channel; -typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_Command_ *Tcl_Command; -typedef struct Tcl_Condition_ *Tcl_Condition; -typedef struct Tcl_Dict_ *Tcl_Dict; -typedef struct Tcl_EncodingState_ *Tcl_EncodingState; -typedef struct Tcl_Encoding_ *Tcl_Encoding; -typedef struct Tcl_Event Tcl_Event; -typedef struct Tcl_InterpState_ *Tcl_InterpState; -typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; -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_ZLibStream_ *Tcl_ZlibStream; - -/* - *---------------------------------------------------------------------------- - * Definition of the interface to functions implementing threads. A function - * following this definition is given to each call of 'Tcl_CreateThread' and - * will be called as the main fuction of the new thread created by that call. - */ - -#if defined _WIN32 -typedef unsigned (__stdcall Tcl_ThreadCreateProc) (ClientData clientData); -#else -typedef void (Tcl_ThreadCreateProc) (ClientData clientData); -#endif - -/* - * Threading function return types used for abstracting away platform - * differences when writing a Tcl_ThreadCreateProc. See the NewThread function - * in generic/tclThreadTest.c for it's usage. - */ - -#if defined _WIN32 -# define Tcl_ThreadCreateType unsigned __stdcall -# define TCL_THREAD_CREATE_RETURN return 0 -#else -# define Tcl_ThreadCreateType void -# define TCL_THREAD_CREATE_RETURN -#endif - -/* - * Definition of values for default stacksize and the possible flags to be - * given to Tcl_CreateThread. - */ - -#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */ -#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default - * behaviour. */ -#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */ - -/* - * Flag values passed to Tcl_StringCaseMatch. - */ - -#define TCL_MATCH_NOCASE (1<<0) - -/* - * Flag values passed to Tcl_GetRegExpFromObj. - */ - -#define TCL_REG_BASIC 000000 /* BREs (convenience). */ -#define TCL_REG_EXTENDED 000001 /* EREs. */ -#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */ -#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */ -#define TCL_REG_QUOTE 000004 /* No special characters, none. */ -#define TCL_REG_NOCASE 000010 /* Ignore case. */ -#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */ -#define TCL_REG_EXPANDED 000040 /* Expanded format, white space & - * comments. */ -#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ -#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */ -#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */ -#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited - * matches. */ - -/* - * Flags values passed to Tcl_RegExpExecObj. - */ - -#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ -#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ - -/* - * Structures filled in by Tcl_RegExpInfo. Note that all offset values are - * relative to the start of the match string, not the beginning of the entire - * string. - */ - -typedef struct Tcl_RegExpIndices { - long start; /* Character offset of first character in - * match. */ - long end; /* Character offset of first character after - * the match. */ -} Tcl_RegExpIndices; - -typedef struct Tcl_RegExpInfo { - int nsubs; /* Number of subexpressions in the compiled - * expression. */ - Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ - long extendStart; /* The offset at which a subsequent match - * might begin. */ - long reserved; /* Reserved for later use. */ -} Tcl_RegExpInfo; - -/* - * Picky compilers complain if this typdef doesn't appear before the struct's - * reference in tclDecls.h. - */ - -typedef Tcl_StatBuf *Tcl_Stat_; -typedef struct stat *Tcl_OldStat_; - -/* - *---------------------------------------------------------------------------- - * When a TCL command returns, the interpreter contains a result from the - * command. Programmers are strongly encouraged to use one of the functions - * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's - * result. See the SetResult man page for details. Besides this result, the - * command function returns an integer code, which is one of the following: - * - * TCL_OK Command completed normally; the interpreter's result - * contains the command's result. - * TCL_ERROR The command couldn't be completed successfully; the - * interpreter's result describes what went wrong. - * TCL_RETURN The command requests that the current function return; - * the interpreter's result contains the function's - * return value. - * TCL_BREAK The command requests that the innermost loop be - * exited; the interpreter's result is meaningless. - * TCL_CONTINUE Go on to the next iteration of the current loop; the - * interpreter's result is meaningless. - */ - -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 - -#define TCL_RESULT_SIZE 200 - -/* - *---------------------------------------------------------------------------- - * Flags to control what substitutions are performed by Tcl_SubstObj(): - */ - -#define TCL_SUBST_COMMANDS 001 -#define TCL_SUBST_VARIABLES 002 -#define TCL_SUBST_BACKSLASHES 004 -#define TCL_SUBST_ALL 007 - -/* - * Argument descriptors for math function callbacks in expressions: - */ - -typedef enum { - TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT -} Tcl_ValueType; - -typedef struct Tcl_Value { - Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, - * or both. */ - long intValue; /* Integer value. */ - double doubleValue; /* Double-precision floating value. */ - Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ -} Tcl_Value; - -/* - * Forward declaration of Tcl_Obj to prevent an error when the forward - * reference to Tcl_Obj is encountered in the function types declared below. - */ - -struct Tcl_Obj; - -/* - *---------------------------------------------------------------------------- - * Function types defined by Tcl: - */ - -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, CONST84 char *argv[]); -typedef void (Tcl_CmdTraceProc) (ClientData clientData, Tcl_Interp *interp, - int level, char *command, Tcl_CmdProc *proc, - ClientData cmdClientData, int argc, CONST84 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 int (Tcl_PackageUnloadProc) (Tcl_Interp *interp, int flags); -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, - CONST84 char *part1, CONST84 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); - -/* - *---------------------------------------------------------------------------- - * The following structure represents a type of object, which is a particular - * internal representation for an object plus a set of functions that provide - * standard operations on objects of that type. - */ - -typedef struct Tcl_ObjType { - const char *name; /* Name of the type, e.g. "int". */ - Tcl_FreeInternalRepProc *freeIntRepProc; - /* Called to free any storage for the type's - * internal rep. NULL if the internal rep does - * not need freeing. */ - Tcl_DupInternalRepProc *dupIntRepProc; - /* Called to create a new object as a copy of - * an existing object. */ - Tcl_UpdateStringProc *updateStringProc; - /* Called to update the string rep from the - * type's internal representation. */ - Tcl_SetFromAnyProc *setFromAnyProc; - /* Called to convert the object's internal rep - * to this type. Frees the internal rep of the - * old type. Returns TCL_ERROR on failure. */ -} Tcl_ObjType; - -/* - * One of the following structures exists for each object in the Tcl system. - * An object stores a value as either a string, some internal representation, - * or both. - */ - -typedef struct Tcl_Obj { - int refCount; /* When 0 the object will be freed. */ - char *bytes; /* This points to the first byte of the - * object's string representation. The array - * must be followed by a null byte (i.e., at - * offset length) but may also contain - * embedded null characters. The array's - * storage is allocated by ckalloc. NULL means - * the string rep is invalid and must be - * regenerated from the internal rep. Clients - * should use Tcl_GetStringFromObj or - * Tcl_GetString to get a pointer to the byte - * array as a readonly value. */ - int length; /* The number of bytes at *bytes, not - * including the terminating null. */ - const Tcl_ObjType *typePtr; /* Denotes the object's type. Always - * corresponds to the type of the object's - * internal rep. NULL indicates the object has - * no internal rep (has no type). */ - union { /* The internal representation: */ - long longValue; /* - an long integer value. */ - double doubleValue; /* - a double-precision floating value. */ - void *otherValuePtr; /* - another, type-specific value, - not used internally any more. */ - Tcl_WideInt wideValue; /* - a long long value. */ - struct { /* - internal rep as two pointers. - * the main use of which is a bignum's - * tightly packed fields, where the alloc, - * used and signum flags are packed into - * ptr2 with everything else hung off ptr1. */ - void *ptr1; - void *ptr2; - } twoPtrValue; - struct { /* - internal rep as a pointer and a long, - not used internally any more. */ - void *ptr; - unsigned long value; - } ptrAndLongRep; - } internalRep; -} Tcl_Obj; - -/* - * Macros to increment and decrement a Tcl_Obj's reference count, and to test - * whether an object is shared (i.e. has reference count > 1). Note: clients - * should use Tcl_DecrRefCount() when they are finished using an object, and - * should never call TclFreeObj() directly. TclFreeObj() is only defined and - * made public in tcl.h to support Tcl_DecrRefCount's macro definition. - */ - -void Tcl_IncrRefCount(Tcl_Obj *objPtr); -void Tcl_DecrRefCount(Tcl_Obj *objPtr); -int Tcl_IsShared(Tcl_Obj *objPtr); - -/* - *---------------------------------------------------------------------------- - * The following structure contains the state needed by Tcl_SaveResult. No-one - * outside of Tcl should access any of these fields. This structure is - * typically allocated on the stack. - */ - -typedef struct Tcl_SavedResult { - char *result; - Tcl_FreeProc *freeProc; - Tcl_Obj *objResultPtr; - char *appendResult; - int appendAvl; - int appendUsed; - char resultSpace[TCL_RESULT_SIZE+1]; -} Tcl_SavedResult; - -/* - *---------------------------------------------------------------------------- - * The following definitions support Tcl's namespace facility. Note: the first - * five fields must match exactly the fields in a Namespace structure (see - * tclInt.h). - */ - -typedef struct Tcl_Namespace { - char *name; /* The namespace's name within its parent - * namespace. This contains no ::'s. The name - * of the global namespace is "" although "::" - * is an synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* Arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Function invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Tcl_Namespace *parentPtr; - /* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -} Tcl_Namespace; - -/* - *---------------------------------------------------------------------------- - * The following structure represents a call frame, or activation record. A - * call frame defines a naming context for a procedure call: its local scope - * (for local variables) and its namespace scope (used for non-local - * variables; often the global :: namespace). A call frame can also define the - * naming context for a namespace eval or namespace inscope command: the - * namespace in which the command's code should execute. The Tcl_CallFrame - * structures exist only while procedures or namespace eval/inscope's are - * being executed, and provide a Tcl call stack. - * - * A call frame is initialized and pushed using Tcl_PushCallFrame and popped - * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the - * Tcl_PushCallFrame caller, and callers typically allocate them on the C call - * stack for efficiency. For this reason, Tcl_CallFrame is defined as a - * structure and not as an opaque token. However, most Tcl_CallFrame fields - * are hidden since applications should not access them directly; others are - * declared as "dummyX". - * - * WARNING!! The structure definition must be kept consistent with the - * CallFrame structure in tclInt.h. If you change one, change the other. - */ - -typedef struct Tcl_CallFrame { - Tcl_Namespace *nsPtr; - int dummy1; - int dummy2; - void *dummy3; - void *dummy4; - void *dummy5; - int dummy6; - void *dummy7; - void *dummy8; - int dummy9; - void *dummy10; - void *dummy11; - void *dummy12; - void *dummy13; -} Tcl_CallFrame; - -/* - *---------------------------------------------------------------------------- - * Information about commands that is returned by Tcl_GetCommandInfo and - * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command - * function while proc is a traditional Tcl argc/argv string-based function. - * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and - * proc are non-NULL and can be called to execute the command. However, it may - * be faster to call one instead of the other. The member isNativeObjectProc - * is set to 1 if an object-based function was registered by - * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by - * Tcl_CreateCommand. The other function is typically set to a compatibility - * wrapper that does string-to-object or object-to-string argument conversions - * then calls the other function. - */ - -typedef struct Tcl_CmdInfo { - int isNativeObjectProc; /* 1 if objProc was registered by a call to - * Tcl_CreateObjCommand; 0 otherwise. - * Tcl_SetCmdInfo does not modify this - * field. */ - Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ - ClientData objClientData; /* ClientData for object proc. */ - Tcl_CmdProc *proc; /* Command's string-based function. */ - ClientData clientData; /* ClientData for string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Function to call when command is - * deleted. */ - ClientData deleteData; /* Value to pass to deleteProc (usually the - * same as clientData). */ - Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this - * command. Note that Tcl_SetCmdInfo will not - * change a command's namespace; use - * TclRenameCommand or Tcl_Eval (of 'rename') - * to do that. */ -} Tcl_CmdInfo; - -/* - *---------------------------------------------------------------------------- - * The structure defined below is used to hold dynamic strings. The only - * fields that clients should use are string and length, accessible via the - * macros Tcl_DStringValue and Tcl_DStringLength. - */ - -#define TCL_DSTRING_STATIC_SIZE 200 -typedef struct Tcl_DString { - char *string; /* Points to beginning of string: either - * staticSpace below or a malloced array. */ - int length; /* Number of non-NULL characters in the - * string. */ - int spaceAvl; /* Total number of bytes available for the - * string and its terminating NULL char. */ - char staticSpace[TCL_DSTRING_STATIC_SIZE]; - /* Space to use in common case where string is - * small. */ -} Tcl_DString; - -#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) -#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#define Tcl_DStringTrunc Tcl_DStringSetLength - -/* - * Definitions for the maximum number of digits of precision that may be - * specified in the "tcl_precision" variable, and the number of bytes of - * buffer space required by Tcl_PrintDouble. - */ - -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) - -/* - * Definition for a number of bytes of buffer space sufficient to hold the - * string representation of an integer in base 10 (assuming the existence of - * 64-bit integers). - */ - -#define TCL_INTEGER_SPACE 24 - -/* - * Flag values passed to Tcl_ConvertElement. - * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to - * use backslash quoting instead. - * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It - * is safe to leave the hash unquoted when the element is not the first - * element of a list, and this flag can be used by the caller to indicate - * that condition. - */ - -#define TCL_DONT_USE_BRACES 1 -#define TCL_DONT_QUOTE_HASH 8 - -/* - * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow - * abbreviated strings. - */ - -#define TCL_EXACT 1 - -/* - *---------------------------------------------------------------------------- - * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. - * WARNING: these bit choices must not conflict with the bit choices for - * evalFlag bits in tclInt.h! - * - * Meanings: - * TCL_NO_EVAL: Just record this command - * TCL_EVAL_GLOBAL: Execute script in global namespace - * TCL_EVAL_DIRECT: Do not compile this script - * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles - * o Run in iPtr->lookupNsPtr or global namespace - * o Cut out of error traces - * o Don't reset the flags controlling ensemble - * error message rewriting. - * TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the - * stack for the script in progress to be - * completely unwound. - * TCL_EVAL_NOERR: Do no exception reporting at all, just return - * as the caller will report. - */ - -#define TCL_NO_EVAL 0x010000 -#define TCL_EVAL_GLOBAL 0x020000 -#define TCL_EVAL_DIRECT 0x040000 -#define TCL_EVAL_INVOKE 0x080000 -#define TCL_CANCEL_UNWIND 0x100000 -#define TCL_EVAL_NOERR 0x200000 - -/* - * Special freeProc values that may be passed to Tcl_SetResult (see the man - * page for details): - */ - -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) - -/* - * Flag values passed to variable-related functions. - * WARNING: these bit choices must not conflict with the bit choice for - * TCL_CANCEL_UNWIND, above. - */ - -#define TCL_GLOBAL_ONLY 1 -#define TCL_NAMESPACE_ONLY 2 -#define TCL_APPEND_VALUE 4 -#define TCL_LIST_ELEMENT 8 -#define TCL_TRACE_READS 0x10 -#define TCL_TRACE_WRITES 0x20 -#define TCL_TRACE_UNSETS 0x40 -#define TCL_TRACE_DESTROYED 0x80 -#define TCL_INTERP_DESTROYED 0x100 -#define TCL_LEAVE_ERR_MSG 0x200 -#define TCL_TRACE_ARRAY 0x800 -#ifndef TCL_REMOVE_OBSOLETE_TRACES -/* Required to support old variable/vdelete/vinfo traces. */ -#define TCL_TRACE_OLD_STYLE 0x1000 -#endif -/* Indicate the semantics of the result of a trace. */ -#define TCL_TRACE_RESULT_DYNAMIC 0x8000 -#define TCL_TRACE_RESULT_OBJECT 0x10000 - -/* - * Flag values for ensemble commands. - */ - -#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow - * unambiguous prefixes of commands or to - * require exact matches for command names. */ - -/* - * Flag values passed to command-related functions. - */ - -#define TCL_TRACE_RENAME 0x2000 -#define TCL_TRACE_DELETE 0x4000 - -#define TCL_ALLOW_INLINE_COMPILATION 0x20000 - -/* - * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now - * always parsed whenever the part2 is NULL. (This is to avoid a common error - * when converting code to use the new object based APIs and forgetting to - * give the flag) - */ - -#ifndef TCL_NO_DEPRECATED -# define TCL_PARSE_PART1 0x400 -#endif - -/* - * Types for linked variables: - */ - -#define TCL_LINK_INT 1 -#define TCL_LINK_DOUBLE 2 -#define TCL_LINK_BOOLEAN 3 -#define TCL_LINK_STRING 4 -#define TCL_LINK_WIDE_INT 5 -#define TCL_LINK_CHAR 6 -#define TCL_LINK_UCHAR 7 -#define TCL_LINK_SHORT 8 -#define TCL_LINK_USHORT 9 -#define TCL_LINK_UINT 10 -#define TCL_LINK_LONG 11 -#define TCL_LINK_ULONG 12 -#define TCL_LINK_FLOAT 13 -#define TCL_LINK_WIDE_UINT 14 -#define TCL_LINK_READ_ONLY 0x80 - -/* - *---------------------------------------------------------------------------- - * Forward declarations of Tcl_HashTable and related types. - */ - -typedef struct Tcl_HashKeyType Tcl_HashKeyType; -typedef struct Tcl_HashTable Tcl_HashTable; -typedef struct Tcl_HashEntry Tcl_HashEntry; - -typedef unsigned (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); - -/* - * This flag controls whether the hash table stores the hash of a key, or - * recalculates it. There should be no reason for turning this flag off as it - * is completely binary and source compatible unless you directly access the - * bucketPtr member of the Tcl_HashTableEntry structure. This member has been - * removed and the space used to store the hash value. - */ - -#ifndef TCL_HASH_KEY_STORE_HASH -# define TCL_HASH_KEY_STORE_HASH 1 -#endif - -/* - * Structure definition for an entry in a hash table. No-one outside Tcl - * should access any of these fields directly; use the macros defined below. - */ - -struct Tcl_HashEntry { - Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, - * or NULL for end of chain. */ - Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ -#if TCL_HASH_KEY_STORE_HASH - void *hash; /* Hash value, stored as pointer to ensure - * that the offsets of the fields in this - * structure are not changed. */ -#else - Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first - * entry in this entry's chain: used for - * deleting the entry. */ -#endif - ClientData clientData; /* Application stores something here with - * Tcl_SetHashValue. */ - union { /* Key has one of these forms: */ - char *oneWordValue; /* One-word value for key. */ - Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ - int words[1]; /* Multiple integer words for key. The actual - * size will be as large as necessary for this - * table's keys. */ - char string[1]; /* String for key. The actual size will be as - * large as needed to hold the key. */ - } key; /* MUST BE LAST FIELD IN RECORD!! */ -}; - -/* - * Flags used in Tcl_HashKeyType. - * - * TCL_HASH_KEY_RANDOMIZE_HASH - - * There are some things, pointers for example - * which don't hash well because they do not use - * the lower bits. If this flag is set then the - * hash table will attempt to rectify this by - * randomising the bits and then using the upper - * N bits as the index into the table. - * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally - * allocated for the hash table that is not for an - * entry will use the system heap. - */ - -#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 -#define TCL_HASH_KEY_SYSTEM_HASH 0x2 - -/* - * Structure definition for the methods associated with a hash table key type. - */ - -#define TCL_HASH_KEY_TYPE_VERSION 1 -struct Tcl_HashKeyType { - int version; /* Version of the table. If this structure is - * extended in future then the version can be - * used to distinguish between different - * structures. */ - int flags; /* Flags, see above for details. */ - Tcl_HashKeyProc *hashKeyProc; - /* Calculates a hash value for the key. If - * this is NULL then the pointer itself is - * used as a hash value. */ - Tcl_CompareHashKeysProc *compareKeysProc; - /* Compares two keys and returns zero if they - * do not match, and non-zero if they do. If - * this is NULL then the pointers are - * compared. */ - Tcl_AllocHashEntryProc *allocEntryProc; - /* Called to allocate memory for a new entry, - * i.e. if the key is a string then this could - * allocate a single block which contains - * enough space for both the entry and the - * string. Only the key field of the allocated - * Tcl_HashEntry structure needs to be filled - * in. If something else needs to be done to - * the key, i.e. incrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Alloc is - * used to allocate enough space for a - * Tcl_HashEntry and the key pointer is - * assigned to key.oneWordValue. */ - Tcl_FreeHashEntryProc *freeEntryProc; - /* Called to free memory associated with an - * entry. If something else needs to be done - * to the key, i.e. decrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Free is - * used to free the Tcl_HashEntry. */ -}; - -/* - * Structure definition for a hash table. Must be in tcl.h so clients can - * allocate space for these structures, but clients should never access any - * fields in this structure. - */ - -#define TCL_SMALL_HASH_TABLE 4 -struct Tcl_HashTable { - Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables (to - * avoid mallocs and frees). */ - int numBuckets; /* Total number of buckets allocated at - * **bucketPtr. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int downShift; /* Shift count used in hashing function. - * Designed to use high-order bits of - * randomized keys. */ - int mask; /* Mask value used in hashing function. */ - int keyType; /* Type of keys used in this table. It's - * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, - * TCL_ONE_WORD_KEYS, or an integer giving the - * number of ints that is the size of the - * key. */ - Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key); - Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key, - int *newPtr); - const Tcl_HashKeyType *typePtr; - /* Type of the keys used in the - * Tcl_HashTable. */ -}; - -/* - * Structure definition for information used to keep track of searches through - * hash tables: - */ - -typedef struct Tcl_HashSearch { - Tcl_HashTable *tablePtr; /* Table being searched. */ - int nextIndex; /* Index of next bucket to be enumerated after - * present one. */ - Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current - * bucket. */ -} Tcl_HashSearch; - -/* - * Acceptable key types for hash tables: - * - * TCL_STRING_KEYS: The keys are strings, they are copied into the - * entry. - * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored - * in the entry. - * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied - * into the entry. - * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the - * pointer is stored in the entry. - * - * While maintaining binary compatibility the above have to be distinct values - * as they are used to differentiate between old versions of the hash table - * which don't have a typePtr and new ones which do. Once binary compatibility - * is discarded in favour of making more wide spread changes TCL_STRING_KEYS - * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the - * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is - * accessed from the entry and not the behaviour. - */ - -#define TCL_STRING_KEYS (0) -#define TCL_ONE_WORD_KEYS (1) -#define TCL_CUSTOM_TYPE_KEYS (-2) -#define TCL_CUSTOM_PTR_KEYS (-1) - -/* - * Structure definition for information used to keep track of searches through - * dictionaries. These fields should not be accessed by code outside - * tclDictObj.c - */ - -typedef struct { - void *next; /* Search position for underlying hash - * table. */ - int epoch; /* Epoch marker for dictionary being searched, - * or -1 if search has terminated. */ - Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ -} Tcl_DictSearch; - -/* - *---------------------------------------------------------------------------- - * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of - * events: - */ - -#define TCL_DONT_WAIT (1<<1) -#define TCL_WINDOW_EVENTS (1<<2) -#define TCL_FILE_EVENTS (1<<3) -#define TCL_TIMER_EVENTS (1<<4) -#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ -#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) - -/* - * The following structure defines a generic event for the Tcl event system. - * These are the things that are queued in calls to Tcl_QueueEvent and - * serviced later by Tcl_DoOneEvent. There can be many different kinds of - * events with different fields, corresponding to window events, timer events, - * etc. The structure for a particular event consists of a Tcl_Event header - * followed by additional information specific to that event. - */ - -struct Tcl_Event { - Tcl_EventProc *proc; /* Function to call to service this event. */ - struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ -}; - -/* - * Positions to pass to Tcl_QueueEvent: - */ - -typedef enum { - TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK -} Tcl_QueuePosition; - -/* - * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier - * event routines. - */ - -#define TCL_SERVICE_NONE 0 -#define TCL_SERVICE_ALL 1 - -/* - * The following structure keeps is used to hold a time value, either as an - * absolute time (the number of seconds from the epoch) or as an elapsed time. - * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. - */ - -typedef struct Tcl_Time { - long sec; /* Seconds. */ - long usec; /* Microseconds. */ -} Tcl_Time; - -typedef void (Tcl_SetTimerProc) (CONST86 Tcl_Time *timePtr); -typedef int (Tcl_WaitForEventProc) (CONST86 Tcl_Time *timePtr); - -/* - * TIP #233 (Virtualized Time) - */ - -typedef void (Tcl_GetTimeProc) (Tcl_Time *timebuf, ClientData clientData); -typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, ClientData clientData); - -/* - *---------------------------------------------------------------------------- - * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to - * indicate what sorts of events are of interest: - */ - -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) - -/* - * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition - * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in - * Tcl_GetStdChannel. - */ - -#define TCL_STDIN (1<<1) -#define TCL_STDOUT (1<<2) -#define TCL_STDERR (1<<3) -#define TCL_ENFORCE_MODE (1<<4) - -/* - * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel - * should be closed. - */ - -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) - -/* - * Value to use as the closeProc for a channel that supports the close2Proc - * interface. - */ - -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) - -/* - * Channel version tag. This was introduced in 8.3.2/8.4. - */ - -#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) -#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) -#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) -#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) -#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) - -/* - * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. - */ - -#define TCL_CHANNEL_THREAD_INSERT (0) -#define TCL_CHANNEL_THREAD_REMOVE (1) - -/* - * Typedefs for the various operations in a channel type: - */ - -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, - CONST84 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, CONST84 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); -/* - * TIP #218, Channel Thread Actions - */ -typedef void (Tcl_DriverThreadActionProc) (ClientData instanceData, - int action); -/* - * TIP #208, File Truncation (etc.) - */ -typedef int (Tcl_DriverTruncateProc) (ClientData instanceData, - Tcl_WideInt length); - -/* - * struct Tcl_ChannelType: - * - * One such structure exists for each type (kind) of channel. It collects - * together in one place all the functions that are part of the specific - * channel type. - * - * It is recommend that the Tcl_Channel* functions are used to access elements - * of this structure, instead of direct accessing. - */ - -typedef struct Tcl_ChannelType { - const char *typeName; /* The name of the channel type in Tcl - * commands. This storage is owned by channel - * type. */ - Tcl_ChannelTypeVersion version; - /* Version of the channel type. */ - Tcl_DriverCloseProc *closeProc; - /* Function to call to close the channel, or - * TCL_CLOSE2PROC if the close2Proc should be - * used instead. */ - Tcl_DriverInputProc *inputProc; - /* Function to call for input on channel. */ - Tcl_DriverOutputProc *outputProc; - /* Function to call for output on channel. */ - Tcl_DriverSeekProc *seekProc; - /* Function to call to seek on the channel. - * May be NULL. */ - Tcl_DriverSetOptionProc *setOptionProc; - /* Set an option on a channel. */ - Tcl_DriverGetOptionProc *getOptionProc; - /* Get an option from a channel. */ - Tcl_DriverWatchProc *watchProc; - /* Set up the notifier to watch for events on - * this channel. */ - Tcl_DriverGetHandleProc *getHandleProc; - /* Get an OS handle from the channel or NULL - * if not supported. */ - Tcl_DriverClose2Proc *close2Proc; - /* Function to call to close the channel if - * the device supports closing the read & - * write sides independently. */ - Tcl_DriverBlockModeProc *blockModeProc; - /* Set blocking mode for the raw channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_2 channels or later. - */ - Tcl_DriverFlushProc *flushProc; - /* Function to call to flush a channel. May be - * NULL. */ - Tcl_DriverHandlerProc *handlerProc; - /* Function to call to handle a channel event. - * This will be passed up the stacked channel - * chain. */ - /* - * Only valid in TCL_CHANNEL_VERSION_3 channels or later. - */ - Tcl_DriverWideSeekProc *wideSeekProc; - /* Function to call to seek on the channel - * which can handle 64-bit offsets. May be - * NULL, and must be NULL if seekProc is - * NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_4 channels or later. - * TIP #218, Channel Thread Actions. - */ - Tcl_DriverThreadActionProc *threadActionProc; - /* Function to call to notify the driver of - * thread specific activity for a channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_5 channels or later. - * TIP #208, File Truncation. - */ - Tcl_DriverTruncateProc *truncateProc; - /* Function to call to truncate the underlying - * file to a particular length. May be NULL if - * the channel does not support truncation. */ -} Tcl_ChannelType; - -/* - * The following flags determine whether the blockModeProc above should set - * the channel into blocking or nonblocking mode. They are passed as arguments - * to the blockModeProc function in the above structure. - */ - -#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ -#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking - * mode. */ - -/* - *---------------------------------------------------------------------------- - * Enum for different types of file paths. - */ - -typedef enum Tcl_PathType { - TCL_PATH_ABSOLUTE, - TCL_PATH_RELATIVE, - TCL_PATH_VOLUME_RELATIVE -} Tcl_PathType; - -/* - * The following structure is used to pass glob type data amongst the various - * glob routines and Tcl_FSMatchInDirectory. - */ - -typedef struct Tcl_GlobTypeData { - int type; /* Corresponds to bcdpfls as in 'find -t'. */ - int perm; /* Corresponds to file permissions. */ - Tcl_Obj *macType; /* Acceptable Mac type. */ - Tcl_Obj *macCreator; /* Acceptable Mac creator. */ -} Tcl_GlobTypeData; - -/* - * Type and permission definitions for glob command. - */ - -#define TCL_GLOB_TYPE_BLOCK (1<<0) -#define TCL_GLOB_TYPE_CHAR (1<<1) -#define TCL_GLOB_TYPE_DIR (1<<2) -#define TCL_GLOB_TYPE_PIPE (1<<3) -#define TCL_GLOB_TYPE_FILE (1<<4) -#define TCL_GLOB_TYPE_LINK (1<<5) -#define TCL_GLOB_TYPE_SOCK (1<<6) -#define TCL_GLOB_TYPE_MOUNT (1<<7) - -#define TCL_GLOB_PERM_RONLY (1<<0) -#define TCL_GLOB_PERM_HIDDEN (1<<1) -#define TCL_GLOB_PERM_R (1<<2) -#define TCL_GLOB_PERM_W (1<<3) -#define TCL_GLOB_PERM_X (1<<4) - -/* - * Flags for the unload callback function. - */ - -#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) -#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) - -/* - * Typedefs for the various filesystem operations: - */ - -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); -/* We have to declare the utime structure here. */ -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 *CONST86 * (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; - -/* - *---------------------------------------------------------------------------- - * Data structures related to hooking into the filesystem - */ - -/* - * Filesystem version tag. This was introduced in 8.4. - */ - -#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) - -/* - * struct Tcl_Filesystem: - * - * One such structure exists for each type (kind) of filesystem. It collects - * together in one place all the functions that are part of the specific - * filesystem. Tcl always accesses the filesystem through one of these - * structures. - * - * Not all entries need be non-NULL; any which are NULL are simply ignored. - * However, a complete filesystem should provide all of these functions. The - * explanations in the structure show the importance of each function. - */ - -typedef struct Tcl_Filesystem { - const char *typeName; /* The name of the filesystem. */ - int structureLength; /* Length of this structure, so future binary - * compatibility can be assured. */ - Tcl_FSVersion version; /* Version of the filesystem type. */ - Tcl_FSPathInFilesystemProc *pathInFilesystemProc; - /* Function to check whether a path is in this - * filesystem. This is the most important - * filesystem function. */ - Tcl_FSDupInternalRepProc *dupInternalRepProc; - /* Function to duplicate internal fs rep. May - * be NULL (but then fs is less efficient). */ - Tcl_FSFreeInternalRepProc *freeInternalRepProc; - /* Function to free internal fs rep. Must be - * implemented if internal representations - * need freeing, otherwise it can be NULL. */ - Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; - /* Function to convert internal representation - * to a normalized path. Only required if the - * fs creates pure path objects with no - * string/path representation. */ - Tcl_FSCreateInternalRepProc *createInternalRepProc; - /* Function to create a filesystem-specific - * internal representation. May be NULL if - * paths have no internal representation, or - * if the Tcl_FSPathInFilesystemProc for this - * filesystem always immediately creates an - * internal representation for paths it - * accepts. */ - Tcl_FSNormalizePathProc *normalizePathProc; - /* Function to normalize a path. Should be - * implemented for all filesystems which can - * have multiple string representations for - * the same path object. */ - Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; - /* Function to determine the type of a path in - * this filesystem. May be NULL. */ - Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; - /* Function to return the separator - * character(s) for this filesystem. Must be - * implemented. */ - Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. - * Must be implemented for any reasonable - * filesystem. */ - Tcl_FSAccessProc *accessProc; - /* Function to process a 'Tcl_FSAccess()' - * call. Must be implemented for any - * reasonable filesystem. */ - Tcl_FSOpenFileChannelProc *openFileChannelProc; - /* Function to process a - * 'Tcl_FSOpenFileChannel()' call. Must be - * implemented for any reasonable - * filesystem. */ - Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; - /* Function to process a - * 'Tcl_FSMatchInDirectory()'. If not - * implemented, then glob and recursive copy - * functionality will be lacking in the - * filesystem. */ - Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. - * Required to allow setting (not reading) of - * times with 'file mtime', 'file atime' and - * the open-r/open-w/fcopy implementation of - * 'file copy'. */ - Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. - * Should be implemented only if the - * filesystem supports links (reading or - * creating). */ - Tcl_FSListVolumesProc *listVolumesProc; - /* Function to list any filesystem volumes - * added by this filesystem. Should be - * implemented only if the filesystem adds - * volumes at the head of the filesystem. */ - Tcl_FSFileAttrStringsProc *fileAttrStringsProc; - /* Function to list all attributes strings - * which are valid for this filesystem. If not - * implemented the filesystem will not support - * the 'file attributes' command. This allows - * arbitrary additional information to be - * attached to files in the filesystem. */ - Tcl_FSFileAttrsGetProc *fileAttrsGetProc; - /* Function to process a - * 'Tcl_FSFileAttrsGet()' call, used by 'file - * attributes'. */ - Tcl_FSFileAttrsSetProc *fileAttrsSetProc; - /* Function to process a - * 'Tcl_FSFileAttrsSet()' call, used by 'file - * attributes'. */ - Tcl_FSCreateDirectoryProc *createDirectoryProc; - /* Function to process a - * 'Tcl_FSCreateDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSRemoveDirectoryProc *removeDirectoryProc; - /* Function to process a - * 'Tcl_FSRemoveDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSDeleteFileProc *deleteFileProc; - /* Function to process a 'Tcl_FSDeleteFile()' - * call. Should be implemented unless the FS - * is read-only. */ - Tcl_FSCopyFileProc *copyFileProc; - /* Function to process a 'Tcl_FSCopyFile()' - * call. If not implemented Tcl will fall back - * on open-r, open-w and fcopy as a copying - * mechanism, for copying actions initiated in - * Tcl (not C). */ - Tcl_FSRenameFileProc *renameFileProc; - /* Function to process a 'Tcl_FSRenameFile()' - * call. If not implemented, Tcl will fall - * back on a copy and delete mechanism, for - * rename actions initiated in Tcl (not C). */ - Tcl_FSCopyDirectoryProc *copyDirectoryProc; - /* Function to process a - * 'Tcl_FSCopyDirectory()' call. If not - * implemented, Tcl will fall back on a - * recursive create-dir, file copy mechanism, - * for copying actions initiated in Tcl (not - * C). */ - Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. - * If not implemented, Tcl will attempt to use - * the 'statProc' defined above instead. */ - Tcl_FSLoadFileProc *loadFileProc; - /* Function to process a 'Tcl_FSLoadFile()' - * call. If not implemented, Tcl will fall - * back on a copy to native-temp followed by a - * Tcl_FSLoadFile on that temporary copy. */ - Tcl_FSGetCwdProc *getCwdProc; - /* Function to process a 'Tcl_FSGetCwd()' - * call. Most filesystems need not implement - * this. It will usually only be called once, - * if 'getcwd' is called before 'chdir'. May - * be NULL. */ - Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. - * If filesystems do not implement this, it - * will be emulated by a series of directory - * access checks. Otherwise, virtual - * filesystems which do implement it need only - * respond with a positive return result if - * the dirName is a valid directory in their - * filesystem. They need not remember the - * result, since that will be automatically - * remembered for use by GetCwd. Real - * filesystems should carry out the correct - * action (i.e. call the correct system - * 'chdir' api). If not implemented, then 'cd' - * and 'pwd' will fail inside the - * filesystem. */ -} Tcl_Filesystem; - -/* - * The following definitions are used as values for the 'linkAction' flag to - * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can - * be given. For link creation, the linkProc should create a link which - * matches any of the types given. - * - * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. - * TCL_CREATE_HARD_LINK - Create a hard link. - */ - -#define TCL_CREATE_SYMBOLIC_LINK 0x01 -#define TCL_CREATE_HARD_LINK 0x02 - -/* - *---------------------------------------------------------------------------- - * The following structure represents the Notifier functions that you can - * override with the Tcl_SetNotifier call. - */ - -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; - -/* - *---------------------------------------------------------------------------- - * The following data structures and declarations are for the new Tcl parser. - * - * For each word of a command, and for each piece of a word such as a variable - * reference, one of the following structures is created to describe the - * token. - */ - -typedef struct Tcl_Token { - int type; /* Type of token, such as TCL_TOKEN_WORD; see - * below for valid types. */ - const char *start; /* First character in token. */ - int size; /* Number of bytes in token. */ - int numComponents; /* If this token is composed of other tokens, - * this field tells how many of them there are - * (including components of components, etc.). - * The component tokens immediately follow - * this one. */ -} Tcl_Token; - -/* - * Type values defined for Tcl_Token structures. These values are defined as - * mask bits so that it's easy to check for collections of types. - * - * TCL_TOKEN_WORD - The token describes one word of a command, - * from the first non-blank character of the word - * (which may be " or {) up to but not including - * the space, semicolon, or bracket that - * terminates the word. NumComponents counts the - * total number of sub-tokens that make up the - * word. This includes, for example, sub-tokens - * of TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except - * that the word is guaranteed to consist of a - * single TCL_TOKEN_TEXT sub-token. - * TCL_TOKEN_TEXT - The token describes a range of literal text - * that is part of a word. NumComponents is - * always 0. - * TCL_TOKEN_BS - The token describes a backslash sequence that - * must be collapsed. NumComponents is always 0. - * TCL_TOKEN_COMMAND - The token describes a command whose result - * must be substituted into the word. The token - * includes the enclosing brackets. NumComponents - * is always 0. - * TCL_TOKEN_VARIABLE - The token describes a variable substitution, - * including the dollar sign, variable name, and - * array index (if there is one) up through the - * right parentheses. NumComponents tells how - * many additional tokens follow to represent the - * variable name. The first token will be a - * TCL_TOKEN_TEXT token that describes the - * variable name. If the variable is an array - * reference then there will be one or more - * additional tokens, of type TCL_TOKEN_TEXT, - * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and - * TCL_TOKEN_VARIABLE, that describe the array - * index; numComponents counts the total number - * of nested tokens that make up the variable - * reference, including sub-tokens of - * TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an - * expression, from the first non-blank character - * of the subexpression up to but not including - * the space, brace, or bracket that terminates - * the subexpression. NumComponents counts the - * total number of following subtokens that make - * up the subexpression; this includes all - * subtokens for any nested TCL_TOKEN_SUB_EXPR - * tokens. For example, a numeric value used as a - * primitive operand is described by a - * TCL_TOKEN_SUB_EXPR token followed by a - * TCL_TOKEN_TEXT token. A binary subexpression - * is described by a TCL_TOKEN_SUB_EXPR token - * followed by the TCL_TOKEN_OPERATOR token for - * the operator, then TCL_TOKEN_SUB_EXPR tokens - * for the left then the right operands. - * TCL_TOKEN_OPERATOR - The token describes one expression operator. - * An operator might be the name of a math - * function such as "abs". A TCL_TOKEN_OPERATOR - * token is always preceded by one - * TCL_TOKEN_SUB_EXPR token for the operator's - * subexpression, and is followed by zero or more - * TCL_TOKEN_SUB_EXPR tokens for the operator's - * operands. NumComponents is always 0. - * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except - * that it marks a word that began with the - * literal character prefix "{*}". This word is - * marked to be expanded - that is, broken into - * words after substitution is complete. - */ - -#define TCL_TOKEN_WORD 1 -#define TCL_TOKEN_SIMPLE_WORD 2 -#define TCL_TOKEN_TEXT 4 -#define TCL_TOKEN_BS 8 -#define TCL_TOKEN_COMMAND 16 -#define TCL_TOKEN_VARIABLE 32 -#define TCL_TOKEN_SUB_EXPR 64 -#define TCL_TOKEN_OPERATOR 128 -#define TCL_TOKEN_EXPAND_WORD 256 - -/* - * Parsing error types. On any parsing error, one of these values will be - * stored in the error field of the Tcl_Parse structure defined below. - */ - -#define TCL_PARSE_SUCCESS 0 -#define TCL_PARSE_QUOTE_EXTRA 1 -#define TCL_PARSE_BRACE_EXTRA 2 -#define TCL_PARSE_MISSING_BRACE 3 -#define TCL_PARSE_MISSING_BRACKET 4 -#define TCL_PARSE_MISSING_PAREN 5 -#define TCL_PARSE_MISSING_QUOTE 6 -#define TCL_PARSE_MISSING_VAR_BRACE 7 -#define TCL_PARSE_SYNTAX 8 -#define TCL_PARSE_BAD_NUMBER 9 - -/* - * A structure of the following type is filled in by Tcl_ParseCommand. It - * describes a single command parsed from an input string. - */ - -#define NUM_STATIC_TOKENS 20 - -typedef struct Tcl_Parse { - const char *commentStart; /* Pointer to # that begins the first of one - * or more comments preceding the command. */ - int commentSize; /* Number of bytes in comments (up through - * newline character that terminates the last - * comment). If there were no comments, this - * field is 0. */ - const char *commandStart; /* First character in first word of - * command. */ - int commandSize; /* Number of bytes in command, including first - * character of first word, up through the - * terminating newline, close bracket, or - * semicolon. */ - int numWords; /* Total number of words in command. May be - * 0. */ - Tcl_Token *tokenPtr; /* Pointer to first token representing the - * words of the command. Initially points to - * staticTokens, but may change to point to - * malloc-ed space if command exceeds space in - * staticTokens. */ - int numTokens; /* Total number of tokens in command. */ - int tokensAvailable; /* Total number of tokens available at - * *tokenPtr. */ - int errorType; /* One of the parsing error types defined - * above. */ - - /* - * The fields below are intended only for the private use of the parser. - * They should not be used by functions that invoke Tcl_ParseCommand. - */ - - const char *string; /* The original command string passed to - * Tcl_ParseCommand. */ - const char *end; /* Points to the character just after the last - * one in the command string. */ - Tcl_Interp *interp; /* Interpreter to use for error reporting, or - * NULL. */ - const char *term; /* Points to character in string that - * terminated most recent token. Filled in by - * ParseTokens. If an error occurs, points to - * beginning of region where the error - * occurred (e.g. the open brace if the close - * brace is missing). */ - int incomplete; /* This field is set to 1 by Tcl_ParseCommand - * if the command appears to be incomplete. - * This information is used by - * Tcl_CommandComplete. */ - Tcl_Token staticTokens[NUM_STATIC_TOKENS]; - /* Initial space for tokens for command. This - * space should be large enough to accommodate - * most commands; dynamic space is allocated - * for very large commands that don't fit - * here. */ -} Tcl_Parse; - -/* - *---------------------------------------------------------------------------- - * The following structure represents a user-defined encoding. It collects - * together all the functions that are used by the specific encoding. - */ - -typedef struct Tcl_EncodingType { - const char *encodingName; /* The name of the encoding, e.g. "euc-jp". - * This name is the unique key for this - * encoding type. */ - Tcl_EncodingConvertProc *toUtfProc; - /* Function to convert from external encoding - * into UTF-8. */ - Tcl_EncodingConvertProc *fromUtfProc; - /* Function to convert from UTF-8 into - * external encoding. */ - Tcl_EncodingFreeProc *freeProc; - /* If non-NULL, function to call when this - * encoding is deleted. */ - ClientData clientData; /* Arbitrary value associated with encoding - * type. Passed to conversion functions. */ - int nullSize; /* Number of zero bytes that signify - * end-of-string in this encoding. This number - * is used to determine the source string - * length when the srcLen argument is - * negative. Must be 1 or 2. */ -} Tcl_EncodingType; - -/* - * The following definitions are used as values for the conversion control - * flags argument when converting text from one character set to another: - * - * TCL_ENCODING_START - Signifies that the source buffer is the first - * block in a (potentially multi-block) input - * stream. Tells the conversion function to reset - * to an initial state and perform any - * initialization that needs to occur before the - * first byte is converted. If the source buffer - * contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_END - Signifies that the source buffer is the last - * block in a (potentially multi-block) input - * stream. Tells the conversion routine to - * perform any finalization that needs to occur - * after the last byte is converted and then to - * reset to an initial state. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_STOPONERROR - If set, then the converter will return - * immediately upon encountering an invalid byte - * sequence or a source character that has no - * mapping in the target encoding. If clear, then - * the converter will skip the problem, - * substituting one or more "close" characters in - * the destination buffer and then continue to - * convert the source. - * TCL_ENCODING_NO_TERMINATE - If set, Tcl_ExternalToUtf will not append a - * terminating NUL byte. Knowing that it will - * not need space to do so, it will fill all - * dstLen bytes with encoded UTF-8 content, as - * other circumstances permit. If clear, the - * default behavior is to reserve a byte in - * the dst space for NUL termination, and to - * append the NUL byte. - * TCL_ENCODING_CHAR_LIMIT - If set and dstCharsPtr is not NULL, then - * Tcl_ExternalToUtf takes the initial value - * of *dstCharsPtr is taken as a limit of the - * maximum number of chars to produce in the - * encoded UTF-8 content. Otherwise, the - * number of chars produced is controlled only - * by other limiting factors. - */ - -#define TCL_ENCODING_START 0x01 -#define TCL_ENCODING_END 0x02 -#define TCL_ENCODING_STOPONERROR 0x04 -#define TCL_ENCODING_NO_TERMINATE 0x08 -#define TCL_ENCODING_CHAR_LIMIT 0x10 - -/* - * The following definitions are the error codes returned by the conversion - * routines: - * - * TCL_OK - All characters were converted. - * TCL_CONVERT_NOSPACE - The output buffer would not have been large - * enough for all of the converted data; as many - * characters as could fit were converted though. - * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were - * the beginning of a multibyte sequence, but - * more bytes were needed to complete this - * sequence. A subsequent call to the conversion - * routine should pass the beginning of this - * unconverted sequence plus additional bytes - * from the source stream to properly convert the - * formerly split-up multibyte sequence. - * TCL_CONVERT_SYNTAX - The source stream contained an invalid - * character sequence. This may occur if the - * input stream has been damaged or if the input - * encoding method was misidentified. This error - * is reported only if TCL_ENCODING_STOPONERROR - * was specified. - * TCL_CONVERT_UNKNOWN - The source string contained a character that - * could not be represented in the target - * encoding. This error is reported only if - * TCL_ENCODING_STOPONERROR was specified. - */ - -#define TCL_CONVERT_MULTIBYTE (-1) -#define TCL_CONVERT_SYNTAX (-2) -#define TCL_CONVERT_UNKNOWN (-3) -#define TCL_CONVERT_NOSPACE (-4) - -/* - * The maximum number of bytes that are necessary to represent a single - * Unicode character in UTF-8. The valid values should be 3, 4 or 6 - * (or perhaps 1 if we want to support a non-unicode enabled core). If 3 or - * 4, then Tcl_UniChar must be 2-bytes in size (UCS-2) (the default). If 6, - * then Tcl_UniChar must be 4-bytes in size (UCS-4). At this time UCS-2 mode - * is the default and recommended mode. UCS-4 is experimental and not - * recommended. It works for the core, but most extensions expect UCS-2. - */ - -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 3 -#endif - -/* - * This represents a Unicode character. Any changes to this should also be - * reflected in regcustom.h. - */ - -#if TCL_UTF_MAX > 4 - /* - * unsigned int isn't 100% accurate as it should be a strict 4-byte value - * (perhaps wchar_t). 64-bit systems may have troubles. The size of this - * value must be reflected correctly in regcustom.h and - * in tclEncoding.c. - * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode - * XXX: string rep that Tcl_UniChar represents. Changing the size - * XXX: of Tcl_UniChar is /not/ supported. - */ -typedef unsigned int Tcl_UniChar; -#else -typedef unsigned short Tcl_UniChar; -#endif - -/* - *---------------------------------------------------------------------------- - * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to - * provide the system with the embedded configuration data. - */ - -typedef struct Tcl_Config { - const char *key; /* Configuration key to register. ASCII - * encoded, thus UTF-8. */ - const char *value; /* The value associated with the key. System - * encoding. */ -} Tcl_Config; - -/* - *---------------------------------------------------------------------------- - * Flags for TIP#143 limits, detailing which limits are active in an - * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. - */ - -#define TCL_LIMIT_COMMANDS 0x01 -#define TCL_LIMIT_TIME 0x02 - -/* - * Structure containing information about a limit handler to be called when a - * command- or time-limit is exceeded by an interpreter. - */ - -typedef void (Tcl_LimitHandlerProc) (ClientData clientData, Tcl_Interp *interp); -typedef void (Tcl_LimitHandlerDeleteProc) (ClientData clientData); - -/* - *---------------------------------------------------------------------------- - * Override definitions for libtommath. - */ - -typedef struct mp_int mp_int; -#define MP_INT_DECLARED -typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED - -/* - *---------------------------------------------------------------------------- - * Definitions needed for Tcl_ParseArgvObj routines. - * Based on tkArgv.c. - * Modifications from the original are copyright (c) Sam Bromley 2006 - */ - -typedef struct { - int type; /* Indicates the option type; see below. */ - const char *keyStr; /* The key string that flags the option in the - * argv array. */ - void *srcPtr; /* Value to be used in setting dst; usage - * depends on type.*/ - void *dstPtr; /* Address of value to be modified; usage - * depends on type.*/ - const char *helpStr; /* Documentation message describing this - * option. */ - ClientData clientData; /* Word to pass to function callbacks. */ -} Tcl_ArgvInfo; - -/* - * Legal values for the type field of a Tcl_ArgInfo: see the user - * documentation for details. - */ - -#define TCL_ARGV_CONSTANT 15 -#define TCL_ARGV_INT 16 -#define TCL_ARGV_STRING 17 -#define TCL_ARGV_REST 18 -#define TCL_ARGV_FLOAT 19 -#define TCL_ARGV_FUNC 20 -#define TCL_ARGV_GENFUNC 21 -#define TCL_ARGV_HELP 22 -#define TCL_ARGV_END 23 - -/* - * Types of callback functions for the TCL_ARGV_FUNC and TCL_ARGV_GENFUNC - * argument types: - */ - -typedef int (Tcl_ArgvFuncProc)(ClientData clientData, Tcl_Obj *objPtr, - void *dstPtr); -typedef int (Tcl_ArgvGenFuncProc)(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const *objv, void *dstPtr); - -/* - * Shorthand for commonly used argTable entries. - */ - -#define TCL_ARGV_AUTO_HELP \ - {TCL_ARGV_HELP, "-help", NULL, NULL, \ - "Print summary of command-line options and abort", NULL} -#define TCL_ARGV_AUTO_REST \ - {TCL_ARGV_REST, "--", NULL, NULL, \ - "Marks the end of the options", NULL} -#define TCL_ARGV_TABLE_END \ - {TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL} - -/* - *---------------------------------------------------------------------------- - * Definitions needed for Tcl_Zlib routines. [TIP #234] - * - * Constants for the format flags describing what sort of data format is - * desired/expected for the Tcl_ZlibDeflate, Tcl_ZlibInflate and - * Tcl_ZlibStreamInit functions. - */ - -#define TCL_ZLIB_FORMAT_RAW 1 -#define TCL_ZLIB_FORMAT_ZLIB 2 -#define TCL_ZLIB_FORMAT_GZIP 4 -#define TCL_ZLIB_FORMAT_AUTO 8 - -/* - * Constants that describe whether the stream is to operate in compressing or - * decompressing mode. - */ - -#define TCL_ZLIB_STREAM_DEFLATE 16 -#define TCL_ZLIB_STREAM_INFLATE 32 - -/* - * Constants giving compression levels. Use of TCL_ZLIB_COMPRESS_DEFAULT is - * recommended. - */ - -#define TCL_ZLIB_COMPRESS_NONE 0 -#define TCL_ZLIB_COMPRESS_FAST 1 -#define TCL_ZLIB_COMPRESS_BEST 9 -#define TCL_ZLIB_COMPRESS_DEFAULT (-1) - -/* - * Constants for types of flushing, used with Tcl_ZlibFlush. - */ - -#define TCL_ZLIB_NO_FLUSH 0 -#define TCL_ZLIB_FLUSH 2 -#define TCL_ZLIB_FULLFLUSH 3 -#define TCL_ZLIB_FINALIZE 4 - -/* - *---------------------------------------------------------------------------- - * Definitions needed for the Tcl_LoadFile function. [TIP #416] - */ - -#define TCL_LOAD_GLOBAL 1 -#define TCL_LOAD_LAZY 2 - -/* - *---------------------------------------------------------------------------- - * Single public declaration for NRE. - */ - -typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, - int result); - -/* - *---------------------------------------------------------------------------- - * The following constant is used to test for older versions of Tcl in the - * stubs tables. - * - * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different - * value since the stubs tables don't match. - */ - -#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) - -/* - * The following function is required to be defined in all stubs aware - * extensions. The function is actually implemented in the stub library, not - * the main Tcl library, although there is a trivial implementation in the - * main library in case an extension is statically linked into an application. - */ - -const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, - int exact); -const char * TclTomMathInitializeStubs(Tcl_Interp *interp, - const char *version, int epoch, int revision); - -/* - * When not using stubs, make it a macro. - */ - -#ifndef USE_TCL_STUBS -#define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgInitStubsCheck(interp, version, exact) -#endif - -/* - * TODO - tommath stubs export goes here! - */ - -/* - * Public functions that are not accessible via the stubs table. - * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] - */ - -#define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - ((Tcl_CreateInterp)())) -EXTERN void Tcl_MainEx(int argc, char **argv, - Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); -EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, - const char *version, int exact); -EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); - -/* - *---------------------------------------------------------------------------- - * Include the public function declarations that are accessible via the stubs - * table. - */ - -#include "tclDecls.h" - -/* - * Include platform specific public function declarations that are accessible - * via the stubs table. Make all TclOO symbols MODULE_SCOPE (which only - * has effect on building it as a shared library). See ticket [3010352]. - */ - -#if defined(BUILD_tcl) -# undef TCLAPI -# define TCLAPI MODULE_SCOPE -#endif - -#include "tclPlatDecls.h" - -/* - *---------------------------------------------------------------------------- - * The following declarations either map ckalloc and ckfree to malloc and - * free, or they map them to functions with all sorts of debugging hooks - * defined in tclCkalloc.c. - */ - -#ifdef TCL_MEM_DEBUG - -# define ckalloc(x) \ - ((void *) Tcl_DbCkalloc((unsigned)(x), __FILE__, __LINE__)) -# define ckfree(x) \ - Tcl_DbCkfree((char *)(x), __FILE__, __LINE__) -# define ckrealloc(x,y) \ - ((void *) Tcl_DbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE__)) -# define attemptckalloc(x) \ - ((void *) Tcl_AttemptDbCkalloc((unsigned)(x), __FILE__, __LINE__)) -# define attemptckrealloc(x,y) \ - ((void *) Tcl_AttemptDbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE__)) - -#else /* !TCL_MEM_DEBUG */ - -/* - * If we are not using the debugging allocator, we should call the Tcl_Alloc, - * et al. routines in order to guarantee that every module is using the same - * memory allocator both inside and outside of the Tcl library. - */ - -# define ckalloc(x) \ - ((void *) Tcl_Alloc((unsigned)(x))) -# define ckfree(x) \ - Tcl_Free((char *)(x)) -# define ckrealloc(x,y) \ - ((void *) Tcl_Realloc((char *)(x), (unsigned)(y))) -# define attemptckalloc(x) \ - ((void *) Tcl_AttemptAlloc((unsigned)(x))) -# define attemptckrealloc(x,y) \ - ((void *) Tcl_AttemptRealloc((char *)(x), (unsigned)(y))) -# undef Tcl_InitMemory -# define Tcl_InitMemory(x) -# undef Tcl_DumpActiveMemory -# define Tcl_DumpActiveMemory(x) -# undef Tcl_ValidateAllMemory -# define Tcl_ValidateAllMemory(x,y) - -#endif /* !TCL_MEM_DEBUG */ - -#ifdef TCL_MEM_DEBUG -# define Tcl_IncrRefCount(objPtr) \ - Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_DecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_IsShared(objPtr) \ - Tcl_DbIsShared(objPtr, __FILE__, __LINE__) -#else -# define Tcl_IncrRefCount(objPtr) \ - ++(objPtr)->refCount - /* - * Use do/while0 idiom for optimum correctness without compiler warnings. - * http://c2.com/cgi/wiki?TrivialDoWhileLoop - */ -# define Tcl_DecrRefCount(objPtr) \ - do { \ - Tcl_Obj *_objPtr = (objPtr); \ - if ((_objPtr)->refCount-- <= 1) { \ - TclFreeObj(_objPtr); \ - } \ - } while(0) -# define Tcl_IsShared(objPtr) \ - ((objPtr)->refCount > 1) -#endif - -/* - * Macros and definitions that help to debug the use of Tcl objects. When - * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call - * debugging versions of the object creation functions. - */ - -#ifdef TCL_MEM_DEBUG -# undef Tcl_NewBignumObj -# define Tcl_NewBignumObj(val) \ - Tcl_DbNewBignumObj(val, __FILE__, __LINE__) -# undef Tcl_NewBooleanObj -# define Tcl_NewBooleanObj(val) \ - Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) -# undef Tcl_NewByteArrayObj -# define Tcl_NewByteArrayObj(bytes, len) \ - Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewDoubleObj -# define Tcl_NewDoubleObj(val) \ - Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) -# undef Tcl_NewIntObj -# define Tcl_NewIntObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewListObj -# define Tcl_NewListObj(objc, objv) \ - Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) -# undef Tcl_NewLongObj -# define Tcl_NewLongObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewObj -# define Tcl_NewObj() \ - Tcl_DbNewObj(__FILE__, __LINE__) -# undef Tcl_NewStringObj -# define Tcl_NewStringObj(bytes, len) \ - Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewWideIntObj -# define Tcl_NewWideIntObj(val) \ - Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) -#endif /* TCL_MEM_DEBUG */ - -/* - *---------------------------------------------------------------------------- - * Macros for clients to use to access fields of hash entries: - */ - -#define Tcl_GetHashValue(h) ((h)->clientData) -#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) -#define Tcl_GetHashKey(tablePtr, h) \ - ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ - (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) - -/* - * Macros to use for clients to use to invoke find and create functions for - * hash tables: - */ - -#undef Tcl_FindHashEntry -#define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, (const char *)(key)) -#undef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr) - -/* - *---------------------------------------------------------------------------- - * Macros that eliminate the overhead of the thread synchronization functions - * when compiling without thread support. - */ - -#ifndef TCL_THREADS -#undef Tcl_MutexLock -#define Tcl_MutexLock(mutexPtr) -#undef Tcl_MutexUnlock -#define Tcl_MutexUnlock(mutexPtr) -#undef Tcl_MutexFinalize -#define Tcl_MutexFinalize(mutexPtr) -#undef Tcl_ConditionNotify -#define Tcl_ConditionNotify(condPtr) -#undef Tcl_ConditionWait -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#undef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize(condPtr) -#endif /* TCL_THREADS */ - -/* - *---------------------------------------------------------------------------- - * Deprecated Tcl functions: - */ - -#ifndef TCL_NO_DEPRECATED -/* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibility. - */ - -# define Tcl_Ckalloc Tcl_Alloc -# define Tcl_Ckfree Tcl_Free -# define Tcl_Ckrealloc Tcl_Realloc -# define Tcl_Return Tcl_SetResult -# define Tcl_TildeSubst Tcl_TranslateFileName -#if !defined(__APPLE__) /* On OSX, there is a conflict with "mach/mach.h" */ -# define panic Tcl_Panic -#endif -# define panicVA Tcl_PanicVA -#endif /* !TCL_NO_DEPRECATED */ - -/* - *---------------------------------------------------------------------------- - * Convenience declaration of Tcl_AppInit for backwards compatibility. This - * function is not *implemented* by the tcl library, so the storage class is - * neither DLLEXPORT nor DLLIMPORT. - */ - -extern Tcl_AppInitProc Tcl_AppInit; - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TCL */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclDecls.h deleted file mode 100644 index a49121a74..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclDecls.h +++ /dev/null @@ -1,3975 +0,0 @@ -/* - * tclDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLDECLS -#define _TCLDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, - const char *name, const char *version, - const void *clientData); -/* 1 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, - const char *name, const char *version, - int exact, void *clientDataPtr); -/* 2 */ -EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); -/* 3 */ -EXTERN char * Tcl_Alloc(unsigned int size); -/* 4 */ -EXTERN void Tcl_Free(char *ptr); -/* 5 */ -EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); -/* 6 */ -EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file, - int line); -/* 7 */ -EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line); -/* 8 */ -EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, - const char *file, int line); -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 9 */ -EXTERN void Tcl_CreateFileHandler(int fd, int mask, - Tcl_FileProc *proc, ClientData clientData); -#endif /* MACOSX */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 10 */ -EXTERN void Tcl_DeleteFileHandler(int fd); -#endif /* MACOSX */ -/* 11 */ -EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr); -/* 12 */ -EXTERN void Tcl_Sleep(int ms); -/* 13 */ -EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr); -/* 14 */ -EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 15 */ -EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); -/* 16 */ -EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes, - int length); -/* 17 */ -EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]); -/* 18 */ -EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, - Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); -/* 19 */ -EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, - int line); -/* 20 */ -EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file, - int line); -/* 21 */ -EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file, - int line); -/* 22 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file, - int line); -/* 23 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes, - int length, const char *file, int line); -/* 24 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, - const char *file, int line); -/* 25 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv, - const char *file, int line); -/* 26 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file, - int line); -/* 27 */ -EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line); -/* 28 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length, - const char *file, int line); -/* 29 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); -/* 30 */ -EXTERN void TclFreeObj(Tcl_Obj *objPtr); -/* 31 */ -EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src, - int *boolPtr); -/* 32 */ -EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *boolPtr); -/* 33 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -/* 34 */ -EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src, - double *doublePtr); -/* 35 */ -EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *doublePtr); -/* 36 */ -EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, - CONST84 char *const *tablePtr, - const char *msg, int flags, int *indexPtr); -/* 37 */ -EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src, - int *intPtr); -/* 38 */ -EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *intPtr); -/* 39 */ -EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, long *longPtr); -/* 40 */ -EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName); -/* 41 */ -EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); -/* 42 */ -EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); -/* 43 */ -EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); -/* 44 */ -EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *objPtr); -/* 45 */ -EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *objcPtr, - Tcl_Obj ***objvPtr); -/* 46 */ -EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj **objPtrPtr); -/* 47 */ -EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, - Tcl_Obj *listPtr, int *lengthPtr); -/* 48 */ -EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, - Tcl_Obj *listPtr, int first, int count, - int objc, Tcl_Obj *const objv[]); -/* 49 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); -/* 50 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes, - int length); -/* 51 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); -/* 52 */ -EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); -/* 53 */ -EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]); -/* 54 */ -EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); -/* 55 */ -EXTERN Tcl_Obj * Tcl_NewObj(void); -/* 56 */ -EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length); -/* 57 */ -EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); -/* 58 */ -EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); -/* 59 */ -EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, - const unsigned char *bytes, int length); -/* 60 */ -EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); -/* 61 */ -EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); -/* 62 */ -EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, - Tcl_Obj *const objv[]); -/* 63 */ -EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); -/* 64 */ -EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); -/* 65 */ -EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes, - int length); -/* 66 */ -EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, - const char *message); -/* 67 */ -EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, - const char *message, int length); -/* 68 */ -EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); -/* 69 */ -EXTERN void Tcl_AppendElement(Tcl_Interp *interp, - const char *element); -/* 70 */ -EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); -/* 71 */ -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, - ClientData clientData); -/* 72 */ -EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); -/* 73 */ -EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); -/* 74 */ -EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); -/* 75 */ -EXTERN int Tcl_AsyncReady(void); -/* 76 */ -EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); -/* 77 */ -EXTERN char Tcl_Backslash(const char *src, int *readPtr); -/* 78 */ -EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, - const char *optionName, - const char *optionList); -/* 79 */ -EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -/* 80 */ -EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, - ClientData clientData); -/* 81 */ -EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); -/* 82 */ -EXTERN int Tcl_CommandComplete(const char *cmd); -/* 83 */ -EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv); -/* 84 */ -EXTERN int Tcl_ConvertElement(const char *src, char *dst, - int flags); -/* 85 */ -EXTERN int Tcl_ConvertCountedElement(const char *src, - int length, char *dst, int flags); -/* 86 */ -EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, - const char *slaveCmd, Tcl_Interp *target, - const char *targetCmd, int argc, - CONST84 char *const *argv); -/* 87 */ -EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, - const char *slaveCmd, Tcl_Interp *target, - const char *targetCmd, int objc, - Tcl_Obj *const objv[]); -/* 88 */ -EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, - const char *chanName, - ClientData instanceData, int mask); -/* 89 */ -EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, - Tcl_ChannelProc *proc, ClientData clientData); -/* 90 */ -EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -/* 91 */ -EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_CmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -/* 92 */ -EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -/* 93 */ -EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 94 */ -EXTERN Tcl_Interp * Tcl_CreateInterp(void); -/* 95 */ -EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, - const char *name, int numArgs, - Tcl_ValueType *argTypes, Tcl_MathProc *proc, - ClientData clientData); -/* 96 */ -EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -/* 97 */ -EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, - const char *slaveName, int isSafe); -/* 98 */ -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, - Tcl_TimerProc *proc, ClientData clientData); -/* 99 */ -EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, - Tcl_CmdTraceProc *proc, - ClientData clientData); -/* 100 */ -EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, - const char *name); -/* 101 */ -EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, - Tcl_ChannelProc *proc, ClientData clientData); -/* 102 */ -EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, - Tcl_CloseProc *proc, ClientData clientData); -/* 103 */ -EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, - const char *cmdName); -/* 104 */ -EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, - Tcl_Command command); -/* 105 */ -EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, - ClientData clientData); -/* 106 */ -EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData); -/* 107 */ -EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 108 */ -EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); -/* 109 */ -EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); -/* 110 */ -EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); -/* 111 */ -EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); -/* 112 */ -EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); -/* 113 */ -EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); -/* 114 */ -EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, - Tcl_InterpDeleteProc *proc, - ClientData clientData); -/* 115 */ -EXTERN int Tcl_DoOneEvent(int flags); -/* 116 */ -EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, - ClientData clientData); -/* 117 */ -EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, - const char *bytes, int length); -/* 118 */ -EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, - const char *element); -/* 119 */ -EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); -/* 120 */ -EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); -/* 121 */ -EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -/* 122 */ -EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); -/* 123 */ -EXTERN void Tcl_DStringResult(Tcl_Interp *interp, - Tcl_DString *dsPtr); -/* 124 */ -EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); -/* 125 */ -EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); -/* 126 */ -EXTERN int Tcl_Eof(Tcl_Channel chan); -/* 127 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); -/* 128 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); -/* 129 */ -EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script); -/* 130 */ -EXTERN int Tcl_EvalFile(Tcl_Interp *interp, - const char *fileName); -/* 131 */ -EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); -/* 132 */ -EXTERN void Tcl_EventuallyFree(ClientData clientData, - Tcl_FreeProc *freeProc); -/* 133 */ -EXTERN TCL_NORETURN void Tcl_Exit(int status); -/* 134 */ -EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, - const char *hiddenCmdToken, - const char *cmdName); -/* 135 */ -EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr, - int *ptr); -/* 136 */ -EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *ptr); -/* 137 */ -EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr, - double *ptr); -/* 138 */ -EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, double *ptr); -/* 139 */ -EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr, - long *ptr); -/* 140 */ -EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - long *ptr); -/* 141 */ -EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Obj **resultPtrPtr); -/* 142 */ -EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr); -/* 143 */ -EXTERN void Tcl_Finalize(void); -/* 144 */ -EXTERN void Tcl_FindExecutable(const char *argv0); -/* 145 */ -EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, - Tcl_HashSearch *searchPtr); -/* 146 */ -EXTERN int Tcl_Flush(Tcl_Channel chan); -/* 147 */ -EXTERN void Tcl_FreeResult(Tcl_Interp *interp); -/* 148 */ -EXTERN int Tcl_GetAlias(Tcl_Interp *interp, - const char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *argcPtr, - CONST84 char ***argvPtr); -/* 149 */ -EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, - const char *slaveCmd, - Tcl_Interp **targetInterpPtr, - CONST84 char **targetCmdPtr, int *objcPtr, - Tcl_Obj ***objv); -/* 150 */ -EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, - const char *name, - Tcl_InterpDeleteProc **procPtr); -/* 151 */ -EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, - const char *chanName, int *modePtr); -/* 152 */ -EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); -/* 153 */ -EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, - ClientData *handlePtr); -/* 154 */ -EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); -/* 155 */ -EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); -/* 156 */ -EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); -/* 157 */ -EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, const char *optionName, - Tcl_DString *dsPtr); -/* 158 */ -EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); -/* 159 */ -EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, - const char *cmdName, Tcl_CmdInfo *infoPtr); -/* 160 */ -EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, - Tcl_Command command); -/* 161 */ -EXTERN int Tcl_GetErrno(void); -/* 162 */ -EXTERN CONST84_RETURN char * Tcl_GetHostName(void); -/* 163 */ -EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, - Tcl_Interp *slaveInterp); -/* 164 */ -EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); -/* 165 */ -EXTERN const char * Tcl_GetNameOfExecutable(void); -/* 166 */ -EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - const char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 167 */ -EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, - const char *chanID, int forWriting, - int checkUsage, ClientData *filePtr); -#endif /* MACOSX */ -/* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType(const char *path); -/* 169 */ -EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); -/* 170 */ -EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); -/* 171 */ -EXTERN int Tcl_GetServiceMode(void); -/* 172 */ -EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, - const char *slaveName); -/* 173 */ -EXTERN Tcl_Channel Tcl_GetStdChannel(int type); -/* 174 */ -EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); -/* 175 */ -EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, - const char *varName, int flags); -/* 176 */ -EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, - const char *part1, const char *part2, - int flags); -/* 177 */ -EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, - const char *command); -/* 178 */ -EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 179 */ -EXTERN int Tcl_HideCommand(Tcl_Interp *interp, - const char *cmdName, - const char *hiddenCmdToken); -/* 180 */ -EXTERN int Tcl_Init(Tcl_Interp *interp); -/* 181 */ -EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, - int keyType); -/* 182 */ -EXTERN int Tcl_InputBlocked(Tcl_Channel chan); -/* 183 */ -EXTERN int Tcl_InputBuffered(Tcl_Channel chan); -/* 184 */ -EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); -/* 185 */ -EXTERN int Tcl_IsSafe(Tcl_Interp *interp); -/* 186 */ -EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv, - Tcl_DString *resultPtr); -/* 187 */ -EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName, - char *addr, int type); -/* Slot 188 is reserved */ -/* 189 */ -EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); -/* 190 */ -EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); -/* 191 */ -EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); -/* 192 */ -EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv); -/* 193 */ -EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); -/* 194 */ -EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); -/* 195 */ -EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, int flags); -/* 196 */ -EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - int flags); -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, - CONST84 char **argv, int flags); -/* 198 */ -EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, - const char *fileName, const char *modeString, - int permissions); -/* 199 */ -EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, - const char *address, const char *myaddr, - int myport, int async); -/* 200 */ -EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, - const char *host, - Tcl_TcpAcceptProc *acceptProc, - ClientData callbackData); -/* 201 */ -EXTERN void Tcl_Preserve(ClientData data); -/* 202 */ -EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, - char *dst); -/* 203 */ -EXTERN int Tcl_PutEnv(const char *assignment); -/* 204 */ -EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); -/* 205 */ -EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, - Tcl_QueuePosition position); -/* 206 */ -EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs(void); -/* 208 */ -EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, - const char *cmd, int flags); -/* 209 */ -EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, - Tcl_Obj *cmdPtr, int flags); -/* 210 */ -EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -/* 211 */ -EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr); -/* 212 */ -EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, - const char *pattern); -/* 213 */ -EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, - const char *text, const char *start); -/* 214 */ -EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text, - const char *pattern); -/* 215 */ -EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, - CONST84 char **startPtr, - CONST84 char **endPtr); -/* 216 */ -EXTERN void Tcl_Release(ClientData clientData); -/* 217 */ -EXTERN void Tcl_ResetResult(Tcl_Interp *interp); -/* 218 */ -EXTERN int Tcl_ScanElement(const char *src, int *flagPtr); -/* 219 */ -EXTERN int Tcl_ScanCountedElement(const char *src, int length, - int *flagPtr); -/* 220 */ -EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); -/* 221 */ -EXTERN int Tcl_ServiceAll(void); -/* 222 */ -EXTERN int Tcl_ServiceEvent(int flags); -/* 223 */ -EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, - const char *name, Tcl_InterpDeleteProc *proc, - ClientData clientData); -/* 224 */ -EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); -/* 225 */ -EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, - Tcl_Channel chan, const char *optionName, - const char *newValue); -/* 226 */ -EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, - const char *cmdName, - const Tcl_CmdInfo *infoPtr); -/* 227 */ -EXTERN void Tcl_SetErrno(int err); -/* 228 */ -EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); -/* 229 */ -EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr); -/* 230 */ -EXTERN void Tcl_SetPanicProc( - TCL_NORETURN1 Tcl_PanicProc *panicProc); -/* 231 */ -EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); -/* 232 */ -EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, - Tcl_FreeProc *freeProc); -/* 233 */ -EXTERN int Tcl_SetServiceMode(int mode); -/* 234 */ -EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, - Tcl_Obj *errorObjPtr); -/* 235 */ -EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, - Tcl_Obj *resultObjPtr); -/* 236 */ -EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); -/* 237 */ -EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, - const char *varName, const char *newValue, - int flags); -/* 238 */ -EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, - const char *part1, const char *part2, - const char *newValue, int flags); -/* 239 */ -EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); -/* 240 */ -EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); -/* 241 */ -EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); -/* 242 */ -EXTERN int Tcl_SplitList(Tcl_Interp *interp, - const char *listStr, int *argcPtr, - CONST84 char ***argvPtr); -/* 243 */ -EXTERN void Tcl_SplitPath(const char *path, int *argcPtr, - CONST84 char ***argvPtr); -/* 244 */ -EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, - const char *pkgName, - Tcl_PackageInitProc *initProc, - Tcl_PackageInitProc *safeInitProc); -/* 245 */ -EXTERN int Tcl_StringMatch(const char *str, const char *pattern); -/* 246 */ -EXTERN int Tcl_TellOld(Tcl_Channel chan); -/* 247 */ -EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -/* 248 */ -EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1, - const char *part2, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -/* 249 */ -EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, - const char *name, Tcl_DString *bufferPtr); -/* 250 */ -EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str, - int len, int atHead); -/* 251 */ -EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, - const char *varName); -/* 252 */ -EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, - Tcl_Channel chan); -/* 253 */ -EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName, - int flags); -/* 254 */ -EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1, - const char *part2, int flags); -/* 255 */ -EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_VarTraceProc *proc, - ClientData clientData); -/* 256 */ -EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, - const char *part1, const char *part2, - int flags, Tcl_VarTraceProc *proc, - ClientData clientData); -/* 257 */ -EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, - const char *varName); -/* 258 */ -EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName, - const char *varName, const char *localName, - int flags); -/* 259 */ -EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName, - const char *part1, const char *part2, - const char *localName, int flags); -/* 260 */ -EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); -/* 261 */ -EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -/* 262 */ -EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, - const char *part1, const char *part2, - int flags, Tcl_VarTraceProc *procPtr, - ClientData prevClientData); -/* 263 */ -EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen); -/* 264 */ -EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], const char *message); -/* 265 */ -EXTERN int Tcl_DumpActiveMemory(const char *fileName); -/* 266 */ -EXTERN void Tcl_ValidateAllMemory(const char *file, int line); -/* 267 */ -EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, - va_list argList); -/* 268 */ -EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, - va_list argList); -/* 269 */ -EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); -/* 270 */ -EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, - const char *start, CONST84 char **termPtr); -/* 271 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, - const char *name, const char *version, - int exact); -/* 272 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, - const char *name, const char *version, - int exact, void *clientDataPtr); -/* 273 */ -EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, - const char *version); -/* 274 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, - const char *name, const char *version, - int exact); -/* 275 */ -EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, - va_list argList); -/* 276 */ -EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); -/* 277 */ -EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); -/* 278 */ -EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList); -/* 279 */ -EXTERN void Tcl_GetVersion(int *major, int *minor, - int *patchLevel, int *type); -/* 280 */ -EXTERN void Tcl_InitMemory(Tcl_Interp *interp); -/* 281 */ -EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, - const Tcl_ChannelType *typePtr, - ClientData instanceData, int mask, - Tcl_Channel prevChan); -/* 282 */ -EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, - Tcl_Channel chan); -/* 283 */ -EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); -/* 284 */ -EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); -/* Slot 285 is reserved */ -/* 286 */ -EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, - Tcl_Obj *appendObjPtr); -/* 287 */ -EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr); -/* 288 */ -EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 289 */ -EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 290 */ -EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); -/* 291 */ -EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script, - int numBytes, int flags); -/* 292 */ -EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags); -/* 293 */ -EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 294 */ -EXTERN void Tcl_ExitThread(int status); -/* 295 */ -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); -/* 296 */ -EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, - const char *src, int srcLen, - Tcl_DString *dsPtr); -/* 297 */ -EXTERN void Tcl_FinalizeThread(void); -/* 298 */ -EXTERN void Tcl_FinalizeNotifier(ClientData clientData); -/* 299 */ -EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); -/* 300 */ -EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); -/* 301 */ -EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name); -/* 302 */ -EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); -/* 303 */ -EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); -/* 304 */ -EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, - Tcl_Obj *objPtr, const void *tablePtr, - int offset, const char *msg, int flags, - int *indexPtr); -/* 305 */ -EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, - int size); -/* 306 */ -EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1, - const char *part2, int flags); -/* 307 */ -EXTERN ClientData Tcl_InitNotifier(void); -/* 308 */ -EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); -/* 309 */ -EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); -/* 310 */ -EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); -/* 311 */ -EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, - Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); -/* 312 */ -EXTERN int Tcl_NumUtfChars(const char *src, int length); -/* 313 */ -EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, - int charsToRead, int appendFlag); -/* 314 */ -EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -/* 315 */ -EXTERN void Tcl_SaveResult(Tcl_Interp *interp, - Tcl_SavedResult *statePtr); -/* 316 */ -EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, - const char *name); -/* 317 */ -EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1, - const char *part2, Tcl_Obj *newValuePtr, - int flags); -/* 318 */ -EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); -/* 319 */ -EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, - Tcl_Event *evPtr, Tcl_QueuePosition position); -/* 320 */ -EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index); -/* 321 */ -EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); -/* 322 */ -EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); -/* 323 */ -EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); -/* 324 */ -EXTERN int Tcl_UniCharToUtf(int ch, char *buf); -/* 325 */ -EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index); -/* 326 */ -EXTERN int Tcl_UtfCharComplete(const char *src, int length); -/* 327 */ -EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr, - char *dst); -/* 328 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch); -/* 329 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch); -/* 330 */ -EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src); -/* 331 */ -EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start); -/* 332 */ -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); -/* 333 */ -EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, - const char *src, int srcLen, - Tcl_DString *dsPtr); -/* 334 */ -EXTERN int Tcl_UtfToLower(char *src); -/* 335 */ -EXTERN int Tcl_UtfToTitle(char *src); -/* 336 */ -EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr); -/* 337 */ -EXTERN int Tcl_UtfToUpper(char *src); -/* 338 */ -EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src, - int srcLen); -/* 339 */ -EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); -/* 340 */ -EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); -/* 341 */ -EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); -/* 342 */ -EXTERN void Tcl_SetDefaultEncodingDir(const char *path); -/* 343 */ -EXTERN void Tcl_AlertNotifier(ClientData clientData); -/* 344 */ -EXTERN void Tcl_ServiceModeHook(int mode); -/* 345 */ -EXTERN int Tcl_UniCharIsAlnum(int ch); -/* 346 */ -EXTERN int Tcl_UniCharIsAlpha(int ch); -/* 347 */ -EXTERN int Tcl_UniCharIsDigit(int ch); -/* 348 */ -EXTERN int Tcl_UniCharIsLower(int ch); -/* 349 */ -EXTERN int Tcl_UniCharIsSpace(int ch); -/* 350 */ -EXTERN int Tcl_UniCharIsUpper(int ch); -/* 351 */ -EXTERN int Tcl_UniCharIsWordChar(int ch); -/* 352 */ -EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr); -/* 353 */ -EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs, - const Tcl_UniChar *uct, - unsigned long numChars); -/* 354 */ -EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr, - int uniLength, Tcl_DString *dsPtr); -/* 355 */ -EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length, - Tcl_DString *dsPtr); -/* 356 */ -EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, - Tcl_Obj *patObj, int flags); -/* 357 */ -EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -/* 358 */ -EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); -/* 359 */ -EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, - const char *script, const char *command, - int length); -/* 360 */ -EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, - const char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -/* 361 */ -EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, - const char *start, int numBytes, int nested, - Tcl_Parse *parsePtr); -/* 362 */ -EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start, - int numBytes, Tcl_Parse *parsePtr); -/* 363 */ -EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, - const char *start, int numBytes, - Tcl_Parse *parsePtr, int append, - CONST84 char **termPtr); -/* 364 */ -EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, - const char *start, int numBytes, - Tcl_Parse *parsePtr, int append); -/* 365 */ -EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); -/* 366 */ -EXTERN int Tcl_Chdir(const char *dirName); -/* 367 */ -EXTERN int Tcl_Access(const char *path, int mode); -/* 368 */ -EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr); -/* 369 */ -EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, - unsigned long n); -/* 370 */ -EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2, - unsigned long n); -/* 371 */ -EXTERN int Tcl_StringCaseMatch(const char *str, - const char *pattern, int nocase); -/* 372 */ -EXTERN int Tcl_UniCharIsControl(int ch); -/* 373 */ -EXTERN int Tcl_UniCharIsGraph(int ch); -/* 374 */ -EXTERN int Tcl_UniCharIsPrint(int ch); -/* 375 */ -EXTERN int Tcl_UniCharIsPunct(int ch); -/* 376 */ -EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, - Tcl_RegExp regexp, Tcl_Obj *textObj, - int offset, int nmatches, int flags); -/* 377 */ -EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, - Tcl_RegExpInfo *infoPtr); -/* 378 */ -EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode, - int numChars); -/* 379 */ -EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, - const Tcl_UniChar *unicode, int numChars); -/* 380 */ -EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); -/* 381 */ -EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); -/* 382 */ -EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); -/* 383 */ -EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); -/* 384 */ -EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, - const Tcl_UniChar *unicode, int length); -/* 385 */ -EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, - Tcl_Obj *textObj, Tcl_Obj *patternObj); -/* 386 */ -EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); -/* 387 */ -EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); -/* 388 */ -EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); -/* 389 */ -EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, - const char *pattern); -/* 390 */ -EXTERN int Tcl_ProcObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 391 */ -EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); -/* 392 */ -EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); -/* 393 */ -EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc *proc, - ClientData clientData, int stackSize, - int flags); -/* 394 */ -EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, - int bytesToRead); -/* 395 */ -EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src, - int srcLen); -/* 396 */ -EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); -/* 397 */ -EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); -/* 398 */ -EXTERN CONST84_RETURN char * Tcl_ChannelName( - const Tcl_ChannelType *chanTypePtr); -/* 399 */ -EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( - const Tcl_ChannelType *chanTypePtr); -/* 400 */ -EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( - const Tcl_ChannelType *chanTypePtr); -/* 401 */ -EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( - const Tcl_ChannelType *chanTypePtr); -/* 402 */ -EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( - const Tcl_ChannelType *chanTypePtr); -/* 403 */ -EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( - const Tcl_ChannelType *chanTypePtr); -/* 404 */ -EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( - const Tcl_ChannelType *chanTypePtr); -/* 405 */ -EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( - const Tcl_ChannelType *chanTypePtr); -/* 406 */ -EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( - const Tcl_ChannelType *chanTypePtr); -/* 407 */ -EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( - const Tcl_ChannelType *chanTypePtr); -/* 408 */ -EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( - const Tcl_ChannelType *chanTypePtr); -/* 409 */ -EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( - const Tcl_ChannelType *chanTypePtr); -/* 410 */ -EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( - const Tcl_ChannelType *chanTypePtr); -/* 411 */ -EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( - const Tcl_ChannelType *chanTypePtr); -/* 412 */ -EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); -/* 413 */ -EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); -/* 414 */ -EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, - Tcl_Channel channel); -/* 415 */ -EXTERN void Tcl_CutChannel(Tcl_Channel channel); -/* 416 */ -EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); -/* 417 */ -EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); -/* 418 */ -EXTERN int Tcl_IsChannelExisting(const char *channelName); -/* 419 */ -EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs, - const Tcl_UniChar *uct, - unsigned long numChars); -/* 420 */ -EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr, - const Tcl_UniChar *uniPattern, int nocase); -/* 421 */ -EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, - const void *key); -/* 422 */ -EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, - const void *key, int *newPtr); -/* 423 */ -EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, - int keyType, const Tcl_HashKeyType *typePtr); -/* 424 */ -EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); -/* 425 */ -EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_CommandTraceProc *procPtr, - ClientData prevClientData); -/* 426 */ -EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -/* 427 */ -EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, - const char *varName, int flags, - Tcl_CommandTraceProc *proc, - ClientData clientData); -/* 428 */ -EXTERN char * Tcl_AttemptAlloc(unsigned int size); -/* 429 */ -EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, - const char *file, int line); -/* 430 */ -EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); -/* 431 */ -EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, - const char *file, int line); -/* 432 */ -EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); -/* 433 */ -EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); -/* 434 */ -EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, - int *lengthPtr); -/* 435 */ -EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, - const char *name, int *numArgsPtr, - Tcl_ValueType **argTypesPtr, - Tcl_MathProc **procPtr, - ClientData *clientDataPtr); -/* 436 */ -EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, - const char *pattern); -/* 437 */ -EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 438 */ -EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, - Tcl_Channel channel); -/* 439 */ -EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); -/* 440 */ -EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 441 */ -EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -/* 442 */ -EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); -/* 443 */ -EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); -/* 444 */ -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); -/* 445 */ -EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, - const char *pattern, Tcl_GlobTypeData *types); -/* 446 */ -EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkAction); -/* 447 */ -EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -/* 448 */ -EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 449 */ -EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -/* 450 */ -EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -/* 451 */ -EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); -/* 452 */ -EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, - Tcl_Obj *pathPtr, Tcl_Obj *objPtr); -/* 453 */ -EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, - Tcl_Obj **objPtrRef); -/* 454 */ -EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -/* 455 */ -EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); -/* 456 */ -EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, const char *modeString, - int permissions); -/* 457 */ -EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); -/* 458 */ -EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); -/* 459 */ -EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 460 */ -EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); -/* 461 */ -EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -/* 462 */ -EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, - Tcl_Obj *secondPtr); -/* 463 */ -EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 464 */ -EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, - Tcl_Obj *const objv[]); -/* 465 */ -EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, - const Tcl_Filesystem *fsPtr); -/* 466 */ -EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 467 */ -EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); -/* 468 */ -EXTERN Tcl_Obj * Tcl_FSNewNativePath( - const Tcl_Filesystem *fromFilesystem, - ClientData clientData); -/* 469 */ -EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); -/* 470 */ -EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); -/* 471 */ -EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); -/* 472 */ -EXTERN Tcl_Obj * Tcl_FSListVolumes(void); -/* 473 */ -EXTERN int Tcl_FSRegister(ClientData clientData, - const Tcl_Filesystem *fsPtr); -/* 474 */ -EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr); -/* 475 */ -EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr); -/* 476 */ -EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, - Tcl_Obj *pathPtr); -/* 477 */ -EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); -/* 478 */ -EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); -/* 479 */ -EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); -/* 480 */ -EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr); -/* 481 */ -EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, - Tcl_Token *tokenPtr, int count); -/* 482 */ -EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); -/* 483 */ -EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, - int flags, Tcl_CmdObjTraceProc *objProc, - ClientData clientData, - Tcl_CmdObjTraceDeleteProc *delProc); -/* 484 */ -EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, - Tcl_CmdInfo *infoPtr); -/* 485 */ -EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, - const Tcl_CmdInfo *infoPtr); -/* 486 */ -EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, - const char *file, int line); -/* 487 */ -EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_WideInt *widePtr); -/* 488 */ -EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); -/* 489 */ -EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, - Tcl_WideInt wideValue); -/* 490 */ -EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); -/* 491 */ -EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, - int mode); -/* 492 */ -EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); -/* 493 */ -EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( - const Tcl_ChannelType *chanTypePtr); -/* 494 */ -EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); -/* 495 */ -EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); -/* 496 */ -EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); -/* 497 */ -EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int *sizePtr); -/* 498 */ -EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, - Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -/* 499 */ -EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, - int *donePtr); -/* 500 */ -EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); -/* 501 */ -EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); -/* 502 */ -EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, - Tcl_Obj *dictPtr, int keyc, - Tcl_Obj *const *keyv); -/* 503 */ -EXTERN Tcl_Obj * Tcl_NewDictObj(void); -/* 504 */ -EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line); -/* 505 */ -EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, - const char *pkgName, - const Tcl_Config *configuration, - const char *valEncoding); -/* 506 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - const char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -/* 507 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -/* 508 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -/* 509 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int resetListFirst); -/* 510 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int allowOverwrite); -/* 511 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, const char *pattern); -/* 512 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -/* 513 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -/* 514 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 515 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 516 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 517 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -/* 518 */ -EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, - Tcl_Obj *fileName, const char *encodingName); -/* 519 */ -EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc); -/* 520 */ -EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData, - Tcl_LimitHandlerDeleteProc *deleteProc); -/* 521 */ -EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, - ClientData clientData); -/* 522 */ -EXTERN int Tcl_LimitReady(Tcl_Interp *interp); -/* 523 */ -EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); -/* 524 */ -EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); -/* 525 */ -EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, - int commandLimit); -/* 526 */ -EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -/* 527 */ -EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, - int granularity); -/* 528 */ -EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); -/* 529 */ -EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); -/* 530 */ -EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); -/* 531 */ -EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); -/* 532 */ -EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); -/* 533 */ -EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, - Tcl_Time *timeLimitPtr); -/* 534 */ -EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); -/* 535 */ -EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); -/* 536 */ -EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, - Tcl_InterpState state); -/* 537 */ -EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); -/* 538 */ -EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, - Tcl_Obj *options); -/* 539 */ -EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); -/* 540 */ -EXTERN int Tcl_IsEnsemble(Tcl_Command token); -/* 541 */ -EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *namespacePtr, int flags); -/* 542 */ -EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, - Tcl_Obj *cmdNameObj, int flags); -/* 543 */ -EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *subcmdList); -/* 544 */ -EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *mapDict); -/* 545 */ -EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *unknownList); -/* 546 */ -EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int flags); -/* 547 */ -EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **subcmdListPtr); -/* 548 */ -EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **mapDictPtr); -/* 549 */ -EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **unknownListPtr); -/* 550 */ -EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, - Tcl_Command token, int *flagsPtr); -/* 551 */ -EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, - Tcl_Command token, - Tcl_Namespace **namespacePtrPtr); -/* 552 */ -EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, - Tcl_ScaleTimeProc *scaleProc, - ClientData clientData); -/* 553 */ -EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, - Tcl_ScaleTimeProc **scaleProc, - ClientData *clientData); -/* 554 */ -EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( - const Tcl_ChannelType *chanTypePtr); -/* 555 */ -EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); -/* 556 */ -EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file, - int line); -/* 557 */ -EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); -/* 558 */ -EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -/* 559 */ -EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, - Tcl_Obj *obj, mp_int *value); -/* 560 */ -EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, - Tcl_WideInt length); -/* 561 */ -EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( - const Tcl_ChannelType *chanTypePtr); -/* 562 */ -EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj *msg); -/* 563 */ -EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, - Tcl_Obj **msg); -/* 564 */ -EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); -/* 565 */ -EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); -/* 566 */ -EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, - double initval, mp_int *toInit); -/* 567 */ -EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr); -/* 568 */ -EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); -/* 569 */ -EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); -/* 570 */ -EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); -/* 571 */ -EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); -/* 572 */ -EXTERN const char * Tcl_GetEncodingNameFromEnvironment( - Tcl_DString *bufPtr); -/* 573 */ -EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, - const char *name, int objc, - Tcl_Obj *const objv[], void *clientDataPtr); -/* 574 */ -EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 575 */ -EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, - const char *bytes, int length, int limit, - const char *ellipsis); -/* 576 */ -EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format, - int objc, Tcl_Obj *const objv[]); -/* 577 */ -EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, const char *format, - int objc, Tcl_Obj *const objv[]); -/* 578 */ -EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); -/* 579 */ -EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, - const char *format, ...) TCL_FORMAT_PRINTF(2, 3); -/* 580 */ -EXTERN int Tcl_CancelEval(Tcl_Interp *interp, - Tcl_Obj *resultObjPtr, ClientData clientData, - int flags); -/* 581 */ -EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags); -/* 582 */ -EXTERN int Tcl_CreatePipe(Tcl_Interp *interp, - Tcl_Channel *rchan, Tcl_Channel *wchan, - int flags); -/* 583 */ -EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_ObjCmdProc *proc, - Tcl_ObjCmdProc *nreProc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -/* 584 */ -EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 585 */ -EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags); -/* 586 */ -EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd, - int objc, Tcl_Obj *const objv[], int flags); -/* 587 */ -EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp, - Tcl_NRPostProc *postProcPtr, - ClientData data0, ClientData data1, - ClientData data2, ClientData data3); -/* 588 */ -EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp, - Tcl_ObjCmdProc *objProc, - ClientData clientData, int objc, - Tcl_Obj *const objv[]); -/* 589 */ -EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr); -/* 590 */ -EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr); -/* 591 */ -EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr); -/* 592 */ -EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr); -/* 593 */ -EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr); -/* 594 */ -EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr); -/* 595 */ -EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr); -/* 596 */ -EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr); -/* 597 */ -EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat( - const Tcl_StatBuf *statPtr); -/* 598 */ -EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr); -/* 599 */ -EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr); -/* 600 */ -EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr); -/* 601 */ -EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr); -/* 602 */ -EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj *paramList); -/* 603 */ -EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, - Tcl_Command token, Tcl_Obj **paramListPtr); -/* 604 */ -EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp, - const Tcl_ArgvInfo *argTable, int *objcPtr, - Tcl_Obj *const *objv, Tcl_Obj ***remObjv); -/* 605 */ -EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp); -/* 606 */ -EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum); -/* 607 */ -EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp, - int code, Tcl_Interp *targetInterp); -/* 608 */ -EXTERN int Tcl_InterpActive(Tcl_Interp *interp); -/* 609 */ -EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code); -/* 610 */ -EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format, - Tcl_Obj *data, int level, - Tcl_Obj *gzipHeaderDictObj); -/* 611 */ -EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format, - Tcl_Obj *data, int buffersize, - Tcl_Obj *gzipHeaderDictObj); -/* 612 */ -EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc, - const unsigned char *buf, int len); -/* 613 */ -EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler, - const unsigned char *buf, int len); -/* 614 */ -EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode, - int format, int level, Tcl_Obj *dictObj, - Tcl_ZlibStream *zshandle); -/* 615 */ -EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle); -/* 616 */ -EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle); -/* 617 */ -EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle); -/* 618 */ -EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle, - Tcl_Obj *data, int flush); -/* 619 */ -EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle, - Tcl_Obj *data, int count); -/* 620 */ -EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle); -/* 621 */ -EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle); -/* 622 */ -EXTERN void Tcl_SetStartupScript(Tcl_Obj *path, - const char *encoding); -/* 623 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr); -/* 624 */ -EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, - int flags); -/* 625 */ -EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Obj *resultPtr); -/* 626 */ -EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -/* 627 */ -EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - const char *const symv[], int flags, - void *procPtrs, Tcl_LoadHandle *handlePtr); -/* 628 */ -EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp, - Tcl_LoadHandle handle, const char *symbol); -/* 629 */ -EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, - Tcl_LoadHandle handlePtr); -/* 630 */ -EXTERN void Tcl_ZlibStreamSetCompressionDictionary( - Tcl_ZlibStream zhandle, - Tcl_Obj *compressionDictionaryObj); -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -/* 648 */ -EXTERN void TclUnusedStubEntry(void); - -typedef struct { - const struct TclPlatStubs *tclPlatStubs; - const struct TclIntStubs *tclIntStubs; - const struct TclIntPlatStubs *tclIntPlatStubs; -} TclStubHooks; - -typedef struct TclStubs { - int magic; - const TclStubHooks *hooks; - - int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */ - CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */ - TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */ - char * (*tcl_Alloc) (unsigned int size); /* 3 */ - void (*tcl_Free) (char *ptr); /* 4 */ - char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ - char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */ - void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */ - char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* UNIX */ -#if defined(_WIN32) /* WIN */ - void (*reserved9)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ -#endif /* MACOSX */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* UNIX */ -#if defined(_WIN32) /* WIN */ - void (*reserved10)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* MACOSX */ - void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */ - void (*tcl_Sleep) (int ms); /* 12 */ - int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */ - int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ - void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ - void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */ - Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */ - int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */ - void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */ - void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */ - int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */ - Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */ - Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */ - Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */ - Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */ - Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ - void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ - int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */ - int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ - unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */ - int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */ - int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */ - int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */ - int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */ - int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */ - int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */ - CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */ - char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ - void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ - int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */ - int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ - int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ - int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */ - int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */ - int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */ - Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ - Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */ - Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ - Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ - Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */ - Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ - Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ - Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */ - void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ - unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */ - void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */ - void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */ - void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ - void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */ - void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ - void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ - void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */ - void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */ - void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */ - void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ - void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */ - void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */ - void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ - int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ - void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ - int (*tcl_AsyncReady) (void); /* 75 */ - void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ - char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */ - int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */ - void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ - void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ - int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ - int (*tcl_CommandComplete) (const char *cmd); /* 82 */ - char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */ - int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */ - int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */ - int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */ - int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */ - Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */ - void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */ - void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ - Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */ - void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */ - void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */ - Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ - void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */ - Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */ - Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveName, int isSafe); /* 97 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */ - Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */ - void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */ - void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */ - void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ - int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */ - int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */ - void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */ - void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */ - void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */ - void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ - void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ - void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ - void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ - void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */ - void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */ - int (*tcl_DoOneEvent) (int flags); /* 115 */ - void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ - char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */ - char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */ - void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ - void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ - void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ - void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ - void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ - void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */ - void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ - int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ - CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ - CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ - int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */ - int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */ - int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ - void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */ - TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */ - int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */ - int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */ - int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */ - int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */ - int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */ - int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */ - int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */ - int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */ - int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */ - void (*tcl_Finalize) (void); /* 143 */ - void (*tcl_FindExecutable) (const char *argv0); /* 144 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ - int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ - void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ - int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */ - int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ - ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ - Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */ - int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ - int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */ - ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ - int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ - CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ - int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */ - CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ - int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */ - CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */ - int (*tcl_GetErrno) (void); /* 161 */ - CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ - int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */ - Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ - const char * (*tcl_GetNameOfExecutable) (void); /* 165 */ - Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* UNIX */ -#if defined(_WIN32) /* WIN */ - void (*reserved167)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ -#endif /* MACOSX */ - Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */ - int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ - int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ - int (*tcl_GetServiceMode) (void); /* 171 */ - Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName); /* 172 */ - Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ - CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */ - CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */ - CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */ - int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */ - int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ - int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */ - int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ - void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */ - int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ - int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ - int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ - int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ - char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */ - int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */ - void (*reserved188)(void); - Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ - int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ - char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */ - Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */ - void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ - Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */ - Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */ - Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */ - Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */ - Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */ - void (*tcl_Preserve) (ClientData data); /* 201 */ - void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ - int (*tcl_PutEnv) (const char *assignment); /* 203 */ - CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ - void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ - int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ - int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */ - int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ - void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ - void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */ - Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */ - int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */ - int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */ - void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ - void (*tcl_Release) (ClientData clientData); /* 216 */ - void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ - int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */ - int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ - int (*tcl_ServiceAll) (void); /* 221 */ - int (*tcl_ServiceEvent) (int flags); /* 222 */ - void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */ - void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ - int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */ - int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */ - void (*tcl_SetErrno) (int err); /* 227 */ - void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ - void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */ - void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */ - int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ - void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */ - int (*tcl_SetServiceMode) (int mode); /* 233 */ - void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ - void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */ - void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ - CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */ - CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */ - CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ - CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ - void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ - int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */ - void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */ - void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ - int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */ - int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ - int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ - int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */ - char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */ - int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */ - void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */ - int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ - int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */ - int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */ - void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ - void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */ - void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */ - int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */ - int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */ - int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ - ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */ - ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */ - int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */ - void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */ - int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */ - void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */ - void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */ - void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ - char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ - CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */ - CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */ - CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */ - int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */ - CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */ - void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */ - int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ - Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ - TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */ - void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */ - void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ - Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ - int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */ - Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ - void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ - void (*reserved285)(void); - void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ - Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */ - void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */ - void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */ - void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ - int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */ - int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */ - int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ - void (*tcl_ExitThread) (int status); /* 294 */ - 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); /* 295 */ - char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */ - void (*tcl_FinalizeThread) (void); /* 297 */ - void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ - void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ - Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ - Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */ - CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ - void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ - int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */ - void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */ - Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */ - ClientData (*tcl_InitNotifier) (void); /* 307 */ - void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ - void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ - void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ - void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */ - int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */ - int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */ - void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */ - void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ - int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */ - Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ - void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ - void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ - Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */ - Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ - Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ - Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ - int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ - CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */ - int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */ - int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */ - CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */ - CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */ - CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */ - CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */ - 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); /* 332 */ - char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */ - int (*tcl_UtfToLower) (char *src); /* 334 */ - int (*tcl_UtfToTitle) (char *src); /* 335 */ - int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */ - int (*tcl_UtfToUpper) (char *src); /* 337 */ - int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */ - int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ - char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ - CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ - void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */ - void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ - void (*tcl_ServiceModeHook) (int mode); /* 344 */ - int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ - int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ - int (*tcl_UniCharIsDigit) (int ch); /* 347 */ - int (*tcl_UniCharIsLower) (int ch); /* 348 */ - int (*tcl_UniCharIsSpace) (int ch); /* 349 */ - int (*tcl_UniCharIsUpper) (int ch); /* 350 */ - int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ - int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */ - int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */ - char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */ - Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */ - Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */ - Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */ - void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ - void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */ - int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ - int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */ - int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */ - int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */ - int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */ - char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ - int (*tcl_Chdir) (const char *dirName); /* 366 */ - int (*tcl_Access) (const char *path, int mode); /* 367 */ - int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */ - int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */ - int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */ - int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */ - int (*tcl_UniCharIsControl) (int ch); /* 372 */ - int (*tcl_UniCharIsGraph) (int ch); /* 373 */ - int (*tcl_UniCharIsPrint) (int ch); /* 374 */ - int (*tcl_UniCharIsPunct) (int ch); /* 375 */ - int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */ - void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ - Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */ - void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */ - int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ - Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ - Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ - Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */ - void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */ - int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ - void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ - Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ - int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ - int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */ - int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */ - void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ - void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ - int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */ - int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */ - int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */ - Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ - int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ - CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */ - Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */ - Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */ - Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */ - Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */ - Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */ - Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */ - Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */ - Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */ - Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */ - Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */ - Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */ - Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */ - Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */ - int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ - int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ - int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */ - void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ - void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ - void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ - int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */ - int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */ - int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */ - Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */ - Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */ - void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */ - void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ - ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */ - int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ - void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ - char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ - char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */ - char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ - char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */ - int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ - Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ - Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */ - int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */ - Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */ - Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */ - int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ - int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ - int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */ - int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ - int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ - int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ - 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); /* 444 */ - int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */ - Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */ - int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ - int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ - int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ - int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ - int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */ - int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */ - const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */ - int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ - int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ - Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */ - Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ - int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ - int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ - Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ - Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ - int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ - Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */ - Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */ - ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */ - Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ - int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ - Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ - const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ - Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ - Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ - Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ - int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */ - int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */ - ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */ - const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */ - CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */ - Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ - int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ - void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */ - int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ - void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ - Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */ - int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */ - int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */ - Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */ - int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */ - Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ - void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ - Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ - Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ - Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ - Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */ - int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */ - int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ - int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ - int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */ - int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */ - void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ - void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ - int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */ - int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */ - Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ - Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */ - void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */ - int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */ - Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */ - void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */ - void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */ - int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ - int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ - int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ - void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ - void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ - void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */ - int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ - int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */ - void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */ - void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ - int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ - void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ - int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */ - Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */ - int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */ - void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ - int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ - Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ - int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ - Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */ - Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */ - int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */ - int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */ - int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */ - int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ - int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */ - int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */ - int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */ - int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ - int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ - void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */ - void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ - Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */ - Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ - Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */ - void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ - int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */ - int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ - int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ - Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */ - void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */ - void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ - void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ - void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */ - int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */ - Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */ - int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ - int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */ - Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ - int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ - const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */ - int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */ - void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ - void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */ - Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */ - int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */ - Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */ - void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */ - int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */ - int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */ - int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */ - Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */ - int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */ - int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */ - int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */ - void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */ - int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */ - unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */ - unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */ - unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */ - int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */ - int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */ - int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */ - int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */ - Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */ - Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */ - Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */ - Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */ - Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */ - unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */ - int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */ - int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */ - int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */ - int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */ - void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */ - void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */ - int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */ - void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */ - int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */ - int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */ - unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */ - unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */ - int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */ - Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */ - int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */ - int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */ - int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */ - int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */ - int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */ - int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */ - void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */ - Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */ - int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */ - int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */ - int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */ - int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */ - void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */ - int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */ - void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */ - void (*reserved631)(void); - void (*reserved632)(void); - void (*reserved633)(void); - void (*reserved634)(void); - void (*reserved635)(void); - void (*reserved636)(void); - void (*reserved637)(void); - void (*reserved638)(void); - void (*reserved639)(void); - void (*reserved640)(void); - void (*reserved641)(void); - void (*reserved642)(void); - void (*reserved643)(void); - void (*reserved644)(void); - void (*reserved645)(void); - void (*reserved646)(void); - void (*reserved647)(void); - void (*tclUnusedStubEntry) (void); /* 648 */ -} TclStubs; - -extern const TclStubs *tclStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#define Tcl_PkgProvideEx \ - (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ -#define Tcl_PkgRequireEx \ - (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 2 */ -#define Tcl_Alloc \ - (tclStubsPtr->tcl_Alloc) /* 3 */ -#define Tcl_Free \ - (tclStubsPtr->tcl_Free) /* 4 */ -#define Tcl_Realloc \ - (tclStubsPtr->tcl_Realloc) /* 5 */ -#define Tcl_DbCkalloc \ - (tclStubsPtr->tcl_DbCkalloc) /* 6 */ -#define Tcl_DbCkfree \ - (tclStubsPtr->tcl_DbCkfree) /* 7 */ -#define Tcl_DbCkrealloc \ - (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif /* MACOSX */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif /* MACOSX */ -#define Tcl_SetTimer \ - (tclStubsPtr->tcl_SetTimer) /* 11 */ -#define Tcl_Sleep \ - (tclStubsPtr->tcl_Sleep) /* 12 */ -#define Tcl_WaitForEvent \ - (tclStubsPtr->tcl_WaitForEvent) /* 13 */ -#define Tcl_AppendAllObjTypes \ - (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ -#define Tcl_AppendToObj \ - (tclStubsPtr->tcl_AppendToObj) /* 16 */ -#define Tcl_ConcatObj \ - (tclStubsPtr->tcl_ConcatObj) /* 17 */ -#define Tcl_ConvertToType \ - (tclStubsPtr->tcl_ConvertToType) /* 18 */ -#define Tcl_DbDecrRefCount \ - (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ -#define Tcl_DbIncrRefCount \ - (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ -#define Tcl_DbIsShared \ - (tclStubsPtr->tcl_DbIsShared) /* 21 */ -#define Tcl_DbNewBooleanObj \ - (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ -#define Tcl_DbNewByteArrayObj \ - (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ -#define Tcl_DbNewDoubleObj \ - (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ -#define Tcl_DbNewListObj \ - (tclStubsPtr->tcl_DbNewListObj) /* 25 */ -#define Tcl_DbNewLongObj \ - (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ -#define Tcl_DbNewObj \ - (tclStubsPtr->tcl_DbNewObj) /* 27 */ -#define Tcl_DbNewStringObj \ - (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ -#define Tcl_DuplicateObj \ - (tclStubsPtr->tcl_DuplicateObj) /* 29 */ -#define TclFreeObj \ - (tclStubsPtr->tclFreeObj) /* 30 */ -#define Tcl_GetBoolean \ - (tclStubsPtr->tcl_GetBoolean) /* 31 */ -#define Tcl_GetBooleanFromObj \ - (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ -#define Tcl_GetByteArrayFromObj \ - (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ -#define Tcl_GetDouble \ - (tclStubsPtr->tcl_GetDouble) /* 34 */ -#define Tcl_GetDoubleFromObj \ - (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ -#define Tcl_GetIndexFromObj \ - (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ -#define Tcl_GetInt \ - (tclStubsPtr->tcl_GetInt) /* 37 */ -#define Tcl_GetIntFromObj \ - (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ -#define Tcl_GetLongFromObj \ - (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ -#define Tcl_GetObjType \ - (tclStubsPtr->tcl_GetObjType) /* 40 */ -#define Tcl_GetStringFromObj \ - (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ -#define Tcl_InvalidateStringRep \ - (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ -#define Tcl_ListObjAppendList \ - (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ -#define Tcl_ListObjAppendElement \ - (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ -#define Tcl_ListObjGetElements \ - (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ -#define Tcl_ListObjIndex \ - (tclStubsPtr->tcl_ListObjIndex) /* 46 */ -#define Tcl_ListObjLength \ - (tclStubsPtr->tcl_ListObjLength) /* 47 */ -#define Tcl_ListObjReplace \ - (tclStubsPtr->tcl_ListObjReplace) /* 48 */ -#define Tcl_NewBooleanObj \ - (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ -#define Tcl_NewByteArrayObj \ - (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ -#define Tcl_NewDoubleObj \ - (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ -#define Tcl_NewIntObj \ - (tclStubsPtr->tcl_NewIntObj) /* 52 */ -#define Tcl_NewListObj \ - (tclStubsPtr->tcl_NewListObj) /* 53 */ -#define Tcl_NewLongObj \ - (tclStubsPtr->tcl_NewLongObj) /* 54 */ -#define Tcl_NewObj \ - (tclStubsPtr->tcl_NewObj) /* 55 */ -#define Tcl_NewStringObj \ - (tclStubsPtr->tcl_NewStringObj) /* 56 */ -#define Tcl_SetBooleanObj \ - (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ -#define Tcl_SetByteArrayLength \ - (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ -#define Tcl_SetByteArrayObj \ - (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ -#define Tcl_SetDoubleObj \ - (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ -#define Tcl_SetIntObj \ - (tclStubsPtr->tcl_SetIntObj) /* 61 */ -#define Tcl_SetListObj \ - (tclStubsPtr->tcl_SetListObj) /* 62 */ -#define Tcl_SetLongObj \ - (tclStubsPtr->tcl_SetLongObj) /* 63 */ -#define Tcl_SetObjLength \ - (tclStubsPtr->tcl_SetObjLength) /* 64 */ -#define Tcl_SetStringObj \ - (tclStubsPtr->tcl_SetStringObj) /* 65 */ -#define Tcl_AddErrorInfo \ - (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ -#define Tcl_AddObjErrorInfo \ - (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ -#define Tcl_AllowExceptions \ - (tclStubsPtr->tcl_AllowExceptions) /* 68 */ -#define Tcl_AppendElement \ - (tclStubsPtr->tcl_AppendElement) /* 69 */ -#define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 70 */ -#define Tcl_AsyncCreate \ - (tclStubsPtr->tcl_AsyncCreate) /* 71 */ -#define Tcl_AsyncDelete \ - (tclStubsPtr->tcl_AsyncDelete) /* 72 */ -#define Tcl_AsyncInvoke \ - (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ -#define Tcl_AsyncMark \ - (tclStubsPtr->tcl_AsyncMark) /* 74 */ -#define Tcl_AsyncReady \ - (tclStubsPtr->tcl_AsyncReady) /* 75 */ -#define Tcl_BackgroundError \ - (tclStubsPtr->tcl_BackgroundError) /* 76 */ -#define Tcl_Backslash \ - (tclStubsPtr->tcl_Backslash) /* 77 */ -#define Tcl_BadChannelOption \ - (tclStubsPtr->tcl_BadChannelOption) /* 78 */ -#define Tcl_CallWhenDeleted \ - (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ -#define Tcl_CancelIdleCall \ - (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ -#define Tcl_Close \ - (tclStubsPtr->tcl_Close) /* 81 */ -#define Tcl_CommandComplete \ - (tclStubsPtr->tcl_CommandComplete) /* 82 */ -#define Tcl_Concat \ - (tclStubsPtr->tcl_Concat) /* 83 */ -#define Tcl_ConvertElement \ - (tclStubsPtr->tcl_ConvertElement) /* 84 */ -#define Tcl_ConvertCountedElement \ - (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ -#define Tcl_CreateAlias \ - (tclStubsPtr->tcl_CreateAlias) /* 86 */ -#define Tcl_CreateAliasObj \ - (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ -#define Tcl_CreateChannel \ - (tclStubsPtr->tcl_CreateChannel) /* 88 */ -#define Tcl_CreateChannelHandler \ - (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ -#define Tcl_CreateCloseHandler \ - (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ -#define Tcl_CreateCommand \ - (tclStubsPtr->tcl_CreateCommand) /* 91 */ -#define Tcl_CreateEventSource \ - (tclStubsPtr->tcl_CreateEventSource) /* 92 */ -#define Tcl_CreateExitHandler \ - (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ -#define Tcl_CreateInterp \ - (tclStubsPtr->tcl_CreateInterp) /* 94 */ -#define Tcl_CreateMathFunc \ - (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ -#define Tcl_CreateObjCommand \ - (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ -#define Tcl_CreateSlave \ - (tclStubsPtr->tcl_CreateSlave) /* 97 */ -#define Tcl_CreateTimerHandler \ - (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ -#define Tcl_CreateTrace \ - (tclStubsPtr->tcl_CreateTrace) /* 99 */ -#define Tcl_DeleteAssocData \ - (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ -#define Tcl_DeleteChannelHandler \ - (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ -#define Tcl_DeleteCloseHandler \ - (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ -#define Tcl_DeleteCommand \ - (tclStubsPtr->tcl_DeleteCommand) /* 103 */ -#define Tcl_DeleteCommandFromToken \ - (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ -#define Tcl_DeleteEvents \ - (tclStubsPtr->tcl_DeleteEvents) /* 105 */ -#define Tcl_DeleteEventSource \ - (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ -#define Tcl_DeleteExitHandler \ - (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ -#define Tcl_DeleteHashEntry \ - (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ -#define Tcl_DeleteHashTable \ - (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ -#define Tcl_DeleteInterp \ - (tclStubsPtr->tcl_DeleteInterp) /* 110 */ -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#define Tcl_DeleteTimerHandler \ - (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ -#define Tcl_DeleteTrace \ - (tclStubsPtr->tcl_DeleteTrace) /* 113 */ -#define Tcl_DontCallWhenDeleted \ - (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ -#define Tcl_DoOneEvent \ - (tclStubsPtr->tcl_DoOneEvent) /* 115 */ -#define Tcl_DoWhenIdle \ - (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ -#define Tcl_DStringAppend \ - (tclStubsPtr->tcl_DStringAppend) /* 117 */ -#define Tcl_DStringAppendElement \ - (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ -#define Tcl_DStringEndSublist \ - (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ -#define Tcl_DStringFree \ - (tclStubsPtr->tcl_DStringFree) /* 120 */ -#define Tcl_DStringGetResult \ - (tclStubsPtr->tcl_DStringGetResult) /* 121 */ -#define Tcl_DStringInit \ - (tclStubsPtr->tcl_DStringInit) /* 122 */ -#define Tcl_DStringResult \ - (tclStubsPtr->tcl_DStringResult) /* 123 */ -#define Tcl_DStringSetLength \ - (tclStubsPtr->tcl_DStringSetLength) /* 124 */ -#define Tcl_DStringStartSublist \ - (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ -#define Tcl_Eof \ - (tclStubsPtr->tcl_Eof) /* 126 */ -#define Tcl_ErrnoId \ - (tclStubsPtr->tcl_ErrnoId) /* 127 */ -#define Tcl_ErrnoMsg \ - (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ -#define Tcl_Eval \ - (tclStubsPtr->tcl_Eval) /* 129 */ -#define Tcl_EvalFile \ - (tclStubsPtr->tcl_EvalFile) /* 130 */ -#define Tcl_EvalObj \ - (tclStubsPtr->tcl_EvalObj) /* 131 */ -#define Tcl_EventuallyFree \ - (tclStubsPtr->tcl_EventuallyFree) /* 132 */ -#define Tcl_Exit \ - (tclStubsPtr->tcl_Exit) /* 133 */ -#define Tcl_ExposeCommand \ - (tclStubsPtr->tcl_ExposeCommand) /* 134 */ -#define Tcl_ExprBoolean \ - (tclStubsPtr->tcl_ExprBoolean) /* 135 */ -#define Tcl_ExprBooleanObj \ - (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ -#define Tcl_ExprDouble \ - (tclStubsPtr->tcl_ExprDouble) /* 137 */ -#define Tcl_ExprDoubleObj \ - (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ -#define Tcl_ExprLong \ - (tclStubsPtr->tcl_ExprLong) /* 139 */ -#define Tcl_ExprLongObj \ - (tclStubsPtr->tcl_ExprLongObj) /* 140 */ -#define Tcl_ExprObj \ - (tclStubsPtr->tcl_ExprObj) /* 141 */ -#define Tcl_ExprString \ - (tclStubsPtr->tcl_ExprString) /* 142 */ -#define Tcl_Finalize \ - (tclStubsPtr->tcl_Finalize) /* 143 */ -#define Tcl_FindExecutable \ - (tclStubsPtr->tcl_FindExecutable) /* 144 */ -#define Tcl_FirstHashEntry \ - (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ -#define Tcl_Flush \ - (tclStubsPtr->tcl_Flush) /* 146 */ -#define Tcl_FreeResult \ - (tclStubsPtr->tcl_FreeResult) /* 147 */ -#define Tcl_GetAlias \ - (tclStubsPtr->tcl_GetAlias) /* 148 */ -#define Tcl_GetAliasObj \ - (tclStubsPtr->tcl_GetAliasObj) /* 149 */ -#define Tcl_GetAssocData \ - (tclStubsPtr->tcl_GetAssocData) /* 150 */ -#define Tcl_GetChannel \ - (tclStubsPtr->tcl_GetChannel) /* 151 */ -#define Tcl_GetChannelBufferSize \ - (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ -#define Tcl_GetChannelHandle \ - (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ -#define Tcl_GetChannelInstanceData \ - (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ -#define Tcl_GetChannelMode \ - (tclStubsPtr->tcl_GetChannelMode) /* 155 */ -#define Tcl_GetChannelName \ - (tclStubsPtr->tcl_GetChannelName) /* 156 */ -#define Tcl_GetChannelOption \ - (tclStubsPtr->tcl_GetChannelOption) /* 157 */ -#define Tcl_GetChannelType \ - (tclStubsPtr->tcl_GetChannelType) /* 158 */ -#define Tcl_GetCommandInfo \ - (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ -#define Tcl_GetCommandName \ - (tclStubsPtr->tcl_GetCommandName) /* 160 */ -#define Tcl_GetErrno \ - (tclStubsPtr->tcl_GetErrno) /* 161 */ -#define Tcl_GetHostName \ - (tclStubsPtr->tcl_GetHostName) /* 162 */ -#define Tcl_GetInterpPath \ - (tclStubsPtr->tcl_GetInterpPath) /* 163 */ -#define Tcl_GetMaster \ - (tclStubsPtr->tcl_GetMaster) /* 164 */ -#define Tcl_GetNameOfExecutable \ - (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ -#define Tcl_GetObjResult \ - (tclStubsPtr->tcl_GetObjResult) /* 166 */ -#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif /* MACOSX */ -#define Tcl_GetPathType \ - (tclStubsPtr->tcl_GetPathType) /* 168 */ -#define Tcl_Gets \ - (tclStubsPtr->tcl_Gets) /* 169 */ -#define Tcl_GetsObj \ - (tclStubsPtr->tcl_GetsObj) /* 170 */ -#define Tcl_GetServiceMode \ - (tclStubsPtr->tcl_GetServiceMode) /* 171 */ -#define Tcl_GetSlave \ - (tclStubsPtr->tcl_GetSlave) /* 172 */ -#define Tcl_GetStdChannel \ - (tclStubsPtr->tcl_GetStdChannel) /* 173 */ -#define Tcl_GetStringResult \ - (tclStubsPtr->tcl_GetStringResult) /* 174 */ -#define Tcl_GetVar \ - (tclStubsPtr->tcl_GetVar) /* 175 */ -#define Tcl_GetVar2 \ - (tclStubsPtr->tcl_GetVar2) /* 176 */ -#define Tcl_GlobalEval \ - (tclStubsPtr->tcl_GlobalEval) /* 177 */ -#define Tcl_GlobalEvalObj \ - (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ -#define Tcl_HideCommand \ - (tclStubsPtr->tcl_HideCommand) /* 179 */ -#define Tcl_Init \ - (tclStubsPtr->tcl_Init) /* 180 */ -#define Tcl_InitHashTable \ - (tclStubsPtr->tcl_InitHashTable) /* 181 */ -#define Tcl_InputBlocked \ - (tclStubsPtr->tcl_InputBlocked) /* 182 */ -#define Tcl_InputBuffered \ - (tclStubsPtr->tcl_InputBuffered) /* 183 */ -#define Tcl_InterpDeleted \ - (tclStubsPtr->tcl_InterpDeleted) /* 184 */ -#define Tcl_IsSafe \ - (tclStubsPtr->tcl_IsSafe) /* 185 */ -#define Tcl_JoinPath \ - (tclStubsPtr->tcl_JoinPath) /* 186 */ -#define Tcl_LinkVar \ - (tclStubsPtr->tcl_LinkVar) /* 187 */ -/* Slot 188 is reserved */ -#define Tcl_MakeFileChannel \ - (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ -#define Tcl_MakeSafe \ - (tclStubsPtr->tcl_MakeSafe) /* 190 */ -#define Tcl_MakeTcpClientChannel \ - (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ -#define Tcl_Merge \ - (tclStubsPtr->tcl_Merge) /* 192 */ -#define Tcl_NextHashEntry \ - (tclStubsPtr->tcl_NextHashEntry) /* 193 */ -#define Tcl_NotifyChannel \ - (tclStubsPtr->tcl_NotifyChannel) /* 194 */ -#define Tcl_ObjGetVar2 \ - (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ -#define Tcl_ObjSetVar2 \ - (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#define Tcl_OpenFileChannel \ - (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ -#define Tcl_OpenTcpClient \ - (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ -#define Tcl_OpenTcpServer \ - (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ -#define Tcl_Preserve \ - (tclStubsPtr->tcl_Preserve) /* 201 */ -#define Tcl_PrintDouble \ - (tclStubsPtr->tcl_PrintDouble) /* 202 */ -#define Tcl_PutEnv \ - (tclStubsPtr->tcl_PutEnv) /* 203 */ -#define Tcl_PosixError \ - (tclStubsPtr->tcl_PosixError) /* 204 */ -#define Tcl_QueueEvent \ - (tclStubsPtr->tcl_QueueEvent) /* 205 */ -#define Tcl_Read \ - (tclStubsPtr->tcl_Read) /* 206 */ -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#define Tcl_RecordAndEval \ - (tclStubsPtr->tcl_RecordAndEval) /* 208 */ -#define Tcl_RecordAndEvalObj \ - (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ -#define Tcl_RegisterChannel \ - (tclStubsPtr->tcl_RegisterChannel) /* 210 */ -#define Tcl_RegisterObjType \ - (tclStubsPtr->tcl_RegisterObjType) /* 211 */ -#define Tcl_RegExpCompile \ - (tclStubsPtr->tcl_RegExpCompile) /* 212 */ -#define Tcl_RegExpExec \ - (tclStubsPtr->tcl_RegExpExec) /* 213 */ -#define Tcl_RegExpMatch \ - (tclStubsPtr->tcl_RegExpMatch) /* 214 */ -#define Tcl_RegExpRange \ - (tclStubsPtr->tcl_RegExpRange) /* 215 */ -#define Tcl_Release \ - (tclStubsPtr->tcl_Release) /* 216 */ -#define Tcl_ResetResult \ - (tclStubsPtr->tcl_ResetResult) /* 217 */ -#define Tcl_ScanElement \ - (tclStubsPtr->tcl_ScanElement) /* 218 */ -#define Tcl_ScanCountedElement \ - (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ -#define Tcl_SeekOld \ - (tclStubsPtr->tcl_SeekOld) /* 220 */ -#define Tcl_ServiceAll \ - (tclStubsPtr->tcl_ServiceAll) /* 221 */ -#define Tcl_ServiceEvent \ - (tclStubsPtr->tcl_ServiceEvent) /* 222 */ -#define Tcl_SetAssocData \ - (tclStubsPtr->tcl_SetAssocData) /* 223 */ -#define Tcl_SetChannelBufferSize \ - (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ -#define Tcl_SetChannelOption \ - (tclStubsPtr->tcl_SetChannelOption) /* 225 */ -#define Tcl_SetCommandInfo \ - (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ -#define Tcl_SetErrno \ - (tclStubsPtr->tcl_SetErrno) /* 227 */ -#define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 228 */ -#define Tcl_SetMaxBlockTime \ - (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ -#define Tcl_SetPanicProc \ - (tclStubsPtr->tcl_SetPanicProc) /* 230 */ -#define Tcl_SetRecursionLimit \ - (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ -#define Tcl_SetResult \ - (tclStubsPtr->tcl_SetResult) /* 232 */ -#define Tcl_SetServiceMode \ - (tclStubsPtr->tcl_SetServiceMode) /* 233 */ -#define Tcl_SetObjErrorCode \ - (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ -#define Tcl_SetObjResult \ - (tclStubsPtr->tcl_SetObjResult) /* 235 */ -#define Tcl_SetStdChannel \ - (tclStubsPtr->tcl_SetStdChannel) /* 236 */ -#define Tcl_SetVar \ - (tclStubsPtr->tcl_SetVar) /* 237 */ -#define Tcl_SetVar2 \ - (tclStubsPtr->tcl_SetVar2) /* 238 */ -#define Tcl_SignalId \ - (tclStubsPtr->tcl_SignalId) /* 239 */ -#define Tcl_SignalMsg \ - (tclStubsPtr->tcl_SignalMsg) /* 240 */ -#define Tcl_SourceRCFile \ - (tclStubsPtr->tcl_SourceRCFile) /* 241 */ -#define Tcl_SplitList \ - (tclStubsPtr->tcl_SplitList) /* 242 */ -#define Tcl_SplitPath \ - (tclStubsPtr->tcl_SplitPath) /* 243 */ -#define Tcl_StaticPackage \ - (tclStubsPtr->tcl_StaticPackage) /* 244 */ -#define Tcl_StringMatch \ - (tclStubsPtr->tcl_StringMatch) /* 245 */ -#define Tcl_TellOld \ - (tclStubsPtr->tcl_TellOld) /* 246 */ -#define Tcl_TraceVar \ - (tclStubsPtr->tcl_TraceVar) /* 247 */ -#define Tcl_TraceVar2 \ - (tclStubsPtr->tcl_TraceVar2) /* 248 */ -#define Tcl_TranslateFileName \ - (tclStubsPtr->tcl_TranslateFileName) /* 249 */ -#define Tcl_Ungets \ - (tclStubsPtr->tcl_Ungets) /* 250 */ -#define Tcl_UnlinkVar \ - (tclStubsPtr->tcl_UnlinkVar) /* 251 */ -#define Tcl_UnregisterChannel \ - (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ -#define Tcl_UnsetVar \ - (tclStubsPtr->tcl_UnsetVar) /* 253 */ -#define Tcl_UnsetVar2 \ - (tclStubsPtr->tcl_UnsetVar2) /* 254 */ -#define Tcl_UntraceVar \ - (tclStubsPtr->tcl_UntraceVar) /* 255 */ -#define Tcl_UntraceVar2 \ - (tclStubsPtr->tcl_UntraceVar2) /* 256 */ -#define Tcl_UpdateLinkedVar \ - (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ -#define Tcl_UpVar \ - (tclStubsPtr->tcl_UpVar) /* 258 */ -#define Tcl_UpVar2 \ - (tclStubsPtr->tcl_UpVar2) /* 259 */ -#define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 260 */ -#define Tcl_VarTraceInfo \ - (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ -#define Tcl_VarTraceInfo2 \ - (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ -#define Tcl_Write \ - (tclStubsPtr->tcl_Write) /* 263 */ -#define Tcl_WrongNumArgs \ - (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ -#define Tcl_DumpActiveMemory \ - (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ -#define Tcl_ValidateAllMemory \ - (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ -#define Tcl_AppendResultVA \ - (tclStubsPtr->tcl_AppendResultVA) /* 267 */ -#define Tcl_AppendStringsToObjVA \ - (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ -#define Tcl_HashStats \ - (tclStubsPtr->tcl_HashStats) /* 269 */ -#define Tcl_ParseVar \ - (tclStubsPtr->tcl_ParseVar) /* 270 */ -#define Tcl_PkgPresent \ - (tclStubsPtr->tcl_PkgPresent) /* 271 */ -#define Tcl_PkgPresentEx \ - (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ -#define Tcl_PkgProvide \ - (tclStubsPtr->tcl_PkgProvide) /* 273 */ -#define Tcl_PkgRequire \ - (tclStubsPtr->tcl_PkgRequire) /* 274 */ -#define Tcl_SetErrorCodeVA \ - (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ -#define Tcl_VarEvalVA \ - (tclStubsPtr->tcl_VarEvalVA) /* 276 */ -#define Tcl_WaitPid \ - (tclStubsPtr->tcl_WaitPid) /* 277 */ -#define Tcl_PanicVA \ - (tclStubsPtr->tcl_PanicVA) /* 278 */ -#define Tcl_GetVersion \ - (tclStubsPtr->tcl_GetVersion) /* 279 */ -#define Tcl_InitMemory \ - (tclStubsPtr->tcl_InitMemory) /* 280 */ -#define Tcl_StackChannel \ - (tclStubsPtr->tcl_StackChannel) /* 281 */ -#define Tcl_UnstackChannel \ - (tclStubsPtr->tcl_UnstackChannel) /* 282 */ -#define Tcl_GetStackedChannel \ - (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ -#define Tcl_SetMainLoop \ - (tclStubsPtr->tcl_SetMainLoop) /* 284 */ -/* Slot 285 is reserved */ -#define Tcl_AppendObjToObj \ - (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ -#define Tcl_CreateEncoding \ - (tclStubsPtr->tcl_CreateEncoding) /* 287 */ -#define Tcl_CreateThreadExitHandler \ - (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ -#define Tcl_DeleteThreadExitHandler \ - (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ -#define Tcl_DiscardResult \ - (tclStubsPtr->tcl_DiscardResult) /* 290 */ -#define Tcl_EvalEx \ - (tclStubsPtr->tcl_EvalEx) /* 291 */ -#define Tcl_EvalObjv \ - (tclStubsPtr->tcl_EvalObjv) /* 292 */ -#define Tcl_EvalObjEx \ - (tclStubsPtr->tcl_EvalObjEx) /* 293 */ -#define Tcl_ExitThread \ - (tclStubsPtr->tcl_ExitThread) /* 294 */ -#define Tcl_ExternalToUtf \ - (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ -#define Tcl_ExternalToUtfDString \ - (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ -#define Tcl_FinalizeThread \ - (tclStubsPtr->tcl_FinalizeThread) /* 297 */ -#define Tcl_FinalizeNotifier \ - (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ -#define Tcl_FreeEncoding \ - (tclStubsPtr->tcl_FreeEncoding) /* 299 */ -#define Tcl_GetCurrentThread \ - (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ -#define Tcl_GetEncoding \ - (tclStubsPtr->tcl_GetEncoding) /* 301 */ -#define Tcl_GetEncodingName \ - (tclStubsPtr->tcl_GetEncodingName) /* 302 */ -#define Tcl_GetEncodingNames \ - (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ -#define Tcl_GetIndexFromObjStruct \ - (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ -#define Tcl_GetThreadData \ - (tclStubsPtr->tcl_GetThreadData) /* 305 */ -#define Tcl_GetVar2Ex \ - (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ -#define Tcl_InitNotifier \ - (tclStubsPtr->tcl_InitNotifier) /* 307 */ -#define Tcl_MutexLock \ - (tclStubsPtr->tcl_MutexLock) /* 308 */ -#define Tcl_MutexUnlock \ - (tclStubsPtr->tcl_MutexUnlock) /* 309 */ -#define Tcl_ConditionNotify \ - (tclStubsPtr->tcl_ConditionNotify) /* 310 */ -#define Tcl_ConditionWait \ - (tclStubsPtr->tcl_ConditionWait) /* 311 */ -#define Tcl_NumUtfChars \ - (tclStubsPtr->tcl_NumUtfChars) /* 312 */ -#define Tcl_ReadChars \ - (tclStubsPtr->tcl_ReadChars) /* 313 */ -#define Tcl_RestoreResult \ - (tclStubsPtr->tcl_RestoreResult) /* 314 */ -#define Tcl_SaveResult \ - (tclStubsPtr->tcl_SaveResult) /* 315 */ -#define Tcl_SetSystemEncoding \ - (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ -#define Tcl_SetVar2Ex \ - (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ -#define Tcl_ThreadAlert \ - (tclStubsPtr->tcl_ThreadAlert) /* 318 */ -#define Tcl_ThreadQueueEvent \ - (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ -#define Tcl_UniCharAtIndex \ - (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ -#define Tcl_UniCharToLower \ - (tclStubsPtr->tcl_UniCharToLower) /* 321 */ -#define Tcl_UniCharToTitle \ - (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ -#define Tcl_UniCharToUpper \ - (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ -#define Tcl_UniCharToUtf \ - (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ -#define Tcl_UtfAtIndex \ - (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ -#define Tcl_UtfCharComplete \ - (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ -#define Tcl_UtfBackslash \ - (tclStubsPtr->tcl_UtfBackslash) /* 327 */ -#define Tcl_UtfFindFirst \ - (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ -#define Tcl_UtfFindLast \ - (tclStubsPtr->tcl_UtfFindLast) /* 329 */ -#define Tcl_UtfNext \ - (tclStubsPtr->tcl_UtfNext) /* 330 */ -#define Tcl_UtfPrev \ - (tclStubsPtr->tcl_UtfPrev) /* 331 */ -#define Tcl_UtfToExternal \ - (tclStubsPtr->tcl_UtfToExternal) /* 332 */ -#define Tcl_UtfToExternalDString \ - (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ -#define Tcl_UtfToLower \ - (tclStubsPtr->tcl_UtfToLower) /* 334 */ -#define Tcl_UtfToTitle \ - (tclStubsPtr->tcl_UtfToTitle) /* 335 */ -#define Tcl_UtfToUniChar \ - (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ -#define Tcl_UtfToUpper \ - (tclStubsPtr->tcl_UtfToUpper) /* 337 */ -#define Tcl_WriteChars \ - (tclStubsPtr->tcl_WriteChars) /* 338 */ -#define Tcl_WriteObj \ - (tclStubsPtr->tcl_WriteObj) /* 339 */ -#define Tcl_GetString \ - (tclStubsPtr->tcl_GetString) /* 340 */ -#define Tcl_GetDefaultEncodingDir \ - (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ -#define Tcl_SetDefaultEncodingDir \ - (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ -#define Tcl_AlertNotifier \ - (tclStubsPtr->tcl_AlertNotifier) /* 343 */ -#define Tcl_ServiceModeHook \ - (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ -#define Tcl_UniCharIsAlnum \ - (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ -#define Tcl_UniCharIsAlpha \ - (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ -#define Tcl_UniCharIsDigit \ - (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ -#define Tcl_UniCharIsLower \ - (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ -#define Tcl_UniCharIsSpace \ - (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ -#define Tcl_UniCharIsUpper \ - (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ -#define Tcl_UniCharIsWordChar \ - (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ -#define Tcl_UniCharLen \ - (tclStubsPtr->tcl_UniCharLen) /* 352 */ -#define Tcl_UniCharNcmp \ - (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ -#define Tcl_UniCharToUtfDString \ - (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ -#define Tcl_UtfToUniCharDString \ - (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ -#define Tcl_GetRegExpFromObj \ - (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ -#define Tcl_EvalTokens \ - (tclStubsPtr->tcl_EvalTokens) /* 357 */ -#define Tcl_FreeParse \ - (tclStubsPtr->tcl_FreeParse) /* 358 */ -#define Tcl_LogCommandInfo \ - (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ -#define Tcl_ParseBraces \ - (tclStubsPtr->tcl_ParseBraces) /* 360 */ -#define Tcl_ParseCommand \ - (tclStubsPtr->tcl_ParseCommand) /* 361 */ -#define Tcl_ParseExpr \ - (tclStubsPtr->tcl_ParseExpr) /* 362 */ -#define Tcl_ParseQuotedString \ - (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ -#define Tcl_ParseVarName \ - (tclStubsPtr->tcl_ParseVarName) /* 364 */ -#define Tcl_GetCwd \ - (tclStubsPtr->tcl_GetCwd) /* 365 */ -#define Tcl_Chdir \ - (tclStubsPtr->tcl_Chdir) /* 366 */ -#define Tcl_Access \ - (tclStubsPtr->tcl_Access) /* 367 */ -#define Tcl_Stat \ - (tclStubsPtr->tcl_Stat) /* 368 */ -#define Tcl_UtfNcmp \ - (tclStubsPtr->tcl_UtfNcmp) /* 369 */ -#define Tcl_UtfNcasecmp \ - (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ -#define Tcl_StringCaseMatch \ - (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ -#define Tcl_UniCharIsControl \ - (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ -#define Tcl_UniCharIsGraph \ - (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ -#define Tcl_UniCharIsPrint \ - (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ -#define Tcl_UniCharIsPunct \ - (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ -#define Tcl_RegExpExecObj \ - (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ -#define Tcl_RegExpGetInfo \ - (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ -#define Tcl_NewUnicodeObj \ - (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ -#define Tcl_SetUnicodeObj \ - (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ -#define Tcl_GetCharLength \ - (tclStubsPtr->tcl_GetCharLength) /* 380 */ -#define Tcl_GetUniChar \ - (tclStubsPtr->tcl_GetUniChar) /* 381 */ -#define Tcl_GetUnicode \ - (tclStubsPtr->tcl_GetUnicode) /* 382 */ -#define Tcl_GetRange \ - (tclStubsPtr->tcl_GetRange) /* 383 */ -#define Tcl_AppendUnicodeToObj \ - (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ -#define Tcl_RegExpMatchObj \ - (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ -#define Tcl_SetNotifier \ - (tclStubsPtr->tcl_SetNotifier) /* 386 */ -#define Tcl_GetAllocMutex \ - (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ -#define Tcl_GetChannelNames \ - (tclStubsPtr->tcl_GetChannelNames) /* 388 */ -#define Tcl_GetChannelNamesEx \ - (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ -#define Tcl_ProcObjCmd \ - (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ -#define Tcl_ConditionFinalize \ - (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ -#define Tcl_MutexFinalize \ - (tclStubsPtr->tcl_MutexFinalize) /* 392 */ -#define Tcl_CreateThread \ - (tclStubsPtr->tcl_CreateThread) /* 393 */ -#define Tcl_ReadRaw \ - (tclStubsPtr->tcl_ReadRaw) /* 394 */ -#define Tcl_WriteRaw \ - (tclStubsPtr->tcl_WriteRaw) /* 395 */ -#define Tcl_GetTopChannel \ - (tclStubsPtr->tcl_GetTopChannel) /* 396 */ -#define Tcl_ChannelBuffered \ - (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ -#define Tcl_ChannelName \ - (tclStubsPtr->tcl_ChannelName) /* 398 */ -#define Tcl_ChannelVersion \ - (tclStubsPtr->tcl_ChannelVersion) /* 399 */ -#define Tcl_ChannelBlockModeProc \ - (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ -#define Tcl_ChannelCloseProc \ - (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ -#define Tcl_ChannelClose2Proc \ - (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ -#define Tcl_ChannelInputProc \ - (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ -#define Tcl_ChannelOutputProc \ - (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ -#define Tcl_ChannelSeekProc \ - (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ -#define Tcl_ChannelSetOptionProc \ - (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ -#define Tcl_ChannelGetOptionProc \ - (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ -#define Tcl_ChannelWatchProc \ - (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ -#define Tcl_ChannelGetHandleProc \ - (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ -#define Tcl_ChannelFlushProc \ - (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ -#define Tcl_ChannelHandlerProc \ - (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ -#define Tcl_JoinThread \ - (tclStubsPtr->tcl_JoinThread) /* 412 */ -#define Tcl_IsChannelShared \ - (tclStubsPtr->tcl_IsChannelShared) /* 413 */ -#define Tcl_IsChannelRegistered \ - (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ -#define Tcl_CutChannel \ - (tclStubsPtr->tcl_CutChannel) /* 415 */ -#define Tcl_SpliceChannel \ - (tclStubsPtr->tcl_SpliceChannel) /* 416 */ -#define Tcl_ClearChannelHandlers \ - (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ -#define Tcl_IsChannelExisting \ - (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ -#define Tcl_UniCharNcasecmp \ - (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ -#define Tcl_UniCharCaseMatch \ - (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ -#define Tcl_FindHashEntry \ - (tclStubsPtr->tcl_FindHashEntry) /* 421 */ -#define Tcl_CreateHashEntry \ - (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ -#define Tcl_InitCustomHashTable \ - (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ -#define Tcl_InitObjHashTable \ - (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ -#define Tcl_CommandTraceInfo \ - (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ -#define Tcl_TraceCommand \ - (tclStubsPtr->tcl_TraceCommand) /* 426 */ -#define Tcl_UntraceCommand \ - (tclStubsPtr->tcl_UntraceCommand) /* 427 */ -#define Tcl_AttemptAlloc \ - (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ -#define Tcl_AttemptDbCkalloc \ - (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ -#define Tcl_AttemptRealloc \ - (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ -#define Tcl_AttemptDbCkrealloc \ - (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ -#define Tcl_AttemptSetObjLength \ - (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ -#define Tcl_GetChannelThread \ - (tclStubsPtr->tcl_GetChannelThread) /* 433 */ -#define Tcl_GetUnicodeFromObj \ - (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ -#define Tcl_GetMathFuncInfo \ - (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ -#define Tcl_ListMathFuncs \ - (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ -#define Tcl_SubstObj \ - (tclStubsPtr->tcl_SubstObj) /* 437 */ -#define Tcl_DetachChannel \ - (tclStubsPtr->tcl_DetachChannel) /* 438 */ -#define Tcl_IsStandardChannel \ - (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ -#define Tcl_FSCopyFile \ - (tclStubsPtr->tcl_FSCopyFile) /* 440 */ -#define Tcl_FSCopyDirectory \ - (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ -#define Tcl_FSCreateDirectory \ - (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ -#define Tcl_FSDeleteFile \ - (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ -#define Tcl_FSLoadFile \ - (tclStubsPtr->tcl_FSLoadFile) /* 444 */ -#define Tcl_FSMatchInDirectory \ - (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ -#define Tcl_FSLink \ - (tclStubsPtr->tcl_FSLink) /* 446 */ -#define Tcl_FSRemoveDirectory \ - (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ -#define Tcl_FSRenameFile \ - (tclStubsPtr->tcl_FSRenameFile) /* 448 */ -#define Tcl_FSLstat \ - (tclStubsPtr->tcl_FSLstat) /* 449 */ -#define Tcl_FSUtime \ - (tclStubsPtr->tcl_FSUtime) /* 450 */ -#define Tcl_FSFileAttrsGet \ - (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ -#define Tcl_FSFileAttrsSet \ - (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ -#define Tcl_FSFileAttrStrings \ - (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ -#define Tcl_FSStat \ - (tclStubsPtr->tcl_FSStat) /* 454 */ -#define Tcl_FSAccess \ - (tclStubsPtr->tcl_FSAccess) /* 455 */ -#define Tcl_FSOpenFileChannel \ - (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ -#define Tcl_FSGetCwd \ - (tclStubsPtr->tcl_FSGetCwd) /* 457 */ -#define Tcl_FSChdir \ - (tclStubsPtr->tcl_FSChdir) /* 458 */ -#define Tcl_FSConvertToPathType \ - (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ -#define Tcl_FSJoinPath \ - (tclStubsPtr->tcl_FSJoinPath) /* 460 */ -#define Tcl_FSSplitPath \ - (tclStubsPtr->tcl_FSSplitPath) /* 461 */ -#define Tcl_FSEqualPaths \ - (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ -#define Tcl_FSGetNormalizedPath \ - (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ -#define Tcl_FSJoinToPath \ - (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ -#define Tcl_FSGetInternalRep \ - (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ -#define Tcl_FSGetTranslatedPath \ - (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ -#define Tcl_FSEvalFile \ - (tclStubsPtr->tcl_FSEvalFile) /* 467 */ -#define Tcl_FSNewNativePath \ - (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ -#define Tcl_FSFileSystemInfo \ - (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ -#define Tcl_FSPathSeparator \ - (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ -#define Tcl_FSListVolumes \ - (tclStubsPtr->tcl_FSListVolumes) /* 472 */ -#define Tcl_FSRegister \ - (tclStubsPtr->tcl_FSRegister) /* 473 */ -#define Tcl_FSUnregister \ - (tclStubsPtr->tcl_FSUnregister) /* 474 */ -#define Tcl_FSData \ - (tclStubsPtr->tcl_FSData) /* 475 */ -#define Tcl_FSGetTranslatedStringPath \ - (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ -#define Tcl_FSGetFileSystemForPath \ - (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ -#define Tcl_FSGetPathType \ - (tclStubsPtr->tcl_FSGetPathType) /* 478 */ -#define Tcl_OutputBuffered \ - (tclStubsPtr->tcl_OutputBuffered) /* 479 */ -#define Tcl_FSMountsChanged \ - (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ -#define Tcl_EvalTokensStandard \ - (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ -#define Tcl_GetTime \ - (tclStubsPtr->tcl_GetTime) /* 482 */ -#define Tcl_CreateObjTrace \ - (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ -#define Tcl_GetCommandInfoFromToken \ - (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ -#define Tcl_SetCommandInfoFromToken \ - (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ -#define Tcl_DbNewWideIntObj \ - (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ -#define Tcl_GetWideIntFromObj \ - (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ -#define Tcl_NewWideIntObj \ - (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ -#define Tcl_SetWideIntObj \ - (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ -#define Tcl_AllocStatBuf \ - (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ -#define Tcl_Seek \ - (tclStubsPtr->tcl_Seek) /* 491 */ -#define Tcl_Tell \ - (tclStubsPtr->tcl_Tell) /* 492 */ -#define Tcl_ChannelWideSeekProc \ - (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ -#define Tcl_DictObjPut \ - (tclStubsPtr->tcl_DictObjPut) /* 494 */ -#define Tcl_DictObjGet \ - (tclStubsPtr->tcl_DictObjGet) /* 495 */ -#define Tcl_DictObjRemove \ - (tclStubsPtr->tcl_DictObjRemove) /* 496 */ -#define Tcl_DictObjSize \ - (tclStubsPtr->tcl_DictObjSize) /* 497 */ -#define Tcl_DictObjFirst \ - (tclStubsPtr->tcl_DictObjFirst) /* 498 */ -#define Tcl_DictObjNext \ - (tclStubsPtr->tcl_DictObjNext) /* 499 */ -#define Tcl_DictObjDone \ - (tclStubsPtr->tcl_DictObjDone) /* 500 */ -#define Tcl_DictObjPutKeyList \ - (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ -#define Tcl_DictObjRemoveKeyList \ - (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ -#define Tcl_NewDictObj \ - (tclStubsPtr->tcl_NewDictObj) /* 503 */ -#define Tcl_DbNewDictObj \ - (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ -#define Tcl_RegisterConfig \ - (tclStubsPtr->tcl_RegisterConfig) /* 505 */ -#define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -#define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -#define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -#define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -#define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -#define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -#define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -#define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -#define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -#define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -#define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -#define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#define Tcl_FSEvalFileEx \ - (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ -#define Tcl_SetExitProc \ - (tclStubsPtr->tcl_SetExitProc) /* 519 */ -#define Tcl_LimitAddHandler \ - (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ -#define Tcl_LimitRemoveHandler \ - (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ -#define Tcl_LimitReady \ - (tclStubsPtr->tcl_LimitReady) /* 522 */ -#define Tcl_LimitCheck \ - (tclStubsPtr->tcl_LimitCheck) /* 523 */ -#define Tcl_LimitExceeded \ - (tclStubsPtr->tcl_LimitExceeded) /* 524 */ -#define Tcl_LimitSetCommands \ - (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ -#define Tcl_LimitSetTime \ - (tclStubsPtr->tcl_LimitSetTime) /* 526 */ -#define Tcl_LimitSetGranularity \ - (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ -#define Tcl_LimitTypeEnabled \ - (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ -#define Tcl_LimitTypeExceeded \ - (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ -#define Tcl_LimitTypeSet \ - (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ -#define Tcl_LimitTypeReset \ - (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ -#define Tcl_LimitGetCommands \ - (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ -#define Tcl_LimitGetTime \ - (tclStubsPtr->tcl_LimitGetTime) /* 533 */ -#define Tcl_LimitGetGranularity \ - (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ -#define Tcl_SaveInterpState \ - (tclStubsPtr->tcl_SaveInterpState) /* 535 */ -#define Tcl_RestoreInterpState \ - (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ -#define Tcl_DiscardInterpState \ - (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ -#define Tcl_SetReturnOptions \ - (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ -#define Tcl_GetReturnOptions \ - (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ -#define Tcl_IsEnsemble \ - (tclStubsPtr->tcl_IsEnsemble) /* 540 */ -#define Tcl_CreateEnsemble \ - (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ -#define Tcl_FindEnsemble \ - (tclStubsPtr->tcl_FindEnsemble) /* 542 */ -#define Tcl_SetEnsembleSubcommandList \ - (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ -#define Tcl_SetEnsembleMappingDict \ - (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ -#define Tcl_SetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ -#define Tcl_SetEnsembleFlags \ - (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ -#define Tcl_GetEnsembleSubcommandList \ - (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ -#define Tcl_GetEnsembleMappingDict \ - (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ -#define Tcl_GetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ -#define Tcl_GetEnsembleFlags \ - (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ -#define Tcl_GetEnsembleNamespace \ - (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ -#define Tcl_SetTimeProc \ - (tclStubsPtr->tcl_SetTimeProc) /* 552 */ -#define Tcl_QueryTimeProc \ - (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ -#define Tcl_ChannelThreadActionProc \ - (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ -#define Tcl_NewBignumObj \ - (tclStubsPtr->tcl_NewBignumObj) /* 555 */ -#define Tcl_DbNewBignumObj \ - (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ -#define Tcl_SetBignumObj \ - (tclStubsPtr->tcl_SetBignumObj) /* 557 */ -#define Tcl_GetBignumFromObj \ - (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ -#define Tcl_TakeBignumFromObj \ - (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ -#define Tcl_TruncateChannel \ - (tclStubsPtr->tcl_TruncateChannel) /* 560 */ -#define Tcl_ChannelTruncateProc \ - (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ -#define Tcl_SetChannelErrorInterp \ - (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ -#define Tcl_GetChannelErrorInterp \ - (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ -#define Tcl_SetChannelError \ - (tclStubsPtr->tcl_SetChannelError) /* 564 */ -#define Tcl_GetChannelError \ - (tclStubsPtr->tcl_GetChannelError) /* 565 */ -#define Tcl_InitBignumFromDouble \ - (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ -#define Tcl_GetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ -#define Tcl_SetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ -#define Tcl_GetEncodingFromObj \ - (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ -#define Tcl_GetEncodingSearchPath \ - (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ -#define Tcl_SetEncodingSearchPath \ - (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ -#define Tcl_GetEncodingNameFromEnvironment \ - (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ -#define Tcl_PkgRequireProc \ - (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ -#define Tcl_AppendObjToErrorInfo \ - (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ -#define Tcl_AppendLimitedToObj \ - (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ -#define Tcl_Format \ - (tclStubsPtr->tcl_Format) /* 576 */ -#define Tcl_AppendFormatToObj \ - (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ -#define Tcl_ObjPrintf \ - (tclStubsPtr->tcl_ObjPrintf) /* 578 */ -#define Tcl_AppendPrintfToObj \ - (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ -#define Tcl_CancelEval \ - (tclStubsPtr->tcl_CancelEval) /* 580 */ -#define Tcl_Canceled \ - (tclStubsPtr->tcl_Canceled) /* 581 */ -#define Tcl_CreatePipe \ - (tclStubsPtr->tcl_CreatePipe) /* 582 */ -#define Tcl_NRCreateCommand \ - (tclStubsPtr->tcl_NRCreateCommand) /* 583 */ -#define Tcl_NREvalObj \ - (tclStubsPtr->tcl_NREvalObj) /* 584 */ -#define Tcl_NREvalObjv \ - (tclStubsPtr->tcl_NREvalObjv) /* 585 */ -#define Tcl_NRCmdSwap \ - (tclStubsPtr->tcl_NRCmdSwap) /* 586 */ -#define Tcl_NRAddCallback \ - (tclStubsPtr->tcl_NRAddCallback) /* 587 */ -#define Tcl_NRCallObjProc \ - (tclStubsPtr->tcl_NRCallObjProc) /* 588 */ -#define Tcl_GetFSDeviceFromStat \ - (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */ -#define Tcl_GetFSInodeFromStat \ - (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */ -#define Tcl_GetModeFromStat \ - (tclStubsPtr->tcl_GetModeFromStat) /* 591 */ -#define Tcl_GetLinkCountFromStat \ - (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */ -#define Tcl_GetUserIdFromStat \ - (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */ -#define Tcl_GetGroupIdFromStat \ - (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */ -#define Tcl_GetDeviceTypeFromStat \ - (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */ -#define Tcl_GetAccessTimeFromStat \ - (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */ -#define Tcl_GetModificationTimeFromStat \ - (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */ -#define Tcl_GetChangeTimeFromStat \ - (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */ -#define Tcl_GetSizeFromStat \ - (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */ -#define Tcl_GetBlocksFromStat \ - (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */ -#define Tcl_GetBlockSizeFromStat \ - (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */ -#define Tcl_SetEnsembleParameterList \ - (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */ -#define Tcl_GetEnsembleParameterList \ - (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */ -#define Tcl_ParseArgsObjv \ - (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */ -#define Tcl_GetErrorLine \ - (tclStubsPtr->tcl_GetErrorLine) /* 605 */ -#define Tcl_SetErrorLine \ - (tclStubsPtr->tcl_SetErrorLine) /* 606 */ -#define Tcl_TransferResult \ - (tclStubsPtr->tcl_TransferResult) /* 607 */ -#define Tcl_InterpActive \ - (tclStubsPtr->tcl_InterpActive) /* 608 */ -#define Tcl_BackgroundException \ - (tclStubsPtr->tcl_BackgroundException) /* 609 */ -#define Tcl_ZlibDeflate \ - (tclStubsPtr->tcl_ZlibDeflate) /* 610 */ -#define Tcl_ZlibInflate \ - (tclStubsPtr->tcl_ZlibInflate) /* 611 */ -#define Tcl_ZlibCRC32 \ - (tclStubsPtr->tcl_ZlibCRC32) /* 612 */ -#define Tcl_ZlibAdler32 \ - (tclStubsPtr->tcl_ZlibAdler32) /* 613 */ -#define Tcl_ZlibStreamInit \ - (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */ -#define Tcl_ZlibStreamGetCommandName \ - (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */ -#define Tcl_ZlibStreamEof \ - (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */ -#define Tcl_ZlibStreamChecksum \ - (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */ -#define Tcl_ZlibStreamPut \ - (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */ -#define Tcl_ZlibStreamGet \ - (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */ -#define Tcl_ZlibStreamClose \ - (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */ -#define Tcl_ZlibStreamReset \ - (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */ -#define Tcl_SetStartupScript \ - (tclStubsPtr->tcl_SetStartupScript) /* 622 */ -#define Tcl_GetStartupScript \ - (tclStubsPtr->tcl_GetStartupScript) /* 623 */ -#define Tcl_CloseEx \ - (tclStubsPtr->tcl_CloseEx) /* 624 */ -#define Tcl_NRExprObj \ - (tclStubsPtr->tcl_NRExprObj) /* 625 */ -#define Tcl_NRSubstObj \ - (tclStubsPtr->tcl_NRSubstObj) /* 626 */ -#define Tcl_LoadFile \ - (tclStubsPtr->tcl_LoadFile) /* 627 */ -#define Tcl_FindSymbol \ - (tclStubsPtr->tcl_FindSymbol) /* 628 */ -#define Tcl_FSUnloadFile \ - (tclStubsPtr->tcl_FSUnloadFile) /* 629 */ -#define Tcl_ZlibStreamSetCompressionDictionary \ - (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */ -/* Slot 631 is reserved */ -/* Slot 632 is reserved */ -/* Slot 633 is reserved */ -/* Slot 634 is reserved */ -/* Slot 635 is reserved */ -/* Slot 636 is reserved */ -/* Slot 637 is reserved */ -/* Slot 638 is reserved */ -/* Slot 639 is reserved */ -/* Slot 640 is reserved */ -/* Slot 641 is reserved */ -/* Slot 642 is reserved */ -/* Slot 643 is reserved */ -/* Slot 644 is reserved */ -/* Slot 645 is reserved */ -/* Slot 646 is reserved */ -/* Slot 647 is reserved */ -#define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 648 */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TclUnusedStubEntry - -#if defined(USE_TCL_STUBS) -# undef Tcl_CreateInterp -# undef Tcl_FindExecutable -# undef Tcl_GetStringResult -# undef Tcl_Init -# undef Tcl_SetPanicProc -# undef Tcl_SetVar -# undef Tcl_ObjSetVar2 -# undef Tcl_StaticPackage -# define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp()) -# define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp)) -# define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp)) -# define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc)) -# define Tcl_SetVar(interp, varName, newValue, flags) \ - (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) -# define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \ - (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags)) -#endif - -#if defined(_WIN32) && defined(UNICODE) -# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) -# define Tcl_MainEx Tcl_MainExW - EXTERN void Tcl_MainExW(int argc, wchar_t **argv, - Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef Tcl_SeekOld -#undef Tcl_TellOld - -#undef Tcl_PkgPresent -#define Tcl_PkgPresent(interp, name, version, exact) \ - Tcl_PkgPresentEx(interp, name, version, exact, NULL) -#undef Tcl_PkgProvide -#define Tcl_PkgProvide(interp, name, version) \ - Tcl_PkgProvideEx(interp, name, version, NULL) -#undef Tcl_PkgRequire -#define Tcl_PkgRequire(interp, name, version, exact) \ - Tcl_PkgRequireEx(interp, name, version, exact, NULL) -#undef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ - Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ - sizeof(char *), msg, flags, indexPtr) -#undef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj(boolValue) \ - Tcl_NewIntObj((boolValue)!=0) -#undef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj(boolValue, file, line) \ - Tcl_DbNewLongObj((boolValue)!=0, file, line) -#undef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj(objPtr, boolValue) \ - Tcl_SetIntObj((objPtr), (boolValue)!=0) -#undef Tcl_SetVar -#define Tcl_SetVar(interp, varName, newValue, flags) \ - Tcl_SetVar2(interp, varName, NULL, newValue, flags) -#undef Tcl_UnsetVar -#define Tcl_UnsetVar(interp, varName, flags) \ - Tcl_UnsetVar2(interp, varName, NULL, flags) -#undef Tcl_GetVar -#define Tcl_GetVar(interp, varName, flags) \ - Tcl_GetVar2(interp, varName, NULL, flags) -#undef Tcl_TraceVar -#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ - Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_UntraceVar -#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ - Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) -#undef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ - Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) -#undef Tcl_UpVar -#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ - Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) -# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) -/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore - * we have to make sure that all stub entries on Cygwin64 follow the - * Win64 signature. Cygwin64 stubbed extensions cannot use those stub - * entries any more, they should use the 64-bit alternatives where - * possible. Tcl 9 must find a better solution, but that cannot be done - * without introducing a binary incompatibility. - */ -# undef Tcl_DbNewLongObj -# undef Tcl_GetLongFromObj -# undef Tcl_NewLongObj -# undef Tcl_SetLongObj -# undef Tcl_ExprLong -# undef Tcl_ExprLongObj -# undef Tcl_UniCharNcmp -# undef Tcl_UtfNcmp -# undef Tcl_UtfNcasecmp -# undef Tcl_UniCharNcasecmp -# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj) -# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj) -# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj) -# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj) -# define Tcl_ExprLong TclExprLong - static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_ExprLongObj TclExprLongObj - static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ - int intValue; - int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); - if (result == TCL_OK) *ptr = (long)intValue; - return result; - } -# define Tcl_UniCharNcmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) -# define Tcl_UtfNcmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UtfNcasecmp(s1,s2,n) \ - ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) -# define Tcl_UniCharNcasecmp(ucs,uct,n) \ - ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) -# endif -#endif - -/* - * Deprecated Tcl procedures: - */ - -#undef Tcl_EvalObj -#define Tcl_EvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),0) -#undef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) - -#endif /* _TCLDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclInt.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclInt.h deleted file mode 100644 index 39fb740a4..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclInt.h +++ /dev/null @@ -1,4946 +0,0 @@ -/* - * tclInt.h -- - * - * Declarations of things used internally by the Tcl interpreter. - * - * Copyright (c) 1987-1993 The Regents of the University of California. - * Copyright (c) 1993-1997 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-1999 by Scriptics Corporation. - * Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. - * Copyright (c) 2007 Daniel A. Steffen - * Copyright (c) 2006-2008 by Joe Mistachkin. All rights reserved. - * Copyright (c) 2008 by Miguel Sofer. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINT -#define _TCLINT - -/* - * Some numerics configuration options. - */ - -#undef ACCEPT_NAN - -/* - * Common include files needed by most of the Tcl source files are included - * here, so that system-dependent personalizations for the include files only - * have to be made in once place. This results in a few extra includes, but - * greater modularity. The order of the three groups of #includes is - * important. For example, stdio.h is needed by tcl.h. - */ - -#include "tclPort.h" - -#include - -#include -#ifdef NO_STDLIB_H -# include "../compat/stdlib.h" -#else -# include -#endif -#ifdef NO_STRING_H -#include "../compat/string.h" -#else -#include -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -#include -#else -typedef int ptrdiff_t; -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correctly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void *)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void *)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void *)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void *)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -#if defined(_WIN32) && defined(_MSC_VER) -# define vsnprintf _vsnprintf -#endif - -/* - * The following procedures allow namespaces to be customized to support - * special name resolution rules for commands/variables. - */ - -struct Tcl_ResolvedVarInfo; - -typedef Tcl_Var (Tcl_ResolveRuntimeVarProc)(Tcl_Interp *interp, - struct Tcl_ResolvedVarInfo *vinfoPtr); - -typedef void (Tcl_ResolveVarDeleteProc)(struct Tcl_ResolvedVarInfo *vinfoPtr); - -/* - * The following structure encapsulates the routines needed to resolve a - * variable reference at runtime. Any variable specific state will typically - * be appended to this structure. - */ - -typedef struct Tcl_ResolvedVarInfo { - Tcl_ResolveRuntimeVarProc *fetchProc; - Tcl_ResolveVarDeleteProc *deleteProc; -} Tcl_ResolvedVarInfo; - -typedef int (Tcl_ResolveCompiledVarProc)(Tcl_Interp *interp, - CONST84 char *name, int length, Tcl_Namespace *context, - Tcl_ResolvedVarInfo **rPtr); - -typedef int (Tcl_ResolveVarProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Var *rPtr); - -typedef int (Tcl_ResolveCmdProc)(Tcl_Interp *interp, CONST84 char *name, - Tcl_Namespace *context, int flags, Tcl_Command *rPtr); - -typedef struct Tcl_ResolverInfo { - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ -} Tcl_ResolverInfo; - -/* - * This flag bit should not interfere with TCL_GLOBAL_ONLY, - * TCL_NAMESPACE_ONLY, or TCL_LEAVE_ERR_MSG; it signals that the variable - * lookup is performed for upvar (or similar) purposes, with slightly - * different rules: - * - Bug #696893 - variable is either proc-local or in the current - * namespace; never follow the second (global) resolution path - * - Bug #631741 - do not use special namespace or interp resolvers - * - * It should also not collide with the (deprecated) TCL_PARSE_PART1 flag - * (Bug #835020) - */ - -#define TCL_AVOID_RESOLVERS 0x40000 - -/* - *---------------------------------------------------------------- - * Data structures related to namespaces. - *---------------------------------------------------------------- - */ - -typedef struct Tcl_Ensemble Tcl_Ensemble; -typedef struct NamespacePathEntry NamespacePathEntry; - -/* - * Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr - * field added at the end: in this way variables can find their namespace - * without having to copy a pointer in their struct: they can access it via - * their hPtr->tablePtr. - */ - -typedef struct TclVarHashTable { - Tcl_HashTable table; - struct Namespace *nsPtr; -} TclVarHashTable; - -/* - * This is for itcl - it likes to search our varTables directly :( - */ - -#define TclVarHashFindVar(tablePtr, key) \ - TclVarHashCreateVar((tablePtr), (key), NULL) - -/* - * Define this to reduce the amount of space that the average namespace - * consumes by only allocating the table of child namespaces when necessary. - * Defining it breaks compatibility for Tcl extensions (e.g., itcl) which - * reach directly into the Namespace structure. - */ - -#undef BREAK_NAMESPACE_COMPAT - -/* - * The structure below defines a namespace. - * Note: the first five fields must match exactly the fields in a - * Tcl_Namespace structure (see tcl.h). If you change one, be sure to change - * the other. - */ - -typedef struct Namespace { - char *name; /* The namespace's simple (unqualified) name. - * This contains no ::'s. The name of the - * global namespace is "" although "::" is an - * synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* An arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Procedure invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Namespace *parentPtr;/* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -#ifndef BREAK_NAMESPACE_COMPAT - Tcl_HashTable childTable; /* Contains any child namespaces. Indexed by - * strings; values have type (Namespace *). */ -#else - Tcl_HashTable *childTablePtr; - /* Contains any child namespaces. Indexed by - * strings; values have type (Namespace *). If - * NULL, there are no children. */ -#endif - long nsId; /* Unique id for the namespace. */ - Tcl_Interp *interp; /* The interpreter containing this - * namespace. */ - int flags; /* OR-ed combination of the namespace status - * flags NS_DYING and NS_DEAD listed below. */ - int activationCount; /* Number of "activations" or active call - * frames for this namespace that are on the - * Tcl call stack. The namespace won't be - * freed until activationCount becomes zero. */ - int refCount; /* Count of references by namespaceName - * objects. The namespace can't be freed until - * refCount becomes zero. */ - Tcl_HashTable cmdTable; /* Contains all the commands currently - * registered in the namespace. Indexed by - * strings; values have type (Command *). - * Commands imported by Tcl_Import have - * Command structures that point (via an - * ImportedCmdRef structure) to the Command - * structure in the source namespace's command - * table. */ - TclVarHashTable varTable; /* Contains all the (global) variables - * currently in this namespace. Indexed by - * strings; values have type (Var *). */ - char **exportArrayPtr; /* Points to an array of string patterns - * specifying which commands are exported. A - * pattern may include "string match" style - * wildcard characters to specify multiple - * commands; however, no namespace qualifiers - * are allowed. NULL if no export patterns are - * registered. */ - int numExportPatterns; /* Number of export patterns currently - * registered using "namespace export". */ - int maxExportPatterns; /* Mumber of export patterns for which space - * is currently allocated. */ - int cmdRefEpoch; /* Incremented if a newly added command - * shadows a command for which this namespace - * has already cached a Command* pointer; this - * causes all its cached Command* pointers to - * be invalidated. */ - int resolverEpoch; /* Incremented whenever (a) the name - * resolution rules change for this namespace - * or (b) a newly added command shadows a - * command that is compiled to bytecodes. This - * invalidates all byte codes compiled in the - * namespace, causing the code to be - * recompiled under the new rules.*/ - Tcl_ResolveCmdProc *cmdResProc; - /* If non-null, this procedure overrides the - * usual command resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindCommand to resolve all command - * references within the namespace. */ - Tcl_ResolveVarProc *varResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * Tcl_FindNamespaceVar to resolve all - * variable references within the namespace at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* If non-null, this procedure overrides the - * usual variable resolution mechanism in Tcl. - * This procedure is invoked within - * LookupCompiledLocal to resolve variable - * references within the namespace at compile - * time. */ - int exportLookupEpoch; /* Incremented whenever a command is added to - * a namespace, removed from a namespace or - * the exports of a namespace are changed. - * Allows TIP#112-driven command lists to be - * validated efficiently. */ - Tcl_Ensemble *ensembles; /* List of structures that contain the details - * of the ensembles that are implemented on - * top of this namespace. */ - Tcl_Obj *unknownHandlerPtr; /* A script fragment to be used when command - * resolution in this namespace fails. TIP - * 181. */ - int commandPathLength; /* The length of the explicit path. */ - NamespacePathEntry *commandPathArray; - /* The explicit path of the namespace as an - * array. */ - NamespacePathEntry *commandPathSourceList; - /* Linked list of path entries that point to - * this namespace. */ - Tcl_NamespaceDeleteProc *earlyDeleteProc; - /* Just like the deleteProc field (and called - * with the same clientData) but called at the - * start of the deletion process, so there is - * a chance for code to do stuff inside the - * namespace before deletion completes. */ -} Namespace; - -/* - * An entry on a namespace's command resolution path. - */ - -struct NamespacePathEntry { - Namespace *nsPtr; /* What does this path entry point to? If it - * is NULL, this path entry points is - * redundant and should be skipped. */ - Namespace *creatorNsPtr; /* Where does this path entry point from? This - * allows for efficient invalidation of - * references when the path entry's target - * updates its current list of defined - * commands. */ - NamespacePathEntry *prevPtr, *nextPtr; - /* Linked list pointers or NULL at either end - * of the list that hangs off Namespace's - * commandPathSourceList field. */ -}; - -/* - * Flags used to represent the status of a namespace: - * - * NS_DYING - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace but there are still active call frames on the Tcl - * stack that refer to the namespace. When the last call frame - * referring to it has been popped, it's variables and command - * will be destroyed and it will be marked "dead" (NS_DEAD). The - * namespace can no longer be looked up by name. - * NS_DEAD - 1 means Tcl_DeleteNamespace has been called to delete the - * namespace and no call frames still refer to it. Its variables - * and command have already been destroyed. This bit allows the - * namespace resolution code to recognize that the namespace is - * "deleted". When the last namespaceName object in any byte code - * unit that refers to the namespace has been freed (i.e., when - * the namespace's refCount is 0), the namespace's storage will - * be freed. - * NS_KILLED - 1 means that TclTeardownNamespace has already been called on - * this namespace and it should not be called again [Bug 1355942] - * NS_SUPPRESS_COMPILATION - - * Marks the commands in this namespace for not being compiled, - * forcing them to be looked up every time. - */ - -#define NS_DYING 0x01 -#define NS_DEAD 0x02 -#define NS_KILLED 0x04 -#define NS_SUPPRESS_COMPILATION 0x08 - -/* - * Flags passed to TclGetNamespaceForQualName: - * - * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns. - * TCL_NAMESPACE_ONLY - (see tcl.h) Look only in the context ns. - * TCL_CREATE_NS_IF_UNKNOWN - Create unknown namespaces. - * TCL_FIND_ONLY_NS - The name sought is a namespace name. - */ - -#define TCL_CREATE_NS_IF_UNKNOWN 0x800 -#define TCL_FIND_ONLY_NS 0x1000 - -/* - * The client data for an ensemble command. This consists of the table of - * commands that are actually exported by the namespace, and an epoch counter - * that, combined with the exportLookupEpoch field of the namespace structure, - * defines whether the table contains valid data or will need to be recomputed - * next time the ensemble command is called. - */ - -typedef struct EnsembleConfig { - Namespace *nsPtr; /* The namespace backing this ensemble up. */ - Tcl_Command token; /* The token for the command that provides - * ensemble support for the namespace, or NULL - * if the command has been deleted (or never - * existed; the global namespace never has an - * ensemble command.) */ - int epoch; /* The epoch at which this ensemble's table of - * exported commands is valid. */ - char **subcommandArrayPtr; /* Array of ensemble subcommand names. At all - * consistent points, this will have the same - * number of entries as there are entries in - * the subcommandTable hash. */ - Tcl_HashTable subcommandTable; - /* Hash table of ensemble subcommand names, - * which are its keys so this also provides - * the storage management for those subcommand - * names. The contents of the entry values are - * object version the prefix lists to use when - * substituting for the command/subcommand to - * build the ensemble implementation command. - * Has to be stored here as well as in - * subcommandDict because that field is NULL - * when we are deriving the ensemble from the - * namespace exports list. FUTURE WORK: use - * object hash table here. */ - struct EnsembleConfig *next;/* The next ensemble in the linked list of - * ensembles associated with a namespace. If - * this field points to this ensemble, the - * structure has already been unlinked from - * all lists, and cannot be found by scanning - * the list from the namespace's ensemble - * field. */ - int flags; /* ORed combo of TCL_ENSEMBLE_PREFIX, - * ENSEMBLE_DEAD and ENSEMBLE_COMPILE. */ - - /* OBJECT FIELDS FOR ENSEMBLE CONFIGURATION */ - - Tcl_Obj *subcommandDict; /* Dictionary providing mapping from - * subcommands to their implementing command - * prefixes, or NULL if we are to build the - * map automatically from the namespace - * exports. */ - Tcl_Obj *subcmdList; /* List of commands that this ensemble - * actually provides, and whose implementation - * will be built using the subcommandDict (if - * present and defined) and by simple mapping - * to the namespace otherwise. If NULL, - * indicates that we are using the (dynamic) - * list of currently exported commands. */ - Tcl_Obj *unknownHandler; /* Script prefix used to handle the case when - * no match is found (according to the rule - * defined by flag bit TCL_ENSEMBLE_PREFIX) or - * NULL to use the default error-generating - * behaviour. The script execution gets all - * the arguments to the ensemble command - * (including objv[0]) and will have the - * results passed directly back to the caller - * (including the error code) unless the code - * is TCL_CONTINUE in which case the - * subcommand will be reparsed by the ensemble - * core, presumably because the ensemble - * itself has been updated. */ - Tcl_Obj *parameterList; /* List of ensemble parameter names. */ - int numParameters; /* Cached number of parameters. This is either - * 0 (if the parameterList field is NULL) or - * the length of the list in the parameterList - * field. */ -} EnsembleConfig; - -/* - * Various bits for the EnsembleConfig.flags field. - */ - -#define ENSEMBLE_DEAD 0x1 /* Flag value to say that the ensemble is dead - * and on its way out. */ -#define ENSEMBLE_COMPILE 0x4 /* Flag to enable bytecode compilation of an - * ensemble. */ - -/* - *---------------------------------------------------------------- - * Data structures related to variables. These are used primarily in tclVar.c - *---------------------------------------------------------------- - */ - -/* - * The following structure defines a variable trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * variable. - */ - -typedef struct VarTrace { - Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given by - * flags are performed on variable. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_READS, TCL_TRACE_WRITES, - * TCL_TRACE_UNSETS and TCL_TRACE_ARRAY. */ - struct VarTrace *nextPtr; /* Next in list of traces associated with a - * particular variable. */ -} VarTrace; - -/* - * The following structure defines a command trace, which is used to invoke a - * specific C procedure whenever certain operations are performed on a - * command. - */ - -typedef struct CommandTrace { - Tcl_CommandTraceProc *traceProc; - /* Procedure to call when operations given by - * flags are performed on command. */ - ClientData clientData; /* Argument to pass to proc. */ - int flags; /* What events the trace procedure is - * interested in: OR-ed combination of - * TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ - struct CommandTrace *nextPtr; - /* Next in list of traces associated with a - * particular command. */ - int refCount; /* Used to ensure this structure is not - * deleted too early. Keeps track of how many - * pieces of code have a pointer to this - * structure. */ -} CommandTrace; - -/* - * When a command trace is active (i.e. its associated procedure is executing) - * one of the following structures is linked into a list associated with the - * command's interpreter. The information in the structure is needed in order - * for Tcl to behave reasonably if traces are deleted while traces are active. - */ - -typedef struct ActiveCommandTrace { - struct Command *cmdPtr; /* Command that's being traced. */ - struct ActiveCommandTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - CommandTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveCommandTrace; - -/* - * When a variable trace is active (i.e. its associated procedure is - * executing) one of the following structures is linked into a list associated - * with the variable's interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveVarTrace { - struct Var *varPtr; /* Variable that's being traced. */ - struct ActiveVarTrace *nextPtr; - /* Next in list of all active variable traces - * for the interpreter, or NULL if no more. */ - VarTrace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ -} ActiveVarTrace; - -/* - * The structure below defines a variable, which associates a string name with - * a Tcl_Obj value. These structures are kept in procedure call frames (for - * local variables recognized by the compiler) or in the heap (for global - * variables and any variable not known to the compiler). For each Var - * structure in the heap, a hash table entry holds the variable name and a - * pointer to the Var structure. - */ - -typedef struct Var { - int flags; /* Miscellaneous bits of information about - * variable. See below for definitions. */ - union { - Tcl_Obj *objPtr; /* The variable's object value. Used for - * scalar variables and array elements. */ - TclVarHashTable *tablePtr;/* For array variables, this points to - * information about the hash table used to - * implement the associative array. Points to - * ckalloc-ed data. */ - struct Var *linkPtr; /* If this is a global variable being referred - * to in a procedure, or a variable created by - * "upvar", this field points to the - * referenced variable's Var struct. */ - } value; -} Var; - -typedef struct VarInHash { - Var var; - int refCount; /* Counts number of active uses of this - * variable: 1 for the entry in the hash - * table, 1 for each additional variable whose - * linkPtr points here, 1 for each nested - * trace active on variable, and 1 if the - * variable is a namespace variable. This - * record can't be deleted until refCount - * becomes 0. */ - Tcl_HashEntry entry; /* The hash table entry that refers to this - * variable. This is used to find the name of - * the variable and to delete it from its - * hashtable if it is no longer needed. It - * also holds the variable's name. */ -} VarInHash; - -/* - * Flag bits for variables. The first two (VAR_ARRAY and VAR_LINK) are - * mutually exclusive and give the "type" of the variable. If none is set, - * this is a scalar variable. - * - * VAR_ARRAY - 1 means this is an array variable rather than - * a scalar variable or link. The "tablePtr" - * field points to the array's hashtable for its - * elements. - * VAR_LINK - 1 means this Var structure contains a pointer - * to another Var structure that either has the - * real value or is itself another VAR_LINK - * pointer. Variables like this come about - * through "upvar" and "global" commands, or - * through references to variables in enclosing - * namespaces. - * - * Flags that indicate the type and status of storage; none is set for - * compiled local variables (Var structs). - * - * VAR_IN_HASHTABLE - 1 means this variable is in a hashtable and - * the Var structure is malloced. 0 if it is a - * local variable that was assigned a slot in a - * procedure frame by the compiler so the Var - * storage is part of the call frame. - * VAR_DEAD_HASH 1 means that this var's entry in the hashtable - * has already been deleted. - * VAR_ARRAY_ELEMENT - 1 means that this variable is an array - * element, so it is not legal for it to be an - * array itself (the VAR_ARRAY flag had better - * not be set). - * VAR_NAMESPACE_VAR - 1 means that this variable was declared as a - * namespace variable. This flag ensures it - * persists until its namespace is destroyed or - * until the variable is unset; it will persist - * even if it has not been initialized and is - * marked undefined. The variable's refCount is - * incremented to reflect the "reference" from - * its namespace. - * - * Flag values relating to the variable's trace and search status. - * - * VAR_TRACED_READ - * VAR_TRACED_WRITE - * VAR_TRACED_UNSET - * VAR_TRACED_ARRAY - * VAR_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a read or write access, so new - * read or write accesses should not cause trace - * procedures to be called and the variable can't - * be deleted. - * VAR_SEARCH_ACTIVE - * - * The following additional flags are used with the CompiledLocal type defined - * below: - * - * VAR_ARGUMENT - 1 means that this variable holds a procedure - * argument. - * VAR_TEMPORARY - 1 if the local variable is an anonymous - * temporary variable. Temporaries have a NULL - * name. - * VAR_RESOLVED - 1 if name resolution has been done for this - * variable. - * VAR_IS_ARGS 1 if this variable is the last argument and is - * named "args". - */ - -/* - * FLAGS RENUMBERED: everything breaks already, make things simpler. - * - * IMPORTANT: skip the values 0x10, 0x20, 0x40, 0x800 corresponding to - * TCL_TRACE_(READS/WRITES/UNSETS/ARRAY): makes code simpler in tclTrace.c - * - * Keep the flag values for VAR_ARGUMENT and VAR_TEMPORARY so that old values - * in precompiled scripts keep working. - */ - -/* Type of value (0 is scalar) */ -#define VAR_ARRAY 0x1 -#define VAR_LINK 0x2 - -/* Type of storage (0 is compiled local) */ -#define VAR_IN_HASHTABLE 0x4 -#define VAR_DEAD_HASH 0x8 -#define VAR_ARRAY_ELEMENT 0x1000 -#define VAR_NAMESPACE_VAR 0x80 /* KEEP OLD VALUE for Itcl */ - -#define VAR_ALL_HASH \ - (VAR_IN_HASHTABLE|VAR_DEAD_HASH|VAR_NAMESPACE_VAR|VAR_ARRAY_ELEMENT) - -/* Trace and search state. */ - -#define VAR_TRACED_READ 0x10 /* TCL_TRACE_READS */ -#define VAR_TRACED_WRITE 0x20 /* TCL_TRACE_WRITES */ -#define VAR_TRACED_UNSET 0x40 /* TCL_TRACE_UNSETS */ -#define VAR_TRACED_ARRAY 0x800 /* TCL_TRACE_ARRAY */ -#define VAR_TRACE_ACTIVE 0x2000 -#define VAR_SEARCH_ACTIVE 0x4000 -#define VAR_ALL_TRACES \ - (VAR_TRACED_READ|VAR_TRACED_WRITE|VAR_TRACED_ARRAY|VAR_TRACED_UNSET) - -/* Special handling on initialisation (only CompiledLocal). */ -#define VAR_ARGUMENT 0x100 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_TEMPORARY 0x200 /* KEEP OLD VALUE! See tclProc.c */ -#define VAR_IS_ARGS 0x400 -#define VAR_RESOLVED 0x8000 - -/* - * Macros to ensure that various flag bits are set properly for variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetVarScalar(Var *varPtr); - * MODULE_SCOPE void TclSetVarArray(Var *varPtr); - * MODULE_SCOPE void TclSetVarLink(Var *varPtr); - * MODULE_SCOPE void TclSetVarArrayElement(Var *varPtr); - * MODULE_SCOPE void TclSetVarUndefined(Var *varPtr); - * MODULE_SCOPE void TclClearVarUndefined(Var *varPtr); - */ - -#define TclSetVarScalar(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK) - -#define TclSetVarArray(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_LINK) | VAR_ARRAY - -#define TclSetVarLink(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_LINK - -#define TclSetVarArrayElement(varPtr) \ - (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_ARRAY_ELEMENT - -#define TclSetVarUndefined(varPtr) \ - (varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK);\ - (varPtr)->value.objPtr = NULL - -#define TclClearVarUndefined(varPtr) - -#define TclSetVarTraceActive(varPtr) \ - (varPtr)->flags |= VAR_TRACE_ACTIVE - -#define TclClearVarTraceActive(varPtr) \ - (varPtr)->flags &= ~VAR_TRACE_ACTIVE - -#define TclSetVarNamespaceVar(varPtr) \ - if (!TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags |= VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount++;\ - }\ - } - -#define TclClearVarNamespaceVar(varPtr) \ - if (TclIsVarNamespaceVar(varPtr)) {\ - (varPtr)->flags &= ~VAR_NAMESPACE_VAR;\ - if (TclIsVarInHash(varPtr)) {\ - ((VarInHash *)(varPtr))->refCount--;\ - }\ - } - -/* - * Macros to read various flag bits of variables. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsVarScalar(Var *varPtr); - * MODULE_SCOPE int TclIsVarLink(Var *varPtr); - * MODULE_SCOPE int TclIsVarArray(Var *varPtr); - * MODULE_SCOPE int TclIsVarUndefined(Var *varPtr); - * MODULE_SCOPE int TclIsVarArrayElement(Var *varPtr); - * MODULE_SCOPE int TclIsVarTemporary(Var *varPtr); - * MODULE_SCOPE int TclIsVarArgument(Var *varPtr); - * MODULE_SCOPE int TclIsVarResolved(Var *varPtr); - */ - -#define TclIsVarScalar(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK)) - -#define TclIsVarLink(varPtr) \ - ((varPtr)->flags & VAR_LINK) - -#define TclIsVarArray(varPtr) \ - ((varPtr)->flags & VAR_ARRAY) - -#define TclIsVarUndefined(varPtr) \ - ((varPtr)->value.objPtr == NULL) - -#define TclIsVarArrayElement(varPtr) \ - ((varPtr)->flags & VAR_ARRAY_ELEMENT) - -#define TclIsVarNamespaceVar(varPtr) \ - ((varPtr)->flags & VAR_NAMESPACE_VAR) - -#define TclIsVarTemporary(varPtr) \ - ((varPtr)->flags & VAR_TEMPORARY) - -#define TclIsVarArgument(varPtr) \ - ((varPtr)->flags & VAR_ARGUMENT) - -#define TclIsVarResolved(varPtr) \ - ((varPtr)->flags & VAR_RESOLVED) - -#define TclIsVarTraceActive(varPtr) \ - ((varPtr)->flags & VAR_TRACE_ACTIVE) - -#define TclIsVarTraced(varPtr) \ - ((varPtr)->flags & VAR_ALL_TRACES) - -#define TclIsVarInHash(varPtr) \ - ((varPtr)->flags & VAR_IN_HASHTABLE) - -#define TclIsVarDeadHash(varPtr) \ - ((varPtr)->flags & VAR_DEAD_HASH) - -#define TclGetVarNsPtr(varPtr) \ - (TclIsVarInHash(varPtr) \ - ? ((TclVarHashTable *) ((((VarInHash *) (varPtr))->entry.tablePtr)))->nsPtr \ - : NULL) - -#define VarHashRefCount(varPtr) \ - ((VarInHash *) (varPtr))->refCount - -/* - * Macros for direct variable access by TEBC. - */ - -#define TclIsVarDirectReadable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectWritable(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_WRITE|VAR_DEAD_HASH)) - -#define TclIsVarDirectUnsettable(varPtr) \ - !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ|VAR_TRACED_WRITE|VAR_TRACED_UNSET|VAR_DEAD_HASH)) - -#define TclIsVarDirectModifyable(varPtr) \ - ( !((varPtr)->flags & (VAR_ARRAY|VAR_LINK|VAR_TRACED_READ|VAR_TRACED_WRITE)) \ - && (varPtr)->value.objPtr) - -#define TclIsVarDirectReadable2(varPtr, arrayPtr) \ - (TclIsVarDirectReadable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_READ))) - -#define TclIsVarDirectWritable2(varPtr, arrayPtr) \ - (TclIsVarDirectWritable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & VAR_TRACED_WRITE))) - -#define TclIsVarDirectModifyable2(varPtr, arrayPtr) \ - (TclIsVarDirectModifyable(varPtr) &&\ - (!(arrayPtr) || !((arrayPtr)->flags & (VAR_TRACED_READ|VAR_TRACED_WRITE)))) - -/* - *---------------------------------------------------------------- - * Data structures related to procedures. These are used primarily in - * tclProc.c, tclCompile.c, and tclExecute.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent an error when the forward reference to - * Command is encountered in the Proc and ImportRef types declared below. - */ - -struct Command; - -/* - * The variable-length structure below describes a local variable of a - * procedure that was recognized by the compiler. These variables have a name, - * an element in the array of compiler-assigned local variables in the - * procedure's call frame, and various other items of information. If the - * local variable is a formal argument, it may also have a default value. The - * compiler can't recognize local variables whose names are expressions (these - * names are only known at runtime when the expressions are evaluated) or - * local variables that are created as a result of an "upvar" or "uplevel" - * command. These other local variables are kept separately in a hash table in - * the call frame. - */ - -typedef struct CompiledLocal { - struct CompiledLocal *nextPtr; - /* Next compiler-recognized local variable for - * this procedure, or NULL if this is the last - * local. */ - int nameLength; /* The number of bytes in local variable's name. - * Among others used to speed up var lookups. */ - int frameIndex; /* Index in the array of compiler-assigned - * variables in the procedure call frame. */ - int flags; /* Flag bits for the local variable. Same as - * the flags for the Var structure above, - * although only VAR_ARGUMENT, VAR_TEMPORARY, - * and VAR_RESOLVED make sense. */ - Tcl_Obj *defValuePtr; /* Pointer to the default value of an - * argument, if any. NULL if not an argument - * or, if an argument, no default value. */ - Tcl_ResolvedVarInfo *resolveInfo; - /* Customized variable resolution info - * supplied by the Tcl_ResolveCompiledVarProc - * associated with a namespace. Each variable - * is marked by a unique ClientData tag during - * compilation, and that same tag is used to - * find the variable at runtime. */ - char name[1]; /* Name of the local variable starts here. If - * the name is NULL, this will just be '\0'. - * The actual size of this field will be large - * enough to hold the name. MUST BE THE LAST - * FIELD IN THE STRUCTURE! */ -} CompiledLocal; - -/* - * The structure below defines a command procedure, which consists of a - * collection of Tcl commands plus information about arguments and other local - * variables recognized at compile time. - */ - -typedef struct Proc { - struct Interp *iPtr; /* Interpreter for which this command is - * defined. */ - int refCount; /* Reference count: 1 if still present in - * command table plus 1 for each call to the - * procedure that is currently active. This - * structure can be freed when refCount - * becomes zero. */ - struct Command *cmdPtr; /* Points to the Command structure for this - * procedure. This is used to get the - * namespace in which to execute the - * procedure. */ - Tcl_Obj *bodyPtr; /* Points to the ByteCode object for - * procedure's body command. */ - int numArgs; /* Number of formal parameters. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments and - * temporaries. */ - CompiledLocal *firstLocalPtr; - /* Pointer to first of the procedure's - * compiler-allocated local variables, or NULL - * if none. The first numArgs entries in this - * list describe the procedure's formal - * arguments. */ - CompiledLocal *lastLocalPtr;/* Pointer to the last allocated local - * variable or NULL if none. This has frame - * index (numCompiledLocals-1). */ -} Proc; - -/* - * The type of functions called to process errors found during the execution - * of a procedure (or lambda term or ...). - */ - -typedef void (ProcErrorProc)(Tcl_Interp *interp, Tcl_Obj *procNameObj); - -/* - * The structure below defines a command trace. This is used to allow Tcl - * clients to find out whenever a command is about to be executed. - */ - -typedef struct Trace { - int level; /* Only trace commands at nesting level less - * than or equal to this. */ - Tcl_CmdObjTraceProc *proc; /* Procedure to call to trace command. */ - ClientData clientData; /* Arbitrary value to pass to proc. */ - struct Trace *nextPtr; /* Next in list of traces for this interp. */ - int flags; /* Flags governing the trace - see - * Tcl_CreateObjTrace for details. */ - Tcl_CmdObjTraceDeleteProc *delProc; - /* Procedure to call when trace is deleted. */ -} Trace; - -/* - * When an interpreter trace is active (i.e. its associated procedure is - * executing), one of the following structures is linked into a list - * associated with the interpreter. The information in the structure is needed - * in order for Tcl to behave reasonably if traces are deleted while traces - * are active. - */ - -typedef struct ActiveInterpTrace { - struct ActiveInterpTrace *nextPtr; - /* Next in list of all active command traces - * for the interpreter, or NULL if no more. */ - Trace *nextTracePtr; /* Next trace to check after current trace - * procedure returns; if this trace gets - * deleted, must update pointer to avoid using - * free'd memory. */ - int reverseScan; /* Boolean set true when traces are scanning - * in reverse order. */ -} ActiveInterpTrace; - -/* - * Flag values designating types of execution traces. See tclTrace.c for - * related flag values. - * - * TCL_TRACE_ENTER_EXEC - triggers enter/enterstep traces. - * - passed to Tcl_CreateObjTrace to set up - * "enterstep" traces. - * TCL_TRACE_LEAVE_EXEC - triggers leave/leavestep traces. - * - passed to Tcl_CreateObjTrace to set up - * "leavestep" traces. - */ - -#define TCL_TRACE_ENTER_EXEC 1 -#define TCL_TRACE_LEAVE_EXEC 2 - -/* - * The structure below defines an entry in the assocData hash table which is - * associated with an interpreter. The entry contains a pointer to a function - * to call when the interpreter is deleted, and a pointer to a user-defined - * piece of data. - */ - -typedef struct AssocData { - Tcl_InterpDeleteProc *proc; /* Proc to call when deleting. */ - ClientData clientData; /* Value to pass to proc. */ -} AssocData; - -/* - * The structure below defines a call frame. A call frame defines a naming - * context for a procedure call: its local naming scope (for local variables) - * and its global naming scope (a namespace, perhaps the global :: namespace). - * A call frame can also define the naming context for a namespace eval or - * namespace inscope command: the namespace in which the command's code should - * execute. The Tcl_CallFrame structures exist only while procedures or - * namespace eval/inscope's are being executed, and provide a kind of Tcl call - * stack. - * - * WARNING!! The structure definition must be kept consistent with the - * Tcl_CallFrame structure in tcl.h. If you change one, change the other. - */ - -/* - * Will be grown to contain: pointers to the varnames (allocated at the end), - * plus the init values for each variable (suitable to be memcopied on init) - */ - -typedef struct LocalCache { - int refCount; - int numVars; - Tcl_Obj *varName0; -} LocalCache; - -#define localName(framePtr, i) \ - ((&((framePtr)->localCachePtr->varName0))[(i)]) - -MODULE_SCOPE void TclFreeLocalCache(Tcl_Interp *interp, - LocalCache *localCachePtr); - -typedef struct CallFrame { - Namespace *nsPtr; /* Points to the namespace used to resolve - * commands and global variables. */ - int isProcCallFrame; /* If 0, the frame was pushed to execute a - * namespace command and var references are - * treated as references to namespace vars; - * varTablePtr and compiledLocals are ignored. - * If FRAME_IS_PROC is set, the frame was - * pushed to execute a Tcl procedure and may - * have local vars. */ - int objc; /* This and objv below describe the arguments - * for this procedure call. */ - Tcl_Obj *const *objv; /* Array of argument objects. */ - struct CallFrame *callerPtr; - /* Value of interp->framePtr when this - * procedure was invoked (i.e. next higher in - * stack of all active procedures). */ - struct CallFrame *callerVarPtr; - /* Value of interp->varFramePtr when this - * procedure was invoked (i.e. determines - * variable scoping within caller). Same as - * callerPtr unless an "uplevel" command or - * something equivalent was active in the - * caller). */ - int level; /* Level of this procedure, for "uplevel" - * purposes (i.e. corresponds to nesting of - * callerVarPtr's, not callerPtr's). 1 for - * outermost procedure, 0 for top-level. */ - Proc *procPtr; /* Points to the structure defining the called - * procedure. Used to get information such as - * the number of compiled local variables - * (local variables assigned entries ["slots"] - * in the compiledLocals array below). */ - TclVarHashTable *varTablePtr; - /* Hash table containing local variables not - * recognized by the compiler, or created at - * execution time through, e.g., upvar. - * Initially NULL and created if needed. */ - int numCompiledLocals; /* Count of local variables recognized by the - * compiler including arguments. */ - Var *compiledLocals; /* Points to the array of local variables - * recognized by the compiler. The compiler - * emits code that refers to these variables - * using an index into this array. */ - ClientData clientData; /* Pointer to some context that is used by - * object systems. The meaning of the contents - * of this field is defined by the code that - * sets it, and it should only ever be set by - * the code that is pushing the frame. In that - * case, the code that sets it should also - * have some means of discovering what the - * meaning of the value is, which we do not - * specify. */ - LocalCache *localCachePtr; - Tcl_Obj *tailcallPtr; - /* NULL if no tailcall is scheduled */ -} CallFrame; - -#define FRAME_IS_PROC 0x1 -#define FRAME_IS_LAMBDA 0x2 -#define FRAME_IS_METHOD 0x4 /* The frame is a method body, and the frame's - * clientData field contains a CallContext - * reference. Part of TIP#257. */ -#define FRAME_IS_OO_DEFINE 0x8 /* The frame is part of the inside workings of - * the [oo::define] command; the clientData - * field contains an Object reference that has - * been confirmed to refer to a class. Part of - * TIP#257. */ - -/* - * TIP #280 - * The structure below defines a command frame. A command frame provides - * location information for all commands executing a tcl script (source, eval, - * uplevel, procedure bodies, ...). The runtime structure essentially contains - * the stack trace as it would be if the currently executing command were to - * throw an error. - * - * For commands where it makes sense it refers to the associated CallFrame as - * well. - * - * The structures are chained in a single list, with the top of the stack - * anchored in the Interp structure. - * - * Instances can be allocated on the C stack, or the heap, the former making - * cleanup a bit simpler. - */ - -typedef struct CmdFrame { - /* - * General data. Always available. - */ - - int type; /* Values see below. */ - int level; /* Number of frames in stack, prevent O(n) - * scan of list. */ - int *line; /* Lines the words of the command start on. */ - int nline; - CallFrame *framePtr; /* Procedure activation record, may be - * NULL. */ - struct CmdFrame *nextPtr; /* Link to calling frame. */ - /* - * Data needed for Eval vs TEBC - * - * EXECUTION CONTEXTS and usage of CmdFrame - * - * Field TEBC EvalEx - * ======= ==== ====== - * level yes yes - * type BC/PREBC SRC/EVAL - * line0 yes yes - * framePtr yes yes - * ======= ==== ====== - * - * ======= ==== ========= union data - * line1 - yes - * line3 - yes - * path - yes - * ------- ---- ------ - * codePtr yes - - * pc yes - - * ======= ==== ====== - * - * ======= ==== ========= union cmd - * str.cmd yes yes - * str.len yes yes - * ------- ---- ------ - */ - - union { - struct { - Tcl_Obj *path; /* Path of the sourced file the command is - * in. */ - } eval; - struct { - const void *codePtr;/* Byte code currently executed... */ - const char *pc; /* ... and instruction pointer. */ - } tebc; - } data; - Tcl_Obj *cmdObj; - const char *cmd; /* The executed command, if possible... */ - int len; /* ... and its length. */ - const struct CFWordBC *litarg; - /* Link to set of literal arguments which have - * ben pushed on the lineLABCPtr stack by - * TclArgumentBCEnter(). These will be removed - * by TclArgumentBCRelease. */ -} CmdFrame; - -typedef struct CFWord { - CmdFrame *framePtr; /* CmdFrame to access. */ - int word; /* Index of the word in the command. */ - int refCount; /* Number of times the word is on the - * stack. */ -} CFWord; - -typedef struct CFWordBC { - CmdFrame *framePtr; /* CmdFrame to access. */ - int pc; /* Instruction pointer of a command in - * ExtCmdLoc.loc[.] */ - int word; /* Index of word in - * ExtCmdLoc.loc[cmd]->line[.] */ - struct CFWordBC *prevPtr; /* Previous entry in stack for same Tcl_Obj. */ - struct CFWordBC *nextPtr; /* Next entry for same command call. See - * CmdFrame litarg field for the list start. */ - Tcl_Obj *obj; /* Back reference to hashtable key */ -} CFWordBC; - -/* - * Structure to record the locations of invisible continuation lines in - * literal scripts, as character offset from the beginning of the script. Both - * compiler and direct evaluator use this information to adjust their line - * counters when tracking through the script, because when it is invoked the - * continuation line marker as a whole has been removed already, meaning that - * the \n which was part of it is gone as well, breaking regular line - * tracking. - * - * These structures are allocated and filled by both the function - * TclSubstTokens() in the file "tclParse.c" and its caller TclEvalEx() in the - * file "tclBasic.c", and stored in the thread-global hashtable "lineCLPtr" in - * file "tclObj.c". They are used by the functions TclSetByteCodeFromAny() and - * TclCompileScript(), both found in the file "tclCompile.c". Their memory is - * released by the function TclFreeObj(), in the file "tclObj.c", and also by - * the function TclThreadFinalizeObjects(), in the same file. - */ - -#define CLL_END (-1) - -typedef struct ContLineLoc { - int num; /* Number of entries in loc, not counting the - * final -1 marker entry. */ - int loc[1]; /* Table of locations, as character offsets. - * The table is allocated as part of the - * structure, extending behind the nominal end - * of the structure. An entry containing the - * value -1 is put after the last location, as - * end-marker/sentinel. */ -} ContLineLoc; - -/* - * The following macros define the allowed values for the type field of the - * CmdFrame structure above. Some of the values occur only in the extended - * location data referenced via the 'baseLocPtr'. - * - * TCL_LOCATION_EVAL : Frame is for a script evaluated by EvalEx. - * TCL_LOCATION_BC : Frame is for bytecode. - * TCL_LOCATION_PREBC : Frame is for precompiled bytecode. - * TCL_LOCATION_SOURCE : Frame is for a script evaluated by EvalEx, from a - * sourced file. - * TCL_LOCATION_PROC : Frame is for bytecode of a procedure. - * - * A TCL_LOCATION_BC type in a frame can be overridden by _SOURCE and _PROC - * types, per the context of the byte code in execution. - */ - -#define TCL_LOCATION_EVAL (0) /* Location in a dynamic eval script. */ -#define TCL_LOCATION_BC (2) /* Location in byte code. */ -#define TCL_LOCATION_PREBC (3) /* Location in precompiled byte code, no - * location. */ -#define TCL_LOCATION_SOURCE (4) /* Location in a file. */ -#define TCL_LOCATION_PROC (5) /* Location in a dynamic proc. */ -#define TCL_LOCATION_LAST (6) /* Number of values in the enum. */ - -/* - * Structure passed to describe procedure-like "procedures" that are not - * procedures (e.g. a lambda) so that their details can be reported correctly - * by [info frame]. Contains a sub-structure for each extra field. - */ - -typedef Tcl_Obj * (GetFrameInfoValueProc)(ClientData clientData); -typedef struct { - const char *name; /* Name of this field. */ - GetFrameInfoValueProc *proc; /* Function to generate a Tcl_Obj* from the - * clientData, or just use the clientData - * directly (after casting) if NULL. */ - ClientData clientData; /* Context for above function, or Tcl_Obj* if - * proc field is NULL. */ -} ExtraFrameInfoField; -typedef struct { - int length; /* Length of array. */ - ExtraFrameInfoField fields[2]; - /* Really as long as necessary, but this is - * long enough for nearly anything. */ -} ExtraFrameInfo; - -/* - *---------------------------------------------------------------- - * Data structures and procedures related to TclHandles, which are a very - * lightweight method of preserving enough information to determine if an - * arbitrary malloc'd block has been deleted. - *---------------------------------------------------------------- - */ - -typedef void **TclHandle; - -/* - *---------------------------------------------------------------- - * Experimental flag value passed to Tcl_GetRegExpFromObj. Intended for use - * only by Expect. It will probably go away in a later release. - *---------------------------------------------------------------- - */ - -#define TCL_REG_BOSONLY 002000 /* Prepend \A to pattern so it only matches at - * the beginning of the string. */ - -/* - * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet - * when threads are used, or an emulation if there are no threads. These are - * really internal and Tcl clients should use Tcl_GetThreadData. - */ - -MODULE_SCOPE void * TclThreadDataKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclThreadDataKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); - -/* - * This is a convenience macro used to initialize a thread local storage ptr. - */ - -#define TCL_TSD_INIT(keyPtr) \ - (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) - -/* - *---------------------------------------------------------------- - * Data structures related to bytecode compilation and execution. These are - * used primarily in tclCompile.c, tclExecute.c, and tclBasic.c. - *---------------------------------------------------------------- - */ - -/* - * Forward declaration to prevent errors when the forward references to - * Tcl_Parse and CompileEnv are encountered in the procedure type CompileProc - * declared below. - */ - -struct CompileEnv; - -/* - * The type of procedures called by the Tcl bytecode compiler to compile - * commands. Pointers to these procedures are kept in the Command structure - * describing each command. The integer value returned by a CompileProc must - * be one of the following: - * - * TCL_OK Compilation completed normally. - * TCL_ERROR Compilation could not be completed. This can be just a - * judgment by the CompileProc that the command is too - * complex to compile effectively, or it can indicate - * that in the current state of the interp, the command - * would raise an error. The bytecode compiler will not - * do any error reporting at compiler time. Error - * reporting is deferred until the actual runtime, - * because by then changes in the interp state may allow - * the command to be successfully evaluated. - * TCL_OUT_LINE_COMPILE A source-compatible alias for TCL_ERROR, kept for the - * sake of old code only. - */ - -#define TCL_OUT_LINE_COMPILE TCL_ERROR - -typedef int (CompileProc)(Tcl_Interp *interp, Tcl_Parse *parsePtr, - struct Command *cmdPtr, struct CompileEnv *compEnvPtr); - -/* - * The type of procedure called from the compilation hook point in - * SetByteCodeFromAny. - */ - -typedef int (CompileHookProc)(Tcl_Interp *interp, - struct CompileEnv *compEnvPtr, ClientData clientData); - -/* - * The data structure for a (linked list of) execution stacks. - */ - -typedef struct ExecStack { - struct ExecStack *prevPtr; - struct ExecStack *nextPtr; - Tcl_Obj **markerPtr; - Tcl_Obj **endPtr; - Tcl_Obj **tosPtr; - Tcl_Obj *stackWords[1]; -} ExecStack; - -/* - * The data structure defining the execution environment for ByteCode's. - * There is one ExecEnv structure per Tcl interpreter. It holds the evaluation - * stack that holds command operands and results. The stack grows towards - * increasing addresses. The member stackPtr points to the stackItems of the - * currently active execution stack. - */ - -typedef struct CorContext { - struct CallFrame *framePtr; - struct CallFrame *varFramePtr; - struct CmdFrame *cmdFramePtr; /* See Interp.cmdFramePtr */ - Tcl_HashTable *lineLABCPtr; /* See Interp.lineLABCPtr */ -} CorContext; - -typedef struct CoroutineData { - struct Command *cmdPtr; /* The command handle for the coroutine. */ - struct ExecEnv *eePtr; /* The special execution environment (stacks, - * etc.) for the coroutine. */ - struct ExecEnv *callerEEPtr;/* The execution environment for the caller of - * the coroutine, which might be the - * interpreter global environment or another - * coroutine. */ - CorContext caller; - CorContext running; - Tcl_HashTable *lineLABCPtr; /* See Interp.lineLABCPtr */ - void *stackLevel; - int auxNumLevels; /* While the coroutine is running the - * numLevels of the create/resume command is - * stored here; for suspended coroutines it - * holds the nesting numLevels at yield. */ - int nargs; /* Number of args required for resuming this - * coroutine; -2 means "0 or 1" (default), -1 - * means "any" */ -} CoroutineData; - -typedef struct ExecEnv { - ExecStack *execStackPtr; /* Points to the first item in the evaluation - * stack on the heap. */ - Tcl_Obj *constants[2]; /* Pointers to constant "0" and "1" objs. */ - struct Tcl_Interp *interp; - struct NRE_callback *callbackPtr; - /* Top callback in NRE's stack. */ - struct CoroutineData *corPtr; - int rewind; -} ExecEnv; - -#define COR_IS_SUSPENDED(corPtr) \ - ((corPtr)->stackLevel == NULL) - -/* - * The definitions for the LiteralTable and LiteralEntry structures. Each - * interpreter contains a LiteralTable. It is used to reduce the storage - * needed for all the Tcl objects that hold the literals of scripts compiled - * by the interpreter. A literal's object is shared by all the ByteCodes that - * refer to the literal. Each distinct literal has one LiteralEntry entry in - * the LiteralTable. A literal table is a specialized hash table that is - * indexed by the literal's string representation, which may contain null - * characters. - * - * Note that we reduce the space needed for literals by sharing literal - * objects both within a ByteCode (each ByteCode contains a local - * LiteralTable) and across all an interpreter's ByteCodes (with the - * interpreter's global LiteralTable). - */ - -typedef struct LiteralEntry { - struct LiteralEntry *nextPtr; - /* Points to next entry in this hash bucket or - * NULL if end of chain. */ - Tcl_Obj *objPtr; /* Points to Tcl object that holds the - * literal's bytes and length. */ - int refCount; /* If in an interpreter's global literal - * table, the number of ByteCode structures - * that share the literal object; the literal - * entry can be freed when refCount drops to - * 0. If in a local literal table, -1. */ - Namespace *nsPtr; /* Namespace in which this literal is used. We - * try to avoid sharing literal non-FQ command - * names among different namespaces to reduce - * shimmering. */ -} LiteralEntry; - -typedef struct LiteralTable { - LiteralEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - LiteralEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables to avoid - * mallocs and frees. */ - int numBuckets; /* Total number of buckets allocated at - * **buckets. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int mask; /* Mask value used in hashing function. */ -} LiteralTable; - -/* - * The following structure defines for each Tcl interpreter various - * statistics-related information about the bytecode compiler and - * interpreter's operation in that interpreter. - */ - -#ifdef TCL_COMPILE_STATS -typedef struct ByteCodeStats { - long numExecutions; /* Number of ByteCodes executed. */ - long numCompilations; /* Number of ByteCodes created. */ - long numByteCodesFreed; /* Number of ByteCodes destroyed. */ - long instructionCount[256]; /* Number of times each instruction was - * executed. */ - - double totalSrcBytes; /* Total source bytes ever compiled. */ - double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ - double currentSrcBytes; /* Src bytes for all current ByteCodes. */ - double currentByteCodeBytes;/* Code bytes in all current ByteCodes. */ - - long srcCount[32]; /* Source size distribution: # of srcs of - * size [2**(n-1)..2**n), n in [0..32). */ - long byteCodeCount[32]; /* ByteCode size distribution. */ - long lifetimeCount[32]; /* ByteCode lifetime distribution (ms). */ - - double currentInstBytes; /* Instruction bytes-current ByteCodes. */ - double currentLitBytes; /* Current literal bytes. */ - double currentExceptBytes; /* Current exception table bytes. */ - double currentAuxBytes; /* Current auxiliary information bytes. */ - double currentCmdMapBytes; /* Current src<->code map bytes. */ - - long numLiteralsCreated; /* Total literal objects ever compiled. */ - double totalLitStringBytes; /* Total string bytes in all literals. */ - double currentLitStringBytes; - /* String bytes in current literals. */ - long literalCount[32]; /* Distribution of literal string sizes. */ -} ByteCodeStats; -#endif /* TCL_COMPILE_STATS */ - -/* - * Structure used in implementation of those core ensembles which are - * partially compiled. Used as an array of these, with a terminating field - * whose 'name' is NULL. - */ - -typedef struct { - const char *name; /* The name of the subcommand. */ - Tcl_ObjCmdProc *proc; /* The implementation of the subcommand. */ - CompileProc *compileProc; /* The compiler for the subcommand. */ - Tcl_ObjCmdProc *nreProc; /* NRE implementation of this command. */ - ClientData clientData; /* Any clientData to give the command. */ - int unsafe; /* Whether this command is to be hidden by - * default in a safe interpreter. */ -} EnsembleImplMap; - -/* - *---------------------------------------------------------------- - * Data structures related to commands. - *---------------------------------------------------------------- - */ - -/* - * An imported command is created in an namespace when it imports a "real" - * command from another namespace. An imported command has a Command structure - * that points (via its ClientData value) to the "real" Command structure in - * the source namespace's command table. The real command records all the - * imported commands that refer to it in a list of ImportRef structures so - * that they can be deleted when the real command is deleted. - */ - -typedef struct ImportRef { - struct Command *importedCmdPtr; - /* Points to the imported command created in - * an importing namespace; this command - * redirects its invocations to the "real" - * command. */ - struct ImportRef *nextPtr; /* Next element on the linked list of imported - * commands that refer to the "real" command. - * The real command deletes these imported - * commands on this list when it is - * deleted. */ -} ImportRef; - -/* - * Data structure used as the ClientData of imported commands: commands - * created in an namespace when it imports a "real" command from another - * namespace. - */ - -typedef struct ImportedCmdData { - struct Command *realCmdPtr; /* "Real" command that this imported command - * refers to. */ - struct Command *selfPtr; /* Pointer to this imported command. Needed - * only when deleting it in order to remove it - * from the real command's linked list of - * imported commands that refer to it. */ -} ImportedCmdData; - -/* - * A Command structure exists for each command in a namespace. The Tcl_Command - * opaque type actually refers to these structures. - */ - -typedef struct Command { - Tcl_HashEntry *hPtr; /* Pointer to the hash table entry that refers - * to this command. The hash table is either a - * namespace's command table or an - * interpreter's hidden command table. This - * pointer is used to get a command's name - * from its Tcl_Command handle. NULL means - * that the hash table entry has been removed - * already (this can happen if deleteProc - * causes the command to be deleted or - * recreated). */ - Namespace *nsPtr; /* Points to the namespace containing this - * command. */ - int refCount; /* 1 if in command hashtable plus 1 for each - * reference from a CmdName Tcl object - * representing a command's name in a ByteCode - * instruction sequence. This structure can be - * freed when refCount becomes zero. */ - int cmdEpoch; /* Incremented to invalidate any references - * that point to this command when it is - * renamed, deleted, hidden, or exposed. */ - CompileProc *compileProc; /* Procedure called to compile command. NULL - * if no compile proc exists for command. */ - Tcl_ObjCmdProc *objProc; /* Object-based command procedure. */ - ClientData objClientData; /* Arbitrary value passed to object proc. */ - Tcl_CmdProc *proc; /* String-based command procedure. */ - ClientData clientData; /* Arbitrary value passed to string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Procedure invoked when deleting command to, - * e.g., free all client data. */ - ClientData deleteData; /* Arbitrary value passed to deleteProc. */ - int flags; /* Miscellaneous bits of information about - * command. See below for definitions. */ - ImportRef *importRefPtr; /* List of each imported Command created in - * another namespace when this command is - * imported. These imported commands redirect - * invocations back to this command. The list - * is used to remove all those imported - * commands when deleting this "real" - * command. */ - CommandTrace *tracePtr; /* First in list of all traces set for this - * command. */ - Tcl_ObjCmdProc *nreProc; /* NRE implementation of this command. */ -} Command; - -/* - * Flag bits for commands. - * - * CMD_IS_DELETED - Means that the command is in the process of - * being deleted (its deleteProc is currently - * executing). Other attempts to delete the - * command should be ignored. - * CMD_TRACE_ACTIVE - 1 means that trace processing is currently - * underway for a rename/delete change. See the - * two flags below for which is currently being - * processed. - * CMD_HAS_EXEC_TRACES - 1 means that this command has at least one - * execution trace (as opposed to simple - * delete/rename traces) in its tracePtr list. - * CMD_COMPILES_EXPANDED - 1 means that this command has a compiler that - * can handle expansion (provided it is not the - * first word). - * TCL_TRACE_RENAME - A rename trace is in progress. Further - * recursive renames will not be traced. - * TCL_TRACE_DELETE - A delete trace is in progress. Further - * recursive deletes will not be traced. - * (these last two flags are defined in tcl.h) - */ - -#define CMD_IS_DELETED 0x01 -#define CMD_TRACE_ACTIVE 0x02 -#define CMD_HAS_EXEC_TRACES 0x04 -#define CMD_COMPILES_EXPANDED 0x08 -#define CMD_REDEF_IN_PROGRESS 0x10 -#define CMD_VIA_RESOLVER 0x20 - - -/* - *---------------------------------------------------------------- - * Data structures related to name resolution procedures. - *---------------------------------------------------------------- - */ - -/* - * The interpreter keeps a linked list of name resolution schemes. The scheme - * for a namespace is consulted first, followed by the list of schemes in an - * interpreter, followed by the default name resolution in Tcl. Schemes are - * added/removed from the interpreter's list by calling Tcl_AddInterpResolver - * and Tcl_RemoveInterpResolver. - */ - -typedef struct ResolverScheme { - char *name; /* Name identifying this scheme. */ - Tcl_ResolveCmdProc *cmdResProc; - /* Procedure handling command name - * resolution. */ - Tcl_ResolveVarProc *varResProc; - /* Procedure handling variable name resolution - * for variables that can only be handled at - * runtime. */ - Tcl_ResolveCompiledVarProc *compiledVarResProc; - /* Procedure handling variable name resolution - * at compile time. */ - - struct ResolverScheme *nextPtr; - /* Pointer to next record in linked list. */ -} ResolverScheme; - -/* - * Forward declaration of the TIP#143 limit handler structure. - */ - -typedef struct LimitHandler LimitHandler; - -/* - * TIP #268. - * Values for the selection mode, i.e the package require preferences. - */ - -enum PkgPreferOptions { - PKG_PREFER_LATEST, PKG_PREFER_STABLE -}; - -/* - *---------------------------------------------------------------- - * This structure shadows the first few fields of the memory cache for the - * allocator defined in tclThreadAlloc.c; it has to be kept in sync with the - * definition there. - * Some macros require knowledge of some fields in the struct in order to - * avoid hitting the TSD unnecessarily. In order to facilitate this, a pointer - * to the relevant fields is kept in the allocCache field in struct Interp. - *---------------------------------------------------------------- - */ - -typedef struct AllocCache { - struct Cache *nextPtr; /* Linked list of cache entries. */ - Tcl_ThreadId owner; /* Which thread's cache is this? */ - Tcl_Obj *firstObjPtr; /* List of free objects for thread. */ - int numObjects; /* Number of objects for thread. */ -} AllocCache; - -/* - *---------------------------------------------------------------- - * This structure defines an interpreter, which is a collection of commands - * plus other state information related to interpreting commands, such as - * variable storage. Primary responsibility for this data structure is in - * tclBasic.c, but almost every Tcl source file uses something in here. - *---------------------------------------------------------------- - */ - -typedef struct Interp { - /* - * Note: the first three fields must match exactly the fields in a - * Tcl_Interp struct (see tcl.h). If you change one, be sure to change the - * other. - * - * The interpreter's result is held in both the string and the - * objResultPtr fields. These fields hold, respectively, the result's - * string or object value. The interpreter's result is always in the - * result field if that is non-empty, otherwise it is in objResultPtr. - * The two fields are kept consistent unless some C code sets - * interp->result directly. Programs should not access result and - * objResultPtr directly; instead, they should always get and set the - * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, and - * Tcl_GetStringResult. See the SetResult man page for details. - */ - - char *result; /* If the last command returned a string - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_FreeProc *freeProc; /* Zero means a string result is statically - * allocated. TCL_DYNAMIC means string result - * was allocated with ckalloc and should be - * freed with ckfree. Other values give - * address of procedure to invoke to free the - * string result. Tcl_Eval must free it before - * executing next command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number in the command where the error - * occurred (1 means first line). */ - const struct TclStubs *stubTable; - /* Pointer to the exported Tcl stub table. On - * previous versions of Tcl this is a pointer - * to the objResultPtr or a pointer to a - * buckets array in a hash table. We therefore - * have to do some careful checking before we - * can use this. */ - - TclHandle handle; /* Handle used to keep track of when this - * interp is deleted. */ - - Namespace *globalNsPtr; /* The interpreter's global namespace. */ - Tcl_HashTable *hiddenCmdTablePtr; - /* Hash table used by tclBasic.c to keep track - * of hidden commands on a per-interp - * basis. */ - ClientData interpInfo; /* Information used by tclInterp.c to keep - * track of master/slave interps on a - * per-interp basis. */ - union { - void (*optimizer)(void *envPtr); - Tcl_HashTable unused2; /* No longer used (was mathFuncTable). The - * unused space in interp was repurposed for - * pluggable bytecode optimizers. The core - * contains one optimizer, which can be - * selectively overridden by extensions. */ - } extra; - - /* - * Information related to procedures and variables. See tclProc.c and - * tclVar.c for usage. - */ - - int numLevels; /* Keeps track of how many nested calls to - * Tcl_Eval are in progress for this - * interpreter. It's used to delay deletion of - * the table until all Tcl_Eval invocations - * are completed. */ - int maxNestingDepth; /* If numLevels exceeds this value then Tcl - * assumes that infinite recursion has - * occurred and it generates an error. */ - CallFrame *framePtr; /* Points to top-most in stack of all nested - * procedure invocations. */ - CallFrame *varFramePtr; /* Points to the call frame whose variables - * are currently in use (same as framePtr - * unless an "uplevel" command is - * executing). */ - ActiveVarTrace *activeVarTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - int returnCode; /* [return -code] parameter. */ - CallFrame *rootFramePtr; /* Global frame pointer for this - * interpreter. */ - Namespace *lookupNsPtr; /* Namespace to use ONLY on the next - * TCL_EVAL_INVOKE call to Tcl_EvalObjv. */ - - /* - * Information used by Tcl_AppendResult to keep track of partial results. - * See Tcl_AppendResult code for details. - */ - - char *appendResult; /* Storage space for results generated by - * Tcl_AppendResult. Ckalloc-ed. NULL means - * not yet allocated. */ - int appendAvl; /* Total amount of space available at - * partialResult. */ - int appendUsed; /* Number of non-null bytes currently stored - * at partialResult. */ - - /* - * Information about packages. Used only in tclPkg.c. - */ - - Tcl_HashTable packageTable; /* Describes all of the packages loaded in or - * available to this interpreter. Keys are - * package names, values are (Package *) - * pointers. */ - char *packageUnknown; /* Command to invoke during "package require" - * commands for packages that aren't described - * in packageTable. Ckalloc'ed, may be - * NULL. */ - /* - * Miscellaneous information: - */ - - int cmdCount; /* Total number of times a command procedure - * has been called for this interpreter. */ - int evalFlags; /* Flags to control next call to Tcl_Eval. - * Normally zero, but may be set before - * calling Tcl_Eval. See below for valid - * values. */ - int unused1; /* No longer used (was termOffset) */ - LiteralTable literalTable; /* Contains LiteralEntry's describing all Tcl - * objects holding literals of scripts - * compiled by the interpreter. Indexed by the - * string representations of literals. Used to - * avoid creating duplicate objects. */ - int compileEpoch; /* Holds the current "compilation epoch" for - * this interpreter. This is incremented to - * invalidate existing ByteCodes when, e.g., a - * command with a compile procedure is - * redefined. */ - Proc *compiledProcPtr; /* If a procedure is being compiled, a pointer - * to its Proc structure; otherwise, this is - * NULL. Set by ObjInterpProc in tclProc.c and - * used by tclCompile.c to process local - * variables appropriately. */ - ResolverScheme *resolverPtr; - /* Linked list of name resolution schemes - * added to this interpreter. Schemes are - * added and removed by calling - * Tcl_AddInterpResolvers and - * Tcl_RemoveInterpResolver respectively. */ - Tcl_Obj *scriptFile; /* NULL means there is no nested source - * command active; otherwise this points to - * pathPtr of the file being sourced. */ - int flags; /* Various flag bits. See below. */ - long randSeed; /* Seed used for rand() function. */ - Trace *tracePtr; /* List of traces for this interpreter. */ - Tcl_HashTable *assocData; /* Hash table for associating data with this - * interpreter. Cleaned up when this - * interpreter is deleted. */ - struct ExecEnv *execEnvPtr; /* Execution environment for Tcl bytecode - * execution. Contains a pointer to the Tcl - * evaluation stack. */ - Tcl_Obj *emptyObjPtr; /* Points to an object holding an empty - * string. Returned by Tcl_ObjSetVar2 when - * variable traces change a variable in a - * gross way. */ - char resultSpace[TCL_RESULT_SIZE+1]; - /* Static space holding small results. */ - Tcl_Obj *objResultPtr; /* If the last command returned an object - * result, this points to it. Should not be - * accessed directly; see comment above. */ - Tcl_ThreadId threadId; /* ID of thread that owns the interpreter. */ - - ActiveCommandTrace *activeCmdTracePtr; - /* First in list of active command traces for - * interp, or NULL if no active traces. */ - ActiveInterpTrace *activeInterpTracePtr; - /* First in list of active traces for interp, - * or NULL if no active traces. */ - - int tracesForbiddingInline; /* Count of traces (in the list headed by - * tracePtr) that forbid inline bytecode - * compilation. */ - - /* - * Fields used to manage extensible return options (TIP 90). - */ - - Tcl_Obj *returnOpts; /* A dictionary holding the options to the - * last [return] command. */ - - Tcl_Obj *errorInfo; /* errorInfo value (now as a Tcl_Obj). */ - Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable. */ - Tcl_Obj *errorCode; /* errorCode value (now as a Tcl_Obj). */ - Tcl_Obj *ecVar; /* cached ref to ::errorInfo variable. */ - int returnLevel; /* [return -level] parameter. */ - - /* - * Resource limiting framework support (TIP#143). - */ - - struct { - int active; /* Flag values defining which limits have been - * set. */ - int granularityTicker; /* Counter used to determine how often to - * check the limits. */ - int exceeded; /* Which limits have been exceeded, described - * as flag values the same as the 'active' - * field. */ - - int cmdCount; /* Limit for how many commands to execute in - * the interpreter. */ - LimitHandler *cmdHandlers; - /* Handlers to execute when the limit is - * reached. */ - int cmdGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - - Tcl_Time time; /* Time limit for execution within the - * interpreter. */ - LimitHandler *timeHandlers; - /* Handlers to execute when the limit is - * reached. */ - int timeGranularity; /* Mod factor used to determine how often to - * evaluate the limit check. */ - Tcl_TimerToken timeEvent; - /* Handle for a timer callback that will occur - * when the time-limit is exceeded. */ - - Tcl_HashTable callbacks;/* Mapping from (interp,type) pair to data - * used to install a limit handler callback to - * run in _this_ interp when the limit is - * exceeded. */ - } limit; - - /* - * Information for improved default error generation from ensembles - * (TIP#112). - */ - - struct { - Tcl_Obj *const *sourceObjs; - /* What arguments were actually input into the - * *root* ensemble command? (Nested ensembles - * don't rewrite this.) NULL if we're not - * processing an ensemble. */ - int numRemovedObjs; /* How many arguments have been stripped off - * because of ensemble processing. */ - int numInsertedObjs; /* How many of the current arguments were - * inserted by an ensemble. */ - } ensembleRewrite; - - /* - * TIP #219: Global info for the I/O system. - */ - - Tcl_Obj *chanMsg; /* Error message set by channel drivers, for - * the propagation of arbitrary Tcl errors. - * This information, if present (chanMsg not - * NULL), takes precedence over a POSIX error - * code returned by a channel operation. */ - - /* - * Source code origin information (TIP #280). - */ - - CmdFrame *cmdFramePtr; /* Points to the command frame containing the - * location information for the current - * command. */ - const CmdFrame *invokeCmdFramePtr; - /* Points to the command frame which is the - * invoking context of the bytecode compiler. - * NULL when the byte code compiler is not - * active. */ - int invokeWord; /* Index of the word in the command which - * is getting compiled. */ - Tcl_HashTable *linePBodyPtr;/* This table remembers for each statically - * defined procedure the location information - * for its body. It is keyed by the address of - * the Proc structure for a procedure. The - * values are "struct CmdFrame*". */ - Tcl_HashTable *lineBCPtr; /* This table remembers for each ByteCode - * object the location information for its - * body. It is keyed by the address of the - * Proc structure for a procedure. The values - * are "struct ExtCmdLoc*". (See - * tclCompile.h) */ - Tcl_HashTable *lineLABCPtr; - Tcl_HashTable *lineLAPtr; /* This table remembers for each argument of a - * command on the execution stack the index of - * the argument in the command, and the - * location data of the command. It is keyed - * by the address of the Tcl_Obj containing - * the argument. The values are "struct - * CFWord*" (See tclBasic.c). This allows - * commands like uplevel, eval, etc. to find - * location information for their arguments, - * if they are a proper literal argument to an - * invoking command. Alt view: An index to the - * CmdFrame stack keyed by command argument - * holders. */ - ContLineLoc *scriptCLLocPtr;/* This table points to the location data for - * invisible continuation lines in the script, - * if any. This pointer is set by the function - * TclEvalObjEx() in file "tclBasic.c", and - * used by function ...() in the same file. - * It does for the eval/direct path of script - * execution what CompileEnv.clLoc does for - * the bytecode compiler. - */ - /* - * TIP #268. The currently active selection mode, i.e. the package require - * preferences. - */ - - int packagePrefer; /* Current package selection mode. */ - - /* - * Hashtables for variable traces and searches. - */ - - Tcl_HashTable varTraces; /* Hashtable holding the start of a variable's - * active trace list; varPtr is the key. */ - Tcl_HashTable varSearches; /* Hashtable holding the start of a variable's - * active searches list; varPtr is the key. */ - /* - * The thread-specific data ekeko: cache pointers or values that - * (a) do not change during the thread's lifetime - * (b) require access to TSD to determine at runtime - * (c) are accessed very often (e.g., at each command call) - * - * Note that these are the same for all interps in the same thread. They - * just have to be initialised for the thread's master interp, slaves - * inherit the value. - * - * They are used by the macros defined below. - */ - - AllocCache *allocCache; - void *pendingObjDataPtr; /* Pointer to the Cache and PendingObjData - * structs for this interp's thread; see - * tclObj.c and tclThreadAlloc.c */ - int *asyncReadyPtr; /* Pointer to the asyncReady indicator for - * this interp's thread; see tclAsync.c */ - /* - * The pointer to the object system root ekeko. c.f. TIP #257. - */ - void *objectFoundation; /* Pointer to the Foundation structure of the - * object system, which contains things like - * references to key namespaces. See - * tclOOInt.h and tclOO.c for real definition - * and setup. */ - - struct NRE_callback *deferredCallbacks; - /* Callbacks that are set previous to a call - * to some Eval function but that actually - * belong to the command that is about to be - * called - i.e., they should be run *before* - * any tailcall is invoked. */ - - /* - * TIP #285, Script cancellation support. - */ - - Tcl_AsyncHandler asyncCancel; - /* Async handler token for Tcl_CancelEval. */ - Tcl_Obj *asyncCancelMsg; /* Error message set by async cancel handler - * for the propagation of arbitrary Tcl - * errors. This information, if present - * (asyncCancelMsg not NULL), takes precedence - * over the default error messages returned by - * a script cancellation operation. */ - - /* - * TIP #348 IMPLEMENTATION - Substituted error stack - */ - Tcl_Obj *errorStack; /* [info errorstack] value (as a Tcl_Obj). */ - Tcl_Obj *upLiteral; /* "UP" literal for [info errorstack] */ - Tcl_Obj *callLiteral; /* "CALL" literal for [info errorstack] */ - Tcl_Obj *innerLiteral; /* "INNER" literal for [info errorstack] */ - Tcl_Obj *innerContext; /* cached list for fast reallocation */ - int resetErrorStack; /* controls cleaning up of ::errorStack */ - -#ifdef TCL_COMPILE_STATS - /* - * Statistical information about the bytecode compiler and interpreter's - * operation. This should be the last field of Interp. - */ - - ByteCodeStats stats; /* Holds compilation and execution statistics - * for this interpreter. */ -#endif /* TCL_COMPILE_STATS */ -} Interp; - -/* - * Macros that use the TSD-ekeko. - */ - -#define TclAsyncReady(iPtr) \ - *((iPtr)->asyncReadyPtr) - -/* - * Macros for script cancellation support (TIP #285). - */ - -#define TclCanceled(iPtr) \ - (((iPtr)->flags & CANCELED) || ((iPtr)->flags & TCL_CANCEL_UNWIND)) - -#define TclSetCancelFlags(iPtr, cancelFlags) \ - (iPtr)->flags |= CANCELED; \ - if ((cancelFlags) & TCL_CANCEL_UNWIND) { \ - (iPtr)->flags |= TCL_CANCEL_UNWIND; \ - } - -#define TclUnsetCancelFlags(iPtr) \ - (iPtr)->flags &= (~(CANCELED | TCL_CANCEL_UNWIND)) - -/* - * Macros for splicing into and out of doubly linked lists. They assume - * existence of struct items 'prevPtr' and 'nextPtr'. - * - * a = element to add or remove. - * b = list head. - * - * TclSpliceIn adds to the head of the list. - */ - -#define TclSpliceIn(a,b) \ - (a)->nextPtr = (b); \ - if ((b) != NULL) { \ - (b)->prevPtr = (a); \ - } \ - (a)->prevPtr = NULL, (b) = (a); - -#define TclSpliceOut(a,b) \ - if ((a)->prevPtr != NULL) { \ - (a)->prevPtr->nextPtr = (a)->nextPtr; \ - } else { \ - (b) = (a)->nextPtr; \ - } \ - if ((a)->nextPtr != NULL) { \ - (a)->nextPtr->prevPtr = (a)->prevPtr; \ - } - -/* - * EvalFlag bits for Interp structures: - * - * TCL_ALLOW_EXCEPTIONS 1 means it's OK for the script to terminate with a - * code other than TCL_OK or TCL_ERROR; 0 means codes - * other than these should be turned into errors. - */ - -#define TCL_ALLOW_EXCEPTIONS 0x04 -#define TCL_EVAL_FILE 0x02 -#define TCL_EVAL_SOURCE_IN_FRAME 0x10 -#define TCL_EVAL_NORESOLVE 0x20 -#define TCL_EVAL_DISCARD_RESULT 0x40 - -/* - * Flag bits for Interp structures: - * - * DELETED: Non-zero means the interpreter has been deleted: - * don't process any more commands for it, and destroy - * the structure as soon as all nested invocations of - * Tcl_Eval are done. - * ERR_ALREADY_LOGGED: Non-zero means information has already been logged in - * iPtr->errorInfo for the current Tcl_Eval instance, so - * Tcl_Eval needn't log it (used to implement the "error - * message log" command). - * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler should - * not compile any commands into an inline sequence of - * instructions. This is set 1, for example, when command - * traces are requested. - * RAND_SEED_INITIALIZED: Non-zero means that the randSeed value of the interp - * has not be initialized. This is set 1 when we first - * use the rand() or srand() functions. - * SAFE_INTERP: Non zero means that the current interp is a safe - * interp (i.e. it has only the safe commands installed, - * less privilege than a regular interp). - * INTERP_DEBUG_FRAME: Used for switching on various extra interpreter - * debug/info mechanisms (e.g. info frame eval/uplevel - * tracing) which are performance intensive. - * INTERP_TRACE_IN_PROGRESS: Non-zero means that an interp trace is currently - * active; so no further trace callbacks should be - * invoked. - * INTERP_ALTERNATE_WRONG_ARGS: Used for listing second and subsequent forms - * of the wrong-num-args string in Tcl_WrongNumArgs. - * Makes it append instead of replacing and uses - * different intermediate text. - * CANCELED: Non-zero means that the script in progress should be - * canceled as soon as possible. This can be checked by - * extensions (and the core itself) by calling - * Tcl_Canceled and checking if TCL_ERROR is returned. - * This is a one-shot flag that is reset immediately upon - * being detected; however, if the TCL_CANCEL_UNWIND flag - * is set Tcl_Canceled will continue to report that the - * script in progress has been canceled thereby allowing - * the evaluation stack for the interp to be fully - * unwound. - * - * WARNING: For the sake of some extensions that have made use of former - * internal values, do not re-use the flag values 2 (formerly ERR_IN_PROGRESS) - * or 8 (formerly ERROR_CODE_SET). - */ - -#define DELETED 1 -#define ERR_ALREADY_LOGGED 4 -#define INTERP_DEBUG_FRAME 0x10 -#define DONT_COMPILE_CMDS_INLINE 0x20 -#define RAND_SEED_INITIALIZED 0x40 -#define SAFE_INTERP 0x80 -#define INTERP_TRACE_IN_PROGRESS 0x200 -#define INTERP_ALTERNATE_WRONG_ARGS 0x400 -#define ERR_LEGACY_COPY 0x800 -#define CANCELED 0x1000 - -/* - * Maximum number of levels of nesting permitted in Tcl commands (used to - * catch infinite recursion). - */ - -#define MAX_NESTING_DEPTH 1000 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace. - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * This macro is used to properly align the memory allocated by Tcl, giving - * the same alignment as the native malloc. - */ - -#if defined(__APPLE__) -#define TCL_ALLOCALIGN 16 -#else -#define TCL_ALLOCALIGN (2*sizeof(void *)) -#endif - -/* - * This macro is used to determine the offset needed to safely allocate any - * data structure in memory. Given a starting offset or size, it "rounds up" - * or "aligns" the offset to the next 8-byte boundary so that any data - * structure can be placed at the resulting offset without fear of an - * alignment error. - * - * WARNING!! DO NOT USE THIS MACRO TO ALIGN POINTERS: it will produce the - * wrong result on platforms that allocate addresses that are divisible by 4 - * or 2. Only use it for offsets or sizes. - * - * This macro is only used by tclCompile.c in the core (Bug 926445). It - * however not be made file static, as extensions that touch bytecodes - * (notably tbcload) require it. - */ - -#define TCL_ALIGN(x) (((int)(x) + 7) & ~7) - -/* - * The following enum values are used to specify the runtime platform setting - * of the tclPlatform variable. - */ - -typedef enum { - TCL_PLATFORM_UNIX = 0, /* Any Unix-like OS. */ - TCL_PLATFORM_WINDOWS = 2 /* Any Microsoft Windows OS. */ -} TclPlatformType; - -/* - * The following enum values are used to indicate the translation of a Tcl - * channel. Declared here so that each platform can define - * TCL_PLATFORM_TRANSLATION to the native translation on that platform. - */ - -typedef enum TclEolTranslation { - TCL_TRANSLATE_AUTO, /* Eol == \r, \n and \r\n. */ - TCL_TRANSLATE_CR, /* Eol == \r. */ - TCL_TRANSLATE_LF, /* Eol == \n. */ - TCL_TRANSLATE_CRLF /* Eol == \r\n. */ -} TclEolTranslation; - -/* - * Flags for TclInvoke: - * - * TCL_INVOKE_HIDDEN Invoke a hidden command; if not set, invokes - * an exposed command. - * TCL_INVOKE_NO_UNKNOWN If set, "unknown" is not invoked if the - * command to be invoked is not found. Only has - * an effect if invoking an exposed command, - * i.e. if TCL_INVOKE_HIDDEN is not also set. - * TCL_INVOKE_NO_TRACEBACK Does not record traceback information if the - * invoked command returns an error. Used if the - * caller plans on recording its own traceback - * information. - */ - -#define TCL_INVOKE_HIDDEN (1<<0) -#define TCL_INVOKE_NO_UNKNOWN (1<<1) -#define TCL_INVOKE_NO_TRACEBACK (1<<2) - -/* - * The structure used as the internal representation of Tcl list objects. This - * struct is grown (reallocated and copied) as necessary to hold all the - * list's element pointers. The struct might contain more slots than currently - * used to hold all element pointers. This is done to make append operations - * faster. - */ - -typedef struct List { - int refCount; - int maxElemCount; /* Total number of element array slots. */ - int elemCount; /* Current number of list elements. */ - int canonicalFlag; /* Set if the string representation was - * derived from the list representation. May - * be ignored if there is no string rep at - * all.*/ - Tcl_Obj *elements; /* First list element; the struct is grown to - * accommodate all elements. */ -} List; - -#define LIST_MAX \ - (1 + (int)(((size_t)UINT_MAX - sizeof(List))/sizeof(Tcl_Obj *))) -#define LIST_SIZE(numElems) \ - (unsigned)(sizeof(List) + (((numElems) - 1) * sizeof(Tcl_Obj *))) - -/* - * Macro used to get the elements of a list object. - */ - -#define ListRepPtr(listPtr) \ - ((List *) (listPtr)->internalRep.twoPtrValue.ptr1) - -#define ListSetIntRep(objPtr, listRepPtr) \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *)(listRepPtr), \ - (objPtr)->internalRep.twoPtrValue.ptr2 = NULL, \ - (listRepPtr)->refCount++, \ - (objPtr)->typePtr = &tclListType - -#define ListObjGetElements(listPtr, objc, objv) \ - ((objv) = &(ListRepPtr(listPtr)->elements), \ - (objc) = ListRepPtr(listPtr)->elemCount) - -#define ListObjLength(listPtr, len) \ - ((len) = ListRepPtr(listPtr)->elemCount) - -#define ListObjIsCanonical(listPtr) \ - (((listPtr)->bytes == NULL) || ListRepPtr(listPtr)->canonicalFlag) - -#define TclListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjGetElements((listPtr), *(objcPtr), *(objvPtr))), TCL_OK)\ - : Tcl_ListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr))) - -#define TclListObjLength(interp, listPtr, lenPtr) \ - (((listPtr)->typePtr == &tclListType) \ - ? ((ListObjLength((listPtr), *(lenPtr))), TCL_OK)\ - : Tcl_ListObjLength((interp), (listPtr), (lenPtr))) - -#define TclListObjIsCanonical(listPtr) \ - (((listPtr)->typePtr == &tclListType) ? ListObjIsCanonical((listPtr)) : 0) - -/* - * Modes for collecting (or not) in the implementations of TclNRForeachCmd, - * TclNRLmapCmd and their compilations. - */ - -#define TCL_EACH_KEEP_NONE 0 /* Discard iteration result like [foreach] */ -#define TCL_EACH_COLLECT 1 /* Collect iteration result like [lmap] */ - -/* - * Macros providing a faster path to integers: Tcl_GetLongFromObj, - * Tcl_GetIntFromObj and TclGetIntForIndex. - * - * WARNING: these macros eval their args more than once. - */ - -#define TclGetLongFromObj(interp, objPtr, longPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(longPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetLongFromObj((interp), (objPtr), (longPtr))) - -#if (LONG_MAX == INT_MAX) -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(intPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetIntFromObj((interp), (objPtr), (intPtr))) -#define TclGetIntForIndexM(interp, objPtr, endValue, idxPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? ((*(idxPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : TclGetIntForIndex((interp), (objPtr), (endValue), (idxPtr))) -#else -#define TclGetIntFromObj(interp, objPtr, intPtr) \ - (((objPtr)->typePtr == &tclIntType \ - && (objPtr)->internalRep.longValue >= -(Tcl_WideInt)(UINT_MAX) \ - && (objPtr)->internalRep.longValue <= (Tcl_WideInt)(UINT_MAX)) \ - ? ((*(intPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : Tcl_GetIntFromObj((interp), (objPtr), (intPtr))) -#define TclGetIntForIndexM(interp, objPtr, endValue, idxPtr) \ - (((objPtr)->typePtr == &tclIntType \ - && (objPtr)->internalRep.longValue >= INT_MIN \ - && (objPtr)->internalRep.longValue <= INT_MAX) \ - ? ((*(idxPtr) = (objPtr)->internalRep.longValue), TCL_OK) \ - : TclGetIntForIndex((interp), (objPtr), (endValue), (idxPtr))) -#endif - -/* - * Macro used to save a function call for common uses of - * Tcl_GetWideIntFromObj(). The ANSI C "prototype" is: - * - * MODULE_SCOPE int TclGetWideIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - * Tcl_WideInt *wideIntPtr); - */ - -#ifdef TCL_WIDE_INT_IS_LONG -#define TclGetWideIntFromObj(interp, objPtr, wideIntPtr) \ - (((objPtr)->typePtr == &tclIntType) \ - ? (*(wideIntPtr) = (Tcl_WideInt) \ - ((objPtr)->internalRep.longValue), TCL_OK) : \ - Tcl_GetWideIntFromObj((interp), (objPtr), (wideIntPtr))) -#else /* !TCL_WIDE_INT_IS_LONG */ -#define TclGetWideIntFromObj(interp, objPtr, wideIntPtr) \ - (((objPtr)->typePtr == &tclWideIntType) \ - ? (*(wideIntPtr) = (objPtr)->internalRep.wideValue, TCL_OK) : \ - ((objPtr)->typePtr == &tclIntType) \ - ? (*(wideIntPtr) = (Tcl_WideInt) \ - ((objPtr)->internalRep.longValue), TCL_OK) : \ - Tcl_GetWideIntFromObj((interp), (objPtr), (wideIntPtr))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -/* - * Flag values for TclTraceDictPath(). - * - * DICT_PATH_READ indicates that all entries on the path must exist but no - * updates will be needed. - * - * DICT_PATH_UPDATE indicates that we are going to be doing an update at the - * tip of the path, so duplication of shared objects should be done along the - * way. - * - * DICT_PATH_EXISTS indicates that we are performing an existence test and a - * lookup failure should therefore not be an error. If (and only if) this flag - * is set, TclTraceDictPath() will return the special value - * DICT_PATH_NON_EXISTENT if the path is not traceable. - * - * DICT_PATH_CREATE (which also requires the DICT_PATH_UPDATE bit to be set) - * indicates that we are to create non-existent dictionaries on the path. - */ - -#define DICT_PATH_READ 0 -#define DICT_PATH_UPDATE 1 -#define DICT_PATH_EXISTS 2 -#define DICT_PATH_CREATE 5 - -#define DICT_PATH_NON_EXISTENT ((Tcl_Obj *) (void *) 1) - -/* - *---------------------------------------------------------------- - * Data structures related to the filesystem internals - *---------------------------------------------------------------- - */ - -/* - * The version_2 filesystem is private to Tcl. As and when these changes have - * been thoroughly tested and investigated a new public filesystem interface - * will be released. The aim is more versatile virtual filesystem interfaces, - * more efficiency in 'path' manipulation and usage, and cleaner filesystem - * code internally. - */ - -#define TCL_FILESYSTEM_VERSION_2 ((Tcl_FSVersion) 0x2) -typedef ClientData (TclFSGetCwdProc2)(ClientData clientData); -typedef int (Tcl_FSLoadFileProc2) (Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr, int flags); - -/* - * The following types are used for getting and storing platform-specific file - * attributes in tclFCmd.c and the various platform-versions of that file. - * This is done to have as much common code as possible in the file attributes - * code. For more information about the callbacks, see TclFileAttrsCmd in - * tclFCmd.c. - */ - -typedef int (TclGetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj **attrObjPtrPtr); -typedef int (TclSetFileAttrProc)(Tcl_Interp *interp, int objIndex, - Tcl_Obj *fileName, Tcl_Obj *attrObjPtr); - -typedef struct TclFileAttrProcs { - TclGetFileAttrProc *getProc;/* The procedure for getting attrs. */ - TclSetFileAttrProc *setProc;/* The procedure for setting attrs. */ -} TclFileAttrProcs; - -/* - * Opaque handle used in pipeline routines to encapsulate platform-dependent - * state. - */ - -typedef struct TclFile_ *TclFile; - -/* - * The "globParameters" argument of the function TclGlob is an or'ed - * combination of the following values: - */ - -#define TCL_GLOBMODE_NO_COMPLAIN 1 -#define TCL_GLOBMODE_JOIN 2 -#define TCL_GLOBMODE_DIR 4 -#define TCL_GLOBMODE_TAILS 8 - -typedef enum Tcl_PathPart { - TCL_PATH_DIRNAME, - TCL_PATH_TAIL, - TCL_PATH_EXTENSION, - TCL_PATH_ROOT -} Tcl_PathPart; - -/* - *---------------------------------------------------------------- - * Data structures related to obsolete filesystem hooks - *---------------------------------------------------------------- - */ - -typedef int (TclStatProc_)(const char *path, struct stat *buf); -typedef int (TclAccessProc_)(const char *path, int mode); -typedef Tcl_Channel (TclOpenFileChannelProc_)(Tcl_Interp *interp, - const char *fileName, const char *modeString, int permissions); - -/* - *---------------------------------------------------------------- - * Data structures related to procedures - *---------------------------------------------------------------- - */ - -typedef Tcl_CmdProc *TclCmdProcType; -typedef Tcl_ObjCmdProc *TclObjCmdProcType; - -/* - *---------------------------------------------------------------- - * Data structures for process-global values. - *---------------------------------------------------------------- - */ - -typedef void (TclInitProcessGlobalValueProc)(char **valuePtr, int *lengthPtr, - Tcl_Encoding *encodingPtr); - -/* - * A ProcessGlobalValue struct exists for each internal value in Tcl that is - * to be shared among several threads. Each thread sees a (Tcl_Obj) copy of - * the value, and the master is kept as a counted string, with epoch and mutex - * control. Each ProcessGlobalValue struct should be a static variable in some - * file. - */ - -typedef struct ProcessGlobalValue { - int epoch; /* Epoch counter to detect changes in the - * master value. */ - int numBytes; /* Length of the master string. */ - char *value; /* The master string value. */ - Tcl_Encoding encoding; /* system encoding when master string was - * initialized. */ - TclInitProcessGlobalValueProc *proc; - /* A procedure to initialize the master string - * copy when a "get" request comes in before - * any "set" request has been received. */ - Tcl_Mutex mutex; /* Enforce orderly access from multiple - * threads. */ - Tcl_ThreadDataKey key; /* Key for per-thread data holding the - * (Tcl_Obj) copy for each thread. */ -} ProcessGlobalValue; - -/* - *---------------------------------------------------------------------- - * Flags for TclParseNumber - *---------------------------------------------------------------------- - */ - -#define TCL_PARSE_DECIMAL_ONLY 1 - /* Leading zero doesn't denote octal or - * hex. */ -#define TCL_PARSE_OCTAL_ONLY 2 - /* Parse octal even without prefix. */ -#define TCL_PARSE_HEXADECIMAL_ONLY 4 - /* Parse hexadecimal even without prefix. */ -#define TCL_PARSE_INTEGER_ONLY 8 - /* Disable floating point parsing. */ -#define TCL_PARSE_SCAN_PREFIXES 16 - /* Use [scan] rules dealing with 0? - * prefixes. */ -#define TCL_PARSE_NO_WHITESPACE 32 - /* Reject leading/trailing whitespace. */ -#define TCL_PARSE_BINARY_ONLY 64 - /* Parse binary even without prefix. */ - -/* - *---------------------------------------------------------------------- - * Type values TclGetNumberFromObj - *---------------------------------------------------------------------- - */ - -#define TCL_NUMBER_LONG 1 -#define TCL_NUMBER_WIDE 2 -#define TCL_NUMBER_BIG 3 -#define TCL_NUMBER_DOUBLE 4 -#define TCL_NUMBER_NAN 5 - -/* - *---------------------------------------------------------------- - * Variables shared among Tcl modules but not used by the outside world. - *---------------------------------------------------------------- - */ - -MODULE_SCOPE char *tclNativeExecutableName; -MODULE_SCOPE int tclFindExecutableSearchDone; -MODULE_SCOPE char *tclMemDumpFileName; -MODULE_SCOPE TclPlatformType tclPlatform; -MODULE_SCOPE Tcl_NotifierProcs tclNotifierHooks; - -MODULE_SCOPE Tcl_Encoding tclIdentityEncoding; - -/* - * TIP #233 (Virtualized Time) - * Data for the time hooks, if any. - */ - -MODULE_SCOPE Tcl_GetTimeProc *tclGetTimeProcPtr; -MODULE_SCOPE Tcl_ScaleTimeProc *tclScaleTimeProcPtr; -MODULE_SCOPE ClientData tclTimeClientData; - -/* - * Variables denoting the Tcl object types defined in the core. - */ - -MODULE_SCOPE const Tcl_ObjType tclBignumType; -MODULE_SCOPE const Tcl_ObjType tclBooleanType; -MODULE_SCOPE const Tcl_ObjType tclByteArrayType; -MODULE_SCOPE const Tcl_ObjType tclByteCodeType; -MODULE_SCOPE const Tcl_ObjType tclDoubleType; -MODULE_SCOPE const Tcl_ObjType tclEndOffsetType; -MODULE_SCOPE const Tcl_ObjType tclIntType; -MODULE_SCOPE const Tcl_ObjType tclListType; -MODULE_SCOPE const Tcl_ObjType tclDictType; -MODULE_SCOPE const Tcl_ObjType tclProcBodyType; -MODULE_SCOPE const Tcl_ObjType tclStringType; -MODULE_SCOPE const Tcl_ObjType tclArraySearchType; -MODULE_SCOPE const Tcl_ObjType tclEnsembleCmdType; -#ifndef TCL_WIDE_INT_IS_LONG -MODULE_SCOPE const Tcl_ObjType tclWideIntType; -#endif -MODULE_SCOPE const Tcl_ObjType tclRegexpType; -MODULE_SCOPE Tcl_ObjType tclCmdNameType; - -/* - * Variables denoting the hash key types defined in the core. - */ - -MODULE_SCOPE const Tcl_HashKeyType tclArrayHashKeyType; -MODULE_SCOPE const Tcl_HashKeyType tclOneWordHashKeyType; -MODULE_SCOPE const Tcl_HashKeyType tclStringHashKeyType; -MODULE_SCOPE const Tcl_HashKeyType tclObjHashKeyType; - -/* - * The head of the list of free Tcl objects, and the total number of Tcl - * objects ever allocated and freed. - */ - -MODULE_SCOPE Tcl_Obj * tclFreeObjList; - -#ifdef TCL_COMPILE_STATS -MODULE_SCOPE long tclObjsAlloced; -MODULE_SCOPE long tclObjsFreed; -#define TCL_MAX_SHARED_OBJ_STATS 5 -MODULE_SCOPE long tclObjsShared[TCL_MAX_SHARED_OBJ_STATS]; -#endif /* TCL_COMPILE_STATS */ - -/* - * Pointer to a heap-allocated string of length zero that the Tcl core uses as - * the value of an empty string representation for an object. This value is - * shared by all new objects allocated by Tcl_NewObj. - */ - -MODULE_SCOPE char * tclEmptyStringRep; -MODULE_SCOPE char tclEmptyString; - -enum CheckEmptyStringResult { - TCL_EMPTYSTRING_UNKNOWN = -1, TCL_EMPTYSTRING_NO, TCL_EMPTYSTRING_YES -}; - -/* - *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside world, - * introduced by/for NRE. - *---------------------------------------------------------------- - */ - -MODULE_SCOPE Tcl_ObjCmdProc TclNRApplyObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNREvalObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRCatchObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRExprObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRForObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRForeachCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRIfObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRLmapCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRPackageObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRSourceObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRSubstObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRSwitchObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRTryObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRUplevelObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRWhileObjCmd; - -MODULE_SCOPE Tcl_NRPostProc TclNRForIterCallback; -MODULE_SCOPE Tcl_NRPostProc TclNRCoroutineActivateCallback; -MODULE_SCOPE Tcl_ObjCmdProc TclNRTailcallObjCmd; -MODULE_SCOPE Tcl_NRPostProc TclNRTailcallEval; -MODULE_SCOPE Tcl_ObjCmdProc TclNRCoroutineObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldmObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldToObjCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclNRInvoke; -MODULE_SCOPE Tcl_NRPostProc TclNRReleaseValues; - -MODULE_SCOPE void TclSetTailcall(Tcl_Interp *interp, Tcl_Obj *tailcallPtr); -MODULE_SCOPE void TclPushTailcallPoint(Tcl_Interp *interp); - -/* These two can be considered for the public api */ -MODULE_SCOPE void TclMarkTailcall(Tcl_Interp *interp); -MODULE_SCOPE void TclSkipTailcall(Tcl_Interp *interp); - -/* - * This structure holds the data for the various iteration callbacks used to - * NRE the 'for' and 'while' commands. We need a separate structure because we - * have more than the 4 client data entries we can provide directly thorugh - * the callback API. It is the 'word' information which puts us over the - * limit. It is needed because the loop body is argument 4 of 'for' and - * argument 2 of 'while'. Not providing the correct index confuses the #280 - * code. We TclSmallAlloc/Free this. - */ - -typedef struct ForIterData { - Tcl_Obj *cond; /* Loop condition expression. */ - Tcl_Obj *body; /* Loop body. */ - Tcl_Obj *next; /* Loop step script, NULL for 'while'. */ - const char *msg; /* Error message part. */ - int word; /* Index of the body script in the command */ -} ForIterData; - -/* TIP #357 - Structure doing the bookkeeping of handles for Tcl_LoadFile - * and Tcl_FindSymbol. This structure corresponds to an opaque - * typedef in tcl.h */ - -typedef void* TclFindSymbolProc(Tcl_Interp* interp, Tcl_LoadHandle loadHandle, - const char* symbol); -struct Tcl_LoadHandle_ { - ClientData clientData; /* Client data is the load handle in the - * native filesystem if a module was loaded - * there, or an opaque pointer to a structure - * for further bookkeeping on load-from-VFS - * and load-from-memory */ - TclFindSymbolProc* findSymbolProcPtr; - /* Procedure that resolves symbols in a - * loaded module */ - Tcl_FSUnloadFileProc* unloadFileProcPtr; - /* Procedure that unloads a loaded module */ -}; - -/* Flags for conversion of doubles to digit strings */ - -#define TCL_DD_SHORTEST 0x4 - /* Use the shortest possible string */ -#define TCL_DD_STEELE 0x5 - /* Use the original Steele&White algorithm */ -#define TCL_DD_E_FORMAT 0x2 - /* Use a fixed-length string of digits, - * suitable for E format*/ -#define TCL_DD_F_FORMAT 0x3 - /* Use a fixed number of digits after the - * decimal point, suitable for F format */ - -#define TCL_DD_SHORTEN_FLAG 0x4 - /* Allow return of a shorter digit string - * if it converts losslessly */ -#define TCL_DD_NO_QUICK 0x8 - /* Debug flag: forbid quick FP conversion */ - -#define TCL_DD_CONVERSION_TYPE_MASK 0x3 - /* Mask to isolate the conversion type */ -#define TCL_DD_STEELE0 0x1 - /* 'Steele&White' after masking */ -#define TCL_DD_SHORTEST0 0x0 - /* 'Shortest possible' after masking */ - -/* - *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside world: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE void TclAppendBytesToByteArray(Tcl_Obj *objPtr, - const unsigned char *bytes, int len); -MODULE_SCOPE int TclNREvalCmd(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags); -MODULE_SCOPE void TclAdvanceContinuations(int *line, int **next, - int loc); -MODULE_SCOPE void TclAdvanceLines(int *line, const char *start, - const char *end); -MODULE_SCOPE void TclArgumentEnter(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc, CmdFrame *cf); -MODULE_SCOPE void TclArgumentRelease(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc); -MODULE_SCOPE void TclArgumentBCEnter(Tcl_Interp *interp, - Tcl_Obj *objv[], int objc, - void *codePtr, CmdFrame *cfPtr, int cmd, int pc); -MODULE_SCOPE void TclArgumentBCRelease(Tcl_Interp *interp, - CmdFrame *cfPtr); -MODULE_SCOPE void TclArgumentGet(Tcl_Interp *interp, Tcl_Obj *obj, - CmdFrame **cfPtrPtr, int *wordPtr); -MODULE_SCOPE double TclBignumToDouble(const mp_int *bignum); -MODULE_SCOPE int TclByteArrayMatch(const unsigned char *string, - int strLen, const unsigned char *pattern, - int ptnLen, int flags); -MODULE_SCOPE double TclCeil(const mp_int *a); -MODULE_SCOPE void TclChannelPreserve(Tcl_Channel chan); -MODULE_SCOPE void TclChannelRelease(Tcl_Channel chan); -MODULE_SCOPE int TclCheckArrayTraces(Tcl_Interp *interp, Var *varPtr, - Var *arrayPtr, Tcl_Obj *name, int index); -MODULE_SCOPE int TclCheckBadOctal(Tcl_Interp *interp, - const char *value); -MODULE_SCOPE int TclCheckEmptyString(Tcl_Obj *objPtr); -MODULE_SCOPE int TclChanCaughtErrorBypass(Tcl_Interp *interp, - Tcl_Channel chan); -MODULE_SCOPE Tcl_ObjCmdProc TclChannelNamesCmd; -MODULE_SCOPE Tcl_NRPostProc TclClearRootEnsemble; -MODULE_SCOPE ContLineLoc *TclContinuationsEnter(Tcl_Obj *objPtr, int num, - int *loc); -MODULE_SCOPE void TclContinuationsEnterDerived(Tcl_Obj *objPtr, - int start, int *clNext); -MODULE_SCOPE ContLineLoc *TclContinuationsGet(Tcl_Obj *objPtr); -MODULE_SCOPE void TclContinuationsCopy(Tcl_Obj *objPtr, - Tcl_Obj *originObjPtr); -MODULE_SCOPE int TclConvertElement(const char *src, int length, - char *dst, int flags); -MODULE_SCOPE Tcl_Command TclCreateObjCommandInNs ( - Tcl_Interp *interp, - const char *cmdName, - Tcl_Namespace *nsPtr, - Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); -MODULE_SCOPE Tcl_Command TclCreateEnsembleInNs( - Tcl_Interp *interp, - const char *name, - Tcl_Namespace *nameNamespacePtr, - Tcl_Namespace *ensembleNamespacePtr, - int flags); -MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); -MODULE_SCOPE int TclFindDictElement(Tcl_Interp *interp, - const char *dict, int dictLength, - const char **elementPtr, const char **nextPtr, - int *sizePtr, int *literalPtr); -/* TIP #280 - Modified token based evulation, with line information. */ -MODULE_SCOPE int TclEvalEx(Tcl_Interp *interp, const char *script, - int numBytes, int flags, int line, - int *clNextOuter, const char *outerScript); -MODULE_SCOPE Tcl_ObjCmdProc TclFileAttrsCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileCopyCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileDeleteCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileLinkCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileMakeDirsCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileReadLinkCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileRenameCmd; -MODULE_SCOPE Tcl_ObjCmdProc TclFileTemporaryCmd; -MODULE_SCOPE void TclCreateLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TclDeleteLateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE char * TclDStringAppendObj(Tcl_DString *dsPtr, - Tcl_Obj *objPtr); -MODULE_SCOPE char * TclDStringAppendDString(Tcl_DString *dsPtr, - Tcl_DString *toAppendPtr); -MODULE_SCOPE Tcl_Obj * TclDStringToObj(Tcl_DString *dsPtr); -MODULE_SCOPE Tcl_Obj *const * TclFetchEnsembleRoot(Tcl_Interp *interp, - Tcl_Obj *const *objv, int objc, int *objcPtr); -MODULE_SCOPE Tcl_Namespace * TclEnsureNamespace( - Tcl_Interp *interp, - Tcl_Namespace *namespacePtr); - -MODULE_SCOPE void TclFinalizeAllocSubsystem(void); -MODULE_SCOPE void TclFinalizeAsync(void); -MODULE_SCOPE void TclFinalizeDoubleConversion(void); -MODULE_SCOPE void TclFinalizeEncodingSubsystem(void); -MODULE_SCOPE void TclFinalizeEnvironment(void); -MODULE_SCOPE void TclFinalizeEvaluation(void); -MODULE_SCOPE void TclFinalizeExecution(void); -MODULE_SCOPE void TclFinalizeIOSubsystem(void); -MODULE_SCOPE void TclFinalizeFilesystem(void); -MODULE_SCOPE void TclResetFilesystem(void); -MODULE_SCOPE void TclFinalizeLoad(void); -MODULE_SCOPE void TclFinalizeLock(void); -MODULE_SCOPE void TclFinalizeMemorySubsystem(void); -MODULE_SCOPE void TclFinalizeNotifier(void); -MODULE_SCOPE void TclFinalizeObjects(void); -MODULE_SCOPE void TclFinalizePreserve(void); -MODULE_SCOPE void TclFinalizeSynchronization(void); -MODULE_SCOPE void TclFinalizeThreadAlloc(void); -MODULE_SCOPE void TclFinalizeThreadAllocThread(void); -MODULE_SCOPE void TclFinalizeThreadData(int quick); -MODULE_SCOPE void TclFinalizeThreadObjects(void); -MODULE_SCOPE double TclFloor(const mp_int *a); -MODULE_SCOPE void TclFormatNaN(double value, char *buffer); -MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, - const char *attributeName, int *indexPtr); -MODULE_SCOPE Tcl_Command TclNRCreateCommandInNs ( - Tcl_Interp *interp, - const char *cmdName, - Tcl_Namespace *nsPtr, - Tcl_ObjCmdProc *proc, - Tcl_ObjCmdProc *nreProc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc); - -MODULE_SCOPE int TclNREvalFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - const char *encodingName); -MODULE_SCOPE void TclFSUnloadTempFile(Tcl_LoadHandle loadHandle); -MODULE_SCOPE int * TclGetAsyncReadyPtr(void); -MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler(Tcl_Interp *interp); -MODULE_SCOPE int TclGetChannelFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Channel *chanPtr, - int *modePtr, int flags); -MODULE_SCOPE CmdFrame * TclGetCmdFrameForProcedure(Proc *procPtr); -MODULE_SCOPE int TclGetCompletionCodeFromObj(Tcl_Interp *interp, - Tcl_Obj *value, int *code); -MODULE_SCOPE int TclGetNumberFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, ClientData *clientDataPtr, - int *typePtr); -MODULE_SCOPE int TclGetOpenModeEx(Tcl_Interp *interp, - const char *modeString, int *seekFlagPtr, - int *binaryPtr); -MODULE_SCOPE Tcl_Obj * TclGetProcessGlobalValue(ProcessGlobalValue *pgvPtr); -MODULE_SCOPE Tcl_Obj * TclGetSourceFromFrame(CmdFrame *cfPtr, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE char * TclGetStringStorage(Tcl_Obj *objPtr, - unsigned int *sizePtr); -MODULE_SCOPE int TclGlob(Tcl_Interp *interp, char *pattern, - Tcl_Obj *unquotedPrefix, int globFlags, - Tcl_GlobTypeData *types); -MODULE_SCOPE int TclIncrObj(Tcl_Interp *interp, Tcl_Obj *valuePtr, - Tcl_Obj *incrPtr); -MODULE_SCOPE Tcl_Obj * TclIncrObjVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, int flags); -MODULE_SCOPE int TclInfoExistsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoCoroutineCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Obj * TclInfoFrame(Tcl_Interp *interp, CmdFrame *framePtr); -MODULE_SCOPE int TclInfoGlobalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoLocalsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclInfoVarsCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclInitAlloc(void); -MODULE_SCOPE void TclInitDbCkalloc(void); -MODULE_SCOPE void TclInitDoubleConversion(void); -MODULE_SCOPE void TclInitEmbeddedConfigurationInformation( - Tcl_Interp *interp); -MODULE_SCOPE void TclInitEncodingSubsystem(void); -MODULE_SCOPE void TclInitIOSubsystem(void); -MODULE_SCOPE void TclInitLimitSupport(Tcl_Interp *interp); -MODULE_SCOPE void TclInitNamespaceSubsystem(void); -MODULE_SCOPE void TclInitNotifier(void); -MODULE_SCOPE void TclInitObjSubsystem(void); -MODULE_SCOPE void TclInitSubsystems(void); -MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); -MODULE_SCOPE int TclIsSpaceProc(int byte); -MODULE_SCOPE int TclIsBareword(int byte); -MODULE_SCOPE Tcl_Obj * TclJoinPath(int elements, Tcl_Obj * const objv[], - int forceRelative); -MODULE_SCOPE int TclJoinThread(Tcl_ThreadId id, int *result); -MODULE_SCOPE void TclLimitRemoveAllHandlers(Tcl_Interp *interp); -MODULE_SCOPE Tcl_Obj * TclLindexList(Tcl_Interp *interp, - Tcl_Obj *listPtr, Tcl_Obj *argPtr); -MODULE_SCOPE Tcl_Obj * TclLindexFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[]); -/* TIP #280 */ -MODULE_SCOPE void TclListLines(Tcl_Obj *listObj, int line, int n, - int *lines, Tcl_Obj *const *elems); -MODULE_SCOPE Tcl_Obj * TclListObjCopy(Tcl_Interp *interp, Tcl_Obj *listPtr); -MODULE_SCOPE Tcl_Obj * TclLsetList(Tcl_Interp *interp, Tcl_Obj *listPtr, - Tcl_Obj *indexPtr, Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Obj * TclLsetFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, - int indexCount, Tcl_Obj *const indexArray[], - Tcl_Obj *valuePtr); -MODULE_SCOPE Tcl_Command TclMakeEnsemble(Tcl_Interp *interp, const char *name, - const EnsembleImplMap map[]); -MODULE_SCOPE int TclMaxListLength(const char *bytes, int numBytes, - const char **endPtr); -MODULE_SCOPE int TclMergeReturnOptions(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Tcl_Obj **optionsPtrPtr, - int *codePtr, int *levelPtr); -MODULE_SCOPE Tcl_Obj * TclNoErrorStack(Tcl_Interp *interp, Tcl_Obj *options); -MODULE_SCOPE int TclNokia770Doubles(void); -MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); -MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); -MODULE_SCOPE int TclNamespaceDeleted(Namespace *nsPtr); -MODULE_SCOPE void TclObjVarErrMsg(Tcl_Interp *interp, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const char *operation, - const char *reason, int index); -MODULE_SCOPE int TclObjInvokeNamespace(Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], - Tcl_Namespace *nsPtr, int flags); -MODULE_SCOPE int TclObjUnsetVar2(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); -MODULE_SCOPE int TclParseBackslash(const char *src, - int numBytes, int *readPtr, char *dst); -MODULE_SCOPE int TclParseHex(const char *src, int numBytes, - int *resultPtr); -MODULE_SCOPE int TclParseNumber(Tcl_Interp *interp, Tcl_Obj *objPtr, - const char *expected, const char *bytes, - int numBytes, const char **endPtrPtr, int flags); -MODULE_SCOPE void TclParseInit(Tcl_Interp *interp, const char *string, - int numBytes, Tcl_Parse *parsePtr); -MODULE_SCOPE int TclParseAllWhiteSpace(const char *src, int numBytes); -MODULE_SCOPE int TclProcessReturn(Tcl_Interp *interp, - int code, int level, Tcl_Obj *returnOpts); -MODULE_SCOPE int TclpObjLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -MODULE_SCOPE Tcl_Obj * TclpTempFileName(void); -MODULE_SCOPE Tcl_Obj * TclpTempFileNameForLibrary(Tcl_Interp *interp, Tcl_Obj* pathPtr); -MODULE_SCOPE Tcl_Obj * TclNewFSPathObj(Tcl_Obj *dirPtr, const char *addStrRep, - int len); -MODULE_SCOPE int TclpDeleteFile(const void *path); -MODULE_SCOPE void TclpFinalizeCondition(Tcl_Condition *condPtr); -MODULE_SCOPE void TclpFinalizeMutex(Tcl_Mutex *mutexPtr); -MODULE_SCOPE void TclpFinalizePipes(void); -MODULE_SCOPE void TclpFinalizeSockets(void); -MODULE_SCOPE int TclCreateSocketAddress(Tcl_Interp *interp, - struct addrinfo **addrlist, - const char *host, int port, int willBind, - const char **errorMsgPtr); -MODULE_SCOPE int TclpThreadCreate(Tcl_ThreadId *idPtr, - Tcl_ThreadCreateProc *proc, ClientData clientData, - int stackSize, int flags); -MODULE_SCOPE int TclpFindVariable(const char *name, int *lengthPtr); -MODULE_SCOPE void TclpInitLibraryPath(char **valuePtr, - int *lengthPtr, Tcl_Encoding *encodingPtr); -MODULE_SCOPE void TclpInitLock(void); -MODULE_SCOPE void TclpInitPlatform(void); -MODULE_SCOPE void TclpInitUnlock(void); -MODULE_SCOPE Tcl_Obj * TclpObjListVolumes(void); -MODULE_SCOPE void TclpMasterLock(void); -MODULE_SCOPE void TclpMasterUnlock(void); -MODULE_SCOPE int TclpMatchFiles(Tcl_Interp *interp, char *separators, - Tcl_DString *dirPtr, char *pattern, char *tail); -MODULE_SCOPE int TclpObjNormalizePath(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint); -MODULE_SCOPE void TclpNativeJoinPath(Tcl_Obj *prefix, const char *joining); -MODULE_SCOPE Tcl_Obj * TclpNativeSplitPath(Tcl_Obj *pathPtr, int *lenPtr); -MODULE_SCOPE Tcl_PathType TclpGetNativePathType(Tcl_Obj *pathPtr, - int *driveNameLengthPtr, Tcl_Obj **driveNameRef); -MODULE_SCOPE int TclCrossFilesystemCopy(Tcl_Interp *interp, - Tcl_Obj *source, Tcl_Obj *target); -MODULE_SCOPE int TclpMatchInDirectory(Tcl_Interp *interp, - Tcl_Obj *resultPtr, Tcl_Obj *pathPtr, - const char *pattern, Tcl_GlobTypeData *types); -MODULE_SCOPE ClientData TclpGetNativeCwd(ClientData clientData); -MODULE_SCOPE Tcl_FSDupInternalRepProc TclNativeDupInternalRep; -MODULE_SCOPE Tcl_Obj * TclpObjLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, - int linkType); -MODULE_SCOPE int TclpObjChdir(Tcl_Obj *pathPtr); -MODULE_SCOPE Tcl_Channel TclpOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -MODULE_SCOPE Tcl_Obj * TclPathPart(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_PathPart portion); -MODULE_SCOPE char * TclpReadlink(const char *fileName, - Tcl_DString *linkPtr); -MODULE_SCOPE void TclpSetInterfaces(void); -MODULE_SCOPE void TclpSetVariables(Tcl_Interp *interp); -MODULE_SCOPE void * TclThreadStorageKeyGet(Tcl_ThreadDataKey *keyPtr); -MODULE_SCOPE void TclThreadStorageKeySet(Tcl_ThreadDataKey *keyPtr, - void *data); -MODULE_SCOPE void TclpThreadExit(int status); -MODULE_SCOPE void TclRememberCondition(Tcl_Condition *mutex); -MODULE_SCOPE void TclRememberJoinableThread(Tcl_ThreadId id); -MODULE_SCOPE void TclRememberMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclRemoveScriptLimitCallbacks(Tcl_Interp *interp); -MODULE_SCOPE int TclReToGlob(Tcl_Interp *interp, const char *reStr, - int reStrLen, Tcl_DString *dsPtr, int *flagsPtr, - int *quantifiersFoundPtr); -MODULE_SCOPE int TclScanElement(const char *string, int length, - char *flagPtr); -MODULE_SCOPE void TclSetBgErrorHandler(Tcl_Interp *interp, - Tcl_Obj *cmdPrefix); -MODULE_SCOPE void TclSetBignumIntRep(Tcl_Obj *objPtr, - mp_int *bignumValue); -MODULE_SCOPE int TclSetBooleanFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); -MODULE_SCOPE void TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Command *cmdPtr); -MODULE_SCOPE void TclSetDuplicateObj(Tcl_Obj *dupPtr, Tcl_Obj *objPtr); -MODULE_SCOPE void TclSetProcessGlobalValue(ProcessGlobalValue *pgvPtr, - Tcl_Obj *newValue, Tcl_Encoding encoding); -MODULE_SCOPE void TclSignalExitThread(Tcl_ThreadId id, int result); -MODULE_SCOPE void TclSpellFix(Tcl_Interp *interp, - Tcl_Obj *const *objv, int objc, int subIdx, - Tcl_Obj *bad, Tcl_Obj *fix); -MODULE_SCOPE void * TclStackRealloc(Tcl_Interp *interp, void *ptr, - int numBytes); - -typedef int (*memCmpFn_t)(const void*, const void*, size_t); -MODULE_SCOPE int TclStringCmp (Tcl_Obj *value1Ptr, Tcl_Obj *value2Ptr, - int checkEq, int nocase, int reqlength); -MODULE_SCOPE int TclStringCmpOpts (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], - int *nocase, int *reqlength); -MODULE_SCOPE int TclStringMatch(const char *str, int strLen, - const char *pattern, int ptnLen, int flags); -MODULE_SCOPE int TclStringMatchObj(Tcl_Obj *stringObj, - Tcl_Obj *patternObj, int flags); -MODULE_SCOPE Tcl_Obj * TclStringObjReverse(Tcl_Obj *objPtr); -MODULE_SCOPE void TclSubstCompile(Tcl_Interp *interp, const char *bytes, - int numBytes, int flags, int line, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclSubstOptions(Tcl_Interp *interp, int numOpts, - Tcl_Obj *const opts[], int *flagPtr); -MODULE_SCOPE void TclSubstParse(Tcl_Interp *interp, const char *bytes, - int numBytes, int flags, Tcl_Parse *parsePtr, - Tcl_InterpState *statePtr); -MODULE_SCOPE int TclSubstTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr, - int count, int *tokensLeftPtr, int line, - int *clNextOuter, const char *outerScript); -MODULE_SCOPE int TclTrim(const char *bytes, int numBytes, - const char *trim, int numTrim, int *trimRight); -MODULE_SCOPE int TclTrimLeft(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE int TclTrimRight(const char *bytes, int numBytes, - const char *trim, int numTrim); -MODULE_SCOPE int TclUtfCasecmp(const char *cs, const char *ct); -MODULE_SCOPE Tcl_Obj * TclpNativeToNormalized(ClientData clientData); -MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); -MODULE_SCOPE int TclpDlopen(Tcl_Interp *interp, Tcl_Obj *pathPtr, - Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr, int flags); -MODULE_SCOPE int TclpUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); -#ifdef TCL_LOAD_FROM_MEMORY -MODULE_SCOPE void * TclpLoadMemoryGetBuffer(Tcl_Interp *interp, int size); -MODULE_SCOPE int TclpLoadMemory(Tcl_Interp *interp, void *buffer, - int size, int codeSize, Tcl_LoadHandle *loadHandle, - Tcl_FSUnloadFileProc **unloadProcPtr, int flags); -#endif -MODULE_SCOPE void TclInitThreadStorage(void); -MODULE_SCOPE void TclFinalizeThreadDataThread(void); -MODULE_SCOPE void TclFinalizeThreadStorage(void); - -/* TclWideMUInt -- wide integer used for measurement calculations: */ -#if (!defined(_WIN32) || !defined(_MSC_VER) || (_MSC_VER >= 1400)) -# define TclWideMUInt Tcl_WideUInt -#else -/* older MSVS may not allow conversions between unsigned __int64 and double) */ -# define TclWideMUInt Tcl_WideInt -#endif -#ifdef TCL_WIDE_CLICKS -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClicksToNanoseconds(Tcl_WideInt clicks); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -#else -# ifdef _WIN32 -# define TCL_WIDE_CLICKS 1 -MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); -MODULE_SCOPE double TclpWideClickInMicrosec(void); -# define TclpWideClicksToNanoseconds(clicks) \ - ((double)(clicks) * TclpWideClickInMicrosec() * 1000) -# endif -#endif -MODULE_SCOPE Tcl_WideInt TclpGetMicroseconds(void); - -MODULE_SCOPE int TclZlibInit(Tcl_Interp *interp); -MODULE_SCOPE void * TclpThreadCreateKey(void); -MODULE_SCOPE void TclpThreadDeleteKey(void *keyPtr); -MODULE_SCOPE void TclpThreadSetMasterTSD(void *tsdKeyPtr, void *ptr); -MODULE_SCOPE void * TclpThreadGetMasterTSD(void *tsdKeyPtr); - -MODULE_SCOPE void TclErrorStackResetIf(Tcl_Interp *interp, const char *msg, int length); - -/* - *---------------------------------------------------------------- - * Command procedures in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int Tcl_AfterObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_AppendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ApplyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitArrayCmd(Tcl_Interp *interp); -MODULE_SCOPE Tcl_Command TclInitBinaryCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_BreakObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CaseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CatchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitChanCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclChanCreateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPostEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPopObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPushObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TclClockInit(Tcl_Interp *interp); -MODULE_SCOPE int TclClockOldscanObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_CloseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ConcatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ContinueObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_TimerToken TclCreateAbsoluteTimerHandler( - Tcl_Time *timePtr, Tcl_TimerProc *proc, - ClientData clientData); -MODULE_SCOPE int TclDefaultBgErrorHandlerObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitDictCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclDictWithFinish(Tcl_Interp *interp, Var *varPtr, - Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, int index, int pathc, - Tcl_Obj *const pathv[], Tcl_Obj *keysPtr); -MODULE_SCOPE Tcl_Obj * TclDictWithInit(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int pathc, Tcl_Obj *const pathv[]); -MODULE_SCOPE int Tcl_DisassembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* Assemble command function */ -MODULE_SCOPE int Tcl_AssembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclNRAssembleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitEncodingCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclMakeEncodingCommandSafe(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_EofObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ErrorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_EvalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExecObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ExprObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FblockedObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FconfigureObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FcopyObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitFileCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclMakeFileCommandSafe(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_FileEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FlushObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ForeachObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_FormatObjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GetsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobalObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_GlobObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IfObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IncrObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitInfoCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_InterpObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_JoinObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LappendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LassignObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LindexObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LinsertObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LlengthObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ListObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LmapObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LoadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrangeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LrepeatObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreplaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LreverseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsearchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_LsortObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitNamespaceCmd(Tcl_Interp *interp); -MODULE_SCOPE int TclNamespaceEnsembleCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_OpenObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PackageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PidObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitPrefixCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_PutsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_PwdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegexpObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RegsubObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RenameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_RepresentationCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ReturnObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ScanObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SeekObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SplitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SocketObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SourceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE Tcl_Command TclInitStringCmd(Tcl_Interp *interp); -MODULE_SCOPE int Tcl_SubstObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_SwitchObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_ThrowObjCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TimeRateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TraceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_TryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnloadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UnsetObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_UpvarObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VariableObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_VwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_WhileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* - *---------------------------------------------------------------- - * Compilation procedures for commands in the generic core: - *---------------------------------------------------------------- - */ - -MODULE_SCOPE int TclCompileAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileArrayExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileArraySetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileArrayUnsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBreakCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileCatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileClockClicksCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileClockReadingCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileConcatCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileContinueCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictAppendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictCreateCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictGetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictMapCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictMergeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictUnsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictUpdateCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileDictWithCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEnsemble(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileErrorCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileExprCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileForeachCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileFormatCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGlobalCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIfCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoCommandsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoCoroutineCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoExistsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoLevelCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoObjectClassCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoObjectIsACmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileInfoObjectNamespaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIncrCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLappendCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLassignCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLindexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLinsertCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileListCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLlengthCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLmapCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLrangeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLreplaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceCodeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceCurrentCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceOriginCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceQualifiersCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceTailCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceUpvarCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNamespaceWhichCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileNoOp(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileObjectNextCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileObjectNextToCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileObjectSelfCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileRegexpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileRegsubCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileReturnCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringCatCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringCmpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringEqualCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringFirstCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringIndexCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringIsCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringLastCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringLenCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringMapCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringMatchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringRangeCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringReplaceCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringToLowerCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringToTitleCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringToUpperCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringTrimCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringTrimLCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStringTrimRCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSubstCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileSwitchCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileTailcallCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileThrowCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileTryCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileUnsetCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileUpvarCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileVariableCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileWhileCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileYieldCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileYieldToCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic0ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic1ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic3ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic0Or1ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic1Or2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic2Or3ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic0To2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasic1To3ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasicMin0ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasicMin1ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileBasicMin2ArgCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -MODULE_SCOPE int TclInvertOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInvertOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNotOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNotOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAddOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAddOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMulOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMulOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclAndOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileAndOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclOrOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileOrOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclXorOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileXorOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclPowOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompilePowOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclLshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileLshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclRshiftOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileRshiftOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclModOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileModOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNeqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclStrneqOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileStrneqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclInOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileInOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclNiOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileNiOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclMinusOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileMinusOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclDivOpCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int TclCompileDivOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLessOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileLeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGreaterOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileGeqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileEqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileStreqOpCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -MODULE_SCOPE int TclCompileAssembleCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); - -/* - * Functions defined in generic/tclVar.c and currently exported only for use - * by the bytecode compiler and engine. Some of these could later be placed in - * the public interface. - */ - -MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp, - Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags, - const char *msg, const int createPart1, - const int createPart2, Var **arrayPtrPtr); -MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp, - Tcl_Obj *arrayNamePtr, Tcl_Obj *elNamePtr, - const int flags, const char *msg, - const int createPart1, const int createPart2, - Var *arrayPtr, int index); -MODULE_SCOPE Tcl_Obj * TclPtrGetVarIdx(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrSetVarIdx(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags, int index); -MODULE_SCOPE Tcl_Obj * TclPtrIncrObjVarIdx(Tcl_Interp *interp, - Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags, int index); -MODULE_SCOPE int TclPtrObjMakeUpvarIdx(Tcl_Interp *interp, - Var *otherPtr, Tcl_Obj *myNamePtr, int myFlags, - int index); -MODULE_SCOPE int TclPtrUnsetVarIdx(Tcl_Interp *interp, Var *varPtr, - Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, - int index); -MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr); -MODULE_SCOPE void TclFindArrayPtrElements(Var *arrayPtr, - Tcl_HashTable *tablePtr); - -/* - * The new extended interface to the variable traces. - */ - -MODULE_SCOPE int TclObjCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, - int flags, int leaveErrMsg, int index); - -/* - * So tclObj.c and tclDictObj.c can share these implementations. - */ - -MODULE_SCOPE int TclCompareObjKeys(void *keyPtr, Tcl_HashEntry *hPtr); -MODULE_SCOPE void TclFreeObjEntry(Tcl_HashEntry *hPtr); -MODULE_SCOPE unsigned TclHashObjKey(Tcl_HashTable *tablePtr, void *keyPtr); - -MODULE_SCOPE int TclFullFinalizationRequested(void); - -/* - * Utility routines for encoding index values as integers. Used by both - * some of the command compilers and by [lsort] and [lsearch]. - */ - -MODULE_SCOPE int TclIndexEncode(Tcl_Interp *interp, Tcl_Obj *objPtr, - int before, int after, int *indexPtr); -MODULE_SCOPE int TclIndexDecode(int encoded, int endValue); - -MODULE_SCOPE void TclBN_s_mp_reverse(unsigned char *s, size_t len); - -/* Constants used in index value encoding routines. */ -#define TCL_INDEX_END (-2) -#define TCL_INDEX_BEFORE (-1) -#define TCL_INDEX_START (0) -#define TCL_INDEX_AFTER (INT_MAX) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and release Tcl objects. - * TclNewObj(objPtr) creates a new object denoting an empty string. - * TclDecrRefCount(objPtr) decrements the object's reference count, and frees - * the object if its reference count is zero. These macros are inline versions - * of Tcl_NewObj() and Tcl_DecrRefCount(). Notice that the names differ in not - * having a "_" after the "Tcl". Notice also that these macros reference their - * argument more than once, so you should avoid calling them with an - * expression that is expensive to compute or has side effects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewObj(Tcl_Obj *objPtr); - * MODULE_SCOPE void TclDecrRefCount(Tcl_Obj *objPtr); - * - * These macros are defined in terms of two macros that depend on memory - * allocator in use: TclAllocObjStorage, TclFreeObjStorage. They are defined - * below. - *---------------------------------------------------------------- - */ - -/* - * DTrace object allocation probe macros. - */ - -#ifdef USE_DTRACE -#ifndef _TCLDTRACE_H -#include "tclDTrace.h" -#endif -#define TCL_DTRACE_OBJ_CREATE(objPtr) TCL_OBJ_CREATE(objPtr) -#define TCL_DTRACE_OBJ_FREE(objPtr) TCL_OBJ_FREE(objPtr) -#else /* USE_DTRACE */ -#define TCL_DTRACE_OBJ_CREATE(objPtr) {} -#define TCL_DTRACE_OBJ_FREE(objPtr) {} -#endif /* USE_DTRACE */ - -#ifdef TCL_COMPILE_STATS -# define TclIncrObjsAllocated() \ - tclObjsAlloced++ -# define TclIncrObjsFreed() \ - tclObjsFreed++ -#else -# define TclIncrObjsAllocated() -# define TclIncrObjsFreed() -#endif /* TCL_COMPILE_STATS */ - -# define TclAllocObjStorage(objPtr) \ - TclAllocObjStorageEx(NULL, (objPtr)) - -# define TclFreeObjStorage(objPtr) \ - TclFreeObjStorageEx(NULL, (objPtr)) - -#ifndef TCL_MEM_DEBUG -# define TclNewObj(objPtr) \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr) - -/* - * Invalidate the string rep first so we can use the bytes value for our - * pointer chain, and signal an obj deletion (as opposed to shimmering) with - * 'length == -1'. - * Use empty 'if ; else' to handle use in unbraced outer if/else conditions. - */ - -# define TclDecrRefCount(objPtr) \ - if ((objPtr)->refCount-- > 1) ; else { \ - if (!(objPtr)->typePtr || !(objPtr)->typePtr->freeIntRepProc) { \ - TCL_DTRACE_OBJ_FREE(objPtr); \ - if ((objPtr)->bytes \ - && ((objPtr)->bytes != tclEmptyStringRep)) { \ - ckfree((char *) (objPtr)->bytes); \ - } \ - (objPtr)->length = -1; \ - TclFreeObjStorage(objPtr); \ - TclIncrObjsFreed(); \ - } else { \ - TclFreeObj(objPtr); \ - } \ - } - -#if defined(PURIFY) - -/* - * The PURIFY mode is like the regular mode, but instead of doing block - * Tcl_Obj allocation and keeping a freed list for efficiency, it always - * allocates and frees a single Tcl_Obj so that tools like Purify can better - * track memory leaks. - */ - -# define TclAllocObjStorageEx(interp, objPtr) \ - (objPtr) = (Tcl_Obj *) ckalloc(sizeof(Tcl_Obj)) - -# define TclFreeObjStorageEx(interp, objPtr) \ - ckfree((char *) (objPtr)) - -#undef USE_THREAD_ALLOC -#undef USE_TCLALLOC -#elif defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) - -/* - * The TCL_THREADS mode is like the regular mode but allocates Tcl_Obj's from - * per-thread caches. - */ - -MODULE_SCOPE Tcl_Obj * TclThreadAllocObj(void); -MODULE_SCOPE void TclThreadFreeObj(Tcl_Obj *); -MODULE_SCOPE Tcl_Mutex *TclpNewAllocMutex(void); -MODULE_SCOPE void TclFreeAllocCache(void *); -MODULE_SCOPE void * TclpGetAllocCache(void); -MODULE_SCOPE void TclpSetAllocCache(void *); -MODULE_SCOPE void TclpFreeAllocMutex(Tcl_Mutex *mutex); -MODULE_SCOPE void TclpFreeAllocCache(void *); - -/* - * These macros need to be kept in sync with the code of TclThreadAllocObj() - * and TclThreadFreeObj(). - * - * Note that the optimiser should resolve the case (interp==NULL) at compile - * time. - */ - -# define ALLOC_NOBJHIGH 1200 - -# define TclAllocObjStorageEx(interp, objPtr) \ - do { \ - AllocCache *cachePtr; \ - if (((interp) == NULL) || \ - ((cachePtr = ((Interp *)(interp))->allocCache), \ - (cachePtr->numObjects == 0))) { \ - (objPtr) = TclThreadAllocObj(); \ - } else { \ - (objPtr) = cachePtr->firstObjPtr; \ - cachePtr->firstObjPtr = (objPtr)->internalRep.twoPtrValue.ptr1; \ - --cachePtr->numObjects; \ - } \ - } while (0) - -# define TclFreeObjStorageEx(interp, objPtr) \ - do { \ - AllocCache *cachePtr; \ - if (((interp) == NULL) || \ - ((cachePtr = ((Interp *)(interp))->allocCache), \ - ((cachePtr->numObjects == 0) || \ - (cachePtr->numObjects >= ALLOC_NOBJHIGH)))) { \ - TclThreadFreeObj(objPtr); \ - } else { \ - (objPtr)->internalRep.twoPtrValue.ptr1 = cachePtr->firstObjPtr; \ - cachePtr->firstObjPtr = objPtr; \ - ++cachePtr->numObjects; \ - } \ - } while (0) - -#else /* not PURIFY or USE_THREAD_ALLOC */ - -#if defined(USE_TCLALLOC) && USE_TCLALLOC - MODULE_SCOPE void TclFinalizeAllocSubsystem(); - MODULE_SCOPE void TclInitAlloc(); -#else -# define USE_TCLALLOC 0 -#endif - -#ifdef TCL_THREADS -/* declared in tclObj.c */ -MODULE_SCOPE Tcl_Mutex tclObjMutex; -#endif - -# define TclAllocObjStorageEx(interp, objPtr) \ - do { \ - Tcl_MutexLock(&tclObjMutex); \ - if (tclFreeObjList == NULL) { \ - TclAllocateFreeObjects(); \ - } \ - (objPtr) = tclFreeObjList; \ - tclFreeObjList = (Tcl_Obj *) \ - tclFreeObjList->internalRep.twoPtrValue.ptr1; \ - Tcl_MutexUnlock(&tclObjMutex); \ - } while (0) - -# define TclFreeObjStorageEx(interp, objPtr) \ - do { \ - Tcl_MutexLock(&tclObjMutex); \ - (objPtr)->internalRep.twoPtrValue.ptr1 = (void *) tclFreeObjList; \ - tclFreeObjList = (objPtr); \ - Tcl_MutexUnlock(&tclObjMutex); \ - } while (0) -#endif - -#else /* TCL_MEM_DEBUG */ -MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, - int line); - -# define TclDbNewObj(objPtr, file, line) \ - do { \ - TclIncrObjsAllocated(); \ - (objPtr) = (Tcl_Obj *) \ - Tcl_DbCkalloc(sizeof(Tcl_Obj), (file), (line)); \ - TclDbInitNewObj((objPtr), (file), (line)); \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -# define TclNewObj(objPtr) \ - TclDbNewObj(objPtr, __FILE__, __LINE__); - -# define TclDecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) - -# define TclNewListObjDirect(objc, objv) \ - TclDbNewListObjDirect(objc, objv, __FILE__, __LINE__) - -#undef USE_THREAD_ALLOC -#endif /* TCL_MEM_DEBUG */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to set a Tcl_Obj's string representation to a - * copy of the "len" bytes starting at "bytePtr". This code works even if the - * byte array contains NULLs as long as the length is correct. Because "len" - * is referenced multiple times, it should be as simple an expression as - * possible. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInitStringRep(Tcl_Obj *objPtr, char *bytePtr, int len); - * - * This macro should only be called on an unshared objPtr where - * objPtr->typePtr->freeIntRepProc == NULL - *---------------------------------------------------------------- - */ - -#define TclInitStringRep(objPtr, bytePtr, len) \ - if ((len) == 0) { \ - (objPtr)->bytes = tclEmptyStringRep; \ - (objPtr)->length = 0; \ - } else { \ - (objPtr)->bytes = (char *) ckalloc((unsigned) ((len) + 1)); \ - memcpy((objPtr)->bytes, (bytePtr), (unsigned) (len)); \ - (objPtr)->bytes[len] = '\0'; \ - (objPtr)->length = (len); \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to get the string representation's byte array - * pointer from a Tcl_Obj. This is an inline version of Tcl_GetString(). The - * macro's expression result is the string rep's byte pointer which might be - * NULL. The bytes referenced by this pointer must not be modified by the - * caller. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE char * TclGetString(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclGetString(objPtr) \ - ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr))) - -#define TclGetStringFromObj(objPtr, lenPtr) \ - ((objPtr)->bytes \ - ? (*(lenPtr) = (objPtr)->length, (objPtr)->bytes) \ - : Tcl_GetStringFromObj((objPtr), (lenPtr))) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's internal - * representation. Does not actually reset the rep's bytes. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclFreeIntRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclFreeIntRep(objPtr) \ - if ((objPtr)->typePtr != NULL) { \ - if ((objPtr)->typePtr->freeIntRepProc != NULL) { \ - (objPtr)->typePtr->freeIntRepProc(objPtr); \ - } \ - (objPtr)->typePtr = NULL; \ - } - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to clean out an object's string representation. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateStringRep(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateStringRep(objPtr) \ - if (objPtr->bytes != NULL) { \ - if (objPtr->bytes != tclEmptyStringRep) { \ - ckfree((char *) objPtr->bytes); \ - } \ - objPtr->bytes = NULL; \ - } - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to grow Tcl_Token arrays. They use the same - * growth algorithm as used in tclStringObj.c for growing strings. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclGrowTokenArray(Tcl_Token *tokenPtr, int used, - * int available, int append, - * Tcl_Token *staticPtr); - * MODULE_SCOPE void TclGrowParseTokenArray(Tcl_Parse *parsePtr, - * int append); - *---------------------------------------------------------------- - */ - -/* General tuning for minimum growth in Tcl growth algorithms */ -#ifndef TCL_MIN_GROWTH -# ifdef TCL_GROWTH_MIN_ALLOC - /* Support for any legacy tuners */ -# define TCL_MIN_GROWTH TCL_GROWTH_MIN_ALLOC -# else -# define TCL_MIN_GROWTH 1024 -# endif -#endif - -/* Token growth tuning, default to the general value. */ -#ifndef TCL_MIN_TOKEN_GROWTH -#define TCL_MIN_TOKEN_GROWTH TCL_MIN_GROWTH/sizeof(Tcl_Token) -#endif - -#define TCL_MAX_TOKENS (int)(UINT_MAX / sizeof(Tcl_Token)) -#define TclGrowTokenArray(tokenPtr, used, available, append, staticPtr) \ - do { \ - int _needed = (used) + (append); \ - if (_needed > TCL_MAX_TOKENS) { \ - Tcl_Panic("max # of tokens for a Tcl parse (%d) exceeded", \ - TCL_MAX_TOKENS); \ - } \ - if (_needed > (available)) { \ - int allocated = 2 * _needed; \ - Tcl_Token *oldPtr = (tokenPtr); \ - Tcl_Token *newPtr; \ - if (oldPtr == (staticPtr)) { \ - oldPtr = NULL; \ - } \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) attemptckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - if (newPtr == NULL) { \ - allocated = _needed + (append) + TCL_MIN_TOKEN_GROWTH; \ - if (allocated > TCL_MAX_TOKENS) { \ - allocated = TCL_MAX_TOKENS; \ - } \ - newPtr = (Tcl_Token *) ckrealloc((char *) oldPtr, \ - (unsigned int) (allocated * sizeof(Tcl_Token))); \ - } \ - (available) = allocated; \ - if (oldPtr == NULL) { \ - memcpy(newPtr, staticPtr, \ - (size_t) ((used) * sizeof(Tcl_Token))); \ - } \ - (tokenPtr) = newPtr; \ - } \ - } while (0) - -#define TclGrowParseTokenArray(parsePtr, append) \ - TclGrowTokenArray((parsePtr)->tokenPtr, (parsePtr)->numTokens, \ - (parsePtr)->tokensAvailable, (append), \ - (parsePtr)->staticTokens) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core get a unicode char from a utf string. It checks - * to see if we have a one-byte utf char before calling the real - * Tcl_UtfToUniChar, as this will save a lot of time for primarily ASCII - * string handling. The macro's expression result is 1 for the 1-byte case or - * the result of Tcl_UtfToUniChar. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclUtfToUniChar(const char *string, Tcl_UniChar *ch); - *---------------------------------------------------------------- - */ - -#define TclUtfToUniChar(str, chPtr) \ - ((((unsigned char) *(str)) < 0x80) ? \ - ((*(chPtr) = (unsigned char) *(str)), 1) \ - : Tcl_UtfToUniChar(str, chPtr)) - -/* - *---------------------------------------------------------------- - * Macro counterpart of the Tcl_NumUtfChars() function. To be used in speed- - * -sensitive points where it pays to avoid a function call in the common case - * of counting along a string of all one-byte characters. The ANSI C - * "prototype" for this macro is: - * - * MODULE_SCOPE void TclNumUtfChars(int numChars, const char *bytes, - * int numBytes); - *---------------------------------------------------------------- - */ - -#define TclNumUtfChars(numChars, bytes, numBytes) \ - do { \ - int _count, _i = (numBytes); \ - unsigned char *_str = (unsigned char *) (bytes); \ - while (_i && (*_str < 0xC0)) { _i--; _str++; } \ - _count = (numBytes) - _i; \ - if (_i) { \ - _count += Tcl_NumUtfChars((bytes) + _count, _i); \ - } \ - (numChars) = _count; \ - } while (0); - -/* - *---------------------------------------------------------------- - * Macro that encapsulates the logic that determines when it is safe to - * interpret a string as a byte array directly. In summary, the object must be - * a byte array and must not have a string representation (as the operations - * that it is used in are defined on strings, not byte arrays). Theoretically - * it is possible to also be efficient in the case where the object's bytes - * field is filled by generation from the byte array (c.f. list canonicality) - * but we don't do that at the moment since this is purely about efficiency. - * The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclIsPureByteArray(Tcl_Obj *objPtr); - *---------------------------------------------------------------- - */ - -#define TclIsPureByteArray(objPtr) \ - (((objPtr)->typePtr==&tclByteArrayType) && ((objPtr)->bytes==NULL)) -#define TclIsPureDict(objPtr) \ - (((objPtr)->bytes==NULL) && ((objPtr)->typePtr==&tclDictType)) - -#define TclIsPureList(objPtr) \ - (((objPtr)->bytes==NULL) && ((objPtr)->typePtr==&tclListType)) - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to compare Unicode strings. On big-endian - * systems we can use the more efficient memcmp, but this would not be - * lexically correct on little-endian systems. The ANSI C "prototype" for - * this macro is: - * - * MODULE_SCOPE int TclUniCharNcmp(const Tcl_UniChar *cs, - * const Tcl_UniChar *ct, unsigned long n); - *---------------------------------------------------------------- - */ - -#ifdef WORDS_BIGENDIAN -# define TclUniCharNcmp(cs,ct,n) memcmp((cs),(ct),(n)*sizeof(Tcl_UniChar)) -#else /* !WORDS_BIGENDIAN */ -# define TclUniCharNcmp Tcl_UniCharNcmp -#endif /* WORDS_BIGENDIAN */ - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to increment a namespace's export epoch - * counter. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE void TclInvalidateNsCmdLookup(Namespace *nsPtr); - *---------------------------------------------------------------- - */ - -#define TclInvalidateNsCmdLookup(nsPtr) \ - if ((nsPtr)->numExportPatterns) { \ - (nsPtr)->exportLookupEpoch++; \ - } \ - if ((nsPtr)->commandPathLength) { \ - (nsPtr)->cmdRefEpoch++; \ - } - -/* - *---------------------------------------------------------------------- - * - * Core procedure added to libtommath for bignum manipulation. - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE Tcl_PackageInitProc TclTommath_Init; - -/* - *---------------------------------------------------------------------- - * - * External (platform specific) initialization routine, these declarations - * explicitly don't use EXTERN since this code does not get compiled into the - * library: - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE Tcl_PackageInitProc TclplatformtestInit; -MODULE_SCOPE Tcl_PackageInitProc TclObjTest_Init; -MODULE_SCOPE Tcl_PackageInitProc TclThread_Init; -MODULE_SCOPE Tcl_PackageInitProc Procbodytest_Init; -MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; - -/* - *---------------------------------------------------------------- - * Macro used by the Tcl core to check whether a pattern has any characters - * special to [string match]. The ANSI C "prototype" for this macro is: - * - * MODULE_SCOPE int TclMatchIsTrivial(const char *pattern); - *---------------------------------------------------------------- - */ - -#define TclMatchIsTrivial(pattern) \ - (strpbrk((pattern), "*[?\\") == NULL) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to set a Tcl_Obj's numeric representation - * avoiding the corresponding function calls in time critical parts of the - * core. They should only be called on unshared objects. The ANSI C - * "prototypes" for these macros are: - * - * MODULE_SCOPE void TclSetIntObj(Tcl_Obj *objPtr, int intValue); - * MODULE_SCOPE void TclSetLongObj(Tcl_Obj *objPtr, long longValue); - * MODULE_SCOPE void TclSetBooleanObj(Tcl_Obj *objPtr, long boolValue); - * MODULE_SCOPE void TclSetWideIntObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclSetDoubleObj(Tcl_Obj *objPtr, double d); - *---------------------------------------------------------------- - */ - -#define TclSetLongObj(objPtr, i) \ - do { \ - TclInvalidateStringRep(objPtr); \ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType; \ - } while (0) - -#define TclSetIntObj(objPtr, l) \ - TclSetLongObj(objPtr, l) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. Boolean values set - * programmatically go straight to being "int" Tcl_Obj's, with value 0 or 1. - * The only "boolean" Tcl_Obj's shall be those holding the cached boolean - * value of strings like: "yes", "no", "true", "false", "on", "off". - */ - -#define TclSetBooleanObj(objPtr, b) \ - TclSetLongObj(objPtr, (b)!=0); - -#ifndef TCL_WIDE_INT_IS_LONG -#define TclSetWideIntObj(objPtr, w) \ - do { \ - TclInvalidateStringRep(objPtr); \ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.wideValue = (Tcl_WideInt)(w); \ - (objPtr)->typePtr = &tclWideIntType; \ - } while (0) -#endif - -#define TclSetDoubleObj(objPtr, d) \ - do { \ - TclInvalidateStringRep(objPtr); \ - TclFreeIntRep(objPtr); \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType; \ - } while (0) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to create and initialise objects of standard - * types, avoiding the corresponding function calls in time critical parts of - * the core. The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE void TclNewIntObj(Tcl_Obj *objPtr, int i); - * MODULE_SCOPE void TclNewLongObj(Tcl_Obj *objPtr, long l); - * MODULE_SCOPE void TclNewBooleanObj(Tcl_Obj *objPtr, int b); - * MODULE_SCOPE void TclNewWideObj(Tcl_Obj *objPtr, Tcl_WideInt w); - * MODULE_SCOPE void TclNewDoubleObj(Tcl_Obj *objPtr, double d); - * MODULE_SCOPE void TclNewStringObj(Tcl_Obj *objPtr, char *s, int len); - * MODULE_SCOPE void TclNewLiteralStringObj(Tcl_Obj*objPtr, char*sLiteral); - * - *---------------------------------------------------------------- - */ - -#ifndef TCL_MEM_DEBUG -#define TclNewLongObj(objPtr, i) \ - do { \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.longValue = (long)(i); \ - (objPtr)->typePtr = &tclIntType; \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -#define TclNewIntObj(objPtr, l) \ - TclNewLongObj(objPtr, l) - -/* - * NOTE: There is to be no such thing as a "pure" boolean. - * See comment above TclSetBooleanObj macro above. - */ -#define TclNewBooleanObj(objPtr, b) \ - TclNewLongObj((objPtr), (b)!=0) - -#define TclNewDoubleObj(objPtr, d) \ - do { \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - (objPtr)->bytes = NULL; \ - (objPtr)->internalRep.doubleValue = (double)(d); \ - (objPtr)->typePtr = &tclDoubleType; \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -#define TclNewStringObj(objPtr, s, len) \ - do { \ - TclIncrObjsAllocated(); \ - TclAllocObjStorage(objPtr); \ - (objPtr)->refCount = 0; \ - TclInitStringRep((objPtr), (s), (len)); \ - (objPtr)->typePtr = NULL; \ - TCL_DTRACE_OBJ_CREATE(objPtr); \ - } while (0) - -#else /* TCL_MEM_DEBUG */ -#define TclNewIntObj(objPtr, i) \ - (objPtr) = Tcl_NewIntObj(i) - -#define TclNewLongObj(objPtr, l) \ - (objPtr) = Tcl_NewLongObj(l) - -#define TclNewBooleanObj(objPtr, b) \ - (objPtr) = Tcl_NewBooleanObj(b) - -#define TclNewDoubleObj(objPtr, d) \ - (objPtr) = Tcl_NewDoubleObj(d) - -#define TclNewStringObj(objPtr, s, len) \ - (objPtr) = Tcl_NewStringObj((s), (len)) -#endif /* TCL_MEM_DEBUG */ - -/* - * The sLiteral argument *must* be a string literal; the incantation with - * sizeof(sLiteral "") will fail to compile otherwise. - */ -#define TclNewLiteralStringObj(objPtr, sLiteral) \ - TclNewStringObj((objPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) - -/* - *---------------------------------------------------------------- - * Convenience macros for DStrings. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE char * TclDStringAppendLiteral(Tcl_DString *dsPtr, - * const char *sLiteral); - * MODULE_SCOPE void TclDStringClear(Tcl_DString *dsPtr); - */ - -#define TclDStringAppendLiteral(dsPtr, sLiteral) \ - Tcl_DStringAppend((dsPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) -#define TclDStringClear(dsPtr) \ - Tcl_DStringSetLength((dsPtr), 0) - -/* - *---------------------------------------------------------------- - * Macros used by the Tcl core to test for some special double values. - * The ANSI C "prototypes" for these macros are: - * - * MODULE_SCOPE int TclIsInfinite(double d); - * MODULE_SCOPE int TclIsNaN(double d); - */ - -#ifdef _MSC_VER -# define TclIsInfinite(d) (!(_finite((d)))) -# define TclIsNaN(d) (_isnan((d))) -#else -# define TclIsInfinite(d) ((d) > DBL_MAX || (d) < -DBL_MAX) -# ifdef NO_ISNAN -# define TclIsNaN(d) ((d) != (d)) -# else -# define TclIsNaN(d) (isnan(d)) -# endif -#endif - -/* - * ---------------------------------------------------------------------- - * Macro to use to find the offset of a field in a structure. Computes number - * of bytes from beginning of structure to a given field. - */ - -#ifdef offsetof -#define TclOffset(type, field) ((int) offsetof(type, field)) -#else -#define TclOffset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -/* - *---------------------------------------------------------------- - * Inline version of Tcl_GetCurrentNamespace and Tcl_GetGlobalNamespace. - */ - -#define TclGetCurrentNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->varFramePtr->nsPtr - -#define TclGetGlobalNamespace(interp) \ - (Tcl_Namespace *) ((Interp *)(interp))->globalNsPtr - -/* - *---------------------------------------------------------------- - * Inline version of TclCleanupCommand; still need the function as it is in - * the internal stubs, but the core can use the macro instead. - */ - -#define TclCleanupCommandMacro(cmdPtr) \ - if ((cmdPtr)->refCount-- <= 1) { \ - ckfree((char *) (cmdPtr));\ - } - -/* - *---------------------------------------------------------------- - * Inline versions of Tcl_LimitReady() and Tcl_LimitExceeded to limit number - * of calls out of the critical path. Note that this code isn't particularly - * readable; the non-inline version (in tclInterp.c) is much easier to - * understand. Note also that these macros takes different args (iPtr->limit) - * to the non-inline version. - */ - -#define TclLimitExceeded(limit) ((limit).exceeded != 0) - -#define TclLimitReady(limit) \ - (((limit).active == 0) ? 0 : \ - (++(limit).granularityTicker, \ - ((((limit).active & TCL_LIMIT_COMMANDS) && \ - (((limit).cmdGranularity == 1) || \ - ((limit).granularityTicker % (limit).cmdGranularity == 0))) \ - ? 1 : \ - (((limit).active & TCL_LIMIT_TIME) && \ - (((limit).timeGranularity == 1) || \ - ((limit).granularityTicker % (limit).timeGranularity == 0)))\ - ? 1 : 0))) - -/* - * Compile-time assertions: these produce a compile time error if the - * expression is not known to be true at compile time. If the assertion is - * known to be false, the compiler (or optimizer?) will error out with - * "division by zero". If the assertion cannot be evaluated at compile time, - * the compiler will error out with "non-static initializer". - * - * Adapted with permission from - * http://www.pixelbeat.org/programming/gcc/static_assert.html - */ - -#define TCL_CT_ASSERT(e) \ - {enum { ct_assert_value = 1/(!!(e)) };} - -/* - *---------------------------------------------------------------- - * Allocator for small structs (<=sizeof(Tcl_Obj)) using the Tcl_Obj pool. - * Only checked at compile time. - * - * ONLY USE FOR CONSTANT nBytes. - * - * DO NOT LET THEM CROSS THREAD BOUNDARIES - *---------------------------------------------------------------- - */ - -#define TclSmallAlloc(nbytes, memPtr) \ - TclSmallAllocEx(NULL, (nbytes), (memPtr)) - -#define TclSmallFree(memPtr) \ - TclSmallFreeEx(NULL, (memPtr)) - -#ifndef TCL_MEM_DEBUG -#define TclSmallAllocEx(interp, nbytes, memPtr) \ - do { \ - Tcl_Obj *_objPtr; \ - TCL_CT_ASSERT((nbytes)<=sizeof(Tcl_Obj)); \ - TclIncrObjsAllocated(); \ - TclAllocObjStorageEx((interp), (_objPtr)); \ - memPtr = (ClientData) (_objPtr); \ - } while (0) - -#define TclSmallFreeEx(interp, memPtr) \ - do { \ - TclFreeObjStorageEx((interp), (Tcl_Obj *) (memPtr)); \ - TclIncrObjsFreed(); \ - } while (0) - -#else /* TCL_MEM_DEBUG */ -#define TclSmallAllocEx(interp, nbytes, memPtr) \ - do { \ - Tcl_Obj *_objPtr; \ - TCL_CT_ASSERT((nbytes)<=sizeof(Tcl_Obj)); \ - TclNewObj(_objPtr); \ - memPtr = (ClientData) _objPtr; \ - } while (0) - -#define TclSmallFreeEx(interp, memPtr) \ - do { \ - Tcl_Obj *_objPtr = (Tcl_Obj *) memPtr; \ - _objPtr->bytes = NULL; \ - _objPtr->typePtr = NULL; \ - _objPtr->refCount = 1; \ - TclDecrRefCount(_objPtr); \ - } while (0) -#endif /* TCL_MEM_DEBUG */ - -/* - * Support for Clang Static Analyzer - */ - -#if defined(PURIFY) && defined(__clang__) -#if __has_feature(attribute_analyzer_noreturn) && \ - !defined(Tcl_Panic) && defined(Tcl_Panic_TCL_DECLARED) -void Tcl_Panic(const char *, ...) __attribute__((analyzer_noreturn)); -#endif -#if !defined(CLANG_ASSERT) -#include -#define CLANG_ASSERT(x) assert(x) -#endif -#elif !defined(CLANG_ASSERT) -#define CLANG_ASSERT(x) -#endif /* PURIFY && __clang__ */ - -/* - *---------------------------------------------------------------- - * Parameters, structs and macros for the non-recursive engine (NRE) - *---------------------------------------------------------------- - */ - -#define NRE_USE_SMALL_ALLOC 1 /* Only turn off for debugging purposes. */ -#ifndef NRE_ENABLE_ASSERTS -#define NRE_ENABLE_ASSERTS 0 -#endif - -/* - * This is the main data struct for representing NR commands. It is designed - * to fit in sizeof(Tcl_Obj) in order to exploit the fastest memory allocator - * available. - */ - -typedef struct NRE_callback { - Tcl_NRPostProc *procPtr; - ClientData data[4]; - struct NRE_callback *nextPtr; -} NRE_callback; - -#define TOP_CB(iPtr) (((Interp *)(iPtr))->execEnvPtr->callbackPtr) - -/* - * Inline version of Tcl_NRAddCallback. - */ - -#define TclNRAddCallback(interp,postProcPtr,data0,data1,data2,data3) \ - do { \ - NRE_callback *_callbackPtr; \ - TCLNR_ALLOC((interp), (_callbackPtr)); \ - _callbackPtr->procPtr = (postProcPtr); \ - _callbackPtr->data[0] = (ClientData)(data0); \ - _callbackPtr->data[1] = (ClientData)(data1); \ - _callbackPtr->data[2] = (ClientData)(data2); \ - _callbackPtr->data[3] = (ClientData)(data3); \ - _callbackPtr->nextPtr = TOP_CB(interp); \ - TOP_CB(interp) = _callbackPtr; \ - } while (0) - -#if NRE_USE_SMALL_ALLOC -#define TCLNR_ALLOC(interp, ptr) \ - TclSmallAllocEx(interp, sizeof(NRE_callback), (ptr)) -#define TCLNR_FREE(interp, ptr) TclSmallFreeEx((interp), (ptr)) -#else -#define TCLNR_ALLOC(interp, ptr) \ - (ptr = ((ClientData) ckalloc(sizeof(NRE_callback)))) -#define TCLNR_FREE(interp, ptr) ckfree((char *) (ptr)) -#endif - -#if NRE_ENABLE_ASSERTS -#define NRE_ASSERT(expr) assert((expr)) -#else -#define NRE_ASSERT(expr) -#endif - -#include "tclIntDecls.h" -#include "tclIntPlatDecls.h" -#include "tclTomMathDecls.h" - -#if !defined(USE_TCL_STUBS) && !defined(TCL_MEM_DEBUG) -#define Tcl_AttemptAlloc(size) TclpAlloc(size) -#define Tcl_AttemptRealloc(ptr, size) TclpRealloc((ptr), (size)) -#define Tcl_Free(ptr) TclpFree(ptr) -#endif - -#endif /* _TCLINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclIntDecls.h deleted file mode 100644 index 437bb5288..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclIntDecls.h +++ /dev/null @@ -1,1417 +0,0 @@ -/* - * tclIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLINTDECLS -#define _TCLINTDECLS - - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */ -#undef Tcl_CreateNamespace -#undef Tcl_DeleteNamespace -#undef Tcl_AppendExportList -#undef Tcl_Export -#undef Tcl_Import -#undef Tcl_ForgetImport -#undef Tcl_GetCurrentNamespace -#undef Tcl_GetGlobalNamespace -#undef Tcl_FindNamespace -#undef Tcl_FindCommand -#undef Tcl_GetCommandFromObj -#undef Tcl_GetCommandFullName -#undef Tcl_SetStartupScript -#undef Tcl_GetStartupScript - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN void TclAllocateFreeObjects(void); -/* Slot 4 is reserved */ -/* 5 */ -EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids, - Tcl_Pid *pidPtr, Tcl_Channel errorChan); -/* 6 */ -EXTERN void TclCleanupCommand(Command *cmdPtr); -/* 7 */ -EXTERN int TclCopyAndCollapse(int count, const char *src, - char *dst); -/* 8 */ -EXTERN int TclCopyChannelOld(Tcl_Interp *interp, - Tcl_Channel inChan, Tcl_Channel outChan, - int toRead, Tcl_Obj *cmdPtr); -/* 9 */ -EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc, - const char **argv, Tcl_Pid **pidArrayPtr, - TclFile *inPipePtr, TclFile *outPipePtr, - TclFile *errFilePtr); -/* 10 */ -EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, - const char *procName, Tcl_Obj *argsPtr, - Tcl_Obj *bodyPtr, Proc **procPtrPtr); -/* 11 */ -EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr, - CallFrame *framePtr); -/* 12 */ -EXTERN void TclDeleteVars(Interp *iPtr, - TclVarHashTable *tablePtr); -/* Slot 13 is reserved */ -/* 14 */ -EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN void TclExprFloatError(Tcl_Interp *interp, double value); -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* 22 */ -EXTERN int TclFindElement(Tcl_Interp *interp, - const char *listStr, int listLength, - const char **elementPtr, - const char **nextPtr, int *sizePtr, - int *bracePtr); -/* 23 */ -EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName); -/* 24 */ -EXTERN int TclFormatInt(char *buffer, long n); -/* 25 */ -EXTERN void TclFreePackageInfo(Interp *iPtr); -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* 28 */ -EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type); -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -/* 31 */ -EXTERN const char * TclGetExtension(const char *name); -/* 32 */ -EXTERN int TclGetFrame(Tcl_Interp *interp, const char *str, - CallFrame **framePtrPtr); -/* Slot 33 is reserved */ -/* 34 */ -EXTERN int TclGetIntForIndex(Tcl_Interp *interp, - Tcl_Obj *objPtr, int endValue, int *indexPtr); -/* Slot 35 is reserved */ -/* Slot 36 is reserved */ -/* 37 */ -EXTERN int TclGetLoadedPackages(Tcl_Interp *interp, - const char *targetName); -/* 38 */ -EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, - const char *qualName, Namespace *cxtNsPtr, - int flags, Namespace **nsPtrPtr, - Namespace **altNsPtrPtr, - Namespace **actualCxtPtrPtr, - const char **simpleNamePtr); -/* 39 */ -EXTERN TclObjCmdProcType TclGetObjInterpProc(void); -/* 40 */ -EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str, - int *seekFlagPtr); -/* 41 */ -EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); -/* 42 */ -EXTERN CONST86 char * TclpGetUserHome(const char *name, - Tcl_DString *bufferPtr); -/* Slot 43 is reserved */ -/* 44 */ -EXTERN int TclGuessPackageName(const char *fileName, - Tcl_DString *bufPtr); -/* 45 */ -EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp); -/* 46 */ -EXTERN int TclInExit(void); -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -/* 50 */ -EXTERN void TclInitCompiledLocals(Tcl_Interp *interp, - CallFrame *framePtr, Namespace *nsPtr); -/* 51 */ -EXTERN int TclInterpInit(Tcl_Interp *interp); -/* Slot 52 is reserved */ -/* 53 */ -EXTERN int TclInvokeObjectCommand(ClientData clientData, - Tcl_Interp *interp, int argc, - CONST84 char **argv); -/* 54 */ -EXTERN int TclInvokeStringCommand(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 55 */ -EXTERN Proc * TclIsProc(Command *cmdPtr); -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -/* 58 */ -EXTERN Var * TclLookupVar(Tcl_Interp *interp, const char *part1, - const char *part2, int flags, - const char *msg, int createPart1, - int createPart2, Var **arrayPtrPtr); -/* Slot 59 is reserved */ -/* 60 */ -EXTERN int TclNeedSpace(const char *start, const char *end); -/* 61 */ -EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr); -/* 62 */ -EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr); -/* 63 */ -EXTERN int TclObjInterpProc(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 64 */ -EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags); -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -/* 69 */ -EXTERN char * TclpAlloc(unsigned int size); -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* 74 */ -EXTERN void TclpFree(char *ptr); -/* 75 */ -EXTERN unsigned long TclpGetClicks(void); -/* 76 */ -EXTERN unsigned long TclpGetSeconds(void); -/* 77 */ -EXTERN void TclpGetTime(Tcl_Time *time); -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -/* 81 */ -EXTERN char * TclpRealloc(char *ptr, unsigned int size); -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -/* 88 */ -EXTERN char * TclPrecTraceProc(ClientData clientData, - Tcl_Interp *interp, const char *name1, - const char *name2, int flags); -/* 89 */ -EXTERN int TclPreventAliasLoop(Tcl_Interp *interp, - Tcl_Interp *cmdInterp, Tcl_Command cmd); -/* Slot 90 is reserved */ -/* 91 */ -EXTERN void TclProcCleanupProc(Proc *procPtr); -/* 92 */ -EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, - Tcl_Obj *bodyPtr, Namespace *nsPtr, - const char *description, - const char *procName); -/* 93 */ -EXTERN void TclProcDeleteProc(ClientData clientData); -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* 96 */ -EXTERN int TclRenameCommand(Tcl_Interp *interp, - const char *oldName, const char *newName); -/* 97 */ -EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp, - Command *newCmdPtr); -/* 98 */ -EXTERN int TclServiceIdle(void); -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* 101 */ -EXTERN CONST86 char * TclSetPreInitScript(const char *string); -/* 102 */ -EXTERN void TclSetupEnv(Tcl_Interp *interp); -/* 103 */ -EXTERN int TclSockGetPort(Tcl_Interp *interp, const char *str, - const char *proto, int *portPtr); -/* 104 */ -EXTERN int TclSockMinimumBuffersOld(int sock, int size); -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* 108 */ -EXTERN void TclTeardownNamespace(Namespace *nsPtr); -/* 109 */ -EXTERN int TclUpdateReturnInfo(Interp *iPtr); -/* 110 */ -EXTERN int TclSockMinimumBuffers(void *sock, int size); -/* 111 */ -EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp, - const char *name, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -/* 112 */ -EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); -/* 113 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, - const char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc); -/* 114 */ -EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); -/* 115 */ -EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int resetListFirst); -/* 116 */ -EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 117 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 118 */ -EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp, - const char *name, Tcl_ResolverInfo *resInfo); -/* 119 */ -EXTERN int Tcl_GetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolverInfo *resInfo); -/* 120 */ -EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, - const char *name, - Tcl_Namespace *contextNsPtr, int flags); -/* 121 */ -EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, const char *pattern); -/* 122 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 123 */ -EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, - Tcl_Command command, Tcl_Obj *objPtr); -/* 124 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); -/* 125 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); -/* 126 */ -EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp, - Tcl_Var variable, Tcl_Obj *objPtr); -/* 127 */ -EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int allowOverwrite); -/* 128 */ -EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp); -/* 129 */ -EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp, - Tcl_CallFrame *framePtr, - Tcl_Namespace *nsPtr, int isProcCallFrame); -/* 130 */ -EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, - const char *name); -/* 131 */ -EXTERN void Tcl_SetNamespaceResolvers( - Tcl_Namespace *namespacePtr, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc); -/* 132 */ -EXTERN int TclpHasSockets(Tcl_Interp *interp); -/* 133 */ -EXTERN struct tm * TclpGetDate(const time_t *time, int useGMT); -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* 138 */ -EXTERN CONST84_RETURN char * TclGetEnv(const char *name, - Tcl_DString *valuePtr); -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* 141 */ -EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp, - Tcl_DString *cwdPtr); -/* 142 */ -EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp, - Tcl_Obj *objPtr, CompileHookProc *hookProc, - ClientData clientData); -/* 143 */ -EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr, - Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); -/* 144 */ -EXTERN void TclHideLiteral(Tcl_Interp *interp, - struct CompileEnv *envPtr, int index); -/* 145 */ -EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName); -/* 146 */ -EXTERN TclHandle TclHandleCreate(void *ptr); -/* 147 */ -EXTERN void TclHandleFree(TclHandle handle); -/* 148 */ -EXTERN TclHandle TclHandlePreserve(TclHandle handle); -/* 149 */ -EXTERN void TclHandleRelease(TclHandle handle); -/* 150 */ -EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re); -/* 151 */ -EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index, - int *startPtr, int *endPtr); -/* 152 */ -EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr); -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath(void); -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* 156 */ -EXTERN void TclRegError(Tcl_Interp *interp, const char *msg, - int status); -/* 157 */ -EXTERN Var * TclVarTraceExists(Tcl_Interp *interp, - const char *varName); -/* 158 */ -EXTERN void TclSetStartupScriptFileName(const char *filename); -/* 159 */ -EXTERN const char * TclGetStartupScriptFileName(void); -/* Slot 160 is reserved */ -/* 161 */ -EXTERN int TclChannelTransform(Tcl_Interp *interp, - Tcl_Channel chan, Tcl_Obj *cmdObjPtr); -/* 162 */ -EXTERN void TclChannelEventScriptInvoker(ClientData clientData, - int flags); -/* 163 */ -EXTERN const void * TclGetInstructionTable(void); -/* 164 */ -EXTERN void TclExpandCodeArray(void *envPtr); -/* 165 */ -EXTERN void TclpSetInitialEncodings(void); -/* 166 */ -EXTERN int TclListObjSetElement(Tcl_Interp *interp, - Tcl_Obj *listPtr, int index, - Tcl_Obj *valuePtr); -/* 167 */ -EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr); -/* 168 */ -EXTERN Tcl_Obj * TclGetStartupScriptPath(void); -/* 169 */ -EXTERN int TclpUtfNcmp2(const char *s1, const char *s2, - unsigned long n); -/* 170 */ -EXTERN int TclCheckInterpTraces(Tcl_Interp *interp, - const char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *const objv[]); -/* 171 */ -EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp, - const char *command, int numChars, - Command *cmdPtr, int result, int traceFlags, - int objc, Tcl_Obj *const objv[]); -/* 172 */ -EXTERN int TclInThreadExit(void); -/* 173 */ -EXTERN int TclUniCharMatch(const Tcl_UniChar *string, - int strLen, const Tcl_UniChar *pattern, - int ptnLen, int flags); -/* Slot 174 is reserved */ -/* 175 */ -EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, - Var *varPtr, const char *part1, - const char *part2, int flags, - int leaveErrMsg); -/* 176 */ -EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr); -/* 177 */ -EXTERN void TclVarErrMsg(Tcl_Interp *interp, const char *part1, - const char *part2, const char *operation, - const char *reason); -/* 178 */ -EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr, - const char *encodingName); -/* 179 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingNamePtr); -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -/* 182 */ -EXTERN struct tm * TclpLocaltime(const time_t *clock); -/* 183 */ -EXTERN struct tm * TclpGmtime(const time_t *clock); -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -/* 198 */ -EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, - CallFrame **framePtrPtr); -/* Slot 199 is reserved */ -/* 200 */ -EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr); -/* 201 */ -EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); -/* 202 */ -EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr); -/* 203 */ -EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr); -/* 204 */ -EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 205 */ -EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr); -/* 206 */ -EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -/* 207 */ -EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode); -/* 208 */ -EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, - Tcl_Obj *pathPtr, int mode, int permissions); -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -/* 212 */ -EXTERN void TclpFindExecutable(const char *argv0); -/* 213 */ -EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void); -/* 214 */ -EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name, - Tcl_Encoding encoding); -/* 215 */ -EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes); -/* 216 */ -EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr); -/* 217 */ -EXTERN int TclPushStackFrame(Tcl_Interp *interp, - Tcl_CallFrame **framePtrPtr, - Tcl_Namespace *namespacePtr, - int isProcCallFrame); -/* 218 */ -EXTERN void TclPopStackFrame(Tcl_Interp *interp); -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -/* 224 */ -EXTERN TclPlatformType * TclGetPlatform(void); -/* 225 */ -EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp, - Tcl_Obj *rootPtr, int keyc, - Tcl_Obj *const keyv[], int flags); -/* 226 */ -EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr); -/* 227 */ -EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength, - Tcl_Namespace *pathAry[]); -/* Slot 228 is reserved */ -/* 229 */ -EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, - const char *myName, int myFlags, int index); -/* 230 */ -EXTERN Var * TclObjLookupVar(Tcl_Interp *interp, - Tcl_Obj *part1Ptr, const char *part2, - int flags, const char *msg, - const int createPart1, const int createPart2, - Var **arrayPtrPtr); -/* 231 */ -EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); -/* 232 */ -EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags, const CmdFrame *invoker, int word); -/* 233 */ -EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr); -/* 234 */ -EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr, - const char *key, int *newPtr); -/* 235 */ -EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr, - Namespace *nsPtr); -/* 236 */ -EXTERN void TclBackgroundException(Tcl_Interp *interp, int code); -/* 237 */ -EXTERN int TclResetCancellation(Tcl_Interp *interp, int force); -/* 238 */ -EXTERN int TclNRInterpProc(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 239 */ -EXTERN int TclNRInterpProcCore(Tcl_Interp *interp, - Tcl_Obj *procNameObj, int skip, - ProcErrorProc *errorProc); -/* 240 */ -EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result, - struct NRE_callback *rootPtr); -/* 241 */ -EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, - int flags, const CmdFrame *invoker, int word); -/* 242 */ -EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], int flags, - Command *cmdPtr); -/* 243 */ -EXTERN void TclDbDumpActiveObjects(FILE *outFile); -/* 244 */ -EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr); -/* 245 */ -EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr); -/* 246 */ -EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp, - int numRemoved, int numInserted, - Tcl_Obj *const *objv); -/* 247 */ -EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp, - int isRootEnsemble); -/* 248 */ -EXTERN int TclCopyChannel(Tcl_Interp *interp, - Tcl_Channel inChan, Tcl_Channel outChan, - Tcl_WideInt toRead, Tcl_Obj *cmdPtr); -/* 249 */ -EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags, - int *decpt, int *signum, char **endPtr); -/* 250 */ -EXTERN void TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags, - int force); -/* 251 */ -EXTERN int TclRegisterLiteral(void *envPtr, char *bytes, - int length, int flags); -/* 252 */ -EXTERN Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags); -/* 253 */ -EXTERN Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags); -/* 254 */ -EXTERN Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags); -/* 255 */ -EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp, - Tcl_Var otherPtr, Tcl_Obj *myNamePtr, - int myFlags); -/* 256 */ -EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr, - Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags); -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -/* 259 */ -EXTERN void TclUnusedStubEntry(void); - -typedef struct TclIntStubs { - int magic; - void *hooks; - - void (*reserved0)(void); - void (*reserved1)(void); - void (*reserved2)(void); - void (*tclAllocateFreeObjects) (void); /* 3 */ - void (*reserved4)(void); - int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */ - void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */ - int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */ - int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */ - int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */ - int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */ - void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */ - void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */ - void (*reserved13)(void); - int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */ - void (*reserved15)(void); - void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */ - void (*reserved17)(void); - void (*reserved18)(void); - void (*reserved19)(void); - void (*reserved20)(void); - void (*reserved21)(void); - int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */ - Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */ - int (*tclFormatInt) (char *buffer, long n); /* 24 */ - void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */ - void (*reserved26)(void); - void (*reserved27)(void); - Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */ - void (*reserved29)(void); - void (*reserved30)(void); - const char * (*tclGetExtension) (const char *name); /* 31 */ - int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */ - void (*reserved33)(void); - int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */ - void (*reserved35)(void); - void (*reserved36)(void); - int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */ - int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */ - TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ - int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */ - Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ - CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */ - void (*reserved43)(void); - int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */ - int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ - int (*tclInExit) (void); /* 46 */ - void (*reserved47)(void); - void (*reserved48)(void); - void (*reserved49)(void); - void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */ - int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ - void (*reserved52)(void); - int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */ - int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */ - Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */ - void (*reserved56)(void); - void (*reserved57)(void); - Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */ - void (*reserved59)(void); - int (*tclNeedSpace) (const char *start, const char *end); /* 60 */ - Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */ - int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */ - int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */ - int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */ - void (*reserved65)(void); - void (*reserved66)(void); - void (*reserved67)(void); - void (*reserved68)(void); - char * (*tclpAlloc) (unsigned int size); /* 69 */ - void (*reserved70)(void); - void (*reserved71)(void); - void (*reserved72)(void); - void (*reserved73)(void); - void (*tclpFree) (char *ptr); /* 74 */ - unsigned long (*tclpGetClicks) (void); /* 75 */ - unsigned long (*tclpGetSeconds) (void); /* 76 */ - void (*tclpGetTime) (Tcl_Time *time); /* 77 */ - void (*reserved78)(void); - void (*reserved79)(void); - void (*reserved80)(void); - char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */ - void (*reserved82)(void); - void (*reserved83)(void); - void (*reserved84)(void); - void (*reserved85)(void); - void (*reserved86)(void); - void (*reserved87)(void); - char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */ - int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */ - void (*reserved90)(void); - void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */ - int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */ - void (*tclProcDeleteProc) (ClientData clientData); /* 93 */ - void (*reserved94)(void); - void (*reserved95)(void); - int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */ - void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */ - int (*tclServiceIdle) (void); /* 98 */ - void (*reserved99)(void); - void (*reserved100)(void); - CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */ - void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */ - int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */ - int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */ - void (*reserved105)(void); - void (*reserved106)(void); - void (*reserved107)(void); - void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */ - int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */ - int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */ - void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */ - int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */ - int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */ - int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */ - int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */ - Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */ - int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */ - void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */ - void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */ - int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */ - void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */ - int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */ - int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */ - void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */ - int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */ - struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */ - void (*reserved134)(void); - void (*reserved135)(void); - void (*reserved136)(void); - void (*reserved137)(void); - CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */ - void (*reserved139)(void); - void (*reserved140)(void); - CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */ - int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */ - int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */ - void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */ - const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */ - TclHandle (*tclHandleCreate) (void *ptr); /* 146 */ - void (*tclHandleFree) (TclHandle handle); /* 147 */ - TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */ - void (*tclHandleRelease) (TclHandle handle); /* 149 */ - int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */ - void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */ - void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ - void (*reserved154)(void); - void (*reserved155)(void); - void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */ - Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */ - void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */ - const char * (*tclGetStartupScriptFileName) (void); /* 159 */ - void (*reserved160)(void); - int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */ - void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */ - const void * (*tclGetInstructionTable) (void); /* 163 */ - void (*tclExpandCodeArray) (void *envPtr); /* 164 */ - void (*tclpSetInitialEncodings) (void); /* 165 */ - int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */ - void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */ - Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */ - int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */ - int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 170 */ - int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 171 */ - int (*tclInThreadExit) (void); /* 172 */ - int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */ - void (*reserved174)(void); - int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */ - void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */ - void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */ - void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */ - Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */ - void (*reserved180)(void); - void (*reserved181)(void); - struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */ - struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */ - void (*reserved184)(void); - void (*reserved185)(void); - void (*reserved186)(void); - void (*reserved187)(void); - void (*reserved188)(void); - void (*reserved189)(void); - void (*reserved190)(void); - void (*reserved191)(void); - void (*reserved192)(void); - void (*reserved193)(void); - void (*reserved194)(void); - void (*reserved195)(void); - void (*reserved196)(void); - void (*reserved197)(void); - int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */ - void (*reserved199)(void); - int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */ - int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */ - int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */ - int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */ - int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */ - int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */ - int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */ - int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */ - Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */ - void (*reserved209)(void); - void (*reserved210)(void); - void (*reserved211)(void); - void (*tclpFindExecutable) (const char *argv0); /* 212 */ - Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */ - void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */ - void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */ - void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */ - int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */ - void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */ - void (*reserved219)(void); - void (*reserved220)(void); - void (*reserved221)(void); - void (*reserved222)(void); - void (*reserved223)(void); - TclPlatformType * (*tclGetPlatform) (void); /* 224 */ - Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */ - int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ - void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */ - void (*reserved228)(void); - int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */ - Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, const char *part2, int flags, const char *msg, const int createPart1, const int createPart2, Var **arrayPtrPtr); /* 230 */ - int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */ - int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */ - void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */ - Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */ - void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */ - void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */ - int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */ - int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */ - int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */ - int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */ - int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */ - int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */ - void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */ - Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */ - Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */ - int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */ - void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */ - int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */ - char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */ - void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */ - int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */ - Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 252 */ - Tcl_Obj * (*tclPtrSetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags); /* 253 */ - Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */ - int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */ - int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */ - void (*reserved257)(void); - void (*reserved258)(void); - void (*tclUnusedStubEntry) (void); /* 259 */ -} TclIntStubs; - -extern const TclIntStubs *tclIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#define TclAllocateFreeObjects \ - (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -/* Slot 4 is reserved */ -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#define TclCleanupCommand \ - (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#define TclCopyAndCollapse \ - (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#define TclCopyChannelOld \ - (tclIntStubsPtr->tclCopyChannelOld) /* 8 */ -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#define TclCreateProc \ - (tclIntStubsPtr->tclCreateProc) /* 10 */ -#define TclDeleteCompiledLocalVars \ - (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ -#define TclDeleteVars \ - (tclIntStubsPtr->tclDeleteVars) /* 12 */ -/* Slot 13 is reserved */ -#define TclDumpMemoryInfo \ - (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ -/* Slot 15 is reserved */ -#define TclExprFloatError \ - (tclIntStubsPtr->tclExprFloatError) /* 16 */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#define TclFindElement \ - (tclIntStubsPtr->tclFindElement) /* 22 */ -#define TclFindProc \ - (tclIntStubsPtr->tclFindProc) /* 23 */ -#define TclFormatInt \ - (tclIntStubsPtr->tclFormatInt) /* 24 */ -#define TclFreePackageInfo \ - (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -#define TclpGetDefaultStdChannel \ - (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#define TclGetExtension \ - (tclIntStubsPtr->tclGetExtension) /* 31 */ -#define TclGetFrame \ - (tclIntStubsPtr->tclGetFrame) /* 32 */ -/* Slot 33 is reserved */ -#define TclGetIntForIndex \ - (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ -/* Slot 35 is reserved */ -/* Slot 36 is reserved */ -#define TclGetLoadedPackages \ - (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ -#define TclGetNamespaceForQualName \ - (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ -#define TclGetObjInterpProc \ - (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ -#define TclGetOpenMode \ - (tclIntStubsPtr->tclGetOpenMode) /* 40 */ -#define TclGetOriginalCommand \ - (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ -#define TclpGetUserHome \ - (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -/* Slot 43 is reserved */ -#define TclGuessPackageName \ - (tclIntStubsPtr->tclGuessPackageName) /* 44 */ -#define TclHideUnsafeCommands \ - (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ -#define TclInExit \ - (tclIntStubsPtr->tclInExit) /* 46 */ -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* Slot 49 is reserved */ -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ -#define TclInterpInit \ - (tclIntStubsPtr->tclInterpInit) /* 51 */ -/* Slot 52 is reserved */ -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ -#define TclIsProc \ - (tclIntStubsPtr->tclIsProc) /* 55 */ -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#define TclLookupVar \ - (tclIntStubsPtr->tclLookupVar) /* 58 */ -/* Slot 59 is reserved */ -#define TclNeedSpace \ - (tclIntStubsPtr->tclNeedSpace) /* 60 */ -#define TclNewProcBodyObj \ - (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ -#define TclObjCommandComplete \ - (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ -#define TclObjInterpProc \ - (tclIntStubsPtr->tclObjInterpProc) /* 63 */ -#define TclObjInvoke \ - (tclIntStubsPtr->tclObjInvoke) /* 64 */ -/* Slot 65 is reserved */ -/* Slot 66 is reserved */ -/* Slot 67 is reserved */ -/* Slot 68 is reserved */ -#define TclpAlloc \ - (tclIntStubsPtr->tclpAlloc) /* 69 */ -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#define TclpFree \ - (tclIntStubsPtr->tclpFree) /* 74 */ -#define TclpGetClicks \ - (tclIntStubsPtr->tclpGetClicks) /* 75 */ -#define TclpGetSeconds \ - (tclIntStubsPtr->tclpGetSeconds) /* 76 */ -#define TclpGetTime \ - (tclIntStubsPtr->tclpGetTime) /* 77 */ -/* Slot 78 is reserved */ -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#define TclpRealloc \ - (tclIntStubsPtr->tclpRealloc) /* 81 */ -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#define TclPrecTraceProc \ - (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ -#define TclPreventAliasLoop \ - (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ -/* Slot 90 is reserved */ -#define TclProcCleanupProc \ - (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ -#define TclProcCompileProc \ - (tclIntStubsPtr->tclProcCompileProc) /* 92 */ -#define TclProcDeleteProc \ - (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -#define TclRenameCommand \ - (tclIntStubsPtr->tclRenameCommand) /* 96 */ -#define TclResetShadowedCmdRefs \ - (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ -#define TclServiceIdle \ - (tclIntStubsPtr->tclServiceIdle) /* 98 */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#define TclSetupEnv \ - (tclIntStubsPtr->tclSetupEnv) /* 102 */ -#define TclSockGetPort \ - (tclIntStubsPtr->tclSockGetPort) /* 103 */ -#define TclSockMinimumBuffersOld \ - (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -#define TclTeardownNamespace \ - (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ -#define TclUpdateReturnInfo \ - (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */ -#define Tcl_AddInterpResolvers \ - (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ -#define Tcl_AppendExportList \ - (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ -#define Tcl_CreateNamespace \ - (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ -#define Tcl_DeleteNamespace \ - (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ -#define Tcl_Export \ - (tclIntStubsPtr->tcl_Export) /* 115 */ -#define Tcl_FindCommand \ - (tclIntStubsPtr->tcl_FindCommand) /* 116 */ -#define Tcl_FindNamespace \ - (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ -#define Tcl_GetInterpResolvers \ - (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ -#define Tcl_GetNamespaceResolvers \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ -#define Tcl_FindNamespaceVar \ - (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ -#define Tcl_ForgetImport \ - (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ -#define Tcl_GetCommandFromObj \ - (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ -#define Tcl_GetCommandFullName \ - (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ -#define Tcl_GetCurrentNamespace \ - (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ -#define Tcl_GetGlobalNamespace \ - (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ -#define Tcl_GetVariableFullName \ - (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ -#define Tcl_Import \ - (tclIntStubsPtr->tcl_Import) /* 127 */ -#define Tcl_PopCallFrame \ - (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ -#define Tcl_PushCallFrame \ - (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ -#define Tcl_RemoveInterpResolvers \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ -#define Tcl_SetNamespaceResolvers \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ -#define TclpHasSockets \ - (tclIntStubsPtr->tclpHasSockets) /* 132 */ -#define TclpGetDate \ - (tclIntStubsPtr->tclpGetDate) /* 133 */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#define TclGetEnv \ - (tclIntStubsPtr->tclGetEnv) /* 138 */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -#define TclpGetCwd \ - (tclIntStubsPtr->tclpGetCwd) /* 141 */ -#define TclSetByteCodeFromAny \ - (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ -#define TclAddLiteralObj \ - (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ -#define TclHideLiteral \ - (tclIntStubsPtr->tclHideLiteral) /* 144 */ -#define TclGetAuxDataType \ - (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ -#define TclHandleCreate \ - (tclIntStubsPtr->tclHandleCreate) /* 146 */ -#define TclHandleFree \ - (tclIntStubsPtr->tclHandleFree) /* 147 */ -#define TclHandlePreserve \ - (tclIntStubsPtr->tclHandlePreserve) /* 148 */ -#define TclHandleRelease \ - (tclIntStubsPtr->tclHandleRelease) /* 149 */ -#define TclRegAbout \ - (tclIntStubsPtr->tclRegAbout) /* 150 */ -#define TclRegExpRangeUniChar \ - (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#define TclRegError \ - (tclIntStubsPtr->tclRegError) /* 156 */ -#define TclVarTraceExists \ - (tclIntStubsPtr->tclVarTraceExists) /* 157 */ -#define TclSetStartupScriptFileName \ - (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ -#define TclGetStartupScriptFileName \ - (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ -/* Slot 160 is reserved */ -#define TclChannelTransform \ - (tclIntStubsPtr->tclChannelTransform) /* 161 */ -#define TclChannelEventScriptInvoker \ - (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ -#define TclGetInstructionTable \ - (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ -#define TclExpandCodeArray \ - (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ -#define TclpSetInitialEncodings \ - (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ -#define TclListObjSetElement \ - (tclIntStubsPtr->tclListObjSetElement) /* 166 */ -#define TclSetStartupScriptPath \ - (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ -#define TclGetStartupScriptPath \ - (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ -#define TclpUtfNcmp2 \ - (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ -#define TclCheckInterpTraces \ - (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ -#define TclCheckExecutionTraces \ - (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ -#define TclInThreadExit \ - (tclIntStubsPtr->tclInThreadExit) /* 172 */ -#define TclUniCharMatch \ - (tclIntStubsPtr->tclUniCharMatch) /* 173 */ -/* Slot 174 is reserved */ -#define TclCallVarTraces \ - (tclIntStubsPtr->tclCallVarTraces) /* 175 */ -#define TclCleanupVar \ - (tclIntStubsPtr->tclCleanupVar) /* 176 */ -#define TclVarErrMsg \ - (tclIntStubsPtr->tclVarErrMsg) /* 177 */ -#define Tcl_SetStartupScript \ - (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ -#define Tcl_GetStartupScript \ - (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ -/* Slot 180 is reserved */ -/* Slot 181 is reserved */ -#define TclpLocaltime \ - (tclIntStubsPtr->tclpLocaltime) /* 182 */ -#define TclpGmtime \ - (tclIntStubsPtr->tclpGmtime) /* 183 */ -/* Slot 184 is reserved */ -/* Slot 185 is reserved */ -/* Slot 186 is reserved */ -/* Slot 187 is reserved */ -/* Slot 188 is reserved */ -/* Slot 189 is reserved */ -/* Slot 190 is reserved */ -/* Slot 191 is reserved */ -/* Slot 192 is reserved */ -/* Slot 193 is reserved */ -/* Slot 194 is reserved */ -/* Slot 195 is reserved */ -/* Slot 196 is reserved */ -/* Slot 197 is reserved */ -#define TclObjGetFrame \ - (tclIntStubsPtr->tclObjGetFrame) /* 198 */ -/* Slot 199 is reserved */ -#define TclpObjRemoveDirectory \ - (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */ -#define TclpObjCopyDirectory \ - (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */ -#define TclpObjCreateDirectory \ - (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */ -#define TclpObjDeleteFile \ - (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */ -#define TclpObjCopyFile \ - (tclIntStubsPtr->tclpObjCopyFile) /* 204 */ -#define TclpObjRenameFile \ - (tclIntStubsPtr->tclpObjRenameFile) /* 205 */ -#define TclpObjStat \ - (tclIntStubsPtr->tclpObjStat) /* 206 */ -#define TclpObjAccess \ - (tclIntStubsPtr->tclpObjAccess) /* 207 */ -#define TclpOpenFileChannel \ - (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ -/* Slot 209 is reserved */ -/* Slot 210 is reserved */ -/* Slot 211 is reserved */ -#define TclpFindExecutable \ - (tclIntStubsPtr->tclpFindExecutable) /* 212 */ -#define TclGetObjNameOfExecutable \ - (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */ -#define TclSetObjNameOfExecutable \ - (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */ -#define TclStackAlloc \ - (tclIntStubsPtr->tclStackAlloc) /* 215 */ -#define TclStackFree \ - (tclIntStubsPtr->tclStackFree) /* 216 */ -#define TclPushStackFrame \ - (tclIntStubsPtr->tclPushStackFrame) /* 217 */ -#define TclPopStackFrame \ - (tclIntStubsPtr->tclPopStackFrame) /* 218 */ -/* Slot 219 is reserved */ -/* Slot 220 is reserved */ -/* Slot 221 is reserved */ -/* Slot 222 is reserved */ -/* Slot 223 is reserved */ -#define TclGetPlatform \ - (tclIntStubsPtr->tclGetPlatform) /* 224 */ -#define TclTraceDictPath \ - (tclIntStubsPtr->tclTraceDictPath) /* 225 */ -#define TclObjBeingDeleted \ - (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */ -#define TclSetNsPath \ - (tclIntStubsPtr->tclSetNsPath) /* 227 */ -/* Slot 228 is reserved */ -#define TclPtrMakeUpvar \ - (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */ -#define TclObjLookupVar \ - (tclIntStubsPtr->tclObjLookupVar) /* 230 */ -#define TclGetNamespaceFromObj \ - (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */ -#define TclEvalObjEx \ - (tclIntStubsPtr->tclEvalObjEx) /* 232 */ -#define TclGetSrcInfoForPc \ - (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */ -#define TclVarHashCreateVar \ - (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ -#define TclInitVarHashTable \ - (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ -#define TclBackgroundException \ - (tclIntStubsPtr->tclBackgroundException) /* 236 */ -#define TclResetCancellation \ - (tclIntStubsPtr->tclResetCancellation) /* 237 */ -#define TclNRInterpProc \ - (tclIntStubsPtr->tclNRInterpProc) /* 238 */ -#define TclNRInterpProcCore \ - (tclIntStubsPtr->tclNRInterpProcCore) /* 239 */ -#define TclNRRunCallbacks \ - (tclIntStubsPtr->tclNRRunCallbacks) /* 240 */ -#define TclNREvalObjEx \ - (tclIntStubsPtr->tclNREvalObjEx) /* 241 */ -#define TclNREvalObjv \ - (tclIntStubsPtr->tclNREvalObjv) /* 242 */ -#define TclDbDumpActiveObjects \ - (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ -#define TclGetNamespaceChildTable \ - (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */ -#define TclGetNamespaceCommandTable \ - (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */ -#define TclInitRewriteEnsemble \ - (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */ -#define TclResetRewriteEnsemble \ - (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */ -#define TclCopyChannel \ - (tclIntStubsPtr->tclCopyChannel) /* 248 */ -#define TclDoubleDigits \ - (tclIntStubsPtr->tclDoubleDigits) /* 249 */ -#define TclSetSlaveCancelFlags \ - (tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */ -#define TclRegisterLiteral \ - (tclIntStubsPtr->tclRegisterLiteral) /* 251 */ -#define TclPtrGetVar \ - (tclIntStubsPtr->tclPtrGetVar) /* 252 */ -#define TclPtrSetVar \ - (tclIntStubsPtr->tclPtrSetVar) /* 253 */ -#define TclPtrIncrObjVar \ - (tclIntStubsPtr->tclPtrIncrObjVar) /* 254 */ -#define TclPtrObjMakeUpvar \ - (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */ -#define TclPtrUnsetVar \ - (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */ -/* Slot 257 is reserved */ -/* Slot 258 is reserved */ -#define TclUnusedStubEntry \ - (tclIntStubsPtr->tclUnusedStubEntry) /* 259 */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TclGetStartupScriptFileName -#undef TclSetStartupScriptFileName -#undef TclGetStartupScriptPath -#undef TclSetStartupScriptPath -#undef TclBackgroundException - -#if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED) -# undef Tcl_SetStartupScript -# define Tcl_SetStartupScript \ - (tclStubsPtr->tcl_SetStartupScript) /* 622 */ -# undef Tcl_GetStartupScript -# define Tcl_GetStartupScript \ - (tclStubsPtr->tcl_GetStartupScript) /* 623 */ -# undef Tcl_CreateNamespace -# define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -# undef Tcl_DeleteNamespace -# define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -# undef Tcl_AppendExportList -# define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -# undef Tcl_Export -# define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -# undef Tcl_Import -# define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -# undef Tcl_ForgetImport -# define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -# undef Tcl_GetCurrentNamespace -# define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -# undef Tcl_GetGlobalNamespace -# define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -# undef Tcl_FindNamespace -# define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -# undef Tcl_FindCommand -# define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -# undef Tcl_GetCommandFromObj -# define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -# undef Tcl_GetCommandFullName -# define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif - -#undef TclCopyChannelOld -#undef TclSockMinimumBuffersOld - -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclIntPlatDecls.h deleted file mode 100644 index 903327fdc..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclIntPlatDecls.h +++ /dev/null @@ -1,562 +0,0 @@ -/* - * tclIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLINTPLATDECLS -#define _TCLINTPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - const char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -/* 7 */ -EXTERN TclFile TclpOpenFile(const char *fname, int mode); -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -/* 9 */ -EXTERN TclFile TclpCreateTempFile(const char *contents); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(const time_t *clock); -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(const time_t *clock); -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -/* 14 */ -EXTERN int TclUnixCopyFile(const char *src, const char *dst, - const Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -/* 30 */ -EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -#endif /* UNIX */ -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN void TclWinConvertError(DWORD errCode); -/* 1 */ -EXTERN void TclWinConvertWSAError(DWORD errCode); -/* 2 */ -EXTERN struct servent * TclWinGetServByName(const char *nm, - const char *proto); -/* 3 */ -EXTERN int TclWinGetSockOpt(SOCKET s, int level, int optname, - char *optval, int *optlen); -/* 4 */ -EXTERN HINSTANCE TclWinGetTclInstance(void); -/* 5 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -/* 6 */ -EXTERN unsigned short TclWinNToHS(unsigned short ns); -/* 7 */ -EXTERN int TclWinSetSockOpt(SOCKET s, int level, int optname, - const char *optval, int optlen); -/* 8 */ -EXTERN int TclpGetPid(Tcl_Pid pid); -/* 9 */ -EXTERN int TclWinGetPlatformId(void); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -/* 11 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -/* 12 */ -EXTERN int TclpCloseFile(TclFile file); -/* 13 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -/* 14 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -/* 15 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - const char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -/* 16 */ -EXTERN int TclpIsAtty(int fd); -/* 17 */ -EXTERN int TclUnixCopyFile(const char *src, const char *dst, - const Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -/* 18 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -/* 19 */ -EXTERN TclFile TclpOpenFile(const char *fname, int mode); -/* 20 */ -EXTERN void TclWinAddProcess(HANDLE hProcess, DWORD id); -/* 21 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -/* 22 */ -EXTERN TclFile TclpCreateTempFile(const char *contents); -/* Slot 23 is reserved */ -/* 24 */ -EXTERN char * TclWinNoBackslash(char *path); -/* Slot 25 is reserved */ -/* 26 */ -EXTERN void TclWinSetInterfaces(int wide); -/* 27 */ -EXTERN void TclWinFlushDirtyChannels(void); -/* 28 */ -EXTERN void TclWinResetInterfaces(void); -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -/* 30 */ -EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 0 */ -EXTERN void TclGetAndDetachPids(Tcl_Interp *interp, - Tcl_Channel chan); -/* 1 */ -EXTERN int TclpCloseFile(TclFile file); -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile, - TclFile writeFile, TclFile errorFile, - int numPids, Tcl_Pid *pidPtr); -/* 3 */ -EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe); -/* 4 */ -EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc, - const char **argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid *pidPtr); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction); -/* 7 */ -EXTERN TclFile TclpOpenFile(const char *fname, int mode); -/* 8 */ -EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout); -/* 9 */ -EXTERN TclFile TclpCreateTempFile(const char *contents); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir); -/* 11 */ -EXTERN struct tm * TclpLocaltime_unix(const time_t *clock); -/* 12 */ -EXTERN struct tm * TclpGmtime_unix(const time_t *clock); -/* 13 */ -EXTERN char * TclpInetNtoa(struct in_addr addr); -/* 14 */ -EXTERN int TclUnixCopyFile(const char *src, const char *dst, - const Tcl_StatBuf *statBufPtr, - int dontCopyAtts); -/* 15 */ -EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj **attributePtrPtr); -/* 16 */ -EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp, - int objIndex, Tcl_Obj *fileName, - Tcl_Obj *attributePtr); -/* 17 */ -EXTERN int TclMacOSXCopyFileAttributes(const char *src, - const char *dst, - const Tcl_StatBuf *statBufPtr); -/* 18 */ -EXTERN int TclMacOSXMatchType(Tcl_Interp *interp, - const char *pathName, const char *fileName, - Tcl_StatBuf *statBufPtr, - Tcl_GlobTypeData *types); -/* 19 */ -EXTERN void TclMacOSXNotifierAddRunLoopMode( - const void *runLoopMode); -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -/* 29 */ -EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs); -/* 30 */ -EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj, - Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, - Tcl_Obj *resultingNameObj); -#endif /* MACOSX */ - -typedef struct TclIntPlatStubs { - int magic; - void *hooks; - -#if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - void (*reserved5)(void); - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - void (*reserved15)(void); - void (*reserved16)(void); - void (*reserved17)(void); - void (*reserved18)(void); - void (*reserved19)(void); - void (*reserved20)(void); - void (*reserved21)(void); - void (*reserved22)(void); - void (*reserved23)(void); - void (*reserved24)(void); - void (*reserved25)(void); - void (*reserved26)(void); - void (*reserved27)(void); - void (*reserved28)(void); - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ - int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */ -#endif /* UNIX */ -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - void (*tclWinConvertError) (DWORD errCode); /* 0 */ - void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */ - struct servent * (*tclWinGetServByName) (const char *nm, const char *proto); /* 2 */ - int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */ - HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */ - unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */ - int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, const char *optval, int optlen); /* 7 */ - int (*tclpGetPid) (Tcl_Pid pid); /* 8 */ - int (*tclWinGetPlatformId) (void); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */ - int (*tclpCloseFile) (TclFile file); /* 12 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */ - int (*tclpIsAtty) (int fd); /* 16 */ - int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */ - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */ - TclFile (*tclpOpenFile) (const char *fname, int mode); /* 19 */ - void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */ - TclFile (*tclpCreateTempFile) (const char *contents); /* 22 */ - void (*reserved23)(void); - char * (*tclWinNoBackslash) (char *path); /* 24 */ - void (*reserved25)(void); - void (*tclWinSetInterfaces) (int wide); /* 26 */ - void (*tclWinFlushDirtyChannels) (void); /* 27 */ - void (*tclWinResetInterfaces) (void); /* 28 */ - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ - int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */ - int (*tclpCloseFile) (TclFile file); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */ - int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */ - int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */ - void (*reserved5)(void); - TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ - TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */ - int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ - TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */ - struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */ - struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */ - char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ - int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */ - int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */ - int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */ - int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */ - int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */ - void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */ - void (*reserved20)(void); - void (*reserved21)(void); - void (*reserved22)(void); - void (*reserved23)(void); - void (*reserved24)(void); - void (*reserved25)(void); - void (*reserved26)(void); - void (*reserved27)(void); - void (*reserved28)(void); - int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */ - int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */ -#endif /* MACOSX */ -} TclIntPlatStubs; - -extern const TclIntPlatStubs *tclIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -/* Slot 5 is reserved */ -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#define TclUnixOpenTemporaryFile \ - (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */ -#endif /* UNIX */ -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define TclWinConvertError \ - (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ -#define TclWinConvertWSAError \ - (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ -#define TclWinGetServByName \ - (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ -#define TclWinGetSockOpt \ - (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ -#define TclWinGetTclInstance \ - (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */ -#define TclWinNToHS \ - (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ -#define TclWinSetSockOpt \ - (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ -#define TclpGetPid \ - (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ -#define TclWinGetPlatformId \ - (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ -#define TclpIsAtty \ - (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */ -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */ -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ -#define TclWinAddProcess \ - (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */ -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ -/* Slot 23 is reserved */ -#define TclWinNoBackslash \ - (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ -/* Slot 25 is reserved */ -#define TclWinSetInterfaces \ - (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ -#define TclWinFlushDirtyChannels \ - (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ -#define TclWinResetInterfaces \ - (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#define TclUnixOpenTemporaryFile \ - (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -/* Slot 5 is reserved */ -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#define TclpLocaltime_unix \ - (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ -#define TclpGmtime_unix \ - (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#define TclUnixCopyFile \ - (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ -#define TclMacOSXGetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */ -#define TclMacOSXSetFileAttribute \ - (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */ -#define TclMacOSXCopyFileAttributes \ - (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */ -#define TclMacOSXMatchType \ - (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */ -#define TclMacOSXNotifierAddRunLoopMode \ - (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* Slot 22 is reserved */ -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -#define TclWinCPUID \ - (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ -#define TclUnixOpenTemporaryFile \ - (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */ -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT -#undef TclpLocaltime_unix -#undef TclpGmtime_unix -#undef TclWinConvertWSAError -#define TclWinConvertWSAError TclWinConvertError -#undef TclpInetNtoa -#define TclpInetNtoa inet_ntoa - -#if defined(_WIN32) -# undef TclWinNToHS -# undef TclWinGetServByName -# undef TclWinGetSockOpt -# undef TclWinSetSockOpt -# define TclWinNToHS ntohs -# define TclWinGetServByName getservbyname -# define TclWinGetSockOpt getsockopt -# define TclWinSetSockOpt setsockopt -#else -# undef TclpGetPid -# define TclpGetPid(pid) ((unsigned long) (pid)) -#endif - -#endif /* _TCLINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclOO.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclOO.h deleted file mode 100644 index 32afbf154..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclOO.h +++ /dev/null @@ -1,147 +0,0 @@ -/* - * tclOO.h -- - * - * This file contains the public API definitions and some of the function - * declarations for the object-system (NB: not Tcl_Obj, but ::oo). - * - * Copyright (c) 2006-2010 by Donal K. Fellows - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef TCLOO_H_INCLUDED -#define TCLOO_H_INCLUDED - -/* - * Be careful when it comes to versioning; need to make sure that the - * standalone TclOO version matches. Also make sure that this matches the - * version in the files: - * - * tests/oo.test - * tests/ooNext2.test - * unix/tclooConfig.sh - * win/tclooConfig.sh - */ - -#define TCLOO_VERSION "1.1.0" -#define TCLOO_PATCHLEVEL TCLOO_VERSION - -#include "tcl.h" - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -extern const char *TclOOInitializeStubs( - Tcl_Interp *, const char *version); -#define Tcl_OOInitStubs(interp) \ - TclOOInitializeStubs((interp), TCLOO_VERSION) -#ifndef USE_TCL_STUBS -# define TclOOInitializeStubs(interp, version) (TCLOO_PATCHLEVEL) -#endif - -/* - * These are opaque types. - */ - -typedef struct Tcl_Class_ *Tcl_Class; -typedef struct Tcl_Method_ *Tcl_Method; -typedef struct Tcl_Object_ *Tcl_Object; -typedef struct Tcl_ObjectContext_ *Tcl_ObjectContext; - -/* - * Public datatypes for callbacks and structures used in the TIP#257 (OO) - * implementation. These are used to implement custom types of method calls - * and to allow the attachment of arbitrary data to objects and classes. - */ - -typedef int (Tcl_MethodCallProc)(ClientData clientData, Tcl_Interp *interp, - Tcl_ObjectContext objectContext, int objc, Tcl_Obj *const *objv); -typedef void (Tcl_MethodDeleteProc)(ClientData clientData); -typedef int (Tcl_CloneProc)(Tcl_Interp *interp, ClientData oldClientData, - ClientData *newClientData); -typedef void (Tcl_ObjectMetadataDeleteProc)(ClientData clientData); -typedef int (Tcl_ObjectMapMethodNameProc)(Tcl_Interp *interp, - Tcl_Object object, Tcl_Class *startClsPtr, Tcl_Obj *methodNameObj); - -/* - * The type of a method implementation. This describes how to call the method - * implementation, how to delete it (when the object or class is deleted) and - * how to create a clone of it (when the object or class is copied). - */ - -typedef struct { - int version; /* Structure version field. Always to be equal - * to TCL_OO_METHOD_VERSION_CURRENT in - * declarations. */ - const char *name; /* Name of this type of method, mostly for - * debugging purposes. */ - Tcl_MethodCallProc *callProc; - /* How to invoke this method. */ - Tcl_MethodDeleteProc *deleteProc; - /* How to delete this method's type-specific - * data, or NULL if the type-specific data - * does not need deleting. */ - Tcl_CloneProc *cloneProc; /* How to copy this method's type-specific - * data, or NULL if the type-specific data can - * be copied directly. */ -} Tcl_MethodType; - -/* - * The correct value for the version field of the Tcl_MethodType structure. - * This allows new versions of the structure to be introduced without breaking - * binary compatability. - */ - -#define TCL_OO_METHOD_VERSION_CURRENT 1 - -/* - * The type of some object (or class) metadata. This describes how to delete - * the metadata (when the object or class is deleted) and how to create a - * clone of it (when the object or class is copied). - */ - -typedef struct { - int version; /* Structure version field. Always to be equal - * to TCL_OO_METADATA_VERSION_CURRENT in - * declarations. */ - const char *name; - Tcl_ObjectMetadataDeleteProc *deleteProc; - /* How to delete the metadata. This must not - * be NULL. */ - Tcl_CloneProc *cloneProc; /* How to copy the metadata, or NULL if the - * type-specific data can be copied - * directly. */ -} Tcl_ObjectMetadataType; - -/* - * The correct value for the version field of the Tcl_ObjectMetadataType - * structure. This allows new versions of the structure to be introduced - * without breaking binary compatability. - */ - -#define TCL_OO_METADATA_VERSION_CURRENT 1 - -/* - * Include all the public API, generated from tclOO.decls. - */ - -#include "tclOODecls.h" - -#ifdef __cplusplus -} -#endif -#endif - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclOODecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclOODecls.h deleted file mode 100644 index 9fd62ec66..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclOODecls.h +++ /dev/null @@ -1,234 +0,0 @@ -/* - * This file is (mostly) automatically generated from tclOO.decls. - */ - -#ifndef _TCLOODECLS -#define _TCLOODECLS - -#ifndef TCLAPI -# ifdef BUILD_tcl -# define TCLAPI extern DLLEXPORT -# else -# define TCLAPI extern DLLIMPORT -# endif -#endif - -#ifdef USE_TCL_STUBS -# undef USE_TCLOO_STUBS -# define USE_TCLOO_STUBS -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -TCLAPI Tcl_Object Tcl_CopyObjectInstance(Tcl_Interp *interp, - Tcl_Object sourceObject, - const char *targetName, - const char *targetNamespaceName); -/* 1 */ -TCLAPI Tcl_Object Tcl_GetClassAsObject(Tcl_Class clazz); -/* 2 */ -TCLAPI Tcl_Class Tcl_GetObjectAsClass(Tcl_Object object); -/* 3 */ -TCLAPI Tcl_Command Tcl_GetObjectCommand(Tcl_Object object); -/* 4 */ -TCLAPI Tcl_Object Tcl_GetObjectFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 5 */ -TCLAPI Tcl_Namespace * Tcl_GetObjectNamespace(Tcl_Object object); -/* 6 */ -TCLAPI Tcl_Class Tcl_MethodDeclarerClass(Tcl_Method method); -/* 7 */ -TCLAPI Tcl_Object Tcl_MethodDeclarerObject(Tcl_Method method); -/* 8 */ -TCLAPI int Tcl_MethodIsPublic(Tcl_Method method); -/* 9 */ -TCLAPI int Tcl_MethodIsType(Tcl_Method method, - const Tcl_MethodType *typePtr, - ClientData *clientDataPtr); -/* 10 */ -TCLAPI Tcl_Obj * Tcl_MethodName(Tcl_Method method); -/* 11 */ -TCLAPI Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp, - Tcl_Object object, Tcl_Obj *nameObj, - int isPublic, const Tcl_MethodType *typePtr, - ClientData clientData); -/* 12 */ -TCLAPI Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls, - Tcl_Obj *nameObj, int isPublic, - const Tcl_MethodType *typePtr, - ClientData clientData); -/* 13 */ -TCLAPI Tcl_Object Tcl_NewObjectInstance(Tcl_Interp *interp, - Tcl_Class cls, const char *nameStr, - const char *nsNameStr, int objc, - Tcl_Obj *const *objv, int skip); -/* 14 */ -TCLAPI int Tcl_ObjectDeleted(Tcl_Object object); -/* 15 */ -TCLAPI int Tcl_ObjectContextIsFiltering( - Tcl_ObjectContext context); -/* 16 */ -TCLAPI Tcl_Method Tcl_ObjectContextMethod(Tcl_ObjectContext context); -/* 17 */ -TCLAPI Tcl_Object Tcl_ObjectContextObject(Tcl_ObjectContext context); -/* 18 */ -TCLAPI int Tcl_ObjectContextSkippedArgs( - Tcl_ObjectContext context); -/* 19 */ -TCLAPI ClientData Tcl_ClassGetMetadata(Tcl_Class clazz, - const Tcl_ObjectMetadataType *typePtr); -/* 20 */ -TCLAPI void Tcl_ClassSetMetadata(Tcl_Class clazz, - const Tcl_ObjectMetadataType *typePtr, - ClientData metadata); -/* 21 */ -TCLAPI ClientData Tcl_ObjectGetMetadata(Tcl_Object object, - const Tcl_ObjectMetadataType *typePtr); -/* 22 */ -TCLAPI void Tcl_ObjectSetMetadata(Tcl_Object object, - const Tcl_ObjectMetadataType *typePtr, - ClientData metadata); -/* 23 */ -TCLAPI int Tcl_ObjectContextInvokeNext(Tcl_Interp *interp, - Tcl_ObjectContext context, int objc, - Tcl_Obj *const *objv, int skip); -/* 24 */ -TCLAPI Tcl_ObjectMapMethodNameProc * Tcl_ObjectGetMethodNameMapper( - Tcl_Object object); -/* 25 */ -TCLAPI void Tcl_ObjectSetMethodNameMapper(Tcl_Object object, - Tcl_ObjectMapMethodNameProc *mapMethodNameProc); -/* 26 */ -TCLAPI void Tcl_ClassSetConstructor(Tcl_Interp *interp, - Tcl_Class clazz, Tcl_Method method); -/* 27 */ -TCLAPI void Tcl_ClassSetDestructor(Tcl_Interp *interp, - Tcl_Class clazz, Tcl_Method method); -/* 28 */ -TCLAPI Tcl_Obj * Tcl_GetObjectName(Tcl_Interp *interp, - Tcl_Object object); - -typedef struct { - const struct TclOOIntStubs *tclOOIntStubs; -} TclOOStubHooks; - -typedef struct TclOOStubs { - int magic; - const TclOOStubHooks *hooks; - - Tcl_Object (*tcl_CopyObjectInstance) (Tcl_Interp *interp, Tcl_Object sourceObject, const char *targetName, const char *targetNamespaceName); /* 0 */ - Tcl_Object (*tcl_GetClassAsObject) (Tcl_Class clazz); /* 1 */ - Tcl_Class (*tcl_GetObjectAsClass) (Tcl_Object object); /* 2 */ - Tcl_Command (*tcl_GetObjectCommand) (Tcl_Object object); /* 3 */ - Tcl_Object (*tcl_GetObjectFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 4 */ - Tcl_Namespace * (*tcl_GetObjectNamespace) (Tcl_Object object); /* 5 */ - Tcl_Class (*tcl_MethodDeclarerClass) (Tcl_Method method); /* 6 */ - Tcl_Object (*tcl_MethodDeclarerObject) (Tcl_Method method); /* 7 */ - int (*tcl_MethodIsPublic) (Tcl_Method method); /* 8 */ - int (*tcl_MethodIsType) (Tcl_Method method, const Tcl_MethodType *typePtr, ClientData *clientDataPtr); /* 9 */ - Tcl_Obj * (*tcl_MethodName) (Tcl_Method method); /* 10 */ - Tcl_Method (*tcl_NewInstanceMethod) (Tcl_Interp *interp, Tcl_Object object, Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, ClientData clientData); /* 11 */ - Tcl_Method (*tcl_NewMethod) (Tcl_Interp *interp, Tcl_Class cls, Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, ClientData clientData); /* 12 */ - Tcl_Object (*tcl_NewObjectInstance) (Tcl_Interp *interp, Tcl_Class cls, const char *nameStr, const char *nsNameStr, int objc, Tcl_Obj *const *objv, int skip); /* 13 */ - int (*tcl_ObjectDeleted) (Tcl_Object object); /* 14 */ - int (*tcl_ObjectContextIsFiltering) (Tcl_ObjectContext context); /* 15 */ - Tcl_Method (*tcl_ObjectContextMethod) (Tcl_ObjectContext context); /* 16 */ - Tcl_Object (*tcl_ObjectContextObject) (Tcl_ObjectContext context); /* 17 */ - int (*tcl_ObjectContextSkippedArgs) (Tcl_ObjectContext context); /* 18 */ - ClientData (*tcl_ClassGetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType *typePtr); /* 19 */ - void (*tcl_ClassSetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType *typePtr, ClientData metadata); /* 20 */ - ClientData (*tcl_ObjectGetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType *typePtr); /* 21 */ - void (*tcl_ObjectSetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType *typePtr, ClientData metadata); /* 22 */ - int (*tcl_ObjectContextInvokeNext) (Tcl_Interp *interp, Tcl_ObjectContext context, int objc, Tcl_Obj *const *objv, int skip); /* 23 */ - Tcl_ObjectMapMethodNameProc * (*tcl_ObjectGetMethodNameMapper) (Tcl_Object object); /* 24 */ - void (*tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMapMethodNameProc *mapMethodNameProc); /* 25 */ - void (*tcl_ClassSetConstructor) (Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method); /* 26 */ - void (*tcl_ClassSetDestructor) (Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method); /* 27 */ - Tcl_Obj * (*tcl_GetObjectName) (Tcl_Interp *interp, Tcl_Object object); /* 28 */ -} TclOOStubs; - -extern const TclOOStubs *tclOOStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCLOO_STUBS) - -/* - * Inline function declarations: - */ - -#define Tcl_CopyObjectInstance \ - (tclOOStubsPtr->tcl_CopyObjectInstance) /* 0 */ -#define Tcl_GetClassAsObject \ - (tclOOStubsPtr->tcl_GetClassAsObject) /* 1 */ -#define Tcl_GetObjectAsClass \ - (tclOOStubsPtr->tcl_GetObjectAsClass) /* 2 */ -#define Tcl_GetObjectCommand \ - (tclOOStubsPtr->tcl_GetObjectCommand) /* 3 */ -#define Tcl_GetObjectFromObj \ - (tclOOStubsPtr->tcl_GetObjectFromObj) /* 4 */ -#define Tcl_GetObjectNamespace \ - (tclOOStubsPtr->tcl_GetObjectNamespace) /* 5 */ -#define Tcl_MethodDeclarerClass \ - (tclOOStubsPtr->tcl_MethodDeclarerClass) /* 6 */ -#define Tcl_MethodDeclarerObject \ - (tclOOStubsPtr->tcl_MethodDeclarerObject) /* 7 */ -#define Tcl_MethodIsPublic \ - (tclOOStubsPtr->tcl_MethodIsPublic) /* 8 */ -#define Tcl_MethodIsType \ - (tclOOStubsPtr->tcl_MethodIsType) /* 9 */ -#define Tcl_MethodName \ - (tclOOStubsPtr->tcl_MethodName) /* 10 */ -#define Tcl_NewInstanceMethod \ - (tclOOStubsPtr->tcl_NewInstanceMethod) /* 11 */ -#define Tcl_NewMethod \ - (tclOOStubsPtr->tcl_NewMethod) /* 12 */ -#define Tcl_NewObjectInstance \ - (tclOOStubsPtr->tcl_NewObjectInstance) /* 13 */ -#define Tcl_ObjectDeleted \ - (tclOOStubsPtr->tcl_ObjectDeleted) /* 14 */ -#define Tcl_ObjectContextIsFiltering \ - (tclOOStubsPtr->tcl_ObjectContextIsFiltering) /* 15 */ -#define Tcl_ObjectContextMethod \ - (tclOOStubsPtr->tcl_ObjectContextMethod) /* 16 */ -#define Tcl_ObjectContextObject \ - (tclOOStubsPtr->tcl_ObjectContextObject) /* 17 */ -#define Tcl_ObjectContextSkippedArgs \ - (tclOOStubsPtr->tcl_ObjectContextSkippedArgs) /* 18 */ -#define Tcl_ClassGetMetadata \ - (tclOOStubsPtr->tcl_ClassGetMetadata) /* 19 */ -#define Tcl_ClassSetMetadata \ - (tclOOStubsPtr->tcl_ClassSetMetadata) /* 20 */ -#define Tcl_ObjectGetMetadata \ - (tclOOStubsPtr->tcl_ObjectGetMetadata) /* 21 */ -#define Tcl_ObjectSetMetadata \ - (tclOOStubsPtr->tcl_ObjectSetMetadata) /* 22 */ -#define Tcl_ObjectContextInvokeNext \ - (tclOOStubsPtr->tcl_ObjectContextInvokeNext) /* 23 */ -#define Tcl_ObjectGetMethodNameMapper \ - (tclOOStubsPtr->tcl_ObjectGetMethodNameMapper) /* 24 */ -#define Tcl_ObjectSetMethodNameMapper \ - (tclOOStubsPtr->tcl_ObjectSetMethodNameMapper) /* 25 */ -#define Tcl_ClassSetConstructor \ - (tclOOStubsPtr->tcl_ClassSetConstructor) /* 26 */ -#define Tcl_ClassSetDestructor \ - (tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */ -#define Tcl_GetObjectName \ - (tclOOStubsPtr->tcl_GetObjectName) /* 28 */ - -#endif /* defined(USE_TCLOO_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLOODECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclPlatDecls.h deleted file mode 100644 index abc8ee817..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclPlatDecls.h +++ /dev/null @@ -1,122 +0,0 @@ -/* - * tclPlatDecls.h -- - * - * Declarations of platform specific Tcl APIs. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TCLPLATDECLS -#define _TCLPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* - * TCHAR is needed here for win32, so if it is not defined yet do it here. - * This way, we don't need to include just for one define. - */ -#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) -# if defined(_UNICODE) - typedef wchar_t TCHAR; -# else - typedef char TCHAR; -# endif -# define _TCHAR_DEFINED -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len, - Tcl_DString *dsPtr); -/* 1 */ -EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len, - Tcl_DString *dsPtr); -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -/* 0 */ -EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, - const char *bundleName, int hasResourceFile, - int maxPathLen, char *libraryPath); -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources( - Tcl_Interp *interp, const char *bundleName, - const char *bundleVersion, - int hasResourceFile, int maxPathLen, - char *libraryPath); -#endif /* MACOSX */ - -typedef struct TclPlatStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - TCHAR * (*tcl_WinUtfToTChar) (const char *str, int len, Tcl_DString *dsPtr); /* 0 */ - char * (*tcl_WinTCharToUtf) (const TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, const char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ - int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */ -#endif /* MACOSX */ -} TclPlatStubs; - -extern const TclPlatStubs *tclPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define Tcl_WinUtfToTChar \ - (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ -#define Tcl_WinTCharToUtf \ - (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#define Tcl_MacOSXOpenBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLPLATDECLS */ - - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclPort.h deleted file mode 100644 index 94855677d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclPort.h +++ /dev/null @@ -1,46 +0,0 @@ -/* - * tclPort.h -- - * - * This header file handles porting issues that occur because - * of differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1994-1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLPORT -#define _TCLPORT - -#ifdef HAVE_TCL_CONFIG_H -#include "tclConfig.h" -#endif -#if defined(_WIN32) -# include "tclWinPort.h" -#else -# include "tclUnixPort.h" -#endif -#include "tcl.h" - -#if !defined(LLONG_MIN) -# ifdef TCL_WIDE_INT_IS_LONG -# define LLONG_MIN LONG_MIN -# else -# ifdef LLONG_BIT -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<(LLONG_BIT-1))) -# else -/* Assume we're on a system with a 64-bit 'long long' type */ -# define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<63)) -# endif -# endif -/* Assume that if LLONG_MIN is undefined, then so is LLONG_MAX */ -# define LLONG_MAX (~LLONG_MIN) -#endif - -#define UWIDE_MAX ((Tcl_WideUInt)-1) -#define WIDE_MAX ((Tcl_WideInt)(UWIDE_MAX >> 1)) -#define WIDE_MIN ((Tcl_WideInt)((Tcl_WideUInt)WIDE_MAX+1)) - -#endif /* _TCLPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclTomMath.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclTomMath.h deleted file mode 100644 index 85b0b4b64..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclTomMath.h +++ /dev/null @@ -1,1122 +0,0 @@ -/* LibTomMath, multiple-precision integer library -- Tom St Denis */ -/* SPDX-License-Identifier: Unlicense */ - -#ifndef BN_H_ -#define BN_H_ - -#ifndef MODULE_SCOPE -#define MODULE_SCOPE extern -#endif - - - -#ifdef __cplusplus -extern "C" { -#endif - -/* MS Visual C++ doesn't have a 128bit type for words, so fall back to 32bit MPI's (where words are 64bit) */ -#if (defined(_WIN32) || defined(__LLP64__) || defined(__e2k__) || defined(__LCC__)) && !defined(MP_64BIT) -# define MP_32BIT -#endif - -/* detect 64-bit mode if possible */ -#if defined(NEVER) -# if !(defined(MP_32BIT) || defined(MP_16BIT) || defined(MP_8BIT)) -# if defined(__GNUC__) -/* we support 128bit integers only via: __attribute__((mode(TI))) */ -# define MP_64BIT -# else -/* otherwise we fall back to MP_32BIT even on 64bit platforms */ -# define MP_32BIT -# endif -# endif -#endif - -#ifdef MP_DIGIT_BIT -# error Defining MP_DIGIT_BIT is disallowed, use MP_8/16/31/32/64BIT -#endif - -/* some default configurations. - * - * A "mp_digit" must be able to hold MP_DIGIT_BIT + 1 bits - * A "mp_word" must be able to hold 2*MP_DIGIT_BIT + 1 bits - * - * At the very least a mp_digit must be able to hold 7 bits - * [any size beyond that is ok provided it doesn't overflow the data type] - */ - -#ifdef MP_8BIT -#ifndef MP_DIGIT_DECLARED -typedef unsigned char mp_digit; -#define MP_DIGIT_DECLARED -#endif -#ifndef MP_WORD_DECLARED -typedef unsigned short private_mp_word; -#define MP_WORD_DECLARED -#endif -# define MP_SIZEOF_MP_DIGIT 1 -# ifdef MP_DIGIT_BIT -# error You must not define MP_DIGIT_BIT when using MP_8BIT -# endif -#elif defined(MP_16BIT) -#ifndef MP_DIGIT_DECLARED -typedef unsigned short mp_digit; -#define MP_DIGIT_DECLARED -#endif -#ifndef MP_WORD_DECLARED -typedef unsigned int private_mp_word; -#define MP_WORD_DECLARED -#endif -# define MP_SIZEOF_MP_DIGIT 2 -# ifdef MP_DIGIT_BIT -# error You must not define MP_DIGIT_BIT when using MP_16BIT -# endif -#elif defined(MP_64BIT) -/* for GCC only on supported platforms */ -#ifndef MP_DIGIT_DECLARED -typedef unsigned long long mp_digit; -#define MP_DIGIT_DECLARED -#endif -typedef unsigned long private_mp_word __attribute__((mode(TI))); -# define MP_DIGIT_BIT 60 -#else -/* this is the default case, 28-bit digits */ - -/* this is to make porting into LibTomCrypt easier :-) */ -#ifndef MP_DIGIT_DECLARED -typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED -#endif -#ifndef MP_WORD_DECLARED -#ifdef _WIN32 -typedef unsigned __int64 private_mp_word; -#else -typedef unsigned long long private_mp_word; -#endif -#define MP_WORD_DECLARED -#endif - -# ifdef MP_31BIT -/* - * This is an extension that uses 31-bit digits. - * Please be aware that not all functions support this size, especially s_mp_mul_digs_fast - * will be reduced to work on small numbers only: - * Up to 8 limbs, 248 bits instead of up to 512 limbs, 15872 bits with MP_28BIT. - */ -# define MP_DIGIT_BIT 31 -# else -/* default case is 28-bit digits, defines MP_28BIT as a handy macro to test */ -# define MP_DIGIT_BIT 28 -# define MP_28BIT -# endif -#endif - -/* otherwise the bits per digit is calculated automatically from the size of a mp_digit */ -#ifndef MP_DIGIT_BIT -# define MP_DIGIT_BIT (((CHAR_BIT * MP_SIZEOF_MP_DIGIT) - 1)) /* bits per digit */ -#endif - -#define MP_MASK ((((mp_digit)1)<<((mp_digit)MP_DIGIT_BIT))-((mp_digit)1)) -#define MP_DIGIT_MAX MP_MASK - -/* Primality generation flags */ -#define MP_PRIME_BBS 0x0001 /* BBS style prime */ -#define MP_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */ -#define MP_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */ - -#define LTM_PRIME_BBS (MP_DEPRECATED_PRAGMA("LTM_PRIME_BBS has been deprecated, use MP_PRIME_BBS") MP_PRIME_BBS) -#define LTM_PRIME_SAFE (MP_DEPRECATED_PRAGMA("LTM_PRIME_SAFE has been deprecated, use MP_PRIME_SAFE") MP_PRIME_SAFE) -#define LTM_PRIME_2MSB_ON (MP_DEPRECATED_PRAGMA("LTM_PRIME_2MSB_ON has been deprecated, use MP_PRIME_2MSB_ON") MP_PRIME_2MSB_ON) - -#ifdef MP_USE_ENUMS -typedef enum { - MP_ZPOS = 0, /* positive */ - MP_NEG = 1 /* negative */ -} mp_sign; -typedef enum { - MP_LT = -1, /* less than */ - MP_EQ = 0, /* equal */ - MP_GT = 1 /* greater than */ -} mp_ord; -typedef enum { - MP_NO = 0, - MP_YES = 1 -} mp_bool; -typedef enum { - MP_OKAY = 0, /* no error */ - MP_ERR = -1, /* unknown error */ - MP_MEM = -2, /* out of mem */ - MP_VAL = -3, /* invalid input */ - MP_ITER = -4, /* maximum iterations reached */ - MP_BUF = -5 /* buffer overflow, supplied buffer too small */ -} mp_err; -typedef enum { - MP_LSB_FIRST = -1, - MP_MSB_FIRST = 1 -} mp_order; -typedef enum { - MP_LITTLE_ENDIAN = -1, - MP_NATIVE_ENDIAN = 0, - MP_BIG_ENDIAN = 1 -} mp_endian; -#else -typedef int mp_sign; -#define MP_ZPOS 0 /* positive integer */ -#define MP_NEG 1 /* negative */ -typedef int mp_ord; -#define MP_LT -1 /* less than */ -#define MP_EQ 0 /* equal to */ -#define MP_GT 1 /* greater than */ -typedef int mp_bool; -#define MP_YES 1 -#define MP_NO 0 -typedef int mp_err; -#define MP_OKAY 0 /* no error */ -#define MP_ERR -1 /* unknown error */ -#define MP_MEM -2 /* out of mem */ -#define MP_VAL -3 /* invalid input */ -#define MP_RANGE (MP_DEPRECATED_PRAGMA("MP_RANGE has been deprecated in favor of MP_VAL") MP_VAL) -#define MP_ITER -4 /* maximum iterations reached */ -#define MP_BUF -5 /* buffer overflow, supplied buffer too small */ -typedef int mp_order; -#define MP_LSB_FIRST -1 -#define MP_MSB_FIRST 1 -typedef int mp_endian; -#define MP_LITTLE_ENDIAN -1 -#define MP_NATIVE_ENDIAN 0 -#define MP_BIG_ENDIAN 1 -#endif - -/* tunable cutoffs */ - -#ifndef MP_FIXED_CUTOFFS -extern int -KARATSUBA_MUL_CUTOFF, -KARATSUBA_SQR_CUTOFF, -TOOM_MUL_CUTOFF, -TOOM_SQR_CUTOFF; -#endif - -/* define this to use lower memory usage routines (exptmods mostly) */ -/* #define MP_LOW_MEM */ - -/* default precision */ -#ifndef MP_PREC -# ifndef MP_LOW_MEM -# define MP_PREC 32 /* default digits of precision */ -# elif defined(MP_8BIT) -# define MP_PREC 16 /* default digits of precision */ -# else -# define MP_PREC 8 /* default digits of precision */ -# endif -#endif - -/* size of comba arrays, should be at least 2 * 2**(BITS_PER_WORD - BITS_PER_DIGIT*2) */ -#define PRIVATE_MP_WARRAY (int)(1 << (((CHAR_BIT * sizeof(private_mp_word)) - (2 * MP_DIGIT_BIT)) + 1)) - -#if defined(__GNUC__) && __GNUC__ >= 4 -# define MP_NULL_TERMINATED __attribute__((sentinel)) -#else -# define MP_NULL_TERMINATED -#endif - -/* - * MP_WUR - warn unused result - * --------------------------- - * - * The result of functions annotated with MP_WUR must be - * checked and cannot be ignored. - * - * Most functions in libtommath return an error code. - * This error code must be checked in order to prevent crashes or invalid - * results. - * - * If you still want to avoid the error checks for quick and dirty programs - * without robustness guarantees, you can `#define MP_WUR` before including - * tommath.h, disabling the warnings. - */ -#ifndef MP_WUR -# if defined(__GNUC__) && __GNUC__ >= 4 -# define MP_WUR __attribute__((warn_unused_result)) -# else -# define MP_WUR -# endif -#endif - -#if defined(__GNUC__) && (__GNUC__ * 100 + __GNUC_MINOR__ >= 405) -# define MP_DEPRECATED(x) __attribute__((deprecated("replaced by " #x))) -# define PRIVATE_MP_DEPRECATED_PRAGMA(s) _Pragma(#s) -# define MP_DEPRECATED_PRAGMA(s) PRIVATE_MP_DEPRECATED_PRAGMA(GCC warning s) -#elif defined(_MSC_VER) && _MSC_VER >= 1500 -# define MP_DEPRECATED(x) __declspec(deprecated("replaced by " #x)) -# define MP_DEPRECATED_PRAGMA(s) __pragma(message(s)) -#else -# define MP_DEPRECATED(s) -# define MP_DEPRECATED_PRAGMA(s) -#endif - -#define DIGIT_BIT MP_DIGIT_BIT -#define USED(m) ((m)->used) -#define DIGIT(m,k) ((m)->dp[(k)]) -#define SIGN(m) ((m)->sign) - -/* the infamous mp_int structure */ -#ifndef MP_INT_DECLARED -#define MP_INT_DECLARED -typedef struct mp_int mp_int; -#endif -struct mp_int { - int used, alloc; - mp_sign sign; - mp_digit *dp; -}; - -/* callback for mp_prime_random, should fill dst with random bytes and return how many read [upto len] */ -typedef int private_mp_prime_callback(unsigned char *dst, int len, void *dat); -typedef private_mp_prime_callback MP_DEPRECATED(mp_rand_source) ltm_prime_callback; - -/* error code to char* string */ -/* -const char *mp_error_to_string(mp_err code) MP_WUR; -*/ - -/* ---> init and deinit bignum functions <--- */ -/* init a bignum */ -/* -mp_err mp_init(mp_int *a) MP_WUR; -*/ - -/* free a bignum */ -/* -void mp_clear(mp_int *a); -*/ - -/* init a null terminated series of arguments */ -/* -mp_err mp_init_multi(mp_int *mp, ...) MP_NULL_TERMINATED MP_WUR; -*/ - -/* clear a null terminated series of arguments */ -/* -void mp_clear_multi(mp_int *mp, ...) MP_NULL_TERMINATED; -*/ - -/* exchange two ints */ -/* -void mp_exch(mp_int *a, mp_int *b); -*/ - -/* shrink ram required for a bignum */ -/* -mp_err mp_shrink(mp_int *a) MP_WUR; -*/ - -/* grow an int to a given size */ -/* -mp_err mp_grow(mp_int *a, int size) MP_WUR; -*/ - -/* init to a given number of digits */ -/* -mp_err mp_init_size(mp_int *a, int size) MP_WUR; -*/ - -/* ---> Basic Manipulations <--- */ -#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO) -#define mp_isodd(a) (((a)->used != 0 && (((a)->dp[0] & 1) == 1)) ? MP_YES : MP_NO) -#define mp_iseven(a) (((a)->used == 0 || (((a)->dp[0] & 1) == 0)) ? MP_YES : MP_NO) -#define mp_isneg(a) (((a)->sign != MP_ZPOS) ? MP_YES : MP_NO) - -/* set to zero */ -/* -void mp_zero(mp_int *a); -*/ - -/* get and set doubles */ -/* -double mp_get_double(const mp_int *a) MP_WUR; -*/ -/* -mp_err mp_set_double(mp_int *a, double b) MP_WUR; -*/ - -/* get integer, set integer and init with integer (int32_t) */ -#ifndef MP_NO_STDINT -/* -int32_t mp_get_i32(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_i32(mp_int *a, int32_t b); -*/ -/* -mp_err mp_init_i32(mp_int *a, int32_t b) MP_WUR; -*/ - -/* get integer, set integer and init with integer, behaves like two complement for negative numbers (uint32_t) */ -#define mp_get_u32(a) ((uint32_t)mp_get_i32(a)) -/* -void mp_set_u32(mp_int *a, uint32_t b); -*/ -/* -mp_err mp_init_u32(mp_int *a, uint32_t b) MP_WUR; -*/ - -/* get integer, set integer and init with integer (int64_t) */ -/* -int64_t mp_get_i64(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_i64(mp_int *a, int64_t b); -*/ -/* -mp_err mp_init_i64(mp_int *a, int64_t b) MP_WUR; -*/ - -/* get integer, set integer and init with integer, behaves like two complement for negative numbers (uint64_t) */ -#define mp_get_u64(a) ((uint64_t)mp_get_i64(a)) -/* -void mp_set_u64(mp_int *a, uint64_t b); -*/ -/* -mp_err mp_init_u64(mp_int *a, uint64_t b) MP_WUR; -*/ - -/* get magnitude */ -/* -uint32_t mp_get_mag_u32(const mp_int *a) MP_WUR; -*/ -/* -uint64_t mp_get_mag_u64(const mp_int *a) MP_WUR; -*/ -#endif -/* -unsigned long mp_get_mag_ul(const mp_int *a) MP_WUR; -*/ -/* -Tcl_WideUInt mp_get_mag_ull(const mp_int *a) MP_WUR; -*/ - -/* get integer, set integer (long) */ -/* -long mp_get_l(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_l(mp_int *a, long b); -*/ -/* -mp_err mp_init_l(mp_int *a, long b) MP_WUR; -*/ - -/* get integer, set integer (unsigned long) */ -#define mp_get_ul(a) ((unsigned long)mp_get_l(a)) -/* -void mp_set_ul(mp_int *a, unsigned long b); -*/ -/* -mp_err mp_init_ul(mp_int *a, unsigned long b) MP_WUR; -*/ - -/* get integer, set integer (Tcl_WideInt) */ -/* -Tcl_WideInt mp_get_ll(const mp_int *a) MP_WUR; -*/ -/* -void mp_set_ll(mp_int *a, Tcl_WideInt b); -*/ -/* -mp_err mp_init_ll(mp_int *a, Tcl_WideInt b) MP_WUR; -*/ - -/* get integer, set integer (Tcl_WideUInt) */ -#define mp_get_ull(a) ((Tcl_WideUInt)mp_get_ll(a)) -/* -void mp_set_ull(mp_int *a, Tcl_WideUInt b); -*/ -/* -mp_err mp_init_ull(mp_int *a, Tcl_WideUInt b) MP_WUR; -*/ - -/* set to single unsigned digit, up to MP_DIGIT_MAX */ -/* -void mp_set(mp_int *a, mp_digit b); -*/ -/* -mp_err mp_init_set(mp_int *a, mp_digit b) MP_WUR; -*/ - -/* get integer, set integer and init with integer (deprecated) */ -/* -MP_DEPRECATED(mp_get_mag_u32/mp_get_u32) unsigned long mp_get_int(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_get_mag_ul/mp_get_ul) unsigned long mp_get_long(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_get_mag_ull/mp_get_ull) Tcl_WideUInt mp_get_long_long(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_set_ul) mp_err mp_set_int(mp_int *a, unsigned long b); -*/ -/* -MP_DEPRECATED(mp_set_ul) mp_err mp_set_long(mp_int *a, unsigned long b); -*/ -/* -MP_DEPRECATED(mp_set_ull) mp_err mp_set_long_long(mp_int *a, Tcl_WideUInt b); -*/ -/* -MP_DEPRECATED(mp_init_ul) mp_err mp_init_set_int(mp_int *a, unsigned long b) MP_WUR; -*/ - -/* copy, b = a */ -/* -mp_err mp_copy(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* inits and copies, a = b */ -/* -mp_err mp_init_copy(mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* trim unused digits */ -/* -void mp_clamp(mp_int *a); -*/ - -/* export binary data */ -/* -MP_DEPRECATED(mp_pack) mp_err mp_export(void *rop, size_t *countp, int order, size_t size, - int endian, size_t nails, const mp_int *op) MP_WUR; -*/ - -/* import binary data */ -/* -MP_DEPRECATED(mp_unpack) mp_err mp_import(mp_int *rop, size_t count, int order, - size_t size, int endian, size_t nails, - const void *op) MP_WUR; -*/ - -/* unpack binary data */ -/* -mp_err mp_unpack(mp_int *rop, size_t count, mp_order order, size_t size, mp_endian endian, - size_t nails, const void *op) MP_WUR; -*/ - -/* pack binary data */ -/* -size_t mp_pack_count(const mp_int *a, size_t nails, size_t size) MP_WUR; -*/ -/* -mp_err mp_pack(void *rop, size_t maxcount, size_t *written, mp_order order, size_t size, - mp_endian endian, size_t nails, const mp_int *op) MP_WUR; -*/ - -/* ---> digit manipulation <--- */ - -/* right shift by "b" digits */ -/* -void mp_rshd(mp_int *a, int b); -*/ - -/* left shift by "b" digits */ -/* -mp_err mp_lshd(mp_int *a, int b) MP_WUR; -*/ - -/* c = a / 2**b, implemented as c = a >> b */ -/* -mp_err mp_div_2d(const mp_int *a, int b, mp_int *c, mp_int *d) MP_WUR; -*/ - -/* b = a/2 */ -/* -mp_err mp_div_2(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* a/3 => 3c + d == a */ -/* -mp_err mp_div_3(const mp_int *a, mp_int *c, mp_digit *d) MP_WUR; -*/ - -/* c = a * 2**b, implemented as c = a << b */ -/* -mp_err mp_mul_2d(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ - -/* b = a*2 */ -/* -mp_err mp_mul_2(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* c = a mod 2**b */ -/* -mp_err mp_mod_2d(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ - -/* computes a = 2**b */ -/* -mp_err mp_2expt(mp_int *a, int b) MP_WUR; -*/ - -/* Counts the number of lsbs which are zero before the first zero bit */ -/* -int mp_cnt_lsb(const mp_int *a) MP_WUR; -*/ - -/* I Love Earth! */ - -/* makes a pseudo-random mp_int of a given size */ -/* -mp_err mp_rand(mp_int *a, int digits) MP_WUR; -*/ -/* makes a pseudo-random small int of a given size */ -/* -MP_DEPRECATED(mp_rand) mp_err mp_rand_digit(mp_digit *r) MP_WUR; -*/ -/* use custom random data source instead of source provided the platform */ -/* -void mp_rand_source(mp_err(*source)(void *out, size_t size)); -*/ - -#ifdef MP_PRNG_ENABLE_LTM_RNG -/* A last resort to provide random data on systems without any of the other - * implemented ways to gather entropy. - * It is compatible with `rng_get_bytes()` from libtomcrypt so you could - * provide that one and then set `ltm_rng = rng_get_bytes;` */ -extern unsigned long (*ltm_rng)(unsigned char *out, unsigned long outlen, void (*callback)(void)); -extern void (*ltm_rng_callback)(void); -#endif - -/* ---> binary operations <--- */ - -/* Checks the bit at position b and returns MP_YES - * if the bit is 1, MP_NO if it is 0 and MP_VAL - * in case of error - */ -/* -MP_DEPRECATED(s_mp_get_bit) int mp_get_bit(const mp_int *a, int b) MP_WUR; -*/ - -/* c = a XOR b (two complement) */ -/* -MP_DEPRECATED(mp_xor) mp_err mp_tc_xor(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_xor(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a OR b (two complement) */ -/* -MP_DEPRECATED(mp_or) mp_err mp_tc_or(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_or(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a AND b (two complement) */ -/* -MP_DEPRECATED(mp_and) mp_err mp_tc_and(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_and(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* b = ~a (bitwise not, two complement) */ -/* -mp_err mp_complement(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* right shift with sign extension */ -/* -MP_DEPRECATED(mp_signed_rsh) mp_err mp_tc_div_2d(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ -/* -mp_err mp_signed_rsh(const mp_int *a, int b, mp_int *c) MP_WUR; -*/ - -/* ---> Basic arithmetic <--- */ - -/* b = -a */ -/* -mp_err mp_neg(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* b = |a| */ -/* -mp_err mp_abs(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* compare a to b */ -/* -mp_ord mp_cmp(const mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* compare |a| to |b| */ -/* -mp_ord mp_cmp_mag(const mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* c = a + b */ -/* -mp_err mp_add(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a - b */ -/* -mp_err mp_sub(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = a * b */ -/* -mp_err mp_mul(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* b = a*a */ -/* -mp_err mp_sqr(const mp_int *a, mp_int *b) MP_WUR; -*/ - -/* a/b => cb + d == a */ -/* -mp_err mp_div(const mp_int *a, const mp_int *b, mp_int *c, mp_int *d) MP_WUR; -*/ - -/* c = a mod b, 0 <= c < b */ -/* -mp_err mp_mod(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* Increment "a" by one like "a++". Changes input! */ -/* -mp_err mp_incr(mp_int *a) MP_WUR; -*/ - -/* Decrement "a" by one like "a--". Changes input! */ -/* -mp_err mp_decr(mp_int *a) MP_WUR; -*/ - -/* ---> single digit functions <--- */ - -/* compare against a single digit */ -/* -mp_ord mp_cmp_d(const mp_int *a, mp_digit b) MP_WUR; -*/ - -/* c = a + b */ -/* -mp_err mp_add_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ - -/* c = a - b */ -/* -mp_err mp_sub_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ - -/* c = a * b */ -/* -mp_err mp_mul_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ - -/* a/b => cb + d == a */ -/* -mp_err mp_div_d(const mp_int *a, mp_digit b, mp_int *c, mp_digit *d) MP_WUR; -*/ - -/* c = a mod b, 0 <= c < b */ -/* -mp_err mp_mod_d(const mp_int *a, mp_digit b, mp_digit *c) MP_WUR; -*/ - -/* ---> number theory <--- */ - -/* d = a + b (mod c) */ -/* -mp_err mp_addmod(const mp_int *a, const mp_int *b, const mp_int *c, mp_int *d) MP_WUR; -*/ - -/* d = a - b (mod c) */ -/* -mp_err mp_submod(const mp_int *a, const mp_int *b, const mp_int *c, mp_int *d) MP_WUR; -*/ - -/* d = a * b (mod c) */ -/* -mp_err mp_mulmod(const mp_int *a, const mp_int *b, const mp_int *c, mp_int *d) MP_WUR; -*/ - -/* c = a * a (mod b) */ -/* -mp_err mp_sqrmod(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = 1/a (mod b) */ -/* -mp_err mp_invmod(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* c = (a, b) */ -/* -mp_err mp_gcd(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* produces value such that U1*a + U2*b = U3 */ -/* -mp_err mp_exteuclid(const mp_int *a, const mp_int *b, mp_int *U1, mp_int *U2, mp_int *U3) MP_WUR; -*/ - -/* c = [a, b] or (a*b)/(a, b) */ -/* -mp_err mp_lcm(const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; -*/ - -/* finds one of the b'th root of a, such that |c|**b <= |a| - * - * returns error if a < 0 and b is even - */ -/* -mp_err mp_root_u32(const mp_int *a, unsigned int b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_root_u32) mp_err mp_n_root(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_root_u32) mp_err mp_n_root_ex(const mp_int *a, mp_digit b, mp_int *c, int fast) MP_WUR; -*/ - -/* special sqrt algo */ -/* -mp_err mp_sqrt(const mp_int *arg, mp_int *ret) MP_WUR; -*/ - -/* special sqrt (mod prime) */ -/* -mp_err mp_sqrtmod_prime(const mp_int *n, const mp_int *prime, mp_int *ret) MP_WUR; -*/ - -/* is number a square? */ -/* -mp_err mp_is_square(const mp_int *arg, mp_bool *ret) MP_WUR; -*/ - -/* computes the jacobi c = (a | n) (or Legendre if b is prime) */ -/* -MP_DEPRECATED(mp_kronecker) mp_err mp_jacobi(const mp_int *a, const mp_int *n, int *c) MP_WUR; -*/ - -/* computes the Kronecker symbol c = (a | p) (like jacobi() but with {a,p} in Z */ -/* -mp_err mp_kronecker(const mp_int *a, const mp_int *p, int *c) MP_WUR; -*/ - -/* used to setup the Barrett reduction for a given modulus b */ -/* -mp_err mp_reduce_setup(mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* Barrett Reduction, computes a (mod b) with a precomputed value c - * - * Assumes that 0 < x <= m*m, note if 0 > x > -(m*m) then you can merely - * compute the reduction as -1 * mp_reduce(mp_abs(x)) [pseudo code]. - */ -/* -mp_err mp_reduce(mp_int *x, const mp_int *m, const mp_int *mu) MP_WUR; -*/ - -/* setups the montgomery reduction */ -/* -mp_err mp_montgomery_setup(const mp_int *n, mp_digit *rho) MP_WUR; -*/ - -/* computes a = B**n mod b without division or multiplication useful for - * normalizing numbers in a Montgomery system. - */ -/* -mp_err mp_montgomery_calc_normalization(mp_int *a, const mp_int *b) MP_WUR; -*/ - -/* computes x/R == x (mod N) via Montgomery Reduction */ -/* -mp_err mp_montgomery_reduce(mp_int *x, const mp_int *n, mp_digit rho) MP_WUR; -*/ - -/* returns 1 if a is a valid DR modulus */ -/* -mp_bool mp_dr_is_modulus(const mp_int *a) MP_WUR; -*/ - -/* sets the value of "d" required for mp_dr_reduce */ -/* -void mp_dr_setup(const mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo n using the Diminished Radix method */ -/* -mp_err mp_dr_reduce(mp_int *x, const mp_int *n, mp_digit k) MP_WUR; -*/ - -/* returns true if a can be reduced with mp_reduce_2k */ -/* -mp_bool mp_reduce_is_2k(const mp_int *a) MP_WUR; -*/ - -/* determines k value for 2k reduction */ -/* -mp_err mp_reduce_2k_setup(const mp_int *a, mp_digit *d) MP_WUR; -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -mp_err mp_reduce_2k(mp_int *a, const mp_int *n, mp_digit d) MP_WUR; -*/ - -/* returns true if a can be reduced with mp_reduce_2k_l */ -/* -mp_bool mp_reduce_is_2k_l(const mp_int *a) MP_WUR; -*/ - -/* determines k value for 2k reduction */ -/* -mp_err mp_reduce_2k_setup_l(const mp_int *a, mp_int *d) MP_WUR; -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -mp_err mp_reduce_2k_l(mp_int *a, const mp_int *n, const mp_int *d) MP_WUR; -*/ - -/* Y = G**X (mod P) */ -/* -mp_err mp_exptmod(const mp_int *G, const mp_int *X, const mp_int *P, mp_int *Y) MP_WUR; -*/ - -/* ---> Primes <--- */ - -/* number of primes */ -#ifdef MP_8BIT -# define PRIVATE_MP_PRIME_TAB_SIZE 31 -#else -# define PRIVATE_MP_PRIME_TAB_SIZE 256 -#endif -#define PRIME_SIZE (MP_DEPRECATED_PRAGMA("PRIME_SIZE has been made internal") PRIVATE_MP_PRIME_TAB_SIZE) - -/* table of first PRIME_SIZE primes */ -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const mp_digit ltm_prime_tab[PRIVATE_MP_PRIME_TAB_SIZE]; -#endif - -/* result=1 if a is divisible by one of the first PRIME_SIZE primes */ -/* -MP_DEPRECATED(mp_prime_is_prime) mp_err mp_prime_is_divisible(const mp_int *a, mp_bool *result) MP_WUR; -*/ - -/* performs one Fermat test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_fermat(const mp_int *a, const mp_int *b, mp_bool *result) MP_WUR; -*/ - -/* performs one Miller-Rabin test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_miller_rabin(const mp_int *a, const mp_int *b, mp_bool *result) MP_WUR; -*/ - -/* This gives [for a given bit size] the number of trials required - * such that Miller-Rabin gives a prob of failure lower than 2^-96 - */ -/* -int mp_prime_rabin_miller_trials(int size) MP_WUR; -*/ - -/* performs one strong Lucas-Selfridge test of "a". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_strong_lucas_selfridge(const mp_int *a, mp_bool *result) MP_WUR; -*/ - -/* performs one Frobenius test of "a" as described by Paul Underwood. - * Sets result to 0 if composite or 1 if probable prime - */ -/* -mp_err mp_prime_frobenius_underwood(const mp_int *N, mp_bool *result) MP_WUR; -*/ - -/* performs t random rounds of Miller-Rabin on "a" additional to - * bases 2 and 3. Also performs an initial sieve of trial - * division. Determines if "a" is prime with probability - * of error no more than (1/4)**t. - * Both a strong Lucas-Selfridge to complete the BPSW test - * and a separate Frobenius test are available at compile time. - * With t<0 a deterministic test is run for primes up to - * 318665857834031151167461. With t<13 (abs(t)-13) additional - * tests with sequential small primes are run starting at 43. - * Is Fips 186.4 compliant if called with t as computed by - * mp_prime_rabin_miller_trials(); - * - * Sets result to 1 if probably prime, 0 otherwise - */ -/* -mp_err mp_prime_is_prime(const mp_int *a, int t, mp_bool *result) MP_WUR; -*/ - -/* finds the next prime after the number "a" using "t" trials - * of Miller-Rabin. - * - * bbs_style = 1 means the prime must be congruent to 3 mod 4 - */ -/* -mp_err mp_prime_next_prime(mp_int *a, int t, int bbs_style) MP_WUR; -*/ - -/* makes a truly random prime of a given size (bytes), - * call with bbs = 1 if you want it to be congruent to 3 mod 4 - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - * The prime generated will be larger than 2^(8*size). - */ -#define mp_prime_random(a, t, size, bbs, cb, dat) (MP_DEPRECATED_PRAGMA("mp_prime_random has been deprecated, use mp_prime_rand instead") mp_prime_random_ex(a, t, ((size) * 8) + 1, (bbs==1)?MP_PRIME_BBS:0, cb, dat)) - -/* makes a truly random prime of a given size (bits), - * - * Flags are as follows: - * - * MP_PRIME_BBS - make prime congruent to 3 mod 4 - * MP_PRIME_SAFE - make sure (p-1)/2 is prime as well (implies MP_PRIME_BBS) - * MP_PRIME_2MSB_ON - make the 2nd highest bit one - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - */ -/* -MP_DEPRECATED(mp_prime_rand) mp_err mp_prime_random_ex(mp_int *a, int t, int size, int flags, - private_mp_prime_callback cb, void *dat) MP_WUR; -*/ -/* -mp_err mp_prime_rand(mp_int *a, int t, int size, int flags) MP_WUR; -*/ - -/* Integer logarithm to integer base */ -/* -mp_err mp_log_u32(const mp_int *a, unsigned int base, unsigned int *c) MP_WUR; -*/ - -/* c = a**b */ -/* -mp_err mp_expt_u32(const mp_int *a, unsigned int b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_expt_u32) mp_err mp_expt_d(const mp_int *a, mp_digit b, mp_int *c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_expt_u32) mp_err mp_expt_d_ex(const mp_int *a, mp_digit b, mp_int *c, int fast) MP_WUR; -*/ - -/* ---> radix conversion <--- */ -/* -int mp_count_bits(const mp_int *a) MP_WUR; -*/ - - -/* -MP_DEPRECATED(mp_ubin_size) int mp_unsigned_bin_size(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_from_ubin) mp_err mp_read_unsigned_bin(mp_int *a, const unsigned char *b, int c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_ubin) mp_err mp_to_unsigned_bin(const mp_int *a, unsigned char *b) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_ubin) mp_err mp_to_unsigned_bin_n(const mp_int *a, unsigned char *b, unsigned long *outlen) MP_WUR; -*/ - -/* -MP_DEPRECATED(mp_sbin_size) int mp_signed_bin_size(const mp_int *a) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_from_sbin) mp_err mp_read_signed_bin(mp_int *a, const unsigned char *b, int c) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_sbin) mp_err mp_to_signed_bin(const mp_int *a, unsigned char *b) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_sbin) mp_err mp_to_signed_bin_n(const mp_int *a, unsigned char *b, unsigned long *outlen) MP_WUR; -*/ - -/* -size_t mp_ubin_size(const mp_int *a) MP_WUR; -*/ -/* -mp_err mp_from_ubin(mp_int *a, const unsigned char *buf, size_t size) MP_WUR; -*/ -/* -mp_err mp_to_ubin(const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written) MP_WUR; -*/ - -/* -size_t mp_sbin_size(const mp_int *a) MP_WUR; -*/ -/* -mp_err mp_from_sbin(mp_int *a, const unsigned char *buf, size_t size) MP_WUR; -*/ -/* -mp_err mp_to_sbin(const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written) MP_WUR; -*/ - -/* -mp_err mp_read_radix(mp_int *a, const char *str, int radix) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_radix) mp_err mp_toradix(const mp_int *a, char *str, int radix) MP_WUR; -*/ -/* -MP_DEPRECATED(mp_to_radix) mp_err mp_toradix_n(const mp_int *a, char *str, int radix, int maxlen) MP_WUR; -*/ -/* -mp_err mp_to_radix(const mp_int *a, char *str, size_t maxlen, size_t *written, int radix) MP_WUR; -*/ -/* -mp_err mp_radix_size(const mp_int *a, int radix, int *size) MP_WUR; -*/ - -#ifndef MP_NO_FILE -/* -mp_err mp_fread(mp_int *a, int radix, FILE *stream) MP_WUR; -*/ -/* -mp_err mp_fwrite(const mp_int *a, int radix, FILE *stream) MP_WUR; -*/ -#endif - -#define mp_read_raw(mp, str, len) (MP_DEPRECATED_PRAGMA("replaced by mp_read_signed_bin") mp_read_signed_bin((mp), (str), (len))) -#define mp_raw_size(mp) (MP_DEPRECATED_PRAGMA("replaced by mp_signed_bin_size") mp_signed_bin_size(mp)) -#define mp_toraw(mp, str) (MP_DEPRECATED_PRAGMA("replaced by mp_to_signed_bin") mp_to_signed_bin((mp), (str))) -#define mp_read_mag(mp, str, len) (MP_DEPRECATED_PRAGMA("replaced by mp_read_unsigned_bin") mp_read_unsigned_bin((mp), (str), (len)) -#define mp_mag_size(mp) (MP_DEPRECATED_PRAGMA("replaced by mp_unsigned_bin_size") mp_unsigned_bin_size(mp)) -#define mp_tomag(mp, str) (MP_DEPRECATED_PRAGMA("replaced by mp_to_unsigned_bin") mp_to_unsigned_bin((mp), (str))) - -#define mp_tobinary(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_binary") mp_toradix((M), (S), 2)) -#define mp_tooctal(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_octal") mp_toradix((M), (S), 8)) -#define mp_todecimal(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_decimal") mp_toradix((M), (S), 10)) -#define mp_tohex(M, S) (MP_DEPRECATED_PRAGMA("replaced by mp_to_hex") mp_toradix((M), (S), 16)) - -#define mp_to_binary(M, S, N) mp_to_radix((M), (S), (N), NULL, 2) -#define mp_to_octal(M, S, N) mp_to_radix((M), (S), (N), NULL, 8) -#define mp_to_decimal(M, S, N) mp_to_radix((M), (S), (N), NULL, 10) -#define mp_to_hex(M, S, N) mp_to_radix((M), (S), (N), NULL, 16) - -#ifdef __cplusplus -} -#endif - -#include "tclTomMathDecls.h" - -#endif diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclTomMathDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclTomMathDecls.h deleted file mode 100644 index 699164359..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclTomMathDecls.h +++ /dev/null @@ -1,669 +0,0 @@ -/* - *---------------------------------------------------------------------- - * - * tclTomMathDecls.h -- - * - * This file contains the declarations for the 'libtommath' - * functions that are exported by the Tcl library. - * - * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLTOMMATHDECLS -#define _TCLTOMMATHDECLS - -#include "tcl.h" -#ifndef BN_H_ -#include "tclTomMath.h" -#endif - -/* - * Define the version of the Stubs table that's exported for tommath - */ - -#define TCLTOMMATH_EPOCH 0 -#define TCLTOMMATH_REVISION 0 - -#define Tcl_TomMath_InitStubs(interp,version) \ - (TclTomMathInitializeStubs((interp),(version),\ - TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION)) - -/* Define custom memory allocation for libtommath */ - -/* MODULE_SCOPE void* TclBNAlloc( size_t ); */ -#define TclBNAlloc(s) ((void*)ckalloc((size_t)(s))) -/* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */ -#define TclBNCalloc(m,s) memset(ckalloc((size_t)(m)*(size_t)(s)),0,(size_t)(m)*(size_t)(s)) -/* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */ -#define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s))) -/* MODULE_SCOPE void TclBNFree( void* ); */ -#define TclBNFree(x) (ckfree((char*)(x))) - -#define MP_MALLOC(size) TclBNAlloc(size) -#define MP_CALLOC(nmemb, size) TclBNCalloc(nmemb, size) -#define MP_REALLOC(mem, oldsize, newsize) TclBNRealloc(mem, newsize) -#define MP_FREE(mem, size) TclBNFree(mem) - - -/* Rename the global symbols in libtommath to avoid linkage conflicts */ - -#define bn_reverse TclBN_reverse -#define mp_add TclBN_mp_add -#define mp_add_d TclBN_mp_add_d -#define mp_and TclBN_mp_and -#define mp_clamp TclBN_mp_clamp -#define mp_clear TclBN_mp_clear -#define mp_clear_multi TclBN_mp_clear_multi -#define mp_cmp TclBN_mp_cmp -#define mp_cmp_d TclBN_mp_cmp_d -#define mp_cmp_mag TclBN_mp_cmp_mag -#define mp_cnt_lsb TclBN_mp_cnt_lsb -#define mp_copy TclBN_mp_copy -#define mp_count_bits TclBN_mp_count_bits -#define mp_div TclBN_mp_div -#define mp_div_2 TclBN_mp_div_2 -#define mp_div_2d TclBN_mp_div_2d -#define mp_div_3 TclBN_mp_div_3 -#define mp_div_d TclBN_mp_div_d -#define mp_exch TclBN_mp_exch -#define mp_expt_d TclBN_mp_expt_d -#define mp_expt_d_ex TclBN_mp_expt_d_ex -#define mp_expt_u32 TclBN_mp_expt_d -#define mp_get_mag_ull TclBN_mp_get_mag_ull -#define mp_grow TclBN_mp_grow -#define mp_init TclBN_mp_init -#define mp_init_copy TclBN_mp_init_copy -#define mp_init_multi TclBN_mp_init_multi -#define mp_init_set TclBN_mp_init_set -#define mp_init_set_int TclBN_mp_init_set_int -#define mp_init_size TclBN_mp_init_size -#define mp_lshd TclBN_mp_lshd -#define mp_mod TclBN_mp_mod -#define mp_mod_2d TclBN_mp_mod_2d -#define mp_mul TclBN_mp_mul -#define mp_mul_2 TclBN_mp_mul_2 -#define mp_mul_2d TclBN_mp_mul_2d -#define mp_mul_d TclBN_mp_mul_d -#define mp_neg TclBN_mp_neg -#define mp_or TclBN_mp_or -#define mp_radix_size TclBN_mp_radix_size -#define mp_read_radix TclBN_mp_read_radix -#define mp_rshd TclBN_mp_rshd -#define mp_set TclBN_mp_set -#define mp_set_int(a,b) (TclBN_mp_set_int(a,(unsigned int)(b)),MP_OKAY) -#define mp_set_ll TclBN_mp_set_ll -#define mp_set_long(a,b) (TclBN_mp_set_int(a,b),MP_OKAY) -#define mp_set_ul(a,b) (void)TclBN_mp_set_int(a,b) -#define mp_set_ull TclBN_mp_set_ull -#define mp_set_u64 TclBN_mp_set_ull -#define mp_shrink TclBN_mp_shrink -#define mp_sqr TclBN_mp_sqr -#define mp_sqrt TclBN_mp_sqrt -#define mp_sub TclBN_mp_sub -#define mp_sub_d TclBN_mp_sub_d -#define mp_signed_rsh TclBN_mp_signed_rsh -#define mp_tc_and TclBN_mp_and -#define mp_tc_div_2d TclBN_mp_signed_rsh -#define mp_tc_or TclBN_mp_or -#define mp_tc_xor TclBN_mp_xor -#define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin -#define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n -#define mp_toradix_n TclBN_mp_toradix_n -#define mp_to_radix TclBN_mp_to_radix -#define mp_to_ubin TclBN_mp_to_ubin -#define mp_ubin_size TclBN_mp_unsigned_bin_size -#define mp_unsigned_bin_size(a) ((int)TclBN_mp_unsigned_bin_size(a)) -#define mp_xor TclBN_mp_xor -#define mp_zero TclBN_mp_zero -#define s_mp_add TclBN_s_mp_add -#define s_mp_balance_mul TclBN_mp_balance_mul -#define s_mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define s_mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define s_mp_mul_digs TclBN_s_mp_mul_digs -#define s_mp_mul_digs_fast TclBN_fast_s_mp_mul_digs -#define s_mp_reverse TclBN_s_mp_reverse -#define s_mp_sqr TclBN_s_mp_sqr -#define s_mp_sqr_fast TclBN_fast_s_mp_sqr -#define s_mp_sub TclBN_s_mp_sub -#define s_mp_toom_mul TclBN_mp_toom_mul -#define s_mp_toom_sqr TclBN_mp_toom_sqr - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN int TclBN_epoch(void); -/* 1 */ -EXTERN int TclBN_revision(void); -/* 2 */ -EXTERN mp_err TclBN_mp_add(const mp_int *a, const mp_int *b, - mp_int *c); -/* 3 */ -EXTERN mp_err TclBN_mp_add_d(const mp_int *a, mp_digit b, - mp_int *c); -/* 4 */ -EXTERN mp_err TclBN_mp_and(const mp_int *a, const mp_int *b, - mp_int *c); -/* 5 */ -EXTERN void TclBN_mp_clamp(mp_int *a); -/* 6 */ -EXTERN void TclBN_mp_clear(mp_int *a); -/* 7 */ -EXTERN void TclBN_mp_clear_multi(mp_int *a, ...); -/* 8 */ -EXTERN mp_ord TclBN_mp_cmp(const mp_int *a, const mp_int *b); -/* 9 */ -EXTERN mp_ord TclBN_mp_cmp_d(const mp_int *a, mp_digit b); -/* 10 */ -EXTERN mp_ord TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b); -/* 11 */ -EXTERN mp_err TclBN_mp_copy(const mp_int *a, mp_int *b); -/* 12 */ -EXTERN int TclBN_mp_count_bits(const mp_int *a); -/* 13 */ -EXTERN mp_err TclBN_mp_div(const mp_int *a, const mp_int *b, - mp_int *q, mp_int *r); -/* 14 */ -EXTERN mp_err TclBN_mp_div_d(const mp_int *a, mp_digit b, - mp_int *q, mp_digit *r); -/* 15 */ -EXTERN mp_err TclBN_mp_div_2(const mp_int *a, mp_int *q); -/* 16 */ -EXTERN mp_err TclBN_mp_div_2d(const mp_int *a, int b, mp_int *q, - mp_int *r); -/* 17 */ -EXTERN mp_err TclBN_mp_div_3(const mp_int *a, mp_int *q, - mp_digit *r); -/* 18 */ -EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b); -/* 19 */ -EXTERN mp_err TclBN_mp_expt_d(const mp_int *a, unsigned int b, - mp_int *c); -/* 20 */ -EXTERN mp_err TclBN_mp_grow(mp_int *a, int size); -/* 21 */ -EXTERN mp_err TclBN_mp_init(mp_int *a); -/* 22 */ -EXTERN mp_err TclBN_mp_init_copy(mp_int *a, const mp_int *b); -/* 23 */ -EXTERN mp_err TclBN_mp_init_multi(mp_int *a, ...); -/* 24 */ -EXTERN mp_err TclBN_mp_init_set(mp_int *a, mp_digit b); -/* 25 */ -EXTERN mp_err TclBN_mp_init_size(mp_int *a, int size); -/* 26 */ -EXTERN mp_err TclBN_mp_lshd(mp_int *a, int shift); -/* 27 */ -EXTERN mp_err TclBN_mp_mod(const mp_int *a, const mp_int *b, - mp_int *r); -/* 28 */ -EXTERN mp_err TclBN_mp_mod_2d(const mp_int *a, int b, mp_int *r); -/* 29 */ -EXTERN mp_err TclBN_mp_mul(const mp_int *a, const mp_int *b, - mp_int *p); -/* 30 */ -EXTERN mp_err TclBN_mp_mul_d(const mp_int *a, mp_digit b, - mp_int *p); -/* 31 */ -EXTERN mp_err TclBN_mp_mul_2(const mp_int *a, mp_int *p); -/* 32 */ -EXTERN mp_err TclBN_mp_mul_2d(const mp_int *a, int d, mp_int *p); -/* 33 */ -EXTERN mp_err TclBN_mp_neg(const mp_int *a, mp_int *b); -/* 34 */ -EXTERN mp_err TclBN_mp_or(const mp_int *a, const mp_int *b, - mp_int *c); -/* 35 */ -EXTERN mp_err TclBN_mp_radix_size(const mp_int *a, int radix, - int *size); -/* 36 */ -EXTERN mp_err TclBN_mp_read_radix(mp_int *a, const char *str, - int radix); -/* 37 */ -EXTERN void TclBN_mp_rshd(mp_int *a, int shift); -/* 38 */ -EXTERN mp_err TclBN_mp_shrink(mp_int *a); -/* 39 */ -EXTERN void TclBN_mp_set(mp_int *a, mp_digit b); -/* 40 */ -EXTERN mp_err TclBN_mp_sqr(const mp_int *a, mp_int *b); -/* 41 */ -EXTERN mp_err TclBN_mp_sqrt(const mp_int *a, mp_int *b); -/* 42 */ -EXTERN mp_err TclBN_mp_sub(const mp_int *a, const mp_int *b, - mp_int *c); -/* 43 */ -EXTERN mp_err TclBN_mp_sub_d(const mp_int *a, mp_digit b, - mp_int *c); -/* 44 */ -EXTERN mp_err TclBN_mp_to_unsigned_bin(const mp_int *a, - unsigned char *b); -/* 45 */ -EXTERN mp_err TclBN_mp_to_unsigned_bin_n(const mp_int *a, - unsigned char *b, unsigned long *outlen); -/* 46 */ -EXTERN mp_err TclBN_mp_toradix_n(const mp_int *a, char *str, - int radix, int maxlen); -/* 47 */ -EXTERN size_t TclBN_mp_unsigned_bin_size(const mp_int *a); -/* 48 */ -EXTERN mp_err TclBN_mp_xor(const mp_int *a, const mp_int *b, - mp_int *c); -/* 49 */ -EXTERN void TclBN_mp_zero(mp_int *a); -/* 50 */ -EXTERN void TclBN_reverse(unsigned char *s, int len); -/* 51 */ -EXTERN mp_err TclBN_fast_s_mp_mul_digs(const mp_int *a, - const mp_int *b, mp_int *c, int digs); -/* 52 */ -EXTERN mp_err TclBN_fast_s_mp_sqr(const mp_int *a, mp_int *b); -/* 53 */ -EXTERN mp_err TclBN_mp_karatsuba_mul(const mp_int *a, - const mp_int *b, mp_int *c); -/* 54 */ -EXTERN mp_err TclBN_mp_karatsuba_sqr(const mp_int *a, mp_int *b); -/* 55 */ -EXTERN mp_err TclBN_mp_toom_mul(const mp_int *a, const mp_int *b, - mp_int *c); -/* 56 */ -EXTERN mp_err TclBN_mp_toom_sqr(const mp_int *a, mp_int *b); -/* 57 */ -EXTERN mp_err TclBN_s_mp_add(const mp_int *a, const mp_int *b, - mp_int *c); -/* 58 */ -EXTERN mp_err TclBN_s_mp_mul_digs(const mp_int *a, const mp_int *b, - mp_int *c, int digs); -/* 59 */ -EXTERN mp_err TclBN_s_mp_sqr(const mp_int *a, mp_int *b); -/* 60 */ -EXTERN mp_err TclBN_s_mp_sub(const mp_int *a, const mp_int *b, - mp_int *c); -/* 61 */ -EXTERN mp_err TclBN_mp_init_set_int(mp_int *a, unsigned long i); -/* 62 */ -EXTERN mp_err TclBN_mp_set_int(mp_int *a, unsigned long i); -/* 63 */ -EXTERN int TclBN_mp_cnt_lsb(const mp_int *a); -/* 64 */ -EXTERN int TclBNInitBignumFromLong(mp_int *bignum, long initVal); -/* 65 */ -EXTERN int TclBNInitBignumFromWideInt(mp_int *bignum, - Tcl_WideInt initVal); -/* 66 */ -EXTERN int TclBNInitBignumFromWideUInt(mp_int *bignum, - Tcl_WideUInt initVal); -/* 67 */ -EXTERN mp_err TclBN_mp_expt_d_ex(const mp_int *a, mp_digit b, - mp_int *c, int fast); -/* 68 */ -EXTERN void TclBN_mp_set_ull(mp_int *a, Tcl_WideUInt i); -/* 69 */ -EXTERN Tcl_WideUInt TclBN_mp_get_mag_ull(const mp_int *a); -/* 70 */ -EXTERN void TclBN_mp_set_ll(mp_int *a, Tcl_WideInt i); -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* 73 */ -EXTERN mp_err TclBN_mp_tc_and(const mp_int *a, const mp_int *b, - mp_int *c); -/* 74 */ -EXTERN mp_err TclBN_mp_tc_or(const mp_int *a, const mp_int *b, - mp_int *c); -/* 75 */ -EXTERN mp_err TclBN_mp_tc_xor(const mp_int *a, const mp_int *b, - mp_int *c); -/* 76 */ -EXTERN mp_err TclBN_mp_signed_rsh(const mp_int *a, int b, - mp_int *c); -/* Slot 77 is reserved */ -/* 78 */ -EXTERN int TclBN_mp_to_ubin(const mp_int *a, unsigned char *buf, - size_t maxlen, size_t *written); -/* 79 */ -EXTERN mp_err TclBN_mp_div_ld(const mp_int *a, Tcl_WideUInt b, - mp_int *q, Tcl_WideUInt *r); -/* 80 */ -EXTERN int TclBN_mp_to_radix(const mp_int *a, char *str, - size_t maxlen, size_t *written, int radix); - -typedef struct TclTomMathStubs { - int magic; - void *hooks; - - int (*tclBN_epoch) (void); /* 0 */ - int (*tclBN_revision) (void); /* 1 */ - mp_err (*tclBN_mp_add) (const mp_int *a, const mp_int *b, mp_int *c); /* 2 */ - mp_err (*tclBN_mp_add_d) (const mp_int *a, mp_digit b, mp_int *c); /* 3 */ - mp_err (*tclBN_mp_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 4 */ - void (*tclBN_mp_clamp) (mp_int *a); /* 5 */ - void (*tclBN_mp_clear) (mp_int *a); /* 6 */ - void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */ - mp_ord (*tclBN_mp_cmp) (const mp_int *a, const mp_int *b); /* 8 */ - mp_ord (*tclBN_mp_cmp_d) (const mp_int *a, mp_digit b); /* 9 */ - mp_ord (*tclBN_mp_cmp_mag) (const mp_int *a, const mp_int *b); /* 10 */ - mp_err (*tclBN_mp_copy) (const mp_int *a, mp_int *b); /* 11 */ - int (*tclBN_mp_count_bits) (const mp_int *a); /* 12 */ - mp_err (*tclBN_mp_div) (const mp_int *a, const mp_int *b, mp_int *q, mp_int *r); /* 13 */ - mp_err (*tclBN_mp_div_d) (const mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */ - mp_err (*tclBN_mp_div_2) (const mp_int *a, mp_int *q); /* 15 */ - mp_err (*tclBN_mp_div_2d) (const mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */ - mp_err (*tclBN_mp_div_3) (const mp_int *a, mp_int *q, mp_digit *r); /* 17 */ - void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */ - mp_err (*tclBN_mp_expt_d) (const mp_int *a, unsigned int b, mp_int *c); /* 19 */ - mp_err (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */ - mp_err (*tclBN_mp_init) (mp_int *a); /* 21 */ - mp_err (*tclBN_mp_init_copy) (mp_int *a, const mp_int *b); /* 22 */ - mp_err (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */ - mp_err (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */ - mp_err (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */ - mp_err (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ - mp_err (*tclBN_mp_mod) (const mp_int *a, const mp_int *b, mp_int *r); /* 27 */ - mp_err (*tclBN_mp_mod_2d) (const mp_int *a, int b, mp_int *r); /* 28 */ - mp_err (*tclBN_mp_mul) (const mp_int *a, const mp_int *b, mp_int *p); /* 29 */ - mp_err (*tclBN_mp_mul_d) (const mp_int *a, mp_digit b, mp_int *p); /* 30 */ - mp_err (*tclBN_mp_mul_2) (const mp_int *a, mp_int *p); /* 31 */ - mp_err (*tclBN_mp_mul_2d) (const mp_int *a, int d, mp_int *p); /* 32 */ - mp_err (*tclBN_mp_neg) (const mp_int *a, mp_int *b); /* 33 */ - mp_err (*tclBN_mp_or) (const mp_int *a, const mp_int *b, mp_int *c); /* 34 */ - mp_err (*tclBN_mp_radix_size) (const mp_int *a, int radix, int *size); /* 35 */ - mp_err (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix); /* 36 */ - void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ - mp_err (*tclBN_mp_shrink) (mp_int *a); /* 38 */ - void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ - mp_err (*tclBN_mp_sqr) (const mp_int *a, mp_int *b); /* 40 */ - mp_err (*tclBN_mp_sqrt) (const mp_int *a, mp_int *b); /* 41 */ - mp_err (*tclBN_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c); /* 42 */ - mp_err (*tclBN_mp_sub_d) (const mp_int *a, mp_digit b, mp_int *c); /* 43 */ - mp_err (*tclBN_mp_to_unsigned_bin) (const mp_int *a, unsigned char *b); /* 44 */ - mp_err (*tclBN_mp_to_unsigned_bin_n) (const mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */ - mp_err (*tclBN_mp_toradix_n) (const mp_int *a, char *str, int radix, int maxlen); /* 46 */ - size_t (*tclBN_mp_unsigned_bin_size) (const mp_int *a); /* 47 */ - mp_err (*tclBN_mp_xor) (const mp_int *a, const mp_int *b, mp_int *c); /* 48 */ - void (*tclBN_mp_zero) (mp_int *a); /* 49 */ - void (*tclBN_reverse) (unsigned char *s, int len); /* 50 */ - mp_err (*tclBN_fast_s_mp_mul_digs) (const mp_int *a, const mp_int *b, mp_int *c, int digs); /* 51 */ - mp_err (*tclBN_fast_s_mp_sqr) (const mp_int *a, mp_int *b); /* 52 */ - mp_err (*tclBN_mp_karatsuba_mul) (const mp_int *a, const mp_int *b, mp_int *c); /* 53 */ - mp_err (*tclBN_mp_karatsuba_sqr) (const mp_int *a, mp_int *b); /* 54 */ - mp_err (*tclBN_mp_toom_mul) (const mp_int *a, const mp_int *b, mp_int *c); /* 55 */ - mp_err (*tclBN_mp_toom_sqr) (const mp_int *a, mp_int *b); /* 56 */ - mp_err (*tclBN_s_mp_add) (const mp_int *a, const mp_int *b, mp_int *c); /* 57 */ - mp_err (*tclBN_s_mp_mul_digs) (const mp_int *a, const mp_int *b, mp_int *c, int digs); /* 58 */ - mp_err (*tclBN_s_mp_sqr) (const mp_int *a, mp_int *b); /* 59 */ - mp_err (*tclBN_s_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c); /* 60 */ - mp_err (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ - mp_err (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ - int (*tclBN_mp_cnt_lsb) (const mp_int *a); /* 63 */ - int (*tclBNInitBignumFromLong) (mp_int *bignum, long initVal); /* 64 */ - int (*tclBNInitBignumFromWideInt) (mp_int *bignum, Tcl_WideInt initVal); /* 65 */ - int (*tclBNInitBignumFromWideUInt) (mp_int *bignum, Tcl_WideUInt initVal); /* 66 */ - mp_err (*tclBN_mp_expt_d_ex) (const mp_int *a, mp_digit b, mp_int *c, int fast); /* 67 */ - void (*tclBN_mp_set_ull) (mp_int *a, Tcl_WideUInt i); /* 68 */ - Tcl_WideUInt (*tclBN_mp_get_mag_ull) (const mp_int *a); /* 69 */ - void (*tclBN_mp_set_ll) (mp_int *a, Tcl_WideInt i); /* 70 */ - void (*reserved71)(void); - void (*reserved72)(void); - mp_err (*tclBN_mp_tc_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 73 */ - mp_err (*tclBN_mp_tc_or) (const mp_int *a, const mp_int *b, mp_int *c); /* 74 */ - mp_err (*tclBN_mp_tc_xor) (const mp_int *a, const mp_int *b, mp_int *c); /* 75 */ - mp_err (*tclBN_mp_signed_rsh) (const mp_int *a, int b, mp_int *c); /* 76 */ - void (*reserved77)(void); - int (*tclBN_mp_to_ubin) (const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written); /* 78 */ - mp_err (*tclBN_mp_div_ld) (const mp_int *a, Tcl_WideUInt b, mp_int *q, Tcl_WideUInt *r); /* 79 */ - int (*tclBN_mp_to_radix) (const mp_int *a, char *str, size_t maxlen, size_t *written, int radix); /* 80 */ -} TclTomMathStubs; - -extern const TclTomMathStubs *tclTomMathStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -#define TclBN_epoch \ - (tclTomMathStubsPtr->tclBN_epoch) /* 0 */ -#define TclBN_revision \ - (tclTomMathStubsPtr->tclBN_revision) /* 1 */ -#define TclBN_mp_add \ - (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ -#define TclBN_mp_add_d \ - (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ -#define TclBN_mp_and \ - (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ -#define TclBN_mp_clamp \ - (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ -#define TclBN_mp_clear \ - (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ -#define TclBN_mp_clear_multi \ - (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ -#define TclBN_mp_cmp \ - (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ -#define TclBN_mp_cmp_d \ - (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ -#define TclBN_mp_cmp_mag \ - (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ -#define TclBN_mp_copy \ - (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ -#define TclBN_mp_count_bits \ - (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ -#define TclBN_mp_div \ - (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ -#define TclBN_mp_div_d \ - (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ -#define TclBN_mp_div_2 \ - (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ -#define TclBN_mp_div_2d \ - (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ -#define TclBN_mp_div_3 \ - (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ -#define TclBN_mp_exch \ - (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ -#define TclBN_mp_expt_d \ - (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ -#define TclBN_mp_grow \ - (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ -#define TclBN_mp_init \ - (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ -#define TclBN_mp_init_copy \ - (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ -#define TclBN_mp_init_multi \ - (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ -#define TclBN_mp_init_set \ - (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ -#define TclBN_mp_init_size \ - (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ -#define TclBN_mp_lshd \ - (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ -#define TclBN_mp_mod \ - (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ -#define TclBN_mp_mod_2d \ - (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ -#define TclBN_mp_mul \ - (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ -#define TclBN_mp_mul_d \ - (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ -#define TclBN_mp_mul_2 \ - (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ -#define TclBN_mp_mul_2d \ - (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ -#define TclBN_mp_neg \ - (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ -#define TclBN_mp_or \ - (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ -#define TclBN_mp_radix_size \ - (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ -#define TclBN_mp_read_radix \ - (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ -#define TclBN_mp_rshd \ - (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ -#define TclBN_mp_shrink \ - (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ -#define TclBN_mp_set \ - (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ -#define TclBN_mp_sqr \ - (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ -#define TclBN_mp_sqrt \ - (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ -#define TclBN_mp_sub \ - (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ -#define TclBN_mp_sub_d \ - (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ -#define TclBN_mp_to_unsigned_bin \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ -#define TclBN_mp_to_unsigned_bin_n \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ -#define TclBN_mp_toradix_n \ - (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ -#define TclBN_mp_unsigned_bin_size \ - (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ -#define TclBN_mp_xor \ - (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ -#define TclBN_mp_zero \ - (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ -#define TclBN_reverse \ - (tclTomMathStubsPtr->tclBN_reverse) /* 50 */ -#define TclBN_fast_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ -#define TclBN_fast_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ -#define TclBN_mp_karatsuba_mul \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ -#define TclBN_mp_karatsuba_sqr \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ -#define TclBN_mp_toom_mul \ - (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ -#define TclBN_mp_toom_sqr \ - (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ -#define TclBN_s_mp_add \ - (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ -#define TclBN_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ -#define TclBN_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ -#define TclBN_s_mp_sub \ - (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ -#define TclBN_mp_init_set_int \ - (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ -#define TclBN_mp_set_int \ - (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ -#define TclBN_mp_cnt_lsb \ - (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ -#define TclBNInitBignumFromLong \ - (tclTomMathStubsPtr->tclBNInitBignumFromLong) /* 64 */ -#define TclBNInitBignumFromWideInt \ - (tclTomMathStubsPtr->tclBNInitBignumFromWideInt) /* 65 */ -#define TclBNInitBignumFromWideUInt \ - (tclTomMathStubsPtr->tclBNInitBignumFromWideUInt) /* 66 */ -#define TclBN_mp_expt_d_ex \ - (tclTomMathStubsPtr->tclBN_mp_expt_d_ex) /* 67 */ -#define TclBN_mp_set_ull \ - (tclTomMathStubsPtr->tclBN_mp_set_ull) /* 68 */ -#define TclBN_mp_get_mag_ull \ - (tclTomMathStubsPtr->tclBN_mp_get_mag_ull) /* 69 */ -#define TclBN_mp_set_ll \ - (tclTomMathStubsPtr->tclBN_mp_set_ll) /* 70 */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -#define TclBN_mp_tc_and \ - (tclTomMathStubsPtr->tclBN_mp_tc_and) /* 73 */ -#define TclBN_mp_tc_or \ - (tclTomMathStubsPtr->tclBN_mp_tc_or) /* 74 */ -#define TclBN_mp_tc_xor \ - (tclTomMathStubsPtr->tclBN_mp_tc_xor) /* 75 */ -#define TclBN_mp_signed_rsh \ - (tclTomMathStubsPtr->tclBN_mp_signed_rsh) /* 76 */ -/* Slot 77 is reserved */ -#define TclBN_mp_to_ubin \ - (tclTomMathStubsPtr->tclBN_mp_to_ubin) /* 78 */ -#define TclBN_mp_div_ld \ - (tclTomMathStubsPtr->tclBN_mp_div_ld) /* 79 */ -#define TclBN_mp_to_radix \ - (tclTomMathStubsPtr->tclBN_mp_to_radix) /* 80 */ - -#endif /* defined(USE_TCL_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#ifdef USE_TCL_STUBS -#undef TclBNInitBignumFromLong -#define TclBNInitBignumFromLong(a,b) \ - do { \ - (a)->dp = NULL; \ - (void)tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(b)); \ - if ((a)->dp == NULL) { \ - Tcl_Panic("initialization failure in TclBNInitBignumFromLong"); \ - } \ - } while (0) -#undef TclBNInitBignumFromWideInt -#define TclBNInitBignumFromWideInt(a,b) \ - do { \ - (a)->dp = NULL; \ - (void)tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)); \ - if ((a)->dp == NULL) { \ - Tcl_Panic("initialization failure in TclBNInitBignumFromWideInt"); \ - } \ - } while (0) -#undef TclBNInitBignumFromWideUInt -#define TclBNInitBignumFromWideUInt(a,b) \ - do { \ - (a)->dp = NULL; \ - (void)tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)); \ - if ((a)->dp == NULL) { \ - Tcl_Panic("initialization failure in TclBNInitBignumFromWideUInt"); \ - } \ - } while (0) -#define mp_init_i32(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(int32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_l(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ll(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_i64(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u32(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(uint32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ul(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(unsigned long)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ull(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u64(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#else -#define mp_init_i32(a,b) (((a)->dp=NULL,(TclBNInitBignumFromLong)((a),(int32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_l(a,b) (((a)->dp=NULL,(TclBNInitBignumFromLong)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ll(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_i64(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u32(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(uint32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ul(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(unsigned long)(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_ull(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#define mp_init_u64(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) -#endif /* USE_TCL_STUBS */ -#endif /* _TCLINTDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclWinPort.h deleted file mode 100644 index ea8fd7e33..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tclWinPort.h +++ /dev/null @@ -1,581 +0,0 @@ -/* - * tclWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TCLWINPORT -#define _TCLWINPORT - - -#if !defined(_WIN64) && !defined(__MINGW_USE_VC2005_COMPAT) -/* See [Bug 3354324]: file mtime sets wrong time */ -# define __MINGW_USE_VC2005_COMPAT -#endif - -/* - * We must specify the lower version we intend to support. - * - * WINVER = 0x0500 means Windows 2000 and above - */ - -#ifndef WINVER -# define WINVER 0x0501 -#endif -#ifndef _WIN32_WINNT -# define _WIN32_WINNT 0x0501 -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -/* Compatibility to older visual studio / windows platform SDK */ -#if !defined(MAXULONG_PTR) -typedef DWORD DWORD_PTR; -typedef DWORD_PTR * PDWORD_PTR; -#endif - -/* - * Ask for the winsock function typedefs, also. - */ -#define INCL_WINSOCK_API_TYPEDEFS 1 -#include -#include -#ifdef HAVE_WSPIAPI_H -# include -#endif - -#ifdef CHECK_UNICODE_CALLS -# define _UNICODE -# define UNICODE -# define __TCHAR_DEFINED - typedef float *_TCHAR; -# define _TCHAR_DEFINED - typedef float *TCHAR; -#endif /* CHECK_UNICODE_CALLS */ - -/* - * Pull in the typedef of TCHAR for windows. - */ -#include -#ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -#endif -#if defined(_MSC_VER) && defined(__STDC__) - /* VS2005 SP1 misses this. See [Bug #3110161] */ - typedef _TCHAR TCHAR; -#endif - -/* - *--------------------------------------------------------------------------- - * The following sets of #includes and #ifdefs are required to get Tcl to - * compile under the windows compilers. - *--------------------------------------------------------------------------- - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#ifdef HAVE_INTTYPES_H -# include -#endif -#include - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -/* - * Need to block out these includes for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#include -# ifdef __BORLANDC__ -# include -# else -# include -# endif /* __BORLANDC__ */ -#endif /* __MWERKS__ */ - -/* - * The following defines redefine the Windows Socket errors as - * BSD errors so Tcl_PosixError can do the right thing. - */ - -#ifndef ENOTEMPTY -# define ENOTEMPTY 41 /* Directory not empty */ -#endif -#ifndef EREMOTE -# define EREMOTE 66 /* The object is remote */ -#endif -#ifndef EPFNOSUPPORT -# define EPFNOSUPPORT 96 /* Protocol family not supported */ -#endif -#ifndef EADDRINUSE -# define EADDRINUSE 100 /* Address already in use */ -#endif -#ifndef EADDRNOTAVAIL -# define EADDRNOTAVAIL 101 /* Can't assign requested address */ -#endif -#ifndef EAFNOSUPPORT -# define EAFNOSUPPORT 102 /* Address family not supported */ -#endif -#ifndef EALREADY -# define EALREADY 103 /* Operation already in progress */ -#endif -#ifndef EBADMSG -# define EBADMSG 104 /* Not a data message */ -#endif -#ifndef ECANCELED -# define ECANCELED 105 /* Canceled */ -#endif -#ifndef ECONNABORTED -# define ECONNABORTED 106 /* Software caused connection abort */ -#endif -#ifndef ECONNREFUSED -# define ECONNREFUSED 107 /* Connection refused */ -#endif -#ifndef ECONNRESET -# define ECONNRESET 108 /* Connection reset by peer */ -#endif -#ifndef EDESTADDRREQ -# define EDESTADDRREQ 109 /* Destination address required */ -#endif -#ifndef EHOSTUNREACH -# define EHOSTUNREACH 110 /* No route to host */ -#endif -#ifndef EIDRM -# define EIDRM 111 /* Identifier removed */ -#endif -#ifndef EINPROGRESS -# define EINPROGRESS 112 /* Operation now in progress */ -#endif -#ifndef EISCONN -# define EISCONN 113 /* Socket is already connected */ -#endif -#ifndef ELOOP -# define ELOOP 114 /* Symbolic link loop */ -#endif -#ifndef EMSGSIZE -# define EMSGSIZE 115 /* Message too long */ -#endif -#ifndef ENETDOWN -# define ENETDOWN 116 /* Network is down */ -#endif -#ifndef ENETRESET -# define ENETRESET 117 /* Network dropped connection on reset */ -#endif -#ifndef ENETUNREACH -# define ENETUNREACH 118 /* Network is unreachable */ -#endif -#ifndef ENOBUFS -# define ENOBUFS 119 /* No buffer space available */ -#endif -#ifndef ENODATA -# define ENODATA 120 /* No data available */ -#endif -#ifndef ENOLINK -# define ENOLINK 121 /* Link has be severed */ -#endif -#ifndef ENOMSG -# define ENOMSG 122 /* No message of desired type */ -#endif -#ifndef ENOPROTOOPT -# define ENOPROTOOPT 123 /* Protocol not available */ -#endif -#ifndef ENOSR -# define ENOSR 124 /* Out of stream resources */ -#endif -#ifndef ENOSTR -# define ENOSTR 125 /* Not a stream device */ -#endif -#ifndef ENOTCONN -# define ENOTCONN 126 /* Socket is not connected */ -#endif -#ifndef ENOTRECOVERABLE -# define ENOTRECOVERABLE 127 /* Not recoverable */ -#endif -#ifndef ENOTSOCK -# define ENOTSOCK 128 /* Socket operation on non-socket */ -#endif -#ifndef ENOTSUP -# define ENOTSUP 129 /* Operation not supported */ -#endif -#ifndef EOPNOTSUPP -# define EOPNOTSUPP 130 /* Operation not supported on socket */ -#endif -#ifndef EOTHER -# define EOTHER 131 /* Other error */ -#endif -#ifndef EOVERFLOW -# define EOVERFLOW 132 /* File too big */ -#endif -#ifndef EOWNERDEAD -# define EOWNERDEAD 133 /* Owner dead */ -#endif -#ifndef EPROTO -# define EPROTO 134 /* Protocol error */ -#endif -#ifndef EPROTONOSUPPORT -# define EPROTONOSUPPORT 135 /* Protocol not supported */ -#endif -#ifndef EPROTOTYPE -# define EPROTOTYPE 136 /* Protocol wrong type for socket */ -#endif -#ifndef ETIME -# define ETIME 137 /* Timer expired */ -#endif -#ifndef ETIMEDOUT -# define ETIMEDOUT 138 /* Connection timed out */ -#endif -#ifndef ETXTBSY -# define ETXTBSY 139 /* Text file or pseudo-device busy */ -#endif -#ifndef EWOULDBLOCK -# define EWOULDBLOCK 140 /* Operation would block */ -#endif - - -/* Visual Studio doesn't have these, so just choose some high numbers */ -#ifndef ESOCKTNOSUPPORT -# define ESOCKTNOSUPPORT 240 /* Socket type not supported */ -#endif -#ifndef ESHUTDOWN -# define ESHUTDOWN 241 /* Can't send after socket shutdown */ -#endif -#ifndef ETOOMANYREFS -# define ETOOMANYREFS 242 /* Too many references: can't splice */ -#endif -#ifndef EHOSTDOWN -# define EHOSTDOWN 243 /* Host is down */ -#endif -#ifndef EUSERS -# define EUSERS 244 /* Too many users (for UFS) */ -#endif -#ifndef EDQUOT -# define EDQUOT 245 /* Disc quota exceeded */ -#endif -#ifndef ESTALE -# define ESTALE 246 /* Stale NFS file handle */ -#endif - -/* - * Signals not known to the standard ANSI signal.h. These are used - * by Tcl_WaitPid() and generic/tclPosixStr.c - */ - -#ifndef SIGTRAP -# define SIGTRAP 5 -#endif -#ifndef SIGBUS -# define SIGBUS 10 -#endif - -/* - * Supply definitions for macros to query wait status, if not already - * defined in header files above. - */ - -#if TCL_UNION_WAIT -# define WAIT_STATUS_TYPE union wait -#else -# define WAIT_STATUS_TYPE int -#endif /* TCL_UNION_WAIT */ - -#ifndef WIFEXITED -# define WIFEXITED(stat) (((*((int *) &(stat))) & 0xC0000000) == 0) -#endif - -#ifndef WEXITSTATUS -# define WEXITSTATUS(stat) (*((int *) &(stat))) -#endif - -#ifndef WIFSIGNALED -# define WIFSIGNALED(stat) ((*((int *) &(stat))) & 0xC0000000) -#endif - -#ifndef WTERMSIG -# define WTERMSIG(stat) ((*((int *) &(stat))) & 0x7f) -#endif - -#ifndef WIFSTOPPED -# define WIFSTOPPED(stat) 0 -#endif - -#ifndef WSTOPSIG -# define WSTOPSIG(stat) (((*((int *) &(stat))) >> 8) & 0xff) -#endif - -/* - * Define constants for waitpid() system call if they aren't defined - * by a system header file. - */ - -#ifndef WNOHANG -# define WNOHANG 1 -#endif -#ifndef WUNTRACED -# define WUNTRACED 2 -#endif - -/* - * Define access mode constants if they aren't already defined. - */ - -#ifndef F_OK -# define F_OK 00 -#endif -#ifndef X_OK -# define X_OK 01 -#endif -#ifndef W_OK -# define W_OK 02 -#endif -#ifndef R_OK -# define R_OK 04 -#endif - -/* - * Define macros to query file type bits, if they're not already - * defined. - */ - -#ifndef S_IFLNK -# define S_IFLNK 0120000 /* Symbolic Link */ -#endif - -/* - * Windows compilers do not define S_IFBLK. However, Tcl uses it in - * GetTypeFromMode to identify blockSpecial devices based on the - * value in the statsbuf st_mode field. We have no other way to pass this - * from NativeStat on Windows so are forced to define it here. - * The definition here is essentially what is seen on Linux and MingW. - * XXX - the root problem is Tcl using Unix definitions instead of - * abstracting the structure into a platform independent one. Sigh - perhaps - * Tcl 9 - */ -#ifndef S_IFBLK -# define S_IFBLK (S_IFDIR | S_IFCHR) -#endif - -#ifndef S_ISREG -# ifdef S_IFREG -# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) -# else -# define S_ISREG(m) 0 -# endif -#endif /* !S_ISREG */ -#ifndef S_ISDIR -# ifdef S_IFDIR -# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) -# else -# define S_ISDIR(m) 0 -# endif -#endif /* !S_ISDIR */ -#ifndef S_ISCHR -# ifdef S_IFCHR -# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) -# else -# define S_ISCHR(m) 0 -# endif -#endif /* !S_ISCHR */ -#ifndef S_ISBLK -# ifdef S_IFBLK -# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) -# else -# define S_ISBLK(m) 0 -# endif -#endif /* !S_ISBLK */ -#ifndef S_ISFIFO -# ifdef S_IFIFO -# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) -# else -# define S_ISFIFO(m) 0 -# endif -#endif /* !S_ISFIFO */ -#ifndef S_ISLNK -# ifdef S_IFLNK -# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) -# else -# define S_ISLNK(m) 0 -# endif -#endif /* !S_ISLNK */ - - -/* - * Define MAXPATHLEN in terms of MAXPATH if available - */ - -#ifndef MAXPATH -# define MAXPATH MAX_PATH -#endif /* MAXPATH */ - -#ifndef MAXPATHLEN -# define MAXPATHLEN MAXPATH -#endif /* MAXPATHLEN */ - -/* - * Define pid_t and uid_t if they're not already defined. - */ - -#if ! TCL_PID_T -# define pid_t int -#endif /* !TCL_PID_T */ -#if ! TCL_UID_T -# define uid_t int -#endif /* !TCL_UID_T */ - -/* - * Visual C++ has some odd names for common functions, so we need to - * define a few macros to handle them. Also, it defines EDEADLOCK and - * EDEADLK as the same value, which confuses Tcl_ErrnoId(). - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define environ _environ -# if defined(_MSC_VER) && (_MSC_VER < 1600) -# define hypot _hypot -# endif -# define exception _exception -# undef EDEADLOCK -# if defined(_MSC_VER) && (_MSC_VER >= 1700) -# define timezone _timezone -# endif -#endif /* _MSC_VER || __MSVCRT__ */ - -/* - * Borland's timezone and environ functions. - */ - -#ifdef __BORLANDC__ -# define timezone _timezone -# define environ _environ -#endif /* __BORLANDC__ */ - -#ifdef __WATCOMC__ -# if !defined(__CHAR_SIGNED__) -# error "You must use the -j switch to ensure char is signed." -# endif -#endif - - -/* - * MSVC 8.0 started to mark many standard C library functions depreciated - * including the *printf family and others. Tell it to shut up. - * (_MSC_VER is 1200 for VC6, 1300 or 1310 for vc7.net, 1400 for 8.0) - */ -#if defined(_MSC_VER) -# pragma warning(disable:4146) -# pragma warning(disable:4244) -# if _MSC_VER >= 1400 -# pragma warning(disable:4267) -# pragma warning(disable:4996) -# endif -#endif - -/* - *--------------------------------------------------------------------------- - * The following macros and declarations represent the interface between - * generic and windows-specific parts of Tcl. Some of the macros may - * override functions declared in tclInt.h. - *--------------------------------------------------------------------------- - */ - -/* - * The default platform eol translation on Windows is TCL_TRANSLATE_CRLF: - */ - -#define TCL_PLATFORM_TRANSLATION TCL_TRANSLATE_CRLF - -/* - * Declare dynamic loading extension macro. - */ - -#define TCL_SHLIB_EXT ".dll" - -/* - * The following define ensures that we use the native putenv - * implementation to modify the environment array. This keeps - * the C level environment in synch with the system level environment. - */ - -#define USE_PUTENV 1 -#define USE_PUTENV_FOR_UNSET 1 - -/* - * Msvcrt's putenv() copies the string rather than takes ownership of it. - */ - -#if defined(_MSC_VER) || defined(__MSVCRT__) -# define HAVE_PUTENV_THAT_COPIES 1 -#endif - -/* - * Older version of Mingw are known to lack a MWMO_ALERTABLE define. - */ -#if !defined(MWMO_ALERTABLE) -# define MWMO_ALERTABLE 2 -#endif - -/* - * The following defines wrap the system memory allocation routines for - * use by tclAlloc.c. - */ - -#define TclpSysAlloc(size, isBin) ((void*)HeapAlloc(GetProcessHeap(), \ - (DWORD)0, (DWORD)size)) -#define TclpSysFree(ptr) (HeapFree(GetProcessHeap(), \ - (DWORD)0, (HGLOBAL)ptr)) -#define TclpSysRealloc(ptr, size) ((void*)HeapReAlloc(GetProcessHeap(), \ - (DWORD)0, (LPVOID)ptr, (DWORD)size)) - -/* This type is not defined in the Windows headers */ -#define socklen_t int - - -/* - * The following macros have trivial definitions, allowing generic code to - * address platform-specific issues. - */ - -#define TclpReleaseFile(file) ckfree((char *) file) - -/* - * The following macros and declarations wrap the C runtime library - * functions. - */ - -#define TclpExit exit - -#ifndef INVALID_SET_FILE_POINTER -#define INVALID_SET_FILE_POINTER 0xFFFFFFFF -#endif /* INVALID_SET_FILE_POINTER */ - -#ifndef LABEL_SECURITY_INFORMATION -# define LABEL_SECURITY_INFORMATION (0x00000010L) -#endif - -#define Tcl_DirEntry void -#define TclDIR void - -#endif /* _TCLWINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tk.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tk.h deleted file mode 100644 index ce5902d94..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tk.h +++ /dev/null @@ -1,1624 +0,0 @@ -/* - * tk.h -- - * - * Declarations for Tk-related things that are visible outside of the Tk - * module itself. - * - * Copyright (c) 1989-1994 The Regents of the University of California. - * Copyright (c) 1994 The Australian National University. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 Ajuba Solutions. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TK -#define _TK - -#include -#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION < 6) -# error Tk 8.6 must be compiled with tcl.h from Tcl 8.6 or better -#endif - -#ifndef CONST84 -# define CONST84 const -# define CONST84_RETURN const -#endif -#ifndef CONST86 -# define CONST86 CONST84 -#endif -#ifndef EXTERN -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * When version numbers change here, you must also go into the following files - * and update the version numbers: - * - * library/tk.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * README (sections 0 and 1) - * macosx/Tk-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) - * unix/README (not patchlevel) - * unix/tk.spec (1 LOC patch) - * win/tcl.m4 (not patchlevel) - * - * You may also need to update some of these files when the numbers change for - * the version of Tcl that this release of Tk is compiled against. - */ - -#define TK_MAJOR_VERSION 8 -#define TK_MINOR_VERSION 6 -#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TK_RELEASE_SERIAL 10 - -#define TK_VERSION "8.6" -#define TK_PATCH_LEVEL "8.6.10" - -/* - * A special definition used to allow this header file to be included from - * windows or mac resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool and manually set - * for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and procedure - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -#if !defined(_XLIB_H) && !defined(_X11_XLIB_H_) -# include -# ifdef MAC_OSX_TK -# include -# endif -#endif -#if defined(STDC_HEADERS) || defined(__STDC__) || defined(__C99__FUNC__) \ - || defined(__cplusplus) || defined(_MSC_VER) || defined(__ICC) -# include -#endif - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - *---------------------------------------------------------------------- - * - * Decide whether or not to use input methods. - */ - -#ifdef XNQueryInputStyle -#define TK_USE_INPUT_METHODS -#endif - -/* - * Dummy types that are used by clients: - */ - -typedef struct Tk_BindingTable_ *Tk_BindingTable; -typedef struct Tk_Canvas_ *Tk_Canvas; -typedef struct Tk_Cursor_ *Tk_Cursor; -typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; -typedef struct Tk_Font_ *Tk_Font; -typedef struct Tk_Image__ *Tk_Image; -typedef struct Tk_ImageMaster_ *Tk_ImageMaster; -typedef struct Tk_OptionTable_ *Tk_OptionTable; -typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; -typedef struct Tk_TextLayout_ *Tk_TextLayout; -typedef struct Tk_Window_ *Tk_Window; -typedef struct Tk_3DBorder_ *Tk_3DBorder; -typedef struct Tk_Style_ *Tk_Style; -typedef struct Tk_StyleEngine_ *Tk_StyleEngine; -typedef struct Tk_StyledElement_ *Tk_StyledElement; - -/* - * Additional types exported to clients. - */ - -typedef const char *Tk_Uid; - -/* - *---------------------------------------------------------------------- - * - * The enum below defines the valid types for Tk configuration options as - * implemented by Tk_InitOptions, Tk_SetOptions, etc. - */ - -typedef enum { - TK_OPTION_BOOLEAN, - TK_OPTION_INT, - TK_OPTION_DOUBLE, - TK_OPTION_STRING, - TK_OPTION_STRING_TABLE, - TK_OPTION_COLOR, - TK_OPTION_FONT, - TK_OPTION_BITMAP, - TK_OPTION_BORDER, - TK_OPTION_RELIEF, - TK_OPTION_CURSOR, - TK_OPTION_JUSTIFY, - TK_OPTION_ANCHOR, - TK_OPTION_SYNONYM, - TK_OPTION_PIXELS, - TK_OPTION_WINDOW, - TK_OPTION_END, - TK_OPTION_CUSTOM, - TK_OPTION_STYLE -} Tk_OptionType; - -/* - * Structures of the following type are used by widgets to specify their - * configuration options. Typically each widget has a static array of these - * structures, where each element of the array describes a single - * configuration option. The array is passed to Tk_CreateOptionTable. - */ - -typedef struct Tk_OptionSpec { - Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; - * see definitions above. Last option in table - * must have type TK_OPTION_END. */ - const char *optionName; /* Name used to specify option in Tcl - * commands. */ - const char *dbName; /* Name for option in option database. */ - const char *dbClass; /* Class for option in database. */ - const char *defValue; /* Default value for option if not specified - * in command line, the option database, or - * the system. */ - int objOffset; /* Where in record to store a Tcl_Obj * that - * holds the value of this option, specified - * as an offset in bytes from the start of the - * record. Use the Tk_Offset macro to generate - * values for this. -1 means don't store the - * Tcl_Obj in the record. */ - int internalOffset; /* Where in record to store the internal - * representation of the value of this option, - * such as an int or XColor *. This field is - * specified as an offset in bytes from the - * start of the record. Use the Tk_Offset - * macro to generate values for it. -1 means - * don't store the internal representation in - * the record. */ - int flags; /* Any combination of the values defined - * below. */ - const void *clientData; /* An alternate place to put option-specific - * data. Used for the monochrome default value - * for colors, etc. */ - int typeMask; /* An arbitrary bit mask defined by the class - * manager; typically bits correspond to - * certain kinds of options such as all those - * that require a redisplay when they change. - * Tk_SetOptions returns the bit-wise OR of - * the typeMasks of all options that were - * changed. */ -} Tk_OptionSpec; - -/* - * Flag values for Tk_OptionSpec structures. These flags are shared by - * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. - */ - -#define TK_OPTION_NULL_OK (1 << 0) -#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) - -/* - * The following structure and function types are used by TK_OPTION_CUSTOM - * options; the structure holds pointers to the functions needed by the Tk - * option config code to handle a custom option. - */ - -typedef int (Tk_CustomOptionSetProc) (ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, - int offset, char *saveInternalPtr, int flags); -typedef Tcl_Obj *(Tk_CustomOptionGetProc) (ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset); -typedef void (Tk_CustomOptionRestoreProc) (ClientData clientData, - Tk_Window tkwin, char *internalPtr, char *saveInternalPtr); -typedef void (Tk_CustomOptionFreeProc) (ClientData clientData, Tk_Window tkwin, - char *internalPtr); - -typedef struct Tk_ObjCustomOption { - const char *name; /* Name of the custom option. */ - Tk_CustomOptionSetProc *setProc; - /* Function to use to set a record's option - * value from a Tcl_Obj */ - Tk_CustomOptionGetProc *getProc; - /* Function to use to get a Tcl_Obj - * representation from an internal - * representation of an option. */ - Tk_CustomOptionRestoreProc *restoreProc; - /* Function to use to restore a saved value - * for the internal representation. */ - Tk_CustomOptionFreeProc *freeProc; - /* Function to use to free the internal - * representation of an option. */ - ClientData clientData; /* Arbitrary one-word value passed to the - * handling procs. */ -} Tk_ObjCustomOption; - -/* - * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. - * Computes number of bytes from beginning of structure to a given field. - */ - -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -/* Workaround for platforms missing offsetof(), e.g. VC++ 6.0 */ -#ifndef offsetof -# define offsetof(type, field) ((size_t) ((char *) &((type *) 0)->field)) -#endif - -/* - * The following two structures are used for error handling. When config - * options are being modified, the old values are saved in a Tk_SavedOptions - * structure. If an error occurs, then the contents of the structure can be - * used to restore all of the old values. The contents of this structure are - * for the private use Tk. No-one outside Tk should ever read or write any of - * the fields of these structures. - */ - -typedef struct Tk_SavedOption { - struct TkOption *optionPtr; /* Points to information that describes the - * option. */ - Tcl_Obj *valuePtr; /* The old value of the option, in the form of - * a Tcl object; may be NULL if the value was - * not saved as an object. */ - double internalForm; /* The old value of the option, in some - * internal representation such as an int or - * (XColor *). Valid only if the field - * optionPtr->specPtr->objOffset is < 0. The - * space must be large enough to accommodate a - * double, a long, or a pointer; right now it - * looks like a double (i.e., 8 bytes) is big - * enough. Also, using a double guarantees - * that the field is properly aligned for - * storing large values. */ -} Tk_SavedOption; - -#ifdef TCL_MEM_DEBUG -# define TK_NUM_SAVED_OPTIONS 2 -#else -# define TK_NUM_SAVED_OPTIONS 20 -#endif - -typedef struct Tk_SavedOptions { - char *recordPtr; /* The data structure in which to restore - * configuration options. */ - Tk_Window tkwin; /* Window associated with recordPtr; needed to - * restore certain options. */ - int numItems; /* The number of valid items in items field. */ - Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; - /* Items used to hold old values. */ - struct Tk_SavedOptions *nextPtr; - /* Points to next structure in list; needed if - * too many options changed to hold all the - * old values in a single structure. NULL - * means no more structures. */ -} Tk_SavedOptions; - -/* - * Structure used to describe application-specific configuration options: - * indicates procedures to call to parse an option and to return a text string - * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES - * LISTED ABOVE. - */ - -/* - * This is a temporary flag used while tkObjConfig and new widgets are in - * development. - */ - -#ifndef __NO_OLD_CONFIG - -typedef int (Tk_OptionParseProc) (ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, CONST84 char *value, char *widgRec, int offset); -typedef CONST86 char *(Tk_OptionPrintProc) (ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); - -typedef struct Tk_CustomOption { - Tk_OptionParseProc *parseProc; - /* Procedure to call to parse an option and - * store it in converted form. */ - Tk_OptionPrintProc *printProc; - /* Procedure to return a printable string - * describing an existing option. */ - ClientData clientData; /* Arbitrary one-word value used by option - * parser: passed to parseProc and - * printProc. */ -} Tk_CustomOption; - -/* - * Structure used to specify information for Tk_ConfigureWidget. Each - * structure gives complete information for one option, including how the - * option is specified on the command line, where it appears in the option - * database, etc. - */ - -typedef struct Tk_ConfigSpec { - int type; /* Type of option, such as TK_CONFIG_COLOR; - * see definitions below. Last option in table - * must have type TK_CONFIG_END. */ - CONST86 char *argvName; /* Switch used to specify option in argv. NULL - * means this spec is part of a group. */ - Tk_Uid dbName; /* Name for option in option database. */ - Tk_Uid dbClass; /* Class for option in database. */ - Tk_Uid defValue; /* Default value for option if not specified - * in command line or database. */ - int offset; /* Where in widget record to store value; use - * Tk_Offset macro to generate values for - * this. */ - int specFlags; /* Any combination of the values defined - * below; other bits are used internally by - * tkConfig.c. */ - CONST86 Tk_CustomOption *customPtr; - /* If type is TK_CONFIG_CUSTOM then this is a - * pointer to info about how to parse and - * print the option. Otherwise it is - * irrelevant. */ -} Tk_ConfigSpec; - -/* - * Type values for Tk_ConfigSpec structures. See the user documentation for - * details. - */ - -typedef enum { - TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, - TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, - TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, - TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, - TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, - TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, - TK_CONFIG_END -} Tk_ConfigTypes; - -/* - * Possible values for flags argument to Tk_ConfigureWidget: - */ - -#define TK_CONFIG_ARGV_ONLY 1 -#define TK_CONFIG_OBJS 0x80 - -/* - * Possible flag values for Tk_ConfigSpec structures. Any bits at or above - * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. - * Before changing any values here, coordinate with tkOldConfig.c - * (internal-use-only flags are defined there). - */ - -#define TK_CONFIG_NULL_OK (1 << 0) -#define TK_CONFIG_COLOR_ONLY (1 << 1) -#define TK_CONFIG_MONO_ONLY (1 << 2) -#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) -#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) -#define TK_CONFIG_USER_BIT 0x100 -#endif /* __NO_OLD_CONFIG */ - -/* - * Structure used to specify how to handle argv options. - */ - -typedef struct { - CONST86 char *key; /* The key string that flags the option in the - * argv array. */ - int type; /* Indicates option type; see below. */ - char *src; /* Value to be used in setting dst; usage - * depends on type. */ - char *dst; /* Address of value to be modified; usage - * depends on type. */ - CONST86 char *help; /* Documentation message describing this - * option. */ -} Tk_ArgvInfo; - -/* - * Legal values for the type field of a Tk_ArgvInfo: see the user - * documentation for details. - */ - -#define TK_ARGV_CONSTANT 15 -#define TK_ARGV_INT 16 -#define TK_ARGV_STRING 17 -#define TK_ARGV_UID 18 -#define TK_ARGV_REST 19 -#define TK_ARGV_FLOAT 20 -#define TK_ARGV_FUNC 21 -#define TK_ARGV_GENFUNC 22 -#define TK_ARGV_HELP 23 -#define TK_ARGV_CONST_OPTION 24 -#define TK_ARGV_OPTION_VALUE 25 -#define TK_ARGV_OPTION_NAME_VALUE 26 -#define TK_ARGV_END 27 - -/* - * Flag bits for passing to Tk_ParseArgv: - */ - -#define TK_ARGV_NO_DEFAULTS 0x1 -#define TK_ARGV_NO_LEFTOVERS 0x2 -#define TK_ARGV_NO_ABBREV 0x4 -#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 - -/* - * Enumerated type for describing actions to be taken in response to a - * restrictProc established by Tk_RestrictEvents. - */ - -typedef enum { - TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT -} Tk_RestrictAction; - -/* - * Priority levels to pass to Tk_AddOption: - */ - -#define TK_WIDGET_DEFAULT_PRIO 20 -#define TK_STARTUP_FILE_PRIO 40 -#define TK_USER_DEFAULT_PRIO 60 -#define TK_INTERACTIVE_PRIO 80 -#define TK_MAX_PRIO 100 - -/* - * Relief values returned by Tk_GetRelief: - */ - -#define TK_RELIEF_NULL -1 -#define TK_RELIEF_FLAT 0 -#define TK_RELIEF_GROOVE 1 -#define TK_RELIEF_RAISED 2 -#define TK_RELIEF_RIDGE 3 -#define TK_RELIEF_SOLID 4 -#define TK_RELIEF_SUNKEN 5 - -/* - * "Which" argument values for Tk_3DBorderGC: - */ - -#define TK_3D_FLAT_GC 1 -#define TK_3D_LIGHT_GC 2 -#define TK_3D_DARK_GC 3 - -/* - * Special EnterNotify/LeaveNotify "mode" for use in events generated by - * tkShare.c. Pick a high enough value that it's unlikely to conflict with - * existing values (like NotifyNormal) or any new values defined in the - * future. - */ - -#define TK_NOTIFY_SHARE 20 - -/* - * Enumerated type for describing a point by which to anchor something: - */ - -typedef enum { - TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, - TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, - TK_ANCHOR_CENTER -} Tk_Anchor; - -/* - * Enumerated type for describing a style of justification: - */ - -typedef enum { - TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER -} Tk_Justify; - -/* - * The following structure is used by Tk_GetFontMetrics() to return - * information about the properties of a Tk_Font. - */ - -typedef struct Tk_FontMetrics { - int ascent; /* The amount in pixels that the tallest - * letter sticks up above the baseline, plus - * any extra blank space added by the designer - * of the font. */ - int descent; /* The largest amount in pixels that any - * letter sticks below the baseline, plus any - * extra blank space added by the designer of - * the font. */ - int linespace; /* The sum of the ascent and descent. How far - * apart two lines of text in the same font - * should be placed so that none of the - * characters in one line overlap any of the - * characters in the other line. */ -} Tk_FontMetrics; - -/* - * Flags passed to Tk_MeasureChars: - */ - -#define TK_WHOLE_WORDS 1 -#define TK_AT_LEAST_ONE 2 -#define TK_PARTIAL_OK 4 - -/* - * Flags passed to Tk_ComputeTextLayout: - */ - -#define TK_IGNORE_TABS 8 -#define TK_IGNORE_NEWLINES 16 - -/* - * Widget class procedures used to implement platform specific widget - * behavior. - */ - -typedef Window (Tk_ClassCreateProc) (Tk_Window tkwin, Window parent, - ClientData instanceData); -typedef void (Tk_ClassWorldChangedProc) (ClientData instanceData); -typedef void (Tk_ClassModalProc) (Tk_Window tkwin, XEvent *eventPtr); - -typedef struct Tk_ClassProcs { - unsigned int size; - Tk_ClassWorldChangedProc *worldChangedProc; - /* Procedure to invoke when the widget needs - * to respond in some way to a change in the - * world (font changes, etc.) */ - Tk_ClassCreateProc *createProc; - /* Procedure to invoke when the platform- - * dependent window needs to be created. */ - Tk_ClassModalProc *modalProc; - /* Procedure to invoke after all bindings on a - * widget have been triggered in order to - * handle a modal loop. */ -} Tk_ClassProcs; - -/* - * Simple accessor for Tk_ClassProcs structure. Checks that the structure is - * not NULL, then checks the size field and returns either the requested - * field, if present, or NULL if the structure is too small to have the field - * (or NULL if the structure is NULL). - * - * A more general version of this function may be useful if other - * size-versioned structure pop up in the future: - * - * #define Tk_GetField(name, who, which) \ - * (((who) == NULL) ? NULL : - * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) - */ - -#define Tk_GetClassProc(procs, which) \ - (((procs) == NULL) ? NULL : \ - (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) - -/* - * Each geometry manager (the packer, the placer, etc.) is represented by a - * structure of the following form, which indicates procedures to invoke in - * the geometry manager to carry out certain functions. - */ - -typedef void (Tk_GeomRequestProc) (ClientData clientData, Tk_Window tkwin); -typedef void (Tk_GeomLostSlaveProc) (ClientData clientData, Tk_Window tkwin); - -typedef struct Tk_GeomMgr { - const char *name; /* Name of the geometry manager (command used - * to invoke it, or name of widget class that - * allows embedded widgets). */ - Tk_GeomRequestProc *requestProc; - /* Procedure to invoke when a slave's - * requested geometry changes. */ - Tk_GeomLostSlaveProc *lostSlaveProc; - /* Procedure to invoke when a slave is taken - * away from one geometry manager by another. - * NULL means geometry manager doesn't care - * when slaves are lost. */ -} Tk_GeomMgr; - -/* - * Result values returned by Tk_GetScrollInfo: - */ - -#define TK_SCROLL_MOVETO 1 -#define TK_SCROLL_PAGES 2 -#define TK_SCROLL_UNITS 3 -#define TK_SCROLL_ERROR 4 - -/* - *---------------------------------------------------------------------- - * - * Extensions to the X event set - * - *---------------------------------------------------------------------- - */ - -#define VirtualEvent (MappingNotify + 1) -#define ActivateNotify (MappingNotify + 2) -#define DeactivateNotify (MappingNotify + 3) -#define MouseWheelEvent (MappingNotify + 4) -#define TK_LASTEVENT (MappingNotify + 5) - -#define MouseWheelMask (1L << 28) -#define ActivateMask (1L << 29) -#define VirtualEventMask (1L << 30) - -/* - * A virtual event shares most of its fields with the XKeyEvent and - * XButtonEvent structures. 99% of the time a virtual event will be an - * abstraction of a key or button event, so this structure provides the most - * information to the user. The only difference is the changing of the detail - * field for a virtual event so that it holds the name of the virtual event - * being triggered. - * - * When using this structure, you should ensure that you zero out all the - * fields first using memset() or bzero(). - */ - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window event; /* Window on which event was requested. */ - Window root; /* Root window that the event occurred on. */ - Window subwindow; /* Child window. */ - Time time; /* Milliseconds. */ - int x, y; /* Pointer x, y coordinates in event - * window. */ - int x_root, y_root; /* Coordinates relative to root. */ - unsigned int state; /* Key or button mask */ - Tk_Uid name; /* Name of virtual event. */ - Bool same_screen; /* Same screen flag. */ - Tcl_Obj *user_data; /* Application-specific data reference; Tk - * will decrement the reference count *once* - * when it has finished processing the - * event. */ -} XVirtualEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window window; /* Window in which event occurred. */ -} XActivateDeactivateEvent; -typedef XActivateDeactivateEvent XActivateEvent; -typedef XActivateDeactivateEvent XDeactivateEvent; - -/* - *---------------------------------------------------------------------- - * - * Macros for querying Tk_Window structures. See the manual entries for - * documentation. - * - *---------------------------------------------------------------------- - */ - -#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) -#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) -#define Tk_Screen(tkwin) \ - (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) -#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) -#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) -#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) -#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) -#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) -#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) -#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) -#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) -#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) -#define Tk_Height(tkwin) \ - (((Tk_FakeWin *) (tkwin))->changes.height) -#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) -#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) -#define Tk_IsEmbedded(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) -#define Tk_IsContainer(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) -#define Tk_IsMapped(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) -#define Tk_IsTopLevel(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) -#define Tk_HasWrapper(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) -#define Tk_WinManaged(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) -#define Tk_TopWinHierarchy(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) -#define Tk_IsManageable(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WM_MANAGEABLE) -#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) -#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) -/* Tk_InternalBorderWidth is deprecated */ -#define Tk_InternalBorderWidth(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderLeft(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderRight(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderRight) -#define Tk_InternalBorderTop(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderTop) -#define Tk_InternalBorderBottom(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderBottom) -#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) -#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) -#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) -#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) - -/* - * The structure below is needed by the macros above so that they can access - * the fields of a Tk_Window. The fields not needed by the macros are declared - * as "dummyX". The structure has its own type in order to prevent apps from - * accessing Tk_Window fields except using official macros. WARNING!! The - * structure definition must be kept consistent with the TkWindow structure in - * tkInt.h. If you change one, then change the other. See the declaration in - * tkInt.h for documentation on what the fields are used for internally. - */ - -typedef struct Tk_FakeWin { - Display *display; - char *dummy1; /* dispPtr */ - int screenNum; - Visual *visual; - int depth; - Window window; - char *dummy2; /* childList */ - char *dummy3; /* lastChildPtr */ - Tk_Window parentPtr; /* parentPtr */ - char *dummy4; /* nextPtr */ - char *dummy5; /* mainPtr */ - char *pathName; - Tk_Uid nameUid; - Tk_Uid classUid; - XWindowChanges changes; - unsigned int dummy6; /* dirtyChanges */ - XSetWindowAttributes atts; - unsigned long dummy7; /* dirtyAtts */ - unsigned int flags; - char *dummy8; /* handlerList */ -#ifdef TK_USE_INPUT_METHODS - XIC dummy9; /* inputContext */ -#endif /* TK_USE_INPUT_METHODS */ - ClientData *dummy10; /* tagPtr */ - int dummy11; /* numTags */ - int dummy12; /* optionLevel */ - char *dummy13; /* selHandlerList */ - char *dummy14; /* geomMgrPtr */ - ClientData dummy15; /* geomData */ - int reqWidth, reqHeight; - int internalBorderLeft; - char *dummy16; /* wmInfoPtr */ - char *dummy17; /* classProcPtr */ - ClientData dummy18; /* instanceData */ - char *dummy19; /* privatePtr */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - int minReqWidth; - int minReqHeight; -#ifdef TK_USE_INPUT_METHODS - int dummy20; -#endif /* TK_USE_INPUT_METHODS */ - char *dummy21; /* geomMgrName */ - Tk_Window dummy22; /* maintainerPtr */ -} Tk_FakeWin; - -/* - * Flag values for TkWindow (and Tk_FakeWin) structures are: - * - * TK_MAPPED: 1 means window is currently mapped, - * 0 means unmapped. - * TK_TOP_LEVEL: 1 means this is a top-level widget. - * TK_ALREADY_DEAD: 1 means the window is in the process of - * being destroyed already. - * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured - * before it was made to exist. At the time of - * making it exist a ConfigureNotify event needs - * to be generated. - * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details - * TK_CHECKED_IC: 1 means we've already tried to get an input - * context for this window; if the ic field is - * NULL it means that there isn't a context for - * the field. - * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not - * invoke XDestroyWindow to destroy this widget's - * X window. The flag is set when the window has - * already been destroyed elsewhere (e.g. by - * another application) or when it will be - * destroyed later (e.g. by destroying its parent) - * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time - * appeared in the WM_COLORMAP_WINDOWS property - * for its toplevel, so we have to remove it from - * that property if the window is deleted and the - * toplevel isn't. - * TK_EMBEDDED: 1 means that this window (which must be a - * toplevel) is not a free-standing window but - * rather is embedded in some other application. - * TK_CONTAINER: 1 means that this window is a container, and - * that some other application (either in this - * process or elsewhere) may be embedding itself - * inside the window. - * TK_BOTH_HALVES: 1 means that this window is used for - * application embedding (either as container or - * embedded application), and both the containing - * and embedded halves are associated with - * windows in this particular process. - * TK_WRAPPER: 1 means that this window is the extra wrapper - * window created around a toplevel to hold the - * menubar under Unix. See tkUnixWm.c for more - * information. - * TK_REPARENTED: 1 means that this window has been reparented - * so that as far as the window system is - * concerned it isn't a child of its Tk parent. - * Initially this is used only for special Unix - * menubar windows. - * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is - * thus not accessible from Tk. - * TK_HAS_WRAPPER 1 means that this window has a wrapper window - * TK_WIN_MANAGED 1 means that this window is a child of the root - * window, and is managed by the window manager. - * TK_TOP_HIERARCHY 1 means this window is at the top of a physical - * window hierarchy within this process, i.e. the - * window's parent either doesn't exist or is not - * owned by this Tk application. - * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the - * window's children should propagate up to this - * window. - * TK_WM_MANAGEABLE 1 marks a window as capable of being converted - * into a toplevel using [wm manage]. - */ - -#define TK_MAPPED 1 -#define TK_TOP_LEVEL 2 -#define TK_ALREADY_DEAD 4 -#define TK_NEED_CONFIG_NOTIFY 8 -#define TK_GRAB_FLAG 0x10 -#define TK_CHECKED_IC 0x20 -#define TK_DONT_DESTROY_WINDOW 0x40 -#define TK_WM_COLORMAP_WINDOW 0x80 -#define TK_EMBEDDED 0x100 -#define TK_CONTAINER 0x200 -#define TK_BOTH_HALVES 0x400 -#define TK_WRAPPER 0x1000 -#define TK_REPARENTED 0x2000 -#define TK_ANONYMOUS_WINDOW 0x4000 -#define TK_HAS_WRAPPER 0x8000 -#define TK_WIN_MANAGED 0x10000 -#define TK_TOP_HIERARCHY 0x20000 -#define TK_PROP_PROPCHANGE 0x40000 -#define TK_WM_MANAGEABLE 0x80000 - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for defining new canvas items: - * - *---------------------------------------------------------------------- - */ - -typedef enum { - TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, - TK_STATE_NORMAL, TK_STATE_HIDDEN -} Tk_State; - -typedef struct Tk_SmoothMethod { - CONST86 char *name; - int (*coordProc) (Tk_Canvas canvas, double *pointPtr, int numPoints, - int numSteps, XPoint xPoints[], double dblPoints[]); - void (*postscriptProc) (Tcl_Interp *interp, Tk_Canvas canvas, - double *coordPtr, int numPoints, int numSteps); -} Tk_SmoothMethod; - -/* - * For each item in a canvas widget there exists one record with the following - * structure. Each actual item is represented by a record with the following - * stuff at its beginning, plus additional type-specific stuff after that. - */ - -#define TK_TAG_SPACE 3 - -typedef struct Tk_Item { - int id; /* Unique identifier for this item (also - * serves as first tag for item). */ - struct Tk_Item *nextPtr; /* Next in display list of all items in this - * canvas. Later items in list are drawn on - * top of earlier ones. */ - Tk_Uid staticTagSpace[TK_TAG_SPACE]; - /* Built-in space for limited # of tags. */ - Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to - * staticTagSpace, but may point to malloc-ed - * space if there are lots of tags. */ - int tagSpace; /* Total amount of tag space available at - * tagPtr. */ - int numTags; /* Number of tag slots actually used at - * *tagPtr. */ - struct Tk_ItemType *typePtr;/* Table of procedures that implement this - * type of item. */ - int x1, y1, x2, y2; /* Bounding box for item, in integer canvas - * units. Set by item-specific code and - * guaranteed to contain every pixel drawn in - * item. Item area includes x1 and y1 but not - * x2 and y2. */ - struct Tk_Item *prevPtr; /* Previous in display list of all items in - * this canvas. Later items in list are drawn - * just below earlier ones. */ - Tk_State state; /* State of item. */ - char *reserved1; /* reserved for future use */ - int redraw_flags; /* Some flags used in the canvas */ - - /* - *------------------------------------------------------------------ - * Starting here is additional type-specific stuff; see the declarations - * for individual types to see what is part of each type. The actual space - * below is determined by the "itemInfoSize" of the type's Tk_ItemType - * record. - *------------------------------------------------------------------ - */ -} Tk_Item; - -/* - * Flag bits for canvases (redraw_flags): - * - * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the - * canvas state changes. - * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been - * prepared, so the general canvas code doesn't - * need to do that any more. - */ - -#define TK_ITEM_STATE_DEPENDANT 1 -#define TK_ITEM_DONT_REDRAW 2 - -/* - * Records of the following type are used to describe a type of item (e.g. - * lines, circles, etc.) that can form part of a canvas widget. - */ - -#ifdef USE_OLD_CANVAS -typedef int (Tk_ItemCreateProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, char **argv); -typedef int (Tk_ItemConfigureProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, char **argv, int flags); -typedef int (Tk_ItemCoordProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, char **argv); -#else -typedef int (Tk_ItemCreateProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, Tcl_Obj *const objv[]); -typedef int (Tk_ItemConfigureProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, Tcl_Obj *const objv[], - int flags); -typedef int (Tk_ItemCoordProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int argc, Tcl_Obj *const argv[]); -#endif /* USE_OLD_CANVAS */ -typedef void (Tk_ItemDeleteProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - Display *display); -typedef void (Tk_ItemDisplayProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - Display *display, Drawable dst, int x, int y, int width, - int height); -typedef double (Tk_ItemPointProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double *pointPtr); -typedef int (Tk_ItemAreaProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double *rectPtr); -typedef int (Tk_ItemPostscriptProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, int prepass); -typedef void (Tk_ItemScaleProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double originX, double originY, double scaleX, - double scaleY); -typedef void (Tk_ItemTranslateProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - double deltaX, double deltaY); -#ifdef USE_OLD_CANVAS -typedef int (Tk_ItemIndexProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, char *indexString, int *indexPtr); -#else -typedef int (Tk_ItemIndexProc)(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Item *itemPtr, Tcl_Obj *indexString, int *indexPtr); -#endif /* USE_OLD_CANVAS */ -typedef void (Tk_ItemCursorProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int index); -typedef int (Tk_ItemSelectionProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int offset, char *buffer, int maxBytes); -#ifdef USE_OLD_CANVAS -typedef void (Tk_ItemInsertProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int beforeThis, char *string); -#else -typedef void (Tk_ItemInsertProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int beforeThis, Tcl_Obj *string); -#endif /* USE_OLD_CANVAS */ -typedef void (Tk_ItemDCharsProc)(Tk_Canvas canvas, Tk_Item *itemPtr, - int first, int last); - -#ifndef __NO_OLD_CONFIG - -typedef struct Tk_ItemType { - CONST86 char *name; /* The name of this type of item, such as - * "line". */ - int itemSize; /* Total amount of space needed for item's - * record. */ - Tk_ItemCreateProc *createProc; - /* Procedure to create a new item of this - * type. */ - CONST86 Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for - * this type. Used for returning configuration - * info. */ - Tk_ItemConfigureProc *configProc; - /* Procedure to call to change configuration - * options. */ - Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's - * coordinates. */ - Tk_ItemDeleteProc *deleteProc; - /* Procedure to delete existing item of this - * type. */ - Tk_ItemDisplayProc *displayProc; - /* Procedure to display items of this type. */ - int alwaysRedraw; /* Non-zero means displayProc should be called - * even when the item has been moved - * off-screen. */ - Tk_ItemPointProc *pointProc;/* Computes distance from item to a given - * point. */ - Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, - * or overlapping an area. */ - Tk_ItemPostscriptProc *postscriptProc; - /* Procedure to write a Postscript description - * for items of this type. */ - Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ - Tk_ItemTranslateProc *translateProc; - /* Procedure to translate items of this - * type. */ - Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated - * character. NULL if item doesn't support - * indexing. */ - Tk_ItemCursorProc *icursorProc; - /* Procedure to set insert cursor posn to just - * before a given position. */ - Tk_ItemSelectionProc *selectionProc; - /* Procedure to return selection (in STRING - * format) when it is in this item. */ - Tk_ItemInsertProc *insertProc; - /* Procedure to insert something into an - * item. */ - Tk_ItemDCharsProc *dCharsProc; - /* Procedure to delete characters from an - * item. */ - struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ - char *reserved1; /* Reserved for future extension. */ - int reserved2; /* Carefully compatible with */ - char *reserved3; /* Jan Nijtmans dash patch */ - char *reserved4; -} Tk_ItemType; - -/* - * Flag (used in the alwaysRedraw field) to say whether an item supports - * point-level manipulation like the line and polygon items. - */ - -#define TK_MOVABLE_POINTS 2 - -#endif /* __NO_OLD_CONFIG */ - -/* - * The following structure provides information about the selection and the - * insertion cursor. It is needed by only a few items, such as those that - * display text. It is shared by the generic canvas code and the item-specific - * code, but most of the fields should be written only by the canvas generic - * code. - */ - -typedef struct Tk_CanvasTextInfo { - Tk_3DBorder selBorder; /* Border and background for selected - * characters. Read-only to items.*/ - int selBorderWidth; /* Width of border around selection. Read-only - * to items. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * Read-only to items. */ - Tk_Item *selItemPtr; /* Pointer to selected item. NULL means - * selection isn't in this canvas. Writable by - * items. */ - int selectFirst; /* Character index of first selected - * character. Writable by items. */ - int selectLast; /* Character index of last selected character. - * Writable by items. */ - Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not - * necessarily selItemPtr. Read-only to - * items. */ - int selectAnchor; /* Character index of fixed end of selection - * (i.e. "select to" operation will use this - * as one end of the selection). Writable by - * items. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. Read-only to items. */ - int insertWidth; /* Total width of insertion cursor. Read-only - * to items. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. - * Read-only to items. */ - Tk_Item *focusItemPtr; /* Item that currently has the input focus, or - * NULL if no such item. Read-only to items. */ - int gotFocus; /* Non-zero means that the canvas widget has - * the input focus. Read-only to items.*/ - int cursorOn; /* Non-zero means that an insertion cursor - * should be displayed in focusItemPtr. - * Read-only to items.*/ -} Tk_CanvasTextInfo; - -/* - * Structures used for Dashing and Outline. - */ - -typedef struct Tk_Dash { - int number; - union { - char *pt; - char array[sizeof(char *)]; - } pattern; -} Tk_Dash; - -typedef struct Tk_TSOffset { - int flags; /* Flags; see below for possible values */ - int xoffset; /* x offset */ - int yoffset; /* y offset */ -} Tk_TSOffset; - -/* - * Bit fields in Tk_TSOffset->flags: - */ - -#define TK_OFFSET_INDEX 1 -#define TK_OFFSET_RELATIVE 2 -#define TK_OFFSET_LEFT 4 -#define TK_OFFSET_CENTER 8 -#define TK_OFFSET_RIGHT 16 -#define TK_OFFSET_TOP 32 -#define TK_OFFSET_MIDDLE 64 -#define TK_OFFSET_BOTTOM 128 - -typedef struct Tk_Outline { - GC gc; /* Graphics context. */ - double width; /* Width of outline. */ - double activeWidth; /* Width of outline. */ - double disabledWidth; /* Width of outline. */ - int offset; /* Dash offset. */ - Tk_Dash dash; /* Dash pattern. */ - Tk_Dash activeDash; /* Dash pattern if state is active. */ - Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ - void *reserved1; /* Reserved for future expansion. */ - void *reserved2; - void *reserved3; - Tk_TSOffset tsoffset; /* Stipple offset for outline. */ - XColor *color; /* Outline color. */ - XColor *activeColor; /* Outline color if state is active. */ - XColor *disabledColor; /* Outline color if state is disabled. */ - Pixmap stipple; /* Outline Stipple pattern. */ - Pixmap activeStipple; /* Outline Stipple pattern if state is - * active. */ - Pixmap disabledStipple; /* Outline Stipple pattern if state is - * disabled. */ -} Tk_Outline; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing images: - * - *---------------------------------------------------------------------- - */ - -typedef struct Tk_ImageType Tk_ImageType; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, char *name, int argc, - char **argv, Tk_ImageType *typePtr, Tk_ImageMaster master, - ClientData *masterDataPtr); -#else -typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, CONST86 char *name, int objc, - Tcl_Obj *const objv[], CONST86 Tk_ImageType *typePtr, Tk_ImageMaster master, - ClientData *masterDataPtr); -#endif /* USE_OLD_IMAGE */ -typedef ClientData (Tk_ImageGetProc) (Tk_Window tkwin, ClientData masterData); -typedef void (Tk_ImageDisplayProc) (ClientData instanceData, Display *display, - Drawable drawable, int imageX, int imageY, int width, int height, - int drawableX, int drawableY); -typedef void (Tk_ImageFreeProc) (ClientData instanceData, Display *display); -typedef void (Tk_ImageDeleteProc) (ClientData masterData); -typedef void (Tk_ImageChangedProc) (ClientData clientData, int x, int y, - int width, int height, int imageWidth, int imageHeight); -typedef int (Tk_ImagePostscriptProc) (ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, - int x, int y, int width, int height, int prepass); - -/* - * The following structure represents a particular type of image (bitmap, xpm - * image, etc.). It provides information common to all images of that type, - * such as the type name and a collection of procedures in the image manager - * that respond to various events. Each image manager is represented by one of - * these structures. - */ - -struct Tk_ImageType { - CONST86 char *name; /* Name of image type. */ - Tk_ImageCreateProc *createProc; - /* Procedure to call to create a new image of - * this type. */ - Tk_ImageGetProc *getProc; /* Procedure to call the first time - * Tk_GetImage is called in a new way (new - * visual or screen). */ - Tk_ImageDisplayProc *displayProc; - /* Call to draw image, in response to - * Tk_RedrawImage calls. */ - Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is - * called to release an instance of an - * image. */ - Tk_ImageDeleteProc *deleteProc; - /* Procedure to call to delete image. It will - * not be called until after freeProc has been - * called for each instance of the image. */ - Tk_ImagePostscriptProc *postscriptProc; - /* Procedure to call to produce postscript - * output for the image. */ - struct Tk_ImageType *nextPtr; - /* Next in list of all image types currently - * known. Filled in by Tk, not by image - * manager. */ - char *reserved; /* reserved for future expansion */ -}; - -/* - *---------------------------------------------------------------------- - * - * Additional definitions used to manage images of type "photo". - * - *---------------------------------------------------------------------- - */ - -/* - * The following type is used to identify a particular photo image to be - * manipulated: - */ - -typedef void *Tk_PhotoHandle; - -/* - * The following structure describes a block of pixels in memory: - */ - -typedef struct Tk_PhotoImageBlock { - unsigned char *pixelPtr; /* Pointer to the first pixel. */ - int width; /* Width of block, in pixels. */ - int height; /* Height of block, in pixels. */ - int pitch; /* Address difference between corresponding - * pixels in successive lines. */ - int pixelSize; /* Address difference between successive - * pixels in the same line. */ - int offset[4]; /* Address differences between the red, green, - * blue and alpha components of the pixel and - * the pixel as a whole. */ -} Tk_PhotoImageBlock; - -/* - * The following values control how blocks are combined into photo images when - * the alpha component of a pixel is not 255, a.k.a. the compositing rule. - */ - -#define TK_PHOTO_COMPOSITE_OVERLAY 0 -#define TK_PHOTO_COMPOSITE_SET 1 - -/* - * Procedure prototypes and structures used in reading and writing photo - * images: - */ - -typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageFileMatchProc) (Tcl_Channel chan, char *fileName, - char *formatString, int *widthPtr, int *heightPtr); -typedef int (Tk_ImageStringMatchProc) (char *string, char *formatString, - int *widthPtr, int *heightPtr); -typedef int (Tk_ImageFileReadProc) (Tcl_Interp *interp, Tcl_Channel chan, - char *fileName, char *formatString, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); -typedef int (Tk_ImageStringReadProc) (Tcl_Interp *interp, char *string, - char *formatString, Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY); -typedef int (Tk_ImageFileWriteProc) (Tcl_Interp *interp, char *fileName, - char *formatString, Tk_PhotoImageBlock *blockPtr); -typedef int (Tk_ImageStringWriteProc) (Tcl_Interp *interp, - Tcl_DString *dataPtr, char *formatString, Tk_PhotoImageBlock *blockPtr); -#else -typedef int (Tk_ImageFileMatchProc) (Tcl_Channel chan, const char *fileName, - Tcl_Obj *format, int *widthPtr, int *heightPtr, Tcl_Interp *interp); -typedef int (Tk_ImageStringMatchProc) (Tcl_Obj *dataObj, Tcl_Obj *format, - int *widthPtr, int *heightPtr, Tcl_Interp *interp); -typedef int (Tk_ImageFileReadProc) (Tcl_Interp *interp, Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY); -typedef int (Tk_ImageStringReadProc) (Tcl_Interp *interp, Tcl_Obj *dataObj, - Tcl_Obj *format, Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY); -typedef int (Tk_ImageFileWriteProc) (Tcl_Interp *interp, const char *fileName, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr); -typedef int (Tk_ImageStringWriteProc) (Tcl_Interp *interp, Tcl_Obj *format, - Tk_PhotoImageBlock *blockPtr); -#endif /* USE_OLD_IMAGE */ - -/* - * The following structure represents a particular file format for storing - * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image - * files of that format to be recognized and read into a photo image. - */ - -struct Tk_PhotoImageFormat { - CONST86 char *name; /* Name of image file format */ - Tk_ImageFileMatchProc *fileMatchProc; - /* Procedure to call to determine whether an - * image file matches this format. */ - Tk_ImageStringMatchProc *stringMatchProc; - /* Procedure to call to determine whether the - * data in a string matches this format. */ - Tk_ImageFileReadProc *fileReadProc; - /* Procedure to call to read data from an - * image file into a photo image. */ - Tk_ImageStringReadProc *stringReadProc; - /* Procedure to call to read data from a - * string into a photo image. */ - Tk_ImageFileWriteProc *fileWriteProc; - /* Procedure to call to write data from a - * photo image to a file. */ - Tk_ImageStringWriteProc *stringWriteProc; - /* Procedure to call to obtain a string - * representation of the data in a photo - * image.*/ - struct Tk_PhotoImageFormat *nextPtr; - /* Next in list of all photo image formats - * currently known. Filled in by Tk, not by - * image format handler. */ -}; - -/* - *---------------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing styles: - * - *---------------------------------------------------------------------- - */ - -/* - * Style support version tag. - */ - -#define TK_STYLE_VERSION_1 0x1 -#define TK_STYLE_VERSION TK_STYLE_VERSION_1 - -/* - * The following structures and prototypes are used as static templates to - * declare widget elements. - */ - -typedef void (Tk_GetElementSizeProc) (ClientData clientData, char *recordPtr, - const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, int width, - int height, int inner, int *widthPtr, int *heightPtr); -typedef void (Tk_GetElementBoxProc) (ClientData clientData, char *recordPtr, - const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, int x, int y, - int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr); -typedef int (Tk_GetElementBorderWidthProc) (ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin); -typedef void (Tk_DrawElementProc) (ClientData clientData, char *recordPtr, - const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, Drawable d, int x, - int y, int width, int height, int state); - -typedef struct Tk_ElementOptionSpec { - char *name; /* Name of the required option. */ - Tk_OptionType type; /* Accepted option type. TK_OPTION_END means - * any. */ -} Tk_ElementOptionSpec; - -typedef struct Tk_ElementSpec { - int version; /* Version of the style support. */ - char *name; /* Name of element. */ - Tk_ElementOptionSpec *options; - /* List of required options. Last one's name - * must be NULL. */ - Tk_GetElementSizeProc *getSize; - /* Compute the external (resp. internal) size - * of the element from its desired internal - * (resp. external) size. */ - Tk_GetElementBoxProc *getBox; - /* Compute the inscribed or bounding boxes - * within a given area. */ - Tk_GetElementBorderWidthProc *getBorderWidth; - /* Return the element's internal border width. - * Mostly useful for widgets. */ - Tk_DrawElementProc *draw; /* Draw the element in the given bounding - * box. */ -} Tk_ElementSpec; - -/* - * Element state flags. Can be OR'ed. - */ - -#define TK_ELEMENT_STATE_ACTIVE 1<<0 -#define TK_ELEMENT_STATE_DISABLED 1<<1 -#define TK_ELEMENT_STATE_FOCUS 1<<2 -#define TK_ELEMENT_STATE_PRESSED 1<<3 - -/* - *---------------------------------------------------------------------- - * - * The definitions below provide backward compatibility for functions and - * types related to event handling that used to be in Tk but have moved to - * Tcl. - * - *---------------------------------------------------------------------- - */ - -#define TK_READABLE TCL_READABLE -#define TK_WRITABLE TCL_WRITABLE -#define TK_EXCEPTION TCL_EXCEPTION - -#define TK_DONT_WAIT TCL_DONT_WAIT -#define TK_X_EVENTS TCL_WINDOW_EVENTS -#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS -#define TK_FILE_EVENTS TCL_FILE_EVENTS -#define TK_TIMER_EVENTS TCL_TIMER_EVENTS -#define TK_IDLE_EVENTS TCL_IDLE_EVENTS -#define TK_ALL_EVENTS TCL_ALL_EVENTS - -#define Tk_IdleProc Tcl_IdleProc -#define Tk_FileProc Tcl_FileProc -#define Tk_TimerProc Tcl_TimerProc -#define Tk_TimerToken Tcl_TimerToken - -#define Tk_BackgroundError Tcl_BackgroundError -#define Tk_CancelIdleCall Tcl_CancelIdleCall -#define Tk_CreateFileHandler Tcl_CreateFileHandler -#define Tk_CreateTimerHandler Tcl_CreateTimerHandler -#define Tk_DeleteFileHandler Tcl_DeleteFileHandler -#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler -#define Tk_DoOneEvent Tcl_DoOneEvent -#define Tk_DoWhenIdle Tcl_DoWhenIdle -#define Tk_Sleep Tcl_Sleep - -/* Additional stuff that has moved to Tcl: */ - -#define Tk_EventuallyFree Tcl_EventuallyFree -#define Tk_FreeProc Tcl_FreeProc -#define Tk_Preserve Tcl_Preserve -#define Tk_Release Tcl_Release - -/* Removed Tk_Main, use macro instead */ -#if defined(_WIN32) || defined(__CYGWIN__) -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(0), (Tcl_CreateInterp)())) -#else -#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) -#endif -const char * Tk_InitStubs(Tcl_Interp *interp, const char *version, - int exact); -EXTERN const char * Tk_PkgInitStubsCheck(Tcl_Interp *interp, - const char *version, int exact); - -#ifndef USE_TK_STUBS -#define Tk_InitStubs(interp, version, exact) \ - Tk_PkgInitStubsCheck(interp, version, exact) -#endif /* USE_TK_STUBS */ - -#define Tk_InitImageArgs(interp, argc, argv) /**/ - -/* - *---------------------------------------------------------------------- - * - * Additional procedure types defined by Tk. - * - *---------------------------------------------------------------------- - */ - -typedef int (Tk_ErrorProc) (ClientData clientData, XErrorEvent *errEventPtr); -typedef void (Tk_EventProc) (ClientData clientData, XEvent *eventPtr); -typedef int (Tk_GenericProc) (ClientData clientData, XEvent *eventPtr); -typedef int (Tk_ClientMessageProc) (Tk_Window tkwin, XEvent *eventPtr); -typedef int (Tk_GetSelProc) (ClientData clientData, Tcl_Interp *interp, - CONST86 char *portion); -typedef void (Tk_LostSelProc) (ClientData clientData); -typedef Tk_RestrictAction (Tk_RestrictProc) (ClientData clientData, - XEvent *eventPtr); -typedef int (Tk_SelectionProc) (ClientData clientData, int offset, - char *buffer, int maxBytes); - -/* - *---------------------------------------------------------------------- - * - * Platform independent exported procedures and variables. - * - *---------------------------------------------------------------------- - */ - -#include "tkDecls.h" - -#ifdef USE_OLD_IMAGE -#undef Tk_CreateImageType -#define Tk_CreateImageType Tk_CreateOldImageType -#undef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat -#endif /* USE_OLD_IMAGE */ - -/* - *---------------------------------------------------------------------- - * - * Allow users to say that they don't want to alter their source to add extra - * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. - * - * This goes after the inclusion of the stubbed-decls so that the declarations - * of what is actually there can be correct. - */ - -#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite -# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE -#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic -# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ -#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoExpand -# undef Tk_PhotoExpand -# endif -# define Tk_PhotoExpand Tk_PhotoExpand_Panic -# ifdef Tk_PhotoSetSize -# undef Tk_PhotoSetSize -# endif -# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic -#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TK */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkDecls.h deleted file mode 100644 index 64c32cd2a..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkDecls.h +++ /dev/null @@ -1,1733 +0,0 @@ -/* - * tkDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKDECLS -#define _TKDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN void Tk_MainLoop(void); -/* 1 */ -EXTERN XColor * Tk_3DBorderColor(Tk_3DBorder border); -/* 2 */ -EXTERN GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border, - int which); -/* 3 */ -EXTERN void Tk_3DHorizontalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief); -/* 4 */ -EXTERN void Tk_3DVerticalBevel(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief); -/* 5 */ -EXTERN void Tk_AddOption(Tk_Window tkwin, const char *name, - const char *value, int priority); -/* 6 */ -EXTERN void Tk_BindEvent(Tk_BindingTable bindingTable, - XEvent *eventPtr, Tk_Window tkwin, - int numObjects, ClientData *objectPtr); -/* 7 */ -EXTERN void Tk_CanvasDrawableCoords(Tk_Canvas canvas, double x, - double y, short *drawableXPtr, - short *drawableYPtr); -/* 8 */ -EXTERN void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, - int y1, int x2, int y2); -/* 9 */ -EXTERN int Tk_CanvasGetCoord(Tcl_Interp *interp, - Tk_Canvas canvas, const char *str, - double *doublePtr); -/* 10 */ -EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo(Tk_Canvas canvas); -/* 11 */ -EXTERN int Tk_CanvasPsBitmap(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap, int x, - int y, int width, int height); -/* 12 */ -EXTERN int Tk_CanvasPsColor(Tcl_Interp *interp, - Tk_Canvas canvas, XColor *colorPtr); -/* 13 */ -EXTERN int Tk_CanvasPsFont(Tcl_Interp *interp, Tk_Canvas canvas, - Tk_Font font); -/* 14 */ -EXTERN void Tk_CanvasPsPath(Tcl_Interp *interp, Tk_Canvas canvas, - double *coordPtr, int numPoints); -/* 15 */ -EXTERN int Tk_CanvasPsStipple(Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap); -/* 16 */ -EXTERN double Tk_CanvasPsY(Tk_Canvas canvas, double y); -/* 17 */ -EXTERN void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc); -/* 18 */ -EXTERN int Tk_CanvasTagsParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 19 */ -EXTERN CONST86 char * Tk_CanvasTagsPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 20 */ -EXTERN Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas); -/* 21 */ -EXTERN void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, - double y, short *screenXPtr, - short *screenYPtr); -/* 22 */ -EXTERN void Tk_ChangeWindowAttributes(Tk_Window tkwin, - unsigned long valueMask, - XSetWindowAttributes *attsPtr); -/* 23 */ -EXTERN int Tk_CharBbox(Tk_TextLayout layout, int index, - int *xPtr, int *yPtr, int *widthPtr, - int *heightPtr); -/* 24 */ -EXTERN void Tk_ClearSelection(Tk_Window tkwin, Atom selection); -/* 25 */ -EXTERN int Tk_ClipboardAppend(Tcl_Interp *interp, - Tk_Window tkwin, Atom target, Atom format, - const char *buffer); -/* 26 */ -EXTERN int Tk_ClipboardClear(Tcl_Interp *interp, - Tk_Window tkwin); -/* 27 */ -EXTERN int Tk_ConfigureInfo(Tcl_Interp *interp, Tk_Window tkwin, - const Tk_ConfigSpec *specs, char *widgRec, - const char *argvName, int flags); -/* 28 */ -EXTERN int Tk_ConfigureValue(Tcl_Interp *interp, - Tk_Window tkwin, const Tk_ConfigSpec *specs, - char *widgRec, const char *argvName, - int flags); -/* 29 */ -EXTERN int Tk_ConfigureWidget(Tcl_Interp *interp, - Tk_Window tkwin, const Tk_ConfigSpec *specs, - int argc, CONST84 char **argv, char *widgRec, - int flags); -/* 30 */ -EXTERN void Tk_ConfigureWindow(Tk_Window tkwin, - unsigned int valueMask, - XWindowChanges *valuePtr); -/* 31 */ -EXTERN Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font, const char *str, - int numChars, int wrapLength, - Tk_Justify justify, int flags, int *widthPtr, - int *heightPtr); -/* 32 */ -EXTERN Tk_Window Tk_CoordsToWindow(int rootX, int rootY, - Tk_Window tkwin); -/* 33 */ -EXTERN unsigned long Tk_CreateBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, const char *eventStr, - const char *script, int append); -/* 34 */ -EXTERN Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp); -/* 35 */ -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler(Display *display, int errNum, - int request, int minorCode, - Tk_ErrorProc *errorProc, - ClientData clientData); -/* 36 */ -EXTERN void Tk_CreateEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -/* 37 */ -EXTERN void Tk_CreateGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -/* 38 */ -EXTERN void Tk_CreateImageType(const Tk_ImageType *typePtr); -/* 39 */ -EXTERN void Tk_CreateItemType(Tk_ItemType *typePtr); -/* 40 */ -EXTERN void Tk_CreatePhotoImageFormat( - const Tk_PhotoImageFormat *formatPtr); -/* 41 */ -EXTERN void Tk_CreateSelHandler(Tk_Window tkwin, Atom selection, - Atom target, Tk_SelectionProc *proc, - ClientData clientData, Atom format); -/* 42 */ -EXTERN Tk_Window Tk_CreateWindow(Tcl_Interp *interp, Tk_Window parent, - const char *name, const char *screenName); -/* 43 */ -EXTERN Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, - Tk_Window tkwin, const char *pathName, - const char *screenName); -/* 44 */ -EXTERN int Tk_DefineBitmap(Tcl_Interp *interp, const char *name, - const void *source, int width, int height); -/* 45 */ -EXTERN void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor); -/* 46 */ -EXTERN void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, - ClientData object); -/* 47 */ -EXTERN int Tk_DeleteBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, const char *eventStr); -/* 48 */ -EXTERN void Tk_DeleteBindingTable(Tk_BindingTable bindingTable); -/* 49 */ -EXTERN void Tk_DeleteErrorHandler(Tk_ErrorHandler handler); -/* 50 */ -EXTERN void Tk_DeleteEventHandler(Tk_Window token, - unsigned long mask, Tk_EventProc *proc, - ClientData clientData); -/* 51 */ -EXTERN void Tk_DeleteGenericHandler(Tk_GenericProc *proc, - ClientData clientData); -/* 52 */ -EXTERN void Tk_DeleteImage(Tcl_Interp *interp, const char *name); -/* 53 */ -EXTERN void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, - Atom target); -/* 54 */ -EXTERN void Tk_DestroyWindow(Tk_Window tkwin); -/* 55 */ -EXTERN CONST84_RETURN char * Tk_DisplayName(Tk_Window tkwin); -/* 56 */ -EXTERN int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, - int y); -/* 57 */ -EXTERN void Tk_Draw3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -/* 58 */ -EXTERN void Tk_Draw3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -/* 59 */ -EXTERN void Tk_DrawChars(Display *display, Drawable drawable, - GC gc, Tk_Font tkfont, const char *source, - int numBytes, int x, int y); -/* 60 */ -EXTERN void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable); -/* 61 */ -EXTERN void Tk_DrawTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int firstChar, int lastChar); -/* 62 */ -EXTERN void Tk_Fill3DPolygon(Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint *pointPtr, - int numPoints, int borderWidth, - int leftRelief); -/* 63 */ -EXTERN void Tk_Fill3DRectangle(Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -/* 64 */ -EXTERN Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, - const char *imageName); -/* 65 */ -EXTERN Font Tk_FontId(Tk_Font font); -/* 66 */ -EXTERN void Tk_Free3DBorder(Tk_3DBorder border); -/* 67 */ -EXTERN void Tk_FreeBitmap(Display *display, Pixmap bitmap); -/* 68 */ -EXTERN void Tk_FreeColor(XColor *colorPtr); -/* 69 */ -EXTERN void Tk_FreeColormap(Display *display, Colormap colormap); -/* 70 */ -EXTERN void Tk_FreeCursor(Display *display, Tk_Cursor cursor); -/* 71 */ -EXTERN void Tk_FreeFont(Tk_Font f); -/* 72 */ -EXTERN void Tk_FreeGC(Display *display, GC gc); -/* 73 */ -EXTERN void Tk_FreeImage(Tk_Image image); -/* 74 */ -EXTERN void Tk_FreeOptions(const Tk_ConfigSpec *specs, - char *widgRec, Display *display, - int needFlags); -/* 75 */ -EXTERN void Tk_FreePixmap(Display *display, Pixmap pixmap); -/* 76 */ -EXTERN void Tk_FreeTextLayout(Tk_TextLayout textLayout); -/* 77 */ -EXTERN void Tk_FreeXId(Display *display, XID xid); -/* 78 */ -EXTERN GC Tk_GCForColor(XColor *colorPtr, Drawable drawable); -/* 79 */ -EXTERN void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, - int reqHeight); -/* 80 */ -EXTERN Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid colorName); -/* 81 */ -EXTERN void Tk_GetAllBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object); -/* 82 */ -EXTERN int Tk_GetAnchor(Tcl_Interp *interp, const char *str, - Tk_Anchor *anchorPtr); -/* 83 */ -EXTERN CONST84_RETURN char * Tk_GetAtomName(Tk_Window tkwin, Atom atom); -/* 84 */ -EXTERN CONST84_RETURN char * Tk_GetBinding(Tcl_Interp *interp, - Tk_BindingTable bindingTable, - ClientData object, const char *eventStr); -/* 85 */ -EXTERN Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, - const char *str); -/* 86 */ -EXTERN Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp, - Tk_Window tkwin, const void *source, - int width, int height); -/* 87 */ -EXTERN int Tk_GetCapStyle(Tcl_Interp *interp, const char *str, - int *capPtr); -/* 88 */ -EXTERN XColor * Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid name); -/* 89 */ -EXTERN XColor * Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr); -/* 90 */ -EXTERN Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin, - const char *str); -/* 91 */ -EXTERN Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin, - Tk_Uid str); -/* 92 */ -EXTERN Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp, - Tk_Window tkwin, const char *source, - const char *mask, int width, int height, - int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); -/* 93 */ -EXTERN Tk_Font Tk_GetFont(Tcl_Interp *interp, Tk_Window tkwin, - const char *str); -/* 94 */ -EXTERN Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 95 */ -EXTERN void Tk_GetFontMetrics(Tk_Font font, - Tk_FontMetrics *fmPtr); -/* 96 */ -EXTERN GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, - XGCValues *valuePtr); -/* 97 */ -EXTERN Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, - const char *name, - Tk_ImageChangedProc *changeProc, - ClientData clientData); -/* 98 */ -EXTERN ClientData Tk_GetImageMasterData(Tcl_Interp *interp, - const char *name, - CONST86 Tk_ImageType **typePtrPtr); -/* 99 */ -EXTERN Tk_ItemType * Tk_GetItemTypes(void); -/* 100 */ -EXTERN int Tk_GetJoinStyle(Tcl_Interp *interp, const char *str, - int *joinPtr); -/* 101 */ -EXTERN int Tk_GetJustify(Tcl_Interp *interp, const char *str, - Tk_Justify *justifyPtr); -/* 102 */ -EXTERN int Tk_GetNumMainWindows(void); -/* 103 */ -EXTERN Tk_Uid Tk_GetOption(Tk_Window tkwin, const char *name, - const char *className); -/* 104 */ -EXTERN int Tk_GetPixels(Tcl_Interp *interp, Tk_Window tkwin, - const char *str, int *intPtr); -/* 105 */ -EXTERN Pixmap Tk_GetPixmap(Display *display, Drawable d, int width, - int height, int depth); -/* 106 */ -EXTERN int Tk_GetRelief(Tcl_Interp *interp, const char *name, - int *reliefPtr); -/* 107 */ -EXTERN void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -/* 108 */ -EXTERN int Tk_GetScrollInfo(Tcl_Interp *interp, int argc, - CONST84 char **argv, double *dblPtr, - int *intPtr); -/* 109 */ -EXTERN int Tk_GetScreenMM(Tcl_Interp *interp, Tk_Window tkwin, - const char *str, double *doublePtr); -/* 110 */ -EXTERN int Tk_GetSelection(Tcl_Interp *interp, Tk_Window tkwin, - Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData); -/* 111 */ -EXTERN Tk_Uid Tk_GetUid(const char *str); -/* 112 */ -EXTERN Visual * Tk_GetVisual(Tcl_Interp *interp, Tk_Window tkwin, - const char *str, int *depthPtr, - Colormap *colormapPtr); -/* 113 */ -EXTERN void Tk_GetVRootGeometry(Tk_Window tkwin, int *xPtr, - int *yPtr, int *widthPtr, int *heightPtr); -/* 114 */ -EXTERN int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, - int grabGlobal); -/* 115 */ -EXTERN void Tk_HandleEvent(XEvent *eventPtr); -/* 116 */ -EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window); -/* 117 */ -EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y, - int width, int height, int imageWidth, - int imageHeight); -/* 118 */ -EXTERN int Tk_Init(Tcl_Interp *interp); -/* 119 */ -EXTERN Atom Tk_InternAtom(Tk_Window tkwin, const char *name); -/* 120 */ -EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, - int y, int width, int height); -/* 121 */ -EXTERN void Tk_MaintainGeometry(Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height); -/* 122 */ -EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp); -/* 123 */ -EXTERN void Tk_MakeWindowExist(Tk_Window tkwin); -/* 124 */ -EXTERN void Tk_ManageGeometry(Tk_Window tkwin, - const Tk_GeomMgr *mgrPtr, - ClientData clientData); -/* 125 */ -EXTERN void Tk_MapWindow(Tk_Window tkwin); -/* 126 */ -EXTERN int Tk_MeasureChars(Tk_Font tkfont, const char *source, - int numBytes, int maxPixels, int flags, - int *lengthPtr); -/* 127 */ -EXTERN void Tk_MoveResizeWindow(Tk_Window tkwin, int x, int y, - int width, int height); -/* 128 */ -EXTERN void Tk_MoveWindow(Tk_Window tkwin, int x, int y); -/* 129 */ -EXTERN void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y); -/* 130 */ -EXTERN CONST84_RETURN char * Tk_NameOf3DBorder(Tk_3DBorder border); -/* 131 */ -EXTERN CONST84_RETURN char * Tk_NameOfAnchor(Tk_Anchor anchor); -/* 132 */ -EXTERN CONST84_RETURN char * Tk_NameOfBitmap(Display *display, Pixmap bitmap); -/* 133 */ -EXTERN CONST84_RETURN char * Tk_NameOfCapStyle(int cap); -/* 134 */ -EXTERN CONST84_RETURN char * Tk_NameOfColor(XColor *colorPtr); -/* 135 */ -EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display, - Tk_Cursor cursor); -/* 136 */ -EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font); -/* 137 */ -EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster); -/* 138 */ -EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join); -/* 139 */ -EXTERN CONST84_RETURN char * Tk_NameOfJustify(Tk_Justify justify); -/* 140 */ -EXTERN CONST84_RETURN char * Tk_NameOfRelief(int relief); -/* 141 */ -EXTERN Tk_Window Tk_NameToWindow(Tcl_Interp *interp, - const char *pathName, Tk_Window tkwin); -/* 142 */ -EXTERN void Tk_OwnSelection(Tk_Window tkwin, Atom selection, - Tk_LostSelProc *proc, ClientData clientData); -/* 143 */ -EXTERN int Tk_ParseArgv(Tcl_Interp *interp, Tk_Window tkwin, - int *argcPtr, CONST84 char **argv, - const Tk_ArgvInfo *argTable, int flags); -/* 144 */ -EXTERN void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height); -/* 145 */ -EXTERN void Tk_PhotoPutZoomedBlock_NoComposite( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY); -/* 146 */ -EXTERN int Tk_PhotoGetImage(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr); -/* 147 */ -EXTERN void Tk_PhotoBlank(Tk_PhotoHandle handle); -/* 148 */ -EXTERN void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, - int width, int height); -/* 149 */ -EXTERN void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, - int *heightPtr); -/* 150 */ -EXTERN void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, - int width, int height); -/* 151 */ -EXTERN int Tk_PointToChar(Tk_TextLayout layout, int x, int y); -/* 152 */ -EXTERN int Tk_PostscriptFontName(Tk_Font tkfont, - Tcl_DString *dsPtr); -/* 153 */ -EXTERN void Tk_PreserveColormap(Display *display, - Colormap colormap); -/* 154 */ -EXTERN void Tk_QueueWindowEvent(XEvent *eventPtr, - Tcl_QueuePosition position); -/* 155 */ -EXTERN void Tk_RedrawImage(Tk_Image image, int imageX, - int imageY, int width, int height, - Drawable drawable, int drawableX, - int drawableY); -/* 156 */ -EXTERN void Tk_ResizeWindow(Tk_Window tkwin, int width, - int height); -/* 157 */ -EXTERN int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, - Tk_Window other); -/* 158 */ -EXTERN Tk_RestrictProc * Tk_RestrictEvents(Tk_RestrictProc *proc, - ClientData arg, ClientData *prevArgPtr); -/* 159 */ -EXTERN int Tk_SafeInit(Tcl_Interp *interp); -/* 160 */ -EXTERN const char * Tk_SetAppName(Tk_Window tkwin, const char *name); -/* 161 */ -EXTERN void Tk_SetBackgroundFromBorder(Tk_Window tkwin, - Tk_3DBorder border); -/* 162 */ -EXTERN void Tk_SetClass(Tk_Window tkwin, const char *className); -/* 163 */ -EXTERN void Tk_SetGrid(Tk_Window tkwin, int reqWidth, - int reqHeight, int gridWidth, int gridHeight); -/* 164 */ -EXTERN void Tk_SetInternalBorder(Tk_Window tkwin, int width); -/* 165 */ -EXTERN void Tk_SetWindowBackground(Tk_Window tkwin, - unsigned long pixel); -/* 166 */ -EXTERN void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, - Pixmap pixmap); -/* 167 */ -EXTERN void Tk_SetWindowBorder(Tk_Window tkwin, - unsigned long pixel); -/* 168 */ -EXTERN void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width); -/* 169 */ -EXTERN void Tk_SetWindowBorderPixmap(Tk_Window tkwin, - Pixmap pixmap); -/* 170 */ -EXTERN void Tk_SetWindowColormap(Tk_Window tkwin, - Colormap colormap); -/* 171 */ -EXTERN int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, - int depth, Colormap colormap); -/* 172 */ -EXTERN void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, - int *widthPtr, int *heightPtr); -/* 173 */ -EXTERN void Tk_SizeOfImage(Tk_Image image, int *widthPtr, - int *heightPtr); -/* 174 */ -EXTERN int Tk_StrictMotif(Tk_Window tkwin); -/* 175 */ -EXTERN void Tk_TextLayoutToPostscript(Tcl_Interp *interp, - Tk_TextLayout layout); -/* 176 */ -EXTERN int Tk_TextWidth(Tk_Font font, const char *str, - int numBytes); -/* 177 */ -EXTERN void Tk_UndefineCursor(Tk_Window window); -/* 178 */ -EXTERN void Tk_UnderlineChars(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int x, int y, - int firstByte, int lastByte); -/* 179 */ -EXTERN void Tk_UnderlineTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline); -/* 180 */ -EXTERN void Tk_Ungrab(Tk_Window tkwin); -/* 181 */ -EXTERN void Tk_UnmaintainGeometry(Tk_Window slave, - Tk_Window master); -/* 182 */ -EXTERN void Tk_UnmapWindow(Tk_Window tkwin); -/* 183 */ -EXTERN void Tk_UnsetGrid(Tk_Window tkwin); -/* 184 */ -EXTERN void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, - int state); -/* 185 */ -EXTERN Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 186 */ -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 187 */ -EXTERN XColor * Tk_AllocColorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 188 */ -EXTERN Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 189 */ -EXTERN Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr); -/* 190 */ -EXTERN Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp, - const Tk_OptionSpec *templatePtr); -/* 191 */ -EXTERN void Tk_DeleteOptionTable(Tk_OptionTable optionTable); -/* 192 */ -EXTERN void Tk_Free3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 193 */ -EXTERN void Tk_FreeBitmapFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 194 */ -EXTERN void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 195 */ -EXTERN void Tk_FreeConfigOptions(char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -/* 196 */ -EXTERN void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr); -/* 197 */ -EXTERN void Tk_FreeCursorFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 198 */ -EXTERN void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 199 */ -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, - Tcl_Obj *objPtr); -/* 200 */ -EXTERN int Tk_GetAnchorFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); -/* 201 */ -EXTERN Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 202 */ -EXTERN XColor * Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 203 */ -EXTERN Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); -/* 204 */ -EXTERN Tcl_Obj * Tk_GetOptionInfo(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, Tcl_Obj *namePtr, - Tk_Window tkwin); -/* 205 */ -EXTERN Tcl_Obj * Tk_GetOptionValue(Tcl_Interp *interp, - char *recordPtr, Tk_OptionTable optionTable, - Tcl_Obj *namePtr, Tk_Window tkwin); -/* 206 */ -EXTERN int Tk_GetJustifyFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, Tk_Justify *justifyPtr); -/* 207 */ -EXTERN int Tk_GetMMFromObj(Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj *objPtr, double *doublePtr); -/* 208 */ -EXTERN int Tk_GetPixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *intPtr); -/* 209 */ -EXTERN int Tk_GetReliefFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int *resultPtr); -/* 210 */ -EXTERN int Tk_GetScrollInfoObj(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], double *dblPtr, - int *intPtr); -/* 211 */ -EXTERN int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -/* 212 */ -EXTERN void Tk_MainEx(int argc, char **argv, - Tcl_AppInitProc *appInitProc, - Tcl_Interp *interp); -/* 213 */ -EXTERN void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr); -/* 214 */ -EXTERN int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr, - Tk_OptionTable optionTable, int objc, - Tcl_Obj *const objv[], Tk_Window tkwin, - Tk_SavedOptions *savePtr, int *maskPtr); -/* 215 */ -EXTERN void Tk_InitConsoleChannels(Tcl_Interp *interp); -/* 216 */ -EXTERN int Tk_CreateConsoleWindow(Tcl_Interp *interp); -/* 217 */ -EXTERN void Tk_CreateSmoothMethod(Tcl_Interp *interp, - const Tk_SmoothMethod *method); -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -/* 220 */ -EXTERN int Tk_GetDash(Tcl_Interp *interp, const char *value, - Tk_Dash *dash); -/* 221 */ -EXTERN void Tk_CreateOutline(Tk_Outline *outline); -/* 222 */ -EXTERN void Tk_DeleteOutline(Display *display, - Tk_Outline *outline); -/* 223 */ -EXTERN int Tk_ConfigOutlineGC(XGCValues *gcValues, - Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 224 */ -EXTERN int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 225 */ -EXTERN int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 226 */ -EXTERN int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item, - Tk_Outline *outline); -/* 227 */ -EXTERN void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y); -/* 228 */ -EXTERN int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -/* 229 */ -EXTERN void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, - Tk_TSOffset *offset); -/* 230 */ -EXTERN void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, - int width, int height); -/* 231 */ -EXTERN int Tk_PostscriptBitmap(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap, int startX, int startY, - int width, int height); -/* 232 */ -EXTERN int Tk_PostscriptColor(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, XColor *colorPtr); -/* 233 */ -EXTERN int Tk_PostscriptFont(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, Tk_Font font); -/* 234 */ -EXTERN int Tk_PostscriptImage(Tk_Image image, - Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psinfo, int x, int y, - int width, int height, int prepass); -/* 235 */ -EXTERN void Tk_PostscriptPath(Tcl_Interp *interp, - Tk_PostscriptInfo psInfo, double *coordPtr, - int numPoints); -/* 236 */ -EXTERN int Tk_PostscriptStipple(Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap); -/* 237 */ -EXTERN double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo); -/* 238 */ -EXTERN int Tk_PostscriptPhoto(Tcl_Interp *interp, - Tk_PhotoImageBlock *blockPtr, - Tk_PostscriptInfo psInfo, int width, - int height); -/* 239 */ -EXTERN void Tk_CreateClientMessageHandler( - Tk_ClientMessageProc *proc); -/* 240 */ -EXTERN void Tk_DeleteClientMessageHandler( - Tk_ClientMessageProc *proc); -/* 241 */ -EXTERN Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp, - Tk_Window parent, const char *screenName); -/* 242 */ -EXTERN void Tk_SetClassProcs(Tk_Window tkwin, - const Tk_ClassProcs *procs, - ClientData instanceData); -/* 243 */ -EXTERN void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, - int right, int top, int bottom); -/* 244 */ -EXTERN void Tk_SetMinimumRequestSize(Tk_Window tkwin, - int minWidth, int minHeight); -/* 245 */ -EXTERN void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, - int height); -/* 246 */ -EXTERN void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -/* 247 */ -EXTERN void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -/* 248 */ -EXTERN int Tk_CollapseMotionEvents(Display *display, - int collapse); -/* 249 */ -EXTERN Tk_StyleEngine Tk_RegisterStyleEngine(const char *name, - Tk_StyleEngine parent); -/* 250 */ -EXTERN Tk_StyleEngine Tk_GetStyleEngine(const char *name); -/* 251 */ -EXTERN int Tk_RegisterStyledElement(Tk_StyleEngine engine, - Tk_ElementSpec *templatePtr); -/* 252 */ -EXTERN int Tk_GetElementId(const char *name); -/* 253 */ -EXTERN Tk_Style Tk_CreateStyle(const char *name, - Tk_StyleEngine engine, ClientData clientData); -/* 254 */ -EXTERN Tk_Style Tk_GetStyle(Tcl_Interp *interp, const char *name); -/* 255 */ -EXTERN void Tk_FreeStyle(Tk_Style style); -/* 256 */ -EXTERN const char * Tk_NameOfStyle(Tk_Style style); -/* 257 */ -EXTERN Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); -/* 258 */ -EXTERN Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr); -/* 259 */ -EXTERN void Tk_FreeStyleFromObj(Tcl_Obj *objPtr); -/* 260 */ -EXTERN Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId, - Tk_OptionTable optionTable); -/* 261 */ -EXTERN void Tk_GetElementSize(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int width, int height, - int inner, int *widthPtr, int *heightPtr); -/* 262 */ -EXTERN void Tk_GetElementBox(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, int x, int y, int width, - int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr); -/* 263 */ -EXTERN int Tk_GetElementBorderWidth(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin); -/* 264 */ -EXTERN void Tk_DrawElement(Tk_Style style, - Tk_StyledElement element, char *recordPtr, - Tk_Window tkwin, Drawable d, int x, int y, - int width, int height, int state); -/* 265 */ -EXTERN int Tk_PhotoExpand(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -/* 266 */ -EXTERN int Tk_PhotoPutBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule); -/* 267 */ -EXTERN int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -/* 268 */ -EXTERN int Tk_PhotoSetSize(Tcl_Interp *interp, - Tk_PhotoHandle handle, int width, int height); -/* 269 */ -EXTERN long Tk_GetUserInactiveTime(Display *dpy); -/* 270 */ -EXTERN void Tk_ResetUserInactiveTime(Display *dpy); -/* 271 */ -EXTERN Tcl_Interp * Tk_Interp(Tk_Window tkwin); -/* 272 */ -EXTERN void Tk_CreateOldImageType(const Tk_ImageType *typePtr); -/* 273 */ -EXTERN void Tk_CreateOldPhotoImageFormat( - const Tk_PhotoImageFormat *formatPtr); - -typedef struct { - const struct TkPlatStubs *tkPlatStubs; - const struct TkIntStubs *tkIntStubs; - const struct TkIntPlatStubs *tkIntPlatStubs; - const struct TkIntXlibStubs *tkIntXlibStubs; -} TkStubHooks; - -typedef struct TkStubs { - int magic; - const TkStubHooks *hooks; - - void (*tk_MainLoop) (void); /* 0 */ - XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ - GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ - void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ - void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ - void (*tk_AddOption) (Tk_Window tkwin, const char *name, const char *value, int priority); /* 5 */ - void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr); /* 6 */ - void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr); /* 7 */ - void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ - int (*tk_CanvasGetCoord) (Tcl_Interp *interp, Tk_Canvas canvas, const char *str, double *doublePtr); /* 9 */ - Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ - int (*tk_CanvasPsBitmap) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ - int (*tk_CanvasPsColor) (Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr); /* 12 */ - int (*tk_CanvasPsFont) (Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ - void (*tk_CanvasPsPath) (Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints); /* 14 */ - int (*tk_CanvasPsStipple) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ - double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ - void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ - int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 18 */ - CONST86 char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 19 */ - Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ - void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr); /* 21 */ - void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr); /* 22 */ - int (*tk_CharBbox) (Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 23 */ - void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ - int (*tk_ClipboardAppend) (Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, const char *buffer); /* 25 */ - int (*tk_ClipboardClear) (Tcl_Interp *interp, Tk_Window tkwin); /* 26 */ - int (*tk_ConfigureInfo) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, char *widgRec, const char *argvName, int flags); /* 27 */ - int (*tk_ConfigureValue) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, char *widgRec, const char *argvName, int flags); /* 28 */ - int (*tk_ConfigureWidget) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags); /* 29 */ - void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr); /* 30 */ - Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, const char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr); /* 31 */ - Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ - unsigned long (*tk_CreateBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr, const char *script, int append); /* 33 */ - Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp *interp); /* 34 */ - Tk_ErrorHandler (*tk_CreateErrorHandler) (Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData); /* 35 */ - void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 36 */ - void (*tk_CreateGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 37 */ - void (*tk_CreateImageType) (const Tk_ImageType *typePtr); /* 38 */ - void (*tk_CreateItemType) (Tk_ItemType *typePtr); /* 39 */ - void (*tk_CreatePhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 40 */ - void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format); /* 41 */ - Tk_Window (*tk_CreateWindow) (Tcl_Interp *interp, Tk_Window parent, const char *name, const char *screenName); /* 42 */ - Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp *interp, Tk_Window tkwin, const char *pathName, const char *screenName); /* 43 */ - int (*tk_DefineBitmap) (Tcl_Interp *interp, const char *name, const void *source, int width, int height); /* 44 */ - void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ - void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ - int (*tk_DeleteBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr); /* 47 */ - void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ - void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ - void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 50 */ - void (*tk_DeleteGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 51 */ - void (*tk_DeleteImage) (Tcl_Interp *interp, const char *name); /* 52 */ - void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ - void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ - CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ - int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ - void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ - void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ - void (*tk_DrawChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int numBytes, int x, int y); /* 59 */ - void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ - void (*tk_DrawTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ - void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ - void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ - Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp *interp, const char *imageName); /* 64 */ - Font (*tk_FontId) (Tk_Font font); /* 65 */ - void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ - void (*tk_FreeBitmap) (Display *display, Pixmap bitmap); /* 67 */ - void (*tk_FreeColor) (XColor *colorPtr); /* 68 */ - void (*tk_FreeColormap) (Display *display, Colormap colormap); /* 69 */ - void (*tk_FreeCursor) (Display *display, Tk_Cursor cursor); /* 70 */ - void (*tk_FreeFont) (Tk_Font f); /* 71 */ - void (*tk_FreeGC) (Display *display, GC gc); /* 72 */ - void (*tk_FreeImage) (Tk_Image image); /* 73 */ - void (*tk_FreeOptions) (const Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags); /* 74 */ - void (*tk_FreePixmap) (Display *display, Pixmap pixmap); /* 75 */ - void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ - void (*tk_FreeXId) (Display *display, XID xid); /* 77 */ - GC (*tk_GCForColor) (XColor *colorPtr, Drawable drawable); /* 78 */ - void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ - Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ - void (*tk_GetAllBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ - int (*tk_GetAnchor) (Tcl_Interp *interp, const char *str, Tk_Anchor *anchorPtr); /* 82 */ - CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ - CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr); /* 84 */ - Pixmap (*tk_GetBitmap) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 85 */ - Pixmap (*tk_GetBitmapFromData) (Tcl_Interp *interp, Tk_Window tkwin, const void *source, int width, int height); /* 86 */ - int (*tk_GetCapStyle) (Tcl_Interp *interp, const char *str, int *capPtr); /* 87 */ - XColor * (*tk_GetColor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ - XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor *colorPtr); /* 89 */ - Colormap (*tk_GetColormap) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 90 */ - Tk_Cursor (*tk_GetCursor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ - Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp *interp, Tk_Window tkwin, const char *source, const char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ - Tk_Font (*tk_GetFont) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 93 */ - Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 94 */ - void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics *fmPtr); /* 95 */ - GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr); /* 96 */ - Tk_Image (*tk_GetImage) (Tcl_Interp *interp, Tk_Window tkwin, const char *name, Tk_ImageChangedProc *changeProc, ClientData clientData); /* 97 */ - ClientData (*tk_GetImageMasterData) (Tcl_Interp *interp, const char *name, CONST86 Tk_ImageType **typePtrPtr); /* 98 */ - Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ - int (*tk_GetJoinStyle) (Tcl_Interp *interp, const char *str, int *joinPtr); /* 100 */ - int (*tk_GetJustify) (Tcl_Interp *interp, const char *str, Tk_Justify *justifyPtr); /* 101 */ - int (*tk_GetNumMainWindows) (void); /* 102 */ - Tk_Uid (*tk_GetOption) (Tk_Window tkwin, const char *name, const char *className); /* 103 */ - int (*tk_GetPixels) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, int *intPtr); /* 104 */ - Pixmap (*tk_GetPixmap) (Display *display, Drawable d, int width, int height, int depth); /* 105 */ - int (*tk_GetRelief) (Tcl_Interp *interp, const char *name, int *reliefPtr); /* 106 */ - void (*tk_GetRootCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 107 */ - int (*tk_GetScrollInfo) (Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr); /* 108 */ - int (*tk_GetScreenMM) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, double *doublePtr); /* 109 */ - int (*tk_GetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 110 */ - Tk_Uid (*tk_GetUid) (const char *str); /* 111 */ - Visual * (*tk_GetVisual) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, int *depthPtr, Colormap *colormapPtr); /* 112 */ - void (*tk_GetVRootGeometry) (Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 113 */ - int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */ - void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */ - Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */ - void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ - int (*tk_Init) (Tcl_Interp *interp); /* 118 */ - Atom (*tk_InternAtom) (Tk_Window tkwin, const char *name); /* 119 */ - int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ - void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ - Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */ - void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ - void (*tk_ManageGeometry) (Tk_Window tkwin, const Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */ - void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ - int (*tk_MeasureChars) (Tk_Font tkfont, const char *source, int numBytes, int maxPixels, int flags, int *lengthPtr); /* 126 */ - void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ - void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ - void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ - CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ - CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ - CONST84_RETURN char * (*tk_NameOfBitmap) (Display *display, Pixmap bitmap); /* 132 */ - CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ - CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */ - CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */ - CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ - CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ - CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ - CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ - CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ - Tk_Window (*tk_NameToWindow) (Tcl_Interp *interp, const char *pathName, Tk_Window tkwin); /* 141 */ - void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData); /* 142 */ - int (*tk_ParseArgv) (Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, const Tk_ArgvInfo *argTable, int flags); /* 143 */ - void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height); /* 144 */ - void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ - int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr); /* 146 */ - void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ - void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ - void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr); /* 149 */ - void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ - int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ - int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString *dsPtr); /* 152 */ - void (*tk_PreserveColormap) (Display *display, Colormap colormap); /* 153 */ - void (*tk_QueueWindowEvent) (XEvent *eventPtr, Tcl_QueuePosition position); /* 154 */ - void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ - void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ - int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ - Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr); /* 158 */ - int (*tk_SafeInit) (Tcl_Interp *interp); /* 159 */ - const char * (*tk_SetAppName) (Tk_Window tkwin, const char *name); /* 160 */ - void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ - void (*tk_SetClass) (Tk_Window tkwin, const char *className); /* 162 */ - void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ - void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ - void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ - void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ - void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ - void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ - void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ - void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ - int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual *visual, int depth, Colormap colormap); /* 171 */ - void (*tk_SizeOfBitmap) (Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr); /* 172 */ - void (*tk_SizeOfImage) (Tk_Image image, int *widthPtr, int *heightPtr); /* 173 */ - int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ - void (*tk_TextLayoutToPostscript) (Tcl_Interp *interp, Tk_TextLayout layout); /* 175 */ - int (*tk_TextWidth) (Tk_Font font, const char *str, int numBytes); /* 176 */ - void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ - void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int x, int y, int firstByte, int lastByte); /* 178 */ - void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ - void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ - void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ - void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ - void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ - void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ - Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 185 */ - Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 186 */ - XColor * (*tk_AllocColorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 187 */ - Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 188 */ - Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 189 */ - Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp *interp, const Tk_OptionSpec *templatePtr); /* 190 */ - void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ - void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 192 */ - void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 193 */ - void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 194 */ - void (*tk_FreeConfigOptions) (char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ - void (*tk_FreeSavedOptions) (Tk_SavedOptions *savePtr); /* 196 */ - void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 197 */ - void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 198 */ - Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 199 */ - int (*tk_GetAnchorFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); /* 200 */ - Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 201 */ - XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 202 */ - Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 203 */ - Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 204 */ - Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 205 */ - int (*tk_GetJustifyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr); /* 206 */ - int (*tk_GetMMFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr); /* 207 */ - int (*tk_GetPixelsFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr); /* 208 */ - int (*tk_GetReliefFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr); /* 209 */ - int (*tk_GetScrollInfoObj) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], double *dblPtr, int *intPtr); /* 210 */ - int (*tk_InitOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ - void (*tk_MainEx) (int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); /* 212 */ - void (*tk_RestoreSavedOptions) (Tk_SavedOptions *savePtr); /* 213 */ - int (*tk_SetOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *const objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr); /* 214 */ - void (*tk_InitConsoleChannels) (Tcl_Interp *interp); /* 215 */ - int (*tk_CreateConsoleWindow) (Tcl_Interp *interp); /* 216 */ - void (*tk_CreateSmoothMethod) (Tcl_Interp *interp, const Tk_SmoothMethod *method); /* 217 */ - void (*reserved218)(void); - void (*reserved219)(void); - int (*tk_GetDash) (Tcl_Interp *interp, const char *value, Tk_Dash *dash); /* 220 */ - void (*tk_CreateOutline) (Tk_Outline *outline); /* 221 */ - void (*tk_DeleteOutline) (Display *display, Tk_Outline *outline); /* 222 */ - int (*tk_ConfigOutlineGC) (XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 223 */ - int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 224 */ - int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 225 */ - int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 226 */ - void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ - int (*tk_CanvasGetCoordFromObj) (Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr); /* 228 */ - void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset *offset); /* 229 */ - void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ - int (*tk_PostscriptBitmap) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ - int (*tk_PostscriptColor) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr); /* 232 */ - int (*tk_PostscriptFont) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ - int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ - void (*tk_PostscriptPath) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints); /* 235 */ - int (*tk_PostscriptStipple) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ - double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ - int (*tk_PostscriptPhoto) (Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ - void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc *proc); /* 239 */ - void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc *proc); /* 240 */ - Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp *interp, Tk_Window parent, const char *screenName); /* 241 */ - void (*tk_SetClassProcs) (Tk_Window tkwin, const Tk_ClassProcs *procs, ClientData instanceData); /* 242 */ - void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ - void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ - void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ - void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ - void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ - int (*tk_CollapseMotionEvents) (Display *display, int collapse); /* 248 */ - Tk_StyleEngine (*tk_RegisterStyleEngine) (const char *name, Tk_StyleEngine parent); /* 249 */ - Tk_StyleEngine (*tk_GetStyleEngine) (const char *name); /* 250 */ - int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec *templatePtr); /* 251 */ - int (*tk_GetElementId) (const char *name); /* 252 */ - Tk_Style (*tk_CreateStyle) (const char *name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ - Tk_Style (*tk_GetStyle) (Tcl_Interp *interp, const char *name); /* 254 */ - void (*tk_FreeStyle) (Tk_Style style); /* 255 */ - const char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ - Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 257 */ - Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj *objPtr); /* 258 */ - void (*tk_FreeStyleFromObj) (Tcl_Obj *objPtr); /* 259 */ - Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ - void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr); /* 261 */ - void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 262 */ - int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin); /* 263 */ - void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ - int (*tk_PhotoExpand) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ - int (*tk_PhotoPutBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ - int (*tk_PhotoPutZoomedBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ - int (*tk_PhotoSetSize) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ - long (*tk_GetUserInactiveTime) (Display *dpy); /* 269 */ - void (*tk_ResetUserInactiveTime) (Display *dpy); /* 270 */ - Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ - void (*tk_CreateOldImageType) (const Tk_ImageType *typePtr); /* 272 */ - void (*tk_CreateOldPhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 273 */ -} TkStubs; - -extern const TkStubs *tkStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#define Tk_MainLoop \ - (tkStubsPtr->tk_MainLoop) /* 0 */ -#define Tk_3DBorderColor \ - (tkStubsPtr->tk_3DBorderColor) /* 1 */ -#define Tk_3DBorderGC \ - (tkStubsPtr->tk_3DBorderGC) /* 2 */ -#define Tk_3DHorizontalBevel \ - (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ -#define Tk_3DVerticalBevel \ - (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ -#define Tk_AddOption \ - (tkStubsPtr->tk_AddOption) /* 5 */ -#define Tk_BindEvent \ - (tkStubsPtr->tk_BindEvent) /* 6 */ -#define Tk_CanvasDrawableCoords \ - (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ -#define Tk_CanvasEventuallyRedraw \ - (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ -#define Tk_CanvasGetCoord \ - (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ -#define Tk_CanvasGetTextInfo \ - (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ -#define Tk_CanvasPsBitmap \ - (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ -#define Tk_CanvasPsColor \ - (tkStubsPtr->tk_CanvasPsColor) /* 12 */ -#define Tk_CanvasPsFont \ - (tkStubsPtr->tk_CanvasPsFont) /* 13 */ -#define Tk_CanvasPsPath \ - (tkStubsPtr->tk_CanvasPsPath) /* 14 */ -#define Tk_CanvasPsStipple \ - (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ -#define Tk_CanvasPsY \ - (tkStubsPtr->tk_CanvasPsY) /* 16 */ -#define Tk_CanvasSetStippleOrigin \ - (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ -#define Tk_CanvasTagsParseProc \ - (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ -#define Tk_CanvasTagsPrintProc \ - (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ -#define Tk_CanvasTkwin \ - (tkStubsPtr->tk_CanvasTkwin) /* 20 */ -#define Tk_CanvasWindowCoords \ - (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ -#define Tk_ChangeWindowAttributes \ - (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ -#define Tk_CharBbox \ - (tkStubsPtr->tk_CharBbox) /* 23 */ -#define Tk_ClearSelection \ - (tkStubsPtr->tk_ClearSelection) /* 24 */ -#define Tk_ClipboardAppend \ - (tkStubsPtr->tk_ClipboardAppend) /* 25 */ -#define Tk_ClipboardClear \ - (tkStubsPtr->tk_ClipboardClear) /* 26 */ -#define Tk_ConfigureInfo \ - (tkStubsPtr->tk_ConfigureInfo) /* 27 */ -#define Tk_ConfigureValue \ - (tkStubsPtr->tk_ConfigureValue) /* 28 */ -#define Tk_ConfigureWidget \ - (tkStubsPtr->tk_ConfigureWidget) /* 29 */ -#define Tk_ConfigureWindow \ - (tkStubsPtr->tk_ConfigureWindow) /* 30 */ -#define Tk_ComputeTextLayout \ - (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ -#define Tk_CoordsToWindow \ - (tkStubsPtr->tk_CoordsToWindow) /* 32 */ -#define Tk_CreateBinding \ - (tkStubsPtr->tk_CreateBinding) /* 33 */ -#define Tk_CreateBindingTable \ - (tkStubsPtr->tk_CreateBindingTable) /* 34 */ -#define Tk_CreateErrorHandler \ - (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ -#define Tk_CreateEventHandler \ - (tkStubsPtr->tk_CreateEventHandler) /* 36 */ -#define Tk_CreateGenericHandler \ - (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ -#define Tk_CreateImageType \ - (tkStubsPtr->tk_CreateImageType) /* 38 */ -#define Tk_CreateItemType \ - (tkStubsPtr->tk_CreateItemType) /* 39 */ -#define Tk_CreatePhotoImageFormat \ - (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ -#define Tk_CreateSelHandler \ - (tkStubsPtr->tk_CreateSelHandler) /* 41 */ -#define Tk_CreateWindow \ - (tkStubsPtr->tk_CreateWindow) /* 42 */ -#define Tk_CreateWindowFromPath \ - (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ -#define Tk_DefineBitmap \ - (tkStubsPtr->tk_DefineBitmap) /* 44 */ -#define Tk_DefineCursor \ - (tkStubsPtr->tk_DefineCursor) /* 45 */ -#define Tk_DeleteAllBindings \ - (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ -#define Tk_DeleteBinding \ - (tkStubsPtr->tk_DeleteBinding) /* 47 */ -#define Tk_DeleteBindingTable \ - (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ -#define Tk_DeleteErrorHandler \ - (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ -#define Tk_DeleteEventHandler \ - (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ -#define Tk_DeleteGenericHandler \ - (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ -#define Tk_DeleteImage \ - (tkStubsPtr->tk_DeleteImage) /* 52 */ -#define Tk_DeleteSelHandler \ - (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ -#define Tk_DestroyWindow \ - (tkStubsPtr->tk_DestroyWindow) /* 54 */ -#define Tk_DisplayName \ - (tkStubsPtr->tk_DisplayName) /* 55 */ -#define Tk_DistanceToTextLayout \ - (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ -#define Tk_Draw3DPolygon \ - (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ -#define Tk_Draw3DRectangle \ - (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ -#define Tk_DrawChars \ - (tkStubsPtr->tk_DrawChars) /* 59 */ -#define Tk_DrawFocusHighlight \ - (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ -#define Tk_DrawTextLayout \ - (tkStubsPtr->tk_DrawTextLayout) /* 61 */ -#define Tk_Fill3DPolygon \ - (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ -#define Tk_Fill3DRectangle \ - (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ -#define Tk_FindPhoto \ - (tkStubsPtr->tk_FindPhoto) /* 64 */ -#define Tk_FontId \ - (tkStubsPtr->tk_FontId) /* 65 */ -#define Tk_Free3DBorder \ - (tkStubsPtr->tk_Free3DBorder) /* 66 */ -#define Tk_FreeBitmap \ - (tkStubsPtr->tk_FreeBitmap) /* 67 */ -#define Tk_FreeColor \ - (tkStubsPtr->tk_FreeColor) /* 68 */ -#define Tk_FreeColormap \ - (tkStubsPtr->tk_FreeColormap) /* 69 */ -#define Tk_FreeCursor \ - (tkStubsPtr->tk_FreeCursor) /* 70 */ -#define Tk_FreeFont \ - (tkStubsPtr->tk_FreeFont) /* 71 */ -#define Tk_FreeGC \ - (tkStubsPtr->tk_FreeGC) /* 72 */ -#define Tk_FreeImage \ - (tkStubsPtr->tk_FreeImage) /* 73 */ -#define Tk_FreeOptions \ - (tkStubsPtr->tk_FreeOptions) /* 74 */ -#define Tk_FreePixmap \ - (tkStubsPtr->tk_FreePixmap) /* 75 */ -#define Tk_FreeTextLayout \ - (tkStubsPtr->tk_FreeTextLayout) /* 76 */ -#define Tk_FreeXId \ - (tkStubsPtr->tk_FreeXId) /* 77 */ -#define Tk_GCForColor \ - (tkStubsPtr->tk_GCForColor) /* 78 */ -#define Tk_GeometryRequest \ - (tkStubsPtr->tk_GeometryRequest) /* 79 */ -#define Tk_Get3DBorder \ - (tkStubsPtr->tk_Get3DBorder) /* 80 */ -#define Tk_GetAllBindings \ - (tkStubsPtr->tk_GetAllBindings) /* 81 */ -#define Tk_GetAnchor \ - (tkStubsPtr->tk_GetAnchor) /* 82 */ -#define Tk_GetAtomName \ - (tkStubsPtr->tk_GetAtomName) /* 83 */ -#define Tk_GetBinding \ - (tkStubsPtr->tk_GetBinding) /* 84 */ -#define Tk_GetBitmap \ - (tkStubsPtr->tk_GetBitmap) /* 85 */ -#define Tk_GetBitmapFromData \ - (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ -#define Tk_GetCapStyle \ - (tkStubsPtr->tk_GetCapStyle) /* 87 */ -#define Tk_GetColor \ - (tkStubsPtr->tk_GetColor) /* 88 */ -#define Tk_GetColorByValue \ - (tkStubsPtr->tk_GetColorByValue) /* 89 */ -#define Tk_GetColormap \ - (tkStubsPtr->tk_GetColormap) /* 90 */ -#define Tk_GetCursor \ - (tkStubsPtr->tk_GetCursor) /* 91 */ -#define Tk_GetCursorFromData \ - (tkStubsPtr->tk_GetCursorFromData) /* 92 */ -#define Tk_GetFont \ - (tkStubsPtr->tk_GetFont) /* 93 */ -#define Tk_GetFontFromObj \ - (tkStubsPtr->tk_GetFontFromObj) /* 94 */ -#define Tk_GetFontMetrics \ - (tkStubsPtr->tk_GetFontMetrics) /* 95 */ -#define Tk_GetGC \ - (tkStubsPtr->tk_GetGC) /* 96 */ -#define Tk_GetImage \ - (tkStubsPtr->tk_GetImage) /* 97 */ -#define Tk_GetImageMasterData \ - (tkStubsPtr->tk_GetImageMasterData) /* 98 */ -#define Tk_GetItemTypes \ - (tkStubsPtr->tk_GetItemTypes) /* 99 */ -#define Tk_GetJoinStyle \ - (tkStubsPtr->tk_GetJoinStyle) /* 100 */ -#define Tk_GetJustify \ - (tkStubsPtr->tk_GetJustify) /* 101 */ -#define Tk_GetNumMainWindows \ - (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ -#define Tk_GetOption \ - (tkStubsPtr->tk_GetOption) /* 103 */ -#define Tk_GetPixels \ - (tkStubsPtr->tk_GetPixels) /* 104 */ -#define Tk_GetPixmap \ - (tkStubsPtr->tk_GetPixmap) /* 105 */ -#define Tk_GetRelief \ - (tkStubsPtr->tk_GetRelief) /* 106 */ -#define Tk_GetRootCoords \ - (tkStubsPtr->tk_GetRootCoords) /* 107 */ -#define Tk_GetScrollInfo \ - (tkStubsPtr->tk_GetScrollInfo) /* 108 */ -#define Tk_GetScreenMM \ - (tkStubsPtr->tk_GetScreenMM) /* 109 */ -#define Tk_GetSelection \ - (tkStubsPtr->tk_GetSelection) /* 110 */ -#define Tk_GetUid \ - (tkStubsPtr->tk_GetUid) /* 111 */ -#define Tk_GetVisual \ - (tkStubsPtr->tk_GetVisual) /* 112 */ -#define Tk_GetVRootGeometry \ - (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ -#define Tk_Grab \ - (tkStubsPtr->tk_Grab) /* 114 */ -#define Tk_HandleEvent \ - (tkStubsPtr->tk_HandleEvent) /* 115 */ -#define Tk_IdToWindow \ - (tkStubsPtr->tk_IdToWindow) /* 116 */ -#define Tk_ImageChanged \ - (tkStubsPtr->tk_ImageChanged) /* 117 */ -#define Tk_Init \ - (tkStubsPtr->tk_Init) /* 118 */ -#define Tk_InternAtom \ - (tkStubsPtr->tk_InternAtom) /* 119 */ -#define Tk_IntersectTextLayout \ - (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ -#define Tk_MaintainGeometry \ - (tkStubsPtr->tk_MaintainGeometry) /* 121 */ -#define Tk_MainWindow \ - (tkStubsPtr->tk_MainWindow) /* 122 */ -#define Tk_MakeWindowExist \ - (tkStubsPtr->tk_MakeWindowExist) /* 123 */ -#define Tk_ManageGeometry \ - (tkStubsPtr->tk_ManageGeometry) /* 124 */ -#define Tk_MapWindow \ - (tkStubsPtr->tk_MapWindow) /* 125 */ -#define Tk_MeasureChars \ - (tkStubsPtr->tk_MeasureChars) /* 126 */ -#define Tk_MoveResizeWindow \ - (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ -#define Tk_MoveWindow \ - (tkStubsPtr->tk_MoveWindow) /* 128 */ -#define Tk_MoveToplevelWindow \ - (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ -#define Tk_NameOf3DBorder \ - (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ -#define Tk_NameOfAnchor \ - (tkStubsPtr->tk_NameOfAnchor) /* 131 */ -#define Tk_NameOfBitmap \ - (tkStubsPtr->tk_NameOfBitmap) /* 132 */ -#define Tk_NameOfCapStyle \ - (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ -#define Tk_NameOfColor \ - (tkStubsPtr->tk_NameOfColor) /* 134 */ -#define Tk_NameOfCursor \ - (tkStubsPtr->tk_NameOfCursor) /* 135 */ -#define Tk_NameOfFont \ - (tkStubsPtr->tk_NameOfFont) /* 136 */ -#define Tk_NameOfImage \ - (tkStubsPtr->tk_NameOfImage) /* 137 */ -#define Tk_NameOfJoinStyle \ - (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ -#define Tk_NameOfJustify \ - (tkStubsPtr->tk_NameOfJustify) /* 139 */ -#define Tk_NameOfRelief \ - (tkStubsPtr->tk_NameOfRelief) /* 140 */ -#define Tk_NameToWindow \ - (tkStubsPtr->tk_NameToWindow) /* 141 */ -#define Tk_OwnSelection \ - (tkStubsPtr->tk_OwnSelection) /* 142 */ -#define Tk_ParseArgv \ - (tkStubsPtr->tk_ParseArgv) /* 143 */ -#define Tk_PhotoPutBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ -#define Tk_PhotoPutZoomedBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ -#define Tk_PhotoGetImage \ - (tkStubsPtr->tk_PhotoGetImage) /* 146 */ -#define Tk_PhotoBlank \ - (tkStubsPtr->tk_PhotoBlank) /* 147 */ -#define Tk_PhotoExpand_Panic \ - (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ -#define Tk_PhotoGetSize \ - (tkStubsPtr->tk_PhotoGetSize) /* 149 */ -#define Tk_PhotoSetSize_Panic \ - (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ -#define Tk_PointToChar \ - (tkStubsPtr->tk_PointToChar) /* 151 */ -#define Tk_PostscriptFontName \ - (tkStubsPtr->tk_PostscriptFontName) /* 152 */ -#define Tk_PreserveColormap \ - (tkStubsPtr->tk_PreserveColormap) /* 153 */ -#define Tk_QueueWindowEvent \ - (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ -#define Tk_RedrawImage \ - (tkStubsPtr->tk_RedrawImage) /* 155 */ -#define Tk_ResizeWindow \ - (tkStubsPtr->tk_ResizeWindow) /* 156 */ -#define Tk_RestackWindow \ - (tkStubsPtr->tk_RestackWindow) /* 157 */ -#define Tk_RestrictEvents \ - (tkStubsPtr->tk_RestrictEvents) /* 158 */ -#define Tk_SafeInit \ - (tkStubsPtr->tk_SafeInit) /* 159 */ -#define Tk_SetAppName \ - (tkStubsPtr->tk_SetAppName) /* 160 */ -#define Tk_SetBackgroundFromBorder \ - (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ -#define Tk_SetClass \ - (tkStubsPtr->tk_SetClass) /* 162 */ -#define Tk_SetGrid \ - (tkStubsPtr->tk_SetGrid) /* 163 */ -#define Tk_SetInternalBorder \ - (tkStubsPtr->tk_SetInternalBorder) /* 164 */ -#define Tk_SetWindowBackground \ - (tkStubsPtr->tk_SetWindowBackground) /* 165 */ -#define Tk_SetWindowBackgroundPixmap \ - (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ -#define Tk_SetWindowBorder \ - (tkStubsPtr->tk_SetWindowBorder) /* 167 */ -#define Tk_SetWindowBorderWidth \ - (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ -#define Tk_SetWindowBorderPixmap \ - (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ -#define Tk_SetWindowColormap \ - (tkStubsPtr->tk_SetWindowColormap) /* 170 */ -#define Tk_SetWindowVisual \ - (tkStubsPtr->tk_SetWindowVisual) /* 171 */ -#define Tk_SizeOfBitmap \ - (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ -#define Tk_SizeOfImage \ - (tkStubsPtr->tk_SizeOfImage) /* 173 */ -#define Tk_StrictMotif \ - (tkStubsPtr->tk_StrictMotif) /* 174 */ -#define Tk_TextLayoutToPostscript \ - (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ -#define Tk_TextWidth \ - (tkStubsPtr->tk_TextWidth) /* 176 */ -#define Tk_UndefineCursor \ - (tkStubsPtr->tk_UndefineCursor) /* 177 */ -#define Tk_UnderlineChars \ - (tkStubsPtr->tk_UnderlineChars) /* 178 */ -#define Tk_UnderlineTextLayout \ - (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ -#define Tk_Ungrab \ - (tkStubsPtr->tk_Ungrab) /* 180 */ -#define Tk_UnmaintainGeometry \ - (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ -#define Tk_UnmapWindow \ - (tkStubsPtr->tk_UnmapWindow) /* 182 */ -#define Tk_UnsetGrid \ - (tkStubsPtr->tk_UnsetGrid) /* 183 */ -#define Tk_UpdatePointer \ - (tkStubsPtr->tk_UpdatePointer) /* 184 */ -#define Tk_AllocBitmapFromObj \ - (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ -#define Tk_Alloc3DBorderFromObj \ - (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ -#define Tk_AllocColorFromObj \ - (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ -#define Tk_AllocCursorFromObj \ - (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ -#define Tk_AllocFontFromObj \ - (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ -#define Tk_CreateOptionTable \ - (tkStubsPtr->tk_CreateOptionTable) /* 190 */ -#define Tk_DeleteOptionTable \ - (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ -#define Tk_Free3DBorderFromObj \ - (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ -#define Tk_FreeBitmapFromObj \ - (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ -#define Tk_FreeColorFromObj \ - (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ -#define Tk_FreeConfigOptions \ - (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ -#define Tk_FreeSavedOptions \ - (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ -#define Tk_FreeCursorFromObj \ - (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ -#define Tk_FreeFontFromObj \ - (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ -#define Tk_Get3DBorderFromObj \ - (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ -#define Tk_GetAnchorFromObj \ - (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ -#define Tk_GetBitmapFromObj \ - (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ -#define Tk_GetColorFromObj \ - (tkStubsPtr->tk_GetColorFromObj) /* 202 */ -#define Tk_GetCursorFromObj \ - (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ -#define Tk_GetOptionInfo \ - (tkStubsPtr->tk_GetOptionInfo) /* 204 */ -#define Tk_GetOptionValue \ - (tkStubsPtr->tk_GetOptionValue) /* 205 */ -#define Tk_GetJustifyFromObj \ - (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ -#define Tk_GetMMFromObj \ - (tkStubsPtr->tk_GetMMFromObj) /* 207 */ -#define Tk_GetPixelsFromObj \ - (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ -#define Tk_GetReliefFromObj \ - (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ -#define Tk_GetScrollInfoObj \ - (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ -#define Tk_InitOptions \ - (tkStubsPtr->tk_InitOptions) /* 211 */ -#define Tk_MainEx \ - (tkStubsPtr->tk_MainEx) /* 212 */ -#define Tk_RestoreSavedOptions \ - (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ -#define Tk_SetOptions \ - (tkStubsPtr->tk_SetOptions) /* 214 */ -#define Tk_InitConsoleChannels \ - (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ -#define Tk_CreateConsoleWindow \ - (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ -#define Tk_CreateSmoothMethod \ - (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#define Tk_GetDash \ - (tkStubsPtr->tk_GetDash) /* 220 */ -#define Tk_CreateOutline \ - (tkStubsPtr->tk_CreateOutline) /* 221 */ -#define Tk_DeleteOutline \ - (tkStubsPtr->tk_DeleteOutline) /* 222 */ -#define Tk_ConfigOutlineGC \ - (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ -#define Tk_ChangeOutlineGC \ - (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ -#define Tk_ResetOutlineGC \ - (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ -#define Tk_CanvasPsOutline \ - (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ -#define Tk_SetTSOrigin \ - (tkStubsPtr->tk_SetTSOrigin) /* 227 */ -#define Tk_CanvasGetCoordFromObj \ - (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ -#define Tk_CanvasSetOffset \ - (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ -#define Tk_DitherPhoto \ - (tkStubsPtr->tk_DitherPhoto) /* 230 */ -#define Tk_PostscriptBitmap \ - (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ -#define Tk_PostscriptColor \ - (tkStubsPtr->tk_PostscriptColor) /* 232 */ -#define Tk_PostscriptFont \ - (tkStubsPtr->tk_PostscriptFont) /* 233 */ -#define Tk_PostscriptImage \ - (tkStubsPtr->tk_PostscriptImage) /* 234 */ -#define Tk_PostscriptPath \ - (tkStubsPtr->tk_PostscriptPath) /* 235 */ -#define Tk_PostscriptStipple \ - (tkStubsPtr->tk_PostscriptStipple) /* 236 */ -#define Tk_PostscriptY \ - (tkStubsPtr->tk_PostscriptY) /* 237 */ -#define Tk_PostscriptPhoto \ - (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ -#define Tk_CreateClientMessageHandler \ - (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ -#define Tk_DeleteClientMessageHandler \ - (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ -#define Tk_CreateAnonymousWindow \ - (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ -#define Tk_SetClassProcs \ - (tkStubsPtr->tk_SetClassProcs) /* 242 */ -#define Tk_SetInternalBorderEx \ - (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ -#define Tk_SetMinimumRequestSize \ - (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ -#define Tk_SetCaretPos \ - (tkStubsPtr->tk_SetCaretPos) /* 245 */ -#define Tk_PhotoPutBlock_Panic \ - (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ -#define Tk_PhotoPutZoomedBlock_Panic \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ -#define Tk_CollapseMotionEvents \ - (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ -#define Tk_RegisterStyleEngine \ - (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ -#define Tk_GetStyleEngine \ - (tkStubsPtr->tk_GetStyleEngine) /* 250 */ -#define Tk_RegisterStyledElement \ - (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ -#define Tk_GetElementId \ - (tkStubsPtr->tk_GetElementId) /* 252 */ -#define Tk_CreateStyle \ - (tkStubsPtr->tk_CreateStyle) /* 253 */ -#define Tk_GetStyle \ - (tkStubsPtr->tk_GetStyle) /* 254 */ -#define Tk_FreeStyle \ - (tkStubsPtr->tk_FreeStyle) /* 255 */ -#define Tk_NameOfStyle \ - (tkStubsPtr->tk_NameOfStyle) /* 256 */ -#define Tk_AllocStyleFromObj \ - (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ -#define Tk_GetStyleFromObj \ - (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ -#define Tk_FreeStyleFromObj \ - (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ -#define Tk_GetStyledElement \ - (tkStubsPtr->tk_GetStyledElement) /* 260 */ -#define Tk_GetElementSize \ - (tkStubsPtr->tk_GetElementSize) /* 261 */ -#define Tk_GetElementBox \ - (tkStubsPtr->tk_GetElementBox) /* 262 */ -#define Tk_GetElementBorderWidth \ - (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ -#define Tk_DrawElement \ - (tkStubsPtr->tk_DrawElement) /* 264 */ -#define Tk_PhotoExpand \ - (tkStubsPtr->tk_PhotoExpand) /* 265 */ -#define Tk_PhotoPutBlock \ - (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ -#define Tk_PhotoPutZoomedBlock \ - (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ -#define Tk_PhotoSetSize \ - (tkStubsPtr->tk_PhotoSetSize) /* 268 */ -#define Tk_GetUserInactiveTime \ - (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ -#define Tk_ResetUserInactiveTime \ - (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ -#define Tk_Interp \ - (tkStubsPtr->tk_Interp) /* 271 */ -#define Tk_CreateOldImageType \ - (tkStubsPtr->tk_CreateOldImageType) /* 272 */ -#define Tk_CreateOldPhotoImageFormat \ - (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -/* Functions that don't belong in the stub table */ -#undef Tk_MainEx -#undef Tk_Init -#undef Tk_SafeInit -#undef Tk_CreateConsoleWindow - -#if defined(_WIN32) && defined(UNICODE) -# define Tk_MainEx Tk_MainExW - EXTERN void Tk_MainExW(int argc, wchar_t **argv, - Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkFont.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkFont.h deleted file mode 100644 index de479bf88..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkFont.h +++ /dev/null @@ -1,224 +0,0 @@ -/* - * tkFont.h -- - * - * Declarations for interfaces between the generic and platform-specific - * parts of the font package. This information is not visible outside of - * the font package. - * - * Copyright (c) 1996-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKFONT -#define _TKFONT - -/* - * The following structure keeps track of the attributes of a font. It can be - * used to keep track of either the desired attributes or the actual - * attributes gotten when the font was instantiated. - */ - -struct TkFontAttributes { - Tk_Uid family; /* Font family, or NULL to represent plaform- - * specific default system font. */ - double size; /* Pointsize of font, 0.0 for default size, or - * negative number meaning pixel size. */ - int weight; /* Weight flag; see below for def'n. */ - int slant; /* Slant flag; see below for def'n. */ - int underline; /* Non-zero for underline font. */ - int overstrike; /* Non-zero for overstrike font. */ -}; - -/* - * Possible values for the "weight" field in a TkFontAttributes structure. - * Weight is a subjective term and depends on what the company that created - * the font considers bold. - */ - -#define TK_FW_NORMAL 0 -#define TK_FW_BOLD 1 - -#define TK_FW_UNKNOWN -1 /* Unknown weight. This value is used for - * error checking and is never actually stored - * in the weight field. */ - -/* - * Possible values for the "slant" field in a TkFontAttributes structure. - */ - -#define TK_FS_ROMAN 0 -#define TK_FS_ITALIC 1 -#define TK_FS_OBLIQUE 2 /* This value is only used when parsing X font - * names to determine the closest match. It is - * only stored in the XLFDAttributes - * structure, never in the slant field of the - * TkFontAttributes. */ - -#define TK_FS_UNKNOWN -1 /* Unknown slant. This value is used for error - * checking and is never actually stored in - * the slant field. */ - -/* - * The following structure keeps track of the metrics for an instantiated - * font. The metrics are the physical properties of the font itself. - */ - -typedef struct TkFontMetrics { - int ascent; /* From baseline to top of font. */ - int descent; /* From baseline to bottom of font. */ - int maxWidth; /* Width of widest character in font. */ - int fixed; /* Non-zero if this is a fixed-width font, - * 0 otherwise. */ -} TkFontMetrics; - -/* - * The following structure is used to keep track of the generic information - * about a font. Each platform-specific font is represented by a structure - * with the following structure at its beginning, plus any platform-specific - * stuff after that. - */ - -typedef struct TkFont { - /* - * Fields used and maintained exclusively by generic code. - */ - - int resourceRefCount; /* Number of active uses of this font (each - * active use corresponds to a call to - * Tk_AllocFontFromTable or Tk_GetFont). If - * this count is 0, then this TkFont structure - * is no longer valid and it isn't present in - * a hash table: it is being kept around only - * because there are objects referring to it. - * The structure is freed when - * resourceRefCount and objRefCount are both - * 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - Tcl_HashEntry *cacheHashPtr;/* Entry in font cache for this structure, - * used when deleting it. */ - Tcl_HashEntry *namedHashPtr;/* Pointer to hash table entry that - * corresponds to the named font that the - * tkfont was based on, or NULL if the tkfont - * was not based on a named font. */ - Screen *screen; /* The screen where this font is valid. */ - int tabWidth; /* Width of tabs in this font (pixels). */ - int underlinePos; /* Offset from baseline to origin of underline - * bar (used for drawing underlines on a - * non-underlined font). */ - int underlineHeight; /* Height of underline bar (used for drawing - * underlines on a non-underlined font). */ - - /* - * Fields used in the generic code that are filled in by - * platform-specific code. - */ - - Font fid; /* For backwards compatibility with XGCValues - * structures. Remove when TkGCValues is - * implemented. */ - TkFontAttributes fa; /* Actual font attributes obtained when the - * the font was created, as opposed to the - * desired attributes passed in to - * TkpGetFontFromAttributes(). The desired - * metrics can be determined from the string - * that was used to create this font. */ - TkFontMetrics fm; /* Font metrics determined when font was - * created. */ - struct TkFont *nextPtr; /* Points to the next TkFont structure with - * the same name. All fonts with the same name - * (but different displays) are chained - * together off a single entry in a hash - * table. */ -} TkFont; - -/* - * The following structure is used to return attributes when parsing an XLFD. - * The extra information is of interest to the Unix-specific code when - * attempting to find the closest matching font. - */ - -typedef struct TkXLFDAttributes { - Tk_Uid foundry; /* The foundry of the font. */ - int slant; /* The tristate value for the slant, which is - * significant under X. */ - int setwidth; /* The proportionate width, see below for - * definition. */ - Tk_Uid charset; /* The actual charset string. */ -} TkXLFDAttributes; - -/* - * Possible values for the "setwidth" field in a TkXLFDAttributes structure. - * The setwidth is whether characters are considered wider or narrower than - * normal. - */ - -#define TK_SW_NORMAL 0 -#define TK_SW_CONDENSE 1 -#define TK_SW_EXPAND 2 -#define TK_SW_UNKNOWN 3 /* Unknown setwidth. This value may be stored - * in the setwidth field. */ - -/* - * The following defines specify the meaning of the fields in a fully - * qualified XLFD. - */ - -#define XLFD_FOUNDRY 0 -#define XLFD_FAMILY 1 -#define XLFD_WEIGHT 2 -#define XLFD_SLANT 3 -#define XLFD_SETWIDTH 4 -#define XLFD_ADD_STYLE 5 -#define XLFD_PIXEL_SIZE 6 -#define XLFD_POINT_SIZE 7 -#define XLFD_RESOLUTION_X 8 -#define XLFD_RESOLUTION_Y 9 -#define XLFD_SPACING 10 -#define XLFD_AVERAGE_WIDTH 11 -#define XLFD_CHARSET 12 -#define XLFD_NUMFIELDS 13 /* Number of fields in XLFD. */ - -/* - * Helper macro. How to correctly round a double to a short. - */ - -#define ROUND16(x) ((short) floor((x) + 0.5)) - -/* - * Low-level API exported by generic code to platform-specific code. - */ - -#define TkInitFontAttributes(fa) memset((fa), 0, sizeof(TkFontAttributes)); -#define TkInitXLFDAttributes(xa) memset((xa), 0, sizeof(TkXLFDAttributes)); - -MODULE_SCOPE int TkFontParseXLFD(const char *string, - TkFontAttributes *faPtr, TkXLFDAttributes *xaPtr); -MODULE_SCOPE const char *const * TkFontGetAliasList(const char *faceName); -MODULE_SCOPE const char *const *const * TkFontGetFallbacks(void); -MODULE_SCOPE double TkFontGetPixels(Tk_Window tkwin, double size); -MODULE_SCOPE double TkFontGetPoints(Tk_Window tkwin, double size); -MODULE_SCOPE const char *const * TkFontGetGlobalClass(void); -MODULE_SCOPE const char *const * TkFontGetSymbolClass(void); -MODULE_SCOPE int TkCreateNamedFont(Tcl_Interp *interp, Tk_Window tkwin, - const char *name, TkFontAttributes *faPtr); -MODULE_SCOPE int TkDeleteNamedFont(Tcl_Interp *interp, - Tk_Window tkwin, const char *name); -MODULE_SCOPE int TkFontGetFirstTextLayout(Tk_TextLayout layout, - Tk_Font *font, char *dst); - -/* - * Low-level API exported by platform-specific code to generic code. - */ - -MODULE_SCOPE void TkpDeleteFont(TkFont *tkFontPtr); -MODULE_SCOPE void TkpFontPkgInit(TkMainInfo *mainPtr); -MODULE_SCOPE TkFont * TkpGetFontFromAttributes(TkFont *tkFontPtr, - Tk_Window tkwin, const TkFontAttributes *faPtr); -MODULE_SCOPE void TkpGetFontFamilies(Tcl_Interp *interp, - Tk_Window tkwin); -MODULE_SCOPE TkFont * TkpGetNativeFont(Tk_Window tkwin, const char *name); - -#endif /* _TKFONT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkInt.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkInt.h deleted file mode 100644 index c1bd562d1..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkInt.h +++ /dev/null @@ -1,1311 +0,0 @@ -/* - * tkInt.h -- - * - * Declarations for things used internally by the Tk functions but not - * exported outside the module. - * - * Copyright (c) 1990-1994 The Regents of the University of California. - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * Copyright (c) 1998 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINT -#define _TKINT - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -/* - * Ensure WORDS_BIGENDIAN is defined correctly: - * Needs to happen here in addition to configure to work with fat compiles on - * Darwin (where configure runs only once for multiple architectures). - */ - -#include -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_PARAM_H -# include -#endif -#ifdef BYTE_ORDER -# ifdef BIG_ENDIAN -# if BYTE_ORDER == BIG_ENDIAN -# undef WORDS_BIGENDIAN -# define WORDS_BIGENDIAN 1 -# endif -# endif -# ifdef LITTLE_ENDIAN -# if BYTE_ORDER == LITTLE_ENDIAN -# undef WORDS_BIGENDIAN -# endif -# endif -#endif - -/* - * Used to tag functions that are only to be visible within the module being - * built and not outside it (where this is supported by the linker). - */ - -#ifndef MODULE_SCOPE -# ifdef __cplusplus -# define MODULE_SCOPE extern "C" -# else -# define MODULE_SCOPE extern -# endif -#endif - -/* - * Macros used to cast between pointers and integers (e.g. when storing an int - * in ClientData), on 64-bit architectures they avoid gcc warning about "cast - * to/from pointer from/to integer of different size". - */ - -#if !defined(INT2PTR) && !defined(PTR2INT) -# if defined(HAVE_INTPTR_T) || defined(intptr_t) -# define INT2PTR(p) ((void*)(intptr_t)(p)) -# define PTR2INT(p) ((int)(intptr_t)(p)) -# else -# define INT2PTR(p) ((void*)(p)) -# define PTR2INT(p) ((int)(p)) -# endif -#endif -#if !defined(UINT2PTR) && !defined(PTR2UINT) -# if defined(HAVE_UINTPTR_T) || defined(uintptr_t) -# define UINT2PTR(p) ((void*)(uintptr_t)(p)) -# define PTR2UINT(p) ((unsigned int)(uintptr_t)(p)) -# else -# define UINT2PTR(p) ((void*)(p)) -# define PTR2UINT(p) ((unsigned int)(p)) -# endif -#endif - -#ifndef TCL_Z_MODIFIER -# if defined(_WIN64) -# define TCL_Z_MODIFIER "I" -# elif defined(__GNUC__) && !defined(_WIN32) -# define TCL_Z_MODIFIER "z" -# else -# define TCL_Z_MODIFIER "" -# endif -#endif /* !TCL_Z_MODIFIER */ - -/* - * Opaque type declarations: - */ - -typedef struct TkColormap TkColormap; -typedef struct TkFontAttributes TkFontAttributes; -typedef struct TkGrabEvent TkGrabEvent; -typedef struct TkpCursor_ *TkpCursor; -typedef struct TkRegion_ *TkRegion; -typedef struct TkStressedCmap TkStressedCmap; -typedef struct TkBindInfo_ *TkBindInfo; -typedef struct Busy *TkBusy; - -/* - * One of the following structures is maintained for each cursor in use in the - * system. This structure is used by tkCursor.c and the various system- - * specific cursor files. - */ - -typedef struct TkCursor { - Tk_Cursor cursor; /* System specific identifier for cursor. */ - Display *display; /* Display containing cursor. Needed for - * disposal and retrieval of cursors. */ - int resourceRefCount; /* Number of active uses of this cursor (each - * active use corresponds to a call to - * Tk_AllocPreserveFromObj or Tk_Preserve). If - * this count is 0, then this structure is no - * longer valid and it isn't present in a hash - * table: it is being kept around only because - * there are objects referring to it. The - * structure is freed when resourceRefCount - * and objRefCount are both 0. */ - int objRefCount; /* Number of Tcl objects that reference this - * structure.. */ - Tcl_HashTable *otherTable; /* Second table (other than idTable) used to - * index this entry. */ - Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure - * (needed when deleting). */ - Tcl_HashEntry *idHashPtr; /* Entry in idTable for this structure (needed - * when deleting). */ - struct TkCursor *nextPtr; /* Points to the next TkCursor structure with - * the same name. Cursors with the same name - * but different displays are chained together - * off a single hash table entry. */ -} TkCursor; - -/* - * The following structure is kept one-per-TkDisplay to maintain information - * about the caret (cursor location) on this display. This is used to dictate - * global focus location (Windows Accessibility guidelines) and to position - * the IME or XIM over-the-spot window. - */ - -typedef struct TkCaret { - struct TkWindow *winPtr; /* The window on which we requested caret - * placement. */ - int x; /* Relative x coord of the caret. */ - int y; /* Relative y coord of the caret. */ - int height; /* Specified height of the window. */ -} TkCaret; - -/* - * One of the following structures is maintained for each display containing a - * window managed by Tk. In part, the structure is used to store thread- - * specific data, since each thread will have its own TkDisplay structure. - */ - -typedef struct TkDisplay { - Display *display; /* Xlib's info about display. */ - struct TkDisplay *nextPtr; /* Next in list of all displays. */ - char *name; /* Name of display (with any screen identifier - * removed). Malloc-ed. */ - Time lastEventTime; /* Time of last event received for this - * display. */ - - /* - * Information used primarily by tk3d.c: - */ - - int borderInit; /* 0 means borderTable needs initializing. */ - Tcl_HashTable borderTable; /* Maps from color name to TkBorder - * structure. */ - - /* - * Information used by tkAtom.c only: - */ - - int atomInit; /* 0 means stuff below hasn't been initialized - * yet. */ - Tcl_HashTable nameTable; /* Maps from names to Atom's. */ - Tcl_HashTable atomTable; /* Maps from Atom's back to names. */ - - /* - * Information used primarily by tkBind.c: - */ - - int bindInfoStale; /* Non-zero means the variables in this part - * of the structure are potentially incorrect - * and should be recomputed. */ - unsigned int modeModMask; /* Has one bit set to indicate the modifier - * corresponding to "mode shift". If no such - * modifier, than this is zero. */ - unsigned int metaModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - unsigned int altModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no such - * modifier, then this is zero. */ - enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage; - /* Indicates how to interpret lock - * modifier. */ - int numModKeyCodes; /* Number of entries in modKeyCodes array - * below. */ - KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for all - * of the keys that have modifiers associated - * with them. Malloc'ed, but may be NULL. */ - - /* - * Information used by tkBitmap.c only: - */ - - int bitmapInit; /* 0 means tables above need initializing. */ - int bitmapAutoNumber; /* Used to number bitmaps. */ - Tcl_HashTable bitmapNameTable; - /* Maps from name of bitmap to the first - * TkBitmap record for that name. */ - Tcl_HashTable bitmapIdTable;/* Maps from bitmap id to the TkBitmap - * structure for the bitmap. */ - Tcl_HashTable bitmapDataTable; - /* Used by Tk_GetBitmapFromData to map from a - * collection of in-core data about a bitmap - * to a reference giving an automatically- - * generated name for the bitmap. */ - - /* - * Information used by tkCanvas.c only: - */ - - int numIdSearches; - int numSlowSearches; - - /* - * Used by tkColor.c only: - */ - - int colorInit; /* 0 means color module needs initializing. */ - TkStressedCmap *stressPtr; /* First in list of colormaps that have filled - * up, so we have to pick an approximate - * color. */ - Tcl_HashTable colorNameTable; - /* Maps from color name to TkColor structure - * for that color. */ - Tcl_HashTable colorValueTable; - /* Maps from integer RGB values to TkColor - * structures. */ - - /* - * Used by tkCursor.c only: - */ - - int cursorInit; /* 0 means cursor module need initializing. */ - Tcl_HashTable cursorNameTable; - /* Maps from a string name to a cursor to the - * TkCursor record for the cursor. */ - Tcl_HashTable cursorDataTable; - /* Maps from a collection of in-core data - * about a cursor to a TkCursor structure. */ - Tcl_HashTable cursorIdTable; - /* Maps from a cursor id to the TkCursor - * structure for the cursor. */ - char cursorString[20]; /* Used to store a cursor id string. */ - Font cursorFont; /* Font to use for standard cursors. None - * means font not loaded yet. */ - - /* - * Information used by tkError.c only: - */ - - struct TkErrorHandler *errorPtr; - /* First in list of error handlers for this - * display. NULL means no handlers exist at - * present. */ - int deleteCount; /* Counts # of handlers deleted since last - * time inactive handlers were garbage- - * collected. When this number gets big, - * handlers get cleaned up. */ - - /* - * Used by tkEvent.c only: - */ - - struct TkWindowEvent *delayedMotionPtr; - /* Points to a malloc-ed motion event whose - * processing has been delayed in the hopes - * that another motion event will come along - * right away and we can merge the two of them - * together. NULL means that there is no - * delayed motion event. */ - - /* - * Information used by tkFocus.c only: - */ - - int focusDebug; /* 1 means collect focus debugging - * statistics. */ - struct TkWindow *implicitWinPtr; - /* If the focus arrived at a toplevel window - * implicitly via an Enter event (rather than - * via a FocusIn event), this points to the - * toplevel window. Otherwise it is NULL. */ - struct TkWindow *focusPtr; /* Points to the window on this display that - * should be receiving keyboard events. When - * multiple applications on the display have - * the focus, this will refer to the innermost - * window in the innermost application. This - * information isn't used on Windows, but it's - * needed on the Mac, and also on X11 when XIM - * processing is being done. */ - - /* - * Information used by tkGC.c only: - */ - - Tcl_HashTable gcValueTable; /* Maps from a GC's values to a TkGC structure - * describing a GC with those values. */ - Tcl_HashTable gcIdTable; /* Maps from a GC to a TkGC. */ - int gcInit; /* 0 means the tables below need - * initializing. */ - - /* - * Information used by tkGeometry.c only: - */ - - Tcl_HashTable maintainHashTable; - /* Hash table that maps from a master's - * Tk_Window token to a list of slaves managed - * by that master. */ - int geomInit; - -#define TkGetGeomMaster(tkwin) (((TkWindow *)tkwin)->maintainerPtr != NULL ? \ - ((TkWindow *)tkwin)->maintainerPtr : ((TkWindow *)tkwin)->parentPtr) - - /* - * Information used by tkGet.c only: - */ - - Tcl_HashTable uidTable; /* Stores all Tk_Uid used in a thread. */ - int uidInit; /* 0 means uidTable needs initializing. */ - - /* - * Information used by tkGrab.c only: - */ - - struct TkWindow *grabWinPtr;/* Window in which the pointer is currently - * grabbed, or NULL if none. */ - struct TkWindow *eventualGrabWinPtr; - /* Value that grabWinPtr will have once the - * grab event queue (below) has been - * completely emptied. */ - struct TkWindow *buttonWinPtr; - /* Window in which first mouse button was - * pressed while grab was in effect, or NULL - * if no such press in effect. */ - struct TkWindow *serverWinPtr; - /* If no application contains the pointer then - * this is NULL. Otherwise it contains the - * last window for which we've gotten an Enter - * or Leave event from the server (i.e. the - * last window known to have contained the - * pointer). Doesn't reflect events that were - * synthesized in tkGrab.c. */ - TkGrabEvent *firstGrabEventPtr; - /* First in list of enter/leave events - * synthesized by grab code. These events must - * be processed in order before any other - * events are processed. NULL means no such - * events. */ - TkGrabEvent *lastGrabEventPtr; - /* Last in list of synthesized events, or NULL - * if list is empty. */ - int grabFlags; /* Miscellaneous flag values. See definitions - * in tkGrab.c. */ - - /* - * Information used by tkGrid.c only: - */ - - int gridInit; /* 0 means table below needs initializing. */ - Tcl_HashTable gridHashTable;/* Maps from Tk_Window tokens to corresponding - * Grid structures. */ - - /* - * Information used by tkImage.c only: - */ - - int imageId; /* Value used to number image ids. */ - - /* - * Information used by tkMacWinMenu.c only: - */ - - int postCommandGeneration; - - /* - * Information used by tkPack.c only. - */ - - int packInit; /* 0 means table below needs initializing. */ - Tcl_HashTable packerHashTable; - /* Maps from Tk_Window tokens to corresponding - * Packer structures. */ - - /* - * Information used by tkPlace.c only. - */ - - int placeInit; /* 0 means tables below need initializing. */ - Tcl_HashTable masterTable; /* Maps from Tk_Window toke to the Master - * structure for the window, if it exists. */ - Tcl_HashTable slaveTable; /* Maps from Tk_Window toke to the Slave - * structure for the window, if it exists. */ - - /* - * Information used by tkSelect.c and tkClipboard.c only: - */ - - struct TkSelectionInfo *selectionInfoPtr; - /* First in list of selection information - * records. Each entry contains information - * about the current owner of a particular - * selection on this display. */ - Atom multipleAtom; /* Atom for MULTIPLE. None means selection - * stuff isn't initialized. */ - Atom incrAtom; /* Atom for INCR. */ - Atom targetsAtom; /* Atom for TARGETS. */ - Atom timestampAtom; /* Atom for TIMESTAMP. */ - Atom textAtom; /* Atom for TEXT. */ - Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */ - Atom applicationAtom; /* Atom for TK_APPLICATION. */ - Atom windowAtom; /* Atom for TK_WINDOW. */ - Atom clipboardAtom; /* Atom for CLIPBOARD. */ - Atom utf8Atom; /* Atom for UTF8_STRING. */ - Atom atomPairAtom; /* Atom for ATOM_PAIR. */ - - Tk_Window clipWindow; /* Window used for clipboard ownership and to - * retrieve selections between processes. NULL - * means clipboard info hasn't been - * initialized. */ - int clipboardActive; /* 1 means we currently own the clipboard - * selection, 0 means we don't. */ - struct TkMainInfo *clipboardAppPtr; - /* Last application that owned clipboard. */ - struct TkClipboardTarget *clipTargetPtr; - /* First in list of clipboard type information - * records. Each entry contains information - * about the buffers for a given selection - * target. */ - - /* - * Information used by tkSend.c only: - */ - - Tk_Window commTkwin; /* Window used for communication between - * interpreters during "send" commands. NULL - * means send info hasn't been initialized - * yet. */ - Atom commProperty; /* X's name for comm property. */ - Atom registryProperty; /* X's name for property containing registry - * of interpreter names. */ - Atom appNameProperty; /* X's name for property used to hold the - * application name on each comm window. */ - - /* - * Information used by tkUnixWm.c and tkWinWm.c only: - */ - - struct TkWmInfo *firstWmPtr;/* Points to first top-level window. */ - struct TkWmInfo *foregroundWmPtr; - /* Points to the foreground window. */ - - /* - * Information used by tkVisual.c only: - */ - - TkColormap *cmapPtr; /* First in list of all non-default colormaps - * allocated for this display. */ - - /* - * Miscellaneous information: - */ - -#ifdef TK_USE_INPUT_METHODS - XIM inputMethod; /* Input method for this display. */ - XIMStyle inputStyle; /* Input style selected for this display. */ - XFontSet inputXfs; /* XFontSet cached for over-the-spot XIM. */ -#endif /* TK_USE_INPUT_METHODS */ - Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */ - - int refCount; /* Reference count of how many Tk applications - * are using this display. Used to clean up - * the display when we no longer have any Tk - * applications using it. */ - - /* - * The following field were all added for Tk8.3 - */ - - int mouseButtonState; /* Current mouse button state for this - * display. NOT USED as of 8.6.10 */ - Window mouseButtonWindow; /* Window the button state was set in, added - * in Tk 8.4. */ - Tk_Window warpWindow; - Tk_Window warpMainwin; /* For finding the root window for warping - * purposes. */ - int warpX; - int warpY; - - /* - * The following field(s) were all added for Tk8.4 - */ - - unsigned int flags; /* Various flag values: these are all defined - * in below. */ - TkCaret caret; /* Information about the caret for this - * display. This is not a pointer. */ - - int iconDataSize; /* Size of default iconphoto image data. */ - unsigned char *iconDataPtr; /* Default iconphoto image data, if set. */ -#ifdef TK_USE_INPUT_METHODS - int ximGeneration; /* Used to invalidate XIC */ -#endif /* TK_USE_INPUT_METHODS */ -} TkDisplay; - -/* - * Flag values for TkDisplay flags. - * TK_DISPLAY_COLLAPSE_MOTION_EVENTS: (default on) - * Indicates that we should collapse motion events on this display - * TK_DISPLAY_USE_IM: (default on, set via tk.tcl) - * Whether to use input methods for this display - * TK_DISPLAY_WM_TRACING: (default off) - * Whether we should do wm tracing on this display. - * TK_DISPLAY_IN_WARP: (default off) - * Indicates that we are in a pointer warp - */ - -#define TK_DISPLAY_COLLAPSE_MOTION_EVENTS (1 << 0) -#define TK_DISPLAY_USE_IM (1 << 1) -#define TK_DISPLAY_WM_TRACING (1 << 3) -#define TK_DISPLAY_IN_WARP (1 << 4) -#define TK_DISPLAY_USE_XKB (1 << 5) - -/* - * One of the following structures exists for each error handler created by a - * call to Tk_CreateErrorHandler. The structure is managed by tkError.c. - */ - -typedef struct TkErrorHandler { - TkDisplay *dispPtr; /* Display to which handler applies. */ - unsigned long firstRequest; /* Only errors with serial numbers >= to this - * are considered. */ - unsigned long lastRequest; /* Only errors with serial numbers <= to this - * are considered. This field is filled in - * when XUnhandle is called. -1 means - * XUnhandle hasn't been called yet. */ - int error; /* Consider only errors with this error_code - * (-1 means consider all errors). */ - int request; /* Consider only errors with this major - * request code (-1 means consider all major - * codes). */ - int minorCode; /* Consider only errors with this minor - * request code (-1 means consider all minor - * codes). */ - Tk_ErrorProc *errorProc; /* Function to invoke when a matching error - * occurs. NULL means just ignore errors. */ - ClientData clientData; /* Arbitrary value to pass to errorProc. */ - struct TkErrorHandler *nextPtr; - /* Pointer to next older handler for this - * display, or NULL for end of list. */ -} TkErrorHandler; - -/* - * One of the following structures exists for each event handler created by - * calling Tk_CreateEventHandler. This information is used by tkEvent.c only. - */ - -typedef struct TkEventHandler { - unsigned long mask; /* Events for which to invoke proc. */ - Tk_EventProc *proc; /* Function to invoke when an event in mask - * occurs. */ - ClientData clientData; /* Argument to pass to proc. */ - struct TkEventHandler *nextPtr; - /* Next in list of handlers associated with - * window (NULL means end of list). */ -} TkEventHandler; - -/* - * Tk keeps one of the following data structures for each main window (created - * by a call to TkCreateMainWindow). It stores information that is shared by - * all of the windows associated with a particular main window. - */ - -typedef struct TkMainInfo { - int refCount; /* Number of windows whose "mainPtr" fields - * point here. When this becomes zero, can - * free up the structure (the reference count - * is zero because windows can get deleted in - * almost any order; the main window isn't - * necessarily the last one deleted). */ - struct TkWindow *winPtr; /* Pointer to main window. */ - Tcl_Interp *interp; /* Interpreter associated with application. */ - Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow - * structs for all windows related to this - * main window. Managed by tkWindow.c. */ - long deletionEpoch; /* Incremented by window deletions. */ - Tk_BindingTable bindingTable; - /* Used in conjunction with "bind" command to - * bind events to Tcl commands. */ - TkBindInfo bindInfo; /* Information used by tkBind.c on a per - * application basis. */ - struct TkFontInfo *fontInfoPtr; - /* Information used by tkFont.c on a per - * application basis. */ - - /* - * Information used only by tkFocus.c and tk*Embed.c: - */ - - struct TkToplevelFocusInfo *tlFocusPtr; - /* First in list of records containing focus - * information for each top-level in the - * application. Used only by tkFocus.c. */ - struct TkDisplayFocusInfo *displayFocusPtr; - /* First in list of records containing focus - * information for each display that this - * application has ever used. Used only by - * tkFocus.c. */ - - struct ElArray *optionRootPtr; - /* Top level of option hierarchy for this main - * window. NULL means uninitialized. Managed - * by tkOption.c. */ - Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster - * structures. Managed by tkImage.c. */ - int strictMotif; /* This is linked to the tk_strictMotif global - * variable. */ - int alwaysShowSelection; /* This is linked to the - * ::tk::AlwaysShowSelection variable. */ - struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by - * this process. */ - Tcl_HashTable busyTable; /* Information used by [tk busy] command. */ -} TkMainInfo; - -/* - * Tk keeps the following data structure for each of it's builtin bitmaps. - * This structure is only used by tkBitmap.c and other platform specific - * bitmap files. - */ - -typedef struct { - const void *source; /* Bits for bitmap. */ - int width, height; /* Dimensions of bitmap. */ - int native; /* 0 means generic (X style) bitmap, 1 means - * native style bitmap. */ -} TkPredefBitmap; - -/* - * Tk keeps one of the following structures for each window. Some of the - * information (like size and location) is a shadow of information managed by - * the X server, and some is special information used here, such as event and - * geometry management information. This information is (mostly) managed by - * tkWindow.c. WARNING: the declaration below must be kept consistent with the - * Tk_FakeWin structure in tk.h. If you change one, be sure to change the - * other! - */ - -typedef struct TkWindow { - /* - * Structural information: - */ - - Display *display; /* Display containing window. */ - TkDisplay *dispPtr; /* Tk's information about display for - * window. */ - int screenNum; /* Index of screen for window, among all those - * for dispPtr. */ - Visual *visual; /* Visual to use for window. If not default, - * MUST be set before X window is created. */ - int depth; /* Number of bits/pixel. */ - Window window; /* X's id for window. NULL means window hasn't - * actually been created yet, or it's been - * deleted. */ - struct TkWindow *childList; /* First in list of child windows, or NULL if - * no children. List is in stacking order, - * lowest window first.*/ - struct TkWindow *lastChildPtr; - /* Last in list of child windows (highest in - * stacking order), or NULL if no children. */ - struct TkWindow *parentPtr; /* Pointer to parent window (logical parent, - * not necessarily X parent). NULL means - * either this is the main window, or the - * window's parent has already been deleted. */ - struct TkWindow *nextPtr; /* Next higher sibling (in stacking order) in - * list of children with same parent. NULL - * means end of list. */ - TkMainInfo *mainPtr; /* Information shared by all windows - * associated with a particular main window. - * NULL means this window is a rogue that is - * not associated with any application (at - * present, this only happens for the dummy - * windows used for "send" communication). */ - - /* - * Name and type information for the window: - */ - - char *pathName; /* Path name of window (concatenation of all - * names between this window and its top-level - * ancestor). This is a pointer into an entry - * in mainPtr->nameTable. NULL means that the - * window hasn't been completely created - * yet. */ - Tk_Uid nameUid; /* Name of the window within its parent - * (unique within the parent). */ - Tk_Uid classUid; /* Class of the window. NULL means window - * hasn't been given a class yet. */ - - /* - * Geometry and other attributes of window. This information may not be - * updated on the server immediately; stuff that hasn't been reflected in - * the server yet is called "dirty". At present, information can be dirty - * only if the window hasn't yet been created. - */ - - XWindowChanges changes; /* Geometry and other info about window. */ - unsigned int dirtyChanges; /* Bits indicate fields of "changes" that are - * dirty. */ - XSetWindowAttributes atts; /* Current attributes of window. */ - unsigned long dirtyAtts; /* Bits indicate fields of "atts" that are - * dirty. */ - - unsigned int flags; /* Various flag values: these are all defined - * in tk.h (confusing, but they're needed - * there for some query macros). */ - - /* - * Information kept by the event manager (tkEvent.c): - */ - - TkEventHandler *handlerList;/* First in list of event handlers declared - * for this window, or NULL if none. */ -#ifdef TK_USE_INPUT_METHODS - XIC inputContext; /* XIM input context. */ -#endif /* TK_USE_INPUT_METHODS */ - - /* - * Information used for event bindings (see "bind" and "bindtags" commands - * in tkCmds.c): - */ - - ClientData *tagPtr; /* Points to array of tags used for bindings - * on this window. Each tag is a Tk_Uid. - * Malloc'ed. NULL means no tags. */ - int numTags; /* Number of tags at *tagPtr. */ - - /* - * Information used by tkOption.c to manage options for the window. - */ - - int optionLevel; /* -1 means no option information is currently - * cached for this window. Otherwise this - * gives the level in the option stack at - * which info is cached. */ - /* - * Information used by tkSelect.c to manage the selection. - */ - - struct TkSelHandler *selHandlerList; - /* First in list of handlers for returning the - * selection in various forms. */ - - /* - * Information used by tkGeometry.c for geometry management. - */ - - const Tk_GeomMgr *geomMgrPtr; - /* Information about geometry manager for this - * window. */ - ClientData geomData; /* Argument for geometry manager functions. */ - int reqWidth, reqHeight; /* Arguments from last call to - * Tk_GeometryRequest, or 0's if - * Tk_GeometryRequest hasn't been called. */ - int internalBorderLeft; /* Width of internal border of window (0 means - * no internal border). Geometry managers - * should not normally place children on top - * of the border. Fields for the other three - * sides are found below. */ - - /* - * Information maintained by tkWm.c for window manager communication. - */ - - struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also for special - * Unix menubar and wrapper windows), points - * to structure with wm-related info (see - * tkWm.c). For other windows, this is - * NULL. */ - - /* - * Information used by widget classes. - */ - - const Tk_ClassProcs *classProcsPtr; - ClientData instanceData; - - /* - * Platform specific information private to each port. - */ - - struct TkWindowPrivate *privatePtr; - - /* - * More information used by tkGeometry.c for geometry management. - */ - - /* The remaining fields of internal border. */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - - int minReqWidth; /* Minimum requested width. */ - int minReqHeight; /* Minimum requested height. */ -#ifdef TK_USE_INPUT_METHODS - int ximGeneration; /* Used to invalidate XIC */ -#endif /* TK_USE_INPUT_METHODS */ - char *geomMgrName; /* Records the name of the geometry manager. */ - struct TkWindow *maintainerPtr; - /* The geometry master for this window. The - * value is NULL if the window has no master or - * if its master is its parent. */ -} TkWindow; - -/* - * Real definition of some events. Note that these events come from outside - * but have internally generated pieces added to them. - */ - -typedef struct { - XKeyEvent keyEvent; /* The real event from X11. */ - char *charValuePtr; /* A pointer to a string that holds the key's - * %A substitution text (before backslash - * adding), or NULL if that has not been - * computed yet. If non-NULL, this string was - * allocated with ckalloc(). */ - int charValueLen; /* Length of string in charValuePtr when that - * is non-NULL. */ - KeySym keysym; /* Key symbol computed after input methods - * have been invoked */ -} TkKeyEvent; - -/* - * Flags passed to TkpMakeMenuWindow's 'transient' argument. - */ - -#define TK_MAKE_MENU_TEAROFF 0 /* Only non-transient case. */ -#define TK_MAKE_MENU_POPUP 1 -#define TK_MAKE_MENU_DROPDOWN 2 - -/* - * The following structure is used with TkMakeEnsemble to create ensemble - * commands and optionally to create sub-ensembles. - */ - -typedef struct TkEnsemble { - const char *name; - Tcl_ObjCmdProc *proc; - const struct TkEnsemble *subensemble; -} TkEnsemble; - -/* - * The following structure is used as a two way map between integers and - * strings, usually to map between an internal C representation and the - * strings used in Tcl. - */ - -typedef struct TkStateMap { - int numKey; /* Integer representation of a value. */ - const char *strKey; /* String representation of a value. */ -} TkStateMap; - -/* - * This structure is used by the Mac and Window porting layers as the internal - * representation of a clip_mask in a GC. - */ - -typedef struct TkpClipMask { - int type; /* TKP_CLIP_PIXMAP or TKP_CLIP_REGION. */ - union { - Pixmap pixmap; - TkRegion region; - } value; -} TkpClipMask; - -#define TKP_CLIP_PIXMAP 0 -#define TKP_CLIP_REGION 1 - -/* - * Return values from TkGrabState: - */ - -#define TK_GRAB_NONE 0 -#define TK_GRAB_IN_TREE 1 -#define TK_GRAB_ANCESTOR 2 -#define TK_GRAB_EXCLUDED 3 - -/* - * Additional flag for TkpMeasureCharsInContext. Coordinate with other flags - * for this routine, but don't make public until TkpMeasureCharsInContext is - * made public, too. - */ - -#define TK_ISOLATE_END 32 - -/* - * The macro below is used to modify a "char" value (e.g. by casting it to an - * unsigned character) so that it can be used safely with macros such as - * isspace(). - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * The following symbol is used in the mode field of FocusIn events generated - * by an embedded application to request the input focus from its container. - */ - -#define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20) - -/* - * The following special modifier mask bits are defined, to indicate logical - * modifiers such as Meta and Alt that may float among the actual modifier - * bits. - */ - -#define META_MASK (AnyModifier<<1) -#define ALT_MASK (AnyModifier<<2) -#define EXTENDED_MASK (AnyModifier<<3) - -/* - * Mask that selects any of the state bits corresponding to buttons, plus - * masks that select individual buttons' bits: - */ - -#define ALL_BUTTONS \ - (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask) - - -MODULE_SCOPE unsigned long TkGetButtonMask(unsigned int); - -/* - * Object types not declared in tkObj.c need to be mentioned here so they can - * be properly registered with Tcl: - */ - -MODULE_SCOPE const Tcl_ObjType tkBorderObjType; -MODULE_SCOPE const Tcl_ObjType tkBitmapObjType; -MODULE_SCOPE const Tcl_ObjType tkColorObjType; -MODULE_SCOPE const Tcl_ObjType tkCursorObjType; -MODULE_SCOPE const Tcl_ObjType tkFontObjType; -MODULE_SCOPE const Tcl_ObjType tkStateKeyObjType; -MODULE_SCOPE const Tcl_ObjType tkTextIndexType; - -/* - * Miscellaneous variables shared among Tk modules but not exported to the - * outside world: - */ - -MODULE_SCOPE const Tk_SmoothMethod tkBezierSmoothMethod; -MODULE_SCOPE Tk_ImageType tkBitmapImageType; -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtGIF; -MODULE_SCOPE void (*tkHandleEventProc) (XEvent* eventPtr); -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtPNG; -MODULE_SCOPE Tk_PhotoImageFormat tkImgFmtPPM; -MODULE_SCOPE TkMainInfo *tkMainWindowList; -MODULE_SCOPE Tk_ImageType tkPhotoImageType; -MODULE_SCOPE Tcl_HashTable tkPredefBitmapTable; - -MODULE_SCOPE const char *const tkWebColors[20]; - -/* - * The definition of pi, at least from the perspective of double-precision - * floats. - */ - -#ifndef PI -#ifdef M_PI -#define PI M_PI -#else -#define PI 3.14159265358979323846 -#endif -#endif - -/* - * Support for Clang Static Analyzer - */ - -#if defined(PURIFY) && defined(__clang__) -#if __has_feature(attribute_analyzer_noreturn) && \ - !defined(Tcl_Panic) && defined(Tcl_Panic_TCL_DECLARED) -void Tcl_Panic(const char *, ...) __attribute__((analyzer_noreturn)); -#endif -#if !defined(CLANG_ASSERT) -#define CLANG_ASSERT(x) assert(x) -#endif -#elif !defined(CLANG_ASSERT) -#define CLANG_ASSERT(x) -#endif /* PURIFY && __clang__ */ - -/* - * The following magic value is stored in the "send_event" field of FocusIn - * and FocusOut events. This allows us to separate "real" events coming from - * the server from those that we generated. - */ - -#define GENERATED_FOCUS_EVENT_MAGIC ((Bool) 0x547321ac) - -/* - * Exported internals. - */ - -#include "tkIntDecls.h" - -/* - * Themed widget set init function: - */ - -MODULE_SCOPE int Ttk_Init(Tcl_Interp *interp); - -/* - * Internal functions shared among Tk modules but not exported to the outside - * world: - */ - -MODULE_SCOPE int Tk_BellObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BindtagsObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_BusyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ButtonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CanvasObjCmd(ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_CheckbuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ClipboardObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseColorObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ChooseDirectoryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_DestroyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EntryObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_EventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FrameObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FocusObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_FontObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetOpenFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GetSaveFileObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GrabObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_GridObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ImageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LabelframeObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ListboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_LowerObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MenuObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MenubuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageBoxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_MessageObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PanedWindowObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_OptionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PackObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_PlaceObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RadiobuttonObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_RaiseObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScaleObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ScrollbarObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SelectionObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SendObjCmd(ClientData clientData, - Tcl_Interp *interp,int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SendObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_SpinboxObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TextObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_TkwaitObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_ToplevelObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_UpdateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WinfoObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -MODULE_SCOPE int Tk_WmObjCmd(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); - -MODULE_SCOPE int Tk_GetDoublePixelsFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - double *doublePtr); -MODULE_SCOPE int TkSetGeometryMaster(Tcl_Interp *interp, - Tk_Window tkwin, const char *master); -MODULE_SCOPE void TkFreeGeometryMaster(Tk_Window tkwin, - const char *master); - -MODULE_SCOPE void TkEventInit(void); -MODULE_SCOPE void TkRegisterObjTypes(void); -MODULE_SCOPE int TkDeadAppObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const argv[]); -MODULE_SCOPE int TkCanvasGetCoordObj(Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr); -MODULE_SCOPE int TkGetDoublePixels(Tcl_Interp *interp, Tk_Window tkwin, - const char *string, double *doublePtr); -MODULE_SCOPE int TkPostscriptImage(Tcl_Interp *interp, Tk_Window tkwin, - Tk_PostscriptInfo psInfo, XImage *ximage, - int x, int y, int width, int height); -MODULE_SCOPE void TkMapTopFrame(Tk_Window tkwin); -MODULE_SCOPE XEvent * TkpGetBindingXEvent(Tcl_Interp *interp); -MODULE_SCOPE void TkCreateExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE void TkDeleteExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -MODULE_SCOPE Tcl_ExitProc TkFinalize; -MODULE_SCOPE Tcl_ExitProc TkFinalizeThread; -MODULE_SCOPE void TkpBuildRegionFromAlphaData(TkRegion region, - unsigned x, unsigned y, unsigned width, - unsigned height, unsigned char *dataPtr, - unsigned pixelStride, unsigned lineStride); -MODULE_SCOPE void TkAppendPadAmount(Tcl_Obj *bufferObj, - const char *buffer, int pad1, int pad2); -MODULE_SCOPE int TkParsePadAmount(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - int *pad1Ptr, int *pad2Ptr); -MODULE_SCOPE void TkFocusSplit(TkWindow *winPtr); -MODULE_SCOPE void TkFocusJoin(TkWindow *winPtr); -MODULE_SCOPE int TkpAlwaysShowSelection(Tk_Window tkwin); -MODULE_SCOPE void TkpDrawCharsInContext(Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int x, int y); -MODULE_SCOPE int TkpMeasureCharsInContext(Tk_Font tkfont, - const char *source, int numBytes, int rangeStart, - int rangeLength, int maxLength, int flags, - int *lengthPtr); -MODULE_SCOPE void TkUnderlineCharsInContext(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *string, int numBytes, int x, int y, - int firstByte, int lastByte); -MODULE_SCOPE void TkpGetFontAttrsForChar(Tk_Window tkwin, Tk_Font tkfont, - int c, struct TkFontAttributes *faPtr); -MODULE_SCOPE Tcl_Obj * TkNewWindowObj(Tk_Window tkwin); -MODULE_SCOPE void TkpShowBusyWindow(TkBusy busy); -MODULE_SCOPE void TkpHideBusyWindow(TkBusy busy); -MODULE_SCOPE void TkpMakeTransparentWindowExist(Tk_Window tkwin, - Window parent); -MODULE_SCOPE void TkpCreateBusy(Tk_FakeWin *winPtr, Tk_Window tkRef, - Window *parentPtr, Tk_Window tkParent, - TkBusy busy); -MODULE_SCOPE int TkBackgroundEvalObjv(Tcl_Interp *interp, - int objc, Tcl_Obj *const *objv, int flags); -MODULE_SCOPE void TkSendVirtualEvent(Tk_Window tgtWin, - const char *eventName, Tcl_Obj *detail); -MODULE_SCOPE Tcl_Command TkMakeEnsemble(Tcl_Interp *interp, - const char *nsname, const char *name, - ClientData clientData, const TkEnsemble *map); -MODULE_SCOPE int TkInitTkCmd(Tcl_Interp *interp, - ClientData clientData); -MODULE_SCOPE int TkInitFontchooser(Tcl_Interp *interp, - ClientData clientData); -MODULE_SCOPE void TkpWarpPointer(TkDisplay *dispPtr); -MODULE_SCOPE void TkpCancelWarp(TkDisplay *dispPtr); -MODULE_SCOPE int TkListCreateFrame(ClientData clientData, - Tcl_Interp *interp, Tcl_Obj *listObj, - int toplevel, Tcl_Obj *nameObj); - -#ifdef _WIN32 -#define TkParseColor XParseColor -#else -MODULE_SCOPE Status TkParseColor (Display * display, - Colormap map, const char* spec, - XColor * colorPtr); -#endif -#ifdef HAVE_XFT -MODULE_SCOPE void TkUnixSetXftClipRegion(TkRegion clipRegion); -#endif - -#if !defined(__cplusplus) && !defined(c_plusplus) -# define c_class class -#endif - -#if TCL_UTF_MAX > 4 -# define TkUtfToUniChar Tcl_UtfToUniChar -# define TkUniCharToUtf Tcl_UniCharToUtf -#else - MODULE_SCOPE int TkUtfToUniChar(const char *, int *); - MODULE_SCOPE int TkUniCharToUtf(int, char *); -#endif - -/* - * Unsupported commands. - */ - -MODULE_SCOPE int TkUnsupported1ObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); - -/* - * For Tktest. - */ -MODULE_SCOPE int SquareObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj * const objv[]); -MODULE_SCOPE int TkOldTestInit(Tcl_Interp *interp); -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) -#define TkplatformtestInit(x) TCL_OK -#else -MODULE_SCOPE int TkplatformtestInit(Tcl_Interp *interp); -#endif - -#endif /* _TKINT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntDecls.h deleted file mode 100644 index eb32c0073..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntDecls.h +++ /dev/null @@ -1,1179 +0,0 @@ -/* - * tkIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKINTDECLS -#define _TKINTDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -struct TkText; -typedef struct TkTextBTree_ *TkTextBTree; -struct TkTextDispChunk; -struct TkTextIndex; -struct TkTextSegment; -struct TkSharedText; - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN TkWindow * TkAllocWindow(TkDisplay *dispPtr, int screenNum, - TkWindow *parentPtr); -/* 1 */ -EXTERN void TkBezierPoints(double control[], int numSteps, - double *coordPtr); -/* 2 */ -EXTERN void TkBezierScreenPoints(Tk_Canvas canvas, - double control[], int numSteps, - XPoint *xPointPtr); -/* Slot 3 is reserved */ -/* 4 */ -EXTERN void TkBindEventProc(TkWindow *winPtr, XEvent *eventPtr); -/* 5 */ -EXTERN void TkBindFree(TkMainInfo *mainPtr); -/* 6 */ -EXTERN void TkBindInit(TkMainInfo *mainPtr); -/* 7 */ -EXTERN void TkChangeEventWindow(XEvent *eventPtr, - TkWindow *winPtr); -/* 8 */ -EXTERN int TkClipInit(Tcl_Interp *interp, TkDisplay *dispPtr); -/* 9 */ -EXTERN void TkComputeAnchor(Tk_Anchor anchor, Tk_Window tkwin, - int padX, int padY, int innerWidth, - int innerHeight, int *xPtr, int *yPtr); -/* Slot 10 is reserved */ -/* Slot 11 is reserved */ -/* 12 */ -EXTERN TkCursor * TkCreateCursorFromData(Tk_Window tkwin, - const char *source, const char *mask, - int width, int height, int xHot, int yHot, - XColor fg, XColor bg); -/* 13 */ -EXTERN int TkCreateFrame(ClientData clientData, - Tcl_Interp *interp, int argc, - const char *const *argv, int toplevel, - const char *appName); -/* 14 */ -EXTERN Tk_Window TkCreateMainWindow(Tcl_Interp *interp, - const char *screenName, const char *baseName); -/* 15 */ -EXTERN Time TkCurrentTime(TkDisplay *dispPtr); -/* 16 */ -EXTERN void TkDeleteAllImages(TkMainInfo *mainPtr); -/* 17 */ -EXTERN void TkDoConfigureNotify(TkWindow *winPtr); -/* 18 */ -EXTERN void TkDrawInsetFocusHighlight(Tk_Window tkwin, GC gc, - int width, Drawable drawable, int padding); -/* 19 */ -EXTERN void TkEventDeadWindow(TkWindow *winPtr); -/* 20 */ -EXTERN void TkFillPolygon(Tk_Canvas canvas, double *coordPtr, - int numPoints, Display *display, - Drawable drawable, GC gc, GC outlineGC); -/* 21 */ -EXTERN int TkFindStateNum(Tcl_Interp *interp, - const char *option, const TkStateMap *mapPtr, - const char *strKey); -/* 22 */ -EXTERN CONST86 char * TkFindStateString(const TkStateMap *mapPtr, - int numKey); -/* 23 */ -EXTERN void TkFocusDeadWindow(TkWindow *winPtr); -/* 24 */ -EXTERN int TkFocusFilterEvent(TkWindow *winPtr, - XEvent *eventPtr); -/* 25 */ -EXTERN TkWindow * TkFocusKeyEvent(TkWindow *winPtr, XEvent *eventPtr); -/* 26 */ -EXTERN void TkFontPkgInit(TkMainInfo *mainPtr); -/* 27 */ -EXTERN void TkFontPkgFree(TkMainInfo *mainPtr); -/* 28 */ -EXTERN void TkFreeBindingTags(TkWindow *winPtr); -/* 29 */ -EXTERN void TkpFreeCursor(TkCursor *cursorPtr); -/* 30 */ -EXTERN char * TkGetBitmapData(Tcl_Interp *interp, - const char *string, const char *fileName, - int *widthPtr, int *heightPtr, int *hotXPtr, - int *hotYPtr); -/* 31 */ -EXTERN void TkGetButtPoints(double p1[], double p2[], - double width, int project, double m1[], - double m2[]); -/* 32 */ -EXTERN TkCursor * TkGetCursorByName(Tcl_Interp *interp, - Tk_Window tkwin, Tk_Uid string); -/* 33 */ -EXTERN const char * TkGetDefaultScreenName(Tcl_Interp *interp, - const char *screenName); -/* 34 */ -EXTERN TkDisplay * TkGetDisplay(Display *display); -/* 35 */ -EXTERN int TkGetDisplayOf(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Tk_Window *tkwinPtr); -/* 36 */ -EXTERN TkWindow * TkGetFocusWin(TkWindow *winPtr); -/* 37 */ -EXTERN int TkGetInterpNames(Tcl_Interp *interp, Tk_Window tkwin); -/* 38 */ -EXTERN int TkGetMiterPoints(double p1[], double p2[], - double p3[], double width, double m1[], - double m2[]); -/* 39 */ -EXTERN void TkGetPointerCoords(Tk_Window tkwin, int *xPtr, - int *yPtr); -/* 40 */ -EXTERN void TkGetServerInfo(Tcl_Interp *interp, Tk_Window tkwin); -/* 41 */ -EXTERN void TkGrabDeadWindow(TkWindow *winPtr); -/* 42 */ -EXTERN int TkGrabState(TkWindow *winPtr); -/* 43 */ -EXTERN void TkIncludePoint(Tk_Item *itemPtr, double *pointPtr); -/* 44 */ -EXTERN void TkInOutEvents(XEvent *eventPtr, TkWindow *sourcePtr, - TkWindow *destPtr, int leaveType, - int enterType, Tcl_QueuePosition position); -/* 45 */ -EXTERN void TkInstallFrameMenu(Tk_Window tkwin); -/* 46 */ -EXTERN CONST86 char * TkKeysymToString(KeySym keysym); -/* 47 */ -EXTERN int TkLineToArea(double end1Ptr[], double end2Ptr[], - double rectPtr[]); -/* 48 */ -EXTERN double TkLineToPoint(double end1Ptr[], double end2Ptr[], - double pointPtr[]); -/* 49 */ -EXTERN int TkMakeBezierCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -/* 50 */ -EXTERN void TkMakeBezierPostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -/* 51 */ -EXTERN void TkOptionClassChanged(TkWindow *winPtr); -/* 52 */ -EXTERN void TkOptionDeadWindow(TkWindow *winPtr); -/* 53 */ -EXTERN int TkOvalToArea(double *ovalPtr, double *rectPtr); -/* 54 */ -EXTERN double TkOvalToPoint(double ovalPtr[], double width, - int filled, double pointPtr[]); -/* 55 */ -EXTERN int TkpChangeFocus(TkWindow *winPtr, int force); -/* 56 */ -EXTERN void TkpCloseDisplay(TkDisplay *dispPtr); -/* 57 */ -EXTERN void TkpClaimFocus(TkWindow *topLevelPtr, int force); -/* 58 */ -EXTERN void TkpDisplayWarning(const char *msg, const char *title); -/* 59 */ -EXTERN void TkpGetAppName(Tcl_Interp *interp, Tcl_DString *name); -/* 60 */ -EXTERN TkWindow * TkpGetOtherWindow(TkWindow *winPtr); -/* 61 */ -EXTERN TkWindow * TkpGetWrapperWindow(TkWindow *winPtr); -/* 62 */ -EXTERN int TkpInit(Tcl_Interp *interp); -/* 63 */ -EXTERN void TkpInitializeMenuBindings(Tcl_Interp *interp, - Tk_BindingTable bindingTable); -/* 64 */ -EXTERN void TkpMakeContainer(Tk_Window tkwin); -/* 65 */ -EXTERN void TkpMakeMenuWindow(Tk_Window tkwin, int transient); -/* 66 */ -EXTERN Window TkpMakeWindow(TkWindow *winPtr, Window parent); -/* 67 */ -EXTERN void TkpMenuNotifyToplevelCreate(Tcl_Interp *interp, - const char *menuName); -/* 68 */ -EXTERN TkDisplay * TkpOpenDisplay(const char *display_name); -/* 69 */ -EXTERN int TkPointerEvent(XEvent *eventPtr, TkWindow *winPtr); -/* 70 */ -EXTERN int TkPolygonToArea(double *polyPtr, int numPoints, - double *rectPtr); -/* 71 */ -EXTERN double TkPolygonToPoint(double *polyPtr, int numPoints, - double *pointPtr); -/* 72 */ -EXTERN int TkPositionInTree(TkWindow *winPtr, TkWindow *treePtr); -/* 73 */ -EXTERN void TkpRedirectKeyEvent(TkWindow *winPtr, - XEvent *eventPtr); -/* 74 */ -EXTERN void TkpSetMainMenubar(Tcl_Interp *interp, - Tk_Window tkwin, const char *menuName); -/* 75 */ -EXTERN int TkpUseWindow(Tcl_Interp *interp, Tk_Window tkwin, - const char *string); -/* Slot 76 is reserved */ -/* 77 */ -EXTERN void TkQueueEventForAllChildren(TkWindow *winPtr, - XEvent *eventPtr); -/* 78 */ -EXTERN int TkReadBitmapFile(Display *display, Drawable d, - const char *filename, - unsigned int *width_return, - unsigned int *height_return, - Pixmap *bitmap_return, int *x_hot_return, - int *y_hot_return); -/* 79 */ -EXTERN int TkScrollWindow(Tk_Window tkwin, GC gc, int x, int y, - int width, int height, int dx, int dy, - TkRegion damageRgn); -/* 80 */ -EXTERN void TkSelDeadWindow(TkWindow *winPtr); -/* 81 */ -EXTERN void TkSelEventProc(Tk_Window tkwin, XEvent *eventPtr); -/* 82 */ -EXTERN void TkSelInit(Tk_Window tkwin); -/* 83 */ -EXTERN void TkSelPropProc(XEvent *eventPtr); -/* Slot 84 is reserved */ -/* 85 */ -EXTERN void TkSetWindowMenuBar(Tcl_Interp *interp, - Tk_Window tkwin, const char *oldMenuName, - const char *menuName); -/* 86 */ -EXTERN KeySym TkStringToKeysym(const char *name); -/* 87 */ -EXTERN int TkThickPolyLineToArea(double *coordPtr, - int numPoints, double width, int capStyle, - int joinStyle, double *rectPtr); -/* 88 */ -EXTERN void TkWmAddToColormapWindows(TkWindow *winPtr); -/* 89 */ -EXTERN void TkWmDeadWindow(TkWindow *winPtr); -/* 90 */ -EXTERN TkWindow * TkWmFocusToplevel(TkWindow *winPtr); -/* 91 */ -EXTERN void TkWmMapWindow(TkWindow *winPtr); -/* 92 */ -EXTERN void TkWmNewWindow(TkWindow *winPtr); -/* 93 */ -EXTERN void TkWmProtocolEventProc(TkWindow *winPtr, - XEvent *evenvPtr); -/* 94 */ -EXTERN void TkWmRemoveFromColormapWindows(TkWindow *winPtr); -/* 95 */ -EXTERN void TkWmRestackToplevel(TkWindow *winPtr, int aboveBelow, - TkWindow *otherPtr); -/* 96 */ -EXTERN void TkWmSetClass(TkWindow *winPtr); -/* 97 */ -EXTERN void TkWmUnmapWindow(TkWindow *winPtr); -/* 98 */ -EXTERN Tcl_Obj * TkDebugBitmap(Tk_Window tkwin, const char *name); -/* 99 */ -EXTERN Tcl_Obj * TkDebugBorder(Tk_Window tkwin, const char *name); -/* 100 */ -EXTERN Tcl_Obj * TkDebugCursor(Tk_Window tkwin, const char *name); -/* 101 */ -EXTERN Tcl_Obj * TkDebugColor(Tk_Window tkwin, const char *name); -/* 102 */ -EXTERN Tcl_Obj * TkDebugConfig(Tcl_Interp *interp, - Tk_OptionTable table); -/* 103 */ -EXTERN Tcl_Obj * TkDebugFont(Tk_Window tkwin, const char *name); -/* 104 */ -EXTERN int TkFindStateNumObj(Tcl_Interp *interp, - Tcl_Obj *optionPtr, const TkStateMap *mapPtr, - Tcl_Obj *keyPtr); -/* 105 */ -EXTERN Tcl_HashTable * TkGetBitmapPredefTable(void); -/* 106 */ -EXTERN TkDisplay * TkGetDisplayList(void); -/* 107 */ -EXTERN TkMainInfo * TkGetMainInfoList(void); -/* 108 */ -EXTERN int TkGetWindowFromObj(Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *objPtr, - Tk_Window *windowPtr); -/* 109 */ -EXTERN CONST86 char * TkpGetString(TkWindow *winPtr, XEvent *eventPtr, - Tcl_DString *dsPtr); -/* 110 */ -EXTERN void TkpGetSubFonts(Tcl_Interp *interp, Tk_Font tkfont); -/* 111 */ -EXTERN Tcl_Obj * TkpGetSystemDefault(Tk_Window tkwin, - const char *dbName, const char *className); -/* 112 */ -EXTERN void TkpMenuThreadInit(void); -/* 113 */ -EXTERN int TkClipBox(TkRegion rgn, XRectangle *rect_return); -/* 114 */ -EXTERN TkRegion TkCreateRegion(void); -/* 115 */ -EXTERN int TkDestroyRegion(TkRegion rgn); -/* 116 */ -EXTERN int TkIntersectRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -/* 117 */ -EXTERN int TkRectInRegion(TkRegion rgn, int x, int y, - unsigned int width, unsigned int height); -/* 118 */ -EXTERN int TkSetRegion(Display *display, GC gc, TkRegion rgn); -/* 119 */ -EXTERN int TkUnionRectWithRegion(XRectangle *rect, TkRegion src, - TkRegion dr_return); -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 121 */ -EXTERN Pixmap TkpCreateNativeBitmap(Display *display, - const void *source); -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 122 */ -EXTERN void TkpDefineNativeBitmaps(void); -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 124 */ -EXTERN Pixmap TkpGetNativeAppBitmap(Display *display, - const char *name, int *width, int *height); -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* 135 */ -EXTERN void TkpDrawHighlightBorder(Tk_Window tkwin, GC fgGC, - GC bgGC, int highlightWidth, - Drawable drawable); -/* 136 */ -EXTERN void TkSetFocusWin(TkWindow *winPtr, int force); -/* 137 */ -EXTERN void TkpSetKeycodeAndState(Tk_Window tkwin, KeySym keySym, - XEvent *eventPtr); -/* 138 */ -EXTERN KeySym TkpGetKeySym(TkDisplay *dispPtr, XEvent *eventPtr); -/* 139 */ -EXTERN void TkpInitKeymapInfo(TkDisplay *dispPtr); -/* 140 */ -EXTERN TkRegion TkPhotoGetValidRegion(Tk_PhotoHandle handle); -/* 141 */ -EXTERN TkWindow ** TkWmStackorderToplevel(TkWindow *parentPtr); -/* 142 */ -EXTERN void TkFocusFree(TkMainInfo *mainPtr); -/* 143 */ -EXTERN void TkClipCleanup(TkDisplay *dispPtr); -/* 144 */ -EXTERN void TkGCCleanup(TkDisplay *dispPtr); -/* 145 */ -EXTERN int TkSubtractRegion(TkRegion sra, TkRegion srcb, - TkRegion dr_return); -/* 146 */ -EXTERN void TkStylePkgInit(TkMainInfo *mainPtr); -/* 147 */ -EXTERN void TkStylePkgFree(TkMainInfo *mainPtr); -/* 148 */ -EXTERN Tk_Window TkToplevelWindowForCommand(Tcl_Interp *interp, - const char *cmdName); -/* 149 */ -EXTERN const Tk_OptionSpec * TkGetOptionSpec(const char *name, - Tk_OptionTable optionTable); -/* 150 */ -EXTERN int TkMakeRawCurve(Tk_Canvas canvas, double *pointPtr, - int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[]); -/* 151 */ -EXTERN void TkMakeRawCurvePostscript(Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints); -/* 152 */ -EXTERN void TkpDrawFrame(Tk_Window tkwin, Tk_3DBorder border, - int highlightWidth, int borderWidth, - int relief); -/* 153 */ -EXTERN void TkCreateThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* 154 */ -EXTERN void TkDeleteThreadExitHandler(Tcl_ExitProc *proc, - ClientData clientData); -/* Slot 155 is reserved */ -/* 156 */ -EXTERN int TkpTestembedCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 157 */ -EXTERN int TkpTesttextCmd(ClientData dummy, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -/* 158 */ -EXTERN int TkSelGetSelection(Tcl_Interp *interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetSelProc *proc, ClientData clientData); -/* 159 */ -EXTERN int TkTextGetIndex(Tcl_Interp *interp, - struct TkText *textPtr, const char *string, - struct TkTextIndex *indexPtr); -/* 160 */ -EXTERN int TkTextIndexBackBytes(const struct TkText *textPtr, - const struct TkTextIndex *srcPtr, int count, - struct TkTextIndex *dstPtr); -/* 161 */ -EXTERN int TkTextIndexForwBytes(const struct TkText *textPtr, - const struct TkTextIndex *srcPtr, int count, - struct TkTextIndex *dstPtr); -/* 162 */ -EXTERN struct TkTextIndex * TkTextMakeByteIndex(TkTextBTree tree, - const struct TkText *textPtr, int lineIndex, - int byteIndex, struct TkTextIndex *indexPtr); -/* 163 */ -EXTERN int TkTextPrintIndex(const struct TkText *textPtr, - const struct TkTextIndex *indexPtr, - char *string); -/* 164 */ -EXTERN struct TkTextSegment * TkTextSetMark(struct TkText *textPtr, - const char *name, - struct TkTextIndex *indexPtr); -/* 165 */ -EXTERN int TkTextXviewCmd(struct TkText *textPtr, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* 166 */ -EXTERN void TkTextChanged(struct TkSharedText *sharedTextPtr, - struct TkText *textPtr, - const struct TkTextIndex *index1Ptr, - const struct TkTextIndex *index2Ptr); -/* 167 */ -EXTERN int TkBTreeNumLines(TkTextBTree tree, - const struct TkText *textPtr); -/* 168 */ -EXTERN void TkTextInsertDisplayProc(struct TkText *textPtr, - struct TkTextDispChunk *chunkPtr, int x, - int y, int height, int baseline, - Display *display, Drawable dst, int screenY); -/* 169 */ -EXTERN int TkStateParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 170 */ -EXTERN CONST86 char * TkStatePrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 171 */ -EXTERN int TkCanvasDashParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 172 */ -EXTERN CONST86 char * TkCanvasDashPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 173 */ -EXTERN int TkOffsetParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 174 */ -EXTERN CONST86 char * TkOffsetPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 175 */ -EXTERN int TkPixelParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 176 */ -EXTERN CONST86 char * TkPixelPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 177 */ -EXTERN int TkOrientParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 178 */ -EXTERN CONST86 char * TkOrientPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 179 */ -EXTERN int TkSmoothParseProc(ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - const char *value, char *widgRec, int offset); -/* 180 */ -EXTERN CONST86 char * TkSmoothPrintProc(ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr); -/* 181 */ -EXTERN void TkDrawAngledTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - double angle, int firstChar, int lastChar); -/* 182 */ -EXTERN void TkUnderlineAngledTextLayout(Display *display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - double angle, int underline); -/* 183 */ -EXTERN int TkIntersectAngledTextLayout(Tk_TextLayout layout, - int x, int y, int width, int height, - double angle); -/* 184 */ -EXTERN void TkDrawAngledChars(Display *display, - Drawable drawable, GC gc, Tk_Font tkfont, - const char *source, int numBytes, double x, - double y, double angle); - -typedef struct TkIntStubs { - int magic; - void *hooks; - - TkWindow * (*tkAllocWindow) (TkDisplay *dispPtr, int screenNum, TkWindow *parentPtr); /* 0 */ - void (*tkBezierPoints) (double control[], int numSteps, double *coordPtr); /* 1 */ - void (*tkBezierScreenPoints) (Tk_Canvas canvas, double control[], int numSteps, XPoint *xPointPtr); /* 2 */ - void (*reserved3)(void); - void (*tkBindEventProc) (TkWindow *winPtr, XEvent *eventPtr); /* 4 */ - void (*tkBindFree) (TkMainInfo *mainPtr); /* 5 */ - void (*tkBindInit) (TkMainInfo *mainPtr); /* 6 */ - void (*tkChangeEventWindow) (XEvent *eventPtr, TkWindow *winPtr); /* 7 */ - int (*tkClipInit) (Tcl_Interp *interp, TkDisplay *dispPtr); /* 8 */ - void (*tkComputeAnchor) (Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int *xPtr, int *yPtr); /* 9 */ - void (*reserved10)(void); - void (*reserved11)(void); - TkCursor * (*tkCreateCursorFromData) (Tk_Window tkwin, const char *source, const char *mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg); /* 12 */ - int (*tkCreateFrame) (ClientData clientData, Tcl_Interp *interp, int argc, const char *const *argv, int toplevel, const char *appName); /* 13 */ - Tk_Window (*tkCreateMainWindow) (Tcl_Interp *interp, const char *screenName, const char *baseName); /* 14 */ - Time (*tkCurrentTime) (TkDisplay *dispPtr); /* 15 */ - void (*tkDeleteAllImages) (TkMainInfo *mainPtr); /* 16 */ - void (*tkDoConfigureNotify) (TkWindow *winPtr); /* 17 */ - void (*tkDrawInsetFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding); /* 18 */ - void (*tkEventDeadWindow) (TkWindow *winPtr); /* 19 */ - void (*tkFillPolygon) (Tk_Canvas canvas, double *coordPtr, int numPoints, Display *display, Drawable drawable, GC gc, GC outlineGC); /* 20 */ - int (*tkFindStateNum) (Tcl_Interp *interp, const char *option, const TkStateMap *mapPtr, const char *strKey); /* 21 */ - CONST86 char * (*tkFindStateString) (const TkStateMap *mapPtr, int numKey); /* 22 */ - void (*tkFocusDeadWindow) (TkWindow *winPtr); /* 23 */ - int (*tkFocusFilterEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 24 */ - TkWindow * (*tkFocusKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 25 */ - void (*tkFontPkgInit) (TkMainInfo *mainPtr); /* 26 */ - void (*tkFontPkgFree) (TkMainInfo *mainPtr); /* 27 */ - void (*tkFreeBindingTags) (TkWindow *winPtr); /* 28 */ - void (*tkpFreeCursor) (TkCursor *cursorPtr); /* 29 */ - char * (*tkGetBitmapData) (Tcl_Interp *interp, const char *string, const char *fileName, int *widthPtr, int *heightPtr, int *hotXPtr, int *hotYPtr); /* 30 */ - void (*tkGetButtPoints) (double p1[], double p2[], double width, int project, double m1[], double m2[]); /* 31 */ - TkCursor * (*tkGetCursorByName) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid string); /* 32 */ - const char * (*tkGetDefaultScreenName) (Tcl_Interp *interp, const char *screenName); /* 33 */ - TkDisplay * (*tkGetDisplay) (Display *display); /* 34 */ - int (*tkGetDisplayOf) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], Tk_Window *tkwinPtr); /* 35 */ - TkWindow * (*tkGetFocusWin) (TkWindow *winPtr); /* 36 */ - int (*tkGetInterpNames) (Tcl_Interp *interp, Tk_Window tkwin); /* 37 */ - int (*tkGetMiterPoints) (double p1[], double p2[], double p3[], double width, double m1[], double m2[]); /* 38 */ - void (*tkGetPointerCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 39 */ - void (*tkGetServerInfo) (Tcl_Interp *interp, Tk_Window tkwin); /* 40 */ - void (*tkGrabDeadWindow) (TkWindow *winPtr); /* 41 */ - int (*tkGrabState) (TkWindow *winPtr); /* 42 */ - void (*tkIncludePoint) (Tk_Item *itemPtr, double *pointPtr); /* 43 */ - void (*tkInOutEvents) (XEvent *eventPtr, TkWindow *sourcePtr, TkWindow *destPtr, int leaveType, int enterType, Tcl_QueuePosition position); /* 44 */ - void (*tkInstallFrameMenu) (Tk_Window tkwin); /* 45 */ - CONST86 char * (*tkKeysymToString) (KeySym keysym); /* 46 */ - int (*tkLineToArea) (double end1Ptr[], double end2Ptr[], double rectPtr[]); /* 47 */ - double (*tkLineToPoint) (double end1Ptr[], double end2Ptr[], double pointPtr[]); /* 48 */ - int (*tkMakeBezierCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 49 */ - void (*tkMakeBezierPostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 50 */ - void (*tkOptionClassChanged) (TkWindow *winPtr); /* 51 */ - void (*tkOptionDeadWindow) (TkWindow *winPtr); /* 52 */ - int (*tkOvalToArea) (double *ovalPtr, double *rectPtr); /* 53 */ - double (*tkOvalToPoint) (double ovalPtr[], double width, int filled, double pointPtr[]); /* 54 */ - int (*tkpChangeFocus) (TkWindow *winPtr, int force); /* 55 */ - void (*tkpCloseDisplay) (TkDisplay *dispPtr); /* 56 */ - void (*tkpClaimFocus) (TkWindow *topLevelPtr, int force); /* 57 */ - void (*tkpDisplayWarning) (const char *msg, const char *title); /* 58 */ - void (*tkpGetAppName) (Tcl_Interp *interp, Tcl_DString *name); /* 59 */ - TkWindow * (*tkpGetOtherWindow) (TkWindow *winPtr); /* 60 */ - TkWindow * (*tkpGetWrapperWindow) (TkWindow *winPtr); /* 61 */ - int (*tkpInit) (Tcl_Interp *interp); /* 62 */ - void (*tkpInitializeMenuBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable); /* 63 */ - void (*tkpMakeContainer) (Tk_Window tkwin); /* 64 */ - void (*tkpMakeMenuWindow) (Tk_Window tkwin, int transient); /* 65 */ - Window (*tkpMakeWindow) (TkWindow *winPtr, Window parent); /* 66 */ - void (*tkpMenuNotifyToplevelCreate) (Tcl_Interp *interp, const char *menuName); /* 67 */ - TkDisplay * (*tkpOpenDisplay) (const char *display_name); /* 68 */ - int (*tkPointerEvent) (XEvent *eventPtr, TkWindow *winPtr); /* 69 */ - int (*tkPolygonToArea) (double *polyPtr, int numPoints, double *rectPtr); /* 70 */ - double (*tkPolygonToPoint) (double *polyPtr, int numPoints, double *pointPtr); /* 71 */ - int (*tkPositionInTree) (TkWindow *winPtr, TkWindow *treePtr); /* 72 */ - void (*tkpRedirectKeyEvent) (TkWindow *winPtr, XEvent *eventPtr); /* 73 */ - void (*tkpSetMainMenubar) (Tcl_Interp *interp, Tk_Window tkwin, const char *menuName); /* 74 */ - int (*tkpUseWindow) (Tcl_Interp *interp, Tk_Window tkwin, const char *string); /* 75 */ - void (*reserved76)(void); - void (*tkQueueEventForAllChildren) (TkWindow *winPtr, XEvent *eventPtr); /* 77 */ - int (*tkReadBitmapFile) (Display *display, Drawable d, const char *filename, unsigned int *width_return, unsigned int *height_return, Pixmap *bitmap_return, int *x_hot_return, int *y_hot_return); /* 78 */ - int (*tkScrollWindow) (Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn); /* 79 */ - void (*tkSelDeadWindow) (TkWindow *winPtr); /* 80 */ - void (*tkSelEventProc) (Tk_Window tkwin, XEvent *eventPtr); /* 81 */ - void (*tkSelInit) (Tk_Window tkwin); /* 82 */ - void (*tkSelPropProc) (XEvent *eventPtr); /* 83 */ - void (*reserved84)(void); - void (*tkSetWindowMenuBar) (Tcl_Interp *interp, Tk_Window tkwin, const char *oldMenuName, const char *menuName); /* 85 */ - KeySym (*tkStringToKeysym) (const char *name); /* 86 */ - int (*tkThickPolyLineToArea) (double *coordPtr, int numPoints, double width, int capStyle, int joinStyle, double *rectPtr); /* 87 */ - void (*tkWmAddToColormapWindows) (TkWindow *winPtr); /* 88 */ - void (*tkWmDeadWindow) (TkWindow *winPtr); /* 89 */ - TkWindow * (*tkWmFocusToplevel) (TkWindow *winPtr); /* 90 */ - void (*tkWmMapWindow) (TkWindow *winPtr); /* 91 */ - void (*tkWmNewWindow) (TkWindow *winPtr); /* 92 */ - void (*tkWmProtocolEventProc) (TkWindow *winPtr, XEvent *evenvPtr); /* 93 */ - void (*tkWmRemoveFromColormapWindows) (TkWindow *winPtr); /* 94 */ - void (*tkWmRestackToplevel) (TkWindow *winPtr, int aboveBelow, TkWindow *otherPtr); /* 95 */ - void (*tkWmSetClass) (TkWindow *winPtr); /* 96 */ - void (*tkWmUnmapWindow) (TkWindow *winPtr); /* 97 */ - Tcl_Obj * (*tkDebugBitmap) (Tk_Window tkwin, const char *name); /* 98 */ - Tcl_Obj * (*tkDebugBorder) (Tk_Window tkwin, const char *name); /* 99 */ - Tcl_Obj * (*tkDebugCursor) (Tk_Window tkwin, const char *name); /* 100 */ - Tcl_Obj * (*tkDebugColor) (Tk_Window tkwin, const char *name); /* 101 */ - Tcl_Obj * (*tkDebugConfig) (Tcl_Interp *interp, Tk_OptionTable table); /* 102 */ - Tcl_Obj * (*tkDebugFont) (Tk_Window tkwin, const char *name); /* 103 */ - int (*tkFindStateNumObj) (Tcl_Interp *interp, Tcl_Obj *optionPtr, const TkStateMap *mapPtr, Tcl_Obj *keyPtr); /* 104 */ - Tcl_HashTable * (*tkGetBitmapPredefTable) (void); /* 105 */ - TkDisplay * (*tkGetDisplayList) (void); /* 106 */ - TkMainInfo * (*tkGetMainInfoList) (void); /* 107 */ - int (*tkGetWindowFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, Tk_Window *windowPtr); /* 108 */ - CONST86 char * (*tkpGetString) (TkWindow *winPtr, XEvent *eventPtr, Tcl_DString *dsPtr); /* 109 */ - void (*tkpGetSubFonts) (Tcl_Interp *interp, Tk_Font tkfont); /* 110 */ - Tcl_Obj * (*tkpGetSystemDefault) (Tk_Window tkwin, const char *dbName, const char *className); /* 111 */ - void (*tkpMenuThreadInit) (void); /* 112 */ - int (*tkClipBox) (TkRegion rgn, XRectangle *rect_return); /* 113 */ - TkRegion (*tkCreateRegion) (void); /* 114 */ - int (*tkDestroyRegion) (TkRegion rgn); /* 115 */ - int (*tkIntersectRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 116 */ - int (*tkRectInRegion) (TkRegion rgn, int x, int y, unsigned int width, unsigned int height); /* 117 */ - int (*tkSetRegion) (Display *display, GC gc, TkRegion rgn); /* 118 */ - int (*tkUnionRectWithRegion) (XRectangle *rect, TkRegion src, TkRegion dr_return); /* 119 */ - void (*reserved120)(void); -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) /* X11 */ - void (*reserved121)(void); -#endif /* X11 */ -#if defined(_WIN32) /* WIN */ - void (*reserved121)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*reserved121)(void); /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpCreateNativeBitmap) (Display *display, const void *source); /* 121 */ -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) /* X11 */ - void (*reserved122)(void); -#endif /* X11 */ -#if defined(_WIN32) /* WIN */ - void (*reserved122)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*reserved122)(void); /* Dummy entry for stubs table backwards compatibility */ - void (*tkpDefineNativeBitmaps) (void); /* 122 */ -#endif /* AQUA */ - void (*reserved123)(void); -#if !(defined(_WIN32) || defined(MAC_OSX_TK)) /* X11 */ - void (*reserved124)(void); -#endif /* X11 */ -#if defined(_WIN32) /* WIN */ - void (*reserved124)(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*reserved124)(void); /* Dummy entry for stubs table backwards compatibility */ - Pixmap (*tkpGetNativeAppBitmap) (Display *display, const char *name, int *width, int *height); /* 124 */ -#endif /* AQUA */ - void (*reserved125)(void); - void (*reserved126)(void); - void (*reserved127)(void); - void (*reserved128)(void); - void (*reserved129)(void); - void (*reserved130)(void); - void (*reserved131)(void); - void (*reserved132)(void); - void (*reserved133)(void); - void (*reserved134)(void); - void (*tkpDrawHighlightBorder) (Tk_Window tkwin, GC fgGC, GC bgGC, int highlightWidth, Drawable drawable); /* 135 */ - void (*tkSetFocusWin) (TkWindow *winPtr, int force); /* 136 */ - void (*tkpSetKeycodeAndState) (Tk_Window tkwin, KeySym keySym, XEvent *eventPtr); /* 137 */ - KeySym (*tkpGetKeySym) (TkDisplay *dispPtr, XEvent *eventPtr); /* 138 */ - void (*tkpInitKeymapInfo) (TkDisplay *dispPtr); /* 139 */ - TkRegion (*tkPhotoGetValidRegion) (Tk_PhotoHandle handle); /* 140 */ - TkWindow ** (*tkWmStackorderToplevel) (TkWindow *parentPtr); /* 141 */ - void (*tkFocusFree) (TkMainInfo *mainPtr); /* 142 */ - void (*tkClipCleanup) (TkDisplay *dispPtr); /* 143 */ - void (*tkGCCleanup) (TkDisplay *dispPtr); /* 144 */ - int (*tkSubtractRegion) (TkRegion sra, TkRegion srcb, TkRegion dr_return); /* 145 */ - void (*tkStylePkgInit) (TkMainInfo *mainPtr); /* 146 */ - void (*tkStylePkgFree) (TkMainInfo *mainPtr); /* 147 */ - Tk_Window (*tkToplevelWindowForCommand) (Tcl_Interp *interp, const char *cmdName); /* 148 */ - const Tk_OptionSpec * (*tkGetOptionSpec) (const char *name, Tk_OptionTable optionTable); /* 149 */ - int (*tkMakeRawCurve) (Tk_Canvas canvas, double *pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[]); /* 150 */ - void (*tkMakeRawCurvePostscript) (Tcl_Interp *interp, Tk_Canvas canvas, double *pointPtr, int numPoints); /* 151 */ - void (*tkpDrawFrame) (Tk_Window tkwin, Tk_3DBorder border, int highlightWidth, int borderWidth, int relief); /* 152 */ - void (*tkCreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 153 */ - void (*tkDeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 154 */ - void (*reserved155)(void); - int (*tkpTestembedCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 156 */ - int (*tkpTesttextCmd) (ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 157 */ - int (*tkSelGetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 158 */ - int (*tkTextGetIndex) (Tcl_Interp *interp, struct TkText *textPtr, const char *string, struct TkTextIndex *indexPtr); /* 159 */ - int (*tkTextIndexBackBytes) (const struct TkText *textPtr, const struct TkTextIndex *srcPtr, int count, struct TkTextIndex *dstPtr); /* 160 */ - int (*tkTextIndexForwBytes) (const struct TkText *textPtr, const struct TkTextIndex *srcPtr, int count, struct TkTextIndex *dstPtr); /* 161 */ - struct TkTextIndex * (*tkTextMakeByteIndex) (TkTextBTree tree, const struct TkText *textPtr, int lineIndex, int byteIndex, struct TkTextIndex *indexPtr); /* 162 */ - int (*tkTextPrintIndex) (const struct TkText *textPtr, const struct TkTextIndex *indexPtr, char *string); /* 163 */ - struct TkTextSegment * (*tkTextSetMark) (struct TkText *textPtr, const char *name, struct TkTextIndex *indexPtr); /* 164 */ - int (*tkTextXviewCmd) (struct TkText *textPtr, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 165 */ - void (*tkTextChanged) (struct TkSharedText *sharedTextPtr, struct TkText *textPtr, const struct TkTextIndex *index1Ptr, const struct TkTextIndex *index2Ptr); /* 166 */ - int (*tkBTreeNumLines) (TkTextBTree tree, const struct TkText *textPtr); /* 167 */ - void (*tkTextInsertDisplayProc) (struct TkText *textPtr, struct TkTextDispChunk *chunkPtr, int x, int y, int height, int baseline, Display *display, Drawable dst, int screenY); /* 168 */ - int (*tkStateParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 169 */ - CONST86 char * (*tkStatePrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 170 */ - int (*tkCanvasDashParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 171 */ - CONST86 char * (*tkCanvasDashPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 172 */ - int (*tkOffsetParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 173 */ - CONST86 char * (*tkOffsetPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 174 */ - int (*tkPixelParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 175 */ - CONST86 char * (*tkPixelPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 176 */ - int (*tkOrientParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 177 */ - CONST86 char * (*tkOrientPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 178 */ - int (*tkSmoothParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 179 */ - CONST86 char * (*tkSmoothPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 180 */ - void (*tkDrawAngledTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, double angle, int firstChar, int lastChar); /* 181 */ - void (*tkUnderlineAngledTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, double angle, int underline); /* 182 */ - int (*tkIntersectAngledTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height, double angle); /* 183 */ - void (*tkDrawAngledChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int numBytes, double x, double y, double angle); /* 184 */ -} TkIntStubs; - -extern const TkIntStubs *tkIntStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#define TkAllocWindow \ - (tkIntStubsPtr->tkAllocWindow) /* 0 */ -#define TkBezierPoints \ - (tkIntStubsPtr->tkBezierPoints) /* 1 */ -#define TkBezierScreenPoints \ - (tkIntStubsPtr->tkBezierScreenPoints) /* 2 */ -/* Slot 3 is reserved */ -#define TkBindEventProc \ - (tkIntStubsPtr->tkBindEventProc) /* 4 */ -#define TkBindFree \ - (tkIntStubsPtr->tkBindFree) /* 5 */ -#define TkBindInit \ - (tkIntStubsPtr->tkBindInit) /* 6 */ -#define TkChangeEventWindow \ - (tkIntStubsPtr->tkChangeEventWindow) /* 7 */ -#define TkClipInit \ - (tkIntStubsPtr->tkClipInit) /* 8 */ -#define TkComputeAnchor \ - (tkIntStubsPtr->tkComputeAnchor) /* 9 */ -/* Slot 10 is reserved */ -/* Slot 11 is reserved */ -#define TkCreateCursorFromData \ - (tkIntStubsPtr->tkCreateCursorFromData) /* 12 */ -#define TkCreateFrame \ - (tkIntStubsPtr->tkCreateFrame) /* 13 */ -#define TkCreateMainWindow \ - (tkIntStubsPtr->tkCreateMainWindow) /* 14 */ -#define TkCurrentTime \ - (tkIntStubsPtr->tkCurrentTime) /* 15 */ -#define TkDeleteAllImages \ - (tkIntStubsPtr->tkDeleteAllImages) /* 16 */ -#define TkDoConfigureNotify \ - (tkIntStubsPtr->tkDoConfigureNotify) /* 17 */ -#define TkDrawInsetFocusHighlight \ - (tkIntStubsPtr->tkDrawInsetFocusHighlight) /* 18 */ -#define TkEventDeadWindow \ - (tkIntStubsPtr->tkEventDeadWindow) /* 19 */ -#define TkFillPolygon \ - (tkIntStubsPtr->tkFillPolygon) /* 20 */ -#define TkFindStateNum \ - (tkIntStubsPtr->tkFindStateNum) /* 21 */ -#define TkFindStateString \ - (tkIntStubsPtr->tkFindStateString) /* 22 */ -#define TkFocusDeadWindow \ - (tkIntStubsPtr->tkFocusDeadWindow) /* 23 */ -#define TkFocusFilterEvent \ - (tkIntStubsPtr->tkFocusFilterEvent) /* 24 */ -#define TkFocusKeyEvent \ - (tkIntStubsPtr->tkFocusKeyEvent) /* 25 */ -#define TkFontPkgInit \ - (tkIntStubsPtr->tkFontPkgInit) /* 26 */ -#define TkFontPkgFree \ - (tkIntStubsPtr->tkFontPkgFree) /* 27 */ -#define TkFreeBindingTags \ - (tkIntStubsPtr->tkFreeBindingTags) /* 28 */ -#define TkpFreeCursor \ - (tkIntStubsPtr->tkpFreeCursor) /* 29 */ -#define TkGetBitmapData \ - (tkIntStubsPtr->tkGetBitmapData) /* 30 */ -#define TkGetButtPoints \ - (tkIntStubsPtr->tkGetButtPoints) /* 31 */ -#define TkGetCursorByName \ - (tkIntStubsPtr->tkGetCursorByName) /* 32 */ -#define TkGetDefaultScreenName \ - (tkIntStubsPtr->tkGetDefaultScreenName) /* 33 */ -#define TkGetDisplay \ - (tkIntStubsPtr->tkGetDisplay) /* 34 */ -#define TkGetDisplayOf \ - (tkIntStubsPtr->tkGetDisplayOf) /* 35 */ -#define TkGetFocusWin \ - (tkIntStubsPtr->tkGetFocusWin) /* 36 */ -#define TkGetInterpNames \ - (tkIntStubsPtr->tkGetInterpNames) /* 37 */ -#define TkGetMiterPoints \ - (tkIntStubsPtr->tkGetMiterPoints) /* 38 */ -#define TkGetPointerCoords \ - (tkIntStubsPtr->tkGetPointerCoords) /* 39 */ -#define TkGetServerInfo \ - (tkIntStubsPtr->tkGetServerInfo) /* 40 */ -#define TkGrabDeadWindow \ - (tkIntStubsPtr->tkGrabDeadWindow) /* 41 */ -#define TkGrabState \ - (tkIntStubsPtr->tkGrabState) /* 42 */ -#define TkIncludePoint \ - (tkIntStubsPtr->tkIncludePoint) /* 43 */ -#define TkInOutEvents \ - (tkIntStubsPtr->tkInOutEvents) /* 44 */ -#define TkInstallFrameMenu \ - (tkIntStubsPtr->tkInstallFrameMenu) /* 45 */ -#define TkKeysymToString \ - (tkIntStubsPtr->tkKeysymToString) /* 46 */ -#define TkLineToArea \ - (tkIntStubsPtr->tkLineToArea) /* 47 */ -#define TkLineToPoint \ - (tkIntStubsPtr->tkLineToPoint) /* 48 */ -#define TkMakeBezierCurve \ - (tkIntStubsPtr->tkMakeBezierCurve) /* 49 */ -#define TkMakeBezierPostscript \ - (tkIntStubsPtr->tkMakeBezierPostscript) /* 50 */ -#define TkOptionClassChanged \ - (tkIntStubsPtr->tkOptionClassChanged) /* 51 */ -#define TkOptionDeadWindow \ - (tkIntStubsPtr->tkOptionDeadWindow) /* 52 */ -#define TkOvalToArea \ - (tkIntStubsPtr->tkOvalToArea) /* 53 */ -#define TkOvalToPoint \ - (tkIntStubsPtr->tkOvalToPoint) /* 54 */ -#define TkpChangeFocus \ - (tkIntStubsPtr->tkpChangeFocus) /* 55 */ -#define TkpCloseDisplay \ - (tkIntStubsPtr->tkpCloseDisplay) /* 56 */ -#define TkpClaimFocus \ - (tkIntStubsPtr->tkpClaimFocus) /* 57 */ -#define TkpDisplayWarning \ - (tkIntStubsPtr->tkpDisplayWarning) /* 58 */ -#define TkpGetAppName \ - (tkIntStubsPtr->tkpGetAppName) /* 59 */ -#define TkpGetOtherWindow \ - (tkIntStubsPtr->tkpGetOtherWindow) /* 60 */ -#define TkpGetWrapperWindow \ - (tkIntStubsPtr->tkpGetWrapperWindow) /* 61 */ -#define TkpInit \ - (tkIntStubsPtr->tkpInit) /* 62 */ -#define TkpInitializeMenuBindings \ - (tkIntStubsPtr->tkpInitializeMenuBindings) /* 63 */ -#define TkpMakeContainer \ - (tkIntStubsPtr->tkpMakeContainer) /* 64 */ -#define TkpMakeMenuWindow \ - (tkIntStubsPtr->tkpMakeMenuWindow) /* 65 */ -#define TkpMakeWindow \ - (tkIntStubsPtr->tkpMakeWindow) /* 66 */ -#define TkpMenuNotifyToplevelCreate \ - (tkIntStubsPtr->tkpMenuNotifyToplevelCreate) /* 67 */ -#define TkpOpenDisplay \ - (tkIntStubsPtr->tkpOpenDisplay) /* 68 */ -#define TkPointerEvent \ - (tkIntStubsPtr->tkPointerEvent) /* 69 */ -#define TkPolygonToArea \ - (tkIntStubsPtr->tkPolygonToArea) /* 70 */ -#define TkPolygonToPoint \ - (tkIntStubsPtr->tkPolygonToPoint) /* 71 */ -#define TkPositionInTree \ - (tkIntStubsPtr->tkPositionInTree) /* 72 */ -#define TkpRedirectKeyEvent \ - (tkIntStubsPtr->tkpRedirectKeyEvent) /* 73 */ -#define TkpSetMainMenubar \ - (tkIntStubsPtr->tkpSetMainMenubar) /* 74 */ -#define TkpUseWindow \ - (tkIntStubsPtr->tkpUseWindow) /* 75 */ -/* Slot 76 is reserved */ -#define TkQueueEventForAllChildren \ - (tkIntStubsPtr->tkQueueEventForAllChildren) /* 77 */ -#define TkReadBitmapFile \ - (tkIntStubsPtr->tkReadBitmapFile) /* 78 */ -#define TkScrollWindow \ - (tkIntStubsPtr->tkScrollWindow) /* 79 */ -#define TkSelDeadWindow \ - (tkIntStubsPtr->tkSelDeadWindow) /* 80 */ -#define TkSelEventProc \ - (tkIntStubsPtr->tkSelEventProc) /* 81 */ -#define TkSelInit \ - (tkIntStubsPtr->tkSelInit) /* 82 */ -#define TkSelPropProc \ - (tkIntStubsPtr->tkSelPropProc) /* 83 */ -/* Slot 84 is reserved */ -#define TkSetWindowMenuBar \ - (tkIntStubsPtr->tkSetWindowMenuBar) /* 85 */ -#define TkStringToKeysym \ - (tkIntStubsPtr->tkStringToKeysym) /* 86 */ -#define TkThickPolyLineToArea \ - (tkIntStubsPtr->tkThickPolyLineToArea) /* 87 */ -#define TkWmAddToColormapWindows \ - (tkIntStubsPtr->tkWmAddToColormapWindows) /* 88 */ -#define TkWmDeadWindow \ - (tkIntStubsPtr->tkWmDeadWindow) /* 89 */ -#define TkWmFocusToplevel \ - (tkIntStubsPtr->tkWmFocusToplevel) /* 90 */ -#define TkWmMapWindow \ - (tkIntStubsPtr->tkWmMapWindow) /* 91 */ -#define TkWmNewWindow \ - (tkIntStubsPtr->tkWmNewWindow) /* 92 */ -#define TkWmProtocolEventProc \ - (tkIntStubsPtr->tkWmProtocolEventProc) /* 93 */ -#define TkWmRemoveFromColormapWindows \ - (tkIntStubsPtr->tkWmRemoveFromColormapWindows) /* 94 */ -#define TkWmRestackToplevel \ - (tkIntStubsPtr->tkWmRestackToplevel) /* 95 */ -#define TkWmSetClass \ - (tkIntStubsPtr->tkWmSetClass) /* 96 */ -#define TkWmUnmapWindow \ - (tkIntStubsPtr->tkWmUnmapWindow) /* 97 */ -#define TkDebugBitmap \ - (tkIntStubsPtr->tkDebugBitmap) /* 98 */ -#define TkDebugBorder \ - (tkIntStubsPtr->tkDebugBorder) /* 99 */ -#define TkDebugCursor \ - (tkIntStubsPtr->tkDebugCursor) /* 100 */ -#define TkDebugColor \ - (tkIntStubsPtr->tkDebugColor) /* 101 */ -#define TkDebugConfig \ - (tkIntStubsPtr->tkDebugConfig) /* 102 */ -#define TkDebugFont \ - (tkIntStubsPtr->tkDebugFont) /* 103 */ -#define TkFindStateNumObj \ - (tkIntStubsPtr->tkFindStateNumObj) /* 104 */ -#define TkGetBitmapPredefTable \ - (tkIntStubsPtr->tkGetBitmapPredefTable) /* 105 */ -#define TkGetDisplayList \ - (tkIntStubsPtr->tkGetDisplayList) /* 106 */ -#define TkGetMainInfoList \ - (tkIntStubsPtr->tkGetMainInfoList) /* 107 */ -#define TkGetWindowFromObj \ - (tkIntStubsPtr->tkGetWindowFromObj) /* 108 */ -#define TkpGetString \ - (tkIntStubsPtr->tkpGetString) /* 109 */ -#define TkpGetSubFonts \ - (tkIntStubsPtr->tkpGetSubFonts) /* 110 */ -#define TkpGetSystemDefault \ - (tkIntStubsPtr->tkpGetSystemDefault) /* 111 */ -#define TkpMenuThreadInit \ - (tkIntStubsPtr->tkpMenuThreadInit) /* 112 */ -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -/* Slot 120 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkpCreateNativeBitmap \ - (tkIntStubsPtr->tkpCreateNativeBitmap) /* 121 */ -#endif /* AQUA */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkpDefineNativeBitmaps \ - (tkIntStubsPtr->tkpDefineNativeBitmaps) /* 122 */ -#endif /* AQUA */ -/* Slot 123 is reserved */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkpGetNativeAppBitmap \ - (tkIntStubsPtr->tkpGetNativeAppBitmap) /* 124 */ -#endif /* AQUA */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#define TkpDrawHighlightBorder \ - (tkIntStubsPtr->tkpDrawHighlightBorder) /* 135 */ -#define TkSetFocusWin \ - (tkIntStubsPtr->tkSetFocusWin) /* 136 */ -#define TkpSetKeycodeAndState \ - (tkIntStubsPtr->tkpSetKeycodeAndState) /* 137 */ -#define TkpGetKeySym \ - (tkIntStubsPtr->tkpGetKeySym) /* 138 */ -#define TkpInitKeymapInfo \ - (tkIntStubsPtr->tkpInitKeymapInfo) /* 139 */ -#define TkPhotoGetValidRegion \ - (tkIntStubsPtr->tkPhotoGetValidRegion) /* 140 */ -#define TkWmStackorderToplevel \ - (tkIntStubsPtr->tkWmStackorderToplevel) /* 141 */ -#define TkFocusFree \ - (tkIntStubsPtr->tkFocusFree) /* 142 */ -#define TkClipCleanup \ - (tkIntStubsPtr->tkClipCleanup) /* 143 */ -#define TkGCCleanup \ - (tkIntStubsPtr->tkGCCleanup) /* 144 */ -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#define TkStylePkgInit \ - (tkIntStubsPtr->tkStylePkgInit) /* 146 */ -#define TkStylePkgFree \ - (tkIntStubsPtr->tkStylePkgFree) /* 147 */ -#define TkToplevelWindowForCommand \ - (tkIntStubsPtr->tkToplevelWindowForCommand) /* 148 */ -#define TkGetOptionSpec \ - (tkIntStubsPtr->tkGetOptionSpec) /* 149 */ -#define TkMakeRawCurve \ - (tkIntStubsPtr->tkMakeRawCurve) /* 150 */ -#define TkMakeRawCurvePostscript \ - (tkIntStubsPtr->tkMakeRawCurvePostscript) /* 151 */ -#define TkpDrawFrame \ - (tkIntStubsPtr->tkpDrawFrame) /* 152 */ -#define TkCreateThreadExitHandler \ - (tkIntStubsPtr->tkCreateThreadExitHandler) /* 153 */ -#define TkDeleteThreadExitHandler \ - (tkIntStubsPtr->tkDeleteThreadExitHandler) /* 154 */ -/* Slot 155 is reserved */ -#define TkpTestembedCmd \ - (tkIntStubsPtr->tkpTestembedCmd) /* 156 */ -#define TkpTesttextCmd \ - (tkIntStubsPtr->tkpTesttextCmd) /* 157 */ -#define TkSelGetSelection \ - (tkIntStubsPtr->tkSelGetSelection) /* 158 */ -#define TkTextGetIndex \ - (tkIntStubsPtr->tkTextGetIndex) /* 159 */ -#define TkTextIndexBackBytes \ - (tkIntStubsPtr->tkTextIndexBackBytes) /* 160 */ -#define TkTextIndexForwBytes \ - (tkIntStubsPtr->tkTextIndexForwBytes) /* 161 */ -#define TkTextMakeByteIndex \ - (tkIntStubsPtr->tkTextMakeByteIndex) /* 162 */ -#define TkTextPrintIndex \ - (tkIntStubsPtr->tkTextPrintIndex) /* 163 */ -#define TkTextSetMark \ - (tkIntStubsPtr->tkTextSetMark) /* 164 */ -#define TkTextXviewCmd \ - (tkIntStubsPtr->tkTextXviewCmd) /* 165 */ -#define TkTextChanged \ - (tkIntStubsPtr->tkTextChanged) /* 166 */ -#define TkBTreeNumLines \ - (tkIntStubsPtr->tkBTreeNumLines) /* 167 */ -#define TkTextInsertDisplayProc \ - (tkIntStubsPtr->tkTextInsertDisplayProc) /* 168 */ -#define TkStateParseProc \ - (tkIntStubsPtr->tkStateParseProc) /* 169 */ -#define TkStatePrintProc \ - (tkIntStubsPtr->tkStatePrintProc) /* 170 */ -#define TkCanvasDashParseProc \ - (tkIntStubsPtr->tkCanvasDashParseProc) /* 171 */ -#define TkCanvasDashPrintProc \ - (tkIntStubsPtr->tkCanvasDashPrintProc) /* 172 */ -#define TkOffsetParseProc \ - (tkIntStubsPtr->tkOffsetParseProc) /* 173 */ -#define TkOffsetPrintProc \ - (tkIntStubsPtr->tkOffsetPrintProc) /* 174 */ -#define TkPixelParseProc \ - (tkIntStubsPtr->tkPixelParseProc) /* 175 */ -#define TkPixelPrintProc \ - (tkIntStubsPtr->tkPixelPrintProc) /* 176 */ -#define TkOrientParseProc \ - (tkIntStubsPtr->tkOrientParseProc) /* 177 */ -#define TkOrientPrintProc \ - (tkIntStubsPtr->tkOrientPrintProc) /* 178 */ -#define TkSmoothParseProc \ - (tkIntStubsPtr->tkSmoothParseProc) /* 179 */ -#define TkSmoothPrintProc \ - (tkIntStubsPtr->tkSmoothPrintProc) /* 180 */ -#define TkDrawAngledTextLayout \ - (tkIntStubsPtr->tkDrawAngledTextLayout) /* 181 */ -#define TkUnderlineAngledTextLayout \ - (tkIntStubsPtr->tkUnderlineAngledTextLayout) /* 182 */ -#define TkIntersectAngledTextLayout \ - (tkIntStubsPtr->tkIntersectAngledTextLayout) /* 183 */ -#define TkDrawAngledChars \ - (tkIntStubsPtr->tkDrawAngledChars) /* 184 */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -/* - * On X11, these macros are just wrappers for the equivalent X Region calls. - */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ - -#undef TkClipBox -#undef TkCreateRegion -#undef TkDestroyRegion -#undef TkIntersectRegion -#undef TkRectInRegion -#undef TkSetRegion -#undef TkSubtractRegion -#undef TkUnionRectWithRegion - -#define TkClipBox(rgn, rect) XClipBox((Region) rgn, rect) -#define TkCreateRegion() (TkRegion) XCreateRegion() -#define TkDestroyRegion(rgn) XDestroyRegion((Region) rgn) -#define TkIntersectRegion(a, b, r) XIntersectRegion((Region) a, \ - (Region) b, (Region) r) -#define TkRectInRegion(r, x, y, w, h) XRectInRegion((Region) r, x, y, w, h) -#define TkSetRegion(d, gc, rgn) XSetRegion(d, gc, (Region) rgn) -#define TkSubtractRegion(a, b, r) XSubtractRegion((Region) a, \ - (Region) b, (Region) r) -#define TkUnionRectWithRegion(rect, src, ret) XUnionRectWithRegion(rect, \ - (Region) src, (Region) ret) - -#endif /* UNIX */ - -#endif /* _TKINTDECLS */ - diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntPlatDecls.h deleted file mode 100644 index f496e5594..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntPlatDecls.h +++ /dev/null @@ -1,675 +0,0 @@ -/* - * tkIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTPLATDECLS -#define _TKINTPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN char * TkAlignImageData(XImage *image, int alignment, - int bitOrder); -/* Slot 1 is reserved */ -/* 2 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -/* 3 */ -EXTERN unsigned long TkpGetMS(void); -/* 4 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -/* 5 */ -EXTERN void TkpPrintWindowId(char *buf, Window window); -/* 6 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - const char *string, Window *idPtr); -/* 7 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -/* 8 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -/* 9 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -/* 10 */ -EXTERN void TkSetPixmapColormap(Pixmap pixmap, Colormap colormap); -/* 11 */ -EXTERN void TkWinCancelMouseTimer(void); -/* 12 */ -EXTERN void TkWinClipboardRender(TkDisplay *dispPtr, UINT format); -/* 13 */ -EXTERN LRESULT TkWinEmbeddedEventProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -/* 14 */ -EXTERN void TkWinFillRect(HDC dc, int x, int y, int width, - int height, int pixel); -/* 15 */ -EXTERN COLORREF TkWinGetBorderPixels(Tk_Window tkwin, - Tk_3DBorder border, int which); -/* 16 */ -EXTERN HDC TkWinGetDrawableDC(Display *display, Drawable d, - TkWinDCState *state); -/* 17 */ -EXTERN int TkWinGetModifierState(void); -/* 18 */ -EXTERN HPALETTE TkWinGetSystemPalette(void); -/* 19 */ -EXTERN HWND TkWinGetWrapperWindow(Tk_Window tkwin); -/* 20 */ -EXTERN int TkWinHandleMenuEvent(HWND *phwnd, UINT *pMessage, - WPARAM *pwParam, LPARAM *plParam, - LRESULT *plResult); -/* 21 */ -EXTERN int TkWinIndexOfColor(XColor *colorPtr); -/* 22 */ -EXTERN void TkWinReleaseDrawableDC(Drawable d, HDC hdc, - TkWinDCState *state); -/* 23 */ -EXTERN LRESULT TkWinResendEvent(WNDPROC wndproc, HWND hwnd, - XEvent *eventPtr); -/* 24 */ -EXTERN HPALETTE TkWinSelectPalette(HDC dc, Colormap colormap); -/* 25 */ -EXTERN void TkWinSetMenu(Tk_Window tkwin, HMENU hMenu); -/* 26 */ -EXTERN void TkWinSetWindowPos(HWND hwnd, HWND siblingHwnd, - int pos); -/* 27 */ -EXTERN void TkWinWmCleanup(HINSTANCE hInstance); -/* 28 */ -EXTERN void TkWinXCleanup(ClientData clientData); -/* 29 */ -EXTERN void TkWinXInit(HINSTANCE hInstance); -/* 30 */ -EXTERN void TkWinSetForegroundWindow(TkWindow *winPtr); -/* 31 */ -EXTERN void TkWinDialogDebug(int debug); -/* 32 */ -EXTERN Tcl_Obj * TkWinGetMenuSystemDefault(Tk_Window tkwin, - const char *dbName, const char *className); -/* 33 */ -EXTERN int TkWinGetPlatformId(void); -/* 34 */ -EXTERN void TkWinSetHINSTANCE(HINSTANCE hInstance); -/* 35 */ -EXTERN int TkWinGetPlatformTheme(void); -/* 36 */ -EXTERN LRESULT __stdcall TkWinChildProc(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam); -/* 37 */ -EXTERN void TkCreateXEventSource(void); -/* 38 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -/* 39 */ -EXTERN void TkpSync(Display *display); -/* 40 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -/* 41 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -/* 42 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -/* 43 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -/* 44 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -/* 45 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -/* Slot 46 is reserved */ -/* 47 */ -EXTERN Tk_Window TkpGetCapture(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 0 */ -EXTERN void TkGenerateActivateEvents(TkWindow *winPtr, - int active); -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN void TkPointerDeadWindow(TkWindow *winPtr); -/* 4 */ -EXTERN void TkpSetCapture(TkWindow *winPtr); -/* 5 */ -EXTERN void TkpSetCursor(TkpCursor cursor); -/* 6 */ -EXTERN void TkpWmSetState(TkWindow *winPtr, int state); -/* 7 */ -EXTERN void TkAboutDlg(void); -/* 8 */ -EXTERN unsigned int TkMacOSXButtonKeyState(void); -/* 9 */ -EXTERN void TkMacOSXClearMenubarActive(void); -/* 10 */ -EXTERN int TkMacOSXDispatchMenuEvent(int menuID, int index); -/* 11 */ -EXTERN void TkMacOSXInstallCursor(int resizeOverride); -/* 12 */ -EXTERN void TkMacOSXHandleTearoffMenu(void); -/* Slot 13 is reserved */ -/* 14 */ -EXTERN int TkMacOSXDoHLEvent(void *theEvent); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN Window TkMacOSXGetXWindow(void *macWinPtr); -/* 17 */ -EXTERN int TkMacOSXGrowToplevel(void *whichWindow, XPoint start); -/* 18 */ -EXTERN void TkMacOSXHandleMenuSelect(short theMenu, - unsigned short theItem, int optionKeyPressed); -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* 21 */ -EXTERN void TkMacOSXInvalidateWindow(MacDrawable *macWin, - int flag); -/* 22 */ -EXTERN int TkMacOSXIsCharacterMissing(Tk_Font tkfont, - unsigned int searchChar); -/* 23 */ -EXTERN void TkMacOSXMakeRealWindowExist(TkWindow *winPtr); -/* 24 */ -EXTERN void * TkMacOSXMakeStippleMap(Drawable d1, Drawable d2); -/* 25 */ -EXTERN void TkMacOSXMenuClick(void); -/* 26 */ -EXTERN void TkMacOSXRegisterOffScreenWindow(Window window, - void *portPtr); -/* 27 */ -EXTERN int TkMacOSXResizable(TkWindow *winPtr); -/* 28 */ -EXTERN void TkMacOSXSetHelpMenuItemCount(void); -/* 29 */ -EXTERN void TkMacOSXSetScrollbarGrow(TkWindow *winPtr, int flag); -/* 30 */ -EXTERN void TkMacOSXSetUpClippingRgn(Drawable drawable); -/* 31 */ -EXTERN void TkMacOSXSetUpGraphicsPort(GC gc, void *destPort); -/* 32 */ -EXTERN void TkMacOSXUpdateClipRgn(TkWindow *winPtr); -/* 33 */ -EXTERN void TkMacOSXUnregisterMacWindow(void *portPtr); -/* 34 */ -EXTERN int TkMacOSXUseMenuID(short macID); -/* 35 */ -EXTERN TkRegion TkMacOSXVisableClipRgn(TkWindow *winPtr); -/* 36 */ -EXTERN void TkMacOSXWinBounds(TkWindow *winPtr, void *geometry); -/* 37 */ -EXTERN void TkMacOSXWindowOffset(void *wRef, int *xOffset, - int *yOffset); -/* 38 */ -EXTERN int TkSetMacColor(unsigned long pixel, void *macColor); -/* 39 */ -EXTERN void TkSetWMName(TkWindow *winPtr, Tk_Uid titleUid); -/* Slot 40 is reserved */ -/* 41 */ -EXTERN int TkMacOSXZoomToplevel(void *whichWindow, - short zoomPart); -/* 42 */ -EXTERN Tk_Window Tk_TopCoordsToWindow(Tk_Window tkwin, int rootX, - int rootY, int *newX, int *newY); -/* 43 */ -EXTERN MacDrawable * TkMacOSXContainerId(TkWindow *winPtr); -/* 44 */ -EXTERN MacDrawable * TkMacOSXGetHostToplevel(TkWindow *winPtr); -/* 45 */ -EXTERN void TkMacOSXPreprocessMenu(void); -/* 46 */ -EXTERN int TkpIsWindowFloating(void *window); -/* 47 */ -EXTERN Tk_Window TkMacOSXGetCapture(void); -/* Slot 48 is reserved */ -/* 49 */ -EXTERN Tk_Window TkGetTransientMaster(TkWindow *winPtr); -/* 50 */ -EXTERN int TkGenerateButtonEvent(int x, int y, Window window, - unsigned int state); -/* 51 */ -EXTERN void TkGenWMDestroyEvent(Tk_Window tkwin); -/* 52 */ -EXTERN void TkMacOSXSetDrawingEnabled(TkWindow *winPtr, int flag); -/* 53 */ -EXTERN unsigned long TkpGetMS(void); -/* 54 */ -EXTERN void * TkMacOSXDrawable(Drawable drawable); -/* 55 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - const char *string, Window *idPtr); -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -/* 0 */ -EXTERN void TkCreateXEventSource(void); -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN int TkpCmapStressed(Tk_Window tkwin, Colormap colormap); -/* 4 */ -EXTERN void TkpSync(Display *display); -/* 5 */ -EXTERN Window TkUnixContainerId(TkWindow *winPtr); -/* 6 */ -EXTERN int TkUnixDoOneXEvent(Tcl_Time *timePtr); -/* 7 */ -EXTERN void TkUnixSetMenubar(Tk_Window tkwin, Tk_Window menubar); -/* 8 */ -EXTERN int TkpScanWindowId(Tcl_Interp *interp, - const char *string, Window *idPtr); -/* 9 */ -EXTERN void TkWmCleanup(TkDisplay *dispPtr); -/* 10 */ -EXTERN void TkSendCleanup(TkDisplay *dispPtr); -/* Slot 11 is reserved */ -/* 12 */ -EXTERN int TkpWmSetState(TkWindow *winPtr, int state); -/* 13 */ -EXTERN int TkpTestsendCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -#endif /* X11 */ - -typedef struct TkIntPlatStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - char * (*tkAlignImageData) (XImage *image, int alignment, int bitOrder); /* 0 */ - void (*reserved1)(void); - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 2 */ - unsigned long (*tkpGetMS) (void); /* 3 */ - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 4 */ - void (*tkpPrintWindowId) (char *buf, Window window); /* 5 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, const char *string, Window *idPtr); /* 6 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 7 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 8 */ - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 9 */ - void (*tkSetPixmapColormap) (Pixmap pixmap, Colormap colormap); /* 10 */ - void (*tkWinCancelMouseTimer) (void); /* 11 */ - void (*tkWinClipboardRender) (TkDisplay *dispPtr, UINT format); /* 12 */ - LRESULT (*tkWinEmbeddedEventProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 13 */ - void (*tkWinFillRect) (HDC dc, int x, int y, int width, int height, int pixel); /* 14 */ - COLORREF (*tkWinGetBorderPixels) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 15 */ - HDC (*tkWinGetDrawableDC) (Display *display, Drawable d, TkWinDCState *state); /* 16 */ - int (*tkWinGetModifierState) (void); /* 17 */ - HPALETTE (*tkWinGetSystemPalette) (void); /* 18 */ - HWND (*tkWinGetWrapperWindow) (Tk_Window tkwin); /* 19 */ - int (*tkWinHandleMenuEvent) (HWND *phwnd, UINT *pMessage, WPARAM *pwParam, LPARAM *plParam, LRESULT *plResult); /* 20 */ - int (*tkWinIndexOfColor) (XColor *colorPtr); /* 21 */ - void (*tkWinReleaseDrawableDC) (Drawable d, HDC hdc, TkWinDCState *state); /* 22 */ - LRESULT (*tkWinResendEvent) (WNDPROC wndproc, HWND hwnd, XEvent *eventPtr); /* 23 */ - HPALETTE (*tkWinSelectPalette) (HDC dc, Colormap colormap); /* 24 */ - void (*tkWinSetMenu) (Tk_Window tkwin, HMENU hMenu); /* 25 */ - void (*tkWinSetWindowPos) (HWND hwnd, HWND siblingHwnd, int pos); /* 26 */ - void (*tkWinWmCleanup) (HINSTANCE hInstance); /* 27 */ - void (*tkWinXCleanup) (ClientData clientData); /* 28 */ - void (*tkWinXInit) (HINSTANCE hInstance); /* 29 */ - void (*tkWinSetForegroundWindow) (TkWindow *winPtr); /* 30 */ - void (*tkWinDialogDebug) (int debug); /* 31 */ - Tcl_Obj * (*tkWinGetMenuSystemDefault) (Tk_Window tkwin, const char *dbName, const char *className); /* 32 */ - int (*tkWinGetPlatformId) (void); /* 33 */ - void (*tkWinSetHINSTANCE) (HINSTANCE hInstance); /* 34 */ - int (*tkWinGetPlatformTheme) (void); /* 35 */ - LRESULT (__stdcall *tkWinChildProc) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam); /* 36 */ - void (*tkCreateXEventSource) (void); /* 37 */ - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 38 */ - void (*tkpSync) (Display *display); /* 39 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 40 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 41 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 42 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 43 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 44 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 45 */ - void (*reserved46)(void); - Tk_Window (*tkpGetCapture) (void); /* 47 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tkGenerateActivateEvents) (TkWindow *winPtr, int active); /* 0 */ - void (*reserved1)(void); - void (*reserved2)(void); - void (*tkPointerDeadWindow) (TkWindow *winPtr); /* 3 */ - void (*tkpSetCapture) (TkWindow *winPtr); /* 4 */ - void (*tkpSetCursor) (TkpCursor cursor); /* 5 */ - void (*tkpWmSetState) (TkWindow *winPtr, int state); /* 6 */ - void (*tkAboutDlg) (void); /* 7 */ - unsigned int (*tkMacOSXButtonKeyState) (void); /* 8 */ - void (*tkMacOSXClearMenubarActive) (void); /* 9 */ - int (*tkMacOSXDispatchMenuEvent) (int menuID, int index); /* 10 */ - void (*tkMacOSXInstallCursor) (int resizeOverride); /* 11 */ - void (*tkMacOSXHandleTearoffMenu) (void); /* 12 */ - void (*reserved13)(void); - int (*tkMacOSXDoHLEvent) (void *theEvent); /* 14 */ - void (*reserved15)(void); - Window (*tkMacOSXGetXWindow) (void *macWinPtr); /* 16 */ - int (*tkMacOSXGrowToplevel) (void *whichWindow, XPoint start); /* 17 */ - void (*tkMacOSXHandleMenuSelect) (short theMenu, unsigned short theItem, int optionKeyPressed); /* 18 */ - void (*reserved19)(void); - void (*reserved20)(void); - void (*tkMacOSXInvalidateWindow) (MacDrawable *macWin, int flag); /* 21 */ - int (*tkMacOSXIsCharacterMissing) (Tk_Font tkfont, unsigned int searchChar); /* 22 */ - void (*tkMacOSXMakeRealWindowExist) (TkWindow *winPtr); /* 23 */ - void * (*tkMacOSXMakeStippleMap) (Drawable d1, Drawable d2); /* 24 */ - void (*tkMacOSXMenuClick) (void); /* 25 */ - void (*tkMacOSXRegisterOffScreenWindow) (Window window, void *portPtr); /* 26 */ - int (*tkMacOSXResizable) (TkWindow *winPtr); /* 27 */ - void (*tkMacOSXSetHelpMenuItemCount) (void); /* 28 */ - void (*tkMacOSXSetScrollbarGrow) (TkWindow *winPtr, int flag); /* 29 */ - void (*tkMacOSXSetUpClippingRgn) (Drawable drawable); /* 30 */ - void (*tkMacOSXSetUpGraphicsPort) (GC gc, void *destPort); /* 31 */ - void (*tkMacOSXUpdateClipRgn) (TkWindow *winPtr); /* 32 */ - void (*tkMacOSXUnregisterMacWindow) (void *portPtr); /* 33 */ - int (*tkMacOSXUseMenuID) (short macID); /* 34 */ - TkRegion (*tkMacOSXVisableClipRgn) (TkWindow *winPtr); /* 35 */ - void (*tkMacOSXWinBounds) (TkWindow *winPtr, void *geometry); /* 36 */ - void (*tkMacOSXWindowOffset) (void *wRef, int *xOffset, int *yOffset); /* 37 */ - int (*tkSetMacColor) (unsigned long pixel, void *macColor); /* 38 */ - void (*tkSetWMName) (TkWindow *winPtr, Tk_Uid titleUid); /* 39 */ - void (*reserved40)(void); - int (*tkMacOSXZoomToplevel) (void *whichWindow, short zoomPart); /* 41 */ - Tk_Window (*tk_TopCoordsToWindow) (Tk_Window tkwin, int rootX, int rootY, int *newX, int *newY); /* 42 */ - MacDrawable * (*tkMacOSXContainerId) (TkWindow *winPtr); /* 43 */ - MacDrawable * (*tkMacOSXGetHostToplevel) (TkWindow *winPtr); /* 44 */ - void (*tkMacOSXPreprocessMenu) (void); /* 45 */ - int (*tkpIsWindowFloating) (void *window); /* 46 */ - Tk_Window (*tkMacOSXGetCapture) (void); /* 47 */ - void (*reserved48)(void); - Tk_Window (*tkGetTransientMaster) (TkWindow *winPtr); /* 49 */ - int (*tkGenerateButtonEvent) (int x, int y, Window window, unsigned int state); /* 50 */ - void (*tkGenWMDestroyEvent) (Tk_Window tkwin); /* 51 */ - void (*tkMacOSXSetDrawingEnabled) (TkWindow *winPtr, int flag); /* 52 */ - unsigned long (*tkpGetMS) (void); /* 53 */ - void * (*tkMacOSXDrawable) (Drawable drawable); /* 54 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, const char *string, Window *idPtr); /* 55 */ -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ - void (*tkCreateXEventSource) (void); /* 0 */ - void (*reserved1)(void); - void (*reserved2)(void); - int (*tkpCmapStressed) (Tk_Window tkwin, Colormap colormap); /* 3 */ - void (*tkpSync) (Display *display); /* 4 */ - Window (*tkUnixContainerId) (TkWindow *winPtr); /* 5 */ - int (*tkUnixDoOneXEvent) (Tcl_Time *timePtr); /* 6 */ - void (*tkUnixSetMenubar) (Tk_Window tkwin, Tk_Window menubar); /* 7 */ - int (*tkpScanWindowId) (Tcl_Interp *interp, const char *string, Window *idPtr); /* 8 */ - void (*tkWmCleanup) (TkDisplay *dispPtr); /* 9 */ - void (*tkSendCleanup) (TkDisplay *dispPtr); /* 10 */ - void (*reserved11)(void); - int (*tkpWmSetState) (TkWindow *winPtr, int state); /* 12 */ - int (*tkpTestsendCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 13 */ -#endif /* X11 */ -} TkIntPlatStubs; - -extern const TkIntPlatStubs *tkIntPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define TkAlignImageData \ - (tkIntPlatStubsPtr->tkAlignImageData) /* 0 */ -/* Slot 1 is reserved */ -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 2 */ -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 3 */ -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 4 */ -#define TkpPrintWindowId \ - (tkIntPlatStubsPtr->tkpPrintWindowId) /* 5 */ -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 6 */ -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 7 */ -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 8 */ -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 9 */ -#define TkSetPixmapColormap \ - (tkIntPlatStubsPtr->tkSetPixmapColormap) /* 10 */ -#define TkWinCancelMouseTimer \ - (tkIntPlatStubsPtr->tkWinCancelMouseTimer) /* 11 */ -#define TkWinClipboardRender \ - (tkIntPlatStubsPtr->tkWinClipboardRender) /* 12 */ -#define TkWinEmbeddedEventProc \ - (tkIntPlatStubsPtr->tkWinEmbeddedEventProc) /* 13 */ -#define TkWinFillRect \ - (tkIntPlatStubsPtr->tkWinFillRect) /* 14 */ -#define TkWinGetBorderPixels \ - (tkIntPlatStubsPtr->tkWinGetBorderPixels) /* 15 */ -#define TkWinGetDrawableDC \ - (tkIntPlatStubsPtr->tkWinGetDrawableDC) /* 16 */ -#define TkWinGetModifierState \ - (tkIntPlatStubsPtr->tkWinGetModifierState) /* 17 */ -#define TkWinGetSystemPalette \ - (tkIntPlatStubsPtr->tkWinGetSystemPalette) /* 18 */ -#define TkWinGetWrapperWindow \ - (tkIntPlatStubsPtr->tkWinGetWrapperWindow) /* 19 */ -#define TkWinHandleMenuEvent \ - (tkIntPlatStubsPtr->tkWinHandleMenuEvent) /* 20 */ -#define TkWinIndexOfColor \ - (tkIntPlatStubsPtr->tkWinIndexOfColor) /* 21 */ -#define TkWinReleaseDrawableDC \ - (tkIntPlatStubsPtr->tkWinReleaseDrawableDC) /* 22 */ -#define TkWinResendEvent \ - (tkIntPlatStubsPtr->tkWinResendEvent) /* 23 */ -#define TkWinSelectPalette \ - (tkIntPlatStubsPtr->tkWinSelectPalette) /* 24 */ -#define TkWinSetMenu \ - (tkIntPlatStubsPtr->tkWinSetMenu) /* 25 */ -#define TkWinSetWindowPos \ - (tkIntPlatStubsPtr->tkWinSetWindowPos) /* 26 */ -#define TkWinWmCleanup \ - (tkIntPlatStubsPtr->tkWinWmCleanup) /* 27 */ -#define TkWinXCleanup \ - (tkIntPlatStubsPtr->tkWinXCleanup) /* 28 */ -#define TkWinXInit \ - (tkIntPlatStubsPtr->tkWinXInit) /* 29 */ -#define TkWinSetForegroundWindow \ - (tkIntPlatStubsPtr->tkWinSetForegroundWindow) /* 30 */ -#define TkWinDialogDebug \ - (tkIntPlatStubsPtr->tkWinDialogDebug) /* 31 */ -#define TkWinGetMenuSystemDefault \ - (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault) /* 32 */ -#define TkWinGetPlatformId \ - (tkIntPlatStubsPtr->tkWinGetPlatformId) /* 33 */ -#define TkWinSetHINSTANCE \ - (tkIntPlatStubsPtr->tkWinSetHINSTANCE) /* 34 */ -#define TkWinGetPlatformTheme \ - (tkIntPlatStubsPtr->tkWinGetPlatformTheme) /* 35 */ -#define TkWinChildProc \ - (tkIntPlatStubsPtr->tkWinChildProc) /* 36 */ -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 37 */ -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 38 */ -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 39 */ -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 40 */ -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 41 */ -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 42 */ -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 43 */ -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 44 */ -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 45 */ -/* Slot 46 is reserved */ -#define TkpGetCapture \ - (tkIntPlatStubsPtr->tkpGetCapture) /* 47 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 0 */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 3 */ -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 4 */ -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 5 */ -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 6 */ -#define TkAboutDlg \ - (tkIntPlatStubsPtr->tkAboutDlg) /* 7 */ -#define TkMacOSXButtonKeyState \ - (tkIntPlatStubsPtr->tkMacOSXButtonKeyState) /* 8 */ -#define TkMacOSXClearMenubarActive \ - (tkIntPlatStubsPtr->tkMacOSXClearMenubarActive) /* 9 */ -#define TkMacOSXDispatchMenuEvent \ - (tkIntPlatStubsPtr->tkMacOSXDispatchMenuEvent) /* 10 */ -#define TkMacOSXInstallCursor \ - (tkIntPlatStubsPtr->tkMacOSXInstallCursor) /* 11 */ -#define TkMacOSXHandleTearoffMenu \ - (tkIntPlatStubsPtr->tkMacOSXHandleTearoffMenu) /* 12 */ -/* Slot 13 is reserved */ -#define TkMacOSXDoHLEvent \ - (tkIntPlatStubsPtr->tkMacOSXDoHLEvent) /* 14 */ -/* Slot 15 is reserved */ -#define TkMacOSXGetXWindow \ - (tkIntPlatStubsPtr->tkMacOSXGetXWindow) /* 16 */ -#define TkMacOSXGrowToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGrowToplevel) /* 17 */ -#define TkMacOSXHandleMenuSelect \ - (tkIntPlatStubsPtr->tkMacOSXHandleMenuSelect) /* 18 */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#define TkMacOSXInvalidateWindow \ - (tkIntPlatStubsPtr->tkMacOSXInvalidateWindow) /* 21 */ -#define TkMacOSXIsCharacterMissing \ - (tkIntPlatStubsPtr->tkMacOSXIsCharacterMissing) /* 22 */ -#define TkMacOSXMakeRealWindowExist \ - (tkIntPlatStubsPtr->tkMacOSXMakeRealWindowExist) /* 23 */ -#define TkMacOSXMakeStippleMap \ - (tkIntPlatStubsPtr->tkMacOSXMakeStippleMap) /* 24 */ -#define TkMacOSXMenuClick \ - (tkIntPlatStubsPtr->tkMacOSXMenuClick) /* 25 */ -#define TkMacOSXRegisterOffScreenWindow \ - (tkIntPlatStubsPtr->tkMacOSXRegisterOffScreenWindow) /* 26 */ -#define TkMacOSXResizable \ - (tkIntPlatStubsPtr->tkMacOSXResizable) /* 27 */ -#define TkMacOSXSetHelpMenuItemCount \ - (tkIntPlatStubsPtr->tkMacOSXSetHelpMenuItemCount) /* 28 */ -#define TkMacOSXSetScrollbarGrow \ - (tkIntPlatStubsPtr->tkMacOSXSetScrollbarGrow) /* 29 */ -#define TkMacOSXSetUpClippingRgn \ - (tkIntPlatStubsPtr->tkMacOSXSetUpClippingRgn) /* 30 */ -#define TkMacOSXSetUpGraphicsPort \ - (tkIntPlatStubsPtr->tkMacOSXSetUpGraphicsPort) /* 31 */ -#define TkMacOSXUpdateClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXUpdateClipRgn) /* 32 */ -#define TkMacOSXUnregisterMacWindow \ - (tkIntPlatStubsPtr->tkMacOSXUnregisterMacWindow) /* 33 */ -#define TkMacOSXUseMenuID \ - (tkIntPlatStubsPtr->tkMacOSXUseMenuID) /* 34 */ -#define TkMacOSXVisableClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXVisableClipRgn) /* 35 */ -#define TkMacOSXWinBounds \ - (tkIntPlatStubsPtr->tkMacOSXWinBounds) /* 36 */ -#define TkMacOSXWindowOffset \ - (tkIntPlatStubsPtr->tkMacOSXWindowOffset) /* 37 */ -#define TkSetMacColor \ - (tkIntPlatStubsPtr->tkSetMacColor) /* 38 */ -#define TkSetWMName \ - (tkIntPlatStubsPtr->tkSetWMName) /* 39 */ -/* Slot 40 is reserved */ -#define TkMacOSXZoomToplevel \ - (tkIntPlatStubsPtr->tkMacOSXZoomToplevel) /* 41 */ -#define Tk_TopCoordsToWindow \ - (tkIntPlatStubsPtr->tk_TopCoordsToWindow) /* 42 */ -#define TkMacOSXContainerId \ - (tkIntPlatStubsPtr->tkMacOSXContainerId) /* 43 */ -#define TkMacOSXGetHostToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGetHostToplevel) /* 44 */ -#define TkMacOSXPreprocessMenu \ - (tkIntPlatStubsPtr->tkMacOSXPreprocessMenu) /* 45 */ -#define TkpIsWindowFloating \ - (tkIntPlatStubsPtr->tkpIsWindowFloating) /* 46 */ -#define TkMacOSXGetCapture \ - (tkIntPlatStubsPtr->tkMacOSXGetCapture) /* 47 */ -/* Slot 48 is reserved */ -#define TkGetTransientMaster \ - (tkIntPlatStubsPtr->tkGetTransientMaster) /* 49 */ -#define TkGenerateButtonEvent \ - (tkIntPlatStubsPtr->tkGenerateButtonEvent) /* 50 */ -#define TkGenWMDestroyEvent \ - (tkIntPlatStubsPtr->tkGenWMDestroyEvent) /* 51 */ -#define TkMacOSXSetDrawingEnabled \ - (tkIntPlatStubsPtr->tkMacOSXSetDrawingEnabled) /* 52 */ -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 53 */ -#define TkMacOSXDrawable \ - (tkIntPlatStubsPtr->tkMacOSXDrawable) /* 54 */ -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 55 */ -#endif /* AQUA */ -#if !(defined(_WIN32) || defined(__CYGWIN__) || defined(MAC_OSX_TK)) /* X11 */ -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 0 */ -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 3 */ -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 4 */ -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 5 */ -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 6 */ -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 7 */ -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 8 */ -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 9 */ -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 10 */ -/* Slot 11 is reserved */ -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 12 */ -#define TkpTestsendCmd \ - (tkIntPlatStubsPtr->tkpTestsendCmd) /* 13 */ -#endif /* X11 */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINTPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntXlibDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntXlibDecls.h deleted file mode 100644 index f1b0018a3..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkIntXlibDecls.h +++ /dev/null @@ -1,1682 +0,0 @@ -/* - * tkIntXlibDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - */ - -#ifndef _TKINTXLIBDECLS -#define _TKINTXLIBDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -#ifndef _TCL -# include -#endif - -/* Some (older) versions of X11/Xutil.h have a wrong signature of those - two functions, so move them out of the way temporarly. */ -#define XOffsetRegion _XOffsetRegion -#define XUnionRegion _XUnionRegion -#include "X11/Xutil.h" -#undef XOffsetRegion -#undef XUnionRegion - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ - Display* /* display */ -); - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -/* 7 */ -EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2, - XColor *x1, XColor *x2, unsigned int ui1, - unsigned int ui2); -/* 8 */ -EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2, - unsigned int ui1, unsigned int ui2, - XColor _Xconst *x1, XColor _Xconst *x2); -/* 9 */ -EXTERN GContext XGContextFromGC(GC g); -/* 10 */ -EXTERN XHostAddress * XListHosts(Display *d, int *i, Bool *b); -/* 11 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, unsigned int k, int i); -/* 12 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -/* 13 */ -EXTERN Window XRootWindow(Display *d, int i); -/* 14 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -/* 15 */ -EXTERN Status XIconifyWindow(Display *d, Window w, int i); -/* 16 */ -EXTERN Status XWithdrawWindow(Display *d, Window w, int i); -/* 17 */ -EXTERN Status XGetWMColormapWindows(Display *d, Window w, - Window **wpp, int *ip); -/* 18 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -/* 19 */ -EXTERN int XBell(Display *d, int i); -/* 20 */ -EXTERN int XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -/* 21 */ -EXTERN int XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -/* 22 */ -EXTERN int XClearWindow(Display *d, Window w); -/* 23 */ -EXTERN int XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -/* 24 */ -EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -/* 25 */ -EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -/* 26 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -/* 27 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -/* 28 */ -EXTERN int XDeleteProperty(Display *d, Window w, Atom a); -/* 29 */ -EXTERN int XDestroyWindow(Display *d, Window w); -/* 30 */ -EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 31 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -/* 32 */ -EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 33 */ -EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 34 */ -EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -/* 35 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -/* 36 */ -EXTERN int XForceScreenSaver(Display *d, int i); -/* 37 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -/* 38 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -/* 39 */ -EXTERN int XFreeCursor(Display *d, Cursor c); -/* 40 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -/* 41 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -/* 42 */ -EXTERN int XGetInputFocus(Display *d, Window *w, int *i); -/* 43 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -/* 44 */ -EXTERN Status XGetWindowAttributes(Display *d, Window w, - XWindowAttributes *x); -/* 45 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -/* 46 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -/* 47 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -/* 48 */ -EXTERN Status XLookupColor(Display *d, Colormap c1, - _Xconst char *c2, XColor *x1, XColor *x2); -/* 49 */ -EXTERN int XMapWindow(Display *d, Window w); -/* 50 */ -EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 51 */ -EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); -/* 52 */ -EXTERN int XNextEvent(Display *d, XEvent *x); -/* 53 */ -EXTERN int XPutBackEvent(Display *d, XEvent *x); -/* 54 */ -EXTERN int XQueryColors(Display *d, Colormap c, XColor *x, - int i); -/* 55 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -/* 56 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -/* 57 */ -EXTERN int XRaiseWindow(Display *d, Window w); -/* 58 */ -EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); -/* 59 */ -EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -/* 60 */ -EXTERN int XSelectInput(Display *d, Window w, long l); -/* 61 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -/* 62 */ -EXTERN int XSetCommand(Display *d, Window w, char **c, int i); -/* 63 */ -EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); -/* 64 */ -EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); -/* 65 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -/* 66 */ -EXTERN int XSetWindowBackground(Display *d, Window w, - unsigned long ul); -/* 67 */ -EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -/* 68 */ -EXTERN int XSetWindowBorder(Display *d, Window w, - unsigned long ul); -/* 69 */ -EXTERN int XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -/* 70 */ -EXTERN int XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -/* 71 */ -EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); -/* 72 */ -EXTERN Bool XTranslateCoordinates(Display *d, Window w1, - Window w2, int i1, int i2, int *i3, int *i4, - Window *w3); -/* 73 */ -EXTERN int XUngrabKeyboard(Display *d, Time t); -/* 74 */ -EXTERN int XUngrabPointer(Display *d, Time t); -/* 75 */ -EXTERN int XUnmapWindow(Display *d, Window w); -/* 76 */ -EXTERN int XWindowEvent(Display *d, Window w, long l, XEvent *x); -/* 77 */ -EXTERN void XDestroyIC(XIC x); -/* 78 */ -EXTERN Bool XFilterEvent(XEvent *x, Window w); -/* 79 */ -EXTERN int XmbLookupString(XIC xi, XKeyPressedEvent *xk, - char *c, int i, KeySym *k, Status *s); -/* 80 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -/* Slot 81 is reserved */ -/* 82 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -/* 83 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -/* 84 */ -EXTERN int XFreeGC(Display *display, GC gc); -/* 85 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -/* 86 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -/* 87 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -/* 88 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -/* 89 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -/* 90 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -/* 91 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -/* 92 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -/* 93 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -/* 94 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -/* 95 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -/* 96 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -/* 97 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -/* 98 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -/* 99 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -/* 100 */ -EXTERN XIC XCreateIC(XIM xim, ...); -/* 101 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -/* 102 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -/* 103 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -/* 104 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -/* 105 */ -EXTERN int XWarpPointer(Display *d, Window s, Window dw, int sx, - int sy, unsigned int sw, unsigned int sh, - int dx, int dy); -/* 106 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -/* 107 */ -EXTERN int XFlush(Display *display); -/* 108 */ -EXTERN int XGrabServer(Display *display); -/* 109 */ -EXTERN int XUngrabServer(Display *display); -/* 110 */ -EXTERN int XFree(void *data); -/* 111 */ -EXTERN int XNoOp(Display *display); -/* 112 */ -EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); -/* 113 */ -EXTERN int XSync(Display *display, Bool discard); -/* 114 */ -EXTERN VisualID XVisualIDFromVisual(Visual *visual); -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* 120 */ -EXTERN int XOffsetRegion(Region rgn, int dx, int dy); -/* 121 */ -EXTERN int XUnionRegion(Region srca, Region srcb, - Region dr_return); -/* 122 */ -EXTERN Window XCreateWindow(Display *display, Window parent, int x, - int y, unsigned int width, - unsigned int height, - unsigned int border_width, int depth, - unsigned int clazz, Visual *visual, - unsigned long value_mask, - XSetWindowAttributes *attributes); -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* 129 */ -EXTERN int XLowerWindow(Display *d, Window w); -/* 130 */ -EXTERN int XFillArcs(Display *d, Drawable dr, GC gc, XArc *a, - int n); -/* 131 */ -EXTERN int XDrawArcs(Display *d, Drawable dr, GC gc, XArc *a, - int n); -/* 132 */ -EXTERN int XDrawRectangles(Display *d, Drawable dr, GC gc, - XRectangle *r, int n); -/* 133 */ -EXTERN int XDrawSegments(Display *d, Drawable dr, GC gc, - XSegment *s, int n); -/* 134 */ -EXTERN int XDrawPoint(Display *d, Drawable dr, GC gc, int x, - int y); -/* 135 */ -EXTERN int XDrawPoints(Display *d, Drawable dr, GC gc, - XPoint *p, int n, int m); -/* 136 */ -EXTERN int XReparentWindow(Display *d, Window w, Window p, - int x, int y); -/* 137 */ -EXTERN int XPutImage(Display *d, Drawable dr, GC gc, XImage *im, - int sx, int sy, int dx, int dy, - unsigned int w, unsigned int h); -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 0 */ -EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, - _Xconst char *dash_list, int n); -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping(Display *d); -/* 2 */ -EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, - int i1, int i2, char *cp, unsigned int ui2, - unsigned int ui3, int i3, int i4); -/* 3 */ -EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -/* 4 */ -EXTERN char * XGetAtomName(Display *d, Atom a); -/* 5 */ -EXTERN char * XKeysymToString(KeySym k); -/* 6 */ -EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, - int i); -/* 7 */ -EXTERN GContext XGContextFromGC(GC g); -/* 8 */ -EXTERN KeySym XKeycodeToKeysym(Display *d, KeyCode k, int i); -/* 9 */ -EXTERN KeySym XStringToKeysym(_Xconst char *c); -/* 10 */ -EXTERN Window XRootWindow(Display *d, int i); -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); -/* 12 */ -EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); -/* 13 */ -EXTERN int XBell(Display *d, int i); -/* 14 */ -EXTERN int XChangeProperty(Display *d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char *c, int i3); -/* 15 */ -EXTERN int XChangeWindowAttributes(Display *d, Window w, - unsigned long ul, XSetWindowAttributes *x); -/* 16 */ -EXTERN int XConfigureWindow(Display *d, Window w, - unsigned int i, XWindowChanges *x); -/* 17 */ -EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -/* 18 */ -EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, - _Xconst char *data, unsigned int width, - unsigned int height); -/* 20 */ -EXTERN int XDefineCursor(Display *d, Window w, Cursor c); -/* 21 */ -EXTERN int XDestroyWindow(Display *d, Window w); -/* 22 */ -EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 23 */ -EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, - int i1, int i2); -/* 24 */ -EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 25 */ -EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -/* 26 */ -EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, - XPoint *x, int i1, int i2, int i3); -/* 27 */ -EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, - XRectangle *x, int i); -/* 28 */ -EXTERN int XFreeColormap(Display *d, Colormap c); -/* 29 */ -EXTERN int XFreeColors(Display *d, Colormap c, - unsigned long *ulp, int i, unsigned long ul); -/* 30 */ -EXTERN int XFreeModifiermap(XModifierKeymap *x); -/* 31 */ -EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, - int *i1, int *i2, unsigned int *ui1, - unsigned int *ui2, unsigned int *ui3, - unsigned int *ui4); -/* 32 */ -EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom *ap, - int *ip, unsigned long *ulp1, - unsigned long *ulp2, unsigned char **cpp); -/* 33 */ -EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, - int i2, Time t); -/* 34 */ -EXTERN int XGrabPointer(Display *d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -/* 35 */ -EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); -/* 36 */ -EXTERN int XMapWindow(Display *d, Window w); -/* 37 */ -EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -/* 38 */ -EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); -/* 39 */ -EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, - Window *w3, int *i1, int *i2, int *i3, - int *i4, unsigned int *ui); -/* 40 */ -EXTERN int XRaiseWindow(Display *d, Window w); -/* 41 */ -EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); -/* 42 */ -EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, - unsigned int ui2); -/* 43 */ -EXTERN int XSelectInput(Display *d, Window w, long l); -/* 44 */ -EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, - XEvent *x); -/* 45 */ -EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); -/* 46 */ -EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); -/* 47 */ -EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, - Time t); -/* 48 */ -EXTERN int XSetWindowBackground(Display *d, Window w, - unsigned long ul); -/* 49 */ -EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, - Pixmap p); -/* 50 */ -EXTERN int XSetWindowBorder(Display *d, Window w, - unsigned long ul); -/* 51 */ -EXTERN int XSetWindowBorderPixmap(Display *d, Window w, - Pixmap p); -/* 52 */ -EXTERN int XSetWindowBorderWidth(Display *d, Window w, - unsigned int ui); -/* 53 */ -EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); -/* 54 */ -EXTERN int XUngrabKeyboard(Display *d, Time t); -/* 55 */ -EXTERN int XUngrabPointer(Display *d, Time t); -/* 56 */ -EXTERN int XUnmapWindow(Display *d, Window w); -/* 57 */ -EXTERN int TkPutImage(unsigned long *colors, int ncolors, - Display *display, Drawable d, GC gc, - XImage *image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -/* 58 */ -EXTERN Status XParseColor(Display *display, Colormap map, - _Xconst char *spec, XColor *colorPtr); -/* 59 */ -EXTERN GC XCreateGC(Display *display, Drawable d, - unsigned long valuemask, XGCValues *values); -/* 60 */ -EXTERN int XFreeGC(Display *display, GC gc); -/* 61 */ -EXTERN Atom XInternAtom(Display *display, - _Xconst char *atom_name, Bool only_if_exists); -/* 62 */ -EXTERN int XSetBackground(Display *display, GC gc, - unsigned long foreground); -/* 63 */ -EXTERN int XSetForeground(Display *display, GC gc, - unsigned long foreground); -/* 64 */ -EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); -/* 65 */ -EXTERN int XSetClipOrigin(Display *display, GC gc, - int clip_x_origin, int clip_y_origin); -/* 66 */ -EXTERN int XSetTSOrigin(Display *display, GC gc, - int ts_x_origin, int ts_y_origin); -/* 67 */ -EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, - XGCValues *values); -/* 68 */ -EXTERN int XSetFont(Display *display, GC gc, Font font); -/* 69 */ -EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); -/* 70 */ -EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); -/* 71 */ -EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); -/* 72 */ -EXTERN int XSetFillStyle(Display *display, GC gc, - int fill_style); -/* 73 */ -EXTERN int XSetFunction(Display *display, GC gc, int function); -/* 74 */ -EXTERN int XSetLineAttributes(Display *display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -/* 75 */ -EXTERN int _XInitImageFuncPtrs(XImage *image); -/* 76 */ -EXTERN XIC XCreateIC(XIM xim, ...); -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, - XVisualInfo *vinfo_template, - int *nitems_return); -/* 78 */ -EXTERN void XSetWMClientMachine(Display *display, Window w, - XTextProperty *text_prop); -/* 79 */ -EXTERN Status XStringListToTextProperty(char **list, int count, - XTextProperty *text_prop_return); -/* 80 */ -EXTERN int XDrawSegments(Display *display, Drawable d, GC gc, - XSegment *segments, int nsegments); -/* 81 */ -EXTERN int XForceScreenSaver(Display *display, int mode); -/* 82 */ -EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -/* 83 */ -EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -/* 84 */ -EXTERN int XClearWindow(Display *d, Window w); -/* 85 */ -EXTERN int XDrawPoint(Display *display, Drawable d, GC gc, - int x, int y); -/* 86 */ -EXTERN int XDrawPoints(Display *display, Drawable d, GC gc, - XPoint *points, int npoints, int mode); -/* 87 */ -EXTERN int XWarpPointer(Display *display, Window src_w, - Window dest_w, int src_x, int src_y, - unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y); -/* 88 */ -EXTERN int XQueryColor(Display *display, Colormap colormap, - XColor *def_in_out); -/* 89 */ -EXTERN int XQueryColors(Display *display, Colormap colormap, - XColor *defs_in_out, int ncolors); -/* 90 */ -EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, - Window *w3, Window **w4, unsigned int *ui); -/* 91 */ -EXTERN int XSync(Display *display, Bool discard); -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* 107 */ -EXTERN int XFlush(Display *display); -/* 108 */ -EXTERN int XGrabServer(Display *display); -/* 109 */ -EXTERN int XUngrabServer(Display *display); -/* 110 */ -EXTERN int XFree(void *data); -/* 111 */ -EXTERN int XNoOp(Display *display); -/* 112 */ -EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); -/* Slot 113 is reserved */ -/* 114 */ -EXTERN VisualID XVisualIDFromVisual(Visual *visual); -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* 137 */ -EXTERN int XPutImage(Display *d, Drawable dr, GC gc, XImage *im, - int sx, int sy, int dx, int dy, - unsigned int w, unsigned int h); -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -/* 158 */ -EXTERN void TkUnusedStubEntry(void); -#endif /* AQUA */ - -typedef struct TkIntXlibStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 7 */ - Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 8 */ - GContext (*xGContextFromGC) (GC g); /* 9 */ - XHostAddress * (*xListHosts) (Display *d, int *i, Bool *b); /* 10 */ - KeySym (*xKeycodeToKeysym) (Display *d, unsigned int k, int i); /* 11 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 12 */ - Window (*xRootWindow) (Display *d, int i); /* 13 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ - Status (*xIconifyWindow) (Display *d, Window w, int i); /* 15 */ - Status (*xWithdrawWindow) (Display *d, Window w, int i); /* 16 */ - Status (*xGetWMColormapWindows) (Display *d, Window w, Window **wpp, int *ip); /* 17 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 18 */ - int (*xBell) (Display *d, int i); /* 19 */ - int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 20 */ - int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 21 */ - int (*xClearWindow) (Display *d, Window w); /* 22 */ - int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 23 */ - int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ - int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 26 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 27 */ - int (*xDeleteProperty) (Display *d, Window w, Atom a); /* 28 */ - int (*xDestroyWindow) (Display *d, Window w); /* 29 */ - int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 31 */ - int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ - int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ - int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 34 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 35 */ - int (*xForceScreenSaver) (Display *d, int i); /* 36 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 37 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 38 */ - int (*xFreeCursor) (Display *d, Cursor c); /* 39 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 40 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 41 */ - int (*xGetInputFocus) (Display *d, Window *w, int *i); /* 42 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 43 */ - Status (*xGetWindowAttributes) (Display *d, Window w, XWindowAttributes *x); /* 44 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 47 */ - Status (*xLookupColor) (Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2); /* 48 */ - int (*xMapWindow) (Display *d, Window w); /* 49 */ - int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ - int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 51 */ - int (*xNextEvent) (Display *d, XEvent *x); /* 52 */ - int (*xPutBackEvent) (Display *d, XEvent *x); /* 53 */ - int (*xQueryColors) (Display *d, Colormap c, XColor *x, int i); /* 54 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 55 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 56 */ - int (*xRaiseWindow) (Display *d, Window w); /* 57 */ - int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 58 */ - int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ - int (*xSelectInput) (Display *d, Window w, long l); /* 60 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 61 */ - int (*xSetCommand) (Display *d, Window w, char **c, int i); /* 62 */ - int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 63 */ - int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 64 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 65 */ - int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 66 */ - int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 67 */ - int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 68 */ - int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 69 */ - int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 70 */ - int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 71 */ - Bool (*xTranslateCoordinates) (Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3); /* 72 */ - int (*xUngrabKeyboard) (Display *d, Time t); /* 73 */ - int (*xUngrabPointer) (Display *d, Time t); /* 74 */ - int (*xUnmapWindow) (Display *d, Window w); /* 75 */ - int (*xWindowEvent) (Display *d, Window w, long l, XEvent *x); /* 76 */ - void (*xDestroyIC) (XIC x); /* 77 */ - Bool (*xFilterEvent) (XEvent *x, Window w); /* 78 */ - int (*xmbLookupString) (XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s); /* 79 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ - void (*reserved81)(void); - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 82 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 83 */ - int (*xFreeGC) (Display *display, GC gc); /* 84 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 85 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 86 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 87 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 88 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 91 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 92 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 93 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 94 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 95 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 96 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 97 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 99 */ - XIC (*xCreateIC) (XIM xim, ...); /* 100 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 101 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 102 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 103 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ - int (*xWarpPointer) (Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ - int (*xFlush) (Display *display); /* 107 */ - int (*xGrabServer) (Display *display); /* 108 */ - int (*xUngrabServer) (Display *display); /* 109 */ - int (*xFree) (void *data); /* 110 */ - int (*xNoOp) (Display *display); /* 111 */ - XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ - int (*xSync) (Display *display, Bool discard); /* 113 */ - VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ - void (*reserved115)(void); - void (*reserved116)(void); - void (*reserved117)(void); - void (*reserved118)(void); - void (*reserved119)(void); - int (*xOffsetRegion) (Region rgn, int dx, int dy); /* 120 */ - int (*xUnionRegion) (Region srca, Region srcb, Region dr_return); /* 121 */ - Window (*xCreateWindow) (Display *display, Window parent, int x, int y, unsigned int width, unsigned int height, unsigned int border_width, int depth, unsigned int clazz, Visual *visual, unsigned long value_mask, XSetWindowAttributes *attributes); /* 122 */ - void (*reserved123)(void); - void (*reserved124)(void); - void (*reserved125)(void); - void (*reserved126)(void); - void (*reserved127)(void); - void (*reserved128)(void); - int (*xLowerWindow) (Display *d, Window w); /* 129 */ - int (*xFillArcs) (Display *d, Drawable dr, GC gc, XArc *a, int n); /* 130 */ - int (*xDrawArcs) (Display *d, Drawable dr, GC gc, XArc *a, int n); /* 131 */ - int (*xDrawRectangles) (Display *d, Drawable dr, GC gc, XRectangle *r, int n); /* 132 */ - int (*xDrawSegments) (Display *d, Drawable dr, GC gc, XSegment *s, int n); /* 133 */ - int (*xDrawPoint) (Display *d, Drawable dr, GC gc, int x, int y); /* 134 */ - int (*xDrawPoints) (Display *d, Drawable dr, GC gc, XPoint *p, int n, int m); /* 135 */ - int (*xReparentWindow) (Display *d, Window w, Window p, int x, int y); /* 136 */ - int (*xPutImage) (Display *d, Drawable dr, GC gc, XImage *im, int sx, int sy, int dx, int dy, unsigned int w, unsigned int h); /* 137 */ - void (*reserved138)(void); - void (*reserved139)(void); - void (*reserved140)(void); - void (*reserved141)(void); - void (*reserved142)(void); - void (*reserved143)(void); - void (*reserved144)(void); - void (*reserved145)(void); - void (*reserved146)(void); - void (*reserved147)(void); - void (*reserved148)(void); - void (*reserved149)(void); - void (*reserved150)(void); - void (*reserved151)(void); - void (*reserved152)(void); - void (*reserved153)(void); - void (*reserved154)(void); - void (*reserved155)(void); - void (*reserved156)(void); - void (*reserved157)(void); - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ - XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ - GContext (*xGContextFromGC) (GC g); /* 7 */ - KeySym (*xKeycodeToKeysym) (Display *d, KeyCode k, int i); /* 8 */ - KeySym (*xStringToKeysym) (_Xconst char *c); /* 9 */ - Window (*xRootWindow) (Display *d, int i); /* 10 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ - Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 12 */ - int (*xBell) (Display *d, int i); /* 13 */ - int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 14 */ - int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 15 */ - int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 16 */ - int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ - int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ - Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 19 */ - int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 20 */ - int (*xDestroyWindow) (Display *d, Window w); /* 21 */ - int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ - int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 23 */ - int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ - int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ - int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 26 */ - int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 27 */ - int (*xFreeColormap) (Display *d, Colormap c); /* 28 */ - int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 29 */ - int (*xFreeModifiermap) (XModifierKeymap *x); /* 30 */ - Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 31 */ - int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 32 */ - int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ - int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ - KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 35 */ - int (*xMapWindow) (Display *d, Window w); /* 36 */ - int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ - int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 38 */ - Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 39 */ - int (*xRaiseWindow) (Display *d, Window w); /* 40 */ - int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 41 */ - int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ - int (*xSelectInput) (Display *d, Window w, long l); /* 43 */ - Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 44 */ - int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 45 */ - int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 46 */ - int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 47 */ - int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 48 */ - int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 49 */ - int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 50 */ - int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 51 */ - int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 52 */ - int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 53 */ - int (*xUngrabKeyboard) (Display *d, Time t); /* 54 */ - int (*xUngrabPointer) (Display *d, Time t); /* 55 */ - int (*xUnmapWindow) (Display *d, Window w); /* 56 */ - int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ - Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 58 */ - GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 59 */ - int (*xFreeGC) (Display *display, GC gc); /* 60 */ - Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 61 */ - int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 62 */ - int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 63 */ - int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 64 */ - int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ - int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ - int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 67 */ - int (*xSetFont) (Display *display, GC gc, Font font); /* 68 */ - int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 69 */ - int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 70 */ - int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 71 */ - int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 72 */ - int (*xSetFunction) (Display *display, GC gc, int function); /* 73 */ - int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ - int (*_XInitImageFuncPtrs) (XImage *image); /* 75 */ - XIC (*xCreateIC) (XIM xim, ...); /* 76 */ - XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 77 */ - void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 78 */ - Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 79 */ - int (*xDrawSegments) (Display *display, Drawable d, GC gc, XSegment *segments, int nsegments); /* 80 */ - int (*xForceScreenSaver) (Display *display, int mode); /* 81 */ - int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ - int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ - int (*xClearWindow) (Display *d, Window w); /* 84 */ - int (*xDrawPoint) (Display *display, Drawable d, GC gc, int x, int y); /* 85 */ - int (*xDrawPoints) (Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode); /* 86 */ - int (*xWarpPointer) (Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ - int (*xQueryColor) (Display *display, Colormap colormap, XColor *def_in_out); /* 88 */ - int (*xQueryColors) (Display *display, Colormap colormap, XColor *defs_in_out, int ncolors); /* 89 */ - Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 90 */ - int (*xSync) (Display *display, Bool discard); /* 91 */ - void (*reserved92)(void); - void (*reserved93)(void); - void (*reserved94)(void); - void (*reserved95)(void); - void (*reserved96)(void); - void (*reserved97)(void); - void (*reserved98)(void); - void (*reserved99)(void); - void (*reserved100)(void); - void (*reserved101)(void); - void (*reserved102)(void); - void (*reserved103)(void); - void (*reserved104)(void); - void (*reserved105)(void); - void (*reserved106)(void); - int (*xFlush) (Display *display); /* 107 */ - int (*xGrabServer) (Display *display); /* 108 */ - int (*xUngrabServer) (Display *display); /* 109 */ - int (*xFree) (void *data); /* 110 */ - int (*xNoOp) (Display *display); /* 111 */ - XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ - void (*reserved113)(void); - VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ - void (*reserved115)(void); - void (*reserved116)(void); - void (*reserved117)(void); - void (*reserved118)(void); - void (*reserved119)(void); - void (*reserved120)(void); - void (*reserved121)(void); - void (*reserved122)(void); - void (*reserved123)(void); - void (*reserved124)(void); - void (*reserved125)(void); - void (*reserved126)(void); - void (*reserved127)(void); - void (*reserved128)(void); - void (*reserved129)(void); - void (*reserved130)(void); - void (*reserved131)(void); - void (*reserved132)(void); - void (*reserved133)(void); - void (*reserved134)(void); - void (*reserved135)(void); - void (*reserved136)(void); - int (*xPutImage) (Display *d, Drawable dr, GC gc, XImage *im, int sx, int sy, int dx, int dy, unsigned int w, unsigned int h); /* 137 */ - void (*reserved138)(void); - void (*reserved139)(void); - void (*reserved140)(void); - void (*reserved141)(void); - void (*reserved142)(void); - void (*reserved143)(void); - void (*reserved144)(void); - void (*reserved145)(void); - void (*reserved146)(void); - void (*reserved147)(void); - void (*reserved148)(void); - void (*reserved149)(void); - void (*reserved150)(void); - void (*reserved151)(void); - void (*reserved152)(void); - void (*reserved153)(void); - void (*reserved154)(void); - void (*reserved155)(void); - void (*reserved156)(void); - void (*reserved157)(void); - void (*tkUnusedStubEntry) (void); /* 158 */ -#endif /* AQUA */ -} TkIntXlibStubs; - -extern const TkIntXlibStubs *tkIntXlibStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#define XCreatePixmapCursor \ - (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ -#define XCreateGlyphCursor \ - (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ -#define XListHosts \ - (tkIntXlibStubsPtr->xListHosts) /* 10 */ -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 13 */ -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ -#define XIconifyWindow \ - (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ -#define XWithdrawWindow \ - (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ -#define XGetWMColormapWindows \ - (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 18 */ -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 19 */ -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 22 */ -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 24 */ -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ -#define XDeleteProperty \ - (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 30 */ -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 31 */ -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 33 */ -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 38 */ -#define XFreeCursor \ - (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ -#define XGetInputFocus \ - (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ -#define XGetWindowAttributes \ - (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ -#define XLookupColor \ - (tkIntXlibStubsPtr->xLookupColor) /* 48 */ -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 49 */ -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ -#define XNextEvent \ - (tkIntXlibStubsPtr->xNextEvent) /* 52 */ -#define XPutBackEvent \ - (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 54 */ -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 56 */ -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 60 */ -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 61 */ -#define XSetCommand \ - (tkIntXlibStubsPtr->xSetCommand) /* 62 */ -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 63 */ -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ -#define XTranslateCoordinates \ - (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ -#define XWindowEvent \ - (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ -#define XDestroyIC \ - (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ -#define XFilterEvent \ - (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ -#define XmbLookupString \ - (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 80 */ -/* Slot 81 is reserved */ -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 82 */ -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 83 */ -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 84 */ -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 85 */ -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 86 */ -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 87 */ -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 91 */ -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 92 */ -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 94 */ -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 97 */ -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 100 */ -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 104 */ -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ -#define XFlush \ - (tkIntXlibStubsPtr->xFlush) /* 107 */ -#define XGrabServer \ - (tkIntXlibStubsPtr->xGrabServer) /* 108 */ -#define XUngrabServer \ - (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ -#define XFree \ - (tkIntXlibStubsPtr->xFree) /* 110 */ -#define XNoOp \ - (tkIntXlibStubsPtr->xNoOp) /* 111 */ -#define XSynchronize \ - (tkIntXlibStubsPtr->xSynchronize) /* 112 */ -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 113 */ -#define XVisualIDFromVisual \ - (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -#define XOffsetRegion \ - (tkIntXlibStubsPtr->xOffsetRegion) /* 120 */ -#define XUnionRegion \ - (tkIntXlibStubsPtr->xUnionRegion) /* 121 */ -#define XCreateWindow \ - (tkIntXlibStubsPtr->xCreateWindow) /* 122 */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -#define XLowerWindow \ - (tkIntXlibStubsPtr->xLowerWindow) /* 129 */ -#define XFillArcs \ - (tkIntXlibStubsPtr->xFillArcs) /* 130 */ -#define XDrawArcs \ - (tkIntXlibStubsPtr->xDrawArcs) /* 131 */ -#define XDrawRectangles \ - (tkIntXlibStubsPtr->xDrawRectangles) /* 132 */ -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 133 */ -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 134 */ -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 135 */ -#define XReparentWindow \ - (tkIntXlibStubsPtr->xReparentWindow) /* 136 */ -#define XPutImage \ - (tkIntXlibStubsPtr->xPutImage) /* 137 */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 91 */ -/* Slot 92 is reserved */ -/* Slot 93 is reserved */ -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -#define XFlush \ - (tkIntXlibStubsPtr->xFlush) /* 107 */ -#define XGrabServer \ - (tkIntXlibStubsPtr->xGrabServer) /* 108 */ -#define XUngrabServer \ - (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ -#define XFree \ - (tkIntXlibStubsPtr->xFree) /* 110 */ -#define XNoOp \ - (tkIntXlibStubsPtr->xNoOp) /* 111 */ -#define XSynchronize \ - (tkIntXlibStubsPtr->xSynchronize) /* 112 */ -/* Slot 113 is reserved */ -#define XVisualIDFromVisual \ - (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ -/* Slot 115 is reserved */ -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* Slot 120 is reserved */ -/* Slot 121 is reserved */ -/* Slot 122 is reserved */ -/* Slot 123 is reserved */ -/* Slot 124 is reserved */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -#define XPutImage \ - (tkIntXlibStubsPtr->xPutImage) /* 137 */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 is reserved */ -/* Slot 147 is reserved */ -/* Slot 148 is reserved */ -/* Slot 149 is reserved */ -/* Slot 150 is reserved */ -/* Slot 151 is reserved */ -/* Slot 152 is reserved */ -/* Slot 153 is reserved */ -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* Slot 156 is reserved */ -/* Slot 157 is reserved */ -#define TkUnusedStubEntry \ - (tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */ -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#undef TkUnusedStubEntry - -#endif /* _TKINTXLIBDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkPlatDecls.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkPlatDecls.h deleted file mode 100644 index 1e69c8839..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkPlatDecls.h +++ /dev/null @@ -1,176 +0,0 @@ -/* - * tkPlatDecls.h -- - * - * Declarations of functions in the platform-specific public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPLATDECLS -#define _TKPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -/* 0 */ -EXTERN Window Tk_AttachHWND(Tk_Window tkwin, HWND hwnd); -/* 1 */ -EXTERN HINSTANCE Tk_GetHINSTANCE(void); -/* 2 */ -EXTERN HWND Tk_GetHWND(Window window); -/* 3 */ -EXTERN Tk_Window Tk_HWNDToWindow(HWND hwnd); -/* 4 */ -EXTERN void Tk_PointerEvent(HWND hwnd, int x, int y); -/* 5 */ -EXTERN int Tk_TranslateWinEvent(HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam, - LRESULT *result); -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -/* 0 */ -EXTERN void Tk_MacOSXSetEmbedHandler( - Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, - Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, - Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, - Tk_MacOSXEmbedGetClipProc *getClipProc, - Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); -/* 1 */ -EXTERN void Tk_MacOSXTurnOffMenus(void); -/* 2 */ -EXTERN void Tk_MacOSXTkOwnsCursor(int tkOwnsIt); -/* 3 */ -EXTERN void TkMacOSXInitMenus(Tcl_Interp *interp); -/* 4 */ -EXTERN void TkMacOSXInitAppleEvents(Tcl_Interp *interp); -/* 5 */ -EXTERN void TkGenWMConfigureEvent(Tk_Window tkwin, int x, int y, - int width, int height, int flags); -/* 6 */ -EXTERN void TkMacOSXInvalClipRgns(Tk_Window tkwin); -/* 7 */ -EXTERN void * TkMacOSXGetDrawablePort(Drawable drawable); -/* 8 */ -EXTERN void * TkMacOSXGetRootControl(Drawable drawable); -/* 9 */ -EXTERN void Tk_MacOSXSetupTkNotifier(void); -/* 10 */ -EXTERN int Tk_MacOSXIsAppInFront(void); -#endif /* AQUA */ - -typedef struct TkPlatStubs { - int magic; - void *hooks; - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ - Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ - HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ - HWND (*tk_GetHWND) (Window window); /* 2 */ - Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ - void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ - int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result); /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); /* 0 */ - void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ - void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ - void (*tkMacOSXInitMenus) (Tcl_Interp *interp); /* 3 */ - void (*tkMacOSXInitAppleEvents) (Tcl_Interp *interp); /* 4 */ - void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ - void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ - void * (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ - void * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ - void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ - int (*tk_MacOSXIsAppInFront) (void); /* 10 */ -#endif /* AQUA */ -} TkPlatStubs; - -extern const TkPlatStubs *tkPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) - -/* - * Inline function declarations: - */ - -#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ -#define Tk_AttachHWND \ - (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ -#define Tk_GetHINSTANCE \ - (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ -#define Tk_GetHWND \ - (tkPlatStubsPtr->tk_GetHWND) /* 2 */ -#define Tk_HWNDToWindow \ - (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ -#define Tk_PointerEvent \ - (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ -#define Tk_TranslateWinEvent \ - (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#define Tk_MacOSXSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ -#define Tk_MacOSXTurnOffMenus \ - (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ -#define Tk_MacOSXTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ -#define TkMacOSXInitMenus \ - (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ -#define TkMacOSXInitAppleEvents \ - (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ -#define TkMacOSXInvalClipRgns \ - (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ -#define TkMacOSXGetDrawablePort \ - (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ -#define TkMacOSXGetRootControl \ - (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ -#define Tk_MacOSXSetupTkNotifier \ - (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ -#define Tk_MacOSXIsAppInFront \ - (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) */ - -/* !END!: Do not edit above this line. */ - -#ifdef __cplusplus -} -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKPLATDECLS */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkPort.h deleted file mode 100644 index d6db449ec..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkPort.h +++ /dev/null @@ -1,31 +0,0 @@ -/* - * tkPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKPORT -#define _TKPORT - -#if defined(_WIN32) -# include "tkWinPort.h" -#endif -#ifndef _TK -# include "tk.h" -#endif -#if !defined(_WIN32) -# if defined(MAC_OSX_TK) -# include "tkMacOSXPort.h" -# else -# include "tkUnixPort.h" -# endif -#endif - -#endif /* _TKPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWin.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWin.h deleted file mode 100644 index 4d278d791..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWin.h +++ /dev/null @@ -1,81 +0,0 @@ -/* - * tkWin.h -- - * - * Declarations of public types and interfaces that are only - * available under Windows. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWIN -#define _TKWIN - -/* - * We must specify the lower version we intend to support. In particular - * the SystemParametersInfo API doesn't like to receive structures that - * are larger than it expects which affects the font assignments. - * - * WINVER = 0x0500 means Windows 2000 and above - */ - -#ifndef WINVER -#define WINVER 0x0500 -#endif -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif - -#ifndef _TK -#include -#endif - -#define WIN32_LEAN_AND_MEAN -#include -#undef WIN32_LEAN_AND_MEAN - -/* - * The following messages are used to communicate between a Tk toplevel - * and its container window. A Tk container may not be able to provide - * service to all of the following requests at the moment. But an embedded - * Tk window will send out these requests to support external Tk container - * application. - */ - -#define TK_CLAIMFOCUS (WM_USER) /* an embedded window requests to focus */ -#define TK_GEOMETRYREQ (WM_USER+1) /* an embedded window requests to change size */ -#define TK_ATTACHWINDOW (WM_USER+2) /* an embedded window requests to attach */ -#define TK_DETACHWINDOW (WM_USER+3) /* an embedded window requests to detach */ -#define TK_MOVEWINDOW (WM_USER+4) /* an embedded window requests to move */ -#define TK_RAISEWINDOW (WM_USER+5) /* an embedded window requests to raise */ -#define TK_ICONIFY (WM_USER+6) /* an embedded window requests to iconify */ -#define TK_DEICONIFY (WM_USER+7) /* an embedded window requests to deiconify */ -#define TK_WITHDRAW (WM_USER+8) /* an embedded window requests to withdraw */ -#define TK_GETFRAMEWID (WM_USER+9) /* an embedded window requests a frame window id */ -#define TK_OVERRIDEREDIRECT (WM_USER+10) /* an embedded window requests to overrideredirect */ -#define TK_SETMENU (WM_USER+11) /* an embedded window requests to setup menu */ -#define TK_STATE (WM_USER+12) /* an embedded window sets/gets state */ -#define TK_INFO (WM_USER+13) /* an embedded window requests a container's info */ - -/* - * The following are sub-messages (wParam) for TK_INFO. An embedded window may - * send a TK_INFO message with one of the sub-messages to query a container - * for verification and availability - */ -#define TK_CONTAINER_VERIFY 0x01 -#define TK_CONTAINER_ISAVAILABLE 0x02 - - -/* - *-------------------------------------------------------------- - * - * Exported procedures defined for the Windows platform only. - * - *-------------------------------------------------------------- - */ - -#include "tkPlatDecls.h" - -#endif /* _TKWIN */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWinInt.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWinInt.h deleted file mode 100644 index ef4f1bd74..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWinInt.h +++ /dev/null @@ -1,244 +0,0 @@ -/* - * tkWinInt.h -- - * - * This file contains declarations that are shared among the - * Windows-specific parts of Tk, but aren't used by the rest of Tk. - * - * Copyright (c) 1995-1997 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _TKWININT -#define _TKWININT - -#ifndef _TKINT -#include "tkInt.h" -#endif - -/* - * Include platform specific public interfaces. - */ - -#ifndef _TKWIN -#include "tkWin.h" -#endif - -/* - * Define constants missing from older Win32 SDK header files. - */ - -#ifndef WS_EX_TOOLWINDOW -#define WS_EX_TOOLWINDOW 0x00000080L -#endif -#ifndef SPI_SETKEYBOARDCUES -#define SPI_SETKEYBOARDCUES 0x100B -#endif - -/* - * The TkWinDCState is used to save the state of a device context so that it - * can be restored later. - */ - -typedef struct TkWinDCState { - HPALETTE palette; - int bkmode; -} TkWinDCState; - -/* - * The TkWinDrawable is the internal implementation of an X Drawable (either a - * Window or a Pixmap). The following constants define the valid Drawable - * types. - */ - -#define TWD_BITMAP 1 -#define TWD_WINDOW 2 -#define TWD_WINDC 3 - -typedef struct { - int type; - HWND handle; - TkWindow *winPtr; -} TkWinWindow; - -typedef struct { - int type; - HBITMAP handle; - Colormap colormap; - int depth; -} TkWinBitmap; - -typedef struct { - int type; - HDC hdc; -}TkWinDC; - -typedef union { - int type; - TkWinWindow window; - TkWinBitmap bitmap; - TkWinDC winDC; -} TkWinDrawable; - -/* - * The following macros are used to retrieve internal values from a Drawable. - */ - -#define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle) -#define TkWinGetWinPtr(w) (((TkWinDrawable *) w)->window.winPtr) -#define TkWinGetHBITMAP(w) (((TkWinDrawable *) w)->bitmap.handle) -#define TkWinGetColormap(w) (((TkWinDrawable *) w)->bitmap.colormap) -#define TkWinGetHDC(w) (((TkWinDrawable *) w)->winDC.hdc) - -/* - * The following structure is used to encapsulate palette information. - */ - -typedef struct { - HPALETTE palette; /* Palette handle used when drawing. */ - UINT size; /* Number of entries in the palette. */ - int stale; /* 1 if palette needs to be realized, - * otherwise 0. If the palette is stale, then - * an idle handler is scheduled to realize the - * palette. */ - Tcl_HashTable refCounts; /* Hash table of palette entry reference - * counts indexed by pixel value. */ -} TkWinColormap; - -/* - * The following macro retrieves the Win32 palette from a colormap. - */ - -#define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette) - -/* - * The following macros define the class names for Tk Window types. - */ - -#define TK_WIN_TOPLEVEL_CLASS_NAME L"TkTopLevel" -#define TK_WIN_CHILD_CLASS_NAME L"TkChild" - -/* - * The following variable is a translation table between X gc functions and - * Win32 raster and BitBlt op modes. - */ - -MODULE_SCOPE const int tkpWinRopModes[]; -MODULE_SCOPE const int tkpWinBltModes[]; - -/* - * The following defines are used with TkWinGetBorderPixels to get the extra 2 - * border colors from a Tk_3DBorder. - */ - -#define TK_3D_LIGHT2 TK_3D_DARK_GC+1 -#define TK_3D_DARK2 TK_3D_DARK_GC+2 - -/* - * Internal functions used by more than one source file. - */ - -#include "tkIntPlatDecls.h" - -/* - * Special proc needed as tsd accessor function between - * tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard - */ - -MODULE_SCOPE void TkWinUpdatingClipboard(int mode); - -/* - * Used by tkWinDialog.c to associate the right icon with tk_messageBox - */ - -MODULE_SCOPE HICON TkWinGetIcon(Tk_Window tkw, DWORD iconsize); - -/* - * Used by tkWinX.c on for certain system display change messages and cleanup - * up containers - */ - -MODULE_SCOPE void TkWinDisplayChanged(Display *display); -MODULE_SCOPE void TkWinCleanupContainerList(void); - -/* - * Used by tkWinWm.c for embedded menu handling. May become public. - */ - -MODULE_SCOPE HWND Tk_GetMenuHWND(Tk_Window tkwin); -MODULE_SCOPE HWND Tk_GetEmbeddedMenuHWND(Tk_Window tkwin); - -/* - * The following allows us to cache these encoding for multiple functions. - */ - - -MODULE_SCOPE Tcl_Encoding TkWinGetKeyInputEncoding(void); -MODULE_SCOPE Tcl_Encoding TkWinGetUnicodeEncoding(void); -MODULE_SCOPE void TkWinSetupSystemFonts(TkMainInfo *mainPtr); - -/* - * Values returned by TkWinGetPlatformTheme. - */ - -#define TK_THEME_WIN_CLASSIC 1 -#define TK_THEME_WIN_XP 2 - -/* - * The following is implemented in tkWinWm and used by tkWinEmbed.c - */ - -MODULE_SCOPE void TkpWinToplevelWithDraw(TkWindow *winPtr); -MODULE_SCOPE void TkpWinToplevelIconify(TkWindow *winPtr); -MODULE_SCOPE void TkpWinToplevelDeiconify(TkWindow *winPtr); -MODULE_SCOPE long TkpWinToplevelIsControlledByWm(TkWindow *winPtr); -MODULE_SCOPE long TkpWinToplevelMove(TkWindow *winPtr, int x, int y); -MODULE_SCOPE long TkpWinToplevelOverrideRedirect(TkWindow *winPtr, - int reqValue); -MODULE_SCOPE void TkpWinToplevelDetachWindow(TkWindow *winPtr); -MODULE_SCOPE int TkpWmGetState(TkWindow *winPtr); - -/* - * The following is implemented in tkWinPointer.c and also used in tkWinWindow.c - */ - -MODULE_SCOPE void TkSetCursorPos(int x, int y); - -/* - * Common routines used in Windows implementation - */ -MODULE_SCOPE Tcl_Obj * TkWin32ErrorObj(HRESULT hrError); - - -/* - * The following functions are not present in old versions of Windows - * API headers but are used in the Tk source to ensure 64bit - * compatibility. - */ - -#ifndef GetClassLongPtr -# define GetClassLongPtrW GetClassLongW -# define SetClassLongPtrW SetClassLongW -#endif /* !GetClassLongPtr */ -#ifndef GCLP_HICON -# define GCLP_HICON GCL_HICON -#endif /* !GCLP_HICON */ -#ifndef GCLP_HICONSM -# define GCLP_HICONSM (-34) -#endif /* !GCLP_HICONSM */ - -#ifndef GetWindowLongPtr -# define GetWindowLongPtrW GetWindowLongW -# define SetWindowLongPtrW SetWindowLongW -#endif /* !GetWindowLongPtr */ -#ifndef GWLP_WNDPROC -#define GWLP_WNDPROC GWL_WNDPROC -#define GWLP_HINSTANCE GWL_HINSTANCE -#define GWLP_HWNDPARENT GWL_HWNDPARENT -#define GWLP_USERDATA GWL_USERDATA -#define GWLP_ID GWL_ID -#endif /* !GWLP_WNDPROC */ - -#endif /* _TKWININT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWinPort.h b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWinPort.h deleted file mode 100644 index 8cc56778d..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/include/tkWinPort.h +++ /dev/null @@ -1,128 +0,0 @@ -/* - * tkWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1995-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#ifndef _WINPORT -#define _WINPORT - -/* - *--------------------------------------------------------------------------- - * The following sets of #includes and #ifdefs are required to get Tcl to - * compile under the windows compilers. - *--------------------------------------------------------------------------- - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* - * Need to block out this include for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include -#endif - -#include - -#ifdef _MSC_VER -# ifndef hypot -# define hypot _hypot -# endif -#endif /* _MSC_VER */ - -/* - * Pull in the typedef of TCHAR for windows. - */ -#include -#ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -#endif -#if defined(_MSC_VER) && defined(__STDC__) - /* VS2005 SP1 misses this. See [Bug #3110161] */ - typedef _TCHAR TCHAR; -#endif - -#include -#include -#include -#include -#include - -#ifndef __GNUC__ -# define strncasecmp _strnicmp -# define strcasecmp _stricmp -#endif - -#define NBBY 8 - -#ifndef OPEN_MAX -#define OPEN_MAX 32 -#endif - -/* - * The following define causes Tk to use its internal keysym hash table - */ - -#define REDO_KEYSYM_LOOKUP - -/* - * See ticket [916c1095438eae56]: GetVersionExW triggers warnings - */ -#if defined(_MSC_VER) -# pragma warning(disable:4267) -# pragma warning(disable:4244) -# pragma warning(disable:4311) -# pragma warning(disable:4312) -# pragma warning(disable:4996) -#endif - -/* - * The following macro checks to see whether there is buffered - * input data available for a stdio FILE. - */ - -#ifdef _MSC_VER -# define TK_READ_DATA_PENDING(f) ((f)->_cnt > 0) -#else /* _MSC_VER */ -# define TK_READ_DATA_PENDING(f) ((f)->level > 0) -#endif /* _MSC_VER */ - -/* - * The following Tk functions are implemented as macros under Windows. - */ - -#define TkpGetPixel(p) (((((p)->red >> 8) & 0xff) \ - | ((p)->green & 0xff00) | (((p)->blue << 8) & 0xff0000)) | 0x20000000) - -/* - * These calls implement native bitmaps which are not currently - * supported under Windows. The macros eliminate the calls. - */ - -#define TkpDefineNativeBitmaps() -#define TkpCreateNativeBitmap(display, source) None -#define TkpGetNativeAppBitmap(display, name, w, h) None - -#endif /* _WINPORT */ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/lib/tclstub86.lib b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/lib/tclstub86.lib deleted file mode 100644 index 313a771dd..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/lib/tclstub86.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/lib/tkstub86.lib b/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/lib/tkstub86.lib deleted file mode 100644 index b4a50b536..000000000 Binary files a/opengl/Togl2.1-SnapPy/win-tk8.6/tcltk64/lib/tkstub86.lib and /dev/null differ diff --git a/opengl/Togl2.1-SnapPy/win-tk8.6/update_SnapPy.sh b/opengl/Togl2.1-SnapPy/win-tk8.6/update_SnapPy.sh deleted file mode 100644 index bbf483fcf..000000000 --- a/opengl/Togl2.1-SnapPy/win-tk8.6/update_SnapPy.sh +++ /dev/null @@ -1,19 +0,0 @@ -#! /bin/bash -if [ "$1" == "AMD64" ] ; then - SOURCE_DIR="Release_VC1900_AMD64/Togl" - TARGET_DIR="../../../python/togl/win32VC-x86_64-tk8.6" -elif [ "$1" == "X86" ] ; then - SOURCE_DIR="Release_VC1900_X86/Togl" - TARGET_DIR="../../../python/togl/win32VC-tk8.6" -else - echo "usage: update_SnapPy.sh AMD64|X86" - exit 1 -fi -echo cp $SOURCE_DIR/Toglstub21.lib $TARGET_DIR -cp $SOURCE_DIR/Toglstub21.lib $TARGET_DIR -for file in pkgIndex.tcl Togl21.dll Togl21.lib ; -do - echo cp $SOURCE_DIR/$file $TARGET_DIR/Togl2.1 - cp $SOURCE_DIR/$file $TARGET_DIR/Togl2.1 -done - diff --git a/opengl/build_togl.sh b/opengl/build_togl.sh deleted file mode 100644 index 1b8af0164..000000000 --- a/opengl/build_togl.sh +++ /dev/null @@ -1,82 +0,0 @@ -#!/bin/bash -# SnapPy requires Togl, a OpenGL widget for the Tk libary. For OS X -# and Linux, binaries for Togl are provided in the snappy/ directory, -# this script is only needed if, for some reason, those fail to work. -# -# This script builds this library in these cases: -# -# -Mac OS 10.5, against Tk 8.4 -# -Mac OS >= 10.5, against Tk 8.5.11 and Tk 8.6, using Togl2.1 -# -Linux, against Tk 8.5 -# - -# You should be able to modify it, or follow the steps laid out here -# by hand, to compile Togl. You will need to have the header files -# for Tcl and Tk available; for instance on Debian or Ubuntu you want -# the packages tcl-dev and tk-dev. On some systems (e.g. Ubuntu 8.10), -# you may also need to install Xmu-dev and related packages. -# -# -# First, download the source if we don't have it already. Because -# Sourceforge is a little odd on how it does this, we use "wget" -# instead of "curl" or "lynx". You may find it easier just to -# download the needed file with your webrowser.. - -set -e - -if [ ! -e Togl2.0-src.tar.gz ]; then - echo "Downloading Togl2.0..." - wget -nd http://downloads.sourceforge.net/togl/Togl2.0-src.tar.gz -fi -echo "Untaring Togl..." -tar xfz Togl2.0-src.tar.gz -cd Togl2.0 - -# Set where we want Togl to be installed; this should be changed -# depending on your OS and version of Tk. - - -if [ "$(uname)" = "Darwin" ] ; then # If this is Mac OS X - export SNAPPY_INSTALL=`pwd`/../../snappy/togl/darwin-tk8.4 -else # Assume it's Linux -# export SNAPPY_INSTALL=`pwd`/../snappy/linux2-tk8.5 - export SNAPPY_INSTALL=`pwd`/../../snappy/togl/linux2-tk8.6 -fi - -# Now build Togl. To configure Togl, the key is to find where -# tclConfig.sh and tkConfig.sh live. - - -if [ "$(uname)" = "Darwin" ] ; then # If this is Mac OS X - -./configure --prefix=$SNAPPY_INSTALL --libdir=$SNAPPY_INSTALL -make CFLAGS='-arch ppc -arch i386' \ -CPPFLAGS='-arch ppc -arch i386 \ --I/Developer/SDKs/MacOSX10.5.sdk/System/Library/Frameworks/Tk.framework/Versions/8.4/Headers \ --I/Developer/SDKs/MacOSX10.5.sdk/System/Library/Frameworks/Tk.framework/Versions/8.4/Headers/tk-private \ --I /Developer/SDKs/MacOSX10.5.sdk/System/Library/Frameworks/Tcl.framework/Versions/8.4/Headers \ --I /Developer/SDKs/MacOSX10.5.sdk/System/Library/Frameworks/Tcl.framework/Versions/8.4/Headers/tcl-private' - -else #Presume we have Linux here: -# uncomment to suit your system -#./configure --prefix=$SNAPPY_INSTALL --libdir=$SNAPPY_INSTALL \ -# --with-tcl=/usr/share/tcltk/tcl8.5/ --with-tk=/usr/share/tclk/tk8.5/ -./configure --prefix=$SNAPPY_INSTALL --libdir=$SNAPPY_INSTALL \ - --with-tcl=/usr/lib/ --with-tk=/usr/lib/ -#./configure --prefix=$SNAPPY_INSTALL --libdir=$SNAPPY_INSTALL \ -# --with-tcl=/usr/lib64/ --with-tk=/usr/lib64/ -make - -fi - - -# and install it: - -make install-lib-binaries - -# Now we build Togl2.1, using the source code in Togl2.1-SnapPy.tgz - -tar xvfz Togl2.1-SnapPy.tgz -cd Togl2.1 -make -f Makefile.SnapPy -mv darwin-tk8.5 darwin-tk8.6 ../../snappy/togl