diff options
author | Ben Gamari <ben@smart-cactus.org> | 2018-11-24 14:01:40 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2018-11-24 14:13:38 -0500 |
commit | bba2b9bf2d69700dc114118658507aaac34c5e62 (patch) | |
tree | 3851b5f467ab0b4bcbd2843be4e69256beb7b707 /utils/hp2ps | |
parent | 6a70acfa0b8757b9a6a56cffedc4b16a39dad510 (diff) | |
download | haskell-bba2b9bf2d69700dc114118658507aaac34c5e62.tar.gz |
Revert "Fix uninformative hp2ps error when the cmdline contains double quotes"
This reverts commit 390df8b51b917fb6409cbde8e73fe838d61d8832.
Diffstat (limited to 'utils/hp2ps')
-rw-r--r-- | utils/hp2ps/HpFile.c | 351 |
1 files changed, 177 insertions, 174 deletions
diff --git a/utils/hp2ps/HpFile.c b/utils/hp2ps/HpFile.c index bcdf7aa6b3..02223ed783 100644 --- a/utils/hp2ps/HpFile.c +++ b/utils/hp2ps/HpFile.c @@ -22,11 +22,11 @@ static char *thestring; int theinteger; floatish thefloatish; int ch; /* last character read */ -token thetok; /* last token */ +token thetok; /* last token */ int linenum; /* current line number */ int endfile; /* true at end of file */ -static boolish gotjob = 0; /* "JOB" read */ +static boolish gotjob = 0; /* "JOB" read */ static boolish gotdate = 0; /* "DATE" read */ static boolish gotvalueunit = 0; /* "VALUE_UNIT" read */ static boolish gotsampleunit = 0; /* "SAMPLE_UNIT" read */ @@ -57,13 +57,13 @@ floatish *markmap; /* sample marks */ * the form * * JOB s -- job identifier string - * DATE s -- date string - * SAMPLE_UNIT s -- sample unit eg "seconds" - * VALUE_UNIT s -- value unit eg "bytes" - * MARK i -- sample mark - * BEGIN_SAMPLE i -- start of ith sample - * identifier i -- there are i identifiers in this sample - * END_SAMPLE i -- end of ith sample + * DATE s -- date string + * SAMPLE_UNIT s -- sample unit eg "seconds" + * VALUE_UNIT s -- value unit eg "bytes" + * MARK i -- sample mark + * BEGIN_SAMPLE i -- start of ith sample + * identifier i -- there are i identifiers in this sample + * END_SAMPLE i -- end of ith sample * */ @@ -82,27 +82,27 @@ GetHpFile(FILE *infp) GetHpTok(infp, 1); while (endfile == 0) { - GetHpLine(infp); + GetHpLine(infp); } if (!gotjob) { - Error("%s: JOB missing", hpfile); + Error("%s: JOB missing", hpfile); } if (!gotdate) { - Error("%s: DATE missing", hpfile); + Error("%s: DATE missing", hpfile); } if (!gotvalueunit) { - Error("%s: VALUE_UNIT missing", hpfile); + Error("%s: VALUE_UNIT missing", hpfile); } if (!gotsampleunit) { - Error("%s: SAMPLE_UNIT missing", hpfile); + Error("%s: SAMPLE_UNIT missing", hpfile); } if (nsamples == 0) { - Error("%s: contains no samples", hpfile); + Error("%s: contains no samples", hpfile); } @@ -124,123 +124,123 @@ GetHpLine(FILE *infp) switch (thetok) { case JOB_TOK: - GetHpTok(infp, 0); - if (thetok != STRING_TOK) { - Error("%s, line %d: string must follow JOB", hpfile, linenum); + GetHpTok(infp, 0); + if (thetok != STRING_TOK) { + Error("%s, line %d: string must follow JOB", hpfile, linenum); } - jobstring = thestring; - gotjob = 1; + jobstring = thestring; + gotjob = 1; GetHpTok(infp, 1); - break; + break; case DATE_TOK: - GetHpTok(infp, 0); - if (thetok != STRING_TOK) { - Error("%s, line %d: string must follow DATE", hpfile, linenum); + GetHpTok(infp, 0); + if (thetok != STRING_TOK) { + Error("%s, line %d: string must follow DATE", hpfile, linenum); } - datestring = thestring; - gotdate = 1; + datestring = thestring; + gotdate = 1; GetHpTok(infp, 1); - break; + break; case SAMPLE_UNIT_TOK: - GetHpTok(infp, 0); - if (thetok != STRING_TOK) { - Error("%s, line %d: string must follow SAMPLE_UNIT", hpfile, - linenum); + GetHpTok(infp, 0); + if (thetok != STRING_TOK) { + Error("%s, line %d: string must follow SAMPLE_UNIT", hpfile, + linenum); } - sampleunitstring = thestring; - gotsampleunit = 1; + sampleunitstring = thestring; + gotsampleunit = 1; GetHpTok(infp, 1); - break; + break; case VALUE_UNIT_TOK: GetHpTok(infp, 0); - if (thetok != STRING_TOK) { - Error("%s, line %d: string must follow VALUE_UNIT", hpfile, - linenum); + if (thetok != STRING_TOK) { + Error("%s, line %d: string must follow VALUE_UNIT", hpfile, + linenum); } - valueunitstring = thestring; - gotvalueunit = 1; + valueunitstring = thestring; + gotvalueunit = 1; GetHpTok(infp, 1); - break; + break; case MARK_TOK: - GetHpTok(infp, 0); + GetHpTok(infp, 0); if (thetok != FLOAT_TOK) { Error("%s, line %d, floating point number must follow MARK", - hpfile, linenum); + hpfile, linenum); } - if (insample) { - Error("%s, line %d, MARK occurs within sample", hpfile, linenum); - } - if (nmarks >= nmarkmax) { - if (!markmap) { - nmarkmax = N_MARKS; - markmap = (floatish*) xmalloc(nmarkmax * sizeof(floatish)); - } else { - nmarkmax *= 2; - markmap = (floatish*) xrealloc(markmap, nmarkmax * sizeof(floatish)); - } - } - markmap[ nmarks++ ] = thefloatish; + if (insample) { + Error("%s, line %d, MARK occurs within sample", hpfile, linenum); + } + if (nmarks >= nmarkmax) { + if (!markmap) { + nmarkmax = N_MARKS; + markmap = (floatish*) xmalloc(nmarkmax * sizeof(floatish)); + } else { + nmarkmax *= 2; + markmap = (floatish*) xrealloc(markmap, nmarkmax * sizeof(floatish)); + } + } + markmap[ nmarks++ ] = thefloatish; GetHpTok(infp, 1); break; case BEGIN_SAMPLE_TOK: - insample = 1; - GetHpTok(infp, 0); - if (thetok != FLOAT_TOK) { - Error("%s, line %d, floating point number must follow BEGIN_SAMPLE", hpfile, linenum); - } - if (thefloatish < lastsample) { - Error("%s, line %d, samples out of sequence", hpfile, linenum); - } else { - lastsample = thefloatish; + insample = 1; + GetHpTok(infp, 0); + if (thetok != FLOAT_TOK) { + Error("%s, line %d, floating point number must follow BEGIN_SAMPLE", hpfile, linenum); + } + if (thefloatish < lastsample) { + Error("%s, line %d, samples out of sequence", hpfile, linenum); + } else { + lastsample = thefloatish; } - if (nsamples >= nsamplemax) { - if (!samplemap) { - nsamplemax = N_SAMPLES; - samplemap = (floatish*) xmalloc(nsamplemax * sizeof(floatish)); - } else { - nsamplemax *= 2; - samplemap = (floatish*) xrealloc(samplemap, - nsamplemax * sizeof(floatish)); - } - } - samplemap[ nsamples ] = thefloatish; - GetHpTok(infp, 1); - break; + if (nsamples >= nsamplemax) { + if (!samplemap) { + nsamplemax = N_SAMPLES; + samplemap = (floatish*) xmalloc(nsamplemax * sizeof(floatish)); + } else { + nsamplemax *= 2; + samplemap = (floatish*) xrealloc(samplemap, + nsamplemax * sizeof(floatish)); + } + } + samplemap[ nsamples ] = thefloatish; + GetHpTok(infp, 1); + break; case END_SAMPLE_TOK: - insample = 0; - GetHpTok(infp, 0); - if (thetok != FLOAT_TOK) { - Error("%s, line %d: floating point number must follow END_SAMPLE", + insample = 0; + GetHpTok(infp, 0); + if (thetok != FLOAT_TOK) { + Error("%s, line %d: floating point number must follow END_SAMPLE", hpfile, linenum); - } + } nsamples++; - GetHpTok(infp, 1); - break; + GetHpTok(infp, 1); + break; case IDENTIFIER_TOK: - GetHpTok(infp, 0); - if (thetok != INTEGER_TOK) { - Error("%s, line %d: integer must follow identifier", hpfile, + GetHpTok(infp, 0); + if (thetok != INTEGER_TOK) { + Error("%s, line %d: integer must follow identifier", hpfile, linenum); - } + } StoreSample(GetEntry(theident), nsamples, thefloatish); - GetHpTok(infp, 1); + GetHpTok(infp, 1); break; case EOF_TOK: endfile = 1; - break; + break; default: - Error("%s, line %d: %s unexpected", hpfile, linenum, - TokenToString(thetok)); - break; + Error("%s, line %d: %s unexpected", hpfile, linenum, + TokenToString(thetok)); + break; } } @@ -249,23 +249,23 @@ char * TokenToString(token t) { switch (t) { - case EOF_TOK: return "EOF"; - case INTEGER_TOK: return "integer"; - case FLOAT_TOK: return "floating point number"; - case IDENTIFIER_TOK: return "identifier"; - case STRING_TOK: return "string"; - case BEGIN_SAMPLE_TOK: return "BEGIN_SAMPLE"; - case END_SAMPLE_TOK: return "END_SAMPLE"; - case JOB_TOK: return "JOB"; - case DATE_TOK: return "DATE"; - case SAMPLE_UNIT_TOK: return "SAMPLE_UNIT"; - case VALUE_UNIT_TOK: return "VALUE_UNIT"; - case MARK_TOK: return "MARK"; - - case X_RANGE_TOK: return "X_RANGE"; - case Y_RANGE_TOK: return "Y_RANGE"; - case ORDER_TOK: return "ORDER"; - case SHADE_TOK: return "SHADE"; + case EOF_TOK: return "EOF"; + case INTEGER_TOK: return "integer"; + case FLOAT_TOK: return "floating point number"; + case IDENTIFIER_TOK: return "identifier"; + case STRING_TOK: return "string"; + case BEGIN_SAMPLE_TOK: return "BEGIN_SAMPLE"; + case END_SAMPLE_TOK: return "END_SAMPLE"; + case JOB_TOK: return "JOB"; + case DATE_TOK: return "DATE"; + case SAMPLE_UNIT_TOK: return "SAMPLE_UNIT"; + case VALUE_UNIT_TOK: return "VALUE_UNIT"; + case MARK_TOK: return "MARK"; + + case X_RANGE_TOK: return "X_RANGE"; + case Y_RANGE_TOK: return "Y_RANGE"; + case ORDER_TOK: return "ORDER"; + case SHADE_TOK: return "SHADE"; default: return "(strange token)"; } } @@ -285,47 +285,47 @@ GetHpTok(FILE *infp, int startline) { while (isspace(ch)) { /* skip whitespace */ - if (ch == '\n') linenum++; - ch = getc(infp); + if (ch == '\n') linenum++; + ch = getc(infp); } if (ch == EOF) { - thetok = EOF_TOK; - return; + thetok = EOF_TOK; + return; } if (isdigit(ch) && !startline) { - /* there should not be numbers at start of line */ - thetok = GetNumber(infp); - return; + /* there should not be numbers at start of line */ + thetok = GetNumber(infp); + return; } else if (ch == '\"') { - GetString(infp); - thetok = STRING_TOK; - return; + GetString(infp); + thetok = STRING_TOK; + return; } else if (IsIdChar(ch)) { - GetIdent(infp); - if (!isupper((int)theident[0])) { - thetok = IDENTIFIER_TOK; - } else if (strcmp(theident, "BEGIN_SAMPLE") == 0) { + GetIdent(infp); + if (!isupper((int)theident[0])) { + thetok = IDENTIFIER_TOK; + } else if (strcmp(theident, "BEGIN_SAMPLE") == 0) { thetok = BEGIN_SAMPLE_TOK; - } else if (strcmp(theident, "END_SAMPLE") == 0) { + } else if (strcmp(theident, "END_SAMPLE") == 0) { thetok = END_SAMPLE_TOK; - } else if (strcmp(theident, "JOB") == 0) { - thetok = JOB_TOK; - } else if (strcmp(theident, "DATE") == 0) { - thetok = DATE_TOK; - } else if (strcmp(theident, "SAMPLE_UNIT") == 0) { - thetok = SAMPLE_UNIT_TOK; - } else if (strcmp(theident, "VALUE_UNIT") == 0) { - thetok = VALUE_UNIT_TOK; - } else if (strcmp(theident, "MARK") == 0) { - thetok = MARK_TOK; - } else { + } else if (strcmp(theident, "JOB") == 0) { + thetok = JOB_TOK; + } else if (strcmp(theident, "DATE") == 0) { + thetok = DATE_TOK; + } else if (strcmp(theident, "SAMPLE_UNIT") == 0) { + thetok = SAMPLE_UNIT_TOK; + } else if (strcmp(theident, "VALUE_UNIT") == 0) { + thetok = VALUE_UNIT_TOK; + } else if (strcmp(theident, "MARK") == 0) { + thetok = MARK_TOK; + } else { thetok = IDENTIFIER_TOK; - } - return; + } + return; } else { - Error("%s, line %d: strange character (%c)", hpfile, linenum, ch); + Error("%s, line %d: strange character (%c)", hpfile, linenum, ch); } } @@ -360,7 +360,7 @@ GetNumber(FILE *infp) if (containsdot) { thefloatish = (floatish) atof(numberstring); - return FLOAT_TOK; + return FLOAT_TOK; } else { theinteger = atoi(numberstring); /* Set thefloatish too. @@ -384,56 +384,59 @@ GetIdent(FILE *infp) char idbuffer[5000]; for (i = 0; i < (sizeof idbuffer)-1 && IsIdChar(ch); i++) { - idbuffer[ i ] = ch; - ch = getc(infp); + idbuffer[ i ] = ch; + ch = getc(infp); } idbuffer[ i ] = '\0'; if (theident) - free(theident); + free(theident); theident = copystring(idbuffer); } /* - * Read a sequence of characters that make up a string and assign the result to - * "thestring". A string is surrounded by double quotes, with a double quote - * itself escaped as two contiguous double quotes. + * Read a sequence of characters that make up a string and + * assign the result to "thestring". */ void GetString(FILE *infp) { - size_t stringbuffersize = 5000; - char *stringbuffer = xmalloc(stringbuffersize); + unsigned int i; + char *stringbuffer; + size_t stringbuffersize; ASSERT(ch == '\"'); - ch = getc(infp); /* skip the '\"' that begins the string */ + stringbuffersize = 5000; + stringbuffer = xmalloc(stringbuffersize); + + ch = getc(infp); /* skip the '\"' that begins the string */ - for (size_t i = 0; ; ++i) { + i = 0; + while (ch != '\"') { if (ch == EOF) { - Error("%s, line %d: EOF when expecting \"", hpfile, linenum, ch); + Error("%s, line %d: EOF when expecting \"", hpfile, linenum, ch); } - if (i == stringbuffersize) { - stringbuffersize *= 2; + else if (i == stringbuffersize - 1) { + stringbuffersize = 2 * stringbuffersize; stringbuffer = xrealloc(stringbuffer, stringbuffersize); } - if (ch == '\"') { - ch = getc(infp); - if (ch != '\"') { - stringbuffer[i] = '\0'; - break; - } - } - stringbuffer[i] = ch; + stringbuffer[ i++ ] = ch; ch = getc(infp); } + stringbuffer[i] = '\0'; thestring = copystring(stringbuffer); + free(stringbuffer); + + ASSERT(ch == '\"'); + + ch = getc(infp); /* skip the '\"' that terminates the string */ } boolish @@ -449,7 +452,7 @@ IsIdChar(int ch) * of chunks to be retrieved given an identifier name. */ -#define N_HASH 513 +#define N_HASH 513 static struct entry* hashtable[ N_HASH ]; @@ -525,7 +528,7 @@ GetEntry(char *name) } if (e) { - return (e); + return (e); } else { nidents++; e = MakeEntry(name); @@ -546,18 +549,18 @@ StoreSample(struct entry *en, intish bucket, floatish value) struct chunk* chk; for (chk = en->chk; chk->next != 0; chk = chk->next) - ; + ; if (chk->nd < N_CHUNK) { - chk->d[ chk->nd ].bucket = bucket; - chk->d[ chk->nd ].value = value; - chk->nd += 1; + chk->d[ chk->nd ].bucket = bucket; + chk->d[ chk->nd ].value = value; + chk->nd += 1; } else { - struct chunk* t; - t = chk->next = MakeChunk(); - t->d[ 0 ].bucket = bucket; - t->d[ 0 ].value = value; - t->nd += 1; + struct chunk* t; + t = chk->next = MakeChunk(); + t->d[ 0 ].bucket = bucket; + t->d[ 0 ].value = value; + t->nd += 1; } } @@ -580,7 +583,7 @@ MakeIdentTable(void) nidents = 0; for (i = 0; i < N_HASH; i++) { for (e = hashtable[ i ]; e; e = e->next) { - nidents++; + nidents++; } } @@ -589,7 +592,7 @@ MakeIdentTable(void) for (i = 0; i < N_HASH; i++) { for (e = hashtable[ i ]; e; e = e->next, j++) { - identtable[ j ] = e; + identtable[ j ] = e; } } } |