Source release of QuakeEd, the map editing application on NEXTSTEP for Quake.

QuakeEd/misc.m

@@ -0,0 +1,274 @@
+
+#include "qedefs.h"
+
+
+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: string];
+	NXPing ();
+	
+	return;
+}
+
+
+/*
+=================
+Error
+
+For abnormal program terminations
+=================
+*/
+BOOL	in_error;
+void Error (char *error, ...)
+{
+	va_list		argptr;
+	static char		string[1024];
+	
+	if (in_error)
+		[NXApp 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];
+	NXRunAlertPanel ("Error",string,NULL,NULL,NULL);
+		
+	[NXApp 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 (NXRect *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);
+	
+}
+
+