mirror of https://github.com/cc65/cc65.git
129 lines
5.7 KiB
C
129 lines
5.7 KiB
C
/*****************************************************************************/
|
|
/* */
|
|
/* feature.c */
|
|
/* */
|
|
/* Subroutines for the emulation features */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* (C) 2000-2013, Ullrich von Bassewitz */
|
|
/* Roemerstrasse 52 */
|
|
/* D-70794 Filderstadt */
|
|
/* EMail: uz@cc65.org */
|
|
/* */
|
|
/* */
|
|
/* This software is provided 'as-is', without any expressed or implied */
|
|
/* warranty. In no event will the authors be held liable for any damages */
|
|
/* arising from the use of this software. */
|
|
/* */
|
|
/* Permission is granted to anyone to use this software for any purpose, */
|
|
/* including commercial applications, and to alter it and redistribute it */
|
|
/* freely, subject to the following restrictions: */
|
|
/* */
|
|
/* 1. The origin of this software must not be misrepresented; you must not */
|
|
/* claim that you wrote the original software. If you use this software */
|
|
/* in a product, an acknowledgment in the product documentation would be */
|
|
/* appreciated but is not required. */
|
|
/* 2. Altered source versions must be plainly marked as such, and must not */
|
|
/* be misrepresented as being the original software. */
|
|
/* 3. This notice may not be removed or altered from any source */
|
|
/* distribution. */
|
|
/* */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
#include <string.h>
|
|
|
|
/* ca65 */
|
|
#include "global.h"
|
|
#include "feature.h"
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
/* Data */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
/* Names of the features */
|
|
static const char* const FeatureKeys[FEAT_COUNT] = {
|
|
"dollar_is_pc",
|
|
"labels_without_colons",
|
|
"loose_string_term",
|
|
"loose_char_term",
|
|
"at_in_identifiers",
|
|
"dollar_in_identifiers",
|
|
"leading_dot_in_identifiers",
|
|
"org_per_seg",
|
|
"pc_assignment",
|
|
"missing_char_term",
|
|
"ubiquitous_idents",
|
|
"c_comments",
|
|
"force_range",
|
|
"underline_in_numbers",
|
|
"addrsize",
|
|
"bracket_as_indirect",
|
|
"string_escapes",
|
|
"long_jsr_jmp_rts",
|
|
"line_continuations",
|
|
};
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
/* Code */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
feature_t FindFeature (const StrBuf* Key)
|
|
/* Find the feature in a table and return the corresponding enum value. If the
|
|
** feature is invalid, return FEAT_UNKNOWN.
|
|
*/
|
|
{
|
|
feature_t F;
|
|
|
|
/* This is not time critical, so do a linear search */
|
|
for (F = (feature_t) 0; F < FEAT_COUNT; ++F) {
|
|
if (SB_CompareStr (Key, FeatureKeys[F]) == 0) {
|
|
/* Found, index is enum value */
|
|
return F;
|
|
}
|
|
}
|
|
|
|
/* Not found */
|
|
return FEAT_UNKNOWN;
|
|
}
|
|
|
|
|
|
|
|
void SetFeature (feature_t Feature, unsigned char On)
|
|
/* Set the corresponding feature flag if Feature is valid.
|
|
*/
|
|
{
|
|
/* Set the flags */
|
|
switch (Feature) {
|
|
case FEAT_DOLLAR_IS_PC: DollarIsPC = On; break;
|
|
case FEAT_LABELS_WITHOUT_COLONS: NoColonLabels = On; break;
|
|
case FEAT_LOOSE_STRING_TERM: LooseStringTerm = On; break;
|
|
case FEAT_LOOSE_CHAR_TERM: LooseCharTerm = On; break;
|
|
case FEAT_AT_IN_IDENTIFIERS: AtInIdents = On; break;
|
|
case FEAT_DOLLAR_IN_IDENTIFIERS: DollarInIdents = On; break;
|
|
case FEAT_LEADING_DOT_IN_IDENTIFIERS: LeadingDotInIdents= On; break;
|
|
case FEAT_ORG_PER_SEG: OrgPerSeg = On; break;
|
|
case FEAT_PC_ASSIGNMENT: PCAssignment = On; break;
|
|
case FEAT_MISSING_CHAR_TERM: MissingCharTerm = On; break;
|
|
case FEAT_UBIQUITOUS_IDENTS: UbiquitousIdents = On; break;
|
|
case FEAT_C_COMMENTS: CComments = On; break;
|
|
case FEAT_FORCE_RANGE: ForceRange = On; break;
|
|
case FEAT_UNDERLINE_IN_NUMBERS: UnderlineInNumbers= On; break;
|
|
case FEAT_BRACKET_AS_INDIRECT: BracketAsIndirect = On; break;
|
|
case FEAT_STRING_ESCAPES: StringEscapes = On; break;
|
|
case FEAT_LONG_JSR_JMP_RTS: LongJsrJmpRts = On; break;
|
|
case FEAT_LINE_CONTINUATIONS: LineCont = On; break;
|
|
default: break;
|
|
}
|
|
}
|