comparison src/coding.c @ 89545:4f394eed6ff2

(inhibit_pre_post_conversion): Removed (unused). (alloc_destination, produce_chars): Use EMACS_INT for byte/char counts. (coding_inherit_eol_type): Remove unused attrs. (detect_coding): Cast arg of detect_eol.

89544:36913565de8a

/* Default coding systems used for process I/O.  */
Lisp_Object Vdefault_process_coding_system;

/* Char table for translating Quail and self-inserting input.  */
Lisp_Object Vtranslation_table_for_input;

/* Global flag to tell that we can't call post-read-conversion and
   pre-write-conversion functions.  Usually the value is zero, but it
   is set to 1 temporarily while such functions are running.  This is
   to avoid infinite recursive call.  */
static int inhibit_pre_post_conversion;

/* Two special coding systems.  */
Lisp_Object Vsjis_coding_system;
Lisp_Object Vbig5_coding_system;

static unsigned char *
alloc_destination (coding, nbytes, dst)
     struct coding_system *coding;
     int nbytes;
     unsigned char *dst;
{
  EMACS_INT offset = dst - coding->destination;

  if (BUFFERP (coding->dst_object))

Lisp_Object
coding_inherit_eol_type (coding_system, parent)
     Lisp_Object coding_system, parent;
{
  Lisp_Object spec, attrs, eol_type;

  if (NILP (coding_system))
    coding_system = Qraw_text;
  spec = CODING_SYSTEM_SPEC (coding_system);
  attrs = AREF (spec, 0);
  eol_type = AREF (spec, 2);
  if (VECTORP (eol_type)
      && ! NILP (parent))
    {
      Lisp_Object parent_spec;

     case, we detct the EOL type after decoding.  */
  if (VECTORP (CODING_ID_EOL_TYPE (coding->id))
      && ! EQ (coding_type, Qccl))
    {
      int eol_seen = detect_eol (coding->source, coding->src_bytes,
				 XINT (CODING_ATTR_CATEGORY (attrs)));

      if (eol_seen != EOL_SEEN_NONE)
	adjust_coding_eol_type (coding, eol_seen);
    }
}

  int produced_chars = 0;

  if (! coding->chars_at_source)
    {
      /* Characters are in coding->charbuf.  */
      int *buf = coding->charbuf;
      int *buf_end = buf + coding->charbuf_used;
      unsigned char *adjusted_dst_end;

      if (BUFFERP (coding->src_object)
	  && EQ (coding->src_object, coding->dst_object))
	dst_end = ((unsigned char *) coding->source) + coding->consumed;

  iso_code_class[ISO_CODE_SS2_7] = ISO_single_shift_2_7;
  iso_code_class[ISO_CODE_ESC] = ISO_escape;
  iso_code_class[ISO_CODE_SS2] = ISO_single_shift_2;
  iso_code_class[ISO_CODE_SS3] = ISO_single_shift_3;
  iso_code_class[ISO_CODE_CSI] = ISO_control_sequence_introducer;

  inhibit_pre_post_conversion = 0;

  for (i = 0; i < 256; i++)
    {
      emacs_mule_bytes[i] = 1;
    }

89545:4f394eed6ff2

/* Default coding systems used for process I/O.  */
Lisp_Object Vdefault_process_coding_system;

/* Char table for translating Quail and self-inserting input.  */
Lisp_Object Vtranslation_table_for_input;

/* Two special coding systems.  */
Lisp_Object Vsjis_coding_system;
Lisp_Object Vbig5_coding_system;

static unsigned char *
alloc_destination (coding, nbytes, dst)
     struct coding_system *coding;
     EMACS_INT nbytes;
     unsigned char *dst;
{
  EMACS_INT offset = dst - coding->destination;

  if (BUFFERP (coding->dst_object))

Lisp_Object
coding_inherit_eol_type (coding_system, parent)
     Lisp_Object coding_system, parent;
{
  Lisp_Object spec, eol_type;

  if (NILP (coding_system))
    coding_system = Qraw_text;
  spec = CODING_SYSTEM_SPEC (coding_system);
  eol_type = AREF (spec, 2);
  if (VECTORP (eol_type)
      && ! NILP (parent))
    {
      Lisp_Object parent_spec;

     case, we detct the EOL type after decoding.  */
  if (VECTORP (CODING_ID_EOL_TYPE (coding->id))
      && ! EQ (coding_type, Qccl))
    {
      int eol_seen = detect_eol (coding->source, coding->src_bytes,
				 (enum coding_category) XINT (CODING_ATTR_CATEGORY (attrs)));

      if (eol_seen != EOL_SEEN_NONE)
	adjust_coding_eol_type (coding, eol_seen);
    }
}

  int produced_chars = 0;

  if (! coding->chars_at_source)
    {
      /* Characters are in coding->charbuf.  */
      EMACS_INT *buf = coding->charbuf;
      EMACS_INT *buf_end = buf + coding->charbuf_used;
      unsigned char *adjusted_dst_end;

      if (BUFFERP (coding->src_object)
	  && EQ (coding->src_object, coding->dst_object))
	dst_end = ((unsigned char *) coding->source) + coding->consumed;

  iso_code_class[ISO_CODE_SS2_7] = ISO_single_shift_2_7;
  iso_code_class[ISO_CODE_ESC] = ISO_escape;
  iso_code_class[ISO_CODE_SS2] = ISO_single_shift_2;
  iso_code_class[ISO_CODE_SS3] = ISO_single_shift_3;
  iso_code_class[ISO_CODE_CSI] = ISO_control_sequence_introducer;

  for (i = 0; i < 256; i++)
    {
      emacs_mule_bytes[i] = 1;
    }