comparison src/coding.c @ 83353:532e0a9335a9

Merged in changes from CVS trunk. Plus added lisp/term tweaks. Patches applied: * [e-mail]--2004/emacs--cvs-trunk--0--base-0 tag of [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-474 * [e-mail]--2004/emacs--cvs-trunk--0--patch-1 Add CVS metadata files. * [e-mail]--2004/emacs--cvs-trunk--0--patch-2 Update from CVS. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-393

83352:b258b3492423

/* Coding system handler (conversion, detection, and etc).
   Copyright (C) 1995,97,1998,2002,2003  Electrotechnical Laboratory, JAPAN.
   Licensed to the Free Software Foundation.
   Copyright (C) 2001,2002,2003  Free Software Foundation, Inc.

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

Lisp_Object Qcoding_system_history;
Lisp_Object Qsafe_chars;
Lisp_Object Qvalid_codes;

extern Lisp_Object Qinsert_file_contents, Qwrite_region;
Lisp_Object Qcall_process, Qcall_process_region, Qprocess_argument;
Lisp_Object Qstart_process, Qopen_network_stream;
Lisp_Object Qtarget_idx;

/* If a symbol has this property, evaluate the value to define the
   symbol as a coding system.  */

        if (encodep) shrink_encoding_region (beg, end, coding, str);	\
        else shrink_decoding_region (beg, end, coding, str);		\
      }									\
  } while (0)

static Lisp_Object
code_convert_region_unwind (arg)
     Lisp_Object arg;
{
  inhibit_pre_post_conversion = 0;
  Vlast_coding_system_used = arg;
  return Qnil;
}

/* Store information about all compositions in the range FROM and TO
   of OBJ in memory blocks pointed by CODING->cmp_data.  OBJ is a

         new buffer.  */
      struct buffer *prev = current_buffer;
      Lisp_Object new;

      record_unwind_protect (code_convert_region_unwind,
			     Vlast_coding_system_used);
      /* We should not call any more pre-write/post-read-conversion
         functions while this pre-write-conversion is running.  */
      inhibit_pre_post_conversion = 1;
      call2 (coding->pre_write_conversion,
	     make_number (from), make_number (to));

      if (from != PT)
	TEMP_SET_PT_BOTH (from, from_byte);
      prev_Z = Z;
      record_unwind_protect (code_convert_region_unwind,
			     Vlast_coding_system_used);
      saved_coding_system = Vlast_coding_system_used;
      Vlast_coding_system_used = coding->symbol;
      /* We should not call any more pre-write/post-read-conversion
         functions while this post-read-conversion is running.  */
      inhibit_pre_post_conversion = 1;

/* Name (or base name) of work buffer for code conversion.  */
static Lisp_Object Vcode_conversion_workbuf_name;

/* Set the current buffer to the working buffer prepared for
   code-conversion.  MULTIBYTE specifies the multibyteness of the
   buffer.  */

static struct buffer *
set_conversion_work_buffer (multibyte)
     int multibyte;
{
  Lisp_Object buffer;
  struct buffer *buf;

  buffer = Fget_buffer_create (Vcode_conversion_workbuf_name);
  buf = XBUFFER (buffer);
  delete_all_overlays (buf);
  buf->directory = current_buffer->directory;
  buf->read_only = Qnil;
  buf->filename = Qnil;
  buf->undo_list = Qt;

  set_buffer_internal (buf);
  if (BEG != BEGV || Z != ZV)
    Fwiden ();
  del_range_2 (BEG, BEG_BYTE, Z, Z_BYTE, 0);
  buf->enable_multibyte_characters = multibyte ? Qt : Qnil;
  return buf;
}

Lisp_Object
run_pre_post_conversion_on_str (str, coding, encodep)
     Lisp_Object str;

{
  int count = SPECPDL_INDEX ();
  struct gcpro gcpro1, gcpro2;
  int multibyte = STRING_MULTIBYTE (str);
  Lisp_Object old_deactivate_mark;

  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
  record_unwind_protect (code_convert_region_unwind,
			 Vlast_coding_system_used);
  /* It is not crucial to specbind this.  */
  old_deactivate_mark = Vdeactivate_mark;
  GCPRO2 (str, old_deactivate_mark);

  /* We must insert the contents of STR as is without
     unibyte<->multibyte conversion.  For that, we adjust the
     multibyteness of the working buffer to that of STR.  */
  set_conversion_work_buffer (multibyte);

  insert_from_string (str, 0, 0,
		      SCHARS (str), SBYTES (str), 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;

{
  struct gcpro gcpro1, gcpro2;
  struct buffer *cur = current_buffer;
  Lisp_Object old_deactivate_mark, old_last_coding_system_used;
  Lisp_Object args[3];

  /* It is not crucial to specbind this.  */
  old_deactivate_mark = Vdeactivate_mark;
  old_last_coding_system_used = Vlast_coding_system_used;
  GCPRO2 (old_deactivate_mark, old_last_coding_system_used);

  /* We must insert the contents of STR as is without
     unibyte<->multibyte conversion.  For that, we adjust the
     multibyteness of the working buffer to that of STR.  */
  set_conversion_work_buffer (coding->src_multibyte);
  insert_1_both (*str, nchars, nbytes, 0, 0, 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;
  args[0] = coding->pre_write_conversion;
  args[1] = make_number (BEG);

    move_gap (BEG);
  bcopy (BEG_ADDR, *str, coding->produced);
  coding->src_multibyte
    = ! NILP (current_buffer->enable_multibyte_characters);
  set_buffer_internal (cur);
}


Lisp_Object
decode_coding_string (str, coding, nocopy)

83353:532e0a9335a9

/* Coding system handler (conversion, detection, and etc).
   Copyright (C) 1995,97,1998,2002,2003  Electrotechnical Laboratory, JAPAN.
   Licensed to the Free Software Foundation.
   Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.

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

Lisp_Object Qcoding_system_history;
Lisp_Object Qsafe_chars;
Lisp_Object Qvalid_codes;

extern Lisp_Object Qinsert_file_contents, Qwrite_region;
Lisp_Object Qcall_process, Qcall_process_region;
Lisp_Object Qstart_process, Qopen_network_stream;
Lisp_Object Qtarget_idx;

/* If a symbol has this property, evaluate the value to define the
   symbol as a coding system.  */

        if (encodep) shrink_encoding_region (beg, end, coding, str);	\
        else shrink_decoding_region (beg, end, coding, str);		\
      }									\
  } while (0)

/* ARG is (CODING . BUFFER) where CODING is what to be set in
   Vlast_coding_system_used and BUFFER if non-nil is a buffer to
   kill.  */
static Lisp_Object
code_convert_region_unwind (arg)
     Lisp_Object arg;
{
  inhibit_pre_post_conversion = 0;
  Vlast_coding_system_used = XCAR (arg);
  if (! NILP (XCDR (arg)))
    Fkill_buffer (XCDR (arg));
  return Qnil;
}

/* Store information about all compositions in the range FROM and TO
   of OBJ in memory blocks pointed by CODING->cmp_data.  OBJ is a

         new buffer.  */
      struct buffer *prev = current_buffer;
      Lisp_Object new;

      record_unwind_protect (code_convert_region_unwind,
			     Fcons (Vlast_coding_system_used, Qnil));
      /* We should not call any more pre-write/post-read-conversion
         functions while this pre-write-conversion is running.  */
      inhibit_pre_post_conversion = 1;
      call2 (coding->pre_write_conversion,
	     make_number (from), make_number (to));

      if (from != PT)
	TEMP_SET_PT_BOTH (from, from_byte);
      prev_Z = Z;
      record_unwind_protect (code_convert_region_unwind,
			     Fcons (Vlast_coding_system_used, Qnil));
      saved_coding_system = Vlast_coding_system_used;
      Vlast_coding_system_used = coding->symbol;
      /* We should not call any more pre-write/post-read-conversion
         functions while this post-read-conversion is running.  */
      inhibit_pre_post_conversion = 1;

/* Name (or base name) of work buffer for code conversion.  */
static Lisp_Object Vcode_conversion_workbuf_name;

/* Set the current buffer to the working buffer prepared for
   code-conversion.  MULTIBYTE specifies the multibyteness of the
   buffer.  Return the buffer we set if it must be killed after use.
   Otherwise return Qnil.  */

static Lisp_Object
set_conversion_work_buffer (multibyte)
     int multibyte;
{
  Lisp_Object buffer, buffer_to_kill;
  struct buffer *buf;

  buffer = Fget_buffer_create (Vcode_conversion_workbuf_name);
  buf = XBUFFER (buffer);
  if (buf == current_buffer)
    {
      /* As we are already in the work buffer, we must generate a new
	 buffer for the work.  */
      Lisp_Object name;
	
      name = Fgenerate_new_buffer_name (Vcode_conversion_workbuf_name, Qnil);
      buffer = buffer_to_kill = Fget_buffer_create (name);
      buf = XBUFFER (buffer);
    }
  else
    buffer_to_kill = Qnil;

  delete_all_overlays (buf);
  buf->directory = current_buffer->directory;
  buf->read_only = Qnil;
  buf->filename = Qnil;
  buf->undo_list = Qt;

  set_buffer_internal (buf);
  if (BEG != BEGV || Z != ZV)
    Fwiden ();
  del_range_2 (BEG, BEG_BYTE, Z, Z_BYTE, 0);
  buf->enable_multibyte_characters = multibyte ? Qt : Qnil;
  return buffer_to_kill;
}

Lisp_Object
run_pre_post_conversion_on_str (str, coding, encodep)
     Lisp_Object str;

{
  int count = SPECPDL_INDEX ();
  struct gcpro gcpro1, gcpro2;
  int multibyte = STRING_MULTIBYTE (str);
  Lisp_Object old_deactivate_mark;
  Lisp_Object buffer_to_kill;

  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
  /* It is not crucial to specbind this.  */
  old_deactivate_mark = Vdeactivate_mark;
  GCPRO2 (str, old_deactivate_mark);

  /* We must insert the contents of STR as is without
     unibyte<->multibyte conversion.  For that, we adjust the
     multibyteness of the working buffer to that of STR.  */
  buffer_to_kill = set_conversion_work_buffer (multibyte);
  record_unwind_protect (code_convert_region_unwind,
			 Fcons (Vlast_coding_system_used, buffer_to_kill));

  insert_from_string (str, 0, 0,
		      SCHARS (str), SBYTES (str), 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;

{
  struct gcpro gcpro1, gcpro2;
  struct buffer *cur = current_buffer;
  Lisp_Object old_deactivate_mark, old_last_coding_system_used;
  Lisp_Object args[3];
  Lisp_Object buffer_to_kill;

  /* It is not crucial to specbind this.  */
  old_deactivate_mark = Vdeactivate_mark;
  old_last_coding_system_used = Vlast_coding_system_used;
  GCPRO2 (old_deactivate_mark, old_last_coding_system_used);

  /* We must insert the contents of STR as is without
     unibyte<->multibyte conversion.  For that, we adjust the
     multibyteness of the working buffer to that of STR.  */
  buffer_to_kill = set_conversion_work_buffer (coding->src_multibyte);
  insert_1_both (*str, nchars, nbytes, 0, 0, 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;
  args[0] = coding->pre_write_conversion;
  args[1] = make_number (BEG);

    move_gap (BEG);
  bcopy (BEG_ADDR, *str, coding->produced);
  coding->src_multibyte
    = ! NILP (current_buffer->enable_multibyte_characters);
  set_buffer_internal (cur);
  if (! NILP (buffer_to_kill))
    Fkill_buffer (buffer_to_kill);
}


Lisp_Object
decode_coding_string (str, coding, nocopy)