int NumUserCases(char pre)
{
char ln[64];
sprintf(ln, "%ccases.dsc", pre);
return(NumUserCases0(ln));
}
void CombineFiles(char *fout, int nfiles, char **fnams)
{
char tnam[256], ln[512];
int i, j, n, nn;
FILE *fpout, *fpin;
assert(tmpnam(tnam));
for (n=i=0; i < nfiles; i++) n += NumUserCases0(fnams[i]);
fpout = fopen(tnam, "w");
assert(fpout);
fprintf(fpout, "<ID> <flag> <mb> <nb> <kb> <muladd> <lat> <mu> <nu> <ku> <rout> \"<Contributer>\"\n");
fprintf(fpout, "%d\n", n);
for (i=0; i < nfiles; i++)
{
fpin = fopen(fnams[i], "r");
if (fpin)
{
assert(fgets(ln, 512, fpin));
assert(fgets(ln, 512, fpin));
assert(sscanf(ln, " %d", &nn) == 1);
for (j=0; j < nn; j++)
{
assert(fgets(ln, 512, fpin));
fputs(ln, fpout);
if (LineIsCont(ln))
{
assert(fgets(ln, 512, fpin));
fputs(ln, fpout);
assert(fgets(ln, 512, fpin));
fputs(ln, fpout);
}
}
fclose(fpin);
}
else
{
fprintf(stderr,
"COMBFILES WARNING: file %s not found / not readable!!\n",
fnams[i]);
}
}
fclose(fpout);
remove(fout);
sprintf(ln, "cp %s %s\n", tnam, fout);
assert(system(ln) == 0);
remove(tnam);
}
void GoGetThem(char *infile, char *outfile)
{
char ln[512], ln2[512], tnam[256], MCC[256], MMFLAGS[256];
char *chkfile = "FlagCheck.c", *sp, *sp2;
FILE *fpin, *fpout;
int i, j, n, nmin=0, good;
int wass;
fpout = fopen(chkfile, "w");
assert(fpout);
fprintf(fpout, "main(){}\n");
fclose(fpout);
n = NumUserCases0(infile);
fpin = fopen(infile, "r");
assert(fpin);
assert(tmpnam(tnam));
fpout = fopen(tnam, "w");
assert(fpout);
assert(fgets(ln, 512, fpin));
assert(fgets(ln, 512, fpin));
for (i=0; i < n; i++)
{
wass = 0;
assert(fgets(ln, 512, fpin));
if (LineIsCont(ln))
{
assert(fgets(MCC, 256, fpin));
assert(fgets(MMFLAGS, 256, fpin));
sprintf(ln2, "%s %s -c -DATL_BETA=1 %s\n", MCC, MMFLAGS, chkfile);
/*
* Substitute -x c for -x assembler or -x assembler-with-cpp
*/
if (sp = strstr(ln2, "assembler"))
{
sp2 = strstr(ln2, "-x");
if (sp2 && ((ptrdiff_t) sp2) < ((ptrdiff_t) sp))
{
for (sp2 += 2; sp2 != sp; sp2++)
if (!isspace(*sp2)) break;
if (sp2 == sp)
{
wass = 1;
if (strstr(sp, "assembler-with-cpp"))
{
wass = 2;
for (j=1; j != 18; j++) sp[j] = ' ';
}
else for (j=1; j != 9; j++) sp[j] = ' ';
sp[0] = 'c';
}
}
}
for (j=0; ln2[j]; j++) if (ln2[j] == '\n') ln2[j] = ' ';
ln2[j-1] = '\n';
fprintf(stdout, "%s", ln2);
if (!system(ln2))
{
if (wass)
{
sp[ 0] = 'a';
sp[ 1] = 's';
sp[ 2] = 's';
sp[ 3] = 'e';
sp[ 4] = 'm';
sp[ 5] = 'b';
sp[ 6] = 'l';
sp[ 7] = 'e';
sp[ 8] = 'r';
if (wass > 1)
{
sp[ 9] = '-';
sp[10] = 'w';
sp[11] = 'i';
sp[12] = 't';
sp[13] = 'h';
sp[14] = '-';
sp[15] = 'c';
sp[16] = 'p';
sp[17] = 'p';
}
}
fputs(ln, fpout);
fputs(MCC, fpout);
fputs(MMFLAGS, fpout);
}
else nmin--;
}
else fputs(ln, fpout);
}
fclose(fpin);
fclose(fpout);
/*
* Now, create standard-style file with surviving routines
*/
fpin = fopen(tnam, "r");
assert(fpin);
fpout = fopen(outfile, "w");
assert(fpout);
n += nmin;
fprintf(fpout, "\n%d\n", n);
for (i=0; i < n; i++)
{
assert(fgets(ln, 512, fpin));
fputs(ln, fpout);
if (LineIsCont(ln))
{
assert(fgets(ln, 512, fpin));
fputs(ln, fpout);
assert(fgets(ln, 512, fpin));
fputs(ln, fpout);
}
}
fclose(fpin);
fclose(fpout);
remove(tnam);
sprintf(tnam, "%s", chkfile);
for (i=0; tnam[i]; i++);
for (i--; i > 0; i--)
{
if (tnam[i] == 'c')
{
tnam[i] = 'o';
break;
}
}
remove(tnam);
}
