comparison src/fns.c @ 49656:46090ea2c5c3

(string_to_multibyte): New function. (Fstring_to_multibyte): New function. (syms_of_fns): Defsubr it.

49655:9ae045dbc337

	     0, 1);

  return make_multibyte_string (buf, SCHARS (string), nbytes);
}

/* Convert STRING to a single-byte string.  */

Lisp_Object
string_make_unibyte (string)
     Lisp_Object string;

      string = new_string;
      STRING_SET_INTERVALS (string, NULL_INTERVAL);
    }
  return string;
}

DEFUN ("copy-alist", Fcopy_alist, Scopy_alist, 1, 1, 0,
       doc: /* Return a copy of ALIST.
This is an alist which represents the same mapping from objects to objects,
but does not share the alist structure with ALIST.

  defsubr (&Scopy_sequence);
  defsubr (&Sstring_make_multibyte);
  defsubr (&Sstring_make_unibyte);
  defsubr (&Sstring_as_multibyte);
  defsubr (&Sstring_as_unibyte);
  defsubr (&Scopy_alist);
  defsubr (&Ssubstring);
  defsubr (&Ssubstring_no_properties);
  defsubr (&Snthcdr);
  defsubr (&Snth);

49656:46090ea2c5c3

	     0, 1);

  return make_multibyte_string (buf, SCHARS (string), nbytes);
}


/* Convert STRING to a multibyte string without changing each
   character codes.  Thus, characters 0200 trough 0237 are converted
   to eight-bit-control characters, and characters 0240 through 0377
   are converted eight-bit-graphic characters. */

Lisp_Object
string_to_multibyte (string)
     Lisp_Object string;
{
  unsigned char *buf;
  int nbytes;
  int i;

  if (STRING_MULTIBYTE (string))
    return string;

  nbytes = parse_str_to_multibyte (SDATA (string), SBYTES (string));
  /* If all the chars are ASCII, they won't need any more bytes
     once converted.  In that case, we can return STRING itself.  */
  if (nbytes == SBYTES (string))
    return string;

  buf = (unsigned char *) alloca (nbytes);
  bcopy (SDATA (string), buf, SBYTES (string));
  str_to_multibyte (buf, nbytes, SBYTES (string));

  return make_multibyte_string (buf, SCHARS (string), nbytes);
}


/* Convert STRING to a single-byte string.  */

Lisp_Object
string_make_unibyte (string)
     Lisp_Object string;

      string = new_string;
      STRING_SET_INTERVALS (string, NULL_INTERVAL);
    }
  return string;
}

DEFUN ("string-to-multibyte", Fstring_to_multibyte, Sstring_to_multibyte,
       1, 1, 0,
       doc: /* Return a multibyte string with the same individual chars as STRING.
If STRING is multibyte, the resutl is STRING itself.
Otherwise it is a newly created string, with no text properties.
Characters 0200 through 0237 are converted to eight-bit-control
characters of the same character code.  Characters 0240 through 0377
are converted to eight-bit-control characters of the same character
codes.  */)
     (string)
     Lisp_Object string;
{
  CHECK_STRING (string);

  return string_to_multibyte (string);
}


DEFUN ("copy-alist", Fcopy_alist, Scopy_alist, 1, 1, 0,
       doc: /* Return a copy of ALIST.
This is an alist which represents the same mapping from objects to objects,
but does not share the alist structure with ALIST.

  defsubr (&Scopy_sequence);
  defsubr (&Sstring_make_multibyte);
  defsubr (&Sstring_make_unibyte);
  defsubr (&Sstring_as_multibyte);
  defsubr (&Sstring_as_unibyte);
  defsubr (&Sstring_to_multibyte);
  defsubr (&Scopy_alist);
  defsubr (&Ssubstring);
  defsubr (&Ssubstring_no_properties);
  defsubr (&Snthcdr);
  defsubr (&Snth);