#line 1 "/src.code/printer.dumper/util.c"#include <types.h>#include <string.h>#include <stdlib.h>#pragma lint -1#pragma optimize -1#pragma noroot/* these are prototyped in the Orca/C manual, but not in any header */extern pascal void SystemQuitFlags (unsigned int);extern pascal void SystemQuitPath (GSString255Ptr);extern void exit(int);/* * rexit - from GNO/ME's libraries */void rexit (int code){	SystemQuitFlags (0x4000);	SystemQuitPath (NULL);	exit(code);}GSString255 * __P2GSMalloc(const char *cp){Word i;GSString255* tmp;	tmp = NULL;	i = cp ? *cp : 0;	// pstring	if (i)	{		tmp = (GSString255 *)malloc(i+2);		if (tmp)		{			tmp->length = i;			memcpy(tmp->text, cp + 1, i);		}	}	return tmp;}/* * like gno/me has * */GSString255* __C2GSMalloc(const char *cp){GSString255 * tmp;Word i;	i = cp ? strlen(cp) : 0;	tmp = i ? malloc(i+2) : NULL;	if (tmp)	{		tmp->length = i;		memcpy(tmp->text, cp, i);	}	return tmp;}char * Basename(const GSString255 *gstr){register Word i;Word disp = 0;char *ret;word len;	for (i = 0; i < gstr->length; i++)	{		if (gstr->text[i] == ':' || gstr->text[i] == '/')			disp = i + 1;	}	len = gstr->length - disp;		ret = (char *)malloc(len + 1);	memcpy(ret, gstr->text + disp, len);	ret[len] = (char)0;		return ret;}