view old-trunk/lwasm/pragma.c @ 344:0215a0fbf61b

Added assembly error system and additional checks for symbol syntax
author lost@starbug
date Thu, 25 Mar 2010 22:06:50 -0600
parents eb230fa7d28e
children
line wrap: on
line source

/*
pragma.c
Copyright © 2009 William Astle

This file is part of LWASM.

LWASM 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 3 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, see <http://www.gnu.org/licenses/>.


This file contains stuff associated with lwasm specific strangeness
*/
#include <config.h>
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include "lwasm.h"

void pseudo_pragma_real(asmstate_t *as, void *cl, char **optr, int error)
{
	char pragma[128];
	int c = 0;
	
	while (**optr && isspace(**optr))
		(*optr)++;

pragmaagain:
	c = 0;	
	while (c < 127 && **optr && **optr != ',' && !isspace(**optr))
	{
		pragma[c++] = **optr;
		(*optr)++;
	}
	
	if (c == 0 || (**optr && **optr != ',' && !isspace(**optr)))
	{
		if (error)
		{
//			register_error(as, cl, 1, "Unrecognized pragma");
		}
		if (error == 2)
		{
			*optr = NULL;
		}
		return;
	}
	pragma[c] = 0;
	if (!strcasecmp(pragma, "noindex0tonone"))
	{
		as -> pragmas |= PRAGMA_NOINDEX0TONONE;
	}
	else if (!strcasecmp(pragma, "index0tonone"))
	{
		as -> pragmas &= ~PRAGMA_NOINDEX0TONONE;
	}
	else if (!strcasecmp(pragma, "undefextern"))
	{
		as -> pragmas |= PRAGMA_UNDEFEXTERN;
	}
	else if (!strcasecmp(pragma, "noundefextern"))
	{
		as -> pragmas &= ~PRAGMA_UNDEFEXTERN;
	}
	else if (!strcasecmp(pragma, "cescapes"))
	{
		as -> pragmas |= PRAGMA_CESCAPES;
	}
	else if (!strcasecmp(pragma, "nocescapes"))
	{
		as -> pragmas &= ~PRAGMA_CESCAPES;
	}
	else if (!strcasecmp(pragma, "importundefexport"))
	{
		as -> pragmas |= PRAGMA_IMPORTUNDEFEXPORT;
	}
	else if (!strcasecmp(pragma, "noimportundefexport"))
	{
		as -> pragmas &= ~PRAGMA_IMPORTUNDEFEXPORT;
	}
	else if (!strcasecmp(pragma, "dollarnotlocal") || !strcasecmp(pragma, "nodollarlocal"))
	{
		as -> pragmas |= PRAGMA_DOLLARNOTLOCAL;
	}
	else if (!strcasecmp(pragma, "dollarlocal") || !strcasecmp(pragma, "nodollarnotlocal"))
	{
		as -> pragmas &= ~PRAGMA_DOLLARNOTLOCAL;
	}
	else
	{
		if (error)
		{
//			register_error(as, cl, 1, "Unrecognized pragma");
			if (error == 2)
			{
				*optr = NULL;
			}
		}
	}
	if (*optr && **optr == ',')
	{
		(*optr)++;
		goto pragmaagain;
	}
}