From b1114caf4f8314205966a0e34b3302f0f1a3b1f4 Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Mon, 29 Jun 2015 22:39:50 +0700
Subject: [PATCH] [console] Allow showing properties from command line.

* sources/environment/commands/properties.dylan
  (parse-next-argument on <command-property>): New method for parsing
    an argument and converting it to a <command-property>.

* sources/environment/console/command-line.dylan
  (class <basic-main-command>): Add slot for %show.
  (do-execute-command): Handle -show being passed by invoking the
    show property command.

* sources/environment/console/compiler-command-line.dylan
  (command-line main): Add new show keyword parameter.

* sources/environment/console/environment-command-line.dylan
  (command-line main): Add new show keyword parameter.
---
 sources/environment/commands/properties.dylan       | 13 +++++++++++++
 sources/environment/console/command-line.dylan      |  4 ++++
 .../environment/console/compiler-command-line.dylan |  2 ++
 .../console/environment-command-line.dylan          |  2 ++
 4 files changed, 21 insertions(+)

diff --git a/sources/environment/commands/properties.dylan b/sources/environment/commands/properties.dylan
index c9f77b1c4d..fd426145ac 100644
--- a/sources/environment/commands/properties.dylan
+++ b/sources/environment/commands/properties.dylan
@@ -20,6 +20,19 @@ define method parameter-type-name
   "property"
 end method parameter-type-name;
 
+define method parse-next-argument
+    (context :: <server-context>, type == <command-property>, text :: <string>,
+     #key start :: <integer> = 0, end: stop = #f)
+ => (value :: <command-property>, next-index :: <integer>)
+  let (name, next-index)
+    = parse-next-word(text, start: start, end: stop);
+  if (name)
+    values(find-named-property(context, as(<symbol>, name)), next-index)
+  else
+    parse-error("Missing keyword argument")
+  end
+end method parse-next-argument;
+
 define open generic ensure-property-available
     (context :: <server-context>, property :: <command-property>)
  => ();
diff --git a/sources/environment/console/command-line.dylan b/sources/environment/console/command-line.dylan
index 88f347b97c..98cdaf86d5 100644
--- a/sources/environment/console/command-line.dylan
+++ b/sources/environment/console/command-line.dylan
@@ -19,6 +19,8 @@ define abstract class <basic-main-command> (<basic-command>)
     init-keyword: internal-debug:;
   constant slot %project :: false-or(<file-locator>) = #f,
     init-keyword: project:;
+  constant slot %show           :: false-or(<command-property>) = #f,
+    init-keyword: show:;
   constant slot %help?          :: <boolean> = #f,
     init-keyword: help?:;
   constant slot %logo?          :: <boolean> = #f,
@@ -169,6 +171,8 @@ define method do-execute-command
       run(<version-command>)
     elseif (command.%shortversion?)
       run(<version-command>, short: "short")
+    elseif (command.%show)
+      run(<show-property-command>, property: command.%show);
     else
       command.%logo? & message(context, dylan-banner());
       let personal-root = command.%personal-root;
diff --git a/sources/environment/console/compiler-command-line.dylan b/sources/environment/console/compiler-command-line.dylan
index ec8e57d90b..bbeb5ce753 100644
--- a/sources/environment/console/compiler-command-line.dylan
+++ b/sources/environment/console/compiler-command-line.dylan
@@ -28,6 +28,8 @@ define command-line main => <main-command>
   flag echo-input       = "echoes all input to the console";
   flag verbose          = "show verbose output";
 
+  keyword show :: <command-property> = "show a compiler setting";
+
   flag import           = "import the project";
   flag build            = "build the project";
   flag compile          = "compile the project";
diff --git a/sources/environment/console/environment-command-line.dylan b/sources/environment/console/environment-command-line.dylan
index c3c9419c50..9aa06f20f1 100644
--- a/sources/environment/console/environment-command-line.dylan
+++ b/sources/environment/console/environment-command-line.dylan
@@ -104,6 +104,8 @@ define command-line main => <main-command>
   flag echo-input       = "echoes all input to the console";
   flag verbose          = "show verbose output";
 
+  keyword show :: <command-property> = "show a compiler setting";
+
   flag import           = "import the project";
   flag build            = "build the project";
   flag compile          = "compile the project";