aboutsummaryrefslogtreecommitdiff
path: root/odb/diagnostics.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'odb/diagnostics.cxx')
-rw-r--r--odb/diagnostics.cxx105
1 files changed, 105 insertions, 0 deletions
diff --git a/odb/diagnostics.cxx b/odb/diagnostics.cxx
new file mode 100644
index 0000000..2b61370
--- /dev/null
+++ b/odb/diagnostics.cxx
@@ -0,0 +1,105 @@
+// file : odb/diagnostics.cxx
+// author : Boris Kolpackov <boris@codesynthesis.com>
+// copyright : Copyright (c) 2009-2011 Code Synthesis Tools CC
+// license : GNU GPL v3; see accompanying LICENSE file
+
+#include <odb/gcc.hxx>
+#include <odb/diagnostics.hxx>
+
+using namespace std;
+
+std::ostream&
+error (cutl::fs::path const& p, size_t line, size_t clmn)
+{
+ //@@ We only need to do this if we are still parsing (i.e.,
+ // pragma parsing). Is there a way to detect this?
+ //
+ errorcount++;
+
+ cerr << p << ':' << line << ':' << clmn << ": error: ";
+ return cerr;
+}
+
+std::ostream&
+warn (cutl::fs::path const& p, size_t line, size_t clmn)
+{
+ warningcount++;
+
+ cerr << p << ':' << line << ':' << clmn << ": warning: ";
+ return cerr;
+}
+
+std::ostream&
+info (cutl::fs::path const& p, size_t line, size_t clmn)
+{
+ cerr << p << ':' << line << ':' << clmn << ": info: ";
+ return cerr;
+}
+
+std::ostream&
+error (location_t loc)
+{
+ errorcount++;
+ cerr << LOCATION_FILE (loc) << ':'
+ << LOCATION_LINE (loc) << ':'
+ << LOCATION_COLUMN (loc) << ':'
+ << " error: ";
+ return cerr;
+}
+
+std::ostream&
+warn (location_t loc)
+{
+ warningcount++;
+ cerr << LOCATION_FILE (loc) << ':'
+ << LOCATION_LINE (loc) << ':'
+ << LOCATION_COLUMN (loc) << ':'
+ << " warning: ";
+ return cerr;
+}
+
+std::ostream&
+info (location_t loc)
+{
+ cerr << LOCATION_FILE (loc) << ':'
+ << LOCATION_LINE (loc) << ':'
+ << LOCATION_COLUMN (loc) << ':'
+ << " info: ";
+ return cerr;
+}
+
+std::ostream&
+error ()
+{
+ return error (input_location);
+}
+
+std::ostream&
+warn ()
+{
+ return warn (input_location);
+}
+
+std::ostream&
+info ()
+{
+ return info (input_location);
+}
+
+cutl::fs::path
+location_file (location_t loc)
+{
+ return cutl::fs::path (LOCATION_FILE (loc));
+}
+
+size_t
+location_line (location_t loc)
+{
+ return LOCATION_LINE (loc);
+}
+
+size_t
+location_column (location_t loc)
+{
+ return LOCATION_COLUMN (loc);
+}