int GetUserCase(char pre, int icase, int *iflag, int *mb, int *nb, int *kb,
int *ma, int *lat, int *mu, int *nu, int *ku,
char *fnam, char *auth, char **MCC, char **MMFLAGS)
/*
* if icase < 0, go to that line in file; if icase > 0 find that ID in file
* return ID of selected line
*/
{
int i, n, ID;
char ln[512];
static char sMCC[1024], sMMFLAGS[2048];
FILE *fp;
*MCC = *MMFLAGS = NULL;
n = NumUserCases(pre);
sprintf(ln, "%ccases.dsc", pre);
fp = fopen(ln, "r");
if (!fp) return(0);
assert(fp);
fgets(ln, 256, fp); /* skip comment line */
fgets(ln, 256, fp); /* skip number of cases */
for (i=0; i < n; i++)
{
if ( fgets(ln, 256, fp) == NULL )
{
fclose(fp);
return(0);
}
assert(sscanf(ln, " %d %d %d %d %d %d %d %d %d %d %s \"%[^\"]", &ID,
iflag, mb, nb, kb, ma, lat, mu, nu, ku, fnam, auth) == 12);
assert(ID > 0);
if (i == -icase || ID == icase)
{
if (LineIsCont(ln))
{
assert( fgets(ln, 256, fp) != NULL );
strcpy(sMCC, ln);
NoEndLineWhiteSpace(sMCC);
assert( fgets(ln, 512, fp) != NULL );
strcpy(sMMFLAGS, ln);
NoEndLineWhiteSpace(sMMFLAGS);
*MCC = sMCC;
*MMFLAGS = sMMFLAGS;
}
else *MCC = *MMFLAGS = NULL;
fclose(fp);
return(ID);
}
if (i != icase && LineIsCont(ln))
{
assert( fgets(ln, 256, fp) != NULL );
assert( fgets(ln, 256, fp) != NULL );
}
}
fclose(fp);
return(0);
}
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);
}
FILENODE *ReadFile(char pre)
{
FILE *fpin;
FILENODE *fbase, *fn, *fp=NULL;
char ln[512], rout[256], auth[256], cc[256], ccflags[512];
char *pcc, *pccflags;
int i, n, ID, alpha, beta, incX, incY;
sprintf(ln, "%caxpby.dsc", pre);
fpin = fopen(ln, "r");
assert(fpin);
assert(fgets(ln, 512, fpin) != NULL);
sscanf(ln, " %d", &n);
for (i=0; i < n; i++)
{
assert(fgets(ln, 512, fpin) != NULL);
assert(sscanf(ln, " %d %d %d %d %d %s \"%[^\"]",
&ID, &alpha, &beta, &incX, &incY, rout, auth) == 7);
if (pre == 's' || pre == 'd')
{
if (alpha != -1 && alpha != 1) alpha = AlphaX;
}
else if (alpha != -1 && alpha != 1 && alpha != 0) alpha = AlphaX;
if (pre == 's' || pre == 'd')
{
if (beta != -1 && beta != 1) beta = AlphaX;
}
else if (beta != -1 && beta != 1 && beta != 0) beta = AlphaX;
if (LineIsCont(ln))
{
assert(fgets(cc, 256, fpin) != NULL);
assert(fgets(ccflags, 512, fpin) != NULL);
FixFlags(cc);
FixFlags(ccflags);
pcc = cc;
pccflags = ccflags;
}
else pcc = pccflags = NULL;
fn = AllocFN(ID, incX, incY, alpha, beta, rout, auth, pcc, pccflags);
if (fp) fp->next = fn;
else fbase = fn;
fp = fn;
}
PrintFN(fbase);
return(fbase);
}
FILENODE *ReadFile(char pre)
{
FILE *fpin;
FILENODE *fbase, *fn, *fp=NULL;
char ln[512], rout[256], auth[256], cc[256], ccflags[256];
char *pcc, *pccflags;
int i, n, ID, alpha, beta, incX, incY;
sprintf(ln, "%cnrm2.dsc", pre);
fpin = fopen(ln, "r");
assert(fpin);
assert(fgets(ln, 512, fpin) != NULL);
sscanf(ln, " %d", &n);
for (i=0; i < n; i++)
{
assert(fgets(ln, 512, fpin) != NULL);
assert(sscanf(ln, " %d %d %s \"%[^\"]", &ID, &incX, rout, auth) == 4);
incY = 0;
alpha = beta = AlphaX;
if ( (pre == 'c' || pre == 'z') && incX == 1 ) continue;
if (LineIsCont(ln))
{
assert(fgets(cc, 256, fpin) != NULL);
assert(fgets(ccflags, 512, fpin) != NULL);
FixFlags(cc);
FixFlags(ccflags);
pcc = cc;
pccflags = ccflags;
}
else pcc = pccflags = NULL;
fn = AllocFN(ID, incX, incY, alpha, beta, rout, auth, pcc, pccflags);
if (fp) fp->next = fn;
else fbase = fn;
fp = fn;
}
PrintFN(fbase);
return(fbase);
}
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);
}
