home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / emacs / 3802 < prev    next >
Encoding:
Text File  |  1992-12-16  |  2.0 KB  |  70 lines
  1. Newsgroups: comp.emacs
  2. Path: sparky!uunet!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.233828.7762@chpc.utexas.edu>
  6. Keywords: TAGS, EMACS
  7. Organization: The University of Texas System - CHPC
  8. References: <1992Dec16.164332.21910@jet.uk> <1992Dec16.212441.26891@chpc.utexas.edu>
  9. Date: Wed, 16 Dec 92 23:38:28 GMT
  10. Lines: 58
  11.  
  12. In article <1992Dec16.212441.26891@chpc.utexas.edu> rshouman@chpc.utexas.edu (Radey Shouman) writes:
  13. >I've modified etags.c, from GNU emacs 18.58, to find tags for fortran
  14. >"entry" and "common" statements.  A context diff giving the
  15. >necessary modifications follows.
  16.  
  17. Very sorry to follow up my own post, but I should make a correction to it:
  18. the version of etags.c that I used is from 18.57, not 18.58; I diffed it
  19. against the 18.58 etags.c, including some modifications other than those
  20. I made.  A set of diffs including, I hope, only changes I have made follow:
  21.  
  22. *** etags.c    Wed Sep  2 15:02:54 1992
  23. --- dist/etags.c    Wed Dec 16 17:35:18 1992
  24. ***************
  25. *** 1,6 ****
  26. - /* Modified 2 September, 1990 to recognize fortran "entry" statement and
  27. -    "common" statement --ars */
  28. - 
  29.   /* Tags file maker to go with GNUmacs
  30.      Copyright (C) 1984, 1987, 1988 Free Software Foundation, Inc. and Ken Arnold
  31.   
  32. --- 1,3 ----
  33. ***************
  34. *** 1077,1090 ****
  35.       continue;
  36.         switch (*dbp|' ')
  37.       {
  38. -     case 'c':
  39. -       if (tail("common"))
  40. -         getit();
  41. -       continue;
  42. -     case 'e':
  43. -       if (tail("entry"))
  44. -         getit();
  45. -       continue;
  46.       case 'f':
  47.         if (tail("function"))
  48.           getit();
  49. --- 1074,1079 ----
  50. ***************
  51. *** 1147,1153 ****
  52.     char c;
  53.     char nambuf[BUFSIZ];
  54.   
  55. !   while (isspace(*dbp) || *dbp == '/')
  56.       dbp++;
  57.     if (*dbp == 0 || !isalpha(*dbp))
  58.       return;
  59. --- 1136,1142 ----
  60.     char c;
  61.     char nambuf[BUFSIZ];
  62.   
  63. !   while (isspace(*dbp))
  64.       dbp++;
  65.     if (*dbp == 0 || !isalpha(*dbp))
  66.       return;
  67.  
  68. -- 
  69. Radey Shouman                    rshouman@chpc.utexas.edu
  70.