10 #:*glib-interface-age*
21 (eval-when (:compile-toplevel :load-toplevel :execute)
22 (define-foreign-library glib
23 (:unix "libglib-2.0.so")
26 (use-foreign-library glib)
28 (load-foreign-library "libgthread-2.0.so")
35 ;; Fundamentals - Basic types
39 ;; TODO: not sure about these: for amd64 they are ok
40 (eval-when (:compile-toplevel :load-toplevel :execute)
41 (if (cffi-features:cffi-feature-p :x86-64)
42 (defctype gsize :uint64)
43 (error "Unknown type 'gsize'")))
45 (defctype gssize :long)
47 (defctype goffset :uint64)
51 ;; Fundamentals - Version information
54 (defcvar (*glib-major-version* "glib_major_version" :read-only t :library glib) :uint)
55 (defcvar (*glib-minor-version* "glib_minor_version" :read-only t :library glib) :uint)
56 (defcvar (*glib-micro-version* "glib_micro_version" :read-only t :library glib) :uint)
57 (defcvar (*glib-binary-age* "glib_binary_age" :read-only t :library glib) :uint)
58 (defcvar (*glib-interface-age* "glib_interface_age" :read-only t :library glib) :uint)
62 ;; Limits of Basic Types, Standard Macros, Type Conversion Macros, Byte Order Macros,
63 ;; Numerical Definitions, Miscellaneous Macros, Atomic operations
66 ;; Core Application Support - The Main Event Loop
68 (defcstruct g-main-loop)
69 (defcstruct g-main-context)
71 (defcstruct g-source-funcs
76 (closure-callback :pointer)
77 (closure-marshal :pointer))
78 (defcstruct g-source-callback-funcs
86 (fd :int) ;; TODO: #if defined (G_OS_WIN32) && GLIB_SIZEOF_VOID_P == 8
90 (defcstruct g-time-val
96 (defcfun (g-main-loop-new "g_main_loop_new" :library glib) (:pointer g-main-loop)
97 (context (:pointer g-main-context))
98 (is-running :boolean))
100 (defcfun (g-main-loop-ref "g_main_loop_ref" :library glib) (:pointer g-main-loop)
101 (loop (:pointer g-main-loop)))
103 (defcfun (g-main-loop-unref "g_main_loop_unref" :library glib) (:pointer g-main-loop)
104 (loop (:pointer g-main-loop)))
106 (defcfun (g-main-loop-run "g_main_loop_run" :library glib) :void
107 (loop (:pointer g-main-loop)))
109 (defcfun (g-main-loop-quit "g_main_loop_quit" :library glib) :void
110 (loop (:pointer g-main-loop)))
112 (defcfun (g-main-loop-is-running "g_main_loop_is_running" :library glib) :boolean
113 (loop (:pointer g-main-loop)))
115 (defcfun (g-main-loop-get-context "g_main_loop_get_context" :library glib) (:pointer g-main-context)
116 (loop (:pointer g-main-loop)))
118 (defconstant +g-priority-high+ -100)
119 (defconstant +g-priority-default+ 0)
120 (defconstant +g-priority-high-idle+ 100)
121 (defconstant +g-priority-default-idle+ 200)
122 (defconstant +g-priority-low+ 300)
124 (defcfun (g-main-context-new "g_main_context_new" :library glib) (:pointer g-main-context))
126 (defcfun (g-main-context-ref "g_main_context_ref" :library glib) (:pointer g-main-context)
127 (context (:pointer g-main-context)))
129 (defcfun (g-main-context-unref "g_main_context_unref" :library glib) (:pointer g-main-context)
130 (context (:pointer g-main-context)))
132 (defcfun (g-main-context-default "g_main_context_default" :library glib) (:pointer g-main-context))
134 (defcfun (g-main-context-iteration "g_main_context_iteration" :library glib) :boolean
135 (context (:pointer g-main-context))
136 (may-block :boolean))
138 (defcfun (g-main-context-pending "g_main_context_pending" :library glib) :boolean
139 (context (:pointer g-main-context)))
141 (defcfun (g-main-context-find-source-by-id "g_main_context_find_source_by_id" :library glib) (:pointer g-source)
142 (context (:pointer g-main-context))
145 (defcfun (g-main-context-find-source-by-user-data "g_main_context_find_source_by_user_data" :library glib) (:pointer g-source)
146 (context (:pointer g-main-context))
147 (user-data :pointer))
149 (defcfun (g-main-context-find-source-by-funcs-user-data "g_main_context_find_source_by_funcs_user_data" :library glib) (:pointer g-source)
150 (context (:pointer g-main-context))
151 (funcs (:pointer g-source-funcs))
152 (user-data :pointer))
154 (defcfun (g-main-context-wakeup "g_main_context_wakeup" :library glib) :void
155 (context (:pointer g-main-context)))
157 (defcfun (g-main-context-acquire "g_main_context_acquire" :library glib) :boolean
158 (context (:pointer g-main-context)))
160 (defcfun (g-main-context-release "g_main_context_release" :library glib) :void
161 (context (:pointer g-main-context)))
163 (defcfun (g-main-context-is-owner "g_main_context_is_owner" :library glib) :boolean
164 (context (:pointer g-main-context)))
166 (defcfun (g-main-context-wait "g_main_context_wait" :library glib) :boolean
167 (context (:pointer g-main-context))
168 (cond (:pointer g-cond))
169 (mutex (:pointer g-mutex)))
171 (defcfun (g_main_context_prepare "g_main_context_prepare" :library glib) :boolean
172 (context (:pointer g-main-context))
173 (priority-ret (:pointer :int)))
175 (defcfun (g_main_context_query "g_main_context_query" :library glib) :int
176 (context (:pointer g-main-context))
178 (timeout-ret (:pointer :int))
179 (fds-ret (:pointer g-poll-fd))
182 (defcfun (g-main-context-check "g_main_context_check" :library glib) :int
183 (context (:pointer g-main-context))
185 (fds (:pointer g-poll-fd))
188 (defcfun (g-main-context-dispatch "g_main_context_dispatch" :library glib) :void
189 (context (:pointer g-main-context)))
191 (defcfun (g-main-context-set-poll-func "g_main_context_set_poll_func" :library glib) :void
192 (context (:pointer g-main-context))
195 (defcfun (g-main-context-get-poll-func "g_main_context_get_poll_func" :library glib) :pointer
196 (context (:pointer g-main-context)))
198 (defcfun (g-main-context-add-poll "g_main_context_add_poll" :library glib) :void
199 (context (:pointer g-main-context))
200 (fd (:pointer g-poll-fd))
203 (defcfun (g-main-context-remove-poll "g_main_context_remove_poll" :library glib) :void
204 (context (:pointer g-main-context))
205 (fd (:pointer g-poll-fd)))
207 (defcfun (g-main-depth "g_main_depth" :library glib) :int)
209 (defcfun (g-main-current-source "g_main_current_source" :library glib) (:pointer g-source))
211 (defcfun (g-timeout-source-new "g_timeout_source_new" :library glib) (:pointer g-source)
212 (interval-milliseconds :int))
214 (defcfun (g-timeout-source-new-seconds "g_timeout_source_new_seconds" :library glib) (:pointer g-source)
215 (interval-seconds :int))
217 (defcfun (g-timeout-add "g_timeout_add" :library glib) :uint
218 (interval-milliseconds :uint)
222 (defcfun (g-timeout-add-full "g_timeout_add_full" :library glib) :uint
224 (interval-milliseconds :uint)
227 (destroy-notify :pointer))
229 (defcfun (g-timeout-add-seconds "g_timeout_add_seconds" :library glib) :uint
230 (interval-seconds :uint)
234 (defcfun (g-timeout-add-seconds-full "g_timeout_add_seconds_full" :library glib) :uint
236 (interval-seconds :uint)
239 (destroy-notify :pointer))
241 (defcfun (g-idle-source-new "g_idle_source_new" :library glib) (:pointer g-source))
243 (defcfun (g-idle-add "g_idle_add" :library glib) :uint
247 (defcfun (g-idle-add-full "g_idle_add_full" :library glib) :uint
253 (defcfun (g-idle-remove-by-data "g_idle_remove_by_data" :library glib) :boolean
256 ;(defctype g-pid :int) ;;TODO: might work on amd64 linux, but on others
258 ;; Omitted GPid, g_child_add_watch, g_child_add_watch_full
260 (defcfun (g-source-new "g_source_new" :library glib) (:pointer g-source)
261 (source-funcs (:pointer g-source-funcs))
264 (defcfun (g-source-ref "g_source_ref" :library glib) (:pointer g-source)
265 (source (:pointer g-source)))
267 (defcfun (g-source-unref "g_source_unref" :library glib) :void
268 (source (:pointer g-source)))
270 (defcfun (g-source-set-funcs "g_source_set_funcs" :library glib) :void
271 (source (:pointer g-source))
272 (funcs (:pointer g-source-funcs)))
274 (defcfun (g-source-attach "g_source_attach" :library glib) :uint
275 (source (:pointer g-source))
276 (context (:pointer g-main-context)))
278 (defcfun (g-source-destroy "g_source_destroy" :library glib) :void
279 (source (:pointer g-source)))
281 (defcfun (g-source-is-destroyed "g_source_is_destroyed" :library glib) :boolean
282 (source (:pointer g-source)))
284 (defcfun (g-source-set-priority "g_source_set_priority" :library glib) :void
285 (source (:pointer g-source))
288 (defcfun (g-source-get-priority "g_source_get_priority" :library glib) :int
289 (source (:pointer g-source)))
291 (defcfun (g-source-set-can-recurse "g_source_set_can_recurse" :library glib) :void
292 (source (:pointer g-source))
293 (can-recurse :boolean))
295 (defcfun (g-source-get-can-recurse "g_source_get_can_recurse" :library glib) :boolean
296 (source (:pointer g-source)))
298 (defcfun (g-source-get-id "g_source_get_id" :library glib) :uint
299 (source (:pointer g-source)))
301 (defcfun (g-source-get-context "g_source_get_context" :library glib) (:pointer g-main-context)
302 (source (:pointer g-source)))
304 (defcfun (g-source-set-callback "g_source_set_callback" :library glib) :void
305 (source (:pointer g-source))
310 (defcfun (g-source-add-poll "g_source_add_poll" :library glib) :void
311 (source (:pointer g-source))
312 (fd (:pointer g-poll-fd)))
314 (defcfun (g-source-remove-poll "g_source_remove_poll" :library glib) :void
315 (source (:pointer g-source))
316 (fd (:pointer g-poll-fd)))
318 (defcfun (g-source-get-current-time "g_source_get_current_time" :library glib) :void
319 (source (:pointer g-source))
320 (timeval-ret (:pointer g-time-val)))
322 (defcfun (g-source-remove "g_source_remove" :library glib) :boolean
325 (defcfun (g-source-remove-by-funcs-user-data "g_source_remove_by_funcs_user_data" :library glib) :boolean
326 (funcs (:pointer g-source-funcs))
329 (defcfun (g-source-remove-by-user-data "g_source_remove_by_user_data" :library glib) :boolean
333 ;; Core Application Support - Threads
336 (defcenum g-thread-error
337 :g-thread-error-again)
339 ;omitted: struct GThreadFunctions
341 (defcfun (g-thread-init "g_thread_init") :void
344 (g-thread-init (null-pointer))
346 (defcenum g-thread-priority
347 :g-thread-priority-low
348 :g-thread-priority-normal
349 :g-thread-priority-hight
350 :g-thread-priority-urgent)
352 ;omitted: g_thread_create, g_thread_create_full, g_thread_yield, g_thread_exit, g_thread_foreach
354 (defcfun (g-thread-self "g_thread_self" :library glib) (:pointer g-thread))
356 (defcfun (g-thread-join "g_thread_join" :library glib) :pointer
357 (thread (:pointer g-thread)))
359 (defcfun (g-thread-priority "g_thread_set_priority" :library glib) :void
360 (thread (:pointer g-thread))
361 (priority g-thread-priority))
363 (defcfun (g-mutex-new "g_mutex_new" :library glib) (:pointer g-mutex))
365 (defcfun (g-mutex-lock "g_mutex_lock" :library glib) :void
366 (mutex (:pointer g-mutex)))
368 (defcfun (g-mutex-try-lock "g_mutex_trylock" :library glib) :boolean
369 (mutex (:pointer g-mutex)))
371 (defcfun (g-mutex-free "g_mutex_free" :library glib) :void
372 (mutex (:pointer g-mutex)))
374 ;omitted: GStaticMutex, GStaticRWLock stuff
376 (defcfun (g-cond-new "g_cond_new" :library glib) (:pointer g-cond))
378 (defcfun (g-cond-signal "g_cond_signal" :library glib) :void
379 (cond (:pointer g-cond)))
381 (defcfun (g-cond-broadcast "g_cond_broadcast" :library glib) :void
382 (cond (:pointer g-cond)))
384 (defcfun (g-cond-wait "g_cond_wait" :library glib) :void
385 (cond (:pointer g-cond))
386 (mutex (:pointer g-mutex)))
388 (defcfun (g-cond-timed-wait "g_cond_timed_wait" :library glib) :boolean
389 (cond (:pointer g-cond))
390 (mutex (:pointer g-mutex))
391 (abs-time (:pointer g-time-val)))
393 (defcfun (g-cond-free "g_cond_free" :library glib) :void
394 (cond (:pointer g-cond)))
396 ;omitted: GPrivate, GOnce stuff
398 ;omitted: Thread pools, Asynchronous queues, Dynamic Loading of Modules,
399 ; Memory Allocation, IO Channels, Error Reporting, Message Output and Debugging Functions, Message Logging
401 (defcfun g-free :void
404 (defcfun (g-malloc "g_malloc0") :pointer
407 (defcfun g-strdup :pointer
408 (str (:string :free-to-foreign t)))
410 ;omitted all GLib Utilites
411 ;TODO: omitted Date and Time Functions