Implement tracing support

Also use to-relative path translation in diagnostics.

2 files changed, 201 insertions, 0 deletions

diff --git a/tests/build/lexer/buildfile b/tests/build/lexer/buildfile
new file mode 100644
index 0000000..06e1f75
--- /dev/null
+++ b/tests/build/lexer/buildfile
@@ -0,0 +1,8 @@
+exe{driver}: obj{driver ../../../build/lexer}
+
+obj{driver}: cxx{driver}
+
+../../../build/:
+{
+  obj{lexer}: cxx{lexer}
+}
diff --git a/tests/build/path/driver.cxx b/tests/build/path/driver.cxx
new file mode 100644
index 0000000..739146b
--- /dev/null
+++ b/tests/build/path/driver.cxx
@@ -0,0 +1,193 @@
+// file      : tests/build/path/driver.cxx -*- C++ -*-
+// copyright : Copyright (c) 2014-2015 Code Synthesis Tools CC
+// license   : MIT; see accompanying LICENSE file
+
+#include <cassert>
+#include <iostream>
+
+#include <build/path>
+
+using namespace std;
+using namespace build;
+
+int
+main ()
+{
+  assert (path ("/").string () == "/");
+  assert (path ("//").string () == "/");
+  assert (path ("/tmp/foo/").string () == "/tmp/foo");
+#ifdef _WIN32
+  assert (path ("\\\\").string () == "\\");
+  assert (path ("/\\").string () == "/");
+  assert (path ("C:").string () == "C:");
+  assert (path ("C:\\").string () == "C:");
+  assert (path ("C:\\tmp\\foo\\").string () == "C:\\tmp\\foo");
+#endif
+
+  // abslote/relative/root
+  //
+#ifndef _WIN32
+  assert (path ("/").root ());
+  assert (path ("//").root ());
+  assert (path ("/").absolute ());
+  assert (path ("/foo/bar").absolute ());
+  assert (path ("bar/baz").relative ());
+#else
+  assert (path ("C:").root ());
+  assert (path ("C:\\").root ());
+  assert (path ("C:\\").absolute ());
+  assert (path ("C:\\foo\\bar").absolute ());
+  assert (path ("bar\\baz").relative ());
+#endif
+
+
+  // leaf
+  //
+#ifndef _WIN32
+  assert (path ("/").leaf ().string () == "");
+  assert (path ("/tmp").leaf ().string () == "tmp");
+  assert (path ("//tmp").leaf ().string () == "tmp");
+#else
+  assert (path ("C:").leaf ().string () == "C:");
+  assert (path ("C:\\tmp").leaf ().string () == "tmp");
+  assert (path ("C:\\\\tmp").leaf ().string () == "tmp");
+#endif
+
+  // directory
+  //
+#ifndef _WIN32
+  assert (path ("/").directory ().string () == "");
+  assert (path ("/tmp").directory ().string () == "/");
+  assert (path ("//tmp").directory ().string () == "/");
+#else
+  assert (path ("C:").directory ().string () == "");
+  assert (path ("C:\\tmp").directory ().string () == "C:");
+  assert (path ("C:\\\\tmp").directory ().string () == "C:");
+#endif
+
+  // base
+  //
+  assert (path ("/").base ().string () == "/");
+  assert (path ("/foo.txt").base ().string () == "/foo");
+  assert (path (".txt").base ().string () == ".txt");
+  assert (path ("/.txt").base ().string () == "/.txt");
+  assert (path ("foo.txt.orig").base ().string () == "foo.txt");
+#ifdef _WIN32
+  assert (path ("C:").base ().string () == "C:");
+  assert (path ("C:\\foo.txt").base ().string () == "C:\\foo");
+#endif
+
+  // operator/
+  //
+#ifndef _WIN32
+  assert ((path ("/") / path ("tmp")).string () == "/tmp");
+  assert ((path ("foo") / path ("bar")).string () == "foo/bar");
+#else
+  assert ((path ("\\") / path ("tmp")).string () == "\\tmp");
+  assert ((path ("C:\\") / path ("tmp")).string () == "C:\\tmp");
+  assert ((path ("foo") / path ("bar")).string () == "foo\\bar");
+#endif
+
+  // normalize
+  //
+#ifndef _WIN32
+  assert (path ("../foo").normalize ().string () == "../foo");
+  assert (path ("..///foo").normalize ().string () == "../foo");
+  assert (path ("../../foo").normalize ().string () == "../../foo");
+  assert (path (".././foo").normalize ().string () == "../foo");
+  assert (path (".").normalize ().string () == "");
+  assert (path ("./..").normalize ().string () == "..");
+  assert (path ("../.").normalize ().string () == "..");
+  assert (path ("foo/./..").normalize ().string () == "");
+  assert (path ("/foo/./..").normalize ().string () == "/");
+  assert (path ("./foo").normalize ().string () == "foo");
+#else
+  assert (path ("../foo").normalize ().string () == "..\\foo");
+  assert (path ("..///foo").normalize ().string () == "..\\foo");
+  assert (path ("..\\../foo").normalize ().string () == "..\\..\\foo");
+  assert (path (".././foo").normalize ().string () == "..\\foo");
+  assert (path (".").normalize ().string () == "");
+  assert (path ("./..").normalize ().string () == "..");
+  assert (path ("../.").normalize ().string () == "..");
+  assert (path ("foo/./..").normalize ().string () == "");
+  assert (path ("C:/foo/./..").normalize ().string () == "C:");
+  assert (path ("./foo").normalize ().string () == "foo");
+
+  assert (path ("C:").normalize ().string () == "C:");
+  assert (path ("C:\\Foo12//Bar").normalize ().string () == "C:\\Foo12\\Bar");
+#endif
+
+  // comparison
+  //
+  assert (path ("./foo") == path("./foo"));
+  assert (path ("./boo") < path("./foo"));
+#ifdef _WIN32
+  assert (path (".\\foo") == path("./FoO"));
+  assert (path (".\\boo") < path(".\\Foo"));
+#endif
+
+  // posix_string
+  //
+  assert (path ("foo/bar/../baz").posix_string () == "foo/bar/../baz");
+#ifdef _WIN32
+  assert (path ("foo\\bar\\..\\baz").posix_string () == "foo/bar/../baz");
+  try
+  {
+    path ("c:\\foo\\bar\\..\\baz").posix_string ();
+    assert (false);
+  }
+  catch (const invalid_path&) {}
+#endif
+
+  // sub
+  //
+  assert (path ("foo").sub (path ("foo")));
+  assert (path ("foo/bar").sub (path ("foo/bar")));
+  assert (path ("foo/bar").sub (path ("foo")));
+  assert (!path ("foo/bar").sub (path ("bar")));
+  assert (path ("/foo/bar").sub (path ("/foo")));
+  assert (path ("/foo/bar/baz").sub (path ("/foo/bar")));
+  assert (!path ("/foo/bar/baz").sub (path ("/foo/baz")));
+#ifdef _WIN32
+  assert (path ("c:").sub (path ("c:")));
+  assert (!path ("c:").sub (path ("d:")));
+  assert (path ("c:\\foo").sub (path ("c:")));
+#else
+  assert (path ("/foo/bar/baz").sub (path ("/")));
+#endif
+
+  // relative
+  //
+  assert (path ("foo").relative (path ("foo")) == path ());
+  assert (path ("foo/bar").relative (path ("foo/bar")) == path ());
+  assert (path ("foo/bar/baz").relative (path ("foo/bar")) == path ("baz"));
+  assert (path ("foo/bar/baz").relative (path ("foo/bar/buz")).
+    posix_string () == "../baz");
+  assert (path ("foo/bar/baz").relative (path ("foo/biz/baz")).
+    posix_string () == "../../bar/baz");
+  assert (path ("foo/bar/baz").relative (path ("fox/bar/baz")).
+    posix_string () == "../../../foo/bar/baz");
+#ifdef _WIN32
+  assert (path ("c:\\foo\\bar").relative (path ("c:\\fox\\bar")) ==
+          path ("..\\..\\foo\\bar"));
+  try
+  {
+    path ("c:\\foo\\bar").relative (path ("d:\\fox\\bar"));
+    assert (false);
+  }
+  catch (const invalid_path&) {}
+#else
+  assert (path ("/foo/bar/baz").relative (path ("/")) ==
+          path ("foo/bar/baz"));
+#endif
+
+  /*
+  path p ("../foo");
+  p.complete ();
+
+  cerr << path::current () << endl;
+  cerr << p << endl;
+  p.normalize ();
+  cerr << p << endl;
+  */
+}