Mercurial > hg > xemacs-beta

comparison lisp/gtk-marshal.el @ 2054:91d4c8c65a0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-02 04:06:51 by malcolmp] Fix warnings and errors when building GTK using C++ and --use-union-type.
author malcolmp
date Sun, 02 May 2004 04:07:01 +0000
parents ee2d33cfc3c1
children f981d2fdd880
comparison
equal deleted inserted replaced
2053:11e709117623 2054:91d4c8c65a0f
1 ;;
2 ;; To regenerate ../src/emacs-marshals.c just load this file.
3 ;;
1 (defconst name-to-return-type 4 (defconst name-to-return-type
2 '(("INT" . "guint") 5 '(("INT" . "gint")
3 ("CALLBACK" . "GtkCallback") 6 ("CALLBACK" . "GtkCallback")
4 ("OBJECT" . "GtkObject *") 7 ("OBJECT" . "GtkObject *")
5 ("POINTER" . "void *") 8 ("POINTER" . "void *")
6 ("STRING" . "gchar *") 9 ("STRING" . "gchar *")
7 ("BOOL" . "gboolean") 10 ("BOOL" . "gboolean")
24 (if (not internal-rval) 27 (if (not internal-rval)
25 (error "Do not know return type of `%s'" rval)) 28 (error "Do not know return type of `%s'" rval))
26 (setq name (get-marshaller-name rval args)) 29 (setq name (get-marshaller-name rval args))
27 30
28 (if (member name defined-marshallers) 31 (if (member name defined-marshallers)
29 (error "Attempe to define the same marshaller more than once! %s" name)) 32 (error "Attempt to define the same marshaller more than once! %s" name))
30 33
31 (set-buffer (get-buffer-create "emacs-marshals.c")) 34 (set-buffer (get-buffer-create "emacs-marshals.c"))
32 (goto-char (point-max)) 35 (goto-char (point-max))
33 36
34 (if (or (member "FLOAT" args) (member "DOUBLE" args)) 37 (if (or (member "FLOAT" args) (member "DOUBLE" args))