comparison src/mac.c @ 72542:bb89b5bbed54

(create_apple_event_from_event_ref, select) (Fmac_get_file_creator, Fmac_get_file_type, Fmac_set_file_creator) (Fmac_set_file_type, cfstring_create_normalized) (mac_get_system_locale, select_and_poll_event, sys_select): Use OSStatus instead of OSErr.

72541:607718436ce2

    }

  return err;
}

OSErr
create_apple_event_from_event_ref (event, num_params, names, types, result)
     EventRef event;
     UInt32 num_params;
     EventParamName *names;
     EventParamType *types;
     AppleEvent *result;
{
  OSErr err;
  UInt32 i, size;
  CFStringRef string;
  CFDataRef data;
  char *buf = NULL;

  SELECT_TYPE *rfds;
  SELECT_TYPE *wfds;
  SELECT_TYPE *efds;
  struct timeval *timeout;
{
  OSErr err;
#if TARGET_API_MAC_CARBON
  EventTimeout timeout_sec =
    (timeout
     ? (EMACS_SECS (*timeout) * kEventDurationSecond
	+ EMACS_USECS (*timeout) * kEventDurationMicrosecond)

DEFUN ("mac-get-file-creator", Fmac_get_file_creator, Smac_get_file_creator, 1, 1, 0,
       doc: /* Get the creator code of FILENAME as a four character string. */)
     (filename)
     Lisp_Object filename;
{
  OSErr	status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

DEFUN ("mac-get-file-type", Fmac_get_file_type, Smac_get_file_type, 1, 1, 0,
       doc: /* Get the type code of FILENAME as a four character string. */)
     (filename)
     Lisp_Object filename;
{
  OSErr	status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

If non-nil, CODE must be a 4-character string.  Otherwise, 'EMAx' is
assumed. Return non-nil if successful.  */)
     (filename, code)
     Lisp_Object filename, code;
{
  OSErr	status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

       doc: /* Set file code of file FILENAME to CODE.
CODE must be a 4-character string.  Return non-nil if successful.  */)
     (filename, code)
     Lisp_Object filename, code;
{
  OSErr	status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

    {
      UnicodeToTextInfo uni = NULL;
      UnicodeMapping map;
      CFIndex length;
      UniChar *in_text, *buffer = NULL, *out_buf = NULL;
      OSErr err = noErr;
      ByteCount out_read, out_size, out_len;

      map.unicodeEncoding = CreateTextEncoding (kTextEncodingUnicodeDefault,
						kUnicodeNoSubset,
						kTextEncodingDefaultFormat);

static Lisp_Object
mac_get_system_locale ()
{
  OSErr err;
  LangCode lang;
  RegionCode region;
  LocaleRef locale;
  Str255 str;

     SELECT_TYPE *wfds;
     SELECT_TYPE *efds;
     struct timeval *timeout;
{
  int r;
  OSErr err;

  r = select (n, rfds, wfds, efds, timeout);
  if (r != -1)
    {
      BLOCK_INPUT;

     SELECT_TYPE *rfds;
     SELECT_TYPE *wfds;
     SELECT_TYPE *efds;
     struct timeval *timeout;
{
  OSErr err;
  int i, r;
  EMACS_TIME select_timeout;

  if (inhibit_window_system || noninteractive
      || rfds == NULL || !FD_ISSET (0, rfds))

72542:bb89b5bbed54

    }

  return err;
}

OSStatus
create_apple_event_from_event_ref (event, num_params, names, types, result)
     EventRef event;
     UInt32 num_params;
     EventParamName *names;
     EventParamType *types;
     AppleEvent *result;
{
  OSStatus err;
  UInt32 i, size;
  CFStringRef string;
  CFDataRef data;
  char *buf = NULL;

  SELECT_TYPE *rfds;
  SELECT_TYPE *wfds;
  SELECT_TYPE *efds;
  struct timeval *timeout;
{
  OSStatus err;
#if TARGET_API_MAC_CARBON
  EventTimeout timeout_sec =
    (timeout
     ? (EMACS_SECS (*timeout) * kEventDurationSecond
	+ EMACS_USECS (*timeout) * kEventDurationMicrosecond)

DEFUN ("mac-get-file-creator", Fmac_get_file_creator, Smac_get_file_creator, 1, 1, 0,
       doc: /* Get the creator code of FILENAME as a four character string. */)
     (filename)
     Lisp_Object filename;
{
  OSStatus status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

DEFUN ("mac-get-file-type", Fmac_get_file_type, Smac_get_file_type, 1, 1, 0,
       doc: /* Get the type code of FILENAME as a four character string. */)
     (filename)
     Lisp_Object filename;
{
  OSStatus status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

If non-nil, CODE must be a 4-character string.  Otherwise, 'EMAx' is
assumed. Return non-nil if successful.  */)
     (filename, code)
     Lisp_Object filename, code;
{
  OSStatus status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

       doc: /* Set file code of file FILENAME to CODE.
CODE must be a 4-character string.  Return non-nil if successful.  */)
     (filename, code)
     Lisp_Object filename, code;
{
  OSStatus status;
#ifdef MAC_OSX
  FSRef fref;
#else
  FSSpec fss;
#endif

    {
      UnicodeToTextInfo uni = NULL;
      UnicodeMapping map;
      CFIndex length;
      UniChar *in_text, *buffer = NULL, *out_buf = NULL;
      OSStatus err = noErr;
      ByteCount out_read, out_size, out_len;

      map.unicodeEncoding = CreateTextEncoding (kTextEncodingUnicodeDefault,
						kUnicodeNoSubset,
						kTextEncodingDefaultFormat);

static Lisp_Object
mac_get_system_locale ()
{
  OSStatus err;
  LangCode lang;
  RegionCode region;
  LocaleRef locale;
  Str255 str;

     SELECT_TYPE *wfds;
     SELECT_TYPE *efds;
     struct timeval *timeout;
{
  int r;
  OSStatus err;

  r = select (n, rfds, wfds, efds, timeout);
  if (r != -1)
    {
      BLOCK_INPUT;

     SELECT_TYPE *rfds;
     SELECT_TYPE *wfds;
     SELECT_TYPE *efds;
     struct timeval *timeout;
{
  OSStatus err;
  int i, r;
  EMACS_TIME select_timeout;

  if (inhibit_window_system || noninteractive
      || rfds == NULL || !FD_ISSET (0, rfds))