comparison src/fns.c @ 88737:b908df09ec8a

(count_combining): Comment out (unused). (Flocale_codeset): New. (syms_of_fns): Defsubr it.

88736:baa14ec2c76b

  if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg))
    arg = wrong_type_argument (Qsequencep, arg);
  return concat (1, &arg, CONSP (arg) ? Lisp_Cons : XTYPE (arg), 0);
}

/* In string STR of length LEN, see if bytes before STR[I] combine
   with bytes after STR[I] to form a single character.  If so, return
   the number of bytes after STR[I] which combine in this way.
   Otherwize, return 0.  */

  if (j < 0 || ! BASE_LEADING_CODE_P (str[j]))
    return 0;
  PARSE_MULTIBYTE_SEQ (str + j, len - j, bytes);
  return (bytes <= i - j ? 0 : bytes - (i - j));
}

/* This structure holds information of an argument of `concat' that is
   a string and has text properties to be copied.  */
struct textprop_rec
{

  newargs[2] = Flist (nargs - 2, args + 2);
  GCPRO2 (newargs[0], newargs[2]);
  result = Fapply (3, newargs);
  UNGCPRO;
  return result;
}

/* base64 encode/decode functions (RFC 2045).
   Based on code from GNU recode. */

  defsubr (&Sbase64_encode_region);
  defsubr (&Sbase64_decode_region);
  defsubr (&Sbase64_encode_string);
  defsubr (&Sbase64_decode_string);
  defsubr (&Smd5);
}


void
init_fns ()

88737:b908df09ec8a

  if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg))
    arg = wrong_type_argument (Qsequencep, arg);
  return concat (1, &arg, CONSP (arg) ? Lisp_Cons : XTYPE (arg), 0);
}

#if 0				/* unused */
/* In string STR of length LEN, see if bytes before STR[I] combine
   with bytes after STR[I] to form a single character.  If so, return
   the number of bytes after STR[I] which combine in this way.
   Otherwize, return 0.  */

  if (j < 0 || ! BASE_LEADING_CODE_P (str[j]))
    return 0;
  PARSE_MULTIBYTE_SEQ (str + j, len - j, bytes);
  return (bytes <= i - j ? 0 : bytes - (i - j));
}
#endif

/* This structure holds information of an argument of `concat' that is
   a string and has text properties to be copied.  */
struct textprop_rec
{

  newargs[2] = Flist (nargs - 2, args + 2);
  GCPRO2 (newargs[0], newargs[2]);
  result = Fapply (3, newargs);
  UNGCPRO;
  return result;
}

#ifdef HAVE_LANGINFO_CODESET
#include <langinfo.h>
#endif

/* Fixme: is it useful to get more general info from the locale?  */
DEFUN ("locale-codeset", Flocale_codeset, Slocale_codeset, 0, 0, 0,
       doc: /* Return a string indicating the code set in the current locale.
If the system can't provide such information through a call to
nl_langinfo(3), return nil.  */)
     ()
{
#ifdef HAVE_LANGINFO_CODESET
  char *str = nl_langinfo (CODESET);
  return make_string (str, strlen (str));
#else
  return Qnil;
#endif
}

/* base64 encode/decode functions (RFC 2045).
   Based on code from GNU recode. */

  defsubr (&Sbase64_encode_region);
  defsubr (&Sbase64_decode_region);
  defsubr (&Sbase64_encode_string);
  defsubr (&Sbase64_decode_string);
  defsubr (&Smd5);
  defsubr (&Slocale_codeset);
}


void
init_fns ()