/**************************************************************************/
/*                            High Probability Bingos                     */
/*                                     M\Cooper                           */
/*                                    PO Box 237                          */
/*                            St. David, AZ 85630-0237                    */
/*                        -------------------------------                 */
/*                        Email:  thegrendel@theriver.com                 */
/*                                                                        */
/*                   $2.00 to register the entire WORDY package           */
/*                                                                        */
/**************************************************************************/


#include "srch.h"


#define FILE_OPENING_ERROR 3
#define FILENAME_MAXLEN 50
#define CR "\n"
#define MAXLEN 40
#define LINE_LEN 80
#define NOARGS 1
#define INCREMENT 1
#define SPACE ' '
#define WD 12
#define BUFFERSIZE 8192
#define NULL__ 0


void getword( char *filename );
int word_eval( char *strg );

typedef enum { FALSE, TRUE } Boolean;

void main( int argc, char **argv )
{

   char fname[ MAXLEN ];

	 if( argc == NOARGS )
	    {
	    puts("Enter a FILE NAME ... ");
	    gets( fname );
	    }
	 else
	    strcpy( fname, *( argv + 1 ) );

	 getword( fname );
}

int word_eval( char *word )
{

   int value [] =
   { 9, 2, 2, 4, 12, 2, 3, 2, 9, 1, 1, 4, 2, 6, 8, 2, 1, 6, 4,
     6, 4, 2, 2, 1, 2, 1 };

   int totalval = 0,
       index;


     while ( *word && *word != '\n' )
       {
       index = *word++ - 'a';
       totalval += value [index]--;
       }


      return ( totalval );

}





/*************************************************************/
void getword( char *filename )
{

           char word [ MAXLEN ];

	FILE *fptr;
        int val,
            i;
	long wcount = 0L;

	   /*********************************************************/

	   if( !( fptr = fopen( filename, "rt" ) ) )
		 {
		 printf( "\7\7\7Cannot open Wordfile!" );
		 exit( FILE_OPENING_ERROR );
		 }
      if( setvbuf( fptr, NULL, _IOFBF, BUFFERSIZE * 2 ) )
         exit ( FILE_OPENING_ERROR );  /*Extra buffering.*/





		 /*********************Main Loop*************/	 
		  while( fgets( word, MAXLEN, fptr ) != NULL )
                           {
                           val = word_eval( word );
			   printf( "%d-%s", val, word );
			   wcount++;
                           } 
		  /*******************************************/




}