1 files changed, 25 insertions, 0 deletions
diff --git a/tools/build/src/engine/modules/path.c b/tools/build/src/engine/modules/path.c
new file mode 100644
index 0000000000..f8dedaccd5
--- /dev/null
+++ b/tools/build/src/engine/modules/path.c
@@ -0,0 +1,25 @@
+/* Copyright Vladimir Prus 2003.
+ * Distributed under the Boost Software License, Version 1.0.
+ * (See accompanying file LICENSE_1_0.txt or copy at
+ * http://www.boost.org/LICENSE_1_0.txt)
+ */
+
+#include "../constants.h"
+#include "../frames.h"
+#include "../lists.h"
+#include "../native.h"
+#include "../timestamp.h"
+
+
+LIST * path_exists( FRAME * frame, int flags )
+{
+    return file_query( list_front( lol_get( frame->args, 0 ) ) ) ?
+        list_new( object_copy( constant_true ) ) : L0;
+}
+
+
+void init_path()
+{
+    char const * args[] = { "location", 0 };
+    declare_native_rule( "path", "exists", args, path_exists, 1 );
+}