Upload

VISU/C/UTIL.C

@@ -0,0 +1,206 @@
+
+void	print(char *s,...)
+{
+	static int skip=0;
+	static int lines=-1;
+	int a;
+	char out[256];
+	char *p;
+	va_list	argp;
+	va_start(argp,s);
+
+	if(!reporton) return;
+
+	vsprintf(out,s,argp);
+	fprintf(freport,out);
+
+	if(!printon) return;
+
+	if(lines==-1) 
+	{
+		lines=0;
+		printf("-------------------------------------------------------------------------------\n");
+	}
+
+	p=out;
+	while(*p) if(*(p++)=='\n') lines++;
+	fputs(out,stdout);
+	if(lines>23 && !skip) 
+	{
+		lines=-1;
+		printf(  "--------[space for next page, enter to disable paging, esc to abort]---------");
+		a=getch();
+		printf("\r");
+		if(a==10) 
+		{
+			printon=0;
+			skip=1;
+		}
+		if(a==13) skip=1;
+		if(a==27) 
+		{
+			printf("\n\n");
+			exit(1);
+		}
+	}
+	va_end(argp);
+}
+
+void	error(char *s,...)
+{
+	int a;
+	char out[256];
+	char *p;
+	va_list	argp;
+	va_start(argp,s);
+	vsprintf(out,s,argp);
+	print("ERROR: %s\n",out);
+	va_end(argp);
+}
+
+void	*getmem(long size)
+{
+	void	*p;
+	if(size>65000L)
+	{
+		printf("GETMEM: attempting to reserved >64K (%li byte block)\n",size);
+		exit(3);
+	}
+	p=malloc((size_t)size);
+	if(!p)
+	{
+		printf("GETMEM: out of memory (%li byte block)\n",size);
+		exit(3);
+	}
+	return(p);
+}
+
+void	freemem(void *p)
+{
+	free(p);
+}
+
+char	*getline(void)
+{
+	static char linebuf[1024];
+	char	*p;
+	linebuf[2]=0;
+	fgets(linebuf+2,1024-2,in);
+	*(linebuf+2+strlen(linebuf+2)-1)=0;
+	return(linebuf+2);
+}
+
+int	emptyline(char *p) // line start == space => empty
+{ 
+	if(!*p || isspace(*p)) return(1);
+	return(0);
+}
+
+char	*getseek(char **p,char *s)
+{
+	char	*t;
+	t=strstr(*p,s);
+	if(!t) return(NULL);
+	*p=t+strlen(s);
+	return(t);
+}
+
+char	*gettoken(char **p)
+{
+	static char tokenbuf[256];
+	char *t=tokenbuf;
+	while(isspace(**p)) (*p)++;
+	while(!isspace(**p) && **p) 
+		*t++=*(*p)++;
+	*t=0;
+	while(isspace(**p)) (*p)++;
+	return(tokenbuf);
+}
+
+char	*getfirsttoken(char **p)
+{
+	static char tokenbuf[256];
+	char *t=tokenbuf;
+	while(isspace(**p)) (*p)++;
+	while(!isspace(**p) && **p && **p!='"') 
+		*t++=*(*p)++;
+	*t=0;
+	while(isspace(**p)) (*p)++;
+	return(tokenbuf);
+}
+
+int	getint(char **p)
+{
+	char	*t;
+	t=gettoken(p);
+	return(atoi(t));
+}
+
+float	getfloat(char **p)
+{
+	char	*t;
+	float	f;
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	return(f);
+}
+
+void	getxzy(char **p,long *x,long *y,long *z)
+{
+	char	*t;
+	float	f;
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	*x=(long)(f*fxmul+fxadd);
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	*z=(long)(f*fymul+fyadd);
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	*y=(long)(f*fzmul+fzadd);
+}
+
+void	getxyz(char **p,long *x,long *y,long *z)
+{
+	char	*t;
+	float	f;
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	*x=(long)(f*fxmul+fxadd);
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	*y=(long)(f*fymul+fyadd);
+	t=gettoken(p);
+	sscanf(t,"%f",&f);
+	*z=(long)(f*fzmul+fzadd);
+}
+
+void	getxxyyzz(char **p,long *x,long *y,long *z)
+{ /* skips X: Y: and Z: */
+	char	*t;
+	float	f;
+	t=gettoken(p); // X:
+	if(!memcmp(t,"X:",3)) t=gettoken(p);
+	else t+=2;
+	sscanf(t,"%f",&f);
+	*x=(long)(f*fxmul+fxadd);
+	t=gettoken(p); // Y:
+	if(!memcmp(t,"Y:",3)) t=gettoken(p);
+	else t+=2;
+	sscanf(t,"%f",&f);
+	*y=(long)(f*fymul+fyadd);
+	t=gettoken(p); // Z:
+	if(!memcmp(t,"Z:",3)) t=gettoken(p);
+	else t+=2;
+	sscanf(t,"%f",&f);
+	*z=(long)(f*fzmul+fzadd);
+}
+
+#define IFT(zz) if(!stricmp(zz,t))
+#define IFS(z1,z2) if(!memicmp(z1,z2,sizeof(z2)-1))
+
+char	*readfile(char *name)
+{
+	return(NULL);
+}
+