Mercurial > emacs
annotate lib-src/etags.c @ 64101:90caba02a18d
*** empty log message ***
author | Lute Kamstra <lute@gnu.org> |
---|---|
date | Wed, 06 Jul 2005 08:38:36 +0000 |
parents | 23a17af379b1 |
children | 6358e3c6075c f9a65d7ebd29 |
rev | line source |
---|---|
35653 | 1 /* Tags file maker to go with GNU Emacs -*- coding: latin-1 -*- |
58976
d44001b73ca8
(main): Fix typo in conversion of LONG_OPTIONS from
Andreas Schwab <schwab@suse.de>
parents:
58287
diff
changeset
|
2 Copyright (C) 1984, 1987-1989, 1993-1995, 1998-2001, 2002, 2004 |
11231 | 3 Free Software Foundation, Inc. and Ken Arnold |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14144
diff
changeset
|
4 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5 This file is not considered part of GNU Emacs. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
7 This program is free software; you can redistribute it and/or modify |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
8 it under the terms of the GNU General Public License as published by |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
9 the Free Software Foundation; either version 2 of the License, or |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
10 (at your option) any later version. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
11 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
12 This program is distributed in the hope that it will be useful, |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
15 GNU General Public License for more details. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
16 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
18 along with this program; if not, write to the Free Software Foundation, |
64083 | 19 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
240 | 20 |
21 /* | |
22 * Authors: | |
23 * Ctags originally by Ken Arnold. | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
24 * Fortran added by Jim Kleckner. |
240 | 25 * Ed Pelegri-Llopart added C typedefs. |
26 * Gnu Emacs TAGS format and modifications by RMS? | |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
27 * 1989 Sam Kendall added C++. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
28 * 1992 Joseph B. Wells improved C and C++ parsing. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
29 * 1993 Francesco Potort́ reorganised C and C++. |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
30 * 1994 Line-by-line regexp tags by Tom Tromey. |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
31 * 2001 Nested classes by Francesco Potort́ (concept by Mykola Dzyuba). |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
32 * 2002 #line directives by Francesco Potort́. |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
33 * |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
34 * Francesco Potort́ <pot@gnu.org> has maintained and improved it since 1993. |
240 | 35 */ |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
36 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
37 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
38 * If you want to add support for a new language, start by looking at the LUA |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
39 * language, which is the simplest. Alternatively, consider shipping a |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
40 * configuration file containing regexp definitions for etags. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
41 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
42 |
57091
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
43 char pot_etags_version[] = "@(#) pot revision number is 17.5"; |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
44 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
45 #define TRUE 1 |
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
46 #define FALSE 0 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
47 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
48 #ifdef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
49 # undef DEBUG |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
50 # define DEBUG TRUE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
51 #else |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
52 # define DEBUG FALSE |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
53 # define NDEBUG /* disable assert */ |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
54 #endif |
10754
cd1c0b5e8634
* etags.c (C_entries): Initialise the new members of TOKEN.
Francesco Potortì <pot@gnu.org>
parents:
10623
diff
changeset
|
55 |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
56 #ifdef HAVE_CONFIG_H |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
57 # include <config.h> |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
58 /* On some systems, Emacs defines static as nothing for the sake |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
59 of unexec. We don't want that here since we don't use unexec. */ |
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
60 # undef static |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
61 # define ETAGS_REGEXPS /* use the regexp features */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
62 # define LONG_OPTIONS /* accept long options */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
63 # ifndef PTR /* for Xemacs */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
64 # define PTR void * |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
65 # endif |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
66 # ifndef __P /* for Xemacs */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
67 # define __P(args) args |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
68 # endif |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
69 #else /* no config.h */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
70 # if defined(__STDC__) && (__STDC__ || defined(__SUNPRO_C)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
71 # define __P(args) args /* use prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
72 # define PTR void * /* for generic pointers */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
73 # else /* not standard C */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
74 # define __P(args) () /* no prototypes */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
75 # define const /* remove const for old compilers' sake */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
76 # define PTR long * /* don't use void* */ |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
77 # endif |
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
78 #endif /* !HAVE_CONFIG_H */ |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
24879
diff
changeset
|
79 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
80 #ifndef _GNU_SOURCE |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
81 # define _GNU_SOURCE 1 /* enables some compiler checks on GNU */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
82 #endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
83 |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
84 #ifdef LONG_OPTIONS |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
85 # undef LONG_OPTIONS |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
86 # define LONG_OPTIONS TRUE |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
87 #else |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
88 # define LONG_OPTIONS FALSE |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
89 #endif |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
90 |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
91 /* WIN32_NATIVE is for Xemacs. |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
92 MSDOS, WINDOWSNT, DOS_NT are for Emacs. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
93 #ifdef WIN32_NATIVE |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
94 # undef MSDOS |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
95 # undef WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
96 # define WINDOWSNT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
97 #endif /* WIN32_NATIVE */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
98 |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
99 #ifdef MSDOS |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
100 # undef MSDOS |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
101 # define MSDOS TRUE |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
102 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
103 # include <sys/param.h> |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
104 # include <io.h> |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
105 # ifndef HAVE_CONFIG_H |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
106 # define DOS_NT |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
107 # include <sys/config.h> |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
108 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
109 #else |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
110 # define MSDOS FALSE |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
111 #endif /* MSDOS */ |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
112 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
113 #ifdef WINDOWSNT |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
114 # include <stdlib.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
115 # include <fcntl.h> |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
116 # include <string.h> |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
117 # include <direct.h> |
14982
b470e33ce4a9
[WINDOWSNT]: Include io.h.
Richard M. Stallman <rms@gnu.org>
parents:
14924
diff
changeset
|
118 # include <io.h> |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
119 # define MAXPATHLEN _MAX_PATH |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
120 # undef HAVE_NTGUI |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
121 # undef DOS_NT |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
122 # define DOS_NT |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
123 # ifndef HAVE_GETCWD |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
124 # define HAVE_GETCWD |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
125 # endif /* undef HAVE_GETCWD */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
126 #else /* not WINDOWSNT */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
127 # ifdef STDC_HEADERS |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
128 # include <stdlib.h> |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
129 # include <string.h> |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
130 # else /* no standard C headers */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
131 extern char *getenv (); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
132 # ifdef VMS |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
133 # define EXIT_SUCCESS 1 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
134 # define EXIT_FAILURE 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
135 # else /* no VMS */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
136 # define EXIT_SUCCESS 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
137 # define EXIT_FAILURE 1 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
138 # endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
139 # endif |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
140 #endif /* !WINDOWSNT */ |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
141 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
142 #ifdef HAVE_UNISTD_H |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
143 # include <unistd.h> |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
144 #else |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
145 # if defined (HAVE_GETCWD) && !defined (WINDOWSNT) |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
146 extern char *getcwd (char *buf, size_t size); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
147 # endif |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
148 #endif /* HAVE_UNISTD_H */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
149 |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
150 #include <stdio.h> |
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
151 #include <ctype.h> |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
152 #include <errno.h> |
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
153 #ifndef errno |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
154 extern int errno; |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
155 #endif |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
156 #include <sys/types.h> |
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
157 #include <sys/stat.h> |
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
158 |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
159 #include <assert.h> |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
160 #ifdef NDEBUG |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
161 # undef assert /* some systems have a buggy assert.h */ |
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
162 # define assert(x) ((void) 0) |
35741
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
163 #endif |
e0acf4b43873
(assert) [__MINGW32__]: Redefine assert to work around a
Andrew Innes <andrewi@gnu.org>
parents:
35740
diff
changeset
|
164 |
4804
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
165 #if !defined (S_ISREG) && defined (S_IFREG) |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
166 # define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
167 #endif |
810826b6e19a
* etags.c (process_file): dead code removed.
Francesco Potortì <pot@gnu.org>
parents:
4750
diff
changeset
|
168 |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
169 #if LONG_OPTIONS |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
170 # include <getopt.h> |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
171 #else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
172 # define getopt_long(argc,argv,optstr,lopts,lind) getopt (argc, argv, optstr) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
173 extern char *optarg; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
174 extern int optind, opterr; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
175 #endif /* LONG_OPTIONS */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
176 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
177 #ifdef ETAGS_REGEXPS |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
178 # ifndef HAVE_CONFIG_H /* this is a standalone compilation */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
179 # ifdef __CYGWIN__ /* compiling on Cygwin */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
180 !!! NOTICE !!! |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
181 the regex.h distributed with Cygwin is not compatible with etags, alas! |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
182 If you want regular expression support, you should delete this notice and |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
183 arrange to use the GNU regex.h and regex.c. |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
184 # endif |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
185 # endif |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
186 # include <regex.h> |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
187 #endif /* ETAGS_REGEXPS */ |
3921
e5e5b3634dd0
* etags.c: #include "config.h" and the alloca CPP tangle before
Jim Blandy <jimb@redhat.com>
parents:
3838
diff
changeset
|
188 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
189 /* Define CTAGS to make the program "ctags" compatible with the usual one. |
17168
53314a257690
* etags.c (add_regex): reset *putbuf before using it.
Francesco Potortì <pot@gnu.org>
parents:
16733
diff
changeset
|
190 Leave it undefined to make the program "etags", which makes emacs-style |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
191 tag tables and tags typedefs, #defines and struct/union/enum by default. */ |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
192 #ifdef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
193 # undef CTAGS |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
194 # define CTAGS TRUE |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
195 #else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
196 # define CTAGS FALSE |
240 | 197 #endif |
198 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
199 #define streq(s,t) (assert((s)!=NULL || (t)!=NULL), !strcmp (s, t)) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
200 #define strcaseeq(s,t) (assert((s)!=NULL && (t)!=NULL), !etags_strcasecmp (s, t)) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
201 #define strneq(s,t,n) (assert((s)!=NULL || (t)!=NULL), !strncmp (s, t, n)) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
202 #define strncaseeq(s,t,n) (assert((s)!=NULL && (t)!=NULL), !etags_strncasecmp (s, t, n)) |
240 | 203 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
204 #define CHARS 256 /* 2^sizeof(char) */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
205 #define CHAR(x) ((unsigned int)(x) & (CHARS - 1)) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
206 #define iswhite(c) (_wht[CHAR(c)]) /* c is white (see white) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
207 #define notinname(c) (_nin[CHAR(c)]) /* c is not in a name (see nonam) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
208 #define begtoken(c) (_btk[CHAR(c)]) /* c can start token (see begtk) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
209 #define intoken(c) (_itk[CHAR(c)]) /* c can be in token (see midtk) */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
210 #define endtoken(c) (_etk[CHAR(c)]) /* c ends tokens (see endtk) */ |
240 | 211 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
212 #define ISALNUM(c) isalnum (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
213 #define ISALPHA(c) isalpha (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
214 #define ISDIGIT(c) isdigit (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
215 #define ISLOWER(c) islower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
216 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
217 #define lowcase(c) tolower (CHAR(c)) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
218 #define upcase(c) toupper (CHAR(c)) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
219 |
12344
7e7941d8cceb
* etags.c (find_entries): rewind before rereading the input file.
Francesco Potortì <pot@gnu.org>
parents:
12242
diff
changeset
|
220 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
221 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
222 * xnew, xrnew -- allocate, reallocate storage |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
223 * |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
224 * SYNOPSIS: Type *xnew (int n, Type); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
225 * void xrnew (OldPointer, int n, Type); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
226 */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
227 #if DEBUG |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
228 # include "chkmalloc.h" |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
229 # define xnew(n,Type) ((Type *) trace_malloc (__FILE__, __LINE__, \ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
230 (n) * sizeof (Type))) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
231 # define xrnew(op,n,Type) ((op) = (Type *) trace_realloc (__FILE__, __LINE__, \ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
232 (char *) (op), (n) * sizeof (Type))) |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
233 #else |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
234 # define xnew(n,Type) ((Type *) xmalloc ((n) * sizeof (Type))) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
235 # define xrnew(op,n,Type) ((op) = (Type *) xrealloc ( \ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
236 (char *) (op), (n) * sizeof (Type))) |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
237 #endif |
240 | 238 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
239 #define bool int |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
240 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
241 typedef void Lang_function __P((FILE *)); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
242 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
243 typedef struct |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
244 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
245 char *suffix; /* file name suffix for this compressor */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
246 char *command; /* takes one arg and decompresses to stdout */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
247 } compressor; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
248 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
249 typedef struct |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
250 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
251 char *name; /* language name */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
252 char *help; /* detailed help for the language */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
253 Lang_function *function; /* parse function */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
254 char **suffixes; /* name suffixes of this language's files */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
255 char **filenames; /* names of this language's files */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
256 char **interpreters; /* interpreters for this language */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
257 bool metasource; /* source used to generate other sources */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
258 } language; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
259 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
260 typedef struct fdesc |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
261 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
262 struct fdesc *next; /* for the linked list */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
263 char *infname; /* uncompressed input file name */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
264 char *infabsname; /* absolute uncompressed input file name */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
265 char *infabsdir; /* absolute dir of input file */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
266 char *taggedfname; /* file name to write in tagfile */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
267 language *lang; /* language of file */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
268 char *prop; /* file properties to write in tagfile */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
269 bool usecharno; /* etags tags shall contain char number */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
270 bool written; /* entry written in the tags file */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
271 } fdesc; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
272 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
273 typedef struct node_st |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
274 { /* sorting structure */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
275 struct node_st *left, *right; /* left and right sons */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
276 fdesc *fdp; /* description of file to whom tag belongs */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
277 char *name; /* tag name */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
278 char *regex; /* search regexp */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
279 bool valid; /* write this tag on the tag file */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
280 bool is_func; /* function tag: use regexp in CTAGS mode */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
281 bool been_warned; /* warning already given for duplicated tag */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
282 int lno; /* line number tag is on */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
283 long cno; /* character number line starts on */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
284 } node; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
285 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
286 /* |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
287 * A `linebuffer' is a structure which holds a line of text. |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
288 * `readline_internal' reads a line from a stream into a linebuffer |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
289 * and works regardless of the length of the line. |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
290 * SIZE is the size of BUFFER, LEN is the length of the string in |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
291 * BUFFER after readline reads it. |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
292 */ |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
293 typedef struct |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
294 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
295 long size; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
296 int len; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
297 char *buffer; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
298 } linebuffer; |
240 | 299 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
300 /* Used to support mixing of --lang and file names. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
301 typedef struct |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
302 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
303 enum { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
304 at_language, /* a language specification */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
305 at_regexp, /* a regular expression */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
306 at_filename, /* a file name */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
307 at_stdin, /* read from stdin here */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
308 at_end /* stop parsing the list */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
309 } arg_type; /* argument type */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
310 language *lang; /* language associated with the argument */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
311 char *what; /* the argument itself */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
312 } argument; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
313 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
314 #ifdef ETAGS_REGEXPS |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
315 /* Structure defining a regular expression. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
316 typedef struct regexp |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
317 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
318 struct regexp *p_next; /* pointer to next in list */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
319 language *lang; /* if set, use only for this language */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
320 char *pattern; /* the regexp pattern */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
321 char *name; /* tag name */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
322 struct re_pattern_buffer *pat; /* the compiled pattern */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
323 struct re_registers regs; /* re registers */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
324 bool error_signaled; /* already signaled for this regexp */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
325 bool force_explicit_name; /* do not allow implict tag name */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
326 bool ignore_case; /* ignore case when matching */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
327 bool multi_line; /* do a multi-line match on the whole file */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
328 } regexp; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
329 #endif /* ETAGS_REGEXPS */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
330 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
331 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
332 /* Many compilers barf on this: |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
333 Lang_function Ada_funcs; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
334 so let's write it this way */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
335 static void Ada_funcs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
336 static void Asm_labels __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
337 static void C_entries __P((int c_ext, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
338 static void default_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
339 static void plain_C_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
340 static void Cjava_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
341 static void Cobol_paragraphs __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
342 static void Cplusplus_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
343 static void Cstar_entries __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
344 static void Erlang_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
345 static void Fortran_functions __P((FILE *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
346 static void HTML_labels __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
347 static void Lisp_functions __P((FILE *)); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
348 static void Lua_functions __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
349 static void Makefile_targets __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
350 static void Pascal_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
351 static void Perl_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
352 static void PHP_functions __P((FILE *)); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
353 static void PS_functions __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
354 static void Prolog_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
355 static void Python_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
356 static void Scheme_functions __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
357 static void TeX_commands __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
358 static void Texinfo_nodes __P((FILE *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
359 static void Yacc_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
360 static void just_read_file __P((FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
361 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
362 static void print_language_names __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
363 static void print_version __P((void)); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
364 static void print_help __P((argument *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
365 int main __P((int, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
366 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
367 static compressor *get_compressor_from_suffix __P((char *, char **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
368 static language *get_language_from_langname __P((const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
369 static language *get_language_from_interpreter __P((char *)); |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
370 static language *get_language_from_filename __P((char *, bool)); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
371 static void readline __P((linebuffer *, FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
372 static long readline_internal __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
373 static bool nocase_tail __P((char *)); |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
374 static void get_tag __P((char *, char **)); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
375 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
376 #ifdef ETAGS_REGEXPS |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
377 static void analyse_regex __P((char *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
378 static void free_regexps __P((void)); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
379 static void regex_tag_multiline __P((void)); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
380 #endif /* ETAGS_REGEXPS */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
381 static void error __P((const char *, const char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
382 static void suggest_asking_for_help __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
383 void fatal __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
384 static void pfatal __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
385 static void add_node __P((node *, node **)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
386 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
387 static void init __P((void)); |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
388 static void process_file_name __P((char *, language *)); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
389 static void process_file __P((FILE *, char *, language *)); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
390 static void find_entries __P((FILE *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
391 static void free_tree __P((node *)); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
392 static void free_fdesc __P((fdesc *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
393 static void pfnote __P((char *, bool, char *, int, int, long)); |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
394 static void make_tag __P((char *, int, bool, char *, int, int, long)); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
395 static void invalidate_nodes __P((fdesc *, node **)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
396 static void put_entries __P((node *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
397 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
398 static char *concat __P((char *, char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
399 static char *skip_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
400 static char *skip_non_spaces __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
401 static char *savenstr __P((char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
402 static char *savestr __P((char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
403 static char *etags_strchr __P((const char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
404 static char *etags_strrchr __P((const char *, int)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
405 static int etags_strcasecmp __P((const char *, const char *)); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
406 static int etags_strncasecmp __P((const char *, const char *, int)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
407 static char *etags_getcwd __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
408 static char *relative_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
409 static char *absolute_filename __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
410 static char *absolute_dirname __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
411 static bool filename_is_absolute __P((char *f)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
412 static void canonicalize_filename __P((char *)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
413 static void linebuffer_init __P((linebuffer *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
414 static void linebuffer_setlen __P((linebuffer *, int)); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
415 static PTR xmalloc __P((unsigned int)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
416 static PTR xrealloc __P((char *, unsigned int)); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
417 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
418 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
419 static char searchar = '/'; /* use /.../ searches */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
420 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
421 static char *tagfile; /* output file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
422 static char *progname; /* name this program was invoked with */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
423 static char *cwd; /* current working directory */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
424 static char *tagfiledir; /* directory of tagfile */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
425 static FILE *tagf; /* ioptr for tags file */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
426 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
427 static fdesc *fdhead; /* head of file description list */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
428 static fdesc *curfdp; /* current file description */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
429 static int lineno; /* line number of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
430 static long charno; /* current character number */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
431 static long linecharno; /* charno of start of current line */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
432 static char *dbp; /* pointer to start of current tag */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
433 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
434 static const int invalidcharno = -1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
435 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
436 static node *nodehead; /* the head of the binary tree of tags */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
437 static node *last_node; /* the last node created */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
438 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
439 static linebuffer lb; /* the current line */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
440 static linebuffer filebuf; /* a buffer containing the whole file */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
441 static linebuffer token_name; /* a buffer containing a tag name */ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
442 |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
443 /* boolean "functions" (see init) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
444 static bool _wht[CHARS], _nin[CHARS], _itk[CHARS], _btk[CHARS], _etk[CHARS]; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
445 static char |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
446 /* white chars */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
447 *white = " \f\t\n\r\v", |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
448 /* not in a name */ |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
449 *nonam = " \f\t\n\r()=,;", /* look at make_tag before modifying! */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
450 /* token ending chars */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
451 *endtk = " \t\n\r\"'#()[]{}=-+%*/&|^~!<>;,.:?", |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
452 /* token starting chars */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
453 *begtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$~@", |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
454 /* valid in-token chars */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
455 *midtk = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz$0123456789"; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
456 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
457 static bool append_to_tagfile; /* -a: append to tags */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
458 /* The next four default to TRUE for etags, but to FALSE for ctags. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
459 static bool typedefs; /* -t: create tags for C and Ada typedefs */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
460 static bool typedefs_or_cplusplus; /* -T: create tags for C typedefs, level */ |
240 | 461 /* 0 struct/enum/union decls, and C++ */ |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
462 /* member functions. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
463 static bool constantypedefs; /* -d: create tags for C #define, enum */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
464 /* constants and variables. */ |
240 | 465 /* -D: opposite of -d. Default under ctags. */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
466 static bool globals; /* create tags for global variables */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
467 static bool declarations; /* --declarations: tag them and extern in C&Co*/ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
468 static bool members; /* create tags for C member variables */ |
45643
5cee84ffef53
(main): Avoid a buffer overrun with sprintf.
Francesco Potortì <pot@gnu.org>
parents:
45535
diff
changeset
|
469 static bool no_line_directive; /* ignore #line directives (undocumented) */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
470 static bool update; /* -u: update tags */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
471 static bool vgrind_style; /* -v: create vgrind style index output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
472 static bool no_warnings; /* -w: suppress warnings */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
473 static bool cxref_style; /* -x: create cxref style output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
474 static bool cplusplus; /* .[hc] means C++, not C */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
475 static bool ignoreindent; /* -I: ignore indentation in C */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
476 static bool packages_only; /* --packages-only: in Ada, only tag packages*/ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
477 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
478 #define STDIN 0x1001 /* returned by getopt_long on --parse-stdin */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
479 static bool parsing_stdin; /* --parse-stdin used */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
480 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
481 #ifdef ETAGS_REGEXPS |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
482 static regexp *p_head; /* list of all regexps */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
483 static bool need_filebuf; /* some regexes are multi-line */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
484 #else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
485 # define need_filebuf FALSE |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
486 #endif /* ETAGS_REGEXPS */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
487 |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
488 #if LONG_OPTIONS |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
489 static struct option longopts[] = |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
490 { |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
491 { "packages-only", no_argument, &packages_only, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
492 { "c++", no_argument, NULL, 'C' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
493 { "declarations", no_argument, &declarations, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
494 { "no-line-directive", no_argument, &no_line_directive, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
495 { "help", no_argument, NULL, 'h' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
496 { "help", no_argument, NULL, 'H' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
497 { "ignore-indentation", no_argument, NULL, 'I' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
498 { "language", required_argument, NULL, 'l' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
499 { "members", no_argument, &members, TRUE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
500 { "no-members", no_argument, &members, FALSE }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
501 { "output", required_argument, NULL, 'o' }, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
502 #ifdef ETAGS_REGEXPS |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
503 { "regex", required_argument, NULL, 'r' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
504 { "no-regex", no_argument, NULL, 'R' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
505 { "ignore-case-regex", required_argument, NULL, 'c' }, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
506 #endif /* ETAGS_REGEXPS */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
507 { "parse-stdin", required_argument, NULL, STDIN }, |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
508 { "version", no_argument, NULL, 'V' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
509 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
510 #if CTAGS /* Etags options */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
511 { "backward-search", no_argument, NULL, 'B' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
512 { "cxref", no_argument, NULL, 'x' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
513 { "defines", no_argument, NULL, 'd' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
514 { "globals", no_argument, &globals, TRUE }, |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
515 { "typedefs", no_argument, NULL, 't' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
516 { "typedefs-and-c++", no_argument, NULL, 'T' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
517 { "update", no_argument, NULL, 'u' }, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
518 { "vgrind", no_argument, NULL, 'v' }, |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
519 { "no-warn", no_argument, NULL, 'w' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
520 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
521 #else /* Ctags options */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
522 { "append", no_argument, NULL, 'a' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
523 { "no-defines", no_argument, NULL, 'D' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
524 { "no-globals", no_argument, &globals, FALSE }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
525 { "include", required_argument, NULL, 'i' }, |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
526 #endif |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
527 { NULL } |
621 | 528 }; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
529 #endif /* LONG_OPTIONS */ |
621 | 530 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
531 static compressor compressors[] = |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
532 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
533 { "z", "gzip -d -c"}, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
534 { "Z", "gzip -d -c"}, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
535 { "gz", "gzip -d -c"}, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
536 { "GZ", "gzip -d -c"}, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
537 { "bz2", "bzip2 -d -c" }, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
538 { NULL } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
539 }; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
540 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
541 /* |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
542 * Language stuff. |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
543 */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
544 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
545 /* Ada code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
546 static char *Ada_suffixes [] = |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
547 { "ads", "adb", "ada", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
548 static char Ada_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
549 "In Ada code, functions, procedures, packages, tasks and types are\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
550 tags. Use the `--packages-only' option to create tags for\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
551 packages only.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
552 Ada tag names have suffixes indicating the type of entity:\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
553 Entity type: Qualifier:\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
554 ------------ ----------\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
555 function /f\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
556 procedure /p\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
557 package spec /s\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
558 package body /b\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
559 type /t\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
560 task /k\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
561 Thus, `M-x find-tag <RET> bidule/b <RET>' will go directly to the\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
562 body of the package `bidule', while `M-x find-tag <RET> bidule <RET>'\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
563 will just search for any tag `bidule'."; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
564 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
565 /* Assembly code */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
566 static char *Asm_suffixes [] = |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
567 { "a", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
568 "asm", /* Microcontroller assembly */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
569 "def", /* BSO/Tasking definition includes */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
570 "inc", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
571 "ins", /* Microcontroller include files */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
572 "s", "sa", /* Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
573 "S", /* cpp-processed Unix assembler */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
574 "src", /* BSO/Tasking C compiler output */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
575 NULL |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
576 }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
577 static char Asm_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
578 "In assembler code, labels appearing at the beginning of a line,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
579 followed by a colon, are tags."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
580 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
581 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
582 /* Note that .c and .h can be considered C++, if the --c++ flag was |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
583 given, or if the `class' or `template' keyowrds are met inside the file. |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
584 That is why default_C_entries is called for these. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
585 static char *default_C_suffixes [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
586 { "c", "h", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
587 static char default_C_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
588 "In C code, any C function or typedef is a tag, and so are\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
589 definitions of `struct', `union' and `enum'. `#define' macro\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
590 definitions and `enum' constants are tags unless you specify\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
591 `--no-defines'. Global variables are tags unless you specify\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
592 `--no-globals'. Use of `--no-globals' and `--no-defines'\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
593 can make the tags table file much smaller.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
594 You can tag function declarations and external variables by\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
595 using `--declarations', and struct members by using `--members'."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
596 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
597 static char *Cplusplus_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
598 { "C", "c++", "cc", "cpp", "cxx", "H", "h++", "hh", "hpp", "hxx", |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
599 "M", /* Objective C++ */ |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
600 "pdb", /* Postscript with C syntax */ |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
601 NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
602 static char Cplusplus_help [] = |
49360
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
603 "In C++ code, all the tag constructs of C code are tagged. (Use\n\ |
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
604 --help --lang=c --lang=c++ for full help.)\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
605 In addition to C tags, member functions are also recognized, and\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
606 optionally member variables if you use the `--members' option.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
607 Tags for variables and functions in classes are named `CLASS::VARIABLE'\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
608 and `CLASS::FUNCTION'. `operator' definitions have tag names like\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
609 `operator+'."; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
610 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
611 static char *Cjava_suffixes [] = |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
612 { "java", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
613 static char Cjava_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
614 "In Java code, all the tags constructs of C and C++ code are\n\ |
49360
d257d0cb93b4
(Cplusplus_help, Cjava_help): Re-phrase and avoid
Dave Love <fx@gnu.org>
parents:
49125
diff
changeset
|
615 tagged. (Use --help --lang=c --lang=c++ --lang=java for full help.)"; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
616 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
617 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
618 static char *Cobol_suffixes [] = |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
619 { "COB", "cob", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
620 static char Cobol_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
621 "In Cobol code, tags are paragraph names; that is, any word\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
622 starting in column 8 and followed by a period."; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
623 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
624 static char *Cstar_suffixes [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
625 { "cs", "hs", NULL }; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
626 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
627 static char *Erlang_suffixes [] = |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
628 { "erl", "hrl", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
629 static char Erlang_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
630 "In Erlang code, the tags are the functions, records and macros\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
631 defined in the file."; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
632 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
633 static char *Fortran_suffixes [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
634 { "F", "f", "f90", "for", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
635 static char Fortran_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
636 "In Fortran code, functions, subroutines and block data are tags."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
637 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
638 static char *HTML_suffixes [] = |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
639 { "htm", "html", "shtml", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
640 static char HTML_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
641 "In HTML input files, the tags are the `title' and the `h1', `h2',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
642 `h3' headers. Also, tags are `name=' in anchors and all\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
643 occurrences of `id='."; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
644 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
645 static char *Lisp_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
646 { "cl", "clisp", "el", "l", "lisp", "LSP", "lsp", "ml", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
647 static char Lisp_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
648 "In Lisp code, any function defined with `defun', any variable\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
649 defined with `defvar' or `defconst', and in general the first\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
650 argument of any expression that starts with `(def' in column zero\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
651 is a tag."; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
652 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
653 static char *Lua_suffixes [] = |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
654 { "lua", "LUA", NULL }; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
655 static char Lua_help [] = |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
656 "In Lua scripts, all functions are tags."; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
657 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
658 static char *Makefile_filenames [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
659 { "Makefile", "makefile", "GNUMakefile", "Makefile.in", "Makefile.am", NULL}; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
660 static char Makefile_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
661 "In makefiles, targets are tags; additionally, variables are tags\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
662 unless you specify `--no-globals'."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
663 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
664 static char *Objc_suffixes [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
665 { "lm", /* Objective lex file */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
666 "m", /* Objective C file */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
667 NULL }; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
668 static char Objc_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
669 "In Objective C code, tags include Objective C definitions for classes,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
670 class categories, methods and protocols. Tags for variables and\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
671 functions in classes are named `CLASS::VARIABLE' and `CLASS::FUNCTION'."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
672 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
673 static char *Pascal_suffixes [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
674 { "p", "pas", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
675 static char Pascal_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
676 "In Pascal code, the tags are the functions and procedures defined\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
677 in the file."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
678 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
679 static char *Perl_suffixes [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
680 { "pl", "pm", NULL }; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
681 static char *Perl_interpreters [] = |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
682 { "perl", "@PERL@", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
683 static char Perl_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
684 "In Perl code, the tags are the packages, subroutines and variables\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
685 defined by the `package', `sub', `my' and `local' keywords. Use\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
686 `--globals' if you want to tag global variables. Tags for\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
687 subroutines are named `PACKAGE::SUB'. The name for subroutines\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
688 defined in the default package is `main::SUB'."; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
689 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
690 static char *PHP_suffixes [] = |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
691 { "php", "php3", "php4", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
692 static char PHP_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
693 "In PHP code, tags are functions, classes and defines. When using\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
694 the `--members' option, vars are tags too."; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
695 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
696 static char *plain_C_suffixes [] = |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
697 { "pc", /* Pro*C file */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
698 NULL }; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
699 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
700 static char *PS_suffixes [] = |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
701 { "ps", "psw", NULL }; /* .psw is for PSWrap */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
702 static char PS_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
703 "In PostScript code, the tags are the functions."; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
704 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
705 static char *Prolog_suffixes [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
706 { "prolog", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
707 static char Prolog_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
708 "In Prolog code, tags are predicates and rules at the beginning of\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
709 line."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
710 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
711 static char *Python_suffixes [] = |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
712 { "py", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
713 static char Python_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
714 "In Python code, `def' or `class' at the beginning of a line\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
715 generate a tag."; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
716 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
717 /* Can't do the `SCM' or `scm' prefix with a version number. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
718 static char *Scheme_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
719 { "oak", "sch", "scheme", "SCM", "scm", "SM", "sm", "ss", "t", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
720 static char Scheme_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
721 "In Scheme code, tags include anything defined with `def' or with a\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
722 construct whose name starts with `def'. They also include\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
723 variables set with `set!' at top level in the file."; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
724 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
725 static char *TeX_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
726 { "bib", "clo", "cls", "ltx", "sty", "TeX", "tex", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
727 static char TeX_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
728 "In LaTeX text, the argument of any of the commands `\\chapter',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
729 `\\section', `\\subsection', `\\subsubsection', `\\eqno', `\\label',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
730 `\\ref', `\\cite', `\\bibitem', `\\part', `\\appendix', `\\entry',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
731 `\\index', `\\def', `\\newcommand', `\\renewcommand',\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
732 `\\newenvironment' or `\\renewenvironment' is a tag.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
733 \n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
734 Other commands can be specified by setting the environment variable\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
735 `TEXTAGS' to a colon-separated list like, for example,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
736 TEXTAGS=\"mycommand:myothercommand\"."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
737 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
738 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
739 static char *Texinfo_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
740 { "texi", "texinfo", "txi", NULL }; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
741 static char Texinfo_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
742 "for texinfo files, lines starting with @node are tagged."; |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
743 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
744 static char *Yacc_suffixes [] = |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
745 { "y", "y++", "ym", "yxx", "yy", NULL }; /* .ym is Objective yacc file */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
746 static char Yacc_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
747 "In Bison or Yacc input files, each rule defines as a tag the\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
748 nonterminal it constructs. The portions of the file that contain\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
749 C code are parsed as C code (use --help --lang=c --lang=yacc\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
750 for full help)."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
751 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
752 static char auto_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
753 "`auto' is not a real language, it indicates to use\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
754 a default language for files base on file name suffix and file contents."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
755 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
756 static char none_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
757 "`none' is not a real language, it indicates to only do\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
758 regexp processing on files."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
759 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
760 static char no_lang_help [] = |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
761 "No detailed help available for this language."; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
762 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
763 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
764 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
765 * Table of languages. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
766 * |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
767 * It is ok for a given function to be listed under more than one |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
768 * name. I just didn't. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
769 */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
770 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
771 static language lang_names [] = |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
772 { |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
773 { "ada", Ada_help, Ada_funcs, Ada_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
774 { "asm", Asm_help, Asm_labels, Asm_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
775 { "c", default_C_help, default_C_entries, default_C_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
776 { "c++", Cplusplus_help, Cplusplus_entries, Cplusplus_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
777 { "c*", no_lang_help, Cstar_entries, Cstar_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
778 { "cobol", Cobol_help, Cobol_paragraphs, Cobol_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
779 { "erlang", Erlang_help, Erlang_functions, Erlang_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
780 { "fortran", Fortran_help, Fortran_functions, Fortran_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
781 { "html", HTML_help, HTML_labels, HTML_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
782 { "java", Cjava_help, Cjava_entries, Cjava_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
783 { "lisp", Lisp_help, Lisp_functions, Lisp_suffixes }, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
784 { "lua", Lua_help, Lua_functions, Lua_suffixes }, |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
785 { "makefile", Makefile_help,Makefile_targets,NULL,Makefile_filenames}, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
786 { "objc", Objc_help, plain_C_entries, Objc_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
787 { "pascal", Pascal_help, Pascal_functions, Pascal_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
788 { "perl",Perl_help,Perl_functions,Perl_suffixes,NULL,Perl_interpreters}, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
789 { "php", PHP_help, PHP_functions, PHP_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
790 { "postscript",PS_help, PS_functions, PS_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
791 { "proc", no_lang_help, plain_C_entries, plain_C_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
792 { "prolog", Prolog_help, Prolog_functions, Prolog_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
793 { "python", Python_help, Python_functions, Python_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
794 { "scheme", Scheme_help, Scheme_functions, Scheme_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
795 { "tex", TeX_help, TeX_commands, TeX_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
796 { "texinfo", Texinfo_help, Texinfo_nodes, Texinfo_suffixes }, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
797 { "yacc", Yacc_help,Yacc_entries,Yacc_suffixes,NULL,NULL,TRUE}, |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
798 { "auto", auto_help }, /* default guessing scheme */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
799 { "none", none_help, just_read_file }, /* regexp matching only */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
800 { NULL } /* end of list */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
801 }; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
802 |
240 | 803 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
804 static void |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
805 print_language_names () |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
806 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
807 language *lang; |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
808 char **name, **ext; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
809 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
810 puts ("\nThese are the currently supported languages, along with the\n\ |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
811 default file names and dot suffixes:"); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
812 for (lang = lang_names; lang->name != NULL; lang++) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
813 { |
35302
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
814 printf (" %-*s", 10, lang->name); |
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
815 if (lang->filenames != NULL) |
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
816 for (name = lang->filenames; *name != NULL; name++) |
6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
35297
diff
changeset
|
817 printf (" %s", *name); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
818 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
819 for (ext = lang->suffixes; *ext != NULL; ext++) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
820 printf (" .%s", *ext); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
821 puts (""); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
822 } |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
823 puts ("where `auto' means use default language for files based on file\n\ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
824 name suffix, and `none' means only do regexp processing on files.\n\ |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
825 If no language is specified and no matching suffix is found,\n\ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
826 the first line of the file is read for a sharp-bang (#!) sequence\n\ |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
827 followed by the name of an interpreter. If no such sequence is found,\n\ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
828 Fortran is tried first; if no tags are found, C is tried next.\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
829 When parsing any C file, a \"class\" or \"template\" keyword\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
830 switches to C++."); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
831 puts ("Compressed files are supported using gzip and bzip2.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
832 \n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
833 For detailed help on a given language use, for example,\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
834 etags --help --lang=ada."); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
835 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
836 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
837 #ifndef EMACS_NAME |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
838 # define EMACS_NAME "standalone" |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
839 #endif |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
840 #ifndef VERSION |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
841 # define VERSION "version" |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
842 #endif |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
843 static void |
621 | 844 print_version () |
845 { | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
846 printf ("%s (%s %s)\n", (CTAGS) ? "ctags" : "etags", EMACS_NAME, VERSION); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
847 puts ("Copyright (C) 2002 Free Software Foundation, Inc. and Ken Arnold"); |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
848 puts ("This program is distributed under the same terms as Emacs"); |
621 | 849 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
850 exit (EXIT_SUCCESS); |
621 | 851 } |
852 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
853 static void |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
854 print_help (argbuffer) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
855 argument *argbuffer; |
621 | 856 { |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
857 bool help_for_lang = FALSE; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
858 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
859 for (; argbuffer->arg_type != at_end; argbuffer++) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
860 if (argbuffer->arg_type == at_language) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
861 { |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
862 if (help_for_lang) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
863 puts (""); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
864 puts (argbuffer->lang->help); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
865 help_for_lang = TRUE; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
866 } |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
867 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
868 if (help_for_lang) |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
869 exit (EXIT_SUCCESS); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
870 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
871 printf ("Usage: %s [options] [[regex-option ...] file-name] ...\n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
872 \n\ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
873 These are the options accepted by %s.\n", progname, progname); |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
874 if (LONG_OPTIONS) |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
875 puts ("You may use unambiguous abbreviations for the long option names."); |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
876 else |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
877 puts ("Long option names do not work with this executable, as it is not\n\ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
878 linked with GNU getopt."); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
879 puts (" A - as file name means read names from stdin (one per line).\n\ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
880 Absolute names are stored in the output file as they are.\n\ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
881 Relative ones are stored relative to the output file's directory.\n"); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
882 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
883 if (!CTAGS) |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
884 puts ("-a, --append\n\ |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
885 Append tag entries to existing tags file."); |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
886 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
887 puts ("--packages-only\n\ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
888 For Ada files, only generate tags for packages."); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
889 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
890 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
891 puts ("-B, --backward-search\n\ |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
892 Write the search commands for the tag entries using '?', the\n\ |
6945
63ab519f7057
* etags.c (main, print_help): eliminate the -F option.
Francesco Potortì <pot@gnu.org>
parents:
6944
diff
changeset
|
893 backward-search command instead of '/', the forward-search command."); |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
894 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
895 /* This option is mostly obsolete, because etags can now automatically |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
896 detect C++. Retained for backward compatibility and for debugging and |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
897 experimentation. In principle, we could want to tag as C++ even |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
898 before any "class" or "template" keyword. |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
899 puts ("-C, --c++\n\ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
900 Treat files whose name suffix defaults to C language as C++ files."); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
901 */ |
621 | 902 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
903 puts ("--declarations\n\ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
904 In C and derived languages, create tags for function declarations,"); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
905 if (CTAGS) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
906 puts ("\tand create tags for extern variables if --globals is used."); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
907 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
908 puts |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
909 ("\tand create tags for extern variables unless --no-globals is used."); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
910 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
911 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
912 puts ("-d, --defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
913 Create tag entries for C #define constants and enum constants, too."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
914 else |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
915 puts ("-D, --no-defines\n\ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
916 Don't create tag entries for C #define constants and enum constants.\n\ |
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
917 This makes the tags file smaller."); |
621 | 918 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
919 if (!CTAGS) |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
920 puts ("-i FILE, --include=FILE\n\ |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
921 Include a note in tag file indicating that, when searching for\n\ |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
922 a tag, one should also consult the tags file FILE after\n\ |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
923 checking the current file."); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
924 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
925 puts ("-l LANG, --language=LANG\n\ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
926 Force the following files to be considered as written in the\n\ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
927 named language up to the next --language=LANG option."); |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
928 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
929 if (CTAGS) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
930 puts ("--globals\n\ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
931 Create tag entries for global variables in some languages."); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
932 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
933 puts ("--no-globals\n\ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
934 Do not create tag entries for global variables in some\n\ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
935 languages. This makes the tags file smaller."); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
936 puts ("--members\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
937 Create tag entries for members of structures in some languages."); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
938 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
939 #ifdef ETAGS_REGEXPS |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
940 puts ("-r REGEXP, --regex=REGEXP or --regex=@regexfile\n\ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
941 Make a tag for each line matching a regular expression pattern\n\ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
942 in the following files. {LANGUAGE}REGEXP uses REGEXP for LANGUAGE\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
943 files only. REGEXFILE is a file containing one REGEXP per line.\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
944 REGEXP takes the form /TAGREGEXP/TAGNAME/MODS, where TAGNAME/ is\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
945 optional. The TAGREGEXP pattern is anchored (as if preceded by ^)."); |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
946 puts (" If TAGNAME/ is present, the tags created are named.\n\ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
947 For example Tcl named tags can be created with:\n\ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
948 --regex=\"/proc[ \\t]+\\([^ \\t]+\\)/\\1/.\".\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
949 MODS are optional one-letter modifiers: `i' means to ignore case,\n\ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
950 `m' means to allow multi-line matches, `s' implies `m' and\n\ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
951 causes dot to match any character, including newline."); |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
952 puts ("-R, --no-regex\n\ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
953 Don't create tags from regexps for the following files."); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
954 #endif /* ETAGS_REGEXPS */ |
10449
2266157d9bcc
* etags.c (longopts, print_help, main): Use -I as abbreviation
Francesco Potortì <pot@gnu.org>
parents:
10404
diff
changeset
|
955 puts ("-I, --ignore-indentation\n\ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
956 In C and C++ do not assume that a closing brace in the first\n\ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
957 column is the final brace of a function or structure definition."); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
958 puts ("-o FILE, --output=FILE\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
959 Write the tags to FILE."); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
960 puts ("--parse-stdin=NAME\n\ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
961 Read from standard input and record tags as belonging to file NAME."); |
621 | 962 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
963 if (CTAGS) |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
964 { |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
965 puts ("-t, --typedefs\n\ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
966 Generate tag entries for C and Ada typedefs."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
967 puts ("-T, --typedefs-and-c++\n\ |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
968 Generate tag entries for C typedefs, C struct/enum/union tags,\n\ |
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
969 and C++ member functions."); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
970 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
971 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
972 if (CTAGS) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
973 puts ("-u, --update\n\ |
621 | 974 Update the tag entries for the given files, leaving tag\n\ |
975 entries for other files in place. Currently, this is\n\ | |
976 implemented by deleting the existing entries for the given\n\ | |
977 files and then rewriting the new entries at the end of the\n\ | |
978 tags file. It is often faster to simply rebuild the entire\n\ | |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
979 tag file than to use this."); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
980 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
981 if (CTAGS) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
982 { |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
983 puts ("-v, --vgrind\n\ |
621 | 984 Generates an index of items intended for human consumption,\n\ |
985 similar to the output of vgrind. The index is sorted, and\n\ | |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
986 gives the page number of each item."); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
987 puts ("-w, --no-warn\n\ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
988 Suppress warning messages about entries defined in multiple\n\ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
989 files."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
990 puts ("-x, --cxref\n\ |
621 | 991 Like --vgrind, but in the style of cxref, rather than vgrind.\n\ |
992 The output uses line numbers instead of page numbers, but\n\ | |
993 beyond that the differences are cosmetic; try both to see\n\ | |
4126
9a906e5f9b28
* etags.c (print_help): Break up the very long strings containing
Jim Blandy <jimb@redhat.com>
parents:
4052
diff
changeset
|
994 which you like."); |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
995 } |
621 | 996 |
997 puts ("-V, --version\n\ | |
998 Print the version of the program.\n\ | |
10047
9b284d98b102
* etags.c (print_help): print --regex usage for ctags also.
Francesco Potortì <pot@gnu.org>
parents:
9976
diff
changeset
|
999 -h, --help\n\ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1000 Print this help message.\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1001 Followed by one or more `--language' options prints detailed\n\ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1002 help about tag generation for the specified languages."); |
621 | 1003 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1004 print_language_names (); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1005 |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
1006 puts (""); |
26323
98d99afb5ffb
* etags.c (print_help): Change email address to send bugs to.
Gerd Moellmann <gerd@gnu.org>
parents:
26262
diff
changeset
|
1007 puts ("Report bugs to bug-gnu-emacs@gnu.org"); |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
1008 |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1009 exit (EXIT_SUCCESS); |
621 | 1010 } |
1011 | |
1012 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1013 #ifdef VMS /* VMS specific functions */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1014 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1015 #define EOS '\0' |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1016 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1017 /* This is a BUG! ANY arbitrary limit is a BUG! |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1018 Won't someone please fix this? */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1019 #define MAX_FILE_SPEC_LEN 255 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1020 typedef struct { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1021 short curlen; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1022 char body[MAX_FILE_SPEC_LEN + 1]; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1023 } vspec; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1024 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1025 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1026 v1.05 nmm 26-Jun-86 fn_exp - expand specification of list of file names |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1027 returning in each successive call the next file name matching the input |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1028 spec. The function expects that each in_spec passed |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1029 to it will be processed to completion; in particular, up to and |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1030 including the call following that in which the last matching name |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1031 is returned, the function ignores the value of in_spec, and will |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1032 only start processing a new spec with the following call. |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1033 If an error occurs, on return out_spec contains the value |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1034 of in_spec when the error occurred. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1035 |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1036 With each successive file name returned in out_spec, the |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1037 function's return value is one. When there are no more matching |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1038 names the function returns zero. If on the first call no file |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1039 matches in_spec, or there is any other error, -1 is returned. |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1040 */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1041 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1042 #include <rmsdef.h> |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1043 #include <descrip.h> |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1044 #define OUTSIZE MAX_FILE_SPEC_LEN |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1045 static short |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1046 fn_exp (out, in) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1047 vspec *out; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1048 char *in; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1049 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1050 static long context = 0; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1051 static struct dsc$descriptor_s o; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1052 static struct dsc$descriptor_s i; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1053 static bool pass1 = TRUE; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1054 long status; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1055 short retval; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1056 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1057 if (pass1) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1058 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1059 pass1 = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1060 o.dsc$a_pointer = (char *) out; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1061 o.dsc$w_length = (short)OUTSIZE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1062 i.dsc$a_pointer = in; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1063 i.dsc$w_length = (short)strlen(in); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1064 i.dsc$b_dtype = DSC$K_DTYPE_T; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1065 i.dsc$b_class = DSC$K_CLASS_S; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1066 o.dsc$b_dtype = DSC$K_DTYPE_VT; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1067 o.dsc$b_class = DSC$K_CLASS_VS; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1068 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1069 if ((status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1070 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1071 out->body[out->curlen] = EOS; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1072 return 1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1073 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1074 else if (status == RMS$_NMF) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1075 retval = 0; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1076 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1077 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1078 strcpy(out->body, in); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1079 retval = -1; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1080 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1081 lib$find_file_end(&context); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1082 pass1 = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1083 return retval; |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1084 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1085 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1086 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1087 v1.01 nmm 19-Aug-85 gfnames - return in successive calls the |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1088 name of each file specified by the provided arg expanding wildcards. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1089 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1090 static char * |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1091 gfnames (arg, p_error) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1092 char *arg; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1093 bool *p_error; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1094 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1095 static vspec filename = {MAX_FILE_SPEC_LEN, "\0"}; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1096 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1097 switch (fn_exp (&filename, arg)) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1098 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1099 case 1: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1100 *p_error = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1101 return filename.body; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1102 case 0: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1103 *p_error = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1104 return NULL; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1105 default: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1106 *p_error = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1107 return filename.body; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1108 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1109 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1110 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1111 #ifndef OLD /* Newer versions of VMS do provide `system'. */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1112 system (cmd) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1113 char *cmd; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1114 { |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1115 error ("%s", "system() function not implemented under VMS"); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1116 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1117 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1118 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1119 #define VERSION_DELIM ';' |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1120 char *massage_name (s) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1121 char *s; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1122 { |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1123 char *start = s; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1124 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1125 for ( ; *s; s++) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1126 if (*s == VERSION_DELIM) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1127 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1128 *s = EOS; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1129 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1130 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1131 else |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1132 *s = lowcase (*s); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1133 return start; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1134 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1135 #endif /* VMS */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1136 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1137 |
15683 | 1138 int |
240 | 1139 main (argc, argv) |
1140 int argc; | |
1141 char *argv[]; | |
1142 { | |
1143 int i; | |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1144 unsigned int nincluded_files; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1145 char **included_files; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1146 argument *argbuffer; |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1147 int current_arg, file_count; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1148 linebuffer filename_lb; |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1149 bool help_asked = FALSE; |
240 | 1150 #ifdef VMS |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1151 bool got_err; |
240 | 1152 #endif |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1153 char *optstring; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1154 int opt; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1155 |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
1156 |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
1157 #ifdef DOS_NT |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1158 _fmode = O_BINARY; /* all of files are treated as binary files */ |
9773
bd49556a7552
(main, etags_getcwd): Test DOS_NT instead of MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
9635
diff
changeset
|
1159 #endif /* DOS_NT */ |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
5044
diff
changeset
|
1160 |
240 | 1161 progname = argv[0]; |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1162 nincluded_files = 0; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1163 included_files = xnew (argc, char *); |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1164 current_arg = 0; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
1165 file_count = 0; |
240 | 1166 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1167 /* Allocate enough no matter what happens. Overkill, but each one |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1168 is small. */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1169 argbuffer = xnew (argc, argument); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1170 |
240 | 1171 /* |
1172 * If etags, always find typedefs and structure tags. Why not? | |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
1173 * Also default to find macro constants, enum constants and |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1174 * global variables. |
240 | 1175 */ |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1176 if (!CTAGS) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1177 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1178 typedefs = typedefs_or_cplusplus = constantypedefs = TRUE; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1179 globals = TRUE; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1180 } |
240 | 1181 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1182 optstring = "-"; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1183 #ifdef ETAGS_REGEXPS |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1184 optstring = "-r:Rc:"; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1185 #endif /* ETAGS_REGEXPS */ |
58976
d44001b73ca8
(main): Fix typo in conversion of LONG_OPTIONS from
Andreas Schwab <schwab@suse.de>
parents:
58287
diff
changeset
|
1186 if (!LONG_OPTIONS) |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
1187 optstring += 1; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1188 optstring = concat (optstring, |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1189 "Cf:Il:o:SVhH", |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1190 (CTAGS) ? "BxdtTuvw" : "aDi:"); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1191 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1192 while ((opt = getopt_long (argc, argv, optstring, longopts, 0)) != EOF) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1193 switch (opt) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1194 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1195 case 0: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1196 /* If getopt returns 0, then it has already processed a |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1197 long-named option. We should do nothing. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1198 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1199 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1200 case 1: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1201 /* This means that a file name has been seen. Record it. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1202 argbuffer[current_arg].arg_type = at_filename; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1203 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1204 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1205 ++file_count; |
621 | 1206 break; |
1207 | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1208 case STDIN: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1209 /* Parse standard input. Idea by Vivek <vivek@etla.org>. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1210 argbuffer[current_arg].arg_type = at_stdin; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1211 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1212 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1213 ++file_count; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1214 if (parsing_stdin) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
1215 fatal ("cannot parse standard input more than once", (char *)NULL); |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1216 parsing_stdin = TRUE; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1217 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1218 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1219 /* Common options. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1220 case 'C': cplusplus = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1221 case 'f': /* for compatibility with old makefiles */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1222 case 'o': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1223 if (tagfile) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1224 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1225 error ("-o option may only be given once.", (char *)NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1226 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1227 /* NOTREACHED */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1228 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1229 tagfile = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1230 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1231 case 'I': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1232 case 'S': /* for backward compatibility */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
1233 ignoreindent = TRUE; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1234 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1235 case 'l': |
240 | 1236 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1237 language *lang = get_language_from_langname (optarg); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1238 if (lang != NULL) |
621 | 1239 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1240 argbuffer[current_arg].lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1241 argbuffer[current_arg].arg_type = at_language; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1242 ++current_arg; |
240 | 1243 } |
1244 } | |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1245 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1246 case 'c': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1247 /* Backward compatibility: support obsolete --ignore-case-regexp. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1248 optarg = concat (optarg, "i", ""); /* memory leak here */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1249 /* FALLTHRU */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1250 case 'r': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1251 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1252 argbuffer[current_arg].what = optarg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1253 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1254 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1255 case 'R': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1256 argbuffer[current_arg].arg_type = at_regexp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1257 argbuffer[current_arg].what = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1258 ++current_arg; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1259 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1260 case 'V': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1261 print_version (); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1262 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1263 case 'h': |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1264 case 'H': |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1265 help_asked = TRUE; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1266 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1267 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1268 /* Etags options */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1269 case 'a': append_to_tagfile = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1270 case 'D': constantypedefs = FALSE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1271 case 'i': included_files[nincluded_files++] = optarg; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1272 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1273 /* Ctags options. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1274 case 'B': searchar = '?'; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1275 case 'd': constantypedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1276 case 't': typedefs = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1277 case 'T': typedefs = typedefs_or_cplusplus = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1278 case 'u': update = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1279 case 'v': vgrind_style = TRUE; /*FALLTHRU*/ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1280 case 'x': cxref_style = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1281 case 'w': no_warnings = TRUE; break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1282 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1283 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1284 /* NOTREACHED */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1285 } |
240 | 1286 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1287 for (; optind < argc; optind++) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1288 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1289 argbuffer[current_arg].arg_type = at_filename; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1290 argbuffer[current_arg].what = argv[optind]; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1291 ++current_arg; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1292 ++file_count; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1293 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1294 |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1295 argbuffer[current_arg].arg_type = at_end; |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1296 |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1297 if (help_asked) |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1298 print_help (argbuffer); |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1299 /* NOTREACHED */ |
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1300 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1301 if (nincluded_files == 0 && file_count == 0) |
240 | 1302 { |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
1303 error ("no input files specified.", (char *)NULL); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1304 suggest_asking_for_help (); |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1305 /* NOTREACHED */ |
240 | 1306 } |
1307 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1308 if (tagfile == NULL) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1309 tagfile = CTAGS ? "tags" : "TAGS"; |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
1310 cwd = etags_getcwd (); /* the current working directory */ |
15366
32ab7b623b9b
(main): Copy cwd when appending slash.
Richard M. Stallman <rms@gnu.org>
parents:
15243
diff
changeset
|
1311 if (cwd[strlen (cwd) - 1] != '/') |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1312 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1313 char *oldcwd = cwd; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1314 cwd = concat (oldcwd, "/", ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1315 free (oldcwd); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
1316 } |
57091
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1317 /* Relative file names are made relative to the current directory. */ |
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1318 if (streq (tagfile, "-") |
a02f327b4165
(main): When relative file names are given as argument,
Francesco Potortì <pot@gnu.org>
parents:
57084
diff
changeset
|
1319 || strneq (tagfile, "/dev/", 5)) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1320 tagfiledir = cwd; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1321 else |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
1322 tagfiledir = absolute_dirname (tagfile, cwd); |
240 | 1323 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1324 init (); /* set up boolean "functions" */ |
240 | 1325 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1326 linebuffer_init (&lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1327 linebuffer_init (&filename_lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1328 linebuffer_init (&filebuf); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1329 linebuffer_init (&token_name); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1330 |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
1331 if (!CTAGS) |
240 | 1332 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1333 if (streq (tagfile, "-")) |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1334 { |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1335 tagf = stdout; |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1336 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1337 /* Switch redirected `stdout' to binary mode (setting `_fmode' |
15243
c024dca549c5
* etags.c (CNL_SAVE_DEFINEDEF): Set linecharno for use by readline.
Francesco Potortì <pot@gnu.org>
parents:
14982
diff
changeset
|
1338 doesn't take effect until after `stdout' is already open). */ |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1339 if (!isatty (fileno (stdout))) |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1340 setmode (fileno (stdout), O_BINARY); |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1341 #endif /* DOS_NT */ |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
1342 } |
240 | 1343 else |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1344 tagf = fopen (tagfile, append_to_tagfile ? "a" : "w"); |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1345 if (tagf == NULL) |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
1346 pfatal (tagfile); |
240 | 1347 } |
1348 | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1349 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1350 * Loop through files finding functions. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1351 */ |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
1352 for (i = 0; i < current_arg; i++) |
240 | 1353 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1354 static language *lang; /* non-NULL if language is forced */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1355 char *this_file; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1356 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1357 switch (argbuffer[i].arg_type) |
240 | 1358 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1359 case at_language: |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1360 lang = argbuffer[i].lang; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1361 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1362 #ifdef ETAGS_REGEXPS |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1363 case at_regexp: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1364 analyse_regex (argbuffer[i].what); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1365 break; |
240 | 1366 #endif |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1367 case at_filename: |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1368 #ifdef VMS |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1369 while ((this_file = gfnames (argbuffer[i].what, &got_err)) != NULL) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1370 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1371 if (got_err) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1372 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1373 error ("can't find file %s\n", this_file); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1374 argc--, argv++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1375 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1376 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1377 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1378 this_file = massage_name (this_file); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1379 } |
240 | 1380 #else |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1381 this_file = argbuffer[i].what; |
240 | 1382 #endif |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1383 /* Input file named "-" means read file names from stdin |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1384 (one per line) and use them. */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1385 if (streq (this_file, "-")) |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1386 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1387 if (parsing_stdin) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1388 fatal ("cannot parse standard input AND read file names from it", |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1389 (char *)NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1390 while (readline_internal (&filename_lb, stdin) > 0) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1391 process_file_name (filename_lb.buffer, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1392 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1393 else |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1394 process_file_name (this_file, lang); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1395 #ifdef VMS |
240 | 1396 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1397 #endif |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1398 break; |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1399 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1400 this_file = argbuffer[i].what; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1401 process_file (stdin, this_file, lang); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1402 break; |
240 | 1403 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
1404 } |
10761
7aa80669e697
* etags.c (C_entries): Bug corrected in xrealloc of token_str.
Francesco Potortì <pot@gnu.org>
parents:
10754
diff
changeset
|
1405 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1406 #ifdef ETAGS_REGEXPS |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1407 free_regexps (); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1408 #endif /* ETAGS_REGEXPS */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1409 free (lb.buffer); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1410 free (filebuf.buffer); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1411 free (token_name.buffer); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1412 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1413 if (!CTAGS || cxref_style) |
240 | 1414 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1415 put_entries (nodehead); /* write the remainig tags (ETAGS) */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1416 free_tree (nodehead); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1417 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1418 if (!CTAGS) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1419 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1420 fdesc *fdp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1421 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1422 /* Output file entries that have no tags. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1423 for (fdp = fdhead; fdp != NULL; fdp = fdp->next) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1424 if (!fdp->written) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1425 fprintf (tagf, "\f\n%s,0\n", fdp->taggedfname); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1426 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1427 while (nincluded_files-- > 0) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1428 fprintf (tagf, "\f\n%s,include\n", *included_files++); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1429 } |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1430 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1431 if (fclose (tagf) == EOF) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1432 pfatal (tagfile); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1433 exit (EXIT_SUCCESS); |
240 | 1434 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1435 |
621 | 1436 if (update) |
240 | 1437 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1438 char cmd[BUFSIZ]; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1439 for (i = 0; i < current_arg; ++i) |
240 | 1440 { |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1441 switch (argbuffer[i].arg_type) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1442 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1443 case at_filename: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1444 case at_stdin: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1445 break; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1446 default: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1447 continue; /* the for loop */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1448 } |
240 | 1449 sprintf (cmd, |
1450 "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS", | |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1451 tagfile, argbuffer[i].what, tagfile); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1452 if (system (cmd) != EXIT_SUCCESS) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
1453 fatal ("failed to execute shell command", (char *)NULL); |
240 | 1454 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1455 append_to_tagfile = TRUE; |
240 | 1456 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1457 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1458 tagf = fopen (tagfile, append_to_tagfile ? "a" : "w"); |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1459 if (tagf == NULL) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1460 pfatal (tagfile); |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
1461 put_entries (nodehead); /* write all the tags (CTAGS) */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1462 free_tree (nodehead); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1463 nodehead = NULL; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1464 if (fclose (tagf) == EOF) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1465 pfatal (tagfile); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1466 |
240 | 1467 if (update) |
1468 { | |
45643
5cee84ffef53
(main): Avoid a buffer overrun with sprintf.
Francesco Potortì <pot@gnu.org>
parents:
45535
diff
changeset
|
1469 char cmd[2*BUFSIZ+10]; |
5cee84ffef53
(main): Avoid a buffer overrun with sprintf.
Francesco Potortì <pot@gnu.org>
parents:
45535
diff
changeset
|
1470 sprintf (cmd, "sort -o %.*s %.*s", BUFSIZ, tagfile, BUFSIZ, tagfile); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1471 exit (system (cmd)); |
240 | 1472 } |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
1473 return EXIT_SUCCESS; |
240 | 1474 } |
1475 | |
1476 | |
1477 /* | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1478 * Return a compressor given the file name. If EXTPTR is non-zero, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1479 * return a pointer into FILE where the compressor-specific |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1480 * extension begins. If no compressor is found, NULL is returned |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1481 * and EXTPTR is not significant. |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1482 * Idea by Vladimir Alexiev <vladimir@cs.ualberta.ca> (1998) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1483 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1484 static compressor * |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1485 get_compressor_from_suffix (file, extptr) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1486 char *file; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1487 char **extptr; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1488 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1489 compressor *compr; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1490 char *slash, *suffix; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1491 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1492 /* This relies on FN to be after canonicalize_filename, |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1493 so we don't need to consider backslashes on DOS_NT. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1494 slash = etags_strrchr (file, '/'); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1495 suffix = etags_strrchr (file, '.'); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1496 if (suffix == NULL || suffix < slash) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1497 return NULL; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1498 if (extptr != NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1499 *extptr = suffix; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1500 suffix += 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1501 /* Let those poor souls who live with DOS 8+3 file name limits get |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1502 some solace by treating foo.cgz as if it were foo.c.gz, etc. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1503 Only the first do loop is run if not MSDOS */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1504 do |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1505 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1506 for (compr = compressors; compr->suffix != NULL; compr++) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1507 if (streq (compr->suffix, suffix)) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1508 return compr; |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1509 if (!MSDOS) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1510 break; /* do it only once: not really a loop */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1511 if (extptr != NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1512 *extptr = ++suffix; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1513 } while (*suffix != '\0'); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1514 return NULL; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1515 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1516 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1517 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1518 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1519 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1520 * Return a language given the name. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1521 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1522 static language * |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1523 get_language_from_langname (name) |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
1524 const char *name; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1525 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1526 language *lang; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1527 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1528 if (name == NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1529 error ("empty language name", (char *)NULL); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1530 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1531 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1532 for (lang = lang_names; lang->name != NULL; lang++) |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
1533 if (streq (name, lang->name)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1534 return lang; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1535 error ("unknown language \"%s\"", name); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1536 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1537 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1538 return NULL; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1539 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1540 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1541 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1542 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1543 * Return a language given the interpreter name. |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1544 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1545 static language * |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1546 get_language_from_interpreter (interpreter) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1547 char *interpreter; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1548 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1549 language *lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1550 char **iname; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1551 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1552 if (interpreter == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1553 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1554 for (lang = lang_names; lang->name != NULL; lang++) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1555 if (lang->interpreters != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1556 for (iname = lang->interpreters; *iname != NULL; iname++) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1557 if (streq (*iname, interpreter)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1558 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1559 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1560 return NULL; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1561 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1562 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1563 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1564 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1565 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1566 * Return a language given the file name. |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1567 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1568 static language * |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1569 get_language_from_filename (file, case_sensitive) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1570 char *file; |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1571 bool case_sensitive; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1572 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1573 language *lang; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1574 char **name, **ext, *suffix; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1575 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1576 /* Try whole file name first. */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1577 for (lang = lang_names; lang->name != NULL; lang++) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1578 if (lang->filenames != NULL) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1579 for (name = lang->filenames; *name != NULL; name++) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1580 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1581 ? streq (*name, file) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1582 : strcaseeq (*name, file)) |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1583 return lang; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1584 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
1585 /* If not found, try suffix after last dot. */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1586 suffix = etags_strrchr (file, '.'); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1587 if (suffix == NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1588 return NULL; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1589 suffix += 1; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1590 for (lang = lang_names; lang->name != NULL; lang++) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1591 if (lang->suffixes != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1592 for (ext = lang->suffixes; *ext != NULL; ext++) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1593 if ((case_sensitive) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1594 ? streq (*ext, suffix) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1595 : strcaseeq (*ext, suffix)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1596 return lang; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1597 return NULL; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1598 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1599 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1600 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1601 /* |
240 | 1602 * This routine is called on each file argument. |
1603 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1604 static void |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1605 process_file_name (file, lang) |
240 | 1606 char *file; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1607 language *lang; |
240 | 1608 { |
1609 struct stat stat_buf; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1610 FILE *inf; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1611 fdesc *fdp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1612 compressor *compr; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1613 char *compressed_name, *uncompressed_name; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1614 char *ext, *real_name; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1615 int retval; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1616 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1617 canonicalize_filename (file); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
1618 if (streq (file, tagfile) && !streq (tagfile, "-")) |
240 | 1619 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1620 error ("skipping inclusion of %s in self.", file); |
240 | 1621 return; |
1622 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1623 if ((compr = get_compressor_from_suffix (file, &ext)) == NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1624 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1625 compressed_name = NULL; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1626 real_name = uncompressed_name = savestr (file); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1627 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1628 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1629 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1630 real_name = compressed_name = savestr (file); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1631 uncompressed_name = savenstr (file, ext - file); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1632 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1633 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1634 /* If the canonicalized uncompressed name |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1635 has already been dealt with, skip it silently. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1636 for (fdp = fdhead; fdp != NULL; fdp = fdp->next) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1637 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1638 assert (fdp->infname != NULL); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1639 if (streq (uncompressed_name, fdp->infname)) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1640 goto cleanup; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1641 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1642 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1643 if (stat (real_name, &stat_buf) != 0) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1644 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1645 /* Reset real_name and try with a different name. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1646 real_name = NULL; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1647 if (compressed_name != NULL) /* try with the given suffix */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1648 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1649 if (stat (uncompressed_name, &stat_buf) == 0) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1650 real_name = uncompressed_name; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1651 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1652 else /* try all possible suffixes */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1653 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1654 for (compr = compressors; compr->suffix != NULL; compr++) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1655 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1656 compressed_name = concat (file, ".", compr->suffix); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1657 if (stat (compressed_name, &stat_buf) != 0) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1658 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1659 if (MSDOS) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1660 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1661 char *suf = compressed_name + strlen (file); |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1662 size_t suflen = strlen (compr->suffix) + 1; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1663 for ( ; suf[1]; suf++, suflen--) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1664 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1665 memmove (suf, suf + 1, suflen); |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1666 if (stat (compressed_name, &stat_buf) == 0) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1667 { |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1668 real_name = compressed_name; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1669 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1670 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1671 } |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1672 if (real_name != NULL) |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1673 break; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1674 } /* MSDOS */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1675 free (compressed_name); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1676 compressed_name = NULL; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1677 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1678 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1679 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1680 real_name = compressed_name; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1681 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1682 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1683 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1684 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1685 if (real_name == NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1686 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1687 perror (file); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1688 goto cleanup; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1689 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1690 } /* try with a different name */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1691 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1692 if (!S_ISREG (stat_buf.st_mode)) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1693 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1694 error ("skipping %s: it is not a regular file.", real_name); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1695 goto cleanup; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1696 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1697 if (real_name == compressed_name) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1698 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1699 char *cmd = concat (compr->command, " ", real_name); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
1700 inf = (FILE *) popen (cmd, "r"); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1701 free (cmd); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1702 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1703 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1704 inf = fopen (real_name, "r"); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1705 if (inf == NULL) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1706 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1707 perror (real_name); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1708 goto cleanup; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
1709 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1710 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1711 process_file (inf, uncompressed_name, lang); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1712 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1713 if (real_name == compressed_name) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1714 retval = pclose (inf); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1715 else |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1716 retval = fclose (inf); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1717 if (retval < 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
1718 pfatal (file); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1719 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1720 cleanup: |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1721 if (compressed_name) free (compressed_name); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1722 if (uncompressed_name) free (uncompressed_name); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1723 last_node = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1724 curfdp = NULL; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1725 return; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1726 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1727 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1728 static void |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1729 process_file (fh, fn, lang) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1730 FILE *fh; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1731 char *fn; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1732 language *lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1733 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1734 static const fdesc emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1735 fdesc *fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1736 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1737 /* Create a new input file description entry. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1738 fdp = xnew (1, fdesc); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1739 *fdp = emptyfdesc; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1740 fdp->next = fdhead; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1741 fdp->infname = savestr (fn); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1742 fdp->lang = lang; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1743 fdp->infabsname = absolute_filename (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1744 fdp->infabsdir = absolute_dirname (fn, cwd); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1745 if (filename_is_absolute (fn)) |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1746 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1747 /* An absolute file name. Canonicalize it. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1748 fdp->taggedfname = absolute_filename (fn, NULL); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1749 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1750 else |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1751 { |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1752 /* A file name relative to cwd. Make it relative |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1753 to the directory of the tags file. */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1754 fdp->taggedfname = relative_filename (fn, tagfiledir); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1755 } |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1756 fdp->usecharno = TRUE; /* use char position when making tags */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1757 fdp->prop = NULL; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1758 fdp->written = FALSE; /* not written on tags file yet */ |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1759 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1760 fdhead = fdp; |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1761 curfdp = fdhead; /* the current file description */ |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1762 |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1763 find_entries (fh); |
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
1764 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1765 /* If not Ctags, and if this is not metasource and if it contained no #line |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1766 directives, we can write the tags and free all nodes pointing to |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1767 curfdp. */ |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1768 if (!CTAGS |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1769 && curfdp->usecharno /* no #line directives in this file */ |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1770 && !curfdp->lang->metasource) |
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1771 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1772 node *np, *prev; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1773 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1774 /* Look for the head of the sublist relative to this file. See add_node |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1775 for the structure of the node tree. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1776 prev = NULL; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1777 for (np = nodehead; np != NULL; prev = np, np = np->left) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1778 if (np->fdp == curfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1779 break; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1780 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1781 /* If we generated tags for this file, write and delete them. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1782 if (np != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1783 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1784 /* This is the head of the last sublist, if any. The following |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1785 instructions depend on this being true. */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1786 assert (np->left == NULL); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1787 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1788 assert (fdhead == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1789 assert (last_node->fdp == curfdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1790 put_entries (np); /* write tags for file curfdp->taggedfname */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1791 free_tree (np); /* remove the written nodes */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1792 if (prev == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1793 nodehead = NULL; /* no nodes left */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1794 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1795 prev->left = NULL; /* delete the pointer to the sublist */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1796 } |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1797 } |
240 | 1798 } |
1799 | |
1800 /* | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3569
diff
changeset
|
1801 * This routine sets up the boolean pseudo-functions which work |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1802 * by setting boolean flags dependent upon the corresponding character. |
240 | 1803 * Every char which is NOT in that string is not a white char. Therefore, |
1804 * all of the array "_wht" is set to FALSE, and then the elements | |
1805 * subscripted by the chars in "white" are set to TRUE. Thus "_wht" | |
1806 * of a char is TRUE if it is the string "white", else FALSE. | |
1807 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1808 static void |
240 | 1809 init () |
1810 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1811 register char *sp; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
1812 register int i; |
240 | 1813 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
1814 for (i = 0; i < CHARS; i++) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1815 iswhite(i) = notinname(i) = begtoken(i) = intoken(i) = endtoken(i) = FALSE; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1816 for (sp = white; *sp != '\0'; sp++) iswhite (*sp) = TRUE; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1817 for (sp = nonam; *sp != '\0'; sp++) notinname (*sp) = TRUE; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
1818 notinname('\0') = notinname('\n'); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1819 for (sp = begtk; *sp != '\0'; sp++) begtoken (*sp) = TRUE; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
1820 begtoken('\0') = begtoken('\n'); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1821 for (sp = midtk; *sp != '\0'; sp++) intoken (*sp) = TRUE; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
1822 intoken('\0') = intoken('\n'); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1823 for (sp = endtk; *sp != '\0'; sp++) endtoken (*sp) = TRUE; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1824 endtoken('\0') = endtoken('\n'); |
240 | 1825 } |
1826 | |
1827 /* | |
1828 * This routine opens the specified file and calls the function | |
1829 * which finds the function and type definitions. | |
1830 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
1831 static void |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1832 find_entries (inf) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
1833 FILE *inf; |
240 | 1834 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1835 char *cp; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1836 language *lang = curfdp->lang; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1837 Lang_function *parser = NULL; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1838 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1839 /* If user specified a language, use it. */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1840 if (lang != NULL && lang->function != NULL) |
240 | 1841 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1842 parser = lang->function; |
240 | 1843 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1844 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1845 /* Else try to guess the language given the file name. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1846 if (parser == NULL) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1847 { |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1848 lang = get_language_from_filename (curfdp->infname, TRUE); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1849 if (lang != NULL && lang->function != NULL) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1850 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1851 curfdp->lang = lang; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1852 parser = lang->function; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1853 } |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1854 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1855 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1856 /* Else look for sharp-bang as the first two characters. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1857 if (parser == NULL |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1858 && readline_internal (&lb, inf) > 0 |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
1859 && lb.len >= 2 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1860 && lb.buffer[0] == '#' |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1861 && lb.buffer[1] == '!') |
240 | 1862 { |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1863 char *lp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1864 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1865 /* Set lp to point at the first char after the last slash in the |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1866 line or, if no slashes, at the first nonblank. Then set cp to |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1867 the first successive blank and terminate the string. */ |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1868 lp = etags_strrchr (lb.buffer+2, '/'); |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1869 if (lp != NULL) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1870 lp += 1; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1871 else |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1872 lp = skip_spaces (lb.buffer + 2); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1873 cp = skip_non_spaces (lp); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1874 *cp = '\0'; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1875 |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
1876 if (strlen (lp) > 0) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1877 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1878 lang = get_language_from_interpreter (lp); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
1879 if (lang != NULL && lang->function != NULL) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1880 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1881 curfdp->lang = lang; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1882 parser = lang->function; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1883 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
1884 } |
240 | 1885 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1886 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1887 /* We rewind here, even if inf may be a pipe. We fail if the |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1888 length of the first line is longer than the pipe block size, |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1889 which is unlikely. */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1890 rewind (inf); |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1891 |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1892 /* Else try to guess the language given the case insensitive file name. */ |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1893 if (parser == NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1894 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1895 lang = get_language_from_filename (curfdp->infname, FALSE); |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1896 if (lang != NULL && lang->function != NULL) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1897 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1898 curfdp->lang = lang; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1899 parser = lang->function; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1900 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1901 } |
44607
8f3420af28a8
* etags.c (get_language_from_filename): Add one argument.
Francesco Potortì <pot@gnu.org>
parents:
44605
diff
changeset
|
1902 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1903 /* Else try Fortran or C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1904 if (parser == NULL) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1905 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1906 node *old_last_node = last_node; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1907 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1908 curfdp->lang = get_language_from_langname ("fortran"); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1909 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1910 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1911 if (old_last_node == last_node) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1912 /* No Fortran entries found. Try C. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1913 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1914 /* We do not tag if rewind fails. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1915 Only the file name will be recorded in the tags file. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1916 rewind (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1917 curfdp->lang = get_language_from_langname (cplusplus ? "c++" : "c"); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1918 find_entries (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1919 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1920 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1921 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1922 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1923 if (!no_line_directive |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1924 && curfdp->lang != NULL && curfdp->lang->metasource) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1925 /* It may be that this is a bingo.y file, and we already parsed a bingo.c |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1926 file, or anyway we parsed a file that is automatically generated from |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
1927 this one. If this is the case, the bingo.c file contained #line |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1928 directives that generated tags pointing to this file. Let's delete |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1929 them all before parsing this file, which is the real source. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1930 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1931 fdesc **fdpp = &fdhead; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1932 while (*fdpp != NULL) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1933 if (*fdpp != curfdp |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1934 && streq ((*fdpp)->taggedfname, curfdp->taggedfname)) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1935 /* We found one of those! We must delete both the file description |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1936 and all tags referring to it. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1937 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1938 fdesc *badfdp = *fdpp; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1939 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
1940 /* Delete the tags referring to badfdp->taggedfname |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
1941 that were obtained from badfdp->infname. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1942 invalidate_nodes (badfdp, &nodehead); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1943 |
44614
5adf2b1c20bb
(find_entries): Bug fix in list management.
Francesco Potortì <pot@gnu.org>
parents:
44607
diff
changeset
|
1944 *fdpp = badfdp->next; /* remove the bad description from the list */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
1945 free_fdesc (badfdp); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1946 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1947 else |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1948 fdpp = &(*fdpp)->next; /* advance the list pointer */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1949 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
1950 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1951 assert (parser != NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1952 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1953 /* Generic initialisations before reading from file. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
1954 linebuffer_setlen (&filebuf, 0); /* reset the file buffer */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1955 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1956 /* Generic initialisations before parsing file with readline. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1957 lineno = 0; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1958 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1959 linecharno = 0; /* reset global char number of line start */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1960 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1961 parser (inf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1962 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1963 #ifdef ETAGS_REGEXPS |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1964 regex_tag_multiline (); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
1965 #endif /* ETAGS_REGEXPS */ |
240 | 1966 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
1967 |
240 | 1968 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1969 /* |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1970 * Check whether an implicitly named tag should be created, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1971 * then call `pfnote'. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1972 * NAME is a string that is internally copied by this function. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1973 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1974 * TAGS format specification |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1975 * Idea by Sam Kendall <kendall@mv.mv.com> (1997) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1976 * The following is explained in some more detail in etc/ETAGS.EBNF. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1977 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1978 * make_tag creates tags with "implicit tag names" (unnamed tags) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1979 * if the following are all true, assuming NONAM=" \f\t\n\r()=,;": |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1980 * 1. NAME does not contain any of the characters in NONAM; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1981 * 2. LINESTART contains name as either a rightmost, or rightmost but |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1982 * one character, substring; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1983 * 3. the character, if any, immediately before NAME in LINESTART must |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1984 * be a character in NONAM; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1985 * 4. the character, if any, immediately after NAME in LINESTART must |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1986 * also be a character in NONAM. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1987 * |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1988 * The implementation uses the notinname() macro, which recognises the |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1989 * characters stored in the string `nonam'. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1990 * etags.el needs to use the same characters that are in NONAM. |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1991 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1992 static void |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1993 make_tag (name, namelen, is_func, linestart, linelen, lno, cno) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1994 char *name; /* tag name, or NULL if unnamed */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1995 int namelen; /* tag length */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1996 bool is_func; /* tag is a function */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1997 char *linestart; /* start of the line where tag is */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1998 int linelen; /* length of the line where tag is */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
1999 int lno; /* line number */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2000 long cno; /* character number */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2001 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2002 bool named = (name != NULL && namelen > 0); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2003 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2004 if (!CTAGS && named) /* maybe set named to false */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2005 /* Let's try to make an implicit tag name, that is, create an unnamed tag |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2006 such that etags.el can guess a name from it. */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2007 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2008 int i; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2009 register char *cp = name; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2010 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2011 for (i = 0; i < namelen; i++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2012 if (notinname (*cp++)) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2013 break; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2014 if (i == namelen) /* rule #1 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2015 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2016 cp = linestart + linelen - namelen; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2017 if (notinname (linestart[linelen-1])) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2018 cp -= 1; /* rule #4 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2019 if (cp >= linestart /* rule #2 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2020 && (cp == linestart |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2021 || notinname (cp[-1])) /* rule #3 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2022 && strneq (name, cp, namelen)) /* rule #2 */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2023 named = FALSE; /* use implicit tag name */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2024 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2025 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2026 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2027 if (named) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2028 name = savenstr (name, namelen); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2029 else |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2030 name = NULL; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2031 pfnote (name, is_func, linestart, linelen, lno, cno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2032 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
2033 |
240 | 2034 /* Record a tag. */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
2035 static void |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
2036 pfnote (name, is_func, linestart, linelen, lno, cno) |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2037 char *name; /* tag name, or NULL if unnamed */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2038 bool is_func; /* tag is a function */ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2039 char *linestart; /* start of the line where tag is */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2040 int linelen; /* length of the line where tag is */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2041 int lno; /* line number */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2042 long cno; /* character number */ |
240 | 2043 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2044 register node *np; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2045 |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
2046 assert (name == NULL || name[0] != '\0'); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2047 if (CTAGS && name == NULL) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2048 return; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2049 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2050 np = xnew (1, node); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2051 |
240 | 2052 /* If ctags mode, change name "main" to M<thisfilename>. */ |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
2053 if (CTAGS && !cxref_style && streq (name, "main")) |
240 | 2054 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2055 register char *fp = etags_strrchr (curfdp->taggedfname, '/'); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2056 np->name = concat ("M", fp == NULL ? curfdp->taggedfname : fp + 1, ""); |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2057 fp = etags_strrchr (np->name, '.'); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2058 if (fp != NULL && fp[1] != '\0' && fp[2] == '\0') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2059 fp[0] = '\0'; |
240 | 2060 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2061 else |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
2062 np->name = name; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2063 np->valid = TRUE; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
2064 np->been_warned = FALSE; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2065 np->fdp = curfdp; |
240 | 2066 np->is_func = is_func; |
2067 np->lno = lno; | |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2068 if (np->fdp->usecharno) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2069 /* Our char numbers are 0-base, because of C language tradition? |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2070 ctags compatibility? old versions compatibility? I don't know. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2071 Anyway, since emacs's are 1-base we expect etags.el to take care |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2072 of the difference. If we wanted to have 1-based numbers, we would |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2073 uncomment the +1 below. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2074 np->cno = cno /* + 1 */ ; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2075 else |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2076 np->cno = invalidcharno; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2077 np->left = np->right = NULL; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2078 if (CTAGS && !cxref_style) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2079 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2080 if (strlen (linestart) < 50) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2081 np->regex = concat (linestart, "$", ""); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2082 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2083 np->regex = savenstr (linestart, 50); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2084 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2085 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2086 np->regex = savenstr (linestart, linelen); |
240 | 2087 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2088 add_node (np, &nodehead); |
240 | 2089 } |
2090 | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2091 /* |
240 | 2092 * free_tree () |
2093 * recurse on left children, iterate on right children. | |
2094 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2095 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2096 free_tree (np) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2097 register node *np; |
240 | 2098 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2099 while (np) |
240 | 2100 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2101 register node *node_right = np->right; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2102 free_tree (np->left); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2103 if (np->name != NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2104 free (np->name); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2105 free (np->regex); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2106 free (np); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2107 np = node_right; |
240 | 2108 } |
2109 } | |
2110 | |
2111 /* | |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2112 * free_fdesc () |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2113 * delete a file description |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2114 */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2115 static void |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2116 free_fdesc (fdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2117 register fdesc *fdp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2118 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2119 if (fdp->infname != NULL) free (fdp->infname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2120 if (fdp->infabsname != NULL) free (fdp->infabsname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2121 if (fdp->infabsdir != NULL) free (fdp->infabsdir); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2122 if (fdp->taggedfname != NULL) free (fdp->taggedfname); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2123 if (fdp->prop != NULL) free (fdp->prop); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2124 free (fdp); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2125 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2126 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2127 /* |
240 | 2128 * add_node () |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2129 * Adds a node to the tree of nodes. In etags mode, sort by file |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2130 * name. In ctags mode, sort by tag name. Make no attempt at |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2131 * balancing. |
240 | 2132 * |
2133 * add_node is the only function allowed to add nodes, so it can | |
2134 * maintain state. | |
2135 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2136 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2137 add_node (np, cur_node_p) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2138 node *np, **cur_node_p; |
240 | 2139 { |
2140 register int dif; | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2141 register node *cur_node = *cur_node_p; |
240 | 2142 |
2143 if (cur_node == NULL) | |
2144 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2145 *cur_node_p = np; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2146 last_node = np; |
240 | 2147 return; |
2148 } | |
2149 | |
6530
12e47da67bb5
* etags.c (emacs_tags_format, ETAGS): removed. Use CTAGS instead.
Francesco Potortì <pot@gnu.org>
parents:
6482
diff
changeset
|
2150 if (!CTAGS) |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2151 /* Etags Mode */ |
240 | 2152 { |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2153 /* For each file name, tags are in a linked sublist on the right |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2154 pointer. The first tags of different files are a linked list |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2155 on the left pointer. last_node points to the end of the last |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2156 used sublist. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2157 if (last_node != NULL && last_node->fdp == np->fdp) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2158 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2159 /* Let's use the same sublist as the last added node. */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2160 assert (last_node->right == NULL); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2161 last_node->right = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2162 last_node = np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2163 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2164 else if (cur_node->fdp == np->fdp) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2165 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2166 /* Scanning the list we found the head of a sublist which is |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2167 good for us. Let's scan this sublist. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2168 add_node (np, &cur_node->right); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2169 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2170 else |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2171 /* The head of this sublist is not good for us. Let's try the |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2172 next one. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2173 add_node (np, &cur_node->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2174 } /* if ETAGS mode */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2175 |
240 | 2176 else |
2177 { | |
2178 /* Ctags Mode */ | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2179 dif = strcmp (np->name, cur_node->name); |
240 | 2180 |
2181 /* | |
2182 * If this tag name matches an existing one, then | |
2183 * do not add the node, but maybe print a warning. | |
2184 */ | |
2185 if (!dif) | |
2186 { | |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2187 if (np->fdp == cur_node->fdp) |
240 | 2188 { |
2189 if (!no_warnings) | |
2190 { | |
2191 fprintf (stderr, "Duplicate entry in file %s, line %d: %s\n", | |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2192 np->fdp->infname, lineno, np->name); |
240 | 2193 fprintf (stderr, "Second entry ignored\n"); |
2194 } | |
2195 } | |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2196 else if (!cur_node->been_warned && !no_warnings) |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2197 { |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2198 fprintf |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2199 (stderr, |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2200 "Duplicate entry in files %s and %s: %s (Warning only)\n", |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2201 np->fdp->infname, cur_node->fdp->infname, np->name); |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2202 cur_node->been_warned = TRUE; |
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
2203 } |
240 | 2204 return; |
2205 } | |
2206 | |
2207 /* Actually add the node */ | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2208 add_node (np, dif < 0 ? &cur_node->left : &cur_node->right); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2209 } /* if CTAGS mode */ |
240 | 2210 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2211 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2212 /* |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2213 * invalidate_nodes () |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2214 * Scan the node tree and invalidate all nodes pointing to the |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2215 * given file description (CTAGS case) or free them (ETAGS case). |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2216 */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2217 static void |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2218 invalidate_nodes (badfdp, npp) |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2219 fdesc *badfdp; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2220 node **npp; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2221 { |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2222 node *np = *npp; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2223 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2224 if (np == NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2225 return; |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2226 |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2227 if (CTAGS) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2228 { |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2229 if (np->left != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2230 invalidate_nodes (badfdp, &np->left); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2231 if (np->fdp == badfdp) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
2232 np->valid = FALSE; |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2233 if (np->right != NULL) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2234 invalidate_nodes (badfdp, &np->right); |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2235 } |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2236 else |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2237 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2238 assert (np->fdp != NULL); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2239 if (np->fdp == badfdp) |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2240 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2241 *npp = np->left; /* detach the sublist from the list */ |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2242 np->left = NULL; /* isolate it */ |
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2243 free_tree (np); /* free it */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2244 invalidate_nodes (badfdp, npp); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2245 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2246 else |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
2247 invalidate_nodes (badfdp, &np->left); |
44735
98b894d1d3ad
(last_node): Make it a global variable.
Francesco Potortì <pot@gnu.org>
parents:
44614
diff
changeset
|
2248 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2249 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2250 |
240 | 2251 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2252 static int total_size_of_entries __P((node *)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2253 static int number_len __P((long)); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2254 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2255 /* Length of a non-negative number's decimal representation. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2256 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2257 number_len (num) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2258 long num; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2259 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2260 int len = 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2261 while ((num /= 10) > 0) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2262 len += 1; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2263 return len; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2264 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2265 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2266 /* |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2267 * Return total number of characters that put_entries will output for |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2268 * the nodes in the linked list at the right of the specified node. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2269 * This count is irrelevant with etags.el since emacs 19.34 at least, |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2270 * but is still supplied for backward compatibility. |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2271 */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2272 static int |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2273 total_size_of_entries (np) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2274 register node *np; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2275 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2276 register int total = 0; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2277 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2278 for (; np != NULL; np = np->right) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2279 if (np->valid) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2280 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2281 total += strlen (np->regex) + 1; /* pat\177 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2282 if (np->name != NULL) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2283 total += strlen (np->name) + 1; /* name\001 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2284 total += number_len ((long) np->lno) + 1; /* lno, */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2285 if (np->cno != invalidcharno) /* cno */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2286 total += number_len (np->cno); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2287 total += 1; /* newline */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2288 } |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2289 |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2290 return total; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2291 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2292 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2293 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2294 put_entries (np) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2295 register node *np; |
240 | 2296 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2297 register char *sp; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2298 static fdesc *fdp = NULL; |
240 | 2299 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2300 if (np == NULL) |
240 | 2301 return; |
2302 | |
2303 /* Output subentries that precede this one */ | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2304 if (CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2305 put_entries (np->left); |
240 | 2306 |
2307 /* Output this entry */ | |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2308 if (np->valid) |
240 | 2309 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2310 if (!CTAGS) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2311 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2312 /* Etags mode */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2313 if (fdp != np->fdp) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2314 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2315 fdp = np->fdp; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2316 fprintf (tagf, "\f\n%s,%d\n", |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2317 fdp->taggedfname, total_size_of_entries (np)); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2318 fdp->written = TRUE; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2319 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2320 fputs (np->regex, tagf); |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2321 fputc ('\177', tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2322 if (np->name != NULL) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2323 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2324 fputs (np->name, tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2325 fputc ('\001', tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2326 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2327 fprintf (tagf, "%d,", np->lno); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2328 if (np->cno != invalidcharno) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2329 fprintf (tagf, "%ld", np->cno); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2330 fputs ("\n", tagf); |
240 | 2331 } |
2332 else | |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2333 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2334 /* Ctags mode */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2335 if (np->name == NULL) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2336 error ("internal error: NULL name in ctags mode.", (char *)NULL); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2337 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2338 if (cxref_style) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2339 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2340 if (vgrind_style) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2341 fprintf (stdout, "%s %s %d\n", |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2342 np->name, np->fdp->taggedfname, (np->lno + 63) / 64); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2343 else |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2344 fprintf (stdout, "%-16s %3d %-16s %s\n", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2345 np->name, np->lno, np->fdp->taggedfname, np->regex); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2346 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2347 else |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2348 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2349 fprintf (tagf, "%s\t%s\t", np->name, np->fdp->taggedfname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2350 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2351 if (np->is_func) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2352 { /* function or #define macro with args */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2353 putc (searchar, tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2354 putc ('^', tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2355 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
2356 for (sp = np->regex; *sp; sp++) |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2357 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2358 if (*sp == '\\' || *sp == searchar) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2359 putc ('\\', tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2360 putc (*sp, tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2361 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2362 putc (searchar, tagf); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2363 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2364 else |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2365 { /* anything else; text pattern inadequate */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2366 fprintf (tagf, "%d", np->lno); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2367 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2368 putc ('\n', tagf); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2369 } |
240 | 2370 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
2371 } /* if this node contains a valid tag */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2372 |
240 | 2373 /* Output subentries that follow this one */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2374 put_entries (np->right); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2375 if (!CTAGS) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2376 put_entries (np->left); |
240 | 2377 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2378 |
240 | 2379 |
35740
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2380 /* C extensions. */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2381 #define C_EXT 0x00fff /* C extensions */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2382 #define C_PLAIN 0x00000 /* C */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2383 #define C_PLPL 0x00001 /* C++ */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2384 #define C_STAR 0x00003 /* C* */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2385 #define C_JAVA 0x00005 /* JAVA */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2386 #define C_AUTO 0x01000 /* C, but switch to C++ if `class' is met */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2387 #define YACC 0x10000 /* yacc file */ |
9a7c0217c7bd
Comment updates to etags.c
Francesco Potortì <pot@gnu.org>
parents:
35665
diff
changeset
|
2388 |
240 | 2389 /* |
2390 * The C symbol tables. | |
2391 */ | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2392 enum sym_type |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2393 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2394 st_none, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2395 st_C_objprot, st_C_objimpl, st_C_objend, |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2396 st_C_gnumacro, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2397 st_C_ignore, st_C_attribute, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2398 st_C_javastruct, |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2399 st_C_operator, |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
2400 st_C_class, st_C_template, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2401 st_C_struct, st_C_extern, st_C_enum, st_C_define, st_C_typedef |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2402 }; |
240 | 2403 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2404 static unsigned int hash __P((const char *, unsigned int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2405 static struct C_stab_entry * in_word_set __P((const char *, unsigned int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2406 static enum sym_type C_symtype __P((char *, int, int)); |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
2407 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2408 /* Feed stuff between (but not including) %[ and %] lines to: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2409 gperf -m 5 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2410 %[ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2411 %compare-strncmp |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2412 %enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2413 %struct-type |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2414 struct C_stab_entry { char *name; int c_ext; enum sym_type type; } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2415 %% |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2416 if, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2417 for, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2418 while, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2419 switch, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2420 return, 0, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2421 __attribute__, 0, st_C_attribute |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2422 @interface, 0, st_C_objprot |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2423 @protocol, 0, st_C_objprot |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2424 @implementation,0, st_C_objimpl |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2425 @end, 0, st_C_objend |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2426 import, (C_JAVA & !C_PLPL), st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2427 package, (C_JAVA & !C_PLPL), st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2428 friend, C_PLPL, st_C_ignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2429 extends, (C_JAVA & !C_PLPL), st_C_javastruct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2430 implements, (C_JAVA & !C_PLPL), st_C_javastruct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2431 interface, (C_JAVA & !C_PLPL), st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2432 class, 0, st_C_class |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2433 namespace, C_PLPL, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2434 domain, C_STAR, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2435 union, 0, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2436 struct, 0, st_C_struct |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2437 extern, 0, st_C_extern |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2438 enum, 0, st_C_enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2439 typedef, 0, st_C_typedef |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2440 define, 0, st_C_define |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2441 operator, C_PLPL, st_C_operator |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2442 template, 0, st_C_template |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2443 # DEFUN used in emacs, the next three used in glibc (SYSCALL only for mach). |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2444 DEFUN, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2445 SYSCALL, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2446 ENTRY, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2447 PSEUDO, 0, st_C_gnumacro |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2448 # These are defined inside C functions, so currently they are not met. |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2449 # EXFUN used in glibc, DEFVAR_* in emacs. |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2450 #EXFUN, 0, st_C_gnumacro |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2451 #DEFVAR_, 0, st_C_gnumacro |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2452 %] |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2453 and replace lines between %< and %> with its output, then: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2454 - remove the #if characterset check |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2455 - make in_word_set static and not inline. */ |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2456 /*%<*/ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2457 /* C code produced by gperf version 3.0.1 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2458 /* Command-line: gperf -m 5 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2459 /* Computed positions: -k'1-2' */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2460 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2461 struct C_stab_entry { char *name; int c_ext; enum sym_type type; }; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2462 /* maximum key range = 31, duplicates = 0 */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2463 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2464 #ifdef __GNUC__ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2465 __inline |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2466 #else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2467 #ifdef __cplusplus |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2468 inline |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2469 #endif |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2470 #endif |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2471 static unsigned int |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2472 hash (str, len) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2473 register const char *str; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2474 register unsigned int len; |
240 | 2475 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2476 static unsigned char asso_values[] = |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2477 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2478 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2479 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2480 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2481 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2482 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2483 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2484 34, 34, 34, 34, 1, 34, 34, 34, 14, 14, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2485 34, 34, 34, 34, 34, 34, 34, 34, 13, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2486 13, 34, 34, 12, 34, 34, 34, 34, 34, 11, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2487 34, 34, 34, 34, 34, 8, 34, 11, 34, 12, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2488 11, 0, 1, 34, 7, 0, 34, 34, 11, 9, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2489 0, 4, 0, 34, 7, 4, 14, 21, 34, 15, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2490 0, 2, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2491 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2492 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2493 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2494 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2495 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2496 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2497 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2498 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2499 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2500 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2501 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2502 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2503 34, 34, 34, 34, 34, 34 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2504 }; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2505 return len + asso_values[(unsigned char)str[1]] + asso_values[(unsigned char)str[0]]; |
240 | 2506 } |
2507 | |
35766
3584fc1b9b79
(in_word_set): Use `static' in definition (for pcc).
Dave Love <fx@gnu.org>
parents:
35758
diff
changeset
|
2508 static struct C_stab_entry * |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2509 in_word_set (str, len) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2510 register const char *str; |
15579
690a439bcc0e
* etags.c (C_stab_entry): New keywords for C++ namespace, bool,
Francesco Potortì <pot@gnu.org>
parents:
15407
diff
changeset
|
2511 register unsigned int len; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2512 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2513 enum |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2514 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2515 TOTAL_KEYWORDS = 31, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2516 MIN_WORD_LENGTH = 2, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2517 MAX_WORD_LENGTH = 15, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2518 MIN_HASH_VALUE = 3, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2519 MAX_HASH_VALUE = 33 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2520 }; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2521 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2522 static struct C_stab_entry wordlist[] = |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2523 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2524 {""}, {""}, {""}, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2525 {"if", 0, st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2526 {"enum", 0, st_C_enum}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2527 {"@end", 0, st_C_objend}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2528 {"extern", 0, st_C_extern}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2529 {"extends", (C_JAVA & !C_PLPL), st_C_javastruct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2530 {"for", 0, st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2531 {"interface", (C_JAVA & !C_PLPL), st_C_struct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2532 {"@protocol", 0, st_C_objprot}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2533 {"@interface", 0, st_C_objprot}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2534 {"operator", C_PLPL, st_C_operator}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2535 {"return", 0, st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2536 {"friend", C_PLPL, st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2537 {"import", (C_JAVA & !C_PLPL), st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2538 {"@implementation",0, st_C_objimpl}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2539 {"define", 0, st_C_define}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2540 {"package", (C_JAVA & !C_PLPL), st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2541 {"implements", (C_JAVA & !C_PLPL), st_C_javastruct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2542 {"namespace", C_PLPL, st_C_struct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2543 {"domain", C_STAR, st_C_struct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2544 {"template", 0, st_C_template}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2545 {"typedef", 0, st_C_typedef}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2546 {"struct", 0, st_C_struct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2547 {"switch", 0, st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2548 {"union", 0, st_C_struct}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2549 {"while", 0, st_C_ignore}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2550 {"class", 0, st_C_class}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2551 {"__attribute__", 0, st_C_attribute}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2552 {"SYSCALL", 0, st_C_gnumacro}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2553 {"PSEUDO", 0, st_C_gnumacro}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2554 {"ENTRY", 0, st_C_gnumacro}, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2555 {"DEFUN", 0, st_C_gnumacro} |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2556 }; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2557 |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2558 if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH) |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2559 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2560 register int key = hash (str, len); |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2561 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2562 if (key <= MAX_HASH_VALUE && key >= 0) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2563 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2564 register const char *s = wordlist[key].name; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2565 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2566 if (*str == *s && !strncmp (str + 1, s + 1, len - 1) && s[len] == '\0') |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2567 return &wordlist[key]; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2568 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2569 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2570 return 0; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2571 } |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2572 /*%>*/ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2573 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2574 static enum sym_type |
16573
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
2575 C_symtype (str, len, c_ext) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2576 char *str; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2577 int len; |
240 | 2578 int c_ext; |
2579 { | |
16573
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
2580 register struct C_stab_entry *se = in_word_set (str, len); |
240 | 2581 |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2582 if (se == NULL || (se->c_ext && !(c_ext & se->c_ext))) |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2583 return st_none; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
2584 return se->type; |
240 | 2585 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2586 |
240 | 2587 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2588 /* |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2589 * Ignoring __attribute__ ((list)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2590 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2591 static bool inattribute; /* looking at an __attribute__ construct */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2592 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2593 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2594 * C functions and variables are recognized using a simple |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2595 * finite automaton. fvdef is its state variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2596 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2597 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2598 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2599 fvnone, /* nothing seen */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2600 fdefunkey, /* Emacs DEFUN keyword seen */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2601 fdefunname, /* Emacs DEFUN name seen */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2602 foperator, /* func: operator keyword seen (cplpl) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2603 fvnameseen, /* function or variable name seen */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2604 fstartlist, /* func: just after open parenthesis */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2605 finlist, /* func: in parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2606 flistseen, /* func: after parameter list */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2607 fignore, /* func: before open brace */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2608 vignore /* var-like: ignore until ';' */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2609 } fvdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2610 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2611 static bool fvextern; /* func or var: extern keyword seen; */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2612 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2613 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2614 * typedefs are recognized using a simple finite automaton. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2615 * typdef is its state variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2616 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2617 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2618 { |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
2619 tnone, /* nothing seen */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2620 tkeyseen, /* typedef keyword seen */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
2621 ttypeseen, /* defined type seen */ |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
2622 tinbody, /* inside typedef body */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2623 tend, /* just before typedef tag */ |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2624 tignore /* junk after typedef tag */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2625 } typdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2626 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2627 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2628 * struct-like structures (enum, struct and union) are recognized |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2629 * using another simple finite automaton. `structdef' is its state |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2630 * variable. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2631 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2632 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2633 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2634 snone, /* nothing seen yet, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2635 or in struct body if bracelev > 0 */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2636 skeyseen, /* struct-like keyword seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2637 stagseen, /* struct-like tag seen */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2638 scolonseen /* colon seen after struct-like tag */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2639 } structdef; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
2640 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2641 /* |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2642 * When objdef is different from onone, objtag is the name of the class. |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2643 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2644 static char *objtag = "<uninited>"; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2645 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2646 /* |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2647 * Yet another little state machine to deal with preprocessor lines. |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2648 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2649 static enum |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2650 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2651 dnone, /* nothing seen */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2652 dsharpseen, /* '#' seen as first char on line */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2653 ddefineseen, /* '#' and 'define' seen */ |
5044
d3bd7baee39f
(FUNCST, TYPEDST, STRUCTST, DEFINEST): Delete excess commas.
Richard M. Stallman <rms@gnu.org>
parents:
4937
diff
changeset
|
2654 dignorerest /* ignore rest of line */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2655 } definedef; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2656 |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2657 /* |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2658 * State machine for Objective C protocols and implementations. |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2659 * Idea by Tom R.Hageman <tom@basil.icce.rug.nl> (1995) |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2660 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2661 static enum |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2662 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2663 onone, /* nothing seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2664 oprotocol, /* @interface or @protocol seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2665 oimplementation, /* @implementations seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2666 otagseen, /* class name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2667 oparenseen, /* parenthesis before category seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2668 ocatseen, /* category name seen */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2669 oinbody, /* in @implementation body */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2670 omethodsign, /* in @implementation body, after +/- */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2671 omethodtag, /* after method name */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2672 omethodcolon, /* after method colon */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2673 omethodparm, /* after method parameter */ |
14230
6b836f84bccf
(enum sym_type, anonymous enum): Delete final comma.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
2674 oignore /* wait for @end */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2675 } objdef; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
2676 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2677 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2678 /* |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2679 * Use this structure to keep info about the token read, and how it |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2680 * should be tagged. Used by the make_C_tag function to build a tag. |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2681 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2682 static struct tok |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2683 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2684 char *line; /* string containing the token */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2685 int offset; /* where the token starts in LINE */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2686 int length; /* token length */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2687 /* |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2688 The previous members can be used to pass strings around for generic |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2689 purposes. The following ones specifically refer to creating tags. In this |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2690 case the token contained here is the pattern that will be used to create a |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2691 tag. |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2692 */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2693 bool valid; /* do not create a tag; the token should be |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2694 invalidated whenever a state machine is |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2695 reset prematurely */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2696 bool named; /* create a named tag */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2697 int lineno; /* source line number of tag */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
2698 long linepos; /* source char number of tag */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2699 } token; /* latest token read */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2700 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2701 /* |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2702 * Variables and functions for dealing with nested structures. |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2703 * Idea by Mykola Dzyuba <mdzyuba@yahoo.com> (2001) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2704 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2705 static void pushclass_above __P((int, char *, int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2706 static void popclass_above __P((int)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2707 static void write_classname __P((linebuffer *, char *qualifier)); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2708 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
2709 static struct { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2710 char **cname; /* nested class names */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2711 int *bracelev; /* nested class brace level */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2712 int nl; /* class nesting level (elements used) */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2713 int size; /* length of the array */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2714 } cstack; /* stack for nested declaration tags */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2715 /* Current struct nesting depth (namespace, class, struct, union, enum). */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2716 #define nestlev (cstack.nl) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
2717 /* After struct keyword or in struct body, not inside a nested function. */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2718 #define instruct (structdef == snone && nestlev > 0 \ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2719 && bracelev == cstack.bracelev[nestlev-1] + 1) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2720 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2721 static void |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2722 pushclass_above (bracelev, str, len) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2723 int bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2724 char *str; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2725 int len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2726 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2727 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2728 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2729 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2730 nl = cstack.nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2731 if (nl >= cstack.size) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2732 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2733 int size = cstack.size *= 2; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2734 xrnew (cstack.cname, size, char *); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2735 xrnew (cstack.bracelev, size, int); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2736 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2737 assert (nl == 0 || cstack.bracelev[nl-1] < bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2738 cstack.cname[nl] = (str == NULL) ? NULL : savenstr (str, len); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2739 cstack.bracelev[nl] = bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2740 cstack.nl = nl + 1; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2741 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2742 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2743 static void |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2744 popclass_above (bracelev) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2745 int bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2746 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2747 int nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2748 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2749 for (nl = cstack.nl - 1; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2750 nl >= 0 && cstack.bracelev[nl] >= bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2751 nl--) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2752 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2753 if (cstack.cname[nl] != NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2754 free (cstack.cname[nl]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2755 cstack.nl = nl; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2756 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2757 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2758 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2759 static void |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2760 write_classname (cn, qualifier) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2761 linebuffer *cn; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2762 char *qualifier; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2763 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2764 int i, len; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2765 int qlen = strlen (qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2766 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2767 if (cstack.nl == 0 || cstack.cname[0] == NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2768 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2769 len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2770 cn->len = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2771 cn->buffer[0] = '\0'; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2772 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2773 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2774 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2775 len = strlen (cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2776 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2777 strcpy (cn->buffer, cstack.cname[0]); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2778 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2779 for (i = 1; i < cstack.nl; i++) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2780 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2781 char *s; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2782 int slen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2783 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2784 s = cstack.cname[i]; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2785 if (s == NULL) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2786 continue; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2787 slen = strlen (s); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2788 len += slen + qlen; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2789 linebuffer_setlen (cn, len); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2790 strncat (cn->buffer, qualifier, qlen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2791 strncat (cn->buffer, s, slen); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2792 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2793 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2794 |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2795 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2796 static bool consider_token __P((char *, int, int, int *, int, int, bool *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
2797 static void make_C_tag __P((bool)); |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
2798 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2799 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2800 * consider_token () |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2801 * checks to see if the current token is at the start of a |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2802 * function or variable, or corresponds to a typedef, or |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2803 * is a struct/union/enum tag, or #define, or an enum constant. |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2804 * |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
2805 * *IS_FUNC gets TRUE iff the token is a function or #define macro |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2806 * with args. C_EXTP points to which language we are looking at. |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2807 * |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2808 * Globals |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2809 * fvdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2810 * structdef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2811 * definedef IN OUT |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2812 * typdef IN OUT |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2813 * objdef IN OUT |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2814 */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2815 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
2816 static bool |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2817 consider_token (str, len, c, c_extp, bracelev, parlev, is_func_or_var) |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2818 register char *str; /* IN: token pointer */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
2819 register int len; /* IN: token length */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
2820 register int c; /* IN: first char after the token */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2821 int *c_extp; /* IN, OUT: C extensions mask */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2822 int bracelev; /* IN: brace level */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2823 int parlev; /* IN: parenthesis level */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
2824 bool *is_func_or_var; /* OUT: function or variable found */ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2825 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2826 /* When structdef is stagseen, scolonseen, or snone with bracelev > 0, |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2827 structtype is the type of the preceding struct-like keyword, and |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2828 structbracelev is the brace level where it has been seen. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2829 static enum sym_type structtype; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2830 static int structbracelev; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2831 static enum sym_type toktype; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2832 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
2833 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
2834 toktype = C_symtype (str, len, *c_extp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2835 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2836 /* |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2837 * Skip __attribute__ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2838 */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2839 if (toktype == st_C_attribute) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
2840 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2841 inattribute = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
2842 return FALSE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2843 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2844 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2845 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2846 * Advance the definedef state machine. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2847 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2848 switch (definedef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2849 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2850 case dnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2851 /* We're not on a preprocessor line. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2852 if (toktype == st_C_gnumacro) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2853 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2854 fvdef = fdefunkey; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2855 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2856 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2857 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2858 case dsharpseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2859 if (toktype == st_C_define) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2860 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2861 definedef = ddefineseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2862 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2863 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2864 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2865 definedef = dignorerest; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2866 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2867 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2868 case ddefineseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2869 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2870 * Make a tag for any macro, unless it is a constant |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2871 * and constantypedefs is FALSE. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2872 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2873 definedef = dignorerest; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2874 *is_func_or_var = (c == '('); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2875 if (!*is_func_or_var && !constantypedefs) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2876 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2877 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2878 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2879 case dignorerest: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2880 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2881 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2882 error ("internal error: definedef value.", (char *)NULL); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2883 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2884 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2885 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2886 * Now typedefs |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2887 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2888 switch (typdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2889 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2890 case tnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2891 if (toktype == st_C_typedef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2892 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2893 if (typedefs) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2894 typdef = tkeyseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2895 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2896 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2897 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2898 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2899 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2900 case tkeyseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2901 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2902 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2903 case st_none: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2904 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2905 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2906 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2907 typdef = ttypeseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2908 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2909 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2910 case ttypeseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2911 if (structdef == snone && fvdef == fvnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2912 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2913 fvdef = fvnameseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2914 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2915 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2916 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2917 case tend: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2918 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2919 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2920 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2921 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2922 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2923 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2924 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2925 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2926 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2927 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2928 /* |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2929 * This structdef business is NOT invoked when we are ctags and the |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2930 * file is plain C. This is because a struct tag may have the same |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2931 * name as another tag, and this loses with ctags. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2932 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2933 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2934 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2935 case st_C_javastruct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2936 if (structdef == stagseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2937 structdef = scolonseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2938 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2939 case st_C_template: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2940 case st_C_class: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2941 if ((*c_extp & C_AUTO) /* automatic detection of C++ language */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2942 && bracelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2943 && definedef == dnone && structdef == snone |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2944 && typdef == tnone && fvdef == fvnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2945 *c_extp = (*c_extp | C_PLPL) & ~C_AUTO; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2946 if (toktype == st_C_template) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2947 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2948 /* FALLTHRU */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2949 case st_C_struct: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2950 case st_C_enum: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2951 if (parlev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2952 && fvdef != vignore |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2953 && (typdef == tkeyseen |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2954 || (typedefs_or_cplusplus && structdef == snone))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2955 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2956 structdef = skeyseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2957 structtype = toktype; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2958 structbracelev = bracelev; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2959 if (fvdef == fvnameseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2960 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2961 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2962 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2963 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2964 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2965 if (structdef == skeyseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2966 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2967 structdef = stagseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2968 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2969 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2970 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2971 if (typdef != tnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2972 definedef = dnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2973 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2974 /* Detect Objective C constructs. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2975 switch (objdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2976 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2977 case onone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2978 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2979 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2980 case st_C_objprot: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2981 objdef = oprotocol; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2982 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2983 case st_C_objimpl: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2984 objdef = oimplementation; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2985 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2986 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2987 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2988 case oimplementation: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2989 /* Save the class tag for functions or variables defined inside. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2990 objtag = savenstr (str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2991 objdef = oinbody; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2992 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2993 case oprotocol: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2994 /* Save the class tag for categories. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2995 objtag = savenstr (str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2996 objdef = otagseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2997 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2998 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
2999 case oparenseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3000 objdef = ocatseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3001 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3002 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3003 case oinbody: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3004 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3005 case omethodsign: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3006 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3007 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3008 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3009 objdef = omethodtag; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3010 linebuffer_setlen (&token_name, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3011 strncpy (token_name.buffer, str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3012 token_name.buffer[len] = '\0'; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3013 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3014 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3015 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3016 case omethodcolon: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3017 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3018 objdef = omethodparm; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3019 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3020 case omethodparm: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3021 if (parlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3022 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3023 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3024 objdef = omethodtag; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3025 linebuffer_setlen (&token_name, token_name.len + len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3026 strncat (token_name.buffer, str, len); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3027 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3028 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3029 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3030 case oignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3031 if (toktype == st_C_objend) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3032 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3033 /* Memory leakage here: the string pointed by objtag is |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3034 never released, because many tests would be needed to |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3035 avoid breaking on incorrect input code. The amount of |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3036 memory leaked here is the sum of the lengths of the |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3037 class tags. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3038 free (objtag); */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3039 objdef = onone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3040 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3041 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3042 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3043 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3044 /* A function, variable or enum constant? */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3045 switch (toktype) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3046 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3047 case st_C_extern: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3048 fvextern = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3049 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3050 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3051 case finlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3052 case flistseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3053 case fignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3054 case vignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3055 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3056 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3057 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3058 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3059 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3060 case st_C_ignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3061 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3062 fvdef = vignore; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3063 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3064 case st_C_operator: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3065 fvdef = foperator; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3066 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3067 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3068 case st_none: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3069 if (constantypedefs |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3070 && structdef == snone |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3071 && structtype == st_C_enum && bracelev > structbracelev) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3072 return TRUE; /* enum constant */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3073 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3074 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3075 case fdefunkey: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3076 if (bracelev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3077 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3078 fvdef = fdefunname; /* GNU macro */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3079 *is_func_or_var = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3080 return TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3081 case fvnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3082 switch (typdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3083 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3084 case ttypeseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3085 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3086 case tnone: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3087 if ((strneq (str, "asm", 3) && endtoken (str[3])) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3088 || (strneq (str, "__asm__", 7) && endtoken (str[7]))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3089 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3090 fvdef = vignore; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3091 return FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3092 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3093 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3094 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3095 /* FALLTHRU */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3096 case fvnameseen: |
52421
c6c2d0694257
(consider_token): check C++ `operator' only when the token len is long
Francesco Potortì <pot@gnu.org>
parents:
52401
diff
changeset
|
3097 if (len >= 10 && strneq (str+len-10, "::operator", 10)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3098 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3099 if (*c_extp & C_AUTO) /* automatic detection of C++ */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3100 *c_extp = (*c_extp | C_PLPL) & ~C_AUTO; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3101 fvdef = foperator; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3102 *is_func_or_var = TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3103 return TRUE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3104 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3105 if (bracelev > 0 && !instruct) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3106 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3107 fvdef = fvnameseen; /* function or variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3108 *is_func_or_var = TRUE; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3109 return TRUE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3110 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3111 break; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3112 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3113 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3114 return FALSE; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3115 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3116 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3117 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3118 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3119 * C_entries often keeps pointers to tokens or lines which are older than |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3120 * the line currently read. By keeping two line buffers, and switching |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3121 * them at end of line, it is possible to use those pointers. |
240 | 3122 */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
3123 static struct |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3124 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3125 long linepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3126 linebuffer lb; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3127 } lbs[2]; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3128 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3129 #define current_lb_is_new (newndx == curndx) |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3130 #define switch_line_buffers() (curndx = 1 - curndx) |
240 | 3131 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3132 #define curlb (lbs[curndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3133 #define newlb (lbs[newndx].lb) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3134 #define curlinepos (lbs[curndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3135 #define newlinepos (lbs[newndx].linepos) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3136 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3137 #define plainc ((c_ext & C_EXT) == C_PLAIN) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3138 #define cplpl (c_ext & C_PLPL) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3139 #define cjava ((c_ext & C_JAVA) == C_JAVA) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3140 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3141 #define CNL_SAVE_DEFINEDEF() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3142 do { \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3143 curlinepos = charno; \ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
3144 readline (&curlb, inf); \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3145 lp = curlb.buffer; \ |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3146 quotednl = FALSE; \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3147 newndx = curndx; \ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3148 } while (0) |
240 | 3149 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3150 #define CNL() \ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3151 do { \ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3152 CNL_SAVE_DEFINEDEF(); \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3153 if (savetoken.valid) \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3154 { \ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3155 token = savetoken; \ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3156 savetoken.valid = FALSE; \ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3157 } \ |
240 | 3158 definedef = dnone; \ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3159 } while (0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3160 |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3161 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
3162 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3163 make_C_tag (isfun) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3164 bool isfun; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3165 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3166 /* This function should never be called when token.valid is FALSE, but |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3167 we must protect against invalid input or internal errors. */ |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3168 if (!DEBUG && !token.valid) |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3169 return; |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3170 |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3171 if (token.valid) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3172 make_tag (token_name.buffer, token_name.len, isfun, token.line, |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3173 token.offset+token.length+1, token.lineno, token.linepos); |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3174 else /* this case is optimised away if !DEBUG */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3175 make_tag (concat ("INVALID TOKEN:-->", token_name.buffer, ""), |
45925
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3176 token_name.len + 17, isfun, token.line, |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3177 token.offset+token.length+1, token.lineno, token.linepos); |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3178 |
5f3ac9accae3
Use, together with etags.el, an optimised form of tags,
Francesco Potortì <pot@gnu.org>
parents:
45918
diff
changeset
|
3179 token.valid = FALSE; |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3180 } |
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
3181 |
240 | 3182 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3183 /* |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3184 * C_entries () |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3185 * This routine finds functions, variables, typedefs, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3186 * #define's, enum constants and struct/union/enum definitions in |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3187 * C syntax and adds them to the list. |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3188 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
3189 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
3190 C_entries (c_ext, inf) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3191 int c_ext; /* extension of C */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
3192 FILE *inf; /* input file */ |
240 | 3193 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3194 register char c; /* latest char read; '\0' for end of line */ |
240 | 3195 register char *lp; /* pointer one beyond the character `c' */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3196 int curndx, newndx; /* indices for current and new lb */ |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3197 register int tokoff; /* offset in line of start of current token */ |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3198 register int toklen; /* length of current token */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3199 char *qualifier; /* string used to qualify names */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3200 int qlen; /* length of qualifier */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3201 int bracelev; /* current brace level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3202 int bracketlev; /* current bracket level */ |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3203 int parlev; /* current parenthesis level */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3204 int attrparlev; /* __attribute__ parenthesis level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3205 int templatelev; /* current template level */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3206 int typdefbracelev; /* bracelev where a typedef struct body begun */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3207 bool incomm, inquote, inchar, quotednl, midtoken; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3208 bool yacc_rules; /* in the rules part of a yacc file */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3209 struct tok savetoken; /* token saved during preprocessor handling */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3210 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3211 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
3212 linebuffer_init (&lbs[0].lb); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
3213 linebuffer_init (&lbs[1].lb); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3214 if (cstack.size == 0) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3215 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3216 cstack.size = (DEBUG) ? 1 : 4; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3217 cstack.nl = 0; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3218 cstack.cname = xnew (cstack.size, char *); |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3219 cstack.bracelev = xnew (cstack.size, int); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3220 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3221 |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3222 tokoff = toklen = typdefbracelev = 0; /* keep compiler quiet */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3223 curndx = newndx = 0; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3224 lp = curlb.buffer; |
240 | 3225 *lp = 0; |
3226 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3227 fvdef = fvnone; fvextern = FALSE; typdef = tnone; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3228 structdef = snone; definedef = dnone; objdef = onone; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3229 yacc_rules = FALSE; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3230 midtoken = inquote = inchar = incomm = quotednl = FALSE; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3231 token.valid = savetoken.valid = FALSE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3232 bracelev = bracketlev = parlev = attrparlev = templatelev = 0; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3233 if (cjava) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3234 { qualifier = "."; qlen = 1; } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3235 else |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3236 { qualifier = "::"; qlen = 2; } |
240 | 3237 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3238 |
240 | 3239 while (!feof (inf)) |
3240 { | |
3241 c = *lp++; | |
3242 if (c == '\\') | |
3243 { | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3244 /* If we are at the end of the line, the next character is a |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3245 '\0'; do not skip it, because it is what tells us |
621 | 3246 to read the next line. */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3247 if (*lp == '\0') |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3248 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3249 quotednl = TRUE; |
2004
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3250 continue; |
6469a137fea6
(C_entries): New local variable quotednl. Used for
Richard M. Stallman <rms@gnu.org>
parents:
1938
diff
changeset
|
3251 } |
401 | 3252 lp++; |
240 | 3253 c = ' '; |
3254 } | |
3255 else if (incomm) | |
3256 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3257 switch (c) |
240 | 3258 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3259 case '*': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3260 if (*lp == '/') |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3261 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3262 c = *lp++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3263 incomm = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3264 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3265 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3266 case '\0': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3267 /* Newlines inside comments do not end macro definitions in |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3268 traditional cpp. */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3269 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3270 break; |
240 | 3271 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3272 continue; |
240 | 3273 } |
3274 else if (inquote) | |
3275 { | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3276 switch (c) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3277 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3278 case '"': |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3279 inquote = FALSE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3280 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3281 case '\0': |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3282 /* Newlines inside strings do not end macro definitions |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3283 in traditional cpp, even though compilers don't |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3284 usually accept them. */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3285 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3286 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3287 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3288 continue; |
240 | 3289 } |
3290 else if (inchar) | |
3291 { | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3292 switch (c) |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3293 { |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3294 case '\0': |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3295 /* Hmmm, something went wrong. */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3296 CNL (); |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3297 /* FALLTHRU */ |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3298 case '\'': |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3299 inchar = FALSE; |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3300 break; |
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
3301 } |
240 | 3302 continue; |
3303 } | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3304 else if (bracketlev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3305 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3306 switch (c) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3307 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3308 case ']': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3309 if (--bracketlev > 0) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3310 continue; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3311 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3312 case '\0': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3313 CNL_SAVE_DEFINEDEF (); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3314 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3315 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3316 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3317 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3318 else switch (c) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3319 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3320 case '"': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3321 inquote = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3322 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3323 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3324 switch (fvdef) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3325 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3326 case fdefunkey: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3327 case fstartlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3328 case finlist: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3329 case fignore: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3330 case vignore: |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3331 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3332 default: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3333 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3334 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3335 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3336 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3337 case '\'': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3338 inchar = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3339 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3340 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3341 if (fvdef != finlist && fvdef != fignore && fvdef !=vignore) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3342 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3343 fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3344 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3345 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3346 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3347 case '/': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3348 if (*lp == '*') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3349 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3350 lp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3351 incomm = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3352 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3353 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3354 else if (/* cplpl && */ *lp == '/') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3355 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3356 c = '\0'; |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3357 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3358 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3359 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3360 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3361 case '%': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3362 if ((c_ext & YACC) && *lp == '%') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3363 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3364 /* Entering or exiting rules section in yacc file. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3365 lp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3366 definedef = dnone; fvdef = fvnone; fvextern = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3367 typdef = tnone; structdef = snone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3368 midtoken = inquote = inchar = incomm = quotednl = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3369 bracelev = 0; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3370 yacc_rules = !yacc_rules; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3371 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3372 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3373 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3374 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3375 case '#': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3376 if (definedef == dnone) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3377 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3378 char *cp; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3379 bool cpptoken = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3380 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3381 /* Look back on this line. If all blanks, or nonblanks |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3382 followed by an end of comment, this is a preprocessor |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3383 token. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3384 for (cp = newlb.buffer; cp < lp-1; cp++) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3385 if (!iswhite (*cp)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3386 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3387 if (*cp == '*' && *(cp+1) == '/') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3388 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3389 cp++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3390 cpptoken = TRUE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3391 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3392 else |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3393 cpptoken = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3394 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3395 if (cpptoken) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3396 definedef = dsharpseen; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3397 } /* if (definedef == dnone) */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3398 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3399 case '[': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3400 bracketlev++; |
240 | 3401 continue; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3402 } /* switch (c) */ |
240 | 3403 |
3404 | |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3405 /* Consider token only if some involved conditions are satisfied. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3406 if (typdef != tignore |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3407 && definedef != dignorerest |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3408 && fvdef != finlist |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3409 && templatelev == 0 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3410 && (definedef != dnone |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3411 || structdef != scolonseen) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3412 && !inattribute) |
240 | 3413 { |
3414 if (midtoken) | |
3415 { | |
3416 if (endtoken (c)) | |
3417 { | |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3418 if (c == ':' && *lp == ':' && begtoken (lp[1])) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3419 /* This handles :: in the middle, |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3420 but not at the beginning of an identifier. |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3421 Also, space-separated :: is not recognised. */ |
240 | 3422 { |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3423 if (c_ext & C_AUTO) /* automatic detection of C++ */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3424 c_ext = (c_ext | C_PLPL) & ~C_AUTO; |
240 | 3425 lp += 2; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3426 toklen += 2; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3427 c = lp[-1]; |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
3428 goto still_in_token; |
240 | 3429 } |
3430 else | |
3431 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3432 bool funorvar = FALSE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3433 |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3434 if (yacc_rules |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3435 || consider_token (newlb.buffer + tokoff, toklen, c, |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3436 &c_ext, bracelev, parlev, |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3437 &funorvar)) |
240 | 3438 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3439 if (fvdef == foperator) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3440 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3441 char *oldlp = lp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3442 lp = skip_spaces (lp-1); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3443 if (*lp != '\0') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3444 lp += 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3445 while (*lp != '\0' |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
3446 && !iswhite (*lp) && *lp != '(') |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3447 lp += 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3448 c = *lp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3449 toklen += lp - oldlp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3450 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3451 token.named = FALSE; |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3452 if (!plainc |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3453 && nestlev > 0 && definedef == dnone) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3454 /* in struct body */ |
4750
cdefe4f21650
Mon Sep 20 18:06:12 1993 Francesco Potorti` (pot at fly)
Francesco Potortì <pot@gnu.org>
parents:
4696
diff
changeset
|
3455 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3456 write_classname (&token_name, qualifier); |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3457 linebuffer_setlen (&token_name, |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3458 token_name.len+qlen+toklen); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3459 strcat (token_name.buffer, qualifier); |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
3460 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3461 newlb.buffer + tokoff, toklen); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3462 token.named = TRUE; |
240 | 3463 } |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3464 else if (objdef == ocatseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3465 /* Objective C category */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3466 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3467 int len = strlen (objtag) + 2 + toklen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3468 linebuffer_setlen (&token_name, len); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3469 strcpy (token_name.buffer, objtag); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3470 strcat (token_name.buffer, "("); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3471 strncat (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3472 newlb.buffer + tokoff, toklen); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3473 strcat (token_name.buffer, ")"); |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3474 token.named = TRUE; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3475 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3476 else if (objdef == omethodtag |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3477 || objdef == omethodparm) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3478 /* Objective C method */ |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3479 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3480 token.named = TRUE; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3481 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3482 else if (fvdef == fdefunname) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3483 /* GNU DEFUN and similar macros */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3484 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3485 bool defun = (newlb.buffer[tokoff] == 'F'); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3486 int off = tokoff; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3487 int len = toklen; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3488 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3489 /* Rewrite the tag so that emacs lisp DEFUNs |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3490 can be found by their elisp name */ |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3491 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3492 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3493 off += 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3494 len -= 1; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3495 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3496 len = toklen; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3497 linebuffer_setlen (&token_name, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3498 strncpy (token_name.buffer, |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3499 newlb.buffer + off, len); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3500 token_name.buffer[len] = '\0'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3501 if (defun) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3502 while (--len >= 0) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3503 if (token_name.buffer[len] == '_') |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3504 token_name.buffer[len] = '-'; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3505 token.named = defun; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3506 } |
240 | 3507 else |
3508 { | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3509 linebuffer_setlen (&token_name, toklen); |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
3510 strncpy (token_name.buffer, |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3511 newlb.buffer + tokoff, toklen); |
10801
32f98b512dd9
* etags.c (C_entries): token_saved removed. Initialise tok.valid and
Francesco Potortì <pot@gnu.org>
parents:
10761
diff
changeset
|
3512 token_name.buffer[toklen] = '\0'; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3513 /* Name macros and members. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3514 token.named = (structdef == stagseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3515 || typdef == ttypeseen |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3516 || typdef == tend |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3517 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3518 && definedef == dignorerest) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3519 || (funorvar |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3520 && definedef == dnone |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3521 && structdef == snone |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3522 && bracelev > 0)); |
240 | 3523 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3524 token.lineno = lineno; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3525 token.offset = tokoff; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3526 token.length = toklen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3527 token.line = newlb.buffer; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3528 token.linepos = newlinepos; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3529 token.valid = TRUE; |
4750
cdefe4f21650
Mon Sep 20 18:06:12 1993 Francesco Potorti` (pot at fly)
Francesco Potortì <pot@gnu.org>
parents:
4696
diff
changeset
|
3530 |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3531 if (definedef == dnone |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3532 && (fvdef == fvnameseen |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3533 || fvdef == foperator |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3534 || structdef == stagseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3535 || typdef == tend |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3536 || typdef == ttypeseen |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3537 || objdef != onone)) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3538 { |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3539 if (current_lb_is_new) |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
3540 switch_line_buffers (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3541 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3542 else if (definedef != dnone |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3543 || fvdef == fdefunname |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3544 || instruct) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3545 make_C_tag (funorvar); |
240 | 3546 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3547 else /* not yacc and consider_token failed */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3548 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3549 if (inattribute && fvdef == fignore) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3550 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3551 /* We have just met __attribute__ after a |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3552 function parameter list: do not tag the |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3553 function again. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3554 fvdef = fvnone; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3555 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3556 } |
240 | 3557 midtoken = FALSE; |
3558 } | |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3559 } /* if (endtoken (c)) */ |
240 | 3560 else if (intoken (c)) |
35758
aa069bbee4c8
Work around small preprocessor bugs in sunos4 pcc and MinGW.
Francesco Potortì <pot@gnu.org>
parents:
35741
diff
changeset
|
3561 still_in_token: |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3562 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3563 toklen++; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3564 continue; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3565 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3566 } /* if (midtoken) */ |
240 | 3567 else if (begtoken (c)) |
3568 { | |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3569 switch (definedef) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3570 { |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3571 case dnone: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3572 switch (fvdef) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3573 { |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3574 case fstartlist: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3575 /* This prevents tagging fb in |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3576 void (__attribute__((noreturn)) *fb) (void); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3577 Fixing this is not easy and not very important. */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3578 fvdef = finlist; |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3579 continue; |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3580 case flistseen: |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3581 if (plainc || declarations) |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3582 { |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3583 make_C_tag (TRUE); /* a function */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3584 fvdef = fignore; |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3585 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3586 break; |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3587 } |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
3588 if (structdef == stagseen && !cjava) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3589 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3590 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3591 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3592 } |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3593 break; |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3594 case dsharpseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3595 savetoken = token; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3596 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3597 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3598 if (!yacc_rules || lp == newlb.buffer + 1) |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3599 { |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3600 tokoff = lp - 1 - newlb.buffer; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3601 toklen = 1; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3602 midtoken = TRUE; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3603 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3604 continue; |
10623
8a73e71a55e3
* etags.c (pfnote): Initialise been_warned in the node.
Francesco Potortì <pot@gnu.org>
parents:
10449
diff
changeset
|
3605 } /* if (begtoken) */ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3606 } /* if must look at token */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3607 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3608 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3609 /* Detect end of line, colon, comma, semicolon and various braces |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3610 after having handled a token.*/ |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3611 switch (c) |
401 | 3612 { |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3613 case ':': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3614 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3615 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3616 if (yacc_rules && token.offset == 0 && token.valid) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3617 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3618 make_C_tag (FALSE); /* a yacc function */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3619 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3620 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3621 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3622 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3623 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3624 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3625 case otagseen: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3626 objdef = oignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3627 make_C_tag (TRUE); /* an Objective C class */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3628 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3629 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3630 case omethodparm: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3631 objdef = omethodcolon; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3632 linebuffer_setlen (&token_name, token_name.len + 1); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3633 strcat (token_name.buffer, ":"); |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3634 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3635 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3636 if (structdef == stagseen) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3637 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3638 structdef = scolonseen; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3639 break; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3640 } |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3641 /* Should be useless, but may be work as a safety net. */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3642 if (cplpl && fvdef == flistseen) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3643 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3644 make_C_tag (TRUE); /* a function */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3645 fvdef = fignore; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3646 break; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3647 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3648 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3649 case ';': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3650 if (definedef != dnone || inattribute) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3651 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3652 switch (typdef) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3653 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3654 case tend: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3655 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3656 make_C_tag (FALSE); /* a typedef */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3657 typdef = tnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3658 fvdef = fvnone; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3659 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3660 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3661 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3662 case tignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3663 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3664 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3665 case fignore: |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3666 if (typdef == tignore || cplpl) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3667 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3668 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3669 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3670 if ((globals && bracelev == 0 && (!fvextern || declarations)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3671 || (members && instruct)) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3672 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3673 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3674 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3675 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3676 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3677 case flistseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3678 if ((declarations |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3679 && (cplpl || !instruct) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3680 && (typdef == tnone || (typdef != tignore && instruct))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3681 || (members |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3682 && plainc && instruct)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3683 make_C_tag (TRUE); /* a function */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3684 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3685 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3686 fvextern = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3687 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3688 if (declarations |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3689 && cplpl && structdef == stagseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3690 make_C_tag (FALSE); /* forward declaration */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3691 else |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3692 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3693 } /* switch (fvdef) */ |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3694 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3695 default: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3696 if (!instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3697 typdef = tnone; |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
3698 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3699 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3700 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3701 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3702 case ',': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3703 if (definedef != dnone || inattribute) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3704 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3705 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3706 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3707 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3708 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3709 make_C_tag (TRUE); /* an Objective C method */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3710 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3711 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3712 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3713 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3714 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3715 case fdefunkey: |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3716 case foperator: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3717 case fstartlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3718 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3719 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3720 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3721 break; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3722 case fdefunname: |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3723 fvdef = fignore; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3724 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3725 case fvnameseen: |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3726 if (parlev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3727 && ((globals |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3728 && bracelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3729 && templatelev == 0 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3730 && (!fvextern || declarations)) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3731 || (members && instruct))) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3732 make_C_tag (FALSE); /* a variable */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3733 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3734 case flistseen: |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3735 if ((declarations && typdef == tnone && !instruct) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3736 || (members && typdef != tignore && instruct)) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3737 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3738 make_C_tag (TRUE); /* a function */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3739 fvdef = fvnameseen; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3740 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3741 else if (!declarations) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3742 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3743 token.valid = FALSE; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3744 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3745 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3746 fvdef = fvnone; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3747 } |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3748 if (structdef == stagseen) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3749 structdef = snone; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3750 break; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3751 case ']': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3752 if (definedef != dnone || inattribute) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3753 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3754 if (structdef == stagseen) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3755 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3756 switch (typdef) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3757 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3758 case ttypeseen: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3759 case tend: |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3760 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3761 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3762 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3763 case tnone: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3764 case tinbody: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3765 switch (fvdef) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3766 { |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3767 case foperator: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3768 case finlist: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3769 case fignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3770 case vignore: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3771 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3772 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3773 if ((members && bracelev == 1) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3774 || (globals && bracelev == 0 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3775 && (!fvextern || declarations))) |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3776 make_C_tag (FALSE); /* a variable */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3777 /* FALLTHRU */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3778 default: |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3779 fvdef = fvnone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3780 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3781 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3782 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3783 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3784 case '(': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3785 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3786 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3787 attrparlev++; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3788 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3789 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3790 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3791 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3792 if (objdef == otagseen && parlev == 0) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3793 objdef = oparenseen; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3794 switch (fvdef) |
1938
1045deef809f
(C_entries): Don't reset definedef when a newline inside a comment is met.
Richard M. Stallman <rms@gnu.org>
parents:
1796
diff
changeset
|
3795 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3796 case fvnameseen: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3797 if (typdef == ttypeseen |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3798 && *lp != '*' |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3799 && !instruct) |
9193
86fd33a4f327
* etags.c (C_entries): Recognise typedef of ANSI style functions.
Francesco Potortì <pot@gnu.org>
parents:
8789
diff
changeset
|
3800 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3801 /* This handles constructs like: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3802 typedef void OperatorFun (int fun); */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3803 make_C_tag (FALSE); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3804 typdef = tignore; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3805 fvdef = fignore; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3806 break; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3807 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3808 /* FALLTHRU */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3809 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3810 fvdef = fstartlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3811 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3812 case flistseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3813 fvdef = finlist; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3814 break; |
1938
1045deef809f
(C_entries): Don't reset definedef when a newline inside a comment is met.
Richard M. Stallman <rms@gnu.org>
parents:
1796
diff
changeset
|
3815 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3816 parlev++; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3817 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3818 case ')': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3819 if (inattribute) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3820 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3821 if (--attrparlev == 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3822 inattribute = FALSE; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3823 break; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3824 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3825 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3826 break; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3827 if (objdef == ocatseen && parlev == 1) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3828 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3829 make_C_tag (TRUE); /* an Objective C category */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3830 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3831 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3832 if (--parlev == 0) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3833 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3834 switch (fvdef) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3835 { |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3836 case fstartlist: |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3837 case finlist: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3838 fvdef = flistseen; |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3839 break; |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3840 } |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3841 if (!instruct |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3842 && (typdef == tend |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3843 || typdef == ttypeseen)) |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3844 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3845 typdef = tignore; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3846 make_C_tag (FALSE); /* a typedef */ |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3847 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3848 } |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3849 else if (parlev < 0) /* can happen due to ill-conceived #if's. */ |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3850 parlev = 0; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3851 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3852 case '{': |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3853 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3854 break; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3855 if (typdef == ttypeseen) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3856 { |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3857 /* Whenever typdef is set to tinbody (currently only |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3858 here), typdefbracelev should be set to bracelev. */ |
36361
e9d69d45eae4
When in autodetect mode, switch to C++ when the template keyword is met
Francesco Potortì <pot@gnu.org>
parents:
35775
diff
changeset
|
3859 typdef = tinbody; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3860 typdefbracelev = bracelev; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3861 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3862 switch (fvdef) |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3863 { |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3864 case flistseen: |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3865 make_C_tag (TRUE); /* a function */ |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3866 /* FALLTHRU */ |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3867 case fignore: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3868 fvdef = fvnone; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
3869 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3870 case fvnone: |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3871 switch (objdef) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3872 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3873 case otagseen: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3874 make_C_tag (TRUE); /* an Objective C class */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3875 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3876 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3877 case omethodtag: |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3878 case omethodparm: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3879 make_C_tag (TRUE); /* an Objective C method */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3880 objdef = oinbody; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3881 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3882 default: |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
3883 /* Neutralize `extern "C" {' grot. */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3884 if (bracelev == 0 && structdef == snone && nestlev == 0 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3885 && typdef == tnone) |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3886 bracelev = -1; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3887 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
3888 break; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3889 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3890 switch (structdef) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3891 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3892 case skeyseen: /* unnamed struct */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3893 pushclass_above (bracelev, NULL, 0); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3894 structdef = snone; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3895 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3896 case stagseen: /* named struct or enum */ |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3897 case scolonseen: /* a class */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3898 pushclass_above (bracelev,token.line+token.offset, token.length); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3899 structdef = snone; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3900 make_C_tag (FALSE); /* a struct or enum */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3901 break; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
3902 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3903 bracelev++; |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
3904 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3905 case '*': |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3906 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3907 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3908 if (fvdef == fstartlist) |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3909 { |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3910 fvdef = fvnone; /* avoid tagging `foo' in `foo (*bar()) ()' */ |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3911 token.valid = FALSE; |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3912 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3913 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3914 case '}': |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3915 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3916 break; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
3917 if (!ignoreindent && lp == newlb.buffer + 1) |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3918 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3919 if (bracelev != 0) |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3920 token.valid = FALSE; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3921 bracelev = 0; /* reset brace level if first column */ |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3922 parlev = 0; /* also reset paren level, just in case... */ |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3923 } |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3924 else if (bracelev > 0) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3925 bracelev--; |
47157
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3926 else |
e47f0756e65a
(consider_token, C_entries): Switch to C++ parsing when
Francesco Potortì <pot@gnu.org>
parents:
47103
diff
changeset
|
3927 token.valid = FALSE; /* something gone amiss, token unreliable */ |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3928 popclass_above (bracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3929 structdef = snone; |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3930 /* Only if typdef == tinbody is typdefbracelev significant. */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3931 if (typdef == tinbody && bracelev <= typdefbracelev) |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3932 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3933 assert (bracelev == typdefbracelev); |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3934 typdef = tend; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3935 } |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3936 break; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3937 case '=': |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3938 if (definedef != dnone) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3939 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3940 switch (fvdef) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3941 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3942 case foperator: |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3943 case finlist: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3944 case fignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3945 case vignore: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3946 break; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3947 case fvnameseen: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3948 if ((members && bracelev == 1) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3949 || (globals && bracelev == 0 && (!fvextern || declarations))) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3950 make_C_tag (FALSE); /* a variable */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3951 /* FALLTHRU */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3952 default: |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3953 fvdef = vignore; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3954 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3955 break; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3956 case '<': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3957 if (cplpl |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3958 && (structdef == stagseen || fvdef == fvnameseen)) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3959 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3960 templatelev++; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3961 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3962 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3963 goto resetfvdef; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3964 case '>': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3965 if (templatelev > 0) |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3966 { |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3967 templatelev--; |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3968 break; |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3969 } |
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3970 goto resetfvdef; |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3971 case '+': |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3972 case '-': |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3973 if (objdef == oinbody && bracelev == 0) |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3974 { |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3975 objdef = omethodsign; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3976 break; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3977 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3978 /* FALLTHRU */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
3979 resetfvdef: |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3980 case '#': case '~': case '&': case '%': case '/': |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
3981 case '|': case '^': case '!': case '.': case '?': |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3982 if (definedef != dnone) |
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3983 break; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3984 /* These surely cannot follow a function tag in C. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3985 switch (fvdef) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3986 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3987 case foperator: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3988 case finlist: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3989 case fignore: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3990 case vignore: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3991 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3992 default: |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3993 fvdef = fvnone; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
3994 } |
4937
50db67ef8d64
Mon Nov 8 19:56:20 MET 1993 Tom Hageman (tom@basil.icce.rug.nl)
Francesco Potortì <pot@gnu.org>
parents:
4905
diff
changeset
|
3995 break; |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
3996 case '\0': |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3997 if (objdef == otagseen) |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
3998 { |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
3999 make_C_tag (TRUE); /* an Objective C class */ |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4000 objdef = oignore; |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4001 } |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4002 /* If a macro spans multiple lines don't reset its state. */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4003 if (quotednl) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4004 CNL_SAVE_DEFINEDEF (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4005 else |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4006 CNL (); |
2323
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4007 break; |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4008 } /* switch (c) */ |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4009 |
626d9ac52bc9
(YACC): flag added to c_ext.
Richard M. Stallman <rms@gnu.org>
parents:
2004
diff
changeset
|
4010 } /* while not eof */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4011 |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4012 free (lbs[0].lb.buffer); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4013 free (lbs[1].lb.buffer); |
240 | 4014 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4015 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4016 /* |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4017 * Process either a C++ file or a C file depending on the setting |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4018 * of a global flag. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4019 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4020 static void |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4021 default_C_entries (inf) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4022 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4023 { |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4024 C_entries (cplusplus ? C_PLPL : C_AUTO, inf); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4025 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4026 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
4027 /* Always do plain C. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4028 static void |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4029 plain_C_entries (inf) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4030 FILE *inf; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4031 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4032 C_entries (0, inf); |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4033 } |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4034 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4035 /* Always do C++. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4036 static void |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4037 Cplusplus_entries (inf) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4038 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4039 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4040 C_entries (C_PLPL, inf); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4041 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4042 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4043 /* Always do Java. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4044 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4045 Cjava_entries (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4046 FILE *inf; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4047 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4048 C_entries (C_JAVA, inf); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4049 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4050 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4051 /* Always do C*. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4052 static void |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4053 Cstar_entries (inf) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4054 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4055 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4056 C_entries (C_STAR, inf); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4057 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4058 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4059 /* Always do Yacc. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4060 static void |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4061 Yacc_entries (inf) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4062 FILE *inf; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4063 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4064 C_entries (YACC, inf); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4065 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4066 |
240 | 4067 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4068 /* Useful macros. */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4069 #define LOOP_ON_INPUT_LINES(file_pointer, line_buffer, char_pointer) \ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4070 for (; /* loop initialization */ \ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4071 !feof (file_pointer) /* loop test */ \ |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4072 && /* instructions at start of loop */ \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4073 (readline (&line_buffer, file_pointer), \ |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4074 char_pointer = line_buffer.buffer, \ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4075 TRUE); \ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4076 ) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4077 #define LOOKING_AT(cp, keyword) /* keyword is a constant string */ \ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4078 (strneq ((cp), keyword, sizeof(keyword)-1) /* cp points at keyword */ \ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4079 && notinname ((cp)[sizeof(keyword)-1]) /* end of keyword */ \ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4080 && ((cp) = skip_spaces((cp)+sizeof(keyword)-1))) /* skip spaces */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4081 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4082 /* |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4083 * Read a file, but do no processing. This is used to do regexp |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4084 * matching on files that have no language defined. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4085 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4086 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4087 just_read_file (inf) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4088 FILE *inf; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4089 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4090 register char *dummy; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4091 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4092 LOOP_ON_INPUT_LINES (inf, lb, dummy) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4093 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4094 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4095 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4096 |
240 | 4097 /* Fortran parsing */ |
4098 | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4099 static void F_takeprec __P((void)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4100 static void F_getit __P((FILE *)); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4101 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4102 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4103 F_takeprec () |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4104 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4105 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4106 if (*dbp != '*') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4107 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4108 dbp++; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4109 dbp = skip_spaces (dbp); |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4110 if (strneq (dbp, "(*)", 3)) |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4111 { |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4112 dbp += 3; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4113 return; |
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4114 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4115 if (!ISDIGIT (*dbp)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4116 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4117 --dbp; /* force failure */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4118 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4119 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4120 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4121 dbp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4122 while (ISDIGIT (*dbp)); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4123 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4124 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4125 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4126 F_getit (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4127 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4128 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4129 register char *cp; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4130 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4131 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4132 if (*dbp == '\0') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4133 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4134 readline (&lb, inf); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4135 dbp = lb.buffer; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4136 if (dbp[5] != '&') |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4137 return; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4138 dbp += 6; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4139 dbp = skip_spaces (dbp); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4140 } |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4141 if (!ISALPHA (*dbp) && *dbp != '_' && *dbp != '$') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4142 return; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4143 for (cp = dbp + 1; *cp != '\0' && intoken (*cp); cp++) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4144 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4145 make_tag (dbp, cp-dbp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4146 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4147 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4148 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4149 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4150 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4151 Fortran_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4152 FILE *inf; |
240 | 4153 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4154 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
240 | 4155 { |
4156 if (*dbp == '%') | |
4157 dbp++; /* Ratfor escape to fortran */ | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4158 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4159 if (*dbp == '\0') |
240 | 4160 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4161 switch (lowcase (*dbp)) |
240 | 4162 { |
4163 case 'i': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4164 if (nocase_tail ("integer")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4165 F_takeprec (); |
240 | 4166 break; |
4167 case 'r': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4168 if (nocase_tail ("real")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4169 F_takeprec (); |
240 | 4170 break; |
4171 case 'l': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4172 if (nocase_tail ("logical")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4173 F_takeprec (); |
240 | 4174 break; |
4175 case 'c': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4176 if (nocase_tail ("complex") || nocase_tail ("character")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4177 F_takeprec (); |
240 | 4178 break; |
4179 case 'd': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4180 if (nocase_tail ("double")) |
240 | 4181 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4182 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4183 if (*dbp == '\0') |
240 | 4184 continue; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4185 if (nocase_tail ("precision")) |
240 | 4186 break; |
4187 continue; | |
4188 } | |
4189 break; | |
4190 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4191 dbp = skip_spaces (dbp); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4192 if (*dbp == '\0') |
240 | 4193 continue; |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4194 switch (lowcase (*dbp)) |
240 | 4195 { |
4196 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4197 if (nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4198 F_getit (inf); |
240 | 4199 continue; |
4200 case 's': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4201 if (nocase_tail ("subroutine")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4202 F_getit (inf); |
240 | 4203 continue; |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4204 case 'e': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4205 if (nocase_tail ("entry")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4206 F_getit (inf); |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
4207 continue; |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4208 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4209 if (nocase_tail ("blockdata") || nocase_tail ("block data")) |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4210 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4211 dbp = skip_spaces (dbp); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4212 if (*dbp == '\0') /* assume un-named */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4213 make_tag ("blockdata", 9, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4214 lb.buffer, dbp - lb.buffer, lineno, linecharno); |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4215 else |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4216 F_getit (inf); /* look for name */ |
20788
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4217 } |
2bf465c6cc6b
(getit, Cobol_paragraphs, Pascal_functions,
Richard M. Stallman <rms@gnu.org>
parents:
20071
diff
changeset
|
4218 continue; |
240 | 4219 } |
4220 } | |
4221 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4222 |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4223 |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4224 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4225 * Ada parsing |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4226 * Original code by |
51267
c21ab9f401a9
Remove Philippe Waroquier's email address, at his request.
Francesco Potortì <pot@gnu.org>
parents:
49360
diff
changeset
|
4227 * Philippe Waroquiers (1998) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4228 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4229 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4230 static void Ada_getit __P((FILE *, char *)); |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4231 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4232 /* Once we are positioned after an "interesting" keyword, let's get |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4233 the real tag value necessary. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4234 static void |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4235 Ada_getit (inf, name_qualifier) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4236 FILE *inf; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4237 char *name_qualifier; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4238 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4239 register char *cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4240 char *name; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4241 char c; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4242 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4243 while (!feof (inf)) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4244 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4245 dbp = skip_spaces (dbp); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4246 if (*dbp == '\0' |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4247 || (dbp[0] == '-' && dbp[1] == '-')) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4248 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4249 readline (&lb, inf); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4250 dbp = lb.buffer; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4251 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4252 switch (lowcase(*dbp)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4253 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4254 case 'b': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4255 if (nocase_tail ("body")) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4256 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4257 /* Skipping body of procedure body or package body or .... |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4258 resetting qualifier to body instead of spec. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4259 name_qualifier = "/b"; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4260 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4261 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4262 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4263 case 't': |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4264 /* Skipping type of task type or protected type ... */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4265 if (nocase_tail ("type")) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4266 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4267 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4268 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4269 if (*dbp == '"') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4270 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4271 dbp += 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4272 for (cp = dbp; *cp != '\0' && *cp != '"'; cp++) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4273 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4274 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4275 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4276 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4277 dbp = skip_spaces (dbp); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4278 for (cp = dbp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4279 (*cp != '\0' |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4280 && (ISALPHA (*cp) || ISDIGIT (*cp) || *cp == '_' || *cp == '.')); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4281 cp++) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4282 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4283 if (cp == dbp) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4284 return; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4285 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4286 c = *cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4287 *cp = '\0'; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4288 name = concat (dbp, name_qualifier, ""); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4289 *cp = c; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4290 make_tag (name, strlen (name), TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4291 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4292 free (name); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4293 if (c == '"') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4294 dbp = cp + 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4295 return; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4296 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4297 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4298 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4299 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4300 Ada_funcs (inf) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4301 FILE *inf; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4302 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4303 bool inquote = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4304 bool skip_till_semicolumn = FALSE; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4305 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4306 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4307 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4308 while (*dbp != '\0') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4309 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4310 /* Skip a string i.e. "abcd". */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4311 if (inquote || (*dbp == '"')) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4312 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4313 dbp = etags_strchr ((inquote) ? dbp : dbp+1, '"'); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4314 if (dbp != NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4315 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4316 inquote = FALSE; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4317 dbp += 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4318 continue; /* advance char */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4319 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4320 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4321 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4322 inquote = TRUE; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4323 break; /* advance line */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4324 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4325 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4326 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4327 /* Skip comments. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4328 if (dbp[0] == '-' && dbp[1] == '-') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4329 break; /* advance line */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4330 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4331 /* Skip character enclosed in single quote i.e. 'a' |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4332 and skip single quote starting an attribute i.e. 'Image. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4333 if (*dbp == '\'') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4334 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4335 dbp++ ; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4336 if (*dbp != '\0') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4337 dbp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4338 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4339 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4340 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4341 if (skip_till_semicolumn) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4342 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4343 if (*dbp == ';') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4344 skip_till_semicolumn = FALSE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4345 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4346 continue; /* advance char */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4347 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4348 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4349 /* Search for beginning of a token. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4350 if (!begtoken (*dbp)) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4351 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4352 dbp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4353 continue; /* advance char */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4354 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4355 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4356 /* We are at the beginning of a token. */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4357 switch (lowcase(*dbp)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4358 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4359 case 'f': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4360 if (!packages_only && nocase_tail ("function")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4361 Ada_getit (inf, "/f"); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4362 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4363 break; /* from switch */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4364 continue; /* advance char */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4365 case 'p': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4366 if (!packages_only && nocase_tail ("procedure")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4367 Ada_getit (inf, "/p"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4368 else if (nocase_tail ("package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4369 Ada_getit (inf, "/s"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4370 else if (nocase_tail ("protected")) /* protected type */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4371 Ada_getit (inf, "/t"); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4372 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4373 break; /* from switch */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4374 continue; /* advance char */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4375 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4376 case 'u': |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4377 if (typedefs && !packages_only && nocase_tail ("use")) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4378 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4379 /* when tagging types, avoid tagging use type Pack.Typename; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4380 for this, we will skip everything till a ; */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4381 skip_till_semicolumn = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4382 continue; /* advance char */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4383 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4384 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4385 case 't': |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4386 if (!packages_only && nocase_tail ("task")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4387 Ada_getit (inf, "/k"); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4388 else if (typedefs && !packages_only && nocase_tail ("type")) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4389 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4390 Ada_getit (inf, "/t"); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4391 while (*dbp != '\0') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4392 dbp += 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4393 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4394 else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4395 break; /* from switch */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4396 continue; /* advance char */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4397 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4398 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4399 /* Look for the end of the token. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4400 while (!endtoken (*dbp)) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4401 dbp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4402 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4403 } /* advance char */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4404 } /* advance line */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4405 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4406 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4407 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4408 /* |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4409 * Unix and microcontroller assembly tag handling |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4410 * Labels: /^[a-zA-Z_.$][a-zA_Z0-9_.$]*[: ^I^J]/ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4411 * Idea by Bob Weiner, Motorola Inc. (1994) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4412 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4413 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4414 Asm_labels (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4415 FILE *inf; |
240 | 4416 { |
4417 register char *cp; | |
4418 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4419 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 4420 { |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4421 /* If first char is alphabetic or one of [_.$], test for colon |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4422 following identifier. */ |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4423 if (ISALPHA (*cp) || *cp == '_' || *cp == '.' || *cp == '$') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4424 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4425 /* Read past label. */ |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4426 cp++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4427 while (ISALNUM (*cp) || *cp == '_' || *cp == '.' || *cp == '$') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4428 cp++; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4429 if (*cp == ':' || iswhite (*cp)) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4430 /* Found end of label, so copy it and add it to the table. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4431 make_tag (lb.buffer, cp - lb.buffer, TRUE, |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4432 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4433 } |
240 | 4434 } |
4435 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4436 |
240 | 4437 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4438 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4439 * Perl support |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4440 * Perl sub names: /^sub[ \t\n]+[^ \t\n{]+/ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4441 * Perl variable names: /^(my|local).../ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4442 * Original code by Bart Robinson <lomew@cs.utah.edu> (1995) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4443 * Additions by Michael Ernst <mernst@alum.mit.edu> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4444 * Ideas by Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> (2001) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4445 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4446 static void |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4447 Perl_functions (inf) |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4448 FILE *inf; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4449 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4450 char *package = savestr ("main"); /* current package name */ |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4451 register char *cp; |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4452 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4453 LOOP_ON_INPUT_LINES (inf, lb, cp) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4454 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4455 skip_spaces(cp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4456 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4457 if (LOOKING_AT (cp, "package")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4458 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4459 free (package); |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4460 get_tag (cp, &package); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4461 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4462 else if (LOOKING_AT (cp, "sub")) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4463 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4464 char *pos; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4465 char *sp = cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4466 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4467 while (!notinname (*cp)) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4468 cp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4469 if (cp == sp) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4470 continue; /* nothing found */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4471 if ((pos = etags_strchr (sp, ':')) != NULL |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4472 && pos < cp && pos[1] == ':') |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4473 /* The name is already qualified. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4474 make_tag (sp, cp - sp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4475 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4476 else |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4477 /* Qualify it. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4478 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4479 char savechar, *name; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4480 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4481 savechar = *cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4482 *cp = '\0'; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4483 name = concat (package, "::", sp); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4484 *cp = savechar; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4485 make_tag (name, strlen(name), TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4486 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4487 free (name); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4488 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4489 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4490 else if (globals) /* only if we are tagging global vars */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4491 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4492 /* Skip a qualifier, if any. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4493 bool qual = LOOKING_AT (cp, "my") || LOOKING_AT (cp, "local"); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4494 /* After "my" or "local", but before any following paren or space. */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4495 char *varstart = cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4496 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4497 if (qual /* should this be removed? If yes, how? */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4498 && (*cp == '$' || *cp == '@' || *cp == '%')) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4499 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4500 varstart += 1; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4501 do |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4502 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4503 while (ISALNUM (*cp) || *cp == '_'); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4504 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4505 else if (qual) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4506 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4507 /* Should be examining a variable list at this point; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4508 could insist on seeing an open parenthesis. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4509 while (*cp != '\0' && *cp != ';' && *cp != '=' && *cp != ')') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4510 cp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4511 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4512 else |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4513 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4514 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4515 make_tag (varstart, cp - varstart, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4516 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4517 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4518 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4519 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4520 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4521 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4522 /* |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4523 * Python support |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4524 * Look for /^[\t]*def[ \t\n]+[^ \t\n(:]+/ or /^class[ \t\n]+[^ \t\n(:]+/ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4525 * Idea by Eric S. Raymond <esr@thyrsus.com> (1997) |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4526 * More ideas by seb bacon <seb@jamkit.com> (2002) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4527 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4528 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4529 Python_functions (inf) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4530 FILE *inf; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4531 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4532 register char *cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4533 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4534 LOOP_ON_INPUT_LINES (inf, lb, cp) |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4535 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4536 cp = skip_spaces (cp); |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4537 if (LOOKING_AT (cp, "def") || LOOKING_AT (cp, "class")) |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4538 { |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4539 char *name = cp; |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4540 while (!notinname (*cp) && *cp != ':') |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4541 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4542 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4543 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4544 } |
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4545 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4546 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4547 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4548 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4549 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4550 * PHP support |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4551 * Look for: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4552 * - /^[ \t]*function[ \t\n]+[^ \t\n(]+/ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4553 * - /^[ \t]*class[ \t\n]+[^ \t\n]+/ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4554 * - /^[ \t]*define\(\"[^\"]+/ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4555 * Only with --members: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4556 * - /^[ \t]*var[ \t\n]+\$[^ \t\n=;]/ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4557 * Idea by Diez B. Roggisch (2001) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4558 */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4559 static void |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4560 PHP_functions (inf) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4561 FILE *inf; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4562 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4563 register char *cp, *name; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4564 bool search_identifier = FALSE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4565 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4566 LOOP_ON_INPUT_LINES (inf, lb, cp) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4567 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4568 cp = skip_spaces (cp); |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4569 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4570 if (search_identifier |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4571 && *cp != '\0') |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4572 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4573 while (!notinname (*cp)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4574 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4575 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4576 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4577 search_identifier = FALSE; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4578 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4579 else if (LOOKING_AT (cp, "function")) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4580 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4581 if(*cp == '&') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4582 cp = skip_spaces (cp+1); |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4583 if(*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4584 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4585 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4586 while (!notinname (*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4587 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4588 make_tag (name, cp - name, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4589 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4590 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4591 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4592 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4593 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4594 else if (LOOKING_AT (cp, "class")) |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4595 { |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4596 if (*cp != '\0') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4597 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4598 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4599 while (*cp != '\0' && !iswhite (*cp)) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4600 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4601 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4602 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4603 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4604 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4605 search_identifier = TRUE; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4606 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4607 else if (strneq (cp, "define", 6) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4608 && (cp = skip_spaces (cp+6)) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4609 && *cp++ == '(' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4610 && (*cp == '"' || *cp == '\'')) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4611 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4612 char quote = *cp++; |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4613 name = cp; |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4614 while (*cp != quote && *cp != '\0') |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4615 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4616 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4617 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4618 } |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4619 else if (members |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4620 && LOOKING_AT (cp, "var") |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4621 && *cp == '$') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4622 { |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
4623 name = cp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4624 while (!notinname(*cp)) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
4625 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4626 make_tag (name, cp - name, FALSE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4627 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4628 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4629 } |
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4630 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4631 |
13404
9d6c77b66cfb
* etags.c (get_lang_from_name, get_lang_from_interpreter,
Francesco Potortì <pot@gnu.org>
parents:
13380
diff
changeset
|
4632 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4633 /* |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4634 * Cobol tag functions |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4635 * We could look for anything that could be a paragraph name. |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4636 * i.e. anything that starts in column 8 is one word and ends in a full stop. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4637 * Idea by Corny de Souza (1993) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4638 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4639 static void |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4640 Cobol_paragraphs (inf) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4641 FILE *inf; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4642 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4643 register char *bp, *ep; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4644 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4645 LOOP_ON_INPUT_LINES (inf, lb, bp) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4646 { |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4647 if (lb.len < 9) |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4648 continue; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4649 bp += 8; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4650 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4651 /* If eoln, compiler option or comment ignore whole line. */ |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4652 if (bp[-1] != ' ' || !ISALNUM (bp[0])) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4653 continue; |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4654 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
4655 for (ep = bp; ISALNUM (*ep) || *ep == '-'; ep++) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4656 continue; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4657 if (*ep++ == '.') |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4658 make_tag (bp, ep - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4659 lb.buffer, ep - lb.buffer + 1, lineno, linecharno); |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4660 } |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4661 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4662 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4663 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4664 /* |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4665 * Makefile support |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4666 * Ideas by Assar Westerlund <assar@sics.se> (2001) |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4667 */ |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4668 static void |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4669 Makefile_targets (inf) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4670 FILE *inf; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4671 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4672 register char *bp; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4673 |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4674 LOOP_ON_INPUT_LINES (inf, lb, bp) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4675 { |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4676 if (*bp == '\t' || *bp == '#') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4677 continue; |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4678 while (*bp != '\0' && *bp != '=' && *bp != ':') |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4679 bp++; |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
4680 if (*bp == ':' || (globals && *bp == '=')) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4681 make_tag (lb.buffer, bp - lb.buffer, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4682 lb.buffer, bp - lb.buffer + 1, lineno, linecharno); |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4683 } |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4684 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4685 |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
4686 |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4687 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4688 * Pascal parsing |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4689 * Original code by Mosur K. Mohan (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4690 * |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4691 * Locates tags for procedures & functions. Doesn't do any type- or |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4692 * var-definitions. It does look for the keyword "extern" or |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4693 * "forward" immediately following the procedure statement; if found, |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
4694 * the tag is skipped. |
240 | 4695 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4696 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4697 Pascal_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4698 FILE *inf; |
240 | 4699 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4700 linebuffer tline; /* mostly copied from C_entries */ |
240 | 4701 long save_lcno; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4702 int save_lineno, namelen, taglen; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4703 char c, *name; |
240 | 4704 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
4705 bool /* each of these flags is TRUE iff: */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4706 incomment, /* point is inside a comment */ |
240 | 4707 inquote, /* point is inside '..' string */ |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4708 get_tagname, /* point is after PROCEDURE/FUNCTION |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4709 keyword, so next item = potential tag */ |
240 | 4710 found_tag, /* point is after a potential tag */ |
4711 inparms, /* point is within parameter-list */ | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4712 verify_tag; /* point has passed the parm-list, so the |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4713 next token will determine whether this |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4714 is a FORWARD/EXTERN to be ignored, or |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4715 whether it is a real tag */ |
240 | 4716 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4717 save_lcno = save_lineno = namelen = taglen = 0; /* keep compiler quiet */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4718 name = NULL; /* keep compiler quiet */ |
240 | 4719 dbp = lb.buffer; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4720 *dbp = '\0'; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4721 linebuffer_init (&tline); |
240 | 4722 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4723 incomment = inquote = FALSE; |
240 | 4724 found_tag = FALSE; /* have a proc name; check if extern */ |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4725 get_tagname = FALSE; /* found "procedure" keyword */ |
240 | 4726 inparms = FALSE; /* found '(' after "proc" */ |
4727 verify_tag = FALSE; /* check if "extern" is ahead */ | |
4728 | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4729 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4730 while (!feof (inf)) /* long main loop to get next char */ |
240 | 4731 { |
4732 c = *dbp++; | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4733 if (c == '\0') /* if end of line */ |
240 | 4734 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
4735 readline (&lb, inf); |
15243
c024dca549c5
* etags.c (CNL_SAVE_DEFINEDEF): Set linecharno for use by readline.
Francesco Potortì <pot@gnu.org>
parents:
14982
diff
changeset
|
4736 dbp = lb.buffer; |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4737 if (*dbp == '\0') |
240 | 4738 continue; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4739 if (!((found_tag && verify_tag) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4740 || get_tagname)) |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4741 c = *dbp++; /* only if don't need *dbp pointing |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4742 to the beginning of the name of |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4743 the procedure or function */ |
240 | 4744 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4745 if (incomment) |
240 | 4746 { |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4747 if (c == '}') /* within { } comments */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4748 incomment = FALSE; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4749 else if (c == '*' && *dbp == ')') /* within (* *) comments */ |
240 | 4750 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4751 dbp++; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4752 incomment = FALSE; |
240 | 4753 } |
4754 continue; | |
4755 } | |
4756 else if (inquote) | |
4757 { | |
4758 if (c == '\'') | |
4759 inquote = FALSE; | |
4760 continue; | |
4761 } | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4762 else |
240 | 4763 switch (c) |
4764 { | |
4765 case '\'': | |
4766 inquote = TRUE; /* found first quote */ | |
4767 continue; | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4768 case '{': /* found open { comment */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4769 incomment = TRUE; |
240 | 4770 continue; |
4771 case '(': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4772 if (*dbp == '*') /* found open (* comment */ |
240 | 4773 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
4774 incomment = TRUE; |
240 | 4775 dbp++; |
4776 } | |
4777 else if (found_tag) /* found '(' after tag, i.e., parm-list */ | |
4778 inparms = TRUE; | |
4779 continue; | |
4780 case ')': /* end of parms list */ | |
4781 if (inparms) | |
4782 inparms = FALSE; | |
4783 continue; | |
4784 case ';': | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4785 if (found_tag && !inparms) /* end of proc or fn stmt */ |
240 | 4786 { |
4787 verify_tag = TRUE; | |
4788 break; | |
4789 } | |
4790 continue; | |
4791 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4792 if (found_tag && verify_tag && (*dbp != ' ')) |
240 | 4793 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4794 /* Check if this is an "extern" declaration. */ |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4795 if (*dbp == '\0') |
240 | 4796 continue; |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4797 if (lowcase (*dbp == 'e')) |
240 | 4798 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4799 if (nocase_tail ("extern")) /* superfluous, really! */ |
240 | 4800 { |
4801 found_tag = FALSE; | |
4802 verify_tag = FALSE; | |
4803 } | |
4804 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4805 else if (lowcase (*dbp) == 'f') |
240 | 4806 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
4807 if (nocase_tail ("forward")) /* check for forward reference */ |
240 | 4808 { |
4809 found_tag = FALSE; | |
4810 verify_tag = FALSE; | |
4811 } | |
4812 } | |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4813 if (found_tag && verify_tag) /* not external proc, so make tag */ |
240 | 4814 { |
4815 found_tag = FALSE; | |
4816 verify_tag = FALSE; | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4817 make_tag (name, namelen, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4818 tline.buffer, taglen, save_lineno, save_lcno); |
240 | 4819 continue; |
4820 } | |
4821 } | |
4822 if (get_tagname) /* grab name of proc or fn */ | |
4823 { | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4824 char *cp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4825 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4826 if (*dbp == '\0') |
240 | 4827 continue; |
4828 | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4829 /* Find block name. */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4830 for (cp = dbp + 1; *cp != '\0' && !endtoken (*cp); cp++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4831 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4832 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4833 /* Save all values for later tagging. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4834 linebuffer_setlen (&tline, lb.len); |
240 | 4835 strcpy (tline.buffer, lb.buffer); |
4836 save_lineno = lineno; | |
4837 save_lcno = linecharno; | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4838 name = tline.buffer + (dbp - lb.buffer); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4839 namelen = cp - dbp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4840 taglen = cp - lb.buffer + 1; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4841 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
4842 dbp = cp; /* set dbp to e-o-token */ |
240 | 4843 get_tagname = FALSE; |
4844 found_tag = TRUE; | |
4845 continue; | |
4846 | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4847 /* And proceed to check for "extern". */ |
240 | 4848 } |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4849 else if (!incomment && !inquote && !found_tag) |
240 | 4850 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4851 /* Check for proc/fn keywords. */ |
12398
ccfd646cfad9
* etags.c (plain_C_entries): new function.
Francesco Potortì <pot@gnu.org>
parents:
12344
diff
changeset
|
4852 switch (lowcase (c)) |
240 | 4853 { |
4854 case 'p': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4855 if (nocase_tail ("rocedure")) /* c = 'p', dbp has advanced */ |
240 | 4856 get_tagname = TRUE; |
4857 continue; | |
4858 case 'f': | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4859 if (nocase_tail ("unction")) |
240 | 4860 get_tagname = TRUE; |
4861 continue; | |
4862 } | |
4863 } | |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4864 } /* while not eof */ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
4865 |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
4866 free (tline.buffer); |
240 | 4867 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4868 |
240 | 4869 |
4870 /* | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4871 * Lisp tag functions |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
4872 * look for (def or (DEF, quote or QUOTE |
240 | 4873 */ |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
4874 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4875 static void L_getit __P((void)); |
240 | 4876 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4877 static void |
240 | 4878 L_getit () |
4879 { | |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4880 if (*dbp == '\'') /* Skip prefix quote */ |
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4881 dbp++; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4882 else if (*dbp == '(') |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4883 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4884 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4885 /* Try to skip "(quote " */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4886 if (!LOOKING_AT (dbp, "quote") && !LOOKING_AT (dbp, "QUOTE")) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4887 /* Ok, then skip "(" before name in (defstruct (foo)) */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4888 dbp = skip_spaces (dbp); |
4663
5f0ff5c890a8
* etags.c (L_isdef, L_isquote, L_getit): small optimisations.
Francesco Potortì <pot@gnu.org>
parents:
4406
diff
changeset
|
4889 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4890 get_tag (dbp, NULL); |
240 | 4891 } |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4892 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4893 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4894 Lisp_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4895 FILE *inf; |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4896 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4897 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4898 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4899 if (dbp[0] != '(') |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4900 continue; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4901 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4902 if (strneq (dbp+1, "def", 3) || strneq (dbp+1, "DEF", 3)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4903 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4904 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4905 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4906 L_getit (); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4907 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4908 else |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4909 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4910 /* Check for (foo::defmumble name-defined ... */ |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4911 do |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4912 dbp++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4913 while (!notinname (*dbp) && *dbp != ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4914 if (*dbp == ':') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4915 { |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4916 do |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4917 dbp++; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4918 while (*dbp == ':'); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4919 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4920 if (strneq (dbp, "def", 3) || strneq (dbp, "DEF", 3)) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4921 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4922 dbp = skip_non_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4923 dbp = skip_spaces (dbp); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4924 L_getit (); |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4925 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4926 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4927 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4928 } |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4929 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
4930 |
240 | 4931 |
4932 /* | |
57084
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4933 * Lua script language parsing |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4934 * Original code by David A. Capello <dacap@users.sourceforge.net> (2004) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4935 * |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4936 * "function" and "local function" are tags if they start at column 1. |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4937 */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4938 static void |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4939 Lua_functions (inf) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4940 FILE *inf; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4941 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4942 register char *bp; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4943 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4944 LOOP_ON_INPUT_LINES (inf, lb, bp) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4945 { |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4946 if (bp[0] != 'f' && bp[0] != 'l') |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4947 continue; |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4948 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4949 LOOKING_AT (bp, "local"); /* skip possible "local" */ |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4950 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4951 if (LOOKING_AT (bp, "function")) |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4952 get_tag (bp, NULL); |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4953 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4954 } |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4955 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4956 |
cdba91059d7d
[EXIT_SUCCESS, EXIT_FAILURE]: Define them when no
Francesco Potortì <pot@gnu.org>
parents:
57013
diff
changeset
|
4957 /* |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4958 * Postscript tag functions |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4959 * Just look for lines where the first character is '/' |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4960 * Also look at "defineps" for PSWrap |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4961 * Ideas by: |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4962 * Richard Mlynarik <mly@adoc.xerox.com> (1997) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4963 * Masatake Yamato <masata-y@is.aist-nara.ac.jp> (1999) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4964 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4965 static void |
49125
7ce72b4a2d94
changes for language-sepcific help by Philippe
Francesco Potortì <pot@gnu.org>
parents:
47218
diff
changeset
|
4966 PS_functions (inf) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4967 FILE *inf; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4968 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4969 register char *bp, *ep; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4970 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4971 LOOP_ON_INPUT_LINES (inf, lb, bp) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4972 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4973 if (bp[0] == '/') |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4974 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4975 for (ep = bp+1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4976 *ep != '\0' && *ep != ' ' && *ep != '{'; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4977 ep++) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4978 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4979 make_tag (bp, ep - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4980 lb.buffer, ep - lb.buffer + 1, lineno, linecharno); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
4981 } |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4982 else if (LOOKING_AT (bp, "defineps")) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
4983 get_tag (bp, NULL); |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4984 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4985 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4986 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4987 |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
4988 /* |
240 | 4989 * Scheme tag functions |
4990 * look for (def... xyzzy | |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4991 * (def... (xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4992 * (def ... ((...(xyzzy .... |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4993 * (set! xyzzy |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
4994 * Original code by Ken Haase (1985?) |
240 | 4995 */ |
4996 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
4997 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4998 Scheme_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
4999 FILE *inf; |
240 | 5000 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5001 register char *bp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5002 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5003 LOOP_ON_INPUT_LINES (inf, lb, bp) |
240 | 5004 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5005 if (strneq (bp, "(def", 4) || strneq (bp, "(DEF", 4)) |
240 | 5006 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5007 bp = skip_non_spaces (bp+4); |
240 | 5008 /* Skip over open parens and white space */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5009 while (notinname (*bp)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5010 bp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5011 get_tag (bp, NULL); |
240 | 5012 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5013 if (LOOKING_AT (bp, "(SET!") || LOOKING_AT (bp, "(set!")) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5014 get_tag (bp, NULL); |
240 | 5015 } |
5016 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5017 |
240 | 5018 |
5019 /* Find tags in TeX and LaTeX input files. */ | |
5020 | |
5021 /* TEX_toktab is a table of TeX control sequences that define tags. | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5022 * Each entry records one such control sequence. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5023 * |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5024 * Original code from who knows whom. |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5025 * Ideas by: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5026 * Stefan Monnier (2002) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5027 */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5028 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5029 static linebuffer *TEX_toktab = NULL; /* Table with tag tokens */ |
240 | 5030 |
5031 /* Default set of control sequences to put into TEX_toktab. | |
5032 The value of environment var TEXTAGS is prepended to this. */ | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5033 static char *TEX_defenv = "\ |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
5034 :chapter:section:subsection:subsubsection:eqno:label:ref:cite:bibitem\ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5035 :part:appendix:entry:index:def\ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5036 :newcommand:renewcommand:newenvironment:renewenvironment"; |
240 | 5037 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5038 static void TEX_mode __P((FILE *)); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5039 static void TEX_decode_env __P((char *, char *)); |
240 | 5040 |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5041 static char TEX_esc = '\\'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5042 static char TEX_opgrp = '{'; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
5043 static char TEX_clgrp = '}'; |
240 | 5044 |
5045 /* | |
5046 * TeX/LaTeX scanning loop. | |
5047 */ | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5048 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5049 TeX_commands (inf) |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5050 FILE *inf; |
240 | 5051 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5052 char *cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5053 linebuffer *key; |
240 | 5054 |
5055 /* Select either \ or ! as escape character. */ | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5056 TEX_mode (inf); |
240 | 5057 |
5058 /* Initialize token table once from environment. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5059 if (TEX_toktab == NULL) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5060 TEX_decode_env ("TEXTAGS", TEX_defenv); |
240 | 5061 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5062 LOOP_ON_INPUT_LINES (inf, lb, cp) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5063 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5064 /* Look at each TEX keyword in line. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5065 for (;;) |
1026
cc96e2df9b71
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
774
diff
changeset
|
5066 { |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5067 /* Look for a TEX escape. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5068 while (*cp++ != TEX_esc) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5069 if (cp[-1] == '\0' || cp[-1] == '%') |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5070 goto tex_next_line; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5071 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5072 for (key = TEX_toktab; key->buffer != NULL; key++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5073 if (strneq (cp, key->buffer, key->len)) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5074 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5075 register char *p; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5076 int namelen, linelen; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5077 bool opgrp = FALSE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5078 |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5079 cp = skip_spaces (cp + key->len); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5080 if (*cp == TEX_opgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5081 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5082 opgrp = TRUE; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5083 cp++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5084 } |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5085 for (p = cp; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5086 (!iswhite (*p) && *p != '#' && |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5087 *p != TEX_opgrp && *p != TEX_clgrp); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5088 p++) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5089 continue; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5090 namelen = p - cp; |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5091 linelen = lb.len; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5092 if (!opgrp || *p == TEX_clgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5093 { |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5094 while (*p != '\0' && *p != TEX_opgrp && *p != TEX_clgrp) |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5095 *p++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5096 linelen = p - lb.buffer + 1; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5097 } |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5098 make_tag (cp, namelen, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5099 lb.buffer, linelen, lineno, linecharno); |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5100 goto tex_next_line; /* We only tag a line once */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5101 } |
240 | 5102 } |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5103 tex_next_line: |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5104 ; |
240 | 5105 } |
5106 } | |
5107 | |
5108 #define TEX_LESC '\\' | |
5109 #define TEX_SESC '!' | |
5110 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5111 /* Figure out whether TeX's escapechar is '\\' or '!' and set grouping |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5112 chars accordingly. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5113 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5114 TEX_mode (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5115 FILE *inf; |
240 | 5116 { |
5117 int c; | |
5118 | |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5119 while ((c = getc (inf)) != EOF) |
240 | 5120 { |
5121 /* Skip to next line if we hit the TeX comment char. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5122 if (c == '%') |
240 | 5123 while (c != '\n') |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5124 c = getc (inf); |
240 | 5125 else if (c == TEX_LESC || c == TEX_SESC ) |
5126 break; | |
5127 } | |
5128 | |
5129 if (c == TEX_LESC) | |
5130 { | |
5131 TEX_esc = TEX_LESC; | |
5132 TEX_opgrp = '{'; | |
5133 TEX_clgrp = '}'; | |
5134 } | |
5135 else | |
5136 { | |
5137 TEX_esc = TEX_SESC; | |
5138 TEX_opgrp = '<'; | |
5139 TEX_clgrp = '>'; | |
5140 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5141 /* If the input file is compressed, inf is a pipe, and rewind may fail. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5142 No attempt is made to correct the situation. */ |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5143 rewind (inf); |
240 | 5144 } |
5145 | |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5146 /* Read environment and prepend it to the default string. |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
5147 Build token table. */ |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5148 static void |
240 | 5149 TEX_decode_env (evarname, defenv) |
5150 char *evarname; | |
5151 char *defenv; | |
5152 { | |
5153 register char *env, *p; | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5154 int i, len; |
240 | 5155 |
5156 /* Append default string to environment. */ | |
5157 env = getenv (evarname); | |
5158 if (!env) | |
5159 env = defenv; | |
5160 else | |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5161 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5162 char *oldenv = env; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5163 env = concat (oldenv, defenv, ""); |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5164 } |
240 | 5165 |
5166 /* Allocate a token table */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5167 for (len = 1, p = env; p;) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5168 if ((p = etags_strchr (p, ':')) && *++p != '\0') |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5169 len++; |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5170 TEX_toktab = xnew (len, linebuffer); |
240 | 5171 |
5172 /* Unpack environment string into token table. Be careful about */ | |
5173 /* zero-length strings (leading ':', "::" and trailing ':') */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5174 for (i = 0; *env != '\0';) |
240 | 5175 { |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
5176 p = etags_strchr (env, ':'); |
240 | 5177 if (!p) /* End of environment string. */ |
5178 p = env + strlen (env); | |
5179 if (p - env > 0) | |
5180 { /* Only non-zero strings. */ | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5181 TEX_toktab[i].buffer = savenstr (env, p - env); |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5182 TEX_toktab[i].len = p - env; |
240 | 5183 i++; |
5184 } | |
5185 if (*p) | |
5186 env = p + 1; | |
5187 else | |
5188 { | |
45654
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5189 TEX_toktab[i].buffer = NULL; /* Mark end of table. */ |
816b7344d062
(TeX_commands): Skip comments.
Francesco Potortì <pot@gnu.org>
parents:
45643
diff
changeset
|
5190 TEX_toktab[i].len = 0; |
240 | 5191 break; |
5192 } | |
5193 } | |
5194 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5195 |
240 | 5196 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5197 /* Texinfo support. Dave Love, Mar. 2000. */ |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5198 static void |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5199 Texinfo_nodes (inf) |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5200 FILE * inf; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5201 { |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5202 char *cp, *start; |
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5203 LOOP_ON_INPUT_LINES (inf, lb, cp) |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5204 if (LOOKING_AT (cp, "@node")) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5205 { |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5206 start = cp; |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5207 while (*cp != '\0' && *cp != ',') |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5208 cp++; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5209 make_tag (start, cp - start, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5210 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5211 } |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5212 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5213 |
28663
75826102199c
(Texinfo_functions): New function.
Dave Love <fx@gnu.org>
parents:
27948
diff
changeset
|
5214 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5215 /* Similar to LOOKING_AT but does not use notinname, does not skip */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5216 #define LOOKING_AT_NOCASE(cp, kw) /* kw is a constant string */ \ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5217 (strncaseeq ((cp), kw, sizeof(kw)-1) /* cp points at kw */ \ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5218 && ((cp) += sizeof(kw)-1)) /* skip spaces */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5219 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5220 /* |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5221 * HTML support. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5222 * Contents of <title>, <h1>, <h2>, <h3> are tags. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5223 * Contents of <a name=xxx> are tags with name xxx. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5224 * |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5225 * Francesco Potort́, 2002. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5226 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5227 static void |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5228 HTML_labels (inf) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5229 FILE * inf; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5230 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5231 bool getnext = FALSE; /* next text outside of HTML tags is a tag */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5232 bool skiptag = FALSE; /* skip to the end of the current HTML tag */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5233 bool intag = FALSE; /* inside an html tag, looking for ID= */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5234 bool inanchor = FALSE; /* when INTAG, is an anchor, look for NAME= */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5235 char *end; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5236 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5237 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5238 linebuffer_setlen (&token_name, 0); /* no name in buffer */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5239 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5240 LOOP_ON_INPUT_LINES (inf, lb, dbp) |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5241 for (;;) /* loop on the same line */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5242 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5243 if (skiptag) /* skip HTML tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5244 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5245 while (*dbp != '\0' && *dbp != '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5246 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5247 if (*dbp == '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5248 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5249 dbp += 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5250 skiptag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5251 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5252 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5253 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5254 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5255 |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5256 else if (intag) /* look for "name=" or "id=" */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5257 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5258 while (*dbp != '\0' && *dbp != '>' |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5259 && lowcase (*dbp) != 'n' && lowcase (*dbp) != 'i') |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5260 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5261 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5262 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5263 if (*dbp == '>') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5264 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5265 dbp += 1; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5266 intag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5267 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5268 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5269 if ((inanchor && LOOKING_AT_NOCASE (dbp, "name=")) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5270 || LOOKING_AT_NOCASE (dbp, "id=")) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5271 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5272 bool quoted = (dbp[0] == '"'); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5273 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5274 if (quoted) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5275 for (end = ++dbp; *end != '\0' && *end != '"'; end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5276 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5277 else |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5278 for (end = dbp; *end != '\0' && intoken (*end); end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5279 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5280 linebuffer_setlen (&token_name, end - dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5281 strncpy (token_name.buffer, dbp, end - dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5282 token_name.buffer[end - dbp] = '\0'; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5283 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5284 dbp = end; |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5285 intag = FALSE; /* we found what we looked for */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5286 skiptag = TRUE; /* skip to the end of the tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5287 getnext = TRUE; /* then grab the text */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5288 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5289 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5290 dbp += 1; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5291 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5292 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5293 else if (getnext) /* grab next tokens and tag them */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5294 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5295 dbp = skip_spaces (dbp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5296 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5297 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5298 if (*dbp == '<') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5299 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5300 intag = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5301 inanchor = (lowcase (dbp[1]) == 'a' && !intoken (dbp[2])); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5302 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5303 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5304 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5305 for (end = dbp + 1; *end != '\0' && *end != '<'; end++) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5306 continue; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5307 make_tag (token_name.buffer, token_name.len, TRUE, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5308 dbp, end - dbp, lineno, linecharno); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5309 linebuffer_setlen (&token_name, 0); /* no name in buffer */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5310 getnext = FALSE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5311 break; /* go to next line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5312 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5313 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5314 else /* look for an interesting HTML tag */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5315 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5316 while (*dbp != '\0' && *dbp != '<') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5317 dbp++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5318 if (*dbp == '\0') |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5319 break; /* go to next line */ |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5320 intag = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5321 if (lowcase (dbp[1]) == 'a' && !intoken (dbp[2])) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5322 { |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5323 inanchor = TRUE; |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5324 continue; /* look on the same line */ |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5325 } |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5326 else if (LOOKING_AT_NOCASE (dbp, "<title>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5327 || LOOKING_AT_NOCASE (dbp, "<h1>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5328 || LOOKING_AT_NOCASE (dbp, "<h2>") |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5329 || LOOKING_AT_NOCASE (dbp, "<h3>")) |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5330 { |
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5331 intag = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5332 getnext = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5333 continue; /* look on the same line */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5334 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5335 dbp += 1; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5336 } |
47103
4098bad57f21
(C_entries): Corrected a problem with const C++ funcs.
Francesco Potortì <pot@gnu.org>
parents:
47081
diff
changeset
|
5337 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5338 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5339 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5340 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5341 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5342 * Prolog support |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5343 * |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5344 * Assumes that the predicate or rule starts at column 0. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5345 * Only the first clause of a predicate or rule is added. |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5346 * Original code by Sunichirou Sugou (1989) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5347 * Rewritten by Anders Lindgren (1996) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5348 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5349 static int prolog_pr __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5350 static void prolog_skip_comment __P((linebuffer *, FILE *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5351 static int prolog_atom __P((char *, int)); |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5352 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5353 static void |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5354 Prolog_functions (inf) |
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5355 FILE *inf; |
240 | 5356 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5357 char *cp, *last; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5358 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5359 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5360 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5361 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5362 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5363 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5364 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5365 LOOP_ON_INPUT_LINES (inf, lb, cp) |
240 | 5366 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5367 if (cp[0] == '\0') /* Empty line */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5368 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5369 else if (iswhite (cp[0])) /* Not a predicate */ |
240 | 5370 continue; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5371 else if (cp[0] == '/' && cp[1] == '*') /* comment. */ |
16573
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
5372 prolog_skip_comment (&lb, inf); |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5373 else if ((len = prolog_pr (cp, last)) > 0) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5374 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5375 /* Predicate or rule. Store the function name so that we |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5376 only generate a tag for the first clause. */ |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5377 if (last == NULL) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5378 last = xnew(len + 1, char); |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5379 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5380 xrnew (last, len + 1, char); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5381 allocated = len + 1; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5382 strncpy (last, cp, len); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5383 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5384 } |
240 | 5385 } |
5386 } | |
5387 | |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5388 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5389 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5390 prolog_skip_comment (plb, inf) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5391 linebuffer *plb; |
6756
8086a2590e2f
* etags.c (outf, outfiledir): renamed to tagf, tagfiledir.
Francesco Potortì <pot@gnu.org>
parents:
6592
diff
changeset
|
5392 FILE *inf; |
240 | 5393 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5394 char *cp; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5395 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5396 do |
240 | 5397 { |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5398 for (cp = plb->buffer; *cp != '\0'; cp++) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5399 if (cp[0] == '*' && cp[1] == '/') |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5400 return; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5401 readline (plb, inf); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5402 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5403 while (!feof(inf)); |
240 | 5404 } |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5405 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5406 /* |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5407 * A predicate or rule definition is added if it matches: |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5408 * <beginning of line><Prolog Atom><whitespace>( |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5409 * or <beginning of line><Prolog Atom><whitespace>:- |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5410 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5411 * It is added to the tags database if it doesn't match the |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5412 * name of the previous clause header. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5413 * |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5414 * Return the size of the name of the predicate or rule, or 0 if no |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5415 * header was found. |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5416 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5417 static int |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5418 prolog_pr (s, last) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5419 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5420 char *last; /* Name of last clause. */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5421 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5422 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5423 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5424 |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5425 pos = prolog_atom (s, 0); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5426 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5427 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5428 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5429 len = pos; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5430 pos = skip_spaces (s + pos) - s; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5431 |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5432 if ((s[pos] == '.' |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5433 || (s[pos] == '(' && (pos += 1)) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5434 || (s[pos] == ':' && s[pos + 1] == '-' && (pos += 2))) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5435 && (last == NULL /* save only the first clause */ |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5436 || len != strlen (last) |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5437 || !strneq (s, last, len))) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5438 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5439 make_tag (s, len, TRUE, s, pos, lineno, linecharno); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5440 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5441 } |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5442 else |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
5443 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5444 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5445 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5446 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5447 * Consume a Prolog atom. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5448 * Return the number of bytes consumed, or -1 if there was an error. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5449 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5450 * A prolog atom, in this context, could be one of: |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5451 * - An alphanumeric sequence, starting with a lower case letter. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5452 * - A quoted arbitrary string. Single quotes can escape themselves. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5453 * Backslash quotes everything. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5454 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5455 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5456 prolog_atom (s, pos) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5457 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5458 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5459 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5460 int origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5461 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5462 origpos = pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5463 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5464 if (ISLOWER(s[pos]) || (s[pos] == '_')) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5465 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5466 /* The atom is unquoted. */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5467 pos++; |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5468 while (ISALNUM(s[pos]) || (s[pos] == '_')) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5469 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5470 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5471 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5472 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5473 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5474 else if (s[pos] == '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5475 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5476 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5477 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
5478 for (;;) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5479 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5480 if (s[pos] == '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5481 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5482 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5483 if (s[pos] != '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5484 break; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5485 pos++; /* A double quote */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5486 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5487 else if (s[pos] == '\0') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5488 /* Multiline quoted atoms are ignored. */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5489 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5490 else if (s[pos] == '\\') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5491 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5492 if (s[pos+1] == '\0') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5493 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5494 pos += 2; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5495 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5496 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5497 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5498 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5499 return pos - origpos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5500 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5501 else |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5502 return -1; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5503 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5504 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5505 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5506 /* |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5507 * Support for Erlang |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5508 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5509 * Generates tags for functions, defines, and records. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5510 * Assumes that Erlang functions start at column 0. |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5511 * Original code by Anders Lindgren (1996) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5512 */ |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5513 static int erlang_func __P((char *, char *)); |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5514 static void erlang_attribute __P((char *)); |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5515 static int erlang_atom __P((char *)); |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5516 |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5517 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5518 Erlang_functions (inf) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5519 FILE *inf; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5520 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5521 char *cp, *last; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5522 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5523 int allocated; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5524 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5525 allocated = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5526 len = 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5527 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5528 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5529 LOOP_ON_INPUT_LINES (inf, lb, cp) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5530 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5531 if (cp[0] == '\0') /* Empty line */ |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5532 continue; |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5533 else if (iswhite (cp[0])) /* Not function nor attribute */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5534 continue; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5535 else if (cp[0] == '%') /* comment */ |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5536 continue; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5537 else if (cp[0] == '"') /* Sometimes, strings start in column one */ |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5538 continue; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5539 else if (cp[0] == '-') /* attribute, e.g. "-define" */ |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5540 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5541 erlang_attribute (cp); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5542 last = NULL; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5543 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5544 else if ((len = erlang_func (cp, last)) > 0) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5545 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5546 /* |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5547 * Function. Store the function name so that we only |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5548 * generates a tag for the first clause. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5549 */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5550 if (last == NULL) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5551 last = xnew (len + 1, char); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5552 else if (len + 1 > allocated) |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5553 xrnew (last, len + 1, char); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5554 allocated = len + 1; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5555 strncpy (last, cp, len); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5556 last[len] = '\0'; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5557 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5558 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5559 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5560 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5561 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5562 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5563 * A function definition is added if it matches: |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5564 * <beginning of line><Erlang Atom><whitespace>( |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5565 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5566 * It is added to the tags database if it doesn't match the |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5567 * name of the previous clause header. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5568 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5569 * Return the size of the name of the function, or 0 if no function |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5570 * was found. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5571 */ |
27658
5980f19581dc
(pfnote, new_pfnote, C_entries, prolog_pred, erlang_func): Add
Dave Love <fx@gnu.org>
parents:
27595
diff
changeset
|
5572 static int |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5573 erlang_func (s, last) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5574 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5575 char *last; /* Name of last clause. */ |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5576 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5577 int pos; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5578 int len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5579 |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5580 pos = erlang_atom (s); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5581 if (pos < 1) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5582 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5583 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5584 len = pos; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5585 pos = skip_spaces (s + pos) - s; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5586 |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5587 /* Save only the first clause. */ |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5588 if (s[pos++] == '(' |
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5589 && (last == NULL |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5590 || len != (int)strlen (last) |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5591 || !strneq (s, last, len))) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5592 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5593 make_tag (s, len, TRUE, s, pos, lineno, linecharno); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5594 return len; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5595 } |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5596 |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5597 return 0; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5598 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5599 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5600 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5601 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5602 * Handle attributes. Currently, tags are generated for defines |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5603 * and records. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5604 * |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5605 * They are on the form: |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5606 * -define(foo, bar). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5607 * -define(Foo(M, N), M+N). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5608 * -record(graph, {vtab = notable, cyclic = true}). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5609 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5610 static void |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5611 erlang_attribute (s) |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5612 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5613 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5614 char *cp = s; |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5615 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5616 if ((LOOKING_AT (cp, "-define") || LOOKING_AT (cp, "-record")) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5617 && *cp++ == '(') |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5618 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5619 int len = erlang_atom (skip_spaces (cp)); |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5620 if (len > 0) |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
5621 make_tag (cp, len, TRUE, s, cp + len - s, lineno, linecharno); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5622 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5623 return; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5624 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5625 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5626 |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5627 /* |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5628 * Consume an Erlang atom (or variable). |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5629 * Return the number of bytes consumed, or -1 if there was an error. |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5630 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5631 static int |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5632 erlang_atom (s) |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5633 char *s; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5634 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5635 int pos = 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5636 |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5637 if (ISALPHA (s[pos]) || s[pos] == '_') |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5638 { |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5639 /* The atom is unquoted. */ |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5640 do |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5641 pos++; |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5642 while (ISALNUM (s[pos]) || s[pos] == '_'); |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5643 } |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5644 else if (s[pos] == '\'') |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5645 { |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5646 for (pos++; s[pos] != '\''; pos++) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5647 if (s[pos] == '\0' /* multiline quoted atoms are ignored */ |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5648 || (s[pos] == '\\' && s[++pos] == '\0')) |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5649 return 0; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5650 pos++; |
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5651 } |
45809
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5652 |
cd830b0ced4d
* etags.c (erlang_atom, erlang_attribute): Bugs corrected.
Francesco Potortì <pot@gnu.org>
parents:
45798
diff
changeset
|
5653 return pos; |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
5654 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
5655 |
240 | 5656 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5657 #ifdef ETAGS_REGEXPS |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5658 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5659 static char *scan_separators __P((char *)); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5660 static void add_regex __P((char *, language *)); |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5661 static char *substitute __P((char *, char *, struct re_registers *)); |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
5662 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5663 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5664 * Take a string like "/blah/" and turn it into "blah", verifying |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5665 * that the first and last characters are the same, and handling |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5666 * quoted separator characters. Actually, stops on the occurrence of |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5667 * an unquoted separator. Also process \t, \n, etc. and turn into |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5668 * appropriate characters. Works in place. Null terminates name string. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5669 * Returns pointer to terminating separator, or NULL for |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5670 * unterminated regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5671 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5672 static char * |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5673 scan_separators (name) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5674 char *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5675 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5676 char sep = name[0]; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5677 char *copyto = name; |
18042
c378dd0b8de7
Various cleanups on TeX, Erlang, Prolog, C.
Francesco Potortì <pot@gnu.org>
parents:
17785
diff
changeset
|
5678 bool quoted = FALSE; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5679 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5680 for (++name; *name != '\0'; ++name) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5681 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5682 if (quoted) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5683 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5684 switch (*name) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5685 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5686 case 'a': *copyto++ = '\007'; break; /* BEL (bell) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5687 case 'b': *copyto++ = '\b'; break; /* BS (back space) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5688 case 'd': *copyto++ = 0177; break; /* DEL (delete) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5689 case 'e': *copyto++ = 033; break; /* ESC (delete) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5690 case 'f': *copyto++ = '\f'; break; /* FF (form feed) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5691 case 'n': *copyto++ = '\n'; break; /* NL (new line) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5692 case 'r': *copyto++ = '\r'; break; /* CR (carriage return) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5693 case 't': *copyto++ = '\t'; break; /* TAB (horizontal tab) */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5694 case 'v': *copyto++ = '\v'; break; /* VT (vertical tab) */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5695 default: |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5696 if (*name == sep) |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5697 *copyto++ = sep; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5698 else |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5699 { |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5700 /* Something else is quoted, so preserve the quote. */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5701 *copyto++ = '\\'; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5702 *copyto++ = *name; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5703 } |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
5704 break; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5705 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5706 quoted = FALSE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5707 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5708 else if (*name == '\\') |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5709 quoted = TRUE; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5710 else if (*name == sep) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5711 break; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5712 else |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5713 *copyto++ = *name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5714 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5715 if (*name != sep) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5716 name = NULL; /* signal unterminated regexp */ |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5717 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5718 /* Terminate copied string. */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5719 *copyto = '\0'; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5720 return name; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5721 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5722 |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5723 /* Look at the argument of --regex or --no-regex and do the right |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5724 thing. Same for each line of a regexp file. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5725 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5726 analyse_regex (regex_arg) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5727 char *regex_arg; |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5728 { |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5729 if (regex_arg == NULL) |
39317
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5730 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5731 free_regexps (); /* --no-regex: remove existing regexps */ |
39317
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5732 return; |
a7f40b000353
* etags.c (analyse_regex): If regex_arg is NULL, return
Francesco Potortì <pot@gnu.org>
parents:
37719
diff
changeset
|
5733 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5734 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5735 /* A real --regexp option or a line in a regexp file. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5736 switch (regex_arg[0]) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5737 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5738 /* Comments in regexp file or null arg to --regex. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5739 case '\0': |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5740 case ' ': |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5741 case '\t': |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5742 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5743 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5744 /* Read a regex file. This is recursive and may result in a |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5745 loop, which will stop when the file descriptors are exhausted. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5746 case '@': |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5747 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5748 FILE *regexfp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5749 linebuffer regexbuf; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5750 char *regexfile = regex_arg + 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5751 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5752 /* regexfile is a file containing regexps, one per line. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5753 regexfp = fopen (regexfile, "r"); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5754 if (regexfp == NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5755 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5756 pfatal (regexfile); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5757 return; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5758 } |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5759 linebuffer_init (®exbuf); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5760 while (readline_internal (®exbuf, regexfp) > 0) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5761 analyse_regex (regexbuf.buffer); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5762 free (regexbuf.buffer); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5763 fclose (regexfp); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5764 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5765 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5766 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5767 /* Regexp to be used for a specific language only. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5768 case '{': |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5769 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5770 language *lang; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5771 char *lang_name = regex_arg + 1; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5772 char *cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5773 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5774 for (cp = lang_name; *cp != '}'; cp++) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5775 if (*cp == '\0') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5776 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5777 error ("unterminated language name in regex: %s", regex_arg); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5778 return; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5779 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5780 *cp++ = '\0'; |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
5781 lang = get_language_from_langname (lang_name); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5782 if (lang == NULL) |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5783 return; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5784 add_regex (cp, lang); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5785 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5786 break; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5787 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5788 /* Regexp to be used for any language. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5789 default: |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5790 add_regex (regex_arg, NULL); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5791 break; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5792 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5793 } |
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
5794 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5795 /* Separate the regexp pattern, compile it, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5796 and care for optional name and modifiers. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5797 static void |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5798 add_regex (regexp_pattern, lang) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5799 char *regexp_pattern; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5800 language *lang; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5801 { |
37719
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5802 static struct re_pattern_buffer zeropattern; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5803 char sep, *pat, *name, *modifiers; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5804 const char *err; |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5805 struct re_pattern_buffer *patbuf; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5806 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5807 bool |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5808 force_explicit_name = TRUE, /* do not use implicit tag names */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5809 ignore_case = FALSE, /* case is significant */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5810 multi_line = FALSE, /* matches are done one line at a time */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5811 single_line = FALSE; /* dot does not match newline */ |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5812 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5813 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5814 if (strlen(regexp_pattern) < 3) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5815 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5816 error ("null regexp", (char *)NULL); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5817 return; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5818 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5819 sep = regexp_pattern[0]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5820 name = scan_separators (regexp_pattern); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5821 if (name == NULL) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5822 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5823 error ("%s: unterminated regexp", regexp_pattern); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5824 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5825 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5826 if (name[1] == sep) |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5827 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5828 error ("null name for regexp \"%s\"", regexp_pattern); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5829 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5830 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5831 modifiers = scan_separators (name); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5832 if (modifiers == NULL) /* no terminating separator --> no name */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5833 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5834 modifiers = name; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5835 name = ""; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5836 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5837 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5838 modifiers += 1; /* skip separator */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5839 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5840 /* Parse regex modifiers. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5841 for (; modifiers[0] != '\0'; modifiers++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5842 switch (modifiers[0]) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5843 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5844 case 'N': |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5845 if (modifiers == name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5846 error ("forcing explicit tag name but no name, ignoring", NULL); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5847 force_explicit_name = TRUE; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5848 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5849 case 'i': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5850 ignore_case = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5851 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5852 case 's': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5853 single_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5854 /* FALLTHRU */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5855 case 'm': |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5856 multi_line = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5857 need_filebuf = TRUE; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5858 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5859 default: |
45918
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5860 { |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5861 char wrongmod [2]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5862 wrongmod[0] = modifiers[0]; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5863 wrongmod[1] = '\0'; |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5864 error ("invalid regexp modifier `%s', ignoring", wrongmod); |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5865 } |
1c3f7d78e90a
(add_regex): Invalid regexp modifiers are ignored.
Francesco Potortì <pot@gnu.org>
parents:
45809
diff
changeset
|
5866 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5867 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5868 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5869 patbuf = xnew (1, struct re_pattern_buffer); |
37719
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5870 *patbuf = zeropattern; |
9c4fdf982ba2
(add_regex): Reset the whole newly allocated pattern buffer instead of
Francesco Potortì <pot@gnu.org>
parents:
37502
diff
changeset
|
5871 if (ignore_case) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5872 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5873 static char lc_trans[CHARS]; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5874 int i; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5875 for (i = 0; i < CHARS; i++) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5876 lc_trans[i] = lowcase (i); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5877 patbuf->translate = lc_trans; /* translation table to fold case */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5878 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5879 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5880 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5881 pat = concat ("^", regexp_pattern, ""); /* anchor to beginning of line */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5882 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5883 pat = regexp_pattern; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5884 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5885 if (single_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5886 re_set_syntax (RE_SYNTAX_EMACS | RE_DOT_NEWLINE); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5887 else |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5888 re_set_syntax (RE_SYNTAX_EMACS); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5889 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5890 err = re_compile_pattern (pat, strlen (regexp_pattern), patbuf); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5891 if (multi_line) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5892 free (pat); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5893 if (err != NULL) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5894 { |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5895 error ("%s while compiling pattern", err); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5896 return; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5897 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5898 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5899 rp = p_head; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5900 p_head = xnew (1, regexp); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5901 p_head->pattern = savestr (regexp_pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5902 p_head->p_next = rp; |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5903 p_head->lang = lang; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
5904 p_head->pat = patbuf; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5905 p_head->name = savestr (name); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5906 p_head->error_signaled = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5907 p_head->force_explicit_name = force_explicit_name; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
5908 p_head->ignore_case = ignore_case; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5909 p_head->multi_line = multi_line; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5910 } |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5911 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5912 /* |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
5913 * Do the substitutions indicated by the regular expression and |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5914 * arguments. |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5915 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5916 static char * |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5917 substitute (in, out, regs) |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5918 char *in, *out; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5919 struct re_registers *regs; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5920 { |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5921 char *result, *t; |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5922 int size, dig, diglen; |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5923 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5924 result = NULL; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5925 size = strlen (out); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5926 |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5927 /* Pass 1: figure out how much to allocate by finding all \N strings. */ |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5928 if (out[size - 1] == '\\') |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5929 fatal ("pattern error in \"%s\"", out); |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5930 for (t = etags_strchr (out, '\\'); |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5931 t != NULL; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5932 t = etags_strchr (t + 2, '\\')) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5933 if (ISDIGIT (t[1])) |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5934 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5935 dig = t[1] - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5936 diglen = regs->end[dig] - regs->start[dig]; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5937 size += diglen - 2; |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
5938 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5939 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5940 size -= 1; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5941 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5942 /* Allocate space and do the substitutions. */ |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
5943 assert (size >= 0); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5944 result = xnew (size + 1, char); |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5945 |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5946 for (t = result; *out != '\0'; out++) |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
5947 if (*out == '\\' && ISDIGIT (*++out)) |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5948 { |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5949 dig = *out - '0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5950 diglen = regs->end[dig] - regs->start[dig]; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5951 strncpy (t, in + regs->start[dig], diglen); |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5952 t += diglen; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5953 } |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5954 else |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5955 *t++ = *out; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5956 *t = '\0'; |
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
5957 |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
5958 assert (t <= result + size); |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
5959 assert (t - result == (int)strlen (result)); |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5960 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5961 return result; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
5962 } |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5963 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5964 /* Deallocate all regexps. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
5965 static void |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5966 free_regexps () |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5967 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5968 regexp *rp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5969 while (p_head != NULL) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5970 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5971 rp = p_head->p_next; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5972 free (p_head->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5973 free (p_head->name); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5974 free (p_head); |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5975 p_head = rp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5976 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5977 return; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
5978 } |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5979 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5980 /* |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5981 * Reads the whole file as a single string from `filebuf' and looks for |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5982 * multi-line regular expressions, creating tags on matches. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5983 * readline already dealt with normal regexps. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5984 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5985 * Idea by Ben Wing <ben@666.com> (2002). |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5986 */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5987 static void |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5988 regex_tag_multiline () |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5989 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5990 char *buffer = filebuf.buffer; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5991 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5992 char *name; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5993 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5994 for (rp = p_head; rp != NULL; rp = rp->p_next) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5995 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5996 int match = 0; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5997 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
5998 if (!rp->multi_line) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
5999 continue; /* skip normal regexps */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6000 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6001 /* Generic initialisations before parsing file from memory. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6002 lineno = 1; /* reset global line number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6003 charno = 0; /* reset global char number */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6004 linecharno = 0; /* reset global char number of line start */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6005 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6006 /* Only use generic regexps or those for the current language. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6007 if (rp->lang != NULL && rp->lang != curfdp->lang) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6008 continue; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6009 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6010 while (match >= 0 && match < filebuf.len) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6011 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6012 match = re_search (rp->pat, buffer, filebuf.len, charno, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6013 filebuf.len - match, &rp->regs); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6014 switch (match) |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6015 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6016 case -2: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6017 /* Some error. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6018 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6019 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6020 error ("regexp stack overflow while matching \"%s\"", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6021 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6022 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6023 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6024 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6025 case -1: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6026 /* No match. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6027 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6028 default: |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6029 if (match == rp->regs.end[0]) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6030 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6031 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6032 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6033 error ("regexp matches the empty string: \"%s\"", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6034 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6035 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6036 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6037 match = -3; /* exit from while loop */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6038 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6039 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6040 |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6041 /* Match occurred. Construct a tag. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6042 while (charno < rp->regs.end[0]) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6043 if (buffer[charno++] == '\n') |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6044 lineno++, linecharno = charno; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6045 name = rp->name; |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6046 if (name[0] == '\0') |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6047 name = NULL; |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6048 else /* make a named tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6049 name = substitute (buffer, rp->name, &rp->regs); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6050 if (rp->force_explicit_name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6051 /* Force explicit tag name, if a name is there. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6052 pfnote (name, TRUE, buffer + linecharno, |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6053 charno - linecharno + 1, lineno, linecharno); |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6054 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6055 make_tag (name, strlen (name), TRUE, buffer + linecharno, |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6056 charno - linecharno + 1, lineno, linecharno); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6057 break; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6058 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6059 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6060 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6061 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6062 |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
6063 #endif /* ETAGS_REGEXPS */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6064 |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6065 |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6066 static bool |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6067 nocase_tail (cp) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6068 char *cp; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6069 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6070 register int len = 0; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6071 |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6072 while (*cp != '\0' && lowcase (*cp) == lowcase (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6073 cp++, len++; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6074 if (*cp == '\0' && !intoken (dbp[len])) |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6075 { |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6076 dbp += len; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6077 return TRUE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6078 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6079 return FALSE; |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6080 } |
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6081 |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6082 static void |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6083 get_tag (bp, namepp) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6084 register char *bp; |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6085 char **namepp; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6086 { |
45950
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6087 register char *cp = bp; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6088 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6089 if (*bp != '\0') |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6090 { |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6091 /* Go till you get to white space or a syntactic break */ |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6092 for (cp = bp + 1; !notinname (*cp); cp++) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6093 continue; |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6094 make_tag (bp, cp - bp, TRUE, |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6095 lb.buffer, cp - lb.buffer + 1, lineno, linecharno); |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6096 } |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6097 |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6098 if (namepp != NULL) |
74a2581262b0
(F_getit, Fortran_functions, Ada_getit, Asm_labels)
Francesco Potortì <pot@gnu.org>
parents:
45926
diff
changeset
|
6099 *namepp = savenstr (bp, cp - bp); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6100 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6101 |
240 | 6102 /* |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6103 * Read a line of text from `stream' into `lbp', excluding the |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6104 * newline or CR-NL, if any. Return the number of characters read from |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6105 * `stream', which is the length of the line including the newline. |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6106 * |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6107 * On DOS or Windows we do not count the CR character, if any before the |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6108 * NL, in the returned length; this mirrors the behavior of Emacs on those |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6109 * platforms (for text files, it translates CR-NL to NL as it reads in the |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6110 * file). |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6111 * |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6112 * If multi-line regular expressions are requested, each line read is |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6113 * appended to `filebuf'. |
240 | 6114 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6115 static long |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6116 readline_internal (lbp, stream) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6117 linebuffer *lbp; |
240 | 6118 register FILE *stream; |
6119 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6120 char *buffer = lbp->buffer; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6121 register char *p = lbp->buffer; |
240 | 6122 register char *pend; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6123 int chars_deleted; |
240 | 6124 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6125 pend = p + lbp->size; /* Separate to avoid 386/IX compiler bug. */ |
240 | 6126 |
45655
a4c27d23899f
(enum arg_type): New label at_stdin.
Francesco Potortì <pot@gnu.org>
parents:
45654
diff
changeset
|
6127 for (;;) |
240 | 6128 { |
6129 register int c = getc (stream); | |
6130 if (p == pend) | |
6131 { | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6132 /* We're at the end of linebuffer: expand it. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6133 lbp->size *= 2; |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6134 xrnew (buffer, lbp->size, char); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6135 p += buffer - lbp->buffer; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6136 pend = buffer + lbp->size; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6137 lbp->buffer = buffer; |
240 | 6138 } |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6139 if (c == EOF) |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6140 { |
14859
efa1bc6b7b17
* etags.c (just_read_file): Reset lineno and charno on entry.
Francesco Potortì <pot@gnu.org>
parents:
14230
diff
changeset
|
6141 *p = '\0'; |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6142 chars_deleted = 0; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6143 break; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6144 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6145 if (c == '\n') |
240 | 6146 { |
10990
c0ceaa45ded7
* etags.c (process_file): free (filename) after using it.
Francesco Potortì <pot@gnu.org>
parents:
10801
diff
changeset
|
6147 if (p > buffer && p[-1] == '\r') |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6148 { |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6149 p -= 1; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6150 #ifdef DOS_NT |
16373
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6151 /* Assume CRLF->LF translation will be performed by Emacs |
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6152 when loading this file, so CRs won't appear in the buffer. |
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6153 It would be cleaner to compensate within Emacs; |
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6154 however, Emacs does not know how many CRs were deleted |
d50369f4bb41
* etags.c (print_version): Print copyright info.
Francesco Potortì <pot@gnu.org>
parents:
16086
diff
changeset
|
6155 before any given point in the file. */ |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6156 chars_deleted = 1; |
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6157 #else |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6158 chars_deleted = 2; |
15772
eb1cef7102e3
(readline_internal) [DOS_NT]: Don't include CRs when
Richard M. Stallman <rms@gnu.org>
parents:
15683
diff
changeset
|
6159 #endif |
10376
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6160 } |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6161 else |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6162 { |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6163 chars_deleted = 1; |
b1c4515958b6
* etags.c (Lang_function): Use void instead to declare the
Francesco Potortì <pot@gnu.org>
parents:
10355
diff
changeset
|
6164 } |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6165 *p = '\0'; |
240 | 6166 break; |
6167 } | |
6168 *p++ = c; | |
6169 } | |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6170 lbp->len = p - buffer; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6171 |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6172 if (need_filebuf /* we need filebuf for multi-line regexps */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6173 && chars_deleted > 0) /* not at EOF */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6174 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6175 while (filebuf.size <= filebuf.len + lbp->len + 1) /* +1 for \n */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6176 { |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6177 /* Expand filebuf. */ |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6178 filebuf.size *= 2; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6179 xrnew (filebuf.buffer, filebuf.size, char); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6180 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6181 strncpy (filebuf.buffer + filebuf.len, lbp->buffer, lbp->len); |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6182 filebuf.len += lbp->len; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6183 filebuf.buffer[filebuf.len++] = '\n'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6184 filebuf.buffer[filebuf.len] = '\0'; |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6185 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6186 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6187 return lbp->len + chars_deleted; |
240 | 6188 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6189 |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6190 /* |
17602
39b58a508be6
* etags.c [TeX_named_tokens]: Set to FALSE if undefined.
Francesco Potortì <pot@gnu.org>
parents:
17477
diff
changeset
|
6191 * Like readline_internal, above, but in addition try to match the |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6192 * input line against relevant regular expressions and manage #line |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6193 * directives. |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6194 */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6195 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6196 readline (lbp, stream) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6197 linebuffer *lbp; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6198 FILE *stream; |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6199 { |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6200 long result; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6201 |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6202 linecharno = charno; /* update global char number of line start */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6203 result = readline_internal (lbp, stream); /* read line */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6204 lineno += 1; /* increment global line number */ |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6205 charno += result; /* increment global char number */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6206 |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
6207 /* Honour #line directives. */ |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6208 if (!no_line_directive) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6209 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6210 static bool discard_until_line_directive; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6211 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6212 /* Check whether this is a #line directive. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6213 if (result > 12 && strneq (lbp->buffer, "#line ", 6)) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6214 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6215 int start, lno; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6216 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6217 if (DEBUG) start = 0; /* shut up the compiler */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6218 if (sscanf (lbp->buffer, "#line %d \"%n", &lno, &start) == 1) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6219 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6220 char *endp = lbp->buffer + start; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6221 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6222 assert (start > 0); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6223 while ((endp = etags_strchr (endp, '"')) != NULL |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6224 && endp[-1] == '\\') |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6225 endp++; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6226 if (endp != NULL) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6227 /* Ok, this is a real #line directive. Let's deal with it. */ |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
6228 { |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6229 char *taggedabsname; /* absolute name of original file */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6230 char *taggedfname; /* name of original file as given */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6231 char *name; /* temp var */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6232 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6233 discard_until_line_directive = FALSE; /* found it */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6234 name = lbp->buffer + start; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6235 *endp = '\0'; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6236 canonicalize_filename (name); /* for DOS */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6237 taggedabsname = absolute_filename (name, curfdp->infabsdir); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6238 if (filename_is_absolute (name) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6239 || filename_is_absolute (curfdp->infname)) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6240 taggedfname = savestr (taggedabsname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6241 else |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6242 taggedfname = relative_filename (taggedabsname,tagfiledir); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6243 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6244 if (streq (curfdp->taggedfname, taggedfname)) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6245 /* The #line directive is only a line number change. We |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6246 deal with this afterwards. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6247 free (taggedfname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6248 else |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6249 /* The tags following this #line directive should be |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6250 attributed to taggedfname. In order to do this, set |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6251 curfdp accordingly. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6252 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6253 fdesc *fdp; /* file description pointer */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6254 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6255 /* Go look for a file description already set up for the |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6256 file indicated in the #line directive. If there is |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6257 one, use it from now until the next #line |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6258 directive. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6259 for (fdp = fdhead; fdp != NULL; fdp = fdp->next) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6260 if (streq (fdp->infname, curfdp->infname) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6261 && streq (fdp->taggedfname, taggedfname)) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6262 /* If we remove the second test above (after the &&) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6263 then all entries pertaining to the same file are |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6264 coalesced in the tags file. If we use it, then |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6265 entries pertaining to the same file but generated |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6266 from different files (via #line directives) will |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6267 go into separate sections in the tags file. These |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6268 alternatives look equivalent. The first one |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6269 destroys some apparently useless information. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6270 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6271 curfdp = fdp; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6272 free (taggedfname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6273 break; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6274 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6275 /* Else, if we already tagged the real file, skip all |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6276 input lines until the next #line directive. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6277 if (fdp == NULL) /* not found */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6278 for (fdp = fdhead; fdp != NULL; fdp = fdp->next) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6279 if (streq (fdp->infabsname, taggedabsname)) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6280 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6281 discard_until_line_directive = TRUE; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6282 free (taggedfname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6283 break; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6284 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6285 /* Else create a new file description and use that from |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6286 now on, until the next #line directive. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6287 if (fdp == NULL) /* not found */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6288 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6289 fdp = fdhead; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6290 fdhead = xnew (1, fdesc); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6291 *fdhead = *curfdp; /* copy curr. file description */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6292 fdhead->next = fdp; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6293 fdhead->infname = savestr (curfdp->infname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6294 fdhead->infabsname = savestr (curfdp->infabsname); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6295 fdhead->infabsdir = savestr (curfdp->infabsdir); |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6296 fdhead->taggedfname = taggedfname; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6297 fdhead->usecharno = FALSE; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6298 fdhead->prop = NULL; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6299 fdhead->written = FALSE; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6300 curfdp = fdhead; |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6301 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6302 } |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6303 free (taggedabsname); |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6304 lineno = lno - 1; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6305 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6306 return; |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6307 } /* if a real #line directive */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6308 } /* if #line is followed by a a number */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6309 } /* if line begins with "#line " */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6310 |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6311 /* If we are here, no #line directive was found. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6312 if (discard_until_line_directive) |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6313 { |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6314 if (result > 0) |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6315 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6316 /* Do a tail recursion on ourselves, thus discarding the contents |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6317 of the line buffer. */ |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6318 readline (lbp, stream); |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6319 return; |
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6320 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6321 /* End of file. */ |
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6322 discard_until_line_directive = FALSE; |
45665
466c8ca0e543
(scan_separators): Support all character escape
Francesco Potortì <pot@gnu.org>
parents:
45655
diff
changeset
|
6323 return; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6324 } |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6325 } /* if #line directives should be considered */ |
43854
e71940336640
* etags.c (Python_functions): Skip spaces at beginning of lines.
Francesco Potortì <pot@gnu.org>
parents:
43759
diff
changeset
|
6326 |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6327 #ifdef ETAGS_REGEXPS |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6328 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6329 int match; |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6330 regexp *rp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6331 char *name; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6332 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6333 /* Match against relevant regexps. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6334 if (lbp->len > 0) |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6335 for (rp = p_head; rp != NULL; rp = rp->p_next) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6336 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6337 /* Only use generic regexps or those for the current language. |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6338 Also do not use multiline regexps, which is the job of |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6339 regex_tag_multiline. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6340 if ((rp->lang != NULL && rp->lang != fdhead->lang) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6341 || rp->multi_line) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6342 continue; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6343 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6344 match = re_match (rp->pat, lbp->buffer, lbp->len, 0, &rp->regs); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6345 switch (match) |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6346 { |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6347 case -2: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6348 /* Some error. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6349 if (!rp->error_signaled) |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6350 { |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6351 error ("regexp stack overflow while matching \"%s\"", |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6352 rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6353 rp->error_signaled = TRUE; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6354 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6355 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6356 case -1: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6357 /* No match. */ |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6358 break; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6359 case 0: |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6360 /* Empty string matched. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6361 if (!rp->error_signaled) |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6362 { |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6363 error ("regexp matches the empty string: \"%s\"", rp->pattern); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6364 rp->error_signaled = TRUE; |
45798
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6365 } |
a486496c2006
New multi-line regexp and new regexp syntax.
Francesco Potortì <pot@gnu.org>
parents:
45665
diff
changeset
|
6366 break; |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6367 default: |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6368 /* Match occurred. Construct a tag. */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6369 name = rp->name; |
47218
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6370 if (name[0] == '\0') |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6371 name = NULL; |
66c5d66d21f6
(regex_tag_multiline, readline): Never pass pfnote a
Francesco Potortì <pot@gnu.org>
parents:
47157
diff
changeset
|
6372 else /* make a named tag */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6373 name = substitute (lbp->buffer, rp->name, &rp->regs); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6374 if (rp->force_explicit_name) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6375 /* Force explicit tag name, if a name is there. */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6376 pfnote (name, TRUE, lbp->buffer, match, lineno, linecharno); |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6377 else |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6378 make_tag (name, strlen (name), TRUE, |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6379 lbp->buffer, match, lineno, linecharno); |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6380 break; |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6381 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6382 } |
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6383 } |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6384 #endif /* ETAGS_REGEXPS */ |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6385 } |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6386 |
240 | 6387 |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6388 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6389 * Return a pointer to a space of size strlen(cp)+1 allocated |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6390 * with xnew where the string CP has been copied. |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6391 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6392 static char * |
240 | 6393 savestr (cp) |
6394 char *cp; | |
6395 { | |
6396 return savenstr (cp, strlen (cp)); | |
6397 } | |
6398 | |
10404
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6399 /* |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6400 * Return a pointer to a space of size LEN+1 allocated with xnew where |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6401 * the string CP has been copied for at most the first LEN characters. |
631f1dac6f7a
Global polishing, some bugs corrected, dynamic allocation used instead
Francesco Potortì <pot@gnu.org>
parents:
10378
diff
changeset
|
6402 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6403 static char * |
240 | 6404 savenstr (cp, len) |
6405 char *cp; | |
6406 int len; | |
6407 { | |
6408 register char *dp; | |
6409 | |
6410 dp = xnew (len + 1, char); | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6411 strncpy (dp, cp, len); |
240 | 6412 dp[len] = '\0'; |
6413 return dp; | |
6414 } | |
6415 | |
6416 /* | |
6417 * Return the ptr in sp at which the character c last | |
6418 * appears; NULL if not found | |
6419 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6420 * Identical to POSIX strrchr, included for portability. |
240 | 6421 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6422 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6423 etags_strrchr (sp, c) |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6424 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6425 register int c; |
240 | 6426 { |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6427 register const char *r; |
240 | 6428 |
6429 r = NULL; | |
6430 do | |
6431 { | |
6432 if (*sp == c) | |
6433 r = sp; | |
6434 } while (*sp++); | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6435 return (char *)r; |
240 | 6436 } |
6437 | |
6438 /* | |
6439 * Return the ptr in sp at which the character c first | |
6440 * appears; NULL if not found | |
6441 * | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6442 * Identical to POSIX strchr, included for portability. |
240 | 6443 */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6444 static char * |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6445 etags_strchr (sp, c) |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6446 register const char *sp; |
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6447 register int c; |
240 | 6448 { |
6449 do | |
6450 { | |
6451 if (*sp == c) | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6452 return (char *)sp; |
9976
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6453 } while (*sp++); |
2869e501c2de
* etags.c [ETAGS_REGEXP]: All the new code that deals with regexps
Francesco Potortì <pot@gnu.org>
parents:
9975
diff
changeset
|
6454 return NULL; |
240 | 6455 } |
6456 | |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6457 /* |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6458 * Compare two strings, ignoring case for alphabetic characters. |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6459 * |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6460 * Same as BSD's strcasecmp, included for portability. |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6461 */ |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6462 static int |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6463 etags_strcasecmp (s1, s2) |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6464 register const char *s1; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6465 register const char *s2; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6466 { |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6467 while (*s1 != '\0' |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6468 && (ISALPHA (*s1) && ISALPHA (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6469 ? lowcase (*s1) == lowcase (*s2) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6470 : *s1 == *s2)) |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6471 s1++, s2++; |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6472 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6473 return (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6474 ? lowcase (*s1) - lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6475 : *s1 - *s2); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6476 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6477 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6478 /* |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6479 * Compare two strings, ignoring case for alphabetic characters. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6480 * Stop after a given number of characters |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6481 * |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6482 * Same as BSD's strncasecmp, included for portability. |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6483 */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6484 static int |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6485 etags_strncasecmp (s1, s2, n) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6486 register const char *s1; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6487 register const char *s2; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6488 register int n; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6489 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6490 while (*s1 != '\0' && n-- > 0 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6491 && (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6492 ? lowcase (*s1) == lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6493 : *s1 == *s2)) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6494 s1++, s2++; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6495 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6496 if (n < 0) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6497 return 0; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6498 else |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6499 return (ISALPHA (*s1) && ISALPHA (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6500 ? lowcase (*s1) - lowcase (*s2) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6501 : *s1 - *s2); |
44605
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6502 } |
1bec0b430206
Bug fix. New version to come soon.
Francesco Potortì <pot@gnu.org>
parents:
44604
diff
changeset
|
6503 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6504 /* Skip spaces, return new pointer. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6505 static char * |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6506 skip_spaces (cp) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6507 char *cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6508 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6509 while (iswhite (*cp)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6510 cp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6511 return cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6512 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6513 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6514 /* Skip non spaces, return new pointer. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6515 static char * |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6516 skip_non_spaces (cp) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6517 char *cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6518 { |
27661
c8b3e7e83e09
2000-02-10 Francesco Potorti` <pot@gnu.org>
Francesco Potortì <pot@gnu.org>
parents:
27658
diff
changeset
|
6519 while (*cp != '\0' && !iswhite (*cp)) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6520 cp++; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6521 return cp; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6522 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6523 |
240 | 6524 /* Print error message and exit. */ |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6525 void |
240 | 6526 fatal (s1, s2) |
6527 char *s1, *s2; | |
6528 { | |
6529 error (s1, s2); | |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6530 exit (EXIT_FAILURE); |
240 | 6531 } |
6532 | |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6533 static void |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6534 pfatal (s1) |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6535 char *s1; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6536 { |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6537 perror (s1); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6538 exit (EXIT_FAILURE); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6539 } |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6540 |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6541 static void |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6542 suggest_asking_for_help () |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6543 { |
57013
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
6544 fprintf (stderr, "\tTry `%s %s' for a complete list of options.\n", |
c2ab1ac6a36b
[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.
Francesco Potortì <pot@gnu.org>
parents:
55408
diff
changeset
|
6545 progname, LONG_OPTIONS ? "--help" : "-h"); |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6546 exit (EXIT_FAILURE); |
13696
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6547 } |
f89aa5a5c485
* etags.c (Cplusplus_suffixes): Add .M suffix for Objective C++.
Francesco Potortì <pot@gnu.org>
parents:
13404
diff
changeset
|
6548 |
240 | 6549 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6550 static void |
240 | 6551 error (s1, s2) |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6552 const char *s1, *s2; |
240 | 6553 { |
6554 fprintf (stderr, "%s: ", progname); | |
6555 fprintf (stderr, s1, s2); | |
6556 fprintf (stderr, "\n"); | |
6557 } | |
6558 | |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6559 /* Return a newly-allocated string whose contents |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6560 concatenate those of s1, s2, s3. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6561 static char * |
240 | 6562 concat (s1, s2, s3) |
6563 char *s1, *s2, *s3; | |
6564 { | |
6565 int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3); | |
6566 char *result = xnew (len1 + len2 + len3 + 1, char); | |
6567 | |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6568 strcpy (result, s1); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6569 strcpy (result + len1, s2); |
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6570 strcpy (result + len1 + len2, s3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6571 result[len1 + len2 + len3] = '\0'; |
240 | 6572 |
6573 return result; | |
6574 } | |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6575 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6576 |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6577 /* Does the same work as the system V getcwd, but does not need to |
13380
12bfc1ecec61
* etags.c (lowcase): Use the standard tolower function.
Francesco Potortì <pot@gnu.org>
parents:
12879
diff
changeset
|
6578 guess the buffer size in advance. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6579 static char * |
7227
6fa038c33a0f
[MSDOS]: #include <sys/param.h> for the following.
Richard M. Stallman <rms@gnu.org>
parents:
7049
diff
changeset
|
6580 etags_getcwd () |
11992
e550e0d13e83
* etags.c (etags_getcwd): Undo the /bin/pwd change. It may raise
Francesco Potortì <pot@gnu.org>
parents:
11990
diff
changeset
|
6581 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6582 #ifdef HAVE_GETCWD |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6583 int bufsize = 200; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6584 char *path = xnew (bufsize, char); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6585 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6586 while (getcwd (path, bufsize) == NULL) |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6587 { |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6588 if (errno != ERANGE) |
11886
c5db1295f7df
* etags.c (etags_getcwd): Use /bin/pwd instead of pwd because the
Francesco Potortì <pot@gnu.org>
parents:
11673
diff
changeset
|
6589 pfatal ("getcwd"); |
9975
e21b0674f37c
* etags.c (<errno.h>): #include added.
Francesco Potortì <pot@gnu.org>
parents:
9773
diff
changeset
|
6590 bufsize *= 2; |
17778
c3ff4c535c9c
* etags.c: (Cplusplus_suffixes): .pdb is Postscript with C syntax.
Francesco Potortì <pot@gnu.org>
parents:
17602
diff
changeset
|
6591 free (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6592 path = xnew (bufsize, char); |
8789
81a2817b99b2
(etags_getcwd): Use getcwd if available.
Karl Heuer <kwzh@gnu.org>
parents:
8180
diff
changeset
|
6593 } |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6594 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6595 canonicalize_filename (path); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6596 return path; |
16394
675944d1abc9
(etags_getcwd) [WINDOWSNT]: Convert backslashes to slashes.
Richard M. Stallman <rms@gnu.org>
parents:
16373
diff
changeset
|
6597 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6598 #else /* not HAVE_GETCWD */ |
35665
2ce207b252dc
Many changes to the parsing capabilities of etags.
Francesco Potortì <pot@gnu.org>
parents:
35653
diff
changeset
|
6599 #if MSDOS |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6600 |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6601 char *p, path[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */ |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6602 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6603 getwd (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6604 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6605 for (p = path; *p != '\0'; p++) |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6606 if (*p == '\\') |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6607 *p = '/'; |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6608 else |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6609 *p = lowcase (*p); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6610 |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6611 return strdup (path); |
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6612 #else /* not MSDOS */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6613 linebuffer path; |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6614 FILE *pipe; |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6615 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6616 linebuffer_init (&path); |
11990
1e5d25c997ca
* etags.c (etags_getcwd): Undo the /bin/pwd change. It may raise
Francesco Potortì <pot@gnu.org>
parents:
11957
diff
changeset
|
6617 pipe = (FILE *) popen ("pwd 2>/dev/null", "r"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6618 if (pipe == NULL || readline_internal (&path, pipe) == 0) |
11990
1e5d25c997ca
* etags.c (etags_getcwd): Undo the /bin/pwd change. It may raise
Francesco Potortì <pot@gnu.org>
parents:
11957
diff
changeset
|
6619 pfatal ("pwd"); |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6620 pclose (pipe); |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6621 |
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6622 return path.buffer; |
16086
33519c691e63
(etags_getcwd): Use getcwd if available even if MSDOS.
Richard M. Stallman <rms@gnu.org>
parents:
15772
diff
changeset
|
6623 #endif /* not MSDOS */ |
11992
e550e0d13e83
* etags.c (etags_getcwd): Undo the /bin/pwd change. It may raise
Francesco Potortì <pot@gnu.org>
parents:
11990
diff
changeset
|
6624 #endif /* not HAVE_GETCWD */ |
10378
fb23ac6e6199
* etags.c (pfatal): New function.
Francesco Potortì <pot@gnu.org>
parents:
10376
diff
changeset
|
6625 } |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6626 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6627 /* Return a newly allocated string containing the file name of FILE |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6628 relative to the absolute directory DIR (which should end with a slash). */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6629 static char * |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6630 relative_filename (file, dir) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6631 char *file, *dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6632 { |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6633 char *fp, *dp, *afn, *res; |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6634 int i; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6635 |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6636 /* Find the common root of file and dir (with a trailing slash). */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6637 afn = absolute_filename (file, cwd); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6638 fp = afn; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6639 dp = dir; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6640 while (*fp++ == *dp++) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6641 continue; |
16573
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6642 fp--, dp--; /* back to the first differing char */ |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6643 #ifdef DOS_NT |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6644 if (fp == afn && afn[0] != '/') /* cannot build a relative name */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6645 return afn; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6646 #endif |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6647 do /* look at the equal chars until '/' */ |
16540
bf7e776e40f6
* etags.c (relative_filename): Bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
16394
diff
changeset
|
6648 fp--, dp--; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6649 while (*fp != '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6650 |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6651 /* Build a sequence of "../" strings for the resulting relative file name. */ |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6652 i = 0; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6653 while ((dp = etags_strchr (dp + 1, '/')) != NULL) |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6654 i += 1; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6655 res = xnew (3*i + strlen (fp + 1) + 1, char); |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6656 res[0] = '\0'; |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6657 while (i-- > 0) |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6658 strcat (res, "../"); |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6659 |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6660 /* Add the file name relative to the common root of file and dir. */ |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6661 strcat (res, fp + 1); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6662 free (afn); |
12879
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
6663 |
3b90cbba7dad
* etags.c (Pascal_functions): Close comment bug corrected.
Francesco Potortì <pot@gnu.org>
parents:
12398
diff
changeset
|
6664 return res; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6665 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6666 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6667 /* Return a newly allocated string containing the absolute file name |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6668 of FILE given DIR (which should end with a slash). */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6669 static char * |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6670 absolute_filename (file, dir) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6671 char *file, *dir; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6672 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6673 char *slashp, *cp, *res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6674 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6675 if (filename_is_absolute (file)) |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6676 res = savestr (file); |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6677 #ifdef DOS_NT |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6678 /* We don't support non-absolute file names with a drive |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6679 letter, like `d:NAME' (it's too much hassle). */ |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6680 else if (file[1] == ':') |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6681 fatal ("%s: relative file names with drive letters not supported", file); |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6682 #endif |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6683 else |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6684 res = concat (dir, file, ""); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6685 |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6686 /* Delete the "/dirname/.." and "/." substrings. */ |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6687 slashp = etags_strchr (res, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6688 while (slashp != NULL && slashp[0] != '\0') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6689 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6690 if (slashp[1] == '.') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6691 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6692 if (slashp[2] == '.' |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6693 && (slashp[3] == '/' || slashp[3] == '\0')) |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6694 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6695 cp = slashp; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6696 do |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6697 cp--; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6698 while (cp >= res && !filename_is_absolute (cp)); |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6699 if (cp < res) |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6700 cp = slashp; /* the absolute name begins with "/.." */ |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6701 #ifdef DOS_NT |
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6702 /* Under MSDOS and NT we get `d:/NAME' as absolute |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6703 file name, so the luser could say `d:/../NAME'. |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6704 We silently treat this as `d:/NAME'. */ |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6705 else if (cp[0] != '/') |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6706 cp = slashp; |
14920
b909bb3e64c9
(absolutefn) [DOS_NT]: Support Novell drives whose drive
Richard M. Stallman <rms@gnu.org>
parents:
14859
diff
changeset
|
6707 #endif |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6708 strcpy (cp, slashp + 3); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6709 slashp = cp; |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6710 continue; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6711 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6712 else if (slashp[2] == '/' || slashp[2] == '\0') |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6713 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6714 strcpy (slashp, slashp + 2); |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6715 continue; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6716 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6717 } |
7776
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6718 |
f91e2cf8770b
* etags.c (absolute_filename): Remove infinite loop bug when
Francesco Potortì <pot@gnu.org>
parents:
7775
diff
changeset
|
6719 slashp = etags_strchr (slashp + 1, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6720 } |
24140
9e4d1d3eab09
(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize
Geoff Voelker <voelker@cs.washington.edu>
parents:
24059
diff
changeset
|
6721 |
17477
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6722 if (res[0] == '\0') |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6723 return savestr ("/"); |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6724 else |
1b5cc3740793
Tue Apr 15 16:09:15 1997 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
17168
diff
changeset
|
6725 return res; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6726 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6727 |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6728 /* Return a newly allocated string containing the absolute |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6729 file name of dir where FILE resides given DIR (which should |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6730 end with a slash). */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6731 static char * |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6732 absolute_dirname (file, dir) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6733 char *file, *dir; |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6734 { |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6735 char *slashp, *res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6736 char save; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6737 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6738 canonicalize_filename (file); |
6592
9a76406c9f98
* etags.c (main): use etags_getcwd for compatibility.
Francesco Potortì <pot@gnu.org>
parents:
6530
diff
changeset
|
6739 slashp = etags_strrchr (file, '/'); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6740 if (slashp == NULL) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6741 return savestr (dir); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6742 save = slashp[1]; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6743 slashp[1] = '\0'; |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6744 res = absolute_filename (file, dir); |
6482
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6745 slashp[1] = save; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6746 |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6747 return res; |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6748 } |
91112dd5c9f5
* etags.c (cwd, outfiledir): vars added.
Francesco Potortì <pot@gnu.org>
parents:
5976
diff
changeset
|
6749 |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6750 /* Whether the argument string is an absolute file name. The argument |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6751 string must have been canonicalized with canonicalize_filename. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6752 static bool |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6753 filename_is_absolute (fn) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6754 char *fn; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6755 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6756 return (fn[0] == '/' |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6757 #ifdef DOS_NT |
34608
9286b7ab7104
(ISALNUM, ISALPHA, ISDIGIT, ISLOWER): New macros.
Gerd Moellmann <gerd@gnu.org>
parents:
30969
diff
changeset
|
6758 || (ISALPHA(fn[0]) && fn[1] == ':' && fn[2] == '/') |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6759 #endif |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6760 ); |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6761 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6762 |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6763 /* Translate backslashes into slashes. Works in place. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6764 static void |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6765 canonicalize_filename (fn) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6766 register char *fn; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6767 { |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6768 #ifdef DOS_NT |
26507
aabdfbf65c68
1999-11-19 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26340
diff
changeset
|
6769 /* Canonicalize drive letter case. */ |
35297
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
6770 if (fn[0] != '\0' && fn[1] == ':' && ISLOWER (fn[0])) |
e268b7b500f0
Changes for makefile support in etags.
Francesco Potortì <pot@gnu.org>
parents:
34635
diff
changeset
|
6771 fn[0] = upcase (fn[0]); |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6772 /* Convert backslashes to slashes. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6773 for (; *fn != '\0'; fn++) |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6774 if (*fn == '\\') |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6775 *fn = '/'; |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6776 #else |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6777 /* No action. */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6778 fn = NULL; /* shut up the compiler */ |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6779 #endif |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6780 } |
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6781 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6782 |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6783 /* Initialize a linebuffer for use */ |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6784 static void |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6785 linebuffer_init (lbp) |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6786 linebuffer *lbp; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6787 { |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6788 lbp->size = (DEBUG) ? 3 : 200; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6789 lbp->buffer = xnew (lbp->size, char); |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6790 lbp->buffer[0] = '\0'; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6791 lbp->len = 0; |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6792 } |
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6793 |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6794 /* Set the minimum size of a string contained in a linebuffer. */ |
27595
25ed45af9355
2000-01-31 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
26507
diff
changeset
|
6795 static void |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6796 linebuffer_setlen (lbp, toksize) |
26262
c416a18b0a5d
Checked in at last a lot of improvementes and bug fixes. The oldest dating
Francesco Potortì <pot@gnu.org>
parents:
26083
diff
changeset
|
6797 linebuffer *lbp; |
16573
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6798 int toksize; |
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6799 { |
35574
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6800 while (lbp->size <= toksize) |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6801 { |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6802 lbp->size *= 2; |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6803 xrnew (lbp->buffer, lbp->size, char); |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6804 } |
ede82ab0ae24
Many small improvements in tagging accuracy and capability,
Francesco Potortì <pot@gnu.org>
parents:
35302
diff
changeset
|
6805 lbp->len = toksize; |
16573
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6806 } |
4ed8667d6bd9
Wed Nov 13 17:51:29 1996 Francesco Potorti` <F.Potorti@cnuce.cnr.it>
Francesco Potortì <pot@gnu.org>
parents:
16540
diff
changeset
|
6807 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6808 /* Like malloc but get fatal error if memory is exhausted. */ |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6809 static PTR |
240 | 6810 xmalloc (size) |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
6811 unsigned int size; |
240 | 6812 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6813 PTR result = (PTR) malloc (size); |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6814 if (result == NULL) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
6815 fatal ("virtual memory exhausted", (char *)NULL); |
240 | 6816 return result; |
6817 } | |
6818 | |
43723
5cd450d9f443
* etags.c: Honour #line directives.
Francesco Potortì <pot@gnu.org>
parents:
42345
diff
changeset
|
6819 static PTR |
240 | 6820 xrealloc (ptr, size) |
6821 char *ptr; | |
5580
517d8eb361f8
* etags.c (stab_entry, stab_create, stab_find, stab_search,
Francesco Potortì <pot@gnu.org>
parents:
5448
diff
changeset
|
6822 unsigned int size; |
240 | 6823 { |
42345
7d2776273a81
support for Perl packages
Francesco Potortì <pot@gnu.org>
parents:
42042
diff
changeset
|
6824 PTR result = (PTR) realloc (ptr, size); |
5940
e663f6626075
* etags.c (absolute_pathnames, cwd): added global vars.
Francesco Potortì <pot@gnu.org>
parents:
5580
diff
changeset
|
6825 if (result == NULL) |
16607
16b8d910795f
* etags.c (C_entries): Test tok.valid. This handles some
Francesco Potortì <pot@gnu.org>
parents:
16573
diff
changeset
|
6826 fatal ("virtual memory exhausted", (char *)NULL); |
240 | 6827 return result; |
6828 } | |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6829 |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6830 /* |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6831 * Local Variables: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6832 * c-indentation-style: gnu |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6833 * indent-tabs-mode: t |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6834 * tab-width: 8 |
44604
4702b23921b4
Avoid doubly tagging parse.y when both parse.c and parse.y are given on
Francesco Potortì <pot@gnu.org>
parents:
44114
diff
changeset
|
6835 * fill-column: 79 |
47081
9c058ffb550b
Two bug corrections and one new feature.
Francesco Potortì <pot@gnu.org>
parents:
45950
diff
changeset
|
6836 * c-font-lock-extra-types: ("FILE" "bool" "language" "linebuffer" "fdesc" "node" "regexp") |
42042
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6837 * End: |
481d38f6aec2
* etags.c (PHP_functions): New function by Diez B. Roggisch,
Francesco Potortì <pot@gnu.org>
parents:
39317
diff
changeset
|
6838 */ |
52401 | 6839 |
6840 /* arch-tag: 8a9b748d-390c-4922-99db-2eeefa921051 | |
6841 (do not change this comment) */ | |
55408
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6842 |
1c425ce93ce9
(GOOD, BAD): Delete macros. Throughout,
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52421
diff
changeset
|
6843 /* etags.c ends here */ |