comparison src/fns.c @ 23690:5149f79d6dfd

(MAX_ALLOCA): New macro. (Fbase64_encode_region, Fbase64_encode_string, Fbase64_decode_region, Fbase64_decode_string): Don't allocate more than MAX_ALLOCA bytes with alloca; otherwise use xmalloc.

23689:c0766cb586e4

#define IS_ASCII(Character) \
  ((Character) < 128)
#define IS_BASE64(Character) \
  (IS_ASCII (Character) && base64_char_to_value[Character] >= 0)

/* Table of characters coding the 64 values.  */
static char base64_value_to_char[64] =
{
  'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',	/*  0- 9 */
  'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',	/* 10-19 */

     characters, and then we round up. */
  length = iend - ibeg;
  allength = length + length/3 + 1;
  allength += allength / MIME_LINE_LENGTH + 1 + 6;

  encoded = (char *) alloca (allength);
  encoded_length = base64_encode_1 (BYTE_POS_ADDR (ibeg), encoded, length,
				    NILP (no_line_break));
  if (encoded_length > allength)
    abort ();

  /* Now we have encoded the region, so we insert the new contents
     and delete the old.  (Insert first in order to preserve markers.)  */
  SET_PT_BOTH (XFASTINT (beg), ibeg);
  insert (encoded, encoded_length);
  del_range_byte (ibeg + encoded_length, iend + encoded_length, 1);

  /* If point was outside of the region, restore it exactly; else just
     move to the beginning of the region.  */
  if (old_pos >= XFASTINT (end))

     (string)
     Lisp_Object string;
{
  int allength, length, encoded_length;
  char *encoded;

  CHECK_STRING (string, 1);

  length = STRING_BYTES (XSTRING (string));
  allength = length + length/3 + 1 + 6;

  /* We need to allocate enough room for decoding the text. */
  encoded = (char *) alloca (allength);

  encoded_length = base64_encode_1 (XSTRING (string)->data,
				    encoded, length, 0);
  if (encoded_length > allength)
    abort ();

  return make_unibyte_string (encoded, encoded_length);
}

static int
base64_encode_1 (from, to, length, line_break)
     const char *from;

  ibeg = CHAR_TO_BYTE (XFASTINT (beg));
  iend = CHAR_TO_BYTE (XFASTINT (end));

  length = iend - ibeg;
  /* We need to allocate enough room for decoding the text. */
  decoded = (char *) alloca (length);

  move_gap_both (XFASTINT (beg), ibeg);
  decoded_length = base64_decode_1 (BYTE_POS_ADDR (ibeg), decoded, length);
  if (decoded_length > length)
    abort ();

  TEMP_SET_PT_BOTH (XFASTINT (beg), ibeg);
  insert_1_both ("  ", 2, 2, 0, 1, 0);
  TEMP_SET_PT_BOTH (XFASTINT (beg) + 1, ibeg + 1);  
  insert (decoded, decoded_length);
  inserted_chars = PT - (XFASTINT (beg) + 1);
  /* At first delete the original text.  This never cause byte
     combining.  */
  del_range_both (PT + 1, PT_BYTE + 1, XFASTINT (end) + inserted_chars + 2,
		  iend + decoded_length + 2, 1);
  /* Next delete the extra spaces.  This will cause byte combining

     (string)
     Lisp_Object string;
{
  char *decoded;
  int length, decoded_length;

  CHECK_STRING (string, 1);

  length = STRING_BYTES (XSTRING (string));
  /* We need to allocate enough room for decoding the text. */
  decoded = (char *) alloca (length);

  decoded_length = base64_decode_1 (XSTRING (string)->data, decoded, length);
  if (decoded_length > length)
    abort ();

  if (decoded_length < 0)
      return Qnil;

  return make_string (decoded, decoded_length);
}

static int
base64_decode_1 (from, to, length)
     const char *from;

23690:5149f79d6dfd

#define IS_ASCII(Character) \
  ((Character) < 128)
#define IS_BASE64(Character) \
  (IS_ASCII (Character) && base64_char_to_value[Character] >= 0)

/* Don't use alloca for regions larger than this, lest we overflow
   their stack.  */
#define MAX_ALLOCA 16*1024

/* Table of characters coding the 64 values.  */
static char base64_value_to_char[64] =
{
  'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',	/*  0- 9 */
  'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',	/* 10-19 */

     characters, and then we round up. */
  length = iend - ibeg;
  allength = length + length/3 + 1;
  allength += allength / MIME_LINE_LENGTH + 1 + 6;

  if (allength <= MAX_ALLOCA)
    encoded = (char *) alloca (allength);
  else
    encoded = (char *) xmalloc (allength);
  encoded_length = base64_encode_1 (BYTE_POS_ADDR (ibeg), encoded, length,
				    NILP (no_line_break));
  if (encoded_length > allength)
    abort ();

  /* Now we have encoded the region, so we insert the new contents
     and delete the old.  (Insert first in order to preserve markers.)  */
  SET_PT_BOTH (XFASTINT (beg), ibeg);
  insert (encoded, encoded_length);
  if (allength > MAX_ALLOCA)
    free (encoded);
  del_range_byte (ibeg + encoded_length, iend + encoded_length, 1);

  /* If point was outside of the region, restore it exactly; else just
     move to the beginning of the region.  */
  if (old_pos >= XFASTINT (end))

     (string)
     Lisp_Object string;
{
  int allength, length, encoded_length;
  char *encoded;
  Lisp_Object encoded_string;

  CHECK_STRING (string, 1);

  length = STRING_BYTES (XSTRING (string));
  allength = length + length/3 + 1 + 6;

  /* We need to allocate enough room for decoding the text. */
  if (allength <= MAX_ALLOCA)
    encoded = (char *) alloca (allength);
  else
    encoded = (char *) xmalloc (allength);

  encoded_length = base64_encode_1 (XSTRING (string)->data,
				    encoded, length, 0);
  if (encoded_length > allength)
    abort ();

  encoded_string = make_unibyte_string (encoded, encoded_length);
  if (allength > MAX_ALLOCA)
    free (encoded);

  return encoded_string;
}

static int
base64_encode_1 (from, to, length, line_break)
     const char *from;

  ibeg = CHAR_TO_BYTE (XFASTINT (beg));
  iend = CHAR_TO_BYTE (XFASTINT (end));

  length = iend - ibeg;
  /* We need to allocate enough room for decoding the text. */
  if (length <= MAX_ALLOCA)
    decoded = (char *) alloca (length);
  else
    decoded = (char *) xmalloc (length);

  move_gap_both (XFASTINT (beg), ibeg);
  decoded_length = base64_decode_1 (BYTE_POS_ADDR (ibeg), decoded, length);
  if (decoded_length > length)
    abort ();

  TEMP_SET_PT_BOTH (XFASTINT (beg), ibeg);
  insert_1_both ("  ", 2, 2, 0, 1, 0);
  TEMP_SET_PT_BOTH (XFASTINT (beg) + 1, ibeg + 1);  
  insert (decoded, decoded_length);
  inserted_chars = PT - (XFASTINT (beg) + 1);
  if (length > MAX_ALLOCA)
    free (decoded);
  /* At first delete the original text.  This never cause byte
     combining.  */
  del_range_both (PT + 1, PT_BYTE + 1, XFASTINT (end) + inserted_chars + 2,
		  iend + decoded_length + 2, 1);
  /* Next delete the extra spaces.  This will cause byte combining

     (string)
     Lisp_Object string;
{
  char *decoded;
  int length, decoded_length;
  Lisp_Object decoded_string;

  CHECK_STRING (string, 1);

  length = STRING_BYTES (XSTRING (string));
  /* We need to allocate enough room for decoding the text. */
  if (length <= MAX_ALLOCA)
    decoded = (char *) alloca (length);
  else
    decoded = (char *) xmalloc (length);

  decoded_length = base64_decode_1 (XSTRING (string)->data, decoded, length);
  if (decoded_length > length)
    abort ();

  if (decoded_length < 0)
      return Qnil;

  decoded_string = make_string (decoded, decoded_length);
  if (length > MAX_ALLOCA)
    free (decoded);

  return decoded_string;
}

static int
base64_decode_1 (from, to, length)
     const char *from;