Mercurial > hg > xemacs-beta

comparison src/print.c @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents e45d5e7c476e
children d44af0c54775
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
993 (struct lcrecord_header *) XPNTR (obj); 993 (struct lcrecord_header *) XPNTR (obj);
994 char buf[200]; 994 char buf[200];
995 995
996 if (print_readably) 996 if (print_readably)
997 error ("printing unreadable object #<%s 0x%x>", 997 error ("printing unreadable object #<%s 0x%x>",
998 header->lheader.implementation->name, header->uid); 998 LHEADER_IMPLEMENTATION (&header->lheader)->name,
999 999 header->uid);
1000 sprintf (buf, "#<%s 0x%x>", header->lheader.implementation->name, 1000
1001 sprintf (buf, "#<%s 0x%x>",
1002 LHEADER_IMPLEMENTATION (&header->lheader)->name,
1001 header->uid); 1003 header->uid);
1002 write_c_string (buf, printcharfun); 1004 write_c_string (buf, printcharfun);
1003 } 1005 }
1004 1006
1005 void 1007 void
1006 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1008 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1007 int escapeflag) 1009 int escapeflag)
1008 { 1010 {
1009 char buf[200]; 1011 char buf[200];
1010 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%p>", 1012 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%p>",
1011 XRECORD_LHEADER (obj)->implementation->name, 1013 XRECORD_LHEADER_IMPLEMENTATION (obj)->name,
1012 (void *) XPNTR (obj)); 1014 (void *) XPNTR (obj));
1013 write_c_string (buf, printcharfun); 1015 write_c_string (buf, printcharfun);
1014 } 1016 }
1015 1017
1016 void 1018 void
1189 } 1191 }
1190 } 1192 }
1191 #endif 1193 #endif
1192 1194
1193 GCPRO2 (obj, printcharfun); 1195 GCPRO2 (obj, printcharfun);
1194 if (lheader->implementation->printer) 1196 if (LHEADER_IMPLEMENTATION (lheader)->printer)
1195 ((lheader->implementation->printer) 1197 ((LHEADER_IMPLEMENTATION (lheader)->printer)
1196 (obj, printcharfun, escapeflag)); 1198 (obj, printcharfun, escapeflag));
1197 else 1199 else
1198 default_object_printer (obj, printcharfun, escapeflag); 1200 default_object_printer (obj, printcharfun, escapeflag);
1199 UNGCPRO; 1201 UNGCPRO;
1200 break; 1202 break;
1544 void debug_print (Lisp_Object debug_print_obj); 1546 void debug_print (Lisp_Object debug_print_obj);
1545 void 1547 void
1546 debug_print (Lisp_Object debug_print_obj) 1548 debug_print (Lisp_Object debug_print_obj)
1547 { 1549 {
1548 debug_print_no_newline (debug_print_obj); 1550 debug_print_no_newline (debug_print_obj);
1549 stderr_out ("\n"); 1551 stderr_out ("\r\n");
1550 fflush (stderr); 1552 fflush (stderr);
1551 } 1553 }
1552 1554
1553 /* Debugging kludge -- unbuffered */ 1555 /* Debugging kludge -- unbuffered */
1554 void 1556 void