]> git.saurik.com Git - bison.git/blame - src/location.c
introduce -Wdeprecated
[bison.git] / src / location.c
CommitLineData
8efe435c 1/* Locations for Bison
7d424de1 2
34136e65 3 Copyright (C) 2002, 2005-2012 Free Software Foundation, Inc.
8efe435c
AD
4
5 This file is part of Bison, the GNU Compiler Compiler.
6
f16b0819 7 This program is free software: you can redistribute it and/or modify
8efe435c 8 it under the terms of the GNU General Public License as published by
f16b0819
PE
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
8efe435c 11
f16b0819 12 This program is distributed in the hope that it will be useful,
8efe435c
AD
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
f16b0819 18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
8efe435c 19
2cec9080 20#include <config.h>
1a715ef2 21#include "system.h"
81ebdef9 22
0c8e079f 23#include <mbswidth.h>
b17a1fc5 24#include <quotearg.h>
8efe435c 25
0c8e079f 26#include "complain.h"
81ebdef9
PE
27#include "location.h"
28
28e52c0d 29location const empty_location = EMPTY_LOCATION_INIT;
b17a1fc5 30
e9071366
AD
31/* If BUF is null, add BUFSIZE (which in this case must be less than
32 INT_MAX) to COLUMN; otherwise, add mbsnwidth (BUF, BUFSIZE, 0) to
33 COLUMN. If an overflow occurs, or might occur but is undetectable,
34 return INT_MAX. Assume COLUMN is nonnegative. */
35
36static inline int
37add_column_width (int column, char const *buf, size_t bufsize)
38{
39 size_t width;
40 unsigned int remaining_columns = INT_MAX - column;
41
42 if (buf)
43 {
44 if (INT_MAX / 2 <= bufsize)
e9690142 45 return INT_MAX;
e9071366
AD
46 width = mbsnwidth (buf, bufsize, 0);
47 }
48 else
49 width = bufsize;
50
51 return width <= remaining_columns ? column + width : INT_MAX;
52}
53
54/* Set *LOC and adjust scanner cursor to account for token TOKEN of
55 size SIZE. */
56
57void
58location_compute (location *loc, boundary *cur, char const *token, size_t size)
59{
60 int line = cur->line;
61 int column = cur->column;
62 char const *p0 = token;
63 char const *p = token;
64 char const *lim = token + size;
65
66 loc->start = *cur;
67
68 for (p = token; p < lim; p++)
69 switch (*p)
70 {
71 case '\n':
e9690142
JD
72 line += line < INT_MAX;
73 column = 1;
74 p0 = p + 1;
75 break;
e9071366
AD
76
77 case '\t':
e9690142
JD
78 column = add_column_width (column, p0, p - p0);
79 column = add_column_width (column, NULL, 8 - ((column - 1) & 7));
80 p0 = p + 1;
81 break;
e9071366
AD
82
83 default:
e9690142 84 break;
e9071366
AD
85 }
86
87 cur->line = line;
88 cur->column = column = add_column_width (column, p0, p - p0);
89
90 loc->end = *cur;
91
92 if (line == INT_MAX && loc->start.line != INT_MAX)
6fb8b256 93 complain_at (*loc, Wother, _("line number overflow"));
e9071366 94 if (column == INT_MAX && loc->start.column != INT_MAX)
6fb8b256 95 complain_at (*loc, Wother, _("column number overflow"));
e9071366
AD
96}
97
98
b17a1fc5
PE
99/* Output to OUT the location LOC.
100 Warning: it uses quotearg's slot 3. */
66381412 101unsigned
81ebdef9 102location_print (FILE *out, location loc)
b17a1fc5 103{
66381412 104 unsigned res = 0;
92822aff 105 int end_col = 0 != loc.end.column ? loc.end.column - 1 : 0;
66381412
AR
106 res += fprintf (out, "%s",
107 quotearg_n_style (3, escape_quoting_style, loc.start.file));
92822aff
JD
108 if (0 <= loc.start.line)
109 {
66381412 110 res += fprintf(out, ":%d", loc.start.line);
92822aff 111 if (0 <= loc.start.column)
66381412 112 res += fprintf (out, ".%d", loc.start.column);
92822aff 113 }
b17a1fc5 114 if (loc.start.file != loc.end.file)
92822aff 115 {
66381412
AR
116 res += fprintf (out, "-%s",
117 quotearg_n_style (3, escape_quoting_style,
118 loc.end.file));
92822aff
JD
119 if (0 <= loc.end.line)
120 {
66381412 121 res += fprintf(out, ":%d", loc.end.line);
92822aff 122 if (0 <= end_col)
66381412 123 res += fprintf (out, ".%d", end_col);
92822aff
JD
124 }
125 }
126 else if (0 <= loc.end.line)
127 {
128 if (loc.start.line < loc.end.line)
129 {
66381412 130 res += fprintf (out, "-%d", loc.end.line);
92822aff 131 if (0 <= end_col)
66381412 132 res += fprintf (out, ".%d", end_col);
92822aff
JD
133 }
134 else if (0 <= end_col && loc.start.column < end_col)
66381412 135 res += fprintf (out, "-%d", end_col);
92822aff 136 }
66381412
AR
137
138 return res;
b17a1fc5 139}
3fc65ead
JD
140
141void
142boundary_set_from_string (boundary *bound, char *loc_str)
143{
144 /* Must search in reverse since the file name field may
145 * contain `.' or `:'. */
84526bf3 146 char *delim = strrchr (loc_str, '.');
3fc65ead
JD
147 aver (delim);
148 *delim = '\0';
149 bound->column = atoi (delim+1);
84526bf3 150 delim = strrchr (loc_str, ':');
3fc65ead
JD
151 aver (delim);
152 *delim = '\0';
153 bound->line = atoi (delim+1);
154 bound->file = uniqstr_new (loc_str);
155}