seln_demo.c

操作系统SunOS 4.1.3版本的源码

#ifndef lint
static char sccsid[] = "@(#)seln_demo.c 1.1 92/07/30 Copyr 1986 Sun Micro";
#endif
/*
 * seln_demo.c
 *
 * demonstrate how to use the selection service library
 */

#include <stdio.h>
#include <suntool/sunview.h>
#include <suntool/panel.h>
#include <suntool/seln.h>

static Frame frame;
static Panel panel;

int err = 0;

char *malloc();

/*
 * definitions for the panel
 */

static Panel_item text_item, type_item, source_item, mesg_item;
static Panel_item set_item[3], get_item[3];
static void set_button_proc(), get_button_proc(), change_label_proc();

#define PRIMARY_CHOICE		0	/* get/set the primary selection */
#define SECONDARY_CHOICE	1	/* get/set the secondary selection */
#define SHELF_CHOICE		2	/* get/set the shelf */

#define ITEM_CHOICE		0	/* use the text item literally as the
					   selection */
#define FROMFILE_CHOICE		1	/* use the text item as the name of a
					   file which contains the selection */

int selection_type = PRIMARY_CHOICE;
int selection_source = ITEM_CHOICE;

char *text_labels[3][2] = {
	{
		"New primary selection:",
		"File containing new primary selection:"
	},
	{
		"New secondary selection:",
		"File containing new secondary selection:"
	},
	{
		"New shelf:",
		"File containing new shelf:"
	}
};

char *mesg_labels[3][2] = {
	{
		"Type in a selection and hit the Set Selection button",
		"Type in a filename and hit the Set Selection button"
	},
	{
		"Type in a selection and hit the Set Secondary button",
		"Type in a filename and hit the Set Secondary button"
	},
	{
		"Type in a selection and hit the Set Shelf button",
		"Type in a filename and hit the Set Shelf button"
	}
};

Seln_rank type_to_rank[3] = { SELN_PRIMARY, SELN_SECONDARY, SELN_SHELF };

/*
 * definitions for selection service handlers
 */

static Seln_client s_client;	/* selection client handle */

#define FIRST_BUFFER	0
#define NOT_FIRST_BUFFER	1

char *selection_bufs[3];	/* contents of each of the three selections;
				   they are set only when the user hits a set
				   or a get button */

int func_key_proc();
Seln_result reply_proc();
Seln_result read_proc();

/********************************************************************/
/* main routine                                                     */
/********************************************************************/

main(argc, argv)
int argc;
char **argv;
{
	/* create frame first */

	frame = window_create(NULL, FRAME, 
			FRAME_ARGS,	argc, argv, 
			WIN_ERROR_MSG, "Cannot create frame", 
			FRAME_LABEL, "seln_demo", 
			0);

	/* create selection service client before creating subwindows
	   (since the panel package also uses selections) */

	s_client = seln_create(func_key_proc, reply_proc, (char *)0);
	if (s_client == NULL) {
		fprintf(stderr, "seln_demo: seln_create failed!\n");
		exit(1);
	}

	/* now create the panel */

	panel = window_create(frame, PANEL, 
			WIN_ERROR_MSG, "Cannot create panel", 
			0);

	init_panel(panel);

	window_fit_height(panel);

	window_fit_height(frame);

	window_main_loop(frame);

	/* yield any selections we have and terminate connection with the
	   selection service */

	seln_destroy(s_client);

	exit(0);
	/* NOTREACHED */

}

/***********************************************************************/
/* routines involving setting a selection                              */
/***********************************************************************/

/*
 * acquire the selection type specified by the current panel choices;
 * this will enable requests from other clients which want to get
 * the selection's value, which is specified by the source_item and text_item
 */

static void
set_button_proc(/* args ignored */)
{
	Seln_rank ret;
	char *value = (char *)panel_get_value(text_item);

	if (selection_source == FROMFILE_CHOICE) {
		/* set the selection from a file; the selection service will
		   actually acquire the selection and handle all requests */

		if (seln_hold_file(type_to_rank[selection_type], value)
							!= SELN_SUCCESS) {
			panel_set(mesg_item, PANEL_LABEL_STRING, 
				"Could not set selection from named file!", 0);
			err++;
		} else if (err) {
			panel_set(mesg_item, PANEL_LABEL_STRING, 
				mesg_labels[selection_type][selection_source],0);
			err = 0;
		}
		return;
	}
	ret = seln_acquire(s_client, type_to_rank[selection_type]);

	/* check that the selection rank we received is the one we asked for */

	if (ret != type_to_rank[selection_type]) {
		panel_set(mesg_item, PANEL_LABEL_STRING, 
				"Could not acquire selection!", 0);
		err++;
		return;
	}

	set_selection_value(selection_type, selection_source, value);
}

/*
 * copy the new value of the appropriate selection into its
 * buffer so that if the user changes the text item and/or the current
 * selection type, the selection won't mysteriously change
 */

set_selection_value(type, source, value)
int type, source;
char *value;
{
	if (selection_bufs[type] != NULL)
		free(selection_bufs[type]);
	selection_bufs[type] = malloc(strlen(value) + 1);
	if (selection_bufs[type] == NULL) {
		panel_set(mesg_item, PANEL_LABEL_STRING, "Out of memory!", 0);
		err++;
	} else {
		strcpy(selection_bufs[type], value);
		if (err) {
			panel_set(mesg_item, PANEL_LABEL_STRING,
						mesg_labels[type][source], 0);
			err = 0;
		}
	}
}

/*
 * func_key_proc
 *
 * called by the selection service library whenever a change in the state of
 * the function keys requires an action (for instance, put the primary
 * selection on the shelf if the user hit PUT)
 */

func_key_proc(client_data, args)
char *client_data;
Seln_function_buffer *args;
{
	Seln_holder *holder;

	/* use seln_figure_response to decide what action to take */

	switch (seln_figure_response(args, &holder)) {
	case SELN_IGNORE:
		/* don't do anything */
		break;
	case SELN_REQUEST:
		/* expected to make a request */
		break;
	case SELN_SHELVE:
		/* put the primary selection (which we should have) on the
		   shelf */
		if (seln_acquire(s_client, SELN_SHELF) != SELN_SHELF) {
			panel_set(mesg_item, PANEL_LABEL_STRING, 
					"Could not acquire shelf!", 0);
			err++;
		} else {
			shelve_primary_selection();
		}
		break;
	case SELN_FIND:
		/* do a search */
		break;
	case SELN_DELETE:
		/* do a delete */
		break;
	}
}

shelve_primary_selection()
{
	char *value = selection_bufs[PRIMARY_CHOICE];

	if (selection_bufs[SHELF_CHOICE] != NULL)
		free(selection_bufs[SHELF_CHOICE]);
	selection_bufs[SHELF_CHOICE] = malloc(strlen(value)+1);
	if (selection_bufs[SHELF_CHOICE] == NULL) {
		panel_set(mesg_item, PANEL_LABEL_STRING, "Out of memory!", 0);
		err++;
	} else {
		strcpy(selection_bufs[SHELF_CHOICE], value);
	}
}

/*
 * reply_proc
 *
 * called by the selection service library whenever a request comes from
 * another client for one of the selections we currently hold
 */

Seln_result
reply_proc(item, context, length)
Seln_attribute item;
Seln_replier_data *context;
int length;
{
	int size, needed;
	char *seln, *destp;

	/* determine the rank of the request and choose the 
	   appropriate selection */

	switch (context->rank) {
	case SELN_PRIMARY:
		seln = selection_bufs[PRIMARY_CHOICE];
		break;
	case SELN_SECONDARY:
		seln = selection_bufs[SECONDARY_CHOICE];
		break;
	case SELN_SHELF:
		seln = selection_bufs[SHELF_CHOICE];
		break;
	default:
		seln = NULL;
	}

	/* process the request */

	switch (item) {
	case SELN_REQ_CONTENTS_ASCII:
		/* send the selection */

		/* if context->context == NULL then we must start sending
		   this selection; if it is not NULL, then the selection
		   was too large to fit in one buffer and this call must
		   send the next buffer; a pointer to the location to start
		   sending from was stored in context->context on the
		   previous call */

		if (context->context == NULL) {
			if (seln == NULL)
				return(SELN_DIDNT_HAVE);
			context->context = seln;
		}
		size = strlen(context->context);
		destp = (char *)context->response_pointer;