char        token[MAXTOKEN];
boolean     unget;
char       *script_p;
int         scriptline;

void
StartTokenParsing (char *data)
{
	scriptline = 1;
	script_p = data;
	unget = false;
}

boolean
GetToken (boolean crossline)
{
	char       *token_p;

	if (unget)							// is a token allready waiting?
		return true;

//
// skip space
//
	skipspace:
	while (*script_p <= 32) {
		if (!*script_p) {
			if (!crossline)
				Error ("Line %i is incomplete", scriptline);
			return false;
		}
		if (*script_p++ == '\n') {
			if (!crossline)
				Error ("Line %i is incomplete", scriptline);
			scriptline++;
		}
	}

	if (script_p[0] == '/' && script_p[1] == '/')	// comment field
	{
		if (!crossline)
			Error ("Line %i is incomplete\n", scriptline);
		while (*script_p++ != '\n')
			if (!*script_p) {
				if (!crossline)
					Error ("Line %i is incomplete", scriptline);
				return false;
			}
		goto skipspace;
	}
//
// copy token
//
	token_p = token;

	if (*script_p == '"') {
		script_p++;
		while (*script_p != '"') {
			if (!*script_p)
				Error ("EOF inside quoted token");
			*token_p++ = *script_p++;
			if (token_p == &token[MAXTOKEN])
				Error ("Token too large on line %i", scriptline);
		}
		script_p++;
	} else
		while (*script_p > 32) {
			*token_p++ = *script_p++;
			if (token_p == &token[MAXTOKEN])
				Error ("Token too large on line %i", scriptline);
		}

	*token_p = 0;

	return true;
}

void
UngetToken ()
{
	unget = true;
}





void
qprintf (char *fmt, ...)				// prints text to cmd_out_i
{
	va_list     argptr;
	static char string[1024];

	va_start (argptr, fmt);
	vsprintf (string, fmt, argptr);
	va_end (argptr);

	[g_cmd_out_i setStringValue: [NSString stringWithCString:string]];
	// NSPing ();

	return;
}


/*
=================
Error

For abnormal program terminations
=================
*/
BOOL        in_error;
void
Error (char *error, ...)
{
	va_list     argptr;
	static char string[1024];

	if (in_error)
		[NSApp terminate:NULL];
	in_error = YES;

	va_start (argptr, error);
	vsprintf (string, error, argptr);
	va_end (argptr);

	strcat (string, "\nmap saved to " FN_CRASHSAVE);

	[map_i writeMapFile: FN_CRASHSAVE useRegion:NO];
	NSRunAlertPanel (@"Error",[NSString stringWithCString:string], NULL, NULL,
					 NULL);

	[NSApp terminate:NULL];
}



void
CleanupName (char *in, char *out)
{
	int         i;

	for (i = 0; i < 16; i++) {
		if (!in[i])
			break;

		out[i] = toupper (in[i]);
	}

	for (; i < 16; i++)
		out[i] = 0;
}


void
PrintRect (NSRect * r)
{
	printf ("(%4.0f, %4.0f) + (%4.0f, %4.0f) = (%4.0f,%4.0f)\n", r->origin.x,
			r->origin.y, r->size.width, r->size.height,
			r->origin.x + r->size.width, r->origin.y + r->size.height);
}


/*
============
FileTime

returns -1 if not present
============
*/
int
FileTime (char *path)
{
	struct stat buf;

	if (stat (path, &buf) == -1)
		return -1;

	return buf.st_mtime;
}

/*
============
CreatePath
============
*/
void
CreatePath (char *path)
{
	char       *ofs;

	for (ofs = path + 1; *ofs; ofs++) {
		if (*ofs == '/') {				// create the directory
			*ofs = 0;
			mkdir (path, 0777);
			*ofs = '/';
		}
	}
}

int
I_FileOpenRead (char *path, int *handle)
{
	int         h;
	struct stat fileinfo;


	h = open (path, O_RDONLY, 0666);
	*handle = h;
	if (h == -1)
		return -1;

	if (fstat (h, &fileinfo) == -1)
		Error ("Error fstating %s", path);

	return fileinfo.st_size;
}

int
I_FileOpenWrite (char *path)
{
	int         handle;

	umask (0);

	handle = open (path, O_RDWR | O_CREAT | O_TRUNC, 0666);

	if (handle == -1)
		Error ("Error opening %s: %s", path, strerror (errno));

	return handle;
}

/*
============
Sys_UpdateFile

Copies a more recent net file to the local drive
============
*/
void
Sys_UpdateFile (char *path, char *netpath)
{
	int         ltime, ntime;
	int         in, out, size;
	char       *buf;

	ltime = FileTime (path);
	ntime = FileTime (netpath);

	if (ntime <= ltime)
		return;							// up to date

// copy the file
	printf ("UpdateFile: copying %s to %s...\n", netpath, path);

	size = I_FileOpenRead (netpath, &in);
	buf = malloc (size);
	if (read (in, buf, size) != size)
		Error ("UpdateFile: couldn't read all of %s", netpath);
	close (in);

	CreatePath (path);
	out = I_FileOpenWrite (path);
	write (out, buf, size);
	close (out);

}