User: stephent Date: 06/05/23 15:18:59 Modified: xemacs/src ChangeLog Added: xemacs/etc dbxrc.in gdbinit.in Log: Generate dbx/gdb rc files right. <873bf0zz31.fsf(a)tleepslib.sk.tsukuba.ac.jp&gt; Revision Changes Path 1.505 +6 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.504 retrieving revision 1.505 diff -u -p -r1.504 -r1.505 --- ChangeLog 2006/05/17 06:18:45 1.504 +++ ChangeLog 2006/05/23 13:18:50 1.505 ＠＠ -1,3 +1,9 ＠＠ +2006-05-23 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * configure.ac: Look for debugger init file templates in etc/, not + src/. Debugger init files depend on config.h; recreate on every + configure. Support XCOMM convention. Update FSF copyright. + 2006-05-17 Malcolm Purvis <malcolmp(a)xemacs.org&gt; * PROBLEMS: Add entry concerning X errors when using ssh. 1.42 +17 -9 XEmacs/xemacs/configure.ac Index: configure.ac =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v retrieving revision 1.41 retrieving revision 1.42 diff -u -p -r1.41 -r1.42 --- configure.ac 2006/04/23 16:11:17 1.41 +++ configure.ac 2006/05/23 13:18:50 1.42 ＠＠ -34,9 +34,7 ＠＠ AC_COPYRIGHT( [Configuration script for XEmacs. Largely divergent from FSF. Guess values for system-dependent variables and create Makefiles. -Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. -Copyright (C) 1997, 1998, 1999, 2001, 2002 Free Software Foundation, Inc. -Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. +Copyright (C) 1992-1999, 2001-2006 Free Software Foundation, Inc. Copyright (C) 1993, 1994, 1995 Board of Trustees, University of Illinois. Copyright (C) 1996, 1997 Sun Microsystems, Inc. Copyright (C) 1995, 1996, 2002, 2003, 2004 Ben Wing. ＠＠ -5576,16 +5574,18 ＠＠ dnl ------------------------------------ dnl Create some auxiliary files for developers. dnl ---------------------------------------------- +dnl Unlike TAGS, debugger init files depend on config.h. +dnl Regenerate them locally on every configure. dnl Create a .gdbinit useful for debugging XEmacs -if test -f "$srcdir/src/.gdbinit.in" -a ! -f "src/.gdbinit.in"; then +if test -f "$srcdir/etc/gdbinit.in"; then test "$verbose" = "yes" && echo "creating src/.gdbinit.in" - echo "source $srcdir/src/.gdbinit.in" > "src/.gdbinit.in" + cp $srcdir/etc/gdbinit.in src/.gdbinit.in fi dnl Create a .dbxrc useful for debugging XEmacs -if test -f "$srcdir/src/.dbxrc.in" -a ! -f "src/.dbxrc.in"; then +if test -f "$srcdir/etc/dbxrc.in"; then test "$verbose" = "yes" && echo "creating src/.dbxrc.in" - echo ". $srcdir/src/.dbxrc.in" > "src/.dbxrc.in" + echo ". $srcdir/etc/dbxrc.in" > "src/.dbxrc.in" fi dnl Create a useful TAGS file ＠＠ -6235,6 +6235,11 ＠＠ dnl two brackets become one, but inside dnl more, or something -- I don't understand, but Martin probably does. dnl We put the brackets back later. dnl [ben] +dnl To insert comments that will remain in the generated file, we use the +dnl imake XCOMM convention. Lines beginning with "XCOMM " exactly (no +dnl leading whitespace, one trailing ASCII space, case sensitive) will be +dnl transformed to shell/make/gdb comments in the generated file. +dnl [sjt] dnl MAKE_JUNK_C(filename): dnl Copy a .in file to junk.c in preparation for passing through the ＠＠ -6283,7 +6288,9 ＠＠ dnl Restore lines quoted above to origin s/\\\([[\"]]\)/\1/g s/^[[ TAB]]*\"// s/\"[[ TAB]]*$// -}' > Makefile.new +}' \ +dnl Convert comments -- must come after the unquoting operations + -e 's/^XCOMM /\# /' > Makefile.new chmod 444 Makefile.new mv -f Makefile.new $2 ])dnl CPP_MAKEFILE ＠＠ -6295,7 +6302,8 ＠＠ AC_CONFIG_COMMANDS([default], dnl Create a GNUmakefile and Makefile from Makefile.in. dnl Create xemacs.def from xemacs.def.in in the same fashion, -dnl if it exists (i.e. in the src/ directory). +dnl if it exists (i.e. in the src/ directory). Ditto for the +dnl debugger init files (in the src/ directory). MAKE_JUNK_C(Makefile.in) CPP_MAKEFILE(,Makefile) CPP_MAKEFILE(-DUSE_GNU_MAKE,GNUmakefile) 1.73 +8 -0 XEmacs/xemacs/etc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/etc/ChangeLog,v retrieving revision 1.72 retrieving revision 1.73 diff -u -p -r1.72 -r1.73 --- ChangeLog 2006/05/16 08:23:06 1.72 +++ ChangeLog 2006/05/23 13:18:54 1.73 ＠＠ -1,3 +1,11 ＠＠ +2006-05-23 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * gdbinit.in: + * dbxrc.in: + Moved from src/. Update FSF address. Improve comments. + + * gdbinit.in: Use XCOMM for "don't edit" comment and copyright. + 2006-05-16 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * XEmacs 21.5.27 "fiddleheads" is released. 1.1 XEmacs/xemacs/etc/dbxrc.in Index: dbxrc.in =================================================================== ## dbx init file for XEmacs -*- ksh -*- ## This is the source file for src/.dbxrc. Edit it, and rerun configure. ## (Running config.status is not enough.) ## The generated file depends on src/config.h (currently only in one place). ## Copyright (C) 1998 Free Software Foundation, Inc. ## This file is part of XEmacs. ## XEmacs is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by the ## Free Software Foundation; either version 2, or (at your option) any ## later version. ## XEmacs is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ## for more details. ## You should have received a copy of the GNU General Public License ## along with XEmacs; see the file COPYING. If not, write to ## the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ## Boston, MA 02110-1301 USA ## Author: Martin Buchholz ## Other contributors you could ask for help: Ivan Golubev, Jerry James, ## Stephen Turnbull. ## You can use this file to debug XEmacs using Sun WorkShop's dbx. ## Some functions defined here require a running process, but most ## don't. Considerable effort has been expended to this end. ## Since this file is called `.dbxrc', it will be read by dbx ## automatically when dbx is run in the build directory, which is where ## developers usually debug their xemacs. ## See also the comments in .gdbinit. ## See also the question of the XEmacs FAQ, titled ## "How to Debug an XEmacs problem with a debugger". ## gdb sources the ./.gdbinit in _addition_ to ~/.gdbinit. ## But dbx does _not_ source ~/.dbxrc if it found ./.dbxrc. ## So we simulate the gdb algorithm by doing it ourselves here. #define NOT_C_CODE #include "config.h" if test -r $HOME/.dbxrc; then . $HOME/.dbxrc; fi dbxenv language_mode ansic ignore POLL ignore IO #ifdef VDB_POSIX ignore SIGSEGV ignore SIGBUS #endif document lbt << 'end' Usage: lbt Print the current Lisp stack trace. Requires a running xemacs process. end function lbt { call debug_backtrace() } document ldp << 'end' Usage: ldp lisp_object Print a Lisp Object value using the Lisp printer. Requires a running xemacs process. end function ldp { call debug_print ($1); } Lisp_Type_Int=-2 ## A bug in dbx prevents string variables from having values beginning with `-'!! function XEmacsInit { function ToInt { eval "$1=\$[(int) \`alloc.c\`$1]"; } ToInt dbg_USE_UNION_TYPE ToInt Lisp_Type_Char ToInt Lisp_Type_Record ToInt dbg_valbits ToInt dbg_gctypebits function ToLong { eval "$1=\$[(\`alloc.c\`unsigned long) \`alloc.c\`$1]"; } ToLong dbg_valmask ToLong dbg_typemask xemacs_initted=yes } function printvar { for i in $*; do eval "echo $i=\$$i"; done } document decode_object << 'end' Usage: decode_object lisp_object Extract implementation information from a Lisp Object. Defines variables $val, $type and $imp. end ## Various dbx bugs cause ugliness in following code function decode_object { if test -z "$xemacs_initted"; then XEmacsInit; fi; if test $dbg_USE_UNION_TYPE = 1; then ## Repeat after me... dbx sux, dbx sux, dbx sux... ## Allow both `pobj Qnil' and `pobj 0x82746834' to work case $(whatis $1) in *Lisp_Object*) obj="$[(`alloc.c`unsigned long)(($1).i)]";; *) obj="$[(`alloc.c`unsigned long)($1)]";; esac else obj="$[(`alloc.c`unsigned long)($1)]"; fi if test $[(int)($obj & 1)] = 1; then ## It's an int val=$[(long)(((unsigned long long)$obj) >> 1)] type=$Lisp_Type_Int else type=$[(int)(((void*)$obj) & $dbg_typemask)] if test $type = $Lisp_Type_Char; then val=$[(void*)(long)(((unsigned long long)($obj & $dbg_valmask)) >> $dbg_gctypebits)] else ## It's a record pointer val=$[(void*)$obj] if test "$val" = "(nil)"; then type=null_pointer; fi fi fi if test $type = $Lisp_Type_Record; then lheader="((struct lrecord_header *) $val)" lrecord_type=$[(enum lrecord_type) $lheader->type] imp=$[(void*)(`alloc.c`lrecord_implementations_table[$lheader->type])] else lheader="((struct lrecord_header *) -1)" lrecord_type=-1 imp="0xdeadbeef" fi ## printvar obj val type imp } function xint { decode_object "$*" print (long) ($val) } document xtype << 'end' Usage: xtype lisp_object Print the Lisp type of a lisp object. end function xtype { decode_object "$*" if test $type = $Lisp_Type_Int; then echo "int" elif test $type = $Lisp_Type_Char; then echo "char" elif test $type = null_pointer; then echo "null_pointer" else echo "record type with name: $[((struct lrecord_implementation *)$imp)->name]" fi } function lisp-shadows { run -batch -vanilla -f list-load-path-shadows } function environment-to-run-temacs { unset EMACSLOADPATH export EMACSBOOTSTRAPLOADPATH=../lisp/:.. export EMACSBOOTSTRAPMODULEPATH=../modules/:.. } document run-temacs << 'end' Usage: run-temacs Run temacs interactively, like xemacs. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end function run-temacs { environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el run-temacs -q ${1+"$＠"} } document check-xemacs << 'end' Usage: check-xemacs Run the test suite. Equivalent to 'make check'. end function check-xemacs { run -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated } document check-temacs << 'end' Usage: check-temacs Run the test suite on temacs. Equivalent to 'make check-temacs'. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end function check-temacs { run-temacs -q -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated } document update-elc << 'end' Usage: update-elc Run the core lisp byte compilation part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end function update-elc { environment-to-run-temacs run -nd -batch -l ../lisp/update-elc.el } document dmp << 'end' Usage: dmp Run the dumping part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end function dmp { environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el dump } function pstruct { ## pstruct foo.c struct-name module "$1" > /dev/null type_ptr="((struct $2 *) $val)" print $type_ptr print *$type_ptr } document pobj << 'end' Usage: pobj lisp_object Print the internal C representation of a Lisp Object. end function pobj { decode_object $1 if test $type = $Lisp_Type_Int; then print -f"Integer: %d" $val elif test $type = $Lisp_Type_Char; then if test $[$val > 32 && $val < 128] = 1; then print -f"Char: %c" $val else print -f"Char: %d" $val fi elif test $lrecord_type = lrecord_type_string; then pstruct alloc.c Lisp_String elif test $lrecord_type = lrecord_type_cons; then pstruct alloc.c Lisp_Cons elif test $lrecord_type = lrecord_type_symbol; then pstruct symbols.c Lisp_Symbol echo "Symbol name: $[(char *)($type_ptr->name->data)]" elif test $lrecord_type = lrecord_type_vector; then pstruct alloc.c Lisp_Vector echo "Vector of length $[$type_ptr->size]" elif test $lrecord_type = lrecord_type_bit_vector; then pstruct fns.c Lisp_Bit_Vector elif test $lrecord_type = lrecord_type_buffer; then pstruct buffer.c buffer elif test $lrecord_type = lrecord_type_char_table; then pstruct chartab.c Lisp_Char_Table elif test $lrecord_type = lrecord_type_char_table_entry; then pstruct chartab.c Lisp_Char_Table_Entry elif test $lrecord_type = lrecord_type_charset; then pstruct mule-charset.c Lisp_Charset elif test $lrecord_type = lrecord_type_coding_system; then pstruct file-coding.c Lisp_Coding_System elif test $lrecord_type = lrecord_type_color_instance; then pstruct objects.c Lisp_Color_Instance elif test $lrecord_type = lrecord_type_command_builder; then pstruct event-stream.c command_builder elif test $lrecord_type = lrecord_type_compiled_function; then pstruct bytecode.c Lisp_Compiled_Function elif test $lrecord_type = lrecord_type_console; then pstruct console.c console elif test $lrecord_type = lrecord_type_database; then pstruct database.c Lisp_Database elif test $lrecord_type = lrecord_type_device; then pstruct device.c device elif test $lrecord_type = lrecord_type_event; then pstruct events.c Lisp_Event elif test $lrecord_type = lrecord_type_extent; then pstruct extents.c extent elif test $lrecord_type = lrecord_type_extent_auxiliary; then pstruct extents.c extent_auxiliary elif test $lrecord_type = lrecord_type_extent_info; then pstruct extents.c extent_info elif test $lrecord_type = lrecord_type_face; then pstruct faces.c Lisp_Face elif test $lrecord_type = lrecord_type_float; then pstruct floatfns.c Lisp_Float elif test $lrecord_type = lrecord_type_font_instance; then pstruct objects.c Lisp_Font_Instance elif test $lrecord_type = lrecord_type_frame; then pstruct frame.c frame elif test $lrecord_type = lrecord_type_glyph; then pstruct glyph.c Lisp_Glyph elif test $lrecord_type = lrecord_type_gui_item; then pstruct gui.c Lisp_Gui_Item elif test $lrecord_type = lrecord_type_hash_table; then pstruct elhash.c Lisp_Hash_Table elif test $lrecord_type = lrecord_type_image_instance; then pstruct glyphs.c Lisp_Image_Instance elif test $lrecord_type = lrecord_type_keymap; then pstruct keymap.c Lisp_Keymap elif test $lrecord_type = lrecord_type_lcrecord_list; then pstruct alloc.c lcrecord_list elif test $lrecord_type = lrecord_type_ldap; then pstruct ldap.c Lisp_LDAP elif test $lrecord_type = lrecord_type_lstream; then pstruct lstream.c lstream elif test $lrecord_type = lrecord_type_marker; then pstruct marker.c Lisp_Marker elif test $lrecord_type = lrecord_type_opaque; then pstruct opaque.c Lisp_Opaque elif test $lrecord_type = lrecord_type_opaque_ptr; then pstruct opaque.c Lisp_Opaque_Ptr elif test $lrecord_type = lrecord_type_popup_data; then pstruct gui-x.c popup_data elif test $lrecord_type = lrecord_type_process; then pstruct process.c Lisp_Process elif test $lrecord_type = lrecord_type_range_table; then pstruct rangetab.c Lisp_Range_Table elif test $lrecord_type = lrecord_type_specifier; then pstruct specifier.c Lisp_Specifier elif test $lrecord_type = lrecord_type_subr; then pstruct eval.c Lisp_Subr elif test $lrecord_type = lrecord_type_symbol_value_buffer_local; then pstruct symbols.c symbol_value_buffer_local elif test $lrecord_type = lrecord_type_symbol_value_forward; then pstruct symbols.c symbol_value_forward elif test $lrecord_type = lrecord_type_symbol_value_lisp_magic; then pstruct symbols.c symbol_value_lisp_magic elif test $lrecord_type = lrecord_type_symbol_value_varalias; then pstruct symbols.c symbol_value_varalias elif test $lrecord_type = lrecord_type_timeout; then pstruct event-stream.c Lisp_Timeout elif test $lrecord_type = lrecord_type_toolbar_button; then pstruct toolbar.c toolbar_button elif test $lrecord_type = lrecord_type_tooltalk_message; then pstruct tooltalk.c Lisp_Tooltalk_Message elif test $lrecord_type = lrecord_type_tooltalk_pattern; then pstruct tooltalk.c Lisp_Tooltalk_Pattern elif test $lrecord_type = lrecord_type_weak_list; then pstruct data.c weak_list elif test $lrecord_type = lrecord_type_window; then pstruct window.c window elif test $lrecord_type = lrecord_type_window_configuration; then pstruct window.c window_config elif test "$type" = "null_pointer"; then echo "Lisp Object is a null pointer!!" else echo "Unknown Lisp Object type" print $1 fi } dbxenv suppress_startup_message 4.0 ## dbxenv mt_watchpoints on function dp_core { print ((struct x_frame *)(((struct frame*)(Fselected_frame(Qnil)&0x00FFFFFF))->frame_data))->widget->core } ## Barf! function print_shell { print *(`frame-x.c`TopLevelShellRec*) (((struct `frame-x.c`x_frame*) (((struct `frame-x.c`frame*) (Fselected_frame(Qnil)&0x00FFFFFF))->frame_data))->widget) } ## ------------------------------------------------------------- ## functions to test the debugging support itself. ## If you change this file, make sure the following still work... ## ------------------------------------------------------------- function test_xtype { function doit { echo -n "$1: "; xtype "$1"; } test_various_objects } function test_pobj { function doit { echo '==============================='; echo -n "$1: "; pobj "$1"; } test_various_objects } function test_various_objects { doit Vemacs_major_version doit Vhelp_char doit Qnil doit Qunbound doit Vobarray doit Vall_weak_lists doit Vxemacs_codename } 1.1 XEmacs/xemacs/etc/gdbinit.in Index: gdbinit.in =================================================================== ## gdb init file for XEmacs -*- ksh -*- ## This is the source for src/.gdbinit. Edit it, and rerun configure. ## (Running config.status is not enough.) ## The generated file depends on src/config.h (currently only in one place). ## To insert comments that will remain in the generated file, we use the ## imake XCOMM convention. Lines beginning with "XCOMM " exactly (no ## leading whitespace, one trailing ASCII space, case sensitive) will be ## transformed to gdb command file comments in the generated file. XCOMM gdb init file for XEmacs XCOMM AUTOMATICALLY GENERATED FROM etc/gdbinit.in BY configure -- DO NOT EDIT. XCOMM See etc/gdbinit.in for licensing information and usage hints. XCOMM Copyright (C) 1998 Free Software Foundation, Inc. ## This file is part of XEmacs. ## XEmacs is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by the ## Free Software Foundation; either version 2, or (at your option) any ## later version. ## XEmacs is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ## for more details. ## You should have received a copy of the GNU General Public License ## along with XEmacs; see the file COPYING. If not, write to ## the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ## Boston, MA 02110-1301 USA ## Author: Martin Buchholz ## Other contributors you could ask for help: Ivan Golubev, Jerry James, ## Stephen Turnbull. ## Some useful commands for debugging emacs with gdb 4.16 or better. ## ## Since this file is called `.gdbinit', it will be read by gdb ## automatically when gdb is run in the build directory, which is where ## developers usually debug their xemacs. You can also source this ## file from your ~/.gdbinit, if you like. ## ## Configure xemacs with --debug, and compile with -g. ## ## See also the question of the XEmacs FAQ, titled ## "How to Debug an XEmacs problem with a debugger". ## ## This can be used to debug XEmacs no matter how the following are ## specified: ## USE_UNION_TYPE ## (the above all have configure equivalents) ## Some functions defined here require a running process, but most ## don't. Considerable effort has been expended to this end. ## See the dbg_ C support code in src/alloc.c that allows the functions ## defined in this file to work correctly. #define NOT_C_CODE #include "config.h" set print union off set print pretty off #ifdef VDB_POSIX handle SIGSEGV SIGBUS nostop noprint #endif set $Lisp_Type_Int = -2 define decode_object set $obj = (unsigned long) $arg0 if $obj & 1 ## It's an int set $val = $obj >> 1 set $type = $Lisp_Type_Int else set $type = $obj & dbg_typemask if $type == Lisp_Type_Char set $val = ($obj & dbg_valmask) >> dbg_gctypebits else ## It's a record pointer set $val = $obj end end if $type == Lisp_Type_Record set $lheader = ((struct lrecord_header *) $val) set $lrecord_type = ($lheader->type) set $imp = ((struct lrecord_implementation *) lrecord_implementations_table[(int) $lrecord_type]) else set $lrecord_type = -1 set $lheader = -1 set $imp = -1 end end document decode_object Usage: decode_object lisp_object Extract implementation information from a Lisp Object. Defines variables $val, $type and $imp. end define xint decode_object $arg0 print ((long) $val) end define xtype decode_object $arg0 if $type == $Lisp_Type_Int echo int\n else if $type == Lisp_Type_Char echo char\n else printf "record type: %s\n", $imp->name end end end document xtype Usage: xtype lisp_object Print the Lisp type of a lisp object. end define lisp-shadows run -batch -vanilla -f list-load-path-shadows end document lisp-shadows Usage: lisp-shadows Run xemacs to check for lisp shadows end define environment-to-run-temacs unset env EMACSLOADPATH set env EMACSBOOTSTRAPLOADPATH=../lisp/:.. set env EMACSBOOTSTRAPMODULEPATH=../modules/:.. end define run-temacs environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el run-temacs -q end document run-temacs Usage: run-temacs Run temacs interactively, like xemacs. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end define check-xemacs run -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated end document check-xemacs Usage: check-xemacs Run the test suite. Equivalent to 'make check'. end define check-temacs environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el run-temacs -q -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated end document check-temacs Usage: check-temacs Run the test suite on temacs. Equivalent to 'make check-temacs'. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end define update-elc environment-to-run-temacs run -nd -batch -l ../lisp/update-elc.el end document update-elc Usage: update-elc Run the core lisp byte compilation part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end define dmp environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el dump end document dmp Usage: dmp Run the dumping part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end define ldp printf "%s", "Lisp => " call debug_print($arg0) end document ldp Usage: ldp lisp_object Print a Lisp Object value using the Lisp printer. Requires a running xemacs process. end define lbt call debug_backtrace() end document lbt Usage: lbt Print the current Lisp stack trace. Requires a running xemacs process. end define leval ldp Feval(Fcar(Fread_from_string(build_string($arg0),Qnil,Qnil))) end document leval Usage: leval "SEXP" Eval a lisp expression. Requires a running xemacs process. Example: (gdb) leval "(+ 1 2)" Lisp ==> 3 end define wtype print $arg0->core.widget_class->core_class.class_name end define xtname print XrmQuarkToString(((Object)($arg0))->object.xrm_name) end ## GDB's command language makes you want to ... define pptype set $type_ptr = ($arg0 *) $val print $type_ptr print *$type_ptr end define pstructtype set $type_ptr = (struct $arg0 *) $val print $type_ptr print *$type_ptr end define pobj decode_object $arg0 if $type == $Lisp_Type_Int printf "Integer: %d\n", $val else if $type == Lisp_Type_Char if $val > 32 && $val < 128 printf "Char: %c\n", $val else printf "Char: %d\n", $val end else if $lrecord_type == lrecord_type_string pptype Lisp_String else if $lrecord_type == lrecord_type_cons pptype Lisp_Cons else if $lrecord_type == lrecord_type_symbol pptype Lisp_Symbol printf "Symbol name: %s\n", ((Lisp_String *)$type_ptr->name)->data_ else if $lrecord_type == lrecord_type_vector pptype Lisp_Vector printf "Vector of length %d\n", $type_ptr->size ##print *($type_ptr->data) ＠ $type_ptr->size else if $lrecord_type == lrecord_type_bit_vector pptype Lisp_Bit_Vector else if $lrecord_type == lrecord_type_buffer pstructtype buffer else if $lrecord_type == lrecord_type_char_table pptype Lisp_Char_Table else if $lrecord_type == lrecord_type_char_table_entry pptype Lisp_Char_Table_Entry else if $lrecord_type == lrecord_type_charset pptype Lisp_Charset else if $lrecord_type == lrecord_type_coding_system pptype Lisp_Coding_System else if $lrecord_type == lrecord_type_color_instance pptype Lisp_Color_Instance else if $lrecord_type == lrecord_type_command_builder pptype command_builder else if $lrecord_type == lrecord_type_compiled_function pptype Lisp_Compiled_Function else if $lrecord_type == lrecord_type_console pstructtype console else if $lrecord_type == lrecord_type_database pptype Lisp_Database else if $lrecord_type == lrecord_type_device pstructtype device else if $lrecord_type == lrecord_type_event pptype Lisp_Event else if $lrecord_type == lrecord_type_extent pstructtype extent else if $lrecord_type == lrecord_type_extent_auxiliary pstructtype extent_auxiliary else if $lrecord_type == lrecord_type_extent_info pstructtype extent_info else if $lrecord_type == lrecord_type_face pptype Lisp_Face else if $lrecord_type == lrecord_type_float pptype Lisp_Float else if $lrecord_type == lrecord_type_font_instance pptype Lisp_Font_Instance else if $lrecord_type == lrecord_type_frame pstructtype frame else if $lrecord_type == lrecord_type_glyph pptype Lisp_Glyph else if $lrecord_type == lrecord_type_gui_item pptype Lisp_Gui_Item else if $lrecord_type == lrecord_type_hash_table pptype Lisp_Hash_Table else if $lrecord_type == lrecord_type_image_instance pptype Lisp_Image_Instance else if $lrecord_type == lrecord_type_keymap pptype Lisp_Keymap else if $lrecord_type == lrecord_type_lcrecord_list pstructtype lcrecord_list else if $lrecord_type == lrecord_type_ldap pptype Lisp_LDAP else if $lrecord_type == lrecord_type_lstream pstructtype lstream else if $lrecord_type == lrecord_type_marker pptype Lisp_Marker else if $lrecord_type == lrecord_type_opaque pptype Lisp_Opaque else if $lrecord_type == lrecord_type_opaque_ptr pptype Lisp_Opaque_Ptr else if $lrecord_type == lrecord_type_popup_data pptype popup_data else if $lrecord_type == lrecord_type_process pptype Lisp_Process else if $lrecord_type == lrecord_type_range_table pptype Lisp_Range_Table else if $lrecord_type == lrecord_type_specifier pptype Lisp_Specifier else if $lrecord_type == lrecord_type_subr pptype Lisp_Subr else if $lrecord_type == lrecord_type_symbol_value_buffer_local pstructtype symbol_value_buffer_local else if $lrecord_type == lrecord_type_symbol_value_forward pstructtype symbol_value_forward else if $lrecord_type == lrecord_type_symbol_value_lisp_magic pstructtype symbol_value_lisp_magic else if $lrecord_type == lrecord_type_symbol_value_varalias pstructtype symbol_value_varalias else if $lrecord_type == lrecord_type_timeout pptype Lisp_Timeout else if $lrecord_type == lrecord_type_toolbar_button pstructtype toolbar_button else if $lrecord_type == lrecord_type_tooltalk_message pptype Lisp_Tooltalk_Message else if $lrecord_type == lrecord_type_tooltalk_pattern pptype Lisp_Tooltalk_Pattern else if $lrecord_type == lrecord_type_weak_list pstructtype weak_list else if $lrecord_type == lrecord_type_window pstructtype window else if $lrecord_type == lrecord_type_window_configuration pstructtype window_config else if $lrecord_type == lrecord_type_fc_pattern pstructtype fc_pattern else if $lrecord_type == lrecord_type_fc_objectset pstructtype fc_objectset else if $lrecord_type == lrecord_type_fc_fontset pstructtype fc_fontset else echo Unknown Lisp Object type\n print $arg0 ## Barf, gag, retch end end end end end end end end end end end end end end end end end end end end ## Repeat after me... gdb sux, gdb sux, gdb sux... end end end end end end end end end end end end end end end end end end ## Are we having fun yet?? end end end end end end end end end end end end end end end end end end end document pobj Usage: pobj lisp_object Print the internal C representation of a Lisp Object. end ## ------------------------------------------------------------- ## functions to test the debugging support itself. ## If you change this file, make sure the following still work... ## ------------------------------------------------------------- define test_xtype printf "Vemacs_major_version: " xtype Vemacs_major_version printf "Vhelp_char: " xtype Vhelp_char printf "Qnil: " xtype Qnil printf "Qunbound: " xtype Qunbound printf "Vobarray: " xtype Vobarray printf "Vall_weak_lists: " xtype Vall_weak_lists printf "Vxemacs_codename: " xtype Vxemacs_codename end define test_pobj printf "Vemacs_major_version: " pobj Vemacs_major_version printf "Vhelp_char: " pobj Vhelp_char printf "Qnil: " pobj Qnil printf "Qunbound: " pobj Qunbound printf "Vobarray: " pobj Vobarray printf "Vall_weak_lists: " pobj Vall_weak_lists printf "Vxemacs_codename: " pobj Vxemacs_codename end 1.966 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.965 retrieving revision 1.966 diff -u -p -r1.965 -r1.966 --- ChangeLog 2006/05/23 13:02:05 1.965 +++ ChangeLog 2006/05/23 13:18:56 1.966 ＠＠ -1,3 +1,8 ＠＠ +2006-05-23 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * .gdbinit.in: Moved to etc. + * .dbxrc.in: Moved to etc. + 2006-05-20 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * tests.c (Ftest_data_format_conversion): Fix no-mule autodetect