Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-10 04:43:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

diagnostics: style changes

Browse Source 
* src/location.c (location_caret): Clarify a bit.
This commit is contained in:
Akim Demaille
2019-03-23 07:28:35 +01:00
parent 4d34b06fb3
commit 5de4e79fc8
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/location.c
View File

@@ -183,7 +183,8 @@ location_caret (location loc, const char *style, FILE *out)
int c = getc (caret_info.source);
if (c != EOF)
{
/* Quote the file, indent by a single column. */
/* Quote the file (at most first line in the case of multiline
location). Indent by a single column. */
fputc (' ', out);
int col = 0;
do
@@ -204,17 +205,17 @@ location_caret (location loc, const char *style, FILE *out)
putc ('\n', out);
{
/* The caret of a multiline location ends with the first line. */
size_t len = loc.start.line != loc.end.line
? ftell (caret_info.source) - caret_info.offset
: loc.end.column;
int i;
/* Print the carets (at least one), with the same indent as above.*/
/* Print the carets with the same indentation as above. */
fprintf (out, " %*s", loc.start.column - 1, "");
begin_use_class (style, out);
for (i = loc.start.column; i == loc.start.column || i < len; ++i)
putc (i == loc.start.column ? '^' : '~', out);
putc ('^', out);
/* Underlining a multiline location ends with the first
line. */
int len = loc.start.line != loc.end.line
? ftell (caret_info.source) - caret_info.offset
: loc.end.column;
for (int i = loc.start.column + 1; i < len; ++i)
putc ('~', out);
end_use_class (style, out);
}
putc ('\n', out);