/*
 * compiler options processing
 * March 1989, Miles Bader
 */

#include "common.h"
#include "options.h"

long globalOpts[MAXOPTS/BITSPERLONG];

struct option {
    char *name;
    int opt;
    int *set;
};

/* pre-processor compatibility modes */
int ppOptSet[]={OPT_TRAD, OPT_ANSI, OPT_CPP, 0};

/* cpu-types */
int cpuOptSet[]={OPT_68K, OPT_020, OPT_030, 0};

/* types of floating point support */
int floatOptSet[]={OPT_FFP, OPT_IEEE, OPT_881, 0};

struct option optionlist[]={
/*   name		mask		excludes	*/

    /* parsing */
    {"ansi",		OPT_ANSI,	ppOptSet},
    {"c++",		OPT_CPP,	ppOptSet},
    {"traditional",	OPT_TRAD,	ppOptSet},

    /* code gen */
    {"abs-code",	OPT_ABSCODE},
    {"abs-data",	OPT_ABSDATA},

    {"reg-args",	OPT_REGARGS},
    {"reload-a4",	OPT_RELOADA4},
    {"short-ints",	OPT_SHORTINTS},
    {"long-align",	OPT_LONGALIGN},
    {"stack-check",	OPT_STACKCHECK},

    {"pure-strings",	OPT_PURESTRINGS},

    {"68k",		OPT_68K,	cpuOptSet},
    {"020",		OPT_020,	cpuOptSet},
    {"030",		OPT_030,	cpuOptSet},

    {"881",		OPT_881,	floatOptSet},
    {"ffp",		OPT_FFP,	floatOptSet},
    {"ieee",		OPT_IEEE,	floatOptSet},

    /* linking */
    {"detach",		OPT_DETACH},
    {"resident",	OPT_RESIDENT},
    {"tiny-main",	OPT_TINYMAIN},
    {"catch",		OPT_CATCH},

    {"optimize",	OPT_OPTIMIZE},
    {"link",		OPT_LINK},
    {"compile",		OPT_COMPILE},
    {"assemble",	OPT_ASSEMBLE},
    {"debug",		OPT_DEBUG},

    {"echo",		OPT_ECHO},
    {"filter",		OPT_FILTER},
    {"exec",		OPT_EXEC},

    {"big-lc1",		OPT_BIGLC1},

    NULL
};

void options_SetByName(optname)
char *optname;
{
    struct option *opt;
    int not=FALSE;

    if(strncmp(optname,"no-",3)==0){
	optname+=3;
	not=TRUE;
    }

    for(opt=optionlist; opt->name!=NULL; opt++)
	if(strcmp(optname,opt->name)==0){
	    if(not){
		if(opt->set!=NULL)
		    fatal("%s is not a boolean option",opt);
		else
		    options_Clear(opt->opt);
	    }else{
		if(opt->set!=NULL){
		    int *clear;
		    for(clear=opt->set; *clear!=0; clear++)
		    	options_Clear(*clear);
		}
		
		options_Set(opt->opt);
	    }

	    break;
	}

    if(opt->name==NULL)
	fatal("unknown option: %s",optname);
}

void options_Init()
{
    int i;
    for(i=0; i<(MAXOPTS/BITSPERLONG); i++)
	globalOpts[i]=0;
}