Mercurial > hg > xemacs-beta

comparison src/.gdbinit @ 2354:ec5cb254c826

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-10-28 10:48:10 by stephent] fix clash with gdb builtin <87pt332k7g.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 28 Oct 2004 10:48:15 +0000
parents aebc80e1f056
children
comparison
equal deleted inserted replaced
2353:186992a01a13 2354:ec5cb254c826
223 print XrmQuarkToString(((Object)($arg0))->object.xrm_name) 223 print XrmQuarkToString(((Object)($arg0))->object.xrm_name)
224 end 224 end
225 225
226 # GDB's command language makes you want to ... 226 # GDB's command language makes you want to ...
227 227
228 define ptype 228 define pptype
229 set $type_ptr = ($arg0 *) $val 229 set $type_ptr = ($arg0 *) $val
230 print $type_ptr 230 print $type_ptr
231 print *$type_ptr 231 print *$type_ptr
232 end 232 end
233 233
248 else 248 else
249 printf "Char: %d\n", $val 249 printf "Char: %d\n", $val
250 end 250 end
251 else 251 else
252 if $lrecord_type == lrecord_type_string 252 if $lrecord_type == lrecord_type_string
253 ptype Lisp_String 253 pptype Lisp_String
254 else 254 else
255 if $lrecord_type == lrecord_type_cons 255 if $lrecord_type == lrecord_type_cons
256 ptype Lisp_Cons 256 pptype Lisp_Cons
257 else 257 else
258 if $lrecord_type == lrecord_type_symbol 258 if $lrecord_type == lrecord_type_symbol
259 ptype Lisp_Symbol 259 pptype Lisp_Symbol
260 printf "Symbol name: %s\n", ((Lisp_String *)$type_ptr->name)->data_ 260 printf "Symbol name: %s\n", ((Lisp_String *)$type_ptr->name)->data_
261 else 261 else
262 if $lrecord_type == lrecord_type_vector 262 if $lrecord_type == lrecord_type_vector
263 ptype Lisp_Vector 263 pptype Lisp_Vector
264 printf "Vector of length %d\n", $type_ptr->size 264 printf "Vector of length %d\n", $type_ptr->size
265 #print *($type_ptr->data) @ $type_ptr->size 265 #print *($type_ptr->data) @ $type_ptr->size
266 else 266 else
267 if $lrecord_type == lrecord_type_bit_vector 267 if $lrecord_type == lrecord_type_bit_vector
268 ptype Lisp_Bit_Vector 268 pptype Lisp_Bit_Vector
269 else 269 else
270 if $lrecord_type == lrecord_type_buffer 270 if $lrecord_type == lrecord_type_buffer
271 pstructtype buffer 271 pstructtype buffer
272 else 272 else
273 if $lrecord_type == lrecord_type_char_table 273 if $lrecord_type == lrecord_type_char_table
274 ptype Lisp_Char_Table 274 pptype Lisp_Char_Table
275 else 275 else
276 if $lrecord_type == lrecord_type_char_table_entry 276 if $lrecord_type == lrecord_type_char_table_entry
277 ptype Lisp_Char_Table_Entry 277 pptype Lisp_Char_Table_Entry
278 else 278 else
279 if $lrecord_type == lrecord_type_charset 279 if $lrecord_type == lrecord_type_charset
280 ptype Lisp_Charset 280 pptype Lisp_Charset
281 else 281 else
282 if $lrecord_type == lrecord_type_coding_system 282 if $lrecord_type == lrecord_type_coding_system
283 ptype Lisp_Coding_System 283 pptype Lisp_Coding_System
284 else 284 else
285 if $lrecord_type == lrecord_type_color_instance 285 if $lrecord_type == lrecord_type_color_instance
286 ptype Lisp_Color_Instance 286 pptype Lisp_Color_Instance
287 else 287 else
288 if $lrecord_type == lrecord_type_command_builder 288 if $lrecord_type == lrecord_type_command_builder
289 ptype command_builder 289 pptype command_builder
290 else 290 else
291 if $lrecord_type == lrecord_type_compiled_function 291 if $lrecord_type == lrecord_type_compiled_function
292 ptype Lisp_Compiled_Function 292 pptype Lisp_Compiled_Function
293 else 293 else
294 if $lrecord_type == lrecord_type_console 294 if $lrecord_type == lrecord_type_console
295 pstructtype console 295 pstructtype console
296 else 296 else
297 if $lrecord_type == lrecord_type_database 297 if $lrecord_type == lrecord_type_database
298 ptype Lisp_Database 298 pptype Lisp_Database
299 else 299 else
300 if $lrecord_type == lrecord_type_device 300 if $lrecord_type == lrecord_type_device
301 pstructtype device 301 pstructtype device
302 else 302 else
303 if $lrecord_type == lrecord_type_event 303 if $lrecord_type == lrecord_type_event
304 ptype Lisp_Event 304 pptype Lisp_Event
305 else 305 else
306 if $lrecord_type == lrecord_type_extent 306 if $lrecord_type == lrecord_type_extent
307 pstructtype extent 307 pstructtype extent
308 else 308 else
309 if $lrecord_type == lrecord_type_extent_auxiliary 309 if $lrecord_type == lrecord_type_extent_auxiliary
311 else 311 else
312 if $lrecord_type == lrecord_type_extent_info 312 if $lrecord_type == lrecord_type_extent_info
313 pstructtype extent_info 313 pstructtype extent_info
314 else 314 else
315 if $lrecord_type == lrecord_type_face 315 if $lrecord_type == lrecord_type_face
316 ptype Lisp_Face 316 pptype Lisp_Face
317 else 317 else
318 if $lrecord_type == lrecord_type_float 318 if $lrecord_type == lrecord_type_float
319 ptype Lisp_Float 319 pptype Lisp_Float
320 else 320 else
321 if $lrecord_type == lrecord_type_font_instance 321 if $lrecord_type == lrecord_type_font_instance
322 ptype Lisp_Font_Instance 322 pptype Lisp_Font_Instance
323 else 323 else
324 if $lrecord_type == lrecord_type_frame 324 if $lrecord_type == lrecord_type_frame
325 pstructtype frame 325 pstructtype frame
326 else 326 else
327 if $lrecord_type == lrecord_type_glyph 327 if $lrecord_type == lrecord_type_glyph
328 ptype Lisp_Glyph 328 pptype Lisp_Glyph
329 else 329 else
330 if $lrecord_type == lrecord_type_gui_item 330 if $lrecord_type == lrecord_type_gui_item
331 ptype Lisp_Gui_Item 331 pptype Lisp_Gui_Item
332 else 332 else
333 if $lrecord_type == lrecord_type_hash_table 333 if $lrecord_type == lrecord_type_hash_table
334 ptype Lisp_Hash_Table 334 pptype Lisp_Hash_Table
335 else 335 else
336 if $lrecord_type == lrecord_type_image_instance 336 if $lrecord_type == lrecord_type_image_instance
337 ptype Lisp_Image_Instance 337 pptype Lisp_Image_Instance
338 else 338 else
339 if $lrecord_type == lrecord_type_keymap 339 if $lrecord_type == lrecord_type_keymap
340 ptype Lisp_Keymap 340 pptype Lisp_Keymap
341 else 341 else
342 if $lrecord_type == lrecord_type_lcrecord_list 342 if $lrecord_type == lrecord_type_lcrecord_list
343 pstructtype lcrecord_list 343 pstructtype lcrecord_list
344 else 344 else
345 if $lrecord_type == lrecord_type_ldap 345 if $lrecord_type == lrecord_type_ldap
346 ptype Lisp_LDAP 346 pptype Lisp_LDAP
347 else 347 else
348 if $lrecord_type == lrecord_type_lstream 348 if $lrecord_type == lrecord_type_lstream
349 pstructtype lstream 349 pstructtype lstream
350 else 350 else
351 if $lrecord_type == lrecord_type_marker 351 if $lrecord_type == lrecord_type_marker
352 ptype Lisp_Marker 352 pptype Lisp_Marker
353 else 353 else
354 if $lrecord_type == lrecord_type_opaque 354 if $lrecord_type == lrecord_type_opaque
355 ptype Lisp_Opaque 355 pptype Lisp_Opaque
356 else 356 else
357 if $lrecord_type == lrecord_type_opaque_ptr 357 if $lrecord_type == lrecord_type_opaque_ptr
358 ptype Lisp_Opaque_Ptr 358 pptype Lisp_Opaque_Ptr
359 else 359 else
360 if $lrecord_type == lrecord_type_popup_data 360 if $lrecord_type == lrecord_type_popup_data
361 ptype popup_data 361 pptype popup_data
362 else 362 else
363 if $lrecord_type == lrecord_type_process 363 if $lrecord_type == lrecord_type_process
364 ptype Lisp_Process 364 pptype Lisp_Process
365 else 365 else
366 if $lrecord_type == lrecord_type_range_table 366 if $lrecord_type == lrecord_type_range_table
367 ptype Lisp_Range_Table 367 pptype Lisp_Range_Table
368 else 368 else
369 if $lrecord_type == lrecord_type_specifier 369 if $lrecord_type == lrecord_type_specifier
370 ptype Lisp_Specifier 370 pptype Lisp_Specifier
371 else 371 else
372 if $lrecord_type == lrecord_type_subr 372 if $lrecord_type == lrecord_type_subr
373 ptype Lisp_Subr 373 pptype Lisp_Subr
374 else 374 else
375 if $lrecord_type == lrecord_type_symbol_value_buffer_local 375 if $lrecord_type == lrecord_type_symbol_value_buffer_local
376 pstructtype symbol_value_buffer_local 376 pstructtype symbol_value_buffer_local
377 else 377 else
378 if $lrecord_type == lrecord_type_symbol_value_forward 378 if $lrecord_type == lrecord_type_symbol_value_forward
383 else 383 else
384 if $lrecord_type == lrecord_type_symbol_value_varalias 384 if $lrecord_type == lrecord_type_symbol_value_varalias
385 pstructtype symbol_value_varalias 385 pstructtype symbol_value_varalias
386 else 386 else
387 if $lrecord_type == lrecord_type_timeout 387 if $lrecord_type == lrecord_type_timeout
388 ptype Lisp_Timeout 388 pptype Lisp_Timeout
389 else 389 else
390 if $lrecord_type == lrecord_type_toolbar_button 390 if $lrecord_type == lrecord_type_toolbar_button
391 pstructtype toolbar_button 391 pstructtype toolbar_button
392 else 392 else
393 if $lrecord_type == lrecord_type_tooltalk_message 393 if $lrecord_type == lrecord_type_tooltalk_message
394 ptype Lisp_Tooltalk_Message 394 pptype Lisp_Tooltalk_Message
395 else 395 else
396 if $lrecord_type == lrecord_type_tooltalk_pattern 396 if $lrecord_type == lrecord_type_tooltalk_pattern
397 ptype Lisp_Tooltalk_Pattern 397 pptype Lisp_Tooltalk_Pattern
398 else 398 else
399 if $lrecord_type == lrecord_type_weak_list 399 if $lrecord_type == lrecord_type_weak_list
400 pstructtype weak_list 400 pstructtype weak_list
401 else 401 else
402 if $lrecord_type == lrecord_type_window 402 if $lrecord_type == lrecord_type_window
403 pstructtype window 403 pstructtype window
404 else 404 else
405 if $lrecord_type == lrecord_type_window_configuration 405 if $lrecord_type == lrecord_type_window_configuration
406 pstructtype window_config 406 pstructtype window_config
407 else
408 if $lrecord_type == lrecord_type_fc_pattern
409 pstructtype fc_pattern
410 else
411 if $lrecord_type == lrecord_type_fc_objectset
412 pstructtype fc_objectset
413 else
414 if $lrecord_type == lrecord_type_fc_fontset
415 pstructtype fc_fontset
407 else 416 else
408 echo Unknown Lisp Object type\n 417 echo Unknown Lisp Object type\n
409 print $arg0 418 print $arg0
410 # Barf, gag, retch 419 # Barf, gag, retch
420 end
421 end
422 end
411 end 423 end
412 end 424 end
413 end 425 end
414 end 426 end
415 end 427 end