Mercurial > hg > xemacs-beta

comparison src/gdbinit @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents 697ef44129c6
children 11054d720c21
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
226 printf "Char: %c\n", $val 226 printf "Char: %c\n", $val
227 else 227 else
228 printf "Char: %d\n", $val 228 printf "Char: %d\n", $val
229 end 229 end
230 else 230 else
231 if $type == Lisp_Type_String || $imp == lrecord_string 231 if $type == Lisp_Type_String || $imp == &lrecord_string
232 pstruct Lisp_String 232 pstruct Lisp_String
233 else 233 else
234 if $type == Lisp_Type_Cons || $imp == lrecord_cons 234 if $type == Lisp_Type_Cons || $imp == &lrecord_cons
235 pstruct Lisp_Cons 235 pstruct Lisp_Cons
236 else 236 else
237 if $type == Lisp_Type_Symbol || $imp == lrecord_symbol 237 if $type == Lisp_Type_Symbol || $imp == &lrecord_symbol
238 pstruct Lisp_Symbol 238 pstruct Lisp_Symbol
239 printf "Symbol name: %s\n", $xstruct->name->data 239 printf "Symbol name: %s\n", $xstruct->name->data
240 else 240 else
241 if $type == Lisp_Type_Vector || $imp == lrecord_vector 241 if $type == Lisp_Type_Vector || $imp == &lrecord_vector
242 pstruct Lisp_Vector 242 pstruct Lisp_Vector
243 printf "Vector of length %d\n", $xstruct->size 243 printf "Vector of length %d\n", $xstruct->size
244 #print *($xstruct->data) @ $xstruct->size 244 #print *($xstruct->data) @ $xstruct->size
245 else 245 else
246 if $imp == lrecord_bit_vector 246 if $imp == &lrecord_bit_vector
247 pstruct Lisp_Bit_Vector 247 pstruct Lisp_Bit_Vector
248 else 248 else
249 if $imp == lrecord_buffer 249 if $imp == &lrecord_buffer
250 pstruct buffer 250 pstruct buffer
251 else 251 else
252 if $imp == lrecord_char_table 252 if $imp == &lrecord_char_table
253 pstruct Lisp_Char_Table 253 pstruct Lisp_Char_Table
254 else 254 else
255 if $imp == lrecord_char_table_entry 255 if $imp == &lrecord_char_table_entry
256 pstruct Lisp_Char_Table_Entry 256 pstruct Lisp_Char_Table_Entry
257 else 257 else
258 if $imp == lrecord_charset 258 if $imp == &lrecord_charset
259 pstruct Lisp_Charset 259 pstruct Lisp_Charset
260 else 260 else
261 if $imp == lrecord_coding_system 261 if $imp == &lrecord_coding_system
262 pstruct Lisp_Coding_System 262 pstruct Lisp_Coding_System
263 else 263 else
264 if $imp == lrecord_color_instance 264 if $imp == &lrecord_color_instance
265 pstruct Lisp_Color_Instance 265 pstruct Lisp_Color_Instance
266 else 266 else
267 if $imp == lrecord_command_builder 267 if $imp == &lrecord_command_builder
268 pstruct command_builder 268 pstruct command_builder
269 else 269 else
270 if $imp == lrecord_compiled_function 270 if $imp == &lrecord_compiled_function
271 pstruct Lisp_Compiled_Function 271 pstruct Lisp_Compiled_Function
272 else 272 else
273 if $imp == lrecord_console 273 if $imp == &lrecord_console
274 pstruct console 274 pstruct console
275 else 275 else
276 if $imp == lrecord_database 276 if $imp == &lrecord_database
277 pstruct Lisp_Database 277 pstruct Lisp_Database
278 else 278 else
279 if $imp == lrecord_device 279 if $imp == &lrecord_device
280 pstruct device 280 pstruct device
281 else 281 else
282 if $imp == lrecord_event 282 if $imp == &lrecord_event
283 pstruct Lisp_Event 283 pstruct Lisp_Event
284 else 284 else
285 if $imp == lrecord_extent 285 if $imp == &lrecord_extent
286 pstruct extent 286 pstruct extent
287 else 287 else
288 if $imp == lrecord_extent_auxiliary 288 if $imp == &lrecord_extent_auxiliary
289 pstruct extent_auxiliary 289 pstruct extent_auxiliary
290 else 290 else
291 if $imp == lrecord_extent_info 291 if $imp == &lrecord_extent_info
292 pstruct extent_info 292 pstruct extent_info
293 else 293 else
294 if $imp == lrecord_face 294 if $imp == &lrecord_face
295 pstruct Lisp_Face 295 pstruct Lisp_Face
296 else 296 else
297 if $imp == lrecord_float 297 if $imp == &lrecord_float
298 pstruct Lisp_Float 298 pstruct Lisp_Float
299 else 299 else
300 if $imp == lrecord_font_instance 300 if $imp == &lrecord_font_instance
301 pstruct Lisp_Font_Instance 301 pstruct Lisp_Font_Instance
302 else 302 else
303 if $imp == lrecord_frame 303 if $imp == &lrecord_frame
304 pstruct frame 304 pstruct frame
305 else 305 else
306 if $imp == lrecord_glyph 306 if $imp == &lrecord_glyph
307 pstruct Lisp_Glyph 307 pstruct Lisp_Glyph
308 else 308 else
309 if $imp == lrecord_hash_table 309 if $imp == &lrecord_hash_table
310 pstruct Lisp_Hash_Table 310 pstruct Lisp_Hash_Table
311 else 311 else
312 if $imp == lrecord_image_instance 312 if $imp == &lrecord_image_instance
313 pstruct Lisp_Image_Instance 313 pstruct Lisp_Image_Instance
314 else 314 else
315 if $imp == lrecord_keymap 315 if $imp == &lrecord_keymap
316 pstruct Lisp_Keymap 316 pstruct Lisp_Keymap
317 else 317 else
318 if $imp == lrecord_lcrecord_list 318 if $imp == &lrecord_lcrecord_list
319 pstruct lcrecord_list 319 pstruct lcrecord_list
320 else 320 else
321 if $imp == lrecord_lstream 321 if $imp == &lrecord_lstream
322 pstruct lstream 322 pstruct lstream
323 else 323 else
324 if $imp == lrecord_marker 324 if $imp == &lrecord_marker
325 pstruct Lisp_Marker 325 pstruct Lisp_Marker
326 else 326 else
327 if $imp == lrecord_opaque 327 if $imp == &lrecord_opaque
328 pstruct Lisp_Opaque 328 pstruct Lisp_Opaque
329 else 329 else
330 if $imp == lrecord_opaque_list 330 if $imp == &lrecord_opaque_list
331 pstruct Lisp_Opaque_List 331 pstruct Lisp_Opaque_List
332 else 332 else
333 if $imp == lrecord_popup_data 333 if $imp == &lrecord_popup_data
334 pstruct popup_data 334 pstruct popup_data
335 else 335 else
336 if $imp == lrecord_process 336 if $imp == &lrecord_process
337 pstruct Lisp_Process 337 pstruct Lisp_Process
338 else 338 else
339 if $imp == lrecord_range_table 339 if $imp == &lrecord_range_table
340 pstruct Lisp_Range_Table 340 pstruct Lisp_Range_Table
341 else 341 else
342 if $imp == lrecord_specifier 342 if $imp == &lrecord_specifier
343 pstruct Lisp_Specifier 343 pstruct Lisp_Specifier
344 else 344 else
345 if $imp == lrecord_subr 345 if $imp == &lrecord_subr
346 pstruct Lisp_Subr 346 pstruct Lisp_Subr
347 else 347 else
348 if $imp == lrecord_symbol_value_buffer_local 348 if $imp == &lrecord_symbol_value_buffer_local
349 pstruct symbol_value_buffer_local 349 pstruct symbol_value_buffer_local
350 else 350 else
351 if $imp == lrecord_symbol_value_forward 351 if $imp == &lrecord_symbol_value_forward
352 pstruct symbol_value_forward 352 pstruct symbol_value_forward
353 else 353 else
354 if $imp == lrecord_symbol_value_lisp_magic 354 if $imp == &lrecord_symbol_value_lisp_magic
355 pstruct symbol_value_lisp_magic 355 pstruct symbol_value_lisp_magic
356 else 356 else
357 if $imp == lrecord_symbol_value_varalias 357 if $imp == &lrecord_symbol_value_varalias
358 pstruct symbol_value_varalias 358 pstruct symbol_value_varalias
359 else 359 else
360 if $imp == lrecord_toolbar_button 360 if $imp == &lrecord_toolbar_button
361 pstruct toolbar_button 361 pstruct toolbar_button
362 else 362 else
363 if $imp == lrecord_tooltalk_message 363 if $imp == &lrecord_tooltalk_message
364 pstruct Lisp_Tooltalk_Message 364 pstruct Lisp_Tooltalk_Message
365 else 365 else
366 if $imp == lrecord_tooltalk_pattern 366 if $imp == &lrecord_tooltalk_pattern
367 pstruct Lisp_Tooltalk_Pattern 367 pstruct Lisp_Tooltalk_Pattern
368 else 368 else
369 if $imp == lrecord_weak_list 369 if $imp == &lrecord_weak_list
370 pstruct weak_list 370 pstruct weak_list
371 else 371 else
372 if $imp == lrecord_window 372 if $imp == &lrecord_window
373 pstruct window 373 pstruct window
374 else 374 else
375 if $imp == lrecord_window_configuration 375 if $imp == &lrecord_window_configuration
376 pstruct window_config 376 pstruct window_config
377 else 377 else
378 echo Unknown Lisp Object type\n 378 echo Unknown Lisp Object type\n
379 print $arg0 379 print $arg0
380 # Barf, gag, retch 380 # Barf, gag, retch