Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children fe104dbd9147
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
416 static Lisp_Object 416 static Lisp_Object
417 tt_mode_symbol (Tt_mode n) 417 tt_mode_symbol (Tt_mode n)
418 { 418 {
419 switch (n) 419 switch (n)
420 { 420 {
421 case TT_MODE_UNDEFINED: return Q_TT_MODE_UNDEFINED; 421 case TT_MODE_UNDEFINED: return Q_TT_MODE_UNDEFINED;
422 case TT_IN: return Q_TT_IN; 422 case TT_IN: return Q_TT_IN;
423 case TT_OUT: return Q_TT_OUT; 423 case TT_OUT: return Q_TT_OUT;
424 case TT_INOUT: return Q_TT_INOUT; 424 case TT_INOUT: return Q_TT_INOUT;
425 case TT_MODE_LAST: return Q_TT_MODE_LAST; 425 case TT_MODE_LAST: return Q_TT_MODE_LAST;
426 default: return Qnil; 426 default: return Qnil;
427 } 427 }
428 } 428 }
429 429
430 static Lisp_Object 430 static Lisp_Object
431 tt_scope_symbol (Tt_scope n) 431 tt_scope_symbol (Tt_scope n)
432 { 432 {
433 switch (n) 433 switch (n)
434 { 434 {
435 case TT_SCOPE_NONE: return Q_TT_SCOPE_NONE; 435 case TT_SCOPE_NONE: return Q_TT_SCOPE_NONE;
436 case TT_SESSION: return Q_TT_SESSION; 436 case TT_SESSION: return Q_TT_SESSION;
437 case TT_FILE: return Q_TT_FILE; 437 case TT_FILE: return Q_TT_FILE;
438 case TT_BOTH: return Q_TT_BOTH; 438 case TT_BOTH: return Q_TT_BOTH;
439 case TT_FILE_IN_SESSION: return Q_TT_FILE_IN_SESSION; 439 case TT_FILE_IN_SESSION: return Q_TT_FILE_IN_SESSION;
440 default: return Qnil; 440 default: return Qnil;
441 } 441 }
442 } 442 }
443 443
444 444
445 static Lisp_Object 445 static Lisp_Object
446 tt_class_symbol (Tt_class n) 446 tt_class_symbol (Tt_class n)
447 { 447 {
448 switch (n) 448 switch (n)
449 { 449 {
450 case TT_CLASS_UNDEFINED: return Q_TT_CLASS_UNDEFINED; 450 case TT_CLASS_UNDEFINED: return Q_TT_CLASS_UNDEFINED;
451 case TT_NOTICE: return Q_TT_NOTICE; 451 case TT_NOTICE: return Q_TT_NOTICE;
452 case TT_REQUEST: return Q_TT_REQUEST; 452 case TT_REQUEST: return Q_TT_REQUEST;
453 case TT_CLASS_LAST: return Q_TT_CLASS_LAST; 453 case TT_CLASS_LAST: return Q_TT_CLASS_LAST;
454 default: return Qnil; 454 default: return Qnil;
455 } 455 }
456 } 456 }
457 457
458 /* 458 /*
459 * This is not being used. Is that a mistake or is this function 459 * This is not being used. Is that a mistake or is this function
463 static Lisp_Object 463 static Lisp_Object
464 tt_category_symbol (Tt_category n) 464 tt_category_symbol (Tt_category n)
465 { 465 {
466 switch (n) 466 switch (n)
467 { 467 {
468 case TT_CATEGORY_UNDEFINED: return Q_TT_CATEGORY_UNDEFINED; 468 case TT_CATEGORY_UNDEFINED: return Q_TT_CATEGORY_UNDEFINED;
469 case TT_OBSERVE: return Q_TT_OBSERVE; 469 case TT_OBSERVE: return Q_TT_OBSERVE;
470 case TT_HANDLE: return Q_TT_HANDLE; 470 case TT_HANDLE: return Q_TT_HANDLE;
471 case TT_CATEGORY_LAST: return Q_TT_CATEGORY_LAST; 471 case TT_CATEGORY_LAST: return Q_TT_CATEGORY_LAST;
472 default: return Qnil; 472 default: return Qnil;
473 } 473 }
474 } 474 }
475 #endif /* 0 */ 475 #endif /* 0 */
476 476
477 static Lisp_Object 477 static Lisp_Object
478 tt_address_symbol (Tt_address n) 478 tt_address_symbol (Tt_address n)
479 { 479 {
480 switch (n) 480 switch (n)
481 { 481 {
482 case TT_PROCEDURE: return Q_TT_PROCEDURE; 482 case TT_PROCEDURE: return Q_TT_PROCEDURE;
483 case TT_OBJECT: return Q_TT_OBJECT; 483 case TT_OBJECT: return Q_TT_OBJECT;
484 case TT_HANDLER: return Q_TT_HANDLER; 484 case TT_HANDLER: return Q_TT_HANDLER;
485 case TT_OTYPE: return Q_TT_OTYPE; 485 case TT_OTYPE: return Q_TT_OTYPE;
486 case TT_ADDRESS_LAST: return Q_TT_ADDRESS_LAST; 486 case TT_ADDRESS_LAST: return Q_TT_ADDRESS_LAST;
487 default: return Qnil; 487 default: return Qnil;
488 } 488 }
489 } 489 }
490 490
491 static Lisp_Object 491 static Lisp_Object
492 tt_state_symbol (Tt_state n) 492 tt_state_symbol (Tt_state n)
493 { 493 {
494 switch (n) 494 switch (n)
495 { 495 {
496 case TT_CREATED: return Q_TT_CREATED; 496 case TT_CREATED: return Q_TT_CREATED;
497 case TT_SENT: return Q_TT_SENT; 497 case TT_SENT: return Q_TT_SENT;
498 case TT_HANDLED: return Q_TT_HANDLED; 498 case TT_HANDLED: return Q_TT_HANDLED;
499 case TT_FAILED: return Q_TT_FAILED; 499 case TT_FAILED: return Q_TT_FAILED;
500 case TT_QUEUED: return Q_TT_QUEUED; 500 case TT_QUEUED: return Q_TT_QUEUED;
501 case TT_STARTED: return Q_TT_STARTED; 501 case TT_STARTED: return Q_TT_STARTED;
502 case TT_REJECTED: return Q_TT_REJECTED; 502 case TT_REJECTED: return Q_TT_REJECTED;
503 case TT_STATE_LAST: return Q_TT_STATE_LAST; 503 case TT_STATE_LAST: return Q_TT_STATE_LAST;
504 default: return Qnil; 504 default: return Qnil;
505 } 505 }
506 } 506 }
507 507
508 static Lisp_Object 508 static Lisp_Object
509 tt_build_string (char *s) 509 tt_build_string (char *s)