From 7ca76ef74312b2ce594e470331bce48f8d656f71 Mon Sep 17 00:00:00 2001
From: axel <axel@liljencrantz.se>
Date: Mon, 23 Apr 2007 07:15:34 +1000
Subject: [PATCH] Make 'functions' builtin print named arguments of functions

darcs-hash:20070422211534-ac50b-3293f1d733a8a3be760f344598bfae8b77647b2f.gz
---
 builtin.c | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/builtin.c b/builtin.c
index 79a65d2b9..8a29de26a 100644
--- a/builtin.c
+++ b/builtin.c
@@ -788,8 +788,8 @@ static void functions_def( wchar_t *name, string_buffer_t *out )
 
 	array_list_t ev;
 	event_t search;
-
 	int i;
+	array_list_t *named;
 
 	search.function_name = name;
 	search.type = EVENT_ANY;
@@ -850,6 +850,17 @@ static void functions_def( wchar_t *name, string_buffer_t *out )
 
 	al_destroy( &ev );
 
+	named = function_get_named_arguments( name );
+	if( named )
+	{
+		sb_printf( out, L" --argument" );
+		for( i=0; i<al_get_count( named ); i++ )
+		{
+			sb_printf( out, L" %ls", (wchar_t *)al_get( named, i ) );
+		}
+	}
+	
+
 	sb_printf( out, L"\n\t%ls\nend\n", def );
 }
 
@@ -1205,7 +1216,7 @@ static int builtin_function( wchar_t **argv )
 							   _( L"%ls: Invalid variable name '%ls'\n" ),
 							   argv[0],
 							   woptarg );
-					res=1;
+					res=STATUS_BUILTIN_ERROR;
 					break;
 				}