# include <iostream>
# include <string>
+# include <algorithm>
namespace ]b4_namespace[
{
]m4_ifdef([b4_location_constructors], [
/// Construct a position.
position ()
- : filename (0), line (1), column (0)
+ : filename (0), line (]b4_location_initial_line[), column (]b4_location_initial_column[)
{
}
inline void initialize (]b4_filename_type[* fn)
{
filename = fn;
- line = 1;
- column = 0;
+ line = ]b4_location_initial_line[;
+ column = ]b4_location_initial_column[;
}
/** \name Line and Column related manipulators
/// (line related) Advance to the COUNT next lines.
inline void lines (int count = 1)
{
- column = 0;
+ column = ]b4_location_initial_column[;
line += count;
}
/// (column related) Advance to the COUNT next columns.
inline void columns (int count = 1)
{
- int leftmost = 0;
- int current = column;
- if (leftmost <= current + count)
- column += count;
- else
- column = 0;
+ column = std::max (]b4_location_initial_column[u, column + count);
}
/** \} */
{
return begin + -width;
}
+]m4_if(b4_define_location_comparison, [1], [[
+ /// Compare two position objects.
+ inline bool
+ operator== (const position& pos1, const position& pos2)
+ {
+ return
+ (pos1.filename == pos2.filename
+ || pos1.filename && pos2.filename && *pos1.filename == *pos2.filename)
+ && pos1.line == pos2.line && pos1.column == pos2.column;
+ }
+ /// Compare two position objects.
+ inline bool
+ operator!= (const position& pos1, const position& pos2)
+ {
+ return !(pos1 == pos2);
+ }
+]])[
/** \brief Intercept output stream redirection.
** \param ostr the destination output stream
** \param pos a reference to the position to redirect
res.columns (width);
return res;
}
+]m4_if(b4_define_location_comparison, [1], [[
+ /// Compare two location objects.
+ inline bool
+ operator== (const location& loc1, const location& loc2)
+ {
+ return loc1.begin == loc2.begin && loc1.end == loc2.end;
+ }
+ /// Compare two location objects.
+ inline bool
+ operator!= (const location& loc1, const location& loc2)
+ {
+ return !(loc1 == loc2);
+ }
+]])[
/** \brief Intercept output stream redirection.
** \param ostr the destination output stream
** \param loc a reference to the location to redirect