comparison src/mac.c @ 67665:98b67f3d9491

(create_apple_event_from_event_ref): Remove arg `types'. (do_applescript): Change argument types to Lisp_Object. All uses changed.

67664:61bd8643b908

  return Fcons (make_unibyte_string ((char *) &desc_type, 4), result);
}

#if TARGET_API_MAC_CARBON
OSErr
create_apple_event_from_event_ref (event, num_params, names,
				   types, sizes, result)
     EventRef event;
     UInt32 num_params;
     EventParamName *names;
     EventParamType *types;
     UInt32 *sizes;
     AppleEvent *result;
{
  OSErr err;
  static const ProcessSerialNumber psn = {0, kCurrentProcess};
  AEAddressDesc address_desc;
  UInt32 i;
  CFStringRef string;
  CFDataRef data;
  char *buf;

  err = AECreateDesc (typeProcessSerialNumber, &psn,

	CFRelease (data);
	break;
#endif

      default:
	buf = xmalloc (sizes[i]);
	if (buf == NULL)
	  break;
	err = GetEventParameter (event, names[i], types[i], NULL,
				 sizes[i], NULL, buf);
	if (err == noErr)
	  AEPutParamPtr (result, names[i], types[i], buf, sizes[i]);
	xfree (buf);
	break;
      }

  return noErr;

   into one message to be passed together with the high level event.
   Emacs also sometimes starts a subprocess using a shell to perform
   wildcard filename expansion.  Since we don't really have a shell on
   the Mac, this case is detected and the starting of the shell is
   by-passed.  We really need to add code here to do filename
   expansion to support such functionality. */

int
run_mac_command (argv, workdir, infn, outfn, errfn)
     unsigned char **argv;
     const char *workdir;

}


/* Compile and execute the AppleScript SCRIPT and return the error
   status as function value.  A zero is returned if compilation and
   execution is successful, in which case RESULT returns a pointer to
   a string containing the resulting script value.  Otherwise, the Mac
   error code is returned and RESULT returns a pointer to an error
   string.  In both cases the caller should deallocate the storage
   used by the string pointed to by RESULT if it is non-NULL.  For
   documentation on the MacOS scripting architecture, see Inside
   Macintosh - Interapplication Communications: Scripting Components.  */

static long
do_applescript (char *script, char **result)
{
  AEDesc script_desc, result_desc, error_desc;
  OSErr error;
  OSAError osaerror;
  long length;

  *result = 0;

  if (!as_scripting_component)
    initialize_applescript();

  error = AECreateDesc (typeChar, script, strlen(script), &script_desc);
  if (error)
    return error;

  osaerror = OSADoScript (as_scripting_component, &script_desc, kOSANullScript,
			  typeChar, kOSAModeNull, &result_desc);

  if (osaerror == errOSAScriptError)
    {
      /* error executing AppleScript: retrieve error message */
      if (!OSAScriptError (as_scripting_component, kOSAErrorMessage, typeChar,
			   &error_desc))
        {
#if TARGET_API_MAC_CARBON
          length = AEGetDescDataSize (&error_desc);
          *result = (char *) xmalloc (length + 1);
          if (*result)
            {
              AEGetDescData (&error_desc, *result, length);
              *(*result + length) = '\0';
            }
#else /* not TARGET_API_MAC_CARBON */
          HLock (error_desc.dataHandle);
          length = GetHandleSize(error_desc.dataHandle);
          *result = (char *) xmalloc (length + 1);
          if (*result)
            {
              memcpy (*result, *(error_desc.dataHandle), length);
              *(*result + length) = '\0';
            }
          HUnlock (error_desc.dataHandle);
#endif /* not TARGET_API_MAC_CARBON */
          AEDisposeDesc (&error_desc);
        }
    }
  else if (osaerror == noErr)  /* success: retrieve resulting script value */
    {
#if TARGET_API_MAC_CARBON
      length = AEGetDescDataSize (&result_desc);
      *result = (char *) xmalloc (length + 1);
      if (*result)
        {
          AEGetDescData (&result_desc, *result, length);
          *(*result + length) = '\0';
        }
#else /* not TARGET_API_MAC_CARBON */
      HLock (result_desc.dataHandle);
      length = GetHandleSize(result_desc.dataHandle);
      *result = (char *) xmalloc (length + 1);
      if (*result)
        {
          memcpy (*result, *(result_desc.dataHandle), length);
          *(*result + length) = '\0';
        }
      HUnlock (result_desc.dataHandle);
#endif /* not TARGET_API_MAC_CARBON */
      AEDisposeDesc (&result_desc);
    }

  AEDisposeDesc (&script_desc);

  return osaerror;

displays the error message returned by the AppleScript scripting
component.  */)
    (script)
    Lisp_Object script;
{
  char *result, *temp;
  Lisp_Object lisp_result;
  long status;

  CHECK_STRING (script);

  BLOCK_INPUT;
  status = do_applescript (SDATA (script), &result);
  UNBLOCK_INPUT;
  if (status)
    {
      if (!result)
        error ("AppleScript error %d", status);
      else
        {
          /* Unfortunately only OSADoScript in do_applescript knows how
             how large the resulting script value or error message is
             going to be and therefore as caller memory must be
             deallocated here.  It is necessary to free the error
             message before calling error to avoid a memory leak.  */
          temp = (char *) alloca (strlen (result) + 1);
          strcpy (temp, result);
          xfree (result);
          error (temp);
        }
    }
  else
    {
      lisp_result = build_string (result);
      xfree (result);
      return lisp_result;
    }
}


DEFUN ("mac-file-name-to-posix", Fmac_file_name_to_posix,
       Smac_file_name_to_posix, 1, 1, 0,

67665:98b67f3d9491

  return Fcons (make_unibyte_string ((char *) &desc_type, 4), result);
}

#if TARGET_API_MAC_CARBON
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;
  static const ProcessSerialNumber psn = {0, kCurrentProcess};
  AEAddressDesc address_desc;
  UInt32 i, size;
  CFStringRef string;
  CFDataRef data;
  char *buf;

  err = AECreateDesc (typeProcessSerialNumber, &psn,

	CFRelease (data);
	break;
#endif

      default:
	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);
	break;
      }

  return noErr;

   into one message to be passed together with the high level event.
   Emacs also sometimes starts a subprocess using a shell to perform
   wildcard filename expansion.  Since we don't really have a shell on
   the Mac, this case is detected and the starting of the shell is
   by-passed.  We really need to add code here to do filename
   expansion to support such functionality.

   We can't use this strategy in Carbon because the High Level Event
   APIs are not available.  */

int
run_mac_command (argv, workdir, infn, outfn, errfn)
     unsigned char **argv;
     const char *workdir;

}


/* Compile and execute the AppleScript SCRIPT and return the error
   status as function value.  A zero is returned if compilation and
   execution is successful, in which case *RESULT is set to a Lisp
   string containing the resulting script value.  Otherwise, the Mac
   error code is returned and *RESULT is set to an error Lisp string.
   For documentation on the MacOS scripting architecture, see Inside
   Macintosh - Interapplication Communications: Scripting
   Components.  */

static long
do_applescript (script, result)
     Lisp_Object script, *result;
{
  AEDesc script_desc, result_desc, error_desc, *desc = NULL;
  OSErr error;
  OSAError osaerror;

  *result = Qnil;

  if (!as_scripting_component)
    initialize_applescript();

  error = AECreateDesc (typeChar, SDATA (script), SBYTES (script),
			&script_desc);
  if (error)
    return error;

  osaerror = OSADoScript (as_scripting_component, &script_desc, kOSANullScript,
			  typeChar, kOSAModeNull, &result_desc);

  if (osaerror == noErr)
    /* success: retrieve resulting script value */
    desc = &result_desc;
  else if (osaerror == errOSAScriptError)
    /* error executing AppleScript: retrieve error message */
    if (!OSAScriptError (as_scripting_component, kOSAErrorMessage, typeChar,
			 &error_desc))
      desc = &error_desc;

  if (desc)
    {
#if TARGET_API_MAC_CARBON
      *result = make_uninit_string (AEGetDescDataSize (desc));
      AEGetDescData (desc, SDATA (*result), SBYTES (*result));
#else /* not TARGET_API_MAC_CARBON */
      *result = make_uninit_string (GetHandleSize (desc->dataHandle));
      memcpy (SDATA (*result), *(desc->dataHandle), SBYTES (*result));
#endif /* not TARGET_API_MAC_CARBON */
      AEDisposeDesc (desc);
    }

  AEDisposeDesc (&script_desc);

  return osaerror;

displays the error message returned by the AppleScript scripting
component.  */)
    (script)
    Lisp_Object script;
{
  Lisp_Object result;
  long status;

  CHECK_STRING (script);

  BLOCK_INPUT;
  status = do_applescript (script, &result);
  UNBLOCK_INPUT;
  if (status == 0)
    return result;
  else if (!STRINGP (result))
    error ("AppleScript error %d", status);
  else
    error ("%s", SDATA (result));
}


DEFUN ("mac-file-name-to-posix", Fmac_file_name_to_posix,
       Smac_file_name_to_posix, 1, 1, 0,