mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-26 23:31:55 -08:00
58f2d6ef32
Fixes Bug#15880. This patch also makes Q constants (e.g., Qnil) constant addresses from the C point of view. * make-docfile.c: Revamp to generate table of symbols, too. Include <stdbool.h>. (xstrdup): New function. (main): Don't process the same file twice. (SYMBOL): New constant in enum global_type. (struct symbol): Turn 'value' member into a union, either v.value for int or v.svalue for string. All uses changed. (add_global): New arg svalue, which overrides value, so that globals can have a string value. (close_emacs_global): New arg num_symbols; all uses changed. Output lispsym decl. (write_globals): Output symbol globals too. Output more ATTRIBUTE_CONST, now that Qnil etc. are C constants. Output defsym_name table. (scan_c_file): Move most of guts into ... (scan_c_stream): ... new function. Scan for DEFSYMs and record symbols found. Don't read past EOF if file doesn't end in newline. * alloc.c, bidi.c, buffer.c, bytecode.c, callint.c, casefiddle: * casetab.c, category.c, ccl.c, charset.c, chartab.c, cmds.c, coding.c: * composite.c, data.c, dbusbind.c, decompress.c, dired.c, dispnew.c: * doc.c, editfns.c, emacs.c, eval.c, fileio.c, fns.c, font.c, fontset.c: * frame.c, fringe.c, ftfont.c, ftxfont.c, gfilenotify.c, gnutls.c: * image.c, inotify.c, insdel.c, keyboard.c, keymap.c, lread.c: * macfont.m, macros.c, minibuf.c, nsfns.m, nsfont.m, nsimage.m: * nsmenu.m, nsselect.m, nsterm.m, print.c, process.c, profiler.c: * search.c, sound.c, syntax.c, term.c, terminal.c, textprop.c, undo.c: * window.c, xdisp.c, xfaces.c, xfns.c, xftfont.c, xmenu.c, xml.c: * xselect.c, xsettings.c, xterm.c: Remove Q vars that represent symbols (e.g., Qnil, Qt, Qemacs). These names are now defined automatically by make-docfile. * alloc.c (init_symbol): New function. (Fmake_symbol): Use it. (c_symbol_p): New function. (valid_lisp_object_p, purecopy): Use it. * alloc.c (marked_pinned_symbols): Use make_lisp_symbol instead of make_lisp_ptr. (garbage_collect_1): Mark lispsym symbols. (CHECK_ALLOCATED_AND_LIVE_SYMBOL): New macro. (mark_object): Use it. (sweep_symbols): Sweep lispsym symbols. (symbol_uses_obj): New function. (which_symbols): Use it. Work for lispsym symbols, too. (init_alloc_once): Initialize Vpurify_flag here; no need to wait, since Qt's address is already known now. (syms_of_alloc): Add lispsym count to symbols_consed. * buffer.c (init_buffer_once): Compare to Qnil, not to make_number (0), when testing whether storage is all bits zero. * dispextern (struct image_type): * font.c (font_property_table): * frame.c (struct frame_parm_table, frame_parms): * keyboard.c (scroll_bar_parts, struct event_head): * xdisp.c (struct props): Use XSYMBOL_INIT (Qfoo) and struct Lisp_Symbol * rather than &Qfoo and Lisp_Object *, since Qfoo is no longer an object whose address can be taken. All uses changed. * eval.c (run_hook): New function. Most uses of Frun_hooks changed to use it, so that they no longer need to take the address of a Lisp sym. (syms_of_eval): Don't use DEFSYM on Vrun_hooks, as it's a variable. * frame.c (syms_of_frame): Add defsyms for the frame_parms table. * keyboard.c (syms_of_keyboard): Don't DEFSYM Qmenu_bar here. DEFSYM Qdeactivate_mark before the corresponding var. * keymap.c (syms_of_keymap): Use DEFSYM for Qmenu_bar and Qmode_line instead of interning their symbols; this avoids duplicates. (LISP_INITIALLY, TAG_PTR) (DEFINE_LISP_SYMBOL_BEGIN, DEFINE_LISP_SYMBOL_END, XSYMBOL_INIT): New macros. (LISP_INITIALLY_ZERO): Use it. (enum symbol_interned, enum symbol_redirect, struct Lisp_Symbol) (EXFUN, DEFUN_ARGS_MANY, DEFUN_ARGS_UNEVALLED, DEFUN_ARGS_*): Move decls up, to avoid forward uses. Include globals.h earlier, too. (make_lisp_symbol): New function. (XSETSYMBOL): Use it. (DEFSYM): Now just a placeholder for make-docfile. * lread.c (DEFINE_SYMBOLS): Define, for globals.h. (intern_sym): New function, with body taken from old intern_driver. (intern_driver): Use it. Last arg is now Lisp integer, not ptrdiff_t. All uses changed. (define_symbol): New function. (init_obarray): Define the C symbols taken from lispsym. Use plain DEFSYM for Qt and Qnil. * syntax.c (init_syntax_once): No need to worry about Qchar_table_extra_slots.
90 lines
3.4 KiB
C
90 lines
3.4 KiB
C
/* Header for CCL (Code Conversion Language) interpreter.
|
|
Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
|
2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
|
|
National Institute of Advanced Industrial Science and Technology (AIST)
|
|
Registration Number H14PRO021
|
|
Copyright (C) 2003
|
|
National Institute of Advanced Industrial Science and Technology (AIST)
|
|
Registration Number H13PRO009
|
|
|
|
This file is part of GNU Emacs.
|
|
|
|
GNU Emacs is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
GNU Emacs is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
|
|
#ifndef EMACS_CCL_H
|
|
#define EMACS_CCL_H
|
|
|
|
#include "character.h" /* For MAX_MULTIBYTE_LENGTH */
|
|
|
|
/* Macros for exit status of CCL program. */
|
|
#define CCL_STAT_SUCCESS 0 /* Terminated successfully. */
|
|
#define CCL_STAT_SUSPEND_BY_SRC 1 /* Terminated by empty input. */
|
|
#define CCL_STAT_SUSPEND_BY_DST 2 /* Terminated by output buffer full. */
|
|
#define CCL_STAT_INVALID_CMD 3 /* Terminated because of invalid
|
|
command. */
|
|
#define CCL_STAT_QUIT 4 /* Terminated because of quit. */
|
|
|
|
/* Structure to hold information about running CCL code. Read
|
|
comments in the file ccl.c for the detail of each field. */
|
|
struct ccl_program {
|
|
ptrdiff_t idx; /* Index number of the CCL program.
|
|
-1 means that the program was given
|
|
by a vector, not by a program
|
|
name. */
|
|
int size; /* Size of the compiled code. */
|
|
Lisp_Object *prog; /* Pointer into the compiled code. */
|
|
int ic; /* Instruction Counter (index for PROG). */
|
|
int eof_ic; /* Instruction Counter for end-of-file
|
|
processing code. */
|
|
int reg[8]; /* CCL registers, reg[7] is used for
|
|
condition flag of relational
|
|
operations. */
|
|
int status; /* Exit status of the CCL program. */
|
|
int buf_magnification; /* Output buffer magnification. How
|
|
many times bigger the output buffer
|
|
should be than the input buffer. */
|
|
int stack_idx; /* How deep the call of CCL_Call is nested. */
|
|
int consumed;
|
|
int produced;
|
|
bool_bf last_block : 1; /* Set to true while processing the last
|
|
block. */
|
|
bool_bf quit_silently : 1; /* If true, don't append "CCL:
|
|
Quitted" to the generated text when
|
|
CCL program is quitted. */
|
|
};
|
|
|
|
/* This data type is used for the spec field of the structure
|
|
coding_system. */
|
|
|
|
struct ccl_spec {
|
|
struct ccl_program ccl;
|
|
};
|
|
|
|
#define CODING_SPEC_CCL_PROGRAM(coding) ((coding)->spec.ccl.ccl)
|
|
|
|
/* Setup fields of the structure pointed by CCL appropriately for the
|
|
execution of ccl program CCL_PROG (symbol or vector). */
|
|
extern bool setup_ccl_program (struct ccl_program *, Lisp_Object);
|
|
|
|
extern void ccl_driver (struct ccl_program *, int *, int *, int, int,
|
|
Lisp_Object);
|
|
|
|
#define CHECK_CCL_PROGRAM(x) \
|
|
do { \
|
|
if (NILP (Fccl_program_p (x))) \
|
|
wrong_type_argument (Qcclp, (x)); \
|
|
} while (false);
|
|
|
|
#endif /* EMACS_CCL_H */
|