[Finsh] Add features to execute module.

1 files changed, 334 insertions, 260 deletions

diff --git a/components/finsh/msh.c b/components/finsh/msh.c
index c8fe2dc390..b6ebdf2ac9 100644
--- a/components/finsh/msh.c
+++ b/components/finsh/msh.c
@@ -24,21 +24,26 @@
  *
  * Change Logs:
  * Date           Author       Notes
- * 2013-03-30     Bernard      the first verion for FinSH
+ * 2013-03-30     Bernard      the first verion for finsh
+ * 2014-01-03     Bernard      msh can execute module.
  */
 
 #include "msh.h"
 #include <finsh.h>
 #include <shell.h>
 
-#define RT_FINSH_ARG_MAX	10
+#ifdef RT_USING_DFS
+#include <dfs_posix.h>
+#endif
+
+#define RT_FINSH_ARG_MAX    10
 typedef int (*cmd_function_t)(int argc, char** argv);
 
 #ifdef FINSH_USING_MSH
 #ifdef FINSH_USING_MSH_ONLY
 rt_bool_t msh_is_used(void)
 {
-	return RT_TRUE;
+    return RT_TRUE;
 }
 #else
 #ifdef FINSH_USING_MSH_DEFAULT
@@ -48,351 +53,420 @@ static rt_bool_t __msh_state = RT_FALSE;
 #endif
 rt_bool_t msh_is_used(void)
 {
-	return __msh_state;
+    return __msh_state;
 }
 
 static int msh_exit(int argc, char** argv)
 {
-	/* return to finsh shell mode */
-	__msh_state = RT_FALSE;
+    /* return to finsh shell mode */
+    __msh_state = RT_FALSE;
 
-	return 0;
+    return 0;
 }
 FINSH_FUNCTION_EXPORT_ALIAS(msh_exit, __cmd_exit, return to RT-Thread shell mode.);
 
 static int msh_enter(void)
 {
-	/* enter module shell mode */
-	__msh_state = RT_TRUE;
-	return 0;
+    /* enter module shell mode */
+    __msh_state = RT_TRUE;
+    return 0;
 }
 FINSH_FUNCTION_EXPORT_ALIAS(msh_enter, msh, use module shell);
 #endif
 
 int msh_help(int argc, char** argv)
 {
-	rt_kprintf("RT-Thread shell commands:\n");
-	{
-		struct finsh_syscall *index;
+    rt_kprintf("RT-Thread shell commands:\n");
+    {
+        struct finsh_syscall *index;
 
-		for (index = _syscall_table_begin;
-			index < _syscall_table_end;
-			FINSH_NEXT_SYSCALL(index))
-		{
-			if (strncmp(index->name, "__cmd_", 6) != 0) continue;
+        for (index = _syscall_table_begin;
+            index < _syscall_table_end;
+            FINSH_NEXT_SYSCALL(index))
+        {
+            if (strncmp(index->name, "__cmd_", 6) != 0) continue;
 #if defined(FINSH_USING_DESCRIPTION) && defined(FINSH_USING_SYMTAB)
-			rt_kprintf("%-16s - %s\n", &index->name[6], index->desc);
+            rt_kprintf("%-16s - %s\n", &index->name[6], index->desc);
 #else
-			rt_kprintf("%s ", &index->name[6]);
+            rt_kprintf("%s ", &index->name[6]);
 #endif
-		}
-	}
-	rt_kprintf("\n");
+        }
+    }
+    rt_kprintf("\n");
 
-	return 0;
+    return 0;
 }
 FINSH_FUNCTION_EXPORT_ALIAS(msh_help, __cmd_help, RT-Thread shell help.);
 
 static int msh_split(char* cmd, rt_size_t length, char* argv[RT_FINSH_ARG_MAX])
 {
-	char *ptr;
-	rt_size_t position;
-	rt_size_t argc;
+    char *ptr;
+    rt_size_t position;
+    rt_size_t argc;
 
-	ptr = cmd;
-	position = 0; argc = 0;
+    ptr = cmd;
+    position = 0; argc = 0;
 
-	while (position < length)
-	{
-		/* strip bank and tab */
-		while ((*ptr == ' ' || *ptr == '\t') && position < length)
-		{
-			*ptr = '\0';
-			ptr ++; position ++;
-		}
-		if (position >= length) break;
+    while (position < length)
+    {
+        /* strip bank and tab */
+        while ((*ptr == ' ' || *ptr == '\t') && position < length)
+        {
+            *ptr = '\0';
+            ptr ++; position ++;
+        }
+        if (position >= length) break;
 
-		/* handle string */
-		if (*ptr == '"')
-		{
-			ptr ++; position ++;
-			argv[argc] = ptr; argc ++;
+        /* handle string */
+        if (*ptr == '"')
+        {
+            ptr ++; position ++;
+            argv[argc] = ptr; argc ++;
 
-			/* skip this string */
-			while (*ptr != '"' && position < length)
-			{
-				if (*ptr == '\\')
-				{
-					if (*(ptr + 1) == '"')
-					{
-						ptr ++; position ++;
-					}
-				}
-				ptr ++; position ++;
-			}
-			if (position >= length) break;
+            /* skip this string */
+            while (*ptr != '"' && position < length)
+            {
+                if (*ptr == '\\')
+                {
+                    if (*(ptr + 1) == '"')
+                    {
+                        ptr ++; position ++;
+                    }
+                }
+                ptr ++; position ++;
+            }
+            if (position >= length) break;
 
-			/* skip '"' */
-			*ptr = '\0'; ptr ++; position ++;
-		}
-		else
-		{
-			argv[argc] = ptr;
-			argc ++;
-			while ((*ptr != ' ' && *ptr != '\t') && position < length)
-			{
-				ptr ++; position ++;
-			}
-			if (position >= length) break;
-		}
-	}
+            /* skip '"' */
+            *ptr = '\0'; ptr ++; position ++;
+        }
+        else
+        {
+            argv[argc] = ptr;
+            argc ++;
+            while ((*ptr != ' ' && *ptr != '\t') && position < length)
+            {
+                ptr ++; position ++;
+            }
+            if (position >= length) break;
+        }
+    }
 
-	return argc;
+    return argc;
 }
 
 static cmd_function_t msh_get_cmd(char *cmd)
 {
-	struct finsh_syscall *index;
-	cmd_function_t cmd_func = RT_NULL;
+    struct finsh_syscall *index;
+    cmd_function_t cmd_func = RT_NULL;
 
-	for (index = _syscall_table_begin;
-		index < _syscall_table_end;
-		FINSH_NEXT_SYSCALL(index))
-	{
-		if (strncmp(index->name, "__cmd_", 6) != 0) continue;
-		
-		if (strcmp(&index->name[6], cmd) == 0)
-		{
-			cmd_func = (cmd_function_t)index->func;
-			break;
-		}
-	}
+    for (index = _syscall_table_begin;
+        index < _syscall_table_end;
+        FINSH_NEXT_SYSCALL(index))
+    {
+        if (strncmp(index->name, "__cmd_", 6) != 0) continue;
+        
+        if (strcmp(&index->name[6], cmd) == 0)
+        {
+            cmd_func = (cmd_function_t)index->func;
+            break;
+        }
+    }
 
-	return cmd_func;
+    return cmd_func;
 }
 
+#if defined(RT_USING_MODULE) && defined(RT_USING_DFS)
+int msh_exec_module(int argc, char** argv)
+{
+    int fd = -1;
+    char *pg_name;
+    int length, cmd_length;
+
+    if (argc == 0) return -RT_ERROR; /* no command */
+
+    /* get name length */
+    cmd_length = rt_strlen(argv[0]); length = cmd_length + 32;
+
+    pg_name = (char*) rt_malloc(length);
+    if (pg_name == RT_NULL) return -RT_ENOMEM; /* no memory */
+
+    if (strstr(argv[0], ".mo") != RT_NULL || strstr(argv[0], ".MO") != RT_NULL)
+    {
+        /* try to open program */
+        if (fd < 0)
+        {
+            rt_snprintf(pg_name, length - 1, "%s", argv[0]);
+            fd = open(pg_name, O_RDONLY, 0);
+        }
+
+        /* search in /bin path */
+        if (fd < 0)
+        {
+            rt_snprintf(pg_name, length - 1, "/bin/%s", argv[0]);
+            fd = open(pg_name, O_RDONLY, 0);
+        }
+    }
+    else
+    {
+        /* add .mo and open program */
+
+        /* try to open program */
+        if (fd < 0)
+        {
+            rt_snprintf(pg_name, length - 1, "%s.mo", argv[0]);
+            fd = open(pg_name, O_RDONLY, 0);
+        }
+
+        /* search in /bin path */
+        if (fd < 0)
+        {
+            rt_snprintf(pg_name, length - 1, "/bin/%s.mo", argv[0]);
+            fd = open(pg_name, O_RDONLY, 0);
+        }
+    }
+    
+    if (fd >= 0)
+    {
+        /* found program */
+        close(fd);
+        rt_module_open(pg_name);
+    }
+    else
+    {
+        rt_kprintf("%s: program not found.\n", argv[0]);
+    }
+
+    rt_free(pg_name);
+    return 0;
+}
+#endif
+
 int msh_exec(char* cmd, rt_size_t length)
 {
-	int argc;
-	char *argv[RT_FINSH_ARG_MAX];
+    int argc;
+    char *argv[RT_FINSH_ARG_MAX];
 
-	cmd_function_t cmd_func;
+    cmd_function_t cmd_func;
 
-	memset(argv, 0x00, sizeof(argv));
-	argc = msh_split(cmd, length, argv);
-	if (argc == 0) return -1;
+    memset(argv, 0x00, sizeof(argv));
+    argc = msh_split(cmd, length, argv);
+    if (argc == 0) return -1;
 
-	/* get command in internal commands */
-	cmd_func = msh_get_cmd(argv[0]);
-	if (cmd_func == RT_NULL) 
-	{
-		rt_kprintf("%s: command not found\n", argv[0]);
-		return -1;
-	}
+    /* get command in internal commands */
+    cmd_func = msh_get_cmd(argv[0]);
+    if (cmd_func == RT_NULL) 
+    {
+#ifdef RT_USING_MODULE
+        msh_exec_module(argc, argv);
+#else
+        rt_kprintf("%s: command not found.\n", argv[0]);
+#endif
+        return -1;
+    }
 
-	/* exec this command */
-	return cmd_func(argc, argv);
+    /* exec this command */
+    return cmd_func(argc, argv);
 }
 
 static int str_common(const char *str1, const char *str2)
 {
-	const char *str = str1;
+    const char *str = str1;
 
-	while ((*str != 0) && (*str2 != 0) && (*str == *str2))
-	{
-		str ++;
-		str2 ++;
-	}
+    while ((*str != 0) && (*str2 != 0) && (*str == *str2))
+    {
+        str ++;
+        str2 ++;
+    }
 
-	return (str - str1);
+    return (str - str1);
 }
 
 #ifdef RT_USING_DFS
-#include <dfs_posix.h>
 void msh_auto_complete_path(char *path)
 {
-	DIR* dir;
-	struct dirent *dirent;
-	char *full_path, *ptr, *index;
+    DIR* dir;
+    struct dirent *dirent;
+    char *full_path, *ptr, *index;
 
-	full_path = (char*)rt_malloc(256);
-	if (full_path == RT_NULL) return; /* out of memory */
+    full_path = (char*)rt_malloc(256);
+    if (full_path == RT_NULL) return; /* out of memory */
 
-	ptr = full_path;
-	if (*path != '/') 
-	{
-		getcwd(full_path, 256);
-		if (full_path[rt_strlen(full_path) - 1]  != '/')
-			strcat(full_path, "/");
-	}
-	else *full_path = '\0';
+    ptr = full_path;
+    if (*path != '/') 
+    {
+        getcwd(full_path, 256);
+        if (full_path[rt_strlen(full_path) - 1]  != '/')
+            strcat(full_path, "/");
+    }
+    else *full_path = '\0';
 
-	index = RT_NULL; ptr = path;
-	for (;;)
-	{
-		if (*ptr == '/') index = ptr + 1; if (!*ptr) break; ptr ++;
-	}
-	if (index == RT_NULL) index = path;
+    index = RT_NULL; ptr = path;
+    for (;;)
+    {
+        if (*ptr == '/') index = ptr + 1; if (!*ptr) break; ptr ++;
+    }
+    if (index == RT_NULL) index = path;
 
-	if (index != RT_NULL)
-	{
-		char *dest = index;
+    if (index != RT_NULL)
+    {
+        char *dest = index;
 
-		/* fill the parent path */
-		ptr = full_path; 
-		while (*ptr) ptr ++;
+        /* fill the parent path */
+        ptr = full_path; 
+        while (*ptr) ptr ++;
 
-		for (index = path; index != dest;)
-			*ptr++ = *index++;
-		*ptr = '\0';
+        for (index = path; index != dest;)
+            *ptr++ = *index++;
+        *ptr = '\0';
 
-		dir = opendir(full_path);
-		if (dir == RT_NULL) /* open directory failed! */
-		{
-			rt_free(full_path);
-			return;
-		}
+        dir = opendir(full_path);
+        if (dir == RT_NULL) /* open directory failed! */
+        {
+            rt_free(full_path);
+            return;
+        }
 
-		/* restore the index position */
-		index = dest;
-	}
+        /* restore the index position */
+        index = dest;
+    }
 
-	/* auto complete the file or directory name */
-	if (*index == '\0') /* display all of files and directories */
-	{
-		for (;;)
-		{
-			dirent = readdir(dir);
-			if (dirent == RT_NULL) break;
-			
-			rt_kprintf("%s\n", dirent->d_name);
-		}
-	}
-	else
-	{
-		int length, min_length;
+    /* auto complete the file or directory name */
+    if (*index == '\0') /* display all of files and directories */
+    {
+        for (;;)
+        {
+            dirent = readdir(dir);
+            if (dirent == RT_NULL) break;
+            
+            rt_kprintf("%s\n", dirent->d_name);
+        }
+    }
+    else
+    {
+        int length, min_length;
 
-		min_length = 0;
-		for (;;)
-		{
-			dirent = readdir(dir);
-			if (dirent == RT_NULL) break;
+        min_length = 0;
+        for (;;)
+        {
+            dirent = readdir(dir);
+            if (dirent == RT_NULL) break;
 
-			/* matched the prefix string */
-			if (strncmp(index, dirent->d_name, rt_strlen(index)) == 0)
-			{
-				if (min_length == 0)
-				{
-					min_length = rt_strlen(dirent->d_name);
-					/* save dirent name */
-					strcpy(full_path, dirent->d_name);
-				}
-				
-				length = str_common(dirent->d_name, full_path);
-				
-				if (length < min_length)
-				{
-					min_length = length;
-				}
-			}
-		}
+            /* matched the prefix string */
+            if (strncmp(index, dirent->d_name, rt_strlen(index)) == 0)
+            {
+                if (min_length == 0)
+                {
+                    min_length = rt_strlen(dirent->d_name);
+                    /* save dirent name */
+                    strcpy(full_path, dirent->d_name);
+                }
+                
+                length = str_common(dirent->d_name, full_path);
+                
+                if (length < min_length)
+                {
+                    min_length = length;
+                }
+            }
+        }
 
-		if (min_length)
-		{
-			if (min_length < rt_strlen(full_path))
-			{
-				/* list the candidate */
-				rewinddir(dir);
+        if (min_length)
+        {
+            if (min_length < rt_strlen(full_path))
+            {
+                /* list the candidate */
+                rewinddir(dir);
 
-				for (;;)
-				{
-					dirent = readdir(dir);
-					if (dirent == RT_NULL) break;
+                for (;;)
+                {
+                    dirent = readdir(dir);
+                    if (dirent == RT_NULL) break;
 
-					if (strncmp(index, dirent->d_name, rt_strlen(index)) == 0)
-						rt_kprintf("%s\n", dirent->d_name);
-				}
-			}
-			
-			length = index - path;
-			memcpy(index, full_path, min_length);
-			path[length + min_length] = '\0';
-		}
-	}
+                    if (strncmp(index, dirent->d_name, rt_strlen(index)) == 0)
+                        rt_kprintf("%s\n", dirent->d_name);
+                }
+            }
+            
+            length = index - path;
+            memcpy(index, full_path, min_length);
+            path[length + min_length] = '\0';
+        }
+    }
 
-	closedir(dir);
-	rt_free(full_path);
+    closedir(dir);
+    rt_free(full_path);
 }
 #endif
 
 void msh_auto_complete(char *prefix)
 {
-	int length, min_length;
-	const char *name_ptr, *cmd_name;
-	struct finsh_syscall *index;
+    int length, min_length;
+    const char *name_ptr, *cmd_name;
+    struct finsh_syscall *index;
 
-	min_length = 0;
-	name_ptr = RT_NULL;
+    min_length = 0;
+    name_ptr = RT_NULL;
 
-	if (*prefix == '\0') 
-	{
-		msh_help(0, RT_NULL);
-		return;
-	}
+    if (*prefix == '\0') 
+    {
+        msh_help(0, RT_NULL);
+        return;
+    }
 
 #ifdef RT_USING_DFS
-	/* check whether a spare in the command */
-	{
-		char *ptr;
+    /* check whether a spare in the command */
+    {
+        char *ptr;
 
-		ptr = prefix + rt_strlen(prefix);
-		while (ptr != prefix)
-		{
-			if (*ptr == ' ')
-			{
-				msh_auto_complete_path(ptr + 1);
-				break;
-			}
-			
-			ptr --;
-		}
-	}
+        ptr = prefix + rt_strlen(prefix);
+        while (ptr != prefix)
+        {
+            if (*ptr == ' ')
+            {
+                msh_auto_complete_path(ptr + 1);
+                break;
+            }
+            
+            ptr --;
+        }
+    }
 #endif
-	
-	/* checks in internal command */
-	{
-		for (index = _syscall_table_begin; index < _syscall_table_end; FINSH_NEXT_SYSCALL(index))
-		{
-			/* skip finsh shell function */
-			if (strncmp(index->name, "__cmd_", 6) != 0) continue;
+    
+    /* checks in internal command */
+    {
+        for (index = _syscall_table_begin; index < _syscall_table_end; FINSH_NEXT_SYSCALL(index))
+        {
+            /* skip finsh shell function */
+            if (strncmp(index->name, "__cmd_", 6) != 0) continue;
 
-			cmd_name = (const char*) &index->name[6];
-			if (strncmp(prefix, cmd_name, strlen(prefix)) == 0)
-			{
-				if (min_length == 0)
-				{
-					/* set name_ptr */
-					name_ptr = cmd_name;
-					/* set initial length */
-					min_length = strlen(name_ptr);
-				}
+            cmd_name = (const char*) &index->name[6];
+            if (strncmp(prefix, cmd_name, strlen(prefix)) == 0)
+            {
+                if (min_length == 0)
+                {
+                    /* set name_ptr */
+                    name_ptr = cmd_name;
+                    /* set initial length */
+                    min_length = strlen(name_ptr);
+                }
 
-				length = str_common(name_ptr, cmd_name);
-				if (length < min_length)
-					min_length = length;
+                length = str_common(name_ptr, cmd_name);
+                if (length < min_length)
+                    min_length = length;
 
-				rt_kprintf("%s\n", cmd_name);
-			}
-		}
-	}
+                rt_kprintf("%s\n", cmd_name);
+            }
+        }
+    }
 
-	/* auto complete string */
-	if (name_ptr != NULL)
-	{
-		rt_strncpy(prefix, name_ptr, min_length);
-	}
+    /* auto complete string */
+    if (name_ptr != NULL)
+    {
+        rt_strncpy(prefix, name_ptr, min_length);
+    }
 
-	return ;
+    return ;
 }
 #endif