static PyObject *Res_FSCreateResFile(PyObject *_self, PyObject *_args)
{
PyObject *_res = NULL;
FSRef parentRef;
UniChar *nameLength__in__;
UniCharCount nameLength__len__;
int nameLength__in_len__;
FSRef newRef;
FSSpec newSpec;
#ifndef FSCreateResFile
PyMac_PRECHECK(FSCreateResFile);
#endif
if (!PyArg_ParseTuple(_args, "O&u#",
PyMac_GetFSRef, &parentRef,
&nameLength__in__, &nameLength__in_len__))
return NULL;
nameLength__len__ = nameLength__in_len__;
FSCreateResFile(&parentRef,
nameLength__len__, nameLength__in__,
0,
(FSCatalogInfo *)0,
&newRef,
&newSpec);
{
OSErr _err = ResError();
if (_err != noErr) return PyMac_Error(_err);
}
_res = Py_BuildValue("O&O&",
PyMac_BuildFSRef, &newRef,
PyMac_BuildFSSpec, &newSpec);
return _res;
}
/* alias
-----
Will create a Macintosh HFS specific alias at the path
pointed to by dest. The alias will point to the file
located at target. The target must exist.
The return value is zero upon success. If unsuccessful,
a non-zero value will be returned and both errno and
mac_errno should be consulted.
*/
int alias (const char *target, const char *dest)
{
char *rtarget;
char *destparentdir, *destname;
#ifdef HAVE_CORESERVICES
char *targetsuffix;
UniChar *udestname;
FSRef *fstarget, *fsdest, *fsnewfile;
FSCatalogInfo *fscdestinfo, *fsctargetinfo;
FileInfo destinfo, targetinfo;
AliasHandle aliasrec;
u_int32_t infomap = 0;
int resfrk;
u_int8_t targetisdir = 0;
#endif
u_int8_t destisdir = 0;
size_t len = 0;
#ifndef HAVE_CORESERVICES
/* this function is for creating macintosh aliases.
if we don't have the CoreServices API it's impossible,
so why fool ourselves, let's just return error now
and save the cpu cycles for something else */
errno = EIO; /* returning a generic I/O error */
return errno;
#endif
/* As of this writing, this function is not complete.
Things left to complete are to check the target to
see if it has a custom icon (if so, copy the custom
to the alias file so that they appear the same. Also,
copy custom icons of bundles to the alias.
Another very important thing left to complete is to
retire the process of making the alias manually to a
last resort if we cannot create the alias by sending
an apple event to the finder.
*/
/* check for null parameters and return accordingly */
if (!target || !dest) return 0;
#ifdef HAVE_CORESERVICES
rtarget = (char *)malloc(PATH_MAX);
if (!rtarget) return errno; /* ENOMEM */
if (!resolve_alias(target, rtarget) || mac_errno)
return errno;
/* convert the target path into an FSRef */
fstarget = (FSRef *)malloc(sizeof(FSRef));
if (!fstarget) return errno; /* ENOMEM */
mac_errno = FSPathMakeRef(rtarget, fstarget, &targetisdir);
if (mac_errno) return 0;
fsdest = (FSRef *)malloc(sizeof(FSRef));
if (!fsdest) return errno; /* ENOMEM */
/* convert the destination into an FSRef so that we can test if it exists
and if it is a directory (in which we should save the new alias file
inside the directory specified) */
mac_errno = FSPathMakeRef(dest, fsdest, &destisdir);
#endif
/* if the destination is not a directory, we'll disassemble the path we
were given for the destination into a parent directory and a name */
if (!destisdir) {
/* obtain the name of the destination file */
len = strlen(dest);
destname = (char *)dest + len;
while (destname > dest && *(destname - 1) != '/') destname--, len--;
/* obtain the parent directory of the destination file */
destparentdir = (char *)malloc(len);
snprintf(destparentdir, len ? len + 1 : 3, "%s", len ? dest : "./");
} else {
/* the parent directory should be the destination we were passed */
destparentdir = (char *)dest;
/* and the name should be the real name of the target */
destname = (char *)rtarget + strlen(rtarget);
while (destname > rtarget && *(destname - 1) != '/') destname--;
}
#ifdef HAVE_CORESERVICES
/* attempt to convert the parent directory into an FSRef */
mac_errno = FSPathMakeRef(destparentdir, fsdest, 0);
if (mac_errno) return 0;
/* infomap is an integer telling FSCreateResFile which settings from
the FSCatalogInfo paramater you want to set */
infomap |= kFSCatInfoFinderInfo;
/* if the target is not a directory, get its file type/creator */
if (!targetisdir) {
fsctargetinfo = (FSCatalogInfo *)malloc(sizeof(FSCatalogInfo));
if (!fsctargetinfo) return errno; /* ENOMEM */
/* get the target files information */
mac_errno = FSGetCatalogInfo(fstarget, infomap, fsctargetinfo, 0,0,0);
if (mac_errno) return 0;
/* I don't know why Apple did not declare the structure member
'finderInfo' as an FileInfo type (it is an array of 16 single bytes).
This makes it impossible to address elements of the finderInfo
directly. So, we move it into an FileInfo data type we allocated */
memmove(&targetinfo, fsctargetinfo->finderInfo, sizeof(FileInfo));
/* this is not really necessary for the creation of the file, since
a null type or creator will be transposed to '????', but should any
functions try to display the type/creator, it is much friendlier to
display '????' than an empty string (which hardcore mac people will
understand better */
if (!targetinfo.fileType) {
targetinfo.fileType = '\?\?\?\?';
targetinfo.fileCreator = '\?\?\?\?';
}
} else {
/* folders natively return null as their file type and creator but to
make an alias appear as a folder, we use the following settings */
targetinfo.fileType = 'fldr';
targetinfo.fileCreator = 'MACS';
/* there is one exception, when the folder ends in .app it is an
application package and should get the following settings */
targetsuffix = suffix(rtarget);
if (!strcmp(targetsuffix, "app")) {
targetinfo.fileType = 'fapa';
targetinfo.fileCreator = '\?\?\?\?';
*--targetsuffix = '\0'; /* this will cut off the .app from the name */
}
}
fscdestinfo = (FSCatalogInfo *)malloc(sizeof(FSCatalogInfo));
if (!fscdestinfo) return errno; /* ENOMEM */
/* set the file type, creator, and alias flag for the file */
destinfo.fileType = targetinfo.fileType;
destinfo.fileCreator = targetinfo.fileCreator;
destinfo.finderFlags = kIsAlias;
memcpy(fscdestinfo->finderInfo, &destinfo, sizeof(FileInfo));
fsnewfile = (FSRef *)malloc(sizeof(FSRef));
if (!fsnewfile) return errno; /* ENOMEM */
udestname = (UniChar *)malloc(PATH_MAX);
len = utf8to16(destname, udestname, PATH_MAX);
if (len < 0) return errno; /* caller: consult both errno and mac_errno */
/* attempt to create the resource file (fails if it already exists) */
FSCreateResFile(fsdest, len, udestname, infomap, fscdestinfo, fsnewfile, 0);
free(udestname);
/* test for error creating the file */
mac_errno = ResError();
if (mac_errno) return 0;
/* attempt to open the resource fork of the file now */
resfrk = FSOpenResFile(fsnewfile, fsRdWrPerm);
/* test for errors */
mac_errno = ResError();
if (mac_errno) return 0;
/* attempt to create an alias record to save in the resource file */
mac_errno = FSNewAlias(0, fstarget, &aliasrec);
if (mac_errno) return CloseResFile(resfrk), 0;
/* add the alias record to the resource fork */
AddResource((Handle)aliasrec, rAliasType, 0, 0);
/* test for errors */
mac_errno = ResError();
if (mac_errno) return CloseResFile(resfrk), 0;
/* write the resource fork data */
WriteResource((Handle)aliasrec);
/* test for errors */
mac_errno = ResError();
if (mac_errno) return CloseResFile(resfrk), 0;
/* clean up */
CloseResFile(resfrk);
#endif /* HAVE_CORESERVICES */
/* return success */
return 0;
}
