---
 src/hal/utils/halsh.c |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/src/hal/utils/halsh.c b/src/hal/utils/halsh.c
index a2c97f9..3a4b96a 100644
--- a/src/hal/utils/halsh.c
+++ b/src/hal/utils/halsh.c
@@ -44,6 +44,16 @@ static int halCmd(ClientData cd, Tcl_Interp *interp, int 
argc, const char **argv
                 "wrong # args: should be \"", argv[0], " command ...\"", NULL);
         return TCL_ERROR;
     }
+
+    if(strcmp(argv[1], "--commands") == 0)
+    {
+        int i;
+        Tcl_ResetResult(interp);
+        for(i=0; i<halcmd_ncommands; i++)
+            Tcl_AppendElement(interp, halcmd_commands[i].name);
+        return TCL_OK;
+    }
+
     target_interp = interp;
     pending_cr = 0;
     result = halcmd_parse_cmd((char **)argv+1);
-- 
1.6.2.1.469.gdffc


------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Emc-developers mailing list
Emc-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-developers

Reply via email to