Source to osfmk/ddb/db_macro.c
/*
* Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
*
* @APPLE_LICENSE_HEADER_START@
*
* The contents of this file constitute Original Code as defined in and
* are subject to the Apple Public Source License Version 1.1 (the
* "License"). You may not use this file except in compliance with the
* License. Please obtain a copy of the License at
* http://www.apple.com/publicsource and read it before using this file.
*
* This Original Code and all software distributed under the License are
* distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
* License for the specific language governing rights and limitations
* under the License.
*
* @APPLE_LICENSE_HEADER_END@
*/
/*
* @OSF_COPYRIGHT@
*/
/*
* HISTORY
*
* Revision 1.1.1.1 1998/09/22 21:05:48 wsanchez
* Import of Mac OS X kernel (~semeria)
*
* Revision 1.1.1.1 1998/03/07 02:26:09 wsanchez
* Import of OSF Mach kernel (~mburg)
*
* Revision 1.2.10.4 1996/01/09 19:15:54 devrcs
* Change 'register foo' to 'register int foo'.
* [1995/12/01 21:42:14 jfraser]
*
* Merged '64-bit safe' changes from DEC alpha port.
* [1995/11/21 18:03:15 jfraser]
*
* Revision 1.2.10.3 1995/01/06 19:10:28 devrcs
* mk6 CR668 - 1.3b26 merge
* fix typing
* [1994/11/04 08:49:38 dwm]
*
* Revision 1.2.10.2 1994/09/23 01:20:19 ezf
* change marker to not FREE
* [1994/09/22 21:10:23 ezf]
*
* Revision 1.2.10.1 1994/06/11 21:11:52 bolinger
* Merge up to NMK17.2.
* [1994/06/11 20:01:51 bolinger]
*
* Revision 1.2.8.1 1994/02/08 10:58:03 bernadat
* Fixed reinitialization of db_macro_level to -1.
* Put DB_MACRO_LEVEL and DB_NARGS macros to <ddb/db_variables.h>.
* Changed name of DB_NARGS to DB_MACRO_NARGS.
* Added support of DB_VAR_SHOW.
* [93/08/12 paire]
* [94/02/07 bernadat]
*
* Revision 1.2.2.4 1993/08/11 20:37:58 elliston
* Add ANSI Prototypes. CR #9523.
* [1993/08/11 03:33:33 elliston]
*
* Revision 1.2.2.3 1993/07/27 18:27:42 elliston
* Add ANSI prototypes. CR #9523.
* [1993/07/27 18:12:24 elliston]
*
* Revision 1.2.2.2 1993/06/09 02:20:18 gm
* Added to OSF/1 R1.3 from NMK15.0.
* [1993/06/02 20:56:40 jeffc]
*
* Revision 1.2 1993/04/19 16:02:25 devrcs
* Changes from mk78:
* Removed unused variable from db_exec_macro().
* Added include of <ddb/db_command.h>.
* [92/05/16 jfriedl]
* [93/02/02 bruel]
*
* Revision 1.1 1992/09/30 02:01:12 robert
* Initial revision
*
* $EndLog$
*/
/* CMU_HIST */
/*
* Revision 2.2 91/10/09 16:01:09 af
* Revision 2.1.3.1 91/10/05 13:06:40 jeffreyh
* Created for macro support.
* [91/08/29 tak]
*
* Revision 2.1.3.1 91/10/05 13:06:40 jeffreyh
* Created for macro support.
* [91/08/29 tak]
*
*/
/* CMU_ENDHIST */
/*
* Mach Operating System
* Copyright (c) 1991,1990 Carnegie Mellon University
* All Rights Reserved.
*
* Permission to use, copy, modify and distribute this software and its
* documentation is hereby granted, provided that both the copyright
* notice and this permission notice appear in all copies of the
* software, derivative works or modified versions, and any portions
* thereof, and that both notices appear in supporting documentation.
*
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
* ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
*
* Carnegie Mellon requests users of this software to return to
*
* Software Distribution Coordinator or [email protected]
* School of Computer Science
* Carnegie Mellon University
* Pittsburgh PA 15213-3890
*
* any improvements or extensions that they make and grant Carnegie Mellon
* the rights to redistribute these changes.
*/
/*
*/
#include <kern/thread.h>
#include <string.h> /* For strcmp(), strcpy() */
#include <machine/db_machdep.h>
#include <ddb/db_command.h>
#include <ddb/db_expr.h>
#include <ddb/db_lex.h>
#include <ddb/db_macro.h>
#include <ddb/db_output.h> /* For db_printf() */
#include <ddb/db_sym.h>
#include <ddb/db_variables.h>
/*
* debugger macro support
*/
#define DB_NUSER_MACRO 10 /* max user macros */
int db_macro_free = DB_NUSER_MACRO;
struct db_user_macro {
char m_name[TOK_STRING_SIZE];
char m_lbuf[DB_LEX_LINE_SIZE];
int m_size;
} db_user_macro[DB_NUSER_MACRO];
int db_macro_level = -1;
db_expr_t db_macro_args[DB_MACRO_LEVEL][DB_MACRO_NARGS];
/* Prototypes for functions local to this file.
*/
static struct db_user_macro *db_lookup_macro(char *name);
static struct db_user_macro *
db_lookup_macro(char *name)
{
register struct db_user_macro *mp;
for (mp = db_user_macro; mp < &db_user_macro[DB_NUSER_MACRO]; mp++) {
if (mp->m_name[0] == 0)
continue;
if (strcmp(mp->m_name, name) == 0)
return(mp);
}
return(0);
}
void
db_def_macro_cmd(void)
{
register char *p;
register int c;
register struct db_user_macro *mp, *ep;
if (db_read_token() != tIDENT) {
db_printf("Bad macro name \"%s\"\n", db_tok_string);
db_error(0);
/* NOTREACHED */
}
if ((mp = db_lookup_macro(db_tok_string)) == 0) {
if (db_macro_free <= 0)
db_error("Too many macros\n");
/* NOTREACHED */
ep = &db_user_macro[DB_NUSER_MACRO];
for (mp = db_user_macro; mp < ep && mp->m_name[0]; mp++);
if (mp >= ep)
db_error("ddb: internal error(macro)\n");
/* NOTREACHED */
db_macro_free--;
strcpy(mp->m_name, db_tok_string);
}
for (c = db_read_char(); c == ' ' || c == '\t'; c = db_read_char());
for (p = mp->m_lbuf; c > 0; c = db_read_char())
*p++ = c;
*p = 0;
mp->m_size = p - mp->m_lbuf;
}
void
db_del_macro_cmd(void)
{
register struct db_user_macro *mp;
if (db_read_token() != tIDENT
|| (mp = db_lookup_macro(db_tok_string)) == 0) {
db_printf("No such macro \"%s\"\n", db_tok_string);
db_error(0);
/* NOTREACHED */
}
mp->m_name[0] = 0;
db_macro_free++;
}
void
db_show_macro(void)
{
register struct db_user_macro *mp;
int t;
char *name = 0;
if ((t = db_read_token()) == tIDENT)
name = db_tok_string;
else
db_unread_token(t);
for (mp = db_user_macro; mp < &db_user_macro[DB_NUSER_MACRO]; mp++) {
if (mp->m_name[0] == 0)
continue;
if (name && strcmp(mp->m_name, name))
continue;
db_printf("%s: %s", mp->m_name, mp->m_lbuf);
}
}
int
db_exec_macro(char *name)
{
register struct db_user_macro *mp;
register int n;
if ((mp = db_lookup_macro(name)) == 0)
return(-1);
if (db_macro_level+1 >= DB_MACRO_LEVEL) {
db_macro_level = -1;
db_error("Too many macro nest\n");
/* NOTREACHED */
}
for (n = 0;
n < DB_MACRO_NARGS &&
db_expression(&db_macro_args[db_macro_level+1][n]);
n++);
while (n < DB_MACRO_NARGS)
db_macro_args[db_macro_level+1][n++] = 0;
db_macro_level++;
db_exec_cmd_nest(mp->m_lbuf, mp->m_size);
db_macro_level--;
return(0);
}
int
db_arg_variable(
struct db_variable *vp,
db_expr_t *valuep,
int flag,
db_var_aux_param_t ap)
{
db_expr_t value;
char *name;
db_addr_t offset;
if (flag == DB_VAR_SHOW) {
value = db_macro_args[ap->hidden_level][ap->suffix[0]-1];
db_printf("%#n", value);
db_find_xtrn_task_sym_and_offset(value, &name, &offset, TASK_NULL);
if (name != (char *)0 && offset <= db_maxoff && offset != value) {
db_printf("\t%s", name);
if (offset != 0)
db_printf("+%#r", offset);
}
return(0);
}
if (ap->level != 1 || ap->suffix[0] < 1 ||
ap->suffix[0] > DB_MACRO_NARGS) {
db_error("Bad $arg variable\n");
/* NOTREACHED */
}
if (flag == DB_VAR_GET)
*valuep = db_macro_args[db_macro_level][ap->suffix[0]-1];
else
db_macro_args[db_macro_level][ap->suffix[0]-1] = *valuep;
return(0);
}