Gammon Forum

void read_from_buffer( DESCRIPTOR_DATA *d )
{
//    char log_buf[MAX_STRING_LENGTH];
    int i, j, k;

    /*
     * Hold horses if pending command already.
     */
    if ( d->incomm[0] != '\0' )
        return;

    if ( !str_infix_n( "forget", d->inbuf ) )
    {
        d->inbuf[0] = '\0';
        stc( "You shake your head in a daze.....what was it you were trying to do again?\n\r", d->character );
        return;
    }

bool str_infix_n( const char *astr, const char *bstr )
{
    int sstr1;
    int sstr2;
    int ichar;
    char c0;

    if ( ( c0 = LOWER(astr[0]) ) == '\0' )
        return FALSE;

    sstr1 = strlen(astr);
    sstr2 = strlen(bstr);

    for ( ichar = 0; ichar <= sstr2 - sstr1; ichar++ )
    {
        if ( c0 == LOWER(bstr[ichar]) && !str_prefix( astr, bstr + ichar ) )
        {
            if ( bstr[ichar+sstr1] == '\n' || bstr[ichar+sstr1] == '\r' )
                return FALSE;
        }
    }

    return TRUE;
}

// Does 'buf' contain the single command 'cmd'?
// Defined as: \n or \r then whitespace
// then: cmd
// finally: whitespace then \n or \r
bool str_has_command(const char * buf, const char * cmd)
{
	int pos = 0;
	int state = 0;
	
	// States:
	// 0: newline (\n or \r) (on success --> 1)
	// 1: any whitespace (on success --> 3)
	// 2: whitespace until newline (on success --> success)
	// 3: cmd[0] (on success --> 4)
	// 4: cmd[1] (on success --> 5)
	// ...: ...
	// 3+n: cmd[n] (on success --> 2)

	char c;
	while ( (c = buf[pos++]) != '\0' )
	{
		switch ( state )
		{
			// find initial newline
			case 0:
				if ( c == '\r' || c == '\n' )
					state = 1;
				break;

			// munch whitespace
			case 1:
				if ( isspace(c) )
					; // munch
				else
				{
					state = 3;
					pos--; // reconsider this character
				}
				break;

			// whitespace; stop at newline.
			// if we find a non-whitespace, go back to state 0
			case 2:
				if ( ! isspace(c) )
				{
					state = 0;
				}
				if ( c == '\r' || c == '\n' )
					return true;
				break;

			// at state 3, we need to find cmd[0]
			// at state 4, we need to find cmd[1]
			// etc.
			default:

				// is this not what we wanted? then go back to zero
				if ( c != cmd[state-3] )
				{
					state = 0;
				}
				else
				{
					state++;
					
					// are we at the end of the cmd string?
					// if so, move on to final whitespace search.
					if ( cmd[state-3] == '\0' )
					{
						state = 2;
					}
				}

				break;
		}
	}
	return false;
}

    if ( str_has_command( d->inbuf, "forget" ) )
    {
        d->inbuf[0] = '\0';
        stc( "You shake your head in a daze.....what was it you were trying to do again?\n\r", d->character );
        return;
    }

bool str_infix_n( const char *astr, const char *bstr )
{
    int sstr1;
    int sstr2;
    int ichar;
    char c0;

    if ( ( c0 = LOWER(astr[0]) ) == '\0' )
        return FALSE;

    sstr1 = strlen(astr);
    sstr2 = strlen(bstr);

    for ( ichar = 0; ichar <= sstr2 - sstr1; ichar++ )
    {
        if ( c0 == LOWER(bstr[ichar]) && !str_prefix( astr, bstr + ichar ) )
        {
            if ( bstr[ichar+sstr1] == '\n' || bstr[ichar+sstr1] == '\r' )
            {
                if ( ichar == 0 ) // No possibility of something coming before it
                    return FALSE;
                else if ( bstr[ichar-1] == '\n' || bstr[ichar-1] == '\r' )
                    return FALSE;
                else if ( bstr[ichar-1] == '\0' ) // just in case
                    return FALSE;
            }
        }
    }
    return TRUE;
}

usage:
    if ( !str_infix_n( "forget", d->inbuf ) )
    {
        d->inbuf[0] = '\0';
        stc( "You shake your head in a daze.....what was it you were trying to do again?\n\r", d->character );
        return;
    }