Mercurial > hg > xemacs-beta

comparison lisp/gtk-marshal.el @ 591:ec73ae6e772b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-31 02:05:16 by wmperry] Fix GTK auto-generation elisp files...
author wmperry
date Thu, 31 May 2001 02:05:18 +0000
parents 0784d089fdc9
children 4d7fdf497470
comparison
equal deleted inserted replaced
590:ea7687dc2b34 591:ec73ae6e772b
69 ctr (1+ ctr))) 69 ctr (1+ ctr)))
70 (insert ");\n") 70 (insert ");\n")
71 (insert "}\n"))) 71 (insert "}\n")))
72 72
73 (save-excursion 73 (save-excursion
74 (find-file "../../src/emacs-marshals.c") 74 (find-file "../src/emacs-marshals.c")
75 (erase-buffer) 75 (erase-buffer)
76 (setq defined-marshallers nil) 76 (setq defined-marshallers nil)
77 77
78 (insert "/* This file was automatically generated by ../lisp/gtk-marshal.el */\n"
79 "/* DO NOT EDIT BY HAND!!! */\n")
78 (insert "#define GTK_VALUE_ARRAY(x) GTK_VALUE_POINTER(x)\n\n") 80 (insert "#define GTK_VALUE_ARRAY(x) GTK_VALUE_POINTER(x)\n\n")
79 (insert "#define GTK_VALUE_LIST(x) GTK_VALUE_POINTER(x)\n\n") 81 (insert "#define GTK_VALUE_LIST(x) GTK_VALUE_POINTER(x)\n\n")
80 82
81 (let ((todo '( 83 (let ((todo '(
82 ("BOOL" "OBJECT" "INT") 84 ("BOOL" "OBJECT" "INT")
274 static void *find_marshaller (const char *func_name) 276 static void *find_marshaller (const char *func_name)
275 { 277 {
276 void *fn = NULL; 278 void *fn = NULL;
277 initialize_marshaller_storage (); 279 initialize_marshaller_storage ();
278 280
279 if (gethash (func_name, marshaller_hashtable, (CONST void **)&fn)) 281 if (gethash (func_name, marshaller_hashtable, (const void **)&fn))
280 { 282 {
281 return (fn); 283 return (fn);
282 } 284 }
283 285
284 return (NULL); 286 return (NULL);