cmd.c 23.8 KB
Newer Older
1 2 3 4 5 6 7
/*
 * File      : cmd.c
 * This file is part of RT-Thread RTOS
 * COPYRIGHT (C) 2006, RT-Thread Development Team
 *
 * The license and distribution terms for this file may be
 * found in the file LICENSE in this distribution or at
8
 * http://www.rt-thread.org/license/LICENSE
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
 *
 * Change Logs:
 * Date           Author       Notes
 * 2006-04-30     Bernard      first implementation
 * 2006-05-04     Bernard      add list_thread,
 *                                 list_sem,
 *                                 list_timer
 * 2006-05-20     Bernard      add list_mutex,
 *                                 list_mailbox,
 *                                 list_msgqueue,
 *                                 list_event,
 *                                 list_fevent,
 *                                 list_mempool
 * 2006-06-03     Bernard      display stack information in list_thread
 * 2006-08-10     Bernard      change version to invoke rt_show_version
 * 2008-09-10     Bernard      update the list function for finsh syscall
 *                                 list and sysvar list
 * 2009-05-30     Bernard      add list_device
27 28
 * 2010-04-21     yi.qiu       add list_module
 * 2012-04-29     goprife      improve the command line auto-complete feature.
29
 * 2012-06-02     lgnq         add list_memheap
30
 * 2012-10-22     Bernard      add MS VC++ patch.
31 32 33
 */

#include <rtthread.h>
34
#include "finsh.h"
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
#if defined(_MSC_VER)
static struct finsh_syscall* _next_syscall(struct finsh_syscall* call)
{
	unsigned int *ptr;
	ptr = (unsigned int*) (call + 1);
	while ((*ptr == 0) && ((unsigned int*)ptr < (unsigned int*) _syscall_table_end))
		ptr ++;

	return (struct finsh_syscall*)ptr;
}
#define _NEXT_SYSCALl(index)  index=_next_syscall(index)
#else
#define _NEXT_SYSCALl(index)  index++
#endif

50 51 52

rt_inline unsigned int rt_list_len(const rt_list_t *l)
{
53 54
    unsigned int len = 0;
    const rt_list_t *p = l;
55
    while (p->next != l)
56 57
    {
        p = p->next;
58
        len ++;
59 60
    }
    return len;
M
mbbill 已提交
61
}
62

63
long hello(void)
64
{
65
    rt_kprintf("Hello RT-Thread!\n");
66

67
    return 0;
68
}
69
FINSH_FUNCTION_EXPORT(hello, say hello world);
70 71

extern void rt_show_version(void);
72
long version(void)
73
{
74
    rt_show_version();
75

76
    return 0;
77
}
78
FINSH_FUNCTION_EXPORT(version, show RT-Thread version information);
79 80 81

extern struct rt_object_information rt_object_container[];

82
static long _list_thread(struct rt_list_node *list)
83
{
84 85
    struct rt_thread *thread;
    struct rt_list_node *node;
86
    rt_uint8_t *ptr;
87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109

    rt_kprintf(" thread  pri  status      sp     stack size max used   left tick  error\n");
    rt_kprintf("-------- ---- ------- ---------- ---------- ---------- ---------- ---\n");
    for (node = list->next; node != list; node = node->next)
    {
        thread = rt_list_entry(node, struct rt_thread, list);
        rt_kprintf("%-8.*s 0x%02x", RT_NAME_MAX, thread->name, thread->current_priority);

        if (thread->stat == RT_THREAD_READY)        rt_kprintf(" ready  ");
        else if (thread->stat == RT_THREAD_SUSPEND) rt_kprintf(" suspend");
        else if (thread->stat == RT_THREAD_INIT)    rt_kprintf(" init   ");
        else if (thread->stat == RT_THREAD_CLOSE)   rt_kprintf(" close  ");

        ptr = (rt_uint8_t*)thread->stack_addr;
        while (*ptr == '#')ptr ++;

        rt_kprintf(" 0x%08x 0x%08x 0x%08x 0x%08x %03d\n",
            thread->stack_size + ((rt_uint32_t)thread->stack_addr - (rt_uint32_t)thread->sp),
            thread->stack_size,
            thread->stack_size - ((rt_uint32_t) ptr - (rt_uint32_t)thread->stack_addr),
            thread->remaining_tick,
            thread->error);
    }
110
	
111
    return 0;
112
}
qiuyiuestc's avatar
qiuyiuestc 已提交
113 114 115

long list_thread(void)
{
116
    return _list_thread(&rt_object_container[RT_Object_Class_Thread].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
117
}
118
FINSH_FUNCTION_EXPORT(list_thread, list thread);
119

120
static void show_wait_queue(struct rt_list_node *list)
121
{
122 123 124 125 126 127 128
    struct rt_thread *thread;
    struct rt_list_node *node;

    for (node = list->next; node != list; node = node->next)
    {
        thread = rt_list_entry(node, struct rt_thread, tlist);
        rt_kprintf("%s", thread->name);
129 130 131
		
        if (node->next != list)
			rt_kprintf("/");
132
    }
133 134 135
}

#ifdef RT_USING_SEMAPHORE
qiuyiuestc's avatar
qiuyiuestc 已提交
136
static long _list_sem(struct rt_list_node *list)
137
{
138 139 140 141 142 143 144
    struct rt_semaphore *sem;
    struct rt_list_node *node;

    rt_kprintf("semaphore v   suspend thread\n");
    rt_kprintf("--------  --- --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
145
        sem = (struct rt_semaphore *)(rt_list_entry(node, struct rt_object, list));
146 147 148 149 150 151 152 153 154 155 156 157 158 159 160
        if( !rt_list_isempty(&sem->parent.suspend_thread) )
        {
            rt_kprintf("%-8.*s  %03d %d:", RT_NAME_MAX, sem->parent.parent.name, sem->value,
                    rt_list_len(&sem->parent.suspend_thread) );
            show_wait_queue(&(sem->parent.suspend_thread));
            rt_kprintf("\n");
        }
        else
        {
            rt_kprintf("%-8.*s  %03d %d\n", RT_NAME_MAX, sem->parent.parent.name, sem->value,
                    rt_list_len(&sem->parent.suspend_thread));
        }
    }

    return 0;
161
}
qiuyiuestc's avatar
qiuyiuestc 已提交
162 163 164

long list_sem(void)
{
165
    return _list_sem(&rt_object_container[RT_Object_Class_Semaphore].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
166
}
167 168 169 170
FINSH_FUNCTION_EXPORT(list_sem, list semaphone in system)
#endif

#ifdef RT_USING_EVENT
qiuyiuestc's avatar
qiuyiuestc 已提交
171
static long _list_event(struct rt_list_node *list)
172
{
173 174 175 176 177 178 179
    struct rt_event *e;
    struct rt_list_node *node;

    rt_kprintf("event    set        suspend thread\n");
    rt_kprintf("-------- ---------- --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
180 181
        e = (struct rt_event *)(rt_list_entry(node, struct rt_object, list));
        if (!rt_list_isempty(&e->parent.suspend_thread))
182 183 184 185 186 187 188 189 190 191 192 193 194
        {
            rt_kprintf("%-8.*s  0x%08x %03d:", RT_NAME_MAX, e->parent.parent.name, 
                e->set, rt_list_len(&e->parent.suspend_thread));
            show_wait_queue(&(e->parent.suspend_thread));
            rt_kprintf("\n");
        }
        else
        {
            rt_kprintf("%-8.*s  0x%08x 0\n", RT_NAME_MAX, e->parent.parent.name, e->set);
        }
    }

    return 0;
195
}
qiuyiuestc's avatar
qiuyiuestc 已提交
196 197 198

long list_event(void)
{
199
    return _list_event(&rt_object_container[RT_Object_Class_Event].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
200
}
201 202 203 204
FINSH_FUNCTION_EXPORT(list_event, list event in system)
#endif

#ifdef RT_USING_MUTEX
qiuyiuestc's avatar
qiuyiuestc 已提交
205
static long _list_mutex(struct rt_list_node *list)
206
{
207 208 209 210 211 212 213
    struct rt_mutex *m;
    struct rt_list_node *node;

    rt_kprintf("mutex    owner    hold suspend thread\n");
    rt_kprintf("-------- -------- ---- --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
214
        m = (struct rt_mutex *)(rt_list_entry(node, struct rt_object, list));
215 216 217 218 219
        rt_kprintf("%-8.*s %-8.*s %04d %d\n", RT_NAME_MAX, m->parent.parent.name,
                RT_NAME_MAX, m->owner->name, m->hold, rt_list_len(&m->parent.suspend_thread));
    }

    return 0;
220
}
qiuyiuestc's avatar
qiuyiuestc 已提交
221 222 223

long list_mutex(void)
{
224
    return _list_mutex(&rt_object_container[RT_Object_Class_Mutex].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
225
}
226 227 228 229
FINSH_FUNCTION_EXPORT(list_mutex, list mutex in system)
#endif

#ifdef RT_USING_MAILBOX
qiuyiuestc's avatar
qiuyiuestc 已提交
230
static long _list_mailbox(struct rt_list_node *list)
231
{
232 233 234 235 236 237 238
    struct rt_mailbox *m;
    struct rt_list_node *node;

    rt_kprintf("mailbox  entry size suspend thread\n");
    rt_kprintf("-------- ----  ---- --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
239 240
        m = (struct rt_mailbox *)(rt_list_entry(node, struct rt_object, list));
        if (!rt_list_isempty(&m->parent.suspend_thread))
241 242 243 244 245 246 247 248 249 250 251 252 253 254
        {
            rt_kprintf("%-8.*s %04d  %04d %d:", RT_NAME_MAX, m->parent.parent.name, 
                m->entry, m->size, rt_list_len(&m->parent.suspend_thread));
            show_wait_queue(&(m->parent.suspend_thread));
            rt_kprintf("\n");
        }
        else
        {
            rt_kprintf("%-8.*s %04d  %04d %d\n", RT_NAME_MAX, m->parent.parent.name, 
                m->entry, m->size, rt_list_len(&m->parent.suspend_thread));
        }
    }

    return 0;
255
}
qiuyiuestc's avatar
qiuyiuestc 已提交
256 257 258

long list_mailbox(void)
{
259
    return _list_mailbox(&rt_object_container[RT_Object_Class_MailBox].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
260
}
261 262 263 264
FINSH_FUNCTION_EXPORT(list_mailbox, list mail box in system)
#endif

#ifdef RT_USING_MESSAGEQUEUE
qiuyiuestc's avatar
qiuyiuestc 已提交
265
static long _list_msgqueue(struct rt_list_node *list)
266
{
267 268 269 270 271 272 273
    struct rt_messagequeue *m;
    struct rt_list_node *node;

    rt_kprintf("msgqueue entry suspend thread\n");
    rt_kprintf("-------- ----  --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
274 275
        m = (struct rt_messagequeue *)(rt_list_entry(node, struct rt_object, list));
        if (!rt_list_isempty(&m->parent.suspend_thread))
276 277 278 279 280 281 282 283 284 285 286 287 288 289
        {
            rt_kprintf("%-8.*s %04d  %d:", RT_NAME_MAX, m->parent.parent.name, 
                m->entry, rt_list_len(&m->parent.suspend_thread));
            show_wait_queue(&(m->parent.suspend_thread));
            rt_kprintf("\n");
        }
        else
        {
            rt_kprintf("%-8.*s %04d  %d\n", RT_NAME_MAX, m->parent.parent.name, 
                m->entry, rt_list_len(&m->parent.suspend_thread));
        }
    }

    return 0;
290
}
qiuyiuestc's avatar
qiuyiuestc 已提交
291 292 293

long list_msgqueue(void)
{
294
    return _list_msgqueue(&rt_object_container[RT_Object_Class_MessageQueue].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
295
}
296 297 298
FINSH_FUNCTION_EXPORT(list_msgqueue, list message queue in system)
#endif

299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324
#ifdef RT_USING_MEMHEAP
static long _list_memheap(struct rt_list_node *list)
{
    struct rt_memheap *mh;
    struct rt_list_node *node;

    rt_kprintf("memheap  pool size available size\n");
    rt_kprintf("-------- --------- --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
        mh = (struct rt_memheap *)rt_list_entry(node, struct rt_object, list);

        rt_kprintf("%-8.*s %04d  %04d\n", RT_NAME_MAX, mh->parent.name,
                mh->pool_size, mh->available_size);
    }

    return 0;
}

long list_memheap(void)
{
    return _list_memheap(&rt_object_container[RT_Object_Class_MemHeap].object_list);
}
FINSH_FUNCTION_EXPORT(list_memheap, list memory heap in system)
#endif

325
#ifdef RT_USING_MEMPOOL
qiuyiuestc's avatar
qiuyiuestc 已提交
326
static long _list_mempool(struct rt_list_node *list)
327
{
328 329 330 331 332 333 334
    struct rt_mempool *mp;
    struct rt_list_node *node;

    rt_kprintf("mempool  block total free suspend thread\n");
    rt_kprintf("-------- ----  ----  ---- --------------\n");
    for (node = list->next; node != list; node = node->next)
    {
335
        mp = (struct rt_mempool *)rt_list_entry(node, struct rt_object, list);
336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352
        if (mp->suspend_thread_count > 0)
        {
            rt_kprintf("%-8.*s %04d  %04d  %04d %d:", RT_NAME_MAX, mp->parent.name,
                mp->block_size, mp->block_total_count, mp->block_free_count,
                mp->suspend_thread_count);
            show_wait_queue(&(mp->suspend_thread));
            rt_kprintf("\n");           
        }
        else
        {
            rt_kprintf("%-8.*s %04d  %04d  %04d %d\n", RT_NAME_MAX, mp->parent.name,
                mp->block_size, mp->block_total_count, mp->block_free_count,
                mp->suspend_thread_count);
        }
    }

    return 0;
353
}
qiuyiuestc's avatar
qiuyiuestc 已提交
354 355 356

long list_mempool(void)
{
357
    return _list_mempool(&rt_object_container[RT_Object_Class_MemPool].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
358
}
359 360 361
FINSH_FUNCTION_EXPORT(list_mempool, list memory pool in system)
#endif

qiuyiuestc's avatar
qiuyiuestc 已提交
362
static long _list_timer(struct rt_list_node *list)
363
{
364 365 366 367 368 369 370
    struct rt_timer *timer;
    struct rt_list_node *node;

    rt_kprintf("timer    periodic   timeout    flag\n");
    rt_kprintf("-------- ---------- ---------- -----------\n");
    for (node = list->next; node != list; node = node->next)
    {
371
        timer = (struct rt_timer *)(rt_list_entry(node, struct rt_object, list));
372
        rt_kprintf("%-8.*s 0x%08x 0x%08x ", RT_NAME_MAX, timer->parent.name, timer->init_tick, timer->timeout_tick);
373 374 375 376
        if (timer->parent.flag & RT_TIMER_FLAG_ACTIVATED)
			rt_kprintf("activated\n");
        else
			rt_kprintf("deactivated\n");
377 378 379 380 381
    }

    rt_kprintf("current tick:0x%08x\n", rt_tick_get());

    return 0;
382
}
qiuyiuestc's avatar
qiuyiuestc 已提交
383 384 385

long list_timer(void)
{
386
    return _list_timer(&rt_object_container[RT_Object_Class_Timer].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
387
}
388 389 390
FINSH_FUNCTION_EXPORT(list_timer, list timer in system)

#ifdef RT_USING_DEVICE
qiuyiuestc's avatar
qiuyiuestc 已提交
391
static long _list_device(struct rt_list_node *list)
392
{
393 394
    struct rt_device *device;
    struct rt_list_node *node;
395
    char * const device_type_str[] =
396 397 398 399 400 401 402 403
    {
        "Character Device",
        "Block Device",
        "Network Interface",
        "MTD Device",
        "CAN Device",
        "RTC",
        "Sound Device",
404
        "Graphic Device",
405
        "I2C Bus",
406 407 408 409 410
        "USB Slave Device",
        "USB Host Bus",
        "SPI Bus",
        "SPI Device",
        "SDIO Bus",
411
		"PM Pseudo Device",
412 413 414 415 416 417 418
        "Unknown"
    };

    rt_kprintf("device    type      \n");
    rt_kprintf("-------- ---------- \n");
    for (node = list->next; node != list; node = node->next)
    {
419
        device = (struct rt_device *)(rt_list_entry(node, struct rt_object, list));
420 421 422 423 424 425
        rt_kprintf("%-8.*s %-8s \n", RT_NAME_MAX, device->parent.name,
            (device->type <= RT_Device_Class_Unknown)?
            device_type_str[device->type]:device_type_str[RT_Device_Class_Unknown]);
    }

    return 0;
426
}
qiuyiuestc's avatar
qiuyiuestc 已提交
427 428 429

long list_device(void)
{
430
    return _list_device(&rt_object_container[RT_Object_Class_Device].object_list);
qiuyiuestc's avatar
qiuyiuestc 已提交
431
}
432 433 434
FINSH_FUNCTION_EXPORT(list_device, list device in system)
#endif

qiuyiuestc's avatar
qiuyiuestc 已提交
435
#ifdef RT_USING_MODULE
qiuyiuestc's avatar
qiuyiuestc 已提交
436 437
#include <rtm.h>

438
int list_module(void)
qiuyiuestc's avatar
qiuyiuestc 已提交
439
{
440 441
    struct rt_module *module;
    struct rt_list_node *list, *node;
qiuyiuestc's avatar
qiuyiuestc 已提交
442

443
    list = &rt_object_container[RT_Object_Class_Module].object_list;
qiuyiuestc's avatar
qiuyiuestc 已提交
444

445 446 447 448
    rt_kprintf("module name     ref\n");
    rt_kprintf("------------ --------\n");
    for (node = list->next; node != list; node = node->next)
    {
449
        module = (struct rt_module *)(rt_list_entry(node, struct rt_object, list));
450
        rt_kprintf("%-16.*s %-04d\n", RT_NAME_MAX, module->parent.name, module->nref);
451
    }
M
mbbill@gmail.com 已提交
452

453
    return 0;
qiuyiuestc's avatar
qiuyiuestc 已提交
454
}
qiuyiuestc's avatar
qiuyiuestc 已提交
455

qiuyiuestc's avatar
qiuyiuestc 已提交
456
FINSH_FUNCTION_EXPORT(list_module, list module in system)
qiuyiuestc's avatar
qiuyiuestc 已提交
457

458
int list_mod_detail(const char *name)
qiuyiuestc's avatar
qiuyiuestc 已提交
459
{
460 461 462 463
    int i;
    struct rt_module *module;
    
    /* find module */
464
    if ((module = rt_module_find(name)) != RT_NULL)
465 466
    {
        /* module has entry point */
467
        if (!(module->parent.flag & RT_MODULE_FLAG_WITHOUTENTRY))
468 469 470
        {   
            struct rt_thread *thread;
            struct rt_list_node *tlist;
471
            rt_uint8_t *ptr;
472 473

            /* list main thread in module */
474
            if (module->module_thread != RT_NULL)
475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497
            {   
                rt_kprintf("main thread  pri  status      sp     stack size max used   left tick  error\n");
                rt_kprintf("------------- ---- ------- ---------- ---------- ---------- ---------- ---\n");
                thread = module->module_thread;
                rt_kprintf("%-8.*s 0x%02x", RT_NAME_MAX, thread->name, thread->current_priority);

                if (thread->stat == RT_THREAD_READY)        rt_kprintf(" ready  ");
                else if (thread->stat == RT_THREAD_SUSPEND) rt_kprintf(" suspend");
                else if (thread->stat == RT_THREAD_INIT)    rt_kprintf(" init   ");

                ptr = (rt_uint8_t*)thread->stack_addr;
                while (*ptr == '#')ptr ++;

                rt_kprintf(" 0x%08x 0x%08x 0x%08x 0x%08x %03d\n",
                    thread->stack_size + ((rt_uint32_t)thread->stack_addr - (rt_uint32_t)thread->sp),
                    thread->stack_size,
                    thread->stack_size - ((rt_uint32_t) ptr - (rt_uint32_t)thread->stack_addr),
                    thread->remaining_tick,
                    thread->error);
            }   

            /* list sub thread in module */
            tlist = &module->module_object[RT_Object_Class_Thread].object_list;
498
            if (!rt_list_isempty(tlist)) _list_thread(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
499
#ifdef RT_USING_SEMAPHORE
500 501
            /* list semaphored in module */
            tlist = &module->module_object[RT_Object_Class_Semaphore].object_list;
502
            if (!rt_list_isempty(tlist)) _list_sem(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
503 504
#endif
#ifdef RT_USING_MUTEX
505 506
            /* list mutex in module */
            tlist = &module->module_object[RT_Object_Class_Mutex].object_list;
507
            if (!rt_list_isempty(tlist)) _list_mutex(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
508 509
#endif
#ifdef RT_USING_EVENT
510 511
            /* list event in module */
            tlist = &module->module_object[RT_Object_Class_Event].object_list;
512
            if (!rt_list_isempty(tlist)) _list_event(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
513 514
#endif
#ifdef RT_USING_MAILBOX
515 516
            /* list mailbox in module */
            tlist = &module->module_object[RT_Object_Class_MailBox].object_list;
517
            if (!rt_list_isempty(tlist)) _list_mailbox(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
518 519
#endif
#ifdef RT_USING_MESSAGEQUEUE
520 521
            /* list message queue in module */
            tlist = &module->module_object[RT_Object_Class_MessageQueue].object_list;
522 523 524 525 526 527
            if (!rt_list_isempty(tlist)) _list_msgqueue(tlist);
#endif
#ifdef RT_USING_MEMHEAP
            /* list memory heap in module */
            tlist = &module->module_object[RT_Object_Class_MemHeap].object_list;
            if (!rt_list_isempty(tlist)) _list_memheap(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
528 529
#endif
#ifdef RT_USING_MEMPOOL
530 531
            /* list memory pool in module */
            tlist = &module->module_object[RT_Object_Class_MemPool].object_list;
532
            if (!rt_list_isempty(tlist)) _list_mempool(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
533 534
#endif
#ifdef RT_USING_DEVICE
535 536
            /* list device in module */
            tlist = &module->module_object[RT_Object_Class_Device].object_list;
537
            if (!rt_list_isempty(tlist)) _list_device(tlist);
qiuyiuestc's avatar
qiuyiuestc 已提交
538
#endif
539 540
            /* list timer in module */
            tlist = &module->module_object[RT_Object_Class_Timer].object_list;
541
            if (!rt_list_isempty(tlist)) _list_timer(tlist);
542 543 544 545 546 547
        }

        rt_kprintf("symbol    address   \n");
        rt_kprintf("-------- ----------\n");
    
        /* list module export symbols */
548
        for (i=0; i<module->nsym; i++)
549 550 551 552 553 554
        {
            rt_kprintf("%s 0x%x\n", module->symtab[i].name, module->symtab[i].addr);
        }   
    }

    return 0;
qiuyiuestc's avatar
qiuyiuestc 已提交
555
}
qiuyiuestc's avatar
qiuyiuestc 已提交
556
FINSH_FUNCTION_EXPORT(list_mod_detail, list module objects in system)
qiuyiuestc's avatar
qiuyiuestc 已提交
557 558
#endif

D
dzzxzz 已提交
559
long list(void)
560
{
561 562
    struct finsh_syscall_item *syscall_item;
    struct finsh_sysvar_item *sysvar_item;
563 564 565

    rt_kprintf("--Function List:\n");
    {
566
        struct finsh_syscall *index;
567
        for (index = _syscall_table_begin; index < _syscall_table_end;  _NEXT_SYSCALl(index))
568
        {
569
#ifdef FINSH_USING_DESCRIPTION
570
            rt_kprintf("%-16s -- %s\n", index->name, index->desc);
571
#else
572
            rt_kprintf("%s\n", index->name);
573
#endif
574 575 576 577 578 579 580 581 582 583 584 585 586
        }
    }

    /* list syscall list */
    syscall_item = global_syscall_list;
    while (syscall_item != NULL)
    {
        rt_kprintf("[l] %s\n", syscall_item->syscall.name);
        syscall_item = syscall_item->next;
    }

    rt_kprintf("--Variable List:\n");
    {
587
        struct finsh_sysvar *index;
588 589
        for (index = _sysvar_table_begin; index < _sysvar_table_end; index ++)
        {
590
#ifdef FINSH_USING_DESCRIPTION
591
            rt_kprintf("%-16s -- %s\n", index->name, index->desc);
592
#else
593
            rt_kprintf("%s\n", index->name);
594
#endif
595 596
        }
    }
597

598 599 600 601 602 603
    sysvar_item = global_sysvar_list;
    while (sysvar_item != NULL)
    {
        rt_kprintf("[l] %s\n", sysvar_item->sysvar.name);
        sysvar_item = sysvar_item->next;
    }
604

605
    return 0;
606 607 608
}
FINSH_FUNCTION_EXPORT(list, list all symbol in system)

609
static int str_is_prefix(const char *prefix, const char *str)
610
{
611 612 613 614 615 616
    while ((*prefix) && (*prefix == *str))
    {
        prefix ++;
        str ++;
    }

617 618 619
    if (*prefix == 0)
		return 0;
	
620 621 622
    return -1;
}

623
static int str_common(const char *str1, const char *str2)
624
{
625
    const char *str = str1;
626

627
    while ((*str != 0) && (*str2 != 0) && (*str == *str2))
628 629 630 631 632 633
    {
        str ++;
        str2 ++;
    }

    return (str - str1);
634 635
}

636
void list_prefix(char *prefix)
637
{
638 639
    struct finsh_syscall_item *syscall_item;
    struct finsh_sysvar_item *sysvar_item;
640 641
    rt_uint16_t func_cnt, var_cnt;
    int length, min_length;
642
    const char *name_ptr;
643 644 645

    func_cnt = 0;
    var_cnt  = 0;
646
	min_length = 0;
647 648 649 650 651
    name_ptr = RT_NULL;

    /* checks in system function call */
    {
        struct finsh_syscall* index;
652
        for (index = _syscall_table_begin; index < _syscall_table_end;  _NEXT_SYSCALl(index))
653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677
        {
            if (str_is_prefix(prefix, index->name) == 0)
            {
                if (func_cnt == 0)
                {
                    rt_kprintf("--function:\n");

                    if (*prefix != 0)
                    {
                        /* set name_ptr */
                        name_ptr = index->name;

                        /* set initial length */
                        min_length = strlen(name_ptr);
                    }
                }

                func_cnt ++;

                if (*prefix != 0)
                {
                    length = str_common(name_ptr, index->name);
                    if (length < min_length)
                        min_length = length;
                }
678 679

#ifdef FINSH_USING_DESCRIPTION
680
                rt_kprintf("%-16s -- %s\n", index->name, index->desc);
681
#else
682
                rt_kprintf("%s\n", index->name);
683
#endif
684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750
            }
        }
    }

    /* checks in dynamic system function call */
    syscall_item = global_syscall_list;
    while (syscall_item != NULL)
    {
        if (str_is_prefix(prefix, syscall_item->syscall.name) == 0)
        {
            if (func_cnt == 0)
            {
                rt_kprintf("--function:\n");
                if (*prefix != 0 && name_ptr == NULL)
                {
                    /* set name_ptr */
                    name_ptr = syscall_item->syscall.name;

                    /* set initial length */
                    min_length = strlen(name_ptr);
                }
            }

            func_cnt ++;

            if (*prefix != 0)
            {
                length = str_common(name_ptr, syscall_item->syscall.name);
                if (length < min_length)
                    min_length = length;
            }

            rt_kprintf("[l] %s\n", syscall_item->syscall.name);
        }
        syscall_item = syscall_item->next;
    }

    /* checks in system variable */
    {
        struct finsh_sysvar* index;
        for (index = _sysvar_table_begin; index < _sysvar_table_end; index ++)
        {
            if (str_is_prefix(prefix, index->name) == 0)
            {
                if (var_cnt == 0)
                {
                    rt_kprintf("--variable:\n");

                    if (*prefix != 0 && name_ptr == NULL)
                    {
                        /* set name_ptr */
                        name_ptr = index->name;

                        /* set initial length */
                        min_length = strlen(name_ptr);

                    }
                }

                var_cnt ++;

                if (*prefix != 0)
                {
                    length = str_common(name_ptr, index->name);
                    if (length < min_length)
                        min_length = length;
                }
B
bernard.xiong 已提交
751

752
#ifdef FINSH_USING_DESCRIPTION
753
                rt_kprintf("%-16s -- %s\n", index->name, index->desc);
754
#else
755
                rt_kprintf("%s\n", index->name);
756
#endif
757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798
            }
        }
    }

    /* checks in dynamic system variable */
    sysvar_item = global_sysvar_list;
    while (sysvar_item != NULL)
    {
        if (str_is_prefix(prefix, sysvar_item->sysvar.name) == 0)
        {
            if (var_cnt == 0)
            {
                rt_kprintf("--variable:\n");
                if (*prefix != 0 && name_ptr == NULL)
                {
                    /* set name_ptr */
                    name_ptr = sysvar_item->sysvar.name;

                    /* set initial length */
                    min_length = strlen(name_ptr);
                }
            }

            var_cnt ++;

            if (*prefix != 0)
            {
                length = str_common(name_ptr, sysvar_item->sysvar.name);
                if (length < min_length)
                    min_length = length;
            }

            rt_kprintf("[v] %s\n", sysvar_item->sysvar.name);
        }
        sysvar_item = sysvar_item->next;
    }

    /* only one matched */
    if (name_ptr != NULL)
    {
        rt_strncpy(prefix, name_ptr, min_length);
    }
799 800
}

801 802 803 804
#ifdef FINSH_USING_SYMTAB
static int dummy = 0;
FINSH_VAR_EXPORT(dummy, finsh_type_int, dummy variable for finsh)
#endif