source: trunk/third/rep-gtk/gnomelib.defs @ 15286

Revision 15286, 7.1 KB checked in by ghudson, 24 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r15285, which included commits to RCS files with non-trunk default branches.
RevLine 
[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"))
Note: See TracBrowser for help on using the repository browser.