/**************************************************************************/
/*                             Inset   Utility                            */
/*                                                                        */
/*                                 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 FILE_SUFFIX ".set"
#define MAXLEN 30
#define LINE_LEN 80
#define NOARGS 1
#define INCREMENT 1
#define SPACE ' '
#define WD 8
#define SINGLE 1
#define NULL_ 0

#define BUFFERSIZE 8192



void getword( char *lset, char *filename );
void center( char *strng );

typedef enum { FALSE, TRUE } Boolean;

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

   char letterset [ MAXLEN ],
        filename [ MAXLEN ];

	 if( argc == NOARGS )
	    {
	    printf( "\n" );
	    puts("Enter a LETTERSET to test ... ");
	    gets( letterset );
     strcpy( filename, "word.lst" );
	    }
	 else
     if( argc == NOARGS + 1 )
	       {
        strcpy( letterset, *( argv + 1 ) );
        strcpy( filename, "word.lst" );
        }
   else
     {
     strcpy( letterset, *( argv + 1 ) );
     strcpy( filename,  *( argv + 2 ) );
     }

	 getword( letterset, filename );
}



/**********************************WORDTEST********************************/
/*       Function tests if word is constructible from Letterset           */
/*                 Args in: char *letterset, char *word                   */
/*   Returns: error_flag == TRUE (1) if constructible, FALSE (0) if not   */
/**************************************************************************/

Boolean wordtest( char *letterset, char *word )
{
	Boolean error_flag;

      if( strstr( word, letterset ) )
         error_flag = TRUE;
      else
         error_flag = FALSE;
		return( error_flag );
}

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

	char	l_set [ MAXLEN ],
		word [ MAXLEN ],
		tempstr [ MAXLEN + 1 ],
		targetfile [ MAXLEN ],
                wd [ WD ];

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



	   strcpy ( l_set, letter_set );


	   if( !( fptr = fopen( filename, "rt" ) ) )
		 {
		 printf( "\7\7\7Cannot open Wordfile!" );
		 exit( FILE_OPENING_ERROR );
		 }
      if( setvbuf( fptr, NULL, _IOFBF, BUFFERSIZE ) )
         exit( FILE_OPENING_ERROR + 1 );





		 /*********************Main Loop*************/	 
		  while( fgets( word, MAXLEN, fptr ) != NULL )

			if( wordtest( letter_set, word ) )
			   {
			   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;
}