Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 1111:184461bc8de4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-18 06:52:23 by ben] warning fixes, etc. * s/cygwin32.h: -fvtable-thunks is obsolete in GCC 3 and generates warnings. * s/mingw32.h: * s/windowsnt.h: Comment fixes. * emodules.h: Fix warnings from redefining symbols. * eval.c: Fix C++ errors -- no automatic casting between function pointers and void *, function declarations inside of functions not allowed. * event-Xt.c (emacs_Xt_enqueue_focus_event): Warning fixes. * fileio.c (Ffile_truename): Warning fixes. Use LOCAL_TO_WIN32_FILE_FORMAT rather than duplicating it. * glyphs-x.c: Fix style. * intl-auto-encap-win32.c: * intl-auto-encap-win32.h: * intl-encap-win32.c: * intl-encap-win32.c (qxeRegConnectRegistry): * syswindows.h (RegConnectRegistry): DdeCreateStringHandle needs to be manual due to new Cygwin bug. * intl-win32.c: wcslen/wcscmp don't seem to exist under G++ 3, Cygwin. * lisp.h: * lisp-union.h: * lisp-disunion.h: * process-unix.c (unix_send_process): Ugh, C needs volatile and C++ must not have volatile. Remove previous volatile hacks, which don't seem to be working any more. * sheap.c (STATIC_HEAP_SLOP): Try to get a working Cygwin build with old unexec. * sheap.c (more_static_core): No NL's in literals allowed. * symbols.c (Fset): Fix C++ errors. * syswindows.h: Fix Cygwin complaints now that some missing structs have been added. aclocal.m4: Disable shared library modules under Cygwin for the moment, since we need some more tricky coding done and I don't have the time right now. configure.in, configure.usage: code-files.el, loadhist.el: Fix warnings. package-get.el: Fix warnings. NOTE: This was already fixed awhile ago, but reverted by Steve Y. Please be careful. postgresql/Makefile.in.in: Removed. Move common stuff into modues/common/Makefile.common. (Also add extraclean target and a couple of other fixes in that file.) postgresql/configure.ac: Extract out common configure stuff into modules/common/configure-{pre,post}.ac. postgresql/postgresql.c: Fix warning. ldap/Makefile.in.in: Removed. Move common stuff into modues/common/Makefile.common. (Also add extraclean target and a couple of other fixes in that file.) ldap/configure.ac: Extract out common configure stuff into modules/common/configure-{pre,post}.ac. common/Makefile.common: Common stuff is here.
author ben
date Mon, 18 Nov 2002 06:53:08 +0000
parents 8b464283e891
children 37bdd24225ef
comparison
equal deleted inserted replaced
1110:49065a0d2943 1111:184461bc8de4
780 #endif 780 #endif
781 #ifndef max 781 #ifndef max
782 #define max(a,b) (((a) > (b)) ? (a) : (b)) 782 #define max(a,b) (((a) > (b)) ? (a) : (b))
783 #endif 783 #endif
784 784
785 /* Sim, senhor, prefiro toma-lo no cu.
786
787 Regular C complains about possible clobbering of local vars NOT declared
788 as volatile if there's a longjmp() in a function. C++ complains if such
789 vars ARE volatile; or more correctly, sans volatile no problem even when
790 you longjmp, avec volatile you get unfixable compile errors like
791
792 /src/xemacs/lilfix/src/process-unix.c: In function `void
793 unix_send_process(Lisp_Object, lstream*)':
794 /src/xemacs/lilfix/src/process-unix.c:1577: no matching function for call to `
795 Lisp_Object::Lisp_Object(volatile Lisp_Object&)'
796 /src/xemacs/lilfix/src/lisp-union.h:32: candidates are:
797 Lisp_Object::Lisp_Object(const Lisp_Object&)
798 */
799
800 #ifdef __cplusplus
801 #define VOLATILE_IF_NOT_CPP
802 #else
803 #define VOLATILE_IF_NOT_CPP volatile
804 #endif
805
785 #ifndef PRINTF_ARGS 806 #ifndef PRINTF_ARGS
786 # if defined (__GNUC__) && (__GNUC__ >= 2) 807 # if defined (__GNUC__) && (__GNUC__ >= 2)
787 # define PRINTF_ARGS(string_index,first_to_check) \ 808 # define PRINTF_ARGS(string_index,first_to_check) \
788 __attribute__ ((format (printf, string_index, first_to_check))) 809 __attribute__ ((format (printf, string_index, first_to_check)))
789 # else 810 # else
2763 { \ 2784 { \
2764 { /* struct lrecord_header */ \ 2785 { /* struct lrecord_header */ \
2765 lrecord_type_subr, /* lrecord_type_index */ \ 2786 lrecord_type_subr, /* lrecord_type_index */ \
2766 1, /* mark bit */ \ 2787 1, /* mark bit */ \
2767 1, /* c_readonly bit */ \ 2788 1, /* c_readonly bit */ \
2768 1 /* lisp_readonly bit */ \ 2789 1, /* lisp_readonly bit */ \
2790 0 /* unused */ \
2769 }, \ 2791 }, \
2770 min_args, \ 2792 min_args, \
2771 max_args, \ 2793 max_args, \
2772 prompt, \ 2794 prompt, \
2773 0, /* doc string */ \ 2795 0, /* doc string */ \
2835 extern volatile int quit_check_signal_tick_count; 2857 extern volatile int quit_check_signal_tick_count;
2836 void check_quit (void); 2858 void check_quit (void);
2837 2859
2838 void signal_quit (void); 2860 void signal_quit (void);
2839 2861
2840 extern int dont_check_for_quit;
2841 int begin_dont_check_for_quit (void); 2862 int begin_dont_check_for_quit (void);
2842 int begin_do_check_for_quit (void); 2863 int begin_do_check_for_quit (void);
2843 2864
2844 /* Nonzero if the values of `quit-flag' and `inhibit-quit' indicate 2865 /* Nonzero if the values of `quit-flag' and `inhibit-quit' indicate
2845 that a quit should be signalled. */ 2866 that a quit should be signalled. */
3449 Lisp_Object get_truename_buffer (Lisp_Object); 3470 Lisp_Object get_truename_buffer (Lisp_Object);
3450 void switch_to_buffer (Lisp_Object, Lisp_Object); 3471 void switch_to_buffer (Lisp_Object, Lisp_Object);
3451 extern int find_file_compare_truenames; 3472 extern int find_file_compare_truenames;
3452 extern int find_file_use_truenames; 3473 extern int find_file_use_truenames;
3453 Ibyte *get_initial_directory (Ibyte *pathname, Bytecount size); 3474 Ibyte *get_initial_directory (Ibyte *pathname, Bytecount size);
3454 extern Lisp_Object Vbuffer_alist;
3455 void set_buffer_internal (struct buffer *b); 3475 void set_buffer_internal (struct buffer *b);
3456 struct buffer *decode_buffer (Lisp_Object buffer, int allow_string); 3476 struct buffer *decode_buffer (Lisp_Object buffer, int allow_string);
3457 3477
3458 void record_buffer (Lisp_Object buf); 3478 void record_buffer (Lisp_Object buf);
3459 Lisp_Object get_buffer (Lisp_Object name, 3479 Lisp_Object get_buffer (Lisp_Object name,
4074 extern Lisp_Object Qshort, Vcoding_system_for_read; 4094 extern Lisp_Object Qshort, Vcoding_system_for_read;
4075 extern Lisp_Object Vcoding_system_for_write; 4095 extern Lisp_Object Vcoding_system_for_write;
4076 extern Lisp_Object Vfile_name_coding_system, Vkeyboard_coding_system; 4096 extern Lisp_Object Vfile_name_coding_system, Vkeyboard_coding_system;
4077 extern Lisp_Object Vterminal_coding_system; 4097 extern Lisp_Object Vterminal_coding_system;
4078 extern Lisp_Object Qcanonicalize_after_coding; 4098 extern Lisp_Object Qcanonicalize_after_coding;
4079 void init_charset_unicode_tables (Lisp_Object charset);
4080 void free_charset_unicode_tables (Lisp_Object charset);
4081 void recalculate_unicode_precedence (void);
4082 int coding_system_is_for_text_file (Lisp_Object coding_system); 4099 int coding_system_is_for_text_file (Lisp_Object coding_system);
4083 Lisp_Object find_coding_system_for_text_file (Lisp_Object name, int eol_wrap); 4100 Lisp_Object find_coding_system_for_text_file (Lisp_Object name, int eol_wrap);
4084 Lisp_Object get_coding_system_for_text_file (Lisp_Object name, int eol_wrap); 4101 Lisp_Object get_coding_system_for_text_file (Lisp_Object name, int eol_wrap);
4085 int coding_system_is_binary (Lisp_Object coding_system); 4102 int coding_system_is_binary (Lisp_Object coding_system);
4086 4103
4992 extern Lisp_Object Qend_of_buffer, Qend_of_file, Qend_open, Qerror; 5009 extern Lisp_Object Qend_of_buffer, Qend_of_file, Qend_open, Qerror;
4993 extern Lisp_Object Qerror_conditions, Qerror_lacks_explanatory_string; 5010 extern Lisp_Object Qerror_conditions, Qerror_lacks_explanatory_string;
4994 extern Lisp_Object Qerror_message, Qevent_live_p, Qexit, Qextent_live_p; 5011 extern Lisp_Object Qerror_message, Qevent_live_p, Qexit, Qextent_live_p;
4995 extern Lisp_Object Qexternal_debugging_output, Qfeaturep, Qfile_error; 5012 extern Lisp_Object Qexternal_debugging_output, Qfeaturep, Qfile_error;
4996 extern Lisp_Object Qfile_name_sans_extension, Qfinal; 5013 extern Lisp_Object Qfile_name_sans_extension, Qfinal;
4997 extern Lisp_Object Qforeground, Qformat, Qframe_live_p, Qgraphic, Qgtk; 5014 extern Lisp_Object Qforeground, Qformat, Qframe_live_p, Qgraphic;
4998 extern Lisp_Object Qgui_error, Qicon_glyph_p, Qidentity, Qinhibit_quit; 5015 extern Lisp_Object Qgui_error, Qicon_glyph_p, Qidentity, Qinhibit_quit;
4999 extern Lisp_Object Qinhibit_read_only, Qinteger_char_or_marker_p; 5016 extern Lisp_Object Qinhibit_read_only, Qinteger_char_or_marker_p;
5000 extern Lisp_Object Qinteger_or_char_p, Qinteger_or_marker_p, Qintegerp; 5017 extern Lisp_Object Qinteger_or_char_p, Qinteger_or_marker_p, Qintegerp;
5001 extern Lisp_Object Qinteractive, Qinternal_error, Qinvalid_argument; 5018 extern Lisp_Object Qinteractive, Qinternal_error, Qinvalid_argument;
5002 extern Lisp_Object Qinvalid_byte_code, Qinvalid_change, Qinvalid_constant; 5019 extern Lisp_Object Qinvalid_byte_code, Qinvalid_change, Qinvalid_constant;
5003 extern Lisp_Object Qinvalid_function, Qinvalid_operation; 5020 extern Lisp_Object Qinvalid_function, Qinvalid_operation;
5004 extern Lisp_Object Qinvalid_read_syntax, Qinvalid_state, Qio_error, Qlambda; 5021 extern Lisp_Object Qinvalid_read_syntax, Qinvalid_state, Qio_error, Qlambda;
5005 extern Lisp_Object Qlayout, Qlist_formation_error, Qlistp, Qload, Qlock_shift; 5022 extern Lisp_Object Qlayout, Qlist_formation_error, Qlistp, Qload;
5006 extern Lisp_Object Qlong_name, Qmacro, Qmakunbound, Qmalformed_list; 5023 extern Lisp_Object Qlong_name, Qmacro, Qmakunbound, Qmalformed_list;
5007 extern Lisp_Object Qmalformed_property_list, Qmark, Qmodule; 5024 extern Lisp_Object Qmalformed_property_list, Qmark, Qmodule;
5008 extern Lisp_Object Qmono_pixmap_image_instance_p, Qmouse_leave_buffer_hook; 5025 extern Lisp_Object Qmono_pixmap_image_instance_p, Qmouse_leave_buffer_hook;
5009 extern Lisp_Object Qnative_layout, Qnatnump, Qnetwork_error, Qno_catch; 5026 extern Lisp_Object Qnative_layout, Qnatnump, Qnetwork_error, Qno_catch;
5010 extern Lisp_Object Qnothing_image_instance_p, Qnumber_char_or_marker_p; 5027 extern Lisp_Object Qnothing_image_instance_p, Qnumber_char_or_marker_p;
5011 extern Lisp_Object Qnumberp, Qout_of_memory, Qoutput_charset_conversion; 5028 extern Lisp_Object Qnumberp, Qout_of_memory;
5012 extern Lisp_Object Qoverflow_error, Qpoint, Qpointer_glyph_p; 5029 extern Lisp_Object Qoverflow_error, Qpoint, Qpointer_glyph_p;
5013 extern Lisp_Object Qpointer_image_instance_p, Qprint_length; 5030 extern Lisp_Object Qpointer_image_instance_p, Qprint_length;
5014 extern Lisp_Object Qprint_string_length, Qprinting_unreadable_object; 5031 extern Lisp_Object Qprint_string_length, Qprinting_unreadable_object;
5015 extern Lisp_Object Qprocess_error, Qprogn, Qquit, Qquote, Qrange_error; 5032 extern Lisp_Object Qprocess_error, Qprogn, Qquit, Qquote, Qrange_error;
5016 extern Lisp_Object Qread_char, Qread_from_minibuffer; 5033 extern Lisp_Object Qread_char, Qread_from_minibuffer;