"{ Package: 'stx:goodies/libcairo' }"

"{ NameSpace: Cairo }"

Object subclass:#CPrimitives

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Cairo-Primitives'

!

!CPrimitives class methodsFor:'accessing'!

dllPath

    OperatingSystem isMSWINDOWSlike ifTrue:[

        ^ {

            OperatingSystem pathOfSTXExecutable asFilename directory pathName .

            (Smalltalk getPackageDirectoryForPackage: self package) pathName .

            ((Smalltalk getPackageDirectoryForPackage: self package) / 'support' / 'win32' / (OperatingSystem getSystemInfo at:#machine)) pathName .

            'C:\Windows' .

            'C:\Windows\SYSTEM32' .

        }

    ].

    OperatingSystem isUNIXlike ifTrue:[

        OperatingSystem getSystemType == #linux ifTrue:[

            | path |

            path := #( '/lib' '/usr/lib' '/usr/local/lib' ).

            (OperatingSystem getSystemInfo at:#machine) = 'x86_64' ifTrue:[

                "If the machine is 64bit, prepend standard path for 32bit libs.

                 Leave standard paths at the end, as the system might be completely

                 32bit but running on 64bit-capable CPU.

                CAVEAT: This is bit dangerous, as on 64bit OS, if ia32 libs are

                not installed byt 64bit sqlite libs are, then 64bit libs are found

                and when a function is called, segfault will occur!!

                Q: Is there a way how to figure out if the OS itself is 32bit,

                regardles on CPU?"

                path := #( '/lib32' '/usr/lib32' '/usr/local/lib32' ) , path.

            ].

            ^path

        ].

    ].

    self error:'Unsupported operating system'

    "

        CPrimitives dllPath

    "

    "Created: / 31-08-2011 / 18:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 19-02-2016 / 13:56:18 / jv"

!

libraryName

    OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].

    OperatingSystem isMSWINDOWSlike ifTrue:[^'libcairo-2.dll'].

    self error:'Library name for host OS is not known'

    "Modified: / 19-02-2016 / 13:47:51 / jv"

! !

!CPrimitives class methodsFor:'primitives'!

cairo_append_path: cr _: path

    <cdecl: void "cairo_append_path" ( handle Cairo::Path ) >

    self primitiveFailed

!

cairo_arc: cr _: xc _: yc _: radius _: angle1 _: angle2

    <cdecl: void "cairo_arc" ( handle double double double double double ) >

    self primitiveFailed

!

cairo_arc_negative: cr _: xc _: yc _: radius _: angle1 _: angle2

    <cdecl: void "cairo_arc_negative" ( handle double double double double double ) >

    self primitiveFailed

!

cairo_clip: cr

    <cdecl: void "cairo_clip" ( handle ) >

    self primitiveFailed

!

cairo_clip_extents: cr _: x1 _: y1 _: x2 _: y2

    <cdecl: void "cairo_clip_extents" ( handle doublePointer doublePointer doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_clip_preserve: cr

    <cdecl: void "cairo_clip_preserve" ( handle ) >

    self primitiveFailed

!

cairo_close_path: cr

    <cdecl: void "cairo_close_path" ( handle ) >

    self primitiveFailed

!

cairo_copy_clip_rectangle_list: cr

    <cdecl: Cairo::RectangleList "cairo_copy_clip_rectangle_list" ( handle ) >

    self primitiveFailed

!

cairo_copy_page: cr

    <cdecl: void "cairo_copy_page" ( handle ) >

    self primitiveFailed

!

cairo_copy_path: cr

    <cdecl: Cairo::Path "cairo_copy_path" ( handle ) >

    self primitiveFailed

!

cairo_copy_path_flat: cr

    <cdecl: Cairo::Path "cairo_copy_path_flat" ( handle ) >

    self primitiveFailed

!

cairo_create: target

    <cdecl: Cairo::GraphicsContext "cairo_create" ( Cairo::Surface ) >

    self primitiveFailed

    "Modified (format): / 13-02-2016 / 16:06:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

cairo_curve_to: cr _: x1 _: y1 _: x2 _: y2 _: x3 _: y3

    <cdecl: void "cairo_curve_to" ( handle double double double double double double ) >

    self primitiveFailed

!

cairo_debug_reset_static_data

    <cdecl: void "cairo_debug_reset_static_data" ( ) >

    self primitiveFailed

!

cairo_destroy: cr

    <cdecl: void "cairo_destroy" ( handle ) >

    self primitiveFailed

!

cairo_device_acquire: device

    <cdecl: int32 "cairo_device_acquire" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_destroy: device

    <cdecl: void "cairo_device_destroy" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_finish: device

    <cdecl: void "cairo_device_finish" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_flush: device

    <cdecl: void "cairo_device_flush" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_get_reference_count: device

    <cdecl: uint32 "cairo_device_get_reference_count" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_get_type: device

    <cdecl: int32 "cairo_device_get_type" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_get_user_data: device _: key

    <cdecl: voidPointer "cairo_device_get_user_data" ( Cairo::Device Cairo::UserDataKey ) >

    self primitiveFailed

!

cairo_device_observer_elapsed: device

    <cdecl: double "cairo_device_observer_elapsed" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_observer_fill_elapsed: device

    <cdecl: double "cairo_device_observer_fill_elapsed" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_observer_glyphs_elapsed: device

    <cdecl: double "cairo_device_observer_glyphs_elapsed" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_observer_mask_elapsed: device

    <cdecl: double "cairo_device_observer_mask_elapsed" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_observer_paint_elapsed: device

    <cdecl: double "cairo_device_observer_paint_elapsed" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_observer_print: device _: write_func _: closure

    <cdecl: int32 "cairo_device_observer_print" ( Cairo::Device pointer voidPointer ) >

    self primitiveFailed

!

cairo_device_observer_stroke_elapsed: device

    <cdecl: double "cairo_device_observer_stroke_elapsed" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_reference: device

    <cdecl: Cairo::Device "cairo_device_reference" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_release: device

    <cdecl: void "cairo_device_release" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_set_user_data: device _: key _: user_data _: destroy

    <cdecl: int32 "cairo_device_set_user_data" ( Cairo::Device Cairo::UserDataKey voidPointer pointer ) >

    self primitiveFailed

!

cairo_device_status: device

    <cdecl: int32 "cairo_device_status" ( Cairo::Device ) >

    self primitiveFailed

!

cairo_device_to_user: cr _: x _: y

    <cdecl: void "cairo_device_to_user" ( handle doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_device_to_user_distance: cr _: dx _: dy

    <cdecl: void "cairo_device_to_user_distance" ( handle doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_fill: cr

    <cdecl: void "cairo_fill" ( handle ) >

    self primitiveFailed

!

cairo_fill_extents: cr _: x1 _: y1 _: x2 _: y2

    <cdecl: void "cairo_fill_extents" ( handle doublePointer doublePointer doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_fill_preserve: cr

    <cdecl: void "cairo_fill_preserve" ( handle ) >

    self primitiveFailed

!

cairo_font_extents: cr _: extents

    <cdecl: void "cairo_font_extents" ( handle Cairo::FontExtents ) >

    self primitiveFailed

!

cairo_font_face_destroy: font_face

    <cdecl: void "cairo_font_face_destroy" ( Cairo::FontFace ) >

    self primitiveFailed

!

cairo_font_face_get_reference_count: font_face

    <cdecl: uint32 "cairo_font_face_get_reference_count" ( Cairo::FontFace ) >

    self primitiveFailed

!

cairo_font_face_get_type: font_face

    <cdecl: int32 "cairo_font_face_get_type" ( Cairo::FontFace ) >

    self primitiveFailed

!

cairo_font_face_get_user_data: font_face _: key

    <cdecl: voidPointer "cairo_font_face_get_user_data" ( Cairo::FontFace Cairo::UserDataKey ) >

    self primitiveFailed

!

cairo_font_face_reference: font_face

    <cdecl: Cairo::FontFace "cairo_font_face_reference" ( Cairo::FontFace ) >

    self primitiveFailed

!

cairo_font_face_set_user_data: font_face _: key _: user_data _: destroy

    <cdecl: int32 "cairo_font_face_set_user_data" ( Cairo::FontFace Cairo::UserDataKey voidPointer pointer ) >

    self primitiveFailed

!

cairo_font_face_status: font_face

    <cdecl: int32 "cairo_font_face_status" ( Cairo::FontFace ) >

    self primitiveFailed

!

cairo_font_options_copy: original

    <cdecl: Cairo::FontOptions "cairo_font_options_copy" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_create

    <cdecl: Cairo::FontOptions "cairo_font_options_create" ( ) >

    self primitiveFailed

!

cairo_font_options_destroy: options

    <cdecl: void "cairo_font_options_destroy" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_equal: options _: other

    <cdecl: int32 "cairo_font_options_equal" ( Cairo::FontOptions Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_get_antialias: options

    <cdecl: int32 "cairo_font_options_get_antialias" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_get_hint_metrics: options

    <cdecl: int32 "cairo_font_options_get_hint_metrics" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_get_hint_style: options

    <cdecl: int32 "cairo_font_options_get_hint_style" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_get_subpixel_order: options

    <cdecl: int32 "cairo_font_options_get_subpixel_order" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_hash: options

    <cdecl: long "cairo_font_options_hash" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_merge: options _: other

    <cdecl: void "cairo_font_options_merge" ( Cairo::FontOptions Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_font_options_set_antialias: options _: antialias

    <cdecl: void "cairo_font_options_set_antialias" ( Cairo::FontOptions int32 ) >

    self primitiveFailed

!

cairo_font_options_set_hint_metrics: options _: hint_metrics

    <cdecl: void "cairo_font_options_set_hint_metrics" ( Cairo::FontOptions int32 ) >

    self primitiveFailed

!

cairo_font_options_set_hint_style: options _: hint_style

    <cdecl: void "cairo_font_options_set_hint_style" ( Cairo::FontOptions int32 ) >

    self primitiveFailed

!

cairo_font_options_set_subpixel_order: options _: subpixel_order

    <cdecl: void "cairo_font_options_set_subpixel_order" ( Cairo::FontOptions int32 ) >

    self primitiveFailed

!

cairo_font_options_status: options

    <cdecl: int32 "cairo_font_options_status" ( Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_format_stride_for_width: format _: width

    <cdecl: int32 "cairo_format_stride_for_width" ( int32 int32 ) >

    self primitiveFailed

!

cairo_ft_font_face_create_for_pattern: pattern

    <cdecl: Cairo::FontFace "cairo_ft_font_face_create_for_pattern" ( FcPattern ) >

    self primitiveFailed

    "Created: / 17-02-2016 / 20:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

cairo_get_antialias: cr

    <cdecl: int32 "cairo_get_antialias" ( handle ) >

    self primitiveFailed

!

cairo_get_current_point: cr _: x _: y

    <cdecl: void "cairo_get_current_point" ( handle doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_get_dash: cr _: dashes _: offset

    <cdecl: void "cairo_get_dash" ( handle doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_get_dash_count: cr

    <cdecl: int32 "cairo_get_dash_count" ( handle ) >

    self primitiveFailed

!

cairo_get_fill_rule: cr

    <cdecl: int32 "cairo_get_fill_rule" ( handle ) >

    self primitiveFailed

!

cairo_get_font_face: cr

    <cdecl: Cairo::FontFace "cairo_get_font_face" ( handle ) >

    self primitiveFailed

!

cairo_get_font_matrix: cr _: matrix

    <cdecl: void "cairo_get_font_matrix" ( handle pointer ) >

    self primitiveFailed

    "Modified (format): / 18-02-2016 / 10:14:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

cairo_get_font_options: cr _: options

    <cdecl: void "cairo_get_font_options" ( handle Cairo::FontOptions ) >

    self primitiveFailed

!

cairo_get_group_target: cr

    <cdecl: Cairo::Surface "cairo_get_group_target" ( handle ) >

    self primitiveFailed