home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume7 / infow / patch1 next >
Encoding:
Internet Message Format  |  1990-04-30  |  8.4 KB
  1. Path: uunet!snorkelwacker!apple!sun-barr!newstop!sun!meepmeep.pcs.com
  2. From: jkh@meepmeep.pcs.com (Jordan K. Hubbard)
  3. Newsgroups: comp.sources.x
  4. Subject: v07i014: Emacs Info Browsing Widget, Patch1, Part01/01
  5. Message-ID: <135058@sun.Eng.Sun.COM>
  6. Date: 1 May 90 08:16:30 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 352
  9. Approved: argv@sun.com
  10.  
  11. Submitted-by: jkh@meepmeep.pcs.com (Jordan K. Hubbard)
  12. Posting-number: Volume 7, Issue 14
  13. Archive-name: infow/patch1
  14. Patch-To: infow: Volume 6, Issues 92,93
  15.  
  16. Fixes contained in patch 1:
  17.  
  18. 1. Those without strpbrk() will now find a PD version at the end of
  19.    Info.c (automatically used if BSD is defined).
  20.  
  21. 2. toupper() as macro now properly dealt with.
  22.  
  23. 3. Menu names containing imbeded punctuation are now dealt with properly.
  24.  
  25. 4. RCS log/header lines filled in (we only needed to do this once).
  26.  
  27. -------------------------------------------------------------------------
  28. diff -c xinfo.release/Info.c xinfo/Info.c
  29. *** xinfo.release/Info.c    Wed Apr 25 18:43:08 1990
  30. --- xinfo/Info.c    Mon Apr 30 13:42:19 1990
  31. ***************
  32. *** 1,5 ****
  33.   #ifndef lint
  34. ! static char *rcsid = "$Header$";
  35.   #endif
  36.   
  37.   #include <X11/IntrinsicP.h>
  38. --- 1,5 ----
  39.   #ifndef lint
  40. ! static char *rcsid = "$Header: /usr1/ben/jkh/src/xinfo/RCS/Info.c,v 1.1 90/04/30 13:29:21 jkh Exp Locker: jkh $";
  41.   #endif
  42.   
  43.   #include <X11/IntrinsicP.h>
  44. ***************
  45. *** 49,55 ****
  46.    */
  47.   
  48.   /*
  49. !  * $Log$
  50.    */
  51.   
  52.   #define offset(name)    XtOffset(InfoWidget, info.name)
  53. --- 49,58 ----
  54.    */
  55.   
  56.   /*
  57. !  * $Log:    Info.c,v $
  58. !  * Revision 1.1  90/04/30  13:29:21  jkh
  59. !  * Initial revision
  60. !  * 
  61.    */
  62.   
  63.   #define offset(name)    XtOffset(InfoWidget, info.name)
  64. ***************
  65. *** 233,238 ****
  66. --- 236,244 ----
  67.   
  68.   #ifndef tolower
  69.   Import char tolower();
  70. + #define TOLOWER(c) (tolower(c))
  71. + #else
  72. + #define TOLOWER(c) (isupper(c) ? tolower(c) : (c))
  73.   #endif
  74.   
  75.   Local XtCallbackRec cb[2];
  76. ***************
  77. *** 798,808 ****
  78.              strip_evil(LPOS(n->menu));
  79.              /* Is the menu name not the node name? */
  80.              if (*mstart != ':') {
  81.               mstart = eat_whitespace(mstart);
  82.               I_START(TPOS(n->menu.t)) = INTOFF(START(iw), mstart);
  83.               I_LEN(TPOS(n->menu.t)) =
  84. !              INTOFF(START(iw), strpbrk(mstart, NAME_END_TOKEN)) -
  85. !                   I_START(TPOS(n->menu.t));
  86.              }
  87.              INCP(n->menu.t);
  88.         }
  89. --- 804,823 ----
  90.              strip_evil(LPOS(n->menu));
  91.              /* Is the menu name not the node name? */
  92.              if (*mstart != ':') {
  93. +             int plev = 0;
  94. + 
  95.               mstart = eat_whitespace(mstart);
  96.               I_START(TPOS(n->menu.t)) = INTOFF(START(iw), mstart);
  97. +             while (*mstart != '\0' && !(plev == 0
  98. +                && index(NAME_END_TOKEN, *mstart) != NULL)) {
  99. +               if (*mstart == '(')
  100. +                    ++plev;
  101. +               else if (*mstart == ')')
  102. +                    --plev;
  103. +               mstart++;
  104. +              }
  105.               I_LEN(TPOS(n->menu.t)) =
  106. !              INTOFF(START(iw), mstart) - I_START(TPOS(n->menu.t));
  107.              }
  108.              INCP(n->menu.t);
  109.         }
  110. ***************
  111. *** 1746,1752 ****
  112.         if (!igncase)
  113.              comp = (*start == *ind);
  114.         else
  115. !            comp = (tolower(*start) == tolower(*ind));
  116.         if (!comp) {
  117.              if (ind != str)
  118.               ind = str;
  119. --- 1761,1767 ----
  120.         if (!igncase)
  121.              comp = (*start == *ind);
  122.         else
  123. !            comp = (TOLOWER(*start) == TOLOWER(*ind));
  124.         if (!comp) {
  125.              if (ind != str)
  126.               ind = str;
  127. ***************
  128. *** 1780,1786 ****
  129.         if (!igncase)
  130.              comp = (*start == *ind);
  131.         else
  132. !            comp = (tolower(*start) == tolower(*ind));
  133.         if (!comp) {
  134.              if (ind != str)
  135.               ind = str;
  136. --- 1795,1801 ----
  137.         if (!igncase)
  138.              comp = (*start == *ind);
  139.         else
  140. !            comp = (TOLOWER(*start) == TOLOWER(*ind));
  141.         if (!comp) {
  142.              if (ind != str)
  143.               ind = str;
  144. ***************
  145. *** 1807,1813 ****
  146.         if (strlen(s1) != strlen(s2))
  147.             return(-1);
  148.   
  149. !       while (*s1 && *s2 && (tolower(*s1) == tolower(*s2)))
  150.              s1++, s2++;
  151.         if (!*s1 && !*s2)
  152.              return(0);
  153. --- 1822,1828 ----
  154.         if (strlen(s1) != strlen(s2))
  155.             return(-1);
  156.   
  157. !       while (*s1 && *s2 && (TOLOWER(*s1) == TOLOWER(*s2)))
  158.              s1++, s2++;
  159.         if (!*s1 && !*s2)
  160.              return(0);
  161. ***************
  162. *** 1832,1838 ****
  163.        register String s3 = s2 + n;
  164.   
  165.        if (s1 && s2) {
  166. !       while (*s1 && *s2 && (tolower(*s1) == tolower(*s2)) && (s2 < s3))
  167.              s1++, s2++;
  168.         if (!*s1 && !*s2 || s2 == s3)
  169.              return(0);
  170. --- 1847,1853 ----
  171.        register String s3 = s2 + n;
  172.   
  173.        if (s1 && s2) {
  174. !       while (*s1 && *s2 && (TOLOWER(*s1) == TOLOWER(*s2)) && (s2 < s3))
  175.              s1++, s2++;
  176.         if (!*s1 && !*s2 || s2 == s3)
  177.              return(0);
  178. ***************
  179. *** 1964,1971 ****
  180.   
  181.        if (s)
  182.         while (*s) {
  183. !            *s = tolower(*s);
  184.              s++;
  185.         }
  186.        return(orig);
  187.   }
  188. --- 1979,2033 ----
  189.   
  190.        if (s)
  191.         while (*s) {
  192. !            *s = TOLOWER(*s);
  193.              s++;
  194.         }
  195.        return(orig);
  196.   }
  197. + 
  198. + #ifdef BSD
  199. + /* BSD users don't have strpbrk() */
  200. + /* Routines taken from PD libc by Richard A. O'Keefe. */
  201. + 
  202. + #if     CharsAreSigned
  203. + #define MaxPosChar      127
  204. + #else  ~CharsAreSigned
  205. + #define MaxPosChar      255
  206. + #endif  CharsAreSigned
  207. + #ifndef _AlphabetSize
  208. + #define _AlphabetSize   128
  209. + #endif
  210. + 
  211. + static int  _set_ctr = MaxPosChar;
  212. + static char _set_vec[_AlphabetSize];
  213. + 
  214. + void _str2set(set)
  215. + register String set;
  216. + {
  217. +      if (set == NULL)
  218. +       return;
  219. +      if (++_set_ctr == MaxPosChar+1) {
  220. + #if     VAX
  221. +       asm("movc5 $0,4(ap),$0,$128,__set_vec");
  222. + #else  /* !VAX */
  223. +       register char *w = &_set_vec[_AlphabetSize];
  224. +       do
  225. +            *--w = '\0';
  226. +       while (w != &_set_vec[0]);
  227. + #endif  VAX
  228. +           _set_ctr = 1;
  229. +      }
  230. +      while (*set)
  231. +       _set_vec[*set++] = _set_ctr;
  232. + }
  233. + 
  234. + String strpbrk(s1, s2)
  235. + register String s1, s2;
  236. + {
  237. +      _str2set(set);
  238. +      while (_set_vec[*str] != _set_ctr)
  239. +           if (!*str++)
  240. +            return NULL;
  241. +      return str;
  242. + }
  243. + #endif /* BSD */
  244. diff -c xinfo.release/Info.h xinfo/Info.h
  245. *** xinfo.release/Info.h    Mon Jan 29 11:55:20 1990
  246. --- xinfo/Info.h    Mon Apr 30 13:29:44 1990
  247. ***************
  248. *** 1,7 ****
  249.   #ifndef _Info_h
  250.   #define _Info_h
  251.   
  252. ! /* $Header: /usr1/ben/jkh/src/xinfo/RCS/Info.h,v 1.1 90/01/27 22:43:34 jkh Exp $ */
  253.   
  254.   /*
  255.    *
  256. --- 1,7 ----
  257.   #ifndef _Info_h
  258.   #define _Info_h
  259.   
  260. ! /* $Header: /usr1/ben/jkh/src/xinfo/RCS/Info.h,v 1.1 90/04/30 13:29:36 jkh Exp $ */
  261.   
  262.   /*
  263.    *
  264. ***************
  265. *** 34,39 ****
  266. --- 34,42 ----
  267.   /*
  268.    *
  269.    * $Log:    Info.h,v $
  270. +  * Revision 1.1  90/04/30  13:29:36  jkh
  271. +  * Initial revision
  272. +  * 
  273.    * Revision 1.1  90/01/27  22:43:34  jkh
  274.    * Initial revision
  275.    * 
  276. diff -c xinfo.release/InfoP.h xinfo/InfoP.h
  277. *** xinfo.release/InfoP.h    Mon Jan 29 11:55:22 1990
  278. --- xinfo/InfoP.h    Mon Apr 30 13:29:46 1990
  279. ***************
  280. *** 1,7 ****
  281.   #ifndef _InfoP_h
  282.   #define _InfoP_h
  283.   
  284. ! /* $Header: /usr1/ben/jkh/src/xinfo/RCS/InfoP.h,v 1.3 90/01/29 11:29:24 jkh Exp $ */
  285.   
  286.   /*
  287.    *
  288. --- 1,7 ----
  289.   #ifndef _InfoP_h
  290.   #define _InfoP_h
  291.   
  292. ! /* $Header: /usr1/ben/jkh/src/xinfo/RCS/InfoP.h,v 1.1 90/04/30 13:29:44 jkh Exp $ */
  293.   
  294.   /*
  295.    *
  296. ***************
  297. *** 34,39 ****
  298. --- 34,42 ----
  299.   /*
  300.    *
  301.    * $Log:    InfoP.h,v $
  302. +  * Revision 1.1  90/04/30  13:29:44  jkh
  303. +  * Initial revision
  304. +  * 
  305.    * Revision 1.3  90/01/29  11:29:24  jkh
  306.    * *** empty log message ***
  307.    * 
  308. diff -c xinfo.release/xinfo.c xinfo/xinfo.c
  309. *** xinfo.release/xinfo.c    Mon Jan 29 11:55:26 1990
  310. --- xinfo/xinfo.c    Mon Apr 30 13:29:48 1990
  311. ***************
  312. *** 1,5 ****
  313.   #ifndef lint
  314. ! static char *rcsid = "$Header: /usr1/ben/jkh/src/xinfo/RCS/xinfo.c,v 1.4 90/01/29 11:29:33 jkh Exp $";
  315.   #endif
  316.   
  317.   /*
  318. --- 1,5 ----
  319.   #ifndef lint
  320. ! static char *rcsid = "$Header: /usr1/ben/jkh/src/xinfo/RCS/xinfo.c,v 1.1 90/04/30 13:29:46 jkh Exp $";
  321.   #endif
  322.   
  323.   /*
  324. ***************
  325. *** 33,38 ****
  326. --- 33,41 ----
  327.   /*
  328.    *
  329.    * $Log:    xinfo.c,v $
  330. +  * Revision 1.1  90/04/30  13:29:46  jkh
  331. +  * Initial revision
  332. +  * 
  333.    * Revision 1.4  90/01/29  11:29:33  jkh
  334.    * *** empty log message ***
  335.    * 
  336.  
  337. *** Info.c~    Mon Apr 30 13:42:19 1990
  338. --- Info.c    Mon Apr 30 13:52:48 1990
  339. ***************
  340. *** 779,784 ****
  341. --- 779,785 ----
  342.   NodeInfo *n;
  343.   {
  344.        register String mstart;
  345. +      String strpbrk();
  346.   
  347.        /* start clean */
  348.        ZERO_LIST(n->menu);
  349. ***************
  350. *** 830,835 ****
  351. --- 831,837 ----
  352.   NodeInfo *n;
  353.   {
  354.        register String nstart;
  355. +      String strpbrk();
  356.   
  357.        /* start clean */
  358.        ZERO_LIST(n->xref);
  359. dan
  360. ----------------------------------------------------
  361. O'Reilly && Associates   argv@sun.com / argv@ora.com
  362. Opinions expressed reflect those of the author only.
  363.