2:18 p.m.
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>
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>
+
+ * 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>
* 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>
+
+ * 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>
* 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>
+
+ * .gdbinit.in: Moved to etc.
+ * .dbxrc.in: Moved to etc.
+
2006-05-20 Stephen J. Turnbull <stephen(a)xemacs.org>
* tests.c (Ftest_data_format_conversion): Fix no-mule autodetect