Mercurial > hg > xemacs-beta

annotate lisp/gtk-marshal.el @ 5404:91b3aa59f49b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert lisp/ to GPLv3.
author Mike Sperber <sperber@deinprogramm.de>
date Fri, 15 Oct 2010 15:18:27 +0200
parents ba07c880114a
children b9167d522a9a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
1 ;; This file is part of XEmacs.
5404
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
2
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
3 ;; XEmacs is free software: you can redistribute it and/or modify it
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
4 ;; under the terms of the GNU General Public License as published by the
5404
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
5 ;; Free Software Foundation, either version 3 of the License, or (at your
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
6 ;; option) any later version.
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
7
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
8 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
9 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
10 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
11 ;; for more details.
5404
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
12
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 2523
diff changeset
13 ;; You should have received a copy of the GNU General Public License
5404
91b3aa59f49b Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 5231
diff changeset
14 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
2054
91d4c8c65a0f [xemacs-hg @ 2004-05-02 04:06:51 by malcolmp]
malcolmp
parents: 833
diff changeset
15 ;;
91d4c8c65a0f [xemacs-hg @ 2004-05-02 04:06:51 by malcolmp]
malcolmp
parents: 833
diff changeset
16 ;; To regenerate ../src/emacs-marshals.c just load this file.
91d4c8c65a0f [xemacs-hg @ 2004-05-02 04:06:51 by malcolmp]
malcolmp
parents: 833
diff changeset
17 ;;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (defconst name-to-return-type
2054
91d4c8c65a0f [xemacs-hg @ 2004-05-02 04:06:51 by malcolmp]
malcolmp
parents: 833
diff changeset
19 '(("INT" . "gint")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 ("CALLBACK" . "GtkCallback")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 ("OBJECT" . "GtkObject *")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 ("POINTER" . "void *")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 ("STRING" . "gchar *")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 ("BOOL" . "gboolean")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 ("DOUBLE" . "gdouble")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26 ("FLOAT" . "gfloat")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 ("LIST" . "void *")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28 ("NONE" . nil)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 (defvar defined-marshallers nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 (defun get-marshaller-name (rval args)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33 (concat "emacs_gtk_marshal_" rval "__"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
34 (mapconcat 'identity (or args '("NONE")) "_")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
35
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
36 (defun define-marshaller (rval &rest args)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 (let ((name nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38 (internal-rval (assoc rval name-to-return-type))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 (ctr 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
40 (func-proto (format "__%s_fn" rval)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
41 (if (not internal-rval)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 (error "Do not know return type of `%s'" rval))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 (setq name (get-marshaller-name rval args))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 (if (member name defined-marshallers)
2054
91d4c8c65a0f [xemacs-hg @ 2004-05-02 04:06:51 by malcolmp]
malcolmp
parents: 833
diff changeset
46 (error "Attempt to define the same marshaller more than once! %s" name))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 (set-buffer (get-buffer-create "emacs-marshals.c"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 (goto-char (point-max))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 (if (or (member "FLOAT" args) (member "DOUBLE" args))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 ;; We need to special case anything with FLOAT in the argument
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 ;; list or the parameters get screwed up royally.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54 (progn
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 (setq func-proto (concat (format "__%s__" rval)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 (mapconcat 'identity args "_")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 "_fn"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58 (insert "typedef "
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59 (or (cdr internal-rval) "void")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 " (*"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61 func-proto ")("
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62 (mapconcat (lambda (x)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63 (cdr (assoc x name-to-return-type))) args ", ")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 ");\n")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 (insert "\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 "static void\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68 name " (ffi_actual_function func, GtkArg *args)\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69 "{\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
70 (format " %s rfunc = (%s) func;\n" func-proto func-proto))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
71
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72 (if (string= "LIST" rval) (setq rval "POINTER"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
74 (if (cdr internal-rval)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
75 ;; It has a return type to worry about
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 (insert " " (cdr internal-rval) " *return_val;\n\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 (format " return_val = GTK_RETLOC_%s (args[%d]);\n" rval (length args))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 " *return_val = ")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
79 (insert " "))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 (insert "(*rfunc) (")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 (while args
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82 (if (/= ctr 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83 (insert ", "))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84 (insert (format "GTK_VALUE_%s (args[%d])" (car args) ctr))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 (setq args (cdr args)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 ctr (1+ ctr)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 (insert ");\n")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 (insert "}\n")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90 (save-excursion
591
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 462
diff changeset
91 (find-file "../src/emacs-marshals.c")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92 (erase-buffer)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
93 (setq defined-marshallers nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
94
591
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 462
diff changeset
95 (insert "/* This file was automatically generated by ../lisp/gtk-marshal.el */\n"
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 462
diff changeset
96 "/* DO NOT EDIT BY HAND!!! */\n")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 (insert "#define GTK_VALUE_ARRAY(x) GTK_VALUE_POINTER(x)\n\n")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98 (insert "#define GTK_VALUE_LIST(x) GTK_VALUE_POINTER(x)\n\n")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100 (let ((todo '(
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
101 ("BOOL" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 ("BOOL" "OBJECT" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 ("BOOL" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 ("BOOL" "OBJECT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 ("BOOL" "OBJECT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106 ("BOOL" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107 ("BOOL" "POINTER" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108 ("BOOL" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 ("BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 ("FLOAT" "OBJECT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 ("FLOAT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 ("INT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 ("INT" "OBJECT" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 ("INT" "OBJECT" "INT" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 ("INT" "OBJECT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 ("INT" "OBJECT" "INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 ("INT" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 ("INT" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119 ("INT" "OBJECT" "POINTER" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 ("INT" "OBJECT" "POINTER" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 ("INT" "OBJECT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 ("INT" "OBJECT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 ("INT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124 ("INT" "POINTER" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 ("INT" "POINTER" "STRING" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 ("INT" "POINTER" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 ("INT" "POINTER" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128 ("INT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 ("INT" "STRING" "STRING" "INT" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 ("INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 ("INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
132 ("LIST" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133 ("LIST")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 ("NONE" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 ("NONE" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 ("NONE" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 ("NONE" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 ("NONE" "OBJECT" "BOOL" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 ("NONE" "OBJECT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140 ("NONE" "OBJECT" "FLOAT" "FLOAT" "FLOAT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 ("NONE" "OBJECT" "FLOAT" "FLOAT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142 ("NONE" "OBJECT" "FLOAT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 ("NONE" "OBJECT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 ("NONE" "OBJECT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145 ("NONE" "OBJECT" "INT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 ("NONE" "OBJECT" "INT" "FLOAT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147 ("NONE" "OBJECT" "INT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148 ("NONE" "OBJECT" "INT" "INT" "ARRAY" "ARRAY" "ARRAY" "ARRAY" "ARRAY" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 ("NONE" "OBJECT" "INT" "INT" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 ("NONE" "OBJECT" "INT" "INT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 ("NONE" "OBJECT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 ("NONE" "OBJECT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
153 ("NONE" "OBJECT" "INT" "INT" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 ("NONE" "OBJECT" "INT" "INT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
155 ("NONE" "OBJECT" "INT" "INT" "STRING" "INT" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
156 ("NONE" "OBJECT" "INT" "INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
157 ("NONE" "OBJECT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
158 ("NONE" "OBJECT" "INT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 ("NONE" "OBJECT" "INT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
160 ("NONE" "OBJECT" "INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
161 ("NONE" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 ("NONE" "OBJECT" "LIST" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163 ("NONE" "OBJECT" "LIST")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164 ("NONE" "OBJECT" "OBJECT" "BOOL" "BOOL" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
165 ("NONE" "OBJECT" "OBJECT" "BOOL" "BOOL" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
166 ("NONE" "OBJECT" "OBJECT" "BOOL" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167 ("NONE" "OBJECT" "OBJECT" "FLOAT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
168 ("NONE" "OBJECT" "OBJECT" "INT" "INT" "INT" "INT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
169 ("NONE" "OBJECT" "OBJECT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
170 ("NONE" "OBJECT" "OBJECT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
171 ("NONE" "OBJECT" "OBJECT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
172 ("NONE" "OBJECT" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
173 ("NONE" "OBJECT" "OBJECT" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
174 ("NONE" "OBJECT" "OBJECT" "OBJECT" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
175 ("NONE" "OBJECT" "OBJECT" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
176 ("NONE" "OBJECT" "OBJECT" "OBJECT" "POINTER" "POINTER" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
177 ("NONE" "OBJECT" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
178 ("NONE" "OBJECT" "OBJECT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
179 ("NONE" "OBJECT" "OBJECT" "STRING" "INT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
180 ("NONE" "OBJECT" "OBJECT" "STRING" "STRING" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
181 ("NONE" "OBJECT" "OBJECT" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
182 ("NONE" "OBJECT" "OBJECT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 ("NONE" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
184 ("NONE" "OBJECT" "POINTER" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
185 ("NONE" "OBJECT" "POINTER" "INT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186 ("NONE" "OBJECT" "POINTER" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
187 ("NONE" "OBJECT" "POINTER" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
188 ("NONE" "OBJECT" "POINTER" "INT" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
189 ("NONE" "OBJECT" "POINTER" "INT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 ("NONE" "OBJECT" "POINTER" "INT" "STRING" "INT" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 ("NONE" "OBJECT" "POINTER" "INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192 ("NONE" "OBJECT" "POINTER" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
193 ("NONE" "OBJECT" "POINTER" "POINTER" "INT" "INT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194 ("NONE" "OBJECT" "POINTER" "POINTER" "POINTER" "STRING" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195 ("NONE" "OBJECT" "POINTER" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
196 ("NONE" "OBJECT" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
197 ("NONE" "OBJECT" "POINTER" "STRING" "INT" "POINTER" "POINTER" "POINTER" "POINTER" "BOOL" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
198 ("NONE" "OBJECT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
199 ("NONE" "OBJECT" "STRING" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
200 ("NONE" "OBJECT" "STRING" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
201 ("NONE" "OBJECT" "STRING" "POINTER" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
202 ("NONE" "OBJECT" "STRING" "POINTER" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203 ("NONE" "OBJECT" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
204 ("NONE" "OBJECT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
205 ("NONE" "OBJECT")
833
ee2d33cfc3c1 [xemacs-hg @ 2002-05-09 13:49:39 by wmperry]
wmperry
parents: 608
diff changeset
206 ("NONE" "POINTER" "INT" "INT")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
207 ("NONE" "POINTER" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
208 ("NONE" "POINTER" "POINTER" "BOOL" "INT" "INT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 ("NONE" "POINTER" "POINTER" "BOOL" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210 ("NONE" "POINTER" "POINTER" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211 ("NONE" "POINTER" "POINTER" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212 ("NONE" "POINTER" "POINTER" "POINTER" "INT" "INT" "STRING" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
213 ("NONE" "POINTER" "POINTER" "POINTER" "INT" "INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
214 ("NONE" "POINTER" "POINTER" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
215 ("NONE" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
216 ("NONE" "POINTER" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 ("NONE" "POINTER" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 ("NONE" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
219 ("NONE")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
220 ("OBJECT" "BOOL" "BOOL" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
221 ("OBJECT" "BOOL" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
222 ("OBJECT" "FLOAT" "FLOAT" "FLOAT" "FLOAT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223 ("OBJECT" "FLOAT" "FLOAT" "FLOAT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
224 ("OBJECT" "FLOAT" "FLOAT" "FLOAT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
225 ("OBJECT" "INT" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
226 ("OBJECT" "INT" "BOOL" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
227 ("OBJECT" "INT" "INT" "ARRAY")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
228 ("OBJECT" "INT" "INT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229 ("OBJECT" "INT" "INT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
230 ("OBJECT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
231 ("OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
232 ("OBJECT" "OBJECT" "FLOAT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
233 ("OBJECT" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
234 ("OBJECT" "OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
235 ("OBJECT" "OBJECT" "STRING" "INT" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
236 ("OBJECT" "OBJECT" "STRING" "INT" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 ("OBJECT" "OBJECT" "STRING" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
238 ("OBJECT" "OBJECT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
239 ("OBJECT" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 ("OBJECT" "POINTER" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
241 ("OBJECT" "POINTER" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
242 ("OBJECT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 ("OBJECT" "STRING" "FLOAT" "FLOAT" "FLOAT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244 ("OBJECT" "STRING" "INT" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245 ("OBJECT" "STRING" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 ("OBJECT" "STRING" "STRING" "STRING" "ARRAY" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
247 ("OBJECT" "STRING" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
248 ("OBJECT" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
249 ("OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
250 ("POINTER" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251 ("POINTER" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
252 ("POINTER" "OBJECT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
253 ("POINTER" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
254 ("POINTER" "OBJECT" "POINTER" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
255 ("POINTER" "OBJECT" "POINTER" "POINTER" "ARRAY" "INT" "POINTER" "POINTER" "POINTER" "POINTER" "BOOL" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256 ("POINTER" "OBJECT" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257 ("POINTER" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 ("POINTER" "POINTER")
833
ee2d33cfc3c1 [xemacs-hg @ 2002-05-09 13:49:39 by wmperry]
wmperry
parents: 608
diff changeset
259 ("POINTER" "STRING" "INT")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
260 ("POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
261 ("STRING" "INT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
262 ("STRING" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
263 ("STRING" "OBJECT" "BOOL")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
264 ("STRING" "OBJECT" "FLOAT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
265 ("STRING" "OBJECT" "INT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
266 ("STRING" "OBJECT" "INT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
267 ("STRING" "OBJECT")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
268 ("STRING" "POINTER" "STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
269 ("STRING" "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
270 ("STRING")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
271 )
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
272 )
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
273 )
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
274 (mapc (lambda (x) (apply 'define-marshaller x)) todo)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
275
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
276 (insert "\n
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
277 #include \"hash.h\"
608
4d7fdf497470 [xemacs-hg @ 2001-06-04 16:59:51 by wmperry]
wmperry
parents: 591
diff changeset
278
4d7fdf497470 [xemacs-hg @ 2001-06-04 16:59:51 by wmperry]
wmperry
parents: 591
diff changeset
279 static struct hash_table *marshaller_hashtable;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
280
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
281 static void initialize_marshaller_storage (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
282 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
283 if (!marshaller_hashtable)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
284 {
2523
f981d2fdd880 [xemacs-hg @ 2005-01-28 00:32:17 by ben]
ben
parents: 2054
diff changeset
285 marshaller_hashtable = make_string_hash_table (100);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
286 ")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
287
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
288 (mapc (lambda (x)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
289 (let ((name (get-marshaller-name (car x) (cdr x))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
290 (insert (format "\t\tputhash (\"%s\", (void *) %s, marshaller_hashtable);\n" name name))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
291 todo)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
292 (insert "\t};\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
293 "}\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
294 "
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
295 static void *find_marshaller (const char *func_name)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
296 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
297 void *fn = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
298 initialize_marshaller_storage ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
299
591
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 462
diff changeset
300 if (gethash (func_name, marshaller_hashtable, (const void **)&fn))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
301 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
302 return (fn);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
303 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
304
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
305 return (NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
306 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
307 "))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
308
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
309 (save-buffer)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
310 (kill-buffer "emacs-marshals.c"))