Artifact 099345ea23e52ca8e90da4d78c3bb11e14505d62:
- File cairo/cairo-pdf-functions.ss — part of check-in [a7e9ec9d65] at 2018-12-09 15:20:49 on branch trunk — changed cairo-pdf-surface-create-for-stream closure parameter to ptr (user: aldo size: 960)
0000: 28 64 65 66 69 6e 65 2d 63 61 69 72 6f 2d 66 75 (define-cairo-fu 0010: 6e 63 20 28 2a 20 63 61 69 72 6f 2d 73 75 72 66 nc (* cairo-surf 0020: 61 63 65 2d 74 29 20 63 61 69 72 6f 2d 70 64 66 ace-t) cairo-pdf 0030: 2d 73 75 72 66 61 63 65 2d 63 72 65 61 74 65 20 -surface-create 0040: 28 28 66 69 6c 65 6e 61 6d 65 20 73 74 72 69 6e ((filename strin 0050: 67 29 20 28 77 69 64 74 68 5f 69 6e 5f 70 6f 69 g) (width_in_poi 0060: 6e 74 73 20 64 6f 75 62 6c 65 29 20 28 68 65 69 nts double) (hei 0070: 67 68 74 5f 69 6e 5f 70 6f 69 6e 74 73 20 64 6f ght_in_points do 0080: 75 62 6c 65 29 29 20 22 63 61 69 72 6f 5f 70 64 uble)) "cairo_pd 0090: 66 5f 73 75 72 66 61 63 65 5f 63 72 65 61 74 65 f_surface_create 00a0: 22 29 0a 28 64 65 66 69 6e 65 2d 63 61 69 72 6f ").(define-cairo 00b0: 2d 66 75 6e 63 20 28 2a 20 63 61 69 72 6f 2d 73 -func (* cairo-s 00c0: 75 72 66 61 63 65 2d 74 29 20 63 61 69 72 6f 2d urface-t) cairo- 00d0: 70 64 66 2d 73 75 72 66 61 63 65 2d 63 72 65 61 pdf-surface-crea 00e0: 74 65 2d 66 6f 72 2d 73 74 72 65 61 6d 20 28 28 te-for-stream (( 00f0: 77 72 69 74 65 5f 66 75 6e 63 20 28 2a 20 63 61 write_func (* ca 0100: 69 72 6f 2d 77 72 69 74 65 2d 66 75 6e 63 2d 74 iro-write-func-t 0110: 29 29 20 28 63 6c 6f 73 75 72 65 20 70 74 72 29 )) (closure ptr) 0120: 20 28 77 69 64 74 68 5f 69 6e 5f 70 6f 69 6e 74 (width_in_point 0130: 73 20 64 6f 75 62 6c 65 29 20 28 68 65 69 67 68 s double) (heigh 0140: 74 5f 69 6e 5f 70 6f 69 6e 74 73 20 64 6f 75 62 t_in_points doub 0150: 6c 65 29 29 20 22 63 61 69 72 6f 5f 70 64 66 5f le)) "cairo_pdf_ 0160: 73 75 72 66 61 63 65 5f 63 72 65 61 74 65 5f 66 surface_create_f 0170: 6f 72 5f 73 74 72 65 61 6d 22 29 0a 28 64 65 66 or_stream").(def 0180: 69 6e 65 2d 63 61 69 72 6f 2d 66 75 6e 63 20 76 ine-cairo-func v 0190: 6f 69 64 20 63 61 69 72 6f 2d 70 64 66 2d 73 75 oid cairo-pdf-su 01a0: 72 66 61 63 65 2d 72 65 73 74 72 69 63 74 2d 74 rface-restrict-t 01b0: 6f 2d 76 65 72 73 69 6f 6e 20 28 28 73 75 72 66 o-version ((surf 01c0: 61 63 65 20 28 2a 20 63 61 69 72 6f 2d 73 75 72 ace (* cairo-sur 01d0: 66 61 63 65 2d 74 29 29 20 28 76 65 72 73 69 6f face-t)) (versio 01e0: 6e 20 63 61 69 72 6f 2d 70 64 66 2d 76 65 72 73 n cairo-pdf-vers 01f0: 69 6f 6e 2d 74 29 29 20 22 63 61 69 72 6f 5f 70 ion-t)) "cairo_p 0200: 64 66 5f 73 75 72 66 61 63 65 5f 72 65 73 74 72 df_surface_restr 0210: 69 63 74 5f 74 6f 5f 76 65 72 73 69 6f 6e 22 29 ict_to_version") 0220: 0a 28 64 65 66 69 6e 65 2d 63 61 69 72 6f 2d 66 .(define-cairo-f 0230: 75 6e 63 20 76 6f 69 64 20 63 61 69 72 6f 2d 70 unc void cairo-p 0240: 64 66 2d 67 65 74 2d 76 65 72 73 69 6f 6e 73 20 df-get-versions 0250: 28 28 76 65 72 73 69 6f 6e 73 20 28 2a 20 63 61 ((versions (* ca 0260: 69 72 6f 2d 70 64 66 2d 76 65 72 73 69 6f 6e 2d iro-pdf-version- 0270: 74 2a 29 29 20 28 6e 75 6d 5f 76 65 72 73 69 6f t*)) (num_versio 0280: 6e 73 20 28 2a 20 69 6e 74 29 29 29 20 22 63 61 ns (* int))) "ca 0290: 69 72 6f 5f 70 64 66 5f 67 65 74 5f 76 65 72 73 iro_pdf_get_vers 02a0: 69 6f 6e 73 22 29 0a 28 64 65 66 69 6e 65 2d 63 ions").(define-c 02b0: 61 69 72 6f 2d 66 75 6e 63 20 73 74 72 69 6e 67 airo-func string 02c0: 20 63 61 69 72 6f 2d 70 64 66 2d 76 65 72 73 69 cairo-pdf-versi 02d0: 6f 6e 2d 74 6f 2d 73 74 72 69 6e 67 20 28 28 76 on-to-string ((v 02e0: 65 72 73 69 6f 6e 20 63 61 69 72 6f 2d 70 64 66 ersion cairo-pdf 02f0: 2d 76 65 72 73 69 6f 6e 2d 74 29 29 20 22 63 61 -version-t)) "ca 0300: 69 72 6f 5f 70 64 66 5f 76 65 72 73 69 6f 6e 5f iro_pdf_version_ 0310: 74 6f 5f 73 74 72 69 6e 67 22 29 0a 28 64 65 66 to_string").(def 0320: 69 6e 65 2d 63 61 69 72 6f 2d 66 75 6e 63 20 76 ine-cairo-func v 0330: 6f 69 64 20 63 61 69 72 6f 2d 70 64 66 2d 73 75 oid cairo-pdf-su 0340: 72 66 61 63 65 2d 73 65 74 2d 73 69 7a 65 20 28 rface-set-size ( 0350: 28 73 75 72 66 61 63 65 20 28 2a 20 63 61 69 72 (surface (* cair 0360: 6f 2d 73 75 72 66 61 63 65 2d 74 29 29 20 28 77 o-surface-t)) (w 0370: 69 64 74 68 5f 69 6e 5f 70 6f 69 6e 74 73 20 64 idth_in_points d 0380: 6f 75 62 6c 65 29 20 28 68 65 69 67 68 74 5f 69 ouble) (height_i 0390: 6e 5f 70 6f 69 6e 74 73 20 64 6f 75 62 6c 65 29 n_points double) 03a0: 29 20 22 63 61 69 72 6f 5f 70 64 66 5f 73 75 72 ) "cairo_pdf_sur 03b0: 66 61 63 65 5f 73 65 74 5f 73 69 7a 65 22 29 0a face_set_size").