Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 12:bcdc7deadc19 r19-15b7

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