Home | History | Annotate | Line # | Download | only in ddb
db_command.c revision 1.8
      1  1.1      cgd /*
      2  1.1      cgd  * Mach Operating System
      3  1.1      cgd  * Copyright (c) 1991,1990 Carnegie Mellon University
      4  1.1      cgd  * All Rights Reserved.
      5  1.1      cgd  *
      6  1.1      cgd  * Permission to use, copy, modify and distribute this software and its
      7  1.1      cgd  * documentation is hereby granted, provided that both the copyright
      8  1.1      cgd  * notice and this permission notice appear in all copies of the
      9  1.1      cgd  * software, derivative works or modified versions, and any portions
     10  1.1      cgd  * thereof, and that both notices appear in supporting documentation.
     11  1.1      cgd  *
     12  1.1      cgd  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
     13  1.1      cgd  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
     14  1.1      cgd  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     15  1.1      cgd  *
     16  1.1      cgd  * Carnegie Mellon requests users of this software to return to
     17  1.1      cgd  *
     18  1.1      cgd  *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
     19  1.1      cgd  *  School of Computer Science
     20  1.1      cgd  *  Carnegie Mellon University
     21  1.1      cgd  *  Pittsburgh PA 15213-3890
     22  1.1      cgd  *
     23  1.1      cgd  * any improvements or extensions that they make and grant Carnegie the
     24  1.1      cgd  * rights to redistribute these changes.
     25  1.3      cgd  *
     26  1.8  mycroft  *	$Id: db_command.c,v 1.8 1994/01/09 22:35:10 mycroft Exp $
     27  1.1      cgd  */
     28  1.5  mycroft 
     29  1.1      cgd /*
     30  1.1      cgd  * Command dispatcher.
     31  1.1      cgd  */
     32  1.7  mycroft #include <sys/param.h>
     33  1.7  mycroft #include <sys/proc.h>
     34  1.7  mycroft 
     35  1.1      cgd #include <machine/db_machdep.h>		/* type definitions */
     36  1.1      cgd 
     37  1.1      cgd #include <ddb/db_lex.h>
     38  1.1      cgd #include <ddb/db_output.h>
     39  1.1      cgd 
     40  1.1      cgd #include <setjmp.h>
     41  1.1      cgd 
     42  1.1      cgd /*
     43  1.1      cgd  * Exported global variables
     44  1.1      cgd  */
     45  1.1      cgd boolean_t	db_cmd_loop_done;
     46  1.8  mycroft jmp_buf		*db_recover;
     47  1.1      cgd db_addr_t	db_dot;
     48  1.1      cgd db_addr_t	db_last_addr;
     49  1.1      cgd db_addr_t	db_prev;
     50  1.1      cgd db_addr_t	db_next;
     51  1.1      cgd 
     52  1.1      cgd /*
     53  1.1      cgd  * if 'ed' style: 'dot' is set at start of last item printed,
     54  1.1      cgd  * and '+' points to next line.
     55  1.1      cgd  * Otherwise: 'dot' points to next item, '..' points to last.
     56  1.1      cgd  */
     57  1.1      cgd boolean_t	db_ed_style = TRUE;
     58  1.1      cgd 
     59  1.1      cgd /*
     60  1.1      cgd  * Utility routine - discard tokens through end-of-line.
     61  1.1      cgd  */
     62  1.1      cgd void
     63  1.1      cgd db_skip_to_eol()
     64  1.1      cgd {
     65  1.1      cgd 	int	t;
     66  1.1      cgd 	do {
     67  1.1      cgd 	    t = db_read_token();
     68  1.1      cgd 	} while (t != tEOL);
     69  1.1      cgd }
     70  1.1      cgd 
     71  1.1      cgd /*
     72  1.1      cgd  * Command table
     73  1.1      cgd  */
     74  1.1      cgd struct command {
     75  1.1      cgd 	char *	name;		/* command name */
     76  1.1      cgd 	void	(*fcn)();	/* function to call */
     77  1.1      cgd 	int	flag;		/* extra info: */
     78  1.1      cgd #define	CS_OWN		0x1	    /* non-standard syntax */
     79  1.1      cgd #define	CS_MORE		0x2	    /* standard syntax, but may have other
     80  1.1      cgd 				       words at end */
     81  1.1      cgd #define	CS_SET_DOT	0x100	    /* set dot after command */
     82  1.1      cgd 	struct command *more;	/* another level of command */
     83  1.1      cgd };
     84  1.1      cgd 
     85  1.1      cgd /*
     86  1.1      cgd  * Results of command search.
     87  1.1      cgd  */
     88  1.1      cgd #define	CMD_UNIQUE	0
     89  1.1      cgd #define	CMD_FOUND	1
     90  1.1      cgd #define	CMD_NONE	2
     91  1.1      cgd #define	CMD_AMBIGUOUS	3
     92  1.1      cgd #define	CMD_HELP	4
     93  1.1      cgd 
     94  1.1      cgd /*
     95  1.1      cgd  * Search for command prefix.
     96  1.1      cgd  */
     97  1.1      cgd int
     98  1.1      cgd db_cmd_search(name, table, cmdp)
     99  1.1      cgd 	char *		name;
    100  1.1      cgd 	struct command	*table;
    101  1.1      cgd 	struct command	**cmdp;	/* out */
    102  1.1      cgd {
    103  1.1      cgd 	struct command	*cmd;
    104  1.1      cgd 	int		result = CMD_NONE;
    105  1.1      cgd 
    106  1.1      cgd 	for (cmd = table; cmd->name != 0; cmd++) {
    107  1.1      cgd 	    register char *lp;
    108  1.1      cgd 	    register char *rp;
    109  1.1      cgd 	    register int  c;
    110  1.1      cgd 
    111  1.1      cgd 	    lp = name;
    112  1.1      cgd 	    rp = cmd->name;
    113  1.1      cgd 	    while ((c = *lp) == *rp) {
    114  1.1      cgd 		if (c == 0) {
    115  1.1      cgd 		    /* complete match */
    116  1.1      cgd 		    *cmdp = cmd;
    117  1.1      cgd 		    return (CMD_UNIQUE);
    118  1.1      cgd 		}
    119  1.1      cgd 		lp++;
    120  1.1      cgd 		rp++;
    121  1.1      cgd 	    }
    122  1.1      cgd 	    if (c == 0) {
    123  1.1      cgd 		/* end of name, not end of command -
    124  1.1      cgd 		   partial match */
    125  1.1      cgd 		if (result == CMD_FOUND) {
    126  1.1      cgd 		    result = CMD_AMBIGUOUS;
    127  1.1      cgd 		    /* but keep looking for a full match -
    128  1.1      cgd 		       this lets us match single letters */
    129  1.1      cgd 		}
    130  1.1      cgd 		else {
    131  1.1      cgd 		    *cmdp = cmd;
    132  1.1      cgd 		    result = CMD_FOUND;
    133  1.1      cgd 		}
    134  1.1      cgd 	    }
    135  1.1      cgd 	}
    136  1.1      cgd 	if (result == CMD_NONE) {
    137  1.1      cgd 	    /* check for 'help' */
    138  1.1      cgd 		if (name[0] == 'h' && name[1] == 'e'
    139  1.1      cgd 		    && name[2] == 'l' && name[3] == 'p')
    140  1.1      cgd 			result = CMD_HELP;
    141  1.1      cgd 	}
    142  1.1      cgd 	return (result);
    143  1.1      cgd }
    144  1.1      cgd 
    145  1.1      cgd void
    146  1.1      cgd db_cmd_list(table)
    147  1.1      cgd 	struct command *table;
    148  1.1      cgd {
    149  1.1      cgd 	register struct command *cmd;
    150  1.1      cgd 
    151  1.1      cgd 	for (cmd = table; cmd->name != 0; cmd++) {
    152  1.1      cgd 	    db_printf("%-12s", cmd->name);
    153  1.1      cgd 	    db_end_line();
    154  1.1      cgd 	}
    155  1.1      cgd }
    156  1.1      cgd 
    157  1.1      cgd void
    158  1.1      cgd db_command(last_cmdp, cmd_table)
    159  1.1      cgd 	struct command	**last_cmdp;	/* IN_OUT */
    160  1.1      cgd 	struct command	*cmd_table;
    161  1.1      cgd {
    162  1.1      cgd 	struct command	*cmd;
    163  1.1      cgd 	int		t;
    164  1.1      cgd 	char		modif[TOK_STRING_SIZE];
    165  1.1      cgd 	db_expr_t	addr, count;
    166  1.1      cgd 	boolean_t	have_addr;
    167  1.1      cgd 	int		result;
    168  1.1      cgd 
    169  1.1      cgd 	t = db_read_token();
    170  1.1      cgd 	if (t == tEOL) {
    171  1.1      cgd 	    /* empty line repeats last command, at 'next' */
    172  1.1      cgd 	    cmd = *last_cmdp;
    173  1.1      cgd 	    addr = (db_expr_t)db_next;
    174  1.1      cgd 	    have_addr = FALSE;
    175  1.1      cgd 	    count = 1;
    176  1.1      cgd 	    modif[0] = '\0';
    177  1.1      cgd 	}
    178  1.1      cgd 	else if (t == tEXCL) {
    179  1.1      cgd 	    void db_fncall();
    180  1.1      cgd 	    db_fncall();
    181  1.1      cgd 	    return;
    182  1.1      cgd 	}
    183  1.1      cgd 	else if (t != tIDENT) {
    184  1.1      cgd 	    db_printf("?\n");
    185  1.1      cgd 	    db_flush_lex();
    186  1.1      cgd 	    return;
    187  1.1      cgd 	}
    188  1.1      cgd 	else {
    189  1.1      cgd 	    /*
    190  1.1      cgd 	     * Search for command
    191  1.1      cgd 	     */
    192  1.1      cgd 	    while (cmd_table) {
    193  1.1      cgd 		result = db_cmd_search(db_tok_string,
    194  1.1      cgd 				       cmd_table,
    195  1.1      cgd 				       &cmd);
    196  1.1      cgd 		switch (result) {
    197  1.1      cgd 		    case CMD_NONE:
    198  1.1      cgd 			db_printf("No such command\n");
    199  1.1      cgd 			db_flush_lex();
    200  1.1      cgd 			return;
    201  1.1      cgd 		    case CMD_AMBIGUOUS:
    202  1.1      cgd 			db_printf("Ambiguous\n");
    203  1.1      cgd 			db_flush_lex();
    204  1.1      cgd 			return;
    205  1.1      cgd 		    case CMD_HELP:
    206  1.1      cgd 			db_cmd_list(cmd_table);
    207  1.1      cgd 			db_flush_lex();
    208  1.1      cgd 			return;
    209  1.1      cgd 		    default:
    210  1.1      cgd 			break;
    211  1.1      cgd 		}
    212  1.1      cgd 		if ((cmd_table = cmd->more) != 0) {
    213  1.1      cgd 		    t = db_read_token();
    214  1.1      cgd 		    if (t != tIDENT) {
    215  1.1      cgd 			db_cmd_list(cmd_table);
    216  1.1      cgd 			db_flush_lex();
    217  1.1      cgd 			return;
    218  1.1      cgd 		    }
    219  1.1      cgd 		}
    220  1.1      cgd 	    }
    221  1.1      cgd 
    222  1.1      cgd 	    if ((cmd->flag & CS_OWN) == 0) {
    223  1.1      cgd 		/*
    224  1.1      cgd 		 * Standard syntax:
    225  1.1      cgd 		 * command [/modifier] [addr] [,count]
    226  1.1      cgd 		 */
    227  1.1      cgd 		t = db_read_token();
    228  1.1      cgd 		if (t == tSLASH) {
    229  1.1      cgd 		    t = db_read_token();
    230  1.1      cgd 		    if (t != tIDENT) {
    231  1.1      cgd 			db_printf("Bad modifier\n");
    232  1.1      cgd 			db_flush_lex();
    233  1.1      cgd 			return;
    234  1.1      cgd 		    }
    235  1.1      cgd 		    db_strcpy(modif, db_tok_string);
    236  1.1      cgd 		}
    237  1.1      cgd 		else {
    238  1.1      cgd 		    db_unread_token(t);
    239  1.1      cgd 		    modif[0] = '\0';
    240  1.1      cgd 		}
    241  1.1      cgd 
    242  1.1      cgd 		if (db_expression(&addr)) {
    243  1.1      cgd 		    db_dot = (db_addr_t) addr;
    244  1.1      cgd 		    db_last_addr = db_dot;
    245  1.1      cgd 		    have_addr = TRUE;
    246  1.1      cgd 		}
    247  1.1      cgd 		else {
    248  1.1      cgd 		    addr = (db_expr_t) db_dot;
    249  1.1      cgd 		    have_addr = FALSE;
    250  1.1      cgd 		}
    251  1.1      cgd 		t = db_read_token();
    252  1.1      cgd 		if (t == tCOMMA) {
    253  1.1      cgd 		    if (!db_expression(&count)) {
    254  1.1      cgd 			db_printf("Count missing\n");
    255  1.1      cgd 			db_flush_lex();
    256  1.1      cgd 			return;
    257  1.1      cgd 		    }
    258  1.1      cgd 		}
    259  1.1      cgd 		else {
    260  1.1      cgd 		    db_unread_token(t);
    261  1.1      cgd 		    count = -1;
    262  1.1      cgd 		}
    263  1.1      cgd 		if ((cmd->flag & CS_MORE) == 0) {
    264  1.1      cgd 		    db_skip_to_eol();
    265  1.1      cgd 		}
    266  1.1      cgd 	    }
    267  1.1      cgd 	}
    268  1.1      cgd 	*last_cmdp = cmd;
    269  1.1      cgd 	if (cmd != 0) {
    270  1.1      cgd 	    /*
    271  1.1      cgd 	     * Execute the command.
    272  1.1      cgd 	     */
    273  1.1      cgd 	    (*cmd->fcn)(addr, have_addr, count, modif);
    274  1.1      cgd 
    275  1.1      cgd 	    if (cmd->flag & CS_SET_DOT) {
    276  1.1      cgd 		/*
    277  1.1      cgd 		 * If command changes dot, set dot to
    278  1.1      cgd 		 * previous address displayed (if 'ed' style).
    279  1.1      cgd 		 */
    280  1.1      cgd 		if (db_ed_style) {
    281  1.1      cgd 		    db_dot = db_prev;
    282  1.1      cgd 		}
    283  1.1      cgd 		else {
    284  1.1      cgd 		    db_dot = db_next;
    285  1.1      cgd 		}
    286  1.1      cgd 	    }
    287  1.1      cgd 	    else {
    288  1.1      cgd 		/*
    289  1.1      cgd 		 * If command does not change dot,
    290  1.1      cgd 		 * set 'next' location to be the same.
    291  1.1      cgd 		 */
    292  1.1      cgd 		db_next = db_dot;
    293  1.1      cgd 	    }
    294  1.1      cgd 	}
    295  1.1      cgd }
    296  1.1      cgd 
    297  1.4   brezak /*ARGSUSED*/
    298  1.4   brezak void
    299  1.4   brezak db_map_print_cmd(addr, have_addr, count, modif)
    300  1.4   brezak 	db_expr_t	addr;
    301  1.4   brezak 	int		have_addr;
    302  1.4   brezak 	db_expr_t	count;
    303  1.4   brezak 	char *		modif;
    304  1.4   brezak {
    305  1.6   brezak         extern void	_vm_map_print();
    306  1.4   brezak         boolean_t full = FALSE;
    307  1.4   brezak 
    308  1.4   brezak         if (modif[0] == 'f')
    309  1.4   brezak                 full = TRUE;
    310  1.4   brezak 
    311  1.6   brezak         _vm_map_print(addr, full, db_printf);
    312  1.4   brezak }
    313  1.4   brezak 
    314  1.4   brezak /*ARGSUSED*/
    315  1.4   brezak void
    316  1.4   brezak db_object_print_cmd(addr, have_addr, count, modif)
    317  1.4   brezak 	db_expr_t	addr;
    318  1.4   brezak 	int		have_addr;
    319  1.4   brezak 	db_expr_t	count;
    320  1.4   brezak 	char *		modif;
    321  1.4   brezak {
    322  1.6   brezak         extern void	_vm_object_print();
    323  1.4   brezak         boolean_t full = FALSE;
    324  1.4   brezak 
    325  1.4   brezak         if (modif[0] == 'f')
    326  1.4   brezak                 full = TRUE;
    327  1.4   brezak 
    328  1.6   brezak         _vm_object_print(addr, full, db_printf);
    329  1.4   brezak }
    330  1.4   brezak 
    331  1.1      cgd /*
    332  1.1      cgd  * 'show' commands
    333  1.1      cgd  */
    334  1.4   brezak extern void	db_show_all_procs();
    335  1.1      cgd extern void	db_listbreak_cmd();
    336  1.1      cgd extern void	db_listwatch_cmd();
    337  1.4   brezak extern void	db_show_regs();
    338  1.1      cgd void		db_show_help();
    339  1.1      cgd 
    340  1.1      cgd struct command db_show_all_cmds[] = {
    341  1.4   brezak 	{ "procs",	db_show_all_procs,0,	0 },
    342  1.1      cgd 	{ (char *)0 }
    343  1.1      cgd };
    344  1.1      cgd 
    345  1.1      cgd struct command db_show_cmds[] = {
    346  1.1      cgd 	{ "all",	0,			0,	db_show_all_cmds },
    347  1.1      cgd 	{ "registers",	db_show_regs,		0,	0 },
    348  1.1      cgd 	{ "breaks",	db_listbreak_cmd, 	0,	0 },
    349  1.1      cgd 	{ "watches",	db_listwatch_cmd, 	0,	0 },
    350  1.4   brezak 	{ "map",	db_map_print_cmd,	0,	0 },
    351  1.4   brezak 	{ "object",	db_object_print_cmd,	0,	0 },
    352  1.1      cgd 	{ (char *)0, }
    353  1.1      cgd };
    354  1.1      cgd 
    355  1.1      cgd extern void	db_print_cmd(), db_examine_cmd(), db_set_cmd();
    356  1.1      cgd extern void	db_search_cmd();
    357  1.1      cgd extern void	db_write_cmd();
    358  1.1      cgd extern void	db_delete_cmd(), db_breakpoint_cmd();
    359  1.1      cgd extern void	db_deletewatch_cmd(), db_watchpoint_cmd();
    360  1.1      cgd extern void	db_single_step_cmd(), db_trace_until_call_cmd(),
    361  1.1      cgd 		db_trace_until_matching_cmd(), db_continue_cmd();
    362  1.1      cgd extern void	db_stack_trace_cmd();
    363  1.1      cgd void		db_help_cmd();
    364  1.1      cgd void		db_fncall();
    365  1.1      cgd 
    366  1.1      cgd struct command db_command_table[] = {
    367  1.6   brezak #ifdef DB_MACHINE_COMMANDS
    368  1.6   brezak   /* this must be the first entry, if it exists */
    369  1.6   brezak 	{ "machine",    0,                      0,     		0},
    370  1.6   brezak #endif
    371  1.6   brezak 	{ "print",	db_print_cmd,		0,		0 },
    372  1.6   brezak 	{ "examine",	db_examine_cmd,		CS_SET_DOT, 	0 },
    373  1.6   brezak 	{ "x",		db_examine_cmd,		CS_SET_DOT, 	0 },
    374  1.1      cgd 	{ "search",	db_search_cmd,		CS_OWN|CS_SET_DOT, 0 },
    375  1.6   brezak 	{ "set",	db_set_cmd,		CS_OWN,		0 },
    376  1.1      cgd 	{ "write",	db_write_cmd,		CS_MORE|CS_SET_DOT, 0 },
    377  1.1      cgd 	{ "w",		db_write_cmd,		CS_MORE|CS_SET_DOT, 0 },
    378  1.6   brezak 	{ "delete",	db_delete_cmd,		0,		0 },
    379  1.6   brezak 	{ "d",		db_delete_cmd,		0,		0 },
    380  1.6   brezak 	{ "break",	db_breakpoint_cmd,	0,		0 },
    381  1.6   brezak 	{ "dwatch",	db_deletewatch_cmd,	0,		0 },
    382  1.6   brezak 	{ "watch",	db_watchpoint_cmd,	CS_MORE,	0 },
    383  1.6   brezak 	{ "step",	db_single_step_cmd,	0,		0 },
    384  1.6   brezak 	{ "s",		db_single_step_cmd,	0,		0 },
    385  1.6   brezak 	{ "continue",	db_continue_cmd,	0,		0 },
    386  1.6   brezak 	{ "c",		db_continue_cmd,	0,		0 },
    387  1.6   brezak 	{ "until",	db_trace_until_call_cmd,0,		0 },
    388  1.6   brezak 	{ "next",	db_trace_until_matching_cmd,0,		0 },
    389  1.6   brezak 	{ "match",	db_trace_until_matching_cmd,0,		0 },
    390  1.6   brezak 	{ "trace",	db_stack_trace_cmd,	0,		0 },
    391  1.6   brezak 	{ "call",	db_fncall,		CS_OWN,		0 },
    392  1.6   brezak 	{ "ps",		db_show_all_procs,	0,		0 },
    393  1.6   brezak 	{ "show",	0,			0,		db_show_cmds },
    394  1.1      cgd 	{ (char *)0, }
    395  1.1      cgd };
    396  1.6   brezak 
    397  1.6   brezak #ifdef DB_MACHINE_COMMANDS
    398  1.6   brezak 
    399  1.6   brezak /* this function should be called to install the machine dependent
    400  1.6   brezak    commands. It should be called before the debugger is enabled  */
    401  1.6   brezak void db_machine_commands_install(ptr)
    402  1.6   brezak struct db_command *ptr;
    403  1.6   brezak {
    404  1.6   brezak   db_command_table[0].more = ptr;
    405  1.6   brezak   return;
    406  1.6   brezak }
    407  1.6   brezak 
    408  1.6   brezak #endif
    409  1.1      cgd 
    410  1.1      cgd struct command	*db_last_command = 0;
    411  1.1      cgd 
    412  1.1      cgd void
    413  1.1      cgd db_help_cmd()
    414  1.1      cgd {
    415  1.1      cgd 	struct command *cmd = db_command_table;
    416  1.1      cgd 
    417  1.1      cgd 	while (cmd->name != 0) {
    418  1.1      cgd 	    db_printf("%-12s", cmd->name);
    419  1.1      cgd 	    db_end_line();
    420  1.1      cgd 	    cmd++;
    421  1.1      cgd 	}
    422  1.1      cgd }
    423  1.1      cgd 
    424  1.1      cgd void
    425  1.1      cgd db_command_loop()
    426  1.1      cgd {
    427  1.8  mycroft 	jmp_buf		db_jmpbuf;
    428  1.8  mycroft 	jmp_buf		*savejmp = db_recover;
    429  1.8  mycroft 	extern int	db_output_line;
    430  1.4   brezak 
    431  1.1      cgd 	/*
    432  1.1      cgd 	 * Initialize 'prev' and 'next' to dot.
    433  1.1      cgd 	 */
    434  1.1      cgd 	db_prev = db_dot;
    435  1.1      cgd 	db_next = db_dot;
    436  1.1      cgd 
    437  1.1      cgd 	db_cmd_loop_done = 0;
    438  1.8  mycroft 	(void) setjmp(db_recover = &db_jmpbuf);
    439  1.8  mycroft 
    440  1.1      cgd 	while (!db_cmd_loop_done) {
    441  1.8  mycroft 		if (db_print_position() != 0)
    442  1.8  mycroft 			db_printf("\n");
    443  1.8  mycroft 		db_output_line = 0;
    444  1.1      cgd 
    445  1.8  mycroft 		db_printf("db> ");
    446  1.8  mycroft 		(void) db_read_line();
    447  1.1      cgd 
    448  1.8  mycroft 		db_command(&db_last_command, db_command_table);
    449  1.8  mycroft 	}
    450  1.1      cgd 
    451  1.8  mycroft 	db_recover = savejmp;
    452  1.1      cgd }
    453  1.1      cgd 
    454  1.1      cgd void
    455  1.1      cgd db_error(s)
    456  1.1      cgd 	char *s;
    457  1.1      cgd {
    458  1.1      cgd 	if (s)
    459  1.1      cgd 	    db_printf(s);
    460  1.1      cgd 	db_flush_lex();
    461  1.8  mycroft 	longjmp(db_recover, 1);
    462  1.1      cgd }
    463  1.1      cgd 
    464  1.1      cgd 
    465  1.1      cgd /*
    466  1.1      cgd  * Call random function:
    467  1.1      cgd  * !expr(arg,arg,arg)
    468  1.1      cgd  */
    469  1.1      cgd void
    470  1.1      cgd db_fncall()
    471  1.1      cgd {
    472  1.1      cgd 	db_expr_t	fn_addr;
    473  1.1      cgd #define	MAXARGS		11
    474  1.1      cgd 	db_expr_t	args[MAXARGS];
    475  1.1      cgd 	int		nargs = 0;
    476  1.1      cgd 	db_expr_t	retval;
    477  1.1      cgd 	db_expr_t	(*func)();
    478  1.1      cgd 	int		t;
    479  1.1      cgd 
    480  1.1      cgd 	if (!db_expression(&fn_addr)) {
    481  1.1      cgd 	    db_printf("Bad function\n");
    482  1.1      cgd 	    db_flush_lex();
    483  1.1      cgd 	    return;
    484  1.1      cgd 	}
    485  1.1      cgd 	func = (db_expr_t (*) ()) fn_addr;
    486  1.1      cgd 
    487  1.1      cgd 	t = db_read_token();
    488  1.1      cgd 	if (t == tLPAREN) {
    489  1.1      cgd 	    if (db_expression(&args[0])) {
    490  1.1      cgd 		nargs++;
    491  1.1      cgd 		while ((t = db_read_token()) == tCOMMA) {
    492  1.1      cgd 		    if (nargs == MAXARGS) {
    493  1.1      cgd 			db_printf("Too many arguments\n");
    494  1.1      cgd 			db_flush_lex();
    495  1.1      cgd 			return;
    496  1.1      cgd 		    }
    497  1.1      cgd 		    if (!db_expression(&args[nargs])) {
    498  1.1      cgd 			db_printf("Argument missing\n");
    499  1.1      cgd 			db_flush_lex();
    500  1.1      cgd 			return;
    501  1.1      cgd 		    }
    502  1.1      cgd 		    nargs++;
    503  1.1      cgd 		}
    504  1.1      cgd 		db_unread_token(t);
    505  1.1      cgd 	    }
    506  1.1      cgd 	    if (db_read_token() != tRPAREN) {
    507  1.1      cgd 		db_printf("?\n");
    508  1.1      cgd 		db_flush_lex();
    509  1.1      cgd 		return;
    510  1.1      cgd 	    }
    511  1.1      cgd 	}
    512  1.1      cgd 	db_skip_to_eol();
    513  1.1      cgd 
    514  1.1      cgd 	while (nargs < MAXARGS) {
    515  1.1      cgd 	    args[nargs++] = 0;
    516  1.1      cgd 	}
    517  1.1      cgd 
    518  1.1      cgd 	retval = (*func)(args[0], args[1], args[2], args[3], args[4],
    519  1.1      cgd 			 args[5], args[6], args[7], args[8], args[9] );
    520  1.1      cgd 	db_printf("%#n\n", retval);
    521  1.1      cgd }
    522