home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2650 < prev    next >
Encoding:
Internet Message Format  |  1991-02-02  |  14.0 KB
  1. From: pc@ukc.ac.uk (R.P.A.Collinson)
  2. Newsgroups: comp.windows.x,comp.mail.mh,alt.sources
  3. Subject: Xmh patches for repl/forw style annotation (unofficial)
  4. Message-ID: <2485@ukc>
  5. Date: 2 Feb 91 01:03:55 GMT
  6.  
  7. These diffs allow you to see when you have replied or forwarded mail
  8. by making a note at the top of the source message(s). Regular mh does this
  9. and I have long wanted xmh to do this too. The diffs have been sent
  10. into MIT - who told me that they will use them but will not distribute
  11. them at this time.
  12.  
  13. I am unsure what news group(s) is/are appropriate so I am guessing -
  14. please forgive me if you consider this is unwarranted intrusion into
  15. your conversation.
  16.  
  17. The diffs permit the `standard' xmh release with X11R4 to annotate
  18. messages that have been replied to or forwarded. I have tested this ONLY
  19. with mh6.7 on a Sparc 1+ running SunOs 4.1 and OpenWindows2.
  20.  
  21. Annotation is controlled by resources - see the manual page.
  22.  
  23. Annotation will not SHOW if a currently displayed message is annotated.
  24.  
  25. Most of the work is done in a new file `anno.c', this also contains
  26. the theory of behaviour. Most of the other changes just insert code
  27. to call the appropriate code.
  28.  
  29. PS. If anyone has fixed the problem where xmh current message is not
  30. that the same as that shown by mhpath cur - then please let me know.
  31.  
  32. ------ patch away from here ------
  33. *** /dev/null    Wed Jan  2 22:32:51 1991
  34. --- anno.c    Sun Dec 23 21:14:56 1990
  35. ***************
  36. *** 0 ****
  37. --- 1,271 ----
  38. + /*
  39. +  *    anno.c
  40. +  *        - routines concerned with annotation
  41. +  *    File added by Peter Collinson, Hillside Systems
  42. +  *    pc@hillside.co.uk
  43. +  */
  44. + 
  45. + /*
  46. +  *    Background
  47. +  *    mh6.7 uses various environment variables to permit message
  48. +  *    annotation.
  49. +  *
  50. +  *    a) mhfolder
  51. +  *        contains the name of the folder to be annotated
  52. +  *    b) mhmessages
  53. +  *        space separated list of messages to annotate
  54. +  *    c) mhannotate
  55. +  *        text to use for annotation
  56. +  *    d) mhinplace
  57. +  *        1 to annotate inplace
  58. +  *        0 not to
  59. +  *
  60. +  *    Theory
  61. +  *    Add a character string to a Scrn containing the message list
  62. +  *    for annotation.
  63. +  *    When send is called push the various objects into the
  64. +  *    environment
  65. +  */
  66. + #include "xmh.h"
  67. + #include "tocintrnl.h"
  68. + 
  69. + static    int MheLookup();
  70. + static Scrn AnnoSearch();
  71. + static char *MakeEnv();
  72. + 
  73. + /*
  74. +  *    Given a message - create an annotation list and
  75. +  *    return it
  76. +  */
  77. + char *
  78. + AnnoMsgCreate(msg)
  79. +     Msg    msg;
  80. + {
  81. +     MsgListRec    ml;
  82. +     char    *AnnoCreate();
  83. + 
  84. +     ml.nummsgs = 1;
  85. +     ml.msglist = &msg;
  86. +     return (AnnoCreate(&ml));
  87. + }
  88. +     
  89. + /*
  90. +  *    given an mlist - create an annotation list
  91. +  *    and return it - the first element in the list is the
  92. +  *    name of the folder
  93. +  *    
  94. +  */
  95. + char *
  96. + AnnoCreate(mlist)
  97. +     MsgList mlist;
  98. + {
  99. +     char    *anno;
  100. +     char    *folder;
  101. +     int    bytes;
  102. +     register int d;
  103. +     register int i;
  104. +     char    *src;
  105. +     char    numbuf[16];
  106. + 
  107. +     if (mlist->nummsgs == 0)
  108. +         return (NULL);
  109. + 
  110. +     folder = mlist->msglist[0]->toc->foldername;
  111. +     anno = (char *)XtMalloc(512);
  112. +     bytes = 512;
  113. +     for (d = 0, src = app_resources.mail_path; anno[d++] = *src++;);
  114. +     anno[d-1] = '/';
  115. +     for (src = folder; anno[d++] = *src++;);
  116. +     d--;
  117. +     
  118. + 
  119. +     for (i = 0; i < mlist->nummsgs; i++)
  120. +     {
  121. +         (void) sprintf(numbuf, "%d", mlist->msglist[i]->msgid);
  122. +         
  123. +         if (d+16 > bytes)
  124. +         {    bytes += 512;
  125. +             anno = (char *)XtRealloc(anno, bytes);
  126. +         }
  127. +         /* add a space */
  128. +         anno[d++] = ' ';
  129. +         for (src = numbuf; anno[d++] = *src++;);
  130. +         d--;
  131. +     }
  132. +     anno[d] = '\0';
  133. +     return (anno);
  134. + }
  135. + 
  136. + /*
  137. +  *    We will need to add and delete four things from
  138. +  *    the environment. This could be done after the fork()
  139. +  *    but this means that we have to change the environment
  140. +  *    to be sure of not affecting any other programs
  141. +  *
  142. +  *    So the idea here is to copy the environment into our vector
  143. +  *    deleting the four things that we are interested in
  144. +  *    we then put OUR things in the first four string positions
  145. +  */
  146. + static    char    **our_env;    /* this points at our environment */
  147. + extern    char    **environ;    /* what the world sees */
  148. + 
  149. + typedef struct addenv
  150. + {    char    *add;
  151. +     int    len;
  152. + } Addenv;
  153. + 
  154. + static Addenv adde[] = 
  155. + {
  156. + {    "mhfolder=",    9    },
  157. + {    "mhmessages=",    11    },
  158. + {    "mhannotate=",    11    },
  159. + {    "mhinplace=",    10    },
  160. + {    NULL,    0    }
  161. + };
  162. + 
  163. + #define    MHE_FOLDER    0
  164. + #define    MHE_MESSAGES    1
  165. + #define MHE_ANNOTATE    2
  166. + #define    MHE_INPLACE    3
  167. + 
  168. + AnnoInitEnv()
  169. + {            
  170. +     register int    count;    /* number of things in the environment */
  171. +     register char    **pt;
  172. +     register char    **dst;
  173. +     char        inp[16];
  174. + 
  175. +     
  176. +     if (our_env)
  177. +         return;
  178. + 
  179. +     for (count = 0, pt = environ; *pt++; count++);
  180. + 
  181. +     our_env = (char **)XtMalloc((count+5)*sizeof (char **));
  182. +     our_env[0] = our_env[1] = our_env[2] = NULL;
  183. + 
  184. +     /* copy the environment into `our' environment */
  185. +     /* start at position 4 */
  186. +     dst = &our_env[4];
  187. + 
  188. +     for (pt = environ; *pt; pt++)
  189. +     {
  190. +         if (MheLookup(*pt))
  191. +             continue;
  192. +         *dst++ = *pt;
  193. +     }
  194. +     *dst = NULL;
  195. +     /*
  196. +      *    set up the inplace value
  197. +      */
  198. +     (void) sprintf(inp, "%s%d", adde[MHE_INPLACE].add, app_resources.annotate_in_place);
  199. +     our_env[MHE_INPLACE] = XtNewString(inp);
  200. + }
  201. + 
  202. + /*
  203. +  *    Look in the list of things we are dealing with
  204. +  *    to find a match in the environment
  205. +  */
  206. + static int
  207. + MheLookup(env)
  208. +     char    *env;
  209. + {
  210. +     register Addenv *ae;
  211. + 
  212. +     for (ae = adde; ae->add; ae++)
  213. +         if (strncmp(env, ae->add, ae->len) == 0)
  214. +             return(1);
  215. +     return 0;
  216. + }
  217. +     
  218. + /*
  219. +  *    Reset the environment to the standard
  220. +  */
  221. + AnnoEnvReset()
  222. + {
  223. +     environ = &our_env[4];
  224. + }
  225. +     
  226. + /*
  227. +  *    Set the environment to new values
  228. +  */
  229. + AnnoEnvSet(msg)
  230. +     Msg    msg;
  231. + {
  232. +     Scrn    scrn;
  233. +     char    *folder;
  234. +     char    *annotate;
  235. +     char    *s;
  236. +     char    *d;
  237. +     register i;
  238. +     Scrn    AnnoSearch();
  239. +     char    buf[512];
  240. +     
  241. +     if ((scrn = AnnoSearch(msg)) == NULL)
  242. +         return;
  243. + 
  244. +     switch (scrn->anno_type)
  245. +     {
  246. +     case ANrepl:
  247. +         annotate = "Replied";
  248. +         break;
  249. +     case ANforw:
  250. +         annotate = "Forwarded";
  251. +         break;
  252. +     default:        /* shouldn't happen */
  253. +         return;
  254. +     }
  255. + 
  256. +     for (i = 0; i < MHE_INPLACE; i++)
  257. +         if (our_env[i])
  258. +         {    XtFree(our_env[i]);
  259. +             our_env[i] = NULL;
  260. +         }
  261. +     /*
  262. +      *    Munge the annotation list
  263. +      *    we see it as
  264. +      *    folder-name number number
  265. +      */
  266. +     for (s = scrn->anno_list, d = buf; *s != ' '; *d++ = *s++);
  267. +     *d = '\0';
  268. +     s++;
  269. + 
  270. +     our_env[MHE_FOLDER] = MakeEnv(&adde[MHE_FOLDER], buf);
  271. +     our_env[MHE_MESSAGES] = MakeEnv(&adde[MHE_MESSAGES], s);
  272. +     our_env[MHE_ANNOTATE] = MakeEnv(&adde[MHE_ANNOTATE], annotate);
  273. +     environ = our_env;
  274. + }
  275. + 
  276. + static Scrn
  277. + AnnoSearch(msg)
  278. +     Msg    msg;
  279. + {
  280. +     register i;
  281. +     AnnoKind ak;
  282. +     
  283. +     if (msg->num_scrns == 0)
  284. +         return (NULL);
  285. + 
  286. +     for (i = 0; i < msg->num_scrns; i++)
  287. +     {
  288. +         if ((ak = msg->scrn[i]->anno_type) == ANrepl)
  289. +             return(msg->scrn[i]);
  290. +         else
  291. +         if (ak == ANforw)
  292. +             return(msg->scrn[i]);
  293. +     }
  294. +     return (NULL);
  295. + }
  296. + 
  297. +     
  298. + 
  299. + static char *
  300. + MakeEnv(ad, value)
  301. +     register Addenv    *ad;
  302. +     char    *value;
  303. + {
  304. +     char    buf[512];
  305. + 
  306. +     (void) sprintf(buf, "%s%s", ad->add, value);
  307. +     return (XtNewString(buf));
  308. + }
  309. *** Imakefile~    Wed Jan  2 22:36:59 1991
  310. --- Imakefile    Sun Dec 23 21:15:33 1990
  311. ***************
  312. *** 8,17 ****
  313.   
  314.              SRCS = bbox.c command.c compfuncs.c folder.c icon.c init.c \
  315.                     main.c menu.c mlist.c msg.c pick.c popup.c screen.c \
  316. !                   toc.c tocfuncs.c tocutil.c tsource.c util.c viewfuncs.c
  317.              OBJS = bbox.o command.o compfuncs.o folder.o icon.o init.o \
  318.                     main.o menu.o mlist.o msg.o pick.o popup.o screen.o \
  319. !                   toc.o tocfuncs.o tocutil.o tsource.o util.o viewfuncs.o
  320.   
  321.   
  322.   ComplexProgramTarget(xmh)
  323. --- 8,17 ----
  324.   
  325.              SRCS = bbox.c command.c compfuncs.c folder.c icon.c init.c \
  326.                     main.c menu.c mlist.c msg.c pick.c popup.c screen.c \
  327. !                   toc.c tocfuncs.c tocutil.c tsource.c util.c viewfuncs.c anno.c
  328.              OBJS = bbox.o command.o compfuncs.o folder.o icon.o init.o \
  329.                     main.o menu.o mlist.o msg.o pick.o popup.o screen.o \
  330. !                   toc.o tocfuncs.o tocutil.o tsource.o util.o viewfuncs.o anno.o
  331.   
  332.   
  333.   ComplexProgramTarget(xmh)
  334. *** compfuncs.c~    Wed Jan  2 22:39:07 1991
  335. --- compfuncs.c    Sun Dec 23 21:15:33 1990
  336. ***************
  337. *** 117,122 ****
  338. --- 117,124 ----
  339.   {
  340.       Scrn scrn;
  341.       Msg msg;
  342. +     char *AnnoCreate();
  343. +     
  344.       scrn = NewCompScrn();
  345.       msg = TocMakeNewMsg(DraftsFolder);
  346.       MsgLoadForward(scrn, msg, mlist);
  347. ***************
  348. *** 123,126 ****
  349. --- 125,133 ----
  350.       MsgSetTemporary(msg);
  351.       MsgSetScrnForComp(msg, scrn);
  352.       MapScrn(scrn);
  353. +     if (app_resources.annotate_forw) {
  354. +        scrn->anno_type = ANforw;
  355. +     scrn->anno_list = AnnoCreate(mlist);
  356. +     }
  357. + 
  358.   }
  359. *** globals.h~    Wed Jan  2 22:40:33 1991
  360. --- globals.h    Sun Dec 23 21:15:31 1990
  361. ***************
  362. *** 76,81 ****
  363. --- 76,84 ----
  364.       int        command_button_count;    /* number of buttons in command box */
  365.       int        app_defaults_version;    /* for sanity check */
  366.       char     *banner;        /* defaults to xmh version string */
  367. +     Boolean    annotate_repl;        /* true if we are to annotate reply sources */
  368. +     Boolean    annotate_forw;        /* true if we are to annotate forw sources */
  369. +     int        annotate_in_place;    /* 0 if don't annotate inplace, 1 otherwise */
  370.   } app_resources;
  371.   
  372.   ext char    *draftFile;    /* Filename of draft. */
  373. *** init.c~    Wed Jan  2 22:40:54 1991
  374. --- init.c    Sun Dec 23 21:15:31 1990
  375. ***************
  376. *** 124,129 ****
  377. --- 124,135 ----
  378.        offset(app_defaults_version), XtRImmediate, (XtPointer)0},
  379.       {"banner", "Banner", XtRString, sizeof(char *),
  380.        offset(banner), XtRString, "xmh    MIT X Consortium    R4"},
  381. +     {"annotateRepl", "AnnotateRepl", XtRBoolean, sizeof(Boolean),
  382. +      offset(annotate_repl), XtRImmediate, (XtPointer)False},
  383. +     {"annotateForw", "AnnotateForw", XtRBoolean, sizeof(Boolean),
  384. +      offset(annotate_forw), XtRImmediate, (XtPointer)False},
  385. +     {"annotateInPlace", "AnnotateInPlace", XtRInt, sizeof(int),
  386. +      offset(annotate_in_place), XtRImmediate, (XtPointer)1},
  387.   };
  388.   
  389.   #undef offset
  390. ***************
  391. *** 396,401 ****
  392. --- 402,413 ----
  393.       InitPick();
  394.       IconInit();
  395.       BBoxInit();
  396. + 
  397. +     /*
  398. +      *    Initialise annotations if required
  399. +      */
  400. +     if (app_resources.annotate_repl || app_resources.annotate_forw)
  401. +     AnnoInitEnv();
  402.   
  403.       XtAppAddActions( XtWidgetToApplicationContext(toplevel),
  404.               actions, XtNumber(actions));
  405. *** msg.c~    Wed Jan  2 22:41:05 1991
  406. --- msg.c    Sun Dec 23 21:15:32 1990
  407. ***************
  408. *** 731,736 ****
  409. --- 731,737 ----
  410.       }
  411.       (void) myfclose(from);
  412.       (void) myfclose(to);
  413. +     AnnoEnvSet(msg);
  414.       argv = MakeArgv(3);
  415.       argv[0] = "send";
  416.       argv[1] = "-push";
  417. ***************
  418. *** 737,742 ****
  419. --- 738,744 ----
  420.       argv[2] = str;
  421.       DoCommand(argv, (char *) NULL, (char *) NULL);
  422.       XtFree((char *) argv);
  423. +     AnnoEnvReset();
  424.   }
  425.   
  426.   
  427. *** screen.c~    Wed Jan  2 22:41:14 1991
  428. --- screen.c    Sun Dec 23 21:15:31 1990
  429. ***************
  430. *** 391,396 ****
  431. --- 391,398 ----
  432.       Scrn scrn;
  433.       scrn = CreateNewScrn(STcomp);
  434.       scrn->assocmsg = (Msg)NULL;
  435. +     scrn->anno_type = ANno;
  436. +     scrn->anno_list = NULL;
  437.       return scrn;
  438.   }
  439.   
  440. ***************
  441. *** 412,417 ****
  442. --- 414,423 ----
  443.       TocSetScrn((Toc) NULL, scrn);
  444.       MsgSetScrnForce((Msg) NULL, scrn);
  445.       lastInput.win = -1;
  446. +     if (scrn->anno_list) {
  447. +         XtFree(scrn->anno_list);
  448. +         scrn->anno_list = NULL;
  449. +     }
  450.       }
  451.   }
  452.   
  453. *** tocfuncs.c~    Wed Jan  2 22:41:25 1991
  454. --- tocfuncs.c    Sun Dec 23 21:15:32 1990
  455. ***************
  456. *** 651,656 ****
  457. --- 651,657 ----
  458.       Scrn    nscrn;
  459.       MsgList    mlist;
  460.       Msg        msg;
  461. +     char    *AnnoMsgCreate();
  462.   
  463.       if (toc == NULL) return;
  464.       mlist = CurMsgListOrCurMsg(toc);
  465. ***************
  466. *** 657,662 ****
  467. --- 658,667 ----
  468.       if (mlist->nummsgs) {
  469.       nscrn = NewCompScrn();
  470.       ScreenSetAssocMsg(nscrn, mlist->msglist[0]);
  471. +     if (app_resources.annotate_repl)
  472. +     {    nscrn->anno_type = ANrepl;
  473. +         nscrn->anno_list = AnnoMsgCreate(mlist->msglist[0]);
  474. +     }
  475.       msg = TocMakeNewMsg(DraftsFolder);
  476.       MsgSetTemporary(msg);
  477.       MsgLoadReply(msg, mlist->msglist[0]);
  478. *** viewfuncs.c~    Wed Jan  2 22:41:38 1991
  479. --- viewfuncs.c    Sun Dec 23 21:15:32 1990
  480. ***************
  481. *** 76,85 ****
  482. --- 76,90 ----
  483.       Scrn    scrn = (Scrn) client_data;
  484.       Msg        msg;
  485.       Scrn    nscrn;
  486. +     char    *AnnoMsgCreate();
  487.       
  488.       if (scrn->msg == NULL) return;
  489.       nscrn = NewCompScrn();
  490.       ScreenSetAssocMsg(nscrn, scrn->msg);
  491. +     if (app_resources.annotate_repl)
  492. +     {    nscrn->anno_type = ANrepl;
  493. +     nscrn->anno_list = AnnoMsgCreate(scrn->msg);
  494. +     }
  495.       msg = TocMakeNewMsg(DraftsFolder);
  496.       MsgSetTemporary(msg);
  497.       MsgLoadReply(msg, scrn->msg);
  498. *** xmh.h~    Wed Jan  2 22:41:57 1991
  499. --- xmh.h    Sun Dec 23 21:15:31 1990
  500. ***************
  501. *** 90,95 ****
  502. --- 90,101 ----
  503.       STpick
  504.   } ScrnKind;
  505.   
  506. + typedef enum {
  507. +     ANno,
  508. +     ANrepl,
  509. +     ANforw
  510. + } AnnoKind;
  511. + 
  512.   typedef struct _StackRec {
  513.       char        *data;
  514.       struct _StackRec    *next;
  515. ***************
  516. *** 119,124 ****
  517. --- 125,132 ----
  518.      Msg        assocmsg;    /* Associated message for reply, etc. */
  519.      Window    wait_window;    /* InputOnly window with busy cursor */
  520.      Stack    folder_stack;    /* Stack of folder names */
  521. +    AnnoKind    anno_type;    /* type of annotation */
  522. +    char    *    anno_list;    /* list of messages to annotate */
  523.   } ScrnRec, *Scrn;
  524.   
  525.   
  526. *** xmh.man~    Wed Jan  2 22:42:07 1991
  527. --- xmh.man    Mon Dec 24 12:02:12 1990
  528. ***************
  529. *** 921,926 ****
  530. --- 921,946 ----
  531.   
  532.   The following resources are defined:
  533.   .TP 8
  534. + .B AnnotateRepl
  535. + Permits annotation of messages that are being replied to.
  536. + This uses the standard 
  537. + .I mh
  538. + mechanism in 
  539. + .IR send .
  540. + Default is false.
  541. + .TP 8
  542. + .B AnnotateForw
  543. + Permits annotation of messages that are being forwarded.
  544. + This uses the standard
  545. + .I mh
  546. + mechanism in
  547. + .IR send .
  548. + Default is false.
  549. + .TP
  550. + .B AnnotateInPlace
  551. + When set to non-zero causes annotation to be done in place to preserve
  552. + links to the annotated message.
  553. + .TP 8
  554.   .B Banner
  555.   A short string that is the default label of the folder, Table of Contents,
  556.   and view.  The default is "xmh    MIT X Consortium    R4".
  557. ***************
  558. *** 1241,1243 ****
  559. --- 1261,1265 ----
  560.   Terry Weissman, Digital Western Research Laboratory
  561.   .br
  562.   modified by Donna Converse, MIT X Consortium
  563. + .br
  564. + Annotation code by Peter Collinson, Hillside Systems
  565.