From 35d488e972a9dd75ce3867c000405f128b79c615 Mon Sep 17 00:00:00 2001 From: Ash Wolf Date: Sun, 15 Jan 2023 12:14:05 +0000 Subject: reorganise things a bit to align further with the actual names/structure --- unsorted/Parameter.c | 1145 -------------------------------------------------- 1 file changed, 1145 deletions(-) delete mode 100644 unsorted/Parameter.c (limited to 'unsorted/Parameter.c') diff --git a/unsorted/Parameter.c b/unsorted/Parameter.c deleted file mode 100644 index 31669e1..0000000 --- a/unsorted/Parameter.c +++ /dev/null @@ -1,1145 +0,0 @@ -#include "parser.h" - -char curparam[4096]; -char *descparam = &curparam[0]; -char *helpparam = &curparam[1024]; -char *defaultparam = &curparam[2048]; - -#define copy_8(dst, src) \ -do { \ -((unsigned char *) (dst))[0] = ((unsigned char *) (src))[0]; \ -} while (0) - -#define copy_16(dst, src) \ -do { \ -((unsigned char *) (dst))[0] = ((unsigned char *) (src))[0]; \ -((unsigned char *) (dst))[1] = ((unsigned char *) (src))[1]; \ -} while (0) - -#define copy_32(dst, src) \ -do { \ -((unsigned char *) (dst))[0] = ((unsigned char *) (src))[0]; \ -((unsigned char *) (dst))[1] = ((unsigned char *) (src))[1]; \ -((unsigned char *) (dst))[2] = ((unsigned char *) (src))[2]; \ -((unsigned char *) (dst))[3] = ((unsigned char *) (src))[3]; \ -} while (0) - -#define inline_write_32(dst, val) do { \ -union {unsigned char bytes[4]; unsigned long lg;} _val, _arg; \ -copy_32(_arg.bytes, val); \ -_val.lg = _arg.lg; \ -copy_32(dst, _val.bytes); \ -} while (0) - -#define inline_write_16(dst, val) do { \ -union {unsigned char bytes[2]; unsigned short sh;} _val, _arg; \ -copy_16(_arg.bytes, val); \ -_val.sh = _arg.sh; \ -copy_16(dst, _val.bytes); \ -} while (0) - -#define inline_write_8(ptr, val) copy_8(ptr, val) - -#define inline_andor_32(dst, and, or) do { \ -union {unsigned char bytes[4]; unsigned long lg;} _val, _arg, _arg2; \ -copy_32(_val.bytes, dst); \ -copy_32(_arg.bytes, and); \ -copy_32(_arg2.bytes, or); \ -_val.lg = (_val.lg & ~_arg.lg) | _arg2.lg; \ -copy_32(dst, _val.bytes); \ -} while(0) - -#define inline_andor_16(dst, and, or) do { \ -union {unsigned char bytes[2]; unsigned short sh;} _val, _arg, _arg2; \ -copy_16(_val.bytes, dst); \ -copy_16(_arg.bytes, and); \ -copy_16(_arg2.bytes, or); \ -_val.sh = (_val.sh & ~_arg.sh) | _arg2.sh; \ -copy_16(dst, _val.bytes); \ -} while(0) - -#define inline_andor_8(dst, and, or) do { \ -((unsigned char *) (dst))[0] = (((unsigned char *) (dst))[0] & ~((unsigned char *) (and))[0]) | ((unsigned char *) (or))[0]; \ -} while(0) - -#define inline_xor_32(dst, arg) do { \ -union {unsigned char bytes[4]; unsigned long lg;} _val, _arg; \ -copy_32(_val.bytes, dst); \ -copy_32(_arg.bytes, arg); \ -_val.lg = _val.lg ^ _arg.lg; \ -copy_32(dst, _val.bytes); \ -} while(0) - -#define inline_xor_16(dst, arg) do { \ -union {unsigned char bytes[2]; unsigned short sh;} _val, _arg; \ -copy_16(_val.bytes, dst); \ -copy_16(_arg.bytes, arg); \ -_val.sh = _val.sh ^ _arg.sh; \ -copy_16(dst, _val.bytes); \ -} while(0) - -#define inline_xor_8(dst, arg) do { \ -((unsigned char *) (dst))[0] = (((unsigned char *) (dst))[0] ^ ((unsigned char *) (arg))[0]); \ -} while(0) - -// forward declaration -static int Param_GetArgument(PARAM_T *param, const char **cparam, int exec); -static int Param_Parse(PARAM_T *param, const char *cparam, int flags); - -static int Param_None(PARAM_T *p, const char *pstr, int flags) { - return 1; -} - -static void DescHelpParam_None(PARAM_T *p, const char **desc, const char **help, const char **defaul) { - *desc = 0; - *help = 0; - *defaul = 0; -} - -static int CompareParam_None(PARAM_T *p) { - return 0; -} - -static void DescHelpParam_Number(NUM_T *p, const char **desc, const char **help, const char **defaul) { - unsigned long value; - unsigned char value8; - unsigned short value16; - - value = 0; - *desc = 0; - if (p->myname) - *desc = p->myname; - - if (p->size == 1) { - if (!*desc) - *desc = "byte"; - if (p->num) copy_8(&value8, p->num); - value = value8; - } else if (p->size == 2) { - if (!*desc) - *desc = "short"; - if (p->num) copy_16(&value16, p->num); - value = value16; - } else if (p->size == 4) { - if (!*desc) - *desc = "long"; - if (p->num) copy_32(&value, p->num); - } - - if (p->size == 4) { - if (p->lo != p->hi) - sprintf(helpparam, "range 0x%x - 0x%x", p->lo, p->hi); - *help = helpparam; - if (value <= 0x10000) - sprintf(defaultparam, "%u", value); - else - sprintf(defaultparam, "0x%x", value); - *defaul = defaultparam; - } else { - if (p->lo != p->hi) - sprintf(helpparam, "range %u - %u", p->lo, p->hi); - *help = helpparam; - sprintf(defaultparam, "%u", value); - *defaul = defaultparam; - } - - if (!p->num) - *defaul = 0; - if (p->lo == p->hi) - *help = 0; -} - -static int CompareParam_Number(NUM_T *p) { - return 0; -} - -static int Param_Number(NUM_T *p, const char *pstr, int flags) { - unsigned long val; - unsigned long lo; - unsigned long hi; - const char *opstr; - - val = 0; - opstr = pstr; - if (!pstr[0]) { - Param_Error(5, "", pstr); - return 0; - } - - if (((*pstr == '0') && my_tolower(pstr[1]) == 'x') || (*pstr == '$')) { - // 218 - if (pstr[0] == '$') - pstr += 1; - else - pstr += 2; - - while (*pstr) { - if (!my_isxdigit(*pstr)) { - Param_Error(5, "hexadecimal ", opstr); - return 0; - } - - if (val > 0xFFFFFFF) { - Param_Error(4, opstr); - return 0; - } - - val = (val << 4) | (my_isdigit(*pstr) ? (*pstr - '0') : (my_tolower(*pstr) - 'a' + 10)); - ++pstr; - } - } else if (pstr[0] == '0') { - pstr += 1; - - while (*pstr) { - if (*pstr < '0' || *pstr >= '8') { - Param_Error(5, "octal ", opstr); - return 0; - } - - if (val > 0x1FFFFFFF) { - Param_Error(4, opstr); - return 0; - } - - val = (val << 3) | (*pstr - '0'); - ++pstr; - } - } else { - while (*pstr) { - if (!my_isdigit(*pstr)) { - Param_Error(5, "decimal ", opstr); - return 0; - } - - if (val > 0x19999999) { - Param_Error(4, opstr); - return 0; - } - - val = (val * 10) + (*pstr - '0'); - ++pstr; - } - } - - if (p->lo == p->hi) { - if (p->size == 1) { - lo = 0; - hi = 0xFF; - } else if (p->size == 2) { - lo = 0; - hi = 0xFFFF; - } else { - lo = 0; - hi = 0xFFFFFFFF; - } - } else { - lo = p->lo; - hi = p->hi; - } - - if (!p->fit && (val < lo || val > hi)) { - Param_Error(6, val, lo, hi); - return 0; - } - - if (val < lo) { - Param_Warning(7, val, lo, hi, lo); - val = lo; - } else if (val > hi) { - Param_Warning(7, val, lo, hi, hi); - val = hi; - } - - if (p->size == 1) { - unsigned char val8 = val; - inline_write_8(p->num, &val8); - } - - if (p->size == 2) { - unsigned short val16 = val; - inline_write_16(p->num, &val16); - } else if (p->size == 4) { - unsigned long val32 = val; - inline_write_32(p->num, &val32); - } - - return 1; -} - -static void DescHelpParam_FTypeCreator(FTYPE_T *p, const char **desc, const char **help, const char **defaul) { - if (p->myname) - *desc = p->myname; - else if (p->iscreator) - *desc = "creator"; - else - *desc = "type"; - - if (!p->fc) { - *defaul = 0; - } else { - unsigned long tmp; - unsigned char *ptr; - - ptr = (unsigned char *) defaultparam; - tmp = *p->fc; - ptr[0] = '\''; - ptr[1] = tmp & 0xFF; - ptr[2] = (tmp >> 8) & 0xFF; - ptr[3] = (tmp >> 16) & 0xFF; - ptr[4] = (tmp >> 24) & 0xFF; - ptr[5] = '\''; - ptr[6] = 0; - *defaul = defaultparam; - } -} - -static int CompareParam_FTypeCreator(FTYPE_T *p) { - return 0; -} - -static int Param_FTypeCreator(FTYPE_T *p, const char *pstr, int flags) { - char x[4] = " "; - int cnt; - const char *opstr; - - cnt = 0; - opstr = pstr; - while (*pstr && cnt < 4) { - x[cnt++] = *(pstr++); - } - - if (*pstr) { - Param_Error(8, opstr); - return 0; - } - - inline_write_32(p->fc, &x); - return 1; -} - -static void DescHelpParam_String(STRING_T *p, const char **desc, const char **help, const char **defaul) { - if (p->myname) - *desc = p->myname; - else - *desc = "string"; - - if (!p->str) { - *help = 0; - *defaul = 0; - } else { - sprintf(helpparam, "maximum length %d chars", p->maxlen - 1); - *help = helpparam; - - if (*p->str) { - sprintf(defaultparam, "'%s'", p->str); - *defaul = defaultparam; - } else { - *defaul = "none"; - } - } -} - -static int CompareParam_String(STRING_T *p) { - return 0; -} - -static int Param_String(STRING_T *p, const char *pstr, int flags) { - int len; - - len = strlen(pstr); - strncpy(p->str, pstr, p->maxlen - 1); - if (p->pstring) - c2pstr(p->str); - - if (len > p->maxlen) { - Param_Error(9, pstr, pstr + len - 5, p->maxlen - 1); - return 0; - } - - return 1; -} - -static void DescHelpParam_ID_or_SYM(STRING_T *p, const char **desc, const char **help, const char **defaul) { - if (p->myname) - *desc = p->myname; - else if (p->which == PARAMWHICH_Id) - *desc = "identifier"; - else - *desc = "symbol"; - - if (!p->str) { - *help = *defaul = 0; - } else { - sprintf(helpparam, "maximum length %d chars", p->maxlen - 1); - *help = helpparam; - - if (*p->str) { - sprintf(defaultparam, "'%s'", p->str); - *defaul = defaultparam; - } else { - *defaul = "none"; - } - } -} - -static int CompareParam_ID_or_SYM(STRING_T *p) { - return 0; -} - -static int Param_ID_or_SYM(STRING_T *p, const char *pstr, int flags) { - const char *ptr; - const char *x; - - if (Param_String(p, pstr, flags)) { - if (p->which == PARAMWHICH_Id) { - x = "$_"; - } else if (p->which == PARAMWHICH_Sym) { - x = "_.$@?#"; - } - - for (ptr = pstr; *ptr; ++ptr) { - if (ptr == pstr && my_isdigit(*ptr)) - Param_Warning(10, pstr); - - if (!my_isalnum(*ptr) && !strchr(x, *ptr)) - Param_Warning(11, pstr, *ptr); - } - - return 1; - } else { - return 0; - } -} - -static void DescHelpParam_OnOff(ONOFF_T *p, const char **desc, const char **help, const char **defaul) { - unsigned char def; - - if (p->myname) - *desc = p->myname; - else - *desc = "on|off"; - - *help = 0; - if (!p->var) { - *defaul = 0; - } else { - if (p->var) - *((unsigned char *) &def) = *((unsigned char *) p->var); - if (def) - *defaul = "on"; - else - *defaul = "off"; - } -} - -static int CompareParam_OnOff(ONOFF_T *p) { - return 0; -} - -static int Param_OnOff(ONOFF_T *p, const char *pstr, int flags) { - Boolean mytrue = (flags & PARAMPARSEFLAGS_8) == 0; - - if (!ustrcmp(pstr, "on")) { - *(p->var) = mytrue; - } else if (!ustrcmp(pstr, "off")) { - *(p->var) = mytrue == 0; - } else { - Param_Error(12, pstr); - return 0; - } - - return 1; -} - -static void DescHelpParam_OffOn(ONOFF_T *p, const char **desc, const char **help, const char **defaul) { - unsigned char def; - - if (p->myname) - *desc = p->myname; - else - *desc = "off|on"; - - *help = 0; - if (!p->var) { - *defaul = 0; - } else { - if (p->var) - *((unsigned char *) &def) = *((unsigned char *) p->var); - if (!def) - *defaul = "on"; - else - *defaul = "off"; - } -} - -static int CompareParam_OffOn(OFFON_T *p) { - return 0; -} - -static int Param_OffOn(OFFON_T *p, const char *pstr, int flags) { - Boolean mytrue = (flags & PARAMPARSEFLAGS_8) == 0; - - if (!ustrcmp(pstr, "off")) { - *(p->var) = mytrue; - } else if (!ustrcmp(pstr, "on")) { - *(p->var) = mytrue == 0; - } else { - Param_Error(12, pstr); - return 0; - } - - return 1; -} - -static void DescHelpParam_FilePath(FILEPATH_T *p, const char **desc, const char **help, const char **defaul) { - if (p->myname) - *desc = p->myname; - else - *desc = "filepath"; - - *help = 0; - *defaul = p->defaultstr; -} - -static int CompareParam_FilePath(FILEPATH_T *p) { - return 0; -} - -static int Param_FilePath(FILEPATH_T *p, const char *pstr, int flags) { - int err; - OSSpec spec; - char canon[256]; - int clen; - - if (!pstr[0]) { - ((unsigned char *) p->filename)[0] = 0; - return 1; - } - - err = OS_MakeFileSpec(pstr, &spec); - if (err) { - Param_Error(18, pstr, OS_GetErrText(err)); - return 0; - } - - OS_SpecToString(&spec, canon, sizeof(canon)); - if (p->fflags & 1) { - c2pstrcpy(p->filename, canon); - } else { - clen = strlen(canon); - if (clen > p->maxlen) { - Param_Error(13, canon + clen - 32, canon); - return 0; - } - strcpy(p->filename, canon); - } - - return 1; -} - -static void DescHelpParam_Mask(MASK_T *p, const char **desc, const char **help, const char **defaul) { - *help = 0; - *desc = 0; - *defaul = 0; -} - -static int CompareParam_Mask(MASK_T *p) { - if (p->size == 1) { - unsigned char or8 = p->ormask, and8 = p->andmask, val8; - if (p->num) copy_8(&val8, p->num); - return ((val8 & ~and8) | or8) == val8; - } else if (p->size == 2) { - unsigned short or16 = p->ormask, and16 = p->andmask, val16; - if (p->num) copy_16(&val16, p->num); - return ((val16 & ~and16) | or16) == val16; - } else { - unsigned long or32 = p->ormask, and32 = p->andmask, val32; - if (p->num) copy_32(&val32, p->num); - return ((val32 & ~and32) | or32) == val32; - } -} - -static int Param_Mask(MASK_T *p, const char *pstr, int flags) { - if (p->size == 1) { - unsigned char or8 = p->ormask, and8 = p->andmask, tmp8; - if (flags & PARAMPARSEFLAGS_8) { - tmp8 = and8; - and8 = and8 | or8; - or8 = tmp8; - } - inline_andor_8(p->num, &and8, &or8); - } else if (p->size == 2) { - unsigned short or16 = p->ormask, and16 = p->andmask, tmp16; - if (flags & PARAMPARSEFLAGS_8) { - tmp16 = and16; - and16 = and16 | or16; - or16 = tmp16; - } - inline_andor_16(p->num, &and16, &or16); - } else { - unsigned long or32 = p->ormask, and32 = p->andmask, tmp32; - if (flags & PARAMPARSEFLAGS_8) { - tmp32 = and32; - and32 = and32 | or32; - or32 = tmp32; - } - inline_andor_32(p->num, &and32, &or32); - } - return 1; -} - -static void DescHelpParam_Toggle(TOGGLE_T *p, const char **desc, const char **help, const char **defaul) { - *help = 0; - *desc = 0; - *defaul = 0; -} - -static int CompareParam_Toggle(TOGGLE_T *p) { - if (p->size == 1) { - unsigned char mask8, val8; - mask8 = (unsigned char) p->mask; - if (p->num) copy_8(&val8, p->num); - return (val8 ^ mask8) == val8; - } else if (p->size == 2) { - unsigned short mask16, val16; - mask16 = (unsigned short) p->mask; - if (p->num) copy_16(&val16, p->num); - return (val16 ^ mask16) == val16; - } else { - unsigned long mask32, val32; - mask32 = p->mask; - if (p->num) copy_16(&val32, p->num); // BUG ALERT - return (val32 ^ mask32) == val32; - } -} - -static int Param_Toggle(TOGGLE_T *p, const char *pstr, int flags) { - if (p->size == 1) { - unsigned char val8; - val8 = (unsigned char) p->mask; - inline_xor_8(p->num, &val8); - } else if (p->size == 2) { - unsigned short val16; - val16 = (unsigned short) p->mask; - inline_xor_16(p->num, &val16); - } else { - inline_xor_32(p->num, &p->mask); - } - return 1; -} - -static void DescHelpParam_Set(SET_T *p, const char **desc, const char **help, const char **defaul) { - *help = 0; - *desc = 0; - *defaul = 0; -} - -static int CompareParam_Set(SET_T *p) { - if (p->size == 1) { - unsigned char set8, val8; - set8 = (unsigned char) p->value; - if (p->num) copy_8(&val8, p->num); - return set8 == val8; - } else if (p->size == 2) { - unsigned short set16, val16; - set16 = (unsigned short) p->value; - if (p->num) copy_16(&val16, p->num); - return set16 == val16; - } else { - unsigned long set32, val32; - set32 = p->value; - if (p->num) copy_32(&val32, p->num); - return set32 == val32; - } -} - -static int Param_Set(SET_T *p, const char *pstr, int flags) { - if (p->size == 1) { - unsigned char val8; - val8 = (unsigned char) p->value; - if ((flags & PARAMPARSEFLAGS_8) && val8 <= 1) - val8 = (val8 == 0); - inline_write_8(p->num, &val8); - } else if (p->size == 2) { - unsigned short val16; - val16 = (unsigned short) p->value; - if ((flags & PARAMPARSEFLAGS_8) && val16 <= 1) - val16 = (val16 == 0); - inline_write_16(p->num, &val16); - } else { - unsigned long val32; - val32 = p->value; - if ((flags & PARAMPARSEFLAGS_8) && val32 <= 1) - val32 = (val32 == 0); - inline_write_32(p->num, &val32); - } - return 1; -} - -static void DescHelpParam_SetString(SETSTRING_T *p, const char **desc, const char **help, const char **defaul) { - *help = 0; - *desc = 0; - *defaul = 0; -} - -static int CompareParam_SetString(SETSTRING_T *p, int flags) { - if (p->pstring) - return pstrcmp((const unsigned char *) p->var, (const unsigned char *) p->value) == 0; - else - return strcmp(p->var, p->value) == 0; -} - -static int Param_SetString(SETSTRING_T *p, const char *pstr, int flags) { - if (p->pstring) - memcpy(p->var, p->value, p->value[0]); - else - strcpy(p->var, p->value); - return 1; -} - -static void DescHelpParam_Generic(GENERIC_T *p, const char **desc, const char **help, const char **defaul) { - if (p->myname) - *desc = p->myname; - else if ((p->flags & PARAMFLAGS_3) != 1) - *desc = "xxx"; - else - *desc = 0; - *help = p->help; - *defaul = 0; -} - -static int CompareParam_Generic(GENERIC_T *p) { - return 0; -} - -static int Param_Generic(GENERIC_T *p, const char *pstr, int flags) { - return p->parse(curopt, p->var, pstr, flags); -} - -static void DescHelpParam_Setting(SETTING_T *p, const char **desc, const char **help, const char **defaul) { - char *dptr = descparam; - - dptr += sprintf(dptr, "%s", p->myname ? p->myname : "var"); - if ((p->flags & PARAMFLAGS_3) != 1) { - sprintf(dptr, - "%s=%s%s", - (p->flags & PARAMFLAGS_2) ? "[" : "", - p->valuename ? p->valuename : "...", - (p->flags & PARAMFLAGS_2) ? "]" : "" - ); - } - *desc = descparam; - *help = 0; - *defaul = 0; -} - -static int CompareParam_Setting(SETTING_T *p) { - return 0; -} - -static int Param_Setting(SETTING_T *p, const char *pstr, int flags) { - char savevar[256]; - const char *vstr; - ArgToken *tok; - Boolean equals = 0; - - if (!pstr) { - Param_Error(40); - return 0; - } - - strncpy(savevar, pstr, sizeof(savevar)); - tok = Arg_PeekToken(); - if (tok && tok->val == ATK_EQUALS) { - Arg_UsedToken(); - equals = 1; - if (!Param_GetArgument((PARAM_T *) p, &vstr, flags)) - return 0; - } else { - vstr = 0; - } - - if (!vstr && equals) - vstr = ""; - - return p->parse(savevar, vstr); -} - -static void DescHelpParam_IfArg(IFARG_T *p, const char **desc, const char **help, const char **defaul) { - const char *d1 = 0; - const char *d2 = 0; - const char *h1 = 0; - const char *h2 = 0; - const char *df1 = 0; - const char *df2 = 0; - char desclocal[1024]; - char *dptr = desclocal; - char helplocal[1024]; - char *hptr = helplocal; - const char *ind; - - desclocal[0] = 0; - helplocal[0] = 0; - - if (p->parg) - Param_DescHelp(p->parg, &d1, &h1, &df1); - if (p->pnone) - Param_DescHelp(p->pnone, &d2, &h2, &df2); - - if (p->helpa && p->helpn) { - if (df1) - hptr += sprintf(hptr, "%s (default is %s), else %s", p->helpa, df1, p->helpn); - else - hptr += sprintf(hptr, "%s, else %s", p->helpa, p->helpn); - } else if (p->helpa) { - hptr += sprintf(hptr, "%s", p->helpa); - if (df1) - hptr += sprintf(hptr, "; default is %s", df1); - } else if (p->helpn) { - hptr += sprintf(hptr, "nothing, else %s", p->helpn); - } - - if (d1) { - if (p->myname) { - dptr += sprintf(dptr, "[%s]", p->myname ? p->myname: "param"); - } else if (h1) { - ind = strchr(d1, '\n'); - if (!ind) - ind = d1 + strlen(d1); - dptr += sprintf(dptr, "[%.*s]", ind - d1, d1); - } else { - dptr += sprintf(dptr, "[%s]", d1); - d1 = 0; - } - } - - if (h1 || h2) { - dptr += sprintf(dptr, "\n\t"); - hptr += sprintf(hptr, "\n\t"); - if (h1) { - if (d1) - dptr += sprintf(dptr, "%s", d1); - if (h1) - hptr += sprintf(hptr, "%s", h1); - if (h2) { - dptr += sprintf(dptr, "\b\t"); - hptr += sprintf(hptr, "\b\t"); - } - } - if (h2) { - if (d2) - dptr += sprintf(dptr, "%s", d2); - else - dptr += sprintf(dptr, "(if blank)"); - if (h2) - hptr += sprintf(hptr, "%s", h2); - dptr += sprintf(dptr, "\n"); - hptr += sprintf(hptr, "\n"); - } - dptr += sprintf(dptr, "\b"); - hptr += sprintf(hptr, "\b"); - } - - if (dptr != desclocal) { - strcpy(descparam, desclocal); - *desc = descparam; - } else { - *desc = 0; - } - - if (hptr != helplocal) { - strcpy(helpparam, helplocal); - *help = helpparam; - } else { - *help = 0; - } - - *defaul = 0; -} - -static int CompareParam_IfArg(IFARG_T *p) { - return 0; -} - -static int Param_IfArg(IFARG_T *p, const char *pstr, int flags) { - if (pstr) - return Param_Parse(p->parg, pstr, flags); - else if (p->pnone) - return Param_Parse(p->pnone, pstr, flags); - else - return 1; -} - -typedef int (*PARSE_FUNC)(PARAM_T *, const char *, int); -PARSE_FUNC ParamParsers[16] = { - (PARSE_FUNC) &Param_None, - (PARSE_FUNC) &Param_FTypeCreator, - (PARSE_FUNC) &Param_FilePath, - (PARSE_FUNC) &Param_Number, - (PARSE_FUNC) &Param_String, - (PARSE_FUNC) &Param_ID_or_SYM, - (PARSE_FUNC) &Param_ID_or_SYM, - (PARSE_FUNC) &Param_OnOff, - (PARSE_FUNC) &Param_OffOn, - (PARSE_FUNC) &Param_Mask, - (PARSE_FUNC) &Param_Toggle, - (PARSE_FUNC) &Param_Set, - (PARSE_FUNC) &Param_SetString, - (PARSE_FUNC) &Param_Generic, - (PARSE_FUNC) &Param_IfArg, - (PARSE_FUNC) &Param_Setting -}; - -static int Param_Parse(PARAM_T *param, const char *cparam, int flags) { - if (!param) - CLPFatalError("PARAM_T is NULL"); - - if (param->which >= PARAMWHICH_None && param->which < PARAMWHICH_MAX) { - return ParamParsers[param->which](param, cparam, flags); - } else { - CLPFatalError("Unhandled PARAM_T (%d)", param->which); - return 0; - } -} - -typedef void (*DESC_HELP_FUNC)(PARAM_T *, const char **, const char **, const char **); -DESC_HELP_FUNC DescHelpParams[16] = { - (DESC_HELP_FUNC) &DescHelpParam_None, - (DESC_HELP_FUNC) &DescHelpParam_FTypeCreator, - (DESC_HELP_FUNC) &DescHelpParam_FilePath, - (DESC_HELP_FUNC) &DescHelpParam_Number, - (DESC_HELP_FUNC) &DescHelpParam_String, - (DESC_HELP_FUNC) &DescHelpParam_ID_or_SYM, - (DESC_HELP_FUNC) &DescHelpParam_ID_or_SYM, - (DESC_HELP_FUNC) &DescHelpParam_OnOff, - (DESC_HELP_FUNC) &DescHelpParam_OffOn, - (DESC_HELP_FUNC) &DescHelpParam_Mask, - (DESC_HELP_FUNC) &DescHelpParam_Toggle, - (DESC_HELP_FUNC) &DescHelpParam_Set, - (DESC_HELP_FUNC) &DescHelpParam_SetString, - (DESC_HELP_FUNC) &DescHelpParam_Generic, - (DESC_HELP_FUNC) &DescHelpParam_IfArg, - (DESC_HELP_FUNC) &DescHelpParam_Setting -}; -void Param_DescHelp(PARAM_T *param, const char **desc, const char **help, const char **defaul) { - *desc = 0; - *help = 0; - *defaul = 0; - - if (!param) { - CLPFatalError("PARAM_T is NULL"); - return; - } - - if (param->which >= PARAMWHICH_None && param->which < PARAMWHICH_MAX) { - DescHelpParams[param->which](param, desc, help, defaul); - } else { - CLPFatalError("Unhandled PARAM_T (%d)", param->which); - } -} - -typedef int (*COMPARE_FUNC)(PARAM_T *); -COMPARE_FUNC CompareParams[16] = { - (COMPARE_FUNC) &CompareParam_None, - (COMPARE_FUNC) &CompareParam_FTypeCreator, - (COMPARE_FUNC) &CompareParam_FilePath, - (COMPARE_FUNC) &CompareParam_Number, - (COMPARE_FUNC) &CompareParam_String, - (COMPARE_FUNC) &CompareParam_ID_or_SYM, - (COMPARE_FUNC) &CompareParam_ID_or_SYM, - (COMPARE_FUNC) &CompareParam_OnOff, - (COMPARE_FUNC) &CompareParam_OffOn, - (COMPARE_FUNC) &CompareParam_Mask, - (COMPARE_FUNC) &CompareParam_Toggle, - (COMPARE_FUNC) &CompareParam_Set, - (COMPARE_FUNC) &CompareParam_SetString, - (COMPARE_FUNC) &CompareParam_Generic, - (COMPARE_FUNC) &CompareParam_IfArg, - (COMPARE_FUNC) &CompareParam_Setting -}; -int Param_Compare(PARAM_T *param) { - if (!param) - CLPFatalError("PARAM_T is NULL"); - - if (param->which >= PARAMWHICH_None && param->which < PARAMWHICH_MAX) { - return CompareParams[param->which](param); - } else { - CLPFatalError("Unhandled PARAM_T (%d)", param->which); - return 0; - } -} - -static void Param_PushParam(const char *param) { - Args_Push(4, (void *) param, 0); -} - -static void Param_PopParam(void) { - Args_Pop(4); -} - -static Boolean Param_IsNonTextFile(const char *fname, Boolean warn) { - OSSpec tmp; - CWDataType mactype; - Boolean isfile; - - if (!OS_MakeSpec(fname, &tmp, &isfile)) { - if (isfile) { - if (!OS_Status(&tmp)) { - if (!OS_GetMacFileType(&tmp, &mactype)) { - if (mactype != 'TEXT') { - if (warn) - Param_Warning(77, fname); - return 1; - } - } - } - } - } - - return 0; -} - -static int Param_GetArgument(PARAM_T *param, const char **cparam, int exec) { - int subparse; - short nextOpt; - short nextParam; - short lastOpt; - ArgToken *tok; - - subparse = (exec & PARAMPARSEFLAGS_4) != 0; - nextOpt = !subparse ? ATK_ARG_END : ATK_COMMA; - nextParam = !subparse ? ATK_COMMA : ATK_EQUALS; - lastOpt = !subparse ? ATK_END : ATK_ARG_END; - - tok = Arg_PeekToken(); - OS_ASSERT(1467, tok); - - if ((param->flags & PARAMFLAGS_3) == 0) { - if (tok->val == nextParam || tok->val == ATK_EQUALS) - tok = Arg_UsedToken(); - if (tok->val == nextOpt || tok->val == nextParam || tok->val == lastOpt) { - Param_Error(34); - return 0; - } - if (tok->val != ATK_ARG) { - Param_Error(57, "parameter", Arg_GetTokenName(tok)); - return 0; - } - Arg_GetTokenText(tok, curparam, sizeof(curparam), 1); - Arg_UsedToken(); - *cparam = curparam; - - if (param->flags & PARAMFLAGS_8) { - tok = Arg_PeekToken(); - if (tok->val == ATK_EQUALS) - Arg_UsedToken(); - } - } else if (param->flags & PARAMFLAGS_1) { - *cparam = 0; - if (tok->val == ATK_EQUALS && !subparse) { - if (!(exec & PARAMPARSEFLAGS_40)) { - Param_Error(37); - return 0; - } - Arg_UsedToken(); - } - } else if (param->flags & PARAMFLAGS_2) { - if (tok->val == nextOpt || tok->val == lastOpt) { - *cparam = 0; - } else if (tok->val == nextParam) { - tok = Arg_UsedToken(); - if (tok->val == ATK_ARG) { - Arg_GetTokenText(tok, curparam, sizeof(curparam), 1); - if ((param->flags & PARAMFLAGS_12) && Param_IsNonTextFile(curparam, !(exec & PARAMPARSEFLAGS_1))) { - *cparam = 0; - } else { - Arg_UsedToken(); - *cparam = curparam; - } - } else { - *cparam = 0; - } - } else if (tok->val == ATK_ARG && !tok->text[0]) { - tok = Arg_UsedToken(); - if (tok->val == nextParam) - Arg_UsedToken(); - *cparam = 0; - } else if ((exec & PARAMPARSEFLAGS_4) && tok->val != ATK_EQUALS) { - *cparam = 0; - } else { - if (tok->val == ATK_EQUALS) - tok = Arg_UsedToken(); - if (tok->val == ATK_ARG) { - Arg_GetTokenText(tok, curparam, sizeof(curparam), 1); - if ((param->flags & PARAMFLAGS_12) && Param_IsNonTextFile(curparam, !(exec & PARAMPARSEFLAGS_1))) { - *cparam = 0; - } else { - Arg_UsedToken(); - *cparam = curparam; - } - } else { - *cparam = 0; - } - } - } else { - CLPFatalError("Unknown parameter type"); - } - - if (pTool->TYPE == CWDROPINCOMPILERTYPE && (exec & PARAMPARSEFLAGS_2) && *cparam) { - if (!(exec & PARAMPARSEFLAGS_10)) { - if (subparse) - Arg_AddToToolArgs(&linkargs, ATK_EQUALS, 0); - else - Arg_AddToToolArgs(&linkargs, ATK_COMMA, 0); - } - Param_PushParam(*cparam); - Args_AddToToolArgs(&linkargs); - Param_PopParam(); - } - - return 1; -} - -int Params_Parse(PARAM_T *param, int flags) { - const char *cparam; - flags |= PARAMPARSEFLAGS_10; - - if (param) { - while (param) { - if (flags & PARAMPARSEFLAGS_20) - flags |= PARAMPARSEFLAGS_40; - - if (!Param_GetArgument(param, &cparam, flags)) - return 0; - - if (!(flags & PARAMPARSEFLAGS_1)) { - if (!Param_Parse(param, cparam, flags | (short) ((param->flags & PARAMFLAGS_4) ? PARAMPARSEFLAGS_20 : 0))) - return 0; - } else if (param->flags & PARAMFLAGS_4) { - if (!Param_GetArgument(param, &cparam, flags | PARAMPARSEFLAGS_4)) - return 0; - } - - if (cparam) - flags &= ~PARAMPARSEFLAGS_10; - flags &= ~PARAMPARSEFLAGS_40; - param = param->next; - } - } - - return 1; -} - -void Param_Error(short id, ...) { - va_list va; - va_start(va, id); - Option_ParamError(id, va); - va_end(va); -} - -void Param_Warning(short id, ...) { - va_list va; - va_start(va, id); - Option_ParamWarning(id, va); - va_end(va); -} -- cgit v1.2.3