comparison src/mac.c @ 46370:40db0673e6f0

Most uses of XSTRING combined with STRING_BYTES or indirection changed to SCHARS, SBYTES, STRING_INTERVALS, SREF, SDATA; explicit size_byte references left unchanged for now.

46369:dd1d3b1d0053

	  openp (Vexec_path, build_string (newargv[0]), EXEC_SUFFIXES, &path,
		 make_number (X_OK));

	  if (NILP (path))
	    return -1;
	  if (posix_to_mac_pathname (XSTRING (path)->data, tempmacpathname,
				    MAXPATHLEN+1) == 0)
	    return -1;
	}
      strcpy (macappname, tempmacpathname);
    }

  Lisp_Object lisp_result;
  long status;

  CHECK_STRING (script);
  
  status = do_applescript (XSTRING (script)->data, &result);
  if (status)
    {
      if (!result)
        error ("AppleScript error %d", status);
      else

{
  char posix_filename[MAXPATHLEN+1];

  CHECK_STRING (mac_filename);
  
  if (mac_to_posix_pathname (XSTRING (mac_filename)->data, posix_filename,
			   MAXPATHLEN))
    return build_string (posix_filename);
  else
    return Qnil;
}

{
  char mac_filename[MAXPATHLEN+1];

  CHECK_STRING (posix_filename);
  
  if (posix_to_mac_pathname (XSTRING (posix_filename)->data, mac_filename,
			   MAXPATHLEN))
    return build_string (mac_filename);
  else
    return Qnil;
}

  /* fixme: ignore the push flag for now */

  CHECK_STRING (value);
  
  len = XSTRING (value)->size;
  buf = (char *) alloca (len+1);
  bcopy (XSTRING (value)->data, buf, len);
  buf[len] = '\0';
  
  /* convert to Mac-style eol's before sending to clipboard */
  for (i = 0; i < len; i++)
    if (buf[i] == '\n')

46370:40db0673e6f0

	  openp (Vexec_path, build_string (newargv[0]), EXEC_SUFFIXES, &path,
		 make_number (X_OK));

	  if (NILP (path))
	    return -1;
	  if (posix_to_mac_pathname (SDATA (path), tempmacpathname,
				    MAXPATHLEN+1) == 0)
	    return -1;
	}
      strcpy (macappname, tempmacpathname);
    }

  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

{
  char posix_filename[MAXPATHLEN+1];

  CHECK_STRING (mac_filename);
  
  if (mac_to_posix_pathname (SDATA (mac_filename), posix_filename,
			   MAXPATHLEN))
    return build_string (posix_filename);
  else
    return Qnil;
}

{
  char mac_filename[MAXPATHLEN+1];

  CHECK_STRING (posix_filename);
  
  if (posix_to_mac_pathname (SDATA (posix_filename), mac_filename,
			   MAXPATHLEN))
    return build_string (mac_filename);
  else
    return Qnil;
}

  /* fixme: ignore the push flag for now */

  CHECK_STRING (value);
  
  len = SCHARS (value);
  buf = (char *) alloca (len+1);
  bcopy (SDATA (value), buf, len);
  buf[len] = '\0';
  
  /* convert to Mac-style eol's before sending to clipboard */
  for (i = 0; i < len; i++)
    if (buf[i] == '\n')