comparison src/coding.c @ 34988:8cd5e6ad71a2

(detect_coding_iso2022, setup_coding_system): Remove unused variable `i'. (detect_coding_mask): Remove unused variable `idx'. (detect_coding): Remove unused variable `i'. (ccl_coding_driver): Remove unused variable `result'. (run_pre_post_conversion_on_str): Remove unused variable `prev'. (decode_coding_string): Remove unused variables `to' and `gcpro1'. (encode_coding_string): Remove unused variables `gcpro1' and `saved_coding_symbol'. (Ffind_coding_systems_region_internal): Remove function-local variable args[], leave only the block-local one. (code_convert_region1): Remove unused variable `len'.

34987:cf1115a9c758

     int multibytep;
{
  int mask = CODING_CATEGORY_MASK_ISO;
  int mask_found = 0;
  int reg[4], shift_out = 0, single_shifting = 0;
  int c, c1, i, charset;
  /* Dummy for ONE_MORE_BYTE.  */
  struct coding_system dummy_coding;
  struct coding_system *coding = &dummy_coding;
  Lisp_Object safe_chars;

     Lisp_Object coding_system;
     struct coding_system *coding;
{
  Lisp_Object coding_spec, coding_type, eol_type, plist;
  Lisp_Object val;
  int i;

  /* At first, zero clear all members.  */
  bzero (coding, sizeof (struct coding_system));

  /* Initialize some fields required for all kinds of coding systems.  */

     int multibytep;
{
  register unsigned char c;
  unsigned char *src = source, *src_end = source + src_bytes;
  unsigned int mask, utf16_examined_p, iso2022_examined_p;
  int i, idx;

  /* At first, skip all ASCII characters and control characters except
     for three ISO2022 specific control characters.  */
  ascii_skip_code[ISO_CODE_SO] = 0;
  ascii_skip_code[ISO_CODE_SI] = 0;

     struct coding_system *coding;
     unsigned char *src;
     int src_bytes;
{
  unsigned int idx;
  int skip, mask, i;
  Lisp_Object val;

  val = Vcoding_category_list;
  mask = detect_coding_mask (src, src_bytes, coding_priorities, &skip,
			     coding->src_multibyte);

     unsigned char *source, *destination;
     int src_bytes, dst_bytes, encodep;
{
  struct ccl_program *ccl
    = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder;
  int result;
  unsigned char *dst = destination;

  ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK;
  if (encodep)
    {

     struct coding_system *coding;
     int encodep;
{
  int count = specpdl_ptr - specpdl;
  struct gcpro gcpro1;
  struct buffer *prev = current_buffer;
  int multibyte = STRING_MULTIBYTE (str);

  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
  record_unwind_protect (code_convert_region_unwind, Qnil);
  GCPRO1 (str);

     struct coding_system *coding;
     int nocopy;
{
  int len;
  struct conversion_buffer buf;
  int from, to, to_byte;
  struct gcpro gcpro1;
  Lisp_Object saved_coding_symbol;
  int result;
  int require_decoding;
  int shrinked_bytes = 0;
  Lisp_Object newstr;
  int consumed, consumed_char, produced, produced_char;

  from = 0;
  to = XSTRING (str)->size;
  to_byte = STRING_BYTES (XSTRING (str));

  saved_coding_symbol = Qnil;
  coding->src_multibyte = STRING_MULTIBYTE (str);
  coding->dst_multibyte = 1;

     int nocopy;
{
  int len;
  struct conversion_buffer buf;
  int from, to, to_byte;
  struct gcpro gcpro1;
  Lisp_Object saved_coding_symbol;
  int result;
  int shrinked_bytes = 0;
  Lisp_Object newstr;
  int consumed, consumed_char, produced, produced_char;

    str = run_pre_post_conversion_on_str (str, coding, 1);

  from = 0;
  to = XSTRING (str)->size;
  to_byte = STRING_BYTES (XSTRING (str));

  saved_coding_symbol = Qnil;

  /* Encoding routines determine the multibyteness of the source text
     by coding->src_multibyte.  */
  coding->src_multibyte = STRING_MULTIBYTE (str);
  coding->dst_multibyte = 0;

{
  Lisp_Object work_table, safe_codings;
  int non_ascii_p = 0;
  int single_byte_char_found = 0;
  unsigned char *p1, *p1end, *p2, *p2end, *p;
  Lisp_Object args[2];

  if (STRINGP (start))
    {
      if (!STRING_MULTIBYTE (start))
	return Qt;

code_convert_region1 (start, end, coding_system, encodep)
     Lisp_Object start, end, coding_system;
     int encodep;
{
  struct coding_system coding;
  int from, to, len;

  CHECK_NUMBER_COERCE_MARKER (start, 0);
  CHECK_NUMBER_COERCE_MARKER (end, 1);
  CHECK_SYMBOL (coding_system, 2);

34988:8cd5e6ad71a2

     int multibytep;
{
  int mask = CODING_CATEGORY_MASK_ISO;
  int mask_found = 0;
  int reg[4], shift_out = 0, single_shifting = 0;
  int c, c1, charset;
  /* Dummy for ONE_MORE_BYTE.  */
  struct coding_system dummy_coding;
  struct coding_system *coding = &dummy_coding;
  Lisp_Object safe_chars;

     Lisp_Object coding_system;
     struct coding_system *coding;
{
  Lisp_Object coding_spec, coding_type, eol_type, plist;
  Lisp_Object val;

  /* At first, zero clear all members.  */
  bzero (coding, sizeof (struct coding_system));

  /* Initialize some fields required for all kinds of coding systems.  */

     int multibytep;
{
  register unsigned char c;
  unsigned char *src = source, *src_end = source + src_bytes;
  unsigned int mask, utf16_examined_p, iso2022_examined_p;
  int i;

  /* At first, skip all ASCII characters and control characters except
     for three ISO2022 specific control characters.  */
  ascii_skip_code[ISO_CODE_SO] = 0;
  ascii_skip_code[ISO_CODE_SI] = 0;

     struct coding_system *coding;
     unsigned char *src;
     int src_bytes;
{
  unsigned int idx;
  int skip, mask;
  Lisp_Object val;

  val = Vcoding_category_list;
  mask = detect_coding_mask (src, src_bytes, coding_priorities, &skip,
			     coding->src_multibyte);

     unsigned char *source, *destination;
     int src_bytes, dst_bytes, encodep;
{
  struct ccl_program *ccl
    = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder;
  unsigned char *dst = destination;

  ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK;
  if (encodep)
    {

     struct coding_system *coding;
     int encodep;
{
  int count = specpdl_ptr - specpdl;
  struct gcpro gcpro1;
  int multibyte = STRING_MULTIBYTE (str);

  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
  record_unwind_protect (code_convert_region_unwind, Qnil);
  GCPRO1 (str);

     struct coding_system *coding;
     int nocopy;
{
  int len;
  struct conversion_buffer buf;
  int from, to_byte;
  struct gcpro gcpro1;
  Lisp_Object saved_coding_symbol;
  int result;
  int require_decoding;
  int shrinked_bytes = 0;
  Lisp_Object newstr;
  int consumed, consumed_char, produced, produced_char;

  from = 0;
  to_byte = STRING_BYTES (XSTRING (str));

  saved_coding_symbol = Qnil;
  coding->src_multibyte = STRING_MULTIBYTE (str);
  coding->dst_multibyte = 1;

     int nocopy;
{
  int len;
  struct conversion_buffer buf;
  int from, to, to_byte;
  int result;
  int shrinked_bytes = 0;
  Lisp_Object newstr;
  int consumed, consumed_char, produced, produced_char;

    str = run_pre_post_conversion_on_str (str, coding, 1);

  from = 0;
  to = XSTRING (str)->size;
  to_byte = STRING_BYTES (XSTRING (str));

  /* Encoding routines determine the multibyteness of the source text
     by coding->src_multibyte.  */
  coding->src_multibyte = STRING_MULTIBYTE (str);
  coding->dst_multibyte = 0;

{
  Lisp_Object work_table, safe_codings;
  int non_ascii_p = 0;
  int single_byte_char_found = 0;
  unsigned char *p1, *p1end, *p2, *p2end, *p;

  if (STRINGP (start))
    {
      if (!STRING_MULTIBYTE (start))
	return Qt;

code_convert_region1 (start, end, coding_system, encodep)
     Lisp_Object start, end, coding_system;
     int encodep;
{
  struct coding_system coding;
  int from, to;

  CHECK_NUMBER_COERCE_MARKER (start, 0);
  CHECK_NUMBER_COERCE_MARKER (end, 1);
  CHECK_SYMBOL (coding_system, 2);