XCTRL_API void set_selection(Display*dpy, char kind, char *sel_buf, Bool utf8)
{
Atom seltype=selarg_to_seltype(dpy,kind);
long sel_len=strlen(sel_buf);
if (seltype == XA_STRING) {
XStoreBuffer(dpy, (char*)sel_buf, (int)sel_len, 0);
} else {
XEvent evt;
Window win = make_selection_window(dpy);
Atom target = utf8 ? XA_UTF8_STRING(dpy) : XA_STRING;
/* FIXME: Should not use CurrentTime per ICCCM section 2.1 */
XSetSelectionOwner(dpy, seltype, win, CurrentTime);
while (1) { /* wait for a SelectionRequest event */
static uint clear = 0;
static uint context = XCLIB_XCIN_NONE;
static ulong sel_pos = 0;
static Window cwin;
static Atom pty;
int finished;
XNextEvent(dpy, &evt);
finished = xcin(dpy, &cwin, evt, &pty, target, (uchar*)sel_buf, sel_len, &sel_pos, &context);
if (evt.type == SelectionClear) { clear = 1; }
if ((context == XCLIB_XCIN_NONE) && clear) { break; }
if (finished) { break; }
}
XDestroyWindow(dpy,win);
}
}
int main (int argc, char *argv[])
{
/* Declare variables */
unsigned char *sel_buf; /* buffer for selection data */
unsigned long sel_len = 0; /* length of sel_buf */
unsigned long sel_all = 0; /* allocated size of sel_buf */
Window win; /* Window */
XEvent evt; /* X Event Structures */
int dloop = 0; /* done loops counter */
pid_t pid; /* child pid if forking */
/* set up option table. I can't figure out a better way than this to
* do it while sticking to pure ANSI C. The option and specifier
* members have a type of volatile char *, so they need to be allocated
* by strdup or malloc, you can't set them to a string constant at
* declare time, this is note pure ANSI C apparently, although it does
* work with gcc
*/
/* loop option entry */
opt_tab[0].option = xcstrdup("-loops");
opt_tab[0].specifier = xcstrdup(".loops");
opt_tab[0].argKind = XrmoptionSepArg;
opt_tab[0].value = (XPointer) NULL;
/* display option entry */
opt_tab[1].option = xcstrdup("-display");
opt_tab[1].specifier = xcstrdup(".display");
opt_tab[1].argKind = XrmoptionSepArg;
opt_tab[1].value = (XPointer) NULL;
/* selection option entry */
opt_tab[2].option = xcstrdup("-selection");
opt_tab[2].specifier = xcstrdup(".selection");
opt_tab[2].argKind = XrmoptionSepArg;
opt_tab[2].value = (XPointer) NULL;
/* filter option entry */
opt_tab[3].option = xcstrdup("-filter");
opt_tab[3].specifier = xcstrdup(".filter");
opt_tab[3].argKind = XrmoptionNoArg;
opt_tab[3].value = (XPointer) xcstrdup(ST);
/* in option entry */
opt_tab[4].option = xcstrdup("-in");
opt_tab[4].specifier = xcstrdup(".direction");
opt_tab[4].argKind = XrmoptionNoArg;
opt_tab[4].value = (XPointer) xcstrdup("I");
/* out option entry */
opt_tab[5].option = xcstrdup("-out");
opt_tab[5].specifier = xcstrdup(".direction");
opt_tab[5].argKind = XrmoptionNoArg;
opt_tab[5].value = (XPointer) xcstrdup("O");
/* version option entry */
opt_tab[6].option = xcstrdup("-version");
opt_tab[6].specifier = xcstrdup(".print");
opt_tab[6].argKind = XrmoptionNoArg;
opt_tab[6].value = (XPointer) xcstrdup("V");
/* help option entry */
opt_tab[7].option = xcstrdup("-help");
opt_tab[7].specifier = xcstrdup(".print");
opt_tab[7].argKind = XrmoptionNoArg;
opt_tab[7].value = (XPointer) xcstrdup("H");
/* silent option entry */
opt_tab[8].option = xcstrdup("-silent");
opt_tab[8].specifier = xcstrdup(".olevel");
opt_tab[8].argKind = XrmoptionNoArg;
opt_tab[8].value = (XPointer) xcstrdup("S");
/* quiet option entry */
opt_tab[9].option = xcstrdup("-quiet");
opt_tab[9].specifier = xcstrdup(".olevel");
opt_tab[9].argKind = XrmoptionNoArg;
opt_tab[9].value = (XPointer) xcstrdup("Q");
/* verbose option entry */
opt_tab[10].option = xcstrdup("-verbose");
opt_tab[10].specifier = xcstrdup(".olevel");
opt_tab[10].argKind = XrmoptionNoArg;
opt_tab[10].value = (XPointer) xcstrdup("V");
/* parse command line options */
doOptMain(argc, argv);
/* Connect to the X server. */
if ( (dpy = XOpenDisplay(sdisp)) )
{
/* successful */
if (fverb == OVERBOSE)
fprintf(stderr, "Connected to X server.\n");
} else
{
/* couldn't connect to X server. Print error and exit */
errxdisplay(sdisp);
}
/* parse selection command line option */
doOptSel();
/* Create a window to trap events */
win = XCreateSimpleWindow(
dpy,
DefaultRootWindow(dpy),
0,
0,
1,
1,
0,
0,
0
);
/* get events about property changes */
XSelectInput(dpy, win, PropertyChangeMask);
if (fdiri)
{
/* in mode */
sel_all = 16; /* Reasonable ballpark figure */
sel_buf = xcmalloc(sel_all * sizeof(char));
/* Put chars into inc from stdin or files until we hit EOF */
do {
if (fil_number == 0)
{
/* read from stdin if no files specified */
fil_handle = stdin;
} else
{
if (
(fil_handle = fopen(
fil_names[fil_current],
"r"
)) == NULL
)
{
errperror(
3,
argv[0],
": ",
fil_names[fil_current]
);
exit(EXIT_FAILURE);
} else
{
/* file opened successfully. Print
* message (verbose mode only).
*/
if (fverb == OVERBOSE)
fprintf(
stderr,
"Reading %s...\n",
fil_names[fil_current]
);
}
}
fil_current++;
while (!feof(fil_handle))
{
/* If sel_buf is full (used elems =
* allocated elems)
*/
if (sel_len == sel_all)
{
/* double the number of
* allocated elements
*/
sel_all *= 2;
sel_buf = (unsigned char *)xcrealloc(
sel_buf,
sel_all * sizeof(char)
);
}
sel_len += fread(
sel_buf + sel_len,
sizeof(char),
sel_all - sel_len,
fil_handle
);
}
} while (fil_current < fil_number);
/* if there are no files being read from (i.e., input
* is from stdin not files, and we are in filter mode,
* spit all the input back out to stdout
*/
if ((fil_number == 0) && ffilt)
fwrite(sel_buf, sizeof(char), sel_len, stdout);
/* take control of the selection so that we receive
* SelectionRequest events from other windows
*/
XSetSelectionOwner(dpy, sseln, win, CurrentTime);
/* fork into the background, exit parent process if we
* are in silent mode
*/
if (fverb == OSILENT)
{
pid = fork();
/* exit the parent process; */
if (pid)
exit(EXIT_SUCCESS);
}
/* print a message saying what we're waiting for */
if (fverb > OSILENT)
{
if (sloop == 1)
fprintf(
stderr,
"Waiting for one selection request.\n"
);
if (sloop < 1)
fprintf(
stderr,
"Waiting for selection requests, Control-C to quit\n"
);
if (sloop > 1)
fprintf(
stderr,
"Waiting for %i selection requests, Control-C to quit\n",
sloop
);
}
/* loop and wait for the expected number of
* SelectionRequest events
*/
while (dloop < sloop || sloop < 1)
{
/* print messages about what we're waiting for
* if not in silent mode
*/
if (fverb > OSILENT)
{
if (sloop > 1)
fprintf(
stderr,
" Waiting for selection request %i of %i.\n",
dloop + 1,
sloop
);
if (sloop == 1)
fprintf(
stderr,
" Waiting for a selection request.\n"
);
if (sloop < 1)
fprintf(
stderr,
" Waiting for selection request number %i\n",
dloop + 1
);
}
/* wait for a SelectionRequest event */
while (1)
{
XNextEvent(dpy, &evt);
/* request for selection, process
* with xcin()
*/
if (evt.type == SelectionRequest)
break;
/* lost ownership of selection, exit */
if (evt.type == SelectionClear)
exit(EXIT_SUCCESS);
}
/* recieved request, send response with xcin().
* xcin() will return a true value if it
* received a SelectionClear, in which case
* xclip should exit
*/
if (xcin(dpy, evt, sel_buf, sel_len))
exit(EXIT_SUCCESS);
dloop++; /* increment loop counter */
}
} else
{
/* out mode - get selection, print it, free the memory */
xcout(dpy, win, sseln, &sel_buf, &sel_len);
if (sel_len)
{
/* only print the buffer out, and free it, if it's not
* empty
*/
fwrite(sel_buf, sizeof(char), sel_len, stdout);
free(sel_buf);
}
}
/* Disconnect from the X server */
XCloseDisplay(dpy);
/* exit */
return(EXIT_SUCCESS);
}
int main (int argc, char *argv[])
{
/* Declare variables */
char *seltxt; /* selection text string */
unsigned long stelems = 0; /* number of used elements in seltxt */
unsigned long stalloc = 0; /* size of seltxt */
Window win; /* Window */
XEvent evt; /* X Event Structures */
int dloop = 0; /* done loops counter */
pid_t pid; /* child pid if forking */
/* parse command line options */
doOptMain(argc, argv);
/* Connect to the X server. */
if ( (dpy = XOpenDisplay(sdisp)) )
{
/* successful */
if (fverb == OVERBOSE)
fprintf(stderr, "Connected to X server.\n");
} else
{
/* couldn't connect to X server. Print error and exit */
errxdisplay(sdisp);
}
/* parse selection command line option */
doOptSel(argc, argv);
/* Create a window to trap events */
win = XCreateSimpleWindow(
dpy,
DefaultRootWindow(dpy),
0,
0,
1,
1,
0,
0,
0
);
/* get events about property changes */
XSelectInput(dpy, win, PropertyChangeMask);
if (fdiri)
{
/* in mode */
stalloc = 16; /* Reasonable ballpark figure */
seltxt = xcmalloc(stalloc);
/* Put chars into inc from stdin or files until we hit EOF */
do {
if (fil_number == 0)
{
/* read from stdin if no files specified */
fil_handle = stdin;
} else
{
/* open the current file for reading */
if (
(fil_handle = fopen(
fil_names[fil_current],
"r"
)) == NULL
)
{
errperror(
argv[0],
": ",
fil_names[fil_current]
);
exit(EXIT_FAILURE);
} else
{
/* file opened successfully. Print
* message (verbose mode only).
*/
if (fverb == OVERBOSE)
fprintf(
stderr,
"Reading %s...\n",
fil_names[fil_current]
);
}
}
fil_current++;
while (!feof(fil_handle))
{
int n = 0;
/* If in is full (used elems =
* allocated elems)
*/
if (stelems == stalloc)
{
/* double the number of
* allocated elements
*/
stalloc *= 2 + 1;
seltxt = (char *)xcrealloc(
seltxt,
stalloc * sizeof(char)
);
}
n = fread(
seltxt + stelems,
1,
stalloc - stelems,
fil_handle
);
stelems += n;
seltxt[stelems] = '\0';
}
} while (fil_current < fil_number);
/* if there are no files being read from (i.e., input
* is from stdin not files, and we are in filter mode,
* spit all the input back out to stdout
*/
if ((fil_number == 0) && ffilt)
printf(seltxt);
/* take control of the selection so that we receive
* SelectionRequest events from other windows
*/
XSetSelectionOwner(dpy, sseln, win, CurrentTime);
/* fork into the background, exit parent process if we
* are in silent mode
*/
if (fverb == OSILENT)
{
pid = fork();
/* exit the parent process; */
if (pid)
exit(EXIT_SUCCESS);
}
/* print a message saying what we're waiting for */
if (fverb > OSILENT)
{
if (sloop == 1)
fprintf(
stderr,
"Waiting for one selection request.\n"
);
if (sloop < 1)
fprintf(
stderr,
"Waiting for selection requests, Control-C to quit\n"
);
if (sloop > 1)
fprintf(
stderr,
"Waiting for %i selection requests, Control-C to quit\n",
sloop
);
}
/* loop and wait for the expected number of
* SelectionRequest events
*/
while (dloop < sloop || sloop < 1)
{
/* print messages about what we're waiting for
* if not in silent mode
*/
if (fverb > OSILENT)
{
if (sloop > 1)
fprintf(
stderr,
" Waiting for selection request %i of %i.\n",
dloop + 1,
sloop
);
if (sloop == 1)
fprintf(
stderr,
" Waiting for a selection request.\n"
);
if (sloop < 1)
fprintf(
stderr,
" Waiting for selection request number %i\n",
dloop + 1
);
}
/* wait for a SelectionRequest event */
while (1)
{
XNextEvent(dpy, &evt);
/* request for selection, process
* with xcin()
*/
if (evt.type == SelectionRequest)
break;
/* lost ownership of selection, exit */
if (evt.type == SelectionClear)
exit(EXIT_SUCCESS);
}
/* recieved request, send response with xcin().
* xcin() will return a true value if it
* received a SelectionClear, in which case
* xclip should exit
*/
if (xcin(dpy, win, evt, seltxt))
exit(EXIT_SUCCESS);
dloop++; /* increment loop counter */
}
} else
{
/* out mode - get selection, print it, free the memory */
seltxt = xcout(dpy, win, sseln);
printf(seltxt);
free(seltxt);
}
/* Disconnect from the X server */
XCloseDisplay(dpy);
/* exit */
return(EXIT_SUCCESS);
}
static int
doIn(Window win, const char *progname)
{
unsigned char *sel_buf; /* buffer for selection data */
unsigned long sel_len = 0; /* length of sel_buf */
unsigned long sel_all = 0; /* allocated size of sel_buf */
XEvent evt; /* X Event Structures */
int dloop = 0; /* done loops counter */
/* in mode */
sel_all = 16; /* Reasonable ballpark figure */
sel_buf = xcmalloc(sel_all * sizeof(char));
/* Put chars into inc from stdin or files until we hit EOF */
do {
if (fil_number == 0) {
/* read from stdin if no files specified */
fil_handle = stdin;
}
else {
if ((fil_handle = fopen(fil_names[fil_current], "r")) == NULL) {
errperror(3, progname, ": ", fil_names[fil_current]
);
return EXIT_FAILURE;
}
else {
/* file opened successfully. Print
* message (verbose mode only).
*/
if (fverb == OVERBOSE)
fprintf(stderr, "Reading %s...\n", fil_names[fil_current]
);
}
}
fil_current++;
while (!feof(fil_handle)) {
/* If sel_buf is full (used elems =
* allocated elems)
*/
if (sel_len == sel_all) {
/* double the number of
* allocated elements
*/
sel_all *= 2;
sel_buf = (unsigned char *) xcrealloc(sel_buf, sel_all * sizeof(char)
);
}
sel_len += fread(sel_buf + sel_len, sizeof(char), sel_all - sel_len, fil_handle);
}
} while (fil_current < fil_number);
/* if there are no files being read from (i.e., input
* is from stdin not files, and we are in filter mode,
* spit all the input back out to stdout
*/
if ((fil_number == 0) && ffilt) {
fwrite(sel_buf, sizeof(char), sel_len, stdout);
fclose(stdout);
}
/* Handle cut buffer if needed */
if (sseln == XA_STRING) {
XStoreBuffer(dpy, (char *) sel_buf, (int) sel_len, 0);
return EXIT_SUCCESS;
}
/* take control of the selection so that we receive
* SelectionRequest events from other windows
*/
/* FIXME: Should not use CurrentTime, according to ICCCM section 2.1 */
XSetSelectionOwner(dpy, sseln, win, CurrentTime);
/* fork into the background, exit parent process if we
* are in silent mode
*/
if (fverb == OSILENT) {
pid_t pid;
pid = fork();
/* exit the parent process; */
if (pid)
exit(EXIT_SUCCESS);
}
/* print a message saying what we're waiting for */
if (fverb > OSILENT) {
if (sloop == 1)
fprintf(stderr, "Waiting for one selection request.\n");
if (sloop < 1)
fprintf(stderr, "Waiting for selection requests, Control-C to quit\n");
if (sloop > 1)
fprintf(stderr, "Waiting for %i selection requests, Control-C to quit\n", sloop);
}
/* Avoid making the current directory in use, in case it will need to be umounted */
chdir("/");
/* loop and wait for the expected number of
* SelectionRequest events
*/
while (dloop < sloop || sloop < 1) {
/* print messages about what we're waiting for
* if not in silent mode
*/
if (fverb > OSILENT) {
if (sloop > 1)
fprintf(stderr, " Waiting for selection request %i of %i.\n", dloop + 1, sloop);
if (sloop == 1)
fprintf(stderr, " Waiting for a selection request.\n");
if (sloop < 1)
fprintf(stderr, " Waiting for selection request number %i\n", dloop + 1);
}
/* wait for a SelectionRequest event */
while (1) {
static unsigned int clear = 0;
static unsigned int context = XCLIB_XCIN_NONE;
static unsigned long sel_pos = 0;
static Window cwin;
static Atom pty;
int finished;
XNextEvent(dpy, &evt);
finished = xcin(dpy, &cwin, evt, &pty, target, sel_buf, sel_len, &sel_pos, &context);
if (evt.type == SelectionClear)
clear = 1;
if ((context == XCLIB_XCIN_NONE) && clear)
return EXIT_SUCCESS;
if (finished)
break;
}
dloop++; /* increment loop counter */
}
return EXIT_SUCCESS;
}
