comparison src/mac.c @ 57425:0867872551d9

macterm.c (x_raise_frame): Add BLOCK_INPUT around SelectWindow (x_lower_frame): Add BLOCK_INPUT around SendBehind (make_mac_frame): Add BLOCK_INPUT around the making of a terminal frame (mac_initialize): Add BLOCK_INPUT around carbon initialization macgui.h (mktime): Use emacs_mktime macfns.c (Fx_file_dialog): Add BLOCK_INPUT around more code. Make a cancel file-open dialog be like C-g. mac.c (mktime): Use emacs_mktime (Fdo_applescript): Add BLOCK_INPUT around do_applescript (Fmac_paste_function): Add better error handling for carbon cut/paste

57424:b1ed4b950258

#undef free
#undef malloc
#undef realloc
#undef init_process
#include <Carbon/Carbon.h>
#undef free
#define free unexec_free
#undef malloc
#define malloc unexec_malloc
#undef realloc

#include "lisp.h"
#include "process.h"
#include "sysselect.h"
#include "systime.h"

Lisp_Object QCLIPBOARD;

/* An instance of the AppleScript component.  */
static ComponentInstance as_scripting_component;

  Lisp_Object lisp_result;
  long status;

  CHECK_STRING (script);

  status = do_applescript (SDATA (script), &result);
  if (status)
    {
      if (!result)
        error ("AppleScript error %d", status);
      else

DEFUN ("mac-paste-function", Fmac_paste_function, Smac_paste_function, 0, 0, 0,
       doc: /* Return the contents of the Mac clipboard as a string.  */)
     ()
{
#if TARGET_API_MAC_CARBON
  ScrapRef scrap;
  ScrapFlavorFlags sff;
  Size s;
  int i;
  char *data;

  if (GetCurrentScrap (&scrap) != noErr)
    return Qnil;

  if (GetScrapFlavorFlags (scrap, kScrapFlavorTypeText, &sff) != noErr)
    return Qnil;

  if (GetScrapFlavorSize (scrap, kScrapFlavorTypeText, &s) != noErr)
    return Qnil;

  if ((data = (char*) alloca (s)) == NULL)
    return Qnil;

  if (GetScrapFlavorData (scrap, kScrapFlavorTypeText, &s, data) != noErr
      || s == 0)
    return Qnil;

  /* Emacs expects clipboard contents have Unix-style eol's */
  for (i = 0; i < s; i++)
    if (data[i] == '\r')

      buf[i] = '\r';

#if TARGET_API_MAC_CARBON
  {
    ScrapRef scrap;
    ClearCurrentScrap ();
    if (GetCurrentScrap (&scrap) != noErr)
      error ("cannot get current scrap");

    if (PutScrapFlavor (scrap, kScrapFlavorTypeText, kScrapFlavorMaskNone, len,
			buf) != noErr)
      error ("cannot put to scrap");
  }
#else /* not TARGET_API_MAC_CARBON */
  ZeroScrap ();
  PutScrap (len, 'TEXT', buf);
#endif /* not TARGET_API_MAC_CARBON */

#if TARGET_API_MAC_CARBON
      ScrapRef scrap;
      ScrapFlavorFlags sff;

      if (GetCurrentScrap (&scrap) == noErr)
        if (GetScrapFlavorFlags (scrap, kScrapFlavorTypeText, &sff) == noErr)
          val = Qt;
#else /* not TARGET_API_MAC_CARBON */
      Handle my_handle;
      long rc, scrap_offset;

      my_handle = NewHandle (0);

#ifdef MAC_OSX
#undef select

extern int inhibit_window_system;
extern int noninteractive;

#include "blockinput.h"

/* When Emacs is started from the Finder, SELECT always immediately
   returns as if input is present when file descriptor 0 is polled for
   input.  Strangely, when Emacs is run as a GUI application from the
   command line, it blocks in the same situation.  This `wrapper' of

57425:0867872551d9

#undef free
#undef malloc
#undef realloc
#undef init_process
#include <Carbon/Carbon.h>
#undef mktime
#define mktime emacs_mktime
#undef free
#define free unexec_free
#undef malloc
#define malloc unexec_malloc
#undef realloc

#include "lisp.h"
#include "process.h"
#include "sysselect.h"
#include "systime.h"
#include "blockinput.h"

Lisp_Object QCLIPBOARD;

/* An instance of the AppleScript component.  */
static ComponentInstance as_scripting_component;

  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

DEFUN ("mac-paste-function", Fmac_paste_function, Smac_paste_function, 0, 0, 0,
       doc: /* Return the contents of the Mac clipboard as a string.  */)
     ()
{
#if TARGET_API_MAC_CARBON
  OSStatus err;
  ScrapRef scrap;
  ScrapFlavorFlags sff;
  Size s;
  int i;
  char *data;

  BLOCK_INPUT;
  err = GetCurrentScrap (&scrap);
  if (err == noErr)
    err = GetScrapFlavorFlags (scrap, kScrapFlavorTypeText, &sff);
  if (err == noErr)
    err = GetScrapFlavorSize (scrap, kScrapFlavorTypeText, &s);
  if (err == noErr && (data = (char*) alloca (s)))
    err = GetScrapFlavorData (scrap, kScrapFlavorTypeText, &s, data);
  UNBLOCK_INPUT;
  if (err != noErr || s == 0)
    return Qnil;

  /* Emacs expects clipboard contents have Unix-style eol's */
  for (i = 0; i < s; i++)
    if (data[i] == '\r')

      buf[i] = '\r';

#if TARGET_API_MAC_CARBON
  {
    ScrapRef scrap;

    BLOCK_INPUT;
    ClearCurrentScrap ();
    if (GetCurrentScrap (&scrap) != noErr)
      {
	UNBLOCK_INPUT;
	error ("cannot get current scrap");
      }

    if (PutScrapFlavor (scrap, kScrapFlavorTypeText, kScrapFlavorMaskNone, len,
			buf) != noErr)
      {
	UNBLOCK_INPUT;
	error ("cannot put to scrap");
      }
    UNBLOCK_INPUT;
  }
#else /* not TARGET_API_MAC_CARBON */
  ZeroScrap ();
  PutScrap (len, 'TEXT', buf);
#endif /* not TARGET_API_MAC_CARBON */

#if TARGET_API_MAC_CARBON
      ScrapRef scrap;
      ScrapFlavorFlags sff;

      BLOCK_INPUT;
      if (GetCurrentScrap (&scrap) == noErr)
        if (GetScrapFlavorFlags (scrap, kScrapFlavorTypeText, &sff) == noErr)
          val = Qt;
      UNBLOCK_INPUT;
#else /* not TARGET_API_MAC_CARBON */
      Handle my_handle;
      long rc, scrap_offset;

      my_handle = NewHandle (0);

#ifdef MAC_OSX
#undef select

extern int inhibit_window_system;
extern int noninteractive;

/* When Emacs is started from the Finder, SELECT always immediately
   returns as if input is present when file descriptor 0 is polled for
   input.  Strangely, when Emacs is run as a GUI application from the
   command line, it blocks in the same situation.  This `wrapper' of