comparison src/macterm.c @ 67788:114d965dfb60

Don't include sys/param.h. (init_coercion_handler): Add extern. [MAC_OS8] (main): Call init_coercion_handler. (mac_initialize) [MAC_OSX]: Likewise. [TARGET_API_MAC_CARBON] (mac_do_receive_drag): Use coercion of Apple event data for translation from/to file names.

67787:8c306a35f0b0

#include <ctype.h>
#include <errno.h>
#include <setjmp.h>
#include <sys/stat.h>
#include <sys/param.h>

#include "charset.h"
#include "coding.h"
#include "frame.h"
#include "dispextern.h"

extern Lisp_Object Qundefined;
extern void init_apple_event_handler P_ ((void));
extern void mac_find_apple_event_spec P_ ((AEEventClass, AEEventID,
					   Lisp_Object *, Lisp_Object *,
					   Lisp_Object *));

#if TARGET_API_MAC_CARBON
/* Drag and Drop */
static pascal OSErr mac_do_track_drag (DragTrackingMessage, WindowPtr, void*, DragReference);
static pascal OSErr mac_do_receive_drag (WindowPtr, void*, DragReference);

      /* Only handle file references.  */
      GetDragItemReferenceNumber (theDrag, index, &theItem);
      result = GetFlavorFlags (theDrag, theItem, flavorTypeHFS, &theFlags);
      if (result == noErr)
	{
#ifdef MAC_OSX
	  FSRef fref;
#endif
	  char unix_path_name[MAXPATHLEN];

	  GetFlavorData (theDrag, theItem, flavorTypeHFS, &data, &size, 0L);
#ifdef MAC_OSX
	  /* Use Carbon routines, otherwise it converts the file name
	     to /Macintosh HD/..., which is not correct. */
	  FSpMakeFSRef (&data.fileSpec, &fref);
	  if (! FSRefMakePath (&fref, unix_path_name, sizeof (unix_path_name)));
#else
	  if (fsspec_to_posix_pathname (&data.fileSpec, unix_path_name,
					sizeof (unix_path_name) - 1) == noErr)
#endif
	    /* x-dnd functions expect undecoded filenames.  */
            file_list = Fcons (make_unibyte_string (unix_path_name,
						    strlen (unix_path_name)),
			       file_list);
	}
    }
  /* If there are items in the list, construct an event and post it to
     the queue like an interrupt using kbd_buffer_store_event.  */
  if (!NILP (file_list))

#endif

  init_emacs_passwd_dir ();

  init_environ ();

  initialize_applescript ();

  init_apple_event_handler ();

  init_menu_bar ();
#endif	/* USE_CARBON_EVENTS */

#ifdef MAC_OSX
  init_apple_event_handler ();

  if (!inhibit_window_system)
    MakeMeTheFrontProcess ();
#endif

67788:114d965dfb60

#include <ctype.h>
#include <errno.h>
#include <setjmp.h>
#include <sys/stat.h>

#include "charset.h"
#include "coding.h"
#include "frame.h"
#include "dispextern.h"

extern Lisp_Object Qundefined;
extern void init_apple_event_handler P_ ((void));
extern void mac_find_apple_event_spec P_ ((AEEventClass, AEEventID,
					   Lisp_Object *, Lisp_Object *,
					   Lisp_Object *));
extern OSErr init_coercion_handler P_ ((void));

#if TARGET_API_MAC_CARBON
/* Drag and Drop */
static pascal OSErr mac_do_track_drag (DragTrackingMessage, WindowPtr, void*, DragReference);
static pascal OSErr mac_do_receive_drag (WindowPtr, void*, DragReference);

      /* Only handle file references.  */
      GetDragItemReferenceNumber (theDrag, index, &theItem);
      result = GetFlavorFlags (theDrag, theItem, flavorTypeHFS, &theFlags);
      if (result == noErr)
	{
	  OSErr err;
	  AEDesc desc;

	  err = GetFlavorData (theDrag, theItem, flavorTypeHFS,
			       &data, &size, 0L);
	  if (err == noErr)
	    err = AECoercePtr (typeFSS, &data.fileSpec, sizeof (FSSpec),
			       TYPE_FILE_NAME, &desc);
	  if (err == noErr)
	    {
	      Lisp_Object file;

	      /* x-dnd functions expect undecoded filenames.  */
	      file = make_uninit_string (AEGetDescDataSize (&desc));
	      err = AEGetDescData (&desc, SDATA (file), SBYTES (file));
	      if (err == noErr)
		file_list = Fcons (file, file_list);
	      AEDisposeDesc (&desc);
	    }
	}
    }
  /* If there are items in the list, construct an event and post it to
     the queue like an interrupt using kbd_buffer_store_event.  */
  if (!NILP (file_list))

#endif

  init_emacs_passwd_dir ();

  init_environ ();

  init_coercion_handler ();

  initialize_applescript ();

  init_apple_event_handler ();

  init_menu_bar ();
#endif	/* USE_CARBON_EVENTS */

#ifdef MAC_OSX
  init_coercion_handler ();

  init_apple_event_handler ();

  if (!inhibit_window_system)
    MakeMeTheFrontProcess ();
#endif