comparison src/mac.c @ 90385:72dea2ff0142

Revision: [e-mail]/emacs--unicode--0--patch-57 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 226-238) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/progmodes/python.el (python-mode): Fix typo. * gnus--rel--5.10 (patch 86-90) - Update from CVS - Merge from emacs--devo--0

90384:c156f6a9e7b5

#else
      FSSpec fs;
      char *buf;

      buf = xmalloc (data_size + 1);
      if (buf)
	{
	  memcpy (buf, data_ptr, data_size);
	  buf[data_size] = '\0';
	  err = posix_pathname_to_fsspec (buf, &fs);
	  xfree (buf);
	}
      else
	err = memFullErr;
      if (err == noErr)
	err = AECoercePtr (typeFSS, &fs, sizeof (FSSpec), to_type, result);
#endif
    }
  else if (to_type == TYPE_FILE_NAME)

			     typeFileURL, &desc);
	  if (err == noErr)
	    {
	      size = AEGetDescDataSize (&desc);
	      buf = xmalloc (size);
	      if (buf)
		{
		  err = AEGetDescData (&desc, buf, size);
		  if (err == noErr)
		    url = CFURLCreateWithBytes (NULL, buf, size,
						kCFStringEncodingUTF8, NULL);
		  xfree (buf);
		}
	      AEDisposeDesc (&desc);
	    }
	}
      if (url)
	{

      data_size = AEGetDescDataSize (from_desc);
#else
      data_size = GetHandleSize (from_desc->dataHandle);
#endif
      data_ptr = xmalloc (data_size);
      if (data_ptr)
	{
#if TARGET_API_MAC_CARBON
	  err = AEGetDescData (from_desc, data_ptr, data_size);
#else
	  memcpy (data_ptr, *(from_desc->dataHandle), data_size);
#endif
	  if (err == noErr)
	    err = mac_coerce_file_name_ptr (from_type, data_ptr,
					    data_size, to_type,
					    handler_refcon, result);
	  xfree (data_ptr);
	}
      else
	err = memFullErr;
    }

  if (err != noErr)
    return errAECoercionFail;
  return noErr;

	err = GetEventParameter (event, names[i], types[i], NULL,
				 0, &size, NULL);
	if (err != noErr)
	  break;
	buf = xmalloc (size);
	if (buf == NULL)
	  break;
	err = GetEventParameter (event, names[i], types[i], NULL,
				 size, NULL, buf);
	if (err == noErr)
	  AEPutParamPtr (result, names[i], types[i], buf, size);
	xfree (buf);

	  }
      }

  count = CFSetGetCount (key_set);
  keys = xmalloc (sizeof (CFStringRef) * count);
  if (keys == NULL)
    goto out;
  CFSetGetValues (key_set, (const void **)keys);
  for (index = 0; index < count; index++)
    {
      res_name = SDATA (cfstring_to_lisp_nodecode (keys[index]));
      quarks = parse_resource_name (&res_name);

      in_text = (UniChar *)CFStringGetCharactersPtr (str);
      if (in_text == NULL)
	{
	  buffer = xmalloc (sizeof (UniChar) * length);
	  if (buffer)
	    {
	      CFStringGetCharacters (str, CFRangeMake (0, length), buffer);
	      in_text = buffer;
	    }
	}

      if (in_text)
	err = CreateUnicodeToTextInfo(&map, &uni);
      while (err == noErr)
	{
	  out_buf = xmalloc (out_size);
	  if (out_buf == NULL)
	    err = mFulErr;
	  else
	    err = ConvertFromUnicodeToText (uni, length * sizeof (UniChar),
					    in_text,
					    kUnicodeDefaultDirectionMask,
					    0, NULL, NULL, NULL,
					    out_size, &out_read, &out_len,
					    out_buf);
	  if (err == noErr && out_read < length * sizeof (UniChar))
	    {
	      xfree (out_buf);
	      out_size += length;
	    }

90385:72dea2ff0142

#else
      FSSpec fs;
      char *buf;

      buf = xmalloc (data_size + 1);
      memcpy (buf, data_ptr, data_size);
      buf[data_size] = '\0';
      err = posix_pathname_to_fsspec (buf, &fs);
      xfree (buf);
      if (err == noErr)
	err = AECoercePtr (typeFSS, &fs, sizeof (FSSpec), to_type, result);
#endif
    }
  else if (to_type == TYPE_FILE_NAME)

			     typeFileURL, &desc);
	  if (err == noErr)
	    {
	      size = AEGetDescDataSize (&desc);
	      buf = xmalloc (size);
	      err = AEGetDescData (&desc, buf, size);
	      if (err == noErr)
		url = CFURLCreateWithBytes (NULL, buf, size,
					    kCFStringEncodingUTF8, NULL);
	      xfree (buf);
	      AEDisposeDesc (&desc);
	    }
	}
      if (url)
	{

      data_size = AEGetDescDataSize (from_desc);
#else
      data_size = GetHandleSize (from_desc->dataHandle);
#endif
      data_ptr = xmalloc (data_size);
#if TARGET_API_MAC_CARBON
      err = AEGetDescData (from_desc, data_ptr, data_size);
#else
      memcpy (data_ptr, *(from_desc->dataHandle), data_size);
#endif
      if (err == noErr)
	err = mac_coerce_file_name_ptr (from_type, data_ptr,
					data_size, to_type,
					handler_refcon, result);
      xfree (data_ptr);
    }

  if (err != noErr)
    return errAECoercionFail;
  return noErr;

	err = GetEventParameter (event, names[i], types[i], NULL,
				 0, &size, NULL);
	if (err != noErr)
	  break;
	buf = xmalloc (size);
	err = GetEventParameter (event, names[i], types[i], NULL,
				 size, NULL, buf);
	if (err == noErr)
	  AEPutParamPtr (result, names[i], types[i], buf, size);
	xfree (buf);

	  }
      }

  count = CFSetGetCount (key_set);
  keys = xmalloc (sizeof (CFStringRef) * count);
  CFSetGetValues (key_set, (const void **)keys);
  for (index = 0; index < count; index++)
    {
      res_name = SDATA (cfstring_to_lisp_nodecode (keys[index]));
      quarks = parse_resource_name (&res_name);

      in_text = (UniChar *)CFStringGetCharactersPtr (str);
      if (in_text == NULL)
	{
	  buffer = xmalloc (sizeof (UniChar) * length);
	  CFStringGetCharacters (str, CFRangeMake (0, length), buffer);
	  in_text = buffer;
	}

      if (in_text)
	err = CreateUnicodeToTextInfo(&map, &uni);
      while (err == noErr)
	{
	  out_buf = xmalloc (out_size);
	  err = ConvertFromUnicodeToText (uni, length * sizeof (UniChar),
					  in_text,
					  kUnicodeDefaultDirectionMask,
					  0, NULL, NULL, NULL,
					  out_size, &out_read, &out_len,
					  out_buf);
	  if (err == noErr && out_read < length * sizeof (UniChar))
	    {
	      xfree (out_buf);
	      out_size += length;
	    }