From 5c02cc13dca629d11595f6e408ffa2fb0f935913 Mon Sep 17 00:00:00 2001
From: Vladimir Prus <ghost@cs.msu.su>
Date: Mon, 8 Jul 2002 09:50:43 +0000
Subject: [PATCH] Add "--dump-project" command line option.

[SVN r14340]
---
 new/build-system.jam | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/new/build-system.jam b/new/build-system.jam
index 5435573ca..1f9b8dde9 100644
--- a/new/build-system.jam
+++ b/new/build-system.jam
@@ -14,6 +14,11 @@ import site-config ;
 import user-config ;
 
 current-project = [ project.load "."  ] ;
+if [ MATCH (--dump-projects) : [ modules.peek : ARGV ] ]
+{
+    project-root.print ;
+}
+
 build-request = [ build-request.from-command-line [ modules.peek : ARGV ] ] ;
 
 targets = [ $(build-request).get-at 1 ] ;