suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win64: fix JPEG structs

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-04 17:38:21 -07:00
parent 6d1db909c4
commit dba0472873
1 changed files with 37 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
collects/racket/draw/unsafe/jpeg.rkt
View File

@ -35,6 +35,11 @@
(define _J_DCT_METHOD _int) (define _J_DCT_METHOD _int)
(define _J_DITHER_MODE _int) (define _J_DITHER_MODE _int)
(define _jbool (if win64?
(make-ctype _byte
(lambda (v) (if v 1 0))
(lambda (v) (not (zero? v))))
_bool))
(define-enum (define-enum
0 0
JCS_UNKNOWN JCS_UNKNOWN
@ -78,13 +83,13 @@
(define _comp_info_size (define _comp_info_size
(case JPEG_LIB_VERSION (case JPEG_LIB_VERSION
[(62 70) _pointer] [(62 70) _pointer]
[else (make-cstruct-type (list _pointer _bool))])) [else (make-cstruct-type (list _pointer _jbool))]))
(define-cstruct _jpeg_decompress_struct ([err _jpeg_error_mgr-pointer] (define-cstruct _jpeg_decompress_struct ([err _jpeg_error_mgr-pointer]
[mem _jpeg_memory_mgr-pointer] [mem _jpeg_memory_mgr-pointer]
[progress _pointer] ; _jpeg_progress_mgr_pointer [progress _pointer] ; _jpeg_progress_mgr_pointer
[client_data _pointer] [client_data _pointer]
[is_decompressor _bool] [is_decompressor _jbool]
[global_state _int] [global_state _int]
[src* _pointer] ; actually jpeg_source_mgr-pointer [src* _pointer] ; actually jpeg_source_mgr-pointer
@ -99,20 +104,20 @@
[output_gamma _double] [output_gamma _double]
[buffered_image _bool] [buffered_image _jbool]
[raw_data_out _bool] [raw_data_out _jbool]
[dct_method _J_DCT_METHOD] [dct_method _J_DCT_METHOD]
[do_fancy_upsampling _bool] [do_fancy_upsampling _jbool]
[do_block_smoothing _bool] [do_block_smoothing _jbool]
[quantize_colors _bool] [quantize_colors _jbool]
[dither_mode _J_DITHER_MODE] [dither_mode _J_DITHER_MODE]
[two_pass_quantize _bool] [two_pass_quantize _jbool]
[desired_number_of_colors _int] [desired_number_of_colors _int]
[enable_1pass_quant _bool] [enable_1pass_quant _jbool]
[enable_external_quant _bool] [enable_external_quant _jbool]
[enable_2pass_quant _bool] [enable_2pass_quant _jbool]
[output_width _JDIMENSION] [output_width _JDIMENSION]
[output_height _JDIMENSION] [output_height _JDIMENSION]
@ -151,8 +156,8 @@
[comp_info&is_baseline _comp_info_size] [comp_info&is_baseline _comp_info_size]
[progressive_mode _bool] [progressive_mode _jbool]
[arith_code _bool] [arith_code _jbool]
[arith_dc_L_1 _uint8] [arith_dc_L_1 _uint8]
[arith_dc_L_2 _uint8] [arith_dc_L_2 _uint8]
@ -207,16 +212,16 @@
[restart_interval _uint] [restart_interval _uint]
[saw_JFIF_marker _bool] [saw_JFIF_marker _jbool]
[JFIF_major_version _uint8] [JFIF_major_version _uint8]
[JFIF_minor_version _uint8] [JFIF_minor_version _uint8]
[density_unit _uint8] [density_unit _uint8]
[X_density _uint16] [X_density _uint16]
[Y_density _uint16] [Y_density _uint16]
[saw_Adobe_marker _bool] [saw_Adobe_marker _jbool]
[Adobe_transform _uint8] [Adobe_transform _uint8]
[CCIR601_sampling _bool] [CCIR601_sampling _jbool]
[marker_list _pointer] [marker_list _pointer]
@ -272,9 +277,9 @@
(define-cstruct _jpeg_source_mgr ([next_input_byte _pointer] ;; /* => next byte to read from buffer */ (define-cstruct _jpeg_source_mgr ([next_input_byte _pointer] ;; /* => next byte to read from buffer */
[bytes_in_buffer _size_t] ;; /* # of bytes remaining in buffer */ [bytes_in_buffer _size_t] ;; /* # of bytes remaining in buffer */
[init_source (_fun _j_decompress_ptr -> _void)] [init_source (_fun _j_decompress_ptr -> _void)]
[fill_input_buffer (_fun _j_decompress_ptr -> _bool)] [fill_input_buffer (_fun _j_decompress_ptr -> _jbool)]
[skip_input_data (_fun _j_decompress_ptr _long -> _void)] [skip_input_data (_fun _j_decompress_ptr _long -> _void)]
[resync_to_restart (_fun _j_decompress_ptr _int -> _bool)] [resync_to_restart (_fun _j_decompress_ptr _int -> _jbool)]
[term_source (_fun _j_decompress_ptr -> _void)] [term_source (_fun _j_decompress_ptr -> _void)]
;; extra fields specific to this binding: ;; extra fields specific to this binding:
[buffer _pointer])) [buffer _pointer]))
@ -308,8 +313,8 @@
(define _sampling_t (define _sampling_t
(case JPEG_LIB_VERSION (case JPEG_LIB_VERSION
[(62) _bool] ; just CCIR601_sampling [(62) _jbool] ; just CCIR601_sampling
[else (make-cstruct-type (list _bool _bool))])) ; CCIR601_sampling and do_fancy_downsampling [else (make-cstruct-type (list _jbool _jbool))])) ; CCIR601_sampling and do_fancy_downsampling
(define-cstruct _factors_62_t ([max_h_samp_factor _int] (define-cstruct _factors_62_t ([max_h_samp_factor _int]
[max_v_samp_factor _int])) [max_v_samp_factor _int]))
@ -324,7 +329,7 @@
[mem _jpeg_memory_mgr-pointer] [mem _jpeg_memory_mgr-pointer]
[progress _pointer] ; _jpeg_progress_mgr_pointer [progress _pointer] ; _jpeg_progress_mgr_pointer
[client_data _pointer] [client_data _pointer]
[is_decompressor _bool] [is_decompressor _jbool]
[global_state _int] [global_state _int]
[dest* _pointer] ; actually jpeg_destination_mgr-pointer [dest* _pointer] ; actually jpeg_destination_mgr-pointer
@ -408,9 +413,9 @@
[num_scans _int] [num_scans _int]
[scan_info _pointer] [scan_info _pointer]
[raw_data_in _bool] [raw_data_in _jbool]
[arith_code _bool] [arith_code _jbool]
[optimize_coding _bool] [optimize_coding _jbool]
[sampling _sampling_t] [sampling _sampling_t]
[smoothing_factor _int] [smoothing_factor _int]
[dct_method _J_DCT_METHOD] [dct_method _J_DCT_METHOD]
@ -418,17 +423,17 @@
[restart_interval _uint] [restart_interval _uint]
[restart_in_rows _int] [restart_in_rows _int]
[write_JFIF_header _bool] [write_JFIF_header _jbool]
[JFIF_major_version _uint8] [JFIF_major_version _uint8]
[JFIF_minor_version _uint8] [JFIF_minor_version _uint8]
[density_unit _uint8] [density_unit _uint8]
[X_density _uint16] [X_density _uint16]
[Y_density _uint16] [Y_density _uint16]
[write_Adobe_marker _bool] [write_Adobe_marker _jbool]
[next_scanline _JDIMENSION] [next_scanline _JDIMENSION]
[progressive_mode _bool] [progressive_mode _jbool]
[factors _factors_t] [factors _factors_t]
[total_iMCU_rows _JDIMENSION] [total_iMCU_rows _JDIMENSION]
@ -474,7 +479,7 @@
(define-cstruct _jpeg_destination_mgr ([next_output_byte _pointer] ;; /* => next byte to write in buffer */ (define-cstruct _jpeg_destination_mgr ([next_output_byte _pointer] ;; /* => next byte to write in buffer */
[free_in_buffer _size_t] ;; /* # of byte spaces remaining in buffer */ [free_in_buffer _size_t] ;; /* # of byte spaces remaining in buffer */
[init_destination (_fun _j_compress_ptr -> _void)] [init_destination (_fun _j_compress_ptr -> _void)]
[empty_output_buffer (_fun _j_compress_ptr -> _bool)] [empty_output_buffer (_fun _j_compress_ptr -> _jbool)]
[term_destination (_fun _j_compress_ptr -> _void)] [term_destination (_fun _j_compress_ptr -> _void)]
;; extra fields specific to this binding: ;; extra fields specific to this binding:
[buffer _pointer])) [buffer _pointer]))
@ -632,16 +637,16 @@
(define-jpeg/private jpeg_std_error (_fun _jpeg_error_mgr-pointer -> _jpeg_error_mgr-pointer)) (define-jpeg/private jpeg_std_error (_fun _jpeg_error_mgr-pointer -> _jpeg_error_mgr-pointer))
(define-jpeg/private jpeg_CreateDecompress (_fun _j_decompress_ptr _int _int -> _void)) (define-jpeg/private jpeg_CreateDecompress (_fun _j_decompress_ptr _int _int -> _void))
(define-jpeg/private jpeg_resync_to_restart (_fun _j_decompress_ptr _int -> _bool)) (define-jpeg/private jpeg_resync_to_restart (_fun _j_decompress_ptr _int -> _jbool))
(define-jpeg jpeg_read_header (_fun _j_decompress_ptr _bool -> _void)) (define-jpeg jpeg_read_header (_fun _j_decompress_ptr _jbool -> _void))
(define-jpeg jpeg_start_decompress (_fun _j_decompress_ptr -> _void)) (define-jpeg jpeg_start_decompress (_fun _j_decompress_ptr -> _void))
(define-jpeg jpeg_read_scanlines (_fun _j_decompress_ptr _pointer _int -> _void)) (define-jpeg jpeg_read_scanlines (_fun _j_decompress_ptr _pointer _int -> _void))
(define-jpeg jpeg_finish_decompress (_fun _j_decompress_ptr -> _int)) (define-jpeg jpeg_finish_decompress (_fun _j_decompress_ptr -> _int))
(define-jpeg/private jpeg_CreateCompress (_fun _j_compress_ptr _int _int -> _void)) (define-jpeg/private jpeg_CreateCompress (_fun _j_compress_ptr _int _int -> _void))
(define-jpeg jpeg_set_defaults (_fun _j_compress_ptr -> _int)) (define-jpeg jpeg_set_defaults (_fun _j_compress_ptr -> _int))
(define-jpeg jpeg_set_quality (_fun _j_compress_ptr _int _bool -> _int)) (define-jpeg jpeg_set_quality (_fun _j_compress_ptr _int _jbool -> _int))
(define-jpeg jpeg_start_compress (_fun _j_compress_ptr _bool -> _void)) (define-jpeg jpeg_start_compress (_fun _j_compress_ptr _jbool -> _void))
(define-jpeg jpeg_write_scanlines (_fun _j_compress_ptr _pointer _int -> _void)) (define-jpeg jpeg_write_scanlines (_fun _j_compress_ptr _pointer _int -> _void))
(define-jpeg jpeg_finish_compress (_fun _j_compress_ptr -> _int)) (define-jpeg jpeg_finish_compress (_fun _j_compress_ptr -> _int))