/*
 * skeleton.c - Include skeleton code in an output stream.
 *
 * Copyright (C) 2001  Southern Storm Software, Pty Ltd.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include "system.h"
#include "input.h"
#include "info.h"
#include "errors.h"

#ifdef	__cplusplus
extern	"C" {
#endif

/*
 * Find a particular skeleton string within "skels.c".
 */
extern const char * const TreeCCSkelFiles[];
static char *FindSkeletonString(const char *skeleton)
{
	char **search = (char **)TreeCCSkelFiles;
	while(*search != 0)
	{
		if(!strcmp(*search, skeleton))
		{
			return search[1];
		}
		search += 2;
	}
	return 0;
}

/*
 * Read a line from a skeleton buffer..
 */
static int ReadSkeletonLine(char *buffer, int size, char **skel)
{
	char *ptr = *skel;
	if(*ptr == '\0')
	{
		return 0;
	}
	while(*ptr != '\0' && *ptr != '\n')
	{
		if(size > 2)
		{
			*buffer++ = *ptr;
			--size;
		}
		++ptr;
	}
	if(*ptr == '\n')
	{
		*buffer++ = *ptr++;
	}
	*buffer = '\0';
	*skel = ptr;
	return 1;
}

void TreeCCIncludeSkeleton(TreeCCContext *context, TreeCCStream *stream,
						   const char *skeleton)
{
	char *skelstr = FindSkeletonString(skeleton);
	char buffer[BUFSIZ];
	int posn, start;
	if(!skelstr)
	{
		fprintf(stderr,
				"treecc: internal error - could not find skeleton \"%s\"\n",
				skeleton);
		exit(1);
	}
	TreeCCStreamLine(stream, 1, skeleton);
	while(ReadSkeletonLine(buffer, BUFSIZ, &skelstr))
	{
	#if HAVE_STRCHR
		if(strchr(buffer, 'Y') != 0 || strchr(buffer, 'y') != 0)
	#endif
		{
			/* The line probably contains "YYNODESTATE" or "yy" */
			posn = 0;
			start = 0;
			while(buffer[posn] != '\0')
			{
				if(buffer[posn] == 'Y' &&
				   !strncmp(buffer + posn, "YYNODESTATE", 11))
				{
					buffer[posn] = '\0';
					if(start < posn)
					{
						TreeCCStreamCode(stream, buffer + start);
					}
					TreeCCStreamCode(stream, context->state_type);
					posn += 11;
					start = posn;
				}
				else if(buffer[posn] == 'y' && buffer[posn + 1] == 'y')
				{
					buffer[posn] = '\0';
					if(start < posn)
					{
						TreeCCStreamCode(stream, buffer + start);
					}
					TreeCCStreamCode(stream, context->yy_replacement);
					posn += 2;
					start = posn;
				}
				else
				{
					++posn;
				}
			}
			if(start < posn)
			{
				TreeCCStreamCode(stream, buffer + start);
			}
		}
	#if HAVE_STRCHR
		else
		{
			/* Ordinary line */
			TreeCCStreamCode(stream, buffer);
		}
	#endif
	}
	TreeCCStreamFixLine(stream);
}

#ifdef	__cplusplus
};
#endif