Mercurial > hg > xemacs-beta

comparison src/print.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents d30cd499e445
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
1447 write_c_string (printcharfun, "\""); 1447 write_c_string (printcharfun, "\"");
1448 } 1448 }
1449 UNGCPRO; 1449 UNGCPRO;
1450 } 1450 }
1451 1451
1452 static void 1452 void
1453 default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1453 external_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1454 int UNUSED (escapeflag)) 1454 int UNUSED (escapeflag))
1455 { 1455 {
1456 struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj); 1456 struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj);
1457 1457
1458 if (print_readably) 1458 if (print_readably)
1459 printing_unreadable_object 1459 printing_unreadable_object
1472 LHEADER_IMPLEMENTATION (&header->lheader)->name, 1472 LHEADER_IMPLEMENTATION (&header->lheader)->name,
1473 #endif /* not MC_ALLOC */ 1473 #endif /* not MC_ALLOC */
1474 header->uid); 1474 header->uid);
1475 } 1475 }
1476 1476
1477 void 1477 static void
1478 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1478 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1479 int UNUSED (escapeflag)) 1479 int UNUSED (escapeflag))
1480 { 1480 {
1481 if (print_readably)
1482 printing_unreadable_object
1483 ("#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>",
1484 XRECORD_LHEADER_IMPLEMENTATION (obj)->name,
1485 (unsigned long) XPNTR (obj))
1486
1481 write_fmt_string (printcharfun, 1487 write_fmt_string (printcharfun,
1482 "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>", 1488 "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>",
1483 XRECORD_LHEADER_IMPLEMENTATION (obj)->name, 1489 XRECORD_LHEADER_IMPLEMENTATION (obj)->name,
1484 (unsigned long) XPNTR (obj)); 1490 (unsigned long) XPNTR (obj));
1485 } 1491 }
1747 1753
1748 if (LHEADER_IMPLEMENTATION (lheader)->printer) 1754 if (LHEADER_IMPLEMENTATION (lheader)->printer)
1749 ((LHEADER_IMPLEMENTATION (lheader)->printer) 1755 ((LHEADER_IMPLEMENTATION (lheader)->printer)
1750 (obj, printcharfun, escapeflag)); 1756 (obj, printcharfun, escapeflag));
1751 else 1757 else
1752 default_object_printer (obj, printcharfun, escapeflag); 1758 internal_object_printer (obj, printcharfun, escapeflag);
1753 break; 1759 break;
1754 } 1760 }
1755 1761
1756 default: 1762 default:
1757 { 1763 {