int
main ()
{
time_t now;
int i;
int errors = 0, count = 0;
time (&now);
srandom ((unsigned int) now + getpid ());
grow_layer_list (0);
for (i = 0; i < 16; i++)
{
int j;
char *p;
if (i != 1 && i != 4 && i != 5 && i != 9)
set_layer_list (i, 1);
else
set_layer_list (i, 0);
p = print_layer_list ();
printf ("%2d : %20s =", i, p);
parse_layer_list (p + 1, 0);
for (j = 0; j < num_layers; j++)
printf (" %d", layers[j]);
printf ("\n");
}
while (count < 1000000)
{
FlagHolder fh;
char *str;
FlagType new_flags;
int i;
int otype;
otype = ALL_TYPES;
fh.Flags = empty_flags;
for (i = 0; i < ENTRIES (object_flagbits); i++)
{
if (TEST_FLAG (object_flagbits[i].mask, &fh))
continue;
if ((otype & object_flagbits[i].object_types) == 0)
continue;
if ((random () & 4) == 0)
continue;
otype &= object_flagbits[i].object_types;
SET_FLAG (object_flagbits[i].mask, &fh);
}
if (otype & PIN_TYPES)
for (i = 0; i < MAX_LAYER; i++)
if (random () & 4)
ASSIGN_THERM (i, 3, &fh);
str = flags_to_string (fh.Flags, otype);
new_flags = string_to_flags (str, 0);
count++;
if (FLAGS_EQUAL (fh.Flags, new_flags))
continue;
dump_flag (&fh.Flags);
printf (" ");
dump_flag (&new_flags);
printf ("\n");
if (++errors == 5)
exit (1);
}
while (count < 1000000)
{
FlagHolder fh;
char *str;
FlagType new_flags;
int i;
int otype;
otype = ALL_TYPES;
fh.Flags = empty_flags;
for (i = 0; i < ENTRIES (pcb_flagbits); i++)
{
if (TEST_FLAG (pcb_flagbits[i].mask, &fh))
continue;
if ((random () & 4) == 0)
continue;
otype &= pcb_flagbits[i].object_types;
SET_FLAG (pcb_flagbits[i].mask, &fh);
}
str = pcbflags_to_string (fh.Flags);
new_flags = string_to_pcbflags (str, 0);
count++;
if (FLAGS_EQUAL (fh.Flags, new_flags))
continue;
dump_flag (&fh.Flags);
printf (" ");
dump_flag (&new_flags);
printf ("\n");
if (++errors == 5)
exit (1);
}
printf ("%d out of %d failed\n", errors, count);
return errors;
}
static FlagType
common_string_to_flags (const char *flagstring,
int (*error) (const char *msg),
FlagBitsType *flagbits,
int n_flagbits)
{
const char *fp, *ep;
int flen;
FlagHolder rv;
int i;
rv.Flags = empty_flags;
if (error == 0)
error = error_ignore;
if (flagstring == NULL)
return empty_flags;
fp = ep = flagstring;
if (*fp == '"')
ep = ++fp;
while (*ep && *ep != '"')
{
int found = 0;
for (ep = fp; *ep && *ep != ',' && *ep != '"' && *ep != '('; ep++)
;
flen = ep - fp;
if (*ep == '(')
ep = parse_layer_list (ep + 1, error);
if (flen == 7 && memcmp (fp, "thermal", 7) == 0)
{
for (i = 0; i < MAX_LAYER && i < num_layers; i++)
if (layers[i])
ASSIGN_THERM (i, layers[i], &rv);
}
else
{
for (i = 0; i < n_flagbits; i++)
if (flagbits[i].nlen == flen
&& memcmp (flagbits[i].name, fp, flen) == 0)
{
found = 1;
SET_FLAG (flagbits[i].mask, &rv);
break;
}
if (!found)
{
const char *fmt = "Unknown flag: \"%.*s\" ignored";
char *msg = alloc_buf (strlen (fmt) + flen);
sprintf (msg, fmt, flen, fp);
error (msg);
}
}
fp = ep + 1;
}
return rv.Flags;
}
static FlagType
common_string_to_flags (const char *flagstring,
int (*error) (const char *msg),
FlagBitsType *flagbits,
int n_flagbits)
{
const char *fp, *ep;
int flen;
FlagHolder rv;
int i;
rv.Flags = empty_flags;
if (error == 0)
error = error_ignore;
if (flagstring == NULL)
return empty_flags;
fp = ep = flagstring;
if (*fp == '"')
ep = ++fp;
while (*ep && *ep != '"')
{
int found = 0;
for (ep = fp; *ep && *ep != ',' && *ep != '"' && *ep != '('; ep++)
;
flen = ep - fp;
if (*ep == '(')
ep = parse_layer_list (ep + 1, error);
if (flen == 7 && memcmp (fp, "thermal", 7) == 0)
{
for (i = 0; i < MAX_LAYER && i < num_layers; i++)
if (layers[i])
ASSIGN_THERM (i, layers[i], &rv);
}
else
if (flen == 5 && memcmp (fp, "shape", 5) == 0)
{
rv.Flags.q=atoi(fp+6);
}
else
if (flen == 7 && memcmp (fp, "intconn", 7) == 0)
{
rv.Flags.int_conn_grp=atoi(fp+8);
}
else
{
for (i = 0; i < n_flagbits; i++)
if (flagbits[i].nlen == flen
&& memcmp (flagbits[i].name, fp, flen) == 0)
{
found = 1;
SET_FLAG (flagbits[i].mask, &rv);
break;
}
if (!found)
{
const char *fmt = "Unknown flag: \"%.*s\" ignored";
unknown_flag_t *u;
char *msg, *s;
/* include () */
s = fp + flen;
if (*s == '(') {
while(*s != ')') {
flen++;
s++;
}
}
if (*s == ')')
flen++;
msg = alloc_buf (strlen (fmt) + flen);
sprintf (msg, fmt, flen, fp);
error (msg);
u = malloc(sizeof(unknown_flag_t));
u->str = strndup(fp, flen);
u->next = NULL;
/* need to append, to keep order of flags */
if (rv.Flags.unknowns != NULL) {
unknown_flag_t *n;
for(n = rv.Flags.unknowns; n->next != NULL; n = n->next) ;
n->next = u;
}
else
rv.Flags.unknowns = u;
}
}
fp = ep + 1;
}
return rv.Flags;
}
