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