/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
/* Split_Station.c         	                       */
/* 	Split a station .tbl file into multiple	       */
/*      files (one per time span)		       */
/*                                                     */
/* Zuzlewski Stephane @1999                            */
/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/

#include <stdio.h>
#include <strings.h>
#include <ctype.h>

						  /*-*-*-*-*-*-*-*-*/
						 /* Main function */
						/*-*-*-*-*-*-*-*-*/
main (int argc, char* argv[])
{
 char	fname[255];
 FILE	*fid;
 char	sname[255];
 FILE	*sid;
 char	scode[255];
 char	line[255];
 char	sdate[14];
 int	i;
 char	names[32][32];
 int	nb_names = 0;


 /* Testing parameters */ 
 if (argc != 2)
	{
	 printf ("\n %s <Station> \n\n", argv[0]);
	 exit (0);
	}

 /* Opening station file */
 sprintf (fname, "%s.tbl", argv[1]);

 if ((fid = fopen (fname, "r+t")) == NULL)
	{
	 printf ("\n Error: couldn't open file %s.\n\n", fname);
	 exit (0);
	}

 fgets (scode, 254, fid);
 while (strstr (scode, "SCODE") == NULL)
	fgets (scode, 254, fid);

 fgets (line, 254, fid);
 while (!feof (fid))
	{
	 if ((strstr (line, "STINST") != NULL) && (line[0] != 'C'))
		{
		 sscanf (line, "%*s %*s %*s %*s %*s %s", sdate);
		 sprintf (sname, "%s.%s", argv[1], sdate);

		 for (i=0;i<strlen(sname);i++)
			sname[i] = toupper (sname[i]);

		 strcpy (names[nb_names++], sname);
		 strcat (sname, ".tbl");

		 if ((sid = fopen (sname, "w+t")) == NULL)
			{
			 printf ("\n Error: couldn't open file %s.\n\n", sname);
			 exit (0);
			}

		 fprintf (sid, "%s", scode);
		 while ((strcmp (line, "\n")) && (!feof (fid)))
			{
			 if (strstr (line, "DLOGFC") != NULL)
				{
				 for (i=0;i<strlen (line);i++)
					{
					 if (line[i] == '"')
						break;
					 else if (line[i] == 'd')
						line[i] = 'E';
					}
				}

			 fprintf (sid, "%s", line);

			 fgets (line, 254, fid);
			}

		 fprintf (sid, "\n");
		 fclose (sid);
		}

	 fgets (line, 254, fid); 
	}

 fclose (fid);
}