// RESULTS.C - tallys results of Contest #6

#include <stdio.h>
#include <dos.h>
#include <string.h>          
#include <stdlib.h>   
#include <malloc.h>   
#include <fcntl.h>
#include <sys\types.h>
#include <sys\stat.h>
#include <io.h>
#include <ctype.h>

// defines
#define CITIES  38
#define JUDGES  23
#define CATEGORIES  18
#define MAX_NAME_LEN 20
#define MAX_STR_LEN  100
#define TRUE  1
#define FALSE 0
#define BYTE unsigned char


// typedefs
typedef struct aCity
{
   BYTE vote[ CATEGORIES ];
   char strCityName[ MAX_NAME_LEN ];
} typeCity;


typedef struct aJudge
{
   typeCity city[ CITIES ];
   char strJudgeName[ MAX_NAME_LEN ];
} typeJudge;


typedef struct aCat
{
   char strCatName[ MAX_STR_LEN ];
} typeCat;

// function prototypes
void ProcessFile( void );
int GetCurrentCity( void );
int GetCurrentJudge( void );
int GetVote( void );
char *ReadFile( char *pszName, size_t size );
void DisplayResults( void );
void DisplayTables( void );
void DisplayWhoVoted( int, int );
// globals
typeCity city[ CITIES ];
typeJudge judge[ JUDGES ];
typeCat cat[ CATEGORIES ];
int bCurrentJudge = 255;
int bCurrentCity = 255;
char strCurrentCity[ MAX_NAME_LEN ];
char strCurrentJudge[ MAX_NAME_LEN ];
int bGetCurrentCity = TRUE;
char *pc;

int main( int argc, char *argv[] )
{
   char *pcHead;
   int j, i, c;
   struct _find_t  c_file;
   unsigned int uiRet;
   
   for ( c=0; c <CITIES; c++ )
      for ( i=0; i<CATEGORIES; i++ )
         city[c].vote[i] = 0;

   for ( j=0; j <JUDGES; j++ )
      for ( c=0; c <CITIES; c++ )
         for ( i=0; i<CATEGORIES; i++ )
            judge[j].city[c].vote[i] = 0;

   strcpy( judge[0].strJudgeName,  "garthmartin" );
   strcpy( judge[1].strJudgeName,  "mfaigin" );
   strcpy( judge[2].strJudgeName,  "teasdale" );
   strcpy( judge[3].strJudgeName,  "lutenegger" );
   strcpy( judge[4].strJudgeName,  "coston" );
   strcpy( judge[5].strJudgeName,  "carol" );
   strcpy( judge[6].strJudgeName,  "singleton" );
   strcpy( judge[7].strJudgeName,  "bell" );
   strcpy( judge[8].strJudgeName,  "sechrist" );
   strcpy( judge[9].strJudgeName,  "dunaway" );
   strcpy( judge[10].strJudgeName, "blair" );
   strcpy( judge[11].strJudgeName, "laster" );
   strcpy( judge[12].strJudgeName, "rudmann" );
   strcpy( judge[13].strJudgeName, "schulz" );
   strcpy( judge[14].strJudgeName, "messina" );
   strcpy( judge[15].strJudgeName, "precosky" );
   strcpy( judge[16].strJudgeName, "donaldson" );
   strcpy( judge[17].strJudgeName, "simon" );
   strcpy( judge[18].strJudgeName, "matthews" );
   strcpy( judge[19].strJudgeName, "raul" );
   strcpy( judge[20].strJudgeName, "kugland" );
   strcpy( judge[21].strJudgeName, "koester" );
   strcpy( judge[22].strJudgeName, "cisneros" );

   strcpy( city[ 0].strCityName, "3ISLAND" );
   strcpy( city[ 1].strCityName, "ARCORAIL" );
   strcpy( city[ 2].strCityName, "ARCOVILL" );
   strcpy( city[ 3].strCityName, "ATLANTIS" );
   strcpy( city[ 4].strCityName, "BAD" );
   strcpy( city[ 5].strCityName, "BLM" );
   strcpy( city[ 6].strCityName, "CLIFCITY" );
   strcpy( city[ 7].strCityName, "COASTAL" );
   strcpy( city[ 8].strCityName, "CONTEST" );
   strcpy( city[ 9].strCityName, "EXPRESSO" );
   strcpy( city[10].strCityName, "FALLING" );
   strcpy( city[11].strCityName, "FARADO" );
   strcpy( city[12].strCityName, "FOUR" );
   strcpy( city[13].strCityName, "HOMELAND" );
   strcpy( city[14].strCityName, "KRIGHTON" );
   strcpy( city[15].strCityName, "LIZZYSEN" );
   strcpy( city[16].strCityName, "LONGBEAC" );
   strcpy( city[17].strCityName, "MILLEN5" );
   strcpy( city[18].strCityName, "MILLERSS" );
   strcpy( city[19].strCityName, "MIRROR" );
   strcpy( city[20].strCityName, "MOLEVILL" );
   strcpy( city[21].strCityName, "MOUNTFUJ" );
   strcpy( city[22].strCityName, "MYBUTT" );
   strcpy( city[23].strCityName, "NEWPACIF" );
   strcpy( city[24].strCityName, "NONAMECI" );
   strcpy( city[25].strCityName, "NORTHCOR" );
   strcpy( city[26].strCityName, "OUCH" );
   strcpy( city[27].strCityName, "PERFECTL" );
   strcpy( city[28].strCityName, "SKYCITY" );
   strcpy( city[29].strCityName, "SYMCITY" );
   strcpy( city[30].strCityName, "SYMETRIC" );
   strcpy( city[31].strCityName, "THEABYSS" );
   strcpy( city[32].strCityName, "ULTIMA5" );
   strcpy( city[33].strCityName, "US-AIRTR" );
   strcpy( city[34].strCityName, "WILLIAMS" );
   strcpy( city[35].strCityName, "WINSTON" );
   strcpy( city[36].strCityName, "XTREME" );
   strcpy( city[37].strCityName, "YAN" );
   
   strcpy( cat[ 0].strCatName, "Most Livable City" );
   strcpy( cat[ 1].strCatName, "Most Chaotic, Insane, Crazy City" );
   strcpy( cat[ 2].strCatName, "Most Symmetrical, Balanced, Perfect City" );
   strcpy( cat[ 3].strCatName, "Most Realistic, Lifelike City" );
   strcpy( cat[ 4].strCatName, "Most Weirdest, Freakish, Bizzarest City" );
   strcpy( cat[ 5].strCatName, "Most Original, Creative, Inventive, Imaginative City" );
   strcpy( cat[ 6].strCatName, "Most Mountainous City" );
   strcpy( cat[ 7].strCatName, "Most Creative way to power a City" );
   strcpy( cat[ 8].strCatName, "Most Creative use of Arcos" );
   strcpy( cat[ 9].strCatName, "Most Creative water supply" );
   strcpy( cat[10].strCatName, "Most Creative use of signs" );
   strcpy( cat[11].strCatName, "Best Zoning Design" );
   strcpy( cat[12].strCatName, "Best Use of transportation" );
   strcpy( cat[13].strCatName, "Best Looking City, fun to look at, not boring or dull, coolest overall" );
   strcpy( cat[14].strCatName, "Best High Class Area" );
   strcpy( cat[15].strCatName, "Best Vacation City" );
   strcpy( cat[16].strCatName, "Best Overall Design" );
   strcpy( cat[17].strCatName, "Your Favorite City" );

   uiRet = _dos_findfirst( "dat*.txt", _A_NORMAL, &c_file );
   while( uiRet == 0)
   {
      //printf( "Process file [%s]\n", c_file.name );
      pcHead = ReadFile( c_file.name, (size_t) c_file.size );
      pc = pcHead;
      ProcessFile();
      free(pcHead);
      uiRet = _dos_findnext( &c_file );
   }
   
   DisplayResults();
   DisplayTables();

   return(0);
}


void ProcessFile( void )
{
   int iVote;

   bCurrentJudge = GetCurrentJudge();
   //printf( "   CurrentJudge = [%s]\n", strCurrentJudge );
   while( TRUE )
   {
      if ( ( isupper( *pc ) || isdigit( *pc ) ) && bGetCurrentCity )
      {
         bCurrentCity = GetCurrentCity();
         bGetCurrentCity = FALSE;
         //printf( "      Current City [%s]\n", strCurrentCity );
      }
      else if ( isdigit( *pc ) && !bGetCurrentCity )
      {
         if ( bCurrentCity == 255 )
         {
            printf( "Error: trying to vote before current city set!\n" );
            break;
         }
         if ( bCurrentJudge == 255 )
         {
            printf( "Error: trying to vote before current judge set!\n" );
            break;
         }
         iVote = GetVote();
         if ( ( bCurrentJudge < 0 ) || ( bCurrentJudge > JUDGES ) )
         {
            printf( "ERROR: Current Judge out of range 0-%d (%d)\n", JUDGES, bCurrentJudge );
            break;
         }
         if ( ( bCurrentCity < 0 ) || ( bCurrentCity > 37 ) )
         {
            printf( "ERROR: Current Judge out of range 0-37 (%d)\n", bCurrentCity );
            break;
         }
         if ( ( iVote < 1 ) || ( iVote > 18 ) )
         {
            printf( "ERROR: Vote out of range 1-18 (%d)\n", iVote );
            break;
         }
         city[ bCurrentCity ].vote[ iVote-1 ]++;
         judge[ bCurrentJudge ].city[ bCurrentCity ].vote[ iVote-1 ]++;
//       printf( "         Judge: %d %s City: %d %s Vote: %d = %d  %d\n", 
//               bCurrentJudge, 
//               judge[ bCurrentJudge ].strJudgeName, 
//               bCurrentCity, 
//               city[bCurrentCity].strCityName, 
//               iVote,
//               judge[ bCurrentJudge ].city[ bCurrentCity ].vote[ iVote-1 ],
//               city[ bCurrentCity ].vote[ iVote-1 ] );
      }
      pc++;
      if ( *pc == (char) NULL )
         break;
   }
}


int GetCurrentCity( void )
{
   char *p;
   int n, i;
   
   p = pc;
   while( ( *p != ' ' ) && ( *p != 0x09 ) )
      p++;
      
   n = p - pc;
   
   strncpy( strCurrentCity, pc, n );
   strCurrentCity[n] = (char) 0;
   pc = p;
   
   for ( i=0; i<CITIES; i++ )
      if ( !strcmp( city[i].strCityName, strCurrentCity ) )
         return(i);
   
   printf( "ERROR: Unable to find city name [%s]\n", strCurrentCity );
   return(0);

}


int GetCurrentJudge( void )
{
   char *p;
   int n, i;
   
   p = pc;
   while( isalpha( *p ) )
      p++;
      
   n = p - pc;
   
   strncpy( strCurrentJudge, pc, n );
   strCurrentJudge[n] = (char) 0;
   pc = p;
   
   for ( i=0; i<JUDGES; i++ )
      if ( !strcmp( judge[i].strJudgeName, strCurrentJudge ) )
         return(i);
   
   printf( "ERROR: Unable to find judge name [%s]\n", strCurrentJudge );
   return(0);
}



int GetVote( void )
{
   int iVote;
   char *p;
   int n;
   char strVote[ 5 ];
   
   p = pc;
   while( isdigit( *p ) )
      p++;
      
   if ( *p == '\r' )       // at end of line for current city
      bGetCurrentCity = TRUE; // get new current city
      
   n = p - pc;
   
   strncpy( strVote, pc, n );
   strVote[n] = (char) 0;
   pc = p;
   
   iVote = atoi( strVote );
   
   return( iVote );

}


char *ReadFile( char *pszName, size_t size )
{
   FILE *stream;
   size_t bytes;
   
   // open file for reading
   stream = fopen( pszName, "rb" );

   if ( stream == NULL )
   {
      printf( "Unable to open file [%s]\n", pszName );
      return(FALSE);
   }

   // allocate memory for file
   pc = calloc( size + 100, 1 );
   memset( pc, 0, size + 100 );

   // read in file
   bytes = fread( pc, 1, size, stream );

   // close file
   fclose( stream );
   
   return( pc );
}


void DisplayResults( void )
{
   int c,  // city
       v,  // vote
       i,  // category
       j;  // judge
       
   printf( "Judges:\n" );
   for ( j=0; j<JUDGES; j++ )
      printf( "%2d  %s\n", j+1, judge[j].strJudgeName );
   printf( "\n" );
   
   for ( i=0; i<CATEGORIES; i++ )
   {
      printf( "\n%s:\n", cat[i].strCatName );
      printf( "votes       city    judges\n" );
      for ( v=JUDGES; v>0; v-- )  // JUDGES is used because no city can have more than JUDGES votes
      {
         for ( c=0; c<CITIES; c++ )
         {
            if ( city[c].vote[i] == v )
            {
               printf( " %2d     %8s   ", city[c].vote[i], city[c].strCityName );
               DisplayWhoVoted( c, i );
            }
         }
      }
   }
}


void DisplayWhoVoted( int cit, int cat )
{
   int j;
   
   for ( j=0; j<JUDGES; j++ )
      if ( judge[j].city[cit].vote[cat] != 0 )
         printf( "%2d ", j+1 );

   printf( "\n" );
}



void DisplayTables( void )
{
   int c, j, i, n;
   
   printf( "\n\nTotal Votes for each city:\n" );
   printf( "votes   city\n" );
   for ( c=0; c <CITIES; c++ )
   {
      n = 0;
      for ( i=0; i<CATEGORIES; i++ )
         n += city[c].vote[i];
      printf( " %2d     %s\n", n, city[c].strCityName );
   }

   printf( "\n\nTotal Votes for each Category:\n" );
   printf( "votes   category\n" );
   for ( i=0; i<CATEGORIES; i++ )
   {
      n = 0;
      for ( c=0; c<CITIES; c++ )
         n += city[c].vote[i];
      printf( " %2d     %s\n", n, cat[i].strCatName );
   }
   
   printf( "\n\nTotal Votes for each Judge:\n" );
   printf( "votes   judge\n" );
   for ( j=0; j<JUDGES; j++ )
   {
      n=0;
      for ( i=0; i<CATEGORIES; i++ )
         for ( c=0; c<CITIES; c++ )
            n += judge[j].city[c].vote[i];
      printf( " %2d     %s\n", n, judge[j].strJudgeName );
   }
   
   return;
   
   for ( c=0; c <CITIES; c++ )
   {
      printf( "City %2d: ", c );
      for ( i=0; i<CATEGORIES; i++ )
         printf( "%3d", city[c].vote[i] );
      printf( "\n" );
   }
   
   printf( "-------------------------------\n" );
   
   for ( j=0; j <JUDGES; j++ )
   {
      printf( "Judge %d\n", j );
      for ( c=0; c <CITIES; c++ )
      {
         printf( "City %2d: ", c );
         for ( i=0; i<CATEGORIES; i++ )
            if ( judge[j].city[c].vote[i] > 96 )
               printf( "     %c", judge[j].city[c].vote[i] );
            else
               printf( "%3d", judge[j].city[c].vote[i] );
         printf( "\n" );
      }
      printf( "\n" );
   }
}