diff options
| author | Paul Eggert | 2013-12-14 13:36:44 -0800 |
|---|---|---|
| committer | Paul Eggert | 2013-12-14 13:36:44 -0800 |
| commit | 96c0686368d8b7d481cb40239db896ff37df416a (patch) | |
| tree | 84d8ee02271476dd4aaaee52c5302f2c576089ef /src/ccl.c | |
| parent | 5ae811ddef14ea1989088c259a9ed2d14d5332b4 (diff) | |
| download | emacs-96c0686368d8b7d481cb40239db896ff37df416a.tar.gz emacs-96c0686368d8b7d481cb40239db896ff37df416a.zip | |
Use bool for boolean, focusing on headers.
* configure.ac (PTY_OPEN, GC_MARK_SECONDARY_STACK):
Use bool for boolean.
* lib-src/emacsclient.c, lib-src/etags.c, lib-src/hexl.c (FALSE, TRUE):
Remove. All uses replaced with uncapitalized version.
* lib-src/emacsclient.c (message):
* lib-src/etags.c (make_tag, pfnote, consider_token, make_C_tag, lang_names):
* lib-src/hexl.c (un_flag, iso_flag, endian):
* lib-src/pop.c (pop_debug, pop_open, pop_multi_first, pop_multi_next)
(pop_trash):
Use bool for boolean.
* lib-src/etags.c (bool): Remove.
* lib-src/etags.c (globals, members, declarations, no_line_directive)
(no_duplicates): Use 'int' for boolean values that getopt requires
to be 'int'. Formerly, these were 'bool' and 'bool' was 'int',
but we can no longer rely on this implementation.
* lib-src/pop.h (struct _popserver): Use bool_bf for boolean bit-fields.
* lwlib/xlwmenuP.h (XlwMenu_part): Use bool_bf for boolean bit-fields.
* src/atimer.h, src/lisp.h, src/syssignal.h, src/syswait.h, src/unexelf.c:
No need to include <stdbool.h>, since conf_post.h does it now.
* src/buffer.h (BUF_COMPUTE_UNCHANGED, DECODE_POSITION)
(BUFFER_CHECK_INDIRECTION, GET_OVERLAYS_AT, PER_BUFFER_VALUE_P)
(SET_PER_BUFFER_VALUE_P):
* src/ccl.c, src/ccl.h (setup_ccl_program):
* src/ccl.h (CHECK_CCL_PROGRAM):
* src/character.h (MAKE_CHAR_UNIBYTE, CHECK_CHARACTER_CAR)
(CHECK_CHARACTER_CDR, CHAR_STRING_ADVANCE, NEXT_CHAR_BOUNDARY)
(PREV_CHAR_BOUNDARY, FETCH_STRING_CHAR_ADVANCE)
(FETCH_STRING_CHAR_AS_MULTIBYTE_ADVANCE)
(FETCH_STRING_CHAR_ADVANCE_NO_CHECK, FETCH_CHAR_ADVANCE)
(FETCH_CHAR_ADVANCE_NO_CHECK, INC_POS, DEC_POS, INC_BOTH)
(DEC_BOTH, BUF_INC_POS, BUF_DEC_POS):
* src/charset.h (CHECK_CHARSET, CHECK_CHARSET_GET_ID)
(CHECK_CHARSET_GET_ATTR, CHECK_CHARSET_GET_CHARSET)
(CHARSET_FAST_MAP_SET):
* src/coding.c (decode_coding_ccl, encode_coding_ccl):
* src/coding.h (CHECK_CODING_SYSTEM, CHECK_CODING_SYSTEM_GET_SPEC)
(CHECK_CODING_SYSTEM_GET_ID, SJIS_TO_JIS, SJIS_TO_JIS2)
(JIS_TO_SJIS, JIS_TO_SJIS2, ENCODE_FILE, DECODE_FILE)
(ENCODE_SYSTEM, DECODE_SYSTEM, ENCODE_UTF_8)
(decode_coding_c_string):
* src/composite.h (COMPOSITION_DECODE_REFS, COMPOSITION_DECODE_RULE):
* src/conf_post.h (has_attribute):
* src/dispextern.h (trace_redisplay_p):
(INC_TEXT_POS, DEC_TEXT_POS, SET_GLYPH_FROM_GLYPH_CODE)
(SET_CHAR_GLYPH, SET_CHAR_GLYPH_FROM_GLYPH)
(SET_GLYPH_FROM_CHAR_GLYPH):
(WINDOW_WANTS_MODELINE_P, WINDOW_WANTS_HEADER_LINE_P)
(FACE_SUITABLE_FOR_ASCII_CHAR_P, FACE_SUITABLE_FOR_CHAR_P)
(PRODUCE_GLYPHS, reset_mouse_highlight, in_display_vector_p)
(cursor_in_mouse_face_p):
* src/dispnew.c (adjust_glyph_matrix, clear_glyph_matrix_rows)
(blank_row, prepare_desired_row)
(build_frame_matrix_from_leaf_window, make_current)
(mirror_make_current, mirrored_line_dance, mirror_line_dance)
(update_window, scrolling_window, update_frame_line):
* src/disptab.h (GLYPH_FOLLOW_ALIASES):
* src/editfns.c (Fformat):
* src/font.h (FONT_WEIGHT_SYMBOLIC, FONT_SLANT_SYMBOLIC)
(FONT_WIDTH_SYMBOLIC, FONT_WEIGHT_FOR_FACE, FONT_SLANT_FOR_FACE)
(FONT_WIDTH_FOR_FACE, FONT_WEIGHT_NAME_NUMERIC)
(FONT_SLANT_NAME_NUMERIC, FONT_WIDTH_NAME_NUMERIC)
(FONT_SET_STYLE, CHECK_FONT, CHECK_FONT_SPEC, CHECK_FONT_ENTITY)
(CHECK_FONT_OBJECT, CHECK_FONT_GET_OBJECT, FONT_ADD_LOG)
(FONT_DEFERRED_LOG):
* src/frame.h (FRAME_W32_P, FRAME_MSDOS_P, FRAME_WINDOW_P):
(FRAME_EXTERNAL_TOOL_BAR, FRAME_EXTERNAL_MENU_BAR, FOR_EACH_FRAME)
(FRAME_MOUSE_UPDATE):
* src/fringe.c (Fdefine_fringe_bitmap):
* src/image.c (x_create_bitmap_from_data, x_create_bitmap_mask)
(x_create_bitmap_from_xpm_data, xpm_load_image):
* src/intervals.h (INTERVAL_HAS_PARENT, INTERVAL_PARENT)
(set_interval_parent, RESET_INTERVAL, COPY_INTERVAL_CACHE)
(MERGE_INTERVAL_CACHE):
* src/keymap.h (KEYMAPP):
* src/lisp.h (eassert, USE_LSB_TAG, CHECK_LISP_OBJECT_TYPE)
(STRING_SET_UNIBYTE, STRING_SET_MULTIBYTE, DEFSYM, PSEUDOVECTORP)
(CHECK_RANGED_INTEGER, CHECK_TYPE_RANGED_INTEGER)
(CHECK_NUMBER_COERCE_MARKER, CHECK_NUMBER_OR_FLOAT_COERCE_MARKER)
(DEFVAR_LISP, DEFVAR_LISP_NOPRO, DEFVAR_BOOL, DEFVAR_INT)
(DEFVAR_BUFFER_DEFAULTS, DEFVAR_KBOARD, QUIT)
(RETURN_UNGCPRO, USE_SAFE_ALLOCA, SAFE_NALLOCA, SAFE_FREE)
(SAFE_ALLOCA_LISP, FOR_EACH_ALIST_VALUE, functionp):
* src/syntax.h (SYNTAX_ENTRY, SYNTAX_WITH_FLAGS, SYNTAX)
(UPDATE_SYNTAX_TABLE_FORWARD, UPDATE_SYNTAX_TABLE_BACKWARD)
(SETUP_BUFFER_SYNTAX_TABLE):
* src/systime.h (timespec_valid_p):
* src/term.c (save_and_enable_current_matrix):
* src/window.h (WINDOW_MENU_BAR_P, WINDOW_TOOL_BAR_P):
* src/xdisp.c (in_display_vector_p, display_tool_bar_line)
(redisplay_internal, try_window_reusing_current_matrix)
(sync_frame_with_window_matrix_rows, try_window_id)
(display_menu_bar, display_tty_menu_item, display_mode_line)
(coords_in_mouse_face_p, cursor_in_mouse_face_p):
* src/xmenu.c (xmenu_show):
* src/xterm.c (use_xim, x_term_init):
* src/xterm.h (XSync, GTK_CHECK_VERSION, use_xim, SET_SCROLL_BAR_X_WIDGET)
(struct x_bitmap_record):
Use bool for booleans.
* src/ccl.c (struct buffer_text):
* src/ccl.h (struct ccl_program):
* src/charset.h (struct charset):
* src/cm.h (struct cm):
* src/coding.h (struct iso_2022_spec, struct coding_system):
* src/dispextern.h (struct glyph, struct glyph_matrix, struct glyph_row)
(struct glyph_string, struct face, struct face_cache)
(struct bidi_string_data, struct bidi_it)
(struct draw_fringe_bitmap_params, struct it, Mouse_HLInfo)
(struct image):
* src/editfns.c (Fformat):
* src/frame.h (struct frame):
* src/fringe.c (struct fringe_bitmap):
* src/intervals.h (struct interval):
* src/keyboard.h (struct kboard):
* src/lisp.h (struct Lisp_Symbol, struct Lisp_Misc_Any, struct Lisp_Marker)
(struct Lisp_Overlay, struct Lisp_Save_Value, struct Lisp_Free)
(struct Lisp_Buffer_Local_Value, union specbinding):
* src/macfont.m (struct macfont_info):
* src/process.h (struct Lisp_Process):
* src/termchar.h (struct tty_display_info):
* src/window.h (struct window):
* src/xterm.h (struct x_output):
Use bool_bf for boolean bit-fields.
* src/ccl.c (setup_ccl_program): Now returns bool instead of -1 or 0.
All callers changed.
* src/ccl.h (struct ccl_program): Remove unused members private_state,
src_multibyte, dst_multibyte, cr_consumed, suppress_error,
eight_bit_control.
(struct ccl_spec): Remove unused members cr_carryover,
eight_bit_carryover.
* src/conf_post.h: Include <stdbool.h>.
(bool_bf): New type.
* src/dispextern.h (TRACE, PREPARE_FACE_FOR_DISPLAY):
* src/interval.h (RESET_INTERVAL, COPY_INTERVAL_CACHE, MERGE_INTERVAL_CACHE)
Surround statement macro with proper 'do { ... } while (false)' brackets.
(SET_MATRIX_ROW_ENABLED_P): Assume 2nd arg is bool.
(PRODUCE_GLYPHS): Simplify use of boolean.
* src/fileio.c (Fcopy_file):
If I is an integer, prefer 'if (I != 0)' to 'if (I)'.
* src/lisp.h (UNGCPRO): Return void, not int.
(FOR_EACH_TAIL): Use void expression, not int expression.
* src/region-cache.c: Reindent.
* src/region-cache.h: Copy comments from region-cache.c, to fix
incorrect remarks about booleans.
Diffstat (limited to 'src/ccl.c')
| -rw-r--r-- | src/ccl.c | 27 |
1 files changed, 11 insertions, 16 deletions
| @@ -628,7 +628,7 @@ do \ | |||
| 628 | { \ | 628 | { \ |
| 629 | struct ccl_program called_ccl; \ | 629 | struct ccl_program called_ccl; \ |
| 630 | if (stack_idx >= 256 \ | 630 | if (stack_idx >= 256 \ |
| 631 | || (setup_ccl_program (&called_ccl, (symbol)) != 0)) \ | 631 | || ! setup_ccl_program (&called_ccl, (symbol))) \ |
| 632 | { \ | 632 | { \ |
| 633 | if (stack_idx > 0) \ | 633 | if (stack_idx > 0) \ |
| 634 | { \ | 634 | { \ |
| @@ -1712,9 +1712,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size | |||
| 1712 | } | 1712 | } |
| 1713 | 1713 | ||
| 1714 | ccl_error_handler: | 1714 | ccl_error_handler: |
| 1715 | /* The suppress_error member is set when e.g. a CCL-based coding | 1715 | if (destination) |
| 1716 | system is used for terminal output. */ | ||
| 1717 | if (!ccl->suppress_error && destination) | ||
| 1718 | { | 1716 | { |
| 1719 | /* We can insert an error message only if DESTINATION is | 1717 | /* We can insert an error message only if DESTINATION is |
| 1720 | specified and we still have a room to store the message | 1718 | specified and we still have a room to store the message |
| @@ -1919,10 +1917,10 @@ ccl_get_compiled_code (Lisp_Object ccl_prog, ptrdiff_t *idx) | |||
| 1919 | /* Setup fields of the structure pointed by CCL appropriately for the | 1917 | /* Setup fields of the structure pointed by CCL appropriately for the |
| 1920 | execution of CCL program CCL_PROG. CCL_PROG is the name (symbol) | 1918 | execution of CCL program CCL_PROG. CCL_PROG is the name (symbol) |
| 1921 | of the CCL program or the already compiled code (vector). | 1919 | of the CCL program or the already compiled code (vector). |
| 1922 | Return 0 if we succeed this setup, else return -1. | 1920 | Return true iff successful. |
| 1923 | 1921 | ||
| 1924 | If CCL_PROG is nil, we just reset the structure pointed by CCL. */ | 1922 | If CCL_PROG is nil, just reset the structure pointed by CCL. */ |
| 1925 | int | 1923 | bool |
| 1926 | setup_ccl_program (struct ccl_program *ccl, Lisp_Object ccl_prog) | 1924 | setup_ccl_program (struct ccl_program *ccl, Lisp_Object ccl_prog) |
| 1927 | { | 1925 | { |
| 1928 | int i; | 1926 | int i; |
| @@ -1933,7 +1931,7 @@ setup_ccl_program (struct ccl_program *ccl, Lisp_Object ccl_prog) | |||
| 1933 | 1931 | ||
| 1934 | ccl_prog = ccl_get_compiled_code (ccl_prog, &ccl->idx); | 1932 | ccl_prog = ccl_get_compiled_code (ccl_prog, &ccl->idx); |
| 1935 | if (! VECTORP (ccl_prog)) | 1933 | if (! VECTORP (ccl_prog)) |
| 1936 | return -1; | 1934 | return false; |
| 1937 | vp = XVECTOR (ccl_prog); | 1935 | vp = XVECTOR (ccl_prog); |
| 1938 | ccl->size = vp->header.size; | 1936 | ccl->size = vp->header.size; |
| 1939 | ccl->prog = vp->contents; | 1937 | ccl->prog = vp->contents; |
| @@ -1950,14 +1948,11 @@ setup_ccl_program (struct ccl_program *ccl, Lisp_Object ccl_prog) | |||
| 1950 | ccl->ic = CCL_HEADER_MAIN; | 1948 | ccl->ic = CCL_HEADER_MAIN; |
| 1951 | for (i = 0; i < 8; i++) | 1949 | for (i = 0; i < 8; i++) |
| 1952 | ccl->reg[i] = 0; | 1950 | ccl->reg[i] = 0; |
| 1953 | ccl->last_block = 0; | 1951 | ccl->last_block = false; |
| 1954 | ccl->private_state = 0; | ||
| 1955 | ccl->status = 0; | 1952 | ccl->status = 0; |
| 1956 | ccl->stack_idx = 0; | 1953 | ccl->stack_idx = 0; |
| 1957 | ccl->suppress_error = 0; | 1954 | ccl->quit_silently = false; |
| 1958 | ccl->eight_bit_control = 0; | 1955 | return true; |
| 1959 | ccl->quit_silently = 0; | ||
| 1960 | return 0; | ||
| 1961 | } | 1956 | } |
| 1962 | 1957 | ||
| 1963 | 1958 | ||
| @@ -2003,7 +1998,7 @@ programs. */) | |||
| 2003 | struct ccl_program ccl; | 1998 | struct ccl_program ccl; |
| 2004 | int i; | 1999 | int i; |
| 2005 | 2000 | ||
| 2006 | if (setup_ccl_program (&ccl, ccl_prog) < 0) | 2001 | if (! setup_ccl_program (&ccl, ccl_prog)) |
| 2007 | error ("Invalid CCL program"); | 2002 | error ("Invalid CCL program"); |
| 2008 | 2003 | ||
| 2009 | CHECK_VECTOR (reg); | 2004 | CHECK_VECTOR (reg); |
| @@ -2065,7 +2060,7 @@ usage: (ccl-execute-on-string CCL-PROGRAM STATUS STRING &optional CONTINUE UNIBY | |||
| 2065 | ptrdiff_t consumed_chars, consumed_bytes, produced_chars; | 2060 | ptrdiff_t consumed_chars, consumed_bytes, produced_chars; |
| 2066 | int buf_magnification; | 2061 | int buf_magnification; |
| 2067 | 2062 | ||
| 2068 | if (setup_ccl_program (&ccl, ccl_prog) < 0) | 2063 | if (! setup_ccl_program (&ccl, ccl_prog)) |
| 2069 | error ("Invalid CCL program"); | 2064 | error ("Invalid CCL program"); |
| 2070 | 2065 | ||
| 2071 | CHECK_VECTOR (status); | 2066 | CHECK_VECTOR (status); |