/*																				*/
/*																				*/
/*				File:		  	 parse.c										*/
/*				Returns:	  	 bool - true if can't parse word		*/
/*				Parameters:													*/
/*																				*/
/*																				*/

#include <string.h>

#include "advm.h"
#include "string.h"
#include "values.h"


int parse()

	{
	int i,start;
	char *ptr2;

	if (linex == -1 || linex > linend)
		return (TRUE);
	array (zline,linex);
	if ((start = strspn(&zline[linex], " ")) == strlen(&zline[linex]))
		return (TRUE);
	array (zline,linex+start);
	if (!(ptr2 = strpbrk(&zline[linex+start]," ,")))
		{
		ptr2 = strchr(&zline[linex], '\0');
		zsep = ' ';
		}
	else
		zsep = *ptr2;
	strncpy(zlex, &zline[linex+start], ptr2-&zline[linex+start]);
	array(zlex,ptr2-&zline[linex+start]);
	zlex[ptr2-&zline[linex+start]] = '\0';
	linex = ptr2-zline+1;
	return (FALSE);
	}