From 460175ef10697eecc758b85975268060b55b1bb5 Mon Sep 17 00:00:00 2001 From: Ralf Corsepius Date: Sat, 27 Jan 2007 18:18:05 +0000 Subject: =?UTF-8?q?2007-01-27=09Ralf=20Cors=C3=A9pius=20?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * libblock/src/show_bdbuf.c: Convert from DOS to UNIX. --- cpukit/ChangeLog | 4 + cpukit/libblock/src/show_bdbuf.c | 1808 +++++++++++++++++++------------------- 2 files changed, 908 insertions(+), 904 deletions(-) diff --git a/cpukit/ChangeLog b/cpukit/ChangeLog index 90364e542f..db7a92ca51 100644 --- a/cpukit/ChangeLog +++ b/cpukit/ChangeLog @@ -1,3 +1,7 @@ +2007-01-27 Ralf Corsépius + + * libblock/src/show_bdbuf.c: Convert from DOS to UNIX. + 2007-01-27 Ralf Corsépius * score/include/rtems/system.h: Remove __RTEMS_MAJOR__, diff --git a/cpukit/libblock/src/show_bdbuf.c b/cpukit/libblock/src/show_bdbuf.c index 0deb28e854..3c8f8e1965 100644 --- a/cpukit/libblock/src/show_bdbuf.c +++ b/cpukit/libblock/src/show_bdbuf.c @@ -1,904 +1,904 @@ -/*===============================================================*\ -| Project: RTEMS bdbuf inspector | -+-----------------------------------------------------------------+ -| File: show_bdbuf.c -+-----------------------------------------------------------------+ -| Copyright (c) 2005 | -| Embedded Brains GmbH | -| Obere Lagerstr. 30 | -| D-82178 Puchheim | -| Germany | -| rtems@embedded-brains.de | -+-----------------------------------------------------------------+ -| The license and distribution terms for this file may be | -| found in the file LICENSE in this distribution or at | -| | -| http://www.rtems.com/license/LICENSE. | -| | -+-----------------------------------------------------------------+ -| this file contains functions to enable the monitor | -| to show bdbuf information | -| | -| XXX!!! ATTETION!!! XXX!!! | -| | -| This module inspects the bdbuf data structures, | -| assuming they are static, but in fact they are used very | -| dynamically. Therefore the results show MAY BE INCORRECT in | -| some cases. And, to cure this a bit, this module may block | -| preemption for a rather long time and therefore it may | -| BREAK THE REALTIME BEHAVIOUR OF YOUR SYSTEM (when in use) | -+-----------------------------------------------------------------+ -| date history ID | -| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | -| 26.09.06 creation doe | -|*****************************************************************| -\*===============================================================*/ -#include -#include -#include -#include -#include -#include -#include - - -typedef struct { - boolean bdbuf_modified; - boolean bdbuf_in_progress; - boolean bdbuf_actual; - boolean bdbuf_used; - boolean bdbuf_all; - rtems_bdpool_id pool_id; -} show_bdbuf_filter_t; - -typedef struct { - boolean show_all; - boolean show_node_chain; - boolean show_dev; - boolean show_blocknum; - boolean show_error; - boolean show_state; - boolean show_use_count; - boolean show_pool_id; - boolean show_sema; -} show_bdbuf_selector_t; - -typedef enum {bdbuf_chain_ident_none, - bdbuf_chain_ident_free, - bdbuf_chain_ident_lru, - bdbuf_chain_ident_mod} bdbuf_chain_identifier_t; - -typedef struct { - rtems_bdpool_id pool_id; - int index; - bdbuf_chain_identifier_t in_chain; - dev_t dev; - blkdev_bnum blknum; - rtems_status_code status; - int error; - boolean modified; - boolean in_progress; - boolean actual; - int use_count; - const CORE_mutex_Control *sema; -} show_bdbuf_bdbuf_info_t; - -typedef rtems_mode preemption_key_t; -#define DISABLE_PREEMPTION(key) \ - do { \ - rtems_task_mode(RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &(key)); \ - } while (0) - -#define ENABLE_PREEMPTION(key) \ - do { \ - rtems_mode temp; \ - rtems_task_mode((key), RTEMS_PREEMPT_MASK, &temp); \ - } while (0) - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_bdbuf_show_follow_chain_node_to_head -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| follow a given chain to its head | -| XXX: this is executed with preemption disabled | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - const Chain_Node *the_node, /* input: node to track to its head */ - Chain_Control **the_head /* storage for pointer to chain head */ -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code rc = RTEMS_SUCCESSFUL; - preemption_key_t preempt_key; - boolean preempt_disabled = FALSE; - /* - * disable preemption - */ - if (rc == RTEMS_SUCCESSFUL) { - DISABLE_PREEMPTION(preempt_key); - } - /* - * follow node to its head - * XXX: this is highly dependent on the chain implementation - * in score/src/chain.c and friends - */ - while (the_node->previous != NULL) { - the_node = the_node->previous; - } - /* - * reenable preemption, if disabled - */ - if (preempt_disabled) { - ENABLE_PREEMPTION(preempt_key); - } - /* - * XXX: this depends n the chain implementation in - * score/include/rtems/score/chain.h: - * Chain_Control is overlayed by two Cohain_Nodes - */ - *the_head = (Chain_Control *)the_node; - - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_bdbuf_show_determine_chain_of_bdbuf -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| find out, which chain this bdbuf is linked in | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - const bdbuf_buffer *the_bdbuf, /* this is the bdbuf structure */ - const bdbuf_pool *curr_pool, /* the pool this buffer belongs to */ - bdbuf_chain_identifier_t *chn_ident /* result: identifier for chain */ -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code rc = RTEMS_SUCCESSFUL; - Chain_Control *the_chain_control; - - - *chn_ident = bdbuf_chain_ident_none; - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_bdbuf_show_follow_chain_node_to_head(&(the_bdbuf->link), - &(the_chain_control)); - } - if (rc == RTEMS_SUCCESSFUL) { - if (the_chain_control == &(curr_pool->free)) { - *chn_ident = bdbuf_chain_ident_free; - } - else if (the_chain_control == &(curr_pool->lru)) { - *chn_ident = bdbuf_chain_ident_lru; - } - else if (the_chain_control == &(rtems_bdbuf_ctx.mod)) { - *chn_ident = bdbuf_chain_ident_mod; - } - } - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_bdbuf_show_getargs -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| analyze cmd arguments | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - int argc, - char **argv, - show_bdbuf_filter_t *filter, - show_bdbuf_selector_t *selector -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code sc = RTEMS_SUCCESSFUL; - int arg_error = 0; - int i; - char *tmp_ptr; - int nm_argc = 0; - /* - * set filter and selector to default - */ - memset(filter,0,sizeof(*filter)); - filter->bdbuf_all = TRUE; - memset(selector,0,sizeof(*selector)); - selector->show_all = TRUE; - - /* - * scan arguments - */ - for (i = 1; - (i < argc) && (arg_error == 0); - i++) { - if (argv[i][0] == '-') { - /* - * modifier arguments - */ - switch(tolower(argv[i][1])) { - /* - * selection, which bdbufs to show - */ - case 'm': /* only show bdbufs modified */ - filter->bdbuf_modified = TRUE ; - filter->bdbuf_all = FALSE; - break; - case 'i': /* only show bdbufs in progress*/ - filter->bdbuf_in_progress = TRUE ; - filter->bdbuf_all = FALSE; - break; - case 'v': /* only show bdbufs, which have valid data*/ - filter->bdbuf_actual = TRUE ; - filter->bdbuf_all = FALSE; - break; - case 'u': /* only show bdbufs, which are in use */ - filter->bdbuf_used = TRUE ; - filter->bdbuf_all = FALSE; - break; - case 'p': /* only show bdbufs, which belong to pool */ - filter->pool_id = strtol(argv[i]+2,&tmp_ptr,0); - if (tmp_ptr == argv[i]+2) { /* no conversion performed... */ - arg_error = i; - } - filter->bdbuf_all = FALSE; - break; - /* - * selection, what fields to show - */ - case 'n': /* show bdbuf node_chain */ - selector->show_node_chain = TRUE ; - selector->show_all = FALSE; - break; - case 'd': /* show device */ - selector->show_dev = TRUE ; - selector->show_all = FALSE; - break; - case 'b': /* show blocknum */ - selector->show_blocknum = TRUE ; - selector->show_all = FALSE; - break; - case 'e': /* show bdbuf error status */ - selector->show_error = TRUE ; - selector->show_all = FALSE; - break; - case 's': /* show bdbuf state */ - selector->show_state = TRUE ; - selector->show_all = FALSE; - break; - case 'c': /* show bdbuf use count */ - selector->show_use_count = TRUE ; - selector->show_all = FALSE; - break; - case 'l': /* show bdbuf pool id */ - selector->show_pool_id = TRUE ; - selector->show_all = FALSE; - break; - case 't': /* show bdbuf transfer sema */ - selector->show_sema = TRUE ; - break; - default: - arg_error = i; - break; - } - } - else { - /* - * non-modifier arguments - */ - switch(++nm_argc) { - default: /* no further arguments defined */ - arg_error = i; - break; - } - } - } - if (arg_error) { - printf("%s: unknown argument %s\n",argv[0],argv[arg_error]); - sc = RTEMS_NOT_DEFINED; - } - return sc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_bdbuf_show_get_bufpool -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| get buffer pool information | -| XXX: this should be coupled closer to the bdbuf.c module | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - struct bdbuf_pool **pool_base_pptr, - int *pool_cnt_ptr -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code rc = RTEMS_SUCCESSFUL; -#if 0 - rtems_status_code pool_rc = RTEMS_SUCCESSFUL; - struct bdbuf_pool *curr_pool,*pool_base, *pool_top; - int pool_cnt; - int pool_probe_size; - /* - * get first buffer pool - * XXX: this is highly dependent on how pools are defined - * and maintained in bdbuf.c - */ - if (rc == RTEMS_SUCCESSFUL) { - /* - * try all possible pool sizes, get highest/lowest pool address - */ - pool_base = NULL; - pool_top = NULL; - curr_pool = NULL; - for (pool_probe_size = 1; - pool_probe_size < (INT_MAX>>1) && (pool_rc == RTEMS_SUCCESSFUL); - pool_probe_size <<= 1) { - pool_rc = rtems_bdbuf_find_pool(pool_probe_size,&curr_pool); - if (pool_rc == RTEMS_SUCCESSFUL) { - if (pool_base > curr_pool) { - pool_base = curr_pool; - } - if (pool_top < curr_pool) { - pool_top = curr_pool; - } - } - } - if (pool_base == NULL) { - rc = RTEMS_UNSATISFIED; - } - else { - pool_cnt = (pool_top - pool_base) + 1; - } - } - if (rc == RTEMS_SUCCESSFUL) { - *pool_base_pptr = pool_base; - *pool_cnt_ptr = pool_cnt; - } -#else - if (rc == RTEMS_SUCCESSFUL) { - *pool_base_pptr = rtems_bdbuf_ctx.pool; - *pool_cnt_ptr = rtems_bdbuf_ctx.npools; - } -#endif - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_bdbuf_show_pool_header -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| print buffer pool information | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - int pool_idx, - bdbuf_pool *pool_ptr -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - - rtems_status_code rc = RTEMS_SUCCESSFUL; - - if (rc == RTEMS_SUCCESSFUL) { - printf("------------------------------------------------------------------------------\n"); - printf(" pool #%03d: blksize=%5u nblks=%5u buf_mem=0x%08x bdbuf_mem=0x%08x\n", - pool_idx, - pool_ptr->blksize, - pool_ptr->nblks, - (uint32_t)(pool_ptr->mallocd_bufs), - (uint32_t)(pool_ptr->bdbufs)); - printf("------------------------------------------------------------------------------\n"); - } - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_show_bdbuf_get_bdbuf_info -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| get buffer pool information | -| XXX: this should be coupled closer to the bdbuf.c module | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - const bdbuf_buffer *the_bdbuf, /* this is the bdbuf structure */ - int bdbuf_idx, /* index of bdbuf */ - const bdbuf_pool *curr_pool, /* the pool this buffer belongs to */ - show_bdbuf_bdbuf_info_t *bdbuf_info /* struct to store info of bdbuf */ -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - - rtems_status_code rc = RTEMS_SUCCESSFUL; - - /* - * determine the chain we are in - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_bdbuf_show_determine_chain_of_bdbuf(the_bdbuf,curr_pool, - &(bdbuf_info->in_chain)); - if (rc != RTEMS_SUCCESSFUL) { - bdbuf_info->in_chain = bdbuf_chain_ident_none; - rc = RTEMS_SUCCESSFUL; - } - } - - if (rc == RTEMS_SUCCESSFUL) { - bdbuf_info->index = bdbuf_idx; - bdbuf_info->dev = the_bdbuf->dev; - bdbuf_info->blknum = the_bdbuf->block; - bdbuf_info->status = the_bdbuf->status; - bdbuf_info->error = the_bdbuf->error; - bdbuf_info->modified = the_bdbuf->modified; - bdbuf_info->in_progress = the_bdbuf->in_progress; - bdbuf_info->actual = the_bdbuf->actual; - bdbuf_info->use_count = the_bdbuf->use_count; - bdbuf_info->sema = &(the_bdbuf->transfer_sema); - bdbuf_info->pool_id = the_bdbuf->pool; - } - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_show_bdbuf_match_filter -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| match bdbuf info with given filter | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - const show_bdbuf_bdbuf_info_t *bdbuf_info, /* struct to store info of bdbuf */ - const show_bdbuf_filter_t *filter, - boolean *is_match -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - - rtems_status_code rc = RTEMS_SUCCESSFUL; - boolean unmatch = FALSE; - - if (rc == RTEMS_SUCCESSFUL) { - if (filter->bdbuf_all) { - unmatch = FALSE; - } - else { - unmatch = ((filter->bdbuf_modified && !bdbuf_info->modified) || - (filter->bdbuf_in_progress && !bdbuf_info->in_progress) || - (filter->bdbuf_actual && !bdbuf_info->actual) || - (filter->bdbuf_used && !(bdbuf_info->use_count > 0))); - - } - *is_match = !unmatch; - } - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_show_bdbuf_print_wait_chain -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| list tasks waiting in "transfer_sema" chain | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - bdbuf_buffer *the_bdbuf /* this is the bdbuf structure */ -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code rc = RTEMS_SUCCESSFUL; - Chain_Control *the_chain_head; - const Chain_Node *the_chain_node; - int thread_cnt = 0; - const Thread_Control *the_thread; - Objects_Id thread_id; - Objects_Name thread_name; - uint32_t thread_name_nonstring; - /* - * get head of (fifo) wait chain - */ - if (rc == RTEMS_SUCCESSFUL) { - the_chain_head = &(the_bdbuf->transfer_sema.Wait_queue.Queues.Fifo); - the_chain_node = the_chain_head->first; - } - /* - * walk through thread chain - */ - while ((rc == RTEMS_SUCCESSFUL) && - (the_chain_node != _Chain_Tail( the_chain_head ))) { - thread_cnt++; - the_thread = (const Thread_Control *)the_chain_node; - - thread_id = the_thread->Object.id; - thread_name = the_thread->Object.name; - thread_name_nonstring = (uint32_t)thread_name; - printf("%20s %3d (0x%08x) %c%c%c%c\n", - ((thread_cnt == 1) ? "Threads waiting:" : ""), - thread_cnt,thread_id, - (thread_name_nonstring >> 24) & 0xff, - (thread_name_nonstring >> 16) & 0xff, - (thread_name_nonstring >> 8) & 0xff, - (thread_name_nonstring >> 0) & 0xff); - - the_chain_node = the_chain_node->next; - } - - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_show_bdbuf_print -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| print requested bdbuffer information | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - const show_bdbuf_bdbuf_info_t *bdbuf_info, /* info of bdbuf */ - show_bdbuf_selector_t * selector, /* selector, what to show */ - boolean print_header /* TRUE: print header, not info */ -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - - rtems_status_code rc = RTEMS_SUCCESSFUL; - - /* - * 6 chars: print index of buffer - */ - if (rc == RTEMS_SUCCESSFUL) { - if (print_header) { - printf("INDEX "); - } - else { - printf("%5u ",bdbuf_info->index); - } - } - /* - * 3 chars: print info about the pool id of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_use_count))) { - if (print_header) { - printf("PL "); - } - else { - printf("%2u ",bdbuf_info->pool_id); - } - } - - /* - * 4 chars: print info about chain (lru/free/mod) of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_node_chain))) { - if (print_header) { - printf("CHN "); - } - else { - printf("%3s ", - ((bdbuf_info->in_chain == bdbuf_chain_ident_free) ? "FRE" - : (bdbuf_info->in_chain == bdbuf_chain_ident_lru) ? "LRU" - : (bdbuf_info->in_chain == bdbuf_chain_ident_mod) ? "MOD" - : "???")); - } - } - - /* - * 7 chars: print info about device of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_dev))) { - if (print_header) { - printf("DEVICE "); - } - else { - printf("%3u,%2u ", - ((bdbuf_info->dev == -1) - ? 0 : rtems_filesystem_dev_major_t(bdbuf_info->dev)), - ((bdbuf_info->dev == -1) - ? 0 : rtems_filesystem_dev_minor_t(bdbuf_info->dev))); - } - } - - /* - * 7 chars: print info about block number of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_blocknum))) { - if (print_header) { - printf("BLOCK "); - } - else { - printf("%6u ",bdbuf_info->blknum); - } - } - - /* - * 4 chars: print info about use count of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_use_count))) { - if (print_header) { - printf("USE "); - } - else { - printf("%3u ",bdbuf_info->use_count); - } - } - - /* - * 4 chars: print info about state of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_state))) { - if (print_header) { - printf("STA "); - } - else { - printf("%c%c%c ", - (bdbuf_info->modified ? 'M' : '.'), - (bdbuf_info->in_progress ? 'P' : '.'), - (bdbuf_info->actual ? 'A' : '.')); - } - } - - /* - * 42 chars: print info about error of this buffer - */ - if ((rc == RTEMS_SUCCESSFUL) && - ((selector->show_all) || - (selector->show_error))) { - if (print_header) { - printf("%20s:%-10s ","RTEMS STATUS","ERRNO"); - } - else { - printf("%20s:%-10s ", - ((bdbuf_info->status == RTEMS_SUCCESSFUL) - ? "SUCCESSFUL" : rtems_status_text(bdbuf_info->status)), - ((bdbuf_info->status == RTEMS_SUCCESSFUL) - ? "" : strerror(bdbuf_info->error))); - } - } - /* - * FIXME: add info about waiting chain - */ - printf("\n"); - return rc; -} - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -void rtems_bdbuf_show_fnc -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| list all bdbufs with their content | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - int argc, - char **argv, - rtems_monitor_command_arg_t* command_arg, - boolean verbose -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code rc = RTEMS_SUCCESSFUL; - show_bdbuf_filter_t filter; - show_bdbuf_selector_t selector; - show_bdbuf_bdbuf_info_t bdbuf_info; - - bdbuf_pool *curr_pool,*pool_base; - int pool_cnt,pool_idx; - int bdbuf_idx; - boolean bdbuf_matches; - int matched_cnt,un_matched_cnt; - - /* - * analyze command line options - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_bdbuf_show_getargs (argc,argv, - &filter,&selector); - } - - /* - * get buffer pool information - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_bdbuf_show_get_bufpool(&pool_base,&pool_cnt); - if (rc != RTEMS_SUCCESSFUL) { - printf("%s: ERROR: no buffer pool found\n",argv[0]); - } - } - /* - * for all or selected buffer pool(s) - */ - for (pool_idx = 0; - (rc == RTEMS_SUCCESSFUL) && (pool_idx < pool_cnt); - pool_idx++) { - if ((filter.pool_id < 0) || - (filter.pool_id == pool_idx)) { - curr_pool = pool_base + pool_idx; - /* - * print pool header - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_bdbuf_show_pool_header(pool_idx,curr_pool); - } - if (rc == RTEMS_SUCCESSFUL) { - matched_cnt = 0; - un_matched_cnt = 0; - /* - * print header for bdbuf - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_show_bdbuf_print(NULL,&selector, - TRUE); - } - /* - * for all bdbufs in this pool - */ - for (bdbuf_idx = 0; - ((rc == RTEMS_SUCCESSFUL) && - (bdbuf_idx < curr_pool->nblks)); - bdbuf_idx++) { - /* - * get infos about bdbuf - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_show_bdbuf_get_bdbuf_info - (&(curr_pool->bdbufs[bdbuf_idx]), - bdbuf_idx, - curr_pool, - &bdbuf_info); - } - /* - * check, if bdbuf matches selection criteria - */ - if (rc == RTEMS_SUCCESSFUL) { - rc = rtems_show_bdbuf_match_filter(&bdbuf_info,&filter, - &bdbuf_matches); - } - /* - * print info about bdbuf - */ - if (rc == RTEMS_SUCCESSFUL) { - if (bdbuf_matches) { - rc = rtems_show_bdbuf_print(&bdbuf_info,&selector, - FALSE); - if ((rc == RTEMS_SUCCESSFUL) && - selector.show_sema) { - rc = rtems_show_bdbuf_print_wait_chain(&(curr_pool->bdbufs[bdbuf_idx])); - } - matched_cnt++; - } - else { - un_matched_cnt++; - } - } - } - /* - * print match statistics and footer - */ - if (rc == RTEMS_SUCCESSFUL) { - printf("%d bdbufs printed, %d bdbufs suppressed\n", - matched_cnt,un_matched_cnt); - } - } - } - } -} - -static rtems_monitor_command_entry_t rtems_show_bdbuf_cmds[] = { - { - "bdbuf_show", - "usage: bdbuf_show\n", - 0, - rtems_bdbuf_show_fnc, - { 0 }, - 0 - } -}; - -#ifndef ARRAY_CNT -#define ARRAY_CNT(arr) (sizeof((arr))/sizeof((arr)[0])) -#endif - -/*=========================================================================*\ -| Function: | -\*-------------------------------------------------------------------------*/ -rtems_status_code rtems_bdbuf_show_init -( -/*-------------------------------------------------------------------------*\ -| Purpose: | -| add command(s) to monitor | -+---------------------------------------------------------------------------+ -| Input Parameters: | -\*-------------------------------------------------------------------------*/ - void /* none up to now */ -) -/*-------------------------------------------------------------------------*\ -| Return Value: | -| rtems_status_code | -\*=========================================================================*/ -{ - rtems_status_code sc = RTEMS_SUCCESSFUL; - int item; - - for (item = 0; - (sc == RTEMS_SUCCESSFUL) && (item < ARRAY_CNT(rtems_show_bdbuf_cmds)); - item++) { - if (0 == rtems_monitor_insert_cmd (&rtems_show_bdbuf_cmds[item])) { - sc = RTEMS_INVALID_NAME; - } - } - return sc; -} +/*===============================================================*\ +| Project: RTEMS bdbuf inspector | ++-----------------------------------------------------------------+ +| File: show_bdbuf.c ++-----------------------------------------------------------------+ +| Copyright (c) 2005 | +| Embedded Brains GmbH | +| Obere Lagerstr. 30 | +| D-82178 Puchheim | +| Germany | +| rtems@embedded-brains.de | ++-----------------------------------------------------------------+ +| The license and distribution terms for this file may be | +| found in the file LICENSE in this distribution or at | +| | +| http://www.rtems.com/license/LICENSE. | +| | ++-----------------------------------------------------------------+ +| this file contains functions to enable the monitor | +| to show bdbuf information | +| | +| XXX!!! ATTETION!!! XXX!!! | +| | +| This module inspects the bdbuf data structures, | +| assuming they are static, but in fact they are used very | +| dynamically. Therefore the results show MAY BE INCORRECT in | +| some cases. And, to cure this a bit, this module may block | +| preemption for a rather long time and therefore it may | +| BREAK THE REALTIME BEHAVIOUR OF YOUR SYSTEM (when in use) | ++-----------------------------------------------------------------+ +| date history ID | +| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | +| 26.09.06 creation doe | +|*****************************************************************| +\*===============================================================*/ +#include +#include +#include +#include +#include +#include +#include + + +typedef struct { + boolean bdbuf_modified; + boolean bdbuf_in_progress; + boolean bdbuf_actual; + boolean bdbuf_used; + boolean bdbuf_all; + rtems_bdpool_id pool_id; +} show_bdbuf_filter_t; + +typedef struct { + boolean show_all; + boolean show_node_chain; + boolean show_dev; + boolean show_blocknum; + boolean show_error; + boolean show_state; + boolean show_use_count; + boolean show_pool_id; + boolean show_sema; +} show_bdbuf_selector_t; + +typedef enum {bdbuf_chain_ident_none, + bdbuf_chain_ident_free, + bdbuf_chain_ident_lru, + bdbuf_chain_ident_mod} bdbuf_chain_identifier_t; + +typedef struct { + rtems_bdpool_id pool_id; + int index; + bdbuf_chain_identifier_t in_chain; + dev_t dev; + blkdev_bnum blknum; + rtems_status_code status; + int error; + boolean modified; + boolean in_progress; + boolean actual; + int use_count; + const CORE_mutex_Control *sema; +} show_bdbuf_bdbuf_info_t; + +typedef rtems_mode preemption_key_t; +#define DISABLE_PREEMPTION(key) \ + do { \ + rtems_task_mode(RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &(key)); \ + } while (0) + +#define ENABLE_PREEMPTION(key) \ + do { \ + rtems_mode temp; \ + rtems_task_mode((key), RTEMS_PREEMPT_MASK, &temp); \ + } while (0) + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_bdbuf_show_follow_chain_node_to_head +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| follow a given chain to its head | +| XXX: this is executed with preemption disabled | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + const Chain_Node *the_node, /* input: node to track to its head */ + Chain_Control **the_head /* storage for pointer to chain head */ +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code rc = RTEMS_SUCCESSFUL; + preemption_key_t preempt_key; + boolean preempt_disabled = FALSE; + /* + * disable preemption + */ + if (rc == RTEMS_SUCCESSFUL) { + DISABLE_PREEMPTION(preempt_key); + } + /* + * follow node to its head + * XXX: this is highly dependent on the chain implementation + * in score/src/chain.c and friends + */ + while (the_node->previous != NULL) { + the_node = the_node->previous; + } + /* + * reenable preemption, if disabled + */ + if (preempt_disabled) { + ENABLE_PREEMPTION(preempt_key); + } + /* + * XXX: this depends n the chain implementation in + * score/include/rtems/score/chain.h: + * Chain_Control is overlayed by two Cohain_Nodes + */ + *the_head = (Chain_Control *)the_node; + + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_bdbuf_show_determine_chain_of_bdbuf +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| find out, which chain this bdbuf is linked in | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + const bdbuf_buffer *the_bdbuf, /* this is the bdbuf structure */ + const bdbuf_pool *curr_pool, /* the pool this buffer belongs to */ + bdbuf_chain_identifier_t *chn_ident /* result: identifier for chain */ +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code rc = RTEMS_SUCCESSFUL; + Chain_Control *the_chain_control; + + + *chn_ident = bdbuf_chain_ident_none; + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_bdbuf_show_follow_chain_node_to_head(&(the_bdbuf->link), + &(the_chain_control)); + } + if (rc == RTEMS_SUCCESSFUL) { + if (the_chain_control == &(curr_pool->free)) { + *chn_ident = bdbuf_chain_ident_free; + } + else if (the_chain_control == &(curr_pool->lru)) { + *chn_ident = bdbuf_chain_ident_lru; + } + else if (the_chain_control == &(rtems_bdbuf_ctx.mod)) { + *chn_ident = bdbuf_chain_ident_mod; + } + } + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_bdbuf_show_getargs +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| analyze cmd arguments | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + int argc, + char **argv, + show_bdbuf_filter_t *filter, + show_bdbuf_selector_t *selector +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code sc = RTEMS_SUCCESSFUL; + int arg_error = 0; + int i; + char *tmp_ptr; + int nm_argc = 0; + /* + * set filter and selector to default + */ + memset(filter,0,sizeof(*filter)); + filter->bdbuf_all = TRUE; + memset(selector,0,sizeof(*selector)); + selector->show_all = TRUE; + + /* + * scan arguments + */ + for (i = 1; + (i < argc) && (arg_error == 0); + i++) { + if (argv[i][0] == '-') { + /* + * modifier arguments + */ + switch(tolower(argv[i][1])) { + /* + * selection, which bdbufs to show + */ + case 'm': /* only show bdbufs modified */ + filter->bdbuf_modified = TRUE ; + filter->bdbuf_all = FALSE; + break; + case 'i': /* only show bdbufs in progress*/ + filter->bdbuf_in_progress = TRUE ; + filter->bdbuf_all = FALSE; + break; + case 'v': /* only show bdbufs, which have valid data*/ + filter->bdbuf_actual = TRUE ; + filter->bdbuf_all = FALSE; + break; + case 'u': /* only show bdbufs, which are in use */ + filter->bdbuf_used = TRUE ; + filter->bdbuf_all = FALSE; + break; + case 'p': /* only show bdbufs, which belong to pool */ + filter->pool_id = strtol(argv[i]+2,&tmp_ptr,0); + if (tmp_ptr == argv[i]+2) { /* no conversion performed... */ + arg_error = i; + } + filter->bdbuf_all = FALSE; + break; + /* + * selection, what fields to show + */ + case 'n': /* show bdbuf node_chain */ + selector->show_node_chain = TRUE ; + selector->show_all = FALSE; + break; + case 'd': /* show device */ + selector->show_dev = TRUE ; + selector->show_all = FALSE; + break; + case 'b': /* show blocknum */ + selector->show_blocknum = TRUE ; + selector->show_all = FALSE; + break; + case 'e': /* show bdbuf error status */ + selector->show_error = TRUE ; + selector->show_all = FALSE; + break; + case 's': /* show bdbuf state */ + selector->show_state = TRUE ; + selector->show_all = FALSE; + break; + case 'c': /* show bdbuf use count */ + selector->show_use_count = TRUE ; + selector->show_all = FALSE; + break; + case 'l': /* show bdbuf pool id */ + selector->show_pool_id = TRUE ; + selector->show_all = FALSE; + break; + case 't': /* show bdbuf transfer sema */ + selector->show_sema = TRUE ; + break; + default: + arg_error = i; + break; + } + } + else { + /* + * non-modifier arguments + */ + switch(++nm_argc) { + default: /* no further arguments defined */ + arg_error = i; + break; + } + } + } + if (arg_error) { + printf("%s: unknown argument %s\n",argv[0],argv[arg_error]); + sc = RTEMS_NOT_DEFINED; + } + return sc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_bdbuf_show_get_bufpool +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| get buffer pool information | +| XXX: this should be coupled closer to the bdbuf.c module | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + struct bdbuf_pool **pool_base_pptr, + int *pool_cnt_ptr +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code rc = RTEMS_SUCCESSFUL; +#if 0 + rtems_status_code pool_rc = RTEMS_SUCCESSFUL; + struct bdbuf_pool *curr_pool,*pool_base, *pool_top; + int pool_cnt; + int pool_probe_size; + /* + * get first buffer pool + * XXX: this is highly dependent on how pools are defined + * and maintained in bdbuf.c + */ + if (rc == RTEMS_SUCCESSFUL) { + /* + * try all possible pool sizes, get highest/lowest pool address + */ + pool_base = NULL; + pool_top = NULL; + curr_pool = NULL; + for (pool_probe_size = 1; + pool_probe_size < (INT_MAX>>1) && (pool_rc == RTEMS_SUCCESSFUL); + pool_probe_size <<= 1) { + pool_rc = rtems_bdbuf_find_pool(pool_probe_size,&curr_pool); + if (pool_rc == RTEMS_SUCCESSFUL) { + if (pool_base > curr_pool) { + pool_base = curr_pool; + } + if (pool_top < curr_pool) { + pool_top = curr_pool; + } + } + } + if (pool_base == NULL) { + rc = RTEMS_UNSATISFIED; + } + else { + pool_cnt = (pool_top - pool_base) + 1; + } + } + if (rc == RTEMS_SUCCESSFUL) { + *pool_base_pptr = pool_base; + *pool_cnt_ptr = pool_cnt; + } +#else + if (rc == RTEMS_SUCCESSFUL) { + *pool_base_pptr = rtems_bdbuf_ctx.pool; + *pool_cnt_ptr = rtems_bdbuf_ctx.npools; + } +#endif + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_bdbuf_show_pool_header +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| print buffer pool information | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + int pool_idx, + bdbuf_pool *pool_ptr +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + + rtems_status_code rc = RTEMS_SUCCESSFUL; + + if (rc == RTEMS_SUCCESSFUL) { + printf("------------------------------------------------------------------------------\n"); + printf(" pool #%03d: blksize=%5u nblks=%5u buf_mem=0x%08x bdbuf_mem=0x%08x\n", + pool_idx, + pool_ptr->blksize, + pool_ptr->nblks, + pool_ptr->mallocd_bufs, + pool_ptr->bdbufs); + printf("------------------------------------------------------------------------------\n"); + } + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_show_bdbuf_get_bdbuf_info +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| get buffer pool information | +| XXX: this should be coupled closer to the bdbuf.c module | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + const bdbuf_buffer *the_bdbuf, /* this is the bdbuf structure */ + int bdbuf_idx, /* index of bdbuf */ + const bdbuf_pool *curr_pool, /* the pool this buffer belongs to */ + show_bdbuf_bdbuf_info_t *bdbuf_info /* struct to store info of bdbuf */ +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + + rtems_status_code rc = RTEMS_SUCCESSFUL; + + /* + * determine the chain we are in + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_bdbuf_show_determine_chain_of_bdbuf(the_bdbuf,curr_pool, + &(bdbuf_info->in_chain)); + if (rc != RTEMS_SUCCESSFUL) { + bdbuf_info->in_chain = bdbuf_chain_ident_none; + rc = RTEMS_SUCCESSFUL; + } + } + + if (rc == RTEMS_SUCCESSFUL) { + bdbuf_info->index = bdbuf_idx; + bdbuf_info->dev = the_bdbuf->dev; + bdbuf_info->blknum = the_bdbuf->block; + bdbuf_info->status = the_bdbuf->status; + bdbuf_info->error = the_bdbuf->error; + bdbuf_info->modified = the_bdbuf->modified; + bdbuf_info->in_progress = the_bdbuf->in_progress; + bdbuf_info->actual = the_bdbuf->actual; + bdbuf_info->use_count = the_bdbuf->use_count; + bdbuf_info->sema = &(the_bdbuf->transfer_sema); + bdbuf_info->pool_id = the_bdbuf->pool; + } + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_show_bdbuf_match_filter +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| match bdbuf info with given filter | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + const show_bdbuf_bdbuf_info_t *bdbuf_info, /* struct to store info of bdbuf */ + const show_bdbuf_filter_t *filter, + boolean *is_match +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + + rtems_status_code rc = RTEMS_SUCCESSFUL; + boolean unmatch = FALSE; + + if (rc == RTEMS_SUCCESSFUL) { + if (filter->bdbuf_all) { + unmatch = FALSE; + } + else { + unmatch = ((filter->bdbuf_modified && !bdbuf_info->modified) || + (filter->bdbuf_in_progress && !bdbuf_info->in_progress) || + (filter->bdbuf_actual && !bdbuf_info->actual) || + (filter->bdbuf_used && !(bdbuf_info->use_count > 0))); + + } + *is_match = !unmatch; + } + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_show_bdbuf_print_wait_chain +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| list tasks waiting in "transfer_sema" chain | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + bdbuf_buffer *the_bdbuf /* this is the bdbuf structure */ +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code rc = RTEMS_SUCCESSFUL; + Chain_Control *the_chain_head; + const Chain_Node *the_chain_node; + int thread_cnt = 0; + const Thread_Control *the_thread; + Objects_Id thread_id; + Objects_Name thread_name; + uint32_t thread_name_nonstring; + /* + * get head of (fifo) wait chain + */ + if (rc == RTEMS_SUCCESSFUL) { + the_chain_head = &(the_bdbuf->transfer_sema.Wait_queue.Queues.Fifo); + the_chain_node = the_chain_head->first; + } + /* + * walk through thread chain + */ + while ((rc == RTEMS_SUCCESSFUL) && + (the_chain_node != _Chain_Tail( the_chain_head ))) { + thread_cnt++; + the_thread = (const Thread_Control *)the_chain_node; + + thread_id = the_thread->Object.id; + thread_name = the_thread->Object.name; + thread_name_nonstring = (uint32_t)thread_name; + printf("%20s %3d (0x%08x) %c%c%c%c\n", + ((thread_cnt == 1) ? "Threads waiting:" : ""), + thread_cnt,thread_id, + (thread_name_nonstring >> 24) & 0xff, + (thread_name_nonstring >> 16) & 0xff, + (thread_name_nonstring >> 8) & 0xff, + (thread_name_nonstring >> 0) & 0xff); + + the_chain_node = the_chain_node->next; + } + + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_show_bdbuf_print +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| print requested bdbuffer information | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + const show_bdbuf_bdbuf_info_t *bdbuf_info, /* info of bdbuf */ + show_bdbuf_selector_t * selector, /* selector, what to show */ + boolean print_header /* TRUE: print header, not info */ +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + + rtems_status_code rc = RTEMS_SUCCESSFUL; + + /* + * 6 chars: print index of buffer + */ + if (rc == RTEMS_SUCCESSFUL) { + if (print_header) { + printf("INDEX "); + } + else { + printf("%5u ",bdbuf_info->index); + } + } + /* + * 3 chars: print info about the pool id of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_use_count))) { + if (print_header) { + printf("PL "); + } + else { + printf("%2u ",bdbuf_info->pool_id); + } + } + + /* + * 4 chars: print info about chain (lru/free/mod) of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_node_chain))) { + if (print_header) { + printf("CHN "); + } + else { + printf("%3s ", + ((bdbuf_info->in_chain == bdbuf_chain_ident_free) ? "FRE" + : (bdbuf_info->in_chain == bdbuf_chain_ident_lru) ? "LRU" + : (bdbuf_info->in_chain == bdbuf_chain_ident_mod) ? "MOD" + : "???")); + } + } + + /* + * 7 chars: print info about device of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_dev))) { + if (print_header) { + printf("DEVICE "); + } + else { + printf("%3u,%2u ", + ((bdbuf_info->dev == -1) + ? 0 : rtems_filesystem_dev_major_t(bdbuf_info->dev)), + ((bdbuf_info->dev == -1) + ? 0 : rtems_filesystem_dev_minor_t(bdbuf_info->dev))); + } + } + + /* + * 7 chars: print info about block number of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_blocknum))) { + if (print_header) { + printf("BLOCK "); + } + else { + printf("%6u ",bdbuf_info->blknum); + } + } + + /* + * 4 chars: print info about use count of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_use_count))) { + if (print_header) { + printf("USE "); + } + else { + printf("%3u ",bdbuf_info->use_count); + } + } + + /* + * 4 chars: print info about state of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_state))) { + if (print_header) { + printf("STA "); + } + else { + printf("%c%c%c ", + (bdbuf_info->modified ? 'M' : '.'), + (bdbuf_info->in_progress ? 'P' : '.'), + (bdbuf_info->actual ? 'A' : '.')); + } + } + + /* + * 42 chars: print info about error of this buffer + */ + if ((rc == RTEMS_SUCCESSFUL) && + ((selector->show_all) || + (selector->show_error))) { + if (print_header) { + printf("%20s:%-10s ","RTEMS STATUS","ERRNO"); + } + else { + printf("%20s:%-10s ", + ((bdbuf_info->status == RTEMS_SUCCESSFUL) + ? "SUCCESSFUL" : rtems_status_text(bdbuf_info->status)), + ((bdbuf_info->status == RTEMS_SUCCESSFUL) + ? "" : strerror(bdbuf_info->error))); + } + } + /* + * FIXME: add info about waiting chain + */ + printf("\n"); + return rc; +} + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +void rtems_bdbuf_show_fnc +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| list all bdbufs with their content | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + int argc, + char **argv, + rtems_monitor_command_arg_t* command_arg, + boolean verbose +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code rc = RTEMS_SUCCESSFUL; + show_bdbuf_filter_t filter; + show_bdbuf_selector_t selector; + show_bdbuf_bdbuf_info_t bdbuf_info; + + bdbuf_pool *curr_pool,*pool_base; + int pool_cnt,pool_idx; + int bdbuf_idx; + boolean bdbuf_matches; + int matched_cnt,un_matched_cnt; + + /* + * analyze command line options + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_bdbuf_show_getargs (argc,argv, + &filter,&selector); + } + + /* + * get buffer pool information + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_bdbuf_show_get_bufpool(&pool_base,&pool_cnt); + if (rc != RTEMS_SUCCESSFUL) { + printf("%s: ERROR: no buffer pool found\n",argv[0]); + } + } + /* + * for all or selected buffer pool(s) + */ + for (pool_idx = 0; + (rc == RTEMS_SUCCESSFUL) && (pool_idx < pool_cnt); + pool_idx++) { + if ((filter.pool_id < 0) || + (filter.pool_id == pool_idx)) { + curr_pool = pool_base + pool_idx; + /* + * print pool header + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_bdbuf_show_pool_header(pool_idx,curr_pool); + } + if (rc == RTEMS_SUCCESSFUL) { + matched_cnt = 0; + un_matched_cnt = 0; + /* + * print header for bdbuf + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_show_bdbuf_print(NULL,&selector, + TRUE); + } + /* + * for all bdbufs in this pool + */ + for (bdbuf_idx = 0; + ((rc == RTEMS_SUCCESSFUL) && + (bdbuf_idx < curr_pool->nblks)); + bdbuf_idx++) { + /* + * get infos about bdbuf + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_show_bdbuf_get_bdbuf_info + (&(curr_pool->bdbufs[bdbuf_idx]), + bdbuf_idx, + curr_pool, + &bdbuf_info); + } + /* + * check, if bdbuf matches selection criteria + */ + if (rc == RTEMS_SUCCESSFUL) { + rc = rtems_show_bdbuf_match_filter(&bdbuf_info,&filter, + &bdbuf_matches); + } + /* + * print info about bdbuf + */ + if (rc == RTEMS_SUCCESSFUL) { + if (bdbuf_matches) { + rc = rtems_show_bdbuf_print(&bdbuf_info,&selector, + FALSE); + if ((rc == RTEMS_SUCCESSFUL) && + selector.show_sema) { + rc = rtems_show_bdbuf_print_wait_chain(&(curr_pool->bdbufs[bdbuf_idx])); + } + matched_cnt++; + } + else { + un_matched_cnt++; + } + } + } + /* + * print match statistics and footer + */ + if (rc == RTEMS_SUCCESSFUL) { + printf("%d bdbufs printed, %d bdbufs suppressed\n", + matched_cnt,un_matched_cnt); + } + } + } + } +} + +static rtems_monitor_command_entry_t rtems_show_bdbuf_cmds[] = { + { + "bdbuf_show", + "usage: bdbuf_show\n", + 0, + rtems_bdbuf_show_fnc, + { 0 }, + 0 + } +}; + +#ifndef ARRAY_CNT +#define ARRAY_CNT(arr) (sizeof((arr))/sizeof((arr)[0])) +#endif + +/*=========================================================================*\ +| Function: | +\*-------------------------------------------------------------------------*/ +rtems_status_code rtems_bdbuf_show_init +( +/*-------------------------------------------------------------------------*\ +| Purpose: | +| add command(s) to monitor | ++---------------------------------------------------------------------------+ +| Input Parameters: | +\*-------------------------------------------------------------------------*/ + void /* none up to now */ +) +/*-------------------------------------------------------------------------*\ +| Return Value: | +| rtems_status_code | +\*=========================================================================*/ +{ + rtems_status_code sc = RTEMS_SUCCESSFUL; + int item; + + for (item = 0; + (sc == RTEMS_SUCCESSFUL) && (item < ARRAY_CNT(rtems_show_bdbuf_cmds)); + item++) { + if (0 == rtems_monitor_insert_cmd (&rtems_show_bdbuf_cmds[item])) { + sc = RTEMS_INVALID_NAME; + } + } + return sc; +} -- cgit v1.2.3