[u/mdw/putty] / mac / macmisc.c

/* $Id: macmisc.c,v 1.1 2003/02/12 23:53:15 ben Exp $ */
/*
 * Copyright (c) 1999, 2003 Ben Harris
 * All rights reserved.
 *
 * Permission is hereby granted, free of charge, to any person
 * obtaining a copy of this software and associated documentation
 * files (the "Software"), to deal in the Software without
 * restriction, including without limitation the rights to use,
 * copy, modify, merge, publish, distribute, sublicense, and/or
 * sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following
 * conditions:
 * 
 * The above copyright notice and this permission notice shall be
 * included in all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 * NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
 * CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */

#include <MacTypes.h>
#include <Dialogs.h>
#include <Files.h>
#include <Quickdraw.h>
#include <TextUtils.h>

#include <stdarg.h>
#include <stdio.h>

#include "putty.h"

#if TARGET_API_MAC_CARBON
/*
 * This is used by (I think) CarbonStdCLib, but only exists in
 * CarbonLib 1.1 and later.  Muppets.  Happily, it's documented to be
 * a synonym for NULL.
 */
#include <CFBase.h>
const CFAllocatorRef kCFAllocatorDefault = NULL;
#else
QDGlobals qd;
#endif

void fatalbox(char *fmt, ...) {
    va_list ap;
    Str255 stuff;
    
    va_start(ap, fmt);
    /* We'd like stuff to be a Pascal string */
    stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
    va_end(ap);
    ParamText(stuff, NULL, NULL, NULL);
    StopAlert(128, NULL);
    cleanup_exit(1);
}

void modalfatalbox(char *fmt, ...) {
    va_list ap;
    Str255 stuff;
    
    va_start(ap, fmt);
    /* We'd like stuff to be a Pascal string */
    stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
    va_end(ap);
    ParamText(stuff, NULL, NULL, NULL);
    StopAlert(128, NULL);
    cleanup_exit(1);
}

Filename filename_from_str(const char *str)
{
    Filename ret;
    Str255 tmp;

    /* XXX This fails for filenames over 255 characters long. */
    c2pstrcpy(tmp, str);
    FSMakeFSSpec(0, 0, tmp, &ret.fss);
    return ret;
}

/*
 * Convert a filename to a string for display purposes.
 * See pp 2-44--2-46 of IM:Files
 *
 * XXX static storage considered harmful
 */
const char *filename_to_str(const Filename *fn)
{
    CInfoPBRec pb;
    Str255 dirname;
    OSErr err;
    static char *path = NULL;
    char *newpath;

    if (path != NULL) sfree(path);
    path = smalloc(fn->fss.name[0]);
    p2cstrcpy(path, fn->fss.name);
    pb.dirInfo.ioNamePtr = dirname;
    pb.dirInfo.ioVRefNum = fn->fss.vRefNum;
    pb.dirInfo.ioDrParID = fn->fss.parID;
    pb.dirInfo.ioFDirIndex = -1;
    do {
	pb.dirInfo.ioDrDirID = pb.dirInfo.ioDrParID;
	err = PBGetCatInfoSync(&pb);

	/* XXX Assume not A/UX */
	newpath = smalloc(strlen(path) + dirname[0] + 2);
	p2cstrcpy(newpath, dirname);
	strcat(newpath, ":");
	strcat(newpath, path);
	sfree(path);
	path = newpath;
    } while (pb.dirInfo.ioDrDirID != fsRtDirID);
    return path;
}

int filename_equal(Filename f1, Filename f2)
{

    return f1.fss.vRefNum == f2.fss.vRefNum &&
	f1.fss.parID == f2.fss.parID &&
	f1.fss.name[0] == f2.fss.name[0] &&
	memcmp(f1.fss.name + 1, f2.fss.name + 1, f1.fss.name[0]) == 0;
}

int filename_is_null(Filename fn)
{

    return fn.fss.vRefNum == 0 && fn.fss.parID == 0 && fn.fss.name[0] == 0;
}

FILE *f_open(Filename fn, char const *mode)
{
    short savevol;
    long savedir;
    char tmp[256];
    FILE *ret;

    HGetVol(NULL, &savevol, &savedir);
    if (HSetVol(NULL, fn.fss.vRefNum, fn.fss.parID) == noErr) {
	p2cstrcpy(tmp, fn.fss.name);
	ret = fopen(tmp, mode);
    } else
	ret = NULL;
    HSetVol(NULL, savevol, savedir);
    return ret;
}

/*
 * Local Variables:
 * c-file-style: "simon"
 * End:
 */
Commit	Line	Data
06c24bc0	1	/* $Id: macmisc.c,v 1.1 2003/02/12 23:53:15 ben Exp $ */
	2	/*
	3	* Copyright (c) 1999, 2003 Ben Harris
	4	* All rights reserved.
	5	*
	6	* Permission is hereby granted, free of charge, to any person
	7	* obtaining a copy of this software and associated documentation
	8	* files (the "Software"), to deal in the Software without
	9	* restriction, including without limitation the rights to use,
	10	* copy, modify, merge, publish, distribute, sublicense, and/or
	11	* sell copies of the Software, and to permit persons to whom the
	12	* Software is furnished to do so, subject to the following
	13	* conditions:
	14	*
	15	* The above copyright notice and this permission notice shall be
	16	* included in all copies or substantial portions of the Software.
	17	*
	18	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
	19	* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
	20	* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
	21	* NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
	22	* ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
	23	* CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
	24	* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
	25	* SOFTWARE.
	26	*/
	27
	28	#include <MacTypes.h>
	29	#include <Dialogs.h>
	30	#include <Files.h>
	31	#include <Quickdraw.h>
	32	#include <TextUtils.h>
	33
	34	#include <stdarg.h>
	35	#include <stdio.h>
	36
	37	#include "putty.h"
	38
	39	#if TARGET_API_MAC_CARBON
	40	/*
	41	* This is used by (I think) CarbonStdCLib, but only exists in
	42	* CarbonLib 1.1 and later. Muppets. Happily, it's documented to be
	43	* a synonym for NULL.
	44	*/
	45	#include <CFBase.h>
	46	const CFAllocatorRef kCFAllocatorDefault = NULL;
	47	#else
	48	QDGlobals qd;
	49	#endif
	50
	51	void fatalbox(char *fmt, ...) {
	52	va_list ap;
	53	Str255 stuff;
	54
	55	va_start(ap, fmt);
	56	/* We'd like stuff to be a Pascal string */
	57	stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
	58	va_end(ap);
	59	ParamText(stuff, NULL, NULL, NULL);
	60	StopAlert(128, NULL);
	61	cleanup_exit(1);
	62	}
	63
	64	void modalfatalbox(char *fmt, ...) {
65	va_list ap;
66	Str255 stuff;
67
68	va_start(ap, fmt);
69	/* We'd like stuff to be a Pascal string */
70	stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
71	va_end(ap);
72	ParamText(stuff, NULL, NULL, NULL);
73	StopAlert(128, NULL);
74	cleanup_exit(1);
75	}
76
77	Filename filename_from_str(const char *str)
78	{
79	Filename ret;
80	Str255 tmp;
81
82	/* XXX This fails for filenames over 255 characters long. */
83	c2pstrcpy(tmp, str);
84	FSMakeFSSpec(0, 0, tmp, &ret.fss);
85	return ret;
86	}
87
88	/*
89	* Convert a filename to a string for display purposes.
90	* See pp 2-44--2-46 of IM:Files
91	*
92	* XXX static storage considered harmful
93	*/
94	const char filename_to_str(const Filename fn)
95	{
96	CInfoPBRec pb;
97	Str255 dirname;
98	OSErr err;
99	static char *path = NULL;
100	char *newpath;
101
102	if (path != NULL) sfree(path);
103	path = smalloc(fn->fss.name[0]);
104	p2cstrcpy(path, fn->fss.name);
105	pb.dirInfo.ioNamePtr = dirname;
106	pb.dirInfo.ioVRefNum = fn->fss.vRefNum;
107	pb.dirInfo.ioDrParID = fn->fss.parID;
108	pb.dirInfo.ioFDirIndex = -1;
109	do {
110	pb.dirInfo.ioDrDirID = pb.dirInfo.ioDrParID;
111	err = PBGetCatInfoSync(&pb);
112
113	/* XXX Assume not A/UX */
114	newpath = smalloc(strlen(path) + dirname[0] + 2);
115	p2cstrcpy(newpath, dirname);
116	strcat(newpath, ":");
117	strcat(newpath, path);
118	sfree(path);
119	path = newpath;
120	} while (pb.dirInfo.ioDrDirID != fsRtDirID);
121	return path;
122	}
123
124	int filename_equal(Filename f1, Filename f2)
125	{
126
127	return f1.fss.vRefNum == f2.fss.vRefNum &&
128	f1.fss.parID == f2.fss.parID &&
129	f1.fss.name[0] == f2.fss.name[0] &&
130	memcmp(f1.fss.name + 1, f2.fss.name + 1, f1.fss.name[0]) == 0;
131	}
132
133	int filename_is_null(Filename fn)
134	{
135
136	return fn.fss.vRefNum == 0 && fn.fss.parID == 0 && fn.fss.name[0] == 0;
137	}
138
139	FILE f_open(Filename fn, char const mode)
140	{
141	short savevol;
142	long savedir;
143	char tmp[256];
144	FILE *ret;
145
146	HGetVol(NULL, &savevol, &savedir);
147	if (HSetVol(NULL, fn.fss.vRefNum, fn.fss.parID) == noErr) {
148	p2cstrcpy(tmp, fn.fss.name);
149	ret = fopen(tmp, mode);
150	} else
151	ret = NULL;
152	HSetVol(NULL, savevol, savedir);
153	return ret;
154	}
155
156	/*
157	* Local Variables:
158	* c-file-style: "simon"
159	* End:
160	*/