/*
	un2raw.c


	u2r.bat = cl /AL un2raw.c getfile3

*/
#include <stdio.h>
#include <string.h>
#include "nomouse.h"

main(int argc,char *argv[])
{
	int i,j=0,k;
	int ans;
	char string[100],name[100],str1[50],cr=0xd,strn[200];
	FILE *fpun,*fpraw;
	long attrib;
	float lat,lon;
	int end=0,numfile=1,maxseg=9000;
	
	if(argc>1)
		if(sscanf(argv[1],"%d",&i)==1)
		{
			printf("max seg changed from %d to %d\n\n",maxseg,i);
			maxseg=i;
		}
	ans=get_file_name("*.un",string);
	if(ans<0)
		exit(0);
	fpun=fopen(string,"rt");
	if(!fpun)
	{
		printf("Could not open '%s' to read.\n\n",string);
		exit(0);
	}
	strcpy(name,string);
	for(k=0;k<strlen(name);k++)
		if(name[k]=='.')
			name[k]='\0';
	sprintf(strn,"%s.raw",name);
	fpraw=fopen(strn,"wt");
	if(!fpraw)
	{
		printf("Could not open '%s' to write.\n\n",strn);
		exit(0);
	}
	if(fscanf(fpun,"%ld",&attrib)<1)
	{
		printf("File must start with an attribute.\n\n");
		exit(0);
	}
	fprintf(fpraw,"%6ld",attrib);
	i=0;
	printf("%c%5d -- %6ld",cr,++j,attrib);
	do
	{
		fscanf(fpun,"%s",string);
		if(strcmpi(string,"END")==0)	/* hit end */
		{
			fprintf(fpraw,"//\n");
			if(fscanf(fpun,"%ld",&attrib)<1)
				end=1;
			else
			{
				if(j>maxseg)
				{
					fclose(fpraw);
					printf("Closing '%s' and opening ",strn);
					name[6]='\0';
					sprintf(strn,"%s%02d.raw",name,numfile++);
					fpraw=fopen(strn,"wt");
					if(!fpraw)
					{
						printf("Could not open '%s' to write.\n\n",strn);
						exit(0);
					}
					printf("'%s'\n",strn);
					j=0;
				}
				fprintf(fpraw,"%6ld",attrib);
				i=0;
				printf("%c%5d -- %6ld",cr,++j,attrib);
			}
		}
		else
		{
			if(sscanf(string,"%f",&lon)<1)
			{
				printf("Bad Longitude value '%s'\n\n",string);
				exit(0);
			}
			if(fscanf(fpun,"%f",&lat)<1)
			{
				printf("Bad Longitude value following '%s'.\n\n",string); 
				exit(0);
			}
			if(i%3==0)
				fprintf(fpraw,"\n");
			else
				fprintf(fpraw,"  ");
			fprintf(fpraw,"%10.6f %11.6f",lat,lon);
			i+=1;
		}
	}while(end==0);
	fprintf(fpraw,"\n");
	fclose(fpun);
	fclose(fpraw);
}                                  