zdefout.vtc Source File

00001 /* -*- C -*-
00002  * zdefout.vtc: default class/instance/destination maintenance
00003  * $Id$
00004  *
00005  * These functions maintain a default class/instance for sending and a
00006  * default destination for repeated zephyrgrams.
00007  */
00008 
00009 func get_default_recip(rmt)
00010 {
00011   return rmt->default_recip;
00012 }
00013 
00014 func set_default_recip(rmt, default) [old_status]
00015 {
00016   rmt->default_recip = default;
00017   old_status = rmt->status;
00018   rmt->status = bprintf("(%s)", default);
00019   if (cur_win && change_status(cur_win, old_status, rmt->status) < 0)
00020     add_status(cur_win, rmt->status);
00021 
00022 }
00023 
00024 func get_default_instance(rmt, class)
00025 {
00026   return find_tree(rmt->class_defaults, class);
00027 }
00028 
00029 func set_default_instance(rmt, class, instance)
00030 {
00031   insert_tree(rmt->class_defaults, class, instance);
00032 }
00033 
00034 /* If zout has a class, either set the default instance to zout's, if present,
00035  * or set zout's instance to the default if not.  Returns 1 if a default
00036  * instance was used, 0 otherwise. */
00037 func use_default_instance(rmt, zout)
00038 {
00039   if (zout->class && *zout->class && zout->instance)
00040     set_default_instance(rmt, zout->class, zout->instance);
00041   else if (zout->class && *zout->class)
00042   {
00043     zout->instance = get_default_instance(rmt, zout->class);
00044     return (zout->instance && *zout->instance);
00045   }
00046   return 0;
00047 }