10 #:*glib-interface-age*
20 #:+g-priority-default+
21 #:+g-priority-high-idle+
22 #:+g-priority-default-idle+
28 (eval-when (:compile-toplevel :load-toplevel :execute)
29 (define-foreign-library glib
30 (:unix "libglib-2.0.so")
33 (use-foreign-library glib)
35 (load-foreign-library "libgthread-2.0.so")
42 ;; Fundamentals - Basic types
46 ;; TODO: not sure about these: for amd64 they are ok
47 (eval-when (:compile-toplevel :load-toplevel :execute)
48 (if (cffi-features:cffi-feature-p :x86-64)
49 (defctype gsize :uint64)
50 (error "Unknown type 'gsize'")))
52 (defctype gssize :long)
54 (defctype goffset :uint64)
58 ;; Fundamentals - Version information
61 (defcvar (*glib-major-version* "glib_major_version" :read-only t :library glib) :uint)
62 (defcvar (*glib-minor-version* "glib_minor_version" :read-only t :library glib) :uint)
63 (defcvar (*glib-micro-version* "glib_micro_version" :read-only t :library glib) :uint)
64 (defcvar (*glib-binary-age* "glib_binary_age" :read-only t :library glib) :uint)
65 (defcvar (*glib-interface-age* "glib_interface_age" :read-only t :library glib) :uint)
69 ;; Limits of Basic Types, Standard Macros, Type Conversion Macros, Byte Order Macros,
70 ;; Numerical Definitions, Miscellaneous Macros, Atomic operations
73 ;; Core Application Support - The Main Event Loop
75 (defcstruct g-main-loop)
76 (defcstruct g-main-context)
78 (defcstruct g-source-funcs
83 (closure-callback :pointer)
84 (closure-marshal :pointer))
85 (defcstruct g-source-callback-funcs
93 (fd :int) ;; TODO: #if defined (G_OS_WIN32) && GLIB_SIZEOF_VOID_P == 8
97 (defcstruct g-time-val
101 (defcstruct g-thread)
103 (defcfun (g-main-loop-new "g_main_loop_new" :library glib) (:pointer g-main-loop)
104 (context (:pointer g-main-context))
105 (is-running :boolean))
107 (defcfun (g-main-loop-ref "g_main_loop_ref" :library glib) (:pointer g-main-loop)
108 (loop (:pointer g-main-loop)))
110 (defcfun (g-main-loop-unref "g_main_loop_unref" :library glib) (:pointer g-main-loop)
111 (loop (:pointer g-main-loop)))
113 (defcfun (g-main-loop-run "g_main_loop_run" :library glib) :void
114 (loop (:pointer g-main-loop)))
116 (defcfun (g-main-loop-quit "g_main_loop_quit" :library glib) :void
117 (loop (:pointer g-main-loop)))
119 (defcfun (g-main-loop-is-running "g_main_loop_is_running" :library glib) :boolean
120 (loop (:pointer g-main-loop)))
122 (defcfun (g-main-loop-get-context "g_main_loop_get_context" :library glib) (:pointer g-main-context)
123 (loop (:pointer g-main-loop)))
125 (defconstant +g-priority-high+ -100)
126 (defconstant +g-priority-default+ 0)
127 (defconstant +g-priority-high-idle+ 100)
128 (defconstant +g-priority-default-idle+ 200)
129 (defconstant +g-priority-low+ 300)
131 (defcfun (g-main-context-new "g_main_context_new" :library glib) (:pointer g-main-context))
133 (defcfun (g-main-context-ref "g_main_context_ref" :library glib) (:pointer g-main-context)
134 (context (:pointer g-main-context)))
136 (defcfun (g-main-context-unref "g_main_context_unref" :library glib) (:pointer g-main-context)
137 (context (:pointer g-main-context)))
139 (defcfun (g-main-context-default "g_main_context_default" :library glib) (:pointer g-main-context))
141 (defcfun (g-main-context-iteration "g_main_context_iteration" :library glib) :boolean
142 (context (:pointer g-main-context))
143 (may-block :boolean))
145 (defcfun (g-main-context-pending "g_main_context_pending" :library glib) :boolean
146 (context (:pointer g-main-context)))
148 (defcfun (g-main-context-find-source-by-id "g_main_context_find_source_by_id" :library glib) (:pointer g-source)
149 (context (:pointer g-main-context))
152 (defcfun (g-main-context-find-source-by-user-data "g_main_context_find_source_by_user_data" :library glib) (:pointer g-source)
153 (context (:pointer g-main-context))
154 (user-data :pointer))
156 (defcfun (g-main-context-find-source-by-funcs-user-data "g_main_context_find_source_by_funcs_user_data" :library glib) (:pointer g-source)
157 (context (:pointer g-main-context))
158 (funcs (:pointer g-source-funcs))
159 (user-data :pointer))
161 (defcfun (g-main-context-wakeup "g_main_context_wakeup" :library glib) :void
162 (context (:pointer g-main-context)))
164 (defcfun (g-main-context-acquire "g_main_context_acquire" :library glib) :boolean
165 (context (:pointer g-main-context)))
167 (defcfun (g-main-context-release "g_main_context_release" :library glib) :void
168 (context (:pointer g-main-context)))
170 (defcfun (g-main-context-is-owner "g_main_context_is_owner" :library glib) :boolean
171 (context (:pointer g-main-context)))
173 (defcfun (g-main-context-wait "g_main_context_wait" :library glib) :boolean
174 (context (:pointer g-main-context))
175 (cond (:pointer g-cond))
176 (mutex (:pointer g-mutex)))
178 (defcfun (g_main_context_prepare "g_main_context_prepare" :library glib) :boolean
179 (context (:pointer g-main-context))
180 (priority-ret (:pointer :int)))
182 (defcfun (g_main_context_query "g_main_context_query" :library glib) :int
183 (context (:pointer g-main-context))
185 (timeout-ret (:pointer :int))
186 (fds-ret (:pointer g-poll-fd))
189 (defcfun (g-main-context-check "g_main_context_check" :library glib) :int
190 (context (:pointer g-main-context))
192 (fds (:pointer g-poll-fd))
195 (defcfun (g-main-context-dispatch "g_main_context_dispatch" :library glib) :void
196 (context (:pointer g-main-context)))
198 (defcfun (g-main-context-set-poll-func "g_main_context_set_poll_func" :library glib) :void
199 (context (:pointer g-main-context))
202 (defcfun (g-main-context-get-poll-func "g_main_context_get_poll_func" :library glib) :pointer
203 (context (:pointer g-main-context)))
205 (defcfun (g-main-context-add-poll "g_main_context_add_poll" :library glib) :void
206 (context (:pointer g-main-context))
207 (fd (:pointer g-poll-fd))
210 (defcfun (g-main-context-remove-poll "g_main_context_remove_poll" :library glib) :void
211 (context (:pointer g-main-context))
212 (fd (:pointer g-poll-fd)))
214 (defcfun (g-main-depth "g_main_depth" :library glib) :int)
216 (defcfun (g-main-current-source "g_main_current_source" :library glib) (:pointer g-source))
218 (defcfun (g-timeout-source-new "g_timeout_source_new" :library glib) (:pointer g-source)
219 (interval-milliseconds :int))
221 (defcfun (g-timeout-source-new-seconds "g_timeout_source_new_seconds" :library glib) (:pointer g-source)
222 (interval-seconds :int))
224 (defcfun (g-timeout-add "g_timeout_add" :library glib) :uint
225 (interval-milliseconds :uint)
229 (defcfun (g-timeout-add-full "g_timeout_add_full" :library glib) :uint
231 (interval-milliseconds :uint)
234 (destroy-notify :pointer))
236 (defcfun (g-timeout-add-seconds "g_timeout_add_seconds" :library glib) :uint
237 (interval-seconds :uint)
241 (defcfun (g-timeout-add-seconds-full "g_timeout_add_seconds_full" :library glib) :uint
243 (interval-seconds :uint)
246 (destroy-notify :pointer))
248 (defcfun (g-idle-source-new "g_idle_source_new" :library glib) (:pointer g-source))
250 (defcfun (g-idle-add "g_idle_add" :library glib) :uint
254 (defcfun (g-idle-add-full "g_idle_add_full" :library glib) :uint
260 (defcfun (g-idle-remove-by-data "g_idle_remove_by_data" :library glib) :boolean
263 ;(defctype g-pid :int) ;;TODO: might work on amd64 linux, but on others
265 ;; Omitted GPid, g_child_add_watch, g_child_add_watch_full
267 (defcfun (g-source-new "g_source_new" :library glib) (:pointer g-source)
268 (source-funcs (:pointer g-source-funcs))
271 (defcfun (g-source-ref "g_source_ref" :library glib) (:pointer g-source)
272 (source (:pointer g-source)))
274 (defcfun (g-source-unref "g_source_unref" :library glib) :void
275 (source (:pointer g-source)))
277 (defcfun (g-source-set-funcs "g_source_set_funcs" :library glib) :void
278 (source (:pointer g-source))
279 (funcs (:pointer g-source-funcs)))
281 (defcfun (g-source-attach "g_source_attach" :library glib) :uint
282 (source (:pointer g-source))
283 (context (:pointer g-main-context)))
285 (defcfun (g-source-destroy "g_source_destroy" :library glib) :void
286 (source (:pointer g-source)))
288 (defcfun (g-source-is-destroyed "g_source_is_destroyed" :library glib) :boolean
289 (source (:pointer g-source)))
291 (defcfun (g-source-set-priority "g_source_set_priority" :library glib) :void
292 (source (:pointer g-source))
295 (defcfun (g-source-get-priority "g_source_get_priority" :library glib) :int
296 (source (:pointer g-source)))
298 (defcfun (g-source-set-can-recurse "g_source_set_can_recurse" :library glib) :void
299 (source (:pointer g-source))
300 (can-recurse :boolean))
302 (defcfun (g-source-get-can-recurse "g_source_get_can_recurse" :library glib) :boolean
303 (source (:pointer g-source)))
305 (defcfun (g-source-get-id "g_source_get_id" :library glib) :uint
306 (source (:pointer g-source)))
308 (defcfun (g-source-get-context "g_source_get_context" :library glib) (:pointer g-main-context)
309 (source (:pointer g-source)))
311 (defcfun (g-source-set-callback "g_source_set_callback" :library glib) :void
312 (source (:pointer g-source))
317 (defcfun (g-source-add-poll "g_source_add_poll" :library glib) :void
318 (source (:pointer g-source))
319 (fd (:pointer g-poll-fd)))
321 (defcfun (g-source-remove-poll "g_source_remove_poll" :library glib) :void
322 (source (:pointer g-source))
323 (fd (:pointer g-poll-fd)))
325 (defcfun (g-source-get-current-time "g_source_get_current_time" :library glib) :void
326 (source (:pointer g-source))
327 (timeval-ret (:pointer g-time-val)))
329 (defcfun (g-source-remove "g_source_remove" :library glib) :boolean
332 (defcfun (g-source-remove-by-funcs-user-data "g_source_remove_by_funcs_user_data" :library glib) :boolean
333 (funcs (:pointer g-source-funcs))
336 (defcfun (g-source-remove-by-user-data "g_source_remove_by_user_data" :library glib) :boolean
340 ;; Core Application Support - Threads
343 (defcenum g-thread-error
344 :g-thread-error-again)
346 ;omitted: struct GThreadFunctions
348 (defcfun (g-thread-init "g_thread_init") :void
351 (defvar *threads-initialized-p* nil)
353 (unless *threads-initialized-p*
354 (g-thread-init (null-pointer))
355 (setf *threads-initialized-p* t))
357 (defcenum g-thread-priority
358 :g-thread-priority-low
359 :g-thread-priority-normal
360 :g-thread-priority-hight
361 :g-thread-priority-urgent)
363 ;omitted: g_thread_create, g_thread_create_full, g_thread_yield, g_thread_exit, g_thread_foreach
365 (defcfun (g-thread-self "g_thread_self" :library glib) (:pointer g-thread))
367 (defcfun (g-thread-join "g_thread_join" :library glib) :pointer
368 (thread (:pointer g-thread)))
370 (defcfun (g-thread-priority "g_thread_set_priority" :library glib) :void
371 (thread (:pointer g-thread))
372 (priority g-thread-priority))
374 (defcfun (g-mutex-new "g_mutex_new" :library glib) (:pointer g-mutex))
376 (defcfun (g-mutex-lock "g_mutex_lock" :library glib) :void
377 (mutex (:pointer g-mutex)))
379 (defcfun (g-mutex-try-lock "g_mutex_trylock" :library glib) :boolean
380 (mutex (:pointer g-mutex)))
382 (defcfun (g-mutex-free "g_mutex_free" :library glib) :void
383 (mutex (:pointer g-mutex)))
385 ;omitted: GStaticMutex, GStaticRWLock stuff
387 (defcfun (g-cond-new "g_cond_new" :library glib) (:pointer g-cond))
389 (defcfun (g-cond-signal "g_cond_signal" :library glib) :void
390 (cond (:pointer g-cond)))
392 (defcfun (g-cond-broadcast "g_cond_broadcast" :library glib) :void
393 (cond (:pointer g-cond)))
395 (defcfun (g-cond-wait "g_cond_wait" :library glib) :void
396 (cond (:pointer g-cond))
397 (mutex (:pointer g-mutex)))
399 (defcfun (g-cond-timed-wait "g_cond_timed_wait" :library glib) :boolean
400 (cond (:pointer g-cond))
401 (mutex (:pointer g-mutex))
402 (abs-time (:pointer g-time-val)))
404 (defcfun (g-cond-free "g_cond_free" :library glib) :void
405 (cond (:pointer g-cond)))
407 ;omitted: GPrivate, GOnce stuff
409 ;omitted: Thread pools, Asynchronous queues, Dynamic Loading of Modules,
410 ; Memory Allocation, IO Channels, Error Reporting, Message Output and Debugging Functions, Message Logging
412 (defcfun g-free :void
415 (defcfun (g-malloc "g_malloc0") :pointer
418 (defcfun g-strdup :pointer
419 (str (:string :free-to-foreign t)))
421 ;omitted all GLib Utilites
422 ;TODO: omitted Date and Time Functions