home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / emacs / 3800 < prev    next >
Encoding:
Text File  |  1992-12-16  |  3.7 KB  |  172 lines
  1. Newsgroups: comp.emacs
  2. Path: sparky!uunet!spool.mu.edu!sdd.hp.com!swrinde!cs.utexas.edu!hermes.chpc.utexas.edu!rshouman
  3. From: rshouman@chpc.utexas.edu (Radey Shouman)
  4. Subject: Re: [Q] How do I get EMACS to generate TAGS for fortran code ENTRY points?
  5. Message-ID: <1992Dec16.212441.26891@chpc.utexas.edu>
  6. Keywords: TAGS, EMACS
  7. Organization: The University of Texas System - CHPC
  8. References: <1992Dec16.164332.21910@jet.uk>
  9. Date: Wed, 16 Dec 92 21:24:41 GMT
  10. Lines: 160
  11.  
  12. In article <1992Dec16.164332.21910@jet.uk> tp@jet.uk (Tarang K Patel) writes:
  13. >
  14. >  I know that GNUemacs picks up functions and subroutines in fortran code as
  15. >  tags, but how does one get ENTRY point names tagged as well?
  16. >
  17. >  
  18. >  Tarang
  19.  
  20. I've modified etags.c, from GNU emacs 18.58, to find tags for fortran
  21. "entry" and "common" statements.  A context diff giving the
  22. necessary modifications follows.
  23.  
  24.  
  25. Enjoy,
  26.  
  27. --Radey Shouman
  28.  
  29. -----------------cut-here-------------------------cut-here--------
  30. *** etags.c    Wed Sep  2 15:02:54 1992
  31. --- dist/etags.c    Wed Dec 16 14:36:44 1992
  32. ***************
  33. *** 1,6 ****
  34. - /* Modified 2 September, 1990 to recognize fortran "entry" statement and
  35. -    "common" statement --ars */
  36. - 
  37.   /* Tags file maker to go with GNUmacs
  38.      Copyright (C) 1984, 1987, 1988 Free Software Foundation, Inc. and Ken Arnold
  39.   
  40. --- 1,3 ----
  41. ***************
  42. *** 93,98 ****
  43. --- 90,97 ----
  44.   
  45.   TYST tydef = none;
  46.   
  47. + logical next_token_is_func;
  48. + 
  49.   char    searchar = '/';            /* use /.../ searches         */
  50.   
  51.   int    lineno;            /* line number of current line */
  52. ***************
  53. *** 186,202 ****
  54.   #ifdef ETAGS
  55.     eflag = 1;
  56.   #else
  57. - #ifdef CTAGS
  58.     eflag = 0;
  59. - #else
  60. -   {
  61. -     char *subname = rindex (progname, '/');
  62. -     if (subname++ == NULL)
  63. -       subname = progname;
  64. -     eflag = ! strcmp(subname, "ctags");
  65. -   }
  66.   #endif
  67. - #endif
  68.   
  69.     while (ac > 1 && av[1][0] == '-')
  70.       {
  71. --- 185,192 ----
  72. ***************
  73. *** 744,749 ****
  74. --- 734,741 ----
  75.     number = 0;
  76.     gotone = midtoken = inquote = inchar = incomm = FALSE;
  77.     level = 0;
  78. +   tydef = none;
  79. +   next_token_is_func = 0;
  80.   
  81.     while (!feof (inf))
  82.       {
  83. ***************
  84. *** 893,899 ****
  85.   {
  86.     reg char *lp = *lpp;
  87.     reg char c;
  88. -   static logical next_token_is_func;
  89.     logical firsttok;    /* T if have seen first token in ()'s */
  90.     int bad, win;
  91.   
  92. --- 885,890 ----
  93. ***************
  94. *** 1077,1090 ****
  95.       continue;
  96.         switch (*dbp|' ')
  97.       {
  98. -     case 'c':
  99. -       if (tail("common"))
  100. -         getit();
  101. -       continue;
  102. -     case 'e':
  103. -       if (tail("entry"))
  104. -         getit();
  105. -       continue;
  106.       case 'f':
  107.         if (tail("function"))
  108.           getit();
  109. --- 1068,1073 ----
  110. ***************
  111. *** 1147,1153 ****
  112.     char c;
  113.     char nambuf[BUFSIZ];
  114.   
  115. !   while (isspace(*dbp) || *dbp == '/')
  116.       dbp++;
  117.     if (*dbp == 0 || !isalpha(*dbp))
  118.       return;
  119. --- 1130,1136 ----
  120.     char c;
  121.     char nambuf[BUFSIZ];
  122.   
  123. !   while (isspace(*dbp))
  124.       dbp++;
  125.     if (*dbp == 0 || !isalpha(*dbp))
  126.       return;
  127. ***************
  128. *** 1359,1364 ****
  129. --- 1342,1348 ----
  130.   
  131.   #define TEX_LESC '\\'
  132.   #define TEX_SESC '!'
  133. + #define TEX_CMT  '%'
  134.   
  135.   /* Figure out whether TeX's escapechar is '\\' or '!' and set grouping */
  136.   /* chars accordingly. */
  137. ***************
  138. *** 1366,1376 ****
  139.   TEX_mode (f)
  140.        FILE *f;
  141.   {
  142. !   int c;
  143.   
  144.     while ((c = getc (f)) != EOF)
  145. !     if (c == TEX_LESC || c == TEX_SESC)
  146. !       break;
  147.   
  148.     if (c == TEX_LESC)
  149.       {
  150. --- 1350,1368 ----
  151.   TEX_mode (f)
  152.        FILE *f;
  153.   {
  154. !   int c, skip_line = 0;
  155.   
  156.     while ((c = getc (f)) != EOF)
  157. !     {
  158. !       /* Skip to next line if we hit the TeX comment char. */
  159. !       if (c == TEX_CMT)
  160. !     skip_line = 1;
  161. !       else if (c == '\n')
  162. !     skip_line = 0;
  163. !       else if (! skip_line)
  164. !     if (c == TEX_LESC || c == TEX_SESC)
  165. !       break;
  166. !     }
  167.   
  168.     if (c == TEX_LESC)
  169.       {
  170. -- 
  171. Radey Shouman                    rshouman@chpc.utexas.edu
  172.