static void process_field(jed_data *data, const UINT8 *cursrc, const UINT8 *srcend, UINT16 *checksum)
{
/* switch off of the field type */
switch (*cursrc)
{
case 'Q':
cursrc++;
switch (*cursrc)
{
/* number of fuses */
case 'F':
cursrc++;
data->numfuses = suck_number(&cursrc);
break;
}
break;
/* default fuse state (0 or 1) */
case 'F':
cursrc++;
if (LOG_PARSE) printf("F%c\n", *cursrc);
if (*cursrc == '0')
memset(data->fusemap, 0x00, sizeof(data->fusemap));
else
memset(data->fusemap, 0xff, sizeof(data->fusemap));
break;
/* fuse states */
case 'L':
{
UINT32 curfuse;
/* read the fuse number */
cursrc++;
curfuse = suck_number(&cursrc);
if (LOG_PARSE) printf("L%d\n", curfuse);
/* read digits, skipping delimiters */
for ( ; cursrc < srcend; cursrc++)
if (*cursrc == '0' || *cursrc == '1')
{
jed_set_fuse(data, curfuse, *cursrc - '0');
if (LOG_PARSE) printf(" fuse %d = %d\n", curfuse, 0);
if (curfuse >= data->numfuses)
data->numfuses = curfuse + 1;
curfuse++;
}
break;
}
/* fuse checksum */
case 'C':
cursrc++;
if (cursrc < srcend + 4 && ishex(cursrc[0]) && ishex(cursrc[1]) && ishex(cursrc[2]) && ishex(cursrc[3]))
*checksum = (hexval(cursrc[0]) << 12) | (hexval(cursrc[1]) << 8) | (hexval(cursrc[2]) << 4) | hexval(cursrc[3] << 0);
break;
}
}
static void process_field(jed_data *data, const UINT8 *cursrc, const UINT8 *srcend, parse_info *pinfo)
{
cursrc++;
// switch off of the field type
switch (*cursrc)
{
// number of inputs
case 'i':
cursrc += 2;
pinfo->inputs = suck_number(&cursrc);
if (LOG_PARSE) printf("Inputs: %u\n", pinfo->inputs);
break;
// number of outputs
case 'o':
cursrc += 2;
pinfo->outputs = suck_number(&cursrc);
if (LOG_PARSE) printf("Outputs: %u\n", pinfo->outputs);
break;
// number of product terms
case 'p':
{
cursrc += 2;
pinfo->terms = suck_number(&cursrc);
if (LOG_PARSE) printf("Terms: %u\n", pinfo->terms);
UINT32 curfuse = 0;
bool outputs = false;
cursrc++;
while (cursrc < srcend && *cursrc != '.')
{
switch (*cursrc)
{
case '-':
if (!outputs)
{
jed_set_fuse(data, curfuse++, 1);
jed_set_fuse(data, curfuse++, 1);
if (LOG_PARSE) printf("11");
}
break;
case '1':
if (outputs)
{
jed_set_fuse(data, curfuse++, 0);
if (LOG_PARSE) printf("0");
}
else
{
jed_set_fuse(data, curfuse++, 1);
jed_set_fuse(data, curfuse++, 0);
if (LOG_PARSE) printf("10");
}
break;
case '0':
if (outputs)
{
jed_set_fuse(data, curfuse++, 1);
if (LOG_PARSE) printf("1");
}
else
{
jed_set_fuse(data, curfuse++, 0);
jed_set_fuse(data, curfuse++, 1);
if (LOG_PARSE) printf("01");
}
break;
case ' ':
outputs = true;
if (LOG_PARSE) printf(" ");
break;
}
if (iscrlf(*cursrc) && outputs)
{
outputs = false;
if (LOG_PARSE) printf("\n");
}
cursrc++;
}
data->numfuses = curfuse;
break;
}
// end of file
case 'e':
printf("End of file\n");
break;
}
cursrc++;
}
static bool process_field(jed_data *data, const UINT8 **src, const UINT8 *srcend, parse_info *pinfo)
{
// valid keywords
static const char *const keywords[] = { "i", "o", "p", "phase", "e", "\0" };
enum
{
KW_INPUTS = 0,
KW_OUTPUTS,
KW_TERMS,
KW_PHASE,
KW_END,
KW_INVALID
};
// find keyword
char dest[0x10];
memset(dest, 0, ARRAY_LENGTH(dest));
const UINT8 *seek = *src;
int destptr = 0;
while (seek < srcend && isalpha(*seek) && destptr < ARRAY_LENGTH(dest) - 1)
{
dest[destptr] = tolower(*seek);
seek++;
destptr++;
}
UINT8 find = 0;
while (strlen(keywords[find]) && strcmp(dest, keywords[find]))
find++;
if (find == KW_INVALID)
return false;
(*src) += strlen(keywords[find]);
// handle it
switch (find)
{
// number of inputs
case KW_INPUTS:
pinfo->inputs = suck_number(src, srcend);
if (pinfo->inputs == 0 || pinfo->inputs >= (JED_MAX_FUSES/2))
return false;
if (LOG_PARSE) printf("Inputs: %u\n", pinfo->inputs);
break;
// number of outputs
case KW_OUTPUTS:
pinfo->outputs = suck_number(src, srcend);
if (pinfo->outputs == 0 || pinfo->outputs >= (JED_MAX_FUSES/2))
return false;
if (LOG_PARSE) printf("Outputs: %u\n", pinfo->outputs);
break;
// number of product terms (optional)
case KW_TERMS:
pinfo->terms = suck_number(src, srcend);
if (pinfo->terms == 0 || pinfo->terms >= (JED_MAX_FUSES/2))
return false;
if (LOG_PARSE) printf("Terms: %u\n", pinfo->terms);
break;
// output polarity (optional)
case KW_PHASE:
if (LOG_PARSE) printf("Phase...\n");
while (*src < srcend && !iscrlf(**src) && pinfo->xorptr < (JED_MAX_FUSES/2))
{
if (**src == '0' || **src == '1')
{
// 0 is negative
if (**src == '0')
pinfo->xorval[pinfo->xorptr/32] |= 1 << (pinfo->xorptr & 31);
pinfo->xorptr++;
}
(*src)++;
}
break;
// end of file (optional)
case KW_END:
if (LOG_PARSE) printf("End of file\n");
break;
}
return true;
}
