home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume10 / xsel / patch2 next >
Encoding:
Text File  |  1990-12-08  |  11.9 KB  |  397 lines
  1. Path: uunet!fernwood!apple!sun-barr!newstop!exodus!appserv!ukc.ac.uk
  2. From: rlh2@ukc.ac.uk (Richard Hesketh)
  3. Newsgroups: comp.sources.x
  4. Subject: v10i072: xsel, Patch2, Part01/01
  5. Message-ID: <310@appserv.Eng.Sun.COM>
  6. Date: 16 Nov 90 05:34:14 GMT
  7. References: <csx-10i072:xsel@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 380
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: Richard Hesketh <rlh2@ukc.ac.uk>
  13. Posting-number: Volume 10, Issue 72
  14. Archive-name: xsel/patch2
  15. Patch-To: xsel: Volume 6, Issue 79
  16. Patch-To: xsel: Volume 7, Issue 35 (patch 1)
  17.  
  18. This is the second patch to "xselection" to allow it to set and retrieve
  19. cutbuffer values.  It also now allows prepending and appending of values to
  20. both selection properties and cutbuffers.
  21.  
  22. These additions were contributed by trost@reed.earn
  23.  
  24. Richard Hesketh   :   rlh2@ukc.ac.uk
  25. Computing Officer, Computing Lab., University of Kent at Canterbury,
  26. Canterbury, Kent, CT2 7NF, United Kingdom.
  27.         Tel: +44 227 764000 ext 7620/7590      Fax: +44 227 762811
  28.  
  29. *** /tmp/,RCSt1a24678    Fri Oct 12 11:27:39 1990
  30. --- patchlevel.h    Fri Oct 12 11:26:27 1990
  31. ***************
  32. *** 1 ****
  33. ! #define PATCHLEVEL 1
  34. --- 1 ----
  35. ! #define PATCHLEVEL 2
  36.  
  37. *** /tmp/,RCSt1a24681    Fri Oct 12 11:27:41 1990
  38. --- xselection.c    Fri Oct 12 11:26:27 1990
  39. ***************
  40. *** 1,6 ****
  41.   #ifndef lint
  42. ! static char rcsid[] = "$Header: xselection.c 1.2 90/07/31 09:06:57 rlh2 Rel $";
  43. ! #endif !lint
  44.   
  45.   /* 
  46.    * Copyright 1990 Richard Hesketh / rlh2@ukc.ac.uk
  47. --- 1,7 ----
  48.   #ifndef lint
  49. ! static char rcsid[] =
  50. !    "$Xukc: xselection.c,v 1.3 90/10/12 11:12:53 rlh2 Rel $";
  51. ! #endif /* !lint */
  52.   
  53.   /* 
  54.    * Copyright 1990 Richard Hesketh / rlh2@ukc.ac.uk
  55. ***************
  56. *** 41,46 ****
  57. --- 42,48 ----
  58.   #include <X11/Xresource.h>
  59.   
  60.   #define PROG_NAME "xselection"
  61. + #define PROG_CLASS "XSelection"
  62.   
  63.   #define CHUNK 1000
  64.   
  65. ***************
  66. *** 49,57 ****
  67. --- 51,66 ----
  68.   
  69.   static Atom selection_atom = NULL;
  70.   static unsigned char *current_selection = NULL;
  71. + static unsigned char *old_selection = NULL;
  72.   
  73. + static int selection_mode;
  74. + 
  75.   static XrmOptionDescRec options[] = {
  76.       { "-display", ".display", XrmoptionSepArg, (caddr_t)NULL },
  77. +     { "-append", ".mode", XrmoptionNoArg, (caddr_t)"2" },
  78. +     { "-prepend", ".mode", XrmoptionNoArg, (caddr_t)"1" },
  79. +     { "-replace", ".mode", XrmoptionNoArg, (caddr_t)"0" },
  80. +     { "-cutbuffer", ".cutbuffer", XrmoptionNoArg, (caddr_t)"true" },
  81.   };
  82.   
  83.   static unsigned char *get_selection();
  84. ***************
  85. *** 59,66 ****
  86.   static void
  87.   usage()
  88.   {
  89. !     fprintf(stderr, "usage: %s property [- | [--] new_value]\n",
  90. !                                 PROG_NAME);
  91.       exit (-1);
  92.   }
  93.   
  94. --- 68,79 ----
  95.   static void
  96.   usage()
  97.   {
  98. !     fprintf(stderr,
  99. !         "usage: %s [ -display display_name ] [ -append | -prepend",
  100. !         PROG_NAME);
  101. !     fprintf(stderr, " | -replace ]\n");
  102. !     fprintf(stderr, "\t\t  [ PROPERTY_NAME | -cutbuffer [0-7] ]");
  103. !     fprintf(stderr, " [ - | [--] new_value ]\n");
  104.       exit (-1);
  105.   }
  106.   
  107. ***************
  108. *** 136,151 ****
  109.       Display *dpy;
  110.       XEvent ev;
  111.       char resource[100];
  112.       char *blank, *display;
  113. !     XrmDatabase db = NULL;
  114.       XrmValue value;
  115.       Window window;
  116.       int want_to_own = 0;
  117.   
  118. !     XrmParseCommand(&db, options, 1, PROG_NAME, &argc, argv);
  119.   
  120.       (void)sprintf(resource, "%s.display", PROG_NAME);
  121. !     if (XrmGetResource(db, resource, "", &blank, &value))
  122.           display = (char *)value.addr;
  123.       else
  124.           display = NULL;
  125. --- 149,167 ----
  126.       Display *dpy;
  127.       XEvent ev;
  128.       char resource[100];
  129. +     char Resource[100];    /* for class information */
  130.       char *blank, *display;
  131. !     XrmDatabase odb = NULL, db = NULL;
  132.       XrmValue value;
  133.       Window window;
  134.       int want_to_own = 0;
  135.   
  136. !     XrmParseCommand(&odb, options, sizeof(options)/sizeof(options[0]),
  137. !             PROG_NAME, &argc, argv);
  138.   
  139.       (void)sprintf(resource, "%s.display", PROG_NAME);
  140. !     (void)sprintf(Resource, "%s.Display", PROG_CLASS);
  141. !     if (XrmGetResource(odb, resource, Resource, &blank, &value))
  142.           display = (char *)value.addr;
  143.       else
  144.           display = NULL;
  145. ***************
  146. *** 158,170 ****
  147.   
  148.       if (argc < 2 || argc > 4)
  149.           usage();
  150. -         
  151. -     selection_atom = XInternAtom(dpy, argv[1], argc == 2);
  152.   
  153. !     if (selection_atom == NULL) {
  154. !         fprintf(stderr, "%s: %s not a name of a known selection property\n",
  155. !                     PROG_NAME, argv[1]);
  156. !         exit (-2);
  157.       }
  158.   
  159.       if (argc == 3) {
  160. --- 174,207 ----
  161.   
  162.       if (argc < 2 || argc > 4)
  163.           usage();
  164.   
  165. !     XrmMergeDatabases(dpy->db, &db);
  166. !     XrmMergeDatabases(odb, &db);
  167. ! 
  168. !     (void)sprintf(resource, "%s.mode", PROG_NAME);
  169. !     (void)sprintf(Resource, "%s.Mode", PROG_CLASS);
  170. !     if (XrmGetResource(db, resource, Resource, &blank, &value) ||
  171. !         XrmGetResource(dpy->db, resource, Resource, &blank, &value))
  172. !         switch (value.addr[0]) {
  173. !         case '0':
  174. !                 selection_mode = PropModeReplace;
  175. !                 break;
  176. !         case '1':
  177. !                 selection_mode = PropModePrepend;
  178. !                 break;
  179. !         case '2':
  180. !                 selection_mode = PropModeAppend;
  181. !                 break;
  182. !         }
  183. !     else
  184. !         selection_mode = PropModeReplace;
  185. ! 
  186. !     if (selection_mode != PropModeReplace &&
  187. !         selection_mode != PropModeAppend &&
  188. !         selection_mode != PropModePrepend) {
  189. !             fprintf(stderr, "%s: Bad selection mode %d.\n",
  190. !                     PROG_NAME, selection_mode);
  191. !             exit(-2);
  192.       }
  193.   
  194.       if (argc == 3) {
  195. ***************
  196. *** 184,197 ****
  197.           want_to_own = 1;
  198.       }
  199.   
  200.       /* this window never gets mapped - its simply used as an ID */
  201.       window = XCreateSimpleWindow(dpy, DefaultRootWindow(dpy),
  202.                               0, 0, 1, 1, 0, 0, 0);
  203.   
  204. !     if (want_to_own)
  205.           /* set the selection and wait for someone to take it */
  206.           own_selection(dpy, window, selection_atom);
  207. !     else {
  208.           /* get the selection */
  209.           current_selection = get_selection(dpy, window, selection_atom);
  210.           if (current_selection != NULL)
  211. --- 221,279 ----
  212.           want_to_own = 1;
  213.       }
  214.   
  215. +     (void)sprintf(resource, "%s.cutbuffer", PROG_NAME);
  216. +     (void)sprintf(Resource, "%s.Cutbuffer", PROG_CLASS);
  217. +     if (XrmGetResource(db, resource, Resource, &blank, &value) ||
  218. +         XrmGetResource(dpy->db, resource, Resource, &blank, &value)) {
  219. +         int cutbuffer = atoi(argv[1]);
  220. +         if (cutbuffer < 0 || cutbuffer > 7) {
  221. +             fprintf(stderr,
  222. +                 "%s: %d is not a valid cut buffer, must be 0-7.\n",
  223. +                 PROG_NAME, cutbuffer);
  224. +             exit(-8);
  225. +         }
  226. +         if (want_to_own)
  227. +             XChangeProperty(dpy, DefaultRootWindow(dpy),
  228. +                     XA_CUT_BUFFER0 + cutbuffer, XA_STRING,
  229. +                     8, selection_mode, current_selection,
  230. +                     strlen(current_selection));
  231. +         else {
  232. +             Atom actual_type;
  233. +             int actual_format;
  234. +             unsigned long nitems, bytes_after;
  235. +             unsigned char* data;
  236. + 
  237. +             XGetWindowProperty(dpy, DefaultRootWindow(dpy),
  238. +                        XA_CUT_BUFFER0 + cutbuffer,
  239. +                        0L, 10240L, False, AnyPropertyType,
  240. +                        &actual_type, &actual_format,
  241. +                        &nitems, &bytes_after, &data);
  242. +             printf("%s", data);
  243. +         }
  244. +         XCloseDisplay(dpy);
  245. +         exit(0);
  246. +     }
  247. + 
  248. +     selection_atom = XInternAtom(dpy, argv[1], argc == 2);
  249. + 
  250. +     if (selection_atom == NULL) {
  251. +         fprintf(stderr,
  252. +             "%s: %s not a name of a known selection property.\n",
  253. +             PROG_NAME, argv[1]);
  254. +         exit (-2);
  255. +     }
  256. + 
  257.       /* this window never gets mapped - its simply used as an ID */
  258.       window = XCreateSimpleWindow(dpy, DefaultRootWindow(dpy),
  259.                               0, 0, 1, 1, 0, 0, 0);
  260.   
  261. !     if (want_to_own) {
  262.           /* set the selection and wait for someone to take it */
  263. +         if (selection_mode != PropModeReplace)
  264. +             old_selection = get_selection(dpy, window,
  265. +                               selection_atom);
  266.           own_selection(dpy, window, selection_atom);
  267. !     } else {
  268.           /* get the selection */
  269.           current_selection = get_selection(dpy, window, selection_atom);
  270.           if (current_selection != NULL)
  271. ***************
  272. *** 242,247 ****
  273. --- 324,340 ----
  274.           XSelectionRequestEvent  *req_event;
  275.           unsigned char *data;
  276.   
  277. +     if (selection_mode != PropModeReplace) {
  278. +         data = old_selection;
  279. +         XChangeProperty(ptr_event->xselectionrequest.display,
  280. +                 ptr_event->xselectionrequest.requestor,
  281. +                 ptr_event->xselectionrequest.property,
  282. +                 ptr_event->xselectionrequest.target,
  283. +                 8, PropModeReplace, data,
  284. +                 (old_selection == NULL) ? 0 :
  285. +                 strlen(old_selection));
  286. +     }
  287. + 
  288.           data = current_selection;
  289.   
  290.           XChangeProperty(ptr_event->xselectionrequest.display,
  291. ***************
  292. *** 248,254 ****
  293.                           ptr_event->xselectionrequest.requestor,
  294.                           ptr_event->xselectionrequest.property,
  295.                           ptr_event->xselectionrequest.target,
  296. !                         8, PropModeReplace, data,
  297.                           (current_selection == NULL) ?
  298.               0 : strlen(current_selection));
  299.   
  300. --- 341,347 ----
  301.                           ptr_event->xselectionrequest.requestor,
  302.                           ptr_event->xselectionrequest.property,
  303.                           ptr_event->xselectionrequest.target,
  304. !                         8, selection_mode, data,
  305.                           (current_selection == NULL) ?
  306.               0 : strlen(current_selection));
  307.   
  308. ***************
  309. *** 267,273 ****
  310.                   notify_event.property = req_event->property;
  311.   
  312.       /* tell the requestor he has a copy of the selection */
  313. !         (void) XSendEvent(req_event->display, req_event->requestor,
  314.                       False, 0, (XEvent *)¬ify_event);
  315.       XFlush(dpy);
  316.   }
  317. --- 360,366 ----
  318.                   notify_event.property = req_event->property;
  319.   
  320.       /* tell the requestor he has a copy of the selection */
  321. !         (void)XSendEvent(req_event->display, req_event->requestor,
  322.                       False, 0, (XEvent *)¬ify_event);
  323.       XFlush(dpy);
  324.   }
  325.  
  326. *** /tmp/,RCSt1a24684    Fri Oct 12 11:27:42 1990
  327. --- xselection.man    Fri Oct 12 11:26:28 1990
  328. ***************
  329. *** 1,8 ****
  330.   .TH XSELECTION l "31 March 1990"
  331.   .SH NAME
  332. ! xselection \- get or set an X selection property value
  333.   .SH SYNOPSIS
  334. ! \fBxselection\fP [ -display display_name ] PROPERTY_NAME [- | [--] new_value ]
  335.   .SH DESCRIPTION
  336.   If the \fInew_value\fP argument is not given \fIxselection\fP retrieves the
  337.   current value of the named selection property
  338. --- 1,12 ----
  339.   .TH XSELECTION l "31 March 1990"
  340.   .SH NAME
  341. ! xselection \- get or set an X selection or cutbuffer property value
  342.   .SH SYNOPSIS
  343. ! \fBxselection\fP
  344. ! [ -display display_name ]
  345. ! [ -append | -prepend | -replace ]
  346. ! [ PROPERTY_NAME | -cutbuffer [0-7] ]
  347. ! [- | [--] new_value ]
  348.   .SH DESCRIPTION
  349.   If the \fInew_value\fP argument is not given \fIxselection\fP retrieves the
  350.   current value of the named selection property
  351. ***************
  352. *** 16,21 ****
  353. --- 20,32 ----
  354.   flag definition off using the '--' argument, e.g.
  355.   \fIxselection PRIMARY -- -\fP
  356.   
  357. + By using the '-cutbuffer' flag, the program will modify the contents
  358. + of the specified cut buffer instead of a selection.
  359. + The '-append', '-prepend', and '-replace' flags are used to modify how
  360. + the program changes the selection.  By default, it simple overwrites
  361. + the selection's value (equivalent to '-replace').  By using the
  362. + '-append' flag, the new value is append to the old selection's
  363. + contents.  The '-prepend' flag behaves similarly.
  364.   This program can be used
  365.   from within shell scripts to set and retrieve the contents of the cut buffer.
  366.   The standard cut buffer selection property is accessed with the property
  367. ***************
  368. *** 24,31 ****
  369.   .SH ENVIRONMENT VARIABLES
  370.   DISPLAY \- default X Server to enquire.
  371.   .SH BUGS
  372. ! As yet unknown.
  373.   .SH AUTHOR
  374. ! Richard Hesketh, University of Kent at Canterbury, March 1990
  375.   .br
  376. ! rlh2@ukc.ac.uk
  377. --- 35,43 ----
  378.   .SH ENVIRONMENT VARIABLES
  379.   DISPLAY \- default X Server to enquire.
  380.   .SH BUGS
  381. ! The program pays no attention to the resources specified on the server
  382. ! (commonly defined in $HOME/.Xdefaults).
  383.   .SH AUTHOR
  384. ! Richard Hesketh (rlh2@ukc.ac.uk), University of Kent at Canterbury, March 1990
  385.   .br
  386. ! prepend/append and cutbuffer support by trost@reed.earn
  387.  
  388. dan
  389. ----------------------------------------------------
  390. O'Reilly && Associates   argv@sun.com / argv@ora.com
  391. Opinions expressed reflect those of the author only.
  392. --
  393. dan
  394. ----------------------------------------------------
  395. O'Reilly && Associates   argv@sun.com / argv@ora.com
  396. Opinions expressed reflect those of the author only.
  397.