#include <stdlib.h>
#include "copyright.h"
#include "wattcp.h"
#include "errors.h"

#include <dos.h>  /* for _argv */
#include <fcntl.h>  /* open modes */
#include <string.h>
#ifdef WINDOWS
#include <windows.h>
#endif

#define MY_IP   "MY_IP"
#define NETMASK   "NETMASK"
#define COOKIE    "COOKIE"
#define NAMESERVER  "NAMESERVER"
#define GATEWAY   "GATEWAY"
#define DOMAINS   "DOMAINSLIST"
#define HOSTNAME  "HOSTNAME"
#define SOCKDELAY       "SOCKDELAY"
#define ETHIP   "ETHIP"
#define MSS   "MSS"
#define BOOTP   "BOOTP"
#define BOOTPTO   "BOOTPTO"
#define DOMTO           "DOMAINTO"
#define PRINT   "PRINT"
#define INACTIVE        "INACTIVE"
#define INCLUDE         "INCLUDE"


#define is_it( x ) if (!strcmp(name,x))

/*
 * _inet_atoeth - read src, dump to ethernet buffer
 *      and return pointer to end of text string
 */

char *_inet_atoeth( char *src, byte *eth )
{
    word count, val;
    byte ch;

    val = count = 0;
    while (ch = toupper(*src++)) {
  if (ch == ':') {
      eth[count++] = val;
      if (count > 6)
    break;
      val = 0;
  }
  if (ch == ',') {
      eth[count] = val;
      break;
  }
  if ((ch -= '0') > 9) ch -= 7;
  val = (val << 4) + ch;
    }
    return( src );
}

static ethip( char *s )
{
    eth_address temp_eth;
    char *temp;

    if ( temp = _inet_atoeth( s, &temp_eth )) {
  if (!memcmp( &temp_eth, &_eth_addr, sizeof( eth_address ))) {
            my_ip_addr = inet_addr( temp );
        }
    }
}

void _add_server( int *counter, int max, longword *array, longword value )
{
    if ( value && ( *counter < max ))
  array[ (*counter)++ ] = value;
}

word sock_delay = 30;
word sock_inactive = 0;  /* defaults to forever */
char defaultdomain[ 80 ];
longword _cookie[ MAX_COOKIES ];
int _last_cookie;
extern _domaintimeout;
void (*usr_init)() = NULL;

static set_values(char *name, char *value )
{
    char *p;
    longword temp;
    word i;

    strupr(name);
    is_it( MY_IP ) {
	if ( toupper( *value ) == 'B') _bootpon = 1;
	else my_ip_addr = resolve( value );
    }
    else is_it( NETMASK) sin_mask = resolve( value );
    else is_it( GATEWAY)
	/* accept gateip[,subnet[,mask]]  */
	_arp_add_gateway( value , 0L );
    else is_it( NAMESERVER )  _add_server( &_last_nameserver,
    MAX_NAMESERVERS, def_nameservers, resolve(value));
    else is_it( COOKIE ) _add_server( &_last_cookie, MAX_COOKIES,
    _cookie, resolve( value ));
    else is_it( DOMAINS ) def_domain = strcpy( defaultdomain, value );
    else is_it( HOSTNAME ) strncpy(_hostname, value, MAX_STRING );
    else is_it( SOCKDELAY ) sock_delay = atoi( value );
    else is_it( ETHIP )  ethip( value );
    else is_it( MSS ) _mss = atoi( value );
    else is_it( BOOTP ) _bootphost = resolve( value );
    else is_it( BOOTPTO) _bootptimeout = atoi( value );
    else is_it( DOMTO ) _domaintimeout = atoi( value );
    else is_it( INACTIVE ) sock_inactive = atoi( value );
    else is_it( PRINT ) {
#ifdef WINDOWS
	MessageBox(GetFocus(), (LPSTR)value, (LPSTR)"", MB_OK);
#else
	outs( value );
	outs( "\n\r" );
#endif
    }
    else is_it( INCLUDE ) {
        if ( *(p = value) == '?') p++;
        if ((i = _open( p, O_RDONLY | O_TEXT )) != -1 ) {
            _close( i );
            tcp_config( p );
        } else if ( *value != '?' ) {
#ifdef WINDOWS
	    MessageBox(GetFocus(), (LPSTR)p, (LPSTR)"Unable to open", MB_OK);
#else
            outs("\n\rUnable to open '");
            outs( p );
            outs("'\n\r");
#endif
        }
    }
    else {
  if ( usr_init )
      (*usr_init)(name, value);
    }
}

static char *watname = "WATTCP.CFG";

tcp_config( char *path )
{
    char name[80], *temp;
    char value[80], ch[2];
    int  quotemode;
    int f, mode;

    if (!path) {
	if (path=getenv( watname )) {
	    path = strcpy( name, path );
	    strcat( name, "\\");
	} else {
	    strcpy( name, _argv[0] );
	    path = ( *name && (name[1] == ':')) ? &name[2] : name;
	    if (!(temp = strrchr( path, '\\' ))) temp = path;
	    *(++temp) = 0;
	}
/*
	strcpy( name, path );
	strcat( name, "\\");
*/
        strcat( name, watname );
    } else
	strcpy( name, path );

    if ( ( f = _open( name, O_RDONLY | O_TEXT )) == -1 ) {
	/* try local subdirectory */
	if (( f = _open( watname, O_RDONLY | O_TEXT )) == -1 ){
		return(ER_CONF);
	}
    }
    *name = *value = mode = ch[1] = quotemode = 0;
    while ( _read( f, &ch, 1 ) == 1) {
  switch( *ch ) {
      case  '\"': quotemode ^= 1;
      break;
      case  ' ' :
      case  '\t': if (quotemode) goto addit;
      break;

      case  '=' : if (quotemode) goto addit;
      if (!mode) mode = 1;
      break;
      case  '#' :
      case  ';' : if (quotemode) goto addit;
      mode = 2;
      break;
      case  '\n':
      case  '\r': if (*name && *value)
          set_values(name, value);
      *name = *value = quotemode = mode = 0;
      break;
      default   :
addit:
            switch (mode ) {
      case 0 : strcat(name, ch);
         break;
      case 1 : strcat(value, ch);
         break;
      }
      break;
  }
    }
    _close(f );
    return( 0 );
}