shithub: pprolog

ref: d81447526cde6fa98dfa792a65f71acb78ef1398
dir: /flags.c/

#include <u.h>
#include <libc.h>

#include "dat.h"
#include "fns.h"

Term *setdoublequotes(Term *);

void
initflags(void)
{
	flagdoublequotes = DoubleQuotesChars;
}

Term *
setflag(Rune *flag, Term *value)
{
	if(runestrcmp(flag, L"double_quotes") == 0)
		return setdoublequotes(value);
	else
		return permissionerror(L"modify", L"flag", mkatom(flag));
}

Term *
setdoublequotes(Term *value)
{
	if(value->tag != AtomTerm)
		return typeerror(L"atom", value);

	if(runestrcmp(value->text, L"chars") == 0)
		flagdoublequotes = DoubleQuotesChars;
	else if(runestrcmp(value->text, L"codes") == 0)
		flagdoublequotes = DoubleQuotesCodes;
	else if(runestrcmp(value->text, L"atom") == 0)
		flagdoublequotes = DoubleQuotesAtom;
	else
		return domainerror(L"flag_value", value);
	return nil;
}