/**************************************************************************/
/*                                  1DIF Utility                          */
/*                                                                        */
/*                     For use with 1DIF Scr*bb*e variant                 */
/*                                                                        */
/*                                     M\Cooper                           */
/*                                    PO Box 237                          */
/*                            St. David, AZ 85630-0237                    */
/*                        -------------------------------                 */
/*                        Email:  thegrendel@theriver.com                 */
/*                                                                        */
/**************************************************************************/

#include "srch.h"


#define FILE_OPENING_ERROR 3
#define FILENAME_MAXLEN 8
#define CR "\n"
#define MAXLEN 40
#define LINE_LEN 80
#define MAXFILENAMELEN 40
#define NOARGS 1
#define INCREMENT 1
#define SINGLE 1
#define SPACE ' '
#define WILDCARD '_'
#define FILLCHAR '@'
#define NULL_ 0

#define BUFFERSIZE 8192

typedef enum { FALSE, TRUE } Boolean;

void getword( char *lset, int differences_allowed, char *file_name );
void center( char *strng );
Boolean wordtest( char *letterset, char *word, int differences );

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

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

   char letterset [MAXLEN],
        filename [MAXFILENAMELEN];
   int differences = 1; 

/* Assume one (standard for 1DIF game), unless specified
  otherwise. */

      if( argc == NOARGS )
         {
         printf( "\n" );
         printf( "Enter a word to 1DIF ... " );
         gets( letterset );
         differences = 1;
         strcpy( filename, Wordfile ); /*Std. file*/
         }
      else
         if( argc == NOARGS + 1 )
           {
           strcpy( letterset, *( argv + 1 ) );
           strcpy( filename, Wordfile ); /*Std. file*/
           differences = 1;
           }
      else
         if( argc == NOARGS + 2 )
           {
           strcpy( letterset, *( argv + 1 ) );
           differences = atoi( *( argv + 2 ) );
           strcpy( filename, Wordfile ); /*Std. file*/
           if( differences >= strlen( letterset ) || differences == 0 )
               differences = 1;
           }
       else
         {
         strcpy( letterset, *( argv + 1 ) );
         differences = atoi( *(argv + 2 ) );
         strcpy( filename, *( argv + 3 ) );  /*Specified file
                                               name.*/
         if( differences >= strlen( letterset ) || differences == 0 )
             differences = 1;
         }

       getword( letterset, differences, filename );
}



Boolean wordtest( char *letterset, char *word, int differences )
{
   char *dset;
   register char *letpos;
   register int diff;

      if( strlen( letterset) != strlen( word) )
         return( FALSE );

      dset = letterset;
      diff = 0;

      while( *word && *dset )
         {
         if( *dset == *word || *dset == WILDCARD )
             ; 
                /*As long as letter-match, just
                advance.*/
         else
             diff++;

             dset++;
             word++;
          }

      if( diff == differences ) /******DEBUG was <= ********/
          return( TRUE ) ;
      else
          return( FALSE );
}

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

void getword( char *letter_set, int differences, char *filename )
{

	char	l_set [ MAXLEN ],
		word [ MAXLEN ],
		tempstr [ MAXLEN + 1 ],
                msg2 [ MAXLEN ],
               *ppos;

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

	   strcat ( letter_set, CR );

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

	   if( !( fptr = fopen( filename, "rt" ) ) )
		 {
		 printf( "\7\7\7Cannot open file %s!\n", filename );
		 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 )

			if( wordtest( letter_set, word, differences ) )
			   {
			   printf( "%s", word );
			   wcount++;
			   }
		  /*******************************************/

		  fclose( fptr );

          return;
}



void center( char *str )
{
   int padding;
   char st [ LINE_LEN + INCREMENT ];

	 padding = LINE_LEN / 2 - strlen( str ) / 2;
	 memset( st, SPACE, padding );
	 *( st + padding ) = NULL_;  /*Terminate
                                       string*/
	 strcat( st, str );
	 strcpy( str, st );

	 return;
}