Mercurial Mercurial > hg > stx-goodies-libcairo / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cairo__Pattern.st
changeset 12 e5f0c18af8a9
parent 11 fdc697f4f190
child 20 18a3e6b5f310 
--- a/Cairo__Pattern.st	Wed May 30 20:06:35 2012 +0000
+++ b/Cairo__Pattern.st	Thu Jun 14 09:18:25 2012 +0000
@@ -6,12 +6,50 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Cairo - Objects'
+	category:'Cairo-Objects'
 !
 
 
 !Pattern 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'].
@@ -19,11 +57,15 @@
 	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
 
 	self error:'Library name for host OS is not known'
+
+    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 structSize
 
 	^0
+
+    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !Pattern class methodsFor:'primitives'!
@@ -148,160 +190,44 @@
     "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-primPatternAddColorStopRgb: pattern offset: offset red: red green: green blue: blue 
-
-	<cdecl: void "cairo_pattern_add_color_stop_rgb" ( Cairo::Pattern double double double double ) >
-	self primitiveFailed
-!
-
-primPatternAddColorStopRgba: pattern offset: offset red: red green: green blue: blue alpha: alpha 
-
-	<cdecl: void "cairo_pattern_add_color_stop_rgba" ( Cairo::Pattern double double double double double ) >
-	self primitiveFailed
-!
-
 primPatternCreateForSurface: surface 
 
 	<cdecl: Cairo::Pattern "cairo_pattern_create_for_surface" ( Cairo::Surface ) >
 	self primitiveFailed
+
+    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 primPatternCreateLinear: x0 y0: y0 x1: x1 y1: y1 
 
 	<cdecl: Cairo::Pattern "cairo_pattern_create_linear" ( double double double double ) >
 	self primitiveFailed
+
+    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 primPatternCreateRadial: cx0 cy0: cy0 radius0: radius0 cx1: cx1 cy1: cy1 radius1: radius1 
 
 	<cdecl: Cairo::Pattern "cairo_pattern_create_radial" ( double double double double double double ) >
 	self primitiveFailed
+
+    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 primPatternCreateRgb: red green: green blue: blue 
 
 	<cdecl: Cairo::Pattern "cairo_pattern_create_rgb" ( double double double ) >
 	self primitiveFailed
+
+    "Modified: / 10-09-2008 / 18:19:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 primPatternCreateRgba: red green: green blue: blue alpha: alpha 
 
 	<cdecl: Cairo::Pattern "cairo_pattern_create_rgba" ( double double double double ) >
 	self primitiveFailed
-!
 
-primPatternDestroy: pattern 
-
-	<cdecl: void "cairo_pattern_destroy" ( Cairo::Pattern ) >
-	self primitiveFailed
-!
-
-primPatternGetColorStopCount: pattern count: count 
-
-	<cdecl: int32 "cairo_pattern_get_color_stop_count" ( Cairo::Pattern int32Pointer ) >
-	self primitiveFailed
-!
-
-primPatternGetColorStopRgba: pattern index: index offset: offset red: red green: green blue: blue alpha: alpha 
-
-	<cdecl: int32 "cairo_pattern_get_color_stop_rgba" ( Cairo::Pattern int32 doublePointer doublePointer doublePointer doublePointer doublePointer ) >
-	self primitiveFailed
-!
-
-primPatternGetExtend: pattern 
-
-	<cdecl: int32 "cairo_pattern_get_extend" ( Cairo::Pattern ) >
-	self primitiveFailed
-!
-
-primPatternGetFilter: pattern 
-
-	<cdecl: int32 "cairo_pattern_get_filter" ( Cairo::Pattern ) >
-	self primitiveFailed
-!
-
-primPatternGetLinearPoints: pattern x0: x0 y0: y0 x1: x1 y1: y1 
-
-	<cdecl: int32 "cairo_pattern_get_linear_points" ( Cairo::Pattern doublePointer doublePointer doublePointer doublePointer ) >
-	self primitiveFailed
-!
-
-primPatternGetMatrix: pattern matrix: matrix 
-
-	<cdecl: void "cairo_pattern_get_matrix" ( Cairo::Pattern Cairo::Matrix ) >
-	self primitiveFailed
-!
-
-primPatternGetRadialCircles: pattern x0: x0 y0: y0 r0: r0 x1: x1 y1: y1 r1: r1 
-
-	<cdecl: int32 "cairo_pattern_get_radial_circles" ( Cairo::Pattern doublePointer doublePointer doublePointer doublePointer doublePointer doublePointer ) >
-	self primitiveFailed
-!
-
-primPatternGetReferenceCount: pattern 
-
-	<cdecl: uint32 "cairo_pattern_get_reference_count" ( Cairo::Pattern ) >
-	self primitiveFailed
-!
-
-primPatternGetRgba: pattern red: red green: green blue: blue alpha: alpha 
-
-	<cdecl: int32 "cairo_pattern_get_rgba" ( Cairo::Pattern doublePointer doublePointer doublePointer doublePointer ) >
-	self primitiveFailed
-!
-
-primPatternGetSurface: pattern surface: surface 
-
-	<cdecl: int32 "cairo_pattern_get_surface" ( Cairo::Pattern pointer ) >
-	self primitiveFailed
-!
-
-primPatternGetType: pattern 
-
-	<cdecl: int32 "cairo_pattern_get_type" ( Cairo::Pattern ) >
-	self primitiveFailed
-!
-
-primPatternGetUserData: pattern key: key 
-
-	<cdecl: voidPointer "cairo_pattern_get_user_data" ( Cairo::Pattern Cairo::UserDataKey ) >
-	self primitiveFailed
-!
-
-primPatternReference: pattern 
-
-	<cdecl: Cairo::Pattern "cairo_pattern_reference" ( Cairo::Pattern ) >
-	self primitiveFailed
-!
-
-primPatternSetExtend: pattern extend: extend 
-
-	<cdecl: void "cairo_pattern_set_extend" ( Cairo::Pattern int32 ) >
-	self primitiveFailed
-!
-
-primPatternSetFilter: pattern filter: filter 
-
-	<cdecl: void "cairo_pattern_set_filter" ( Cairo::Pattern int32 ) >
-	self primitiveFailed
-!
-
-primPatternSetMatrix: pattern matrix: matrix 
-
-	<cdecl: void "cairo_pattern_set_matrix" ( Cairo::Pattern Cairo::Matrix ) >
-	self primitiveFailed
-!
-
-primPatternSetUserData: pattern key: key userData: user_data destroy: destroy 
-
-	<cdecl: int32 "cairo_pattern_set_user_data" ( Cairo::Pattern Cairo::UserDataKey voidPointer pointer ) >
-	self primitiveFailed
-!
-
-primPatternStatus: pattern 
-
-	<cdecl: int32 "cairo_pattern_status" ( Cairo::Pattern ) >
-	self primitiveFailed
+    "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 primReference: pattern
hg/stx-goodies-libcairo