[15285] | 1 | ;;; -*- lisp -*- |
---|
| 2 | ;;; gnomelib.defs - Export Gnome interfaces to Guile. |
---|
| 3 | ;;; |
---|
| 4 | ;;; Copyright (C) 1998 Tom Tromey |
---|
| 5 | ;;; Copyright (C) 2000 John Harper |
---|
| 6 | ;;; |
---|
| 7 | ;;; This program is free software; you can redistribute it and/or modify |
---|
| 8 | ;;; it under the terms of the GNU General Public License as published by |
---|
| 9 | ;;; the Free Software Foundation; either version 2, or (at your option) |
---|
| 10 | ;;; any later version. |
---|
| 11 | ;;; |
---|
| 12 | ;;; This program is distributed in the hope that it will be useful, |
---|
| 13 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
| 14 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
| 15 | ;;; GNU General Public License for more details. |
---|
| 16 | ;;; |
---|
| 17 | ;;; You should have received a copy of the GNU General Public License |
---|
| 18 | ;;; along with this program; if not, write to the Free Software |
---|
| 19 | ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA |
---|
| 20 | ;;; 02111-1307, USA. */ |
---|
| 21 | |
---|
| 22 | |
---|
| 23 | ;; Gnome util. |
---|
| 24 | |
---|
| 25 | (define-func gnome_libdir_file |
---|
| 26 | string |
---|
| 27 | ((string filename))) |
---|
| 28 | |
---|
| 29 | (define-func gnome_datadir_file |
---|
| 30 | string |
---|
| 31 | ((string filename))) |
---|
| 32 | |
---|
| 33 | (define-func gnome_pixmap_file |
---|
| 34 | string |
---|
| 35 | ((string filename))) |
---|
| 36 | |
---|
| 37 | (define-func gnome_unconditional_libdir_file |
---|
| 38 | string |
---|
| 39 | ((string filename))) |
---|
| 40 | |
---|
| 41 | (define-func gnome_unconditional_datadir_file |
---|
| 42 | string |
---|
| 43 | ((string filename))) |
---|
| 44 | |
---|
| 45 | (define-func gnome_unconditional_pixmap_file |
---|
| 46 | string |
---|
| 47 | ((string filename))) |
---|
| 48 | |
---|
| 49 | |
---|
| 50 | ;; Gnome config. |
---|
| 51 | ;; FIXME: iterators and _with_default functions not included. |
---|
| 52 | |
---|
| 53 | (define-func gnome_config_get_string |
---|
| 54 | string |
---|
| 55 | ((string path))) |
---|
| 56 | |
---|
| 57 | (define-func gnome_config_get_int |
---|
| 58 | int |
---|
| 59 | ((string path))) |
---|
| 60 | |
---|
| 61 | (define-func gnome_config_get_bool |
---|
| 62 | bool |
---|
| 63 | ((string path))) |
---|
| 64 | |
---|
| 65 | (define-func gnome_config_set_string |
---|
| 66 | none |
---|
| 67 | ((string path) |
---|
| 68 | (string value))) |
---|
| 69 | |
---|
| 70 | (define-func gnome_config_set_int |
---|
| 71 | none |
---|
| 72 | ((string path) |
---|
| 73 | (int value))) |
---|
| 74 | |
---|
| 75 | (define-func gnome_config_set_bool |
---|
| 76 | none |
---|
| 77 | ((string path) |
---|
| 78 | (bool value))) |
---|
| 79 | |
---|
| 80 | (define-func gnome_config_has_section |
---|
| 81 | bool |
---|
| 82 | ((string path))) |
---|
| 83 | |
---|
| 84 | (define-func gnome_config_drop_all |
---|
| 85 | none |
---|
| 86 | ()) |
---|
| 87 | |
---|
| 88 | (define-func gnome_config_sync |
---|
| 89 | none |
---|
| 90 | ()) |
---|
| 91 | |
---|
| 92 | (define-func gnome_config_clean_file |
---|
| 93 | none |
---|
| 94 | ((string path))) |
---|
| 95 | |
---|
| 96 | (define-func gnome_config_clean_section |
---|
| 97 | none |
---|
| 98 | ((string path))) |
---|
| 99 | |
---|
| 100 | (define-func gnome_config_clean_key |
---|
| 101 | none |
---|
| 102 | ((string path))) |
---|
| 103 | |
---|
| 104 | (define-func gnome_config_push_prefix |
---|
| 105 | none |
---|
| 106 | ((string path))) |
---|
| 107 | |
---|
| 108 | (define-func gnome_config_pop_prefix |
---|
| 109 | none |
---|
| 110 | ()) |
---|
| 111 | |
---|
| 112 | |
---|
| 113 | ;; gnome-dentry |
---|
| 114 | |
---|
| 115 | ;; XXX can't handle structure conversion currently |
---|
| 116 | |
---|
| 117 | |
---|
| 118 | ;; gnome-fileconvert |
---|
| 119 | |
---|
| 120 | (define-func gnome_file_convert_fd |
---|
| 121 | file-descriptor |
---|
| 122 | ((file-descriptor fd) |
---|
| 123 | (string fromtype) |
---|
| 124 | (string totype))) |
---|
| 125 | |
---|
| 126 | (define-func gnome_file_convert |
---|
| 127 | file-descriptor |
---|
| 128 | ((string filename) |
---|
| 129 | (string fromtype) |
---|
| 130 | (string totype))) |
---|
| 131 | |
---|
| 132 | |
---|
| 133 | ;; gnome-help |
---|
| 134 | |
---|
| 135 | (define-func gnome_help_file_find_file |
---|
| 136 | string |
---|
| 137 | ((string app) |
---|
| 138 | (string path))) |
---|
| 139 | |
---|
| 140 | (define-func gnome_help_file_path |
---|
| 141 | string |
---|
| 142 | ((string app) |
---|
| 143 | (string path))) |
---|
| 144 | |
---|
| 145 | (define-func gnome_help_display |
---|
| 146 | none |
---|
| 147 | ((pointer ignore) |
---|
| 148 | ((fvec string 2) ref))) ;actually GnomeHelpMenuEntry |
---|
| 149 | |
---|
| 150 | (define-func gnome_help_goto |
---|
| 151 | none |
---|
| 152 | ((pointer ignore) |
---|
| 153 | (string file))) |
---|
| 154 | |
---|
| 155 | (define-func gnome_help_pbox_display |
---|
| 156 | none |
---|
| 157 | ((pointer ignore) |
---|
| 158 | (int page_num) |
---|
| 159 | ((fvec string 2) ref))) ;actually GnomeHelpMenuEntry |
---|
| 160 | |
---|
| 161 | (define-func gnome_help_pbox_goto |
---|
| 162 | none |
---|
| 163 | ((pointer ignore) |
---|
| 164 | (int ignore2 (= "0")) |
---|
| 165 | ((fvec string 2) ref))) ;actually GnomeHelpMenuEntry |
---|
| 166 | |
---|
| 167 | |
---|
| 168 | ;; gnome-history |
---|
| 169 | |
---|
| 170 | ;; FIXME: other functions done by hand due to build-guile-gtk limitations. |
---|
| 171 | |
---|
| 172 | ;(define-func gnome_history_recently_used |
---|
| 173 | ; none |
---|
| 174 | ; ((string filename) |
---|
| 175 | ; (string filetype) |
---|
| 176 | ; (string creator) |
---|
| 177 | ; (string desc))) |
---|
| 178 | |
---|
| 179 | |
---|
| 180 | ;; gnome-i18n |
---|
| 181 | |
---|
| 182 | (define-func gnome_i18n_get_language |
---|
| 183 | static_string |
---|
| 184 | ()) |
---|
| 185 | |
---|
| 186 | (define-func gnome_i18n_get_language_list |
---|
| 187 | ((list string)) |
---|
| 188 | ((string category_name))) |
---|
| 189 | |
---|
| 190 | (define-func gnome_i18n_set_preferred_language |
---|
| 191 | none |
---|
| 192 | ((string val))) |
---|
| 193 | |
---|
| 194 | (define-func gnome_i18n_get_preferred_language |
---|
| 195 | static_string |
---|
| 196 | ()) |
---|
| 197 | |
---|
| 198 | |
---|
| 199 | ;; gnome-metadata |
---|
| 200 | |
---|
| 201 | ;; should really handle the error typedef |
---|
| 202 | |
---|
| 203 | (define-func sgtk_gnome_metadata_set |
---|
| 204 | int |
---|
| 205 | ((string file) |
---|
| 206 | (string name) |
---|
| 207 | (SCM data)) |
---|
| 208 | (scm-name "gnome-metadata-set")) |
---|
| 209 | |
---|
| 210 | (define-func gnome_metadata_remove |
---|
| 211 | int |
---|
| 212 | ((string file) |
---|
| 213 | (string name))) |
---|
| 214 | |
---|
| 215 | ;XXX can't return vectors currently |
---|
| 216 | ;(define-func gnome_metadata_list |
---|
| 217 | ; (tvec string) |
---|
| 218 | ; ((string file))) |
---|
| 219 | |
---|
| 220 | (define-func sgtk_gnome_metadata_get |
---|
| 221 | SCM |
---|
| 222 | ((string file) |
---|
| 223 | (string name)) |
---|
| 224 | (scm-name "gnome-metadata-get")) |
---|
| 225 | |
---|
| 226 | (define-func sgtk_gnome_metadata_get_fast |
---|
| 227 | SCM |
---|
| 228 | ((string file) |
---|
| 229 | (string name)) |
---|
| 230 | (scm-name "gnome-metadata-get-fast")) |
---|
| 231 | |
---|
| 232 | (define-func gnome_metadata_rename |
---|
| 233 | int |
---|
| 234 | ((string from) |
---|
| 235 | (string to))) |
---|
| 236 | |
---|
| 237 | (define-func gnome_metadata_copy |
---|
| 238 | int |
---|
| 239 | ((string from) |
---|
| 240 | (string to))) |
---|
| 241 | |
---|
| 242 | (define-func gnome_metadata_delete |
---|
| 243 | int |
---|
| 244 | ((string file))) |
---|
| 245 | |
---|
| 246 | (define-func sgtk_gnome_metadata_regex_add |
---|
| 247 | none |
---|
| 248 | ((string regex) |
---|
| 249 | (string key) |
---|
| 250 | (SCM data)) |
---|
| 251 | (scm-name "gnome-metadata-regex-add")) |
---|
| 252 | |
---|
| 253 | (define-func gnome_metadata_regex_remove |
---|
| 254 | none |
---|
| 255 | ((string regex) |
---|
| 256 | (string key))) |
---|
| 257 | |
---|
| 258 | (define-func sgtk_gnome_metadata_type_add |
---|
| 259 | none |
---|
| 260 | ((string regex) |
---|
| 261 | (string key) |
---|
| 262 | (SCM data)) |
---|
| 263 | (scm-name "gnome-metadata-type-add")) |
---|
| 264 | |
---|
| 265 | (define-func gnome_metadata_type_remove |
---|
| 266 | none |
---|
| 267 | ((string regex) |
---|
| 268 | (string key))) |
---|
| 269 | |
---|
| 270 | (define-func gnome_metadata_lock |
---|
| 271 | none |
---|
| 272 | ()) |
---|
| 273 | |
---|
| 274 | (define-func gnome_metadata_unlock |
---|
| 275 | none |
---|
| 276 | ()) |
---|
| 277 | |
---|
| 278 | |
---|
| 279 | ;; gnome-mime-info |
---|
| 280 | |
---|
| 281 | (define-func gnome_mime_get_value |
---|
| 282 | static_string |
---|
| 283 | ((string mime_type) |
---|
| 284 | (string key))) |
---|
| 285 | |
---|
| 286 | (define-func gnome_mime_get_keys |
---|
| 287 | ((list string)) |
---|
| 288 | ((string mime_type))) |
---|
| 289 | |
---|
| 290 | (define-func gnome_mime_program |
---|
| 291 | static_string |
---|
| 292 | ((string mime_type))) |
---|
| 293 | |
---|
| 294 | (define-func gnome_mime_description |
---|
| 295 | static_string |
---|
| 296 | ((string mime_type))) |
---|
| 297 | |
---|
| 298 | (define-func gnome_mime_test |
---|
| 299 | static_string |
---|
| 300 | ((string mime_type))) |
---|
| 301 | |
---|
| 302 | (define-func gnome_mime_composetyped |
---|
| 303 | static_string |
---|
| 304 | ((string mime_type))) |
---|
| 305 | |
---|
| 306 | (define-func gnome_mime_copiousoutput |
---|
| 307 | bool |
---|
| 308 | ((string mime_type) |
---|
| 309 | (string key))) |
---|
| 310 | |
---|
| 311 | (define-func gnome_mime_needsterminal |
---|
| 312 | bool |
---|
| 313 | ((string mime_type) |
---|
| 314 | (string key))) |
---|
| 315 | |
---|
| 316 | |
---|
| 317 | ;; gnome-mime |
---|
| 318 | |
---|
| 319 | (define-func gnome_mime_type |
---|
| 320 | static_string |
---|
| 321 | ((string filename))) |
---|
| 322 | |
---|
| 323 | (define-func gnome_mime_type_of_file |
---|
| 324 | static_string |
---|
| 325 | ((string existing_filename))) |
---|
| 326 | |
---|
| 327 | (define-func gnome_mime_type_from_magic |
---|
| 328 | static_string |
---|
| 329 | ((string filename))) |
---|
| 330 | |
---|
| 331 | (define-func gnome_uri_list_extract_filenames |
---|
| 332 | ((list string)) |
---|
| 333 | ((string uri_list))) |
---|
| 334 | |
---|
| 335 | (define-func gnome_uri_list_extract_uris |
---|
| 336 | ((list string)) |
---|
| 337 | ((string uri_list))) |
---|
| 338 | |
---|
| 339 | |
---|
| 340 | ;; gnome-paper, gnome-popt, gnome-regex, gnome-remote |
---|
| 341 | |
---|
| 342 | ;; [can't be arsed] |
---|
| 343 | |
---|
| 344 | |
---|
| 345 | ;; gnome-score |
---|
| 346 | |
---|
| 347 | (define-func gnome_score_init |
---|
| 348 | int |
---|
| 349 | ((string gamename))) |
---|
| 350 | |
---|
| 351 | (define-func gnome_score_log |
---|
| 352 | int |
---|
| 353 | ((float score) |
---|
| 354 | (string level) |
---|
| 355 | (bool higher_to_lower_score_order))) |
---|
| 356 | |
---|
| 357 | |
---|
| 358 | ;; gnome-sound |
---|
| 359 | |
---|
| 360 | (define-func gnome_sound_init |
---|
| 361 | none |
---|
| 362 | ((string hostname))) |
---|
| 363 | |
---|
| 364 | (define-func gnome_sound_shutdown |
---|
| 365 | none |
---|
| 366 | ()) |
---|
| 367 | |
---|
| 368 | (define-func gnome_sound_sample_load |
---|
| 369 | int |
---|
| 370 | ((string sample_name) |
---|
| 371 | (string filename))) |
---|
| 372 | |
---|
| 373 | (define-func gnome_sound_play |
---|
| 374 | none |
---|
| 375 | ((string filename))) |
---|
| 376 | |
---|
| 377 | |
---|
| 378 | ;; gnome-url |
---|
| 379 | |
---|
| 380 | (define-func gnome_url_show |
---|
| 381 | none |
---|
| 382 | ((string url))) |
---|
| 383 | |
---|
| 384 | |
---|
| 385 | ;; init |
---|
| 386 | |
---|
| 387 | (define-func gnomelib_init |
---|
| 388 | none |
---|
| 389 | ((string app_id) |
---|
| 390 | (string app_version))) |
---|
| 391 | |
---|
| 392 | |
---|
| 393 | ;; Options |
---|
| 394 | |
---|
| 395 | (options |
---|
| 396 | (includes "#include <gnome.h>") |
---|
| 397 | (includes "#include <libgnome/gnome-fileconvert.h>") |
---|
| 398 | (includes "#include <libgnome/gnome-help.h>") |
---|
| 399 | (includes "#include \"rep-gnome.h\"") |
---|
| 400 | (init-func "sgtk_gnome_init_gnome_glue")) |
---|