// For many states when its parse requierment is satified: state <-- state++
void IncrementState()
{
	parseState = (Expecting)((int)parseState + 1);
}

// For states where state increments by one if the expected character is the
// current one in the stream.
BOOL Expect(char c)
{
	char  ExpectArray[11] = "";  //X is don't care
	if (c == ExpectArray[parseState])
	{

		IncrementState();
		return true;
	}
    //A 'fix' to facilitate parsing of JSON strings that aren't arrays:
	else if (('{' == c) && (startOfArray == parseState))
	{
		//Permit parsing of records only
		parseState = startOfName;
	}
	else
	{
		//Expectation wasn't satified so error
		output.print(F("Expected: "));
		output.println(ExpectArray[parseState]);
		output.print(F("Got: "));
		output.println(c);
		parseState = error;
		output.print(F("Expect Next Err: "));
		output.println(parseState);

		ErrNo = 10;
		return false;
	}
	return true;
}

//The current state of the State Machine
Expecting parseState = startOfArray;

/*
Parses a JSon array of records of name value pairs
*/
BOOL ParseJsonString(char c)
{
	switch (parseState)
	{
	case startOfArray:
		result = Expect(c);
		if (result)
		{
			//Start of array so no records yet.
			RecordNo = 0;
			output.println(F("\r\n1: Starting parse of array."));
		}
   ...
   ...
   ...
    }

// Parser state machine states:
enum Expecting
{
	startOfArray,
	startOfRecord,
	startOfName,
	gettingName,
	nameValueSeparator,
	startOfValue,
	gettingValue,
	gettingEndOfValueORRecord,
	gotEndOfRecord,
	gettingRecordSeparator,
	done,
	error,

	gettingString,
	gettingBoolean,
	gettingInteger,
	gettingFloat,
	gettingNull
}