@@ -900,6 +900,33 @@ cl_SetMax(object *self, object *args)
900900 return do_set (self , args , clSetMax );
901901}
902902
903+ #define func (name , type ) \
904+ static object *cl_##name(object *self, object *args) \
905+ { \
906+ int x; \
907+ if (!getargs(args, "i", &x)) return NULL; \
908+ return new##type##object(CL_##name(x)); \
909+ }
910+
911+ #define func2 (name , type ) \
912+ static object *cl_##name(object *self, object *args) \
913+ { \
914+ int a1, a2; \
915+ if (!getargs(args, "(ii)", &a1, &a2)) return NULL; \
916+ return new##type##object(CL_##name(a1, a2)); \
917+ }
918+
919+ func (BytesPerSample ,int )
920+ func (BytesPerPixel ,int )
921+ func (AudioFormatName ,string )
922+ func (VideoFormatName ,string )
923+ func (AlgorithmNumber ,int )
924+ func (AlgorithmType ,int )
925+ func2 (Algorithm ,int )
926+ func (ParamNumber ,int )
927+ func (ParamType ,int )
928+ func2 (ParamID ,int )
929+
903930#ifdef CLDEBUG
904931static object *
905932cvt_type (object * self , object * args )
@@ -931,12 +958,26 @@ static struct methodlist cl_methods[] = {
931958 {"SetDefault" , cl_SetDefault },
932959 {"SetMax" , cl_SetMax },
933960 {"SetMin" , cl_SetMin },
961+ {"BytesPerSample" , cl_BytesPerSample },
962+ {"BytesPerPixel" , cl_BytesPerPixel },
963+ {"AudioFormatName" , cl_AudioFormatName },
964+ {"VideoFormatName" , cl_VideoFormatName },
965+ {"AlgorithmNumber" , cl_AlgorithmNumber },
966+ {"AlgorithmType" , cl_AlgorithmType },
967+ {"Algorithm" , cl_Algorithm },
968+ {"ParamNumber" , cl_ParamNumber },
969+ {"ParamType" , cl_ParamType },
970+ {"ParamID" , cl_ParamID },
934971#ifdef CLDEBUG
935972 {"cvt_type" , cvt_type },
936973#endif
937974 {NULL , NULL } /* Sentinel */
938975};
939976
977+ #ifdef CL_JPEG_SOFTWARE
978+ #define IRIX_5_3_LIBRARY
979+ #endif
980+
940981void
941982initcl ()
942983{
@@ -946,8 +987,296 @@ initcl()
946987 d = getmoduledict (m );
947988
948989 ClError = newstringobject ("cl.error" );
949- if (ClError == NULL || dictinsert (d , "error" , ClError ) != 0 )
950- fatal ("can't define cl.error" );
990+ (void ) dictinsert (d , "error" , ClError );
991+
992+ (void ) dictinsert (d , "MAX_NUMBER_OF_ORIGINAL_FORMATS" ,
993+ newintobject (CL_MAX_NUMBER_OF_ORIGINAL_FORMATS ));
994+ (void ) dictinsert (d , "MONO" , newintobject (CL_MONO ));
995+ (void ) dictinsert (d , "STEREO_INTERLEAVED" ,
996+ newintobject (CL_STEREO_INTERLEAVED ));
997+ (void ) dictinsert (d , "RGB" , newintobject (CL_RGB ));
998+ (void ) dictinsert (d , "RGBX" , newintobject (CL_RGBX ));
999+ (void ) dictinsert (d , "RGBA" , newintobject (CL_RGBA ));
1000+ (void ) dictinsert (d , "RGB332" , newintobject (CL_RGB332 ));
1001+ (void ) dictinsert (d , "GRAYSCALE" , newintobject (CL_GRAYSCALE ));
1002+ (void ) dictinsert (d , "Y" , newintobject (CL_Y ));
1003+ (void ) dictinsert (d , "YUV" , newintobject (CL_YUV ));
1004+ (void ) dictinsert (d , "YCbCr" , newintobject (CL_YCbCr ));
1005+ (void ) dictinsert (d , "YUV422" , newintobject (CL_YUV422 ));
1006+ (void ) dictinsert (d , "YCbCr422" , newintobject (CL_YCbCr422 ));
1007+ (void ) dictinsert (d , "YUV422HC" , newintobject (CL_YUV422HC ));
1008+ (void ) dictinsert (d , "YCbCr422HC" , newintobject (CL_YCbCr422HC ));
1009+ (void ) dictinsert (d , "YUV422DC" , newintobject (CL_YUV422DC ));
1010+ (void ) dictinsert (d , "YCbCr422DC" , newintobject (CL_YCbCr422DC ));
1011+ (void ) dictinsert (d , "RGB8" , newintobject (CL_RGB8 ));
1012+ (void ) dictinsert (d , "BEST_FIT" , newintobject (CL_BEST_FIT ));
1013+ (void ) dictinsert (d , "MAX_NUMBER_OF_AUDIO_ALGORITHMS" ,
1014+ newintobject (CL_MAX_NUMBER_OF_AUDIO_ALGORITHMS ));
1015+ (void ) dictinsert (d , "MAX_NUMBER_OF_VIDEO_ALGORITHMS" ,
1016+ newintobject (CL_MAX_NUMBER_OF_VIDEO_ALGORITHMS ));
1017+ (void ) dictinsert (d , "AUDIO" , newintobject (CL_AUDIO ));
1018+ (void ) dictinsert (d , "VIDEO" , newintobject (CL_VIDEO ));
1019+ (void ) dictinsert (d , "UNKNOWN_SCHEME" ,
1020+ newintobject (CL_UNKNOWN_SCHEME ));
1021+ (void ) dictinsert (d , "UNCOMPRESSED_AUDIO" ,
1022+ newintobject (CL_UNCOMPRESSED_AUDIO ));
1023+ (void ) dictinsert (d , "G711_ULAW" , newintobject (CL_G711_ULAW ));
1024+ (void ) dictinsert (d , "ULAW" , newintobject (CL_ULAW ));
1025+ (void ) dictinsert (d , "G711_ALAW" , newintobject (CL_G711_ALAW ));
1026+ (void ) dictinsert (d , "ALAW" , newintobject (CL_ALAW ));
1027+ (void ) dictinsert (d , "AWARE_MPEG_AUDIO" ,
1028+ newintobject (CL_AWARE_MPEG_AUDIO ));
1029+ (void ) dictinsert (d , "AWARE_MULTIRATE" ,
1030+ newintobject (CL_AWARE_MULTIRATE ));
1031+ (void ) dictinsert (d , "UNCOMPRESSED" , newintobject (CL_UNCOMPRESSED ));
1032+ (void ) dictinsert (d , "UNCOMPRESSED_VIDEO" ,
1033+ newintobject (CL_UNCOMPRESSED_VIDEO ));
1034+ (void ) dictinsert (d , "RLE" , newintobject (CL_RLE ));
1035+ (void ) dictinsert (d , "JPEG" , newintobject (CL_JPEG ));
1036+ #ifdef IRIX_5_3_LIBRARY
1037+ (void ) dictinsert (d , "JPEG_SOFTWARE" , newintobject (CL_JPEG_SOFTWARE ));
1038+ #endif
1039+ (void ) dictinsert (d , "MPEG_VIDEO" , newintobject (CL_MPEG_VIDEO ));
1040+ (void ) dictinsert (d , "MVC1" , newintobject (CL_MVC1 ));
1041+ (void ) dictinsert (d , "RTR" , newintobject (CL_RTR ));
1042+ (void ) dictinsert (d , "RTR1" , newintobject (CL_RTR1 ));
1043+ (void ) dictinsert (d , "HDCC" , newintobject (CL_HDCC ));
1044+ (void ) dictinsert (d , "MVC2" , newintobject (CL_MVC2 ));
1045+ (void ) dictinsert (d , "RLE24" , newintobject (CL_RLE24 ));
1046+ (void ) dictinsert (d , "MAX_NUMBER_OF_PARAMS" ,
1047+ newintobject (CL_MAX_NUMBER_OF_PARAMS ));
1048+ (void ) dictinsert (d , "IMAGE_WIDTH" , newintobject (CL_IMAGE_WIDTH ));
1049+ (void ) dictinsert (d , "IMAGE_HEIGHT" , newintobject (CL_IMAGE_HEIGHT ));
1050+ (void ) dictinsert (d , "ORIGINAL_FORMAT" ,
1051+ newintobject (CL_ORIGINAL_FORMAT ));
1052+ (void ) dictinsert (d , "INTERNAL_FORMAT" ,
1053+ newintobject (CL_INTERNAL_FORMAT ));
1054+ (void ) dictinsert (d , "COMPONENTS" , newintobject (CL_COMPONENTS ));
1055+ (void ) dictinsert (d , "BITS_PER_COMPONENT" ,
1056+ newintobject (CL_BITS_PER_COMPONENT ));
1057+ (void ) dictinsert (d , "FRAME_RATE" , newintobject (CL_FRAME_RATE ));
1058+ (void ) dictinsert (d , "COMPRESSION_RATIO" ,
1059+ newintobject (CL_COMPRESSION_RATIO ));
1060+ (void ) dictinsert (d , "EXACT_COMPRESSION_RATIO" ,
1061+ newintobject (CL_EXACT_COMPRESSION_RATIO ));
1062+ (void ) dictinsert (d , "FRAME_BUFFER_SIZE" ,
1063+ newintobject (CL_FRAME_BUFFER_SIZE ));
1064+ (void ) dictinsert (d , "COMPRESSED_BUFFER_SIZE" ,
1065+ newintobject (CL_COMPRESSED_BUFFER_SIZE ));
1066+ (void ) dictinsert (d , "BLOCK_SIZE" , newintobject (CL_BLOCK_SIZE ));
1067+ (void ) dictinsert (d , "PREROLL" , newintobject (CL_PREROLL ));
1068+ (void ) dictinsert (d , "FRAME_TYPE" , newintobject (CL_FRAME_TYPE ));
1069+ (void ) dictinsert (d , "ALGORITHM_ID" , newintobject (CL_ALGORITHM_ID ));
1070+ (void ) dictinsert (d , "ALGORITHM_VERSION" ,
1071+ newintobject (CL_ALGORITHM_VERSION ));
1072+ (void ) dictinsert (d , "ORIENTATION" , newintobject (CL_ORIENTATION ));
1073+ (void ) dictinsert (d , "NUMBER_OF_FRAMES" ,
1074+ newintobject (CL_NUMBER_OF_FRAMES ));
1075+ (void ) dictinsert (d , "SPEED" , newintobject (CL_SPEED ));
1076+ (void ) dictinsert (d , "LAST_FRAME_INDEX" ,
1077+ newintobject (CL_LAST_FRAME_INDEX ));
1078+ #ifdef IRIX_5_3_LIBRARY
1079+ (void ) dictinsert (d , "ENABLE_IMAGEINFO" ,
1080+ newintobject (CL_ENABLE_IMAGEINFO ));
1081+ (void ) dictinsert (d , "INTERNAL_IMAGE_WIDTH" ,
1082+ newintobject (CL_INTERNAL_IMAGE_WIDTH ));
1083+ (void ) dictinsert (d , "INTERNAL_IMAGE_HEIGHT" ,
1084+ newintobject (CL_INTERNAL_IMAGE_HEIGHT ));
1085+ #endif
1086+ (void ) dictinsert (d , "NUMBER_OF_PARAMS" ,
1087+ newintobject (CL_NUMBER_OF_PARAMS ));
1088+ #ifdef IRIX_5_3_LIBRARY
1089+ (void ) dictinsert (d , "MVC2_LUMA_THRESHOLD" ,
1090+ newintobject (CL_MVC2_LUMA_THRESHOLD ));
1091+ (void ) dictinsert (d , "MVC2_CHROMA_THRESHOLD" ,
1092+ newintobject (CL_MVC2_CHROMA_THRESHOLD ));
1093+ (void ) dictinsert (d , "MVC2_EDGE_THRESHOLD" ,
1094+ newintobject (CL_MVC2_EDGE_THRESHOLD ));
1095+ (void ) dictinsert (d , "MVC2_BLENDING" , newintobject (CL_MVC2_BLENDING ));
1096+ (void ) dictinsert (d , "MVC2_BLENDING_OFF" ,
1097+ newintobject (CL_MVC2_BLENDING_OFF ));
1098+ (void ) dictinsert (d , "MVC2_BLENDING_ON" ,
1099+ newintobject (CL_MVC2_BLENDING_ON ));
1100+ (void ) dictinsert (d , "JPEG_QUALITY_FACTOR" ,
1101+ newintobject (CL_JPEG_QUALITY_FACTOR ));
1102+ (void ) dictinsert (d , "JPEG_STREAM_HEADERS" ,
1103+ newintobject (CL_JPEG_STREAM_HEADERS ));
1104+ (void ) dictinsert (d , "JPEG_QUANTIZATION_TABLES" ,
1105+ newintobject (CL_JPEG_QUANTIZATION_TABLES ));
1106+ (void ) dictinsert (d , "JPEG_NUM_PARAMS" ,
1107+ newintobject (CL_JPEG_NUM_PARAMS ));
1108+ (void ) dictinsert (d , "RTR_QUALITY_LEVEL" ,
1109+ newintobject (CL_RTR_QUALITY_LEVEL ));
1110+ (void ) dictinsert (d , "HDCC_TILE_THRESHOLD" ,
1111+ newintobject (CL_HDCC_TILE_THRESHOLD ));
1112+ (void ) dictinsert (d , "HDCC_SAMPLES_PER_TILE" ,
1113+ newintobject (CL_HDCC_SAMPLES_PER_TILE ));
1114+ #endif
1115+ (void ) dictinsert (d , "END_OF_SEQUENCE" ,
1116+ newintobject (CL_END_OF_SEQUENCE ));
1117+ (void ) dictinsert (d , "CHANNEL_POLICY" ,
1118+ newintobject (CL_CHANNEL_POLICY ));
1119+ (void ) dictinsert (d , "NOISE_MARGIN" , newintobject (CL_NOISE_MARGIN ));
1120+ (void ) dictinsert (d , "BITRATE_POLICY" ,
1121+ newintobject (CL_BITRATE_POLICY ));
1122+ (void ) dictinsert (d , "BITRATE_TARGET" ,
1123+ newintobject (CL_BITRATE_TARGET ));
1124+ (void ) dictinsert (d , "LAYER" , newintobject (CL_LAYER ));
1125+ (void ) dictinsert (d , "ENUM_VALUE" , newintobject (CL_ENUM_VALUE ));
1126+ (void ) dictinsert (d , "RANGE_VALUE" , newintobject (CL_RANGE_VALUE ));
1127+ (void ) dictinsert (d , "FLOATING_ENUM_VALUE" ,
1128+ newintobject (CL_FLOATING_ENUM_VALUE ));
1129+ (void ) dictinsert (d , "FLOATING_RANGE_VALUE" ,
1130+ newintobject (CL_FLOATING_RANGE_VALUE ));
1131+ (void ) dictinsert (d , "DECOMPRESSOR" , newintobject (CL_DECOMPRESSOR ));
1132+ (void ) dictinsert (d , "COMPRESSOR" , newintobject (CL_COMPRESSOR ));
1133+ (void ) dictinsert (d , "CODEC" , newintobject (CL_CODEC ));
1134+ (void ) dictinsert (d , "NONE" , newintobject (CL_NONE ));
1135+ #ifdef IRIX_5_3_LIBRARY
1136+ (void ) dictinsert (d , "BUF_FRAME" , newintobject (CL_BUF_FRAME ));
1137+ (void ) dictinsert (d , "BUF_DATA" , newintobject (CL_BUF_DATA ));
1138+ #endif
1139+ #ifdef CL_FRAME
1140+ (void ) dictinsert (d , "FRAME" , newintobject (CL_FRAME ));
1141+ (void ) dictinsert (d , "DATA" , newintobject (CL_DATA ));
1142+ #endif
1143+ (void ) dictinsert (d , "NONE" , newintobject (CL_NONE ));
1144+ (void ) dictinsert (d , "KEYFRAME" , newintobject (CL_KEYFRAME ));
1145+ (void ) dictinsert (d , "INTRA" , newintobject (CL_INTRA ));
1146+ (void ) dictinsert (d , "PREDICTED" , newintobject (CL_PREDICTED ));
1147+ (void ) dictinsert (d , "BIDIRECTIONAL" , newintobject (CL_BIDIRECTIONAL ));
1148+ (void ) dictinsert (d , "TOP_DOWN" , newintobject (CL_TOP_DOWN ));
1149+ (void ) dictinsert (d , "BOTTOM_UP" , newintobject (CL_BOTTOM_UP ));
1150+ #ifdef IRIX_5_3_LIBRARY
1151+ (void ) dictinsert (d , "CONTINUOUS_BLOCK" ,
1152+ newintobject (CL_CONTINUOUS_BLOCK ));
1153+ (void ) dictinsert (d , "CONTINUOUS_NONBLOCK" ,
1154+ newintobject (CL_CONTINUOUS_NONBLOCK ));
1155+ (void ) dictinsert (d , "EXTERNAL_DEVICE" ,
1156+ newintobject ((long )CL_EXTERNAL_DEVICE ));
1157+ #endif
1158+ (void ) dictinsert (d , "AWCMP_STEREO" , newintobject (AWCMP_STEREO ));
1159+ (void ) dictinsert (d , "AWCMP_JOINT_STEREO" ,
1160+ newintobject (AWCMP_JOINT_STEREO ));
1161+ (void ) dictinsert (d , "AWCMP_INDEPENDENT" ,
1162+ newintobject (AWCMP_INDEPENDENT ));
1163+ (void ) dictinsert (d , "AWCMP_FIXED_RATE" ,
1164+ newintobject (AWCMP_FIXED_RATE ));
1165+ (void ) dictinsert (d , "AWCMP_CONST_QUAL" ,
1166+ newintobject (AWCMP_CONST_QUAL ));
1167+ (void ) dictinsert (d , "AWCMP_LOSSLESS" , newintobject (AWCMP_LOSSLESS ));
1168+ (void ) dictinsert (d , "AWCMP_MPEG_LAYER_I" ,
1169+ newintobject (AWCMP_MPEG_LAYER_I ));
1170+ (void ) dictinsert (d , "AWCMP_MPEG_LAYER_II" ,
1171+ newintobject (AWCMP_MPEG_LAYER_II ));
1172+ (void ) dictinsert (d , "HEADER_START_CODE" ,
1173+ newintobject (CL_HEADER_START_CODE ));
1174+ (void ) dictinsert (d , "BAD_NO_BUFFERSPACE" ,
1175+ newintobject (CL_BAD_NO_BUFFERSPACE ));
1176+ (void ) dictinsert (d , "BAD_PVBUFFER" , newintobject (CL_BAD_PVBUFFER ));
1177+ (void ) dictinsert (d , "BAD_BUFFERLENGTH_NEG" ,
1178+ newintobject (CL_BAD_BUFFERLENGTH_NEG ));
1179+ (void ) dictinsert (d , "BAD_BUFFERLENGTH_ODD" ,
1180+ newintobject (CL_BAD_BUFFERLENGTH_ODD ));
1181+ (void ) dictinsert (d , "BAD_PARAM" , newintobject (CL_BAD_PARAM ));
1182+ (void ) dictinsert (d , "BAD_COMPRESSION_SCHEME" ,
1183+ newintobject (CL_BAD_COMPRESSION_SCHEME ));
1184+ (void ) dictinsert (d , "BAD_COMPRESSOR_HANDLE" ,
1185+ newintobject (CL_BAD_COMPRESSOR_HANDLE ));
1186+ (void ) dictinsert (d , "BAD_COMPRESSOR_HANDLE_POINTER" ,
1187+ newintobject (CL_BAD_COMPRESSOR_HANDLE_POINTER ));
1188+ (void ) dictinsert (d , "BAD_BUFFER_HANDLE" ,
1189+ newintobject (CL_BAD_BUFFER_HANDLE ));
1190+ (void ) dictinsert (d , "BAD_BUFFER_QUERY_SIZE" ,
1191+ newintobject (CL_BAD_BUFFER_QUERY_SIZE ));
1192+ (void ) dictinsert (d , "JPEG_ERROR" , newintobject (CL_JPEG_ERROR ));
1193+ (void ) dictinsert (d , "BAD_FRAME_SIZE" ,
1194+ newintobject (CL_BAD_FRAME_SIZE ));
1195+ (void ) dictinsert (d , "PARAM_OUT_OF_RANGE" ,
1196+ newintobject (CL_PARAM_OUT_OF_RANGE ));
1197+ (void ) dictinsert (d , "ADDED_ALGORITHM_ERROR" ,
1198+ newintobject (CL_ADDED_ALGORITHM_ERROR ));
1199+ (void ) dictinsert (d , "BAD_ALGORITHM_TYPE" ,
1200+ newintobject (CL_BAD_ALGORITHM_TYPE ));
1201+ (void ) dictinsert (d , "BAD_ALGORITHM_NAME" ,
1202+ newintobject (CL_BAD_ALGORITHM_NAME ));
1203+ (void ) dictinsert (d , "BAD_BUFFERING" , newintobject (CL_BAD_BUFFERING ));
1204+ (void ) dictinsert (d , "BUFFER_NOT_CREATED" ,
1205+ newintobject (CL_BUFFER_NOT_CREATED ));
1206+ (void ) dictinsert (d , "BAD_BUFFER_EXISTS" ,
1207+ newintobject (CL_BAD_BUFFER_EXISTS ));
1208+ (void ) dictinsert (d , "BAD_INTERNAL_FORMAT" ,
1209+ newintobject (CL_BAD_INTERNAL_FORMAT ));
1210+ (void ) dictinsert (d , "BAD_BUFFER_POINTER" ,
1211+ newintobject (CL_BAD_BUFFER_POINTER ));
1212+ (void ) dictinsert (d , "FRAME_BUFFER_SIZE_ZERO" ,
1213+ newintobject (CL_FRAME_BUFFER_SIZE_ZERO ));
1214+ (void ) dictinsert (d , "BAD_STREAM_HEADER" ,
1215+ newintobject (CL_BAD_STREAM_HEADER ));
1216+ (void ) dictinsert (d , "BAD_LICENSE" , newintobject (CL_BAD_LICENSE ));
1217+ (void ) dictinsert (d , "AWARE_ERROR" , newintobject (CL_AWARE_ERROR ));
1218+ (void ) dictinsert (d , "BAD_BUFFER_SIZE_POINTER" ,
1219+ newintobject (CL_BAD_BUFFER_SIZE_POINTER ));
1220+ (void ) dictinsert (d , "BAD_BUFFER_SIZE" ,
1221+ newintobject (CL_BAD_BUFFER_SIZE ));
1222+ (void ) dictinsert (d , "BAD_BUFFER_TYPE" ,
1223+ newintobject (CL_BAD_BUFFER_TYPE ));
1224+ (void ) dictinsert (d , "BAD_HEADER_SIZE" ,
1225+ newintobject (CL_BAD_HEADER_SIZE ));
1226+ (void ) dictinsert (d , "BAD_FUNCTION_POINTER" ,
1227+ newintobject (CL_BAD_FUNCTION_POINTER ));
1228+ (void ) dictinsert (d , "BAD_SCHEME_POINTER" ,
1229+ newintobject (CL_BAD_SCHEME_POINTER ));
1230+ (void ) dictinsert (d , "BAD_STRING_POINTER" ,
1231+ newintobject (CL_BAD_STRING_POINTER ));
1232+ (void ) dictinsert (d , "BAD_MIN_GT_MAX" ,
1233+ newintobject (CL_BAD_MIN_GT_MAX ));
1234+ (void ) dictinsert (d , "BAD_INITIAL_VALUE" ,
1235+ newintobject (CL_BAD_INITIAL_VALUE ));
1236+ (void ) dictinsert (d , "BAD_PARAM_ID_POINTER" ,
1237+ newintobject (CL_BAD_PARAM_ID_POINTER ));
1238+ (void ) dictinsert (d , "BAD_PARAM_TYPE" ,
1239+ newintobject (CL_BAD_PARAM_TYPE ));
1240+ (void ) dictinsert (d , "BAD_TEXT_STRING_PTR" ,
1241+ newintobject (CL_BAD_TEXT_STRING_PTR ));
1242+ (void ) dictinsert (d , "BAD_FUNCTIONALITY" ,
1243+ newintobject (CL_BAD_FUNCTIONALITY ));
1244+ (void ) dictinsert (d , "BAD_NUMBER_OF_BLOCKS" ,
1245+ newintobject (CL_BAD_NUMBER_OF_BLOCKS ));
1246+ (void ) dictinsert (d , "BAD_BLOCK_SIZE" ,
1247+ newintobject (CL_BAD_BLOCK_SIZE ));
1248+ (void ) dictinsert (d , "BAD_POINTER" , newintobject (CL_BAD_POINTER ));
1249+ (void ) dictinsert (d , "BAD_BOARD" , newintobject (CL_BAD_BOARD ));
1250+ (void ) dictinsert (d , "MVC2_ERROR" , newintobject (CL_MVC2_ERROR ));
1251+ #ifdef IRIX_5_3_LIBRARY
1252+ (void ) dictinsert (d , "NEXT_NOT_AVAILABLE" ,
1253+ newintobject (CL_NEXT_NOT_AVAILABLE ));
1254+ (void ) dictinsert (d , "SCHEME_BUSY" , newintobject (CL_SCHEME_BUSY ));
1255+ (void ) dictinsert (d , "SCHEME_NOT_AVAILABLE" ,
1256+ newintobject (CL_SCHEME_NOT_AVAILABLE ));
1257+ #endif
1258+ #ifdef CL_LUMA_THRESHOLD
1259+ /* backward compatibility */
1260+ (void ) dictinsert (d , "LUMA_THRESHOLD" ,
1261+ newintobject (CL_LUMA_THRESHOLD ));
1262+ (void ) dictinsert (d , "CHROMA_THRESHOLD" ,
1263+ newintobject (CL_CHROMA_THRESHOLD ));
1264+ (void ) dictinsert (d , "EDGE_THRESHOLD" ,
1265+ newintobject (CL_EDGE_THRESHOLD ));
1266+ (void ) dictinsert (d , "BLENDING" , newintobject (CL_BLENDING ));
1267+ (void ) dictinsert (d , "QUALITY_FACTOR" ,
1268+ newintobject (CL_QUALITY_FACTOR ));
1269+ (void ) dictinsert (d , "STREAM_HEADERS" ,
1270+ newintobject (CL_STREAM_HEADERS ));
1271+ (void ) dictinsert (d , "QUALITY_LEVEL" , newintobject (CL_QUALITY_LEVEL ));
1272+ (void ) dictinsert (d , "TILE_THRESHOLD" ,
1273+ newintobject (CL_TILE_THRESHOLD ));
1274+ (void ) dictinsert (d , "SAMPLES_PER_TILE" ,
1275+ newintobject (CL_SAMPLES_PER_TILE ));
1276+ #endif
1277+
1278+ if (err_occurred ())
1279+ fatal ("can't initialize module cl" );
9511280
9521281 (void ) clSetErrorHandler (cl_ErrorHandler );
9531282}
0 commit comments