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

"{ NameSpace: Cairo }"

Object subclass:#CPrimitives

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Cairo-Primitives'

!

!CPrimitives class methodsFor:'accessing'!

dllPath

    OperatingSystem isMSWINDOWSlike ifTrue:[

        ^ #( 'C:\Windows' 'C:\Windows\System32' "Wild guess, should not harm" )

    ].

    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'

    "

        SqliteLibrary dllPath

    "

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

!

libraryName

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

    OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].

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

! !

!CPrimitives class methodsFor:'primitives'!

cairo_append_path: cr _: path 

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

    self primitiveFailed

!

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

    <cdecl: void "cairo_arc" ( Cairo::GraphicsContext double double double double double ) >

    self primitiveFailed

!

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

    <cdecl: void "cairo_arc_negative" ( Cairo::GraphicsContext double double double double double ) >

    self primitiveFailed

!

cairo_clip: cr 

    <cdecl: void "cairo_clip" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

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

    <cdecl: void "cairo_clip_extents" ( Cairo::GraphicsContext doublePointer doublePointer doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_clip_preserve: cr 

    <cdecl: void "cairo_clip_preserve" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_close_path: cr 

    <cdecl: void "cairo_close_path" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_copy_clip_rectangle_list: cr 

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

    self primitiveFailed

!

cairo_copy_page: cr 

    <cdecl: void "cairo_copy_page" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_copy_path: cr 

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

    self primitiveFailed

!

cairo_copy_path_flat: cr 

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

    self primitiveFailed

!

cairo_create: target 

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

    self primitiveFailed

!

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

    <cdecl: void "cairo_curve_to" ( Cairo::GraphicsContext 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" ( Cairo::GraphicsContext ) >

    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" ( Cairo::GraphicsContext doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_device_to_user_distance: cr _: dx _: dy 

    <cdecl: void "cairo_device_to_user_distance" ( Cairo::GraphicsContext doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_fill: cr 

    <cdecl: void "cairo_fill" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

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

    <cdecl: void "cairo_fill_extents" ( Cairo::GraphicsContext doublePointer doublePointer doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_fill_preserve: cr 

    <cdecl: void "cairo_fill_preserve" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_font_extents: cr _: extents 

    <cdecl: void "cairo_font_extents" ( Cairo::GraphicsContext 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_get_antialias: cr 

    <cdecl: int32 "cairo_get_antialias" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_current_point: cr _: x _: y 

    <cdecl: void "cairo_get_current_point" ( Cairo::GraphicsContext doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_get_dash: cr _: dashes _: offset 

    <cdecl: void "cairo_get_dash" ( Cairo::GraphicsContext doublePointer doublePointer ) >

    self primitiveFailed

!

cairo_get_dash_count: cr 

    <cdecl: int32 "cairo_get_dash_count" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_fill_rule: cr 

    <cdecl: int32 "cairo_get_fill_rule" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_font_face: cr 

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

    self primitiveFailed

!

cairo_get_font_matrix: cr _: matrix 

    <cdecl: void "cairo_get_font_matrix" ( Cairo::GraphicsContext Cairo::Matrix ) >

    self primitiveFailed

!

cairo_get_font_options: cr _: options 

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

    self primitiveFailed

!

cairo_get_group_target: cr 

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

    self primitiveFailed

!

cairo_get_line_cap: cr 

    <cdecl: int32 "cairo_get_line_cap" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_line_join: cr 

    <cdecl: int32 "cairo_get_line_join" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_line_width: cr 

    <cdecl: double "cairo_get_line_width" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_matrix: cr _: matrix 

    <cdecl: void "cairo_get_matrix" ( Cairo::GraphicsContext Cairo::Matrix ) >

    self primitiveFailed

!

cairo_get_miter_limit: cr 

    <cdecl: double "cairo_get_miter_limit" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_operator: cr 

    <cdecl: int32 "cairo_get_operator" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!

cairo_get_reference_count: cr 

    <cdecl: uint32 "cairo_get_reference_count" ( Cairo::GraphicsContext ) >

    self primitiveFailed

!