Grab all Python process output before inferior-python-mode hooks.
[emacs.git] / src / .gdbinit
blobfd2e871ff3dfa5f7ecee8b84b84f095206654d4b
1 # Copyright (C) 1992-1998, 2000-2014 Free Software Foundation, Inc.
3 # This file is part of GNU Emacs.
5 # GNU Emacs is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3, or (at your option)
8 # any later version.
10 # GNU Emacs is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
18 # Force loading of symbols, enough to give us VALBITS etc.
19 set $dummy = main + 8
20 # With some compilers, we need this to give us struct Lisp_Symbol etc.:
21 set $dummy = Fmake_symbol + 8
23 # Find lwlib source files too.
24 dir ../lwlib
25 #dir /gd/gnu/lesstif-0.89.9/lib/Xm
27 # Don't enter GDB when user types C-g to quit.
28 # This has one unfortunate effect: you can't type C-c
29 # at the GDB to stop Emacs, when using X.
30 # However, C-z works just as well in that case.
31 handle 2 noprint pass
33 # Make it work like SIGINT normally does.
34 handle SIGTSTP nopass
36 # Pass on user signals
37 handle SIGUSR1 noprint pass
38 handle SIGUSR2 noprint pass
40 # Don't pass SIGALRM to Emacs.  This makes problems when
41 # debugging.
42 handle SIGALRM ignore
44 # Use $bugfix so that the value isn't a constant.
45 # Using a constant runs into GDB bugs sometimes.
46 define xgetptr
47   if (CHECK_LISP_OBJECT_TYPE)
48     set $bugfix = $arg0.i
49   else
50     set $bugfix = $arg0
51   end
52   set $ptr = $bugfix & VALMASK
53 end
55 define xgetint
56   if (CHECK_LISP_OBJECT_TYPE)
57     set $bugfix = $arg0.i
58   else
59     set $bugfix = $arg0
60   end
61   set $int = $bugfix << (USE_LSB_TAG ? 0 : INTTYPEBITS) >> INTTYPEBITS
62 end
64 define xgettype
65   if (CHECK_LISP_OBJECT_TYPE)
66     set $bugfix = $arg0.i
67   else
68     set $bugfix = $arg0
69   end
70   set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : (EMACS_UINT) $bugfix >> VALBITS)
71 end
73 # Set up something to print out s-expressions.
74 # We save and restore print_output_debug_flag to prevent the w32 port
75 # from calling OutputDebugString, which causes GDB to display each
76 # character twice (yuk!).
77 define pr
78   pp $
79 end
80 document pr
81 Print the emacs s-expression which is $.
82 Works only when an inferior emacs is executing.
83 end
85 # Print out s-expressions
86 define pp
87   set $tmp = $arg0
88   set $output_debug = print_output_debug_flag
89   set print_output_debug_flag = 0
90   call safe_debug_print ($tmp)
91   set print_output_debug_flag = $output_debug
92 end
93 document pp
94 Print the argument as an emacs s-expression
95 Works only when an inferior emacs is executing.
96 end
98 # Print value of lisp variable
99 define pv
100   set $tmp = "$arg0"
101   set $output_debug = print_output_debug_flag
102   set print_output_debug_flag = 0
103   call safe_debug_print (find_symbol_value (intern ($tmp)))
104   set print_output_debug_flag = $output_debug
106 document pv
107 Print the value of the lisp variable given as argument.
108 Works only when an inferior emacs is executing.
111 # Print out current buffer point and boundaries
112 define ppt
113   set $b = current_buffer
114   set $t = $b->text
115   printf "BUF PT: %d", $b->pt
116   if ($b->pt != $b->pt_byte)
117     printf "[%d]", $b->pt_byte
118   end
119   printf " of 1..%d", $t->z
120   if ($t->z != $t->z_byte)
121     printf "[%d]", $t->z_byte
122   end
123   if ($b->begv != 1 || $b->zv != $t->z)
124     printf " NARROW=%d..%d", $b->begv, $b->zv
125     if ($b->begv != $b->begv_byte || $b->zv != $b->zv_byte)
126       printf " [%d..%d]", $b->begv_byte, $b->zv_byte
127     end
128   end
129   printf " GAP: %d", $t->gpt
130   if ($t->gpt != $t->gpt_byte)
131     printf "[%d]", $t->gpt_byte
132   end
133   printf " SZ=%d\n", $t->gap_size
135 document ppt
136 Print current buffer's point and boundaries.
137 Prints values of point, beg, end, narrow, and gap for current buffer.
140 define pitmethod
141   set $itmethod = $arg0
142   # output $itmethod
143   if ($itmethod == 0)
144     printf "GET_FROM_BUFFER"
145   end
146   if ($itmethod == 1)
147     printf "GET_FROM_DISPLAY_VECTOR"
148   end
149   if ($itmethod == 2)
150     printf "GET_FROM_STRING"
151   end
152   if ($itmethod == 3)
153     printf "GET_FROM_C_STRING"
154   end
155   if ($itmethod == 4)
156     printf "GET_FROM_IMAGE"
157   end
158   if ($itmethod == 5)
159     printf "GET_FROM_STRETCH"
160   end
161   if ($itmethod < 0 || $itmethod > 5)
162     output $itmethod
163   end
165 document pitmethod
166 Pretty print it->method given as first arg
169 # Print out iterator given as first arg
170 define pitx
171   set $it = $arg0
172   printf "cur=%d", $it->current.pos.charpos
173   if ($it->current.pos.charpos != $it->current.pos.bytepos)
174     printf "[%d]", $it->current.pos.bytepos
175   end
176   printf " pos=%d", $it->position.charpos
177   if ($it->position.charpos != $it->position.bytepos)
178     printf "[%d]", $it->position.bytepos
179   end
180   printf " start=%d", $it->start.pos.charpos
181   if ($it->start.pos.charpos != $it->start.pos.bytepos)
182     printf "[%d]", $it->start.pos.bytepos
183   end
184   printf " end=%d", $it->end_charpos
185   printf " stop=%d", $it->stop_charpos
186   printf " face=%d", $it->face_id
187   if ($it->multibyte_p)
188     printf " MB"
189   end
190   if ($it->header_line_p)
191     printf " HL"
192   end
193   if ($it->n_overlay_strings > 0)
194     printf " nov=%d", $it->n_overlay_strings
195   end
196   if ($it->sp != 0)
197     printf " sp=%d", $it->sp
198   end
199   # IT_CHARACTER
200   if ($it->what == 0)
201     if ($it->len == 1 && $it->c >= ' ' && it->c < 255)
202       printf " ch='%c'", $it->c
203     else
204       printf " ch=[%d,%d]", $it->c, $it->len
205     end
206   else
207     printf " "
208     # output $it->what
209     if ($it->what == 0)
210       printf "IT_CHARACTER"
211     end
212     if ($it->what == 1)
213       printf "IT_COMPOSITION"
214     end
215     if ($it->what == 2)
216       printf "IT_IMAGE"
217     end
218     if ($it->what == 3)
219       printf "IT_STRETCH"
220     end
221     if ($it->what == 4)
222       printf "IT_EOB"
223     end
224     if ($it->what == 5)
225       printf "IT_TRUNCATION"
226     end
227     if ($it->what == 6)
228       printf "IT_CONTINUATION"
229     end
230     if ($it->what < 0 || $it->what > 6)
231       output $it->what
232     end
233   end
234   if ($it->method != 0)
235     # !GET_FROM_BUFFER
236     printf " next="
237     pitmethod $it->method
238     if ($it->method == 2)
239       # GET_FROM_STRING
240       printf "[%d]", $it->current.string_pos.charpos
241     end
242     if ($it->method == 4)
243       # GET_FROM_IMAGE
244       printf "[%d]", $it->image_id
245     end
246   end
247   printf "\n"
248   if ($it->bidi_p)
249     printf "BIDI: base_stop=%d prev_stop=%d level=%d\n", $it->base_level_stop, $it->prev_stop, $it->bidi_it.resolved_level
250   end
251   if ($it->region_beg_charpos >= 0)
252     printf "reg=%d-%d ", $it->region_beg_charpos, $it->region_end_charpos
253   end
254   printf "vpos=%d hpos=%d", $it->vpos, $it->hpos,
255   printf " y=%d lvy=%d", $it->current_y, $it->last_visible_y
256   printf " x=%d vx=%d-%d", $it->current_x, $it->first_visible_x, $it->last_visible_x
257   printf " w=%d", $it->pixel_width
258   printf " a+d=%d+%d=%d", $it->ascent, $it->descent, $it->ascent+$it->descent
259   printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent
260   printf "\n"
261   set $i = 0
262   while ($i < $it->sp && $i < 4)
263     set $e = $it->stack[$i]
264     printf "stack[%d]: ", $i
265     pitmethod $e.method
266     printf "[%d]", $e.position.charpos
267     printf "\n"
268     set $i = $i + 1
269   end
271 document pitx
272 Pretty print a display iterator.
273 Take one arg, an iterator object or pointer.
276 define pit
277   pitx it
279 document pit
280 Pretty print the display iterator it.
283 define prowx
284   set $row = $arg0
285   printf "y=%d x=%d pwid=%d", $row->y, $row->x, $row->pixel_width
286   printf " a+d=%d+%d=%d", $row->ascent, $row->height-$row->ascent, $row->height
287   printf " phys=%d+%d=%d", $row->phys_ascent, $row->phys_height-$row->phys_ascent, $row->phys_height
288   printf " vis=%d\n", $row->visible_height
289   printf "used=(LMargin=%d,Text=%d,RMargin=%d) Hash=%d\n", $row->used[0], $row->used[1], $row->used[2], $row->hash
290   printf "start=%d end=%d", $row->start.pos.charpos, $row->end.pos.charpos
291   if ($row->enabled_p)
292     printf " ENA"
293   end
294   if ($row->displays_text_p)
295     printf " DISP"
296   end
297   if ($row->mode_line_p)
298     printf " MODEL"
299   end
300   if ($row->continued_p)
301     printf " CONT"
302   end
303   if ($row-> truncated_on_left_p)
304     printf " TRUNC:L"
305   end
306   if ($row-> truncated_on_right_p)
307     printf " TRUNC:R"
308   end
309   if ($row->starts_in_middle_of_char_p)
310     printf " STARTMID"
311   end
312   if ($row->ends_in_middle_of_char_p)
313     printf " ENDMID"
314   end
315   if ($row->ends_in_newline_from_string_p)
316     printf " ENDNLFS"
317   end
318   if ($row->ends_at_zv_p)
319     printf " ENDZV"
320   end
321   if ($row->overlapped_p)
322     printf " OLAPD"
323   end
324   if ($row->overlapping_p)
325     printf " OLAPNG"
326   end
327   printf "\n"
329 document prowx
330 Pretty print information about glyph_row.
331 Takes one argument, a row object or pointer.
334 define prow
335   prowx row
337 document prow
338 Pretty print information about glyph_row in row.
342 define pcursorx
343   set $cp = $arg0
344   printf "y=%d x=%d vpos=%d hpos=%d", $cp->y, $cp->x, $cp->vpos, $cp->hpos
346 document pcursorx
347 Pretty print a window cursor.
350 define pcursor
351   printf "output: "
352   pcursorx output_cursor
353   printf "\n"
355 document pcursor
356 Pretty print the output_cursor.
359 define pwinx
360   set $w = $arg0
361   if ($w->mini_p != Qnil)
362     printf "Mini "
363   end
364   printf "Window %d ", $int
365   xgetptr $w->buffer
366   set $tem = (struct buffer *) $ptr
367   xgetptr $tem->name_
368   printf "%s", ((struct Lisp_String *) $ptr)->data
369   printf "\n"
370   xgetptr $w->start
371   set $tem = (struct Lisp_Marker *) $ptr
372   printf "start=%d end:", $tem->charpos
373   if ($w->window_end_valid != Qnil)
374     xgetint $w->window_end_pos
375     printf "pos=%d", $int
376     xgetint $w->window_end_vpos
377     printf " vpos=%d", $int
378   else
379     printf "invalid"
380   end
381   printf " vscroll=%d", $w->vscroll
382   if ($w->force_start != Qnil)
383     printf " FORCE_START"
384   end
385   if ($w->must_be_updated_p)
386     printf " MUST_UPD"
387   end
388   printf "\n"
389   printf "cursor: "
390   pcursorx $w->cursor
391   printf "  phys: "
392   pcursorx $w->phys_cursor
393   if ($w->phys_cursor_on_p)
394     printf " ON"
395   else
396     printf " OFF"
397   end
398   printf " blk="
399   if ($w->last_cursor_off_p != $w->cursor_off_p)
400     if ($w->last_cursor_off_p)
401       printf "ON->"
402     else
403       printf "OFF->"
404     end
405   end
406   if ($w->cursor_off_p)
407     printf "ON"
408   else
409     printf "OFF"
410   end
411   printf "\n"
413 document pwinx
414 Pretty print a window structure.
415 Takes one argument, a pointer to a window structure.
418 define pwin
419   pwinx w
421 document pwin
422 Pretty print window structure w.
425 define pbiditype
426   if ($arg0 == 0)
427     printf "UNDEF"
428   end
429   if ($arg0 == 1)
430     printf "L"
431   end
432   if ($arg0 == 2)
433     printf "R"
434   end
435   if ($arg0 == 3)
436     printf "EN"
437   end
438   if ($arg0 == 4)
439     printf "AN"
440   end
441   if ($arg0 == 5)
442     printf "BN"
443   end
444   if ($arg0 == 6)
445     printf "B"
446   end
447   if ($arg0 < 0 || $arg0 > 6)
448     printf "%d??", $arg0
449   end
451 document pbiditype
452 Print textual description of bidi type given as first argument.
455 define pgx
456   set $g = $arg0
457   # CHAR_GLYPH
458   if ($g.type == 0)
459     if ($g.u.ch >= ' ' && $g.u.ch < 127)
460       printf "CHAR[%c]", $g.u.ch
461     else
462       printf "CHAR[0x%x]", $g.u.ch
463     end
464   end
465   # COMPOSITE_GLYPH
466   if ($g.type == 1)
467     printf "COMP[%d (%d..%d)]", $g.u.cmp.id, $g.slice.cmp.from, $g.slice.cmp.to
468   end
469   # GLYPHLESS_GLYPH
470   if ($g.type == 2)
471     printf "GLYPHLESS["
472     if ($g.u.glyphless.method == 0)
473       printf "THIN]"
474     end
475     if ($g.u.glyphless.method == 1)
476       printf "EMPTY]"
477     end
478     if ($g.u.glyphless.method == 2)
479       printf "ACRO]"
480     end
481     if ($g.u.glyphless.method == 3)
482       printf "HEX]"
483     end
484   end
485   # IMAGE_GLYPH
486   if ($g.type == 3)
487     printf "IMAGE[%d]", $g.u.img_id
488   end
489   # STRETCH_GLYPH
490   if ($g.type == 4)
491     printf "STRETCH[%d+%d]", $g.u.stretch.height, $g.u.stretch.ascent
492   end
493   xgettype ($g.object)
494   if ($type == Lisp_String)
495     xgetptr $g.object
496     printf " str=0x%x[%d]", ((struct Lisp_String *)$ptr)->data, $g.charpos
497   else
498     printf " pos=%d", $g.charpos
499   end
500   # For characters, print their resolved level and bidi type
501   if ($g.type == 0)
502     printf " blev=%d,btyp=", $g.resolved_level
503     pbiditype $g.bidi_type
504   end
505   printf " w=%d a+d=%d+%d", $g.pixel_width, $g.ascent, $g.descent
506   # If not DEFAULT_FACE_ID
507   if ($g.face_id != 0)
508     printf " face=%d", $g.face_id
509   end
510   if ($g.voffset)
511     printf " vof=%d", $g.voffset
512   end
513   if ($g.multibyte_p)
514     printf " MB"
515   end
516   if ($g.padding_p)
517     printf " PAD"
518   end
519   if ($g.glyph_not_available_p)
520     printf " N/A"
521   end
522   if ($g.overlaps_vertically_p)
523     printf " OVL"
524   end
525   if ($g.avoid_cursor_p)
526     printf " AVOID"
527   end
528   if ($g.left_box_line_p)
529     printf " ["
530   end
531   if ($g.right_box_line_p)
532     printf " ]"
533   end
534   if ($g.slice.img.x || $g.slice.img.y || $g.slice.img.width || $g.slice.img.height)
535     printf " slice=%d,%d,%d,%d" ,$g.slice.img.x, $g.slice.img.y, $g.slice.img.width, $g.slice.img.height
536   end
537   printf "\n"
539 document pgx
540 Pretty print a glyph structure.
541 Takes one argument, a pointer to a glyph structure.
544 define pg
545   set $pgidx = 0
546   pgx glyph
548 document pg
549 Pretty print glyph structure glyph.
552 define pgi
553   set $pgidx = $arg0
554   pgx (&glyph[$pgidx])
556 document pgi
557 Pretty print glyph structure glyph[I].
558 Takes one argument, a integer I.
561 define pgn
562   set $pgidx = $pgidx + 1
563   pgx (&glyph[$pgidx])
565 document pgn
566 Pretty print next glyph structure.
569 define pgrowx
570   set $row = $arg0
571   set $area = 0
572   set $xofs = $row->x
573   while ($area < 3)
574     set $used = $row->used[$area]
575     if ($used > 0)
576       set $gl0 = $row->glyphs[$area]
577       set $pgidx = 0
578       printf "%s: %d glyphs\n", ($area == 0 ? "LEFT" : $area == 2 ? "RIGHT" : "TEXT"), $used
579       while ($pgidx < $used)
580         printf "%3d %4d: ", $pgidx, $xofs
581         pgx $gl0[$pgidx]
582         set $xofs = $xofs + $gl0[$pgidx]->pixel_width
583         set $pgidx = $pgidx + 1
584       end
585     end
586     set $area = $area + 1
587   end
589 document pgrowx
590 Pretty print all glyphs in a row structure.
591 Takes one argument, a pointer to a row structure.
594 define pgrow
595   pgrowx row
597 document pgrow
598 Pretty print all glyphs in row structure row.
601 define pgrowit
602   pgrowx it->glyph_row
604 document pgrowit
605 Pretty print all glyphs in it->glyph_row.
608 define prowlims
609   printf "edges=(%d,%d),enb=%d,r2l=%d,cont=%d,trunc=(%d,%d),at_zv=%d\n", $arg0->minpos.charpos, $arg0->maxpos.charpos, $arg0->enabled_p, $arg0->reversed_p, $arg0->continued_p, $arg0->truncated_on_left_p, $arg0->truncated_on_right_p, $arg0->ends_at_zv_p
611 document prowlims
612 Print important attributes of a glyph_row structure.
613 Takes one argument, a pointer to a glyph_row structure.
616 define pmtxrows
617   set $mtx = $arg0
618   set $gl = $mtx->rows
619   set $glend = $mtx->rows + $mtx->nrows - 1
620   set $i = 0
621   while ($gl < $glend)
622     printf "%d: ", $i
623     prowlims $gl
624     set $gl = $gl + 1
625     set $i = $i + 1
626   end
628 document pmtxrows
629 Print data about glyph rows in a glyph matrix.
630 Takes one argument, a pointer to a glyph_matrix structure.
633 define xtype
634   xgettype $
635   output $type
636   echo \n
637   if $type == Lisp_Misc
638     xmisctype
639   else
640     if $type == Lisp_Vectorlike
641       xvectype
642     end
643   end
645 document xtype
646 Print the type of $, assuming it is an Emacs Lisp value.
647 If the first type printed is Lisp_Vector or Lisp_Misc,
648 a second line gives the more precise type.
651 define pvectype
652   set $size = ((struct Lisp_Vector *) $arg0)->header.size
653   if ($size & PSEUDOVECTOR_FLAG)
654     output (enum pvec_type) (($size & PVEC_TYPE_MASK) >> PSEUDOVECTOR_AREA_BITS)
655   else
656     output PVEC_NORMAL_VECTOR
657   end
658   echo \n
660 document pvectype
661 Print the subtype of vectorlike object.
662 Takes one argument, a pointer to an object.
665 define xvectype
666   xgetptr $
667   pvectype $ptr
669 document xvectype
670 Print the subtype of vectorlike object.
671 This command assumes that $ is a Lisp_Object.
674 define pvecsize
675   set $size = ((struct Lisp_Vector *) $arg0)->header.size
676   if ($size & PSEUDOVECTOR_FLAG)
677     output ($size & PSEUDOVECTOR_SIZE_MASK)
678     echo \n
679     output (($size & PSEUDOVECTOR_REST_MASK) >> PSEUDOVECTOR_SIZE_BITS)
680   else
681     output ($size & ~ARRAY_MARK_FLAG)
682   end
683   echo \n
685 document pvecsize
686 Print the size of vectorlike object.
687 Takes one argument, a pointer to an object.
690 define xvecsize
691   xgetptr $
692   pvecsize $ptr
694 document xvecsize
695 Print the size of $
696 This command assumes that $ is a Lisp_Object.
699 define xmisctype
700   xgetptr $
701   output (enum Lisp_Misc_Type) (((struct Lisp_Free *) $ptr)->type)
702   echo \n
704 document xmisctype
705 Assume that $ is some misc type and print its specific type.
708 define xint
709   xgetint $
710   print $int
712 document xint
713 Print $ as an Emacs Lisp integer.  This gets the sign right.
716 define xptr
717   xgetptr $
718   print (void *) $ptr
720 document xptr
721 Print the pointer portion of an Emacs Lisp value in $.
724 define xmarker
725   xgetptr $
726   print (struct Lisp_Marker *) $ptr
728 document xmarker
729 Print $ as a marker pointer.
730 This command assumes that $ is an Emacs Lisp marker value.
733 define xoverlay
734   xgetptr $
735   print (struct Lisp_Overlay *) $ptr
737 document xoverlay
738 Print $ as a overlay pointer.
739 This command assumes that $ is an Emacs Lisp overlay value.
742 define xmiscfree
743   xgetptr $
744   print (struct Lisp_Free *) $ptr
746 document xmiscfree
747 Print $ as a misc free-cell pointer.
748 This command assumes that $ is an Emacs Lisp Misc value.
751 define xsymbol
752   set $sym = $
753   xgetptr $sym
754   print (struct Lisp_Symbol *) $ptr
755   xprintsym $sym
756   echo \n
758 document xsymbol
759 Print the name and address of the symbol $.
760 This command assumes that $ is an Emacs Lisp symbol value.
763 define xstring
764   xgetptr $
765   print (struct Lisp_String *) $ptr
766   xprintstr $
767   echo \n
769 document xstring
770 Print the contents and address of the string $.
771 This command assumes that $ is an Emacs Lisp string value.
774 define xvector
775   xgetptr $
776   print (struct Lisp_Vector *) $ptr
777   output ($->header.size > 50) ? 0 : ($->contents[0])@($->header.size & ~ARRAY_MARK_FLAG)
778 echo \n
780 document xvector
781 Print the contents and address of the vector $.
782 This command assumes that $ is an Emacs Lisp vector value.
785 define xprocess
786   xgetptr $
787   print (struct Lisp_Process *) $ptr
788   output *$
789   echo \n
791 document xprocess
792 Print the address of the struct Lisp_process to which $ points.
793 This command assumes that $ is a Lisp_Object.
796 define xframe
797   xgetptr $
798   print (struct frame *) $ptr
799   xgetptr $->name
800   set $ptr = (struct Lisp_String *) $ptr
801   xprintstr $ptr
802   echo \n
804 document xframe
805 Print $ as a frame pointer.
806 This command assumes $ is an Emacs Lisp frame value.
809 define xcompiled
810   xgetptr $
811   print (struct Lisp_Vector *) $ptr
812   output ($->contents[0])@($->header.size & 0xff)
814 document xcompiled
815 Print $ as a compiled function pointer.
816 This command assumes that $ is an Emacs Lisp compiled value.
819 define xwindow
820   xgetptr $
821   print (struct window *) $ptr
822   set $window = (struct window *) $ptr
823   xgetint $window->total_cols
824   set $width=$int
825   xgetint $window->total_lines
826   set $height=$int
827   xgetint $window->left_col
828   set $left=$int
829   xgetint $window->top_line
830   set $top=$int
831   printf "%dx%d+%d+%d\n", $width, $height, $left, $top
833 document xwindow
834 Print $ as a window pointer, assuming it is an Emacs Lisp window value.
835 Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
838 define xwinconfig
839   xgetptr $
840   print (struct save_window_data *) $ptr
842 document xwinconfig
843 Print $ as a window configuration pointer.
844 This command assumes that $ is an Emacs Lisp window configuration value.
847 define xsubr
848   xgetptr $
849   print (struct Lisp_Subr *) $ptr
850   output *$
851   echo \n
853 document xsubr
854 Print the address of the subr which the Lisp_Object $ points to.
857 define xchartable
858   xgetptr $
859   print (struct Lisp_Char_Table *) $ptr
860   printf "Purpose: "
861   xprintsym $->purpose
862   printf "  %d extra slots", ($->header.size & 0x1ff) - 68
863   echo \n
865 document xchartable
866 Print the address of the char-table $, and its purpose.
867 This command assumes that $ is an Emacs Lisp char-table value.
870 define xsubchartable
871   xgetptr $
872   print (struct Lisp_Sub_Char_Table *) $ptr
873   xgetint $->depth
874   set $depth = $int
875   xgetint $->min_char
876   printf "Depth: %d, Min char: %d (0x%x)\n", $depth, $int, $int
878 document xsubchartable
879 Print the address of the sub-char-table $, its depth and min-char.
880 This command assumes that $ is an Emacs Lisp sub-char-table value.
883 define xboolvector
884   xgetptr $
885   print (struct Lisp_Bool_Vector *) $ptr
886   output ($->size > 256) ? 0 : ($->data[0])@(($->size + BOOL_VECTOR_BITS_PER_CHAR - 1)/ BOOL_VECTOR_BITS_PER_CHAR)
887   echo \n
889 document xboolvector
890 Print the contents and address of the bool-vector $.
891 This command assumes that $ is an Emacs Lisp bool-vector value.
894 define xbuffer
895   xgetptr $
896   print (struct buffer *) $ptr
897   xgetptr $->name_
898   output ((struct Lisp_String *) $ptr)->data
899   echo \n
901 document xbuffer
902 Set $ as a buffer pointer and the name of the buffer.
903 This command assumes $ is an Emacs Lisp buffer value.
906 define xhashtable
907   xgetptr $
908   print (struct Lisp_Hash_Table *) $ptr
910 document xhashtable
911 Set $ as a hash table pointer.
912 This command assumes that $ is an Emacs Lisp hash table value.
915 define xcons
916   xgetptr $
917   print (struct Lisp_Cons *) $ptr
918   output/x *$
919   echo \n
921 document xcons
922 Print the contents of $ as an Emacs Lisp cons.
925 define nextcons
926   p $.u.cdr
927   xcons
929 document nextcons
930 Print the contents of the next cell in a list.
931 This command assumes that the last thing you printed was a cons cell contents
932 (type struct Lisp_Cons) or a pointer to one.
934 define xcar
935   xgetptr $
936   xgettype $
937   print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car : 0)
939 document xcar
940 Assume that $ is an Emacs Lisp pair and print its car.
943 define xcdr
944   xgetptr $
945   xgettype $
946   print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->u.cdr : 0)
948 document xcdr
949 Assume that $ is an Emacs Lisp pair and print its cdr.
952 define xlist
953   xgetptr $
954   set $cons = (struct Lisp_Cons *) $ptr
955   xgetptr Qnil
956   set $nil = $ptr
957   set $i = 0
958   while $cons != $nil && $i < 10
959     p/x $cons->car
960     xpr
961     xgetptr $cons->u.cdr
962     set $cons = (struct Lisp_Cons *) $ptr
963     set $i = $i + 1
964     printf "---\n"
965   end
966   if $cons == $nil
967     printf "nil\n"
968   else
969     printf "...\n"
970     p $ptr
971   end
973 document xlist
974 Print $ assuming it is a list.
977 define xfloat
978   xgetptr $
979   print ((struct Lisp_Float *) $ptr)->u.data
981 document xfloat
982 Print $ assuming it is a lisp floating-point number.
985 define xscrollbar
986   xgetptr $
987   print (struct scrollbar *) $ptr
988 output *$
989 echo \n
991 document xscrollbar
992 Print $ as a scrollbar pointer.
995 define xpr
996   xtype
997   if $type == Lisp_Int0 || $type == Lisp_Int1
998     xint
999   end
1000   if $type == Lisp_Symbol
1001     xsymbol
1002   end
1003   if $type == Lisp_String
1004     xstring
1005   end
1006   if $type == Lisp_Cons
1007     xcons
1008   end
1009   if $type == Lisp_Float
1010     xfloat
1011   end
1012   if $type == Lisp_Misc
1013     set $misc = (enum Lisp_Misc_Type) (((struct Lisp_Free *) $ptr)->type)
1014     if $misc == Lisp_Misc_Free
1015       xmiscfree
1016     end
1017     if $misc == Lisp_Misc_Marker
1018       xmarker
1019     end
1020     if $misc == Lisp_Misc_Overlay
1021       xoverlay
1022     end
1023 #    if $misc == Lisp_Misc_Save_Value
1024 #      xsavevalue
1025 #    end
1026   end
1027   if $type == Lisp_Vectorlike
1028     set $size = ((struct Lisp_Vector *) $ptr)->header.size
1029     if ($size & PSEUDOVECTOR_FLAG)
1030       set $vec = (enum pvec_type) (($size & PVEC_TYPE_MASK) >> PSEUDOVECTOR_AREA_BITS)
1031       if $vec == PVEC_NORMAL_VECTOR
1032         xvector
1033       end
1034       if $vec == PVEC_PROCESS
1035         xprocess
1036       end
1037       if $vec == PVEC_FRAME
1038         xframe
1039       end
1040       if $vec == PVEC_COMPILED
1041         xcompiled
1042       end
1043       if $vec == PVEC_WINDOW
1044         xwindow
1045       end
1046       if $vec == PVEC_WINDOW_CONFIGURATION
1047         xwinconfig
1048       end
1049       if $vec == PVEC_SUBR
1050         xsubr
1051       end
1052       if $vec == PVEC_CHAR_TABLE
1053         xchartable
1054       end
1055       if $vec == PVEC_BOOL_VECTOR
1056         xboolvector
1057       end
1058       if $vec == PVEC_BUFFER
1059         xbuffer
1060       end
1061       if $vec == PVEC_HASH_TABLE
1062         xhashtable
1063       end
1064     else
1065       xvector
1066     end
1067   end
1069 document xpr
1070 Print $ as a lisp object of any type.
1073 define xprintstr
1074   set $data = (char *) $arg0->data
1075   set $strsize = ($arg0->size_byte < 0) ? ($arg0->size & ~ARRAY_MARK_FLAG) : $arg0->size_byte
1076   # GDB doesn't like zero repetition counts
1077   if $strsize == 0
1078     output ""
1079   else
1080     output ($arg0->size > 1000) ? 0 : ($data[0])@($strsize)
1081   end
1084 define xprintsym
1085   xgetptr $arg0
1086   set $sym = (struct Lisp_Symbol *) $ptr
1087   xgetptr $sym->name
1088   set $sym_name = (struct Lisp_String *) $ptr
1089   xprintstr $sym_name
1091 document xprintsym
1092   Print argument as a symbol.
1095 define xcoding
1096   set $tmp = (struct Lisp_Hash_Table *) (Vcoding_system_hash_table & VALMASK)
1097   set $tmp = (struct Lisp_Vector *) ($tmp->key_and_value & VALMASK)
1098   set $name = $tmp->contents[$arg0 * 2]
1099   print $name
1100   pr
1101   print $tmp->contents[$arg0 * 2 + 1]
1102   pr
1104 document xcoding
1105   Print the name and attributes of coding system that has ID (argument).
1108 define xcharset
1109   set $tmp = (struct Lisp_Hash_Table *) (Vcharset_hash_table & VALMASK)
1110   set $tmp = (struct Lisp_Vector *) ($tmp->key_and_value & VALMASK)
1111   p $tmp->contents[charset_table[$arg0].hash_index * 2]
1112   pr
1114 document xcharset
1115   Print the name of charset that has ID (argument).
1118 define xfontset
1119   xgetptr $
1120   set $tbl = (struct Lisp_Char_Table *) $ptr
1121   print $tbl
1122   xgetint $tbl->extras[0]
1123   printf " ID:%d", $int
1124   xgettype $tbl->extras[1]
1125   xgetptr $tbl->extras[1]
1126   if $type == Lisp_String
1127     set $ptr = (struct Lisp_String *) $ptr
1128     printf " Name:"
1129     xprintstr $ptr
1130   else
1131     xgetptr $tbl->extras[2]
1132     set $ptr = (struct Lisp_Char_Table *) $ptr
1133     xgetptr $ptr->extras[1]
1134     set $ptr = (struct Lisp_String *) $ptr
1135     printf " Realized from:"
1136     xprintstr $ptr
1137   end
1138   echo \n
1141 define xfont
1142   xgetptr $
1143   set $size = (((struct Lisp_Vector *) $ptr)->header.size & 0x1FF)
1144   if $size == FONT_SPEC_MAX
1145     print (struct font_spec *) $ptr
1146   else
1147     if $size == FONT_ENTITY_MAX
1148       print (struct font_entity *) $ptr
1149     else
1150       print (struct font *) $ptr
1151     end
1152   end
1154 document xfont
1155 Print $ assuming it is a list font (font-spec, font-entity, or font-object).
1158 define xbacktrace
1159   set $bt = backtrace_top ()
1160   while backtrace_p ($bt)
1161     set $fun = backtrace_function ($bt)
1162     xgettype $fun
1163     if $type == Lisp_Symbol
1164       xprintsym $fun
1165       printf " (0x%x)\n", backtrace_args ($bt)
1166     else
1167       xgetptr $fun
1168       printf "0x%x ", $ptr
1169       if $type == Lisp_Vectorlike
1170         xgetptr $fun
1171         set $size = ((struct Lisp_Vector *) $ptr)->header.size
1172         if ($size & PSEUDOVECTOR_FLAG)
1173           output (enum pvec_type) (($size & PVEC_TYPE_MASK) >> PSEUDOVECTOR_AREA_BITS)
1174         else
1175           output $size & ~ARRAY_MARK_FLAG
1176         end
1177       else
1178         printf "Lisp type %d", $type
1179       end
1180       echo \n
1181     end
1182     set $bt = backtrace_next ($bt)
1183   end
1185 document xbacktrace
1186   Print a backtrace of Lisp function calls from backtrace_list.
1187   Set a breakpoint at Fsignal and call this to see from where
1188   an error was signaled.
1191 define xprintbytestr
1192   set $data = (char *) $arg0->data
1193   set $bstrsize = ($arg0->size_byte < 0) ? ($arg0->size & ~ARRAY_MARK_FLAG) : $arg0->size_byte
1194   printf "Bytecode: "
1195   if $bstrsize > 0
1196     output/u ($arg0->size > 1000) ? 0 : ($data[0])@($bvsize)
1197   else
1198     printf ""
1199   end
1201 document xprintbytestr
1202   Print a string of byte code.
1205 define xwhichsymbols
1206   set $output_debug = print_output_debug_flag
1207   set print_output_debug_flag = 0
1208   call safe_debug_print (which_symbols ($arg0, $arg1))
1209   set print_output_debug_flag = $output_debug
1211 document xwhichsymbols
1212   Print symbols which references a given lisp object
1213   either as its symbol value or symbol function.
1214   Call with two arguments: the lisp object and the
1215   maximum number of symbols referencing it to produce.
1218 define xbytecode
1219   set $bt = byte_stack_list
1220   while $bt
1221     xgetptr $bt->byte_string
1222     set $ptr = (struct Lisp_String *) $ptr
1223     xprintbytestr $ptr
1224     printf "\n0x%x => ", $bt->byte_string
1225     xwhichsymbols $bt->byte_string 5
1226     set $bt = $bt->next
1227   end
1229 document xbytecode
1230   Print a backtrace of the byte code stack.
1233 # Show Lisp backtrace after normal backtrace.
1234 define hookpost-backtrace
1235   set $bt = backtrace_top ()
1236   if backtrace_p ($bt)
1237     echo \n
1238     echo Lisp Backtrace:\n
1239     xbacktrace
1240   end
1243 # Flush display (X only)
1244 define ff
1245   set x_flush (0)
1247 document ff
1248 Flush pending X window display updates to screen.
1249 Works only when an inferior emacs is executing.
1253 set print pretty on
1254 set print sevenbit-strings
1256 show environment DISPLAY
1257 show environment TERM
1259 # When debugging, it is handy to be able to "return" from
1260 # terminate_due_to_signal when an assertion failure is non-fatal.
1261 break terminate_due_to_signal
1263 # x_error_quitter is defined only on X.  But window-system is set up
1264 # only at run time, during Emacs startup, so we need to defer setting
1265 # the breakpoint.  init_sys_modes is the first function called on
1266 # every platform after init_display, where window-system is set.
1267 tbreak init_sys_modes
1268 commands
1269   silent
1270   xgetptr globals.f_Vinitial_window_system
1271   set $tem = (struct Lisp_Symbol *) $ptr
1272   xgetptr $tem->name
1273   set $tem = (struct Lisp_String *) $ptr
1274   set $tem = (char *) $tem->data
1275   # If we are running in synchronous mode, we want a chance to look
1276   # around before Emacs exits.  Perhaps we should put the break
1277   # somewhere else instead...
1278   if $tem[0] == 'x' && $tem[1] == '\0'
1279     break x_error_quitter
1280   end
1281   continue