Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 771:943eaba38521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents fdefd0186b75
children e38acbeb1cae
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
501 default: return Qnil; 501 default: return Qnil;
502 } 502 }
503 } 503 }
504 504
505 static Lisp_Object 505 static Lisp_Object
506 tt_build_string (char *s) 506 tt_build_c_string (char *s)
507 { 507 {
508 return build_string (s ? s : ""); 508 return build_string (s ? s : "");
509 } 509 }
510 510
511 static Lisp_Object 511 static Lisp_Object
598 598
599 else if (EQ (attribute, Qtt_arg_mode)) 599 else if (EQ (attribute, Qtt_arg_mode))
600 return tt_mode_symbol (tt_message_arg_mode (m, n)); 600 return tt_mode_symbol (tt_message_arg_mode (m, n));
601 601
602 else if (EQ (attribute, Qtt_arg_type)) 602 else if (EQ (attribute, Qtt_arg_type))
603 return tt_build_string (tt_message_arg_type (m, n)); 603 return tt_build_c_string (tt_message_arg_type (m, n));
604 604
605 else if (EQ (attribute, Qtt_arg_val)) 605 else if (EQ (attribute, Qtt_arg_val))
606 return tt_message_arg_bval_vector (m, n); 606 return tt_message_arg_bval_vector (m, n);
607 607
608 else if (EQ (attribute, Qtt_args_count)) 608 else if (EQ (attribute, Qtt_args_count))
616 616
617 else if (EQ (attribute, Qtt_disposition)) 617 else if (EQ (attribute, Qtt_disposition))
618 return make_int (tt_message_disposition (m)); 618 return make_int (tt_message_disposition (m));
619 619
620 else if (EQ (attribute, Qtt_file)) 620 else if (EQ (attribute, Qtt_file))
621 return tt_build_string (tt_message_file (m)); 621 return tt_build_c_string (tt_message_file (m));
622 622
623 else if (EQ (attribute, Qtt_gid)) 623 else if (EQ (attribute, Qtt_gid))
624 return make_int (tt_message_gid (m)); 624 return make_int (tt_message_gid (m));
625 625
626 else if (EQ (attribute, Qtt_handler)) 626 else if (EQ (attribute, Qtt_handler))
627 return tt_build_string (tt_message_handler (m)); 627 return tt_build_c_string (tt_message_handler (m));
628 628
629 else if (EQ (attribute, Qtt_handler_ptype)) 629 else if (EQ (attribute, Qtt_handler_ptype))
630 return tt_build_string (tt_message_handler_ptype (m)); 630 return tt_build_c_string (tt_message_handler_ptype (m));
631 631
632 else if (EQ (attribute, Qtt_object)) 632 else if (EQ (attribute, Qtt_object))
633 return tt_build_string (tt_message_object (m)); 633 return tt_build_c_string (tt_message_object (m));
634 634
635 else if (EQ (attribute, Qtt_op)) 635 else if (EQ (attribute, Qtt_op))
636 return tt_build_string (tt_message_op (m)); 636 return tt_build_c_string (tt_message_op (m));
637 637
638 else if (EQ (attribute, Qtt_opnum)) 638 else if (EQ (attribute, Qtt_opnum))
639 return tt_opnum_string (tt_message_opnum (m)); 639 return tt_opnum_string (tt_message_opnum (m));
640 640
641 else if (EQ (attribute, Qtt_otype)) 641 else if (EQ (attribute, Qtt_otype))
642 return tt_build_string (tt_message_otype (m)); 642 return tt_build_c_string (tt_message_otype (m));
643 643
644 else if (EQ (attribute, Qtt_scope)) 644 else if (EQ (attribute, Qtt_scope))
645 return tt_scope_symbol (tt_message_scope (m)); 645 return tt_scope_symbol (tt_message_scope (m));
646 646
647 else if (EQ (attribute, Qtt_sender)) 647 else if (EQ (attribute, Qtt_sender))
648 return tt_build_string (tt_message_sender (m)); 648 return tt_build_c_string (tt_message_sender (m));
649 649
650 else if (EQ (attribute, Qtt_sender_ptype)) 650 else if (EQ (attribute, Qtt_sender_ptype))
651 return tt_build_string (tt_message_sender_ptype (m)); 651 return tt_build_c_string (tt_message_sender_ptype (m));
652 652
653 else if (EQ (attribute, Qtt_session)) 653 else if (EQ (attribute, Qtt_session))
654 return tt_build_string (tt_message_session (m)); 654 return tt_build_c_string (tt_message_session (m));
655 655
656 else if (EQ (attribute, Qtt_state)) 656 else if (EQ (attribute, Qtt_state))
657 return tt_state_symbol (tt_message_state (m)); 657 return tt_state_symbol (tt_message_state (m));
658 658
659 else if (EQ (attribute, Qtt_status)) 659 else if (EQ (attribute, Qtt_status))
660 return make_int (tt_message_status (m)); 660 return make_int (tt_message_status (m));
661 661
662 else if (EQ (attribute, Qtt_status_string)) 662 else if (EQ (attribute, Qtt_status_string))
663 return tt_build_string (tt_message_status_string (m)); 663 return tt_build_c_string (tt_message_status_string (m));
664 664
665 else if (EQ (attribute, Qtt_uid)) 665 else if (EQ (attribute, Qtt_uid))
666 return make_int (tt_message_uid (m)); 666 return make_int (tt_message_uid (m));
667 667
668 else if (EQ (attribute, Qtt_callback)) 668 else if (EQ (attribute, Qtt_callback))
1410 List of functions to be applied to each unprocessed ToolTalk message. 1410 List of functions to be applied to each unprocessed ToolTalk message.
1411 Unprocessed messages are messages that didn't match any patterns. 1411 Unprocessed messages are messages that didn't match any patterns.
1412 */ ); 1412 */ );
1413 Vtooltalk_unprocessed_message_hook = Qnil; 1413 Vtooltalk_unprocessed_message_hook = Qnil;
1414 1414
1415 Tooltalk_Message_plist_str = build_string ("Tooltalk Message plist"); 1415 Tooltalk_Message_plist_str = build_msg_string ("Tooltalk Message plist");
1416 Tooltalk_Pattern_plist_str = build_string ("Tooltalk Pattern p plist"); 1416 Tooltalk_Pattern_plist_str = build_msg_string ("Tooltalk Pattern plist");
1417 1417
1418 staticpro(&Tooltalk_Message_plist_str); 1418 staticpro(&Tooltalk_Message_plist_str);
1419 staticpro(&Tooltalk_Pattern_plist_str); 1419 staticpro(&Tooltalk_Pattern_plist_str);
1420 1420
1421 #define MAKE_CONSTANT(name) do { \ 1421 #define MAKE_CONSTANT(name) do { \